home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8611a.d64
/
seq-transfer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
6KB
|
183 lines
0 GOTO 100
1 LIST 1000-2100
2 LIST 1920-2100
3 LIST 2300-2999
100 POKE 53280,0:POKE 53281,0:POKE 56325,35:POKE 646,4:POKE 650,128
110 OPEN 1,8,1,"SEQ-TRANSVER .OBJ"
120 SYS 9*4096
130 ;
140 .OPT O1
150 ;
160 *= $CD00
170 ;
180 ;
190 ;
199 ;
200 ;----------------------------------
201 ;
210 SETLFS = $FFBA ;"LOG[164][198]ILENR.,[199]ERAETNR.,[211]KUNDADR. SETZEN
220 SETNAM [178] $FFBD ;"ASCILENAME SETZEN
230 OPEN = $FFC0 ;"[198]ILE OEFFNEN
240 [135]ST [178] $FFB7 ;"(null)TATUSVARIABLE LESEN
290 CLOSE = $FFC3 ;"[198]ILE SCHLIESSEN
295 CHKIN [178] $FFC6 ;"ASCILE AUF VALINGABE SETZEN
300 CHKOUT = $FFC9 ;"[198]ILE AUF [193]USGABE SETZEN
310 CHROUT [178] $FFD2 ;"(null)EICHEN AUSGEBEN
315 CHRIN = $FFCF ;"[218]EICHEN HOLEN
320 [156]CHN [178] $FFCC ;"(null)TANDARDWERTE FUER RIGHT$/(null) SETZEN
330 ;
370 CHCKOM = $AEFD ;"[193]UF [203]OMMA TESTEN
380 FRMEVL [178] $AD9E ;"ATNUSDRUCK AUSWERTEN
390 FRESTR = $B6A6 ;"WEITERE [193]USWERTUNGEN FUER [211]TRINGS
400 [161]BYT [178] $B79E ;"PEEKYTE HOLEN
410 ;
500 PT = $22 ;"[218]EIGER AUF [212]EXTENDE
510 HPT [178] $14 ;"ZU SENDENDES PEEKYTE
520 MCONV = $02 ;"[198]LAG FUER [193][211][195][201][201]-[203]ONVERTIERUNG
530 SYNERR [178] $AF08 ;"?(null)(null)(null)(null)ATN(null) VAL(null)(null)(null)(null) AUSGEBEN
600 BUF = $CE00 ;"[194]UFFER FUER [210][211] 232
610 RIBUF [178] $F7 ;"(null)EIGER AUF VALINGABEBUFFER
620 ROBUF = $F9 ;"[218]EIGER AUF [193]USGABEBUFFER
700 START [178] $0801 ;"(null)ADEADRESSE FUER (null)VAL(null)-ASCILE
710 ENABLE = $02A1 ;"[210][211] 232 [198]LAG: [193]LLE [218]EICHEN GESENDET?
1000 ;
1001 ;"--------------------------------
1002 ;"- [211][197][209]-[212]RANSFER -- VERSION 1.0 --
1003 ;"- (null)VAL(null)-ASCILES MIT 4800 PEEKAUD ------
1004 ;"- UEBER [210][211] 232 SENDEN ----------
1005 ;"- GESCHRIEBEN VON --------------
1006 ;"-- [205]ARTIN [205]UELLER --------------
1007 ;"- (C) BY ATNRND (null)AENGLER, 64'ER --
1008 ;"--------------------------------
1009 ;
1010 BAUDIN JSR CHCKOM ;"ATNUF (null)OMMA TESTEN
1012 ^ JSR GETBYT ;"[203]ONVERTIERUNGSFLAG NACH
1014 [174] STX MC[145]V ;"MCONV HOLEN
1016 ^ JSR CHCKOM ;"[193]UF [203]OMMA TESTEN
1020 [174] JSR FRMEVL ;"ATNUSDRUCK AUSWERTEN
1030 ^ JSR FRESTR ;"[211]TRINGAUSWERTUNGEN
1040 [174] CMP #5 ;"(null)AENGE DES (null)TRINGS < 5CLOSE?
1050 ^ BCS BAUDW1 ;"[206]EIN: => WEITER
1060 [174] JMP SYNERR ;"(null)ONST: (null)(null)(null)(null)ATN(null) VAL(null)(null)(null)(null)CLOSEMELDEN
1070 BAUDW1 LDX PT ;"[211]TRINGADRESSE ALS
1080 [174] LDY PT [170] 1 ;"ATNDRESSE DES ASCILENAMEN
1090 ^ JSR SETNAM ;"DEM [207][211] UEBERGEBEN
1100 [174] LDA #1 ;"LOGISCHE ASCILENUMMER: 1
1110 ^ LDX #8 ;"[199]ERAETENUMMER: 8
1120 [174] LDY #2 ;"(null)EKUNDAERADRESSE: 2
1130 ^ JSR SETLFS ;"SETZEN
1140 [174] JSR [159] ;"STR$ATEI EROEFFNEN
1150 ^ JSR READST ;"[198]EHLERMELDUNG HOLEN
1155 [174] BEQ BAUD21 ;"(null)EIN ASCEHLER: => WEITER
1160 BAUDW2 JSR CLRCHN ;"[211]TANDARTWERE FUER [201]/[207] SETZEN
1165 [174] LDA #1 ;"ASCILE SCHLIESSEN
1170 ^ JMP CLOSE ;"[218]URUECK
1180 ;
1190 BAUD21 LDX #1 ;"ASCILE ALS VALINGABEFILE
1200 ^ JSR CHKIN ;"DEFINIEREN
1210 [174] JSR [135]ST ;"ASCEHLER AUFGETRETEN?
1220 ^ BNE BAUDW2 ;"[202][193]: => [218]URUECK NACH [194][193][211][201][195]
1230 [174] LDX #[179]START ;"ATNDRESSE, AB DER DIE
1240 ^ LDY #>START ;"[196]ATEN DES [211][197][209]-[198]ILE ABGELEGT
1250 [174] STX PT ;"WERDEN, ALS (null)EIGER MERKEN
1260 ^ STY PT + 1 ;"(= [194]ASICANFANG)
1270 ;
1280 BAUDL1 JSR CHRIN ;"(null)EICHEN VOM ASCILE HOLEN
1290 ^ LDY #0 ;"UND IN DEN [211]PEICHER
1300 [174] STA (PT),Y ;"SCHREIBEN
1310 ^ INC PT ;"[218]EIGER UM
1320 [174] BNE BAUDW3 ;"EINS ERHOEHEN
1330 ^ INC PT + 1
1340 ;
1350 BAUDW3 JSR READST ;"[198]EHLER AUFGETRETEN?
1360 [174] BEQ BAUDL1 ;"(null)VALRIGHT$(null): => WEITER
1370 ^ AND #%01000000 ;"[198]ILE ZU ENDE?
1390 [174] BEQ BAUDW2 ;"(null)VALRIGHT$(null): => (null)URUECK NACH PEEKATN(null)RIGHT$LEN
1420 ;
1430 BAUDW4 JSR BAUDW2 ;"[196]ATEI SCHLIESSEN
1460 ;"(null)(null) 232 (null)CHNITTSTELLE OEFFNEN
1470 ;"4800 [194]AUD, 8 [196]ATENBITS, 1 [211]TOPBIT
1480 ;"(null)ARITY DISABLED, 3-(null)INE LEFT$ANDSHAKE,
1485 ;"[198]ULL [196]UPLEX
1490 [174] LDA #1 ;"(null)OGISCHE ASCILENUMMER: 1
1500 ^ LDX #2 ;"[199]ERAETENUMMER: 2
1510 [174] LDY #3 ;"(null)EKUNDAERADRESSE: 3
1520 ^ JSR SETLFS ;"SETZEN
1530 [174] LDA #4 ;"(null)ERTE FUER
1540 ^ LDX #<RSNAM ;"[210][211] 232
1550 [174] LDY #[177]RSNAM ;"SETZEN
1560 ^ JSR SETNAM
1570 ^ JSR OPEN ;"[198]ILE OEFFNEN
1580 [174] LDX #3 ;"(null)EIGER FUER (null)(null) 232 PEEKUFFER
1590 BAUDL9 LDA RSTAB,X ;"SETZEN
1600 [174] STA RIBUF,X
1610 [174] DEX
1620 [174] BPL BAUDL9
1650 ;
1660 [174] LDX #1 ;"ASCILE ALS ATNUSGABEFILE
1670 ^ JSR CHKOUT ;"DEKLARIEREN
1680 [174] LDX #[179]START ;"(null)TARTADRESSE FUER
1690 ^ LDY #>START ;"DAS [211][197][209]-[198]ILE ALS [218]EIGER
1700 [174] STX HPT ;"MERKEN
1710 ^ STY HPT + 1
1712 ^ LDA 56334 ;"[212]IMERIRQ SPERREN
1714 [174] [175] #254
1716 [174] STA 56334
1720 ;
1730 BAUDL2 LDY #0 ;"ATNKTUELLES (null)EICHEN
1740 ^ LDA (HPT),Y ;"HOLEN
1750 [174] BIT MC[145]V ;"(null)EICHEN KONVERTIEREN?
1760 ^ BMI BAUD51 ;"[206][197][201][206]: => WEITER
1770 [174] CMP #65 ;"(null)ONST: LENOMMODORE'ATN(null)LENRIGHT$RIGHT$'
1780 ^ BCC BAUDW5 ;"NACH [193][211][195][201][201]
1790 [174] CMP #128
1800 [174] BCS BAUD41
1810 [174] [176]A #%00100000
1820 [174] BNE BAUDW5
1830 BAUD41 CMP #192
1840 [174] BCC BAUDW5
1850 [174] SEC
1860 [174] SBC #128
1870 BAUDW5 [175] #%01111111
1880 BAUD51 TAX ;"(null)EICHEN MERKEN
1890 BAUDL3 LDA ENABLE ;"[201]ST DAS VORHERIGE [218]EICHEN
1900 [174] [175] #%00000001 ;"SCHON GESENDET WORDEN
1910 ^ BNE BAUDL3 ;"[206][197][201][206]: => [215]EITER
1915 [174] TXA ;"(null)EICHEN ZURUECKHOLEN
1917 ^ JSR CHROUT ;"UND UEBER [210][211] 232 AUSGEBEN
1920 ;
1930 [174] INC HPT ;"(null)EIGER AUF AKTUELLES
1940 ^ BNE BAUDW6 ;"[218]EICHEN UM EINS
1950 [174] INC HPT [170] 1 ;"INCREMENTIEREN
1960 BAUDW6 LDA PT ;"[201]ST BEREITS DAS
1970 [174] CMP HPT ;"LETZTE (null)EICHEN
1980 ^ BNE BAUDL2 ;"UEBERTRAGEN WORDEN
1990 [174] LDA PT [170] 1 ;"(null)VALRIGHT$(null): => (null)EITER UEBERTRAGEN
2000 ^ CMP HPT + 1
2010 ^ BNE BAUDL2
2020 ;
2022 BAUDL4 LDA ENABLE ;"[211]ONST WARTEN, BIS DAS [218]EICHEN
2024 [174] [175] #%00000001 ;"SCHON GESCHICKT WORDEN IST!
2026 ^ BNE BAUDL4
2040 ^ JSR BAUDW2 ;"[198]ILE SCHLIESSEN
2060 ;
2070 [174] LDA 56334 ;"(null)IMERIRQS WIEDER
2080 ^ ORA #1 ;"ERLAUBEN
2090 [174] STA 56334
2100 [174] RTS ;"(null)ROGRAMMENDE
2300 RSNAM .BYTE %00000000 ;"1 [211]TOPBIT,8 [196]ATENBITS,4800 [194]AUD
2310 [174] .BYTE %00000000 ;"(null)ARITY DISABLED,ASCULL STR$UPLEX,
2315 ;"3-[204]INE [200]ANDSHAKE
2320 [174] .BYTE 2 ;"(null)ERTE FUER 4800 PEEKAUD
2330 ^ .BYTE 0
2340 ;
2350 RSTAB .BYTE <BUF ;"[212]ABELLEN FUER [193]DRESSEN
2360 [174] .BYTE [177]BUF ;"DER (null)(null) 232 PEEKUFFER
2370 ^ .BYTE <(BUF + 256)
2380 ^ .BYTE >(BUF + 256)
60000 .END
60010 END
60100 OPEN 15,8,15,"S:SEQ-TRANSVER"
60110 CLOSE 15
60120 SAVE "SEQ-TRANSVER",8