JSR $8038
JSR $805A
LDA #$50
STA $7801
LDA #$72
STA $7801
LDA #$6F
STA $7801
LDA #$6A
STA $7801
LDA #$65
STA $7801
LDA #$63
STA $7801
LDA #$74
STA $7801
JSR $805A
LDA #$36
STA $7801
LDA #$35
STA $7801
BNE $8036
LDX #$04
LDA #$38
STA $7800
LDA #$06
STA $7800
LDA #$0E
STA $7800
LDA #$01
STA $7800
LDA #$80
STA $7800
RTS
LDA #$10
STA $7800
RTS
LDA #$14
STA $7800
RTS
LDA #$47
STA $7801
RTS