home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / M.ROUTINES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.7 KB  |  201 lines
  1. 10 ;"OPEN15,8,15,"S0:M.R*":PRINT#15,"I":SAVE"M.ROUTINES",8:VERIFY"M.R*",8
  2. 15 ;
  3. 20 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  4. 25 ;
  5. 30 CMND JSR RET2:JSR [182]ENT
  6. 35 LDA #[179]COMD:LDX #[177]COMD:STX RATS
  7. 40 JSR STRING:JMP RATF
  8. 45 ;
  9. 50 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  10. 55 ;
  11. 60 C[176]LINE LDA #[179]C[176]RECT:LDX #[177]C[176]RECT
  12. 65 LDY #38:JMP [161]COM
  13. 70 ;
  14. 75 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  15. 80 ;
  16. 85 WHILINE JSR RET2
  17. 90 LDA #[179]XWCH:LDX #[177]XWCH:JMP BEF2
  18. 95 ;
  19. 100 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  20. 105 ;
  21. 110 INCH LDY $029C:CPY $029B:BEQ M2
  22. 115 LDA ($F7),Y:INC $029C
  23. 120 M1 PHA:LDY #3:STY $BA
  24. 125 PLA:JSR FIXIN:STA BUF:RTS
  25. 130 M2 LDA #0:BEQ M1
  26. 135 ;
  27. 140 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  28. 145 ;
  29. 150 [143]ODEM JSR $EF7E
  30. 155 LDA $02A1:CMP #128:BEQ [143]ODEM
  31. 160 CMP #146:BEQ [143]ODEM
  32. 165 RTS
  33. 170 ;
  34. 175 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  35. 180 ;
  36. 185 CHAR JSR MQ:LDA SPEED:BEQ CH0
  37. 186 RTS; [129] [158]OP SPEED ACCESS
  38. 188 ;
  39. 189 CH0 LDA AREG:JSR FIXOUT
  40. 190 LDX #128:JMP S[128]
  41. 200 ;
  42. 205 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  43. 210 ;
  44. 215 FIXIN CMP #8:BNE M11
  45. 220 LDA #20:RTS
  46. 225 M11 CMP #64:BCC M3
  47. 230 CMP #220:BCS M4
  48. 235 CMP #91:BCC A32
  49. 240 CMP #97:BCC M3
  50. 245 CMP #123:BEQ M3
  51. 250 CMP #192:BEQ M3
  52. 255 CMP #219:BEQ M3
  53. 260 CMP #123:BCC SU32
  54. 265 CMP #160:BCC M3
  55. 270 BNE M5
  56. 275 LDA #32:BNE M3
  57. 280 M5 CMP #219:BCC S128
  58. 285 M4 LDA #0
  59. 290 M3 RTS
  60. 295 ;
  61. 300 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  62. 305 ;
  63. 310 A32 CLC:ADC #32:RTS
  64. 315 SU32 SEC:SBC #32:RTS
  65. 320 S128 SEC:SBC #128:RTS
  66. 325 ;
  67. 330 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  68. 335 ;
  69. 340 FIXOUT CMP #20:BNE M6
  70. 345 LDA #8:RTS
  71. 350 M6 CMP #65:BCC M3
  72. 355 CMP #91:BCC A32
  73. 360 CMP #97:BCC M3
  74. 365 CMP #123:BCC SU32
  75. 370 CMP #193:BCC M3
  76. 375 CMP #219:BCC S128
  77. 380 RTS
  78. 385 ;
  79. 390 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  80. 395 ;
  81. 400 IBUF LDA 667:STA 668:RTS; INITIALIZE BUFFER [164] START
  82. 405 ;
  83. 410 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  84. 415 ;
  85. 420 ; CURS[176] [173] BACKSPACE [164] SCREEN
  86. 425 ;
  87. 430 MQ STA AREG; CURS[176]
  88. 435 ;
  89. 440 CMP #37:BNE M7
  90. 445 ;
  91. 450 STA M7[170]1:RTS
  92. 455 M7 LDX #0:BEQ M8; THIS LINE IS MOD[139]IED BY PROGRAM ITSELF
  93. 460 LDX #0:STX M7[170]1:RTS
  94. 465 ;
  95. 470 M8 LDA #32:STA MA[170]3
  96. 475 JSR QFF:LDA AREG
  97. 480 LDX #7:JSR S[128]
  98. 485 LDA #168:STA MA[170]3
  99. 490 QFF LDA #0:STA $D4
  100. 495 LDA $02:BEQ MA
  101. 500 RTS
  102. 505 MA LDX #7:LDA #168:JSR S[128]
  103. 515 LDA #157
  104. 520 ;
  105. 525 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  106. 530 ;
  107. 535 S[128] STA TEMP:JSR CHKOUT:LDA TEMP
  108. 540 ;
  109. 545 ;
  110. 550 JSR CHROUT:JMP HOLD
  111. 555 ;
  112. 560 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  113. 565 ;
  114. 570 [161]T JSR CHKIN:JMP [161]IN
  115. 575 ;
  116. 580 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  117. 585 ;
  118. 590 UNWRAP LDX #0:TXA
  119. 595 MB STA RAPR,X:INX:CPX #88:BCC MB
  120. 600 BCS WRAP2
  121. 605 ;
  122. 610 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  123. 615 ;
  124. 620 WRAP1 LDX #0:STX L[145]G; BUFPNTR
  125. 625 WRAP2 LDX #0:STX BACK;  # OF DELS
  126. 630 RTS
  127. 635 ;
  128. 640 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  129. 645 ;
  130. 650 DOWRAP LDA AREG:CMP #20:BNE MC
  131. 655 LDX L[145]G:BEQ MD
  132. 660 DEC L[145]G:LDX BACK:BEQ MD
  133. 665 DEC BACK:RTS
  134. 670 ;
  135. 675 MC CMP #13:BEQ WRAP1
  136. 680 ;
  137. 685 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  138. 690 ;
  139. 695 MF CMP #32:BNE ME
  140. 700 JSR WRAP2
  141. 705 ;
  142. 710 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  143. 715 ;
  144. 720 ME LDX BACK
  145. 725 STA RAPR,X:INX:STX BACK
  146. 730 LDA #0:STA RAPR,X:STA RAPE; RAPE WILL SHOW A WRAP WAS D[145]E [139] [178] 1
  147. 735 INC L[145]G
  148. 740 LDA L[145]G:CMP MXLO:BCS WRAP
  149. 745 MD RTS
  150. 750 ;
  151. 755 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  152. 760 ;
  153. 765 ; DEC [195]GTH [164] STRIP SPACE CHAR
  154. 770 ;
  155. 775 WRAP LDA AREG:STA ASH
  156. 780 INC RAPE:LDX BACK:DEX:STX L[145]G
  157. 785 ;
  158. 790 MG LDA #20:JSR CHAR; ERASE
  159. 795 DEC BACK:BNE MG
  160. 800 ;
  161. 805 JSR RET1:LDA ASH:STA AREG
  162. 810 LDA MAIL:BEQ MH;  IS THIS MSG[173]MAG
  163. 815 ;
  164. 820 JSR LINER; [153] LINE NUMBER WHEN WRAPPING [176] SETTING UP [129] MSG[173]MAG
  165. 825 ;
  166. 830 ; INDEX STARTS AT 1 [191]CE 1ST CHAR IN RAPR WILL BE A SPACE
  167. 835 ;
  168. 840 MH LDY #1:STY IDEX
  169. 845 MI LDY IDEX:LDA RAPR,Y:BEQ MJ
  170. 850 JSR CHAR:INC IDEX:BNE MI
  171. 855 MJ LDA ASH:STA AREG:JMP UNWRAP
  172. 860 ;
  173. 865 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  174. 870 ;
  175. 875 LINER LDA AREG:PHA
  176. 880 LDA LIN:JSR [198]I
  177. 885 LDA HUNS:CMP #48:BEQ MK
  178. 890 JSR CHAR
  179. 895 MK LDA TENS:CMP #48:BEQ ML
  180. 900 JSR CHAR
  181. 905 ML LDA [145]ES:JSR CHAR
  182. 910 JSR SPC:INC LIN
  183. 915 PLA:STA AREG:RTS
  184. 920 ;
  185. 925 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  186. 930 ;
  187. 935 [198]I LDX #48
  188. 940 STX HUNS:STX TENS
  189. 945 ;
  190. 950 MO CMP #100:BCS MM
  191. 955 MP CMP #10:BCS MN
  192. 960 [176]A #48:STA [145]ES:RTS
  193. 965 ;
  194. 970 MM SBC #100
  195. 975 INC HUNS:BNE MO
  196. 980 ;
  197. 985 MN SBC #10
  198. 990 INC TENS:BNE MP
  199. 995 ;
  200. 1000 .FILE 0:N.ROUTINES
  201.