HY/LOESCH.SRC

FILE INFORMATION

FILENAME(S): HY/LOESCH.SRC

FILE TYPE(S): PRG

FILE SIZE: 6.3K

FIRST SEEN: 2025-11-30 01:12:44

APPEARS ON: 2 disk(s)

FILE HASH

5cc1570c1725690323294e8bd9392ed4cb52e43c04e976fbdb89610b9181f157

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10705 64ER 5 87	HY/LOESCH.SRC	PRG	C64er, DuncanTwain	11	3	DOWNLOAD FILE
10705 64ER 5 87	HY/LOESCH.SRC	PRG	earthshaker	11	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F8 1F 00 00 3B 4C  4F 45 53 43 48 45 4E 20  |......;LOESCHEN |
00000010: 45 49 4E 45 53 20 44 41  54 45 4E 53 41 54 5A 45  |EINES DATENSATZE|
00000020: 53 00 0F 20 17 00 3B 20  20 20 20 20 20 20 20 52  |S.. ..;        R|
00000030: 2E 4D 41 45 54 43 48 45  00 39 20 18 00 3B 54 52  |.MAETCHE.9 ..;TR|
00000040: 41 43 4B 2C 20 53 45 43  54 4F 52 20 55 4E 44 20  |ACK, SECTOR UND |
00000050: 50 4F 49 4E 54 45 52 20  41 55 46 20 44 45 4E 20  |POINTER AUF DEN |
00000060: 5A 55 00 64 20 19 00 3B  4C 4F 45 53 43 48 45 4E  |ZU.d ..;LOESCHEN|
00000070: 44 45 4E 20 44 41 54 45  4E 53 41 54 5A 20 53 54  |DEN DATENSATZ ST|
00000080: 45 48 45 4E 20 41 42 20  24 30 34 30 30 00 77 20  |EHEN AB $0400.w |
00000090: 1A 00 3B 4B 4F 4D 4D 55  4E 49 4B 41 54 49 4F 4E  |..;KOMMUNIKATION|
000000A0: 00 7D 20 1B 00 3B 00 A3  20 1C 00 3B 43 4F 4D 42  |.} ..;.. ..;COMB|
000000B0: 55 46 20 20 20 3D 20 54  52 41 43 4B 20 44 45 53  |UF   = TRACK DES|
000000C0: 20 44 41 54 45 4E 53 41  54 5A 45 53 00 C3 20 1D  | DATENSATZES.. .|
000000D0: 00 3B 43 4F 4D 42 55 46  2B 31 20 3D 20 53 45 43  |.;COMBUF+1 = SEC|
000000E0: 54 4F 52 20 22 20 20 20  20 20 20 22 00 E9 20 1E  |TOR "      ".. .|
000000F0: 00 3B 43 4F 4D 42 55 46  2B 32 20 3D 20 50 4F 49  |.;COMBUF+2 = POI|
00000100: 4E 54 45 52 20 41 55 46  20 44 41 54 45 4E 53 41  |NTER AUF DATENSA|
00000110: 54 5A 00 04 21 1F 00 3B  43 4F 4D 42 55 46 20 20  |TZ..!..;COMBUF  |
00000120: 20 3D 20 46 45 48 4C 45  52 43 4F 44 45 00 0A 21  | = FEHLERCODE..!|
00000130: 20 00 3B 00 2E 21 21 00  3B 46 45 48 4C 45 52 43  | .;..!!.;FEHLERC|
00000140: 4F 44 45 20 20 3D 20 30  30 2D 3E 20 4B 45 49 4E  |ODE  = 00-> KEIN|
00000150: 20 46 45 48 4C 45 52 00  59 21 22 00 3B 42 45 49  | FEHLER.Y!".;BEI|
00000160: 20 44 45 4E 20 44 43 2D  46 45 48 4C 45 52 43 4F  | DEN DC-FEHLERCO|
00000170: 44 53 20 35 2C 37 2C 39  2C 31 36 20 57 45 52 44  |DS 5,7,9,16 WERD|
00000180: 45 4E 00 78 21 23 00 3B  42 49 53 20 5A 55 20 35  |EN.x!#.;BIS ZU 5|
00000190: 20 56 45 52 53 55 43 48  45 20 47 45 4D 41 43 48  | VERSUCHE GEMACH|
000001A0: 54 00 7E 21 24 00 3B 00  A5 21 25 00 2E 45 51 20  |T.~!$.;..!%..EQ |
000001B0: 52 44 42 55 46 20 20 3D  20 24 30 33 30 30 20 20  |RDBUF  = $0300  |
000001C0: 20 20 20 3B 4C 45 53 45  50 55 46 46 45 52 00 D1  |   ;LESEPUFFER..|
000001D0: 21 26 00 2E 45 51 20 4E  52 44 54 52 41 20 3D 20  |!&..EQ NRDTRA = |
000001E0: 24 30 33 30 30 20 20 20  20 20 3B 4E 41 45 43 48  |$0300     ;NAECH|
000001F0: 53 54 45 52 20 54 52 41  43 4B 00 FE 21 27 00 2E  |STER TRACK..!'..|
00000200: 45 51 20 4E 52 44 53 45  43 20 3D 20 24 30 33 30  |EQ NRDSEC = $030|
00000210: 31 20 20 20 20 20 3B 4E  41 45 43 48 53 54 45 52  |1     ;NAECHSTER|
00000220: 20 53 45 43 54 4F 52 00  29 22 28 00 2E 45 51 20  | SECTOR.)"(..EQ |
00000230: 57 52 42 55 46 20 20 3D  20 24 30 34 30 30 20 20  |WRBUF  = $0400  |
00000240: 20 20 20 3B 53 43 48 52  45 49 42 2D 50 55 46 46  |   ;SCHREIB-PUFF|
00000250: 45 52 00 55 22 29 00 2E  45 51 20 4E 57 52 54 52  |ER.U")..EQ NWRTR|
00000260: 41 20 3D 20 24 30 34 30  30 20 20 20 20 20 3B 4E  |A = $0400     ;N|
00000270: 41 45 43 48 53 54 45 52  20 54 52 41 43 4B 00 82  |AECHSTER TRACK..|
00000280: 22 2A 00 2E 45 51 20 4E  57 52 53 45 43 20 3D 20  |"*..EQ NWRSEC = |
00000290: 24 30 34 30 31 20 20 20  20 20 3B 4E 41 45 43 48  |$0401     ;NAECH|
000002A0: 53 54 45 52 20 53 45 43  54 4F 52 00 AD 22 2B 00  |STER SECTOR.."+.|
000002B0: 2E 45 51 20 43 4F 4D 42  55 46 20 3D 20 24 30 34  |.EQ COMBUF = $04|
000002C0: 30 30 20 20 20 20 20 3B  42 45 46 45 48 4C 53 2D  |00     ;BEFEHLS-|
000002D0: 42 55 46 46 45 52 00 D6  22 2C 00 2E 45 51 20 54  |BUFFER..",..EQ T|
000002E0: 52 41 43 4B 20 20 3D 20  43 4F 4D 42 55 46 20 20  |RACK  = COMBUF  |
000002F0: 20 20 3B 41 4E 46 41 4E  53 2D 54 52 41 43 4B 00  |  ;ANFANS-TRACK.|
00000300: 01 23 2D 00 2E 45 51 20  53 45 43 54 4F 52 20 3D  |.#-..EQ SECTOR =|
00000310: 20 43 4F 4D 42 55 46 2B  31 20 20 3B 41 4E 46 41  | COMBUF+1  ;ANFA|
00000320: 4E 47 53 2D 53 45 43 54  4F 52 00 2E 23 2E 00 2E  |NGS-SECTOR..#...|
00000330: 45 51 20 44 53 50 4F 49  20 20 3D 20 43 4F 4D 42  |EQ DSPOI  = COMB|
00000340: 55 46 2B 32 20 20 3B 44  41 54 45 4E 53 41 54 5A  |UF+2  ;DATENSATZ|
00000350: 2D 50 4F 49 4E 54 2E 00  54 23 2F 00 2E 45 51 20  |-POINT..T#/..EQ |
00000360: 45 52 52 43 4F 44 20 3D  20 43 4F 4D 42 55 46 20  |ERRCOD = COMBUF |
00000370: 20 20 20 3B 45 52 52 4F  52 43 4F 44 45 00 6C 23  |   ;ERRORCODE.l#|
00000380: 30 00 3B 20 44 49 53 4B  20 2D 20 43 4F 4E 54 52  |0.; DISK - CONTR|
00000390: 4F 4C 4C 45 52 00 96 23  31 00 2E 45 51 20 41 54  |OLLER..#1..EQ AT|
000003A0: 52 41 30 20 20 3D 20 24  30 36 20 20 20 20 20 3B  |RA0  = $06     ;|
000003B0: 41 4B 54 2E 54 52 41 43  4B 20 42 55 46 2E 30 00  |AKT.TRACK BUF.0.|
000003C0: C2 23 32 00 2E 45 51 20  41 53 45 43 30 20 20 3D  |.#2..EQ ASEC0  =|
000003D0: 20 24 30 37 20 20 20 20  20 20 20 3B 41 4B 54 2E  | $07       ;AKT.|
000003E0: 53 45 43 54 2E 20 42 55  46 2E 30 00 EF 23 33 00  |SECT. BUF.0..#3.|
000003F0: 2E 45 51 20 44 43 43 4D  44 30 20 3D 20 24 30 30  |.EQ DCCMD0 = $00|
00000400: 20 20 20 20 20 20 20 3B  44 43 2D 43 4F 4D 4D 41  |       ;DC-COMMA|
00000410: 4E 44 20 42 55 46 2E 30  00 1B 24 34 00 2E 45 51  |ND BUF.0..$4..EQ|
00000420: 20 41 54 52 41 31 20 20  3D 20 24 30 38 20 20 20  | ATRA1  = $08   |
00000430: 20 20 20 20 3B 41 4B 54  2E 54 52 41 43 4B 20 42  |    ;AKT.TRACK B|
00000440: 55 46 2E 31 00 46 24 35  00 2E 45 51 20 41 53 45  |UF.1.F$5..EQ ASE|
00000450: 43 31 20 20 3D 20 24 30  39 20 20 20 20 20 20 20  |C1  = $09       |
00000460: 3B 41 4B 54 2E 53 45 43  2E 20 42 55 46 2E 31 00  |;AKT.SEC. BUF.1.|
00000470: 73 24 36 00 2E 45 51 20  44 43 43 4D 44 31 20 3D  |s$6..EQ DCCMD1 =|
00000480: 20 24 30 31 20 20 20 20  20 20 20 3B 44 43 2D 43  | $01       ;DC-C|
00000490: 4F 4D 4D 41 4E 44 20 42  55 46 2E 31 00 A0 24 37  |OMMAND BUF.1..$7|
000004A0: 00 2E 45 51 20 4C 45 44  52 45 47 20 3D 20 24 31  |..EQ LEDREG = $1|
000004B0: 43 30 30 20 20 20 20 20  3B 48 41 52 44 57 41 52  |C00     ;HARDWAR|
000004C0: 45 2D 52 45 47 49 53 54  2E 00 C9 24 38 00 2E 45  |E-REGIST...$8..E|
000004D0: 51 20 52 44 43 4D 44 20  20 3D 20 24 38 30 20 20  |Q RDCMD  = $80  |
000004E0: 20 20 20 20 20 3B 52 45  41 44 2D 43 4F 4D 4D 41  |     ;READ-COMMA|
000004F0: 4E 44 00 F3 24 39 00 2E  45 51 20 57 52 43 4D 44  |ND..$9..EQ WRCMD|
00000500: 20 20 3D 20 24 39 30 20  20 20 20 20 20 20 3B 57  |  = $90       ;W|
00000510: 52 49 54 45 2D 43 4F 4D  4D 41 4E 44 00 17 25 3A  |RITE-COMMAND..%:|
00000520: 00 2E 45 51 20 4C 45 44  4F 4E 20 20 3D 20 24 30  |..EQ LEDON  = $0|
00000530: 38 20 20 20 20 20 20 20  3B 4C 45 44 2D 42 49 54  |8       ;LED-BIT|
00000540: 00 25 25 3B 00 2E 42 41  20 24 30 35 30 30 00 38  |.%%;..BA $0500.8|
00000550: 25 3C 00 53 54 41 52 54  20 4C 44 41 54 52 41 43  |%<.START LDATRAC|
00000560: 4B 00 47 25 3D 00 20 4C  44 58 53 45 43 54 4F 52  |K.G%=. LDXSECTOR|
00000570: 00 55 25 3E 00 20 4C 44  59 44 53 50 4F 49 00 64  |.U%>. LDYDSPOI.d|
00000580: 25 3F 00 20 53 54 59 50  4F 49 53 41 56 00 88 25  |%?. STYPOISAV..%|
00000590: 40 00 3B 44 41 54 45 4E  42 4C 4F 43 4B 20 49 4E  |@.;DATENBLOCK IN|
000005A0: 20 4C 45 53 45 50 55 46  46 45 52 20 48 4F 4C 45  | LESEPUFFER HOLE|
000005B0: 4E 00 96 25 41 00 20 53  54 41 41 54 52 41 30 00  |N..%A. STAATRA0.|
000005C0: A4 25 42 00 20 53 54 58  41 53 45 43 30 00 AF 25  |.%B. STXASEC0..%|
000005D0: 43 00 20 4C 44 41 23 35  00 CC 25 44 00 20 53 54  |C. LDA#5..%D. ST|
000005E0: 41 52 45 54 4E 55 4D 3B  41 4E 5A 41 48 4C 20 52  |ARETNUM;ANZAHL R|
000005F0: 45 54 52 59 53 00 E6 25  45 00 20 4C 44 41 23 30  |ETRYS..%E. LDA#0|
00000600: 3B 45 4E 44 50 4F 49 4E  54 45 52 20 41 55 46 00  |;ENDPOINTER AUF.|
00000610: FF 25 46 00 20 53 54 41  45 4E 44 50 4F 49 3B 42  |.%F. STAENDPOI;B|
00000620: 4C 4F 43 4B 45 4E 44 45  00 1B 26 47 00 20 53 54  |LOCKENDE..&G. ST|
00000630: 41 50 55 54 50 4F 49 3B  42 4C 4F 43 4B 50 4F 49  |APUTPOI;BLOCKPOI|
00000640: 4E 54 45 52 00 2A 26 48  00 20 53 54 41 47 45 54  |NTER.*&H. STAGET|
00000650: 50 4F 49 00 39 26 49 00  20 4C 44 41 4C 45 44 52  |POI.9&I. LDALEDR|
00000660: 45 47 00 48 26 4A 00 20  4F 52 41 23 4C 45 44 4F  |EG.H&J. ORA#LEDO|
00000670: 4E 00 5F 26 4B 00 20 53  54 41 4C 45 44 52 45 47  |N._&K. STALEDREG|
00000680: 3B 4C 45 44 20 45 49 4E  00 74 26 4C 00 52 45 54  |;LED EIN.t&L.RET|
00000690: 52 59 31 20 4C 44 41 23  52 44 43 4D 44 00 83 26  |RY1 LDA#RDCMD..&|
000006A0: 4D 00 20 53 54 41 44 43  43 4D 44 30 00 A4 26 4E  |M. STADCCMD0..&N|
000006B0: 00 57 41 49 54 31 20 4C  44 41 44 43 43 4D 44 30  |.WAIT1 LDADCCMD0|
000006C0: 3B 46 45 52 54 49 47 20  50 52 49 4E 54 00 BE 26  |;FERTIG PRINT..&|
000006D0: 4F 00 20 42 4D 49 57 41  49 54 31 3B 4E 45 49 4E  |O. BMIWAIT1;NEIN|
000006E0: 2C 57 41 52 54 45 4E 00  D6 26 50 00 20 43 4D 50  |,WARTEN..&P. CMP|
000006F0: 23 31 3B 46 45 48 4C 45  52 20 50 52 49 4E 54 00  |#1;FEHLER PRINT.|
00000700: F1 26 51 00 20 42 45 51  4E 4F 45 52 52 31 3B 4E  |.&Q. BEQNOERR1;N|
00000710: 45 49 4E 2C 57 45 49 54  45 52 00 00 27 52 00 20  |EIN,WEITER..'R. |
00000720: 53 54 41 45 52 52 53 41  56 00 23 27 53 00 20 4A  |STAERRSAV.#'S. J|
00000730: 53 52 54 53 54 52 54 59  3B 52 45 54 52 59 20 4D  |SRTSTRTY;RETRY M|
00000740: 4F 45 47 4C 49 43 48 50  52 49 4E 54 00 3D 27 54  |OEGLICHPRINT.='T|
00000750: 00 20 42 43 43 45 52 52  45 58 49 3B 4E 45 49 4E  |. BCCERREXI;NEIN|
00000760: 2C 45 4E 44 45 35 00 5A  27 55 00 20 42 43 53 52  |,ENDE5.Z'U. BCSR|
00000770: 45 54 52 59 31 3B 4A 41  2C 41 55 53 46 55 45 48  |ETRY1;JA,AUSFUEH|
00000780: 52 45 4E 00 76 27 56 00  3B 42 4C 4F 43 4B 20 49  |REN.v'V.;BLOCK I|
00000790: 4E 20 53 43 48 52 45 49  42 50 55 46 46 45 52 00  |N SCHREIBPUFFER.|
000007A0: 84 27 57 00 3B 4B 4F 50  49 45 52 45 4E 00 A9 27  |.'W.;KOPIEREN..'|
000007B0: 58 00 4E 4F 45 52 52 31  20 4A 53 52 50 55 54 42  |X.NOERR1 JSRPUTB|
000007C0: 4C 4B 3B 42 4C 4F 43 4B  50 4F 49 4E 54 45 52 20  |LK;BLOCKPOINTER |
000007D0: 49 4E 00 BA 27 59 00 3B  52 49 4E 47 2D 50 55 46  |IN..'Y.;RING-PUF|
000007E0: 46 45 52 00 D8 27 5A 00  20 4C 44 41 4E 52 44 54  |FER..'Z. LDANRDT|
000007F0: 52 41 3B 45 4E 44 42 4C  4F 43 4B 20 50 52 49 4E  |RA;ENDBLOCK PRIN|
00000800: 54 00 EC 27 5B 00 20 42  4E 45 4E 45 4E 44 42 4C  |T..'[. BNENENDBL|
00000810: 3B 4E 45 49 4E 00 09 28  5C 00 20 4C 44 41 4E 52  |;NEIN..(\. LDANR|
00000820: 44 53 45 43 3B 4A 41 2C  45 4E 44 50 4F 49 4E 54  |DSEC;JA,ENDPOINT|
00000830: 45 52 00 1F 28 5D 00 20  53 54 41 45 4E 44 50 4F  |ER..(]. STAENDPO|
00000840: 49 3B 53 45 54 5A 45 4E  00 30 28 5E 00 4E 45 4E  |I;SETZEN.0(^.NEN|
00000850: 44 42 4C 20 4C 44 58 23  32 00 46 28 5F 00 43 4F  |DBL LDX#2.F(_.CO|
00000860: 50 4C 50 31 20 4C 44 41  52 44 42 55 46 2C 58 00  |PLP1 LDARDBUF,X.|
00000870: 56 28 60 00 20 53 54 41  57 52 42 55 46 2C 58 00  |V(`. STAWRBUF,X.|
00000880: 5F 28 61 00 20 49 4E 58  00 6E 28 62 00 20 42 4E  |_(a. INX.n(b. BN|
00000890: 45 43 4F 50 4C 50 31 00  98 28 63 00 3B 4C 45 53  |ECOPLP1..(c.;LES|
000008A0: 45 2D 50 4F 49 4E 54 45  52 20 41 55 46 20 4E 41  |E-POINTER AUF NA|
000008B0: 45 43 48 53 54 45 4E 20  44 41 54 45 4E 53 41 54  |ECHSTEN DATENSAT|
000008C0: 5A 00 A5 28 64 00 3B 52  49 43 48 54 45 4E 00 B4  |Z..(d.;RICHTEN..|
000008D0: 28 65 00 20 4C 44 59 50  4F 49 53 41 56 00 C7 28  |(e. LDYPOISAV..(|
000008E0: 66 00 4C 50 31 20 4C 44  41 52 44 42 55 46 2C 59  |f.LP1 LDARDBUF,Y|
000008F0: 00 D6 28 67 00 20 42 45  51 45 4E 44 44 41 54 00  |..(g. BEQENDDAT.|
00000900: DF 28 68 00 20 49 4E 59  00 EB 28 69 00 20 42 4E  |.(h. INY..(i. BN|
00000910: 45 4C 50 31 00 0A 29 6A  00 20 4A 53 52 4E 52 44  |ELP1..)j. JSRNRD|
00000920: 42 4C 4B 3B 4E 41 45 43  48 53 54 45 52 20 42 4C  |BLK;NAECHSTER BL|
00000930: 4F 43 4B 00 25 29 6B 00  20 42 43 53 45 52 52 45  |OCK.%)k. BCSERRE|
00000940: 58 49 3B 4B 45 49 4E 20  46 45 48 4C 45 52 00 34  |XI;KEIN FEHLER.4|
00000950: 29 6C 00 20 4A 53 52 50  55 54 42 4C 4B 00 3F 29  |)l. JSRPUTBLK.?)|
00000960: 6D 00 20 4C 44 59 23 32  00 4B 29 6E 00 20 42 4E  |m. LDY#2.K)n. BN|
00000970: 45 4C 50 31 00 60 29 6F  00 3B 45 4E 44 45 20 42  |ELP1.`)o.;ENDE B|
00000980: 45 49 20 46 45 48 4C 45  52 00 75 29 70 00 45 52  |EI FEHLER.u)p.ER|
00000990: 52 45 58 49 20 4C 44 41  45 52 52 53 41 56 00 84  |REXI LDAERRSAV..|
000009A0: 29 71 00 20 53 54 41 45  52 52 43 4F 44 00 8D 29  |)q. STAERRCOD..)|
000009B0: 72 00 20 52 54 53 00 9C  29 73 00 45 4E 44 44 41  |r. RTS..)s.ENDDA|
000009C0: 54 20 54 59 41 00 A5 29  74 00 20 43 4C 43 00 B0  |T TYA..)t. CLC..|
000009D0: 29 75 00 20 41 44 43 23  36 00 B9 29 76 00 20 54  |)u. ADC#6..)v. T|
000009E0: 41 59 00 C8 29 77 00 20  42 43 43 50 4F 49 52 44  |AY..)w. BCCPOIRD|
000009F0: 59 00 D7 29 78 00 20 4A  53 52 4E 52 44 42 4C 4B  |Y..)x. JSRNRDBLK|
00000A00: 00 E6 29 79 00 20 42 43  53 45 52 52 45 58 49 00  |..)y. BCSERREXI.|
00000A10: F5 29 7A 00 20 4A 53 52  50 55 54 42 4C 4B 00 FE  |.)z. JSRPUTBLK..|
00000A20: 29 7B 00 20 49 4E 59 00  07 2A 7C 00 20 49 4E 59  |){. INY..*|. INY|
00000A30: 00 1E 2A 7D 00 3B 4C 45  53 45 2D 50 4F 49 4E 54  |..*}.;LESE-POINT|
00000A40: 45 52 20 49 4E 20 59 00  3A 2A 7E 00 3B 4A 45 54  |ER IN Y.:*~.;JET|
00000A50: 5A 54 20 44 41 54 45 4E  55 4D 53 43 48 41 55 46  |ZT DATENUMSCHAUF|
00000A60: 45 4C 4E 00 5F 2A 7F 00  50 4F 49 52 44 59 20 4C  |ELN._*..POIRDY L|
00000A70: 44 58 50 4F 49 53 41 56  3B 53 43 48 52 45 49 42  |DXPOISAV;SCHREIB|
00000A80: 2D 50 4F 49 4E 54 45 52  00 82 2A 80 00 20 4C 44  |-POINTER..*.. LD|
00000A90: 41 4E 52 44 54 52 41 3B  4C 45 54 5A 54 45 52 20  |ANRDTRA;LETZTER |
00000AA0: 42 4C 4F 43 4B 20 50 52  49 4E 54 00 95 2A 81 00  |BLOCK PRINT..*..|
00000AB0: 20 42 4E 45 43 4F 50 4C  50 3B 4E 45 49 4E 00 B7  | BNECOPLP;NEIN..|
00000AC0: 2A 82 00 20 43 50 59 4E  52 44 53 45 43 3B 4C 45  |*.. CPYNRDSEC;LE|
00000AD0: 54 5A 54 45 53 20 42 59  54 45 20 50 52 49 4E 54  |TZTES BYTE PRINT|
00000AE0: 00 CE 2A 83 00 20 42 43  53 57 52 4C 42 4C 4B 3B  |..*.. BCSWRLBLK;|
00000AF0: 4A 41 2C 45 4E 44 45 00  E3 2A 84 00 43 4F 50 4C  |JA,ENDE..*..COPL|
00000B00: 50 20 4C 44 41 52 44 42  55 46 2C 59 00 F3 2A 85  |P LDARDBUF,Y..*.|
00000B10: 00 20 53 54 41 57 52 42  55 46 2C 58 00 15 2B 86  |. STAWRBUF,X..+.|
00000B20: 00 20 43 50 59 45 4E 44  50 4F 49 3B 4C 45 54 5A  |. CPYENDPOI;LETZ|
00000B30: 54 45 53 20 42 59 54 45  20 50 52 49 4E 54 00 30  |TES BYTE PRINT.0|
00000B40: 2B 87 00 20 42 45 51 57  52 45 42 4C 4B 3B 4A 41  |+.. BEQWREBLK;JA|
00000B50: 2C 45 4E 44 42 4C 4F 43  4B 00 4E 2B 88 00 20 49  |,ENDBLOCK.N+.. I|
00000B60: 4E 59 3B 4C 45 53 45 2D  42 4C 4F 43 4B 20 45 4E  |NY;LESE-BLOCK EN|
00000B70: 44 45 50 52 49 4E 54 00  62 2B 89 00 20 42 4E 45  |DEPRINT.b+.. BNE|
00000B80: 4E 4E 42 4C 4B 31 3B 4E  45 49 4E 00 82 2B 8A 00  |NNBLK1;NEIN..+..|
00000B90: 20 4A 53 52 4E 52 44 42  4C 4B 3B 4E 45 55 45 52  | JSRNRDBLK;NEUER|
00000BA0: 20 4C 45 53 45 2D 42 4C  4F 43 4B 00 9E 2B 8B 00  | LESE-BLOCK..+..|
00000BB0: 20 42 43 53 45 52 52 45  58 49 3B 46 45 48 4C 45  | BCSERREXI;FEHLE|
00000BC0: 52 20 50 52 49 4E 54 00  AD 2B 8C 00 20 4A 53 52  |R PRINT..+.. JSR|
00000BD0: 50 55 54 42 4C 4B 00 B8  2B 8D 00 20 4C 44 59 23  |PUTBLK..+.. LDY#|
00000BE0: 32 00 D6 2B 8E 00 4E 4E  42 4C 4B 31 20 49 4E 58  |2..+..NNBLK1 INX|
00000BF0: 3B 53 43 48 52 45 49 42  2D 42 4C 4F 43 4B 2D 00  |;SCHREIB-BLOCK-.|
00000C00: E6 2B 8F 00 3B 45 4E 44  45 20 50 52 49 4E 54 00  |.+..;ENDE PRINT.|
00000C10: 00 2C 90 00 20 42 4E 45  43 4F 50 4C 50 3B 4E 45  |.,.. BNECOPLP;NE|
00000C20: 49 4E 2C 57 45 49 54 45  52 00 23 2C 91 00 20 4A  |IN,WEITER.#,.. J|
00000C30: 53 52 47 45 54 42 4C 4B  3B 42 4C 4F 43 4B 2D 50  |SRGETBLK;BLOCK-P|
00000C40: 4F 49 4E 54 45 52 20 48  4F 4C 45 4E 00 45 2C 92  |OINTER HOLEN.E,.|
00000C50: 00 20 4A 53 52 57 52 54  42 4C 4B 3B 4A 41 2C 42  |. JSRWRTBLK;JA,B|
00000C60: 4C 4F 43 4B 20 53 43 48  52 45 49 42 45 4E 00 60  |LOCK SCHREIBEN.`|
00000C70: 2C 93 00 20 42 43 43 43  4F 50 4C 50 3B 46 45 48  |,.. BCCCOPLP;FEH|
00000C80: 4C 45 52 20 50 52 49 4E  54 00 6F 2C 94 00 20 42  |LER PRINT.o,.. B|
00000C90: 43 53 45 52 52 45 58 49  00 8D 2C 95 00 3B 4C 45  |CSERREXI..,..;LE|
00000CA0: 54 5A 54 45 4E 20 42 4C  4F 43 4B 20 53 43 48 52  |TZTEN BLOCK SCHR|
00000CB0: 45 49 42 45 4E 2C 00 9C  2C 96 00 3B 44 41 4E 4E  |EIBEN,..,..;DANN|
00000CC0: 20 45 4E 44 45 00 AB 2C  97 00 57 52 4C 42 4C 4B  | ENDE..,..WRLBLK|
00000CD0: 20 44 45 58 00 C0 2C 98  00 57 52 45 42 4C 4B 20  | DEX..,..WREBLK |
00000CE0: 4A 53 52 47 45 54 42 4C  4B 00 CB 2C 99 00 20 4C  |JSRGETBLK..,.. L|
00000CF0: 44 41 23 30 00 DA 2C 9A  00 20 53 54 41 4E 57 52  |DA#0..,.. STANWR|
00000D00: 54 52 41 00 E9 2C 9B 00  20 53 54 58 4E 57 52 53  |TRA..,.. STXNWRS|
00000D10: 45 43 00 F8 2C 9C 00 20  4A 53 52 57 52 54 42 4C  |EC..,.. JSRWRTBL|
00000D20: 4B 00 07 2D 9D 00 20 42  43 53 45 52 52 45 58 49  |K..-.. BCSERREXI|
00000D30: 00 12 2D 9E 00 20 4C 44  41 23 30 00 21 2D 9F 00  |..-.. LDA#0.!-..|
00000D40: 20 53 54 41 45 52 52 43  4F 44 00 30 2D A0 00 20  | STAERRCOD.0-.. |
00000D50: 4C 44 41 4C 45 44 52 45  47 00 4B 2D A1 00 20 41  |LDALEDREG.K-.. A|
00000D60: 4E 44 23 24 46 37 3B 41  4E 44 20 4E 4F 54 20 4C  |ND#$F7;AND NOT L|
00000D70: 45 44 4F 4E 00 62 2D A2  00 20 53 54 41 4C 45 44  |EDON.b-.. STALED|
00000D80: 52 45 47 3B 4C 45 44 20  41 55 53 00 6B 2D A3 00  |REG;LED AUS.k-..|
00000D90: 20 52 54 53 00 91 2D A4  00 3B 2A 2A 2A 2A 2A 2A  | RTS..-..;******|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 A2 2D A5 00 3B  |**********..-..;|
00000DC0: 53 55 42 52 4F 55 54 49  4E 45 53 00 C8 2D A6 00  |SUBROUTINES..-..|
00000DD0: 3B 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |;***************|
00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000DF0: 2A 00 EB 2D A7 00 3B 4E  41 45 43 48 53 54 45 52  |*..-..;NAECHSTER|
00000E00: 20 42 4C 4F 43 4B 20 46  55 45 52 20 42 55 46 46  | BLOCK FUER BUFF|
00000E10: 45 52 20 30 00 0F 2E A8  00 3B 43 20 3D 20 30 20  |ER 0.....;C = 0 |
00000E20: 2D 3E 20 4F 2E 4B 2E 20  20 43 20 3D 20 31 20 2D  |-> O.K.  C = 1 -|
00000E30: 3E 20 46 45 48 4C 45 52  00 20 2E A9 00 4E 52 44  |> FEHLER. ...NRD|
00000E40: 42 4C 4B 20 4C 44 41 23  35 00 2F 2E AA 00 20 53  |BLK LDA#5./... S|
00000E50: 54 41 52 45 54 4E 55 4D  00 54 2E AB 00 4E 52 44  |TARETNUM.T...NRD|
00000E60: 42 4C 31 20 4C 44 41 4E  52 44 54 52 41 3B 4E 41  |BL1 LDANRDTRA;NA|
00000E70: 45 43 48 53 54 45 52 20  54 52 41 43 4B 00 73 2E  |ECHSTER TRACK.s.|
00000E80: AC 00 20 42 45 51 45 4E  44 42 4C 4B 3B 3D 20 30  |.. BEQENDBLK;= 0|
00000E90: 20 2D 3E 20 45 4E 44 42  4C 4F 43 4B 00 81 2E AD  | -> ENDBLOCK....|
00000EA0: 00 20 53 54 41 41 54 52  41 30 00 90 2E AE 00 20  |. STAATRA0..... |
00000EB0: 4C 44 41 4E 52 44 53 45  43 00 9E 2E AF 00 20 53  |LDANRDSEC..... S|
00000EC0: 54 41 41 53 45 43 30 00  B5 2E B0 00 20 4C 44 41  |TAASEC0..... LDA|
00000ED0: 23 52 44 43 4D 44 3B 43  4F 4D 4D 41 4E 44 00 CB  |#RDCMD;COMMAND..|
00000EE0: 2E B1 00 20 53 54 41 44  43 43 4D 44 30 3B 53 45  |... STADCCMD0;SE|
00000EF0: 4E 44 45 4E 00 EC 2E B2  00 57 41 49 54 33 20 4C  |NDEN.....WAIT3 L|
00000F00: 44 41 44 43 43 4D 44 30  3B 46 45 52 54 49 47 20  |DADCCMD0;FERTIG |
00000F10: 50 52 49 4E 54 00 FA 2E  B3 00 20 42 4D 49 57 41  |PRINT..... BMIWA|
00000F20: 49 54 33 00 0F 2F B4 00  20 43 4D 50 23 31 3B 4F  |IT3../.. CMP#1;O|
00000F30: 2E 4B 2E 50 52 49 4E 54  00 1D 2F B5 00 20 42 4E  |.K.PRINT../.. BN|
00000F40: 45 52 44 45 52 52 00 3B  2F B6 00 20 4C 44 41 4E  |ERDERR.;/.. LDAN|
00000F50: 52 44 54 52 41 3B 45 4E  44 42 4C 4F 43 4B 20 50  |RDTRA;ENDBLOCK P|
00000F60: 52 49 4E 54 00 49 2F B7  00 20 42 4E 45 4E 45 4E  |RINT.I/.. BNENEN|
00000F70: 44 4D 00 66 2F B8 00 20  4C 44 41 4E 52 44 53 45  |DM.f/.. LDANRDSE|
00000F80: 43 3B 4A 41 2C 45 4E 44  50 4F 49 4E 54 45 52 00  |C;JA,ENDPOINTER.|
00000F90: 7C 2F B9 00 20 53 54 41  45 4E 44 50 4F 49 3B 53  ||/.. STAENDPOI;S|
00000FA0: 45 54 5A 45 4E 00 96 2F  BA 00 4E 45 4E 44 4D 20  |ETZEN../..NENDM |
00000FB0: 43 4C 43 3B 4B 45 49 4E  20 46 45 48 4C 45 52 00  |CLC;KEIN FEHLER.|
00000FC0: 9F 2F BB 00 20 52 54 53  00 B3 2F BC 00 52 44 45  |./.. RTS../..RDE|
00000FD0: 52 52 20 53 54 41 45 52  52 53 41 56 00 CE 2F BD  |RR STAERRSAV../.|
00000FE0: 00 20 4A 53 52 54 53 54  52 54 59 3B 52 45 54 52  |. JSRTSTRTY;RETR|
00000FF0: 59 20 50 52 49 4E 54 00  E0 2F BE 00 20 42 43 53  |Y PRINT../.. BCS|
00001000: 4E 52 44 42 4C 31 3B 4A  41 00 E9 2F BF 00 20 53  |NRDBL1;JA../.. S|
00001010: 45 43 00 FE 2F C0 00 20  52 54 53 3B 4E 45 49 4E  |EC../.. RTS;NEIN|
00001020: 2C 46 45 48 4C 45 52 00  10 30 C1 00 45 4E 44 42  |,FEHLER..0..ENDB|
00001030: 4C 4B 20 4C 44 41 23 39  39 00 1F 30 C2 00 20 53  |LK LDA#99..0.. S|
00001040: 54 41 45 52 52 53 41 56  00 28 30 C3 00 20 53 45  |TAERRSAV.(0.. SE|
00001050: 43 00 31 30 C4 00 20 52  54 53 00 57 30 C5 00 3B  |C.10.. RTS.W0..;|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001070: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001080: 00 79 30 C6 00 3B 42 4C  4F 43 4B 20 41 55 53 20  |.y0..;BLOCK AUS |
00001090: 50 55 46 46 45 52 20 31  20 53 43 48 52 45 49 42  |PUFFER 1 SCHREIB|
000010A0: 45 4E 00 9F 30 C7 00 3B  2A 2A 2A 2A 2A 2A 2A 2A  |EN..0..;********|
000010B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000010C0: 2A 2A 2A 2A 2A 2A 2A 2A  00 B0 30 C8 00 57 52 54  |********..0..WRT|
000010D0: 42 4C 4B 20 4C 44 41 23  35 00 BF 30 C9 00 20 53  |BLK LDA#5..0.. S|
000010E0: 54 41 52 45 54 4E 55 4D  00 D4 30 CA 00 57 52 54  |TARETNUM..0..WRT|
000010F0: 52 45 54 20 4C 44 41 23  57 52 43 4D 44 00 E3 30  |RET LDA#WRCMD..0|
00001100: CB 00 20 53 54 41 44 43  43 4D 44 31 00 F7 30 CC  |.. STADCCMD1..0.|
00001110: 00 57 41 49 54 34 20 4C  44 41 44 43 43 4D 44 31  |.WAIT4 LDADCCMD1|
00001120: 00 05 31 CD 00 20 42 4D  49 57 41 49 54 34 00 1A  |..1.. BMIWAIT4..|
00001130: 31 CE 00 20 43 4D 50 23  31 3B 4F 2E 4B 2E 50 52  |1.. CMP#1;O.K.PR|
00001140: 49 4E 54 00 27 31 CF 00  20 42 4E 45 57 45 52 52  |INT.'1.. BNEWERR|
00001150: 00 40 31 D0 00 20 4C 44  58 23 32 3B 4E 45 55 45  |.@1.. LDX#2;NEUE|
00001160: 52 20 50 4F 49 4E 54 45  52 00 51 31 D1 00 20 43  |R POINTER.Q1.. C|
00001170: 4C 43 3B 4A 41 2C 45 4E  44 45 00 5A 31 D2 00 20  |LC;JA,ENDE.Z1.. |
00001180: 52 54 53 00 6D 31 D3 00  57 45 52 52 20 53 54 41  |RTS.m1..WERR STA|
00001190: 45 52 52 53 41 56 00 88  31 D4 00 20 4A 53 52 54  |ERRSAV..1.. JSRT|
000011A0: 53 54 52 54 59 3B 52 45  54 52 59 20 50 52 49 4E  |STRTY;RETRY PRIN|
000011B0: 54 00 9A 31 D5 00 20 42  43 53 57 52 54 52 45 54  |T..1.. BCSWRTRET|
000011C0: 3B 4A 41 00 A3 31 D6 00  20 53 45 43 00 B8 31 D7  |;JA..1.. SEC..1.|
000011D0: 00 20 52 54 53 3B 4E 45  49 4E 2C 46 45 48 4C 45  |. RTS;NEIN,FEHLE|
000011E0: 52 00 DE 31 D8 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |R..1..;*********|
000011F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001200: 2A 2A 2A 2A 2A 2A 2A 00  02 32 D9 00 3B 52 4F 55  |*******..2..;ROU|
00001210: 54 49 4E 45 20 54 53 54  52 54 59 20 54 45 53 54  |TINE TSTRTY TEST|
00001220: 45 54 20 4F 42 20 52 45  54 52 59 00 28 32 DA 00  |ET OB RETRY.(2..|
00001230: 3B 4D 4F 45 47 4C 49 43  48 20 20 43 3D 31 20 2D  |;MOEGLICH  C=1 -|
00001240: 3E 20 4A 41 2C 20 43 3D  30 20 2D 3E 20 4E 45 49  |> JA, C=0 -> NEI|
00001250: 4E 00 4E 32 DB 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |N.N2..;*********|
00001260: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001270: 2A 2A 2A 2A 2A 2A 2A 00  5D 32 DC 00 54 53 54 52  |*******.]2..TSTR|
00001280: 54 59 20 54 58 41 00 66  32 DD 00 20 50 48 41 00  |TY TXA.f2.. PHA.|
00001290: 7E 32 DE 00 20 4C 44 58  23 33 3B 46 45 48 4C 45  |~2.. LDX#3;FEHLE|
000012A0: 52 20 35 2C 37 2C 39 00  8D 32 DF 00 20 4C 44 41  |R 5,7,9..2.. LDA|
000012B0: 45 52 52 53 41 56 00 B2  32 E0 00 54 53 54 4C 50  |ERRSAV..2..TSTLP|
000012C0: 31 20 43 4D 50 45 52 52  54 41 42 2C 58 3B 4F 44  |1 CMPERRTAB,X;OD|
000012D0: 45 52 20 31 36 20 50 52  49 4E 54 00 C1 32 E1 00  |ER 16 PRINT..2..|
000012E0: 20 42 45 51 4F 4B 31 3B  4A 41 00 CA 32 E2 00 20  | BEQOK1;JA..2.. |
000012F0: 44 45 58 00 D9 32 E3 00  20 42 50 4C 54 53 54 4C  |DEX..2.. BPLTSTL|
00001300: 50 31 00 E7 32 E4 00 4E  4F 52 54 59 20 50 4C 41  |P1..2..NORTY PLA|
00001310: 00 F0 32 E5 00 20 54 41  58 00 FE 32 E6 00 20 43  |..2.. TAX..2.. C|
00001320: 4C 43 3B 4E 45 49 4E 00  07 33 E7 00 20 52 54 53  |LC;NEIN..3.. RTS|
00001330: 00 2D 33 E8 00 4F 4B 31  20 44 45 43 52 45 54 4E  |.-3..OK1 DECRETN|
00001340: 55 4D 3B 53 43 48 4F 4E  20 35 20 52 45 54 52 59  |UM;SCHON 5 RETRY|
00001350: 53 50 52 49 4E 54 00 43  33 E9 00 20 42 45 51 4E  |SPRINT.C3.. BEQN|
00001360: 4F 52 54 59 3B 4A 41 2C  45 4E 44 45 00 4C 33 EA  |ORTY;JA,ENDE.L3.|
00001370: 00 20 50 4C 41 00 55 33  EB 00 20 54 41 58 00 72  |. PLA.U3.. TAX.r|
00001380: 33 EC 00 20 53 45 43 3B  4E 45 49 4E 2C 52 45 54  |3.. SEC;NEIN,RET|
00001390: 52 59 20 4D 4F 45 47 4C  49 43 48 00 7B 33 ED 00  |RY MOEGLICH.{3..|
000013A0: 20 52 54 53 00 A1 33 EE  00 3B 2A 2A 2A 2A 2A 2A  | RTS..3..;******|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 CB 33 EF 00 3B  |**********..3..;|
000013D0: 50 55 54 42 4C 4B 20 53  43 48 52 45 49 42 54 20  |PUTBLK SCHREIBT |
000013E0: 54 52 41 43 4B 2C 53 45  4B 54 4F 52 20 55 4E 44  |TRACK,SEKTOR UND|
000013F0: 20 44 49 45 00 F3 33 F0  00 3B 4C 49 4E 4B 45 52  | DIE..3..;LINKER|
00001400: 20 44 45 53 20 41 4B 54  55 45 4C 4C 45 4E 20 42  | DES AKTUELLEN B|
00001410: 4C 4F 43 4B 53 20 49 4E  20 44 45 4E 00 05 34 F1  |LOCKS IN DEN..4.|
00001420: 00 3B 52 49 4E 47 2D 50  55 46 46 45 52 2E 00 2B  |.;RING-PUFFER..+|
00001430: 34 F2 00 3B 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |4..; ***********|
00001440: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001450: 2A 2A 2A 2A 00 3A 34 F3  00 50 55 54 42 4C 4B 20  |****.:4..PUTBLK |
00001460: 54 58 41 00 43 34 F4 00  20 50 48 41 00 52 34 F5  |TXA.C4.. PHA.R4.|
00001470: 00 20 4C 44 58 50 55 54  50 4F 49 00 60 34 F6 00  |. LDXPUTPOI.`4..|
00001480: 20 4C 44 41 41 54 52 41  30 00 73 34 F7 00 20 53  | LDAATRA0.s4.. S|
00001490: 54 41 52 49 4E 42 55 46  2C 58 3B 58 00 7C 34 F8  |TARINBUF,X;X.|4.|
000014A0: 00 20 49 4E 58 00 8A 34  F9 00 20 4C 44 41 41 53  |. INX..4.. LDAAS|
000014B0: 45 43 30 00 9F 34 FA 00  20 53 54 41 52 49 4E 42  |EC0..4.. STARINB|
000014C0: 55 46 2C 58 3B 58 2B 31  00 A8 34 FB 00 20 49 4E  |UF,X;X+1..4.. IN|
000014D0: 58 00 B7 34 FC 00 20 4C  44 41 4E 52 44 54 52 41  |X..4.. LDANRDTRA|
000014E0: 00 CC 34 FD 00 20 53 54  41 52 49 4E 42 55 46 2C  |..4.. STARINBUF,|
000014F0: 58 3B 58 2B 32 00 DB 34  FE 00 20 4C 44 41 4E 52  |X;X+2..4.. LDANR|
00001500: 44 53 45 43 00 F2 34 FF  00 20 53 54 41 52 49 4E  |DSEC..4.. STARIN|
00001510: 42 55 46 2B 31 2C 58 3B  58 2B 33 00 FD 34 00 01  |BUF+1,X;X+3..4..|
00001520: 20 43 50 58 23 36 00 0B  35 01 01 20 42 4E 45 50  | CPX#6..5.. BNEP|
00001530: 55 54 4C 42 00 16 35 02  01 20 4C 44 58 23 30 00  |UTLB..5.. LDX#0.|
00001540: 32 35 03 01 50 55 54 4C  42 20 53 54 58 50 55 54  |25..PUTLB STXPUT|
00001550: 50 4F 49 3B 58 20 3D 20  58 20 2B 00 3B 35 04 01  |POI;X = X +.;5..|
00001560: 20 50 4C 41 00 44 35 05  01 20 54 41 58 00 4D 35  | PLA.D5.. TAX.M5|
00001570: 06 01 20 52 54 53 00 73  35 07 01 3B 2A 2A 2A 2A  |.. RTS.s5..;****|
00001580: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001590: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 9C 35 08  |************..5.|
000015A0: 01 3B 47 45 54 42 4C 4B  20 48 4F 4C 54 20 44 49  |.;GETBLK HOLT DI|
000015B0: 45 20 44 41 54 45 4E 20  44 45 53 20 4E 41 45 43  |E DATEN DES NAEC|
000015C0: 48 53 54 45 4E 00 BC 35  09 01 3B 42 4C 4F 43 4B  |HSTEN..5..;BLOCK|
000015D0: 53 20 41 55 53 20 44 45  4D 20 52 49 4E 47 2D 50  |S AUS DEM RING-P|
000015E0: 55 46 46 45 52 00 E2 35  0A 01 3B 2A 2A 2A 2A 2A  |UFFER..5..;*****|
000015F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001600: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 F1 35 0B 01  |***********..5..|
00001610: 47 45 54 42 4C 4B 20 54  58 41 00 FA 35 0C 01 20  |GETBLK TXA..5.. |
00001620: 50 48 41 00 09 36 0D 01  20 4C 44 58 47 45 54 50  |PHA..6.. LDXGETP|
00001630: 4F 49 00 2A 36 0E 01 20  4C 44 41 52 49 4E 42 55  |OI.*6.. LDARINBU|
00001640: 46 2C 58 3B 58 20 20 20  20 3B 41 4B 54 2E 54 52  |F,X;X    ;AKT.TR|
00001650: 41 43 4B 00 38 36 0F 01  20 53 54 41 41 54 52 41  |ACK.86.. STAATRA|
00001660: 31 00 41 36 10 01 20 49  4E 58 00 62 36 11 01 20  |1.A6.. INX.b6.. |
00001670: 4C 44 41 52 49 4E 42 55  46 2C 58 3B 58 2B 31 20  |LDARINBUF,X;X+1 |
00001680: 20 3B 41 4B 54 2E 53 45  43 54 2E 00 70 36 12 01  | ;AKT.SECT..p6..|
00001690: 20 53 54 41 41 53 45 43  31 00 79 36 13 01 20 49  | STAASEC1.y6.. I|
000016A0: 4E 58 00 9C 36 14 01 20  4C 44 41 52 49 4E 42 55  |NX..6.. LDARINBU|
000016B0: 46 2C 58 3B 58 2B 32 20  20 3B 54 52 41 43 4B 2D  |F,X;X+2  ;TRACK-|
000016C0: 4C 49 4E 4B 2E 00 AB 36  15 01 20 53 54 41 4E 57  |LINK...6.. STANW|
000016D0: 52 54 52 41 00 D0 36 16  01 20 4C 44 41 52 49 4E  |RTRA..6.. LDARIN|
000016E0: 42 55 46 2B 31 2C 58 3B  58 2B 33 20 20 3B 53 45  |BUF+1,X;X+3  ;SE|
000016F0: 43 54 2E 2D 4C 49 4E 4B  2E 00 DF 36 17 01 20 53  |CT.-LINK...6.. S|
00001700: 54 41 4E 57 52 53 45 43  00 EA 36 18 01 20 43 50  |TANWRSEC..6.. CP|
00001710: 58 23 36 00 F9 36 19 01  20 42 4E 45 47 45 54 42  |X#6..6.. BNEGETB|
00001720: 4C 50 00 04 37 1A 01 20  4C 44 58 23 30 00 21 37  |LP..7.. LDX#0.!7|
00001730: 1B 01 47 45 54 42 4C 50  20 53 54 58 47 45 54 50  |..GETBLP STXGETP|
00001740: 4F 49 3B 58 20 3D 20 58  20 2B 00 2A 37 1C 01 20  |OI;X = X +.*7.. |
00001750: 50 4C 41 00 33 37 1D 01  20 54 41 58 00 3C 37 1E  |PLA.37.. TAX.<7.|
00001760: 01 20 52 54 53 00 62 37  1F 01 3B 2A 2A 2A 2A 2A  |. RTS.b7..;*****|
00001770: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001780: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 70 37 20 01  |***********.p7 .|
00001790: 3B 56 41 52 49 41 42 4C  45 00 96 37 21 01 3B 2A  |;VARIABLE..7!.;*|
000017A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
000017C0: BE 37 22 01 45 52 52 54  41 42 20 2E 42 59 35 3B  |.7".ERRTAB .BY5;|
000017D0: 54 41 42 45 4C 4C 45 20  44 45 52 20 46 45 48 4C  |TABELLE DER FEHL|
000017E0: 45 52 43 4F 44 45 53 00  C8 37 23 01 2E 42 59 20  |ERCODES..7#..BY |
000017F0: 37 00 D2 37 24 01 2E 42  59 20 39 00 DD 37 25 01  |7..7$..BY 9..7%.|
00001800: 2E 42 59 20 31 36 00 03  38 26 01 50 4F 49 53 41  |.BY 16..8&.POISA|
00001810: 56 20 2E 42 59 30 3B 50  4F 49 4E 54 45 52 20 41  |V .BY0;POINTER A|
00001820: 55 46 20 44 41 54 45 4E  53 41 54 5A 00 25 38 27  |UF DATENSATZ.%8'|
00001830: 01 52 45 54 4E 55 4D 20  2E 42 59 30 3B 41 4E 5A  |.RETNUM .BY0;ANZ|
00001840: 41 48 4C 20 44 45 52 20  52 45 54 52 59 53 00 3F  |AHL DER RETRYS.?|
00001850: 38 28 01 45 52 52 53 41  56 20 2E 42 59 30 3B 45  |8(.ERRSAV .BY0;E|
00001860: 52 52 4F 52 43 4F 44 45  00 5A 38 29 01 45 4E 44  |RRORCODE.Z8).END|
00001870: 50 4F 49 20 2E 42 59 30  3B 45 4E 44 50 4F 49 4E  |POI .BY0;ENDPOIN|
00001880: 54 45 52 00 83 38 2A 01  50 55 54 50 4F 49 20 2E  |TER..8*.PUTPOI .|
00001890: 42 59 30 3B 53 43 48 52  45 49 42 2D 50 4F 49 4E  |BY0;SCHREIB-POIN|
000018A0: 54 45 52 20 49 4E 20 52  49 4E 47 2D 00 8F 38 2B  |TER IN RING-..8+|
000018B0: 01 3B 50 55 46 46 45 52  00 B6 38 2C 01 47 45 54  |.;PUFFER..8,.GET|
000018C0: 50 4F 49 20 2E 42 59 30  3B 4C 45 53 45 2D 50 4F  |POI .BY0;LESE-PO|
000018D0: 49 4E 54 45 52 20 49 4E  20 52 49 4E 47 50 2E 00  |INTER IN RINGP..|
000018E0: CE 38 2D 01 2E 42 59 20  30 2C 30 2C 30 2C 30 2C  |.8-..BY 0,0,0,0,|
000018F0: 30 2C 30 2C 30 2C 30 00  F6 38 2E 01 52 49 4E 42  |0,0,0,0..8..RINB|
00001900: 55 46 20 2E 42 59 30 3B  42 4C 4F 43 4B 50 4F 49  |UF .BY0;BLOCKPOI|
00001910: 4E 54 45 52 2D 52 49 4E  47 50 55 46 46 45 52 00  |NTER-RINGPUFFER.|
00001920: 00 00                                             |..              |

