INT-FLOPPY SRC
FILE INFORMATION
FILENAME(S): INT-FLOPPY SRC
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-02 22:11:39
APPEARS ON: 3 disk(s)
FILE HASH
32c40c3a2b1253c2a99de2771ec272ab63dba848dffff1e8959a3b36fda7f09e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15715 46ER SH15 | INT-FLOPPY SRC | PRG | Treasure Chest - ToGuMi | 2 | 5 | DOWNLOAD FILE |
| 15715 46ER SH15 | INT-FLOPPY SRC | PRG | C64er | 2 | 5 | DOWNLOAD FILE |
| ADLER DISK A76 A | INT-FLOPPY SRC | PRG | BrainSkull, Sammlung | 34 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 01 00 3B 20 AC AC AC 20 B5 45 4C 4C |.."...; ... .ELL| 00000010: 49 47 45 4E 54 45 20 46 4C 4F 50 50 59 20 AC AC |IGENTE FLOPPY ..| 00000020: AC AC 00 45 08 02 00 3B 20 AC AC AC AC AC AC AC |...E...; .......| 00000030: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000040: AC AC AC AC AC 00 68 08 03 00 3B 20 AC 20 57 52 |......h...; . WR| 00000050: 49 54 54 45 4E 20 42 59 20 53 54 45 46 41 4E 20 |ITTEN BY STEFAN | 00000060: 52 4F 54 48 45 52 20 AC 00 8B 08 04 00 3B 20 AC |ROTHER ......; .| 00000070: 20 20 20 46 52 41 55 45 4E 5A 45 4C 4C 53 54 52 | FRAUENZELLSTR| 00000080: 41 53 53 45 20 32 36 20 20 20 AC 00 AE 08 05 00 |ASSE 26 ......| 00000090: 3B 20 AC 20 20 20 20 20 38 34 30 30 20 52 45 47 |; . 8400 REG| 000000A0: 45 4E 53 42 55 52 47 20 20 20 20 20 20 AC 00 D1 |ENSBURG ...| 000000B0: 08 06 00 3B 20 AC AC AC AC AC AC AC AC AC AC AC |...; ...........| 000000C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000000D0: AC 00 F4 08 07 00 3B 20 AC 20 20 28 43 29 20 31 |......; . (C) 1| 000000E0: 39 38 36 20 4D 41 52 4B 54 26 54 45 43 48 4E 49 |986 MARKT&TECHNI| 000000F0: 4B 20 20 AC 00 17 09 08 00 3B 20 AC 20 20 20 20 |K ......; . | 00000100: 20 20 20 20 56 45 52 4C 41 47 20 41 47 20 20 20 | VERLAG AG | 00000110: 20 20 20 20 20 20 AC 00 3A 09 09 00 3B 20 AC AC | ..:...; ..| 00000120: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000130: AC AC AC AC AC AC AC AC AC AC 00 58 09 0A 00 2E |...........X....| 00000140: 42 41 24 43 45 31 38 20 3B 53 54 41 52 54 20 42 |BA$CE18 ;START B| 00000150: 45 49 20 35 32 37 36 30 00 78 09 14 00 20 4A 53 |EI 52760.x... JS| 00000160: 52 24 41 45 46 44 3B 41 55 46 20 4B 4F 4D 4D 41 |R$AEFD;AUF KOMMA| 00000170: 20 50 52 55 45 46 45 4E 00 9E 09 1E 00 20 4A 53 | PRUEFEN..... JS| 00000180: 52 24 42 37 39 45 3B 38 20 42 49 54 2D 5A 41 48 |R$B79E;8 BIT-ZAH| 00000190: 4C 20 4E 41 43 48 20 58 20 48 4F 4C 45 4E 00 BF |L NACH X HOLEN..| 000001A0: 09 3C 00 20 53 54 58 5A 31 3B 55 4E 44 20 5A 57 |.<. STXZ1;UND ZW| 000001B0: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.| 000001C0: E0 09 41 00 20 4C 44 41 23 30 37 3B 4D 41 53 4B |..A. LDA#07;MASK| 000001D0: 45 20 5A 55 4D 20 41 55 53 46 49 4C 54 45 52 4E |E ZUM AUSFILTERN| 000001E0: 00 01 0A 46 00 20 41 4E 44 5A 31 3B 56 4F 4E 20 |...F. ANDZ1;VON | 000001F0: 42 49 54 20 30 2D 32 20 45 52 53 54 45 4C 4C 45 |BIT 0-2 ERSTELLE| 00000200: 4E 00 07 0A 4A 00 3B 00 1A 0A 4B 00 3B 53 50 52 |N...J.;...K.;SPR| 00000210: 55 4E 47 54 41 42 45 4C 4C 45 00 20 0A 4C 00 3B |UNGTABELLE. .L.;| 00000220: 00 31 0A 50 00 20 42 4E 45 59 31 3B 42 45 49 20 |.1.P. BNEY1;BEI | 00000230: 30 00 52 0A 55 00 20 4A 4D 50 4C 4F 41 44 31 3B |0.R.U. JMPLOAD1;| 00000240: 50 52 47 20 4D 49 54 20 27 2C 38 27 20 4C 41 44 |PRG MIT ',8' LAD| 00000250: 45 4E 00 72 0A 5A 00 59 31 20 43 4D 50 23 30 31 |EN.r.Z.Y1 CMP#01| 00000260: 3B 4D 49 54 20 31 20 56 45 52 47 4C 45 49 43 48 |;MIT 1 VERGLEICH| 00000270: 45 4E 00 8A 0A 64 00 20 42 4E 45 59 32 3B 57 45 |EN...d. BNEY2;WE| 00000280: 4E 4E 20 31 20 2C 44 41 4E 4E 00 AD 0A 69 00 20 |NN 1 ,DANN...i. | 00000290: 4A 4D 50 4C 4F 41 44 32 3B 50 52 47 20 4D 49 54 |JMPLOAD2;PRG MIT| 000002A0: 20 27 2C 38 2C 31 27 20 4C 41 44 45 4E 00 CD 0A | ',8,1' LADEN...| 000002B0: 6E 00 59 32 20 43 4D 50 23 30 32 3B 4D 49 54 20 |n.Y2 CMP#02;MIT | 000002C0: 32 20 56 45 52 47 4C 45 49 43 48 45 4E 00 E5 0A |2 VERGLEICHEN...| 000002D0: 78 00 20 42 4E 45 59 33 3B 57 45 4E 4E 20 32 20 |x. BNEY3;WENN 2 | 000002E0: 2C 44 41 4E 4E 00 0B 0B 7D 00 20 4A 4D 50 53 41 |,DANN...}. JMPSA| 000002F0: 56 45 3B 5A 55 52 20 53 41 56 45 52 4F 55 54 49 |VE;ZUR SAVEROUTI| 00000300: 4E 45 20 53 50 52 49 4E 47 45 4E 00 2B 0B 82 00 |NE SPRINGEN.+...| 00000310: 59 33 20 43 4D 50 23 30 33 3B 4D 49 54 20 33 20 |Y3 CMP#03;MIT 3 | 00000320: 56 45 52 47 4C 45 49 43 48 45 4E 00 43 0B 8C 00 |VERGLEICHEN.C...| 00000330: 20 42 4E 45 59 34 3B 57 45 4E 4E 20 33 20 2C 44 | BNEY4;WENN 3 ,D| 00000340: 41 4E 4E 00 68 0B 91 00 20 4A 4D 50 47 4F 54 4F |ANN.h... JMPGOTO| 00000350: 3B 27 47 4F 54 4F 27 2D 52 4F 55 54 49 4E 45 20 |;'GOTO'-ROUTINE | 00000360: 41 55 46 52 55 46 45 4E 00 89 0B 96 00 59 34 20 |AUFRUFEN.....Y4 | 00000370: 43 4D 50 23 30 34 3B 55 4E 44 20 44 41 53 53 45 |CMP#04;UND DASSE| 00000380: 4C 42 45 20 4D 49 54 20 34 00 A0 0B A0 00 20 42 |LBE MIT 4..... B| 00000390: 4E 45 59 35 3B 57 45 4E 4E 20 34 2C 44 41 4E 4E |NEY5;WENN 4,DANN| 000003A0: 00 C3 0B A5 00 20 4A 4D 50 4A 55 4D 50 3B 27 4A |..... JMPJUMP;'J| 000003B0: 4D 50 27 2D 41 53 53 45 4D 42 4C 45 52 42 45 46 |MP'-ASSEMBLERBEF| 000003C0: 45 48 4C 00 EB 0B AA 00 59 35 20 52 54 53 3B 57 |EHL.....Y5 RTS;W| 000003D0: 45 4E 4E 20 4B 45 49 4E 20 4D 4F 44 55 53 2C 44 |ENN KEIN MODUS,D| 000003E0: 41 4E 4E 20 5A 55 52 55 45 43 4B 00 F1 0B B4 00 |ANN ZURUECK.....| 000003F0: 3B 00 10 0C B9 00 3B 41 4C 47 4F 52 49 54 48 4D |;.....;ALGORITHM| 00000400: 55 53 20 5A 55 4D 20 41 55 53 57 45 52 54 45 4E |US ZUM AUSWERTEN| 00000410: 00 2D 0C BA 00 3B 45 49 4E 45 53 20 44 49 53 4B |.-...;EINES DISK| 00000420: 45 54 54 45 4E 57 45 43 48 53 45 4C 53 00 33 0C |ETTENWECHSELS.3.| 00000430: BC 00 3B 00 54 0C BE 00 46 4C 4F 50 50 59 20 4C |..;.T...FLOPPY L| 00000440: 44 41 23 30 38 3B 50 41 52 41 4D 45 54 45 52 20 |DA#08;PARAMETER | 00000450: 46 55 45 52 00 6E 0C C8 00 20 4C 44 58 23 30 38 |FUER.n... LDX#08| 00000460: 3B 27 4F 50 45 4E 20 38 2C 38 2C 31 35 27 00 81 |;'OPEN 8,8,15'..| 00000470: 0C D2 00 20 4C 44 59 23 31 35 3B 53 45 54 5A 45 |... LDY#15;SETZE| 00000480: 4E 00 A0 0C DC 00 20 4A 53 52 24 46 46 42 41 3B |N..... JSR$FFBA;| 00000490: 46 49 4C 45 20 56 4F 52 42 45 52 45 49 54 45 4E |FILE VORBEREITEN| 000004A0: 00 BA 0C E6 00 20 4C 44 41 23 30 30 3B 4B 45 49 |..... LDA#00;KEI| 000004B0: 4E 20 46 49 4C 45 4E 41 4D 45 00 DE 0C F0 00 20 |N FILENAME..... | 000004C0: 4A 53 52 24 46 46 42 44 3B 46 49 4C 45 4E 41 4D |JSR$FFBD;FILENAM| 000004D0: 45 4E 20 56 4F 52 42 45 52 45 49 54 45 4E 00 F3 |EN VORBEREITEN..| 000004E0: 0C FA 00 20 4A 53 52 24 46 46 43 30 3B 27 4F 50 |... JSR$FFC0;'OP| 000004F0: 45 4E 27 00 11 0D 04 01 20 4A 4D 50 41 3B 5A 55 |EN'..... JMPA;ZU| 00000500: 52 20 44 41 54 45 4E 41 55 53 57 45 52 54 55 4E |R DATENAUSWERTUN| 00000510: 47 00 2B 0D 0E 01 58 20 4C 44 58 23 30 38 3B 46 |G.+...X LDX#08;F| 00000520: 55 45 52 20 4B 41 4E 41 4C 20 38 00 4C 0D 18 01 |UER KANAL 8.L...| 00000530: 20 4A 53 52 24 46 46 43 39 3B 43 4D 44 20 4F 55 | JSR$FFC9;CMD OU| 00000540: 54 20 41 4B 54 49 56 49 45 52 45 4E 00 69 0D 22 |T AKTIVIEREN.i."| 00000550: 01 20 4C 44 58 23 30 30 3B 5A 41 45 48 4C 45 52 |. LDX#00;ZAEHLER| 00000560: 20 41 55 46 20 4E 55 4C 4C 00 87 0D 2C 01 42 31 | AUF NULL...,.B1| 00000570: 20 4C 44 41 54 31 2C 58 3B 55 4E 44 20 56 4F 4E | LDAT1,X;UND VON| 00000580: 20 46 4C 4F 50 50 59 00 A8 0D 36 01 20 4A 53 52 | FLOPPY...6. JSR| 00000590: 24 46 46 44 32 3B 50 45 52 20 42 45 46 45 48 4C |$FFD2;PER BEFEHL| 000005A0: 53 53 45 51 55 45 4E 5A 00 BF 0D 40 01 20 49 4E |SSEQUENZ...@. IN| 000005B0: 58 3B 56 4F 4E 20 36 20 5A 45 49 43 48 45 4E 00 |X;VON 6 ZEICHEN.| 000005C0: DC 0D 4A 01 20 43 50 58 23 30 36 3B 49 4E 48 41 |..J. CPX#06;INHA| 000005D0: 4C 54 20 56 4F 4E 20 24 31 43 30 30 00 F0 0D 54 |LT VON $1C00...T| 000005E0: 01 20 42 4E 45 42 31 3B 41 42 46 52 41 47 45 4E |. BNEB1;ABFRAGEN| 000005F0: 00 06 0E 5E 01 20 4A 53 52 24 46 46 43 43 3B 43 |...^. JSR$FFCC;C| 00000600: 4D 44 20 4F 46 46 00 13 0E 68 01 59 20 4C 44 58 |MD OFF...h.Y LDX| 00000610: 23 30 38 00 33 0E 72 01 20 4A 53 52 24 46 46 43 |#08.3.r. JSR$FFC| 00000620: 36 3B 43 4D 44 20 49 4E 20 41 4B 54 49 56 49 45 |6;CMD IN AKTIVIE| 00000630: 52 45 4E 00 55 0E 7C 01 20 4A 53 52 24 46 46 43 |REN.U.|. JSR$FFC| 00000640: 46 3B 42 45 53 41 47 54 45 53 20 42 59 54 45 20 |F;BESAGTES BYTE | 00000650: 48 4F 4C 45 4E 00 74 0E 81 01 20 50 48 41 3B 55 |HOLEN.t... PHA;U| 00000660: 4E 44 20 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |ND ZWISCHENSPEIC| 00000670: 48 45 52 4E 00 93 0E 86 01 20 4A 53 52 24 46 46 |HERN..... JSR$FF| 00000680: 43 43 3B 43 4D 44 20 49 4E 41 4B 54 49 56 49 45 |CC;CMD INAKTIVIE| 00000690: 52 45 4E 00 AE 0E 8B 01 20 50 4C 41 3B 42 59 54 |REN..... PLA;BYT| 000006A0: 45 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 D9 |E ZURUECKHOLEN..| 000006B0: 0E 90 01 20 52 54 53 3B 45 4E 44 45 20 44 45 53 |... RTS;ENDE DES| 000006C0: 20 55 4E 54 45 52 50 52 47 27 53 20 27 44 41 54 | UNTERPRG'S 'DAT| 000006D0: 45 4E 20 48 4F 4C 45 4E 27 00 DF 0E 9A 01 3B 00 |EN HOLEN'.....;.| 000006E0: 04 0F 9B 01 3B 46 4F 52 54 46 55 45 48 52 55 4E |....;FORTFUEHRUN| 000006F0: 47 20 44 45 53 20 48 41 55 50 54 50 52 4F 47 52 |G DES HAUPTPROGR| 00000700: 41 4D 4D 53 00 0A 0F 9C 01 3B 00 35 0F 9F 01 41 |AMMS.....;.5...A| 00000710: 20 4A 53 52 42 49 54 30 35 3B 42 49 54 20 35 3D | JSRBIT05;BIT 5=| 00000720: 31 20 28 44 49 4B 45 54 54 45 4E 57 45 43 48 53 |1 (DIKETTENWECHS| 00000730: 45 4C 29 20 3F 00 5E 0F A1 01 20 4A 53 52 4C 45 |EL) ?.^... JSRLE| 00000740: 44 3B 4A 41 2C 44 41 4E 4E 20 4A 45 20 4E 41 43 |D;JA,DANN JE NAC| 00000750: 48 20 42 49 54 20 36 20 4C 45 44 20 41 4E 00 80 |H BIT 6 LED AN..| 00000760: 0F A4 01 20 4A 53 52 58 3B 48 4F 4C 45 20 41 4B |... JSRX;HOLE AK| 00000770: 54 55 45 4C 4C 45 53 20 49 4E 46 4F 42 59 54 45 |TUELLES INFOBYTE| 00000780: 00 A8 0F AE 01 20 41 4E 44 5A 32 3B 55 4E 44 20 |..... ANDZ2;UND | 00000790: 46 49 4C 54 45 52 45 20 4C 49 43 48 53 43 48 52 |FILTERE LICHSCHR| 000007A0: 41 4E 4B 45 4E 42 49 54 00 C6 0F B8 01 20 42 4E |ANKENBIT..... BN| 000007B0: 45 41 3B 48 45 52 41 55 53 2D 42 45 49 20 31 20 |EA;HERAUS-BEI 1 | 000007C0: 57 41 52 54 45 4E 00 CC 0F C2 01 3B 00 D7 0F CC |WARTEN.....;....| 000007D0: 01 42 20 4A 53 52 58 00 E2 0F D6 01 20 41 4E 44 |.B JSRX..... AND| 000007E0: 5A 32 00 0D 10 E0 01 20 42 45 51 42 3B 57 41 52 |Z2..... BEQB;WAR| 000007F0: 54 45 20 42 49 53 20 42 49 54 3D 31 2C 4C 53 2D |TE BIS BIT=1,LS-| 00000800: 55 4E 54 45 52 42 52 45 43 48 55 4E 47 00 13 10 |UNTERBRECHUNG...| 00000810: E5 01 3B 00 3D 10 EA 01 43 20 4A 53 52 4C 45 44 |..;.=...C JSRLED| 00000820: 3B 45 49 4E 53 50 52 55 4E 47 2C 57 45 4E 4E 20 |;EINSPRUNG,WENN | 00000830: 56 4F 52 48 45 52 20 42 49 54 35 3D 30 00 47 10 |VORHER BIT5=0.G.| 00000840: F4 01 20 4A 53 52 58 00 52 10 FE 01 20 41 4E 44 |.. JSRX.R... AND| 00000850: 5A 32 00 6E 10 08 02 20 42 4E 45 43 3B 57 41 52 |Z2.n... BNEC;WAR| 00000860: 54 45 2C 42 49 53 20 4C 53 20 46 52 45 49 00 74 |TE,BIS LS FREI.t| 00000870: 10 12 02 3B 00 9C 10 1C 02 20 4C 44 41 5A 31 3B |...;..... LDAZ1;| 00000880: 42 49 54 20 37 20 44 45 53 20 42 45 46 45 48 4C |BIT 7 DES BEFEHL| 00000890: 42 59 54 45 53 20 54 45 53 54 45 4E 00 BA 10 26 |BYTES TESTEN...&| 000008A0: 02 20 42 50 4C 46 3B 42 45 49 20 31 20 53 43 48 |. BPLF;BEI 1 SCH| 000008B0: 52 45 49 42 53 43 48 55 54 5A 00 C0 10 30 02 3B |REIBSCHUTZ...0.;| 000008C0: 00 DC 10 3A 02 4A 20 4C 44 58 23 24 46 46 3B 57 |...:.J LDX#$FF;W| 000008D0: 41 52 54 45 53 43 48 4C 45 49 46 45 00 FE 10 44 |ARTESCHLEIFE...D| 000008E0: 02 45 20 4C 44 59 23 24 46 46 3B 57 45 47 45 4E |.E LDY#$FF;WEGEN| 000008F0: 20 53 43 48 52 45 49 42 53 43 48 55 54 5A 00 08 | SCHREIBSCHUTZ..| 00000900: 11 4E 02 44 20 44 45 59 00 12 11 58 02 20 42 4E |.N.D DEY...X. BN| 00000910: 45 44 00 1B 11 62 02 20 44 45 58 00 25 11 6C 02 |ED...b. DEX.%.l.| 00000920: 20 42 4E 45 45 00 2F 11 76 02 20 4A 4D 50 47 00 | BNEE./.v. JMPG.| 00000930: 35 11 80 02 3B 00 59 11 8A 02 46 20 4A 53 52 58 |5...;.Y...F JSRX| 00000940: 3B 57 45 4E 4E 20 4B 45 49 4E 20 53 43 48 52 45 |;WENN KEIN SCHRE| 00000950: 49 42 53 43 48 55 54 5A 2C 00 73 11 94 02 20 41 |IBSCHUTZ,.s... A| 00000960: 4E 44 5A 32 3B 44 41 4E 4E 20 41 55 46 20 4B 45 |NDZ2;DANN AUF KE| 00000970: 52 42 45 00 84 11 9E 02 20 42 45 51 46 3B 57 41 |RBE..... BEQF;WA| 00000980: 52 54 45 4E 00 8A 11 A8 02 3B 00 B1 11 B2 02 47 |RTEN.....;.....G| 00000990: 20 4C 44 58 23 24 30 32 3B 55 4E 42 45 44 49 4E | LDX#$02;UNBEDIN| 000009A0: 47 54 45 20 57 41 52 54 45 53 43 48 4C 45 49 46 |GTE WARTESCHLEIF| 000009B0: 45 00 BF 11 BC 02 4B 20 4C 44 59 23 24 41 30 00 |E.....K LDY#$A0.| 000009C0: CB 11 C0 02 49 20 44 45 43 5A 35 00 D5 11 C2 02 |....I DECZ5.....| 000009D0: 20 42 4E 45 49 00 DF 11 C6 02 48 20 44 45 59 00 | BNEI.....H DEY.| 000009E0: E9 11 D0 02 20 42 4E 45 49 00 F2 11 DA 02 20 44 |.... BNEI..... D| 000009F0: 45 58 00 FC 11 E4 02 20 42 4E 45 4B 00 02 12 E9 |EX..... BNEK....| 00000A00: 02 3B 00 35 12 EE 02 3B 52 4F 55 54 49 4E 45 20 |.;.5...;ROUTINE | 00000A10: 2C 44 49 45 20 44 45 4E 20 4D 4F 54 4F 52 20 44 |,DIE DEN MOTOR D| 00000A20: 45 52 20 46 4C 4F 50 50 59 20 45 49 4E 53 43 48 |ER FLOPPY EINSCH| 00000A30: 41 4C 54 45 54 00 60 12 F3 02 3B 55 4E 44 20 41 |ALTET.`...;UND A| 00000A40: 55 46 20 47 45 53 43 48 4C 4F 53 53 45 4E 45 53 |UF GESCHLOSSENES| 00000A50: 20 4C 41 55 46 57 45 52 4B 20 50 52 55 45 46 54 | LAUFWERK PRUEFT| 00000A60: 00 66 12 F4 02 3B 00 7A 12 F8 02 20 4C 44 58 23 |.f...;.z... LDX#| 00000A70: 30 38 3B 4B 41 4E 41 4C 20 38 00 80 12 FE 02 3B |08;KANAL 8.....;| 00000A80: 00 9B 12 02 03 20 4A 53 52 24 46 46 43 39 3B 46 |..... JSR$FFC9;F| 00000A90: 55 45 52 20 43 4D 44 20 4F 55 54 00 A7 12 0C 03 |UER CMD OUT.....| 00000AA0: 20 4C 44 58 23 30 30 00 B6 12 16 03 42 32 20 4C | LDX#00.....B2 L| 00000AB0: 44 41 54 32 2C 58 00 C4 12 20 03 20 4A 53 52 24 |DAT2,X... . JSR$| 00000AC0: 46 46 44 32 00 CD 12 2A 03 20 49 4E 58 00 EC 12 |FFD2...*. INX...| 00000AD0: 34 03 20 43 50 58 23 30 35 3B 4C 41 45 4E 47 45 |4. CPX#05;LAENGE| 00000AE0: 20 44 45 53 20 42 45 46 45 48 4C 53 00 F7 12 3E | DES BEFEHLS...>| 00000AF0: 03 20 42 4E 45 42 32 00 16 13 48 03 20 4A 53 52 |. BNEB2...H. JSR| 00000B00: 24 46 46 43 43 3B 43 4D 44 20 49 4E 41 4B 54 49 |$FFCC;CMD INAKTI| 00000B10: 56 49 45 52 45 4E 00 3F 13 49 03 20 4C 44 58 23 |VIEREN.?.I. LDX#| 00000B20: 30 38 3B 4E 4F 43 48 4D 41 4C 53 20 46 55 45 52 |08;NOCHMALS FUER| 00000B30: 20 4E 45 55 45 20 41 4E 57 45 49 53 55 4E 47 00 | NEUE ANWEISUNG.| 00000B40: 5B 13 4A 03 20 4A 53 52 24 46 46 43 39 3B 41 4B |[.J. JSR$FFC9;AK| 00000B50: 54 49 56 49 45 52 45 4E 2C 55 4D 00 7D 13 4B 03 |TIVIEREN,UM.}.K.| 00000B60: 20 4C 44 58 23 30 30 3B 44 45 52 20 46 4C 4F 50 | LDX#00;DER FLOP| 00000B70: 50 59 20 45 49 4E 45 20 4B 55 52 5A 45 00 A0 13 |PY EINE KURZE...| 00000B80: 4C 03 42 34 20 4C 44 41 54 34 2C 58 3B 49 4E 49 |L.B4 LDAT4,X;INI| 00000B90: 54 49 41 4C 49 53 49 45 52 55 4E 47 5A 45 49 54 |TIALISIERUNGZEIT| 00000BA0: 00 BB 13 4D 03 20 4A 53 52 24 46 46 44 32 3B 5A |...M. JSR$FFD2;Z| 00000BB0: 55 20 47 45 53 54 41 54 54 45 4E 00 C4 13 4E 03 |U GESTATTEN...N.| 00000BC0: 20 49 4E 58 00 E5 13 4F 03 20 43 50 58 23 30 36 | INX...O. CPX#06| 00000BD0: 3B 44 49 45 4D 41 4C 20 36 20 42 45 46 45 48 4C |;DIEMAL 6 BEFEHL| 00000BE0: 42 59 54 45 53 00 F0 13 50 03 20 42 4E 45 42 34 |BYTES...P. BNEB4| 00000BF0: 00 13 14 51 03 20 4A 53 52 24 46 46 43 43 3B 4B |...Q. JSR$FFCC;K| 00000C00: 41 4E 41 4C 20 38 20 49 4E 41 4B 54 49 56 49 45 |ANAL 8 INAKTIVIE| 00000C10: 52 45 4E 00 3C 14 52 03 20 4A 53 52 59 3B 4C 41 |REN.<.R. JSRY;LA| 00000C20: 55 46 57 45 52 4B 20 53 43 48 4F 4E 20 45 49 4E |UFWERK SCHON EIN| 00000C30: 53 41 54 5A 42 45 52 45 49 54 20 3F 00 49 14 5C |SATZBEREIT ?.I.\| 00000C40: 03 20 43 4D 50 23 24 46 46 00 58 14 66 03 20 42 |. CMP#$FF.X.f. B| 00000C50: 45 51 47 3B 4E 45 49 4E 00 5E 14 70 03 3B 00 6A |EQG;NEIN.^.p.;.j| 00000C60: 14 7A 03 20 4C 44 41 23 30 38 00 80 14 84 03 20 |.z. LDA#08..... | 00000C70: 4A 53 52 24 46 46 43 33 3B 43 4C 4F 53 45 20 38 |JSR$FFC3;CLOSE 8| 00000C80: 00 9D 14 8E 03 20 52 54 53 3B 45 4E 44 45 20 44 |..... RTS;ENDE D| 00000C90: 45 52 20 41 55 53 57 45 52 54 55 4E 47 00 A3 14 |ER AUSWERTUNG...| 00000CA0: BE 05 3B 00 CB 14 C8 05 3B 48 49 45 52 20 57 49 |..;.....;HIER WI| 00000CB0: 52 44 20 44 41 53 20 48 41 55 50 54 50 52 4F 47 |RD DAS HAUPTPROG| 00000CC0: 41 4D 4D 20 4A 45 20 4E 41 43 48 00 EB 14 D2 05 |AMM JE NACH.....| 00000CD0: 3B 42 45 46 45 48 4C 53 42 59 54 45 20 57 45 49 |;BEFEHLSBYTE WEI| 00000CE0: 54 45 52 47 45 46 55 45 48 52 54 00 F1 14 D7 05 |TERGEFUEHRT.....| 00000CF0: 3B 00 13 15 DC 05 4C 4F 41 44 31 20 4C 44 41 23 |;.....LOAD1 LDA#| 00000D00: 30 30 3B 4B 45 4E 4E 5A 45 49 43 48 45 4E 20 46 |00;KENNZEICHEN F| 00000D10: 55 45 52 00 2A 15 E6 05 20 53 54 41 4B 4B 2B 31 |UER.*... STAKK+1| 00000D20: 3B 27 4C 4F 41 44 20 2C 38 27 00 47 15 F0 05 20 |;'LOAD ,8'.G... | 00000D30: 4A 4D 50 4C 4F 41 44 3B 5A 55 52 20 4C 41 44 45 |JMPLOAD;ZUR LADE| 00000D40: 52 4F 55 54 49 4E 45 00 72 15 04 06 4C 4F 41 44 |ROUTINE.r...LOAD| 00000D50: 32 20 4C 44 41 23 30 31 3B 4F 44 45 52 20 46 55 |2 LDA#01;ODER FU| 00000D60: 45 52 20 41 42 53 4F 4C 55 54 45 53 20 4C 41 44 |ER ABSOLUTES LAD| 00000D70: 45 4E 00 8B 15 0E 06 20 53 54 41 4B 4B 2B 31 3B |EN..... STAKK+1;| 00000D80: 27 4C 4F 41 44 20 2C 38 2C 31 27 00 AE 15 13 06 |'LOAD ,8,1'.....| 00000D90: 4C 4F 41 44 20 4A 53 52 24 41 45 46 44 3B 50 52 |LOAD JSR$AEFD;PR| 00000DA0: 55 45 46 54 20 41 55 46 20 4B 4F 4D 4D 41 00 D9 |UEFT AUF KOMMA..| 00000DB0: 15 18 06 20 4A 53 52 46 4C 4F 50 50 59 3B 41 55 |... JSRFLOPPY;AU| 00000DC0: 46 20 44 49 53 4B 45 54 54 45 4E 57 45 43 48 53 |F DISKETTENWECHS| 00000DD0: 45 4C 20 57 41 52 54 45 4E 00 F5 15 27 06 20 4A |EL WARTEN...'. J| 00000DE0: 53 52 47 45 54 3B 46 49 4C 45 4E 41 4D 45 4E 20 |SRGET;FILENAMEN | 00000DF0: 48 4F 4C 45 4E 00 0A 16 28 06 20 4A 4D 50 4C 44 |HOLEN...(. JMPLD| 00000E00: 3B 55 4E 44 20 4C 41 44 45 4E 00 2C 16 2C 06 47 |;UND LADEN.,.,.G| 00000E10: 45 54 20 4A 53 52 24 41 44 39 41 3B 56 4F 52 41 |ET JSR$AD9A;VORA| 00000E20: 55 53 57 45 52 54 45 4E 20 55 4E 44 00 53 16 36 |USWERTEN UND.S.6| 00000E30: 06 20 4A 53 52 24 42 36 41 33 3B 41 55 53 57 45 |. JSR$B6A3;AUSWE| 00000E40: 52 54 45 4E 20 44 45 53 20 46 49 4C 45 4E 41 4D |RTEN DES FILENAM| 00000E50: 45 4E 53 00 66 16 40 06 20 53 54 41 5A 34 3B 4C |ENS.f.@. STAZ4;L| 00000E60: 41 45 4E 47 45 2C 00 80 16 4A 06 20 53 54 58 4C |AENGE,...J. STXL| 00000E70: 4F 3B 4C 4F 2D 41 44 52 45 53 53 45 20 55 4E 44 |O;LO-ADRESSE UND| 00000E80: 00 9D 16 54 06 20 53 54 59 48 49 3B 48 49 2D 41 |...T. STYHI;HI-A| 00000E90: 44 52 45 53 53 45 20 4D 45 52 4B 45 4E 00 AE 16 |DRESSE MERKEN...| 00000EA0: A4 06 20 52 54 53 3B 5A 55 52 55 45 43 4B 00 B7 |.. RTS;ZURUECK..| 00000EB0: 16 AE 06 3B 2D 2D 2D 00 DB 16 B8 06 47 4F 54 4F |...;---.....GOTO| 00000EC0: 20 4A 53 52 24 41 45 46 44 3B 41 55 46 20 4B 4F | JSR$AEFD;AUF KO| 00000ED0: 4D 4D 41 20 50 52 55 45 46 45 4E 00 06 17 C2 06 |MMA PRUEFEN.....| 00000EE0: 20 4A 53 52 46 4C 4F 50 50 59 3B 41 55 46 20 44 | JSRFLOPPY;AUF D| 00000EF0: 49 53 4B 45 54 54 45 4E 57 45 43 48 53 45 4C 20 |ISKETTENWECHSEL | 00000F00: 57 41 52 54 45 4E 00 34 17 D6 06 20 4A 53 52 24 |WARTEN.4... JSR$| 00000F10: 41 44 38 41 3B 53 50 52 55 4E 47 41 44 52 45 53 |AD8A;SPRUNGADRES| 00000F20: 53 45 20 46 55 45 52 20 27 47 4F 54 4F 27 20 48 |SE FUER 'GOTO' H| 00000F30: 4F 4C 45 4E 00 59 17 E0 06 20 4A 53 52 24 42 37 |OLEN.Y... JSR$B7| 00000F40: 46 37 3B 49 4E 20 31 36 20 42 49 54 20 5A 41 48 |F7;IN 16 BIT ZAH| 00000F50: 4C 20 57 41 4E 44 45 4C 4E 00 87 17 EA 06 20 4A |L WANDELN..... J| 00000F60: 53 52 24 41 38 41 33 3B 45 49 4E 53 50 52 55 4E |SR$A8A3;EINSPRUN| 00000F70: 47 20 49 4E 20 44 49 45 20 27 47 4F 54 4F 27 2D |G IN DIE 'GOTO'-| 00000F80: 52 4F 55 54 49 4E 45 00 B1 17 F4 06 20 4A 4D 50 |ROUTINE..... JMP| 00000F90: 24 41 37 41 45 3B 55 4E 44 20 5A 55 52 20 49 4E |$A7AE;UND ZUR IN| 00000FA0: 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 |TERPRETERSCHLEIF| 00000FB0: 45 00 B7 17 FE 06 3B 00 DB 17 08 07 4A 55 4D 50 |E.....;.....JUMP| 00000FC0: 20 4A 53 52 24 41 45 46 44 3B 41 55 46 20 4B 4F | JSR$AEFD;AUF KO| 00000FD0: 4D 4D 41 20 50 52 55 45 46 45 4E 00 06 18 12 07 |MMA PRUEFEN.....| 00000FE0: 20 4A 53 52 46 4C 4F 50 50 59 3B 41 55 46 20 44 | JSRFLOPPY;AUF D| 00000FF0: 49 53 4B 45 54 54 45 4E 57 45 43 48 53 45 4C 20 |ISKETTENWECHSEL | 00001000: 57 41 52 54 45 4E 00 32 18 26 07 20 4A 53 52 24 |WARTEN.2.&. JSR$| 00001010: 41 44 38 41 3B 53 50 52 55 4E 47 41 44 52 45 53 |AD8A;SPRUNGADRES| 00001020: 53 45 20 46 55 52 20 27 4A 4D 50 27 20 48 4F 4C |SE FUR 'JMP' HOL| 00001030: 45 4E 00 57 18 30 07 20 4A 53 52 24 42 37 46 37 |EN.W.0. JSR$B7F7| 00001040: 3B 49 4E 20 31 36 20 42 49 54 20 5A 41 48 4C 20 |;IN 16 BIT ZAHL | 00001050: 57 41 4E 44 45 4C 4E 00 7C 18 36 07 20 4C 44 41 |WANDELN.|.6. LDA| 00001060: 23 24 41 37 3B 53 54 41 52 54 41 44 52 45 53 53 |#$A7;STARTADRESS| 00001070: 45 20 44 45 53 20 42 41 53 49 43 2D 00 85 18 37 |E DES BASIC-...7| 00001080: 07 20 50 48 41 00 A9 18 38 07 20 4C 44 41 23 24 |. PHA...8. LDA#$| 00001090: 41 45 3B 49 4E 54 45 52 50 52 45 54 45 52 53 20 |AE;INTERPRETERS | 000010A0: 41 55 46 20 53 54 41 43 4B 00 B2 18 39 07 20 50 |AUF STACK...9. P| 000010B0: 48 41 00 DA 18 3A 07 20 4A 4D 50 28 24 31 34 29 |HA...:. JMP($14)| 000010C0: 3B 55 4E 44 20 5A 55 4D 20 4D 41 53 43 48 49 4E |;UND ZUM MASCHIN| 000010D0: 45 4E 50 52 4F 47 52 41 4D 4D 00 E0 18 44 07 3B |ENPROGRAMM...D.;| 000010E0: 00 06 19 45 07 53 41 56 45 20 4C 44 41 5A 31 3B |...E.SAVE LDAZ1;| 000010F0: 57 45 4E 4E 20 53 41 56 45 20 55 4E 44 20 53 43 |WENN SAVE UND SC| 00001100: 48 52 45 49 42 2D 00 26 19 47 07 20 42 50 4C 4F |HREIB-.&.G. BPLO| 00001110: 4E 3B 53 43 48 55 54 5A 20 5A 55 53 41 4D 4D 45 |N;SCHUTZ ZUSAMME| 00001120: 4E 2C 44 41 4E 4E 00 4D 19 49 07 20 4A 53 52 24 |N,DANN.M.I. JSR$| 00001130: 42 32 34 38 3B 27 49 4C 4C 45 47 41 4C 20 51 55 |B248;'ILLEGAL QU| 00001140: 41 4E 54 49 54 59 20 45 52 52 4F 52 27 00 6F 19 |ANTITY ERROR'.o.| 00001150: 4E 07 4F 4E 20 4A 53 52 24 41 45 46 44 3B 41 55 |N.ON JSR$AEFD;AU| 00001160: 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 45 4E 00 |F KOMMA PRUEFEN.| 00001170: 9A 19 58 07 20 4A 53 52 46 4C 4F 50 50 59 3B 41 |..X. JSRFLOPPY;A| 00001180: 55 46 20 44 49 53 4B 45 54 54 45 4E 57 45 43 48 |UF DISKETTENWECH| 00001190: 53 45 4C 20 57 41 52 54 45 4E 00 B6 19 6C 07 20 |SEL WARTEN...l. | 000011A0: 4A 53 52 47 45 54 3B 46 49 4C 45 4E 41 4D 45 4E |JSRGET;FILENAMEN| 000011B0: 20 48 4F 4C 45 4E 00 D3 19 76 07 20 4C 44 58 23 | HOLEN...v. LDX#| 000011C0: 30 38 3B 47 45 52 41 45 54 45 41 44 52 45 53 53 |08;GERAETEADRESS| 000011D0: 45 20 38 00 F2 19 80 07 20 4A 53 52 24 46 46 42 |E 8..... JSR$FFB| 000011E0: 41 3B 46 49 4C 45 20 56 4F 52 42 45 52 45 49 54 |A;FILE VORBEREIT| 000011F0: 45 4E 00 04 1A 8A 07 20 4C 44 58 5A 34 3B 4C 41 |EN..... LDXZ4;LA| 00001200: 45 4E 47 45 00 25 1A 94 07 20 4C 44 58 4C 4F 3B |ENGE.%... LDXLO;| 00001210: 55 4E 44 20 41 44 52 45 53 53 45 20 44 45 53 20 |UND ADRESSE DES | 00001220: 46 49 4C 45 2D 00 3D 1A 9E 07 20 4C 44 59 48 49 |FILE-.=... LDYHI| 00001230: 3B 4E 41 4D 45 4E 53 20 48 4F 4C 45 4E 00 61 1A |;NAMENS HOLEN.a.| 00001240: A8 07 20 4A 53 52 24 46 46 42 44 3B 46 49 4C 45 |.. JSR$FFBD;FILE| 00001250: 4E 41 4D 45 4E 20 56 4F 52 42 45 52 45 49 54 45 |NAMEN VORBEREITE| 00001260: 4E 00 8D 1A AD 07 20 4A 53 52 47 45 54 31 36 3B |N..... JSRGET16;| 00001270: 31 36 20 42 49 54 20 53 54 41 52 54 41 44 52 45 |16 BIT STARTADRE| 00001280: 53 53 45 20 46 55 45 52 20 53 41 56 45 00 A0 1A |SSE FUER SAVE...| 00001290: AF 07 20 53 54 58 24 46 45 3B 4D 45 52 4B 45 4E |.. STX$FE;MERKEN| 000012A0: 00 AC 1A B1 07 20 53 54 59 24 46 46 00 D6 1A B3 |..... STY$FF....| 000012B0: 07 20 4A 53 52 47 45 54 31 36 3B 31 36 20 42 49 |. JSRGET16;16 BI| 000012C0: 54 20 45 4E 44 41 44 52 45 53 53 45 20 46 55 45 |T ENDADRESSE FUE| 000012D0: 52 20 53 41 56 45 00 F5 1A B5 07 20 4C 44 41 23 |R SAVE..... LDA#| 000012E0: 24 46 45 3B 53 54 45 48 54 20 42 45 49 20 24 46 |$FE;STEHT BEI $F| 000012F0: 45 2F 24 46 46 00 02 1B B7 07 20 4A 4D 50 43 4F |E/$FF..... JMPCO| 00001300: 4E 54 00 08 1B B8 07 3B 00 40 1B B9 07 3B 52 4F |NT.....;.@...;RO| 00001310: 55 54 49 4E 45 20 5A 55 4D 20 48 4F 4C 45 4E 20 |UTINE ZUM HOLEN | 00001320: 45 49 4E 45 52 20 31 36 20 42 49 54 20 5A 41 48 |EINER 16 BIT ZAH| 00001330: 4C 20 55 4E 44 20 41 55 53 57 45 52 54 55 4E 47 |L UND AUSWERTUNG| 00001340: 00 46 1B BA 07 3B 00 60 1B BB 07 47 45 54 31 36 |.F...;.`...GET16| 00001350: 20 4A 53 52 24 41 45 46 44 3B 4B 4F 4D 4D 41 3F | JSR$AEFD;KOMMA?| 00001360: 00 80 1B BD 07 20 4A 53 52 24 41 44 38 41 3B 31 |..... JSR$AD8A;1| 00001370: 36 20 42 49 54 20 5A 41 48 4C 20 48 4F 4C 45 4E |6 BIT ZAHL HOLEN| 00001380: 00 9C 1B BF 07 20 4A 53 52 24 42 37 46 37 3B 55 |..... JSR$B7F7;U| 00001390: 4E 44 20 55 4D 57 41 4E 44 45 4C 4E 00 B0 1B C1 |ND UMWANDELN....| 000013A0: 07 20 4C 44 58 24 31 34 3B 4C 4F 2D 42 59 54 45 |. LDX$14;LO-BYTE| 000013B0: 00 CD 1B C3 07 20 4C 44 59 24 31 35 3B 48 49 2D |..... LDY$15;HI-| 000013C0: 42 59 54 45 20 44 45 52 20 5A 41 48 4C 00 EC 1B |BYTE DER ZAHL...| 000013D0: C5 07 20 52 54 53 3B 45 4E 44 45 20 44 45 52 20 |.. RTS;ENDE DER | 000013E0: 55 4E 54 45 52 52 4F 55 54 49 4E 45 00 F2 1B C6 |UNTERROUTINE....| 000013F0: 07 3B 00 0B 1C D0 07 43 4F 4E 54 20 4A 53 52 24 |.;.....CONT JSR$| 00001400: 46 46 44 38 3B 27 53 41 56 45 27 00 25 1C DA 07 |FFD8;'SAVE'.%...| 00001410: 20 52 54 53 3B 5A 55 52 55 45 43 4B 20 5A 55 20 | RTS;ZURUECK ZU | 00001420: 42 41 53 49 43 00 2B 1C DF 07 3B 00 46 1C E4 07 |BASIC.+...;.F...| 00001430: 3B 4C 41 44 45 4E 20 45 49 4E 45 53 20 50 52 4F |;LADEN EINES PRO| 00001440: 47 52 41 4D 4D 53 00 4C 1C E9 07 3B 00 5A 1C EE |GRAMMS.L...;.Z..| 00001450: 07 4C 44 20 4C 44 58 23 30 38 00 68 1C F8 07 4B |.LD LDX#08.h...K| 00001460: 4B 20 4C 44 59 23 30 31 00 87 1C 02 08 20 4A 53 |K LDY#01..... JS| 00001470: 52 24 46 46 42 41 3B 46 49 4C 45 20 56 4F 52 42 |R$FFBA;FILE VORB| 00001480: 45 52 45 49 54 45 4E 00 92 1C 0C 08 20 4C 44 41 |EREITEN..... LDA| 00001490: 5A 34 00 9D 1C 16 08 20 4C 44 58 4C 4F 00 A8 1C |Z4..... LDXLO...| 000014A0: 20 08 20 4C 44 59 48 49 00 CC 1C 2A 08 20 4A 53 | . LDYHI...*. JS| 000014B0: 52 24 46 46 42 44 3B 46 49 4C 45 4E 41 4D 45 4E |R$FFBD;FILENAMEN| 000014C0: 20 56 4F 52 42 45 52 45 49 54 45 4E 00 E8 1C 34 | VORBEREITEN...4| 000014D0: 08 20 4C 44 41 23 30 30 3B 4C 4F 41 44 2D 46 4C |. LDA#00;LOAD-FL| 000014E0: 41 47 20 41 55 46 20 30 00 FF 1C 35 08 20 53 54 |AG AUF 0...5. ST| 000014F0: 41 24 30 41 3B 55 4E 44 20 4D 45 52 4B 45 4E 00 |A$0A;UND MERKEN.| 00001500: 2D 1D 37 08 20 4A 4D 50 24 45 31 36 46 3B 45 49 |-.7. JMP$E16F;EI| 00001510: 4E 53 50 52 55 4E 47 20 49 4E 20 44 49 45 20 27 |NSPRUNG IN DIE '| 00001520: 4C 4F 41 44 27 2D 52 4F 55 54 49 4E 45 00 33 1D |LOAD'-ROUTINE.3.| 00001530: 98 08 3B 00 5D 1D 24 09 3B 52 4F 55 54 49 4E 45 |..;.].$.;ROUTINE| 00001540: 20 50 52 55 45 46 54 20 42 49 54 20 36 20 44 45 | PRUEFT BIT 6 DE| 00001550: 53 20 42 45 46 45 48 4C 42 59 54 45 53 00 85 1D |S BEFEHLBYTES...| 00001560: 29 09 3B 55 4E 44 20 53 43 48 41 4C 54 45 54 20 |).;UND SCHALTET | 00001570: 42 45 49 20 31 20 44 49 45 20 52 4F 54 45 20 4C |BEI 1 DIE ROTE L| 00001580: 45 44 20 41 4D 00 97 1D 2A 09 3B 4C 41 55 46 57 |ED AM...*.;LAUFW| 00001590: 45 52 4B 20 41 4E 2E 00 9D 1D 2C 09 3B 00 AC 1D |ERK AN....,.;...| 000015A0: 2E 09 4C 45 44 20 4C 44 41 23 36 34 00 C6 1D 38 |..LED LDA#64...8| 000015B0: 09 20 41 4E 44 5A 31 3B 54 45 53 54 20 41 55 46 |. ANDZ1;TEST AUF| 000015C0: 20 42 49 54 20 36 00 DF 1D 4C 09 20 42 45 51 45 | BIT 6...L. BEQE| 000015D0: 4E 44 45 3B 42 45 49 20 30 20 27 52 54 53 27 00 |NDE;BEI 0 'RTS'.| 000015E0: EB 1D 56 09 20 4C 44 58 23 30 38 00 0C 1E 60 09 |..V. LDX#08...`.| 000015F0: 20 4A 53 52 24 46 46 43 39 3B 43 4D 44 20 4F 55 | JSR$FFC9;CMD OU| 00001600: 54 20 41 4B 54 49 56 49 45 52 45 4E 00 18 1E 6A |T AKTIVIEREN...j| 00001610: 09 20 4C 44 58 23 30 30 00 27 1E 74 09 42 33 20 |. LDX#00.'.t.B3 | 00001620: 4C 44 41 54 33 2C 58 00 35 1E 7E 09 20 4A 53 52 |LDAT3,X.5.~. JSR| 00001630: 24 46 46 44 32 00 3E 1E 88 09 20 49 4E 58 00 58 |$FFD2.>... INX.X| 00001640: 1E 92 09 20 43 50 58 23 30 35 3B 35 20 42 45 46 |... CPX#05;5 BEF| 00001650: 45 48 4C 42 59 54 45 53 00 63 1E 9C 09 20 42 4E |EHLBYTES.c... BN| 00001660: 45 42 33 00 82 1E A6 09 20 4A 53 52 24 46 46 43 |EB3..... JSR$FFC| 00001670: 43 3B 43 4D 44 20 49 4E 41 4B 54 49 56 49 45 52 |C;CMD INAKTIVIER| 00001680: 45 4E 00 A7 1E B0 09 45 4E 44 45 20 52 54 53 3B |EN.....ENDE RTS;| 00001690: 45 4E 44 45 20 44 45 53 20 55 4E 54 45 52 50 52 |ENDE DES UNTERPR| 000016A0: 4F 47 52 41 4D 4D 53 00 D5 1E BA 09 42 49 54 30 |OGRAMMS.....BIT0| 000016B0: 35 20 4C 44 41 23 33 32 3B 54 45 53 54 45 54 20 |5 LDA#32;TESTET | 000016C0: 42 49 54 20 35 20 44 45 53 20 42 45 46 45 48 4C |BIT 5 DES BEFEHL| 000016D0: 42 59 54 45 53 00 E0 1E C4 09 20 41 4E 44 5A 31 |BYTES..... ANDZ1| 000016E0: 00 0B 1F E2 09 20 42 4E 45 45 4E 44 45 3B 47 45 |..... BNEENDE;GE| 000016F0: 53 45 54 5A 54 2C 44 41 4E 4E 20 44 49 53 4B 45 |SETZT,DANN DISKE| 00001700: 54 54 45 4E 57 45 43 48 53 45 4C 00 1A 1F EC 09 |TTENWECHSEL.....| 00001710: 20 50 4C 41 3B 4E 45 49 4E 2C 00 39 1F F6 09 20 | PLA;NEIN,.9... | 00001720: 50 4C 41 3B 44 41 4E 4E 20 53 54 41 43 4B 20 22 |PLA;DANN STACK "| 00001730: 53 41 45 55 42 45 52 4E 22 00 62 1F 00 0A 20 4A |SAEUBERN".b... J| 00001740: 4D 50 43 3B 55 4E 44 20 57 45 49 54 45 52 20 41 |MPC;UND WEITER A| 00001750: 55 46 20 44 49 53 4B 45 54 54 45 20 57 41 52 54 |UF DISKETTE WART| 00001760: 45 4E 00 68 1F 0A 0A 3B 00 95 1F 0F 0A 3B 54 41 |EN.h...;.....;TA| 00001770: 42 45 4C 4C 45 20 56 4F 4E 20 41 4E 57 45 49 53 |BELLE VON ANWEIS| 00001780: 55 4E 47 45 4E 20 55 4E 44 20 28 41 4B 54 55 45 |UNGEN UND (AKTUE| 00001790: 4C 4C 45 4E 29 00 AC 1F 10 0A 3B 5A 57 49 53 43 |LLEN).....;ZWISC| 000017A0: 48 45 4E 53 50 45 49 43 48 45 52 4E 00 B2 1F 14 |HENSPEICHERN....| 000017B0: 0A 3B 00 DF 1F 32 0A 54 31 20 2E 54 58 22 4D 2D |.;...2.T1 .TX"M-| 000017C0: 52 22 3B 41 55 53 4C 45 53 45 4E 20 44 45 53 20 |R";AUSLESEN DES | 000017D0: 44 49 53 4B 4B 4F 4E 54 52 4F 4C 4C 45 52 53 00 |DISKKONTROLLERS.| 000017E0: 05 20 3C 0A 2E 42 59 30 30 2C 32 38 2C 31 20 3B |. <..BY00,28,1 ;| 000017F0: 44 45 52 20 46 4C 4F 50 50 59 20 28 57 45 47 45 |DER FLOPPY (WEGE| 00001800: 4E 20 4C 53 29 00 21 20 46 0A 54 32 20 2E 54 58 |N LS).! F.T2 .TX| 00001810: 22 4D 2D 45 22 3B 46 4C 4F 50 50 59 4D 4F 54 4F |"M-E";FLOPPYMOTO| 00001820: 52 00 53 20 50 0A 2E 42 59 37 31 2C 31 39 38 20 |R.S P..BY71,198 | 00001830: 3B 45 49 4E 53 43 48 41 4C 54 45 4E 20 55 4E 44 |;EINSCHALTEN UND| 00001840: 20 41 55 46 20 27 52 45 41 44 59 27 20 54 45 53 | AUF 'READY' TES| 00001850: 54 45 4E 00 77 20 54 0A 54 33 20 2E 54 58 22 4D |TEN.w T.T3 .TX"M| 00001860: 2D 45 22 3B 42 45 46 45 48 4C 53 53 45 51 55 45 |-E";BEFEHLSSEQUE| 00001870: 4E 5A 20 46 55 45 52 00 A2 20 56 0A 2E 42 59 24 |NZ FUER.. V..BY$| 00001880: 31 38 2C 24 43 31 20 3B 4C 45 44 20 41 4D 20 4C |18,$C1 ;LED AM L| 00001890: 41 55 46 57 45 52 4B 20 41 4E 53 43 48 41 4C 54 |AUFWERK ANSCHALT| 000018A0: 45 4E 00 C2 20 5A 0A 54 34 20 2E 54 58 22 4D 2D |EN.. Z.T4 .TX"M-| 000018B0: 52 22 3B 53 43 48 4F 4E 20 27 52 45 41 44 59 27 |R";SCHON 'READY'| 000018C0: 20 3F 00 D1 20 64 0A 2E 42 59 24 46 46 2C 30 2C | ?.. d..BY$FF,0,| 000018D0: 31 00 F6 20 6E 0A 5A 31 20 2E 42 59 24 30 30 3B |1.. n.Z1 .BY$00;| 000018E0: 50 4C 41 54 5A 20 46 55 45 52 20 42 45 46 45 48 |PLATZ FUER BEFEH| 000018F0: 4C 53 42 59 54 45 00 24 21 78 0A 5A 32 20 2E 42 |LSBYTE.$!x.Z2 .B| 00001900: 59 24 31 30 3B 31 36 20 46 55 45 52 20 27 41 4E |Y$10;16 FUER 'AN| 00001910: 44 27 20 56 45 52 4B 4E 55 45 50 46 55 4E 47 20 |D' VERKNUEPFUNG | 00001920: 28 4C 53 29 00 50 21 8C 0A 5A 34 20 2E 42 59 24 |(LS).P!..Z4 .BY$| 00001930: 30 30 3B 53 50 45 49 43 48 45 52 20 46 55 45 52 |00;SPEICHER FUER| 00001940: 20 46 49 4C 45 4E 41 4D 45 4E 4C 41 45 4E 47 45 | FILENAMENLAENGE| 00001950: 00 79 21 91 0A 5A 35 20 2E 42 59 24 30 30 3B 5A |.y!..Z5 .BY$00;Z| 00001960: 41 45 48 4C 45 52 20 46 55 45 52 20 57 41 52 54 |AEHLER FUER WART| 00001970: 45 53 43 48 4C 45 49 46 45 00 9D 21 AA 0A 4C 4F |ESCHLEIFE..!..LO| 00001980: 20 2E 42 59 24 30 30 3B 5A 57 49 53 43 48 45 4E | .BY$00;ZWISCHEN| 00001990: 53 50 45 49 43 48 45 52 20 46 55 45 52 00 BC 21 |SPEICHER FUER..!| 000019A0: B4 0A 48 49 20 2E 42 59 24 30 30 3B 46 49 4C 45 |..HI .BY$00;FILE| 000019B0: 4E 41 4D 45 4E 41 44 52 45 53 53 45 00 00 00 |NAMENADRESSE... |
.."...; ... .ELLIGENTE FLOPPY .....E...; .............................H...; . WR ITTEN BY STEFAN ROTHER ......; . FRAUE NZELLSTRASSE 26 ......; . 8400 REG ENSBURG ..Q...; ................... ..............; . (C) 1986 MARKT&TECHNI K ......; . VERLAG AG .. :...; .............................X.... BA$CE18 ;START BEI 52760.X... JSR$AEFD;A UF KOMMA PRUEFEN..... JSR$B79E;8 BIT-ZAH L NACH X HOLEN...<. STXZ1;UND ZWISCHENSP EICHERN...A. LDA#07;MASKE ZUM AUSFILTERN ...F. ANDZ1;VON BIT 0-2 ERSTELLEN...J.;. ..K.;SPRUNGTABELLE. .L.;.1.P. BNEY1;BEI 0.R.U. JMPLOAD1;PRG MIT ',8' LADEN.R.Z.Y 1 CMP#01;MIT 1 VERGLEICHEN...D. BNEY2;WE NN 1 ,DANN...I. JMPLOAD2;PRG MIT ',8,1' LADEN.M.N.Y2 CMP#02;MIT 2 VERGLEICHEN... X. BNEY3;WENN 2 ,DANN...}. JMPSAVE;ZUR S AVEROUTINE SPRINGEN.+...Y3 CMP#03;MIT 3 VERGLEICHEN.C... BNEY4;WENN 3 ,DANN.H... JMPGOTO;'GOTO'-ROUTINE AUFRUFEN.....Y4 CMP#04;UND DASSELBE MIT 4. . . BNEY5;WEN N 4,DANN.C... JMPJUMP;'JMP'-ASSEMBLERBEF EHL.....Y5 RTS;WENN KEIN MODUS,DANN ZURU ECK.....;.....;ALGORITHMUS ZUM AUSWERTEN .-...;EINES DISKETTENWECHSELS.3...;.T... FLOPPY LDA#08;PARAMETER FUER.N.H. LDX#08 ;'OPEN 8,8,15'...R. LDY#15;SETZEN. ... J SR$FFBA;FILE VORBEREITEN..... LDA#00;KEI N FILENAME..... JSR$FFBD;FILENAMEN VORBE REITEN..... JSR$FFC0;'OPEN'..... JMPA;ZU R DATENAUSWERTUNG.+...X LDX#08;FUER KANA L 8.L... JSR$FFC9;CMD OUT AKTIVIEREN.I." . LDX#00;ZAEHLER AUF NULL...,.B1 LDAT1,X ;UND VON FLOPPY...6. JSR$FFD2;PER BEFEHL SSEQUENZ...@. INX;VON 6 ZEICHEN...J. CPX #06;INHALT VON $1C00...T. BNEB1;ABFRAGEN ...^. JSR$FFCC;CMD OFF...H.Y LDX#08.3.R. JSR$FFC6;CMD IN AKTIVIEREN.U.|. JSR$FFC F;BESAGTES BYTE HOLEN.T... PHA;UND ZWISC HENSPEICHERN..... JSR$FFCC;CMD INAKTIVIE REN..... PLA;BYTE ZURUECKHOLEN.Y... RTS; ENDE DES UNTERPRG'S 'DATEN HOLEN'.....;. ....;FORTFUEHRUNG DES HAUPTPROGRAMMS.... .;.5...A JSRBIT05;BIT 5=1 (DIKETTENWECHS EL) ?.^... JSRLED;JA,DANN JE NACH BIT 6 LED AN..... JSRX;HOLE AKTUELLES INFOBYTE ..... ANDZ2;UND FILTERE LICHSCHRANKENBIT .F... BNEA;HERAUS-BEI 1 WARTEN.L.B.;.W.L .B JSRX...V. ANDZ2..... BEQB;WARTE BIS B IT=1,LS-UNTERBRECHUNG.....;.=...C JSRLED ;EINSPRUNG,WENN VORHER BIT5=0.G... JSRX. R... ANDZ2.N... BNEC;WARTE,BIS LS FREI.T ...;..... LDAZ1;BIT 7 DES BEFEHLBYTES TE STEN...&. BPLF;BEI 1 SCHREIBSCHUTZ...0.; ...:.J LDX#$FF;WARTESCHLEIFE...D.E LDY#$ FF;WEGEN SCHREIBSCHUTZ...N.D DEY...X. BN ED...B. DEX.%.L. BNEE./.V. JMPG.5...;.Y. ..F JSRX;WENN KEIN SCHREIBSCHUTZ,.S... A NDZ2;DANN AUF KERBE..... BEQF;WARTEN.... .;.....G LDX#$02;UNBEDINGTE WARTESCHLEIF E.....K LDY#$A0.K...I DECZ5.U.B. BNEI... F.H DEY...P. BNEI...Z. DEX..... BNEK.... .;.5...;ROUTINE ,DIE DEN MOTOR DER FLOPP Y EINSCHALTET.`...;UND AUF GESCHLOSSENES LAUFWERK PRUEFT.F...;.Z... LDX#08;KANAL 8.....;..... JSR$FFC9;FUER CMD OUT..... LDX#00.....B2 LDAT2,X.D. . JSR$FFD2.M.* . INX...4. CPX#05;LAENGE DES BEFEHLS...> . BNEB2...H. JSR$FFCC;CMD INAKTIVIEREN.? .I. LDX#08;NOCHMALS FUER NEUE ANWEISUNG. [.J. JSR$FFC9;AKTIVIEREN,UM.}.K. LDX#00; DER FLOPPY EINE KURZE. .L.B4 LDAT4,X;INI TIALISIERUNGZEIT...M. JSR$FFD2;ZU GESTAT TEN.D.N. INX...O. CPX#06;DIEMAL 6 BEFEHL BYTES...P. BNEB4...Q. JSR$FFCC;KANAL 8 I NAKTIVIEREN.<.R. JSRY;LAUFWERK SCHON EIN SATZBEREIT ?.I.\. CMP#$FF.X.F. BEQG;NEIN .^.P.;.J.Z. LDA#08..... JSR$FFC3;CLOSE 8 ..... RTS;ENDE DER AUSWERTUNG.....;.K.H. ;HIER WIRD DAS HAUPTPROGAMM JE NACH...R. ;BEFEHLSBYTE WEITERGEFUEHRT...W.;.....LO AD1 LDA#00;KENNZEICHEN FUER.*... STAKK+1 ;'LOAD ,8'.G... JMPLOAD;ZUR LADEROUTINE. R...LOAD2 LDA#01;ODER FUER ABSOLUTES LAD EN..... STAKK+1;'LOAD ,8,1'.....LOAD JSR $AEFD;PRUEFT AUF KOMMA.Y... JSRFLOPPY;AU F DISKETTENWECHSEL WARTEN...'. JSRGET;FI LENAMEN HOLEN...(. JMPLD;UND LADEN.,.,.G ET JSR$AD9A;VORAUSWERTEN UND.S.6. JSR$B6 A3;AUSWERTEN DES FILENAMENS.F.@. STAZ4;L AENGE,...J. STXLO;LO-ADRESSE UND...T. ST YHI;HI-ADRESSE MERKEN..... RTS;ZURUECK.. ...;---.....GOTO JSR$AEFD;AUF KOMMA PRUE FEN...B. JSRFLOPPY;AUF DISKETTENWECHSEL WARTEN.4.V. JSR$AD8A;SPRUNGADRESSE FUER 'GOTO' HOLEN.Y... JSR$B7F7;IN 16 BIT ZAH L WANDELN..... JSR$A8A3;EINSPRUNG IN DIE 'GOTO'-ROUTINE..... JMP$A7AE;UND ZUR IN TERPRETERSCHLEIFE.....;.....JUMP JSR$AEF D;AUF KOMMA PRUEFEN..... JSRFLOPPY;AUF D ISKETTENWECHSEL WARTEN.2.&. JSR$AD8A;SPR UNGADRESSE FUR 'JMP' HOLEN.W.0. JSR$B7F7 ;IN 16 BIT ZAHL WANDELN.|.6. LDA#$A7;STA RTADRESSE DES BASIC-...7. PHA...8. LDA#$ AE;INTERPRETERS AUF STACK...9. PHA.Z.:. JMP($14);UND ZUM MASCHINENPROGRAMM...D.; ...E.SAVE LDAZ1;WENN SAVE UND SCHREIB-.& .G. BPLON;SCHUTZ ZUSAMMEN,DANN.M.I. JSR$ B248;'ILLEGAL QUANTITY ERROR'.O.N.ON JSR $AEFD;AUF KOMMA PRUEFEN...X. JSRFLOPPY;A UF DISKETTENWECHSEL WARTEN...L. JSRGET;F ILENAMEN HOLEN.S.V. LDX#08;GERAETEADRESS E 8..... JSR$FFBA;FILE VORBEREITEN..... LDXZ4;LAENGE.%... LDXLO;UND ADRESSE DES FILE-.=... LDYHI;NAMENS HOLEN.A... JSR$F FBD;FILENAMEN VORBEREITEN..... JSRGET16; 16 BIT STARTADRESSE FUER SAVE. ... STX$F E;MERKEN..... STY$FF.V... JSRGET16;16 BI T ENDADRESSE FUER SAVE..... LDA#$FE;STEH T BEI $FE/$FF..... JMPCONT.....;.@...;RO UTINE ZUM HOLEN EINER 16 BIT ZAHL UND AU SWERTUNG.F...;.`...GET16 JSR$AEFD;KOMMA? ..... JSR$AD8A;16 BIT ZAHL HOLEN..... JS R$B7F7;UND UMWANDELN...A. LDX$14;LO-BYTE .M.C. LDY$15;HI-BYTE DER ZAHL...E. RTS;E NDE DER UNTERROUTINE...F.;...P.CONT JSR$ FFD8;'SAVE'.%.Z. RTS;ZURUECK ZU BASIC.+. ..;.F...;LADEN EINES PROGRAMMS.L...;.Z.. .LD LDX#08.H...KK LDY#01..... JSR$FFBA;F ILE VORBEREITEN..... LDAZ4..... LDXLO... . LDYHI.L.*. JSR$FFBD;FILENAMEN VORBERE ITEN...4. LDA#00;LOAD-FLAG AUF 0...5. ST A$0A;UND MERKEN.-.7. JMP$E16F;EINSPRUNG IN DIE 'LOAD'-ROUTINE.3...;.].$.;ROUTINE PRUEFT BIT 6 DES BEFEHLBYTES...).;UND S CHALTET BEI 1 DIE ROTE LED AM...*.;LAUFW ERK AN....,.;.....LED LDA#64.F.8. ANDZ1; TEST AUF BIT 6...L. BEQENDE;BEI 0 'RTS'. ..V. LDX#08...`. JSR$FFC9;CMD OUT AKTIVI EREN...J. LDX#00.'.T.B3 LDAT3,X.5.~. JSR $FFD2.>... INX.X... CPX#05;5 BEFEHLBYTES .C... BNEB3..... JSR$FFCC;CMD INAKTIVIER EN.....ENDE RTS;ENDE DES UNTERPROGRAMMS. U...BIT05 LDA#32;TESTET BIT 5 DES BEFEHL BYTES...D. ANDZ1..... BNEENDE;GESETZT,DA NN DISKETTENWECHSEL..... PLA;NEIN,.9... PLA;DANN STACK "SAEUBERN".B... JMPC;UND WEITER AUF DISKETTE WARTEN.H...;.....;TA BELLE VON ANWEISUNGEN UND (AKTUELLEN)... ..;ZWISCHENSPEICHERN.....;...2.T1 .TX"M- R";AUSLESEN DES DISKKONTROLLERS.. <..BY0 0,28,1 ;DER FLOPPY (WEGEN LS).! F.T2 .TX "M-E";FLOPPYMOTOR.S P..BY71,198 ;EINSCHA LTEN UND AUF 'READY' TESTEN.W T.T3 .TX"M -E";BEFEHLSSEQUENZ FUER.. V..BY$18,$C1 ; LED AM LAUFWERK ANSCHALTEN.B Z.T4 .TX"M- R";SCHON 'READY' ?.Q D..BY$FF,0,1.. N.Z1 .BY$00;PLATZ FUER BEFEHLSBYTE.$!X.Z2 .B Y$10;16 FUER 'AND' VERKNUEPFUNG (LS).P!. .Z4 .BY$00;SPEICHER FUER FILENAMENLAENGE .Y!..Z5 .BY$00;ZAEHLER FUER WARTESCHLEIF E..!..LO .BY$00;ZWISCHENSPEICHER FUER..! ..HI .BY$00;FILENAMENADRESSE...
> CLICK IMAGE PREVIEW FOR FULL MODAL