; Copyright 2020 faddenSoft. All Rights Reserved.
; See the LICENSE.txt file for distribution terms (Apache 2.0).
;
; Assembler: Merlin 32

        org     $1000

start
        clc
        xce
        sep     #$30
        mx      %11

        lda     start
        lda     bank2

        phk
        plb
        lda     start
        lda     bank2

        lda     #$02
        pha
        plb                         ;EDIT: set DBR=$02
        lda     start
        lda     bank2

        lda     #$08
        pha
        plb                         ;EDIT: set DBR=$08
        jsl     bank2

        lda     #$02
        pha
        plb                         ;EDIT: set DBR=$02
        jsl     bank3

        phk
        plb
        bit     start

        jml     alldone

code2bz
        dw      snippet             ;EDIT: format as 16-bit address
snippet rts

code2zero
        adr     code2b              ;EDIT: format as 24-bit address



        org     $022000
bank2
        ldal    bank2               ;EDIT: set DBR=$08
        ldx     #$00
        jsr     code2a
        jsr     :call2bz
        jsr     :call2zero
        nop

        lda     #$03
        pha
        plb                         ;EDIT: set DBR=$03
        lda     bank3dat

        rtl

:call2bz
        jmp     (code2bz)           ;source/target in bank 0
:call2zero
        jmp     [code2zero]         ;source in bank 0

code2a
        jmp     (bank2addr,x)       ;both addresses formed with K
code2b
        nop
        rts

bank2addr
        dw      code2b


        org     $033000
bank3
        ldal    bank3               ;EDIT: set DBR=$02
        jsr     :post_plb
        beq     :skip_mayhem
; Test PHK/PLB with an address shift in the middle.  Not really something
; that should ever happen, but we need to handle everything.
        phk
        org     $033020             ;EDIT: set address
:post_plb
        plb
:self   nop
        bra     :skip_mayhem

:skip_mayhem
        lda     bank2addr
        rtl

bank3dat
        dw      bank3dat


alldone rts