org   $1000
         clc
         xce
         sep   #$30
         jsr   L1014
         jsr   L101C
         jsr   L102A
         jsr   L102F
         jsr   L1059
         rts

L1014    lda   #$00
         dfb   $2c
L1017    lda   #$01
         beq   L1017
         rts

L101C    sep   #$30
         lda   $00
         beq   L1025
         lda   #$00
         dfb   $00

L1025    stal  $012345
         rts

L102A    dfb   $20
L102B    rts

         dfb   $ea
         bra   L102B

L102F    dfb   $2c
L1030    dfb   $2c
L1031    dfb   $2c
L1032    dfb   $2c
L1033    dfb   $2c
L1034    dfb   $2c
L1035    dfb   $2c
L1036    dfb   $2c
L1037    dfb   $2c
L1038    nop
         nop
         asl   A
         bcc   L102F
         asl   A
         bcc   L1030
         asl   A
         bcc   L1031
         asl   A
         bcc   L1032
         asl   A
         bcc   L1033
         asl   A
         bcc   L1034
         asl   A
         bcc   L1035
         asl   A
         bcc   L1036
         asl   A
         bcc   L1037
         asl   A
         bcc   L1038
         rts

L1059    dfb   $2c
L105A    nop
         dfb   $ad
L105C    lda   $00
         asl   A
         bcc   L105A
         asl   A
         bcc   L105C
         dfb   $af