ORG &H7090
START &H7090
LDW $0,&H6F51
LD $2,($0)
SBC $2,&H01
JP NZ,&H8BE9
LDW $23,&H779A
LD $15,($23)
SB $15,&H00
JP Z,L1
PRE IX,&H7197
PRE IY,&H7796
PRE IZ,&H6201
BUP
JP L2
L1: PRE IY,&H6201
PRE IX,&H6800
PRE IZ,&H7796
BDN
L2: PRE IZ,&H779B
LD $26,(IZ-3)
LD $2,(IZ+0)
L3: GRE IZ,$0
LD $25,$2
ADW $0,$30
L4: LD $3,($0)
SB $3,&HF0
JP C,L11
LD $5,$3
ROU $3
LD $4,$3
ROU $3
AD $3,$4
PRE IX,$0
LD $6,(IX+$2)
SBC $6,&H38
JR NC,L11
LD $7,0
ROUW $6
DIUW $6
BID $6
DID $6
BYUW $7
BIDW $8
LDW $9,$7
BIDW $8
ADW $7,$9
LD $17,$2
BIU $17
LD $9,(IX+$17)
LD $10,0
ADW $7,$9
LDW $9,&H6201
ADW $7,$9
LDW $9,&H6B4A
LD $4,0
ADW $9,$3
PRE US,$9
PRE IX,$7
LD $15,6
L5: PPU $10
LD $9,0
LD $16,$6
L6: SB $16,1
JR C,L7
BIDW $10
JR L6
L7: LD $14,(IX+0)
LD $13,(IX+&HC0)
SBC $26,0
JR Z,L8
ANCW $13,$9
JR Z,L10
ST $31,($23)
RTN
L8: SBC (IZ-2),$30
JR Z,L9
XRW $13,$9
JR L10
L9: ORW $13,$9
L10: STI $14,(IX+0)
ST $13,(IX+&HBF)
SB $15,1
JR NZ,L5
L11: ADW $0,$30
SB $25,1
JP NZ,L4
SB $26,1
JP Z,L3
ST $30,($23)
SBC (IZ-4),$30
CAL Z,&H022C
RTN
