ORG &H7000
START BEGIN
BEGIN: PST PE,&HC0
CAL &HB6EE
CAL &HE80F
CAL NC,&HE842
CAL &HB1C2
PRE IZ,&H6945
DB 233,2,96
GST IE,$1
PST IE,$31
PST IA,$30
LOOP1: GRE KY,$8
BIU $8
JR C,EXIT
GPO $8
ANC $8,&H10
JR NZ,LOOP1
LDW $8,&H0818
JR DEL2
LOOP2: NOP
LD $8,14
DEL2: SB $8,1
JR NZ,DEL2
BIT1: GPO $8
AN $8,&H10
SBC $30,$8
ROD $6
SB $9,1
JP NZ,LOOP2
STORE: SBC $6,&H1A
JR Z,EXIT
SBCW $2,$4
JR NC,OMERR
PRE IX,$2
LD $7,&H1A
STW $6,(IX-$30)
ADW $2,$30
STW $2,(IZ+$31)
PRE IX,$4
LD $0,3
STW $2,(IX+$0)
LD $8,6
DEL3: SB $8,1
JR NZ,DEL3
STOP1: GPO $8
AN $8,&H10
JR NZ,LOOP1
FRERR: PST IE,$1
JP &HAC30
OMERR: PST IE,$1
JP &HABBD
EXIT: PST IE,$1
RTN
