home *** CD-ROM | disk | FTP | other *** search
- ORG 1100H
- LD BC,0FH
- LD DE,210
- LD HL,DATA
- LDIR
- LD A,1
- IN A,(9)
- LD A,39
- LD (42903),A
- INC A
- LD (42639),A
- LD HL,0F000H
- LD DE,0F001H
- LD BC,400H
- LD A,20H
- LD (HL),A
- LDIR
- LD H,128
- LD L,0
- LD DE,40
- LD IX,0F000H
- LD C,35
- LOOP1A PUSH IX
- LD B,18
- LOOP LD A,144
- OUT (28),A
- LD (IX),L
- RES 4,A
- OUT (28),A
- LD (IX),H
- INC H
- JR NZ,LOOP1
- LD H,128
- INC L
- LOOP1 ADD IX,DE
- DJNZ LOOP
- POP IX
- INC IX
- DEC C
- JR NZ,LOOP1A
- LD A,80H
- LD (ONE),A
- XOR A
- LD (TWO),A
- LD DE,0F800H
- LD B,0
- LONE LD C,0
- LTWO LD A,C
- AND 30H
- SRL A
- SRL A
- SRL A
- SRL A
- OR 20H
- LD H,A
- LD A,C
- AND 7
- SLA A
- SLA A
- ADD A,H
- LD H,A
- LD A,C
- AND 0C0H
- SRL A
- LD L,A
- SRL A
- SRL A
- OR L
- LD L,A
- LD A,C
- AND 8
- SLA A
- SLA A
- SLA A
- SLA A
- ADD A,L
- ADD A,B
- LD L,A
- LD A,(HL)
- LD (DE),A
- INC DE
- LD A,(TWO)
- INC A
- LD (TWO),A
- CP 11
- JR NZ,NOT3
- XOR A
- LD (TWO),A
- LD A,5
- ADD A,E
- LD E,A
- LD A,D
- ADC A,0
- LD D,A
- CP 0
- JR NZ,NOT3
- LD DE,0F800H
- LD A,(ONE)
- INC A
- LD (ONE),A
- OUT (01CH),A
- NOT3 INC C
- LD A,0C0H
- CP C
- JR NZ,LTWO
- LD A,E
- ADD A,11
- LD E,A
- LD A,D
- ADC A,0
- LD D,A
- CP 0
- JR Z,LFOUR
- LTHREE XOR A
- LD (TWO),A
- INC B
- LD A,23H
- CP B
- JR NZ,LONE
- RET
- LFOUR LD DE,0F800H
- LD A,(ONE)
- INC A
- LD (ONE),A
- OUT (01CH),A
- JR LTHREE
- ONE DEFB 80H
- TWO DEFB 00H
- DATA DEFW 2835H
- DEFW 242EH
- DEFW 051BH
- DEFW 1A1AH
- DEFW 0A48H
- DEFW 0A69H
- DEFW 0020H
- DEFW 0020H
- END