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 #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 + 256) 60000 .END 60010 END 60100 OPEN 15,8,15,"S:SEQ-TRANSVER" 60110 CLOSE 15 60120 SAVE "SEQ-TRANSVER",8