home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-03_2000_CSW_Side_A.d64 / dbasiclader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  3.8 KB  |  150 lines
  1. 10 input"laufwerk";dd:rem laufwerknummer holen
  2. 15 input"name";na$:rem filename holen
  3. 20 na$=left$(na$,16)+",p,w"
  4. 30 open1,dd,7,na$:rem file oeffnen
  5. 40 readda:ifda<>-1thenprint#1,chr$(da);:goto40
  6. 50 close1
  7. 500 data 66,3
  8. 505 rem addresse der routine ($0342)
  9. 1120 data 173,2,221
  10. 1125 rem $0342 lda $dd02  ; ddra bei
  11. 1130 data 141,64,3
  12. 1135 rem $0345 sta $0340  ; $0340
  13. 1137 rem                  ; sichern
  14. 1140 data 173,3,221
  15. 1145 rem $0348 lda $dd03  ; ddrb bei
  16. 1150 data 141,65,3
  17. 1155 rem $034b sta #0341  ; $0341
  18. 1157 rem                  ; sichern
  19. 1160 data 173,60,3
  20. 1165 rem $034e lda $033c  ; low byte
  21. 1170 data 133,167
  22. 1175 rem $0351 sta $a7    ; nach $a7
  23. 1180 data 173,61,3
  24. 1185 rem $0353 lda $033d  ; high byte
  25. 1190 data 133,168
  26. 1195 rem $0356 sta $a8    ; nach $a8
  27. 1200 data 120
  28. 1205 rem $0358 sei        ; irq
  29. 1207 rem                  ; verbieten
  30. 1210 data 173,2,221
  31. 1215 rem $0359 lda $dd02  ; ddra holen
  32. 1220 data 9,4
  33. 1225 rem $035c ora #$04   ; bit 2
  34. 1227 rem                  ; setzen
  35. 1230 data 141,2,221
  36. 1235 rem $035e sta $dd02  ; nach ddra
  37. 1240 data 169,255
  38. 1245 rem $0361 lda #$ff   ; alle bits
  39. 1247 rem                  ; setzen
  40. 1250 data 141,3,221
  41. 1255 rem $0363 sta $dd03  ; in ddrb
  42. 1260 data 160,0
  43. 1265 rem $0366 ldy #$00   ; reset y reg
  44. 1270 data 174,63,3
  45. 1275 rem $0368 ldx $033f  ; laenge high
  46. 1276 rem                  ; nach x
  47. 1280 data 240,33
  48. 1285 rem $036b beq $038e  ; verzweige
  49. 1287 rem                  ; wenn 0
  50. 1290 data 173,13,221
  51. 1295 rem $036d lda $dd0d  ; hole icr
  52. 1300 data 41,16
  53. 1305 rem $0370 and #$10   ; ueberpruefe
  54. 1307 rem                  ; bit 4
  55. 1310 data 240,249
  56. 1315 rem $0372 beq $036d  ; schleife
  57. 1316 rem                  ; wenn nicht
  58. 1317 rem                  ; gesetzt
  59. 1320 data 177,167
  60. 1325 rem $0374 lda ($a7),y; lade datum
  61. 1330 data 141,1,221
  62. 1335 rem $0376 sta $dd01  ; schiebe
  63. 1336 rem                  ; nach prb
  64. 1340 data 173,0,221
  65. 1345 rem $0379 lda $dd00  ; hole pra
  66. 1350 data 41,251
  67. 1355 rem $037c and #$fb   ; loesche
  68. 1357 rem                  ; bit 2
  69. 1360 data 141,0,221
  70. 1365 rem $037e sta $dd00  ; nach pra
  71. 1370 data 9,4
  72. 1375 rem $0381 ora #$04   ; setze
  73. 1377 rem                  ; bit 2
  74. 1380 data 141,0,221
  75. 1385 rem $0383 sta $dd00  ; nach pra
  76. 1390 data 200
  77. 1395 rem $0386 iny        ; erhoehe
  78. 1396 rem                  ; y reg
  79. 1400 data 208,228
  80. 1405 rem $0387 bne $036d  ; schleife
  81. 1406 rem                  ; wenn seite
  82. 1407 rem                  ; noch nicht
  83. 1408 rem                  ; voll
  84. 1410 data 230,168
  85. 1415 rem $0389 inc $a8    ; erhoehe
  86. 1416 rem                  ; seite in
  87. 1417 rem                  ; $a8
  88. 1420 data 202
  89. 1425 rem $038b dex        ; verringere
  90. 1426 rem                  ; seitenzahl
  91. 1430 data 208,223
  92. 1435 rem $038c bne $036d  ; schleife
  93. 1436 rem                  ; wenn
  94. 1437 rem                  ; ungleich 0
  95. 1440 data 174,62,3
  96. 1445 rem $038e ldx $033e  ; laenge low
  97. 1446 rem                  ; nach x reg
  98. 1450 data 240,29
  99. 1455 rem $0391 beq $031e  ; ende wenn 0
  100. 1460 data 173,13,221
  101. 1465 rem $0393 lda $dd0d  ; hole icr
  102. 1470 data 41,16
  103. 1475 rem $0396 and #$10   ; pruefe
  104. 1477 rem                  ; bit 4
  105. 1480 data 240,249
  106. 1485 rem $0398 beq $08a8  ; schleife
  107. 1486 rem                  ; wenn nicht
  108. 1487 rem                  ; gesetzt
  109. 1490 data 177,167
  110. 1495 rem $039a lda ($a7),y; hole datum
  111. 1500 data 141,1,221
  112. 1505 rem $039c sta $dd01  ; schiebe
  113. 1506 rem                  ; nach prb
  114. 1510 data 173,0,221
  115. 1515 rem $039f lda $dd00  ; hole pra
  116. 1520 data 41,251
  117. 1525 rem $03a2 and #$fb   ; loesche
  118. 1527 rem                  ; bit 2
  119. 1530 data 141,0,221
  120. 1535 rem $03a4 sta $dd00  ; nach pra
  121. 1540 data 9,4
  122. 1545 rem $03a7 ora #$04   ; setze
  123. 1547 rem                  ; bit 2
  124. 1550 data 141,0,221
  125. 1555 rem $03a9 sta $dd00  ; nach pra
  126. 1560 data 200
  127. 1565 rem $03ac iny        ; erhoehe
  128. 1566 rem                  ; y reg
  129. 1570 data 202
  130. 1575 rem $03ad dex        ; verringere
  131. 1576 rem                  ; zaehler
  132. 1580 data 208,227
  133. 1585 rem $03ae bne $0391  ; schleife
  134. 1586 rem                  ; wenn
  135. 1587 rem                  ; ungleich 0
  136. 1590 data 173,64,3
  137. 1595 rem $03b0 lda $0340  ; hole ddra
  138. 1600 data 141,2,221
  139. 1605 rem $03b3 sta $dd02  ; zurueck
  140. 1610 data 173,65,3
  141. 1615 rem $03b6 lda $0341  ; hole ddrb
  142. 1620 data 141,3,221
  143. 1625 rem $03b9 sta $dd03  ; zurueck
  144. 1630 data 88
  145. 1635 rem $03bc cli        ; gestatte
  146. 1637 rem                  ; irq
  147. 1640 data 96
  148. 1645 rem $03bd rts        ; end
  149. 30000 data -1
  150.