home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / AA.OPEN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  358 lines
  1. 10 ;"OPEN15,9,15,"S0:AA.O*":PRINT#15,"I":SAVE"AA.OPEN",9:VERIFY"AA.O*",9
  2. 15 ;
  3. 20 ;
  4. 25 ; 300 BAUD  659,6      660,0
  5. 30 ;           661,69     662,6
  6. 35 ;           665,75     666,13
  7. 40 ;
  8. 45 ;1019,51  1020,48  1021,48
  9. 50 ;1022,32  1023,20
  10. 55 ;
  11. 60 ;
  12. 65 ; 1200 BAUD 659,6      660,0
  13. 70 ;           661,61     662,1
  14. 75 ;           665,66     666,3
  15. 80 ;
  16. 85 ;1019,49  1020,48  1021,48
  17. 90 ;1022,48  1023,32
  18. 95 ;
  19. 100 ;[172][172][172][172][172] SET UP SHOP
  20. 105 ;
  21. 110 STAR .BYTE 0
  22. 115 START JSR AAB:JSR $F483
  23. 120 LDA #0:STA $D020:STA $D021
  24. 125 LDA #5:JSR [160]:LDA #128:JSR [160]
  25. 130 LDA #4:JSR [160]:LDA #7:JSR [160]
  26. 135 LDA #9:JSR [160]:LDA #8:STA DRIV
  27. 140 ;
  28. 145 JSR [156]CHN:LDA #1:STA $0286
  29. 150 LDA #255:STA ACSS:STA ACSS[170]1
  30. 155 ;
  31. 160 ;[172][172][172][172][172] [159] DISK COMM[175] CHANNEL
  32. 165 ;
  33. 170 ; LATER [159] COMM[175] CHANNELS [164]
  34. 175 ; ALL [158]TEM DRIVES
  35. 180 ;
  36. 185 JSR A1E; [159] COMM[175] CHANNEL 15
  37. 190 ;
  38. 195 ;[172][172][172][172][172] [159] RS232 FILES
  39. 200 ;
  40. 205 LDA #0:STA TRY:STA UNUM:STA FEED
  41. 210 STA SPEED:LDA #5:STA BYTE
  42. 215 ;
  43. 220 AA1 LDA BYTE:LDX #2:LDY #0
  44. 225 JSR SETLFS
  45. 230 ;
  46. 235 ;
  47. 240 LDA #1:LDX #[179]X232:LDY #[177]X232
  48. 245 JSR OPN
  49. 250 ;
  50. 255 LDA TRY:BNE AA2
  51. 260 INC TRY:LDA #128:STA BYTE
  52. 265 BNE AA1
  53. 270 ;
  54. 275 ;[172][172][172][172][172] INITIALIZE CHANNELS
  55. 280 ;
  56. 285 AA2 LDA #75:STA 665
  57. 290 LDX #5:JSR [161]T:JSR [156]CHN
  58. 295 LDX #128:JSR [161]T:JSR [156]CHN
  59. 300 JSR AA3
  60. 305 ;
  61. 310 ;[172][172][172][172][172] SET MODEM PARAMETERS
  62. 315 ;
  63. 320 LDA #0:STA MIN[170]1:LDX #128:JSR CHKOUT
  64. 325 ;
  65. 330 AA4 LDY MIN[170]1
  66. 335 LDA XATH,Y:BEQ A1C
  67. 340 JSR CHROUT:INC MIN[170]1:BNE AA4
  68. 345 ;
  69. 350 ;[172][172][172][172][172] [147] [131] FILES
  70. 355 ;
  71. 360 A1C JSR [156]CHN
  72. 365 LDA STAR:CMP #234:BEQ A1F
  73. 370 JSR LRUT:JMP A1D
  74. 375 ;
  75. 380 ;[172][172][172][172][172] [148] [131] FILES
  76. 385 ;
  77. 390 A1F JSR [156]CHN:LDA #0:STA FEED
  78. 395 LDA RGSR:BNE A1A
  79. 400 JSR SVHD; MESSAGE PO[181]ERS
  80. 405 ;
  81. 410 A1A LDA RGSR[170]1:CMP #3:BNE A1B
  82. 415 JSR SVBU; USER FILE
  83. 420 ;
  84. 425 A1B LDA RGSR[170]2:BNE A1D
  85. 430 JSR SVMH; MESSAGE HEADERS
  86. 435 ;
  87. 440 ;[172][172][172][172][172] [147] TEMP FILE
  88. 445 ;
  89. 450 A1D LDX #0:STX INFI:STX TEMFG
  90. 455 DEX:STX TEMFG[170]1
  91. 460 JSR TEMI:LDA INFI:STA TEMFG[170]1
  92. 465 ;
  93. 470 ;[172][172][172][172][172] [146] [129] RING
  94. 475 ;
  95. 480 AA6 JSR $FDA3:JSR [156]CHN; TRY [143]ODEM TOO
  96. 485 ;
  97. 490 LDA #[179]XWAI:LDX #[177]XWAI
  98. 495 JSR AAC
  99. 500 ;
  100. 505 JSR ANSR:BCS AA7
  101. 510 JSR AB0:JMP AA6
  102. 511 ;
  103. 512 SPEED .BYTE 0
  104. 515 ;
  105. 520 ;[172][172][172][172][172] [168][139]Y OF INCOMING CALL
  106. 525 ;
  107. 530 AA7 LDA #[179]XNCM:LDX #[177]XNCM
  108. 535 JSR AAC:JSR IBUF
  109. 540 LDA #5:JSR [146]
  110. 545 ;
  111. 550 AAH JSR INCH:LDA BUF:BEQ AAH
  112. 555 CMP #"5":BEQ AAI
  113. 560 CMP #"1":BNE AAH
  114. 565 ;
  115. 570 AAJ JSR AAZ:BNE AAA; 300 BAUD
  116. 575 AAI JSR AA8;        1200 BAUD
  117. 580 ;
  118. 585 ;[172][172][172][172][172] AAA [164] ENTER BBS
  119. 590 ;
  120. 595 AAA LDA #120:JSR HESI
  121. 600 JSR IBUF:JSR [188]BYTE
  122. 605 ;
  123. 610 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  124. 615 ;
  125. 620 AA3 LDX #5:JSR CHKIN
  126. 625 LDX #0:STX LOW:STX LOW[170]1
  127. 630 AAF JSR [161]IN:DEC LOW:BNE AAF
  128. 635 DEC LOW[170]1:BNE AAF
  129. 640 JMP [156]CHN
  130. 645 ;
  131. 650 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  132. 655 ;
  133. 660 AAC STA $FB:STX $FC:LDY #0
  134. 665 AAD LDA ($FB),Y:BEQ AAE
  135. 670 JSR CHROUT:INY:BNE AAD
  136. 675 ;
  137. 680 AAE RTS
  138. 685 ;
  139. 690 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  140. 695 ;
  141. 700 OPN JSR SETNAM:JSR [159]:JMP [156]CHN
  142. 705 ;
  143. 710 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  144. 715 ;
  145. 720 AAB TSX:STX BSIC:RTS
  146. 725 ;
  147. 730 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  148. 735 ;
  149. 740 XATH .BYTE "ATH0M0V0X1":.BYTE 13 0
  150. 745 XWAI .BYTE "LOAD    (null)AITING ASCOR LENALL...":.BYTE 13 13 0
  151. 750 XNCM .BYTE "RIGHT$NCOMING LENALL...":.BYTE 13 13 0
  152. 755 ;
  153. 760 X232 .BYTE 6
  154. 765 ;
  155. 770 X[157] .BYTE "I"
  156. 775 ;
  157. 780 ;[172][172][172][172][172][172][172][172][172][172][172][172][172]
  158. 785 ;
  159. 790 AB0 LDA #0:STA SHBL:STA R3[170]4:STA $C6
  160. 795 JSR [156]CHN:LDA #42
  161. 800 JSR CHROUT:JSR CHROUT:JSR CHROUT
  162. 805 ;
  163. 810 ;[172][172][172][172] BACK DO[176] [164] BBS
  164. 815 ;
  165. 820 JSR [161]1:CMP #42:BNE AB1
  166. 825 JMP AB8
  167. 830 ;
  168. 835 ;[172][172][172][172] [162] USER FILING
  169. 840 ;
  170. 845 AB1 CMP #43:BNE AB9; [162] USERS
  171. 850 JMP VNU
  172. 855 ;
  173. 860 AB9 LDA #[179]HOU:LDX #[177]HOU
  174. 865 JSR [164]CR:BEQ AB1
  175. 870 CMP #13:BCS AB1
  176. 875 STA HRS
  177. 880 ;
  178. 885 AB11 LDA #[179]MN1:LDX #[177]MN1
  179. 890 JSR [164]CR:CMP #60:BCS AB11
  180. 895 STA MNS
  181. 900 ;
  182. 905 LDA #[179]MPA:LDX #[177]MPA:STX RET0
  183. 910 STX RATS:JSR STRING
  184. 915 AB2 JSR [161]1:CMP #"P":BEQ AB3
  185. 920 CMP #"A":BNE AB2
  186. 925 AB3 [175] #31:STA AMP
  187. 930 ;
  188. 935 JSR DOVER:BNE AB1
  189. 940 ;
  190. 945 JSR SETI;    [129]MAT TIME FIELDS
  191. 950 JSR CHATIRQ; SET VEC[164]R [129] TIME
  192. 955 ;
  193. 960 ; TRAP [129] [131] LOADS ETC. HERE
  194. 965 ;
  195. 970 JSR [161]1:CMP #42:BNE AB4
  196. 975 RTS; [142] AFTER SETTING TIME
  197. 980 ;
  198. 985 AB4 LDA #[179]MMO:LDX #[177]MMO
  199. 990 JSR [164]CR:BEQ AB4
  200. 995 ;
  201. 1000 CMP #13:BCS AB4
  202. 1005 STA BMO:STA M[145]TH
  203. 1010 ;
  204. 1015 AB5 LDA #[179]MDA:LDX #[177]MDA
  205. 1020 JSR [164]CR:BEQ AB5
  206. 1025 CMP #32:BCS AB5
  207. 1030 STA BDA:STA DATE
  208. 1035 ;
  209. 1040 LDA #44:JSR CHAR:JSR SPC
  210. 1045 ;
  211. 1050 AB6 LDA #[179]MYR:LDX #[177]MYR
  212. 1055 JSR [164]CR:BEQ AB6
  213. 1060 CMP #87:BCC AB6
  214. 1065 STA BYR:STA YEAR
  215. 1070 JSR LEAP:LDA BDA:CMP MXDA:BEQ ABA
  216. 1075 BCS AB4; OUT OF RANGE
  217. 1080 ;
  218. 1085 ABA JSR GEMOS:JSR DOVER:BNE AB4
  219. 1090 ;
  220. 1095 JSR [161]1:CMP #42:BNE AB7
  221. 1100 AB8 LDA #1:STA UNUM
  222. 1105 ;
  223. 1110 LDA #0:STA $C6:JSR IBUF; EMPTY KEY BUFFER
  224. 1111 ;
  225. 1112 INC SPEED; FAST USE [129] [158]OP
  226. 1113 ;
  227. 1115 PLA:PLA:JMP D99; BACK DO[176] [164] BBS
  228. 1120 ;
  229. 1125 AB7 RTS
  230. 1130 ;
  231. 1135 [164]CR STX RATS:JSR STRING
  232. 1140 LDX #2:STX MIN[170]1:JSR [161]BYTE
  233. 1145 LDA BYTE:RTS
  234. 1150 ;
  235. 1155 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  236. 1160 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  237. 1165 ;
  238. 1170 HOU .BYTE 13
  239. 1175 .BYTE "LEFT$OUR              ":.BYTE 58 0
  240. 1180 MN1 .BYTE 13
  241. 1185 .BYTE "(null)INUTE            ":.BYTE 58 0
  242. 1190 MPA .BYTE 13
  243. 1195 .BYTE "[ATN]M OR [(null)]M      ":.BYTE 58 0
  244. 1200 ;
  245. 1205 MMO .BYTE 13 13
  246. 1210 .BYTE "[1] MID$AN    [5] (null)AY    [ 9] (null)EP":.BYTE 13
  247. 1215 .BYTE "[2] ASCEB    [6] MID$UN    [10] (null)CT":.BYTE 13
  248. 1220 .BYTE "[3] (null)AR    [7] MID$UL    [11] (null)OV":.BYTE 13
  249. 1225 .BYTE "[4] ATNPR    [8] ATNUG    [12] STR$EC ":.BYTE 58 0
  250. 1230 ;
  251. 1235 MDA .BYTE 13 13
  252. 1240 .BYTE "STR$ATE  ":.BYTE 58 0
  253. 1245 ;
  254. 1250 MYR .BYTE "19":.BYTE 0
  255. 1255 ;
  256. 1260 ;[172][172][172][172][172] 300 BAUD
  257. 1265 ;
  258. 1270 AAZ LDA #69:STA 661
  259. 1275 LDA #6:STA 662
  260. 1280 LDA #75:STA 665
  261. 1285 LDA #13:STA 666
  262. 1290 LDA #"3":STA BAUD:LDA #"0"
  263. 1295 STA BAUD[170]1:STA BAUD[170]2
  264. 1300 LDA #32:STA BAUD[170]3
  265. 1305 LDA #1:BNE AAL
  266. 1310 ;
  267. 1315 ;[172][172][172][172][172] 1200 BAUD
  268. 1320 ;
  269. 1325 AA8 LDA #61:STA 661
  270. 1330 LDA #1:STA 662
  271. 1335 LDA #66:STA 665
  272. 1340 LDA #3:STA 666
  273. 1345 JSR AA3
  274. 1350 LDA #"1":STA BAUD:LDA #"2":STA BAUD[170]1
  275. 1355 LDA #"0":STA BAUD[170]2:STA BAUD[170]3
  276. 1360 LDA #32
  277. 1365 AAL STA BAUD[170]4:RTS
  278. 1370 ;
  279. 1375 ; [172][172][172] [147] REQUIRED FILES
  280. 1380 ;
  281. 1385 LRUT JSR [156]CHN
  282. 1390 JSR INITL:JSR L0D
  283. 1395 LDA #[179]USERS:LDX #[177]USERS:JSR AAC
  284. 1400 JSR LDBU
  285. 1405 ;
  286. 1410 JSR L0D
  287. 1415 LDA #[179]HEAD:LDX #[177]HEAD:JSR AAC
  288. 1420 LDY #99:LDA #0
  289. 1425 AGA STA NUMHI,Y:STA NUMLO,Y
  290. 1430 DEY:BPL AGA
  291. 1435 JSR LDHD
  292. 1440 ;
  293. 1445 JSR L0D
  294. 1450 LDA #[179]TITLE:LDX #[177]TITLE:JSR AAC
  295. 1455 JSR LDMH:LDA #234:STA STAR:RTS
  296. 1460 ;
  297. 1465 ;[172][172][172][172][172]
  298. 1470 ;
  299. 1475 L0D LDA #[179]DING:LDX #[177]DING
  300. 1480 JMP AAC
  301. 1485 ;
  302. 1490 DING .BYTE 13 13
  303. 1495 .BYTE "LOAD(null)OADING ":.BYTE 58 0
  304. 1500 ;
  305. 1505 ;[172][172][172][172][172] [197]IDATE USER ROUTINE
  306. 1510 ;
  307. 1515 VNU LDA #0:STA $C6:JSR [156]CHN
  308. 1520 LDA #[179]ABF:LDX #[177]ABF:JSR STRING
  309. 1525 ABG JSR [161]1:CMP #1:BEQ ABH; PROMPTS
  310. 1530 CMP #2:BNE ABG; [162] USER
  311. 1535 ;
  312. 1540 LDX #[179]NEUS:LDY #[177]NEUS:BNE ABC
  313. 1545 ABH LDX #[179]PPTS:LDY #[177]PPTS
  314. 1550 ;
  315. 1555 ;[172][172][172][172][172] [135] IN PROG FILE
  316. 1560 ;
  317. 1565 ABC LDA #8:JSR SETNAM
  318. 1570 ;
  319. 1575 LDA #7:LDX DRIV:TAY:JSR SETLFS
  320. 1580 JSR [159]:JSR [156]CHN
  321. 1585 ;
  322. 1590 LDX #7:JSR CHKIN
  323. 1595 ;
  324. 1600 LDA #192:STA $65:LDA #0:STA $64
  325. 1605 ;
  326. 1610 ABD JSR [161]IN:LDX $90:BEQ ABE
  327. 1615 ;
  328. 1620 LDA #7:JSR [143]O:PLA:PLA:JMP UBFR
  329. 1625 ;
  330. 1630 ABE LDY #0:STA ($64),Y:JSR UPZP
  331. 1635 JMP ABD
  332. 1640 ;
  333. 1645 ;[172][172][172][172][172] [159] CHANNEL 15
  334. 1650 ;
  335. 1655 A1E LDA #15:JSR [160]
  336. 1660 LDA #15:LDX DRIV:TAY:JSR SETLFS
  337. 1665 ;
  338. 1670 LDA #1:LDX #[179]X[157]:LDY #[177]X[157]
  339. 1675 JMP OPN
  340. 1680 ;
  341. 1685 ;[172][172][172][172][172]
  342. 1690 ;
  343. 1695 ABF .BYTE 13 13 49 93 32 32
  344. 1700 PPTS .BYTE 48 58:.BYTE "PROMPT,S,W":.BYTE 13
  345. 1705 ;
  346. 1710 .BYTE 50 93 32 32
  347. 1715 NEUS .BYTE 48 58:.BYTE "NEWUSR,S,W":.BYTE 13
  348. 1720 ;
  349. 1725 .BYTE 51 93 32 32
  350. 1730 .BYTE "VALXIT":.BYTE 58 0
  351. 1735 ;
  352. 1740 ;
  353. 1745 ;  PUNT .BYTE 48 58:.BYTE "PUNTER"
  354. 1750 ;
  355. 1755 ;  XMOD .BYTE 48 58:.BYTE "XMODEM"
  356. 1760 ;
  357. 1765 .FILE 0:B.TERMINAL
  358.