.setcpu "6502"
THREE_K  =       $3000      ;project symbol test
IN_1     =       $9000
IN_2     =       $a000
IN_3     =       $b000
IN_4     =       $c000

         .org    $0800
         jsr     region1
         jsr     region2
         jsr     THREE_K
         jsr     $4000
         lda     L9005
         lda     LA008
         lda     IN_3+11
         lda     IN_4+14
self:    .byte   $ad,$ea
L081A:   nop
         jsr     altbnk1
         jsr     altbnk2
         jmp     done

altbnk1: bit     $ffc0
         lda     self+1
         bne     L081A
         rts

         .org    *+$0000
altbnk2: bit     $ffc0
         lda     $0819
         bne     $081a
         ldx     $081b
         rts

         .org    $0839
done:    nop
         rts

         .res    197,$00

         .org    $1000
region1x: lda    region1x
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         nop
         rts

         .res    202,$00

         .org    $1000
region1: lda     region1
         pha
         ldy     #$11
         nop
@copy:   lda     inner1_pre,y
         sta     inner1,y
         dey
         bpl     @copy
         bit     $101d
         jsr     inner1
         jmp     finish1

inner1_pre:
         .org    $9000
inner1:  ldx     inner1
         ldy     #$aa
L9005:   ldy     finish1
         ldy     finish2
         ldy     $302b
         ldy     $402b
         rts

         .org    $102b
finish1: ldy     finish1
         ldx     region1
         ldx     region2
         ldx     THREE_K
         ldx     $4000
         lda     inner1
         lda     inner2
         lda     IN_3
         lda     IN_4
         pla
         rts

         .res    184,$00

         .org    $2000
region2: lda     region2
         pha
         ldy     #$11
         nop
@copy:   lda     inner2_pre,y
         sta     inner2,y
         dey
         bpl     @copy
         bit     $201d
         jsr     inner2
         jmp     finish2

inner2_pre:
         .org    $a000
inner2:  ldx     inner2
         ldy     #$aa
         ldy     $102b
LA008:   ldy     finish2
         ldy     $302b
         ldy     $402b
         rts

         .org    $202b
finish2: ldy     finish2
         ldx     $1000
         ldx     region2
         ldx     THREE_K
         ldx     $4000
         lda     IN_1
         lda     inner2
         lda     IN_3
         lda     IN_4
         pla
         rts

         .res    184,$00

         .org    $3000
region3: lda     region3
         pha
         ldy     #$11
         nop
@copy:   lda     inner3_pre,y
         sta     inner3,y
         dey
         bpl     @copy
         bit     $301d
         jsr     inner3
         jmp     finish3

inner3_pre:
         .org    $b000
inner3:  ldx     inner3
         ldy     #$aa
         ldy     finish1
         ldy     finish2
         ldy     finish3
         ldy     $402b
         rts

         .org    $302b
finish3: ldy     finish3
         ldx     region1
         ldx     region2
         ldx     region3
         ldx     $4000
         lda     inner1
         lda     inner2
         lda     inner3
         lda     IN_4
         pla
         rts

         .res    184,$00

         .org    $4000
region4: lda     region4
         pha
         ldy     #$11
         nop
@copy:   lda     inner4_pre,y
         sta     inner4,y
         dey
         bpl     @copy
         bit     $401d
         jsr     inner4
         jmp     finish4

inner4_pre:
         .org    $c000
inner4:  ldx     inner4
         ldy     #$aa
         ldy     $102b
         ldy     $202b
         ldy     $302b
_checkit: ldy    finish4
         rts

         .org    $402b
finish4: ldy     finish4
         ldx     $1000
         ldx     $2000
         ldx     THREE_K
         ldx     region4
         lda     IN_1
         lda     IN_2
         lda     IN_3
         lda     inner4
         pla
         rts

         .res    184,$00
         .org    $0000
         .byte   $ff