home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side1.d64 / box.s < prev    next >
Text File  |  2022-08-28  |  2KB  |  139 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. setmsg =$ff90
  6. load =$ffd5
  7. getin =$ffe4
  8. input'buffer =512
  9. clrchn =$ffcc
  10. close =$ffc3   ;a
  11. chrin =$ffcf
  12. chkout =$ffc9  ;x
  13. chkin =$ffc6   ;x
  14. plot =$fff0
  15. chrout =$ffd2
  16. color'pointer =243
  17. screen'line'pointer =209
  18. print'number =$bdcd ;x,a
  19. clear'line =59903
  20. background =53281
  21. border =53280
  22. strout = $ab1e; .A low .Y high
  23. unlisten =$ffae
  24. clall =$ffe7
  25. color1 =53282
  26. color2 =53283
  27. color3 =53284
  28. white =5
  29. crsr'down =17
  30. rvs'on =18
  31. home =19
  32. del =20
  33. red =28
  34. crsr'right =29
  35. green =30
  36. blue =31
  37. black =144
  38. lowercase =14
  39. uppercase =142
  40. crsr'up =145
  41. rvs'off =146
  42. clr =147
  43. insert =148
  44. brown =149
  45. light'red =150
  46. dark'grey =151
  47. medium'grey =152
  48. light'green =153
  49. light'blue =154
  50. light'grey =155
  51. purple =156
  52. crsr'left =157
  53. yellow =158
  54. cyan =159
  55. top'left =176
  56. top'right =174
  57. bottom'left =173
  58. bottom'right =189
  59.  
  60. .org $c8a0
  61. .obj "box c8a0"
  62.  
  63. box'entry lda #0
  64. sta temp
  65. - jsr get'number
  66. ldy temp
  67. sta parms,y
  68. inc temp
  69. cpy #5
  70. bne -
  71.  
  72. fill'box jsr linx
  73. lda 214
  74. pha
  75. lda 211
  76. pha
  77. box'start ldx parms+2
  78. ldy #0
  79. clc
  80. jsr $fff0
  81. jsr old'rom'patch
  82. dec parms
  83.  
  84. - ldy parms+1
  85. - lda parms+4
  86. cmp #255
  87. beq +
  88. sta (209),y
  89. + lda parms+5
  90. sta (243),y
  91. dey
  92. cpy parms
  93. bne -
  94. lda 214
  95. cmp parms+3
  96. beq +
  97.  
  98. inc 214
  99. jsr 58732
  100. jsr old'rom'patch
  101. jmp --
  102. + lda #home
  103. jsr $ffd2
  104. pla
  105. sta 211
  106. pla
  107. sta 214
  108. jmp 58732
  109.  
  110. linx ldy #24
  111. - lda 217,y
  112. ora #128
  113. sta 217,y
  114. dey
  115. bpl -
  116. rts
  117.  
  118. get'number jsr $aefd
  119. jsr $ad8a
  120. jsr $b7f7
  121. lda $14  ; got low byte
  122. rts
  123.  
  124.  
  125. old'rom'patch lda 210
  126. sec
  127. sbc 648
  128. clc
  129. adc #$d8
  130. sta 244
  131. lda 209
  132. sta 243
  133. rts
  134.  
  135.  
  136. temp .byt 0
  137. parms =*
  138.  
  139.