UHR ASM ;
OS EQU 0F003H
WS EQU 200H
DEFW 7F7FH
DEFM 'RUN'
DEFB 1
LD HL,ISR
LD (1DEH),HL
LD HL,SECHDLR
LD (WS+8),HL
;Sekundenhandler totlegen
LD C,0CH
LD A,0D8H
OUT (C),A
INC C
INC C
LD A,7
OUT (C),A
LD A,219
OUT (C),A
INC C
LD A,0C7H
OUT (C),A
LD A,50
OUT (C),A
RET
;
DEFW 7F7FH
DEFM 'STOP'
DEFB 1
LD A,3
OUT 0FH
RET
ISR
CALL EIRETI
PUSH AF
PUSH HL
PUSH DE
LD HL,WS
LD A,M
ADD 10H ;Zehntel
DAA
LD M,A
JR NC,EXI
SET 3,M
INC L
LD DE,60H
CALL INCM ;Sek
CALL NC,INCM ;Min
LD E,24H
CALL NC,INCM ;Std
LD DE,132H ;31 Tage
CALL NC,INCM
LD E,13
CALL NC,INCM ;Mon
LD E,0FFH ;Kein Einflu~
CALL NC,INCM ;Jahr
EXI
LD HL,WS
BIT 3,M
LD HL,(WS+8)
CALL NZ,JPHL
POP DE
POP HL
POP AF
RET
INCM
LD A,M
ADD 1
DAA
CP E ;60h?
JR C,IMOK
LD A,D
IMOK
LD M,A
INC L
RET
EIRETI
EI
RETI
SECHDLR
LD HL,WS
RES 3,M
RET
JPHL
JP (HL)
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿI
SECHDLR
LD HL,WS
RES 3,M
RET
JPHL
JP (HL)
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
Detected encoding: ANSI (CP1252) | 4
|
|