ORG &H7000
START &H7000
PST PD,&HC4
PST PE,&HC0
CAL &HB6EE
CAL &HE80F
JP C,&HABE0
PRE IZ,$6
DB 233,36,96
LOOP1: SBCW $6,$4
RTN Z
LD $0,$30
CAL &H0625
ROU $1
RTN C
LD $1,($4)
ADW $4,$30
CAL RSWRT
JR LOOP1
RSWRT: LD $2,&HFB
BIUW $1
INVW $1
GST IE,$0
PST IE,$31
RSWR1: LD $3,&H0C
BIDW $2
ROU $3
BIU $3
BIU $3
BIU $3
PST PE,$3
LD $3,11
RSWR2: SB $3,1
JP NZ,RSWR2
NOP
SBCW $30,$1
JR NZ,RSWR1
PST IE,$0
RTN
