0100 ;THIS PROGRAM COPIES ROM TO RAM¢0110 ;IT USES CASINIT TO REACTIVATE¢0120 ;AFTER RESET IS PRESSED.¢0130 ;¢0140 ;PAGE 6 IS FREE AFTER EXECUTION¢0150 ;PAGE 5 $570-$57E IS USED FOR¢0160 ;RESET-CODE¢0170 ;¢0180 ;EDITED 18/4/99 AND OK!¢0190 *=$600 ;PAGE 6¢0200 SEI ;DISABLE IRQ¢0210 LDA #$00¢0220 STA $CB¢0230 STA $D40E ;DISABLE NMI¢0240 LDA $D301¢0250 ORA #$01¢0260 STA $D301 ;START WITH ROM¢0270 LDA #$C0¢0280 STA $CC¢0290 LDY #$00 ;C0-D0,D8-00¢0300 RLOP LDA ($CB),Y¢0310 STA $CD¢0320 LDA $D301¢0330 AND #$FE¢0340 STA $D301 ;OS OFF¢0350 LDA $CD¢0360 STA ($CB),Y¢0370 STA $D01A¢0380 LDA $D301¢0390 ORA #$01¢0400 STA $D301 ;OS ON¢0410 INC $CB¢0420 BNE RLOP¢0430 INC $CC¢0440 LDA $CC¢0450 CMP #$CC¢0460 BEQ SPEC¢0470 CMP #$00¢0480 BNE RLOP¢0490 BEQ REDY¢0500 SPEC LDA #$D8¢0510 STA $CC¢0520 JMP RLOP¢0530 REDY LDA #$40 ;!
READY¢0540 STA $D40E¢0550 CLI¢0560 LDA $D301¢0570 AND #$FE¢0580 STA $D301 ;OS OFF¢0590 LDA $09¢0600 ORA #$02¢0610 STA $09 ;SET CASBOOT¢0615 LDA #$AA¢0616 STA $E007 ;SHOW IF RAM¢0620 JMP $E474 ;WARM-RESET¢0630 ;¢0640 *=$02¢0650 .WORD $570¢0660 *=$570¢0670 LDA $D301¢0680 AND #$FE¢0690 STA $D301¢0700 RTS¢0710 *=$2E0 ;RUN AFTER LOAD¢0720 .WORD $600¢