home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / olymp.-comp.-2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.