home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24a.d64 / seq-transfer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  183 lines
  1. 0 GOTO 100
  2. 1 LIST 1000-2100
  3. 2 LIST 1920-2100
  4. 3 LIST 2300-2999
  5. 100 POKE 53280,0:POKE 53281,0:POKE 56325,35:POKE 646,4:POKE 650,128
  6. 110 OPEN 1,8,1,"SEQ-TRANSVER .OBJ"
  7. 120 SYS 9*4096
  8. 130 ;
  9. 140 .OPT O1
  10. 150 ;
  11. 160 *= $CD00
  12. 170 ;
  13. 180 ;
  14. 190 ;
  15. 199 ;
  16. 200 ;----------------------------------
  17. 201 ;
  18. 210 SETLFS = $FFBA   ;"LOG[164][198]ILENR.,[199]ERAETNR.,[211]KUNDADR. SETZEN
  19. 220 SETNAM [178] $FFBD   ;"ASCILENAME SETZEN
  20. 230 OPEN   = $FFC0   ;"[198]ILE OEFFNEN
  21. 240 [135]ST [178] $FFB7   ;"(null)TATUSVARIABLE LESEN
  22. 290 CLOSE  = $FFC3   ;"[198]ILE SCHLIESSEN
  23. 295 CHKIN  [178] $FFC6   ;"ASCILE AUF VALINGABE SETZEN
  24. 300 CHKOUT = $FFC9   ;"[198]ILE AUF [193]USGABE SETZEN
  25. 310 CHROUT [178] $FFD2   ;"(null)EICHEN AUSGEBEN
  26. 315 CHRIN  = $FFCF   ;"[218]EICHEN HOLEN
  27. 320 [156]CHN [178] $FFCC   ;"(null)TANDARDWERTE FUER RIGHT$/(null) SETZEN
  28. 330 ;
  29. 370 CHCKOM = $AEFD   ;"[193]UF [203]OMMA TESTEN
  30. 380 FRMEVL [178] $AD9E   ;"ATNUSDRUCK AUSWERTEN
  31. 390 FRESTR = $B6A6   ;"WEITERE [193]USWERTUNGEN FUER [211]TRINGS
  32. 400 [161]BYT [178] $B79E   ;"PEEKYTE HOLEN
  33. 410 ;
  34. 500 PT     = $22     ;"[218]EIGER AUF  [212]EXTENDE
  35. 510 HPT    [178] $14     ;"ZU SENDENDES PEEKYTE
  36. 520 MCONV  = $02     ;"[198]LAG FUER [193][211][195][201][201]-[203]ONVERTIERUNG
  37. 530 SYNERR [178] $AF08   ;"?(null)(null)(null)(null)ATN(null) VAL(null)(null)(null)(null) AUSGEBEN
  38. 600 BUF    = $CE00   ;"[194]UFFER FUER [210][211] 232
  39. 610 RIBUF  [178] $F7     ;"(null)EIGER AUF VALINGABEBUFFER
  40. 620 ROBUF  = $F9     ;"[218]EIGER AUF [193]USGABEBUFFER
  41. 700 START  [178] $0801   ;"(null)ADEADRESSE FUER (null)VAL(null)-ASCILE
  42. 710 ENABLE = $02A1   ;"[210][211] 232 [198]LAG: [193]LLE [218]EICHEN GESENDET?
  43. 1000 ;
  44. 1001 ;"--------------------------------
  45. 1002 ;"- [211][197][209]-[212]RANSFER -- VERSION 1.0 --
  46. 1003 ;"- (null)VAL(null)-ASCILES MIT 4800 PEEKAUD ------
  47. 1004 ;"- UEBER [210][211] 232 SENDEN ----------
  48. 1005 ;"- GESCHRIEBEN VON --------------
  49. 1006 ;"-- [205]ARTIN [205]UELLER --------------
  50. 1007 ;"- (C) BY ATNRND (null)AENGLER, 64'ER --
  51. 1008 ;"--------------------------------
  52. 1009 ;
  53. 1010 BAUDIN JSR CHCKOM     ;"ATNUF (null)OMMA TESTEN
  54. 1012 ^      JSR GETBYT     ;"[203]ONVERTIERUNGSFLAG NACH
  55. 1014 [174]      STX MC[145]V      ;"MCONV HOLEN
  56. 1016 ^      JSR CHCKOM     ;"[193]UF [203]OMMA TESTEN
  57. 1020 [174]      JSR FRMEVL     ;"ATNUSDRUCK AUSWERTEN
  58. 1030 ^      JSR FRESTR     ;"[211]TRINGAUSWERTUNGEN
  59. 1040 [174]      CMP #5         ;"(null)AENGE DES (null)TRINGS < 5CLOSE?
  60. 1050 ^      BCS BAUDW1     ;"[206]EIN: => WEITER
  61. 1060 [174]      JMP SYNERR     ;"(null)ONST: (null)(null)(null)(null)ATN(null) VAL(null)(null)(null)(null)CLOSEMELDEN
  62. 1070 BAUDW1 LDX PT         ;"[211]TRINGADRESSE ALS
  63. 1080 [174]      LDY PT [170] 1     ;"ATNDRESSE DES ASCILENAMEN
  64. 1090 ^      JSR SETNAM     ;"DEM [207][211] UEBERGEBEN
  65. 1100 [174]      LDA #1         ;"LOGISCHE ASCILENUMMER: 1
  66. 1110 ^      LDX #8         ;"[199]ERAETENUMMER: 8
  67. 1120 [174]      LDY #2         ;"(null)EKUNDAERADRESSE: 2
  68. 1130 ^      JSR SETLFS     ;"SETZEN
  69. 1140 [174]      JSR [159]       ;"STR$ATEI EROEFFNEN
  70. 1150 ^      JSR READST     ;"[198]EHLERMELDUNG HOLEN
  71. 1155 [174]      BEQ BAUD21     ;"(null)EIN ASCEHLER: => WEITER
  72. 1160 BAUDW2 JSR CLRCHN     ;"[211]TANDARTWERE FUER [201]/[207] SETZEN
  73. 1165 [174]      LDA #1         ;"ASCILE SCHLIESSEN
  74. 1170 ^      JMP CLOSE      ;"[218]URUECK
  75. 1180 ;
  76. 1190 BAUD21 LDX #1         ;"ASCILE ALS VALINGABEFILE
  77. 1200 ^      JSR CHKIN      ;"DEFINIEREN
  78. 1210 [174]      JSR [135]ST     ;"ASCEHLER AUFGETRETEN?
  79. 1220 ^      BNE BAUDW2     ;"[202][193]: => [218]URUECK NACH [194][193][211][201][195]
  80. 1230 [174]      LDX #[179]START    ;"ATNDRESSE, AB DER DIE
  81. 1240 ^      LDY #>START    ;"[196]ATEN DES [211][197][209]-[198]ILE ABGELEGT
  82. 1250 [174]      STX PT         ;"WERDEN, ALS (null)EIGER MERKEN
  83. 1260 ^      STY PT + 1     ;"(= [194]ASICANFANG)
  84. 1270 ;
  85. 1280 BAUDL1 JSR CHRIN      ;"(null)EICHEN VOM ASCILE HOLEN
  86. 1290 ^      LDY #0         ;"UND IN DEN [211]PEICHER
  87. 1300 [174]      STA (PT),Y     ;"SCHREIBEN
  88. 1310 ^      INC PT         ;"[218]EIGER UM
  89. 1320 [174]      BNE BAUDW3     ;"EINS ERHOEHEN
  90. 1330 ^      INC PT + 1
  91. 1340 ;
  92. 1350 BAUDW3 JSR READST     ;"[198]EHLER AUFGETRETEN?
  93. 1360 [174]      BEQ BAUDL1     ;"(null)VALRIGHT$(null): => WEITER
  94. 1370 ^      AND #%01000000 ;"[198]ILE ZU ENDE?
  95. 1390 [174]      BEQ BAUDW2     ;"(null)VALRIGHT$(null): => (null)URUECK NACH PEEKATN(null)RIGHT$LEN
  96. 1420 ;
  97. 1430 BAUDW4 JSR BAUDW2     ;"[196]ATEI SCHLIESSEN
  98. 1460 ;"(null)(null) 232 (null)CHNITTSTELLE OEFFNEN
  99. 1470 ;"4800 [194]AUD, 8 [196]ATENBITS, 1 [211]TOPBIT
  100. 1480 ;"(null)ARITY DISABLED, 3-(null)INE LEFT$ANDSHAKE,
  101. 1485 ;"[198]ULL [196]UPLEX
  102. 1490 [174]      LDA #1         ;"(null)OGISCHE ASCILENUMMER: 1
  103. 1500 ^      LDX #2         ;"[199]ERAETENUMMER: 2
  104. 1510 [174]      LDY #3         ;"(null)EKUNDAERADRESSE: 3
  105. 1520 ^      JSR SETLFS     ;"SETZEN
  106. 1530 [174]      LDA #4         ;"(null)ERTE FUER
  107. 1540 ^      LDX #<RSNAM    ;"[210][211] 232
  108. 1550 [174]      LDY #[177]RSNAM    ;"SETZEN
  109. 1560 ^      JSR SETNAM
  110. 1570 ^      JSR OPEN       ;"[198]ILE OEFFNEN
  111. 1580 [174]      LDX #3         ;"(null)EIGER FUER (null)(null) 232 PEEKUFFER
  112. 1590 BAUDL9 LDA RSTAB,X    ;"SETZEN
  113. 1600 [174]      STA RIBUF,X
  114. 1610 [174]      DEX
  115. 1620 [174]      BPL BAUDL9
  116. 1650 ;
  117. 1660 [174]      LDX #1         ;"ASCILE ALS ATNUSGABEFILE
  118. 1670 ^      JSR CHKOUT     ;"DEKLARIEREN
  119. 1680 [174]      LDX #[179]START    ;"(null)TARTADRESSE FUER
  120. 1690 ^      LDY #>START    ;"DAS [211][197][209]-[198]ILE ALS [218]EIGER
  121. 1700 [174]      STX HPT        ;"MERKEN
  122. 1710 ^      STY HPT + 1
  123. 1712 ^      LDA 56334      ;"[212]IMERIRQ SPERREN
  124. 1714 [174]      [175] #254
  125. 1716 [174]      STA 56334
  126. 1720 ;
  127. 1730 BAUDL2 LDY #0         ;"ATNKTUELLES (null)EICHEN
  128. 1740 ^      LDA (HPT),Y    ;"HOLEN
  129. 1750 [174]      BIT MC[145]V      ;"(null)EICHEN KONVERTIEREN?
  130. 1760 ^      BMI BAUD51     ;"[206][197][201][206]: => WEITER
  131. 1770 [174]      CMP #65        ;"(null)ONST: LENOMMODORE'ATN(null)LENRIGHT$RIGHT$'
  132. 1780 ^      BCC BAUDW5     ;"NACH [193][211][195][201][201]
  133. 1790 [174]      CMP #128
  134. 1800 [174]      BCS BAUD41
  135. 1810 [174]      [176]A #%00100000
  136. 1820 [174]      BNE BAUDW5
  137. 1830 BAUD41 CMP #192
  138. 1840 [174]      BCC BAUDW5
  139. 1850 [174]      SEC
  140. 1860 [174]      SBC #128
  141. 1870 BAUDW5 [175] #%01111111
  142. 1880 BAUD51 TAX            ;"(null)EICHEN MERKEN
  143. 1890 BAUDL3 LDA ENABLE     ;"[201]ST DAS VORHERIGE [218]EICHEN
  144. 1900 [174]      [175] #%00000001 ;"SCHON GESENDET WORDEN
  145. 1910 ^      BNE BAUDL3     ;"[206][197][201][206]: => [215]EITER
  146. 1915 [174]      TXA            ;"(null)EICHEN ZURUECKHOLEN
  147. 1917 ^      JSR CHROUT     ;"UND UEBER [210][211] 232 AUSGEBEN
  148. 1920 ;
  149. 1930 [174]      INC HPT        ;"(null)EIGER AUF AKTUELLES
  150. 1940 ^      BNE BAUDW6     ;"[218]EICHEN UM EINS
  151. 1950 [174]      INC HPT [170] 1    ;"INCREMENTIEREN
  152. 1960 BAUDW6 LDA PT         ;"[201]ST BEREITS DAS
  153. 1970 [174]      CMP HPT        ;"LETZTE (null)EICHEN
  154. 1980 ^      BNE BAUDL2     ;"UEBERTRAGEN WORDEN
  155. 1990 [174]      LDA PT [170] 1     ;"(null)VALRIGHT$(null): => (null)EITER UEBERTRAGEN
  156. 2000 ^      CMP HPT + 1
  157. 2010 ^      BNE BAUDL2
  158. 2020 ;
  159. 2022 BAUDL4 LDA ENABLE     ;"[211]ONST WARTEN, BIS DAS [218]EICHEN
  160. 2024 [174]      [175] #%00000001 ;"SCHON GESCHICKT WORDEN IST!
  161. 2026 ^      BNE BAUDL4
  162. 2040 ^      JSR BAUDW2     ;"[198]ILE SCHLIESSEN
  163. 2060 ;
  164. 2070 [174]      LDA 56334      ;"(null)IMERIRQS WIEDER
  165. 2080 ^      ORA #1         ;"ERLAUBEN
  166. 2090 [174]      STA 56334
  167. 2100 [174]      RTS            ;"(null)ROGRAMMENDE
  168. 2300 RSNAM .BYTE %00000000 ;"1 [211]TOPBIT,8 [196]ATENBITS,4800 [194]AUD
  169. 2310 [174]     .BYTE %00000000 ;"(null)ARITY DISABLED,ASCULL STR$UPLEX,
  170. 2315 ;"3-[204]INE [200]ANDSHAKE
  171. 2320 [174]     .BYTE 2         ;"(null)ERTE FUER 4800 PEEKAUD
  172. 2330 ^     .BYTE 0
  173. 2340 ;
  174. 2350 RSTAB .BYTE <BUF         ;"[212]ABELLEN FUER [193]DRESSEN
  175. 2360 [174]     .BYTE [177]BUF         ;"DER (null)(null) 232 PEEKUFFER
  176. 2370 ^     .BYTE <(BUF + 256)
  177. 2380 ^     .BYTE >(BUF + 256)
  178. 60000 .END
  179. 60010 END
  180. 60100 OPEN 15,8,15,"S:SEQ-TRANSVER"
  181. 60110 CLOSE 15
  182. 60120 SAVE "SEQ-TRANSVER",8
  183.