SEQ-TRANSFER
FILE INFORMATION
FILENAME(S): SEQ-TRANSFER
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 3 disk(s)
FILE HASH
dcb6a3ad3087f6aa6aa80df5ac60220df4a159126accd3f0c15e25ae532f4a77
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 8611A | SEQ-TRANSFER | PRG | C64er | 22 | 1 | DOWNLOAD FILE |
| 15724 SEITE A | SEQ-TRANSFER | PRG | C64er, DuncanTwain | 30 | 1 | DOWNLOAD FILE |
| L68611D VORDERS | SEQ-TRANSFER | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 89 20 31 30 30 00 1B 08 01 00 |....... 100.....|
00000010: 9B 20 31 30 30 30 AB 32 31 30 30 00 2B 08 02 00 |. 1000.2100.+...|
00000020: 9B 20 31 39 32 30 AB 32 31 30 30 00 3B 08 03 00 |. 1920.2100.;...|
00000030: 9B 20 32 33 30 30 AB 32 39 39 39 00 70 08 64 00 |. 2300.2999.p.d.|
00000040: 97 20 35 33 32 38 30 2C 30 3A 97 20 35 33 32 38 |. 53280,0:. 5328|
00000050: 31 2C 30 3A 97 20 35 36 33 32 35 2C 33 35 3A 97 |1,0:. 56325,35:.|
00000060: 20 36 34 36 2C 34 3A 97 20 36 35 30 2C 31 32 38 | 646,4:. 650,128|
00000070: 00 90 08 6E 00 9F 20 31 2C 38 2C 31 2C 22 53 45 |...n.. 1,8,1,"SE|
00000080: 51 2D 54 52 41 4E 53 56 45 52 20 2E 4F 42 4A 22 |Q-TRANSVER .OBJ"|
00000090: 00 9D 08 78 00 9E 20 39 AC 34 30 39 36 00 A3 08 |...x.. 9.4096...|
000000A0: 82 00 3B 00 AF 08 8C 00 2E 4F 50 54 20 4F 31 00 |..;......OPT O1.|
000000B0: B5 08 96 00 3B 00 C2 08 A0 00 AC B2 20 24 43 44 |....;....... $CD|
000000C0: 30 30 00 C8 08 AA 00 3B 00 CE 08 B4 00 3B 00 D4 |00.....;.....;..|
000000D0: 08 BE 00 3B 00 DA 08 C7 00 3B 00 02 09 C8 00 3B |...;.....;.....;|
000000E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000000F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000100: AB AB 00 08 09 C9 00 3B 00 46 09 D2 00 53 45 54 |.......;.F...SET|
00000110: 4C 46 53 20 B2 20 24 46 46 42 41 20 20 20 3B 22 |LFS . $FFBA ;"|
00000120: 4C 4F 47 A4 C6 49 4C 45 4E 52 2E 2C C7 45 52 41 |LOG..ILENR.,.ERA|
00000130: 45 54 4E 52 2E 2C D3 4B 55 4E 44 41 44 52 2E 20 |ETNR.,.KUNDADR. |
00000140: 53 45 54 5A 45 4E 00 6D 09 DC 00 53 45 54 4E 41 |SETZEN.m...SETNA|
00000150: 4D 20 B2 20 24 46 46 42 44 20 20 20 3B 22 C6 49 |M . $FFBD ;".I|
00000160: 4C 45 4E 41 4D 45 20 53 45 54 5A 45 4E 00 8E 09 |LENAME SETZEN...|
00000170: E6 00 9F 20 20 20 B2 20 24 46 46 43 30 20 20 20 |... . $FFC0 |
00000180: 3B 22 C6 49 4C 45 20 4F 45 46 46 4E 45 4E 00 B7 |;".ILE OEFFNEN..|
00000190: 09 F0 00 87 53 54 20 B2 20 24 46 46 42 37 20 20 |....ST . $FFB7 |
000001A0: 20 3B 22 D3 54 41 54 55 53 56 41 52 49 41 42 4C | ;".TATUSVARIABL|
000001B0: 45 20 4C 45 53 45 4E 00 DA 09 22 01 A0 20 20 B2 |E LESEN...".. .|
000001C0: 20 24 46 46 43 33 20 20 20 3B 22 C6 49 4C 45 20 | $FFC3 ;".ILE |
000001D0: 53 43 48 4C 49 45 53 53 45 4E 00 09 0A 27 01 43 |SCHLIESSEN...'.C|
000001E0: 48 4B 49 4E 20 20 B2 20 24 46 46 43 36 20 20 20 |HKIN . $FFC6 |
000001F0: 3B 22 C6 49 4C 45 20 41 55 46 20 C5 49 4E 47 41 |;".ILE AUF .INGA|
00000200: 42 45 20 53 45 54 5A 45 4E 00 38 0A 2C 01 43 48 |BE SETZEN.8.,.CH|
00000210: 4B 4F 55 54 20 B2 20 24 46 46 43 39 20 20 20 3B |KOUT . $FFC9 ;|
00000220: 22 C6 49 4C 45 20 41 55 46 20 C1 55 53 47 41 42 |".ILE AUF .USGAB|
00000230: 45 20 53 45 54 5A 45 4E 00 60 0A 36 01 43 48 52 |E SETZEN.`.6.CHR|
00000240: 4F 55 54 20 B2 20 24 46 46 44 32 20 20 20 3B 22 |OUT . $FFD2 ;"|
00000250: DA 45 49 43 48 45 4E 20 41 55 53 47 45 42 45 4E |.EICHEN AUSGEBEN|
00000260: 00 85 0A 3B 01 43 48 52 49 4E 20 20 B2 20 24 46 |...;.CHRIN . $F|
00000270: 46 43 46 20 20 20 3B 22 DA 45 49 43 48 45 4E 20 |FCF ;".EICHEN |
00000280: 48 4F 4C 45 4E 00 B8 0A 40 01 9C 43 48 4E 20 B2 |HOLEN...@..CHN .|
00000290: 20 24 46 46 43 43 20 20 20 3B 22 D3 54 41 4E 44 | $FFCC ;".TAND|
000002A0: 41 52 44 57 45 52 54 45 20 46 55 45 52 20 C9 2F |ARDWERTE FUER ./|
000002B0: CF 20 53 45 54 5A 45 4E 00 BE 0A 4A 01 3B 00 E6 |. SETZEN...J.;..|
000002C0: 0A 72 01 43 48 43 4B 4F 4D 20 B2 20 24 41 45 46 |.r.CHCKOM . $AEF|
000002D0: 44 20 20 20 3B 22 C1 55 46 20 CB 4F 4D 4D 41 20 |D ;".UF .OMMA |
000002E0: 54 45 53 54 45 4E 00 10 0B 7C 01 46 52 4D 45 56 |TESTEN...|.FRMEV|
000002F0: 4C 20 B2 20 24 41 44 39 45 20 20 20 3B 22 C1 55 |L . $AD9E ;".U|
00000300: 53 44 52 55 43 4B 20 41 55 53 57 45 52 54 45 4E |SDRUCK AUSWERTEN|
00000310: 00 47 0B 86 01 B8 53 54 52 20 B2 20 24 42 36 41 |.G....STR . $B6A|
00000320: 36 20 20 20 3B 22 57 45 49 54 45 52 45 20 C1 55 |6 ;"WEITERE .U|
00000330: 53 57 45 52 54 55 4E 47 45 4E 20 46 55 45 52 20 |SWERTUNGEN FUER |
00000340: D3 54 52 49 4E 47 53 00 67 0B 90 01 A1 42 59 54 |.TRINGS.g....BYT|
00000350: 20 B2 20 24 42 37 39 45 20 20 20 3B 22 C2 59 54 | . $B79E ;".YT|
00000360: 45 20 48 4F 4C 45 4E 00 6D 0B 9A 01 3B 00 99 0B |E HOLEN.m...;...|
00000370: F4 01 50 54 20 20 20 20 20 B2 20 24 32 32 20 20 |..PT . $22 |
00000380: 20 20 20 3B 22 DA 45 49 47 45 52 20 41 55 46 20 | ;".EIGER AUF |
00000390: 20 D4 45 58 54 45 4E 44 45 00 C2 0B FE 01 48 50 | .EXTENDE.....HP|
000003A0: 54 20 20 20 20 B2 20 24 31 34 20 20 20 20 20 3B |T . $14 ;|
000003B0: 22 5A 55 20 53 45 4E 44 45 4E 44 45 53 20 C2 59 |"ZU SENDENDES .Y|
000003C0: 54 45 00 F6 0B 08 02 4D 43 91 56 20 20 B2 20 24 |TE.....MC.V . $|
000003D0: 30 32 20 20 20 20 20 3B 22 C6 4C 41 47 20 46 55 |02 ;".LAG FU|
000003E0: 45 52 20 C1 D3 C3 C9 C9 2D CB 4F 4E 56 45 52 54 |ER .....-.ONVERT|
000003F0: 49 45 52 55 4E 47 00 24 0C 12 02 53 59 4E 45 52 |IERUNG.$...SYNER|
00000400: 52 20 B2 20 24 41 46 30 38 20 20 20 3B 22 3F D3 |R . $AF08 ;"?.|
00000410: D9 CE D4 C1 D8 20 C5 D2 D2 CF D2 20 41 55 53 47 |..... ..... AUSG|
00000420: 45 42 45 4E 00 4E 0C 58 02 42 55 46 20 20 20 20 |EBEN.N.X.BUF |
00000430: B2 20 24 43 45 30 30 20 20 20 3B 22 C2 55 46 46 |. $CE00 ;".UFF|
00000440: 45 52 20 46 55 45 52 20 D2 D3 20 32 33 32 00 7E |ER FUER .. 232.~|
00000450: 0C 62 02 52 49 42 55 46 20 20 B2 20 24 46 37 20 |.b.RIBUF . $F7 |
00000460: 20 20 20 20 3B 22 DA 45 49 47 45 52 20 41 55 46 | ;".EIGER AUF|
00000470: 20 C5 49 4E 47 41 42 45 42 55 46 46 45 52 00 AE | .INGABEBUFFER..|
00000480: 0C 6C 02 52 4F 42 55 46 20 20 B2 20 24 46 39 20 |.l.ROBUF . $F9 |
00000490: 20 20 20 20 3B 22 DA 45 49 47 45 52 20 41 55 46 | ;".EIGER AUF|
000004A0: 20 C1 55 53 47 41 42 45 42 55 46 46 45 52 00 DF | .USGABEBUFFER..|
000004B0: 0C BC 02 53 54 41 52 54 20 20 B2 20 24 30 38 30 |...START . $080|
000004C0: 31 20 20 20 3B 22 CC 41 44 45 41 44 52 45 53 53 |1 ;".ADEADRESS|
000004D0: 45 20 46 55 45 52 20 D3 C5 D1 2D C6 49 4C 45 00 |E FUER ...-.ILE.|
000004E0: 1A 0D C6 02 45 4E 41 42 4C 45 20 B2 20 24 30 32 |....ENABLE . $02|
000004F0: 41 31 20 20 20 3B 22 D2 D3 20 32 33 32 20 C6 4C |A1 ;".. 232 .L|
00000500: 41 47 3A 20 C1 4C 4C 45 20 DA 45 49 43 48 45 4E |AG: .LLE .EICHEN|
00000510: 20 47 45 53 45 4E 44 45 54 3F 00 20 0D E8 03 3B | GESENDET?. ...;|
00000520: 00 47 0D E9 03 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |.G...;"---------|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 00 6E 0D EA 03 3B 22 2D 20 |-------.n...;"- |
00000550: D3 C5 D1 2D D4 52 41 4E 53 46 45 52 20 2D 2D 20 |...-.RANSFER -- |
00000560: 56 45 52 53 49 4F 4E 20 31 2E 30 20 2D 2D 00 95 |VERSION 1.0 --..|
00000570: 0D EB 03 3B 22 2D 20 D3 C5 D1 2D C6 49 4C 45 53 |...;"- ...-.ILES|
00000580: 20 4D 49 54 20 34 38 30 30 20 C2 41 55 44 20 2D | MIT 4800 .AUD -|
00000590: 2D 2D 2D 2D 2D 00 BC 0D EC 03 3B 22 2D 20 55 45 |-----.....;"- UE|
000005A0: 42 45 52 20 D2 D3 20 32 33 32 20 53 45 4E 44 45 |BER .. 232 SENDE|
000005B0: 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E3 0D ED |N ----------....|
000005C0: 03 3B 22 2D 20 47 45 53 43 48 52 49 45 42 45 4E |.;"- GESCHRIEBEN|
000005D0: 20 56 4F 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | VON -----------|
000005E0: 2D 2D 2D 00 0A 0E EE 03 3B 22 2D 2D 20 CD 41 52 |---.....;"-- .AR|
000005F0: 54 49 4E 20 CD 55 45 4C 4C 45 52 20 2D 2D 2D 2D |TIN .UELLER ----|
00000600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 31 0E EF 03 3B |----------.1...;|
00000610: 22 2D 20 28 43 29 20 42 59 20 C1 52 4E 44 20 D7 |"- (C) BY .RND .|
00000620: 41 45 4E 47 4C 45 52 2C 20 36 34 27 45 52 20 2D |AENGLER, 64'ER -|
00000630: 2D 00 58 0E F0 03 3B 22 2D 2D 2D 2D 2D 2D 2D 2D |-.X...;"--------|
00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 00 5E 0E F1 03 3B 00 8B |--------.^...;..|
00000660: 0E F2 03 42 41 55 44 49 4E 20 4A 53 52 20 43 48 |...BAUDIN JSR CH|
00000670: 43 4B 4F 4D 20 20 20 20 20 3B 22 C1 55 46 20 CB |CKOM ;".UF .|
00000680: 4F 4D 4D 41 20 54 45 53 54 45 4E 00 BD 0E F4 03 |OMMA TESTEN.....|
00000690: AE 20 20 20 20 20 20 4A 53 52 20 A1 42 59 54 20 |. JSR .BYT |
000006A0: 20 20 20 20 3B 22 CB 4F 4E 56 45 52 54 49 45 52 | ;".ONVERTIER|
000006B0: 55 4E 47 53 46 4C 41 47 20 4E 41 43 48 00 E4 0E |UNGSFLAG NACH...|
000006C0: F6 03 AE 20 20 20 20 20 20 53 54 58 20 4D 43 91 |... STX MC.|
000006D0: 56 20 20 20 20 20 20 3B 22 4D 43 4F 4E 56 20 48 |V ;"MCONV H|
000006E0: 4F 4C 45 4E 00 11 0F F8 03 AE 20 20 20 20 20 20 |OLEN...... |
000006F0: 4A 53 52 20 43 48 43 4B 4F 4D 20 20 20 20 20 3B |JSR CHCKOM ;|
00000700: 22 C1 55 46 20 CB 4F 4D 4D 41 20 54 45 53 54 45 |".UF .OMMA TESTE|
00000710: 4E 00 40 0F FC 03 AE 20 20 20 20 20 20 4A 53 52 |N.@.... JSR|
00000720: 20 46 52 4D 45 56 4C 20 20 20 20 20 3B 22 C1 55 | FRMEVL ;".U|
00000730: 53 44 52 55 43 4B 20 41 55 53 57 45 52 54 45 4E |SDRUCK AUSWERTEN|
00000740: 00 6D 0F 06 04 AE 20 20 20 20 20 20 4A 53 52 20 |.m.... JSR |
00000750: B8 53 54 52 20 20 20 20 20 3B 22 D3 54 52 49 4E |.STR ;".TRIN|
00000760: 47 41 55 53 57 45 52 54 55 4E 47 45 4E 00 A2 0F |GAUSWERTUNGEN...|
00000770: 10 04 AE 20 20 20 20 20 20 43 4D 50 20 23 35 20 |... CMP #5 |
00000780: 20 20 20 20 20 20 20 20 3B 22 CC 41 45 4E 47 45 | ;".AENGE|
00000790: 20 44 45 53 20 D3 54 52 49 4E 47 53 20 3C 20 35 | DES .TRINGS < 5|
000007A0: A0 3F 00 CE 0F 1A 04 AE 20 20 20 20 20 20 42 43 |.?...... BC|
000007B0: 53 20 42 41 55 44 57 31 20 20 20 20 20 3B 22 CE |S BAUDW1 ;".|
000007C0: 45 49 4E 3A 20 3D 3E 20 57 45 49 54 45 52 00 05 |EIN: => WEITER..|
000007D0: 10 24 04 AE 20 20 20 20 20 20 4A 4D 50 20 53 59 |.$.. JMP SY|
000007E0: 4E 45 52 52 20 20 20 20 20 3B 22 D3 4F 4E 53 54 |NERR ;".ONST|
000007F0: 3A 20 D3 D9 CE D4 C1 D8 20 C5 D2 D2 CF D2 A0 4D |: ...... ......M|
00000800: 45 4C 44 45 4E 00 33 10 2E 04 42 41 55 44 57 31 |ELDEN.3...BAUDW1|
00000810: 20 4C 44 58 20 50 54 20 20 20 20 20 20 20 20 20 | LDX PT |
00000820: 3B 22 D3 54 52 49 4E 47 41 44 52 45 53 53 45 20 |;".TRINGADRESSE |
00000830: 41 4C 53 00 65 10 38 04 AE 20 20 20 20 20 20 4C |ALS.e.8.. L|
00000840: 44 59 20 50 54 20 AA 20 31 20 20 20 20 20 3B 22 |DY PT . 1 ;"|
00000850: C1 44 52 45 53 53 45 20 44 45 53 20 C6 49 4C 45 |.DRESSE DES .ILE|
00000860: 4E 41 4D 45 4E 00 93 10 42 04 AE 20 20 20 20 20 |NAMEN...B.. |
00000870: 20 4A 53 52 20 53 45 54 4E 41 4D 20 20 20 20 20 | JSR SETNAM |
00000880: 3B 22 44 45 4D 20 CF D3 20 55 45 42 45 52 47 45 |;"DEM .. UEBERGE|
00000890: 42 45 4E 00 C6 10 4C 04 AE 20 20 20 20 20 20 4C |BEN...L.. L|
000008A0: 44 41 20 23 31 20 20 20 20 20 20 20 20 20 3B 22 |DA #1 ;"|
000008B0: 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D |LOGISCHE .ILENUM|
000008C0: 4D 45 52 3A 20 31 00 F3 10 56 04 AE 20 20 20 20 |MER: 1...V.. |
000008D0: 20 20 4C 44 58 20 23 38 20 20 20 20 20 20 20 20 | LDX #8 |
000008E0: 20 3B 22 C7 45 52 41 45 54 45 4E 55 4D 4D 45 52 | ;".ERAETENUMMER|
000008F0: 3A 20 38 00 23 11 60 04 AE 20 20 20 20 20 20 4C |: 8.#.`.. L|
00000900: 44 59 20 23 32 20 20 20 20 20 20 20 20 20 3B 22 |DY #2 ;"|
00000910: D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 45 |.EKUNDAERADRESSE|
00000920: 3A 20 32 00 46 11 6A 04 AE 20 20 20 20 20 20 4A |: 2.F.j.. J|
00000930: 53 52 20 53 45 54 4C 46 53 20 20 20 20 20 3B 22 |SR SETLFS ;"|
00000940: 53 45 54 5A 45 4E 00 6F 11 74 04 AE 20 20 20 20 |SETZEN.o.t.. |
00000950: 20 20 4A 53 52 20 9F 20 20 20 20 20 20 20 3B 22 | JSR . ;"|
00000960: C4 41 54 45 49 20 45 52 4F 45 46 46 4E 45 4E 00 |.ATEI EROEFFNEN.|
00000970: 9C 11 7E 04 AE 20 20 20 20 20 20 4A 53 52 20 87 |..~.. JSR .|
00000980: 53 54 20 20 20 20 20 3B 22 C6 45 48 4C 45 52 4D |ST ;".EHLERM|
00000990: 45 4C 44 55 4E 47 20 48 4F 4C 45 4E 00 CF 11 83 |ELDUNG HOLEN....|
000009A0: 04 AE 20 20 20 20 20 20 42 45 51 20 42 41 55 44 |.. BEQ BAUD|
000009B0: 32 31 20 20 20 20 20 3B 22 CB 45 49 4E 20 C6 45 |21 ;".EIN .E|
000009C0: 48 4C 45 52 3A 20 3D 3E 20 57 45 49 54 45 52 00 |HLER: => WEITER.|
000009D0: 06 12 88 04 42 41 55 44 57 32 20 4A 53 52 20 9C |....BAUDW2 JSR .|
000009E0: 43 48 4E 20 20 20 20 20 3B 22 D3 54 41 4E 44 41 |CHN ;".TANDA|
000009F0: 52 54 57 45 52 45 20 46 55 45 52 20 C9 2F CF 20 |RTWERE FUER ./. |
00000A00: 53 45 54 5A 45 4E 00 32 12 8D 04 AE 20 20 20 20 |SETZEN.2.... |
00000A10: 20 20 4C 44 41 20 23 31 20 20 20 20 20 20 20 20 | LDA #1 |
00000A20: 20 3B 22 C6 49 4C 45 20 53 43 48 4C 49 45 53 53 | ;".ILE SCHLIESS|
00000A30: 45 4E 00 52 12 92 04 AE 20 20 20 20 20 20 4A 4D |EN.R.... JM|
00000A40: 50 20 A0 20 20 20 20 20 20 3B 22 DA 55 52 55 45 |P . ;".URUE|
00000A50: 43 4B 00 58 12 9C 04 3B 00 89 12 A6 04 42 41 55 |CK.X...;.....BAU|
00000A60: 44 32 31 20 4C 44 58 20 23 31 20 20 20 20 20 20 |D21 LDX #1 |
00000A70: 20 20 20 3B 22 C6 49 4C 45 20 41 4C 53 20 C5 49 | ;".ILE ALS .I|
00000A80: 4E 47 41 42 45 46 49 4C 45 00 B0 12 B0 04 AE 20 |NGABEFILE...... |
00000A90: 20 20 20 20 20 4A 53 52 20 43 48 4B 49 4E 20 20 | JSR CHKIN |
00000AA0: 20 20 20 20 3B 22 44 45 46 49 4E 49 45 52 45 4E | ;"DEFINIEREN|
00000AB0: 00 DD 12 BA 04 AE 20 20 20 20 20 20 4A 53 52 20 |...... JSR |
00000AC0: 87 53 54 20 20 20 20 20 3B 22 C6 45 48 4C 45 52 |.ST ;".EHLER|
00000AD0: 20 41 55 46 47 45 54 52 45 54 45 4E 3F 00 13 13 | AUFGETRETEN?...|
00000AE0: C4 04 AE 20 20 20 20 20 20 42 4E 45 20 42 41 55 |... BNE BAU|
00000AF0: 44 57 32 20 20 20 20 20 3B 22 CA C1 3A 20 3D 3E |DW2 ;"..: =>|
00000B00: 20 DA 55 52 55 45 43 4B 20 4E 41 43 48 20 C2 C1 | .URUECK NACH ..|
00000B10: D3 C9 C3 00 43 13 CE 04 AE 20 20 20 20 20 20 4C |....C.... L|
00000B20: 44 58 20 23 B3 53 54 41 52 54 20 20 20 20 3B 22 |DX #.START ;"|
00000B30: C1 44 52 45 53 53 45 2C 20 41 42 20 44 45 52 20 |.DRESSE, AB DER |
00000B40: 44 49 45 00 7B 13 D8 04 AE 20 20 20 20 20 20 4C |DIE.{.... L|
00000B50: 44 59 20 23 B1 53 54 41 52 54 20 20 20 20 3B 22 |DY #.START ;"|
00000B60: C4 41 54 45 4E 20 44 45 53 20 D3 C5 D1 2D C6 49 |.ATEN DES ...-.I|
00000B70: 4C 45 20 41 42 47 45 4C 45 47 54 00 B1 13 E2 04 |LE ABGELEGT.....|
00000B80: AE 20 20 20 20 20 20 53 54 58 20 50 54 20 20 20 |. STX PT |
00000B90: 20 20 20 20 20 20 3B 22 57 45 52 44 45 4E 2C 20 | ;"WERDEN, |
00000BA0: 41 4C 53 20 DA 45 49 47 45 52 20 4D 45 52 4B 45 |ALS .EIGER MERKE|
00000BB0: 4E 00 DD 13 EC 04 AE 20 20 20 20 20 20 53 54 59 |N...... STY|
00000BC0: 20 50 54 20 AA 20 31 20 20 20 20 20 3B 22 28 3D | PT . 1 ;"(=|
00000BD0: 20 C2 41 53 49 43 41 4E 46 41 4E 47 29 00 E3 13 | .ASICANFANG)...|
00000BE0: F6 04 3B 00 16 14 00 05 42 41 55 44 4C 31 20 4A |..;.....BAUDL1 J|
00000BF0: 53 52 20 43 48 52 49 4E 20 20 20 20 20 20 3B 22 |SR CHRIN ;"|
00000C00: DA 45 49 43 48 45 4E 20 56 4F 4D 20 C6 49 4C 45 |.EICHEN VOM .ILE|
00000C10: 20 48 4F 4C 45 4E 00 46 14 0A 05 AE 20 20 20 20 | HOLEN.F.... |
00000C20: 20 20 4C 44 59 20 23 30 20 20 20 20 20 20 20 20 | LDY #0 |
00000C30: 20 3B 22 55 4E 44 20 49 4E 20 44 45 4E 20 D3 50 | ;"UND IN DEN .P|
00000C40: 45 49 43 48 45 52 00 6C 14 14 05 AE 20 20 20 20 |EICHER.l.... |
00000C50: 20 20 53 54 41 20 28 50 54 29 2C 59 20 20 20 20 | STA (PT),Y |
00000C60: 20 3B 22 53 43 48 52 45 49 42 45 4E 00 92 14 1E | ;"SCHREIBEN....|
00000C70: 05 AE 20 20 20 20 20 20 49 4E 43 20 50 54 20 20 |.. INC PT |
00000C80: 20 20 20 20 20 20 20 3B 22 DA 45 49 47 45 52 20 | ;".EIGER |
00000C90: 55 4D 00 BC 14 28 05 AE 20 20 20 20 20 20 42 4E |UM...(.. BN|
00000CA0: 45 20 42 41 55 44 57 33 20 20 20 20 20 3B 22 45 |E BAUDW3 ;"E|
00000CB0: 49 4E 53 20 45 52 48 4F 45 48 45 4E 00 D2 14 32 |INS ERHOEHEN...2|
00000CC0: 05 AE 20 20 20 20 20 20 49 4E 43 20 50 54 20 AA |.. INC PT .|
00000CD0: 20 31 00 D8 14 3C 05 3B 00 05 15 46 05 42 41 55 | 1...<.;...F.BAU|
00000CE0: 44 57 33 20 4A 53 52 20 87 53 54 20 20 20 20 20 |DW3 JSR .ST |
00000CF0: 3B 22 C6 45 48 4C 45 52 20 41 55 46 47 45 54 52 |;".EHLER AUFGETR|
00000D00: 45 54 45 4E 3F 00 31 15 50 05 AE 20 20 20 20 20 |ETEN?.1.P.. |
00000D10: 20 42 45 51 20 42 41 55 44 4C 31 20 20 20 20 20 | BEQ BAUDL1 |
00000D20: 3B 22 CE C5 C9 CE 3A 20 3D 3E 20 57 45 49 54 45 |;"....: => WEITE|
00000D30: 52 00 59 15 5A 05 AE 20 20 20 20 20 20 AF 20 23 |R.Y.Z.. . #|
00000D40: 25 30 31 30 30 30 30 30 30 20 3B 22 C6 49 4C 45 |%01000000 ;".ILE|
00000D50: 20 5A 55 20 45 4E 44 45 3F 00 91 15 6E 05 AE 20 | ZU ENDE?...n.. |
00000D60: 20 20 20 20 20 42 45 51 20 42 41 55 44 57 32 20 | BEQ BAUDW2 |
00000D70: 20 20 20 20 3B 22 CE C5 C9 CE 3A 20 3D 3E 20 DA | ;"....: => .|
00000D80: 55 52 55 45 43 4B 20 4E 41 43 48 20 C2 C1 D3 C9 |URUECK NACH ....|
00000D90: C3 00 97 15 8C 05 3B 00 C4 15 96 05 42 41 55 44 |......;.....BAUD|
00000DA0: 57 34 20 4A 53 52 20 42 41 55 44 57 32 20 20 20 |W4 JSR BAUDW2 |
00000DB0: 20 20 3B 22 C4 41 54 45 49 20 53 43 48 4C 49 45 | ;".ATEI SCHLIE|
00000DC0: 53 53 45 4E 00 E7 15 B4 05 3B 22 D2 D3 20 32 33 |SSEN.....;".. 23|
00000DD0: 32 20 D3 43 48 4E 49 54 54 53 54 45 4C 4C 45 20 |2 .CHNITTSTELLE |
00000DE0: 4F 45 46 46 4E 45 4E 00 0F 16 BE 05 3B 22 34 38 |OEFFNEN.....;"48|
00000DF0: 30 30 20 C2 41 55 44 2C 20 38 20 C4 41 54 45 4E |00 .AUD, 8 .ATEN|
00000E00: 42 49 54 53 2C 20 31 20 D3 54 4F 50 42 49 54 00 |BITS, 1 .TOPBIT.|
00000E10: 38 16 C8 05 3B 22 D0 41 52 49 54 59 20 44 49 53 |8...;".ARITY DIS|
00000E20: 41 42 4C 45 44 2C 20 33 2D CC 49 4E 45 20 C8 41 |ABLED, 3-.INE .A|
00000E30: 4E 44 53 48 41 4B 45 2C 00 4A 16 CD 05 3B 22 C6 |NDSHAKE,.J...;".|
00000E40: 55 4C 4C 20 C4 55 50 4C 45 58 00 7D 16 D2 05 AE |ULL .UPLEX.}....|
00000E50: 20 20 20 20 20 20 4C 44 41 20 23 31 20 20 20 20 | LDA #1 |
00000E60: 20 20 20 20 20 3B 22 CC 4F 47 49 53 43 48 45 20 | ;".OGISCHE |
00000E70: C6 49 4C 45 4E 55 4D 4D 45 52 3A 20 31 00 AA 16 |.ILENUMMER: 1...|
00000E80: DC 05 AE 20 20 20 20 20 20 4C 44 58 20 23 32 20 |... LDX #2 |
00000E90: 20 20 20 20 20 20 20 20 3B 22 C7 45 52 41 45 54 | ;".ERAET|
00000EA0: 45 4E 55 4D 4D 45 52 3A 20 32 00 DA 16 E6 05 AE |ENUMMER: 2......|
00000EB0: 20 20 20 20 20 20 4C 44 59 20 23 33 20 20 20 20 | LDY #3 |
00000EC0: 20 20 20 20 20 3B 22 D3 45 4B 55 4E 44 41 45 52 | ;".EKUNDAER|
00000ED0: 41 44 52 45 53 53 45 3A 20 33 00 FD 16 F0 05 AE |ADRESSE: 3......|
00000EE0: 20 20 20 20 20 20 4A 53 52 20 53 45 54 4C 46 53 | JSR SETLFS|
00000EF0: 20 20 20 20 20 3B 22 53 45 54 5A 45 4E 00 24 17 | ;"SETZEN.$.|
00000F00: FA 05 AE 20 20 20 20 20 20 4C 44 41 20 23 34 20 |... LDA #4 |
00000F10: 20 20 20 20 20 20 20 20 3B 22 D7 45 52 54 45 20 | ;".ERTE |
00000F20: 46 55 45 52 00 47 17 04 06 AE 20 20 20 20 20 20 |FUER.G.... |
00000F30: 4C 44 58 20 23 B3 52 53 4E 41 4D 20 20 20 20 3B |LDX #.RSNAM ;|
00000F40: 22 D2 D3 20 32 33 32 00 6A 17 0E 06 AE 20 20 20 |".. 232.j.... |
00000F50: 20 20 20 4C 44 59 20 23 B1 52 53 4E 41 4D 20 20 | LDY #.RSNAM |
00000F60: 20 20 3B 22 53 45 54 5A 45 4E 00 80 17 18 06 AE | ;"SETZEN......|
00000F70: 20 20 20 20 20 20 4A 53 52 20 53 45 54 4E 41 4D | JSR SETNAM|
00000F80: 00 A6 17 22 06 AE 20 20 20 20 20 20 4A 53 52 20 |...".. JSR |
00000F90: 9F 20 20 20 20 20 20 20 3B 22 C6 49 4C 45 20 4F |. ;".ILE O|
00000FA0: 45 46 46 4E 45 4E 00 DC 17 2C 06 AE 20 20 20 20 |EFFNEN...,.. |
00000FB0: 20 20 4C 44 58 20 23 33 20 20 20 20 20 20 20 20 | LDX #3 |
00000FC0: 20 3B 22 DA 45 49 47 45 52 20 46 55 45 52 20 D2 | ;".EIGER FUER .|
00000FD0: D3 20 32 33 32 20 C2 55 46 46 45 52 00 FF 17 36 |. 232 .UFFER...6|
00000FE0: 06 42 41 55 44 4C 39 20 4C 44 41 20 52 53 54 41 |.BAUDL9 LDA RSTA|
00000FF0: 42 2C 58 20 20 20 20 3B 22 53 45 54 5A 45 4E 00 |B,X ;"SETZEN.|
00001000: 16 18 40 06 AE 20 20 20 20 20 20 53 54 41 20 52 |..@.. STA R|
00001010: 49 42 55 46 2C 58 00 25 18 4A 06 AE 20 20 20 20 |IBUF,X.%.J.. |
00001020: 20 20 44 45 58 00 3B 18 54 06 AE 20 20 20 20 20 | DEX.;.T.. |
00001030: 20 42 50 4C 20 42 41 55 44 4C 39 00 41 18 72 06 | BPL BAUDL9.A.r.|
00001040: 3B 00 72 18 7C 06 AE 20 20 20 20 20 20 4C 44 58 |;.r.|.. LDX|
00001050: 20 23 31 20 20 20 20 20 20 20 20 20 3B 22 C6 49 | #1 ;".I|
00001060: 4C 45 20 41 4C 53 20 C1 55 53 47 41 42 45 46 49 |LE ALS .USGABEFI|
00001070: 4C 45 00 9A 18 86 06 AE 20 20 20 20 20 20 4A 53 |LE...... JS|
00001080: 52 20 43 48 4B 4F 55 54 20 20 20 20 20 3B 22 44 |R CHKOUT ;"D|
00001090: 45 4B 4C 41 52 49 45 52 45 4E 00 C8 18 90 06 AE |EKLARIEREN......|
000010A0: 20 20 20 20 20 20 4C 44 58 20 23 B3 53 54 41 52 | LDX #.STAR|
000010B0: 54 20 20 20 20 3B 22 D3 54 41 52 54 41 44 52 45 |T ;".TARTADRE|
000010C0: 53 53 45 20 46 55 45 52 00 FC 18 9A 06 AE 20 20 |SSE FUER...... |
000010D0: 20 20 20 20 4C 44 59 20 23 B1 53 54 41 52 54 20 | LDY #.START |
000010E0: 20 20 20 3B 22 44 41 53 20 D3 C5 D1 2D C6 49 4C | ;"DAS ...-.IL|
000010F0: 45 20 41 4C 53 20 DA 45 49 47 45 52 00 1F 19 A4 |E ALS .EIGER....|
00001100: 06 AE 20 20 20 20 20 20 53 54 58 20 48 50 54 20 |.. STX HPT |
00001110: 20 20 20 20 20 20 20 3B 22 4D 45 52 4B 45 4E 00 | ;"MERKEN.|
00001120: 36 19 AE 06 AE 20 20 20 20 20 20 53 54 59 20 48 |6.... STY H|
00001130: 50 54 20 AA 20 31 00 63 19 B0 06 AE 20 20 20 20 |PT . 1.c.... |
00001140: 20 20 4C 44 41 20 35 36 33 33 34 20 20 20 20 20 | LDA 56334 |
00001150: 20 3B 22 D4 49 4D 45 52 49 52 51 20 53 50 45 52 | ;".IMERIRQ SPER|
00001160: 52 45 4E 00 75 19 B2 06 AE 20 20 20 20 20 20 AF |REN.u.... .|
00001170: 20 23 32 35 34 00 8A 19 B4 06 AE 20 20 20 20 20 | #254...... |
00001180: 20 53 54 41 20 35 36 33 33 34 00 90 19 B8 06 3B | STA 56334.....;|
00001190: 00 BE 19 C2 06 42 41 55 44 4C 32 20 4C 44 59 20 |.....BAUDL2 LDY |
000011A0: 23 30 20 20 20 20 20 20 20 20 20 3B 22 C1 4B 54 |#0 ;".KT|
000011B0: 55 45 4C 4C 45 53 20 DA 45 49 43 48 45 4E 00 E0 |UELLES .EICHEN..|
000011C0: 19 CC 06 AE 20 20 20 20 20 20 4C 44 41 20 28 48 |.... LDA (H|
000011D0: 50 54 29 2C 59 20 20 20 20 3B 22 48 4F 4C 45 4E |PT),Y ;"HOLEN|
000011E0: 00 11 1A D6 06 AE 20 20 20 20 20 20 42 49 54 20 |...... BIT |
000011F0: 4D 43 91 56 20 20 20 20 20 20 3B 22 DA 45 49 43 |MC.V ;".EIC|
00001200: 48 45 4E 20 4B 4F 4E 56 45 52 54 49 45 52 45 4E |HEN KONVERTIEREN|
00001210: 3F 00 3D 1A E0 06 AE 20 20 20 20 20 20 42 4D 49 |?.=.... BMI|
00001220: 20 42 41 55 44 35 31 20 20 20 20 20 3B 22 CE C5 | BAUD51 ;"..|
00001230: C9 CE 3A 20 3D 3E 20 57 45 49 54 45 52 00 71 1A |..: => WEITER.q.|
00001240: EA 06 AE 20 20 20 20 20 20 43 4D 50 20 23 36 35 |... CMP #65|
00001250: 20 20 20 20 20 20 20 20 3B 22 D3 4F 4E 53 54 3A | ;".ONST:|
00001260: 20 C3 4F 4D 4D 4F 44 4F 52 45 27 C1 D3 C3 C9 C9 | .OMMODORE'.....|
00001270: 27 00 98 1A F4 06 AE 20 20 20 20 20 20 42 43 43 |'...... BCC|
00001280: 20 42 41 55 44 57 35 20 20 20 20 20 3B 22 4E 41 | BAUDW5 ;"NA|
00001290: 43 48 20 C1 D3 C3 C9 C9 00 AC 1A FE 06 AE 20 20 |CH ........... |
000012A0: 20 20 20 20 43 4D 50 20 23 31 32 38 00 C2 1A 08 | CMP #128....|
000012B0: 07 AE 20 20 20 20 20 20 42 43 53 20 42 41 55 44 |.. BCS BAUD|
000012C0: 34 31 00 DB 1A 12 07 AE 20 20 20 20 20 20 B0 41 |41...... .A|
000012D0: 20 23 25 30 30 31 30 30 30 30 30 00 F1 1A 1C 07 | #%00100000.....|
000012E0: AE 20 20 20 20 20 20 42 4E 45 20 42 41 55 44 57 |. BNE BAUDW|
000012F0: 35 00 05 1B 26 07 42 41 55 44 34 31 20 43 4D 50 |5...&.BAUD41 CMP|
00001300: 20 23 31 39 32 00 1B 1B 30 07 AE 20 20 20 20 20 | #192...0.. |
00001310: 20 42 43 43 20 42 41 55 44 57 35 00 2A 1B 3A 07 | BCC BAUDW5.*.:.|
00001320: AE 20 20 20 20 20 20 53 45 43 00 3E 1B 44 07 AE |. SEC.>.D..|
00001330: 20 20 20 20 20 20 53 42 43 20 23 31 32 38 00 56 | SBC #128.V|
00001340: 1B 4E 07 42 41 55 44 57 35 20 AF 20 23 25 30 31 |.N.BAUDW5 . #%01|
00001350: 31 31 31 31 31 31 00 81 1B 58 07 42 41 55 44 35 |111111...X.BAUD5|
00001360: 31 20 54 41 58 20 20 20 20 20 20 20 20 20 20 20 |1 TAX |
00001370: 20 3B 22 DA 45 49 43 48 45 4E 20 4D 45 52 4B 45 | ;".EICHEN MERKE|
00001380: 4E 00 B7 1B 62 07 42 41 55 44 4C 33 20 4C 44 41 |N...b.BAUDL3 LDA|
00001390: 20 45 4E 41 42 4C 45 20 20 20 20 20 3B 22 C9 53 | ENABLE ;".S|
000013A0: 54 20 44 41 53 20 56 4F 52 48 45 52 49 47 45 20 |T DAS VORHERIGE |
000013B0: DA 45 49 43 48 45 4E 00 E7 1B 6C 07 AE 20 20 20 |.EICHEN...l.. |
000013C0: 20 20 20 AF 20 23 25 30 30 30 30 30 30 30 31 20 | . #%00000001 |
000013D0: 3B 22 53 43 48 4F 4E 20 47 45 53 45 4E 44 45 54 |;"SCHON GESENDET|
000013E0: 20 57 4F 52 44 45 4E 00 13 1C 76 07 AE 20 20 20 | WORDEN...v.. |
000013F0: 20 20 20 42 4E 45 20 42 41 55 44 4C 33 20 20 20 | BNE BAUDL3 |
00001400: 20 20 3B 22 CE C5 C9 CE 3A 20 3D 3E 20 D7 45 49 | ;"....: => .EI|
00001410: 54 45 52 00 44 1C 7B 07 AE 20 20 20 20 20 20 54 |TER.D.{.. T|
00001420: 58 41 20 20 20 20 20 20 20 20 20 20 20 20 3B 22 |XA ;"|
00001430: DA 45 49 43 48 45 4E 20 5A 55 52 55 45 43 4B 48 |.EICHEN ZURUECKH|
00001440: 4F 4C 45 4E 00 7A 1C 7D 07 AE 20 20 20 20 20 20 |OLEN.z.}.. |
00001450: 4A 53 52 20 43 48 52 4F 55 54 20 20 20 20 20 3B |JSR CHROUT ;|
00001460: 22 55 4E 44 20 55 45 42 45 52 20 D2 D3 20 32 33 |"UND UEBER .. 23|
00001470: 32 20 41 55 53 47 45 42 45 4E 00 80 1C 80 07 3B |2 AUSGEBEN.....;|
00001480: 00 B1 1C 8A 07 AE 20 20 20 20 20 20 49 4E 43 20 |...... INC |
00001490: 48 50 54 20 20 20 20 20 20 20 20 3B 22 DA 45 49 |HPT ;".EI|
000014A0: 47 45 52 20 41 55 46 20 41 4B 54 55 45 4C 4C 45 |GER AUF AKTUELLE|
000014B0: 53 00 DD 1C 94 07 AE 20 20 20 20 20 20 42 4E 45 |S...... BNE|
000014C0: 20 42 41 55 44 57 36 20 20 20 20 20 3B 22 DA 45 | BAUDW6 ;".E|
000014D0: 49 43 48 45 4E 20 55 4D 20 45 49 4E 53 00 08 1D |ICHEN UM EINS...|
000014E0: 9E 07 AE 20 20 20 20 20 20 49 4E 43 20 48 50 54 |... INC HPT|
000014F0: 20 AA 20 31 20 20 20 20 3B 22 49 4E 43 52 45 4D | . 1 ;"INCREM|
00001500: 45 4E 54 49 45 52 45 4E 00 34 1D A8 07 42 41 55 |ENTIEREN.4...BAU|
00001510: 44 57 36 20 4C 44 41 20 50 54 20 20 20 20 20 20 |DW6 LDA PT |
00001520: 20 20 20 3B 22 C9 53 54 20 42 45 52 45 49 54 53 | ;".ST BEREITS|
00001530: 20 44 41 53 00 5F 1D B2 07 AE 20 20 20 20 20 20 | DAS._.... |
00001540: 43 4D 50 20 48 50 54 20 20 20 20 20 20 20 20 3B |CMP HPT ;|
00001550: 22 4C 45 54 5A 54 45 20 DA 45 49 43 48 45 4E 00 |"LETZTE .EICHEN.|
00001560: 8E 1D BC 07 AE 20 20 20 20 20 20 42 4E 45 20 42 |..... BNE B|
00001570: 41 55 44 4C 32 20 20 20 20 20 3B 22 55 45 42 45 |AUDL2 ;"UEBE|
00001580: 52 54 52 41 47 45 4E 20 57 4F 52 44 45 4E 00 C6 |RTRAGEN WORDEN..|
00001590: 1D C6 07 AE 20 20 20 20 20 20 4C 44 41 20 50 54 |.... LDA PT|
000015A0: 20 AA 20 31 20 20 20 20 20 3B 22 CE C5 C9 CE 3A | . 1 ;"....:|
000015B0: 20 3D 3E 20 D7 45 49 54 45 52 20 55 45 42 45 52 | => .EITER UEBER|
000015C0: 54 52 41 47 45 4E 00 DD 1D D0 07 AE 20 20 20 20 |TRAGEN...... |
000015D0: 20 20 43 4D 50 20 48 50 54 20 AA 20 31 00 F3 1D | CMP HPT . 1...|
000015E0: DA 07 AE 20 20 20 20 20 20 42 4E 45 20 42 41 55 |... BNE BAU|
000015F0: 44 4C 32 00 F9 1D E4 07 3B 00 33 1E E6 07 42 41 |DL2.....;.3...BA|
00001600: 55 44 4C 34 20 4C 44 41 20 45 4E 41 42 4C 45 20 |UDL4 LDA ENABLE |
00001610: 20 20 20 20 3B 22 D3 4F 4E 53 54 20 57 41 52 54 | ;".ONST WART|
00001620: 45 4E 2C 20 42 49 53 20 44 41 53 20 DA 45 49 43 |EN, BIS DAS .EIC|
00001630: 48 45 4E 00 69 1E E8 07 AE 20 20 20 20 20 20 AF |HEN.i.... .|
00001640: 20 23 25 30 30 30 30 30 30 30 31 20 3B 22 53 43 | #%00000001 ;"SC|
00001650: 48 4F 4E 20 47 45 53 43 48 49 43 4B 54 20 57 4F |HON GESCHICKT WO|
00001660: 52 44 45 4E 20 49 53 54 21 00 7F 1E EA 07 AE 20 |RDEN IST!...... |
00001670: 20 20 20 20 20 42 4E 45 20 42 41 55 44 4C 34 00 | BNE BAUDL4.|
00001680: AB 1E F8 07 AE 20 20 20 20 20 20 4A 53 52 20 42 |..... JSR B|
00001690: 41 55 44 57 32 20 20 20 20 20 3B 22 C6 49 4C 45 |AUDW2 ;".ILE|
000016A0: 20 53 43 48 4C 49 45 53 53 45 4E 00 B1 1E 0C 08 | SCHLIESSEN.....|
000016B0: 3B 00 DE 1E 16 08 AE 20 20 20 20 20 20 4C 44 41 |;...... LDA|
000016C0: 20 35 36 33 33 34 20 20 20 20 20 20 3B 22 D4 49 | 56334 ;".I|
000016D0: 4D 45 52 49 52 51 53 20 57 49 45 44 45 52 00 02 |MERIRQS WIEDER..|
000016E0: 1F 20 08 AE 20 20 20 20 20 20 B0 41 20 23 31 20 |. .. .A #1 |
000016F0: 20 20 20 20 20 20 20 20 3B 22 45 52 4C 41 55 42 | ;"ERLAUB|
00001700: 45 4E 00 17 1F 2A 08 AE 20 20 20 20 20 20 53 54 |EN...*.. ST|
00001710: 41 20 35 36 33 33 34 00 40 1F 34 08 AE 20 20 20 |A 56334.@.4.. |
00001720: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS |
00001730: 20 20 3B 22 D0 52 4F 47 52 41 4D 4D 45 4E 44 45 | ;".ROGRAMMENDE|
00001740: 00 7C 1F FC 08 52 53 4E 41 4D 20 2E 42 59 54 45 |.|...RSNAM .BYTE|
00001750: 20 25 30 30 30 30 30 30 30 30 20 3B 22 31 20 D3 | %00000000 ;"1 .|
00001760: 54 4F 50 42 49 54 2C 38 20 C4 41 54 45 4E 42 49 |TOPBIT,8 .ATENBI|
00001770: 54 53 2C 34 38 30 30 20 C2 41 55 44 00 B5 1F 06 |TS,4800 .AUD....|
00001780: 09 AE 20 20 20 20 20 2E 42 59 54 45 20 25 30 30 |.. .BYTE %00|
00001790: 30 30 30 30 30 30 20 3B 22 D0 41 52 49 54 59 20 |000000 ;".ARITY |
000017A0: 44 49 53 41 42 4C 45 44 2C C6 55 4C 4C 20 C4 55 |DISABLED,.ULL .U|
000017B0: 50 4C 45 58 2C 00 CC 1F 0B 09 3B 22 33 2D CC 49 |PLEX,.....;"3-.I|
000017C0: 4E 45 20 C8 41 4E 44 53 48 41 4B 45 00 FD 1F 10 |NE .ANDSHAKE....|
000017D0: 09 AE 20 20 20 20 20 2E 42 59 54 45 20 32 20 20 |.. .BYTE 2 |
000017E0: 20 20 20 20 20 20 20 3B 22 D7 45 52 54 45 20 46 | ;".ERTE F|
000017F0: 55 45 52 20 34 38 30 30 20 C2 41 55 44 00 0F 20 |UER 4800 .AUD.. |
00001800: 1A 09 AE 20 20 20 20 20 2E 42 59 54 45 20 30 00 |... .BYTE 0.|
00001810: 15 20 24 09 3B 00 4B 20 2E 09 52 53 54 41 42 20 |. $.;.K ..RSTAB |
00001820: 2E 42 59 54 45 20 B3 42 55 46 20 20 20 20 20 20 |.BYTE .BUF |
00001830: 20 20 20 3B 22 D4 41 42 45 4C 4C 45 4E 20 46 55 | ;".ABELLEN FU|
00001840: 45 52 20 C1 44 52 45 53 53 45 4E 00 7C 20 38 09 |ER .DRESSEN.| 8.|
00001850: AE 20 20 20 20 20 2E 42 59 54 45 20 B1 42 55 46 |. .BYTE .BUF|
00001860: 20 20 20 20 20 20 20 20 20 3B 22 44 45 52 20 D2 | ;"DER .|
00001870: D3 20 32 33 32 20 C2 55 46 46 45 52 00 99 20 42 |. 232 .UFFER.. B|
00001880: 09 AE 20 20 20 20 20 2E 42 59 54 45 20 B3 28 42 |.. .BYTE .(B|
00001890: 55 46 20 AA 20 32 35 36 29 00 B6 20 4C 09 AE 20 |UF . 256).. L.. |
000018A0: 20 20 20 20 2E 42 59 54 45 20 B1 28 42 55 46 20 | .BYTE .(BUF |
000018B0: AA 20 32 35 36 29 00 BD 20 60 EA 2E 80 00 C3 20 |. 256).. `..... |
000018C0: 6A EA 80 00 E2 20 C4 EA 9F 20 31 35 2C 38 2C 31 |j.... ... 15,8,1|
000018D0: 35 2C 22 53 3A 53 45 51 2D 54 52 41 4E 53 56 45 |5,"S:SEQ-TRANSVE|
000018E0: 52 22 00 EB 20 CE EA A0 20 31 35 00 02 21 D8 EA |R".. ... 15..!..|
000018F0: 94 20 22 53 45 51 2D 54 52 41 4E 53 56 45 52 22 |. "SEQ-TRANSVER"|
00001900: 2C 38 00 00 00 |,8... |
....... 100...... 1000.2100.+.... 1920.2
100.;.... 2300.2999.P.D.. 53280,0:. 5328
1,0:. 56325,35:. 646,4:. 650,128...N.. 1
,8,1,"SEQ-TRANSVER .OBJ"...X.. 9.4096...
..;......OPT O1.....;.B. ... $CD00.H...;
.N...;.T...;.Z.G.;...H.;................
.....................I.;.F.R.SETLFS . $F
FBA ;"LOG.FILENR.,GERAETNR.,SKUNDADR.
SETZEN.M...SETNAM . $FFBD ;"FILENAME S
ETZEN...... . $FFC0 ;"FILE OEFFNEN..
....ST . $FFB7 ;"STATUSVARIABLE LESEN.
Z.". . $FFC3 ;"FILE SCHLIESSEN...'.C
HKIN . $FFC6 ;"FILE AUF EINGABE SETZE
N.8.,.CHKOUT . $FFC9 ;"FILE AUF AUSGAB
E SETZEN.`.6.CHROUT . $FFD2 ;"ZEICHEN
AUSGEBEN...;.CHRIN . $FFCF ;"ZEICHEN
HOLEN...@..CHN . $FFCC ;"STANDARDWERTE
FUER I/O SETZEN...J.;...R.CHCKOM . $AEF
D ;"AUF KOMMA TESTEN...|.FRMEVL . $AD9
E ;"AUSDRUCK AUSWERTEN.G....STR . $B6A
6 ;"WEITERE AUSWERTUNGEN FUER STRINGS.
G....BYT . $B79E ;"BYTE HOLEN.M...;...
..PT . $22 ;"ZEIGER AUF TEXTEND
E.B...HPT . $14 ;"ZU SENDENDES BY
TE.....MC.V . $02 ;"FLAG FUER ASCII
-KONVERTIERUNG.$...SYNERR . $AF08 ;"?S
YNTAX ERROR AUSGEBEN.N.X.BUF . $CE00
;"BUFFER FUER RS 232.~.B.RIBUF . $F7
;"ZEIGER AUF EINGABEBUFFER...L.ROBUF
. $F9 ;"ZEIGER AUF AUSGABEBUFFER..
...START . $0801 ;"LADEADRESSE FUER S
EQ-FILE...F.ENABLE . $02A1 ;"RS 232 FL
AG: ALLE ZEICHEN GESENDET?. ...;.G...;"-
-------------------------------.N...;"-
SEQ-TRANSFER -- VERSION 1.0 --.....;"- S
EQ-FILES MIT 4800 BAUD ------.....;"- UE
BER RS 232 SENDEN ----------.....;"- GES
CHRIEBEN VON --------------.....;"-- MAR
TIN MUELLER --------------.1...;"- (C) B
Y ARND WAENGLER, 64'ER --.X...;"--------
------------------------.^...;.....BAUDI
N JSR CHCKOM ;"AUF KOMMA TESTEN.....
. JSR .BYT ;"KONVERTIERUNGSFLAG
NACH...... STX MC.V ;"MCONV H
OLEN...... JSR CHCKOM ;"AUF KOM
MA TESTEN.@.... JSR FRMEVL ;"AU
SDRUCK AUSWERTEN.M.... JSR .STR
;"STRINGAUSWERTUNGEN...... CMP #5
;"LAENGE DES STRINGS < 5 ?.N....
BCS BAUDW1 ;"NEIN: => WEITER..
.$.. JMP SYNERR ;"SONST: SYNTAX
ERROR MELDEN.3...BAUDW1 LDX PT
;"STRINGADRESSE ALS.E.8.. LDY PT .
1 ;"ADRESSE DES FILENAMEN...B..
JSR SETNAM ;"DEM OS UEBERGEBEN.F.L.
. LDA #1 ;"LOGISCHE FILENUM
MER: 1...V.. LDX #8 ;"GERAE
TENUMMER: 8.#.`.. LDY #2 ;"
SEKUNDAERADRESSE: 2.F.J.. JSR SETLF
S ;"SETZEN.O.T.. JSR . ;"
DATEI EROEFFNEN...~.. JSR .ST ;
"FEHLERMELDUNG HOLEN.O.... BEQ BAUD
21 ;"KEIN FEHLER: => WEITER.....BAUD
W2 JSR .CHN ;"STANDARTWERE FUER I/O
SETZEN.2.... LDA #1 ;"FILE
SCHLIESSEN.R.... JMP ;"ZURUE
CK.X...;.....BAUD21 LDX #1 ;"FIL
E ALS EINGABEFILE...... JSR CHKIN
;"DEFINIEREN...... JSR .ST
;"FEHLER AUFGETRETEN?...D.. BNE BAU
DW2 ;"JA: => ZURUECK NACH BASIC.C.N.
. LDX #.START ;"ADRESSE, AB DER
DIE.{.X.. LDY #.START ;"DATEN DE
S SEQ-FILE ABGELEGT...... STX PT
;"WERDEN, ALS ZEIGER MERKEN......
STY PT . 1 ;"(= BASICANFANG)...
..;.....BAUDL1 JSR CHRIN ;"ZEICHEN
VOM FILE HOLEN.F.... LDY #0
;"UND IN DEN SPEICHER.L.... STA (P
T),Y ;"SCHREIBEN...... INC PT
;"ZEIGER UM...(.. BNE BAUDW3
;"EINS ERHOEHEN.R.2.. INC PT .
1.X.<.;...F.BAUDW3 JSR .ST ;"FEHLER
AUFGETRETEN?.1.P.. BEQ BAUDL1
;"NEIN: => WEITER.Y.Z.. . #%0100000
0 ;"FILE ZU ENDE?...N.. BEQ BAUDW2
;"NEIN: => ZURUECK NACH BASIC.....;.
D...BAUDW4 JSR BAUDW2 ;"DATEI SCHLIE
SSEN.....;"RS 232 SCHNITTSTELLE OEFFNEN.
....;"4800 BAUD, 8 DATENBITS, 1 STOPBIT.
8.H.;"PARITY DISABLED, 3-LINE HANDSHAKE,
.J.M.;"FULL DUPLEX.}.R.. LDA #1
;"LOGISCHE FILENUMMER: 1......
LDX #2 ;"GERAETENUMMER: 2.Z....
LDY #3 ;"SEKUNDAERADRESSE:
3...... JSR SETLFS ;"SETZEN.$.
... LDA #4 ;"WERTE FUER.G..
.. LDX #.RSNAM ;"RS 232.J....
LDY #.RSNAM ;"SETZEN...... JS
R SETNAM...".. JSR . ;"FILE O
EFFNEN...,.. LDX #3 ;"ZEIGE
R FUER RS 232 BUFFER...6.BAUDL9 LDA RSTA
B,X ;"SETZEN...@.. STA RIBUF,X.%
.J.. DEX.;.T.. BPL BAUDL9.A.R.
;.R.|.. LDX #1 ;"FILE ALS A
USGABEFILE...... JSR CHKOUT ;"D
EKLARIEREN.H.... LDX #.START ;"S
TARTADRESSE FUER...... LDY #.START
;"DAS SEQ-FILE ALS ZEIGER......
STX HPT ;"MERKEN.6.... STY H
PT . 1.C.... LDA 56334 ;"TIMER
IRQ SPERREN.U.... . #254......
STA 56334.....;...B.BAUDL2 LDY #0
;"AKTUELLES ZEICHEN...L.. LDA (H
PT),Y ;"HOLEN...V.. BIT MC.V
;"ZEICHEN KONVERTIEREN?.=.... BMI
BAUD51 ;"NEIN: => WEITER.Q....
CMP #65 ;"SONST: COMMODORE'ASCII
'...... BCC BAUDW5 ;"NACH ASCII
...... CMP #128.B.... BCS BAUD
41...... .A #%00100000...... B
NE BAUDW5...&.BAUD41 CMP #192...0..
BCC BAUDW5.*.:.. SEC.>.D.. SB
C #128.V.N.BAUDW5 . #%01111111...X.BAUD5
1 TAX ;"ZEICHEN MERKEN...B.BA
UDL3 LDA ENABLE ;"IST DAS VORHERIGE
ZEICHEN...L.. . #%00000001 ;"SCHON
GESENDET WORDEN...V.. BNE BAUDL3
;"NEIN: => WEITER.D.{.. TXA
;"ZEICHEN ZURUECKHOLEN.Z.}..
JSR CHROUT ;"UND UEBER RS 232 AUSGEB
EN.....;...... INC HPT ;"ZEI
GER AUF AKTUELLES...... BNE BAUDW6
;"ZEICHEN UM EINS...... INC HPT
. 1 ;"INCREMENTIEREN.4...BAUDW6 LDA
PT ;"IST BEREITS DAS._....
CMP HPT ;"LETZTE ZEICHEN......
BNE BAUDL2 ;"UEBERTRAGEN WORDEN.F
.F.. LDA PT . 1 ;"NEIN: => WEIT
ER UEBERTRAGEN...P.. CMP HPT . 1...
Z.. BNE BAUDL2.....;.3...BAUDL4 LDA
ENABLE ;"SONST WARTEN, BIS DAS ZEIC
HEN.I.... . #%00000001 ;"SCHON GESC
HICKT WORDEN IST!..... BNE BAUDL4.
..... JSR BAUDW2 ;"FILE SCHLIES
SEN.....;...... LDA 56334 ;"TI
MERIRQS WIEDER... .. .A #1
;"ERLAUBEN...*.. STA 56334.@.4..
RTS ;"PROGRAMMENDE.|...RSN
AM .BYTE %00000000 ;"1 STOPBIT,8 DATENBI
TS,4800 BAUD...... .BYTE %00000000 ;
"PARITY DISABLED,FULL DUPLEX,.L...;"3-LI
NE HANDSHAKE...... .BYTE 2 ;
"WERTE FUER 4800 BAUD.. ... .BYTE 0.
. $.;.K ..RSTAB .BYTE .BUF ;"TAB
ELLEN FUER ADRESSEN.| 8.. .BYTE .BUF
;"DER RS 232 BUFFER.. B.. .
BYTE .(BUF . 256).. L.. .BYTE .(BUF
. 256).. `....C J.... D.. 15,8,15,"S:SEQ
-TRANSVER".. N. 15..!X.. "SEQ-TRANSVER"
,8...
> CLICK IMAGE PREVIEW FOR FULL MODAL