home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 18
/
Big_Mouth_The_18_1998_-_Side_A.d64
/
widescreen.src
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
664b
|
49 lines
10 *=$c000
20 sei
30 lda $d020
40 sta colour1
50 lda $d021
60 sta colour2
70 lda #$7f
80 sta $dc0d
90 lda #<irq
100 sta $0314
110 lda #>irq
120 sta $0315
130 lda #$32
140 sta $d012
150 lda #$1b
160 sta $d011
170 lda #$01
180 sta $d01a
190 lda $dc0d
200 cli
210 rts
220 irq ;
230 lda $d012
240 bmi bottom
250 lda #$f9
260 sta $d012
270 lda colour2
280 ldx #$01
290 loop1 dex
300 bne loop1
310 sta $d020
320 sta $d021
330 lda #$01
340 sta $d019
350 jmp $ea81
360 bottom lda #$32
370 sta $d012
380 lda colour1
390 ldx #$0d
400 loop2 dex
410 bne loop2
420 sta $d020
430 sta $d021
440 lda #$01
450 sta $d019
460 jmp $ea31
470 colour1 byt 0
480 colour2 byt 0