home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_26_1988_Transactor_Publishing.d64
/
split.pal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
83 lines
100 sys 700 ;pal 64
110 .opt oo
120 ; "split"
130 ; irq driven multi-colour
140 ; hi-res/text screen
150 ; by zoltan hunt, 1988
160 ;
170 split =*
180 sei
190 lda #<main
200 sta $0314
210 lda #>main
220 sta $0315
230 lda #$81
240 sta $d01a
250 lda #$1b
260 sta $d011
270 lda #$7f
280 sta $dc0d
290 cli
300 rts
310 ;
320 main =*
330 pha: tya
340 pha: txa
350 pha ;save a,x,y
360 lda #1
370 sta $d019
380 lda irqselc
390 cmp #1
400 beq irqend
410 lda $d012
420 cmp #60
430 bcc topirq
440 lda 53272 ;set up for text mode
450 and #247
460 sta 53272
470 lda 53265
480 and #223
490 sta 53265
500 lda #2
510 sta $d012
520 lda 53270
530 and #239
540 sta 53270
550 lda irqtwcol
560 sta 53281
570 jmp irqend
580 ;
590 topirq =* ;set up for hires mode
600 lda 53272
610 ora #8
620 sta 53272
630 lda 53265
640 ora #32
650 sta 53265
660 lda 53270
670 ora #16
680 sta 53270
690 lda splin ;split text line
700 asl: asl: asl ;convert to raster
710 adc #50
720 sta $d012
730 ;
740 irqend =*
750 lda $dc0d
760 lsr a
770 bcc irq2end
780 pla: tax
790 pla: tay
800 pla
810 jmp $ea31
820 ;
830 irq2end =*
840 pla: tax
850 pla: tay
860 pla
870 jmp $febc
880 ;
890 irqtwcol .byte 3
900 irqselc .byte 0 ;hi/text (1)=text
910 splin .byte 20 ;split text line