org 1160
               opt %0110101

ramadr         equ $f0
romadr         equ $f2
nmivec         equ $fffa
irqvec         equ $fffe

               sei
               lda 54017
               and #%11111110
               sta 54017
               lda <rti
               sta nmivec
               sta irqvec
               lda >rti
               sta nmivec+1
               sta irqvec+1


               lda #$b8
               sta ramadr+1
               lda #$c0
               sta romadr+1
               lda #0
               sta ramadr
               sta romadr
               ldy #0
loop           lda (ramadr),y
               pha
               lda (romadr),y
               sta (ramadr),y
               pla
               sta (romadr),y
               iny
               bne loop
               inc ramadr+1
               inc romadr+1
               lda ramadr+1
               cmp #$c0
               bne loop

               lda #$86
               sta ramadr+1
               lda #$c8
               sta romadr+1
loop2          lda (ramadr),y
               pha
               lda (romadr),y
               sta (ramadr),y
               pla
               sta (romadr),y
               iny
               bne loop2
               inc ramadr+1
               inc romadr+1
               lda ramadr+1
               cmp #$8e
               bne sk
               lda #$d8
               sta romadr+1
               jmp loop2
sk             cmp #$b4
               bne loop2

               lda 54017
               ora #%00000001
               sta 54017
               cli
               rts
rti            rti