Rev 548 |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
| ?url?
;LAST UPDATE: 16.08.2015 savelij
;
9 11,
FILL_NEWTXTMODE DI
LD A,1
OUT (PEVO_CONF),A
LD BC,WIN_A3
LD A,0XA4
OUT (C),A
LOC_475 LD BC,RD_7FFD
IN A,(C)
LD E,A
XOR 8
LD BC,0X7FFD
OUT (C),A
LD BC,WIN_A3
LD A,E
AND 8
RRCA
RRCA
XOR 0X74
OUT (C), A
LD IXL,0
LD HL,0XC000
LD C,0X19
LOC_496 LD B,0X50
LD A,IXL
LOC_49A LD (HL),A
INC A
INC HL
DJNZ LOC_49A
INC IXL
DEC C
JR NZ,LOC_496
LD HL,0XC800
XOR A
EX AF,AF'
LD A,7
LOC_4AB EX AF,AF'
LD D,H
LD E,L
INC DE
ADD A,0X38
LD (HL),A
SUB 38H
LD BC,0XA0
LDIR
INC A
EX AF,AF'
DEC A
JR NZ,LOC_4AB
LD IXL,1
LD A,0X0C
LOC_4C3 EX AF, AF'
LD D,H
LD E,L
INC DE
LD A,IXL
LD (HL),A
LD BC,0X50
LDIR
INC IXL
EX AF,AF'
DEC A
JR NZ,LOC_4C3
JR LOC_475