mirror of
https://github.com/Tolik-Trek/MK.DEMO.git
synced 2026-06-15 09:31:38 +03:00
524 lines
7.4 KiB
NASM
524 lines
7.4 KiB
NASM
org #8000
|
|
|
|
JP #8006
|
|
JP #80D7
|
|
LD SP,#BFFF
|
|
LD HL,#9000
|
|
LD A,#81
|
|
LD (HL),#FF
|
|
INC L
|
|
CP L
|
|
JR NZ,#800E
|
|
LD A,#C0
|
|
LD (HL),L
|
|
INC L
|
|
CP L
|
|
JR NZ,#8016
|
|
LD (HL),#FF
|
|
INC L
|
|
JR NZ,#801B
|
|
IN A,(#E2)
|
|
EX AF,AF'
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(#C181)
|
|
OUT (#E2),A
|
|
AND A
|
|
JR Z,#8050
|
|
LD HL,#C000
|
|
LD D,#90
|
|
LD E,(HL)
|
|
LD A,(DE)
|
|
LD (HL),A
|
|
INC L
|
|
JR NZ,#8034
|
|
INC H
|
|
JR NZ,#8034
|
|
IN A,(#E2)
|
|
LD L,A
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD H,#C2
|
|
LD A,(HL)
|
|
OUT (#E2),A
|
|
CP #FF
|
|
LD HL,#C000
|
|
JR NZ,#8034
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(#C182)
|
|
OUT (#E2),A
|
|
LD HL,#C036
|
|
LD DE,#9000
|
|
LD BC,#0400
|
|
LDIR
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(#C183)
|
|
OUT (#E2),A
|
|
LD HL,#C236
|
|
LD DE,#9200
|
|
LD BC,#0100
|
|
LDIR
|
|
EX AF,AF'
|
|
OUT (#E2),A
|
|
LD HL,#9000
|
|
LD B,#FF
|
|
LD C,#A4
|
|
LD DE,#0000
|
|
LD A,#00
|
|
CALL #3D13
|
|
LD HL,#9000
|
|
LD B,#FF
|
|
LD C,#A4
|
|
LD DE,#0000
|
|
LD A,#01
|
|
CALL #3D13
|
|
LD A,#02
|
|
LD C,#F2
|
|
CALL #3D13
|
|
LD C,#80
|
|
LD B,#08
|
|
LD E,#00
|
|
LD HL,#5000
|
|
CALL #3D13
|
|
LD C,#80
|
|
LD B,#09
|
|
LD E,#01
|
|
LD HL,#4000
|
|
CALL #3D13
|
|
LD HL,#C100
|
|
LD DE,#0800
|
|
LD BC,#4005
|
|
CALL #3D13
|
|
LD HL,#83B5
|
|
LD DE,#C080
|
|
LD BC,#0011
|
|
LDIR
|
|
DI
|
|
IN A,(#E2)
|
|
LD C,#F3
|
|
CALL #3D13
|
|
LD SP,#BFFF
|
|
IM 1
|
|
DI
|
|
IN A,(#E2)
|
|
EX AF,AF'
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(#C184)
|
|
LD (#834D),A
|
|
EX AF,AF'
|
|
OUT (#E2),A
|
|
EI
|
|
HALT
|
|
DI
|
|
LD D,#DC
|
|
CALL #8171
|
|
EI
|
|
HALT
|
|
DI
|
|
IN A,(#C9)
|
|
XOR #01
|
|
AND #01
|
|
OUT (#C9),A
|
|
LD D,#DC
|
|
CALL #8171
|
|
LD HL,#8191
|
|
LD DE,#9100
|
|
LD D,D
|
|
LD A,#1B
|
|
LD L,L
|
|
LD A,(HL)
|
|
LD (DE),A
|
|
INC D
|
|
LD (DE),A
|
|
INC D
|
|
LD (DE),A
|
|
LD B,B
|
|
LD (#9004),DE
|
|
DEC D
|
|
LD (#9002),DE
|
|
DEC D
|
|
LD (#9000),DE
|
|
EI
|
|
HALT
|
|
DI
|
|
LD A,#02
|
|
OUT (#FE),A
|
|
LD IX,(#9000)
|
|
CALL #8350
|
|
CALL #81FE
|
|
LD IX,(#9004)
|
|
CALL #8293
|
|
CALL #8350
|
|
LD DE,(#9000)
|
|
LD HL,(#9002)
|
|
LD (#9000),HL
|
|
LD HL,(#9004)
|
|
LD (#9002),HL
|
|
LD (#9004),DE
|
|
LD A,#07
|
|
OUT (#FE),A
|
|
CALL #8350
|
|
CALL #8350
|
|
EI
|
|
HALT
|
|
DI
|
|
IN A,(#C9)
|
|
XOR #01
|
|
AND #01
|
|
OUT (#C9),A
|
|
CALL #8350
|
|
CALL #8350
|
|
JP #8127
|
|
LD A,#50
|
|
OUT (#E2),A
|
|
LD HL,#C040
|
|
IN A,(#C9)
|
|
AND A
|
|
JR NZ,#8180
|
|
LD HL,#C180
|
|
LD D,D
|
|
LD A,#00
|
|
LD B,B
|
|
OUT (#89),A
|
|
LD B,#A0
|
|
LD E,E
|
|
LD (HL),D
|
|
INC HL
|
|
LD (HL),D
|
|
INC HL
|
|
LD B,B
|
|
DJNZ #8188
|
|
RET
|
|
RST #38
|
|
NOP
|
|
RET NZ
|
|
LD A,B
|
|
ADD A,B
|
|
NOP
|
|
NOP
|
|
LD D,B
|
|
LD E,H
|
|
RST #38
|
|
NOP
|
|
RET NZ
|
|
LD A,B
|
|
ADD A,B
|
|
LD H,B
|
|
NOP
|
|
LD D,B
|
|
LD E,H
|
|
RST #38
|
|
NOP
|
|
RET NZ
|
|
LD A,B
|
|
ADD A,B
|
|
RET NZ
|
|
NOP
|
|
LD D,B
|
|
LD E,L
|
|
PUSH IX
|
|
IN A,(#A2)
|
|
PUSH AF
|
|
IN A,(#E2)
|
|
PUSH AF
|
|
IN A,(#89)
|
|
PUSH AF
|
|
LD A,#50
|
|
OUT (#A2),A
|
|
LD BC,#4040
|
|
IN A,(#C9)
|
|
AND A
|
|
JR NZ,#81C6
|
|
LD BC,#4180
|
|
LD E,(IX+#05)
|
|
LD D,(IX+#06)
|
|
EX DE,HL
|
|
ADD HL,BC
|
|
LD B,(IX+#03)
|
|
LD C,(IX+#04)
|
|
LD A,(IX+#07)
|
|
OUT (#89),A
|
|
LD D,D
|
|
LD (HL),C
|
|
LD B,B
|
|
LD C,#89
|
|
LD L,L
|
|
INC (HL)
|
|
LD B,B
|
|
INC A
|
|
OUT (C),A
|
|
DJNZ #81DE
|
|
LD BC,#0009
|
|
ADD IX,BC
|
|
BIT 0,(IX-#01)
|
|
JR Z,#81B7
|
|
POP AF
|
|
OUT (#89),A
|
|
POP AF
|
|
OUT (#E2),A
|
|
POP AF
|
|
OUT (#A2),A
|
|
POP IX
|
|
RET
|
|
NOP
|
|
LD A,#01
|
|
OUT (#FD),A
|
|
PUSH IX
|
|
IN A,(#82)
|
|
PUSH AF
|
|
IN A,(#A2)
|
|
PUSH AF
|
|
IN A,(#E2)
|
|
PUSH AF
|
|
IN A,(#89)
|
|
PUSH AF
|
|
LD A,#50
|
|
OUT (#A2),A
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(#C182)
|
|
LD H,#C2
|
|
LD L,A
|
|
EX AF,AF'
|
|
LD A,(HL)
|
|
OUT (#82),A
|
|
LD HL,#C436
|
|
LD DE,(#8291)
|
|
ADD HL,DE
|
|
LD DE,#4040
|
|
IN A,(#C9)
|
|
AND #01
|
|
JR NZ,#8236
|
|
LD DE,#4180
|
|
EX AF,AF'
|
|
OUT (#E2),A
|
|
LD A,#DF
|
|
OUT (#89),A
|
|
LD A,#C8
|
|
EX AF,AF'
|
|
LD D,D
|
|
LD B,#00
|
|
LD L,L
|
|
LD A,(HL)
|
|
LD (DE),A
|
|
INC H
|
|
INC D
|
|
LD D,D
|
|
LD C,#40
|
|
LD L,L
|
|
LD A,(HL)
|
|
LD (DE),A
|
|
DEC H
|
|
DEC D
|
|
LD B,B
|
|
LD BC,#0208
|
|
ADD HL,BC
|
|
BIT 7,H
|
|
JR NZ,#8275
|
|
EXX
|
|
CALL #8350
|
|
LD B,#FE
|
|
LD C,#82
|
|
IN L,(C)
|
|
OUT (C),B
|
|
LD C,#E2
|
|
OUT (C),L
|
|
LD C,#82
|
|
LD H,#02
|
|
LD L,(HL)
|
|
OUT (C),L
|
|
EXX
|
|
SET 7,H
|
|
SET 6,H
|
|
IN A,(#89)
|
|
DEC A
|
|
OUT (#89),A
|
|
EX AF,AF'
|
|
DEC A
|
|
JR NZ,#823F
|
|
POP AF
|
|
OUT (#89),A
|
|
POP AF
|
|
OUT (#E2),A
|
|
POP AF
|
|
OUT (#A2),A
|
|
POP AF
|
|
OUT (#82),A
|
|
POP IX
|
|
LD A,#00
|
|
OUT (#FD),A
|
|
RET
|
|
LD H,H
|
|
NOP
|
|
PUSH IX
|
|
IN A,(#A2)
|
|
PUSH AF
|
|
IN A,(#E2)
|
|
PUSH AF
|
|
IN A,(#89)
|
|
PUSH AF
|
|
CALL #830A
|
|
CALL #8350
|
|
LD A,(IX+#00)
|
|
OUT (#E2),A
|
|
LD A,(IX+#08)
|
|
AND #0C
|
|
OR #50
|
|
OUT (#A2),A
|
|
LD BC,#4040
|
|
IN A,(#C9)
|
|
AND #01
|
|
JR NZ,#82BE
|
|
LD BC,#4180
|
|
LD L,(IX+#05)
|
|
LD H,(IX+#06)
|
|
ADD HL,BC
|
|
EX DE,HL
|
|
LD L,(IX+#01)
|
|
LD H,(IX+#02)
|
|
LD C,(IX+#04)
|
|
LD A,(IX+#07)
|
|
ADD A,(IX+#03)
|
|
DEC A
|
|
OUT (#89),A
|
|
LD A,(IX+#03)
|
|
LD D,D
|
|
LD (HL),C
|
|
LD B,B
|
|
LD B,#00
|
|
EXX
|
|
LD C,#89
|
|
IN E,(C)
|
|
LD B,A
|
|
EXX
|
|
LD L,L
|
|
LD A,(HL)
|
|
LD (DE),A
|
|
LD B,B
|
|
ADD HL,BC
|
|
EXX
|
|
DEC E
|
|
OUT (C),E
|
|
DJNZ #82E6
|
|
EXX
|
|
LD BC,#0009
|
|
ADD IX,BC
|
|
BIT 0,(IX-#01)
|
|
JR Z,#82A1
|
|
POP AF
|
|
OUT (#89),A
|
|
POP AF
|
|
OUT (#E2),A
|
|
POP AF
|
|
OUT (#A2),A
|
|
POP IX
|
|
RET
|
|
LD A,(#8291)
|
|
ADD A,#04
|
|
LD (#8291),A
|
|
JR Z,#8318
|
|
CP #C8
|
|
JR NZ,#8320
|
|
LD A,(#830E)
|
|
NEG
|
|
LD (#830E),A
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD H,#C2
|
|
LD A,(#834A)
|
|
LD L,A
|
|
LD L,(HL)
|
|
LD (IX+#00),L
|
|
LD (IX+#09),L
|
|
LD (IX+#12),L
|
|
LD A,L
|
|
LD (#834A),A
|
|
INC A
|
|
RET NZ
|
|
LD A,(#C181)
|
|
LD (IX+#00),A
|
|
LD (IX+#09),A
|
|
LD (IX+#12),A
|
|
LD (#834A),A
|
|
RET
|
|
RST #38
|
|
RST #38
|
|
NOP
|
|
RST #38
|
|
NOP
|
|
RET NZ
|
|
PUSH AF
|
|
PUSH HL
|
|
IN A,(#FE)
|
|
LD HL,#834C
|
|
XOR (HL)
|
|
AND #80
|
|
JP Z,#83B2
|
|
LD A,(HL)
|
|
CPL
|
|
LD B,A
|
|
PUSH DE
|
|
PUSH BC
|
|
LD HL,(#834E)
|
|
LD C,#FB
|
|
LD D,#10
|
|
IN A,(#E2)
|
|
LD E,A
|
|
LD A,(#834D)
|
|
OUT (#E2),A
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
OUTI
|
|
DEC D
|
|
JR NZ,#8371
|
|
LD (#834E),HL
|
|
LD A,H
|
|
AND A
|
|
JR NZ,#83A8
|
|
LD H,#C2
|
|
LD A,(#834D)
|
|
LD L,A
|
|
LD A,#FE
|
|
OUT (#E2),A
|
|
LD A,(HL)
|
|
LD (#834D),A
|
|
INC A
|
|
LD HL,#C000
|
|
LD (#834E),HL
|
|
JR NZ,#83A8
|
|
LD A,(#C184)
|
|
LD (#834D),A
|
|
LD A,B
|
|
CPL
|
|
LD (#834C),A
|
|
LD A,E
|
|
OUT (#E2),A
|
|
POP BC
|
|
POP DE
|
|
POP HL
|
|
POP AF
|
|
RET
|
|
LD B,(HL)
|
|
LD C,H
|
|
LD B,L
|
|
LD E,B
|
|
LD E,A
|
|
LD SP,#4B30
|
|
LD E,A
|
|
LD C,H
|
|
LD C,A
|
|
LD B,C
|
|
LD B,H
|
|
LD C,C
|
|
LD C,(HL)
|
|
LD B,A
|
|
RST #38
|
|
; |