Changes
Created page with "These are the low level routines of [[FutureOS]] to read and write the Dobbertin RTC, written by [[TFM]]. They show how to read and write the RTC itself. <pre> ;TFM of Futur..."
These are the low level routines of [[FutureOS]] to read and write the Dobbertin RTC, written by [[TFM]]. They show how to read and write the RTC itself.
<pre>
;TFM of FutureSoft - part of FutureOS
;All rights reserved
;Dobb.Uhr Daten ins RAM ab UHR_00 ; AKT_ROM ein
;Mani; AF,BC,DE,HL
LUHR LD BC,(UHR_ROM)
OUT (C),C
LD A,(&C004)
LD DE,&C000
LD HL,&C001
CALL KOAS
CALL KOAS
LD E,4 ;DE=&C004
LD HL,UHR_00
LD B,8
RDUL LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD (HL),C
INC HL
DJNZ RDUL
LD BC,(AKT_ROM)
OUT (C),C
RET
KOAS LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
RET
;Uhr-Daten schreiben
;-------------------
;DE=8 Bytes in.Page, Dobb.komp
;Mani; AF,BC,E,HL,BC',DE',HL'
;AKT_ROM aktiv
SUHR EXX
LD BC,(UHR_ROM):OUT (C),C
LD A,(&C004)
LD DE,&C000
LD HL,&C001
CALL KOAS
CALL KOAS
EXX
LD BC,&0800
LD H,&C0
SUGL LD A,(DE):SCF
SUNB RR A:JR Z,SUZZ
LD L,C
RL L
LD L,(HL)
JR SUNB
SUZZ INC E
DJNZ SUGL
LD BC,(AKT_ROM):OUT (C),C
RET
</pre>
[[Category:Programming]]
<pre>
;TFM of FutureSoft - part of FutureOS
;All rights reserved
;Dobb.Uhr Daten ins RAM ab UHR_00 ; AKT_ROM ein
;Mani; AF,BC,DE,HL
LUHR LD BC,(UHR_ROM)
OUT (C),C
LD A,(&C004)
LD DE,&C000
LD HL,&C001
CALL KOAS
CALL KOAS
LD E,4 ;DE=&C004
LD HL,UHR_00
LD B,8
RDUL LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD A,(DE)
RRA
RR C
LD (HL),C
INC HL
DJNZ RDUL
LD BC,(AKT_ROM)
OUT (C),C
RET
KOAS LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
LD A,(DE)
LD A,(HL)
LD A,(HL)
LD A,(HL)
LD A,(DE)
LD A,(HL)
LD A,(DE)
RET
;Uhr-Daten schreiben
;-------------------
;DE=8 Bytes in.Page, Dobb.komp
;Mani; AF,BC,E,HL,BC',DE',HL'
;AKT_ROM aktiv
SUHR EXX
LD BC,(UHR_ROM):OUT (C),C
LD A,(&C004)
LD DE,&C000
LD HL,&C001
CALL KOAS
CALL KOAS
EXX
LD BC,&0800
LD H,&C0
SUGL LD A,(DE):SCF
SUNB RR A:JR Z,SUZZ
LD L,C
RL L
LD L,(HL)
JR SUNB
SUZZ INC E
DJNZ SUGL
LD BC,(AKT_ROM):OUT (C),C
RET
</pre>
[[Category:Programming]]