X.....;LOESCHEN EINES DATENSATZES.. ..; 
       R.MAETCHE.9 ..;TRACK, SECTOR UND 
POINTER AUF DEN ZU.D ..;LOESCHENDEN DATE
NSATZ STEHEN AB $0400.W ..;KOMMUNIKATION
.} ..;.. ..;COMBUF   = TRACK DES DATENSA
TZES.C ..;COMBUF+1 = SECTOR "      ".. .
.;COMBUF+2 = POINTER AUF DATENSATZ..!..;
COMBUF   = FEHLERCODE..! .;..!!.;FEHLERC
ODE  = 00-> KEIN FEHLER.Y!".;BEI DEN DC-
FEHLERCODS 5,7,9,16 WERDEN.X!#.;BIS ZU 5
 VERSUCHE GEMACHT.~!$.;..!%..EQ RDBUF  =
 $0300     ;LESEPUFFER.Q!&..EQ NRDTRA = 
$0300     ;NAECHSTER TRACK..!'..EQ NRDSE
C = $0301     ;NAECHSTER SECTOR.)"(..EQ 
WRBUF  = $0400     ;SCHREIB-PUFFER.U")..
EQ NWRTRA = $0400     ;NAECHSTER TRACK..
"*..EQ NWRSEC = $0401     ;NAECHSTER SEC
TOR.."+..EQ COMBUF = $0400     ;BEFEHLS-
BUFFER.V",..EQ TRACK  = COMBUF    ;ANFAN
S-TRACK..#-..EQ SECTOR = COMBUF+1  ;ANFA
NGS-SECTOR..#...EQ DSPOI  = COMBUF+2  ;D
ATENSATZ-POINT..T#/..EQ ERRCOD = COMBUF 
   ;ERRORCODE.L#0.; DISK - CONTROLLER..#
