home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / O.ROUTINES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  196 lines
  1. 10 ;"OPEN15,8,15,"S0:O.R*":PRINT#15,"I":SAVE"O.ROUTINES",8:VERIFY"O.R*",8
  2. 15 ;
  3. 20 ;[172][172][172][172][172][172][172]
  4. 25 ;
  5. 30 SHOLINE JSR WHILINE:BEQ O1
  6. 35 ;
  7. 40 CMP LIN:BCS O1
  8. 45 ;
  9. 50 JSR RET2:LDX BYTE
  10. 55 LDA BOL1,X:PHA:STA $FB
  11. 60 LDA BOH1,X:TAX:STA $FC:PLA
  12. 65 JSR STRING
  13. 70 LDA $FB:LDX $FC:JMP SETHI
  14. 75 ;
  15. 80 O1 PLA:PLA:JMP EMAILIN
  16. 85 ;
  17. 90 ;[172][172][172][172][172][172][172]
  18. 95 ;
  19. 100 [165]AME LDA #[179]XF1L:LDX #[177]XF1L:LDY #12
  20. 105 ;
  21. 110 [161]COM STY MIN[170]1:JSR STRING
  22. 115 JSR [161]BYTE:LDA RAPR:BEQ O2
  23. 120 ;
  24. 125 JSR COTEMP:JMP DOVER
  25. 130 O2 RTS
  26. 135 ;
  27. 140 ;[172][172][172][172][172][172][172]
  28. 145 ;
  29. 150 PREBUF LDY #0:LDX MAXL
  30. 155 LDA #8:STA HIPO:STA $FE:STA $65:STA LOW[170]1
  31. 160 LDA #1:STA LOPO:STA $FD:STA $64:STA LOW; START AT 2049
  32. 165 ;
  33. 170 O3 LDA LOPO,Y:CLC:ADC MLG
  34. 175 STA LOPO[170]1,Y
  35. 180 LDA #0:ADC HIPO,Y:STA HIPO[170]1,Y
  36. 185 ;
  37. 190 INY:DEX:BPL O3
  38. 195 ;
  39. 200 O4 LDA #0:TAY
  40. 205 STA ($64),Y:JSR UPZP
  41. 210 LDA $65:CMP #23:BNE O4
  42. 215 LDA $64:CMP #160:BNE O4; 6048 MAX
  43. 220 O45 RTS
  44. 225 ;
  45. 230 ;[172][172][172][172][172][172][172]
  46. 235 ;
  47. 240 SUBCOM JSR [182]ENT:INC RATS
  48. 245 ;
  49. 250 LDA #[179]SUBC:LDX #[177]SUBC
  50. 255 JSR STRING
  51. 260 ;
  52. 265 ;[172][172][172][172][172][172][172][172][172]
  53. 270 ;
  54. 275 RATF LDA #0:STA RATS:RTS
  55. 280 ;
  56. 285 ;[172][172][172][172][172][172][172][172][172]
  57. 290 ;
  58. 295 UHUH LDA #[179]ERR:LDX #[177]ERR
  59. 300 JSR STRING:JMP RATF
  60. 305 ;
  61. 310 ;[172][172][172][172][172][172][172][172][172]
  62. 315 ;
  63. 320 FIX80 LDX #8:STX $63
  64. 325 ; CRETU STARTS OUT W[173]148 [164] ALLOW 1ST SENTENCE [164] BE 80 COLS.
  65. 330 ;
  66. 335 LDA #148:STA CRUT
  67. 340 LDA #1:STA $62:TAY;  NOW AT 2049
  68. 345 ;
  69. 350 O8 LDA ($62),Y:BEQ O6
  70. 355 CMP #13:BEQ O5
  71. 360 CMP #148:BEQ O5
  72. 365 CMP #255:BEQ O7
  73. 370 ;
  74. 375 O6 INY:BNE O8
  75. 380 INC $63:BNE O8
  76. 385 ;
  77. 390 O7 RTS
  78. 395 ;
  79. 400 O5 LDA CRUT:STA ($62),Y
  80. 405 JSR CRETUGGLE:JMP O6
  81. 410 ;
  82. 415 ;[172][172][172][172][172][172][172][172]
  83. 420 ;
  84. 425 L0ST LDA #[179]LOST:LDX #[177]LOST
  85. 430 BNE O9
  86. 435 ;
  87. 440 ;[172][172][172][172][172][172][172]
  88. 445 ;
  89. 450 DUN LDA #[179]D[145]E:LDX #[177]D[145]E
  90. 455 O9 JMP STRING
  91. 460 ;
  92. 465 ;[172][172][172][172][172][172][172]
  93. 470 ;
  94. 475 CRETUGGLE CMP #148:BEQ OA
  95. 480 LDA #148
  96. 485 .BYTE 44
  97. 490 OA LDA #13
  98. 495 STA CRUT:RTS
  99. 500 ;
  100. 505 ;[172][172][172][172][172][172][172]
  101. 510 ;
  102. 515 COTEMP LDA #[179]RAPR:LDX #[177]RAPR
  103. 520 ;
  104. 525 ;[172][172][172][172][172][172][172]
  105. 530 ;
  106. 535 TEMPBUF LDY #0:STA $64:STX $65
  107. 540 OC LDA ($64),Y:STA MISC,Y
  108. 545 BEQ OB
  109. 550 INY:BNE OC
  110. 555 ;
  111. 560 ;[172][172][172][172][172][172][172]
  112. 565 ;
  113. 570 [164]GL LDA COLUMNS:STA MSGC
  114. 575 CMP #"8":BNE OD
  115. 580 ;
  116. 585 LDA #"4":LDX #78:BNE OE
  117. 590 ;
  118. 595 OD LDA #"8":LDX #38
  119. 600 OE STA COLUMNS:STA PERM[170]1
  120. 605 STX PERM:RTS
  121. 610 ;
  122. 615 ;[172][172][172][172][172][172][172][172]
  123. 620 ;
  124. 625 SETHI LDY #0:STA $62:STX $63
  125. 630 OH LDA ($62),Y:STA HITEMP,Y:BEQ OB
  126. 635 INY:BNE OH
  127. 640 BEQ OB
  128. 645 ;
  129. 650 ;[172][172][172][172][172][172][172][172]
  130. 655 ;
  131. 660 SETLO LDY #0:STA $62:STX $63
  132. 665 OG LDA ($62),Y:STA LOTEMP,Y:BEQ OB
  133. 670 INY:BNE OG
  134. 675 ;
  135. 680 OB STY LNTH:RTS
  136. 685 ;
  137. 690 ;[172][172][172][172][172][172][172][172]
  138. 695 ;
  139. 700 SETTEE LDY #0
  140. 705 OI LDA LOPO,Y:STA LOTEMP,Y
  141. 710 LDA HIPO,Y:STA HITEMP,Y
  142. 715 INY:CPY MAXL:BNE OI
  143. 720 RTS
  144. 725 ;
  145. 730 ;[172][172][172][172][172][172][172][172]
  146. 735 ;
  147. 740 BEFSET LDA #[179]XBEF:LDX #[177]XBEF
  148. 745 BEF2 JSR STRING
  149. 750 BEF3 LDX #3:STX MIN[170]1:JSR [161]BYTE
  150. 755 LDA BYTE:RTS
  151. 760 ;
  152. 765 ;[172][172][172][172][172][172][172][172]
  153. 770 ;
  154. 775 ANY JSR [182]ENT:JSR RATF
  155. 780 LDA #[179]XANY:LDX #[177]XANY
  156. 785 JSR STRING:LDA RATS:BNE OL
  157. 790 JSR [161]1
  158. 795 OL JMP RATF
  159. 800 ;
  160. 805 ;[172][172][172][172][172][172][172][172]
  161. 810 ;
  162. 815 [203]OFCHECK CMP #160:BCS OJ
  163. 820 CMP #32:BCC OK
  164. 825 CMP #128:BCC OJ
  165. 830 OK LDA #0
  166. 835 OJ RTS
  167. 840 ;
  168. 845 ;[172][172][172][172][172][172][172][172]
  169. 850 ;
  170. 855 XANY .BYTE 7 7 13 13
  171. 860 .BYTE "** ATNNY (null)EY TO LENONTINUE **  ":.BYTE 0
  172. 865 ;
  173. 870 LOST .BYTE 7 7 13 13
  174. 875 .BYTE "** (null)OT ASCOUND **":.BYE 13 13 0
  175. 880 ;
  176. 885 [164]LINE .BYTE 13 13:.BYTE "(null)O (null)INE ":.BYTE 58 0
  177. 890 ;
  178. 895 CHANGE .BYTE 13 13
  179. 900 .BYTE "LENHANGE (null)TRING":.BYTE 13 13
  180. 905 .BYTE ">CMD":.BYTE 0
  181. 910 ;
  182. 915 [164]STRI .BYTE 13 13
  183. 920 .BYTE "(null)O (null)TRING":.BYTE 13 13
  184. 925 .BYTE ">CMD":.BYTE 0
  185. 930 ;
  186. 935 D[145]E .BYTE 7 7 13 13
  187. 940 .BYTE "** STR$ONE **":.BYTE 13 13 0
  188. 945 ;
  189. 950 C[176]RECT .BYTE 13 13
  190. 955 .BYTE "(null)EW (null)INE ":.BYTE 13 13:.BYTE ">CMD":.BYTE 0
  191. 960 ;
  192. 965 ERR .BYTE 7 7 7 13 13
  193. 970 .BYTE "** (null)RONG! **":.BYTE 13 13 0
  194. 975 ;
  195. 980 .FILE 0:P.ADDER
  196.