FASTL.Q
FILE INFORMATION
FILENAME(S): FASTL.Q
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
53e1a3e9ebbf5b8561e395f25b47ac3f5855225e17e0fba50ad0ac54f9197680
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LISTINGS SH 38 | FASTL.Q | PRG | C64er | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F EF 1F 0A 00 3B 46 41 53 54 4C 4F 41 44 20 |......;FASTLOAD |
00000010: 32 37 2E 31 31 2E 38 37 00 07 20 14 00 20 2E 4F |27.11.87.. .. .O|
00000020: 42 22 46 4C 4F 41 44 2E 4F 42 4A 2C 50 2C 57 22 |B"FLOAD.OBJ,P,W"|
00000030: 00 0D 20 1E 00 3B 00 21 20 28 00 20 2E 45 51 44 |.. ..;.! (. .EQD|
00000040: 45 53 54 31 3D 24 30 33 33 30 00 35 20 32 00 20 |EST1=$0330.5 2. |
00000050: 2E 45 51 44 45 53 54 32 3D 24 30 31 30 42 00 49 |.EQDEST2=$010B.I|
00000060: 20 3C 00 20 2E 45 51 44 45 53 54 33 3D 24 30 32 | <. .EQDEST3=$02|
00000070: 41 39 00 57 20 46 00 20 2E 42 41 24 30 38 30 31 |A9.W F. .BA$0801|
00000080: 00 5D 20 50 00 3B 00 95 20 5A 00 20 2E 42 59 24 |.] P.;.. Z. .BY$|
00000090: 30 42 2C 24 30 38 2C 24 43 33 2C 24 30 37 2C 24 |0B,$08,$C3,$07,$|
000000A0: 39 45 2C 24 33 32 2C 24 33 30 2C 24 33 36 2C 24 |9E,$32,$30,$36,$|
000000B0: 33 31 2C 24 30 30 2C 24 30 30 2C 24 30 30 00 9B |31,$00,$00,$00..|
000000C0: 20 64 00 3B 00 AC 20 6E 00 20 4C 44 58 23 3C 28 | d.;.. n. LDX#<(|
000000D0: 4E 4F 42 31 29 00 C3 20 78 00 56 4C 50 31 20 4C |NOB1).. x.VLP1 L|
000000E0: 44 41 46 4C 4F 41 44 30 2D 31 2C 58 00 D5 20 82 |DAFLOAD0-1,X.. .|
000000F0: 00 20 53 54 41 44 45 53 54 31 2D 31 2C 58 00 DE |. STADEST1-1,X..|
00000100: 20 8C 00 20 44 45 58 00 EB 20 96 00 20 42 4E 45 | .. DEX.. .. BNE|
00000110: 56 4C 50 31 00 FC 20 A0 00 20 4C 44 58 23 3C 28 |VLP1.. .. LDX#<(|
00000120: 4E 4F 42 32 29 00 13 21 AA 00 56 4C 50 32 20 4C |NOB2)..!..VLP2 L|
00000130: 44 41 46 4C 4F 41 44 31 2D 31 2C 58 00 25 21 B4 |DAFLOAD1-1,X.%!.|
00000140: 00 20 53 54 41 44 45 53 54 32 2D 31 2C 58 00 2E |. STADEST2-1,X..|
00000150: 21 BE 00 20 44 45 58 00 3B 21 C8 00 20 42 4E 45 |!.. DEX.;!.. BNE|
00000160: 56 4C 50 32 00 4C 21 D2 00 20 4C 44 58 23 3C 28 |VLP2.L!.. LDX#<(|
00000170: 4E 4F 42 33 29 00 62 21 DC 00 56 4C 50 33 20 4C |NOB3).b!..VLP3 L|
00000180: 44 41 4F 50 45 4E 4D 2D 31 2C 58 00 74 21 E6 00 |DAOPENM-1,X.t!..|
00000190: 20 53 54 41 44 45 53 54 33 2D 31 2C 58 00 7D 21 | STADEST3-1,X.}!|
000001A0: F0 00 20 44 45 58 00 8A 21 FA 00 20 42 4E 45 56 |.. DEX..!.. BNEV|
000001B0: 4C 50 33 00 93 21 04 01 20 52 54 53 00 99 21 0E |LP3..!.. RTS..!.|
000001C0: 01 3B 00 AC 21 18 01 20 2E 45 51 49 45 43 42 59 |.;..!.. .EQIECBY|
000001D0: 54 3D 24 41 36 00 BF 21 22 01 20 2E 45 51 53 45 |T=$A6..!". .EQSE|
000001E0: 43 41 44 52 3D 24 41 37 00 D0 21 2C 01 20 2E 45 |CADR=$A7..!,. .E|
000001F0: 51 55 53 45 52 3D 24 42 36 00 D6 21 36 01 3B 00 |QUSER=$B6..!6.;.|
00000200: EA 21 40 01 3B 46 4C 4F 50 50 59 52 4F 55 54 49 |.!@.;FLOPPYROUTI|
00000210: 4E 45 4E 00 F0 21 4A 01 3B 00 0E 22 54 01 46 4C |NEN..!J.;.."T.FL|
00000220: 4F 41 44 30 20 2E 42 59 24 42 34 2C 24 30 33 2C |OAD0 .BY$B4,$03,|
00000230: 24 45 44 2C 24 46 35 00 1D 22 5E 01 41 46 4C 20 |$ED,$F5.."^.AFL |
00000240: 49 4E 43 24 33 31 00 2B 22 68 01 20 4A 4D 50 24 |INC$31.+"h. JMP$|
00000250: 46 34 44 31 00 31 22 72 01 3B 00 45 22 7C 01 52 |F4D1.1"r.;.E"|.R|
00000260: 44 45 52 52 20 4A 53 52 53 45 4E 44 2B 32 00 5E |DERR JSRSEND+2.^|
00000270: 22 86 01 20 4C 44 41 24 30 30 3B 46 45 48 4C 45 |".. LDA$00;FEHLE|
00000280: 52 4E 55 4D 4D 45 52 00 6C 22 90 01 20 4A 4D 50 |RNUMMER.l".. JMP|
00000290: 24 45 36 30 41 00 72 22 9A 01 3B 00 84 22 A4 01 |$E60A.r"..;.."..|
000002A0: 53 54 4C 4F 41 44 20 4C 44 41 24 46 39 00 8D 22 |STLOAD LDA$F9.."|
000002B0: AE 01 20 41 53 4C 00 96 22 B8 01 20 54 41 58 00 |.. ASL..".. TAX.|
000002C0: A4 22 C2 01 20 4C 44 41 24 30 36 2C 58 00 B0 22 |.".. LDA$06,X.."|
000002D0: CC 01 20 53 54 41 24 30 36 00 BE 22 D6 01 20 4C |.. STA$06..".. L|
000002E0: 44 41 24 30 37 2C 58 00 CB 22 E0 01 20 4C 44 58 |DA$07,X..".. LDX|
000002F0: 23 24 30 30 00 DD 22 EA 01 52 44 4C 4F 4F 50 20 |#$00.."..RDLOOP |
00000300: 53 54 41 24 30 37 00 EA 22 F4 01 20 4C 44 41 23 |STA$07..".. LDA#|
00000310: 24 45 30 00 FA 22 FE 01 20 53 54 41 24 30 30 3B |$E0..".. STA$00;|
00000320: 4D 2D 45 00 08 23 08 02 20 53 54 41 24 30 32 35 |M-E..#.. STA$025|
00000330: 42 00 16 23 12 02 20 53 54 41 24 30 32 39 38 00 |B..#.. STA$0298.|
00000340: 1F 23 1C 02 20 43 4C 49 00 2D 23 26 02 20 4A 53 |.#.. CLI.-#&. JS|
00000350: 52 24 44 35 39 39 00 36 23 30 02 20 53 45 49 00 |R$D599.6#0. SEI.|
00000360: 43 23 3A 02 20 43 4D 50 23 24 30 32 00 5C 23 44 |C#:. CMP#$02.\#D|
00000370: 02 20 42 43 53 52 44 45 52 52 3B 21 41 20 50 4F |. BCSRDERR;!A PO|
00000380: 53 49 54 49 56 00 73 23 4E 02 20 4C 44 41 24 30 |SITIV.s#N. LDA$0|
00000390: 34 30 30 3B 50 55 46 46 45 52 20 31 00 81 23 58 |400;PUFFER 1..#X|
000003A0: 02 20 42 45 51 4C 41 53 54 32 00 8D 23 62 02 20 |. BEQLAST2..#b. |
000003B0: 53 54 41 24 30 36 00 9A 23 6C 02 20 4A 53 52 53 |STA$06..#l. JSRS|
000003C0: 45 4E 44 00 A7 23 76 02 20 4C 44 59 23 24 30 32 |END..#v. LDY#$02|
000003D0: 00 BB 23 80 02 4C 50 31 30 20 4C 44 41 24 30 34 |..#..LP10 LDA$04|
000003E0: 30 30 2C 59 00 C8 23 8A 02 20 4A 53 52 53 45 4E |00,Y..#.. JSRSEN|
000003F0: 44 00 D1 23 94 02 20 49 4E 59 00 DE 23 9E 02 20 |D..#.. INY..#.. |
00000400: 42 4E 45 4C 50 31 30 00 EC 23 A8 02 20 4C 44 41 |BNELP10..#.. LDA|
00000410: 24 30 34 30 31 00 FB 23 B2 02 20 42 50 4C 52 44 |$0401..#.. BPLRD|
00000420: 4C 4F 4F 50 00 0D 24 BC 02 4C 41 53 54 32 20 4C |LOOP..$..LAST2 L|
00000430: 44 59 23 24 46 46 00 1A 24 C6 02 4C 50 31 31 20 |DY#$FF..$..LP11 |
00000440: 49 4E 59 00 2A 24 D0 02 20 4C 44 41 24 30 34 30 |INY.*$.. LDA$040|
00000450: 30 2C 59 00 37 24 DA 02 20 4A 53 52 53 45 4E 44 |0,Y.7$.. JSRSEND|
00000460: 00 45 24 E4 02 20 43 50 59 24 30 34 30 31 00 52 |.E$.. CPY$0401.R|
00000470: 24 EE 02 20 42 4E 45 4C 50 31 31 00 60 24 F8 02 |$.. BNELP11.`$..|
00000480: 20 4A 4D 50 24 43 31 39 34 00 66 24 02 03 3B 00 | JMP$C194.f$..;.|
00000490: 78 24 0C 03 53 45 4E 44 4C 20 45 4F 52 23 24 46 |x$..SENDL EOR#$F|
000004A0: 46 00 84 24 16 03 20 53 54 41 24 31 42 00 91 24 |F..$.. STA$1B..$|
000004B0: 20 03 20 4C 44 41 23 24 30 38 00 AC 24 2A 03 20 | . LDA#$08..$*. |
000004C0: 53 54 41 24 31 38 30 30 3B 43 4C 4B 4F 55 54 20 |STA$1800;CLKOUT |
000004D0: 41 55 46 20 31 00 B9 24 34 03 20 4C 44 41 23 24 |AUF 1..$4. LDA#$|
000004E0: 30 31 00 CC 24 3E 03 57 41 49 54 31 20 42 49 54 |01..$>.WAIT1 BIT|
000004F0: 24 31 38 30 30 00 F3 24 48 03 20 42 45 51 57 41 |$1800..$H. BEQWA|
00000500: 49 54 31 3B 57 41 52 54 45 54 20 41 55 46 20 43 |IT1;WARTET AUF C|
00000510: 36 34 2D 44 41 54 41 4F 55 54 3D 31 00 00 25 52 |64-DATAOUT=1..%R|
00000520: 03 20 4C 44 58 23 24 30 34 00 11 25 5C 03 4C 50 |. LDX#$04..%\.LP|
00000530: 31 32 20 4C 44 41 23 24 30 30 00 1D 25 66 03 20 |12 LDA#$00..%f. |
00000540: 4C 53 52 24 31 42 00 26 25 70 03 20 52 4F 4C 00 |LSR$1B.&%p. ROL.|
00000550: 2F 25 7A 03 20 41 53 4C 00 3B 25 84 03 20 4C 53 |/%z. ASL.;%.. LS|
00000560: 52 24 31 42 00 44 25 8E 03 20 52 4F 4C 00 4D 25 |R$1B.D%.. ROL.M%|
00000570: 98 03 20 41 53 4C 00 5B 25 A2 03 20 53 54 41 24 |.. ASL.[%.. STA$|
00000580: 31 38 30 30 00 64 25 AC 03 20 44 45 58 00 71 25 |1800.d%.. DEX.q%|
00000590: B6 03 20 42 4E 45 4C 50 31 32 00 7A 25 C0 03 20 |.. BNELP12.z%.. |
000005A0: 4E 4F 50 00 91 25 CA 03 20 53 54 58 24 31 38 30 |NOP..%.. STX$180|
000005B0: 30 3B 42 55 53 20 46 52 45 49 00 9A 25 D4 03 20 |0;BUS FREI..%.. |
000005C0: 52 54 53 00 A0 25 DE 03 3B 00 B5 25 E8 03 3B 52 |RTS..%..;..%..;R|
000005D0: 45 43 48 4E 45 52 52 4F 55 54 49 4E 45 4E 00 BB |ECHNERROUTINEN..|
000005E0: 25 F2 03 3B 00 C4 25 FC 03 20 54 41 59 00 D1 25 |%..;..%.. TAY..%|
000005F0: 06 04 20 42 45 51 46 4C 53 54 00 E4 25 10 04 4E |.. BEQFLST..%..N|
00000600: 4C 4F 41 44 20 4A 4D 50 24 46 34 41 35 00 F3 25 |LOAD JMP$F4A5..%|
00000610: 1A 04 46 4C 53 54 20 54 41 58 3B 30 00 03 26 24 |..FLST TAX;0..&$|
00000620: 04 20 4C 44 41 28 24 42 42 29 2C 59 00 10 26 2E |. LDA($BB),Y..&.|
00000630: 04 20 45 4F 52 23 24 32 34 00 1E 26 38 04 20 42 |. EOR#$24..&8. B|
00000640: 45 51 4E 4C 4F 41 44 00 2B 26 42 04 20 4C 44 41 |EQNLOAD.+&B. LDA|
00000650: 23 24 30 38 00 37 26 4C 04 20 53 54 41 24 42 41 |#$08.7&L. STA$BA|
00000660: 00 43 26 56 04 20 4C 44 41 24 42 39 00 52 26 60 |.C&V. LDA$B9.R&`|
00000670: 04 20 53 54 41 53 45 43 41 44 52 00 5E 26 6A 04 |. STASECADR.^&j.|
00000680: 20 53 54 58 24 42 39 00 6C 26 74 04 20 4A 53 52 | STX$B9.l&t. JSR|
00000690: 24 46 33 44 39 00 7B 26 7E 04 20 4A 53 52 45 52 |$F3D9.{&~. JSRER|
000006A0: 52 43 48 58 00 8D 26 88 04 20 53 54 58 24 44 30 |RCHX..&.. STX$D0|
000006B0: 31 31 3B 58 3D 30 00 A0 26 92 04 4C 4F 4F 50 20 |11;X=0..&..LOOP |
000006C0: 4A 53 52 4F 50 45 4E 4D 58 00 AD 26 9C 04 20 4C |JSROPENMX..&.. L|
000006D0: 44 41 23 22 57 22 00 BB 26 A6 04 20 4A 53 52 24 |DA#"W"..&.. JSR$|
000006E0: 45 44 44 44 00 C4 26 B0 04 20 54 58 41 00 D2 26 |EDDD..&.. TXA..&|
000006F0: BA 04 20 4A 53 52 24 45 44 44 44 00 DF 26 C4 04 |.. JSR$EDDD..&..|
00000700: 20 4C 44 41 23 24 30 33 00 ED 26 CE 04 20 4A 53 | LDA#$03..&.. JS|
00000710: 52 24 45 44 44 44 00 FA 26 D8 04 20 4C 44 41 23 |R$EDDD..&.. LDA#|
00000720: 24 32 30 00 03 27 E2 04 20 54 41 59 00 11 27 EC |$20..'.. TAY..'.|
00000730: 04 20 4A 53 52 24 45 44 44 44 00 24 27 F6 04 4C |. JSR$EDDD.$'..L|
00000740: 50 31 20 4C 44 41 24 30 33 33 34 2C 58 00 32 27 |P1 LDA$0334,X.2'|
00000750: 00 05 20 4A 53 52 24 45 44 44 44 00 3B 27 0A 05 |.. JSR$EDDD.;'..|
00000760: 20 49 4E 58 00 44 27 14 05 20 44 45 59 00 50 27 | INX.D'.. DEY.P'|
00000770: 1E 05 20 42 4E 45 4C 50 31 00 5E 27 28 05 20 4A |.. BNELP1.^'(. J|
00000780: 53 52 24 45 44 46 45 00 67 27 32 05 20 54 58 41 |SR$EDFE.g'2. TXA|
00000790: 00 74 27 3C 05 20 42 50 4C 4C 4F 4F 50 00 82 27 |.t'<. BPLLOOP..'|
000007A0: 46 05 20 4A 4D 50 44 45 53 54 32 00 88 27 50 05 |F. JMPDEST2..'P.|
000007B0: 3B 00 9D 27 5A 05 46 4C 4F 41 44 31 20 4A 53 52 |;..'Z.FLOAD1 JSR|
000007C0: 4F 50 45 4E 4D 58 00 AA 27 64 05 20 4C 44 41 23 |OPENMX..'d. LDA#|
000007D0: 22 45 22 00 B8 27 6E 05 20 4A 53 52 24 45 44 44 |"E"..'n. JSR$EDD|
000007E0: 44 00 C5 27 78 05 20 4C 44 41 23 24 30 44 00 D3 |D..'x. LDA#$0D..|
000007F0: 27 82 05 20 4A 53 52 24 45 44 44 44 00 E0 27 8C |'.. JSR$EDDD..'.|
00000800: 05 20 4C 44 41 23 24 30 33 00 EE 27 96 05 20 4A |. LDA#$03..'.. J|
00000810: 53 52 24 45 44 44 44 00 FC 27 A0 05 20 4A 53 52 |SR$EDDD..'.. JSR|
00000820: 24 45 44 46 45 00 02 28 AA 05 3B 00 0B 28 B4 05 |$EDFE..(..;..(..|
00000830: 20 53 45 49 00 1B 28 BE 05 20 4A 53 52 47 45 54 | SEI..(.. JSRGET|
00000840: 42 59 54 58 00 2E 28 C8 05 20 42 4D 49 45 58 49 |BYTX..(.. BMIEXI|
00000850: 54 3B 45 52 52 4F 52 00 37 28 D2 05 20 50 48 41 |T;ERROR.7(.. PHA|
00000860: 00 42 28 DC 05 20 42 4E 45 4D 30 00 52 28 E6 05 |.B(.. BNEM0.R(..|
00000870: 20 4A 53 52 47 45 54 42 59 54 58 00 5B 28 F0 05 | JSRGETBYTX.[(..|
00000880: 20 53 45 43 00 68 28 FA 05 20 53 42 43 23 24 30 | SEC.h(.. SBC#$0|
00000890: 33 00 75 28 04 06 20 53 54 41 55 53 45 52 00 87 |3.u(.. STAUSER..|
000008A0: 28 0E 06 4D 30 20 4A 53 52 47 45 54 42 59 54 58 |(..M0 JSRGETBYTX|
000008B0: 00 90 28 18 06 20 54 41 59 00 A0 28 22 06 20 4A |..(.. TAY..(". J|
000008C0: 53 52 47 45 54 42 59 54 58 00 AF 28 2C 06 20 4C |SRGETBYTX..(,. L|
000008D0: 44 58 53 45 43 41 44 52 00 BE 28 36 06 20 42 4E |DXSECADR..(6. BN|
000008E0: 45 4F 52 49 47 41 44 00 CA 28 40 06 20 4C 44 59 |EORIGAD..(@. LDY|
000008F0: 24 43 33 00 D6 28 4A 06 20 4C 44 41 24 43 34 00 |$C3..(J. LDA$C4.|
00000900: E8 28 54 06 4F 52 49 47 41 44 20 53 54 59 24 41 |.(T.ORIGAD STY$A|
00000910: 45 00 F4 28 5E 06 20 53 54 41 24 41 46 00 FD 28 |E..(^. STA$AF..(|
00000920: 68 06 20 50 4C 41 00 0B 29 72 06 20 42 45 51 4C |h. PLA..)r. BEQL|
00000930: 41 53 54 42 00 18 29 7C 06 20 4C 44 59 23 24 30 |ASTB..)|. LDY#$0|
00000940: 34 00 2B 29 86 06 47 45 54 42 4C 4B 20 53 54 59 |4.+)..GETBLK STY|
00000950: 55 53 45 52 00 34 29 90 06 20 53 45 43 00 40 29 |USER.4).. SEC.@)|
00000960: 9A 06 20 4C 44 41 24 41 45 00 4D 29 A4 06 20 53 |.. LDA$AE.M).. S|
00000970: 42 43 55 53 45 52 00 59 29 AE 06 20 53 54 41 24 |BCUSER.Y).. STA$|
00000980: 41 45 00 65 29 B8 06 20 42 43 53 4C 50 32 00 71 |AE.e).. BCSLP2.q|
00000990: 29 C2 06 20 44 45 43 24 41 46 00 84 29 CC 06 4C |).. DEC$AF..)..L|
000009A0: 50 32 20 4A 53 52 47 45 54 42 59 54 58 00 94 29 |P2 JSRGETBYTX..)|
000009B0: D6 06 20 4A 53 52 53 54 4F 52 45 4D 58 00 9D 29 |.. JSRSTOREMX..)|
000009C0: E0 06 20 49 4E 59 00 A9 29 EA 06 20 42 4E 45 4C |.. INY..).. BNEL|
000009D0: 50 32 00 B5 29 F4 06 20 49 4E 43 24 41 46 00 C2 |P2..).. INC$AF..|
000009E0: 29 FE 06 20 4C 44 59 23 24 30 32 00 D2 29 08 07 |).. LDY#$02..)..|
000009F0: 20 4A 53 52 47 45 54 42 59 54 58 00 DF 29 12 07 | JSRGETBYTX..)..|
00000A00: 20 42 45 51 4C 41 53 54 00 EE 29 1C 07 20 42 50 | BEQLAST..).. BP|
00000A10: 4C 47 45 54 42 4C 4B 00 F4 29 26 07 3B 00 07 2A |LGETBLK..)&.;..*|
00000A20: 30 07 45 58 49 54 20 4A 53 52 43 4C 4F 53 45 58 |0.EXIT JSRCLOSEX|
00000A30: 00 19 2A 3A 07 45 52 52 43 48 20 4C 44 41 23 24 |..*:.ERRCH LDA#$|
00000A40: 30 38 00 27 2A 44 07 20 4A 53 52 24 45 44 30 39 |08.'*D. JSR$ED09|
00000A50: 00 34 2A 4E 07 20 4C 44 41 23 24 36 46 00 42 2A |.4*N. LDA#$6F.B*|
00000A60: 58 07 20 4A 53 52 24 45 44 43 37 00 50 2A 62 07 |X. JSR$EDC7.P*b.|
00000A70: 20 4A 53 52 24 45 45 31 33 00 5D 2A 6C 07 20 43 | JSR$EE13.]*l. C|
00000A80: 4D 50 23 24 33 30 00 6B 2A 76 07 20 42 45 51 4E |MP#$30.k*v. BEQN|
00000A90: 4F 45 52 52 00 78 2A 80 07 20 4C 44 58 23 24 30 |OERR.x*.. LDX#$0|
00000AA0: 30 00 84 2A 8A 07 20 53 54 58 24 39 30 00 95 2A |0..*.. STX$90..*|
00000AB0: 94 07 4C 50 34 20 4A 53 52 24 45 37 31 36 00 A3 |..LP4 JSR$E716..|
00000AC0: 2A 9E 07 20 4A 53 52 24 45 45 31 33 00 AF 2A A8 |*.. JSR$EE13..*.|
00000AD0: 07 20 42 49 54 24 39 30 00 BB 2A B2 07 20 42 56 |. BIT$90..*.. BV|
00000AE0: 43 4C 50 34 00 C4 2A BC 07 20 50 4C 41 00 CD 2A |CLP4..*.. PLA..*|
00000AF0: C6 07 20 50 4C 41 00 DB 2A D0 07 20 4A 53 52 24 |.. PLA..*.. JSR$|
00000B00: 45 44 45 46 00 E4 2A DA 07 20 53 45 43 00 F2 2A |EDEF..*.. SEC..*|
00000B10: E4 07 4E 4F 45 52 52 20 52 54 53 00 F8 2A EE 07 |..NOERR RTS..*..|
00000B20: 3B 00 0C 2B F8 07 4C 41 53 54 20 4A 53 52 47 45 |;..+..LAST JSRGE|
00000B30: 54 42 59 54 58 00 15 2B 02 08 20 54 41 58 00 1E |TBYTX..+.. TAX..|
00000B40: 2B 0C 08 20 44 45 58 00 2B 2B 16 08 20 53 54 58 |+.. DEX.++.. STX|
00000B50: 55 53 45 52 00 3D 2B 20 08 4C 41 53 54 42 20 4C |USER.=+ .LASTB L|
00000B60: 44 59 23 24 30 30 00 50 2B 2A 08 4C 50 33 20 4A |DY#$00.P+*.LP3 J|
00000B70: 53 52 47 45 54 42 59 54 58 00 60 2B 34 08 20 4A |SRGETBYTX.`+4. J|
00000B80: 53 52 53 54 4F 52 45 4D 58 00 69 2B 3E 08 20 49 |SRSTOREMX.i+>. I|
00000B90: 4E 59 00 76 2B 48 08 20 43 50 59 55 53 45 52 00 |NY.v+H. CPYUSER.|
00000BA0: 82 2B 52 08 20 42 4E 45 4C 50 33 00 8B 2B 5C 08 |.+R. BNELP3..+\.|
00000BB0: 20 54 59 41 00 94 2B 66 08 20 43 4C 43 00 A0 2B | TYA..+f. CLC..+|
00000BC0: 70 08 20 41 44 43 24 41 45 00 AC 2B 7A 08 20 53 |p. ADC$AE..+z. S|
00000BD0: 54 41 24 41 45 00 BA 2B 84 08 20 42 43 43 4E 4F |TA$AE..+.. BCCNO|
00000BE0: 49 4E 43 00 C6 2B 8E 08 20 49 4E 43 24 41 46 00 |INC..+.. INC$AF.|
00000BF0: DA 2B 98 08 4E 4F 49 4E 43 20 4A 53 52 43 4C 4F |.+..NOINC JSRCLO|
00000C00: 53 45 58 00 E8 2B A2 08 20 4A 4D 50 24 46 35 41 |SEX..+.. JMP$F5A|
00000C10: 39 00 EE 2B AC 08 3B 00 00 2C B6 08 4F 50 45 4E |9..+..;..,..OPEN|
00000C20: 4D 20 4C 44 41 23 24 30 38 00 0E 2C C0 08 20 4A |M LDA#$08..,.. J|
00000C30: 53 52 24 45 44 30 43 00 1B 2C CA 08 20 4C 44 41 |SR$ED0C..,.. LDA|
00000C40: 23 24 36 46 00 29 2C D4 08 20 4A 53 52 24 45 44 |#$6F.),.. JSR$ED|
00000C50: 42 39 00 36 2C DE 08 20 4C 44 41 23 22 4D 22 00 |B9.6,.. LDA#"M".|
00000C60: 44 2C E8 08 20 4A 53 52 24 45 44 44 44 00 51 2C |D,.. JSR$EDDD.Q,|
00000C70: F2 08 20 4C 44 41 23 22 2D 22 00 5F 2C FC 08 20 |.. LDA#"-"._,.. |
00000C80: 4A 4D 50 24 45 44 44 44 00 65 2C 06 09 3B 00 77 |JMP$EDDD.e,..;.w|
00000C90: 2C 10 09 43 4C 4F 53 45 20 4C 44 41 23 24 31 42 |,..CLOSE LDA#$1B|
00000CA0: 00 85 2C 1A 09 20 53 54 41 24 44 30 31 31 00 93 |..,.. STA$D011..|
00000CB0: 2C 24 09 20 4A 4D 50 24 46 36 34 36 00 99 2C 2E |,$. JMP$F646..,.|
00000CC0: 09 3B 00 AB 2C 38 09 53 54 4F 52 45 4D 20 49 4E |.;..,8.STOREM IN|
00000CD0: 43 24 30 31 00 BB 2C 42 09 20 53 54 41 28 24 41 |C$01..,B. STA($A|
00000CE0: 45 29 2C 59 00 C7 2C 4C 09 20 44 45 43 24 30 31 |E),Y..,L. DEC$01|
00000CF0: 00 D0 2C 56 09 20 52 54 53 00 D6 2C 60 09 3B 00 |..,V. RTS..,`.;.|
00000D00: FD 2C 6A 09 47 45 54 42 59 54 20 42 49 54 24 44 |.,j.GETBYT BIT$D|
00000D10: 44 30 30 3B 42 55 53 20 4D 55 53 53 20 46 52 45 |D00;BUS MUSS FRE|
00000D20: 49 20 53 45 49 4E 00 27 2D 74 09 20 42 56 53 47 |I SEIN.'-t. BVSG|
00000D30: 45 54 42 59 54 3B 57 41 52 54 45 54 20 42 49 53 |ETBYT;WARTET BIS|
00000D40: 20 46 4C 4F 50 50 59 20 43 4C 4B 4F 55 54 3D 31 | FLOPPY CLKOUT=1|
00000D50: 00 3E 2D 7E 09 20 4C 44 41 23 24 36 37 3B 44 41 |.>-~. LDA#$67;DA|
00000D60: 54 41 4F 55 54 3D 31 00 4D 2D 88 09 20 53 54 41 |TAOUT=1.M-.. STA|
00000D70: 24 44 44 30 30 3B 00 63 2D 92 09 20 4C 44 58 23 |$DD00;.c-.. LDX#|
00000D80: 24 30 36 3B 42 55 53 20 46 52 45 49 00 8A 2D 9C |$06;BUS FREI..-.|
00000D90: 09 20 49 4E 58 3B 4D 49 4E 2E 20 37 20 43 59 43 |. INX;MIN. 7 CYC|
00000DA0: 4C 45 4E 20 5A 57 49 53 43 48 45 4E 20 53 54 4F |LEN ZWISCHEN STO|
00000DB0: 52 45 53 00 98 2D A6 09 20 53 54 58 24 44 44 30 |RES..-.. STX$DD0|
00000DC0: 30 00 A4 2D B0 09 4C 50 35 20 44 45 58 00 CF 2D |0..-..LP5 DEX..-|
00000DD0: BA 09 20 42 4E 45 4C 50 35 3B 46 4C 4F 50 50 59 |.. BNELP5;FLOPPY|
00000DE0: 20 37 2F 34 20 53 43 48 4C 45 49 46 45 4E 20 56 | 7/4 SCHLEIFEN V|
00000DF0: 4F 52 53 50 52 55 4E 47 00 DC 2D C4 09 20 4C 44 |ORSPRUNG..-.. LD|
00000E00: 58 23 24 30 34 00 ED 2D CE 09 4C 50 36 20 4C 44 |X#$04..-..LP6 LD|
00000E10: 41 24 44 44 30 30 00 F6 2D D8 09 20 41 53 4C 00 |A$DD00..-.. ASL.|
00000E20: FF 2D E2 09 20 52 4F 4C 00 0E 2E EC 09 20 52 4F |.-.. ROL..... RO|
00000E30: 52 49 45 43 42 59 54 00 17 2E F6 09 20 4C 53 52 |RIECBYT..... LSR|
00000E40: 00 26 2E 00 0A 20 52 4F 52 49 45 43 42 59 54 00 |.&... RORIECBYT.|
00000E50: 2F 2E 0A 0A 20 44 45 58 00 3B 2E 14 0A 20 42 4E |/... DEX.;... BN|
00000E60: 45 4C 50 36 00 4A 2E 1E 0A 20 4C 44 41 49 45 43 |ELP6.J... LDAIEC|
00000E70: 42 59 54 00 53 2E 28 0A 20 52 54 53 00 59 2E 32 |BYT.S.(. RTS.Y.2|
00000E80: 0A 3B 00 7A 2E 3C 0A 45 4E 44 46 20 2E 45 51 53 |.;.z.<.ENDF .EQS|
00000E90: 45 4E 44 3D 53 45 4E 44 4C 2D 41 46 4C 2B 24 30 |END=SENDL-AFL+$0|
00000EA0: 33 30 30 00 8F 2E 46 0A 20 2E 45 51 4F 50 45 4E |300...F. .EQOPEN|
00000EB0: 4D 58 3D 44 45 53 54 33 00 A9 2E 50 0A 20 2E 45 |MX=DEST3...P. .E|
00000EC0: 51 44 49 46 4F 3D 4F 50 45 4E 4D 2D 4F 50 45 4E |QDIFO=OPENM-OPEN|
00000ED0: 4D 58 00 C5 2E 5A 0A 20 2E 45 51 53 54 4F 52 45 |MX...Z. .EQSTORE|
00000EE0: 4D 58 3D 53 54 4F 52 45 4D 2D 44 49 46 4F 00 DF |MX=STOREM-DIFO..|
00000EF0: 2E 64 0A 20 2E 45 51 43 4C 4F 53 45 58 3D 43 4C |.d. .EQCLOSEX=CL|
00000F00: 4F 53 45 2D 44 49 46 4F 00 FB 2E 6E 0A 20 2E 45 |OSE-DIFO...n. .E|
00000F10: 51 47 45 54 42 59 54 58 3D 47 45 54 42 59 54 2D |QGETBYTX=GETBYT-|
00000F20: 44 49 46 4F 00 1D 2F 78 0A 20 2E 45 51 45 52 52 |DIFO../x. .EQERR|
00000F30: 43 48 58 3D 45 52 52 43 48 2D 46 4C 4F 41 44 31 |CHX=ERRCH-FLOAD1|
00000F40: 2B 44 45 53 54 32 00 38 2F 82 0A 20 2E 45 51 4E |+DEST2.8/.. .EQN|
00000F50: 4F 42 31 3D 46 4C 4F 41 44 31 2D 46 4C 4F 41 44 |OB1=FLOAD1-FLOAD|
00000F60: 30 00 52 2F 8C 0A 20 2E 45 51 4E 4F 42 32 3D 4F |0.R/.. .EQNOB2=O|
00000F70: 50 45 4E 4D 2D 46 4C 4F 41 44 31 00 6A 2F 96 0A |PENM-FLOAD1.j/..|
00000F80: 20 2E 45 51 4E 4F 42 33 3D 45 4E 44 46 2D 4F 50 | .EQNOB3=ENDF-OP|
00000F90: 45 4E 4D 00 73 2F A0 0A 20 2E 45 4E 00 00 00 |ENM.s/.. .EN... |
X.....;FASTLOAD 27.11.87.. .. .OB"FLOAD.
OBJ,P,W".. ..;.! (. .EQDEST1=$0330.5 2.
.EQDEST2=$010B.I <. .EQDEST3=$02A9.W F.
.BA$0801.] P.;.. Z. .BY$0B,$08,$C3,$07,$
9E,$32,$30,$36,$31,$00,$00,$00.. D.;.. N
. LDX#<(NOB1).C X.VLP1 LDAFLOAD0-1,X.U .
. STADEST1-1,X.. .. DEX.. .. BNEVLP1..
. LDX#<(NOB2)..!..VLP2 LDAFLOAD1-1,X.%!.
. STADEST2-1,X..!.. DEX.;!H. BNEVLP2.L!R
. LDX#<(NOB3).B!..VLP3 LDAOPENM-1,X.T!..
STADEST3-1,X.}!.. DEX..!.. BNEVLP3..!..
RTS..!..;..!.. .EQIECBYT=$A6..!". .EQSE
CADR=$A7.P!,. .EQUSER=$B6.V!6.;..!@.;FLO
PPYROUTINEN..!J.;.."T.FLOAD0 .BY$B4,$03,
$ED,$F5.."^.AFL INC$31.+"H. JMP$F4D1.1"R
.;.E"|.RDERR JSRSEND+2.^".. LDA$00;FEHLE
RNUMMER.L".. JMP$E60A.R"..;.."..STLOAD L
DA$F9..".. ASL..".. TAX.."B. LDA$06,X.."
L. STA$06.."V. LDA$07,X.K".. LDX#$00..".
.RDLOOP STA$07..".. LDA#$E0..".. STA$00;
M-E..#.. STA$025B..#.. STA$0298..#.. CLI
.-#&. JSR$D599.6#0. SEI.C#:. CMP#$02.\#D
. BCSRDERR;!A POSITIV.S#N. LDA$0400;PUFF
ER 1..#X. BEQLAST2..#B. STA$06..#L. JSRS
END..#V. LDY#$02..#..LP10 LDA$0400,Y.H#.
. JSRSEND.Q#.. INY..#.. BNELP10..#.. LDA
$0401..#.. BPLRDLOOP..$..LAST2 LDY#$FF..
$F.LP11 INY.*$P. LDA$0400,Y.7$Z. JSRSEND
.E$.. CPY$0401.R$.. BNELP11.`$.. JMP$C19
4.F$..;.X$..SENDL EOR#$FF..$.. STA$1B..$
. LDA#$08..$*. STA$1800;CLKOUT AUF 1..$
4. LDA#$01.L$>.WAIT1 BIT$1800..$H. BEQWA
IT1;WARTET AUF C64-DATAOUT=1..%R. LDX#$0
4..%\.LP12 LDA#$00..%F. LSR$1B.&%P. ROL.
/%Z. ASL.;%.. LSR$1B.D%.. ROL.M%.. ASL.[
%.. STA$1800.D%.. DEX.Q%.. BNELP12.Z%..
NOP..%J. STX$1800;BUS FREI..%T. RTS. %..
;..%..;RECHNERROUTINEN..%..;.D%.. TAY.Q%
.. BEQFLST..%..NLOAD JMP$F4A5..%..FLST T
AX;0..&$. LDA($BB),Y..&.. EOR#$24..&8. B
EQNLOAD.+&B. LDA#$08.7&L. STA$BA.C&V. LD
A$B9.R&`. STASECADR.^&J. STX$B9.L&T. JSR
$F3D9.{&~. JSRERRCHX..&.. STX$D011;X=0.
&..LOOP JSROPENMX..&.. LDA#"W"..&.. JSR$
EDDD.D&.. TXA.R&.. JSR$EDDD..&D. LDA#$03
..&N. JSR$EDDD..&X. LDA#$20..'.. TAY..'.
. JSR$EDDD.$'..LP1 LDA$0334,X.2'.. JSR$E
DDD.;'.. INX.D'.. DEY.P'.. BNELP1.^'(. J
SR$EDFE.G'2. TXA.T'<. BPLLOOP..'F. JMPDE
ST2..'P.;..'Z.FLOAD1 JSROPENMX..'D. LDA#
"E"..'N. JSR$EDDD.E'X. LDA#$0D.S'.. JSR$
EDDD..'.. LDA#$03..'.. JSR$EDDD..' . JSR
$EDFE..(..;..(.. SEI..(.. JSRGETBYTX..(H
. BMIEXIT;ERROR.7(R. PHA.B(.. BNEM0.R(..
JSRGETBYTX.[(.. SEC.H(.. SBC#$03.U(.. S
TAUSER..(..M0 JSRGETBYTX..(.. TAY. (". J
SRGETBYTX..(,. LDXSECADR..(6. BNEORIGAD.
J(@. LDY$C3.V(J. LDA$C4..(T.ORIGAD STY$A
E..(^. STA$AF..(H. PLA..)R. BEQLASTB..)|
. LDY#$04.+)..GETBLK STYUSER.4).. SEC.@)
.. LDA$AE.M).. SBCUSER.Y).. STA$AE.E)..
BCSLP2.Q)B. DEC$AF..)L.LP2 JSRGETBYTX..)
V. JSRSTOREMX..).. INY..).. BNELP2..)..
INC$AF.B).. LDY#$02.R).. JSRGETBYTX..)..
BEQLAST..).. BPLGETBLK..)&.;..*0.EXIT J
SRCLOSEX..*:.ERRCH LDA#$08.'*D. JSR$ED09
.4*N. LDA#$6F.B*X. JSR$EDC7.P*B. JSR$EE1
3.]*L. CMP#$30.K*V. BEQNOERR.X*.. LDX#$0
0..*.. STX$90..*..LP4 JSR$E716..*.. JSR$
EE13..*.. BIT$90..*.. BVCLP4.D*.. PLA.M*
F. PLA..*P. JSR$EDEF..*Z. SEC..*..NOERR
RTS..*..;..+..LAST JSRGETBYTX..+.. TAX..
+.. DEX.++.. STXUSER.=+ .LASTB LDY#$00.P
+*.LP3 JSRGETBYTX.`+4. JSRSTOREMX.I+>. I
NY.V+H. CPYUSER..+R. BNELP3..+\. TYA..+F
. CLC. +P. ADC$AE..+Z. STA$AE..+.. BCCNO
INC.F+.. INC$AF.Z+..NOINC JSRCLOSEX..+..
JMP$F5A9..+..;..,..OPENM LDA#$08..,.. J
SR$ED0C..,J. LDA#$6F.),T. JSR$EDB9.6,..
LDA#"M".D,.. JSR$EDDD.Q,.. LDA#"-"._,..
JMP$EDDD.E,..;.W,..CLOSE LDA#$1B..,.. ST
A$D011..,$. JMP$F646..,..;..,8.STOREM IN
C$01..,B. STA($AE),Y.G,L. DEC$01.P,V. RT
S.V,`.;..,J.GETBYT BIT$DD00;BUS MUSS FRE
I SEIN.'-T. BVSGETBYT;WARTET BIS FLOPPY
CLKOUT=1.>-~. LDA#$67;DATAOUT=1.M-.. STA
$DD00;.C-.. LDX#$06;BUS FREI..-.. INX;MI
N. 7 CYCLEN ZWISCHEN STORES..-.. STX$DD0
0..-..LP5 DEX.O-.. BNELP5;FLOPPY 7/4 SCH
LEIFEN VORSPRUNG..-D. LDX#$04..-N.LP6 LD
A$DD00..-X. ASL..-.. ROL..... RORIECBYT.
.... LSR.&... RORIECBYT./... DEX.;... BN
ELP6.J... LDAIECBYT.S.(. RTS.Y.2.;.Z.<.E
NDF .EQSEND=SENDL-AFL+$0300...F. .EQOPEN
MX=DEST3...P. .EQDIFO=OPENM-OPENMX.E.Z.
.EQSTOREMX=STOREM-DIFO...D. .EQCLOSEX=CL
OSE-DIFO...N. .EQGETBYTX=GETBYT-DIFO../X
. .EQERRCHX=ERRCH-FLOAD1+DEST2.8/.. .EQN
OB1=FLOAD1-FLOAD0.R/.. .EQNOB2=OPENM-FLO
AD1.J/.. .EQNOB3=ENDF-OPENM.S/ . .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL