FORM.COMPTR.ASM
FILE INFORMATION
FILENAME(S): FORM.COMPTR.ASM
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-10-20 00:37:11
APPEARS ON: 3 disk(s)
FILE HASH
e146dc1717969dbd25f53f6213833a7e23075c981722f6ad752acfca971f43ba
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 B | FORM.COMPTR.ASM | PRG | Curtcool, Klaus & Jan, Treasure Chest - Holger | 7 | 10 | DOWNLOAD FILE |
| M O C IN 1986 | FORM.COMPTR.ASM | PRG | hedning, shine | 14 | 0 | DOWNLOAD FILE |
| JARVIS 18 A | FORM.COMPTR.ASM | PRG | hedning, shine | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 20 0D 20 E8 03 9E 37 AC 34 30 39 36 00 16 20 |. . ...7.4096.. |
00000010: F2 03 2E 4F 50 54 00 22 20 FC 03 AC B2 24 30 38 |...OPT." ....$08|
00000020: 30 44 00 28 20 06 04 3B 00 37 20 10 04 9B 45 4E |0D.( ..;.7 ...EN|
00000030: 20 B2 24 46 46 42 31 00 48 20 1A 04 53 45 43 91 | .$FFB1.H ..SEC.|
00000040: 44 20 B2 24 46 46 39 33 00 5A 20 24 04 43 49 4F |D .$FF93.Z $.CIO|
00000050: 55 54 20 20 B2 24 46 46 41 38 00 69 20 2E 04 55 |UT .$FFA8.i ..U|
00000060: 4E 9B 20 B2 24 46 46 41 45 00 7B 20 38 04 54 41 |N. .$FFAE.{ 8.TA|
00000070: 4C 4B 20 20 20 B2 24 46 46 42 34 00 8D 20 42 04 |LK .$FFB4.. B.|
00000080: 54 4B 53 41 20 20 20 B2 24 46 46 39 36 00 9F 20 |TKSA .$FF96.. |
00000090: 4C 04 55 4E 54 4C 4B 20 20 B2 24 46 46 41 42 00 |L.UNTLK .$FFAB.|
000000A0: B1 20 56 04 41 43 50 54 52 20 20 B2 24 46 46 41 |. V.ACPTR .$FFA|
000000B0: 35 00 B7 20 60 04 3B 00 C9 20 6A 04 44 49 53 4B |5.. `.;.. j.DISK|
000000C0: 20 20 20 B2 24 30 34 30 30 00 DB 20 74 04 46 4C | .$0400.. t.FL|
000000D0: 50 52 47 20 20 B2 24 30 41 35 39 00 ED 20 7E 04 |PRG .$0A59.. ~.|
000000E0: 42 55 46 46 45 52 20 B2 24 30 43 37 34 00 F3 20 |BUFFER .$0C74.. |
000000F0: 88 04 3B 00 FE 20 92 04 3B 4D 45 4E 55 45 00 04 |..;.. ..;MENUE..|
00000100: 21 9C 04 3B 00 26 21 A6 04 4A 53 52 20 24 45 35 |!..;.&!..JSR $E5|
00000110: 34 34 3B 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F |44;BILDSCHIRM LO|
00000120: 45 53 43 48 45 4E 00 31 21 B0 04 4C 44 41 20 23 |ESCHEN.1!..LDA #|
00000130: 30 00 3C 21 BA 04 53 54 41 20 31 30 00 42 21 C4 |0.<!..STA 10.B!.|
00000140: 04 3B 00 5C 21 CE 04 53 54 41 52 54 20 4C 44 58 |.;.\!..START LDX|
00000150: 20 23 30 3B 54 45 58 C0 46 41 4E 47 00 68 21 D8 | #0;TEX.FANG.h!.|
00000160: 04 53 54 58 20 24 30 32 00 80 21 E2 04 4A 53 52 |.STX $02..!..JSR|
00000170: 20 99 3B 54 45 58 54 20 41 55 53 47 45 42 45 4E | .;TEXT AUSGEBEN|
00000180: 00 9B 21 EC 04 4C 44 59 20 23 31 36 3B 4D 41 58 |..!..LDY #16;MAX|
00000190: 20 31 36 20 5A 45 49 43 48 45 4E 00 A5 21 F6 04 | 16 ZEICHEN..!..|
000001A0: 4A 53 52 20 85 00 B8 21 00 05 43 50 59 20 23 30 |JSR ...!..CPY #0|
000001B0: 30 3A 42 45 51 20 4C 31 00 CB 21 0A 05 80 4E 41 |0:BEQ L1..!...NA|
000001C0: 4D 45 20 4C 44 41 20 23 22 2C 22 00 E9 21 14 05 |ME LDA #","..!..|
000001D0: 53 54 41 20 42 55 46 46 45 52 2C 58 3B 4B 4F 4D |STA BUFFER,X;KOM|
000001E0: 4D 41 20 53 45 54 5A 45 4E 00 F4 21 1E 05 4C 31 |MA SETZEN..!..L1|
000001F0: 20 49 4E 58 00 0C 22 28 05 4A 53 52 20 99 3B 54 | INX.."(.JSR .;T|
00000200: 45 58 54 20 41 55 53 47 45 42 45 4E 00 12 22 32 |EXT AUSGEBEN.."2|
00000210: 05 3B 00 2C 22 3C 05 4C 44 59 20 23 30 32 3B 4D |.;.,"<.LDY #02;M|
00000220: 41 58 20 32 20 5A 45 49 43 48 45 4E 00 36 22 46 |AX 2 ZEICHEN.6"F|
00000230: 05 4A 53 52 20 85 00 3C 22 50 05 3B 00 54 22 5A |.JSR ..<"P.;.T"Z|
00000240: 05 4A 53 52 20 99 3B 54 45 58 54 20 41 55 53 47 |.JSR .;TEXT AUSG|
00000250: 45 42 45 4E 00 6E 22 64 05 4C 44 58 20 23 30 30 |EBEN.n"d.LDX #00|
00000260: 3B 30 B2 56 45 52 8B 49 5A 49 45 52 45 4E 00 89 |;0.VER.IZIEREN..|
00000270: 22 6E 05 4A 53 52 20 A1 4A 3B 4A 41 AD 4E 45 49 |"n.JSR .J;JA.NEI|
00000280: 4E AB 41 42 46 52 41 47 45 00 95 22 78 05 42 45 |N.ABFRAGE.."x.BE|
00000290: 51 20 4A 41 31 00 B5 22 82 05 4C 44 58 20 23 30 |Q JA1.."..LDX #0|
000002A0: 31 3B 31 B2 4E 49 43 48 54 20 56 45 52 8B 49 5A |1;1.NICHT VER.IZ|
000002B0: 49 45 52 45 4E 00 C6 22 8C 05 4A 41 31 20 53 54 |IEREN.."..JA1 ST|
000002C0: 58 20 24 43 37 33 00 CC 22 96 05 3B 00 DB 22 A0 |X $C73.."..;..".|
000002D0: 05 4A 53 52 20 99 3B 54 45 58 54 00 FA 22 AA 05 |.JSR .;TEXT.."..|
000002E0: 4C 44 58 20 23 30 30 3B 42 4C 4F 43 4B 20 4D 49 |LDX #00;BLOCK MI|
000002F0: 54 20 30 30 20 46 55 45 4C C3 00 15 23 B4 05 4A |T 00 FUEL...#..J|
00000300: 53 52 20 A1 4A 3B 4A 41 AD 4E 45 49 4E AB 41 42 |SR .J;JA.NEIN.AB|
00000310: 46 52 41 47 45 00 21 23 BE 05 42 45 51 20 4A 41 |FRAGE.!#..BEQ JA|
00000320: 32 00 3F 23 C8 05 4C 44 58 20 23 30 31 3B 53 91 |2.?#..LDX #01;S.|
00000330: 53 54 20 4D 49 54 20 30 31 20 46 55 45 4C C3 00 |ST MIT 01 FUEL..|
00000340: 50 23 D2 05 4A 41 32 20 53 54 58 20 24 43 37 32 |P#..JA2 STX $C72|
00000350: 00 56 23 DC 05 3B 00 65 23 E6 05 4A 53 52 20 99 |.V#..;.e#..JSR .|
00000360: 3B 54 45 58 54 00 88 23 F0 05 4C 44 58 20 23 34 |;TEXT..#..LDX #4|
00000370: 30 3B 42 49 53 20 54 52 41 43 4B 20 34 30 20 81 |0;BIS TRACK 40 .|
00000380: 4D 41 54 49 45 52 45 4E 00 93 23 FA 05 4A 53 52 |MATIEREN..#..JSR|
00000390: 20 A1 4E 00 9F 23 04 06 42 45 51 20 4A 41 33 00 | .N..#..BEQ JA3.|
000003A0: B8 23 0E 06 4C 44 58 20 23 33 35 3B 42 49 53 20 |.#..LDX #35;BIS |
000003B0: 54 52 41 43 4B 20 33 35 00 C9 23 18 06 4A 41 33 |TRACK 35..#..JA3|
000003C0: 20 53 54 58 20 24 42 46 41 00 CF 23 22 06 3B 00 | STX $BFA..#".;.|
000003D0: DE 23 2C 06 4A 53 52 20 99 3B 54 45 58 54 00 E9 |.#,.JSR .;TEXT..|
000003E0: 23 36 06 49 4E 43 20 31 30 00 F4 23 40 06 4A 53 |#6.INC 10..#@.JS|
000003F0: 52 20 A1 4E 00 0D 24 4A 06 42 4E 45 20 53 54 41 |R .N..$J.BNE STA|
00000400: 52 54 3B 4E 45 55 45 49 4E 47 41 42 45 00 17 24 |RT;NEUEINGABE..$|
00000410: 54 06 4A 53 52 20 99 00 1D 24 5E 06 3B 00 41 24 |T.JSR ...$^.;.A$|
00000420: 68 06 4C 44 41 20 23 30 30 3B 54 41 53 54 41 54 |h.LDA #00;TASTAT|
00000430: 55 52 50 55 46 46 45 52 20 4C 4F 45 53 43 48 45 |URPUFFER LOESCHE|
00000440: 4E 00 4D 24 72 06 53 54 41 20 31 39 38 00 71 24 |N.M$r.STA 198.q$|
00000450: 7C 06 4B 45 59 20 4A 53 52 20 24 46 46 45 34 3B ||.KEY JSR $FFE4;|
00000460: 54 41 53 54 41 54 55 52 20 41 42 46 52 41 47 45 |TASTATUR ABFRAGE|
00000470: 4E 00 93 24 86 06 42 45 51 20 4B 45 59 3B 4B 45 |N..$..BEQ KEY;KE|
00000480: 49 4E 45 20 54 41 53 54 45 20 47 45 44 52 55 45 |INE TASTE GEDRUE|
00000490: 43 4B 54 00 9F 24 90 06 4C 44 58 20 23 31 35 00 |CKT..$..LDX #15.|
000004A0: BF 24 9A 06 4A 53 52 20 24 45 39 46 46 3B 5A 45 |.$..JSR $E9FF;ZE|
000004B0: 49 4C 45 20 31 35 20 4C 4F 45 53 43 48 45 4E 00 |ILE 15 LOESCHEN.|
000004C0: C5 24 A4 06 3B 00 E7 24 AE 06 4A 53 52 20 46 50 |.$..;..$..JSR FP|
000004D0: 52 4F 47 3B 50 52 4F 47 52 41 4D 4D 20 49 4E 53 |ROG;PROGRAMM INS|
000004E0: 20 46 4C 4F 50 50 59 00 F1 24 B8 06 4A 53 52 20 | FLOPPY..$..JSR |
000004F0: 99 00 0A 25 C2 06 4A 53 52 20 46 53 54 41 52 54 |...%..JSR FSTART|
00000500: 3B 81 4D 41 54 49 45 52 45 4E 00 10 25 CC 06 3B |;.MATIEREN..%..;|
00000510: 00 1A 25 D6 06 4A 53 52 20 99 00 20 25 E0 06 3B |..%..JSR .. %..;|
00000520: 00 2B 25 EA 06 4A 53 52 20 A1 4A 00 48 25 F4 06 |.+%..JSR .J.H%..|
00000530: 42 4E 45 20 87 59 3B 80 45 20 44 45 53 20 50 52 |BNE .Y;.E DES PR|
00000540: 4F 47 52 45 41 4D 4D 53 00 4E 25 FE 06 3B 00 63 |OGREAMMS.N%..;.c|
00000550: 25 08 07 4C 44 58 20 23 32 34 3B 5A 45 49 4C 45 |%..LDX #24;ZEILE|
00000560: 20 32 34 00 86 25 12 07 43 4C 45 41 52 20 4A 53 | 24..%..CLEAR JS|
00000570: 52 20 24 45 39 46 46 3B 5A 45 49 4C 45 20 4C 4F |R $E9FF;ZEILE LO|
00000580: 45 53 43 48 45 4E 00 8E 25 1C 07 44 45 58 00 A7 |ESCHEN..%..DEX..|
00000590: 25 26 07 43 50 58 20 23 31 32 3B 42 49 53 20 5A |%&.CPX #12;BIS Z|
000005A0: 45 49 4C 45 20 31 32 00 B5 25 30 07 42 4E 45 20 |EILE 12..%0.BNE |
000005B0: 43 4C 45 41 52 00 BB 25 3A 07 3B 00 DB 25 44 07 |CLEAR..%:.;..%D.|
000005C0: 4A 4D 50 20 53 54 41 52 54 3B 4E 41 45 43 48 53 |JMP START;NAECHS|
000005D0: 54 45 20 44 49 53 4B 45 54 54 45 00 E6 25 4E 07 |TE DISKETTE..%N.|
000005E0: 87 59 20 52 54 53 00 0C 26 58 07 3B 23 23 23 23 |.Y RTS..&X.;####|
000005F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000600: 23 23 23 23 23 23 23 23 23 23 23 23 00 32 26 62 |############.2&b|
00000610: 07 3B 53 54 52 49 4E 47 20 4D 49 54 20 4D 41 58 |.;STRING MIT MAX|
00000620: 2E 20 59 20 5A 45 49 43 48 45 4E 20 4E 45 48 4D |. Y ZEICHEN NEHM|
00000630: 45 4E 00 38 26 6C 07 3B 00 54 26 76 07 85 20 4A |EN.8&l.;.T&v.. J|
00000640: 53 52 20 24 46 46 43 46 3B 5A 45 49 43 48 45 4E |SR $FFCF;ZEICHEN|
00000650: 20 48 4F C3 00 68 26 80 07 43 4D 50 20 23 31 33 | HO..h&..CMP #13|
00000660: 3B 57 45 4E 4E 20 8E 2C 00 7B 26 8A 07 42 45 51 |;WENN .,.{&..BEQ|
00000670: 20 80 85 3B 44 41 4E 4E 20 80 45 00 9B 26 94 07 | ..;DANN .E..&..|
00000680: 53 54 41 20 42 55 46 46 45 52 2C 58 3B 5A 45 49 |STA BUFFER,X;ZEI|
00000690: 43 48 45 4E 20 4D 45 52 4B 45 4E 00 A3 26 9E 07 |CHEN MERKEN..&..|
000006A0: 49 4E 58 00 AB 26 A8 07 44 45 59 00 B5 26 B2 07 |INX..&..DEY..&..|
000006B0: 42 4E 45 20 85 00 C0 26 BC 07 80 85 20 52 54 53 |BNE ...&.... RTS|
000006C0: 00 C6 26 C6 07 3B 00 D7 26 D0 07 3B 4A AD 4E AB |..&..;..&..;J.N.|
000006D0: 45 49 4E 47 41 42 45 00 F0 26 DA 07 A1 4A 20 4C |EINGABE..&...J L|
000006E0: 44 59 20 23 22 4A 22 3A 2E 42 59 54 20 24 32 43 |DY #"J":.BYT $2C|
000006F0: 00 00 27 E4 07 A1 4E 20 4C 44 59 20 23 22 4E 22 |..'...N LDY #"N"|
00000700: 00 0D 27 EE 07 A1 20 4C 44 41 20 31 30 00 17 27 |..'... LDA 10..'|
00000710: F8 07 42 4E 45 20 A8 00 1F 27 02 08 54 59 41 00 |..BNE ...'..TYA.|
00000720: 39 27 0C 08 4A 53 52 20 24 46 46 44 32 3B 4A AD |9'..JSR $FFD2;J.|
00000730: 4E 20 56 B0 47 45 42 45 4E 00 50 27 16 08 4C 44 |N V.GEBEN.P'..LD|
00000740: 41 20 23 22 9D 22 3A 4A 53 52 20 24 46 46 44 32 |A #".":JSR $FFD2|
00000750: 00 70 27 20 08 A8 20 4A 53 52 20 24 46 46 43 46 |.p' .. JSR $FFCF|
00000760: 3B 45 49 4E 20 5A 45 49 43 48 45 4E 20 48 4F C3 |;EIN ZEICHEN HO.|
00000770: 00 7D 27 2A 08 43 4D 50 20 23 22 4A 22 00 85 27 |.}'*.CMP #"J"..'|
00000780: 34 08 52 54 53 00 AB 27 3E 08 3B 23 23 23 23 23 |4.RTS..'>.;#####|
00000790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000007A0: 23 23 23 23 23 23 23 23 23 23 23 00 C9 27 48 08 |###########..'H.|
000007B0: 3B 20 20 20 20 20 20 20 20 20 54 45 58 54 20 41 |; TEXT A|
000007C0: 55 53 44 52 55 43 4B 45 4E 00 EF 27 52 08 3B 23 |USDRUCKEN..'R.;#|
000007D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000007E0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 00 |###############.|
000007F0: 0C 28 5C 08 99 20 4C 44 41 20 23 31 33 3B 4E 41 |.(\.. LDA #13;NA|
00000800: 45 43 48 53 54 45 20 5A 45 49 4C 45 00 1A 28 66 |ECHSTE ZEILE..(f|
00000810: 08 4A 53 52 20 24 46 46 44 32 00 20 28 70 08 3B |.JSR $FFD2. (p.;|
00000820: 00 3E 28 7A 08 4C 44 59 20 24 30 32 3B 41 4E 46 |.>(z.LDY $02;ANF|
00000830: 41 4E 47 20 44 45 53 20 54 45 58 54 45 53 00 52 |ANG DES TEXTES.R|
00000840: 28 84 08 4C 4F 4F 50 20 4C 44 41 20 54 45 58 54 |(..LOOP LDA TEXT|
00000850: 2C 59 00 62 28 8E 08 49 4E 59 3A 49 4E 43 20 24 |,Y.b(..INY:INC $|
00000860: 30 32 00 81 28 98 08 4A 53 52 20 24 46 46 44 32 |02..(..JSR $FFD2|
00000870: 3B 5A 45 49 43 48 45 4E 20 41 55 53 47 45 42 45 |;ZEICHEN AUSGEBE|
00000880: 4E 00 8E 28 A2 08 42 4E 45 20 4C 4F 4F 50 00 96 |N..(..BNE LOOP..|
00000890: 28 AC 08 52 54 53 00 A2 28 B6 08 54 45 58 54 20 |(..RTS..(..TEXT |
000008A0: B2 AC 00 B2 28 C0 08 54 31 20 2E C6 20 22 13 11 |....(..T1 .. "..|
000008B0: 20 22 00 D5 28 CA 08 2E C6 20 22 23 23 23 20 53 | "..(.... "### S|
000008C0: 50 45 45 44 20 46 4F 52 4D 41 54 20 56 31 2E 30 |PEED FORMAT V1.0|
000008D0: 20 23 23 23 22 00 E1 28 D4 08 2E 42 59 54 20 31 | ###"..(...BYT 1|
000008E0: 33 00 F1 28 DE 08 2E C6 20 22 11 4E 41 4D 45 3A |3..(.... ".NAME:|
000008F0: 22 00 FF 28 E8 08 2E 42 59 54 20 30 2C 31 33 00 |"..(...BYT 0,13.|
00000900: 0C 29 F2 08 2E C6 20 22 49 44 3A 22 00 1D 29 FC |.).... "ID:"..).|
00000910: 08 2E 42 59 54 20 30 2C 31 33 2C 31 33 00 41 29 |..BYT 0,13,13.A)|
00000920: 06 09 2E C6 20 22 44 49 53 4B 45 54 54 45 20 56 |.... "DISKETTE V|
00000930: 45 52 49 46 49 5A 49 45 52 45 4E 20 20 20 3F 20 |ERIFIZIEREN ? |
00000940: 22 00 4F 29 10 09 2E 42 59 54 20 30 2C 31 33 00 |".O)...BYT 0,13.|
00000950: 73 29 1A 09 2E C6 20 22 42 4C 4F 43 4B 53 20 4D |s).... "BLOCKS M|
00000960: 49 54 20 30 20 46 55 45 4C 4C 45 4E 20 20 20 20 |IT 0 FUELLEN |
00000970: 3F 20 22 00 81 29 24 09 2E 42 59 54 20 30 2C 31 |? "..)$..BYT 0,1|
00000980: 33 00 A5 29 2E 09 2E C6 20 22 42 49 53 20 53 50 |3..).... "BIS SP|
00000990: 55 52 20 34 30 20 46 4F 52 4D 41 54 49 45 52 45 |UR 40 FORMATIERE|
000009A0: 4E 20 3F 20 22 00 B6 29 38 09 2E 42 59 54 20 30 |N ? "..)8..BYT 0|
000009B0: 2C 31 33 2C 31 33 00 DA 29 42 09 2E C6 20 22 41 |,13,13..)B... "A|
000009C0: 4C 4C 45 20 45 49 4E 47 41 42 45 4E 20 52 49 43 |LLE EINGABEN RIC|
000009D0: 48 54 49 47 20 3F 20 4E 9D 22 00 E5 29 4C 09 2E |HTIG ? N."..)L..|
000009E0: 42 59 54 20 30 00 09 2A 56 09 2E C6 20 22 91 42 |BYT 0..*V... ".B|
000009F0: 49 54 54 45 20 44 49 53 4B 45 54 54 45 20 45 49 |ITTE DISKETTE EI|
00000A00: 4E 4C 45 47 45 4E 20 21 22 00 14 2A 60 09 2E 42 |NLEGEN !"..*`..B|
00000A10: 59 54 20 30 00 2F 2A 6A 09 2E C6 20 22 91 42 49 |YT 0./*j... ".BI|
00000A20: 54 54 45 20 57 41 52 54 45 4E 20 21 91 91 22 00 |TTE WARTEN !..".|
00000A30: 43 2A 74 09 2E 42 59 54 20 31 33 2C 30 2C 31 33 |C*t..BYT 13,0,13|
00000A40: 2C 31 33 00 77 2A 7E 09 2E C6 20 22 4E 4F 43 48 |,13.w*~... "NOCH|
00000A50: 20 45 49 4E 45 20 44 49 53 4B 45 54 54 45 20 46 | EINE DISKETTE F|
00000A60: 4F 52 4D 41 54 49 45 52 45 4E 20 3F 20 4A 9D 22 |ORMATIEREN ? J."|
00000A70: 3A 2E 42 59 54 20 30 00 9C 2A 88 09 3B 23 23 23 |:.BYT 0..*..;###|
00000A80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000A90: 23 23 23 23 23 23 23 23 23 23 23 23 00 BD 2A 92 |############..*.|
00000AA0: 09 3B 20 50 52 47 20 55 45 42 45 52 54 52 41 47 |.; PRG UEBERTRAG|
00000AB0: 55 4E 47 20 5A 55 20 46 4C 4F 50 50 59 00 E2 2A |UNG ZU FLOPPY..*|
00000AC0: 9C 09 3B 23 23 23 23 23 23 23 23 23 23 23 23 23 |..;#############|
00000AD0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000AE0: 23 23 00 EF 2A A6 09 46 50 52 4F 47 20 B2 AC 00 |##..*..FPROG ...|
00000AF0: 14 2B B0 09 4C 44 41 20 23 B3 46 4C 50 52 47 3B |.+..LDA #.FLPRG;|
00000B00: 4C 41 47 45 20 44 45 53 20 46 4C 4F 50 50 59 AB |LAGE DES FLOPPY.|
00000B10: 50 52 47 53 00 30 2B BA 09 53 54 41 20 42 59 54 |PRGS.0+..STA BYT|
00000B20: 45 AA 31 20 3B 49 4D 20 53 50 45 49 43 48 45 52 |E.1 ;IM SPEICHER|
00000B30: 00 40 2B C4 09 4C 44 41 20 23 B1 46 4C 50 52 47 |.@+..LDA #.FLPRG|
00000B40: 00 4F 2B CE 09 53 54 41 20 42 59 54 45 AA 32 00 |.O+..STA BYTE.2.|
00000B50: 55 2B D8 09 3B 00 7A 2B E2 09 4C 44 41 20 23 B3 |U+..;.z+..LDA #.|
00000B60: 44 49 53 4B 20 3B 41 4E 46 41 4E 47 20 44 45 53 |DISK ;ANFANG DES|
00000B70: 20 50 52 4F 47 52 41 4D 4D 53 00 94 2B EC 09 53 | PROGRAMMS..+..S|
00000B80: 54 41 20 41 44 52 20 20 20 20 3B 49 4D 20 46 4C |TA ADR ;IM FL|
00000B90: 4F 50 50 59 00 A3 2B F6 09 4C 44 41 20 23 B1 44 |OPPY..+..LDA #.D|
00000BA0: 49 53 4B 00 B1 2B 00 0A 53 54 41 20 41 44 52 AA |ISK..+..STA ADR.|
00000BB0: 31 00 BD 2B 0A 0A 4C 44 58 20 23 31 36 00 C3 2B |1..+..LDX #16..+|
00000BC0: 14 0A 3B 00 E0 2B 1E 0A 82 20 4A 53 52 20 4F 50 |..;..+... JSR OP|
00000BD0: 43 48 3B 9B 45 4E 20 41 4E 20 46 4C 4F 50 50 59 |CH;.EN AN FLOPPY|
00000BE0: 00 FC 2B 28 0A 4C 44 59 20 23 30 20 3B 4D AB 57 |..+(.LDY #0 ;M.W|
00000BF0: 20 42 45 46 45 48 4C 20 53 80 45 4E 00 10 2C 32 | BEFEHL S.EN..,2|
00000C00: 0A 4D 57 4C 4F 4F 50 20 4C 44 41 20 4D 57 2C 59 |.MWLOOP LDA MW,Y|
00000C10: 00 1E 2C 3C 0A 4A 53 52 20 43 49 4F 55 54 00 26 |..,<.JSR CIOUT.&|
00000C20: 2C 46 0A 49 4E 59 00 31 2C 50 0A 43 50 59 20 23 |,F.INY.1,P.CPY #|
00000C30: 36 00 40 2C 5A 0A 42 4E 45 20 4D 57 4C 4F 4F 50 |6.@,Z.BNE MWLOOP|
00000C40: 00 46 2C 64 0A 3B 00 62 2C 6E 0A 4C 44 59 20 23 |.F,d.;.b,n.LDY #|
00000C50: 30 30 20 20 3B 33 35 20 42 59 54 45 53 20 53 80 |00 ;35 BYTES S.|
00000C60: 45 4E 00 75 2C 78 0A 42 59 54 45 20 4C 44 41 20 |EN.u,x.BYTE LDA |
00000C70: 46 4C 50 52 47 00 83 2C 82 0A 4A 53 52 20 43 49 |FLPRG..,..JSR CI|
00000C80: 4F 55 54 00 A4 2C 8C 0A 49 4E 43 20 42 59 54 45 |OUT..,..INC BYTE|
00000C90: AA 31 20 3B 5A 41 45 48 4C 45 52 20 45 52 48 4F |.1 ;ZAEHLER ERHO|
00000CA0: 45 48 45 4E 00 B2 2C 96 0A 42 4E 45 20 4E 42 59 |EHEN..,..BNE NBY|
00000CB0: 54 45 00 C1 2C A0 0A 49 4E 43 20 42 59 54 45 AA |TE..,..INC BYTE.|
00000CC0: 32 00 CF 2C AA 0A 4E 42 59 54 45 20 49 4E 59 00 |2..,..NBYTE INY.|
00000CD0: EA 2C B4 0A 43 50 59 20 23 33 35 20 3B 53 43 48 |.,..CPY #35 ;SCH|
00000CE0: 91 20 33 35 20 42 59 54 45 53 00 08 2D BE 0A 42 |. 35 BYTES..-..B|
00000CF0: 4E 45 20 42 59 54 45 3B 4E 45 49 4E 2C 44 41 4E |NE BYTE;NEIN,DAN|
00000D00: 4E 20 57 45 49 54 45 52 00 14 2D C8 0A 4A 53 52 |N WEITER..-..JSR|
00000D10: 20 55 4E 9B 00 1A 2D D2 0A 3B 00 22 2D DC 0A 44 | UN...-..;."-..D|
00000D20: 45 58 00 2D 2D E6 0A 42 45 51 20 80 45 00 33 2D |EX.--..BEQ .E.3-|
00000D30: F0 0A 3B 00 3F 2D FA 0A 4C 44 41 20 41 44 52 00 |..;.?-..LDA ADR.|
00000D40: 4F 2D 04 0B 43 4C 43 3A 41 44 43 20 23 33 35 00 |O-..CLC:ADC #35.|
00000D50: 5B 2D 0E 0B 53 54 41 20 41 44 52 00 65 2D 18 0B |[-..STA ADR.e-..|
00000D60: 42 43 43 20 82 00 73 2D 22 0B 49 4E 43 20 41 44 |BCC ..s-".INC AD|
00000D70: 52 AA 31 00 79 2D 2C 0B 3B 00 83 2D 36 0B 4A 4D |R.1.y-,.;..-6.JM|
00000D80: 50 20 82 00 8E 2D 40 0B 80 45 20 52 54 53 00 94 |P ...-@..E RTS..|
00000D90: 2D 4A 0B 3B 00 9A 2D 54 0B 3B 00 B2 2D 5E 0B 3B |-J.;..-T.;..-^.;|
00000DA0: 9B 45 4E 20 41 4E 20 46 4C 4F 50 50 59 20 53 80 |.EN AN FLOPPY S.|
00000DB0: 45 4E 00 B8 2D 68 0B 3B 00 D8 2D 72 0B 4F 50 43 |EN..-h.;..-r.OPC|
00000DC0: 48 20 4C 44 41 20 23 38 3B 47 45 52 41 45 54 45 |H LDA #8;GERAETE|
00000DD0: 4E 55 4D 4D 45 52 20 38 00 E6 2D 7C 0B 4A 53 52 |NUMMER 8..-|.JSR|
00000DE0: 20 9B 45 4E 20 3B 00 05 2E 86 0B 4C 44 41 20 23 | .EN ;.....LDA #|
00000DF0: 24 36 46 20 20 20 3B 53 45 4B 2E 41 44 52 45 53 |$6F ;SEK.ADRES|
00000E00: 53 45 20 31 35 00 13 2E 90 0B 4A 4D 50 20 53 45 |SE 15.....JMP SE|
00000E10: 43 91 44 00 19 2E 9A 0B 3B 00 32 2E A4 0B 45 58 |C.D.....;.2...EX|
00000E20: 20 2E C6 20 22 4D 2D 45 22 3A 2E 42 59 54 20 30 | .. "M-E":.BYT 0|
00000E30: 2C 34 00 42 2E AE 0B 4D 57 20 2E C6 20 22 4D 2D |,4.B...MW .. "M-|
00000E40: 57 22 00 56 2E B8 0B 41 44 52 20 2E 42 59 54 20 |W".V...ADR .BYT |
00000E50: 30 2C 30 2C 33 35 00 5C 2E C2 0B 3B 00 79 2E CC |0,0,35.\...;.y..|
00000E60: 0B 3B 46 4C 4F 50 50 59 AB 50 52 4F 47 52 41 4D |.;FLOPPY.PROGRAM|
00000E70: 4D 20 53 54 41 52 54 45 4E 00 7F 2E D6 0B 3B 00 |M STARTEN.....;.|
00000E80: 9C 2E E0 0B 46 53 54 41 52 54 20 4A 53 52 20 4F |....FSTART JSR O|
00000E90: 50 43 48 3B 9B 45 4E 20 53 80 45 4E 00 A8 2E EA |PCH;.EN S.EN....|
00000EA0: 0B 4C 44 59 20 23 30 30 00 CA 2E F4 0B 45 58 4C |.LDY #00.....EXL|
00000EB0: 4F 4F 50 20 4C 44 41 20 45 58 2C 59 3B 42 45 46 |OOP LDA EX,Y;BEF|
00000EC0: 45 48 4C 53 53 54 52 49 4E 47 00 E8 2E FE 0B 4A |EHLSSTRING.....J|
00000ED0: 53 52 20 43 49 4F 55 54 3B 41 4E 20 46 4C 4F 50 |SR CIOUT;AN FLOP|
00000EE0: 50 59 20 47 45 42 45 4E 00 F0 2E 08 0C 49 4E 59 |PY GEBEN.....INY|
00000EF0: 00 FC 2E 12 0C 43 50 59 20 23 30 35 00 1D 2F 1C |.....CPY #05../.|
00000F00: 0C 42 4E 45 20 45 58 4C 4F 4F 50 3B 4E 41 45 43 |.BNE EXLOOP;NAEC|
00000F10: 48 53 54 45 53 20 5A 45 49 43 48 45 4E 00 34 2F |HSTES ZEICHEN.4/|
00000F20: 26 0C 4A 53 52 20 55 4E 9B 3B 55 4E 9B 45 4E 20 |&.JSR UN.;UN.EN |
00000F30: 53 80 45 4E 00 3A 2F 30 0C 3B 00 5D 2F 3A 0C 3B |S.EN.:/0.;.]/:.;|
00000F40: 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 56 91 |FEHLERMELDUNG V.|
00000F50: 20 46 4C 4F 50 50 59 20 4C 45 53 45 4E 00 63 2F | FLOPPY LESEN.c/|
00000F60: 44 0C 3B 00 7F 2F 4E 0C 4C 44 41 20 23 38 20 3B |D.;../N.LDA #8 ;|
00000F70: 47 45 52 41 45 54 45 4E 55 4D 4D 45 52 20 38 00 |GERAETENUMMER 8.|
00000F80: 96 2F 58 0C 4A 53 52 20 54 41 4C 4B 3B 54 41 4C |./X.JSR TALK;TAL|
00000F90: 4B 20 53 80 45 4E 00 B7 2F 62 0C 4C 44 41 20 23 |K S.EN../b.LDA #|
00000FA0: 24 36 46 3B 53 45 4B 55 4E 44 41 45 52 41 44 52 |$6F;SEKUNDAERADR|
00000FB0: 45 53 53 45 20 31 35 00 C4 2F 6C 0C 4A 53 52 20 |ESSE 15../l.JSR |
00000FC0: 54 4B 53 41 00 DA 2F 76 0C 4C 44 58 20 23 31 35 |TKSA../v.LDX #15|
00000FD0: 3A 4A 53 52 20 24 45 39 46 46 00 E0 2F 80 0C 3B |:JSR $E9FF../..;|
00000FE0: 00 00 30 8A 0C 4D 45 4C 44 20 4A 53 52 20 41 43 |..0..MELD JSR AC|
00000FF0: 50 54 52 3B 42 59 54 45 20 56 4F 4D 20 42 55 53 |PTR;BYTE VOM BUS|
00001000: 00 25 30 94 0C 4A 53 52 20 24 46 46 44 32 3B 41 |.%0..JSR $FFD2;A|
00001010: 55 46 20 42 49 4C 44 53 43 48 49 52 4D 20 44 52 |UF BILDSCHIRM DR|
00001020: 55 43 4B 45 4E 00 43 30 9E 0C 43 4D 50 20 23 31 |UCKEN.C0..CMP #1|
00001030: 33 3B 8E 20 28 88 5A 54 45 53 20 5A 45 49 43 48 |3;. (.ZTES ZEICH|
00001040: 45 4E 29 00 50 30 A8 0C 42 4E 45 20 4D 45 4C 44 |EN).P0..BNE MELD|
00001050: 00 6A 30 B2 0C 4A 4D 50 20 55 4E 54 4C 4B 3B 55 |.j0..JMP UNTLK;U|
00001060: 4E 54 41 4C 4B 20 53 80 45 4E 00 00 00 72 |NTALK S.EN...r |
. . ...7.4096.. ...OPT." ....$080D.( ..;
.7 ...EN .$FFB1.H ..SEC.D .$FF93.Z $.CIO
UT .$FFA8.I ..UN. .$FFAE.{ 8.TALK .$F
FB4.. B.TKSA .$FF96.. L.UNTLK .$FFAB.
. V.ACPTR .$FFA5.. `.;.I J.DISK .$040
0.. T.FLPRG .$0A59.. ~.BUFFER .$0C74..
..;.. ..;MENUE..!..;.&!..JSR $E544;BILDS
CHIRM LOESCHEN.1!..LDA #0.<!..STA 10.B!D
.;.\!N.START LDX #0;TEX.FANG.H!X.STX $02
..!..JSR .;TEXT AUSGEBEN..!..LDY #16;MAX
16 ZEICHEN..!..JSR ...!..CPY #00:BEQ L1
.K!...NAME LDA #","..!..STA BUFFER,X;KOM
MA SETZEN..!..L1 INX.."(.JSR .;TEXT AUSG
EBEN.."2.;.,"<.LDY #02;MAX 2 ZEICHEN.6"F
.JSR ..<"P.;.T"Z.JSR .;TEXT AUSGEBEN.N"D
.LDX #00;0.VER.IZIEREN.."N.JSR .J;JA.NEI
N.ABFRAGE.."X.BEQ JA1.."..LDX #01;1.NICH
T VER.IZIEREN.F"..JA1 STX $C73.L"..;.."
.JSR .;TEXT.."..LDX #00;BLOCK MIT 00 FUE
LC..#..JSR .J;JA.NEIN.ABFRAGE.!#..BEQ JA
2.?#H.LDX #01;S.ST MIT 01 FUELC.P#R.JA2
STX $C72.V#..;.E#..JSR .;TEXT..#..LDX #4
0;BIS TRACK 40 .MATIEREN..#..JSR .N..#..
BEQ JA3..#..LDX #35;BIS TRACK 35.I#..JA3
STX $BFA.O#".;..#,.JSR .;TEXT..#6.INC 1
0..#@.JSR .N..$J.BNE START;NEUEINGABE..$
T.JSR ...$^.;.A$H.LDA #00;TASTATURPUFFER
LOESCHEN.M$R.STA 198.Q$|.KEY JSR $FFE4;
TASTATUR ABFRAGEN..$..BEQ KEY;KEINE TAST
E GEDRUECKT..$..LDX #15..$..JSR $E9FF;ZE
ILE 15 LOESCHEN.E$..;..$..JSR FPROG;PROG
RAMM INS FLOPPY..$..JSR ...%B.JSR FSTART
;.MATIEREN..%L.;..%V.JSR .. %..;.+%..JSR
.J.H%..BNE .Y;.E DES PROGREAMMS.N%..;.C
%..LDX #24;ZEILE 24..%..CLEAR JSR $E9FF;
ZEILE LOESCHEN..%..DEX..%&.CPX #12;BIS Z
EILE 12..%0.BNE CLEAR..%:.;..%D.JMP STAR
T;NAECHSTE DISKETTE..%N..Y RTS..&X.;####
############################.2&B.;STRING
MIT MAX. Y ZEICHEN NEHMEN.8&L.;.T&V.. J
SR $FFCF;ZEICHEN HOC.H&..CMP #13;WENN .,
.{&..BEQ ..;DANN .E..&..STA BUFFER,X;ZEI
CHEN MERKEN..&..INX..&..DEY..&..BNE ...&
.... RTS.F&F.;.W&P.;J.N.EINGABE..&Z..J L
DY #"J":.BYT $2C..'...N LDY #"N"..'... L
DA 10..'..BNE ...'..TYA.9'..JSR $FFD2;J.
N V.GEBEN.P'..LDA #".":JSR $FFD2.P' .. J
SR $FFCF;EIN ZEICHEN HOC.}'*.CMP #"J"..'
4.RTS..'>.;#############################
###.I'H.; TEXT AUSDRUCKEN..'R.;#
###############################..(\.. LD
A #13;NAECHSTE ZEILE..(F.JSR $FFD2. (P.;
.>(Z.LDY $02;ANFANG DES TEXTES.R(..LOOP
LDA TEXT,Y.B(..INY:INC $02..(..JSR $FFD2
;ZEICHEN AUSGEBEN..(..BNE LOOP..(..RTS..
(..TEXT ....(..T1 .F ".. ".U(J..F "### S
PEED FORMAT V1.0 ###"..(T..BYT 13..(...F
".NAME:"..(...BYT 0,13..)...F "ID:"..).
..BYT 0,13,13.A)...F "DISKETTE VERIFIZIE
REN ? ".O)...BYT 0,13.S)...F "BLOCKS M
IT 0 FUELLEN ? "..)$..BYT 0,13..)...F
"BIS SPUR 40 FORMATIEREN ? "..)8..BYT 0
,13,13.Z)B..F "ALLE EINGABEN RICHTIG ? N
."..)L..BYT 0..*V..F ".BITTE DISKETTE EI
NLEGEN !"..*`..BYT 0./*J..F ".BITTE WART
EN !..".C*T..BYT 13,0,13,13.W*~..F "NOCH
EINE DISKETTE FORMATIEREN ? J.":.BYT 0.
.*..;###############################..*.
.; PRG UEBERTRAGUNG ZU FLOPPY..*..;#####
##########################..*..FPROG ...
.+..LDA #.FLPRG;LAGE DES FLOPPY.PRGS.0+.
.STA BYTE.1 ;IM SPEICHER.@+D.LDA #.FLPRG
.O+N.STA BYTE.2.U+X.;.Z+..LDA #.DISK ;AN
FANG DES PROGRAMMS..+..STA ADR ;IM FL
OPPY..+..LDA #.DISK..+..STA ADR.1..+..LD
X #16.C+..;..+... JSR OPCH;.EN AN FLOPPY
..+(.LDY #0 ;M.W BEFEHL S.EN..,2.MWLOOP
LDA MW,Y..,<.JSR CIOUT.&,F.INY.1,P.CPY #
6.@,Z.BNE MWLOOP.F,D.;.B,N.LDY #00 ;35
BYTES S.EN.U,X.BYTE LDA FLPRG..,..JSR CI
OUT..,..INC BYTE.1 ;ZAEHLER ERHOEHEN..,.
.BNE NBYTE.A, .INC BYTE.2.O,..NBYTE INY.
.,..CPY #35 ;SCH. 35 BYTES..-..BNE BYTE;
NEIN,DANN WEITER..-H.JSR UN...-R.;."-..D
EX.--..BEQ .E.3-..;.?-..LDA ADR.O-..CLC:
ADC #35.[-..STA ADR.E-..BCC ..S-".INC AD
R.1.Y-,.;..-6.JMP ...-@..E RTS..-J.;..-T
.;..-^.;.EN AN FLOPPY S.EN..-H.;.X-R.OPC
H LDA #8;GERAETENUMMER 8..-|.JSR .EN ;..
...LDA #$6F ;SEK.ADRESSE 15.....JMP SE
C.D.....;.2...EX .F "M-E":.BYT 0,4.B...M
W .F "M-W".V...ADR .BYT 0,0,35.\.B.;.Y.L
.;FLOPPY.PROGRAMM STARTEN..V.;.....FSTA
RT JSR OPCH;.EN S.EN.....LDY #00.J...EXL
OOP LDA EX,Y;BEFEHLSSTRING.....JSR CIOUT
;AN FLOPPY GEBEN.....INY.....CPY #05../.
.BNE EXLOOP;NAECHSTES ZEICHEN.4/&.JSR UN
.;UN.EN S.EN.:/0.;.]/:.;FEHLERMELDUNG V.
FLOPPY LESEN.C/D.;./N.LDA #8 ;GERAETEN
UMMER 8../X.JSR TALK;TALK S.EN../B.LDA #
$6F;SEKUNDAERADRESSE 15.D/L.JSR TKSA.Z/V
.LDX #15:JSR $E9FF../..;..0..MELD JSR AC
PTR;BYTE VOM BUS.%0..JSR $FFD2;AUF BILDS
CHIRM DRUCKEN.C0..CMP #13;. (.ZTES ZEICH
EN).P0..BNE MELD.J0..JMP UNTLK;UNTALK S.
EN...R
> CLICK IMAGE PREVIEW FOR FULL MODAL