home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / olymp.-comp.-2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  241 lines
  1. 100 REM ******  CENTRONICS  ***********
  2. 101 REM INTERFACE FUER OLYMPIA COMPACT2
  3. 102 REM  (C) REINHARD ATZBACH 020784
  4. 103 REM *******************************
  5. 104 FORN=0TO462: READB: POKE32000+N,B
  6. 105 NEXT:SYS32000:POKE55,255:POKE56,124
  7. 106 REM *******************************
  8. 107 :
  9. 108 :     REM INITIALISIERUNG
  10. 109 :
  11. 110 DATA 169,255    :REM   LDA #FF
  12. 111 DATA 141,  3,221:REM   STA DDR B
  13. 112 DATA 169,  0    :REM   LDA #00
  14. 113 DATA 141,  1,221:REM   STA PORT B
  15. 114 DATA 169,125    :REM * LDA #CHROUTH
  16. 115 DATA 141, 39,  3:REM   STA CHRVEKH
  17. 116 DATA 141, 33,  3:REM   STA CHKVEKH
  18. 117 DATA 169, 54    :REM * LDA #CHROUTL
  19. 118 DATA 141, 38,  3:REM   STA CHRVEKL
  20. 119 DATA 169, 29    :REM * LDA #CHKOUTL
  21. 120 DATA 141, 32,  3:REM   STA CHKVEKL
  22. 121 DATA  96        :REM   RTS
  23. 122 :
  24. 123 :     REM CHKOUT
  25. 124 :
  26. 125 DATA  32, 15,243:REM   JSR FILENR
  27. 126 DATA 240,  3    :REM   BEQ A
  28. 127 DATA  76,  1,247:REM   JMP F N OPEN
  29. 128 DATA  32, 31,243:REM A JSR SETPARA
  30. 129 DATA 165,186    :REM   LDA GERAETNR
  31. 130 DATA 201,  4    :REM   CMP #CEN
  32. 131 DATA 240,  5    :REM   BEQ B
  33. 132 DATA 165,186    :REM   LDA GERAETNR
  34. 133 DATA  76, 93,242:REM   JMP ANDERES
  35. 134 DATA  76,117,242:REM B JMP CENTR.
  36. 135 :
  37. 136 :     REM CHROUT
  38. 137 :
  39. 138 DATA  72        :REM   PHA
  40. 139 DATA 165,154    :REM   LDA GERAET
  41. 140 DATA 201,  4    :REM   CMP #CENTR.
  42. 141 DATA 240,  3    :REM   BEQ C
  43. 142 DATA  76,205,241:REM   JMP ANDERES
  44. 143 :
  45. 144 :     REM OLYMPIAUMSETZUNG
  46. 145 :
  47. 146 DATA 134,  5    :REM C STX 5
  48. 147 DATA 132,  6    :REM   STY 6
  49. 148 DATA 169,  6    :REM * LDA #ENDPGL
  50. 149 DATA 133,  3    :REM   STA 3
  51. 150 DATA 169,126    :REM * LDA #ENDPGH
  52. 151 DATA 133,  4    :REM   STA 4
  53. 152 DATA 160,200    :REM   LDY LENCAT
  54. 153 DATA 162,  1    :REM   LDX #1
  55. 154 DATA 104        :REM   PLA
  56. 155 :
  57. 156 :     REM SONDERZEICHEN
  58. 157 :
  59. 158 DATA 201,127    :REM   CMP #7F
  60. 159 DATA 240, 77    :REM   BEQ K
  61. 160 :
  62. 161 DATA 209,  3    :REM D CMP (3),Y
  63. 162 DATA 240,  8    :REM   BEQ E
  64. 163 DATA 136        :REM   DEY
  65. 164 DATA 136        :REM   DEY
  66. 165 DATA 136        :REM   DEY
  67. 166 DATA 136        :REM   DEY
  68. 167 DATA 208,246    :REM   BNE D
  69. 168 DATA 240, 27    :REM   BEQ G
  70. 169 DATA 192, 73    :REM E CPY #49
  71. 170 DATA 144,  8    :REM   BCC F
  72. 171 DATA  36, 15    :REM   BIT 15
  73. 172 DATA  48,  4    :REM   BMI F
  74. 173 DATA 169,  0    :REM   LDA #0
  75. 174 DATA  16, 53    :REM   BPL K
  76. 175 DATA 162,  3    :REM F LDX #3
  77. 176 DATA 136        :REM   DEY
  78. 177 DATA 177,  3    :REM   LDA (3),Y
  79. 178 DATA  72        :REM   PHA
  80. 179 DATA 136        :REM   DEY
  81. 180 DATA 177,  3    :REM   LDA (3),Y
  82. 181 DATA  72        :REM   PHA
  83. 182 DATA 136        :REM   DEY
  84. 183 DATA 177,  3    :REM   LDA (3),Y
  85. 184 DATA  16, 38    :REM   BPL K
  86. 185 :
  87. 186 :     REM ZEICHENSATZ ?
  88. 187 :
  89. 188 DATA  72        :REM G PHA
  90. 189 DATA 173, 24,208:REM   LDA VIDEO
  91. 190 DATA  41,  2    :REM   AND #02
  92. 191 DATA 208,  9    :REM   BNE H
  93. 192 :
  94. 193 :     REM 1.ZEICHENSATZ
  95. 194 :
  96. 195 DATA 104        :REM   PLA
  97. 196 DATA 201, 91    :REM   CMP #5B
  98. 197 DATA 144, 25    :REM   BCC K
  99. 198 DATA 169, 95    :REM   LDA #5F
  100. 199 DATA 176, 21    :REM   BCS K
  101. 200 :
  102. 201 :     REM 2.ZEICHENSATZ
  103. 202 :
  104. 203 DATA 104        :REM H PLA
  105. 204 DATA 201, 64    :REM   CMP #40
  106. 205 DATA 144, 10    :REM   BCC J
  107. 206 DATA 201,192    :REM   CMP #C0
  108. 207 DATA 144,  4    :REM   BCC I
  109. 208 DATA  41,127    :REM   AND #7F
  110. 209 DATA 208,  2    :REM   BNE J
  111. 210 DATA   9, 32    :REM I ORA #20
  112. 211 DATA 201,123    :REM J CMP #7A
  113. 212 DATA 144,  2    :REM   BCC K
  114. 213 DATA 169, 95    :REM   LDA #5F
  115. 214 DATA  72        :REM K PHA
  116. 215 :
  117. 216 :     REM RUECKTASTE
  118. 217 :
  119. 218 DATA 104        :REM L PLA
  120. 219 DATA 201,127    :REM   CMP #7F
  121. 220 DATA 208, 20    :REM   BNE O
  122. 221 DATA 198,  2    :REM   DEC 2
  123. 222 DATA 230,  2    :REM   INC 2
  124. 223 DATA 240, 68    :REM   BEQ T
  125. 224 DATA 198,  2    :REM   DEC 2
  126. 225 DATA 240,  8    :REM   BEQ N
  127. 226 DATA 169, 32    :REM   LDA #20
  128. 227 DATA 232        :REM M INX
  129. 228 DATA  72        :REM   PHA
  130. 229 DATA 198,  2    :REM   DEC 2
  131. 230 DATA 208,250    :REM   BNE M
  132. 231 DATA 169, 13    :REM N LDA #0D
  133. 232 :
  134. 233 :     REM DRUCKERCURSOR IN 0002
  135. 234 :
  136. 235 DATA 201, 13    :REM O CMP #0D
  137. 236 DATA 208,  6    :REM   BNE Q
  138. 237 DATA  72        :REM P PHA
  139. 238 DATA 169,  0    :REM   LDA #0
  140. 239 DATA 133,  2    :REM   STA 2
  141. 240 DATA 104        :REM   PLA
  142. 241 :
  143. 242 DATA 201, 27    :REM Q CMP #1B
  144. 243 DATA 208,  2    :REM   BNE R
  145. 244 DATA 198,  2    :REM   DEC 2
  146. 245 :
  147. 246 DATA 201, 32    :REM R CMP #20
  148. 247 DATA 144, 34    :REM   BCC U
  149. 248 :
  150. 249 DATA 201, 94    :REM   CMP #5E
  151. 250 DATA 208, 12    :REM   BNE S
  152. 251 DATA 169,127    :REM   LDA #7F
  153. 252 DATA  72        :REM   PHA
  154. 253 DATA 232        :REM   INX
  155. 254 DATA 169, 32    :REM   LDA #20
  156. 255 DATA  72        :REM   PHA
  157. 256 DATA 232        :REM   INX
  158. 257 DATA 169, 94    :REM   LDA #5E
  159. 258 DATA 208, 18    :REM   BNE U
  160. 259 :
  161. 260 DATA 201, 96    :REM S CMP #60
  162. 261 DATA 208, 12    :REM   BNE T
  163. 262 DATA 169,127    :REM   LDA #7F
  164. 263 DATA  72        :REM   PHA
  165. 264 DATA 232        :REM   INX
  166. 265 DATA 169, 32    :REM   LDA #20
  167. 266 DATA  72        :REM   PHA
  168. 267 DATA 232        :REM   INX
  169. 268 DATA 169, 96    :REM   LDA #60
  170. 269 DATA 208,  2    :REM   BNE U
  171. 270 :
  172. 271 DATA 230,  2    :REM T INC 2
  173. 272 :
  174. 273 :     REM AUSGABE
  175. 274 :
  176. 275 DATA  72        :REM U PHA
  177. 276 DATA 173, 13,221:REM V LDA FLAG
  178. 277 DATA  41, 16    :REM   AND #10
  179. 278 DATA 240,249    :REM   BEQ V
  180. 279 DATA 104        :REM   PLA
  181. 280 DATA 141,  1,221:REM   STA PORT
  182. 281 DATA 202        :REM   DEX
  183. 282 DATA 208,162    :REM   BNE L
  184. 283 DATA 166,  5    :REM   LDX 5
  185. 284 DATA 164,  6    :REM   LDY 6
  186. 285 DATA  24        :REM   CLC
  187. 286 DATA  96        :REM   RTS
  188. 287 :
  189. 288 :     REM OLYMPIADATEN
  190. 289 :
  191. 290 DATA  13, 10,  0, 13 :REM CR MIT LF
  192. 291 DATA  13,  0,  0, 11 :REM   OHNE LF
  193. 292 DATA 112,127,105,255 :REM (null)
  194. 293 DATA  96, 94, 39, 94 :REM ^
  195. 294 DATA  62,  0,  0, 64 :REM @
  196. 295 DATA  14, 47, 15, 62 :REM >
  197. 296 DATA  14, 45, 15, 60 :REM <
  198. 297 DATA 123,  0,  0,166 :REM KL AE
  199. 298 DATA 124,  0,  0,220 :REM KL OE
  200. 299 DATA 125,  0,  0,168 :REM KL UE
  201. 300 DATA 126,  0,  0, 92 :REM SZ
  202. 301 DATA  91,  0,  0,219 :REM GR AE
  203. 302 DATA  92,  0,  0,221 :REM GR OE
  204. 303 DATA  93,  0,  0,169 :REM GR UE
  205. 304 DATA  95,  0,  0,164 :REM UNTERSTR
  206. 305 DATA  14, 44, 15,186 :REM TEILUNG
  207. 306 DATA  14, 42, 15,223 :REM QUADRAT
  208. 307 DATA  14, 43, 15,192 :REM KUBIK
  209. 308 DATA  95,127, 85,145 :REM CURS U
  210. 309 DATA  95,127, 68, 17 :REM CURS D
  211. 310 DATA  95,127, 76,157 :REM CURS L
  212. 311 DATA  95,127, 82, 29 :REM CURS R
  213. 312 DATA  95,127, 67, 19 :REM CLR
  214. 313 DATA  95,127, 72,147 :REM HOME
  215. 314 DATA  95,127, 73, 18 :REM RVS
  216. 315 DATA  95,127, 78,146 :REM RVS OFF
  217. 316 DATA  95,127, 97,144 :REM SCHWARZ
  218. 317 DATA  95,127, 98,  5 :REM WEISS
  219. 318 DATA  95,127, 99, 28 :REM ROT
  220. 319 DATA  95,127,100,159 :REM CYAN
  221. 320 DATA  95,127,101,156 :REM MAGENTA
  222. 321 DATA  95,127,102, 30 :REM GRUEN
  223. 322 DATA  95,127,103, 31 :REM BLAU
  224. 323 DATA  95,127,103,158 :REM YELLOW
  225. 324 DATA  95,127,105,129 :REM ORANGE
  226. 325 DATA  95,127,106,149 :REM BRAUN
  227. 326 DATA  95,127,107,150 :REM HELLROT
  228. 327 DATA  95,127,108,151 :REM GRAU 1
  229. 328 DATA  95,127,109,152 :REM GRAU 2
  230. 329 DATA  95,127,110,153 :REM GRUEN
  231. 330 DATA  95,127,111,154 :REM HELLBLAU
  232. 331 DATA  95,127,112,155 :REM GRAU 3
  233. 332 DATA  95,127, 49,133 :REM F 1
  234. 333 DATA  95,127, 51,134 :REM F 3
  235. 334 DATA  95,127, 53,135 :REM F 5
  236. 335 DATA  95,127, 55,136 :REM F 7
  237. 336 DATA  95,127, 50,137 :REM F 2
  238. 337 DATA  95,127, 52,138 :REM F 4
  239. 338 DATA  95,127, 54,139 :REM F 6
  240. 339 DATA  95,127, 56,140 :REM F 8
  241.