.setcpu "65816"
         .org    $1000
         .a8
         .i8
         clc
         xce
         sep     #$30
         jsr     L1014
         jsr     L101C
         jsr     L102A
         jsr     L102F
         jsr     L1059
         rts

L1014:   lda     #$00
         .byte   $2c
L1017:   lda     #$01
         beq     L1017
         rts

L101C:   sep     #$30
         lda     $00
         beq     L1025
         lda     #$00
         .byte   $00

L1025:   sta     $012345
         rts

L102A:   .byte   $20
L102B:   rts

         .byte   $ea
         bra     L102B

L102F:   .byte   $2c
L1030:   .byte   $2c
L1031:   .byte   $2c
L1032:   .byte   $2c
L1033:   .byte   $2c
L1034:   .byte   $2c
L1035:   .byte   $2c
L1036:   .byte   $2c
L1037:   .byte   $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:   .byte   $2c
L105A:   nop
         .byte   $ad
L105C:   lda     $00
         asl     A
         bcc     L105A
         asl     A
         bcc     L105C
         .byte   $af