ORG &H7090
START &H7090
PRE IX,&H693B
LDW $15,&H0000
LDW $28,&H0001
LDIW $4,(IX+$15)
LDW $6,(IX+$15)
PRE IX,$4
PRE IY,$6
L1: SUP &H54
RTN NZ
SBC (IX-1),$28
JR NZ,L7
LD $27,&H20
SBC (IX-2),$27
JR NZ,L7
LDW $2,(IX+$28)
PRE IX,$2
PRE IZ,&H68D4
LDI $0,(IZ+0)
LDW $1,(IZ+$15)
DID $2
LD $5,&H0C
L3: BIDW $2
JR C,L4
SB $5,1
JR NZ,L3
L4: DIU $5
AD $5,$0
AD $5,&H12
STW $15,(IZ-$28)
ST $15,(IZ+1)
LD $0,(IX+0)
L5: SBC (IX+$0),$5
JR Z,L6
SB $0,1
JR NZ,L5
L6: LDW $1,&H7400
ST $0,($1)
RTN
L7: LDI $12,(IX+0)
JR L1
