jsr backup_and_setup_check_routine
jsr CHECKC256K
cli
- ldx #$29
+ ldx #.sizeof (c256kcheckcode) - 1
jsr restore_data
cpy #$01
beq @present
; Return the memory window
- ldx #$0A
- jsr restore_data
+ jsr restore_copy_routine
lda #<window
ldx #>window ; Return the window address
cli
; Return the memory window
- ldx #$0A
- jsr restore_data
+ jsr restore_copy_routine
done:
cli
rts
bne @L1
inc ptr3+1
bne @L1
- ldx #$0A
- jsr restore_data
+ jsr restore_copy_routine
cli
rts
bne @L1
inc ptr3+1
bne @L1
- ldx #$0A
- jsr restore_data
+ jsr restore_copy_routine
cli
rts
bpl @L1
rts
+restore_copy_routine:
+ ldx #.sizeof (c256kcopycode) - 1
restore_data:
lda backup,x
sta CHECKC256K,x