home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / split.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  83 lines
  1. 100 sys 700 ;pal 64
  2. 110 .opt oo
  3. 120 ; "split"
  4. 130 ; irq driven multi-colour
  5. 140 ; hi-res/text screen
  6. 150 ; by zoltan hunt, 1988
  7. 160 ;
  8. 170 split =*
  9. 180 sei
  10. 190 lda #<main
  11. 200 sta $0314
  12. 210 lda #>main
  13. 220 sta $0315
  14. 230 lda #$81
  15. 240 sta $d01a
  16. 250 lda #$1b
  17. 260 sta $d011
  18. 270 lda #$7f
  19. 280 sta $dc0d
  20. 290 cli
  21. 300 rts
  22. 310 ;
  23. 320 main =*
  24. 330 pha: tya
  25. 340 pha: txa
  26. 350 pha  ;save a,x,y
  27. 360 lda #1
  28. 370 sta $d019
  29. 380 lda irqselc
  30. 390 cmp #1
  31. 400 beq irqend
  32. 410 lda $d012
  33. 420 cmp #60
  34. 430 bcc topirq
  35. 440 lda 53272  ;set up for text mode
  36. 450 and #247
  37. 460 sta 53272
  38. 470 lda 53265
  39. 480 and #223
  40. 490 sta 53265
  41. 500 lda #2
  42. 510 sta $d012
  43. 520 lda 53270
  44. 530 and #239
  45. 540 sta 53270
  46. 550 lda irqtwcol
  47. 560 sta 53281
  48. 570 jmp irqend
  49. 580 ;
  50. 590 topirq =* ;set up for hires mode
  51. 600 lda 53272
  52. 610 ora #8
  53. 620 sta 53272
  54. 630 lda 53265
  55. 640 ora #32
  56. 650 sta 53265
  57. 660 lda 53270
  58. 670 ora #16
  59. 680 sta 53270
  60. 690 lda splin ;split text line
  61. 700 asl: asl: asl ;convert to raster
  62. 710 adc #50
  63. 720 sta $d012
  64. 730 ;
  65. 740 irqend =*
  66. 750 lda $dc0d
  67. 760 lsr a
  68. 770 bcc irq2end
  69. 780 pla: tax
  70. 790 pla: tay
  71. 800 pla
  72. 810 jmp $ea31
  73. 820 ;
  74. 830 irq2end =*
  75. 840 pla: tax
  76. 850 pla: tay
  77. 860 pla
  78. 870 jmp $febc
  79. 880 ;
  80. 890 irqtwcol .byte 3
  81. 900 irqselc  .byte 0  ;hi/text (1)=text
  82. 910 splin    .byte 20 ;split text line
  83.