ORG &H7498
START &H7498
LOOP:EQU &H8BE9
PRE IZ,&H6F51
LD $0,(IZ+0)
SBC $0,1
JP NZ,LOOP
LDW $0,&H7790
LD $27,($0)
LDW $0,&H74B4
ST $27,($0)
JR LOO1
LOO1:JP LOO2
JP LOO6
JP LOO4
JP LOO6
RTN
LOO2:PRE IZ,&H7791
LDIW $2,(IZ+$31)
LD $6,(IZ+0)
LO26:PRE IX,&H779B
LD $5,5
STI $5,(IX+0)
LO11:CAL LOO3
JP LOO7
LOO3:LD $4,0
BIUW $3
BIUW $3
AD $3,$2
LD $2,0
AD $4,240
STI $4,(IX+0)
RTN
LOO7:LD $0,$5
BIU $0
LD $1,$0
BIU $0
AD $0,$1
AD $0,3
ST $0,(IX+4)
ST $6,(IX+9)
SB $5,1
JP NZ,LO11
CAL &H709D
RTN
LOO4:PRE IX,&H6321
LD $0,15
LD $1,128
LOO5:STI $1,(IX+0)
ST $31,(IX+191)
SB $0,1
JP NZ,LOO5
LOO6:LDW $0,&H7793
LDW $2,($0)
PRE IX,&H770D
LD $4,(IX+$2)
AD $4,$3
LDW $3,(IX+$4)
LD $9,$4
PRE IX, &H779C
LD $6,8
LOO8:LD $10,0
BIUW $9
BIUW $9
LD $2,$10
CAL LOO3
SB $6,1
JP NZ,LOO8
LOO9:PRE IX,&H77A4
LDW $0,&H7791
LDW $2,($0)
LD $4,$3
AD $4,6
LD $6,4
LO10:STIW $3,(IX+$31)
ST $2,(IX+6)
ST $2,(IX+7)
AD $2,3
SB $6,1
JP NZ,LO10
CAL &H709D
SBC $27,10
RTN NZ
PRE IX,&H779A
LD $28,3
PRE IZ,&H7791
SBC (IX+0),$31
JP Z,LO12
LD $29,0
LD $18,0
LD $19,(IZ-2)
DIDW $19
BIUW $18
LO15:LD $2,10
LO13:PST IA,$2
GRE KY,$3
NOP
GRE KY,$3
SBC $3,0
JP NZ,LO16
ST $31,(IZ-1)
SB $2,1
SBC $2,6
JP NZ,LO13
LO14:SBW $18,$30
JP NZ,LO15
LO18:AD(IZ+$31),$28
JP LOO9
LO16:SBC(IZ-$30),$2
JP Z,LO14
ST $2,(IZ-1)
SB $2,7
LD $9,$2
BIU $2
AD $2,$9
AD $2,1
LDW $5,&H75E9
ST $2,($5)
JR+1
JP LO17
JP LO18
JP LO20
JP LO23
LO17:SB(IZ+1),$28
LD $29,1
JP LOO9
LO19:AD(IZ+1),$28
JP LO22
LO20:AD(IZ+1),$28
LD $29,2
JP LOO9
LO21:SB(IZ+1),$28
LO22:LD $29,0
LDW $20,30
SBW $18,$20
JP C,LO18
JP LO15
LO23:LD $29,3
LDW $0,2
LDW $0,(IZ+$0)
PRE IX,&H7767
AD $1,2
LD $20,(IX+$0)
SBC $20,$1
JP NC,LO24
ST $31,(IZ+3)
JP LOO6
LO24:ST $1,(IZ+3)
JP LOO6
LO25:LD $0,2
SB(IZ+3),$0
JP NC,LOO6
ST $20,(IZ+3)
JP LOO6
LO12:SBC $29,1
JP Z,LO19
SBC $29,2
JP Z,LO21
SBC $29,3
JP Z,LO25
SB(IZ+0),$28
LD $27,0
CAL LOO9
LD $27,10
LDW $19,&H7791
LD $11,($19)
PRE IZ,&H779B
ST $31,(IZ-4)
LD $18,0
LD $12,8
LO27:ST $31,(IZ-1)
ST $31,(IZ-3)
LD $6,$11
LDW $2,&HFF03
CAL LO26
ST $31,(IZ-1)
ST $30,(IZ-3)
CAL &H709D
SBC(IZ-$30),$31
JP Z,LO28
AD $18,$12
LO28:ST $31,(IZ-1)
ST $31,(IZ-3)
CAL &H709D
AD $11,3
ROD $12
JP NZ,LO27
CAL &H022C
LDW $19,&H7791
LD $11,($19)
LD $12,0
LD $27,0
SB $11,102
LO29:SB $11,3
NON:BID $18
JP C,LO30
JP NZ,LO29
LDW $19,&H778E
ST $27,($19)
RTN
LO30:AD $27,1
LDW $19,&H300
LDW $21,&HC0
LDW $28,3
LO31:LDW $0,&H6335
ADW $0,$19
PRE IY,$0
ADW $0,$11
PRE IX,$0
ADW $0,$28
PRE IZ,$0
BDN
SBW $19,$21
JP C,NON
JP LO31
DB 14,16,20,28,36,44,48,52,54,58,66,74,82,86,204,0,15,0,136,136,226,0,200,128,142,0,68,192,46,0,196,64,232,0,136,192,228,0,140,128,78,0,76,64,108,0,140,64,198,0,76,128,78,64,36,128,132,32,198,192,78,160,108,96,174,64,138,128,64,224,42,32,224,64,136
DB 224,34,224,226,32,232,128,170,160,153,144,42,128,138,32,0,2,6,6,6,2,2,0,2,6,6,6,2,2
