home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / EGBBBS.ARC / F.CHATMODE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.2 KB  |  126 lines
  1. 10 ;"OPEN15,9,15,"S0:F.C*":PRINT#15,"I":SAVE"F.CHATMODE",9:VERIFY"F.C*",9
  2. 15 ;
  3. 20 ;          F.CHATMODE
  4. 25 ;
  5. 30 CHATIRQ SEI
  6. 35 LDA #[179]F1:LDX #[177]F1
  7. 40 STA $0314:STX $0315
  8. 45 ;
  9. 50 FK SEI:LDA #[179]FL:LDX #[177]FL
  10. 55 STA $0326:STX $0327
  11. 60 CLI:RTS
  12. 65 ;
  13. 70 ;[172][172][172][172][172]
  14. 115 ;
  15. 120 FL CMP #13:BNE FM
  16. 125 PHA:LDA FEED:CMP #10:BNE [165]
  17. 130 JSR $F1CA
  18. 135 [165] PLA
  19. 140 FM JMP $F1CA
  20. 145 ;
  21. 150 ;[172][172][172][172][172]
  22. 155 ;
  23. 160 F1 LDA IMNS:BEQ F2
  24. 165 ;
  25. 170 INC $D020
  26. 175 LDA $DC0A:CMP IMNS[170]2:BEQ F2
  27. 180 STA IMNS[170]2
  28. 185 DEC IMNS[170]1:BNE F2
  29. 190 ;
  30. 195 LDA #255:STA [158]0
  31. 200 ;
  32. 205 F2 JMP F3;        $EA31
  33. 210 ;
  34. 215 ;[172][172][172][172][172][172][172]
  35. 220 ;
  36. 225 SETI LDA HRS:JSR F9
  37. 230 ;
  38. 235 LDX AMP:CPX #16:BNE FE
  39. 240 ;
  40. 245 [176]A #128
  41. 250 .BYTE 44
  42. 255 FE [175] #127
  43. 260 ;
  44. 265 FD STA $DC0B:STX ALT[170]38
  45. 270 ;
  46. 275 FA LDA MNS
  47. 280 JSR F9:STA $DC0A;   MINUTES
  48. 285 ;
  49. 290 LDA #30:JSR F9; SEC[145]DS
  50. 295 STA $DC09:JSR FJ; SET CALL[173]FLAG
  51. 300 ;
  52. 305 LDA $DC08:STA $DC08;  START CLOCK
  53. 310 RTS
  54. 315 ;
  55. 320 ;[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]
  56. 325 ;
  57. 330 F3 CLC:LDA $DC0B:BMI F5
  58. 335 ;
  59. 340 LDX $DC0A:BNE F4; IS THIS '0' MIN
  60. 345 LDX $DC09:BNE F4; [175] '0' SEC[145]D
  61. 350 LDX HRS:BNE F4
  62. 355 CMP #18:BNE F4
  63. 360 ;
  64. 365 JSR FF; PROCESS DAY CHANGE
  65. 370 LDA RGSR[170]1:[175] #1:[176]A #2:STA RGSR[170]1
  66. 375 ;
  67. 380 LDA #18;    SET [164] 12 O'CLOCK
  68. 385 ;
  69. 390 F4 LDX #1:BNE FZ;  AM
  70. 395 ;
  71. 400 F5 LDY #0:STY HRS:LDX #16
  72. 405 ;
  73. 410 FZ STX ALT[170]38
  74. 415 ;
  75. 420 JSR F8
  76. 425 STX ALT[170]30:CMP #48:BNE F6
  77. 430 LDA #32
  78. 435 ;
  79. 440 F6 STA ALT[170]29
  80. 445 LDA #58:STA ALT[170]31
  81. 450 ;
  82. 455 LDA $DC0A:JSR F8
  83. 460 STA ALT[170]32:STX ALT[170]33
  84. 465 LDA #58:STA ALT[170]34
  85. 470 ;
  86. 475 LDA $DC09:JSR F8
  87. 480 STA ALT[170]35:STX ALT[170]36
  88. 485 LDA $DC08:STA $DC08
  89. 490 ;
  90. 495 LDY #9
  91. 500 F7 LDA #1:STA ALC,Y:DEY:BPL F7
  92. 505 DEY:BPL F7
  93. 510 JMP $EA31
  94. 515 ;
  95. 520 ;[172][172][172][172][172][172][172]
  96. 525 ;
  97. 530 F8 [175] #127:PHA:[175] #15:[176]A #48
  98. 535 TAX:PLA
  99. 540 LSR:LSR:LSR:LSR:[176]A #48:RTS
  100. 545 ;
  101. 550 ;[172][172][172][172][172][172][172]
  102. 555 ;
  103. 560 F9 PHA:LDA #0:STA BYTE
  104. 565 FB PLA:CMP #10:BCS FC
  105. 570 ADC BYTE:STA BYTE:RTS
  106. 575 FC SBC #10:PHA
  107. 580 LDA BYTE:CLC:ADC #16
  108. 585 STA BYTE:JMP FB
  109. 590 ;
  110. 595 ;[172][172][172][172][172] [162] DAY[173]M[145]TH[173]YEAR
  111. 600 ;
  112. 605 FF LDA BDA:CMP MXDA:BEQ FG
  113. 610 INC BDA:JMP FJ
  114. 615 ;
  115. 620 FG LDA BMO:CMP #12:BNE FI
  116. 625 ;
  117. 630 INC BYR:LDA #0:STA BMO
  118. 635 ;
  119. 640 FI INC BMO:LDA #1:STA BDA:JSR LEAP
  120. 645 ;
  121. 650 ;HRS FLAGS THAT DAY SHOULD [145]LY BE UPDATED [145]CE AT MIDNIGHT [175] [168] 6 TIMES
  122. 655 ;
  123. 660 FJ LDX #0:STX CALL:INX:STX HRS:RTS
  124. 665 ;
  125. 670 .FILE 0:G.EMAIL
  126.