00010 ;System equates used
00020 RTCLOK = $12
00030 RAMTOP = $6A
00040 SDLSTL = $0230
00050 SDLSTH = $0231
00060 COLDST = $0244
00070 COLOR1 = $02C5
00080 COLOR2 = $02C6
00090 ICCOM  = $0342
00100 ICBAL  = $0344
00110 ICBAH  = $0345
00120 ICBLH  = $0349
00130 ICAX1  = $034A
00140 ICAX2  = $034B
00150 CIOV   = $E456
00160 ;End of system equates
00170 ;Zero-page equates
00180 Z0001  = $CB
00190 Z0002  = $CC
00200 Z0003  = $CD
00210 ;End of zero-page equates
00220        .ORG $3000
00230        LDA #$2C
00240        STA Z0001 ;$00CB
00250        LDA #$30
00260        STA Z0002 ;$00CC
00270        LDA #$34
00280        PHA
00290        LDY #$00
00300        LDX #$05
00310        STX Z0003 ;$00CD
00320 L0004  LDA (Z0001),Y ;$00CB
00330        SEC
00340        SBC Z0003 ;$00CD
00350        EOR Z0003 ;$00CD
00360        STA (Z0001),Y ;$00CB
00370        DEC Z0003 ;$00CD
00380        DEC Z0003 ;$00CD
00390        DEC Z0003 ;$00CD
00400        INY
00410        BNE L0004 ;$3011
00420        INC Z0002 ;$00CC
00430        DEX
00440        BNE L0004 ;$3011
00450        LDA #$4A
00460        PHA
00470        RTS
00480 ; Screen data etc. should be here.
11030        .ORG $344B
11040        LDX #$00
11050        STX COLDST ;$0244
11060        LDA #$0C
11070        STA ICCOM ;$0342
11080        JSR CIOV ;$E456
11090        LDA RAMTOP ;$006A
11100        CMP #$C0
11110        BCS L0005 ;$3481
11120        LDA L0006 ;$D301
11130        AND #$02
11140        BEQ L0007 ;$346A
11150 L0010  INC COLDST ;$0244
11160        BNE L0005 ;$3481
11170 L0007  LDA L0008 ;$03F8
11180        ORA L0009 ;$03FA
11190        BNE L0010 ;$3465
11200        INC L0008 ;$03F8
11210        LDA L0006 ;$D301
11220        ORA #$02
11230        STA L0006 ;$D301
11240        LDA #$C0
11250        STA RAMTOP ;$006A
11260 L0005  LDA #$03
11270        STA ICCOM ;$0342
11280        LDA #$0C
11290        STA ICAX1 ;$034A
11300        STX ICAX2 ;$034B
11310        LDA #$48
11320        STA ICBAL ;$0344
11330        LDA #$34
11340        STA ICBAH ;$0345
11350        STA ICBLH ;$0349
11360        JSR CIOV ;$E456
11370        LDA #$2C
11380        STA SDLSTL ;$0230
11390        LDA #$30
11400        STA SDLSTH ;$0231
11410        STX COLOR2 ;$02C6
11420        LDA #$0C
11430        STA COLOR1 ;$02C5
11440        LDA COLDST ;$0244
11450        BEQ L0011 ;$34C2
11460        LDA #$0C
11470        STA SDLSTL ;$0230
11480        LDA #$34
11490        STA SDLSTH ;$0231
11500 L0012  JMP L0012 ;$34BF
11510 L0011  LDA RTCLOK+2 ;$0014
11520 L0013  CMP RTCLOK+2 ;$0014
11530        BEQ L0013 ;$34C4
11540        RTS
11550        BRK
11560 ;External reference equates
11570 L0006  = $D301
11580 L0008  = $03F8
11590 L0009  = $03FA
11600 ;End of external references
11610        .END