home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_A.d64 / widescreen.src (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  664b  |  49 lines
  1. 10 *=$c000
  2. 20 sei
  3. 30 lda $d020
  4. 40 sta colour1
  5. 50 lda $d021
  6. 60 sta colour2
  7. 70 lda #$7f
  8. 80 sta $dc0d
  9. 90 lda #<irq
  10. 100 sta $0314
  11. 110 lda #>irq
  12. 120 sta $0315
  13. 130 lda #$32
  14. 140 sta $d012
  15. 150 lda #$1b
  16. 160 sta $d011
  17. 170 lda #$01
  18. 180 sta $d01a
  19. 190 lda $dc0d
  20. 200 cli
  21. 210 rts
  22. 220 irq ;
  23. 230 lda $d012
  24. 240 bmi bottom
  25. 250 lda #$f9
  26. 260 sta $d012
  27. 270 lda colour2
  28. 280 ldx #$01
  29. 290 loop1 dex
  30. 300 bne loop1
  31. 310 sta $d020
  32. 320 sta $d021
  33. 330 lda #$01
  34. 340 sta $d019
  35. 350 jmp $ea81
  36. 360 bottom lda #$32
  37. 370 sta $d012
  38. 380 lda colour1
  39. 390 ldx #$0d
  40. 400 loop2 dex
  41. 410 bne loop2
  42. 420 sta $d020
  43. 430 sta $d021
  44. 440 lda #$01
  45. 450 sta $d019
  46. 460 jmp $ea31
  47. 470 colour1 byt 0
  48. 480 colour2 byt 0
  49.