FASTL.QDOC
FILE INFORMATION
FILENAME(S): FASTL.QDOC
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
aa919bdcf454896a3d5ac3b2e962c2951a2d1ead186b47e48ca8518a21c3bd05
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LISTINGS SH 38 | FASTL.QDOC | PRG | C64er | 12 | 4 | 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 F1 20 82 |DAFLOAD0-1,X.. .|
000000F0: 00 20 53 54 41 44 45 53 54 31 2D 31 2C 58 3B 54 |. STADEST1-1,X;T|
00000100: 45 49 4C 20 31 20 4E 41 43 48 20 24 30 33 33 30 |EIL 1 NACH $0330|
00000110: 20 42 49 53 20 24 30 33 46 44 00 FA 20 8C 00 20 | BIS $03FD.. .. |
00000120: 44 45 58 00 07 21 96 00 20 42 4E 45 56 4C 50 31 |DEX..!.. BNEVLP1|
00000130: 00 18 21 A0 00 20 4C 44 58 23 3C 28 4E 4F 42 32 |..!.. LDX#<(NOB2|
00000140: 29 00 2F 21 AA 00 56 4C 50 32 20 4C 44 41 46 4C |)./!..VLP2 LDAFL|
00000150: 4F 41 44 31 2D 31 2C 58 00 5D 21 B4 00 20 53 54 |OAD1-1,X.]!.. ST|
00000160: 41 44 45 53 54 32 2D 31 2C 58 3B 54 45 49 4C 20 |ADEST2-1,X;TEIL |
00000170: 32 20 4E 41 43 48 20 24 30 31 30 42 20 42 49 53 |2 NACH $010B BIS|
00000180: 20 24 30 31 42 36 00 66 21 BE 00 20 44 45 58 00 | $01B6.f!.. DEX.|
00000190: 73 21 C8 00 20 42 4E 45 56 4C 50 32 00 84 21 D2 |s!.. BNEVLP2..!.|
000001A0: 00 20 4C 44 58 23 3C 28 4E 4F 42 33 29 00 9A 21 |. LDX#<(NOB3)..!|
000001B0: DC 00 56 4C 50 33 20 4C 44 41 4F 50 45 4E 4D 2D |..VLP3 LDAOPENM-|
000001C0: 31 2C 58 00 C8 21 E6 00 20 53 54 41 44 45 53 54 |1,X..!.. STADEST|
000001D0: 33 2D 31 2C 58 3B 54 45 49 4C 20 33 20 4E 41 43 |3-1,X;TEIL 3 NAC|
000001E0: 48 20 24 30 32 41 39 20 42 49 53 20 24 30 32 46 |H $02A9 BIS $02F|
000001F0: 30 00 D1 21 F0 00 20 44 45 58 00 DE 21 FA 00 20 |0..!.. DEX..!.. |
00000200: 42 4E 45 56 4C 50 33 00 E7 21 04 01 20 52 54 53 |BNEVLP3..!.. RTS|
00000210: 00 ED 21 0E 01 3B 00 00 22 18 01 20 2E 45 51 49 |..!..;..".. .EQI|
00000220: 45 43 42 59 54 3D 24 41 36 00 13 22 22 01 20 2E |ECBYT=$A6.."". .|
00000230: 45 51 53 45 43 41 44 52 3D 24 41 37 00 24 22 2C |EQSECADR=$A7.$",|
00000240: 01 20 2E 45 51 55 53 45 52 3D 24 42 36 00 2A 22 |. .EQUSER=$B6.*"|
00000250: 36 01 3B 00 66 22 40 01 46 4C 4F 41 44 30 20 2E |6.;.f"@.FLOAD0 .|
00000260: 42 59 24 42 34 2C 24 30 33 2C 24 45 44 2C 24 46 |BY$B4,$03,$ED,$F|
00000270: 35 3B 4E 45 55 45 52 20 4C 4F 41 44 2D 2C 20 41 |5;NEUER LOAD-, A|
00000280: 4C 54 45 52 20 53 41 56 45 56 45 4B 54 4F 52 00 |LTER SAVEVEKTOR.|
00000290: 6C 22 4A 01 3B 00 80 22 54 01 3B 46 4C 4F 50 50 |l"J.;.."T.;FLOPP|
000002A0: 59 52 4F 55 54 49 4E 45 4E 00 86 22 5E 01 3B 00 |YROUTINEN.."^.;.|
000002B0: C5 22 68 01 41 46 4C 20 49 4E 43 24 33 31 3B 24 |."h.AFL INC$31;$|
000002C0: 33 30 2F 24 33 31 20 5A 45 49 47 54 20 41 55 46 |30/$31 ZEIGT AUF|
000002D0: 20 24 30 33 30 30 2C 20 4C 41 44 45 4E 20 41 42 | $0300, LADEN AB|
000002E0: 45 52 20 4E 41 43 48 20 24 30 34 30 30 2D 00 F1 |ER NACH $0400-..|
000002F0: 22 72 01 20 4A 4D 50 24 46 34 44 31 3B 48 45 41 |"r. JMP$F4D1;HEA|
00000300: 44 45 52 20 53 55 43 48 45 4E 20 55 4E 44 20 42 |DER SUCHEN UND B|
00000310: 4C 4F 43 4B 20 4C 45 53 45 4E 00 F7 22 7C 01 3B |LOCK LESEN.."|.;|
00000320: 00 35 23 86 01 52 44 45 52 52 20 4A 53 52 53 45 |.5#..RDERR JSRSE|
00000330: 4E 44 2B 32 3B 50 4F 53 49 54 49 56 45 52 20 41 |ND+2;POSITIVER A|
00000340: 4B 4B 55 20 45 52 53 43 48 45 49 4E 54 20 41 4D |KKU ERSCHEINT AM|
00000350: 20 43 36 34 20 4E 45 47 41 54 49 56 21 21 00 65 | C64 NEGATIV!!.e|
00000360: 23 90 01 20 4C 44 41 24 30 30 3B 46 45 48 4C 45 |#.. LDA$00;FEHLE|
00000370: 52 4E 55 4D 4D 45 52 20 50 55 46 46 45 52 20 30 |RNUMMER PUFFER 0|
00000380: 20 28 24 30 33 30 30 2D 24 30 33 46 46 29 00 8A | ($0300-$03FF)..|
00000390: 23 9A 01 20 4A 4D 50 24 45 36 30 41 3B 46 45 48 |#.. JMP$E60A;FEH|
000003A0: 4C 45 52 4D 45 4C 44 55 4E 47 20 41 55 53 47 45 |LERMELDUNG AUSGE|
000003B0: 42 45 4E 00 90 23 A4 01 3B 00 CE 23 AE 01 53 54 |BEN..#..;..#..ST|
000003C0: 4C 4F 41 44 20 4C 44 41 24 46 39 3B 53 54 41 52 |LOAD LDA$F9;STAR|
000003D0: 54 3A 20 41 4B 54 55 45 4C 4C 45 20 50 55 46 46 |T: AKTUELLE PUFF|
000003E0: 45 52 4E 55 4D 4D 45 52 20 4E 41 43 48 20 4F 50 |ERNUMMER NACH OP|
000003F0: 45 4E 20 46 49 4C 45 00 D7 23 B8 01 20 41 53 4C |EN FILE..#.. ASL|
00000400: 00 E6 23 C2 01 20 54 41 58 3B 58 3D 41 2A 32 00 |..#.. TAX;X=A*2.|
00000410: 23 24 CC 01 20 4C 44 41 24 30 36 2C 58 3B 24 30 |#$.. LDA$06,X;$0|
00000420: 36 2B 58 2F 24 30 37 2B 58 20 54 52 41 43 4B 20 |6+X/$07+X TRACK |
00000430: 55 4E 44 20 53 45 4B 54 4F 52 20 46 55 45 52 20 |UND SEKTOR FUER |
00000440: 42 45 53 54 2E 20 50 55 46 46 45 52 00 5E 24 D6 |BEST. PUFFER.^$.|
00000450: 01 20 53 54 41 24 30 36 3B 45 47 41 4C 2C 20 46 |. STA$06;EGAL, F|
00000460: 55 45 52 20 57 45 4C 43 48 45 4E 20 50 55 46 46 |UER WELCHEN PUFF|
00000470: 45 52 20 45 52 4F 45 46 46 4E 45 54 20 57 55 52 |ER EROEFFNET WUR|
00000480: 44 45 2C 20 2E 2E 2E 00 8E 24 E0 01 20 4C 44 41 |DE, .....$.. LDA|
00000490: 24 30 37 2C 58 3B 2E 2E 2E 20 4A 4F 42 20 49 4D |$07,X;... JOB IM|
000004A0: 4D 45 52 20 4E 41 43 48 20 50 55 46 46 45 52 20 |MER NACH PUFFER |
000004B0: 30 20 4C 45 47 45 4E 00 B4 24 EA 01 20 4C 44 58 |0 LEGEN..$.. LDX|
000004C0: 23 24 30 30 3B 53 45 4B 54 4F 52 20 46 55 45 52 |#$00;SEKTOR FUER|
000004D0: 20 50 55 46 46 45 52 2D 30 2D 4A 4F 42 00 C6 24 | PUFFER-0-JOB..$|
000004E0: F4 01 52 44 4C 4F 4F 50 20 53 54 41 24 30 37 00 |..RDLOOP STA$07.|
000004F0: 02 25 FE 01 20 4C 44 41 23 24 45 30 3B 4A 4F 42 |.%.. LDA#$E0;JOB|
00000500: 43 4F 44 45 20 50 55 46 46 45 52 20 30 3A 20 4C |CODE PUFFER 0: L|
00000510: 41 55 46 57 45 52 4B 20 41 4E 2C 20 50 52 4F 47 |AUFWERK AN, PROG|
00000520: 52 41 4D 4D 20 49 4E 20 2E 2E 2E 00 2B 25 08 02 |RAMM IN ....+%..|
00000530: 20 53 54 41 24 30 30 3B 2E 2E 2E 20 50 55 46 46 | STA$00;... PUFF|
00000540: 45 52 20 30 20 28 24 30 33 30 30 29 20 53 54 41 |ER 0 ($0300) STA|
00000550: 52 54 45 4E 00 5E 25 12 02 20 53 54 41 24 30 32 |RTEN.^%.. STA$02|
00000560: 35 42 3B 4C 45 54 5A 54 45 52 20 4A 4F 42 43 4F |5B;LETZTER JOBCO|
00000570: 44 45 20 28 46 55 45 52 20 52 4F 55 54 49 4E 45 |DE (FUER ROUTINE|
00000580: 20 24 44 35 39 39 29 00 98 25 1C 02 20 53 54 41 | $D599)..%.. STA|
00000590: 24 30 32 39 38 3B 46 45 48 4C 45 52 46 4C 41 47 |$0298;FEHLERFLAG|
000005A0: 20 4E 45 47 41 54 49 56 20 56 4F 52 42 45 53 45 | NEGATIV VORBESE|
000005B0: 54 5A 45 4E 20 28 46 55 45 52 20 24 44 35 39 39 |TZEN (FUER $D599|
000005C0: 29 00 C0 25 26 02 20 43 4C 49 3B 4A 4F 42 20 57 |)..%&. CLI;JOB W|
000005D0: 49 52 44 20 49 4D 20 49 4E 54 45 52 52 55 50 54 |IRD IM INTERRUPT|
000005E0: 20 45 52 4C 45 44 49 47 54 00 F9 25 30 02 20 4A | ERLEDIGT..%0. J|
000005F0: 53 52 24 44 35 39 39 3B 57 41 52 54 45 4E 20 41 |SR$D599;WARTEN A|
00000600: 55 46 20 4A 4F 42 45 4E 44 45 2C 20 49 4E 43 4C |UF JOBENDE, INCL|
00000610: 2E 20 46 45 48 4C 45 52 4B 4F 52 52 45 4B 54 55 |. FEHLERKORREKTU|
00000620: 52 21 00 02 26 3A 02 20 53 45 49 00 0F 26 44 02 |R!..&:. SEI..&D.|
00000630: 20 43 4D 50 23 24 30 32 00 37 26 4E 02 20 42 43 | CMP#$02.7&N. BC|
00000640: 53 52 44 45 52 52 3B 41 4B 4B 55 20 50 4F 53 49 |SRDERR;AKKU POSI|
00000650: 54 49 56 2C 20 24 30 31 20 46 55 45 52 20 4F 4B |TIV, $01 FUER OK|
00000660: 00 65 26 58 02 20 4C 44 41 24 30 34 30 30 3B 50 |.e&X. LDA$0400;P|
00000670: 55 46 46 45 52 20 31 2C 20 31 2E 20 42 59 54 45 |UFFER 1, 1. BYTE|
00000680: 20 49 53 54 20 54 52 41 43 4B 4C 49 4E 4B 00 73 | IST TRACKLINK.s|
00000690: 26 62 02 20 42 45 51 4C 41 53 54 32 00 A4 26 6C |&b. BEQLAST2..&l|
000006A0: 02 20 53 54 41 24 30 36 3B 54 52 41 43 4B 20 46 |. STA$06;TRACK F|
000006B0: 55 45 52 20 4E 41 45 43 48 53 54 45 4E 20 42 4C |UER NAECHSTEN BL|
000006C0: 4F 43 4B 20 53 45 54 5A 45 4E 2E 2E 2E 00 C0 26 |OCK SETZEN.....&|
000006D0: 76 02 20 4A 53 52 53 45 4E 44 3B 2E 2E 2E 20 55 |v. JSRSEND;... U|
000006E0: 4E 44 20 53 45 4E 44 45 4E 00 CD 26 80 02 20 4C |ND SENDEN..&.. L|
000006F0: 44 59 23 24 30 32 00 04 27 8A 02 4C 50 31 30 20 |DY#$02..'..LP10 |
00000700: 4C 44 41 24 30 34 30 30 2C 59 3B 32 35 34 20 42 |LDA$0400,Y;254 B|
00000710: 59 54 45 53 20 53 45 4E 44 45 4E 20 28 24 30 34 |YTES SENDEN ($04|
00000720: 30 32 20 42 49 53 20 24 30 34 46 46 29 00 11 27 |02 BIS $04FF)..'|
00000730: 94 02 20 4A 53 52 53 45 4E 44 00 1A 27 9E 02 20 |.. JSRSEND..'.. |
00000740: 49 4E 59 00 27 27 A8 02 20 42 4E 45 4C 50 31 30 |INY.''.. BNELP10|
00000750: 00 54 27 B2 02 20 4C 44 41 24 30 34 30 31 3B 53 |.T'.. LDA$0401;S|
00000760: 45 4B 54 4F 52 4C 49 4E 4B 20 5A 55 4D 20 4E 41 |EKTORLINK ZUM NA|
00000770: 45 43 48 53 54 45 4E 20 42 4C 4F 43 4B 00 69 27 |ECHSTEN BLOCK.i'|
00000780: BC 02 20 42 50 4C 52 44 4C 4F 4F 50 3B 3D 20 4A |.. BPLRDLOOP;= J|
00000790: 4D 50 00 9B 27 C6 02 4C 41 53 54 32 20 4C 44 59 |MP..'..LAST2 LDY|
000007A0: 23 24 46 46 3B 42 59 54 45 53 20 44 45 53 20 4C |#$FF;BYTES DES L|
000007B0: 45 54 5A 54 45 4E 20 42 4C 4F 43 4B 53 20 53 45 |ETZTEN BLOCKS SE|
000007C0: 4E 44 45 4E 00 A8 27 D0 02 4C 50 31 31 20 49 4E |NDEN..'..LP11 IN|
000007D0: 59 00 B8 27 DA 02 20 4C 44 41 24 30 34 30 30 2C |Y..'.. LDA$0400,|
000007E0: 59 00 C5 27 E4 02 20 4A 53 52 53 45 4E 44 00 01 |Y..'.. JSRSEND..|
000007F0: 28 EE 02 20 43 50 59 24 30 34 30 31 3B 5A 45 49 |(.. CPY$0401;ZEI|
00000800: 47 54 20 42 45 49 20 4C 45 54 5A 54 45 4D 20 42 |GT BEI LETZTEM B|
00000810: 4C 4F 43 4B 20 41 55 46 20 4C 45 54 5A 54 45 53 |LOCK AUF LETZTES|
00000820: 20 44 41 54 45 4E 42 59 54 45 00 0E 28 F8 02 20 | DATENBYTE..(.. |
00000830: 42 4E 45 4C 50 31 31 00 4D 28 02 03 20 4A 4D 50 |BNELP11.M(.. JMP|
00000840: 24 43 31 39 34 3B 42 45 46 45 48 4C 41 42 53 43 |$C194;BEFEHLABSC|
00000850: 48 4C 55 53 53 2C 20 45 56 2E 20 46 45 48 4C 45 |HLUSS, EV. FEHLE|
00000860: 52 4D 45 4C 44 55 4E 47 20 42 45 52 45 49 54 53 |RMELDUNG BEREITS|
00000870: 54 45 4C 4C 45 4E 00 53 28 0C 03 3B 00 92 28 16 |TELLEN.S(..;..(.|
00000880: 03 53 45 4E 44 4C 20 45 4F 52 23 24 46 46 3B 49 |.SENDL EOR#$FF;I|
00000890: 4E 56 45 52 54 49 45 52 45 4E 2C 20 44 41 20 49 |NVERTIEREN, DA I|
000008A0: 4E 56 45 52 54 45 52 20 41 55 46 20 44 45 4D 20 |NVERTER AUF DEM |
000008B0: 57 45 47 20 5A 55 4D 20 43 36 34 00 A9 28 20 03 |WEG ZUM C64..( .|
000008C0: 20 53 54 41 24 31 42 3B 42 59 54 45 50 55 46 46 | STA$1B;BYTEPUFF|
000008D0: 45 52 00 E4 28 2A 03 20 4C 44 41 23 24 30 38 3B |ER..(*. LDA#$08;|
000008E0: 56 49 41 2D 50 4F 52 54 2D 52 45 47 49 53 54 45 |VIA-PORT-REGISTE|
000008F0: 52 3A 20 43 4C 4B 4F 55 54 20 41 55 46 20 31 20 |R: CLKOUT AUF 1 |
00000900: 28 45 52 53 43 48 45 49 4E 54 2E 2E 2E 00 12 29 |(ERSCHEINT.....)|
00000910: 34 03 20 53 54 41 24 31 38 30 30 3B 2E 2E 2E 20 |4. STA$1800;... |
00000920: 42 45 49 4D 20 43 36 34 20 41 4C 53 20 30 2C 20 |BEIM C64 ALS 0, |
00000930: 44 41 20 49 4E 56 45 52 54 45 52 00 1F 29 3E 03 |DA INVERTER..)>.|
00000940: 20 4C 44 41 23 24 30 31 00 32 29 48 03 57 41 49 | LDA#$01.2)H.WAI|
00000950: 54 31 20 42 49 54 24 31 38 30 30 00 5D 29 52 03 |T1 BIT$1800.])R.|
00000960: 20 42 45 51 57 41 49 54 31 3B 57 41 52 54 45 54 | BEQWAIT1;WARTET|
00000970: 20 41 55 46 20 43 36 34 2D 44 41 54 41 4F 55 54 | AUF C64-DATAOUT|
00000980: 42 49 54 20 3D 31 00 7C 29 5C 03 20 4C 44 58 23 |BIT =1.|)\. LDX#|
00000990: 24 30 34 3B 34 20 2A 20 32 20 42 49 54 53 20 53 |$04;4 * 2 BITS S|
000009A0: 45 4E 44 45 4E 00 8D 29 66 03 4C 50 31 32 20 4C |ENDEN..)f.LP12 L|
000009B0: 44 41 23 24 30 30 00 BF 29 70 03 20 4C 53 52 24 |DA#$00..)p. LSR$|
000009C0: 31 42 3B 53 45 4E 44 45 42 49 54 53 20 4E 41 43 |1B;SENDEBITS NAC|
000009D0: 48 20 42 49 54 20 31 20 55 4E 44 20 33 20 42 52 |H BIT 1 UND 3 BR|
000009E0: 49 4E 47 45 4E 2E 2E 2E 00 C8 29 7A 03 20 52 4F |INGEN.....)z. RO|
000009F0: 4C 00 D1 29 84 03 20 41 53 4C 00 DD 29 8E 03 20 |L..).. ASL..).. |
00000A00: 4C 53 52 24 31 42 00 E6 29 98 03 20 52 4F 4C 00 |LSR$1B..).. ROL.|
00000A10: EF 29 A2 03 20 41 53 4C 00 0E 2A AC 03 20 53 54 |.).. ASL..*.. ST|
00000A20: 41 24 31 38 30 30 3B 2E 2E 2E 20 55 4E 44 20 41 |A$1800;... UND A|
00000A30: 55 53 47 45 42 45 4E 00 17 2A B6 03 20 44 45 58 |USGEBEN..*.. DEX|
00000A40: 00 24 2A C0 03 20 42 4E 45 4C 50 31 32 00 44 2A |.$*.. BNELP12.D*|
00000A50: CA 03 20 4E 4F 50 3B 57 49 43 48 54 49 47 20 46 |.. NOP;WICHTIG F|
00000A60: 55 45 52 20 54 49 4D 49 4E 47 21 21 21 00 7F 2A |UER TIMING!!!..*|
00000A70: D4 03 20 53 54 58 24 31 38 30 30 3B 58 3D 30 3A |.. STX$1800;X=0:|
00000A80: 20 41 4C 4C 45 20 42 55 53 41 55 53 47 41 4E 47 | ALLE BUSAUSGANG|
00000A90: 53 50 45 47 45 4C 20 41 55 46 20 49 4E 41 4B 54 |SPEGEL AUF INAKT|
00000AA0: 49 56 20 48 49 47 48 21 00 88 2A DE 03 20 52 54 |IV HIGH!..*.. RT|
00000AB0: 53 00 8E 2A E8 03 3B 00 A3 2A F2 03 3B 52 45 43 |S..*..;..*..;REC|
00000AC0: 48 4E 45 52 52 4F 55 54 49 4E 45 4E 00 A9 2A FC |HNERROUTINEN..*.|
00000AD0: 03 3B 00 B2 2A 06 04 20 54 41 59 00 D9 2A 10 04 |.;..*.. TAY..*..|
00000AE0: 20 42 45 51 46 4C 53 54 3B 30 20 46 55 45 52 20 | BEQFLST;0 FUER |
00000AF0: 4C 4F 41 44 2C 20 53 4F 4E 53 54 20 56 45 52 49 |LOAD, SONST VERI|
00000B00: 46 59 00 06 2B 1A 04 4E 4C 4F 41 44 20 4A 4D 50 |FY..+..NLOAD JMP|
00000B10: 24 46 34 41 35 3B 53 54 41 4E 44 41 52 44 2D 4C |$F4A5;STANDARD-L|
00000B20: 4F 41 44 20 42 5A 57 2E 20 56 45 52 49 46 59 00 |OAD BZW. VERIFY.|
00000B30: 15 2B 24 04 46 4C 53 54 20 54 41 58 3B 30 00 25 |.+$.FLST TAX;0.%|
00000B40: 2B 2E 04 20 4C 44 41 28 24 42 42 29 2C 59 00 32 |+.. LDA($BB),Y.2|
00000B50: 2B 38 04 20 45 4F 52 23 24 32 34 00 64 2B 42 04 |+8. EOR#$24.d+B.|
00000B60: 20 42 45 51 4E 4C 4F 41 44 3B 53 4F 4C 4C 54 45 | BEQNLOAD;SOLLTE|
00000B70: 20 44 49 52 45 43 54 4F 52 59 20 28 24 29 20 47 | DIRECTORY ($) G|
00000B80: 45 48 4F 4C 54 20 57 45 52 44 45 4E 3F 00 71 2B |EHOLT WERDEN?.q+|
00000B90: 4C 04 20 4C 44 41 23 24 30 38 00 9F 2B 56 04 20 |L. LDA#$08..+V. |
00000BA0: 53 54 41 24 42 41 3B 47 45 52 41 45 54 45 41 44 |STA$BA;GERAETEAD|
00000BB0: 52 45 53 53 45 20 49 4D 4D 45 52 20 41 55 46 20 |RESSE IMMER AUF |
00000BC0: 38 20 53 45 54 5A 45 4E 00 DB 2B 60 04 20 4C 44 |8 SETZEN..+`. LD|
00000BD0: 41 24 42 39 3B 42 45 49 4D 20 4C 4F 41 44 4B 4F |A$B9;BEIM LOADKO|
00000BE0: 4D 4D 41 4E 44 4F 20 41 4E 47 45 47 45 42 45 4E |MMANDO ANGEGEBEN|
00000BF0: 45 20 53 45 4B 55 4E 44 41 45 52 41 44 52 45 53 |E SEKUNDAERADRES|
00000C00: 53 45 2E 2E 00 1A 2C 6A 04 20 53 54 41 53 45 43 |SE....,j. STASEC|
00000C10: 41 44 52 3B 2E 2E 2E 20 4D 45 52 4B 45 4E 2C 20 |ADR;... MERKEN, |
00000C20: 44 41 20 44 49 45 20 41 4E 20 44 49 45 20 46 4C |DA DIE AN DIE FL|
00000C30: 4F 50 50 59 20 5A 55 20 53 45 4E 44 45 4E 44 45 |OPPY ZU SENDENDE|
00000C40: 2E 2E 2E 00 50 2C 74 04 20 53 54 58 24 42 39 3B |....P,t. STX$B9;|
00000C50: 2E 2E 2E 20 49 4D 4D 45 52 20 30 20 53 45 49 4E |... IMMER 0 SEIN|
00000C60: 20 4D 55 53 53 20 28 46 4C 4F 50 50 59 2D 4C 4F | MUSS (FLOPPY-LO|
00000C70: 41 44 2D 4B 41 4E 41 4C 29 00 68 2C 7E 04 20 4A |AD-KANAL).h,~. J|
00000C80: 53 52 24 46 33 44 39 3B 4F 50 45 4E 20 46 49 4C |SR$F3D9;OPEN FIL|
00000C90: 45 00 98 2C 88 04 20 4A 53 52 45 52 52 43 48 58 |E..,.. JSRERRCHX|
00000CA0: 3B 46 4C 4F 50 50 59 2D 46 45 48 4C 45 52 4B 41 |;FLOPPY-FEHLERKA|
00000CB0: 4E 41 4C 20 28 31 35 29 20 41 42 46 52 41 47 45 |NAL (15) ABFRAGE|
00000CC0: 4E 00 CB 2C 92 04 20 53 54 58 24 44 30 31 31 3B |N..,.. STX$D011;|
00000CD0: 58 3D 30 2C 20 42 49 4C 44 20 41 55 53 20 28 4E |X=0, BILD AUS (N|
00000CE0: 55 52 20 48 49 4E 54 45 52 47 52 55 4E 44 46 41 |UR HINTERGRUNDFA|
00000CF0: 52 42 45 29 00 EA 2C 9C 04 4C 4F 4F 50 20 4A 53 |RBE)..,..LOOP JS|
00000D00: 52 4F 50 45 4E 4D 58 3B 22 4D 2D 22 20 53 45 4E |ROPENMX;"M-" SEN|
00000D10: 44 45 4E 00 1C 2D A6 04 20 4C 44 41 23 22 57 22 |DEN..-.. LDA#"W"|
00000D20: 3B 22 57 22 2C 20 5A 55 53 41 4D 4D 45 4E 20 22 |;"W", ZUSAMMEN "|
00000D30: 4D 2D 57 22 20 46 55 45 52 20 4D 45 4D 4F 52 59 |M-W" FUER MEMORY|
00000D40: 57 52 49 54 45 00 2A 2D B0 04 20 4A 53 52 24 45 |WRITE.*-.. JSR$E|
00000D50: 44 44 44 00 4B 2D BA 04 20 54 58 41 3B 50 55 46 |DDD.K-.. TXA;PUF|
00000D60: 46 45 52 2D 30 2D 41 44 52 45 53 53 45 20 4C 4F |FER-0-ADRESSE LO|
00000D70: 20 3D 20 30 00 59 2D C4 04 20 4A 53 52 24 45 44 | = 0.Y-.. JSR$ED|
00000D80: 44 44 00 7E 2D CE 04 20 4C 44 41 23 24 30 33 3B |DD.~-.. LDA#$03;|
00000D90: 50 55 46 46 45 52 2D 30 2D 41 44 52 45 53 53 45 |PUFFER-0-ADRESSE|
00000DA0: 20 48 49 20 3D 20 33 00 8C 2D D8 04 20 4A 53 52 | HI = 3..-.. JSR|
00000DB0: 24 45 44 44 44 00 C9 2D E2 04 20 4C 44 41 23 24 |$EDDD..-.. LDA#$|
00000DC0: 32 30 3B 34 20 2A 20 33 32 20 42 59 54 45 53 20 |20;4 * 32 BYTES |
00000DD0: 28 46 4C 4F 50 50 59 52 4F 55 54 49 4E 45 29 20 |(FLOPPYROUTINE) |
00000DE0: 4E 41 43 48 20 24 30 33 30 30 2D 20 53 45 4E 44 |NACH $0300- SEND|
00000DF0: 45 4E 00 D2 2D EC 04 20 54 41 59 00 E0 2D F6 04 |EN..-.. TAY..-..|
00000E00: 20 4A 53 52 24 45 44 44 44 00 F3 2D 00 05 4C 50 | JSR$EDDD..-..LP|
00000E10: 31 20 4C 44 41 24 30 33 33 34 2C 58 00 01 2E 0A |1 LDA$0334,X....|
00000E20: 05 20 4A 53 52 24 45 44 44 44 00 0A 2E 14 05 20 |. JSR$EDDD..... |
00000E30: 49 4E 58 00 13 2E 1E 05 20 44 45 59 00 1F 2E 28 |INX..... DEY...(|
00000E40: 05 20 42 4E 45 4C 50 31 00 46 2E 32 05 20 4A 53 |. BNELP1.F.2. JS|
00000E50: 52 24 45 44 46 45 3B 55 4E 4C 49 53 54 45 4E 20 |R$EDFE;UNLISTEN |
00000E60: 28 44 41 54 45 4E 53 41 54 5A 45 4E 44 45 29 00 |(DATENSATZENDE).|
00000E70: 4F 2E 3C 05 20 54 58 41 00 5C 2E 46 05 20 42 50 |O.<. TXA.\.F. BP|
00000E80: 4C 4C 4F 4F 50 00 82 2E 50 05 20 4A 4D 50 44 45 |LLOOP...P. JMPDE|
00000E90: 53 54 32 3B 53 49 45 48 45 20 57 45 49 54 45 52 |ST2;SIEHE WEITER|
00000EA0: 20 42 45 49 20 46 4C 4F 41 44 31 00 88 2E 5A 05 | BEI FLOAD1...Z.|
00000EB0: 3B 00 9E 2E 64 05 46 4C 4F 41 44 31 20 4A 53 52 |;...d.FLOAD1 JSR|
00000EC0: 4F 50 45 4E 4D 58 3B 00 AC 2E 6E 05 20 4C 44 41 |OPENMX;...n. LDA|
00000ED0: 23 22 45 22 3B 00 BB 2E 78 05 20 4A 53 52 24 45 |#"E";...x. JSR$E|
00000EE0: 44 44 44 3B 00 C9 2E 82 05 20 4C 44 41 23 24 30 |DDD;..... LDA#$0|
00000EF0: 44 3B 00 D8 2E 8C 05 20 4A 53 52 24 45 44 44 44 |D;..... JSR$EDDD|
00000F00: 3B 00 E6 2E 96 05 20 4C 44 41 23 24 30 33 3B 00 |;..... LDA#$03;.|
00000F10: F5 2E A0 05 20 4A 53 52 24 45 44 44 44 3B 00 27 |.... JSR$EDDD;.'|
00000F20: 2F AA 05 20 4A 53 52 24 45 44 46 45 3B 41 4C 4C |/.. JSR$EDFE;ALL|
00000F30: 45 53 20 5A 55 53 41 4D 4D 45 4E 20 4D 45 4D 4F |ES ZUSAMMEN MEMO|
00000F40: 52 59 2D 45 58 45 43 55 54 45 20 24 30 33 30 44 |RY-EXECUTE $030D|
00000F50: 00 2D 2F B4 05 3B 00 36 2F BE 05 20 53 45 49 00 |.-/..;.6/.. SEI.|
00000F60: 54 2F C8 05 20 4A 53 52 47 45 54 42 59 54 58 3B |T/.. JSRGETBYTX;|
00000F70: 42 59 54 45 20 45 49 4E 4C 45 53 45 4E 00 75 2F |BYTE EINLESEN.u/|
00000F80: D2 05 20 42 4D 49 45 58 49 54 3B 4E 45 47 41 54 |.. BMIEXIT;NEGAT|
00000F90: 49 56 2C 20 44 41 4E 4E 20 45 52 52 4F 52 00 A3 |IV, DANN ERROR..|
00000FA0: 2F DC 05 20 50 48 41 3B 54 52 41 43 4B 4C 49 4E |/.. PHA;TRACKLIN|
00000FB0: 4B 20 5A 55 4D 20 4E 41 45 43 48 53 54 45 4E 20 |K ZUM NAECHSTEN |
00000FC0: 42 4C 4F 43 4B 20 4D 45 52 4B 45 4E 00 DE 2F E6 |BLOCK MERKEN../.|
00000FD0: 05 20 42 4E 45 4D 30 3B 30 20 49 53 54 20 5A 45 |. BNEM0;0 IST ZE|
00000FE0: 49 43 48 45 4E 20 46 55 45 52 20 4C 45 54 5A 54 |ICHEN FUER LETZT|
00000FF0: 45 4E 20 42 4C 4F 43 4B 2C 20 53 4F 4E 53 54 20 |EN BLOCK, SONST |
00001000: 4E 41 43 48 20 4D 30 00 EE 2F F0 05 20 4A 53 52 |NACH M0../.. JSR|
00001010: 47 45 54 42 59 54 58 00 F7 2F FA 05 20 53 45 43 |GETBYTX../.. SEC|
00001020: 00 04 30 04 06 20 53 42 43 23 24 30 33 00 3E 30 |..0.. SBC#$03.>0|
00001030: 0E 06 20 53 54 41 55 53 45 52 3B 4C 45 54 5A 54 |.. STAUSER;LETZT|
00001040: 45 52 20 3D 20 31 2E 20 42 4C 4F 43 4B 3A 20 41 |ER = 1. BLOCK: A|
00001050: 4E 5A 41 48 4C 20 5A 55 20 4C 45 53 45 4E 44 45 |NZAHL ZU LESENDE|
00001060: 52 20 42 59 54 45 53 00 50 30 18 06 4D 30 20 4A |R BYTES.P0..M0 J|
00001070: 53 52 47 45 54 42 59 54 58 00 6B 30 22 06 20 54 |SRGETBYTX.k0". T|
00001080: 41 59 3B 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |AY;ANFANGSADRESS|
00001090: 45 20 4C 4F 00 7B 30 2C 06 20 4A 53 52 47 45 54 |E LO.{0,. JSRGET|
000010A0: 42 59 54 58 00 A4 30 36 06 20 4C 44 58 53 45 43 |BYTX..06. LDXSEC|
000010B0: 41 44 52 3B 41 4E 46 41 4E 47 53 41 44 52 45 53 |ADR;ANFANGSADRES|
000010C0: 53 45 20 48 49 20 49 4D 20 41 4B 4B 55 00 E1 30 |SE HI IM AKKU..0|
000010D0: 40 06 20 42 4E 45 4F 52 49 47 41 44 3B 57 49 45 |@. BNEORIGAD;WIE|
000010E0: 20 4E 4F 52 4D 41 4C 3A 20 53 45 4B 55 4E 44 41 | NORMAL: SEKUNDA|
000010F0: 45 52 41 44 52 45 53 53 45 20 3D 20 30 2C 20 44 |ERADRESSE = 0, D|
00001100: 41 4E 4E 20 41 4E 20 2E 2E 2E 00 1E 31 4A 06 20 |ANN AN .....1J. |
00001110: 4C 44 59 24 43 33 3B 2E 2E 2E 20 56 4F 52 47 45 |LDY$C3;... VORGE|
00001120: 47 45 42 45 4E 45 20 41 44 52 45 53 53 45 20 4C |GEBENE ADRESSE L|
00001130: 41 44 45 4E 20 28 42 45 49 20 42 41 53 49 43 20 |ADEN (BEI BASIC |
00001140: 24 30 38 30 31 29 2E 00 54 31 54 06 20 4C 44 41 |$0801)..T1T. LDA|
00001150: 24 43 34 3B 2E 2E 2E 20 53 4F 4E 53 54 20 41 55 |$C4;... SONST AU|
00001160: 46 20 44 49 53 4B 20 47 45 53 50 45 49 43 48 45 |F DISK GESPEICHE|
00001170: 52 54 45 20 56 45 52 57 45 4E 44 45 4E 00 88 31 |RTE VERWENDEN..1|
00001180: 5E 06 4F 52 49 47 41 44 20 53 54 59 24 41 45 3B |^.ORIGAD STY$AE;|
00001190: 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 49 |ANFANGSADRESSE I|
000011A0: 4E 20 24 41 45 2F 24 41 46 20 41 42 4C 45 47 45 |N $AE/$AF ABLEGE|
000011B0: 4E 00 94 31 68 06 20 53 54 41 24 41 46 00 BD 31 |N..1h. STA$AF..1|
000011C0: 72 06 20 50 4C 41 3B 54 52 41 43 4B 4C 49 4E 4B |r. PLA;TRACKLINK|
000011D0: 20 31 2E 20 42 4C 4F 43 4B 20 5A 55 52 55 45 43 | 1. BLOCK ZURUEC|
000011E0: 4B 48 4F 4C 45 4E 00 E1 31 7C 06 20 42 45 51 4C |KHOLEN..1|. BEQL|
000011F0: 41 53 54 42 3B 30 2C 20 44 41 4E 4E 20 4C 45 54 |ASTB;0, DANN LET|
00001200: 5A 54 45 52 20 42 4C 4F 43 4B 00 11 32 86 06 20 |ZTER BLOCK..2.. |
00001210: 4C 44 59 23 24 30 34 3B 31 2E 20 42 4C 4F 43 4B |LDY#$04;1. BLOCK|
00001220: 20 4E 55 52 20 32 35 36 2D 34 3D 32 35 32 20 42 | NUR 256-4=252 B|
00001230: 59 54 45 53 20 4C 45 53 45 4E 00 24 32 90 06 47 |YTES LESEN.$2..G|
00001240: 45 54 42 4C 4B 20 53 54 59 55 53 45 52 00 2D 32 |ETBLK STYUSER.-2|
00001250: 9A 06 20 53 45 43 00 39 32 A4 06 20 4C 44 41 24 |.. SEC.92.. LDA$|
00001260: 41 45 00 46 32 AE 06 20 53 42 43 55 53 45 52 00 |AE.F2.. SBCUSER.|
00001270: 52 32 B8 06 20 53 54 41 24 41 45 00 5E 32 C2 06 |R2.. STA$AE.^2..|
00001280: 20 42 43 53 4C 50 32 00 6A 32 CC 06 20 44 45 43 | BCSLP2.j2.. DEC|
00001290: 24 41 46 00 8F 32 D6 06 4C 50 32 20 4A 53 52 47 |$AF..2..LP2 JSRG|
000012A0: 45 54 42 59 54 58 3B 42 59 54 45 20 48 4F 4C 45 |ETBYTX;BYTE HOLE|
000012B0: 4E 20 55 4E 44 2E 2E 2E 00 B5 32 E0 06 20 4A 53 |N UND.....2.. JS|
000012C0: 52 53 54 4F 52 45 4D 58 3B 2E 2E 2E 20 49 4E 53 |RSTOREMX;... INS|
000012D0: 20 52 41 4D 20 53 50 45 49 43 48 45 52 4E 00 BE | RAM SPEICHERN..|
000012E0: 32 EA 06 20 49 4E 59 00 CA 32 F4 06 20 42 4E 45 |2.. INY..2.. BNE|
000012F0: 4C 50 32 00 D6 32 FE 06 20 49 4E 43 24 41 46 00 |LP2..2.. INC$AF.|
00001300: 0D 33 08 07 20 4C 44 59 23 24 30 32 3B 42 45 49 |.3.. LDY#$02;BEI|
00001310: 20 57 45 49 54 45 52 45 4E 20 42 4C 4F 43 4B 53 | WEITEREN BLOCKS|
00001320: 20 32 35 36 2D 32 3D 32 35 34 20 42 59 54 45 53 | 256-2=254 BYTES|
00001330: 20 4C 41 44 45 4E 00 1D 33 12 07 20 4A 53 52 47 | LADEN..3.. JSRG|
00001340: 45 54 42 59 54 58 00 2A 33 1C 07 20 42 45 51 4C |ETBYTX.*3.. BEQL|
00001350: 41 53 54 00 59 33 26 07 20 42 50 4C 47 45 54 42 |AST.Y3&. BPLGETB|
00001360: 4C 4B 3B 57 45 4E 4E 20 4E 49 43 48 54 20 50 4F |LK;WENN NICHT PO|
00001370: 53 49 54 49 56 2C 20 44 41 4E 4E 20 46 45 48 4C |SITIV, DANN FEHL|
00001380: 45 52 00 5F 33 30 07 3B 00 8B 33 3A 07 45 58 49 |ER._30.;..3:.EXI|
00001390: 54 20 4A 53 52 43 4C 4F 53 45 58 3B 46 49 4C 45 |T JSRCLOSEX;FILE|
000013A0: 20 53 43 48 4C 49 45 53 53 45 4E 2C 20 42 49 4C | SCHLIESSEN, BIL|
000013B0: 44 20 41 4E 00 B3 33 44 07 45 52 52 43 48 20 4C |D AN..3D.ERRCH L|
000013C0: 44 41 23 24 30 38 3B 47 45 52 41 45 54 45 41 44 |DA#$08;GERAETEAD|
000013D0: 52 45 53 53 45 20 46 4C 4F 50 50 59 00 ED 33 4E |RESSE FLOPPY..3N|
000013E0: 07 20 4A 53 52 24 45 44 30 39 3B 54 41 4C 4B 20 |. JSR$ED09;TALK |
000013F0: 53 45 4E 44 45 4E 20 28 43 36 34 20 57 49 4C 4C |SENDEN (C64 WILL|
00001400: 20 45 54 57 41 53 20 56 4F 4E 20 44 45 52 20 46 | ETWAS VON DER F|
00001410: 4C 4F 50 50 59 29 00 19 34 58 07 20 4C 44 41 23 |LOPPY)..4X. LDA#|
00001420: 24 36 46 3B 42 49 54 53 20 30 2D 20 33 20 3D 31 |$6F;BITS 0- 3 =1|
00001430: 35 20 46 55 45 52 20 46 45 48 4C 45 52 4B 41 4E |5 FUER FEHLERKAN|
00001440: 41 4C 00 3F 34 62 07 20 4A 53 52 24 45 44 43 37 |AL.?4b. JSR$EDC7|
00001450: 3B 53 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 |;SEKUNDAERADRESS|
00001460: 45 20 53 45 4E 44 45 4E 00 66 34 6C 07 20 4A 53 |E SENDEN.f4l. JS|
00001470: 52 24 45 45 31 33 3B 5A 45 49 43 48 45 4E 20 56 |R$EE13;ZEICHEN V|
00001480: 4F 4E 20 46 4C 4F 50 50 59 20 48 4F 4C 45 4E 00 |ON FLOPPY HOLEN.|
00001490: 73 34 76 07 20 43 4D 50 23 24 33 30 00 93 34 80 |s4v. CMP#$30..4.|
000014A0: 07 20 42 45 51 4E 4F 45 52 52 3B 22 30 22 20 3D |. BEQNOERR;"0" =|
000014B0: 20 4B 45 49 4E 20 46 45 48 4C 45 52 00 A0 34 8A | KEIN FEHLER..4.|
000014C0: 07 20 4C 44 58 23 24 30 30 00 AC 34 94 07 20 53 |. LDX#$00..4.. S|
000014D0: 54 58 24 39 30 00 DD 34 9E 07 4C 50 34 20 4A 53 |TX$90..4..LP4 JS|
000014E0: 52 24 45 37 31 36 3B 5A 45 49 43 48 45 4E 20 41 |R$E716;ZEICHEN A|
000014F0: 55 46 20 42 49 4C 44 53 43 48 49 52 4D 20 41 55 |UF BILDSCHIRM AU|
00001500: 53 47 45 42 45 4E 00 04 35 A8 07 20 4A 53 52 24 |SGEBEN..5.. JSR$|
00001510: 45 45 31 33 3B 5A 45 49 43 48 45 4E 20 56 4F 4E |EE13;ZEICHEN VON|
00001520: 20 46 4C 4F 50 50 59 20 48 4F 4C 45 4E 00 18 35 | FLOPPY HOLEN..5|
00001530: B2 07 20 42 49 54 24 39 30 3B 46 45 52 54 49 47 |.. BIT$90;FERTIG|
00001540: 3F 00 24 35 BC 07 20 42 56 43 4C 50 34 00 2D 35 |?.$5.. BVCLP4.-5|
00001550: C6 07 20 50 4C 41 00 5B 35 D0 07 20 50 4C 41 3B |.. PLA.[5.. PLA;|
00001560: 44 49 52 45 4B 54 45 20 52 55 45 43 4B 53 50 52 |DIREKTE RUECKSPR|
00001570: 55 4E 47 41 44 52 45 53 53 45 20 45 4E 54 46 45 |UNGADRESSE ENTFE|
00001580: 52 4E 45 4E 00 70 35 DA 07 20 4A 53 52 24 45 44 |RNEN.p5.. JSR$ED|
00001590: 45 46 3B 55 4E 54 41 4C 4B 00 79 35 E4 07 20 53 |EF;UNTALK.y5.. S|
000015A0: 45 43 00 87 35 EE 07 4E 4F 45 52 52 20 52 54 53 |EC..5..NOERR RTS|
000015B0: 00 8D 35 F8 07 3B 00 A1 35 02 08 4C 41 53 54 20 |..5..;..5..LAST |
000015C0: 4A 53 52 47 45 54 42 59 54 58 00 AA 35 0C 08 20 |JSRGETBYTX..5.. |
000015D0: 54 41 58 00 B3 35 16 08 20 44 45 58 00 EA 35 20 |TAX..5.. DEX..5 |
000015E0: 08 20 53 54 58 55 53 45 52 3B 41 4E 5A 41 48 4C |. STXUSER;ANZAHL|
000015F0: 20 5A 55 20 4C 45 53 45 4E 44 45 52 20 42 59 54 | ZU LESENDER BYT|
00001600: 45 53 20 49 4D 20 4C 45 54 5A 54 45 4E 20 42 4C |ES IM LETZTEN BL|
00001610: 4F 43 4B 00 FC 35 2A 08 4C 41 53 54 42 20 4C 44 |OCK..5*.LASTB LD|
00001620: 59 23 24 30 30 00 21 36 34 08 4C 50 33 20 4A 53 |Y#$00.!64.LP3 JS|
00001630: 52 47 45 54 42 59 54 58 3B 42 59 54 45 20 48 4F |RGETBYTX;BYTE HO|
00001640: 4C 45 4E 20 55 4E 44 2E 2E 2E 00 47 36 3E 08 20 |LEN UND....G6>. |
00001650: 4A 53 52 53 54 4F 52 45 4D 58 3B 2E 2E 2E 20 49 |JSRSTOREMX;... I|
00001660: 4E 53 20 52 41 4D 20 53 50 45 49 43 48 45 52 4E |NS RAM SPEICHERN|
00001670: 00 50 36 48 08 20 49 4E 59 00 5D 36 52 08 20 43 |.P6H. INY.]6R. C|
00001680: 50 59 55 53 45 52 00 69 36 5C 08 20 42 4E 45 4C |PYUSER.i6\. BNEL|
00001690: 50 33 00 72 36 66 08 20 54 59 41 00 7B 36 70 08 |P3.r6f. TYA.{6p.|
000016A0: 20 43 4C 43 00 AC 36 7A 08 20 41 44 43 24 41 45 | CLC..6z. ADC$AE|
000016B0: 3B 45 4E 44 41 44 52 45 53 53 45 20 49 4E 20 24 |;ENDADRESSE IN $|
000016C0: 41 45 2F 24 41 46 20 52 49 43 48 54 49 47 53 54 |AE/$AF RICHTIGST|
000016D0: 45 4C 4C 45 4E 00 B8 36 84 08 20 53 54 41 24 41 |ELLEN..6.. STA$A|
000016E0: 45 00 C6 36 8E 08 20 42 43 43 4E 4F 49 4E 43 00 |E..6.. BCCNOINC.|
000016F0: D2 36 98 08 20 49 4E 43 24 41 46 00 E6 36 A2 08 |.6.. INC$AF..6..|
00001700: 4E 4F 49 4E 43 20 4A 53 52 43 4C 4F 53 45 58 00 |NOINC JSRCLOSEX.|
00001710: 1C 37 AC 08 20 4A 4D 50 24 46 35 41 39 3B 46 45 |.7.. JMP$F5A9;FE|
00001720: 52 54 49 47 3A 20 52 55 45 43 4B 53 50 52 55 4E |RTIG: RUECKSPRUN|
00001730: 47 20 4D 49 54 20 58 3D 24 41 45 20 55 4E 44 20 |G MIT X=$AE UND |
00001740: 59 3D 24 41 46 00 22 37 B6 08 3B 00 4A 37 C0 08 |Y=$AF."7..;.J7..|
00001750: 4F 50 45 4E 4D 20 4C 44 41 23 24 30 38 3B 47 45 |OPENM LDA#$08;GE|
00001760: 52 41 45 54 45 41 44 52 45 53 53 45 20 46 4C 4F |RAETEADRESSE FLO|
00001770: 50 50 59 00 84 37 CA 08 20 4A 53 52 24 45 44 30 |PPY..7.. JSR$ED0|
00001780: 43 3B 4C 49 53 54 45 4E 20 53 45 4E 44 45 4E 20 |C;LISTEN SENDEN |
00001790: 28 43 36 34 20 48 41 54 20 57 41 53 20 46 55 45 |(C64 HAT WAS FUE|
000017A0: 52 20 44 49 45 20 46 4C 4F 50 50 59 29 00 B0 37 |R DIE FLOPPY)..7|
000017B0: D4 08 20 4C 44 41 23 24 36 46 3B 42 49 54 53 20 |.. LDA#$6F;BITS |
000017C0: 30 2D 20 33 20 3D 31 35 20 46 55 45 52 20 46 45 |0- 3 =15 FUER FE|
000017D0: 48 4C 45 52 4B 41 4E 41 4C 00 D6 37 DE 08 20 4A |HLERKANAL..7.. J|
000017E0: 53 52 24 45 44 42 39 3B 53 45 4B 55 4E 44 41 45 |SR$EDB9;SEKUNDAE|
000017F0: 52 41 44 52 45 53 53 45 20 53 45 4E 44 45 4E 00 |RADRESSE SENDEN.|
00001800: E3 37 E8 08 20 4C 44 41 23 22 4D 22 00 FC 37 F2 |.7.. LDA#"M"..7.|
00001810: 08 20 4A 53 52 24 45 44 44 44 3B 22 4D 22 20 53 |. JSR$EDDD;"M" S|
00001820: 45 4E 44 45 4E 00 09 38 FC 08 20 4C 44 41 23 22 |ENDEN..8.. LDA#"|
00001830: 2D 22 00 22 38 06 09 20 4A 4D 50 24 45 44 44 44 |-"."8.. JMP$EDDD|
00001840: 3B 22 2D 22 20 53 45 4E 44 45 4E 00 28 38 10 09 |;"-" SENDEN.(8..|
00001850: 3B 00 3A 38 1A 09 43 4C 4F 53 45 20 4C 44 41 23 |;.:8..CLOSE LDA#|
00001860: 24 31 42 00 50 38 24 09 20 53 54 41 24 44 30 31 |$1B.P8$. STA$D01|
00001870: 31 3B 42 49 4C 44 20 41 4E 00 69 38 2E 09 20 4A |1;BILD AN.i8.. J|
00001880: 4D 50 24 46 36 34 36 3B 43 4C 4F 53 45 20 46 49 |MP$F646;CLOSE FI|
00001890: 4C 45 00 6F 38 38 09 3B 00 A3 38 42 09 53 54 4F |LE.o88.;..8B.STO|
000018A0: 52 45 4D 20 49 4E 43 24 30 31 3B 53 50 45 49 43 |REM INC$01;SPEIC|
000018B0: 48 45 52 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E |HERKONFIGURATION|
000018C0: 20 41 55 46 20 36 34 4B 20 52 41 4D 00 C0 38 4C | AUF 64K RAM..8L|
000018D0: 09 20 53 54 41 28 24 41 45 29 2C 59 3B 42 59 54 |. STA($AE),Y;BYT|
000018E0: 45 20 41 42 4C 45 47 45 4E 00 F8 38 56 09 20 44 |E ABLEGEN..8V. D|
000018F0: 45 43 24 30 31 3B 53 50 45 49 43 48 45 52 4B 4F |EC$01;SPEICHERKO|
00001900: 4E 46 49 47 55 52 41 54 49 4F 4E 20 57 49 45 44 |NFIGURATION WIED|
00001910: 45 52 20 5A 55 52 55 45 43 4B 53 54 45 4C 4C 45 |ER ZURUECKSTELLE|
00001920: 4E 00 01 39 60 09 20 52 54 53 00 07 39 6A 09 3B |N..9`. RTS..9j.;|
00001930: 00 48 39 74 09 47 45 54 42 59 54 20 42 49 54 24 |.H9t.GETBYT BIT$|
00001940: 44 44 30 30 3B 53 45 52 2E 20 42 55 53 20 4D 55 |DD00;SER. BUS MU|
00001950: 53 53 20 46 52 45 49 20 53 45 49 4E 20 28 50 45 |SS FREI SEIN (PE|
00001960: 47 45 4C 20 49 4E 41 4B 54 49 56 20 48 49 47 48 |GEL INAKTIV HIGH|
00001970: 29 00 86 39 7E 09 20 42 56 53 47 45 54 42 59 54 |)..9~. BVSGETBYT|
00001980: 3B 57 41 52 54 45 54 20 42 49 53 20 46 4C 4F 50 |;WARTET BIS FLOP|
00001990: 50 59 20 43 4C 4B 4F 55 54 3D 31 2C 20 57 45 47 |PY CLKOUT=1, WEG|
000019A0: 45 4E 20 49 4E 56 45 52 54 45 52 20 2E 2E 2E 00 |EN INVERTER ....|
000019B0: A2 39 88 09 20 4C 44 41 23 24 36 37 3B 2E 2E 2E |.9.. LDA#$67;...|
000019C0: 20 42 45 49 20 43 36 34 20 3D 30 00 C2 39 92 09 | BEI C64 =0..9..|
000019D0: 20 53 54 41 24 44 44 30 30 3B 44 41 54 41 4F 55 | STA$DD00;DATAOU|
000019E0: 54 20 3D 31 20 53 45 54 5A 45 4E 00 CF 39 9C 09 |T =1 SETZEN..9..|
000019F0: 20 4C 44 58 23 24 30 36 00 09 3A A6 09 20 49 4E | LDX#$06..:.. IN|
00001A00: 58 3B 4D 49 4E 44 2E 20 37 20 54 41 4B 54 5A 59 |X;MIND. 7 TAKTZY|
00001A10: 4B 4C 45 4E 20 5A 57 49 53 43 48 45 4E 20 53 54 |KLEN ZWISCHEN ST|
00001A20: 4F 52 45 53 2C 20 44 41 4D 49 54 20 44 49 45 2E |ORES, DAMIT DIE.|
00001A30: 2E 2E 00 3C 3A B0 09 20 53 54 58 24 44 44 30 30 |...<:.. STX$DD00|
00001A40: 3B 2E 2E 2E 20 46 4C 4F 50 50 59 20 44 45 4E 20 |;... FLOPPY DEN |
00001A50: 49 4D 50 55 4C 53 20 53 49 43 48 45 52 20 45 52 |IMPULS SICHER ER|
00001A60: 4B 45 4E 4E 54 00 48 3A BA 09 4C 50 35 20 44 45 |KENNT.H:..LP5 DE|
00001A70: 58 00 7E 3A C4 09 20 42 4E 45 4C 50 35 3B 46 4C |X.~:.. BNELP5;FL|
00001A80: 4F 50 50 59 20 4E 4F 43 48 20 33 34 20 54 41 4B |OPPY NOCH 34 TAK|
00001A90: 54 5A 59 4B 4C 45 4E 20 56 4F 52 53 50 52 55 4E |TZYKLEN VORSPRUN|
00001AA0: 47 20 47 45 42 45 4E 00 9C 3A CE 09 20 4C 44 58 |G GEBEN..:.. LDX|
00001AB0: 23 24 30 34 3B 34 20 2A 20 32 20 42 49 54 53 20 |#$04;4 * 2 BITS |
00001AC0: 48 4F 4C 45 4E 00 CD 3A D8 09 4C 50 36 20 4C 44 |HOLEN..:..LP6 LD|
00001AD0: 41 24 44 44 30 30 3B 42 49 54 53 20 36 20 55 44 |A$DD00;BITS 6 UD|
00001AE0: 20 37 20 45 4E 54 48 41 4C 54 45 4E 20 44 49 45 | 7 ENTHALTEN DIE|
00001AF0: 20 44 41 54 45 4E 00 D6 3A E2 09 20 41 53 4C 00 | DATEN..:.. ASL.|
00001B00: DF 3A EC 09 20 52 4F 4C 00 EE 3A F6 09 20 52 4F |.:.. ROL..:.. RO|
00001B10: 52 49 45 43 42 59 54 00 F7 3A 00 0A 20 4C 53 52 |RIECBYT..:.. LSR|
00001B20: 00 06 3B 0A 0A 20 52 4F 52 49 45 43 42 59 54 00 |..;.. RORIECBYT.|
00001B30: 0F 3B 14 0A 20 44 45 58 00 1B 3B 1E 0A 20 42 4E |.;.. DEX..;.. BN|
00001B40: 45 4C 50 36 00 40 3B 28 0A 20 4C 44 41 49 45 43 |ELP6.@;(. LDAIEC|
00001B50: 42 59 54 3B 46 45 52 54 49 47 45 53 20 42 59 54 |BYT;FERTIGES BYT|
00001B60: 45 20 49 4E 20 41 4B 4B 55 00 49 3B 32 0A 20 52 |E IN AKKU.I;2. R|
00001B70: 54 53 00 4F 3B 3C 0A 3B 00 70 3B 46 0A 45 4E 44 |TS.O;<.;.p;F.END|
00001B80: 46 20 2E 45 51 53 45 4E 44 3D 53 45 4E 44 4C 2D |F .EQSEND=SENDL-|
00001B90: 41 46 4C 2B 24 30 33 30 30 00 85 3B 50 0A 20 2E |AFL+$0300..;P. .|
00001BA0: 45 51 4F 50 45 4E 4D 58 3D 44 45 53 54 33 00 9F |EQOPENMX=DEST3..|
00001BB0: 3B 5A 0A 20 2E 45 51 44 49 46 4F 3D 4F 50 45 4E |;Z. .EQDIFO=OPEN|
00001BC0: 4D 2D 4F 50 45 4E 4D 58 00 BB 3B 64 0A 20 2E 45 |M-OPENMX..;d. .E|
00001BD0: 51 53 54 4F 52 45 4D 58 3D 53 54 4F 52 45 4D 2D |QSTOREMX=STOREM-|
00001BE0: 44 49 46 4F 00 D5 3B 6E 0A 20 2E 45 51 43 4C 4F |DIFO..;n. .EQCLO|
00001BF0: 53 45 58 3D 43 4C 4F 53 45 2D 44 49 46 4F 00 F1 |SEX=CLOSE-DIFO..|
00001C00: 3B 78 0A 20 2E 45 51 47 45 54 42 59 54 58 3D 47 |;x. .EQGETBYTX=G|
00001C10: 45 54 42 59 54 2D 44 49 46 4F 00 13 3C 82 0A 20 |ETBYT-DIFO..<.. |
00001C20: 2E 45 51 45 52 52 43 48 58 3D 45 52 52 43 48 2D |.EQERRCHX=ERRCH-|
00001C30: 46 4C 4F 41 44 31 2B 44 45 53 54 32 00 2E 3C 8C |FLOAD1+DEST2..<.|
00001C40: 0A 20 2E 45 51 4E 4F 42 31 3D 46 4C 4F 41 44 31 |. .EQNOB1=FLOAD1|
00001C50: 2D 46 4C 4F 41 44 30 00 48 3C 96 0A 20 2E 45 51 |-FLOAD0.H<.. .EQ|
00001C60: 4E 4F 42 32 3D 4F 50 45 4E 4D 2D 46 4C 4F 41 44 |NOB2=OPENM-FLOAD|
00001C70: 31 00 60 3C A0 0A 20 2E 45 51 4E 4F 42 33 3D 45 |1.`<.. .EQNOB3=E|
00001C80: 4E 44 46 2D 4F 50 45 4E 4D 00 69 3C AA 0A 20 2E |NDF-OPENM.i<.. .|
00001C90: 45 4E 00 00 00 |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.. .
. STADEST1-1,X;TEIL 1 NACH $0330 BIS $03
FD.. .. DEX..!.. BNEVLP1..! . LDX#<(NOB2
)./!..VLP2 LDAFLOAD1-1,X.]!.. STADEST2-1
,X;TEIL 2 NACH $010B BIS $01B6.F!.. DEX.
S!H. BNEVLP2..!R. LDX#<(NOB3)..!..VLP3 L
DAOPENM-1,X.H!.. STADEST3-1,X;TEIL 3 NAC
H $02A9 BIS $02F0.Q!.. DEX..!.. BNEVLP3.
.!.. RTS..!..;..".. .EQIECBYT=$A6.."". .
EQSECADR=$A7.$",. .EQUSER=$B6.*"6.;.F"@.
FLOAD0 .BY$B4,$03,$ED,$F5;NEUER LOAD-, A
LTER SAVEVEKTOR.L"J.;.."T.;FLOPPYROUTINE
N.."^.;.E"H.AFL INC$31;$30/$31 ZEIGT AUF
$0300, LADEN ABER NACH $0400-.."R. JMP$
F4D1;HEADER SUCHEN UND BLOCK LESEN.."|.;
.5#..RDERR JSRSEND+2;POSITIVER AKKU ERSC
HEINT AM C64 NEGATIV!!.E#.. LDA$00;FEHLE
RNUMMER PUFFER 0 ($0300-$03FF)..#.. JMP$
E60A;FEHLERMELDUNG AUSGEBEN..#..;.N#..ST
LOAD LDA$F9;START: AKTUELLE PUFFERNUMMER
NACH OPEN FILE.W#.. ASL..#B. TAX;X=A*2.
#$L. LDA$06,X;$06+X/$07+X TRACK UND SEKT
OR FUER BEST. PUFFER.^$V. STA$06;EGAL, F
UER WELCHEN PUFFER EROEFFNET WURDE, ....
.$.. LDA$07,X;... JOB IMMER NACH PUFFER
0 LEGEN..$.. LDX#$00;SEKTOR FUER PUFFER-
0-JOB.F$..RDLOOP STA$07..%.. LDA#$E0;JOB
CODE PUFFER 0: LAUFWERK AN, PROGRAMM IN
....+%.. STA$00;... PUFFER 0 ($0300) STA
RTEN.^%.. STA$025B;LETZTER JOBCODE (FUER
ROUTINE $D599)..%.. STA$0298;FEHLERFLAG
NEGATIV VORBESETZEN (FUER $D599)..%&. C
LI;JOB WIRD IM INTERRUPT ERLEDIGT..%0. J
SR$D599;WARTEN AUF JOBENDE, INCL. FEHLER
KORREKTUR!..&:. SEI..&D. CMP#$02.7&N. BC
SRDERR;AKKU POSITIV, $01 FUER OK.E&X. LD
A$0400;PUFFER 1, 1. BYTE IST TRACKLINK.S
&B. BEQLAST2..&L. STA$06;TRACK FUER NAEC
HSTEN BLOCK SETZEN.....&V. JSRSEND;... U
ND SENDEN.M&.. LDY#$02..'..LP10 LDA$0400
,Y;254 BYTES SENDEN ($0402 BIS $04FF)..'
.. JSRSEND..'.. INY.''.. BNELP10.T'.. LD
A$0401;SEKTORLINK ZUM NAECHSTEN BLOCK.I'
.. BPLRDLOOP;= JMP..'F.LAST2 LDY#$FF;BYT
ES DES LETZTEN BLOCKS SENDEN..'P.LP11 IN
Y..'Z. LDA$0400,Y.E'.. JSRSEND..(.. CPY$
0401;ZEIGT BEI LETZTEM BLOCK AUF LETZTES
DATENBYTE..(.. BNELP11.M(.. JMP$C194;BE
FEHLABSCHLUSS, EV. FEHLERMELDUNG BEREITS
TELLEN.S(..;..(..SENDL EOR#$FF;INVERTIER
EN, DA INVERTER AUF DEM WEG ZUM C64..( .
STA$1B;BYTEPUFFER..(*. LDA#$08;VIA-PORT
-REGISTER: CLKOUT AUF 1 (ERSCHEINT.....)
4. STA$1800;... BEIM C64 ALS 0, DA INVER
TER..)>. LDA#$01.2)H.WAIT1 BIT$1800.])R.
BEQWAIT1;WARTET AUF C64-DATAOUTBIT =1.|
)\. LDX#$04;4 * 2 BITS SENDEN..)F.LP12 L
DA#$00..)P. LSR$1B;SENDEBITS NACH BIT 1
UND 3 BRINGEN....H)Z. ROL.Q).. ASL..)..
LSR$1B..).. ROL..).. ASL..*.. STA$1800;.
.. UND AUSGEBEN..*.. DEX.$*.. BNELP12.D*
J. NOP;WICHTIG FUER TIMING!!!.*T. STX$1
800;X=0: ALLE BUSAUSGANGSPEGEL AUF INAKT
IV HIGH!..*.. RTS..*..;..*..;RECHNERROUT
INEN..*..;..*.. TAY.Y*.. BEQFLST;0 FUER
LOAD, SONST VERIFY..+..NLOAD JMP$F4A5;ST
ANDARD-LOAD BZW. VERIFY..+$.FLST TAX;0.%
+.. LDA($BB),Y.2+8. EOR#$24.D+B. BEQNLOA
D;SOLLTE DIRECTORY ($) GEHOLT WERDEN?.Q+
L. LDA#$08..+V. STA$BA;GERAETEADRESSE IM
MER AUF 8 SETZEN..+`. LDA$B9;BEIM LOADKO
MMANDO ANGEGEBENE SEKUNDAERADRESSE....,J
. STASECADR;... MERKEN, DA DIE AN DIE FL
OPPY ZU SENDENDE....P,T. STX$B9;... IMME
R 0 SEIN MUSS (FLOPPY-LOAD-KANAL).H,~. J
SR$F3D9;OPEN FILE..,.. JSRERRCHX;FLOPPY-
FEHLERKANAL (15) ABFRAGEN.K,.. STX$D011;
X=0, BILD AUS (NUR HINTERGRUNDFARBE)..,.
.LOOP JSROPENMX;"M-" SENDEN..-.. LDA#"W"
;"W", ZUSAMMEN "M-W" FUER MEMORYWRITE.*-
.. JSR$EDDD.K-.. TXA;PUFFER-0-ADRESSE LO
= 0.Y-D. JSR$EDDD.~-N. LDA#$03;PUFFER-0
-ADRESSE HI = 3..-X. JSR$EDDD.I-.. LDA#$
20;4 * 32 BYTES (FLOPPYROUTINE) NACH $03
00- SENDEN.R-.. TAY..-.. JSR$EDDD..-..LP
1 LDA$0334,X..... JSR$EDDD..... INX.....
DEY...(. BNELP1.F.2. JSR$EDFE;UNLISTEN
(DATENSATZENDE).O.<. TXA.\.F. BPLLOOP...
P. JMPDEST2;SIEHE WEITER BEI FLOAD1...Z.
;...D.FLOAD1 JSROPENMX;...N. LDA#"E";...
X. JSR$EDDD;.I... LDA#$0D;.X... JSR$EDDD
;..... LDA#$03;... . JSR$EDDD;.'/.. JSR$
EDFE;ALLES ZUSAMMEN MEMORY-EXECUTE $030D
.-/..;.6/.. SEI.T/H. JSRGETBYTX;BYTE EIN
LESEN.U/R. BMIEXIT;NEGATIV, DANN ERROR..
/.. PHA;TRACKLINK ZUM NAECHSTEN BLOCK ME
RKEN../.. BNEM0;0 IST ZEICHEN FUER LETZT
EN BLOCK, SONST NACH M0../.. JSRGETBYTX.
./.. SEC..0.. SBC#$03.>0.. STAUSER;LETZT
ER = 1. BLOCK: ANZAHL ZU LESENDER BYTES.
P0..M0 JSRGETBYTX.K0". TAY;ANFANGSADRESS
E LO.{0,. JSRGETBYTX..06. LDXSECADR;ANFA
NGSADRESSE HI IM AKKU..0@. BNEORIGAD;WIE
NORMAL: SEKUNDAERADRESSE = 0, DANN AN .
....1J. LDY$C3;... VORGEGEBENE ADRESSE L
ADEN (BEI BASIC $0801)..T1T. LDA$C4;...
SONST AUF DISK GESPEICHERTE VERWENDEN..1
^.ORIGAD STY$AE;ANFANGSADRESSE IN $AE/$A
F ABLEGEN..1H. STA$AF..1R. PLA;TRACKLINK
1. BLOCK ZURUECKHOLEN..1|. BEQLASTB;0,
DANN LETZTER BLOCK..2.. LDY#$04;1. BLOCK
NUR 256-4=252 BYTES LESEN.$2..GETBLK ST
YUSER.-2.. SEC.92.. LDA$AE.F2.. SBCUSER.
R2.. STA$AE.^2B. BCSLP2.J2L. DEC$AF..2V.
LP2 JSRGETBYTX;BYTE HOLEN UND.....2.. JS
RSTOREMX;... INS RAM SPEICHERN..2.. INY.
J2.. BNELP2.V2.. INC$AF..3.. LDY#$02;BEI
WEITEREN BLOCKS 256-2=254 BYTES LADEN..
3.. JSRGETBYTX.*3.. BEQLAST.Y3&. BPLGETB
LK;WENN NICHT POSITIV, DANN FEHLER._30.;
..3:.EXIT JSRCLOSEX;FILE SCHLIESSEN, BIL
D AN..3D.ERRCH LDA#$08;GERAETEADRESSE FL
OPPY..3N. JSR$ED09;TALK SENDEN (C64 WILL
ETWAS VON DER FLOPPY)..4X. LDA#$6F;BITS
0- 3 =15 FUER FEHLERKANAL.?4B. JSR$EDC7
;SEKUNDAERADRESSE SENDEN.F4L. JSR$EE13;Z
EICHEN VON FLOPPY HOLEN.S4V. CMP#$30..4.
. BEQNOERR;"0" = KEIN FEHLER. 4.. LDX#$0
0..4.. STX$90..4..LP4 JSR$E716;ZEICHEN A
UF BILDSCHIRM AUSGEBEN..5.. JSR$EE13;ZEI
CHEN VON FLOPPY HOLEN..5.. BIT$90;FERTIG
?.$5.. BVCLP4.-5F. PLA.[5P. PLA;DIREKTE
RUECKSPRUNGADRESSE ENTFERNEN.P5Z. JSR$ED
EF;UNTALK.Y5.. SEC..5..NOERR RTS..5..;..
5..LAST JSRGETBYTX..5.. TAX..5.. DEX..5
. STXUSER;ANZAHL ZU LESENDER BYTES IM LE
TZTEN BLOCK..5*.LASTB LDY#$00.!64.LP3 JS
RGETBYTX;BYTE HOLEN UND....G6>. JSRSTORE
MX;... INS RAM SPEICHERN.P6H. INY.]6R. C
PYUSER.I6\. BNELP3.R6F. TYA.{6P. CLC..6Z
. ADC$AE;ENDADRESSE IN $AE/$AF RICHTIGST
ELLEN..6.. STA$AE.F6.. BCCNOINC.R6.. INC
$AF..6..NOINC JSRCLOSEX..7.. JMP$F5A9;FE
RTIG: RUECKSPRUNG MIT X=$AE UND Y=$AF."7
..;.J7..OPENM LDA#$08;GERAETEADRESSE FLO
PPY..7J. JSR$ED0C;LISTEN SENDEN (C64 HAT
WAS FUER DIE FLOPPY)..7T. LDA#$6F;BITS
0- 3 =15 FUER FEHLERKANAL.V7.. JSR$EDB9;
SEKUNDAERADRESSE SENDEN..7.. LDA#"M"..7.
. JSR$EDDD;"M" SENDEN..8.. LDA#"-"."8..
JMP$EDDD;"-" SENDEN.(8..;.:8..CLOSE LDA#
$1B.P8$. STA$D011;BILD AN.I8.. JMP$F646;
CLOSE FILE.O88.;..8B.STOREM INC$01;SPEIC
HERKONFIGURATION AUF 64K RAM..8L. STA($A
E),Y;BYTE ABLEGEN..8V. DEC$01;SPEICHERKO
NFIGURATION WIEDER ZURUECKSTELLEN..9`. R
TS..9J.;.H9T.GETBYT BIT$DD00;SER. BUS MU
SS FREI SEIN (PEGEL INAKTIV HIGH)..9~. B
VSGETBYT;WARTET BIS FLOPPY CLKOUT=1, WEG
EN INVERTER .....9.. LDA#$67;... BEI C64
=0.B9.. STA$DD00;DATAOUT =1 SETZEN.O9..
LDX#$06..:.. INX;MIND. 7 TAKTZYKLEN ZWI
SCHEN STORES, DAMIT DIE....<:.. STX$DD00
;... FLOPPY DEN IMPULS SICHER ERKENNT.H:
..LP5 DEX.~:D. BNELP5;FLOPPY NOCH 34 TAK
TZYKLEN VORSPRUNG GEBEN..:N. LDX#$04;4 *
2 BITS HOLEN.M:X.LP6 LDA$DD00;BITS 6 UD
7 ENTHALTEN DIE DATEN.V:.. ASL..:.. ROL
..:.. RORIECBYT..:.. LSR..;.. RORIECBYT.
.;.. DEX..;.. BNELP6.@;(. LDAIECBYT;FERT
IGES BYTE IN AKKU.I;2. RTS.O;<.;.P;F.END
F .EQSEND=SENDL-AFL+$0300..;P. .EQOPENMX
=DEST3..;Z. .EQDIFO=OPENM-OPENMX..;D. .E
QSTOREMX=STOREM-DIFO.U;N. .EQCLOSEX=CLOS
E-DIFO..;X. .EQGETBYTX=GETBYT-DIFO..<..
.EQERRCHX=ERRCH-FLOAD1+DEST2..<.. .EQNOB
1=FLOAD1-FLOAD0.H<.. .EQNOB2=OPENM-FLOAD
1.`< . .EQNOB3=ENDF-OPENM.I<.. .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL