home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_21_1988_Transactor_Publishing.d64
/
placeholder.pal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
78 lines
100 rem save"@0:place.pal"
110 open 8,8,8,"0:place.obj,p,w
120 [158] 700
130 .opt o8
140 ;[173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173]
150 ;[173][173] [173][173]
160 ;[173][173] machine code placeholder [173][173]
170 ;[173][173] [129] commod[176]e 64 [173][173]
180 ;[173][173] [173][173]
190 ;[173][173] routine [164] hold screen [173][173]
200 ;[173][173] place, [153] message [145] [173][173]
210 ;[173][173] last line, [167] [142] [173][173]
220 ;[173][173] whence thee came [173][173]
230 ;[173][173] [173][173]
240 ;[173][173] may 85 paul blair [173][173]
250 ;[173][173] [173][173]
260 ;[173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173]
270 ;
280 ;[173][173] c64 basic 2.0 routines [173][173]
290 ;
300 b[176]der [178] $d020 ;exteri[176] colour
310 clean [178] $e9ff ;erase line in .x
320 chrout [178] $ffd2 ;[153] a char
330 [161]in [178] $ffe4 ;[161] a key
340 plot [178] $fff0 ;screen routine
350 ;
360 ;[173][173] main program [173][173]
370 ;
380 [172][178]$c000 ;[158]49152 calls
390 ;
400 ;[173][173] err[176] message flip b[176]der [173][173]
410 ;
420 ohdear lda #$02 ;visual err[176]
430 sta b[176]der
440 sec ;[161] our place
450 jsr plot ;by [135]ing screen
460 txa ;[129] x, y [197]ues
470 pha ;push them away
480 tya ;[129] later use
490 pha
500 clc ;set [162] locati[145]
510 ldy #$0c ;12 over
520 ldx #$18 ;24 down
530 jsr plot ;put curs[176] there
540 ldy #[177]cermsg ;[153] message
550 lda #[179]cermsg ;maybe add a
560 jsr primms ;"tone here too?
570 keypls jsr getin ;wait a key
580 beq keypls ;loop if no key
590 ldx #$18 ;erase message
600 jsr clean ;on bottom line
610 lda #$0f ;reset border colour
620 sta border ;to normal
630 pla
640 tay ;recall where you
650 pla ;were before
660 tax
670 clc ;and (NULL) there
680 jmp plot ;(rts)
690 ;
700 ;// print messages //
710 ;
720 primms sty $5d ;point to message
730 sta $5c
740 ldy #$00 ;counter
750 primm2 lda ($5c),y ;get char
760 beq primm3 ;if zero, end
770 jsr chrout ;print it
780 iny ;inc index
790 bne primm2 ;loop back
800 primm3 rts ;all done
810 ;
820 ;// message //
830 ;
840 cermsg .byt $12: .asc" press any key "
850 .byt $92,$00
860 .end