6502bench/SourceGen/SGTestData/Expected/20222-data-bank_merlin32.S

         org   $1000
start    clc
         xce
         sep   #$30
         lda   start
         lda   $2000
         phk
         plb
         lda   start
         lda   $2000
         lda   #$02
         pha
         plb
         lda   $1000
         lda   bank2
         ldx   #$08
         tax
         pha
         plb
         jsl   bank2
         jsl   L24000
         lda   #$02
         pha
         plb
         jsl   bank3
         phk
         plb
         bit   start
         jml   L2400F

L103A    dw    :L103C

:L103C   rts

L103D    adr   L2202E

         org   $022000
bank2    ldal  bank2
         lda   bank2
         ldx   #$00
         jsr   :L2202B
         jsr   :L22025
         jsr   :L22028
         nop
         lda   #$03
         pha
         plb
         lda   L33028
         rep   #$30
         mx    %00
         lda   #$00a9
         pha
         plb
         plb
         sep   #$30
         mx    %11
         rtl

:L22025  jmp   (L103A)

:L22028  jml   [L103D]

:L2202B  jmp   (bank2addr,x)

L2202E   nop
         rts

bank2addr dw   L2202E

         org   $033000
bank3    ldal  bank3
         lda   bank2
         jsr   :L33020
         beq   :L33024
         phk
         org   $033020
:L33020  plb
         nop
         bra   :L33024

:L33024  lda   $2030
         rtl

L33028   dw    L33028

         org   $024000
L24000   ldal  L24000
         phb
         phk
         plb
         lda   bank2
         lda   $3000
         plb
         rtl

L2400F   rts
Data Bank Register management, part 6 (of 6) Add 20222-data-bank to regression test suite. This exercises handling of 16-bit operands with inter- and intra-bank references, and tests the smartness in "smart PLB". Also, update a couple of older tests that broke because the DBR is no longer always the same as the PBR. This just required adding "B=K" in a few places to restore the original output. 2020-07-10 22:53:43 +00:00			`org $1000`
			`start clc`
			`xce`
			`sep #$30`
			`lda start`
			`lda $2000`
			`phk`
			`plb`
			`lda start`
			`lda $2000`
			`lda #$02`
			`pha`
			`plb`
			`lda $1000`
			`lda bank2`
			`ldx #$08`
			`tax`
			`pha`
			`plb`
			`jsl bank2`
			`jsl L24000`
			`lda #$02`
			`pha`
			`plb`
			`jsl bank3`
			`phk`
			`plb`
			`bit start`
			`jml L2400F`

			`L103A dw :L103C`

			`:L103C rts`

			`L103D adr L2202E`

			`org $022000`
			`bank2 ldal bank2`
			`lda bank2`
			`ldx #$00`
			`jsr :L2202B`
			`jsr :L22025`
			`jsr :L22028`
			`nop`
			`lda #$03`
			`pha`
			`plb`
			`lda L33028`
			`rep #$30`
			`mx %00`
			`lda #$00a9`
			`pha`
			`plb`
			`plb`
			`sep #$30`
			`mx %11`
			`rtl`

			`:L22025 jmp (L103A)`

			`:L22028 jml [L103D]`

			`:L2202B jmp (bank2addr,x)`

			`L2202E nop`
			`rts`

			`bank2addr dw L2202E`

			`org $033000`
			`bank3 ldal bank3`
			`lda bank2`
			`jsr :L33020`
			`beq :L33024`
			`phk`
			`org $033020`
			`:L33020 plb`
			`nop`
			`bra :L33024`

			`:L33024 lda $2030`
			`rtl`

			`L33028 dw L33028`

			`org $024000`
			`L24000 ldal L24000`
			`phb`
			`phk`
			`plb`
			`lda bank2`
			`lda $3000`
			`plb`
			`rtl`

			`L2400F rts`