* = $0801
START  LDX $CFFF
       CPX #$00
       BEQ SH1T
       DEC $CFFF
       RTS
SH1T   LDX #$07
       STX $CFFF
       LDX #$00
R0XX   LDA $0401,X
       STA $0400,X
       INX
       CPX #$27
       BNE R0XX
EL1T3  LDA $1000
       CMP #$00
       BEQ GLUR+1
       STA $0427
       INC EL1T3+1
       BNE GLUR
       INC EL1T3+2
GLUR   RTS
       LDA #$00
       STA EL1T3+1
       LDA #$10
       STA EL1T3+2
       JSR EL1T3
       RTS
       * = $1000
       .BYTE 1,2,3
       .BYTE 0