home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / placeholder.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  78 lines
  1. 100 rem save"@0:place.pal"
  2. 110 open 8,8,8,"0:place.obj,p,w
  3. 120 [158] 700
  4. 130 .opt o8
  5. 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]
  6. 150 ;[173][173]                           [173][173]
  7. 160 ;[173][173] machine code placeholder  [173][173]
  8. 170 ;[173][173] [129] commod[176]e 64          [173][173]
  9. 180 ;[173][173]                           [173][173]
  10. 190 ;[173][173] routine [164] hold screen    [173][173]
  11. 200 ;[173][173] place, [153] message [145]   [173][173]
  12. 210 ;[173][173] last line, [167] [142]    [173][173]
  13. 220 ;[173][173] whence thee came          [173][173]
  14. 230 ;[173][173]                           [173][173]
  15. 240 ;[173][173] may 85       paul blair   [173][173]
  16. 250 ;[173][173]                           [173][173]
  17. 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]
  18. 270 ;
  19. 280 ;[173][173] c64 basic 2.0 routines [173][173]
  20. 290 ;
  21. 300 b[176]der [178] $d020         ;exteri[176] colour
  22. 310 clean  [178] $e9ff         ;erase line in .x
  23. 320 chrout [178] $ffd2         ;[153] a char
  24. 330 [161]in  [178] $ffe4         ;[161] a key
  25. 340 plot   [178] $fff0         ;screen routine
  26. 350 ;
  27. 360 ;[173][173] main program [173][173]
  28. 370 ;
  29. 380 [172][178]$c000         ;[158]49152 calls
  30. 390 ;
  31. 400 ;[173][173] err[176] message flip b[176]der [173][173]
  32. 410 ;
  33. 420 ohdear lda #$02        ;visual err[176]
  34. 430 sta b[176]der
  35. 440 sec             ;[161] our place
  36. 450 jsr plot        ;by [135]ing screen
  37. 460 txa             ;[129] x, y [197]ues
  38. 470 pha             ;push them away
  39. 480 tya             ;[129] later use
  40. 490 pha
  41. 500 clc             ;set [162] locati[145]
  42. 510 ldy #$0c        ;12 over
  43. 520 ldx #$18        ;24 down
  44. 530 jsr plot        ;put curs[176] there
  45. 540 ldy #[177]cermsg    ;[153] message
  46. 550 lda #[179]cermsg    ;maybe add a
  47. 560 jsr primms      ;"tone here too?
  48. 570 keypls jsr getin       ;wait a key
  49. 580 beq keypls      ;loop if no key
  50. 590 ldx #$18        ;erase message
  51. 600 jsr clean       ;on bottom line
  52. 610 lda #$0f        ;reset border colour
  53. 620 sta border      ;to normal
  54. 630 pla
  55. 640 tay             ;recall where you
  56. 650 pla             ;were before
  57. 660 tax
  58. 670 clc             ;and (NULL) there
  59. 680 jmp plot        ;(rts)
  60. 690 ;
  61. 700 ;// print messages //
  62. 710 ;
  63. 720 primms sty $5d         ;point to message
  64. 730 sta $5c
  65. 740 ldy #$00        ;counter
  66. 750 primm2 lda ($5c),y     ;get char
  67. 760 beq primm3      ;if zero, end
  68. 770 jsr chrout      ;print it
  69. 780 iny             ;inc index
  70. 790 bne primm2      ;loop back
  71. 800 primm3 rts             ;all done
  72. 810 ;
  73. 820 ;// message //
  74. 830 ;
  75. 840 cermsg .byt $12: .asc" press any key "
  76. 850 .byt $92,$00
  77. 860 .end
  78.