1..EQ ATRA0  = $06     ;AKT.TRACK BUF.0.
B#2..EQ ASEC0  = $07       ;AKT.SECT. BU
F.0..#3..EQ DCCMD0 = $00       ;DC-COMMA
ND BUF.0..$4..EQ ATRA1  = $08       ;AKT
.TRACK BUF.1.F$5..EQ ASEC1  = $09       
;AKT.SEC. BUF.1.S$6..EQ DCCMD1 = $01    
   ;DC-COMMAND BUF.1. $7..EQ LEDREG = $1
C00     ;HARDWARE-REGIST..I$8..EQ RDCMD 
 = $80       ;READ-COMMAND..$9..EQ WRCMD
  = $90       ;WRITE-COMMAND..%:..EQ LED
ON  = $08       ;LED-BIT.%%;..BA $0500.8
%<.START LDATRACK.G%=. LDXSECTOR.U%>. LD
YDSPOI.D%?. STYPOISAV..%@.;DATENBLOCK IN
 LESEPUFFER HOLEN..%A. STAATRA0..%B. STX
ASEC0..%C. LDA#5.L%D. STARETNUM;ANZAHL R
ETRYS..%E. LDA#0;ENDPOINTER AUF..%F. STA
ENDPOI;BLOCKENDE..&G. STAPUTPOI;BLOCKPOI
NTER.*&H. STAGETPOI.9&I. LDALEDREG.H&J. 
ORA#LEDON._&K. STALEDREG;LED EIN.T&L.RET
RY1 LDA#RDCMD..&M. STADCCMD0..&N.WAIT1 L
DADCCMD0;FERTIG PRINT..&O. BMIWAIT1;NEIN
,WARTEN.V&P. CMP#1;FEHLER PRINT..&Q. BEQ
NOERR1;NEIN,WEITER..'R. STAERRSAV.#'S. J
SRTSTRTY;RETRY MOEGLICHPRINT.='T. BCCERR
EXI;NEIN,ENDE5.Z'U. BCSRETRY1;JA,AUSFUEH
REN.V'V.;BLOCK IN SCHREIBPUFFER..'W.;KOP
IEREN..'X.NOERR1 JSRPUTBLK;BLOCKPOINTER 
IN..'Y.;RING-PUFFER.X'Z. LDANRDTRA;ENDBL
OCK PRINT..'[. BNENENDBL;NEIN..(\. LDANR
DSEC;JA,ENDPOINTER..(]. STAENDPOI;SETZEN
.0(^.NENDBL LDX#2.F(_.COPLP1 LDARDBUF,X.
V(`. STAWRBUF,X._(A. INX.N(B. BNECOPLP1.
.(C.;LESE-POINTER AUF NAECHSTEN DATENSAT
Z..(D.;RICHTEN..(E. LDYPOISAV.G(F.LP1 LD
ARDBUF,Y.V(G. BEQENDDAT..(H. INY..(I. BN
ELP1..)J. JSRNRDBLK;NAECHSTER BLOCK.%)K.
 BCSERREXI;KEIN FEHLER.4)L. JSRPUTBLK.?)
M. LDY#2.K)N. BNELP1.`)O.;ENDE BEI FEHLE
R.U)P.ERREXI LDAERRSAV..)Q. STAERRCOD..)
R. RTS..)S.ENDDAT TYA..)T. CLC..)U. ADC#
6..)V. TAY.H)W. BCCPOIRDY.W)X. JSRNRDBLK
..)Y. BCSERREXI..)Z. JSRPUTBLK..){. INY.
.*|. INY..*}.;LESE-POINTER IN Y.:*~.;JET
ZT DATENUMSCHAUFELN._*.POIRDY LDXPOISAV
;SCHREIB-POINTER..*.. LDANRDTRA;LETZTER 
BLOCK PRINT..*.. BNECOPLP;NEIN..*.. CPYN
RDSEC;LETZTES BYTE PRINT.N*.. BCSWRLBLK;
JA,ENDE..*..COPLP LDARDBUF,Y..*.. STAWRB
UF,X..+.. CPYENDPOI;LETZTES BYTE PRINT.0
+.. BEQWREBLK;JA,ENDBLOCK.N+.. INY;LESE-
BLOCK ENDEPRINT.B+.. BNENNBLK1;NEIN..+..
 JSRNRDBLK;NEUER LESE-BLOCK..+.. BCSERRE
XI;FEHLER PRINT..+.. JSRPUTBLK..+.. LDY#
2.V+..NNBLK1 INX;SCHREIB-BLOCK-..+..;END
E PRINT..,.. BNECOPLP;NEIN,WEITER.#,.. J
SRGETBLK;BLOCK-POINTER HOLEN.E,.. JSRWRT
BLK;JA,BLOCK SCHREIBEN.`,.. BCCCOPLP;FEH
LER PRINT.O,.. BCSERREXI..,..;LETZTEN BL
OCK SCHREIBEN,..,..;DANN ENDE..,..WRLBLK
 DEX..,..WREBLK JSRGETBLK.K,.. LDA#0.Z,.
. STANWRTRA..,.. STXNWRSEC..,.. JSRWRTBL
K..-.. BCSERREXI..-.. LDA#0.!-.. STAERRC
OD.0- . LDALEDREG.K-.. AND#$F7;AND NOT L
EDON.B-.. STALEDREG;LED AUS.K-.. RTS..-.
.;********************************..-..;
SUBROUTINES.H-..;***********************
*********..-..;NAECHSTER BLOCK FUER BUFF
ER 0.....;C = 0 -> O.K.  C = 1 -> FEHLER
. ...NRDBLK LDA#5./... STARETNUM.T...NRD
BL1 LDANRDTRA;NAECHSTER TRACK.S... BEQEN
DBLK;= 0 -> ENDBLOCK..... STAATRA0..... 
LDANRDSEC..... STAASEC0..... LDA#RDCMD;C
OMMAND.K... STADCCMD0;SENDEN.....WAIT3 L
DADCCMD0;FERTIG PRINT..... BMIWAIT3../..
 CMP#1;O.K.PRINT../.. BNERDERR.;/.. LDAN
RDTRA;ENDBLOCK PRINT.I/.. BNENENDM.F/.. 
LDANRDSEC;JA,ENDPOINTER.|/.. STAENDPOI;S
ETZEN../..NENDM CLC;KEIN FEHLER../.. RTS
../..RDERR STAERRSAV.N/.. JSRTSTRTY;RETR
Y PRINT../.. BCSNRDBL1;JA../.. SEC../.. 
RTS;NEIN,FEHLER..0A.ENDBLK LDA#99..0B. S
TAERRSAV.(0C. SEC.10D. RTS.W0E.;********
************************.Y0F.;BLOCK AUS 
PUFFER 1 SCHREIBEN..0G.;****************
****************..0H.WRTBLK LDA#5..0I. S
TARETNUM.T0J.WRTRET LDA#WRCMD..0K. STADC
CMD1..0L.WAIT4 LDADCCMD1..1M. BMIWAIT4..
1N. CMP#1;O.K.PRINT.'1O. BNEWERR.@1P. LD
X#2;NEUER POINTER.Q1Q. CLC;JA,ENDE.Z1R. 
RTS.M1S.WERR STAERRSAV..1T. JSRTSTRTY;RE
TRY PRINT..1U. BCSWRTRET;JA..1V. SEC..1W
. RTS;NEIN,FEHLER..1X.;*****************
***************..2Y.;ROUTINE TSTRTY TEST
ET OB RETRY.(2Z.;MOEGLICH  C=1 -> JA, C=
0 -> NEIN.N2..;*************************
*******.]2..TSTRTY TXA.F2.. PHA.~2.. LDX
#3;FEHLER 5,7,9..2.. LDAERRSAV..2..TSTLP
1 CMPERRTAB,X;ODER 16 PRINT.A2.. BEQOK1;
JA.J2.. DEX.Y2.. BPLTSTLP1..2..NORTY PLA
..2.. TAX..2.. CLC;NEIN..3.. RTS.-3..OK1
 DECRETNUM;SCHON 5 RETRYSPRINT.C3.. BEQN
ORTY;JA,ENDE.L3.. PLA.U3.. TAX.R3.. SEC;
NEIN,RETRY MOEGLICH.{3.. RTS..3..;******
**************************.K3..;PUTBLK S
CHREIBT TRACK,SEKTOR UND DIE..3..;LINKER
 DES AKTUELLEN BLOCKS IN DEN..4..;RING-P
UFFER..+4..; ***************************
****.:4..PUTBLK TXA.C4.. PHA.R4.. LDXPUT
POI.`4.. LDAATRA0.S4.. STARINBUF,X;X.|4.
. INX..4.. LDAASEC0..4.. STARINBUF,X;X+1
..4.. INX..4.. LDANRDTRA.L4.. STARINBUF,
X;X+2..4.. LDANRDSEC..4.. STARINBUF+1,X;
X+3..4.. CPX#6..5.. BNEPUTLB..5.. LDX#0.
25..PUTLB STXPUTPOI;X = X +.;5.. PLA.D5.
. TAX.M5.. RTS.S5..;********************
************..5..;GETBLK HOLT DIE DATEN 
DES NAECHSTEN..5..;BLOCKS AUS DEM RING-P
UFFER..5..;*****************************
***..5..GETBLK TXA..5.. PHA..6.. LDXGETP
OI.*6.. LDARINBUF,X;X    ;AKT.TRACK.86..
 STAATRA1.A6.. INX.B6.. LDARINBUF,X;X+1 
 ;AKT.SECT..P6.. STAASEC1.Y6.. INX..6.. 
LDARINBUF,X;X+2  ;TRACK-LINK...6.. STANW
RTRA.P6.. LDARINBUF+1,X;X+3  ;SECT.-LINK
...6.. STANWRSEC..6.. CPX#6..6.. BNEGETB
LP..7.. LDX#0.!7..GETBLP STXGETPOI;X = X
 +.*7.. PLA.37.. TAX.<7.. RTS.B7..;*****
***************************.P7 .;VARIABL
E..7!.;********************************.
.7".ERRTAB .BY5;TABELLE DER FEHLERCODES.
H7#..BY 7.R7$..BY 9..7%..BY 16..8&.POISA
V .BY0;POINTER AUF DATENSATZ.%8'.RETNUM 
.BY0;ANZAHL DER RETRYS.?8(.ERRSAV .BY0;E
RRORCODE.Z8).ENDPOI .BY0;ENDPOINTER..8*.
PUTPOI .BY0;SCHREIB-POINTER IN RING-..8+
.;PUFFER..8,.GETPOI .BY0;LESE-POINTER IN
 RINGP..N8-..BY 0,0,0,0,0,0,0,0..8..RINB
UF .BY0;BLOCKPOINTER-RINGPUFFER...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL