home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / dienst (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  189 lines
  1. 1 REM ***************************
  2. 2 REM * ECHTZEITUHR 72421 64'ER *
  3. 3 REM *  VON  NIKOLAUS HEUSLER  *
  4. 4 REM * DIENST- UND DEMOPROGRM. *
  5. 5 REM * (C) NH-120589-ARR REV.1 *
  6. 6 REM ***************************
  7. 7 :
  8. 8 REM **** PORT VORBEREITEN ****
  9. 9 :
  10. 10 POKE56579,224
  11. 11 REM   D0-D3, Q5      EINGANG (0)
  12. 12 REM   -CLK, -RD, -WR AUSGANG (1)
  13. 13 :
  14. 20 POKE56578,PEEK(56578)OR4
  15. 21 REM   RESET AUSGANG
  16. 22 :
  17. 24 SYS58692
  18. 25 :
  19. 30 POKE56577,224
  20. 31 REM   -CLK, -RD, -WR ABSCHALTEN
  21. 32 :
  22. 34 GOSUB2000
  23. 35 REM   IST UHR VORHANDEN ?
  24. 36 :
  25. 40 X=15:A=0:GOSUB1200
  26. 41 REM   REGISTER 15 MIT WERT 0 FUELLEN
  27. 42 REM   UHR EINSCHALTEN (12 STD)
  28. 60 :
  29. 70 REM **** ANWENDUNGSBSP. ****
  30. 80 :
  31. 90 REM   GOTO 100  ODER  GOTO 500
  32. 95 :
  33. 96 :
  34. 100 PRINT:PRINT:PRINT"DEMOPROGRAMM ZUR RTC 72421
  35. 110 [153]:[153]"WOLLEN SIE EIN REGISTER LESEN (1)
  36. 112 PRINT"             ODER BESCHREIBEN (2) ?
  37. 114 [153]
  38. 116 [153]"BITTE WAEHLEN !
  39. 118 PRINT:POKE198,.
  40. 120 GETA$
  41. 130 IFA$="1"THEN200
  42. 140 IFA$="2"THEN300
  43. 150 GOTO120
  44. 200 PRINT:PRINT"WELCHES REGISTER LESEN ? (NR. 0 BIS 15)
  45. 202 [133]"NUMMER";X
  46. 204 [139]X[179]0[176]X[177]15[167]100
  47. 206 :
  48. 208 [141]1100 : [143] REGISTER LESEN
  49. 210 [153]:[153]"REGISTER"X"HAT DEN INHALT"A:[137]100
  50. 300 [153]:[153]"IN WELCHES REGISTER SCHREIBEN ?
  51. 302 INPUT"NUMMER";X
  52. 304 IFX<0ORX>15THEN100
  53. 306 PRINT:PRINT"WELCHEN WERT ? (0 BIS 15)
  54. 308 [133]"NEUER INHALT";A
  55. 310 [139]A[179]0[176]A[177]15[167]100
  56. 312 :
  57. 320 [141]1200 : [143] REG. BESCHREIBEN
  58. 330 [137]208
  59. 490 :
  60. 500 [143] WIEVIEL UHR IST ES ?
  61. 510 :
  62. 520 [153]:[153]"HIER KOMMT DIE GENAUE ZEIT:
  63. 530 PRINT:PRINTTAB(12)"ES IST";:NM=0
  64. 540 :
  65. 542 X=5:GOSUB1100
  66. 544 REM   STUNDEN-ZEHNER LESEN
  67. 550 IF(AAND4)=4THENNM=1:REM NACHMITTAG
  68. 552 H=AAND3
  69. 554 :
  70. 556 X=4:GOSUB1100
  71. 558 REM   STUNDEN-EINER LESEN
  72. 560 H=A+H*10+NM*12:REM 12 -> 24 STUNDEN
  73. 562 H$=STR$(H):IFH<10THENH$=" 0"+CHR$(H+48)
  74. 564 PRINTH$":";
  75. 566 :
  76. 568 X=3:GOSUB1100
  77. 570 REM   MINUTEN-ZEHNER LESEN
  78. 572 PRINTCHR$(A+48);
  79. 574 :
  80. 578 X=2:GOSUB1100
  81. 580 REM   MINUTEN-EINER LESEN
  82. 582 PRINTCHR$(A+48)":";
  83. 584 :
  84. 588 X=1:GOSUB1100
  85. 590 REM   SEKUNDEN-ZEHNER LESEN
  86. 592 PRINTCHR$(A+48);
  87. 594 :
  88. 598 X=0:GOSUB1100
  89. 600 REM   MINUTEN-EINER LESEN
  90. 602 PRINTCHR$(A+48)
  91. 604 :
  92. 610 PRINT"[145][145][145]":GOTO530
  93. 620 :
  94. 629 REM - KOMMENTAR:
  95. 630 REM DA DIESE ROUTINEN IN BASIC GE-
  96. 631 REM SCHRIEBEN  SIND,  ARBEITEN SIE
  97. 632 REM NATUERLICH  NICHT  SO  SCHNELL
  98. 633 REM WIE EIN ASSEMBLERPROGRAMM. BE-
  99. 634 REM SONDERS  DAS ANFAHREN  (ZEILEN
  100. 635 REM 1000FF)  VERZOEGERT  IN  BASIC
  101. 636 REM DOCH SEHR...
  102. 800 :
  103. 960 :
  104. 970 REM **** DIENSTROUTINEN ****
  105. 980 :
  106. 1000 REM REGISTER X ANFAHREN *******
  107. 1001 :
  108. 1002 POKE56576,PEEK(56576)OR4:               POKE56576,PEEK(56576)AND251
  109. 1004 REM   KURZEN RESET-IMPULS
  110. 1005 :
  111. 1006 IFX=.THENRETURN : REM REGISTER 0 IST ERREICHT
  112. 1007 :
  113. 1010 FORI=1TOX : REM SONST X MAL CLOCKEN
  114. 1014 POKE56577,PEEK(56577)AND223:            POKE56577,PEEK(56577)OR32
  115. 1016 REM   KURZEN CLOCK-IMPULS (LOW AKTIV)
  116. 1018 NEXT:RETURN
  117. 1020 :
  118. 1100 REM LESE REGISTER X NACH A *******
  119. 1101 :
  120. 1102 GOSUB1002:REM REGISTER X ANFAHREN
  121. 1103 :
  122. 1104 POKE56579,224
  123. 1105 REM   D0-D3 AUF EINGANG                 :
  124. 1106 POKE56577,PEEK(56577)AND127
  125. 1107 REM   READ-SIGNAL                       :
  126. 1108 A=PEEK(56577)AND15
  127. 1109 REM   D0 BIS D3 LESEN                   :
  128. 1110 POKE56577,PEEK(56577)OR192
  129. 1111 REM   READ UND WRITE AUS                :
  130. 1112 RETURN
  131. 1120 :
  132. 1200 REM SCHREIBE A IN REGISTER X *******
  133. 1201 :
  134. 1202 GOSUB1002:REM REGISTER X ANFAHREN
  135. 1203 POKE56577,PEEK(56577)OR192:REM READ UND WRITE AUS (ZUR SICHERHEIT)
  136. 1204 POKE56579,239
  137. 1205 REM   D0-D3 AUF AUSGANG                 :
  138. 1206 POKE56577,(PEEK(56577)AND240)OR(AAND15)
  139. 1207 REM   A AUF D0-D3 (ZUM PORT)            :
  140. 1208 POKE56577,PEEK(56577)AND191
  141. 1209 REM   WRITE-SIGNAL                      :
  142. 1210 POKE56577,PEEK(56577)OR192
  143. 1211 REM   WRITE UND READ AUS                :
  144. 1212 POKE56579,224
  145. 1213 REM   D0-D3 AUF EINGANG                 :
  146. 1214 RETURN
  147. 1216 :
  148. 2000 REM MODUL ANGESCHLOSSEN ? *******
  149. 2001 :
  150. 2002 POKE56576,PEEK(56576)OR4
  151. 2003 REM   RESET AN                          :
  152. 2004 POKE56576,PEEK(56576)AND251
  153. 2005 REM   RESET AUS
  154. 2006 :
  155. 2010 FORI=1TO16
  156. 2011 REM   16 MAL CLOCKEN, D4 TESTEN         :
  157. 2012 IF(PEEK(56577)AND16)=16THEN2100
  158. 2013 REM   WENN ZU FRUEH GESETZT, FEHLER     :
  159. 2014 POKE56577,PEEK(56577)AND223
  160. 2015 REM   CLOCK-SIGNAL                        :
  161. 2016 POKE56577,PEEK(56577)OR32
  162. 2017 REM   CLOCK AUS                         :
  163. 2018 NEXT
  164. 2019 :
  165. 2020 FORI=1TO16
  166. 2021 REM   16 MAL CLOCKEN, D4 TESTEN         :
  167. 2022 IF(PEEK(56577)AND16)=0THEN2100
  168. 2023 REM   WENN NICHT GESETZT, FEHLER        :
  169. 2024 POKE56577,PEEK(56577)AND223
  170. 2025 REM   CLOCK-SIGNAL                      :
  171. 2026 POKE56577,PEEK(56577)OR32
  172. 2027 REM   CLOCK AUS                         :
  173. 2028 NEXT
  174. 2029 :
  175. 2030 IF(PEEK(56577)AND16)=16THEN2100
  176. 2031 REM   WENN D4 NOCH GESETZT, FEHLER      :
  177. 2032 PRINT"OK."
  178. 2034 RETURN
  179. 2035 :
  180. 2100 PRINT:PRINT"MODUL NICHT ANGESCHLOSSEN !"
  181. 2104 END
  182. 2106 :
  183. 2200 :
  184. 2202 REM ******************************
  185. 2204 REM  RTC-ENTWICKLUNG:  N. HEUSLER
  186. 2206 REM ZWENGAUERWEG 18, 8 MUENCHEN 71
  187. 2208 REM  FUER MEHR INFO (RUECKPORTO!)
  188. 2210 REM ******************************
  189.