CLS ASM ;
OS EQU 0F003H
;
DEFW 7F7FH
DEFM 'GENERATOR'
DEFB 1
LD DE,-1
MA0 LD BC,0
INC DE
INC DE
LD HL,1
MA1
ADD HL,HL
JR NC,MA2
LD A,L
XOR E
LD L,A
LD A,H
XOR D
LD H,A
MA2
LD A,L
DEC A
OR H
INC BC
JR NZ,MA1
INC BC
LD A,B
OR C
JR NZ,MA0
EX DE,HL
CALL 0F003H
DEFB 1AH
EX DE,HL
CALL OS
DEFB 23H
DEFW 7
CALL OS
DEFB 2AH
RET C
JR MA0
;
DEFW 7F7FH
DEFM 'CLS'
DEFB 1
OR A
LD DE,2DH
JR Z,CL00
EX DE,HL
CL00 LD HL,0
CALL PUSE
INC HL
CL0 ADD HL,HL
JR NC,CL1
LD A,H
XOR D
LD H,A
LD A,L
XOR E
LD L,A
CL1
CALL PUSE
CL3 BIT 0,(IX+8)
JR Z,CL2
LD A,(IX+13)
CP 3
RET Z
OR A
JR NZ,CL3
RES 0,(IX+8)
CL2 LD A,L
DEC A
OR H
JR NZ,CL0
RET
PUSE
PUSH HL
LD A,0FFH
SRL H
RLA
SRL H
RLA
SCF
RR H
RLA
LD C,A
LD B,0FDH
LD A,(BC)
XOR M
LD M,A
LD A,H
CP 88H
JR NC,PUSE1
ADD A,20H
LD H,A
LD A,(BC)
XOR M
LD M,A
PUSE1: POP HL
RET
ò`
PUSE1:w`
PUSE:q`
CL2:^`
CL3:CP 88H
JR NC,PUSE1
ADD A,20H
LD H,A
LD A,(BC)
XOR M
LD M,A
PUSE1: POP HL
RET
ò`
PUSE1:w`
PUSE:q`
CL2:^`
CL3:
Detected encoding: OEM (CP437) | 1
|
|