AUTOSTART-ASS
FILE INFORMATION
FILENAME(S): AUTOSTART-ASS
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-12-02 02:01:21
APPEARS ON: 1 disk(s)
FILE HASH
2551aa7e0befc6b0eeb8d282c72b1e4b378c19172f1f75735273a176b42ff406
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 10 94 | AUTOSTART-ASS | PRG | marcus | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: A4 02 20 15 FD 58 A9 9B 8D 00 DD 8D 11 D0 20 AA |.. ..X........ .|
00000010: F5 EA EA EA EA 20 53 E4 E8 20 60 A6 4C AE A7 2C |..... S.. `.L..,|
00000020: 00 DD 30 FB 70 DC AD 00 DD 4A 4A EA EA 0D 00 DD |..0.p....JJ.....|
00000030: 4A 4A EA EA 0D 00 DD 4A 4A EA EA 0D 00 DD 60 4D |JJ.....JJ.....`M|
00000040: 2D 45 05 02 A9 8A 85 30 6C 30 00 A9 2B 8D 11 D0 |-E.....0l0..+...|
00000050: EA A9 08 20 B1 FF A9 6F 20 93 FF A0 F4 B9 ED 01 |... ...o .......|
00000060: 20 A8 FF C8 D0 F7 20 AE FF 78 8C 00 DD 20 C1 02 | ..... ..x... ..|
00000070: 85 AE 31 EA 20 C1 02 85 AF 20 C1 02 91 AE E6 AE |..1. .... ......|
00000080: D0 F7 E6 AF D0 F3 ED 02 20 18 C1 A9 12 8D 05 1C |........ .......|
00000090: A0 01 B1 2E AA 88 B1 2E A0 02 85 0C 86 0D A9 80 |................|
000000A0: 85 03 58 A5 03 30 FC 78 AD 00 06 48 D0 05 AD 01 |..X..0.x...H....|
000000B0: 06 85 6C B9 00 06 49 FF AA 0A 0A 0A 29 18 48 A9 |..l...I.....).H.|
000000C0: 18 8D 00 18 68 8D 00 18 8A 0A 29 18 EA 8D 00 18 |....h.....).....|
000000D0: 8A 4A AA 29 18 8D 00 18 8A 4A 4A 29 18 8D 00 18 |.J.).....JJ)....|
000000E0: C4 6C 08 C8 A9 00 8D 00 18 28 D0 C7 A0 02 AE 01 |.l.......(......|
000000F0: 06 68 D0 A6 A9 10 8D 00 18 58 4C 22 EB A9 01 08 |.h.......XL"....|
00000100: 20 08 64 00 22 3B 20 20 20 20 20 2A 2A 2A 2A 2A | .d."; *****|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F |**************.?|
00000120: 08 6E 00 22 3B 20 20 20 20 20 2A 20 20 20 20 20 |.n."; * |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 5E 08 | *.^.|
00000140: 78 00 22 3B 20 20 20 20 20 2A 20 41 55 54 4F 53 |x."; * AUTOS|
00000150: 54 41 52 54 20 46 55 45 52 20 20 2A 00 7D 08 82 |TART FUER *.}..|
00000160: 00 22 3B 20 20 20 20 20 2A 20 20 20 20 20 20 20 |."; * |
00000170: 20 20 20 20 20 20 20 20 20 20 2A 00 9C 08 8C 00 | *.....|
00000180: 22 3B 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 |"; * |
00000190: 20 20 20 20 20 20 20 20 20 2A 00 BB 08 96 00 22 | *....."|
000001A0: 3B 20 20 20 20 20 2A 20 42 41 53 49 43 50 52 4F |; * BASICPRO|
000001B0: 47 52 41 4D 4D 45 20 20 2A 00 DA 08 A0 00 22 3B |GRAMME *.....";|
000001C0: 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 | * |
000001D0: 20 20 20 20 20 20 20 2A 00 F9 08 AA 00 22 3B 20 | *....."; |
000001E0: 20 20 20 20 2A 20 41 55 46 20 43 36 34 2C 20 20 | * AUF C64, |
000001F0: 56 31 2E 30 20 20 2A 00 18 09 B4 00 22 3B 20 20 |V1.0 *....."; |
00000200: 20 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000210: 20 20 20 20 20 2A 00 37 09 BE 00 22 3B 20 20 20 | *.7..."; |
00000220: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************|
00000230: 2A 2A 2A 2A 2A 00 3E 09 C8 00 22 3B 00 45 09 D2 |*****.>...";.E..|
00000240: 00 22 3B 00 4C 09 DC 00 22 3B 00 53 09 F0 00 22 |.";.L...";.S..."|
00000250: 3B 00 5A 09 FA 00 22 3B 00 61 09 04 01 22 3B 00 |;.Z...";.a...";.|
00000260: 68 09 0E 01 22 3B 00 82 09 18 01 22 20 20 20 20 |h...";....." |
00000270: 20 20 20 20 20 20 20 2E 42 41 20 24 43 39 30 30 | .BA $C900|
00000280: 00 95 09 22 01 22 20 20 20 20 20 20 20 20 20 20 |..."." |
00000290: 20 20 3B 00 A8 09 2C 01 22 20 20 20 20 20 20 20 | ;...,." |
000002A0: 20 20 20 20 20 3B 00 C5 09 36 01 22 20 20 20 20 | ;...6." |
000002B0: 20 20 20 20 20 20 20 3B 52 41 4D 41 44 52 45 53 | ;RAMADRES|
000002C0: 53 45 4E 00 E2 09 40 01 22 20 20 20 20 20 20 20 |SEN...@." |
000002D0: 20 20 20 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;***********|
000002E0: 00 F5 09 4A 01 22 20 20 20 20 20 20 20 20 20 20 |...J." |
000002F0: 20 20 3B 00 08 0A 54 01 22 20 20 20 20 20 20 20 | ;...T." |
00000300: 20 20 20 20 20 3B 00 55 0A 5E 01 22 42 41 53 42 | ;.U.^."BASB|
00000310: 4C 20 20 3D 24 30 33 30 38 20 20 20 20 20 20 20 |L =$0308 |
00000320: 20 20 20 20 20 20 3B 45 4E 54 48 41 4C 54 45 4E | ;ENTHALTEN|
00000330: 20 45 49 4E 53 50 52 55 4E 47 41 44 52 45 53 53 | EINSPRUNGADRESS|
00000340: 45 20 46 55 45 52 20 42 41 53 49 43 42 45 46 45 |E FUER BASICBEFE|
00000350: 48 4C 45 00 68 0A 68 01 22 42 41 53 42 48 20 20 |HLE.h.h."BASBH |
00000360: 3D 24 30 33 30 39 00 7B 0A 72 01 22 20 20 20 20 |=$0309.{.r." |
00000370: 20 20 20 20 20 20 20 20 3B 00 C6 0A 7C 01 22 4D | ;...|."M|
00000380: 42 41 53 42 4C 20 20 3D 24 43 39 30 30 20 20 20 |BASBL =$C900 |
00000390: 20 20 20 20 20 20 20 20 20 3B 5A 57 49 53 43 48 | ;ZWISCH|
000003A0: 45 4E 53 50 45 49 43 48 45 52 20 46 55 45 52 20 |ENSPEICHER FUER |
000003B0: 41 4C 54 45 4E 20 42 41 53 49 43 45 49 4E 53 50 |ALTEN BASICEINSP|
000003C0: 52 55 4E 47 00 DA 0A 86 01 22 4D 42 41 53 42 48 |RUNG....."MBASBH|
000003D0: 20 20 3D 24 43 39 30 31 00 ED 0A 90 01 22 20 20 | =$C901....." |
000003E0: 20 20 20 20 20 20 20 20 20 20 3B 00 35 0B 9A 01 | ;.5...|
000003F0: 22 4E 42 41 53 42 4C 20 20 3D 24 32 39 20 20 20 |"NBASBL =$29 |
00000400: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 45 55 45 | ;NEUE|
00000410: 20 45 49 4E 53 50 52 55 4E 47 41 44 52 45 53 53 | EINSPRUNGADRESS|
00000420: 45 20 46 55 45 52 20 42 41 53 49 43 42 45 46 45 |E FUER BASICBEFE|
00000430: 48 4C 45 00 5F 0B A4 01 22 4E 42 41 53 42 48 20 |HLE._..."NBASBH |
00000440: 20 3D 24 43 39 20 20 20 20 20 20 20 20 20 20 20 | =$C9 |
00000450: 20 20 20 3B 49 53 54 20 24 43 39 32 39 00 72 0B | ;IST $C929.r.|
00000460: AE 01 22 20 20 20 20 20 20 20 20 20 20 20 20 3B |.." ;|
00000470: 00 A6 0B B8 01 22 46 49 4C 45 4E 52 20 20 3D 24 |....."FILENR =$|
00000480: 30 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |02 |
00000490: 3B 4C 4F 47 49 53 43 48 45 20 46 49 4C 45 4E 55 |;LOGISCHE FILENU|
000004A0: 4D 4D 45 52 00 D7 0B C2 01 22 53 45 4B 41 44 52 |MMER....."SEKADR|
000004B0: 20 20 3D 24 30 32 20 20 20 20 20 20 20 20 20 20 | =$02 |
000004C0: 20 20 20 20 3B 53 45 4B 55 4E 44 41 45 52 41 44 | ;SEKUNDAERAD|
000004D0: 52 45 53 53 45 00 0E 0C CC 01 22 47 45 52 4E 52 |RESSE....."GERNR|
000004E0: 20 20 20 3D 24 30 38 20 20 20 20 20 20 20 20 20 | =$08 |
000004F0: 20 20 20 20 20 3B 45 4E 54 48 41 45 4C 54 20 47 | ;ENTHAELT G|
00000500: 45 52 41 45 54 45 4E 55 4D 4D 45 52 00 21 0C D6 |ERAETENUMMER.!..|
00000510: 01 22 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 |." ;.|
00000520: 61 0C E0 01 22 42 41 53 5A 45 49 4C 20 3D 24 37 |a..."BASZEIL =$7|
00000530: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |A ;|
00000540: 5A 45 49 47 45 52 20 41 55 46 20 5A 45 49 43 48 |ZEIGER AUF ZEICH|
00000550: 45 4E 20 49 4D 20 42 41 53 49 43 54 45 58 54 00 |EN IM BASICTEXT.|
00000560: B2 0C EA 01 22 42 41 53 5A 45 49 48 20 3D 24 37 |...."BASZEIH =$7|
00000570: 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |B ;|
00000580: 57 49 52 44 20 42 45 49 20 43 48 52 47 45 54 20 |WIRD BEI CHRGET |
00000590: 45 52 48 4F 45 48 54 2C 20 42 4C 45 49 42 54 20 |ERHOEHT, BLEIBT |
000005A0: 42 45 49 20 43 48 52 47 4F 54 20 4B 4F 4E 53 54 |BEI CHRGOT KONST|
000005B0: 00 C5 0C F4 01 22 20 20 20 20 20 20 20 20 20 20 |....." |
000005C0: 20 20 3B 00 F8 0C FE 01 22 50 52 47 45 4E 44 4C | ;....."PRGENDL|
000005D0: 20 3D 24 32 44 20 20 20 20 20 20 20 20 20 20 20 | =$2D |
000005E0: 20 20 20 3B 50 52 4F 47 52 41 4D 4D 45 4E 44 45 | ;PROGRAMMENDE|
000005F0: 5A 45 49 47 45 52 00 37 0D 08 02 22 50 52 47 45 |ZEIGER.7..."PRGE|
00000600: 4E 44 48 20 3D 24 32 45 20 20 20 20 20 20 20 20 |NDH =$2E |
00000610: 20 20 20 20 20 20 3B 57 49 52 44 20 4E 41 43 48 | ;WIRD NACH|
00000620: 20 4C 4F 41 44 20 4A 45 57 45 49 4C 53 20 47 45 | LOAD JEWEILS GE|
00000630: 53 45 54 5A 54 00 4A 0D 12 02 22 20 20 20 20 20 |SETZT.J..." |
00000640: 20 20 20 20 20 20 20 3B 00 5D 0D 1C 02 22 20 20 | ;.]..." |
00000650: 20 20 20 20 20 20 20 20 20 20 3B 00 85 0D 26 02 | ;...&.|
00000660: 22 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 54 |" ;BET|
00000670: 52 49 45 42 53 53 59 53 54 45 4D 41 44 52 45 53 |RIEBSSYSTEMADRES|
00000680: 53 45 4E 00 AD 0D 30 02 22 20 20 20 20 20 20 20 |SEN...0." |
00000690: 20 20 20 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;***********|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 0D 3A 02 |***********...:.|
000006B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 D3 |" ;..|
000006C0: 0D 44 02 22 20 20 20 20 20 20 20 20 20 20 20 20 |.D." |
000006D0: 3B 00 09 0E 4E 02 22 43 48 52 47 45 54 20 20 3D |;...N."CHRGET =|
000006E0: 24 30 30 37 33 20 20 20 20 20 20 20 20 20 20 20 |$0073 |
000006F0: 20 3B 48 4F 4C 54 20 5A 45 49 43 48 45 4E 20 41 | ;HOLT ZEICHEN A|
00000700: 55 53 20 54 45 58 54 00 47 0E 58 02 22 43 48 52 |US TEXT.G.X."CHR|
00000710: 47 4F 54 20 20 3D 24 30 30 37 39 20 20 20 20 20 |GOT =$0079 |
00000720: 20 20 20 20 20 20 20 3B 48 4F 4C 54 20 4C 45 54 | ;HOLT LET|
00000730: 5A 54 45 53 20 5A 45 49 43 48 45 4E 20 41 55 53 |ZTES ZEICHEN AUS|
00000740: 20 54 45 58 54 00 76 0E 62 02 22 47 45 54 4E 41 | TEXT.v.b."GETNA|
00000750: 4D 45 20 3D 24 45 32 35 37 20 20 20 20 20 20 20 |ME =$E257 |
00000760: 20 20 20 20 20 3B 48 4F 4C 54 20 46 49 4C 45 4E | ;HOLT FILEN|
00000770: 41 4D 45 4E 00 A3 0E 6C 02 22 53 59 4E 54 41 58 |AMEN...l."SYNTAX|
00000780: 20 20 3D 24 41 46 30 38 20 20 20 20 20 20 20 20 | =$AF08 |
00000790: 20 20 20 20 3B 53 59 4E 54 41 58 20 45 52 52 4F | ;SYNTAX ERRO|
000007A0: 52 00 D7 0E 76 02 22 49 4E 54 53 43 48 4C 20 3D |R...v."INTSCHL =|
000007B0: 24 41 37 41 45 20 20 20 20 20 20 20 20 20 20 20 |$A7AE |
000007C0: 20 3B 49 4E 54 45 52 50 52 45 54 45 52 53 43 48 | ;INTERPRETERSCH|
000007D0: 4C 45 49 46 45 00 EA 0E 80 02 22 20 20 20 20 20 |LEIFE....." |
000007E0: 20 20 20 20 20 20 20 3B 00 17 0F 8A 02 22 4C 4F | ;....."LO|
000007F0: 41 44 20 20 20 20 3D 24 46 46 44 35 20 20 20 20 |AD =$FFD5 |
00000800: 20 20 20 20 20 20 20 20 3B 4C 4F 41 44 2D 52 4F | ;LOAD-RO|
00000810: 55 54 49 4E 45 00 43 0F 94 02 22 52 55 4E 20 20 |UTINE.C..."RUN |
00000820: 20 20 20 3D 24 41 36 35 39 20 20 20 20 20 20 20 | =$A659 |
00000830: 20 20 20 20 20 3B 52 55 4E 2D 52 4F 55 54 49 4E | ;RUN-ROUTIN|
00000840: 45 00 77 0F 9E 02 22 53 45 54 46 49 4C 20 20 3D |E.w..."SETFIL =|
00000850: 24 46 46 42 41 20 20 20 20 20 20 20 20 20 20 20 |$FFBA |
00000860: 20 3B 53 45 54 5A 54 20 46 49 4C 45 50 41 52 41 | ;SETZT FILEPARA|
00000870: 4D 45 54 45 52 00 BA 0F A8 02 22 45 52 52 41 55 |METER....."ERRAU|
00000880: 53 20 20 3D 24 45 30 46 39 20 20 20 20 20 20 20 |S =$E0F9 |
00000890: 20 20 20 20 20 3B 46 45 48 4C 45 52 41 55 53 57 | ;FEHLERAUSW|
000008A0: 45 52 54 55 4E 47 20 4E 41 43 48 20 4C 4F 41 44 |ERTUNG NACH LOAD|
000008B0: 2D 52 4F 55 54 49 4E 45 00 CD 0F B2 02 22 20 20 |-ROUTINE....." |
000008C0: 20 20 20 20 20 20 20 20 20 20 3B 00 E0 0F BC 02 | ;.....|
000008D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 F6 |" ;..|
000008E0: 0F C6 02 22 20 20 20 20 20 20 20 20 20 20 20 3B |..." ;|
000008F0: 49 4E 49 54 00 0C 10 D0 02 22 20 20 20 20 20 20 |INIT....." |
00000900: 20 20 20 20 20 3B 2A 2A 2A 2A 00 1F 10 DA 02 22 | ;****....."|
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 32 10 | ;.2.|
00000920: E4 02 22 20 20 20 20 20 20 20 20 20 20 20 20 3B |.." ;|
00000930: 00 70 10 EE 02 22 20 20 20 20 20 20 20 20 20 20 |.p..." |
00000940: 20 2E 42 59 20 24 45 34 20 20 20 20 20 20 20 20 | .BY $E4 |
00000950: 3B 44 45 46 41 55 4C 54 57 45 52 54 20 42 41 53 |;DEFAULTWERT BAS|
00000960: 49 43 5A 45 49 47 45 52 20 24 41 37 45 34 00 88 |ICZEIGER $A7E4..|
00000970: 10 F8 02 22 20 20 20 20 20 20 20 20 20 20 20 2E |..." .|
00000980: 42 59 20 24 41 37 00 9C 10 02 03 22 20 20 20 20 |BY $A7....." |
00000990: 20 20 20 20 20 20 20 53 45 49 00 CE 10 0C 03 22 | SEI....."|
000009A0: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 | LDA B|
000009B0: 41 53 42 4C 20 20 20 20 20 20 3B 4C 4F 57 5A 45 |ASBL ;LOWZE|
000009C0: 49 47 45 52 20 50 52 55 45 46 45 4E 00 EA 10 16 |IGER PRUEFEN....|
000009D0: 03 22 20 20 20 20 20 20 20 20 20 20 20 43 4D 50 |." CMP|
000009E0: 20 23 4E 42 41 53 42 4C 00 1E 11 20 03 22 20 20 | #NBASBL... ." |
000009F0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 4E 49 | BNE INI|
00000A00: 54 20 20 20 20 20 20 20 3B 55 4E 47 4C 45 49 43 |T ;UNGLEIC|
00000A10: 48 2C 20 44 41 4E 4E 20 49 4E 49 54 00 55 11 2A |H, DANN INIT.U.*|
00000A20: 03 22 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |." LDA|
00000A30: 20 42 41 53 42 48 20 20 20 20 20 20 3B 48 49 47 | BASBH ;HIG|
00000A40: 48 5A 45 49 47 45 52 20 56 45 52 47 4C 45 49 43 |HZEIGER VERGLEIC|
00000A50: 48 45 4E 00 71 11 34 03 22 20 20 20 20 20 20 20 |HEN.q.4." |
00000A60: 20 20 20 20 43 4D 50 20 23 4E 42 41 53 42 48 00 | CMP #NBASBH.|
00000A70: 8B 11 3E 03 22 20 20 20 20 20 20 20 20 20 20 20 |..>." |
00000A80: 42 45 51 20 52 55 45 43 4B 00 C8 11 48 03 22 49 |BEQ RUECK...H."I|
00000A90: 4E 49 54 20 20 20 20 20 20 20 4C 44 41 20 42 41 |NIT LDA BA|
00000AA0: 53 42 4C 20 20 20 20 20 20 3B 41 4C 54 45 4E 20 |SBL ;ALTEN |
00000AB0: 5A 45 49 47 45 52 20 4D 45 52 4B 45 4E 2C 20 4C |ZEIGER MERKEN, L|
00000AC0: 4F 57 42 59 54 45 00 FB 11 52 03 22 20 20 20 20 |OWBYTE...R." |
00000AD0: 20 20 20 20 20 20 20 53 54 41 20 4D 42 41 53 42 | STA MBASB|
00000AE0: 4C 20 20 20 20 20 3B 49 4E 20 24 43 39 30 30 20 |L ;IN $C900 |
00000AF0: 53 50 45 49 43 48 45 52 4E 00 25 12 5C 03 22 20 |SPEICHERN.%.\." |
00000B00: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 41 | LDA BA|
00000B10: 53 42 48 20 20 20 20 20 20 3B 48 49 47 48 2D 42 |SBH ;HIGH-B|
00000B20: 59 54 45 00 57 12 66 03 22 20 20 20 20 20 20 20 |YTE.W.f." |
00000B30: 20 20 20 20 53 54 41 20 4D 42 41 53 42 48 20 20 | STA MBASBH |
00000B40: 20 20 20 3B 49 4E 20 24 43 39 30 31 20 53 50 45 | ;IN $C901 SPE|
00000B50: 49 43 45 52 4E 00 90 12 70 03 22 20 20 20 20 20 |ICERN...p." |
00000B60: 20 20 20 20 20 20 4C 44 41 20 23 4E 42 41 53 42 | LDA #NBASB|
00000B70: 4C 20 20 20 20 3B 4E 45 55 45 4E 20 42 41 53 49 |L ;NEUEN BASI|
00000B80: 43 5A 45 49 47 45 52 20 53 45 54 5A 45 4E 00 CF |CZEIGER SETZEN..|
00000B90: 12 7A 03 22 20 20 20 20 20 20 20 20 20 20 20 53 |.z." S|
00000BA0: 54 41 20 42 41 53 42 4C 20 20 20 20 20 20 3B 4C |TA BASBL ;L|
00000BB0: 4F 57 42 59 54 45 20 24 32 39 20 49 4E 20 24 30 |OWBYTE $29 IN $0|
00000BC0: 33 30 38 20 53 50 45 49 43 48 45 52 4E 00 EB 12 |308 SPEICHERN...|
00000BD0: 84 03 22 20 20 20 20 20 20 20 20 20 20 20 4C 44 |.." LD|
00000BE0: 41 20 23 4E 42 41 53 42 48 00 2B 13 8E 03 22 20 |A #NBASBH.+..." |
00000BF0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 42 41 | STA BA|
00000C00: 53 42 48 20 20 20 20 20 20 3B 48 49 47 48 42 59 |SBH ;HIGHBY|
00000C10: 54 45 20 24 43 39 20 49 4E 20 24 30 33 30 39 20 |TE $C9 IN $0309 |
00000C20: 53 50 45 49 43 48 45 52 4E 00 3F 13 98 03 22 52 |SPEICHERN.?..."R|
00000C30: 55 45 43 4B 20 20 20 20 20 20 43 4C 49 00 53 13 |UECK CLI.S.|
00000C40: A2 03 22 20 20 20 20 20 20 20 20 20 20 20 52 54 |.." RT|
00000C50: 53 00 66 13 AC 03 22 20 20 20 20 20 20 20 20 20 |S.f..." |
00000C60: 20 20 20 3B 00 79 13 B6 03 22 20 20 20 20 20 20 | ;.y..." |
00000C70: 20 20 20 20 20 20 3B 00 9A 13 C0 03 22 20 20 20 | ;....." |
00000C80: 20 20 20 20 20 20 20 20 3B 4E 45 55 45 52 20 45 | ;NEUER E|
00000C90: 49 4E 53 50 52 55 4E 47 00 BB 13 CA 03 22 20 20 |INSPRUNG....." |
00000CA0: 20 20 20 20 20 20 20 20 20 3B 2A 2A 2A 2A 2A 2A | ;******|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CE 13 D4 03 22 20 |*********....." |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 3B 00 E1 13 DE | ;....|
00000CD0: 03 22 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 |." ;.|
00000CE0: FB 13 E8 03 22 20 20 20 20 20 20 20 20 20 20 4A |...." J|
00000CF0: 53 52 20 43 48 52 47 45 54 00 2B 14 F2 03 22 20 |SR CHRGET.+..." |
00000D00: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 27 21 | CMP #'!|
00000D10: 20 20 20 20 20 20 20 20 3B 41 55 53 52 55 46 45 | ;AUSRUFE|
00000D20: 5A 45 49 43 48 45 4E 20 3F 00 62 14 FC 03 22 20 |ZEICHEN ?.b..." |
00000D30: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 4F 55 | BEQ FOU|
00000D40: 4E 44 20 20 20 20 20 20 3B 4A 41 2C 20 44 41 4E |ND ;JA, DAN|
00000D50: 4E 20 45 49 47 45 4E 45 20 52 4F 55 54 49 4E 45 |N EIGENE ROUTINE|
00000D60: 00 68 14 06 04 22 00 97 14 10 04 22 20 20 20 20 |.h..."....." |
00000D70: 20 20 20 20 20 20 4C 44 58 20 42 41 53 5A 45 49 | LDX BASZEI|
00000D80: 4C 20 20 20 20 3B 42 41 53 49 43 5A 45 49 47 45 |L ;BASICZEIGE|
00000D90: 52 20 4C 4F 57 00 AF 14 1A 04 22 20 20 20 20 20 |R LOW....." |
00000DA0: 20 20 20 20 20 42 4E 45 20 4C 41 42 31 00 FA 14 | BNE LAB1...|
00000DB0: 24 04 22 20 20 20 20 20 20 20 20 20 20 44 45 43 |$." DEC|
00000DC0: 20 42 41 53 5A 45 49 48 20 20 20 20 3B 42 41 53 | BASZEIH ;BAS|
00000DD0: 49 43 5A 45 49 47 45 52 20 48 49 47 48 20 44 45 |ICZEIGER HIGH DE|
00000DE0: 4B 52 45 4D 45 4E 54 49 45 52 45 4E 2C 20 57 45 |KREMENTIEREN, WE|
00000DF0: 4E 4E 20 4C 4F 57 3D 30 00 38 15 2E 04 22 4C 41 |NN LOW=0.8..."LA|
00000E00: 42 31 20 20 20 20 20 20 44 45 43 20 42 41 53 5A |B1 DEC BASZ|
00000E10: 45 49 4C 20 20 20 20 3B 42 41 53 49 43 5A 45 49 |EIL ;BASICZEI|
00000E20: 47 45 52 20 4C 4F 57 20 44 45 4B 52 45 4D 45 4E |GER LOW DEKREMEN|
00000E30: 54 49 45 52 45 4E 00 74 15 38 04 22 20 20 20 20 |TIEREN.t.8." |
00000E40: 20 20 20 20 20 20 4A 4D 50 20 28 4D 42 41 53 42 | JMP (MBASB|
00000E50: 4C 29 20 20 20 3B 49 4E 54 45 52 50 52 45 54 45 |L) ;INTERPRETE|
00000E60: 52 42 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 |RBEFEHL AUSFUEHR|
00000E70: 45 4E 00 B4 15 42 04 22 46 4F 55 4E 44 20 20 20 |EN...B."FOUND |
00000E80: 20 20 4A 53 52 20 43 48 52 47 45 54 20 20 20 20 | JSR CHRGET |
00000E90: 20 3B 5A 45 49 47 45 52 20 41 55 46 20 45 52 53 | ;ZEIGER AUF ERS|
00000EA0: 54 45 53 20 5A 45 49 43 48 45 4E 20 53 45 54 5A |TES ZEICHEN SETZ|
00000EB0: 45 4E 00 E2 15 4C 04 22 20 20 20 20 20 20 20 20 |EN...L." |
00000EC0: 20 20 4A 53 52 20 47 45 54 4E 41 4D 45 20 20 20 | JSR GETNAME |
00000ED0: 20 3B 48 4F 4C 54 20 46 49 4C 45 4E 41 4D 45 4E | ;HOLT FILENAMEN|
00000EE0: 00 14 16 56 04 22 20 20 20 20 20 20 20 20 20 20 |...V." |
00000EF0: 4C 44 59 20 23 53 45 4B 41 44 52 20 20 20 20 3B |LDY #SEKADR ;|
00000F00: 53 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 45 |SEKUNDAERADRESSE|
00000F10: 20 32 00 40 16 60 04 22 20 20 20 20 20 20 20 20 | 2.@.`." |
00000F20: 20 20 4C 44 41 20 23 46 49 4C 45 4E 52 20 20 20 | LDA #FILENR |
00000F30: 20 3B 46 49 4C 45 4E 55 4D 4D 45 52 20 32 00 78 | ;FILENUMMER 2.x|
00000F40: 16 6A 04 22 20 20 20 20 20 20 20 20 20 20 4C 44 |.j." LD|
00000F50: 58 20 23 47 45 52 4E 52 20 20 20 20 20 3B 47 45 |X #GERNR ;GE|
00000F60: 52 41 45 54 45 4E 55 4D 4D 45 52 20 38 20 3D 20 |RAETENUMMER 8 = |
00000F70: 46 4C 4F 50 50 59 00 AB 16 74 04 22 20 20 20 20 |FLOPPY...t." |
00000F80: 20 20 20 20 20 20 4A 53 52 20 53 45 54 46 49 4C | JSR SETFIL|
00000F90: 20 20 20 20 20 3B 53 45 54 5A 54 20 46 49 4C 45 | ;SETZT FILE|
00000FA0: 50 41 52 41 4D 45 54 45 52 00 E9 16 7E 04 22 20 |PARAMETER...~." |
00000FB0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0|
00000FC0: 30 20 20 20 20 20 20 20 3B 5A 45 49 47 54 20 4C |0 ;ZEIGT L|
00000FD0: 4F 41 44 20 41 4E 3B 20 24 30 31 20 46 55 45 52 |OAD AN; $01 FUER|
00000FE0: 20 56 45 52 49 46 59 00 14 17 88 04 22 20 20 20 | VERIFY....." |
00000FF0: 20 20 20 20 20 20 20 4A 53 52 20 4C 4F 41 44 20 | JSR LOAD |
00001000: 20 20 20 20 20 20 3B 4C 4F 41 44 52 4F 55 54 49 | ;LOADROUTI|
00001010: 4E 45 00 41 17 92 04 22 20 20 20 20 20 20 20 20 |NE.A..." |
00001020: 20 20 42 43 43 20 4F 4B 20 20 20 20 20 20 20 20 | BCC OK |
00001030: 20 3B 46 45 48 4C 45 52 41 55 53 47 41 42 45 00 | ;FEHLERAUSGABE.|
00001040: 77 17 9C 04 22 20 20 20 20 20 20 20 20 20 20 4A |w..." J|
00001050: 4D 50 20 45 52 52 41 55 53 20 20 20 20 20 3B 46 |MP ERRAUS ;F|
00001060: 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 41 55 53 |EHLERMELDUNG AUS|
00001070: 47 45 42 45 4E 00 AB 17 A6 04 22 4F 4B 20 20 20 |GEBEN....."OK |
00001080: 20 20 20 20 20 53 54 58 20 50 52 47 45 4E 44 4C | STX PRGENDL|
00001090: 20 20 20 20 3B 45 4E 44 45 5A 45 49 47 45 52 20 | ;ENDEZEIGER |
000010A0: 53 50 45 49 43 48 45 52 4E 00 C6 17 B0 04 22 20 |SPEICHERN....." |
000010B0: 20 20 20 20 20 20 20 20 20 53 54 59 20 50 52 47 | STY PRG|
000010C0: 45 4E 44 48 00 F6 17 BA 04 22 20 20 20 20 20 20 |ENDH....." |
000010D0: 20 20 20 20 4A 53 52 20 52 55 4E 20 20 20 20 20 | JSR RUN |
000010E0: 20 20 20 3B 50 52 4F 47 52 41 4D 4D 20 53 54 41 | ;PROGRAMM STA|
000010F0: 52 54 45 4E 00 35 18 C4 04 22 20 20 20 20 20 20 |RTEN.5..." |
00001100: 20 20 20 20 4A 4D 50 20 49 4E 54 53 43 48 4C 20 | JMP INTSCHL |
00001110: 20 20 20 3B 5A 55 52 55 45 43 4B 20 5A 55 52 20 | ;ZURUECK ZUR |
00001120: 49 4E 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 |INTERPRETERSCHLE|
00001130: 49 46 45 00 47 18 CE 04 22 20 20 20 20 20 20 20 |IFE.G..." |
00001140: 20 20 20 20 3B 00 59 18 D8 04 22 20 20 20 20 20 | ;.Y..." |
00001150: 20 20 20 20 20 20 3B 00 6D 18 E2 04 22 20 20 20 | ;.m..." |
00001160: 20 20 20 20 20 20 20 3B 4F 4C 44 00 81 18 EC 04 | ;OLD.....|
00001170: 22 20 20 20 20 20 20 20 20 20 20 3B 2A 2A 2A 00 |" ;***.|
00001180: 93 18 F6 04 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00001190: 3B 00 A5 18 00 05 22 20 20 20 20 20 20 20 20 20 |;....." |
000011A0: 20 20 3B 00 DD 18 0A 05 22 20 20 20 20 20 20 20 | ;....." |
000011B0: 20 20 20 4C 44 41 20 42 41 53 42 4C 20 20 20 20 | LDA BASBL |
000011C0: 20 20 3B 42 41 53 49 43 5A 45 49 47 45 52 20 50 | ;BASICZEIGER P|
000011D0: 52 55 45 46 45 4E 3B 20 4C 4F 57 00 10 19 14 05 |RUEFEN; LOW.....|
000011E0: 22 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |" CMP #|
000011F0: 4E 42 41 53 42 4C 20 20 20 20 3B 47 4C 45 49 43 |NBASBL ;GLEIC|
00001200: 48 20 4E 45 55 45 4D 20 5A 45 49 47 45 52 00 4A |H NEUEM ZEIGER.J|
00001210: 19 1E 05 22 20 20 20 20 20 20 20 20 20 20 42 4E |..." BN|
00001220: 45 20 42 41 43 4B 20 20 20 20 20 20 20 3B 55 4E |E BACK ;UN|
00001230: 47 4C 45 49 43 48 2C 20 44 41 4E 4E 20 52 55 45 |GLEICH, DANN RUE|
00001240: 43 4B 53 50 52 55 4E 47 00 7E 19 28 05 22 20 20 |CKSPRUNG.~.(." |
00001250: 20 20 20 20 20 20 20 20 4C 44 41 20 42 41 53 42 | LDA BASB|
00001260: 48 20 20 20 20 20 20 3B 48 49 47 48 42 59 54 45 |H ;HIGHBYTE|
00001270: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 B3 19 32 | VERGLEICHEN...2|
00001280: 05 22 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 |." CMP |
00001290: 23 4E 42 41 53 42 48 20 20 20 20 3B 47 4C 45 49 |#NBASBH ;GLEI|
000012A0: 43 48 20 4E 45 55 45 4D 20 5A 45 49 47 45 52 20 |CH NEUEM ZEIGER |
000012B0: 3F 00 CB 19 3C 05 22 20 20 20 20 20 20 20 20 20 |?...<." |
000012C0: 20 42 4E 45 20 42 41 43 4B 00 DE 19 46 05 22 20 | BNE BACK...F." |
000012D0: 20 20 20 20 20 20 20 20 20 53 45 49 00 0F 1A 50 | SEI...P|
000012E0: 05 22 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |." LDA |
000012F0: 4D 42 41 53 42 4C 20 20 20 20 20 3B 41 4C 54 45 |MBASBL ;ALTE|
00001300: 52 20 5A 45 49 47 45 52 2C 20 4C 4F 57 00 28 1A |R ZEIGER, LOW.(.|
00001310: 5A 05 22 20 20 20 20 20 20 20 20 20 20 53 54 41 |Z." STA|
00001320: 20 42 41 53 42 4C 00 53 1A 64 05 22 20 20 20 20 | BASBL.S.d." |
00001330: 20 20 20 20 20 20 4C 44 41 20 4D 42 41 53 42 48 | LDA MBASBH|
00001340: 20 20 20 20 20 3B 5A 45 49 47 45 52 20 48 49 47 | ;ZEIGER HIG|
00001350: 48 00 8E 1A 6E 05 22 20 20 20 20 20 20 20 20 20 |H...n." |
00001360: 20 53 54 41 20 42 41 53 42 48 20 20 20 20 20 20 | STA BASBH |
00001370: 3B 4F 52 49 47 49 4E 41 4C 5A 45 49 47 45 52 20 |;ORIGINALZEIGER |
00001380: 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 A1 1A 78 |ZURUECKHOLEN...x|
00001390: 05 22 20 20 20 20 20 20 20 20 20 20 43 4C 49 00 |." CLI.|
000013A0: B4 1A 82 05 22 42 41 43 4B 20 20 20 20 20 20 52 |...."BACK R|
000013B0: 54 53 00 00 00 |TS... |
.. ..X.......P ...... S.. `.L..,..0.P...
.JJ.....JJ.....JJ.....`M-E.....0L0..+..P
... ...O .. .... ..HP. ..X... A...1. A..
. A.....P...P... .A..... ....... .......
..X..0.X...HP.....L...I.....).H.....H...
..)......J.).....JJ)....DL.H.....(PG ...
.HP......XL".... .D."; *************
******.?.N."; * *.^.
X."; * AUTOSTART FUER *.}...";
* *....."; *
*....."; * BASICPROGRAMME
*.Z. ."; * *.....";
* AUF C64, V1.0 *....."; *
*.7..."; **************
*****.>.H.";.E.R.";.L...";.S...";.Z...";
.A...";.H...";....." .BA $C900
..."." ;...,." ;.E
.6." ;RAMADRESSEN...@."
;***********...J." ;...T.
" ;.U.^."BASBL =$0308
;ENTHALTEN EINSPRUNGADRESSE FUER B
ASICBEFEHLE.H.H."BASBH =$0309.{.R."
;.F.|."MBASBL =$C900
;ZWISCHENSPEICHER FUER ALTEN BASICEINSP
RUNG.Z..."MBASBH =$C901....."
;.5..."NBASBL =$29 ;NEUE
EINSPRUNGADRESSE FUER BASICBEFEHLE._...
"NBASBH =$C9 ;IST $C929.R.
.." ;....."FILENR =$02
;LOGISCHE FILENUMMER.W.B."SEKADR
=$02 ;SEKUNDAERADRESSE...
L."GERNR =$08 ;ENTHAELT G
ERAETENUMMER.!.V." ;.A..."BAS
ZEIL =$7A ;ZEIGER AUF ZEICH
EN IM BASICTEXT....."BASZEIH =$7B
;WIRD BEI CHRGET ERHOEHT, BLEIBT
BEI CHRGOT KONST.E..." ;.....
"PRGENDL =$2D ;PROGRAMMENDE
ZEIGER.7..."PRGENDH =$2E ;W
IRD NACH LOAD JEWEILS GESETZT.J..."
;.]..." ;...&."
;BETRIEBSSYSTEMADRESSEN...0."
;**********************...:."
;.S.D." ;...N."CHRGET =
$0073 ;HOLT ZEICHEN AUS TEXT.
G.X."CHRGOT =$0079 ;HOLT LET
ZTES ZEICHEN AUS TEXT.V.B."GETNAME =$E25
7 ;HOLT FILENAMEN...L."SYNTAX
=$AF08 ;SYNTAX ERROR.W.V."I
NTSCHL =$A7AE ;INTERPRETERSCH
LEIFE....." ;....."LOAD =$
FFD5 ;LOAD-ROUTINE.C..."RUN
=$A659 ;RUN-ROUTINE.W..."S
ETFIL =$FFBA ;SETZT FILEPARA
METER....."ERRAUS =$E0F9 ;FE
HLERAUSWERTUNG NACH LOAD-ROUTINE.M..."
;....." ;...F."
;INIT...P." ;****...Z."
;.2..." ;.P..."
.BY $E4 ;DEFAULTWERT BAS
ICZEIGER $A7E4....." .BY $A7..
..." SEI.N..." LDA B
ASBL ;LOWZEIGER PRUEFEN....."
CMP #NBASBL... ." BNE INI
T ;UNGLEICH, DANN INIT.U.*."
LDA BASBH ;HIGHZEIGER VERGLEIC
HEN.Q.4." CMP #NBASBH...>."
BEQ RUECK.H.H."INIT LDA BA
SBL ;ALTEN ZEIGER MERKEN, LOWBYTE..
.R." STA MBASBL ;IN $C900
SPEICHERN.%.\." LDA BASBH
;HIGH-BYTE.W.F." STA MBASBH
;IN $C901 SPEICERN...P." LD
A #NBASBL ;NEUEN BASICZEIGER SETZEN.O
.Z." STA BASBL ;LOWBYTE $
29 IN $0308 SPEICHERN....." LD
A #NBASBH.+..." STA BASBH
;HIGHBYTE $C9 IN $0309 SPEICHERN.?..."R
UECK CLI.S..." RTS.F..."
;.Y..." ;....."
;NEUER EINSPRUNG...J."
;***************.N.T." ;....
." ;....." JSR CHRGE
T.+..." CMP #'! ;AUSRUFE
ZEICHEN ?.B..." BEQ FOUND
;JA, DANN EIGENE ROUTINE.H..."....."
LDX BASZEIL ;BASICZEIGER LOW...
.." BNE LAB1...$." DEC
BASZEIH ;BASICZEIGER HIGH DEKREMENTI
EREN, WENN LOW=0.8..."LAB1 DEC BASZ
EIL ;BASICZEIGER LOW DEKREMENTIEREN.T
.8." JMP (MBASBL) ;INTERPRETE
RBEFEHL AUSFUEHREN...B."FOUND JSR CH
RGET ;ZEIGER AUF ERSTES ZEICHEN SETZ
EN...L." JSR GETNAME ;HOLT F
ILENAMEN...V." LDY #SEKADR ;
SEKUNDAERADRESSE 2.@.`." LDA #F
ILENR ;FILENUMMER 2.X.J." LD
X #GERNR ;GERAETENUMMER 8 = FLOPPY..
.T." JSR SETFIL ;SETZT FILE
PARAMETER...~." LDA #$00
;ZEIGT LOAD AN; $01 FUER VERIFY....."
JSR LOAD ;LOADROUTINE.A..."
BCC OK ;FEHLERAUSGABE.
W..." JMP ERRAUS ;FEHLERMEL
DUNG AUSGEBEN....."OK STX PRGENDL
;ENDEZEIGER SPEICHERN.F..."
STY PRGENDH....." JSR RUN
;PROGRAMM STARTEN.5.D." JMP
INTSCHL ;ZURUECK ZUR INTERPRETERSCHLE
IFE.G.N." ;.Y.X." ;.
M..." ;OLD....." ;***.
...." ;....." ;.....
" LDA BASBL ;BASICZEIGER P
RUEFEN; LOW....." CMP #NBASBL
;GLEICH NEUEM ZEIGER.J..." BN
E BACK ;UNGLEICH, DANN RUECKSPRUNG
.~.(." LDA BASBH ;HIGHBYTE
VERGLEICHEN...2." CMP #NBASBH
;GLEICH NEUEM ZEIGER ?.K.<."
BNE BACK...F." SEI...P."
LDA MBASBL ;ALTER ZEIGER, LOW.(.
Z." STA BASBL.S.D." LD
A MBASBH ;ZEIGER HIGH...N."
STA BASBH ;ORIGINALZEIGER ZURUECKH
OLEN...X." CLI....."BACK R
TS...
> CLICK IMAGE PREVIEW FOR FULL MODAL