PRG THE 1541 LNX
FILE INFORMATION
FILENAME(S): PRG THE 1541 LNX
FILE TYPE(S): SEQ
FILE SIZE: 69K
FIRST SEEN: 2025-12-01 19:06:09
APPEARS ON: 1 disk(s)
FILE HASH
24bf2144f8a471f392f2a5c416c3ec30a3963d9713d7b335a755f511cff0f3aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE | PRG THE 1541 LNX | SEQ | Icebreaker | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 36 20 20 20 20 4C 59 4E 58 20 56 49 20 42 59 | 6 LYNX VI BY|
00000010: 20 57 49 4C 4C 20 43 4F 52 4C 45 59 0D 20 36 39 | WILL CORLEY. 69|
00000020: 20 0D 52 45 41 44 20 48 45 41 44 45 52 0D 20 36 | .READ HEADER. 6|
00000030: 20 0D 50 0D 20 32 32 30 20 0D 52 45 41 44 20 48 | .P. 220 .READ H|
00000040: 45 41 44 45 52 49 2F 4C 0D 20 34 20 0D 50 0D 20 |EADERI/L. 4 .P. |
00000050: 32 32 30 20 0D 52 45 41 44 20 48 44 52 4E 2F 53 |220 .READ HDRN/S|
00000060: 59 4E 43 0D 20 37 20 0D 50 0D 20 31 35 38 20 0D |YNC. 7 .P. 158 .|
00000070: 4C 4F 41 44 45 52 0D 20 38 20 0D 50 0D 20 31 30 |LOADER. 8 .P. 10|
00000080: 35 20 0D 42 49 4E 41 52 59 0D 20 34 20 0D 50 0D |5 .BINARY. 4 .P.|
00000090: 20 31 38 38 20 0D 52 45 41 44 20 45 52 52 4F 52 | 188 .READ ERROR|
000000A0: 0D 20 34 20 0D 50 0D 20 31 36 30 20 0D 44 49 53 |. 4 .P. 160 .DIS|
000000B0: 4B 20 43 4D 4E 44 0D 20 33 20 0D 50 0D 20 32 33 |K CMND. 3 .P. 23|
000000C0: 20 0D 48 41 4C 46 20 54 52 41 43 4B 0D 20 31 31 | .HALF TRACK. 11|
000000D0: 20 0D 50 0D 20 36 20 0D 41 53 43 49 49 20 54 4F | .P. 6 .ASCII TO|
000000E0: 20 48 45 58 0D 20 38 20 0D 50 0D 20 31 39 34 20 | HEX. 8 .P. 194 |
000000F0: 0D 48 45 58 20 54 4F 20 41 53 43 49 49 0D 20 35 |.HEX TO ASCII. 5|
00000100: 20 0D 50 0D 20 34 34 20 0D 42 49 54 20 44 45 4E | .P. 44 .BIT DEN|
00000110: 53 49 54 59 0D 20 39 20 0D 50 0D 20 32 30 34 20 |SITY. 9 .P. 204 |
00000120: 0D 41 53 43 20 48 45 58 0D 20 35 20 0D 50 0D 20 |.ASC HEX. 5 .P. |
00000130: 31 35 20 0D 45 58 43 20 44 53 4B 20 50 52 47 0D |15 .EXC DSK PRG.|
00000140: 20 32 20 0D 50 0D 20 34 34 20 0D 52 44 20 44 53 | 2 .P. 44 .RD DS|
00000150: 4B 20 42 55 46 0D 20 34 20 0D 50 0D 20 32 30 35 |K BUF. 4 .P. 205|
00000160: 20 0D 52 45 41 44 20 53 45 43 0D 20 34 20 0D 50 | .READ SEC. 4 .P|
00000170: 0D 20 31 36 34 20 0D 52 45 41 44 20 48 45 41 44 |. 164 .READ HEAD|
00000180: 45 52 20 49 4C 4C 2E 0D 20 34 20 0D 50 0D 20 31 |ER ILL.. 4 .P. 1|
00000190: 39 34 20 0D 42 41 4D 20 45 51 0D 20 32 20 0D 50 |94 .BAM EQ. 2 .P|
000001A0: 0D 20 34 39 20 0D 42 41 4D 20 31 0D 20 31 20 0D |. 49 .BAM 1. 1 .|
000001B0: 50 0D 20 32 31 39 20 0D 42 41 4D 20 32 0D 20 33 |P. 219 .BAM 2. 3|
000001C0: 20 0D 50 0D 20 36 30 20 0D 42 41 4D 20 33 0D 20 | .P. 60 .BAM 3. |
000001D0: 36 20 0D 50 0D 20 33 36 20 0D 42 41 4D 20 34 0D |6 .P. 36 .BAM 4.|
000001E0: 20 31 20 0D 50 0D 20 31 35 35 20 0D 42 41 4D 20 | 1 .P. 155 .BAM |
000001F0: 35 0D 20 33 20 0D 50 0D 20 31 35 32 20 0D 42 41 |5. 3 .P. 152 .BA|
00000200: 4D 20 36 0D 20 31 20 0D 50 0D 20 31 36 33 20 0D |M 6. 1 .P. 163 .|
00000210: 42 41 4D 20 37 0D 20 32 20 0D 50 0D 20 32 30 36 |BAM 7. 2 .P. 206|
00000220: 20 0D 42 41 4D 20 38 0D 20 35 20 0D 50 0D 20 31 | .BAM 8. 5 .P. 1|
00000230: 32 31 20 0D 42 41 4D 20 54 41 42 4C 45 53 0D 20 |21 .BAM TABLES. |
00000240: 32 20 0D 50 0D 20 31 36 30 20 0D 53 52 43 48 20 |2 .P. 160 .SRCH |
00000250: 44 53 4B 20 38 0D 20 33 20 0D 50 0D 20 32 30 37 |DSK 8. 3 .P. 207|
00000260: 20 0D 52 44 20 54 52 4B 20 45 51 0D 20 32 20 0D | .RD TRK EQ. 2 .|
00000270: 50 0D 20 32 34 39 20 0D 52 44 20 54 52 4B 20 31 |P. 249 .RD TRK 1|
00000280: 0D 20 36 20 0D 50 0D 20 32 38 20 0D 52 44 20 54 |. 6 .P. 28 .RD T|
00000290: 52 4B 20 32 0D 20 35 20 0D 50 0D 20 36 30 20 0D |RK 2. 5 .P. 60 .|
000002A0: 52 44 20 54 52 4B 20 33 0D 20 32 20 0D 50 0D 20 |RD TRK 3. 2 .P. |
000002B0: 31 39 31 20 0D 52 44 20 54 52 4B 20 34 0D 20 32 |191 .RD TRK 4. 2|
000002C0: 20 0D 50 0D 20 31 30 32 20 0D 52 44 20 54 52 4B | .P. 102 .RD TRK|
000002D0: 20 35 0D 20 32 20 0D 50 0D 20 32 30 32 20 0D 52 | 5. 2 .P. 202 .R|
000002E0: 44 20 54 52 4B 20 36 0D 20 31 20 0D 50 0D 20 31 |D TRK 6. 1 .P. 1|
000002F0: 32 37 20 0D 52 44 20 54 52 4B 20 37 0D 20 33 20 |27 .RD TRK 7. 3 |
00000300: 0D 50 0D 20 31 34 34 20 0D 52 44 20 54 52 4B 20 |.P. 144 .RD TRK |
00000310: 38 0D 20 31 39 20 0D 50 0D 20 31 38 37 20 0D 52 |8. 19 .P. 187 .R|
00000320: 44 20 54 52 4B 20 39 0D 20 37 20 0D 50 0D 20 39 |D TRK 9. 7 .P. 9|
00000330: 20 0D 52 44 20 54 52 4B 20 31 30 0D 20 34 20 0D | .RD TRK 10. 4 .|
00000340: 50 0D 20 32 30 37 20 0D 52 44 20 54 52 4B 20 31 |P. 207 .RD TRK 1|
00000350: 31 0D 20 34 20 0D 50 0D 20 31 35 36 20 0D 52 44 |1. 4 .P. 156 .RD|
00000360: 20 54 52 4B 20 31 32 0D 20 31 20 0D 50 0D 20 32 | TRK 12. 1 .P. 2|
00000370: 33 33 20 0D 52 44 20 54 52 4B 20 31 33 0D 20 31 |33 .RD TRK 13. 1|
00000380: 20 0D 50 0D 20 31 34 38 20 0D 52 44 20 54 52 4B | .P. 148 .RD TRK|
00000390: 20 31 34 0D 20 32 20 0D 50 0D 20 31 31 37 20 0D | 14. 2 .P. 117 .|
000003A0: 52 44 20 54 52 4B 20 31 35 0D 20 32 20 0D 50 0D |RD TRK 15. 2 .P.|
000003B0: 20 31 33 39 20 0D 52 44 20 54 52 4B 20 31 36 0D | 139 .RD TRK 16.|
000003C0: 20 33 20 0D 50 0D 20 32 33 20 0D 52 44 20 54 52 | 3 .P. 23 .RD TR|
000003D0: 4B 20 31 37 0D 20 32 20 0D 50 0D 20 34 39 20 0D |K 17. 2 .P. 49 .|
000003E0: 52 44 20 54 52 4B 20 31 38 0D 20 33 20 0D 50 0D |RD TRK 18. 3 .P.|
000003F0: 20 31 31 33 20 0D 52 44 20 54 52 4B 20 54 41 42 | 113 .RD TRK TAB|
00000400: 4C 45 53 0D 20 38 20 0D 50 0D 20 31 32 33 20 0D |LES. 8 .P. 123 .|
00000410: 55 4E 4F 50 20 45 51 0D 20 32 20 0D 50 0D 20 38 |UNOP EQ. 2 .P. 8|
00000420: 32 20 0D 4F 50 53 0D 20 35 20 0D 50 0D 20 32 30 |2 .OPS. 5 .P. 20|
00000430: 33 20 0D 54 59 50 45 0D 20 35 20 0D 50 0D 20 39 |3 .TYPE. 5 .P. 9|
00000440: 38 20 0D 42 59 54 45 53 0D 20 34 20 0D 50 0D 20 |8 .BYTES. 4 .P. |
00000450: 32 34 33 20 0D 55 4E 4F 50 31 0D 20 33 20 0D 50 |243 .UNOP1. 3 .P|
00000460: 0D 20 34 32 20 0D 55 4E 4F 50 32 0D 20 34 20 0D |. 42 .UNOP2. 4 .|
00000470: 50 0D 20 34 35 20 0D 55 4E 4F 50 33 0D 20 32 20 |P. 45 .UNOP3. 2 |
00000480: 0D 50 0D 20 32 33 38 20 0D 55 4E 4F 50 34 0D 20 |.P. 238 .UNOP4. |
00000490: 33 20 0D 50 0D 20 32 33 38 20 0D 55 4E 4F 50 35 |3 .P. 238 .UNOP5|
000004A0: 0D 20 34 20 0D 50 0D 20 31 36 35 20 0D 55 4E 4F |. 4 .P. 165 .UNO|
000004B0: 50 36 0D 20 33 20 0D 50 0D 20 35 33 20 0D 55 4E |P6. 3 .P. 53 .UN|
000004C0: 4F 50 37 0D 20 33 20 0D 50 0D 20 31 32 37 20 0D |OP7. 3 .P. 127 .|
000004D0: 55 4E 4F 50 38 0D 20 34 20 0D 50 0D 20 35 34 20 |UNOP8. 4 .P. 54 |
000004E0: 0D 55 4E 4F 50 39 0D 20 34 20 0D 50 0D 20 33 30 |.UNOP9. 4 .P. 30|
000004F0: 20 0D 53 52 43 48 20 44 53 4B 20 45 51 0D 20 32 | .SRCH DSK EQ. 2|
00000500: 20 0D 50 0D 20 32 36 20 0D 53 52 43 48 20 44 53 | .P. 26 .SRCH DS|
00000510: 4B 20 31 0D 20 35 20 0D 50 0D 20 31 38 32 20 0D |K 1. 5 .P. 182 .|
00000520: 53 52 43 48 20 44 53 4B 20 32 0D 20 34 20 0D 50 |SRCH DSK 2. 4 .P|
00000530: 0D 20 31 32 35 20 0D 53 52 43 48 20 44 53 4B 20 |. 125 .SRCH DSK |
00000540: 33 0D 20 31 20 0D 50 0D 20 31 35 30 20 0D 53 52 |3. 1 .P. 150 .SR|
00000550: 43 48 20 44 53 4B 20 34 0D 20 32 20 0D 50 0D 20 |CH DSK 4. 2 .P. |
00000560: 31 30 20 0D 53 52 43 48 20 44 53 4B 20 35 0D 20 |10 .SRCH DSK 5. |
00000570: 35 20 0D 50 0D 20 31 36 31 20 0D 53 52 43 48 20 |5 .P. 161 .SRCH |
00000580: 44 53 4B 20 36 0D 20 35 20 0D 50 0D 20 32 38 20 |DSK 6. 5 .P. 28 |
00000590: 0D 53 52 43 48 20 44 53 4B 20 37 0D 20 34 20 0D |.SRCH DSK 7. 4 .|
000005A0: 50 0D 20 31 39 32 20 0D 53 52 43 48 20 44 53 4B |P. 192 .SRCH DSK|
000005B0: 20 54 41 42 4C 45 53 0D 20 33 20 0D 50 0D 20 0D | TABLES. 3 .P. .|
000005C0: 50 0D 20 32 33 20 0D 52 44 20 54 52 4B 20 31 37 |P. 23 .RD TRK 17|
000005D0: 0D 20 32 20 0D 50 0D 20 34 39 20 0D 52 44 20 54 |. 2 .P. 49 .RD T|
000005E0: 52 4B 20 31 38 0D 20 33 20 0D 50 0D 20 31 31 33 |RK 18. 3 .P. 113|
000005F0: 20 0D 52 44 01 08 0E 08 0A 00 AC B2 20 24 37 31 | .RD........ $71|
00000600: 30 30 00 15 08 14 00 2E 53 00 4C 08 32 00 3B 87 |00......S.L.2.;.|
00000610: 20 48 45 41 44 45 52 20 52 4F 55 54 49 4E 45 20 | HEADER ROUTINE |
00000620: 44 45 53 49 47 4E 45 44 20 A4 20 87 20 47 43 52 |DESIGNED . . GCR|
00000630: 20 83 20 49 4E 54 4F 20 31 35 34 31 20 52 41 4D | . INTO 1541 RAM|
00000640: 00 8A 08 3C 00 3B 41 46 54 45 52 20 54 52 41 4E |...<.;AFTER TRAN|
00000650: 53 46 45 52 20 A4 20 36 34 20 52 41 4D 20 47 43 |SFER . 64 RAM GC|
00000660: 52 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 43 |R ROUTINE WILL C|
00000670: 91 56 45 52 54 20 49 54 20 A4 20 48 45 58 00 A3 |.VERT IT . HEX..|
00000680: 08 64 00 3B 36 34 20 52 4F 4D 20 52 4F 55 54 49 |.d.;64 ROM ROUTI|
00000690: 4E 45 53 20 4E 91 45 00 BA 08 78 00 3B 31 35 34 |NES N.E...x.;154|
000006A0: 31 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 00 CB |1 ROM ROUTINES..|
000006B0: 08 8C 00 53 52 43 48 20 B2 20 24 46 35 31 30 00 |...SRCH . $F510.|
000006C0: DC 08 96 00 53 59 4E 43 20 B2 20 24 46 35 35 36 |....SYNC . $F556|
000006D0: 00 EC 08 A0 00 47 43 52 20 B2 20 24 31 43 30 31 |.....GCR . $1C01|
000006E0: 00 FC 08 AA 00 4F 46 46 20 B2 20 24 46 39 36 39 |.....OFF . $F969|
000006F0: 00 2F 09 BE 00 3B 54 48 49 53 20 52 4F 55 54 49 |./...;THIS ROUTI|
00000700: 4E 45 20 49 53 20 45 58 45 43 55 54 45 44 20 49 |NE IS EXECUTED I|
00000710: 4E 20 54 48 45 20 31 35 34 31 20 41 54 20 24 30 |N THE 1541 AT $0|
00000720: 33 30 30 00 6F 09 C8 00 3B 54 48 45 20 52 4F 55 |300.o...;THE ROU|
00000730: 54 49 4E 45 20 43 41 4E 20 42 45 20 50 55 54 20 |TINE CAN BE PUT |
00000740: B5 4F 20 54 48 45 20 31 35 34 31 27 53 20 4D 45 |.O THE 1541'S ME|
00000750: 4D B0 59 20 57 49 54 48 20 41 20 36 34 AD 34 31 |M.Y WITH A 64.41|
00000760: 20 4D 91 00 AD 09 DC 00 3B A4 20 8A 20 54 48 49 | M......;. . THI|
00000770: 53 20 52 4F 55 54 49 4E 45 20 50 55 54 20 54 52 |S ROUTINE PUT TR|
00000780: 41 43 4B 20 44 45 53 49 52 45 44 20 41 54 20 24 |ACK DESIRED AT $|
00000790: 30 36 20 AF 20 53 45 43 A4 52 20 41 54 20 24 30 |06 . SEC.R AT $0|
000007A0: 37 00 D6 09 E6 00 3B 50 55 54 20 23 24 45 30 20 |7.....;PUT #$E0 |
000007B0: 28 45 58 45 43 55 54 45 29 20 41 54 20 24 30 30 |(EXECUTE) AT $00|
000007C0: 20 AF 20 50 52 45 53 53 20 8E 00 E3 09 F0 00 4A | . PRESS ......J|
000007D0: 53 52 20 53 52 43 48 00 F0 09 FA 00 4C 44 59 20 |SR SRCH.....LDY |
000007E0: 23 24 30 30 00 FC 09 04 01 4C 50 31 20 43 4C 56 |#$00.....LP1 CLV|
000007F0: 00 08 0A 0E 01 92 20 42 56 43 20 92 00 10 0A 18 |...... BVC .....|
00000800: 01 44 45 59 00 1C 0A 22 01 42 4E 45 20 4C 50 31 |.DEY...".BNE LP1|
00000810: 00 29 0A 2C 01 4A 53 52 20 53 59 4E 43 00 36 0A |.).,.JSR SYNC.6.|
00000820: 36 01 4C 44 59 20 23 24 30 30 00 44 0A 40 01 92 |6.LDY #$00.D.@..|
00000830: 31 20 42 56 43 20 92 31 00 4C 0A 4A 01 43 4C 56 |1 BVC .1.L.J.CLV|
00000840: 00 58 0A 54 01 4C 44 41 20 47 43 52 00 68 0A 5E |.X.T.LDA GCR.h.^|
00000850: 01 53 54 41 20 24 30 34 30 30 2C 59 00 70 0A 68 |.STA $0400,Y.p.h|
00000860: 01 49 4E 59 00 7B 0A 72 01 42 4E 45 20 92 31 00 |.INY.{.r.BNE .1.|
00000870: BE 0A 90 01 3B 53 52 43 48 20 52 4F 55 54 49 4E |....;SRCH ROUTIN|
00000880: 45 20 4C 4F 4F 4B 53 20 81 20 4F 55 52 20 54 52 |E LOOKS . OUR TR|
00000890: 41 43 4B 20 AF 20 53 45 43 A4 52 20 57 45 20 50 |ACK . SEC.R WE P|
000008A0: 55 54 20 41 54 20 24 30 36 20 AF 20 24 30 37 20 |UT AT $06 . $07 |
000008B0: 49 4E 00 04 0B 9A 01 3B 5A 45 52 4F 20 50 41 47 |IN.....;ZERO PAG|
000008C0: 45 20 4F 46 20 54 48 45 20 31 35 34 31 20 54 48 |E OF THE 1541 TH|
000008D0: 45 20 56 20 46 4C 41 47 20 49 53 20 53 45 54 20 |E V FLAG IS SET |
000008E0: 45 56 45 52 59 20 54 49 4D 45 20 41 20 A2 20 42 |EVERY TIME A . B|
000008F0: 59 54 45 20 49 53 20 87 00 31 0B 9F 01 3B 48 45 |YTE IS ..1...;HE|
00000900: 4E 43 45 20 42 56 43 20 8B 20 4E 4F 20 42 59 54 |NCE BVC . NO BYT|
00000910: 45 20 48 41 53 20 42 45 45 4E 20 87 20 B5 4F 20 |E HAS BEEN . .O |
00000920: 24 31 43 30 31 00 77 0B A4 01 3B 54 48 45 20 46 |$1C01.w...;THE F|
00000930: 49 52 53 54 20 23 32 35 36 20 42 59 54 45 53 20 |IRST #256 BYTES |
00000940: 57 49 4C 4C 20 42 45 20 49 47 4E B0 45 44 20 54 |WILL BE IGN.ED T|
00000950: 48 49 53 20 49 53 20 CB 4F 44 20 81 20 54 48 4F |HIS IS .OD . THO|
00000960: 53 45 20 91 45 20 53 45 43 A4 52 00 BE 0B AE 01 |SE .E SEC.R.....|
00000970: 3B 87 20 45 52 52 B0 53 20 57 45 20 50 55 54 20 |;. ERR.S WE PUT |
00000980: 54 48 45 20 53 45 43 A4 52 20 4E 55 4D 42 45 52 |THE SEC.R NUMBER|
00000990: 20 91 45 20 4C 45 53 53 20 54 48 41 4E 20 54 48 | .E LESS THAN TH|
000009A0: 45 20 42 41 44 20 53 45 43 A4 52 20 49 4E 20 24 |E BAD SEC.R IN $|
000009B0: 30 37 00 EE 0B B8 01 3B 54 48 49 53 20 57 41 59 |07.....;THIS WAY|
000009C0: 20 57 45 27 4C 4C 20 53 59 4E 43 20 55 50 20 91 | WE'LL SYNC UP .|
000009D0: 20 49 54 20 AF 20 87 20 49 54 20 41 4E 59 57 41 | IT . . IT ANYWA|
000009E0: 59 2E 00 39 0C C2 01 3B 57 45 20 4A 53 52 20 53 |Y..9...;WE JSR S|
000009F0: 59 4E 43 20 A4 20 4C 4F 43 41 54 45 20 54 48 45 |YNC . LOCATE THE|
00000A00: 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 54 48 | BEGINNING OF TH|
00000A10: 45 20 48 45 41 44 45 52 20 42 4C 4F 43 4B 20 AF |E HEADER BLOCK .|
00000A20: 20 53 A4 52 45 20 54 48 45 20 47 43 52 00 62 0C | S.RE THE GCR.b.|
00000A30: CC 01 3B 49 4E 20 54 48 45 20 52 41 4D 20 42 55 |..;IN THE RAM BU|
00000A40: 46 46 45 52 20 53 54 41 52 54 49 4E 47 20 41 54 |FFER STARTING AT|
00000A50: 20 24 30 34 30 30 00 6F 0C DB 01 4C 44 59 20 23 | $0400.o...LDY #|
00000A60: 24 30 30 00 7D 0C E0 01 92 32 20 42 56 43 20 92 |$00.}....2 BVC .|
00000A70: 32 00 85 0C EA 01 43 4C 56 00 91 0C F4 01 4C 44 |2.....CLV.....LD|
00000A80: 41 20 47 43 52 00 A1 0C FE 01 53 54 41 20 24 30 |A GCR.....STA $0|
00000A90: 35 30 30 2C 59 00 A9 0C 08 02 49 4E 59 00 B4 0C |500,Y.....INY...|
00000AA0: 12 02 42 4E 45 20 92 32 00 F8 0C 26 02 3B 54 48 |..BNE .2...&.;TH|
00000AB0: 49 53 20 49 53 20 54 48 45 20 53 41 4D 45 20 52 |IS IS THE SAME R|
00000AC0: 4F 55 54 49 4E 45 20 41 53 20 41 42 4F 56 45 20 |OUTINE AS ABOVE |
00000AD0: 42 55 54 20 54 48 45 20 83 20 49 53 20 53 54 4F |BUT THE . IS STO|
00000AE0: 52 45 44 20 41 54 20 24 30 35 30 30 00 38 0D 30 |RED AT $0500.8.0|
00000AF0: 02 3B 24 31 43 30 31 20 49 53 20 83 20 50 4F 52 |.;$1C01 IS . POR|
00000B00: 54 20 41 20 46 4F 52 20 47 43 52 20 49 2F 4F 20 |T A FOR GCR I/O |
00000B10: 44 41 54 41 20 28 41 4E 20 49 4E 54 45 52 4E 41 |DATA (AN INTERNA|
00000B20: 4C 20 44 41 54 41 20 50 4F 52 54 29 00 45 0D 44 |L DATA PORT).E.D|
00000B30: 02 4C 44 41 20 23 24 30 31 00 51 0D 4E 02 4A 4D |.LDA #$01.Q.N.JM|
00000B40: 50 20 4F 46 46 00 93 0D 62 02 3B 57 45 20 50 55 |P OFF...b.;WE PU|
00000B50: 54 20 41 20 23 24 30 31 20 49 4E 20 41 20 AF 20 |T A #$01 IN A . |
00000B60: 4A 53 52 20 4F 46 46 20 54 48 49 53 20 23 24 30 |JSR OFF THIS #$0|
00000B70: 31 20 49 53 20 54 48 45 20 45 52 52 B0 20 43 4F |1 IS THE ERR. CO|
00000B80: 44 45 20 28 4F 4B 29 00 BE 0D 6C 02 3B 54 45 4C |DE (OK)...l.;TEL|
00000B90: 4C 53 20 54 48 45 20 44 49 53 4B 20 41 4C 4C 20 |LS THE DISK ALL |
00000BA0: 49 53 20 4F 4B 20 AF 20 53 48 55 54 53 20 44 4F |IS OK . SHUTS DO|
00000BB0: 57 4E 00 CE 0D 80 02 2E 80 20 87 20 48 45 41 44 |WN....... . HEAD|
00000BC0: 45 52 00 00 00 4E 43 20 55 50 20 91 20 49 54 20 |ER...NC UP . IT |
00000BD0: AF 20 87 20 49 54 20 41 4E 59 57 41 59 2E 00 39 |. . IT ANYWAY..9|
00000BE0: 0C C2 01 3B 57 45 20 4A 01 08 0E 08 0A 00 AC B2 |...;WE J........|
00000BF0: 20 24 37 31 30 30 00 15 08 14 00 2E 53 00 53 08 | $7100......S.S.|
00000C00: 32 00 3B 87 20 48 45 41 44 45 52 49 AD 4C 20 20 |2.;. HEADERI.L |
00000C10: 52 4F 55 54 49 4E 45 20 44 45 53 49 47 4E 45 44 |ROUTINE DESIGNED|
00000C20: 20 A4 20 87 20 47 43 52 20 83 20 4F 4E 20 49 4C | . . GCR . ON IL|
00000C30: 4C 45 47 41 4C 20 54 52 41 43 4B 00 91 08 3C 00 |LEGAL TRACK...<.|
00000C40: 3B 41 46 54 45 52 20 54 52 41 4E 53 46 45 52 20 |;AFTER TRANSFER |
00000C50: A4 20 36 34 20 52 41 4D 20 47 43 52 20 52 4F 55 |. 64 RAM GCR ROU|
00000C60: 54 49 4E 45 20 57 49 4C 4C 20 43 91 56 45 52 54 |TINE WILL C.VERT|
00000C70: 20 49 54 20 A4 20 48 45 58 00 D2 08 46 00 3B A4 | IT . HEX...F.;.|
00000C80: 20 55 53 45 20 54 48 49 53 20 52 4F 55 54 49 4E | USE THIS ROUTIN|
00000C90: 45 20 53 45 45 20 49 4E 46 4F 20 41 54 20 42 45 |E SEE INFO AT BE|
00000CA0: 47 49 4E 49 4E 47 20 4F 46 20 87 20 48 45 41 44 |GINING OF . HEAD|
00000CB0: 45 52 20 52 4F 55 54 49 4E 45 00 EB 08 6E 00 3B |ER ROUTINE...n.;|
00000CC0: 36 34 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 |64 ROM ROUTINES |
00000CD0: 4E 91 45 00 02 09 82 00 3B 31 35 34 31 20 52 4F |N.E.....;1541 RO|
00000CE0: 4D 20 52 4F 55 54 49 4E 45 53 00 13 09 96 00 53 |M ROUTINES.....S|
00000CF0: 59 4E 43 20 B2 20 24 46 35 35 36 00 23 09 A0 00 |YNC . $F556.#...|
00000D00: 47 43 52 20 B2 20 24 31 43 30 31 00 33 09 AA 00 |GCR . $1C01.3...|
00000D10: 4F 46 46 20 B2 20 24 46 39 36 39 00 40 09 BE 00 |OFF . $F969.@...|
00000D20: 4A 53 52 20 53 59 4E 43 00 4D 09 C8 00 4C 44 59 |JSR SYNC.M...LDY|
00000D30: 20 23 24 30 30 00 5B 09 D2 00 92 31 20 42 56 43 | #$00.[....1 BVC|
00000D40: 20 92 31 00 63 09 DC 00 43 4C 56 00 6F 09 E6 00 | .1.c...CLV.o...|
00000D50: 4C 44 41 20 47 43 52 00 7F 09 F0 00 53 54 41 20 |LDA GCR.....STA |
00000D60: 24 30 34 30 30 2C 59 00 87 09 FA 00 49 4E 59 00 |$0400,Y.....INY.|
00000D70: 92 09 04 01 42 4E 45 20 92 31 00 9F 09 0E 01 4C |....BNE .1.....L|
00000D80: 44 59 20 23 24 30 30 00 E9 09 22 01 3B 54 48 49 |DY #$00...".;THI|
00000D90: 53 20 49 53 20 54 48 45 20 53 41 4D 45 20 52 4F |S IS THE SAME RO|
00000DA0: 55 54 49 4E 45 20 41 53 20 87 20 48 45 41 44 45 |UTINE AS . HEADE|
00000DB0: 52 20 42 55 54 20 41 53 20 49 54 53 20 41 4E 20 |R BUT AS ITS AN |
00000DC0: 49 4C 4C 45 47 41 4C 4C 59 20 81 4D 41 54 54 45 |ILLEGALLY .MATTE|
00000DD0: 44 00 2B 0A 2C 01 3B 54 52 41 43 4B 20 57 45 20 |D.+.,.;TRACK WE |
00000DE0: 44 4F 20 A8 20 55 53 45 20 53 52 43 48 20 41 53 |DO . USE SRCH AS|
00000DF0: 20 49 54 20 57 4F 55 4C 44 20 8E 20 54 48 45 20 | IT WOULD . THE |
00000E00: 45 52 52 B0 20 48 45 41 44 45 52 20 A8 20 46 4F |ERR. HEADER . FO|
00000E10: 55 4E 44 00 6D 0A 36 01 3B 49 4E 53 54 45 41 44 |UND.m.6.;INSTEAD|
00000E20: 20 57 45 20 92 20 81 20 54 48 45 20 53 59 4E 43 | WE . . THE SYNC|
00000E30: 20 AF 20 87 20 57 48 41 54 45 56 45 52 20 83 20 | . . WHATEVER . |
00000E40: 57 45 20 47 45 54 20 54 4F 20 54 48 45 20 42 55 |WE GET TO THE BU|
00000E50: 46 46 45 52 53 00 AE 0A 40 01 3B 41 20 52 4F 55 |FFERS...@.;A ROU|
00000E60: 54 49 4E 45 20 43 4F 55 4C 44 20 42 45 20 44 45 |TINE COULD BE DE|
00000E70: 53 49 47 4E 45 44 20 A4 20 87 20 41 4C 4C 20 53 |SIGNED . . ALL S|
00000E80: 45 43 A4 52 53 20 41 54 20 91 45 20 54 49 4D 45 |EC.RS AT .E TIME|
00000E90: 20 AF 20 54 48 45 00 EF 0A 4A 01 3B 48 45 41 44 | . THE...J.;HEAD|
00000EA0: 45 52 AD 53 20 43 4F 55 4C 44 20 42 45 20 57 52 |ER.S COULD BE WR|
00000EB0: 49 54 54 45 4E 20 42 41 43 4B 20 A4 20 41 20 43 |ITTEN BACK . A C|
00000EC0: 4F 50 59 20 44 49 53 4B 20 55 BF 47 20 81 4D 41 |OPY DISK U.G .MA|
00000ED0: 54 20 54 52 41 43 4B 00 FD 0A 5E 01 92 32 20 42 |T TRACK...^..2 B|
00000EE0: 56 43 20 92 32 00 05 0B 68 01 43 4C 56 00 11 0B |VC .2...h.CLV...|
00000EF0: 72 01 4C 44 41 20 47 43 52 00 21 0B 7C 01 53 54 |r.LDA GCR.!.|.ST|
00000F00: 41 20 24 30 35 30 30 2C 59 00 29 0B 86 01 49 4E |A $0500,Y.)...IN|
00000F10: 59 00 34 0B 90 01 42 4E 45 20 92 32 00 41 0B 9A |Y.4...BNE .2.A..|
00000F20: 01 4C 44 41 20 23 24 30 31 00 4D 0B A4 01 4A 4D |.LDA #$01.M...JM|
00000F30: 50 20 4F 46 46 00 96 0B B8 01 3B 57 45 20 50 55 |P OFF.....;WE PU|
00000F40: 54 20 41 20 23 24 30 31 20 49 4E 20 41 20 AF 20 |T A #$01 IN A . |
00000F50: 4A 53 52 20 4F 46 46 20 54 48 49 53 20 23 24 30 |JSR OFF THIS #$0|
00000F60: 31 20 49 53 20 50 55 54 20 49 4E 20 54 48 45 20 |1 IS PUT IN THE |
00000F70: 45 52 52 B0 20 43 4F 44 45 20 28 4F 4B 29 00 BF |ERR. CODE (OK)..|
00000F80: 0B C2 01 3B 54 45 4C 4C 53 20 54 48 45 20 44 49 |...;TELLS THE DI|
00000F90: 53 4B 20 41 4C 4C 53 20 4F 4B 20 AF 20 53 48 55 |SK ALLS OK . SHU|
00000FA0: 54 53 20 44 4F 57 4E 00 D2 0B D6 01 2E 80 20 87 |TS DOWN....... .|
00000FB0: 20 48 45 41 44 45 52 49 AD 4C 00 00 00 4C 4C 45 | HEADERI.L...LLE|
00000FC0: 47 41 4C 4C 59 20 81 4D 41 54 54 45 44 00 2B 0A |GALLY .MATTED.+.|
00000FD0: 2C 01 3B 54 52 41 43 4B 20 57 45 20 44 4F 20 A8 |,.;TRACK WE DO .|
00000FE0: 01 08 0E 08 0A 00 AC B2 20 24 37 31 30 30 00 15 |........ $7100..|
00000FF0: 08 0F 00 2E 53 00 5C 08 1E 00 3B 87 20 48 45 41 |....S.\...;. HEA|
00001000: 44 45 52 4E AD 53 59 4E 43 20 87 53 20 54 52 41 |DERN.SYNC .S TRA|
00001010: 43 4B 20 AF 20 48 45 41 44 45 52 20 49 4E 81 4D |CK . HEADER IN.M|
00001020: 41 54 49 91 20 46 52 4F 4D 20 54 52 41 43 4B 20 |ATI. FROM TRACK |
00001030: 57 49 54 48 20 4E 4F 20 53 59 4E 43 00 9D 08 23 |WITH NO SYNC...#|
00001040: 00 3B A4 20 55 53 45 20 54 48 49 53 20 52 4F 55 |.;. USE THIS ROU|
00001050: 54 49 4E 45 20 53 45 45 20 49 4E 46 4F 20 41 54 |TINE SEE INFO AT|
00001060: 20 42 45 47 49 4E 49 4E 47 20 4F 46 20 87 20 48 | BEGINING OF . H|
00001070: 45 41 44 45 52 20 52 4F 55 54 49 4E 45 00 C2 08 |EADER ROUTINE...|
00001080: 32 00 3B 36 34 20 52 4F 4D 20 52 4F 55 54 49 4E |2.;64 ROM ROUTIN|
00001090: 45 53 20 26 20 41 44 44 52 45 53 53 45 53 20 4E |ES & ADDRESSES N|
000010A0: 91 45 00 E5 08 46 00 3B 31 35 34 31 20 52 4F 4D |.E...F.;1541 ROM|
000010B0: 20 52 4F 55 54 49 4E 45 53 20 AF 20 41 44 44 52 | ROUTINES . ADDR|
000010C0: 45 53 53 45 53 00 F3 08 50 00 80 20 B2 20 24 46 |ESSES...P.. . $F|
000010D0: 39 36 39 00 03 09 5A 00 47 43 52 20 B2 20 24 31 |969...Z.GCR . $1|
000010E0: 43 30 31 00 10 09 6E 00 4C 44 59 20 23 24 30 30 |C01...n.LDY #$00|
000010F0: 00 20 09 78 00 4C 50 31 20 42 56 43 20 4C 50 31 |. .x.LP1 BVC LP1|
00001100: 00 28 09 82 00 43 4C 56 00 34 09 8C 00 4C 44 41 |.(...CLV.4...LDA|
00001110: 20 47 43 52 00 44 09 96 00 53 54 41 20 24 30 34 | GCR.D...STA $04|
00001120: 30 30 2C 59 00 4C 09 A0 00 49 4E 59 00 58 09 AA |00,Y.L...INY.X..|
00001130: 00 42 4E 45 20 4C 50 31 00 65 09 B4 00 4C 44 59 |.BNE LP1.e...LDY|
00001140: 20 23 24 30 30 00 75 09 BE 00 4C 50 32 20 42 56 | #$00.u...LP2 BV|
00001150: 43 20 4C 50 32 00 7D 09 C8 00 43 4C 56 00 89 09 |C LP2.}...CLV...|
00001160: D2 00 4C 44 41 20 47 43 52 00 99 09 DC 00 53 54 |..LDA GCR.....ST|
00001170: 41 20 24 30 35 30 30 2C 59 00 A1 09 E6 00 49 4E |A $0500,Y.....IN|
00001180: 59 00 AD 09 F0 00 42 4E 45 20 4C 50 32 00 BA 09 |Y.....BNE LP2...|
00001190: FA 00 4C 44 41 20 23 24 30 31 00 C4 09 04 01 4A |..LDA #$01.....J|
000011A0: 4D 50 20 80 00 07 0A 18 01 3B 54 48 49 53 20 52 |MP ......;THIS R|
000011B0: 4F 55 54 49 4E 45 20 49 53 20 41 4C 4D 4F 53 54 |OUTINE IS ALMOST|
000011C0: 20 54 48 45 20 53 41 4D 45 20 41 53 20 87 20 48 | THE SAME AS . H|
000011D0: 45 41 44 45 52 20 AF 20 87 20 48 45 41 44 45 52 |EADER . . HEADER|
000011E0: 49 AD 4C 20 42 55 54 00 3F 0A 22 01 3B 48 45 52 |I.L BUT.?.".;HER|
000011F0: 45 20 57 45 20 42 59 20 50 41 53 53 20 41 4C 4C |E WE BY PASS ALL|
00001200: 20 BC 49 43 20 41 53 20 4E 4F 20 53 59 4E 43 20 | .IC AS NO SYNC |
00001210: 57 4F 55 4C 44 20 90 20 55 53 20 44 45 41 44 00 |WOULD . US DEAD.|
00001220: 88 0A 2C 01 3B 57 49 54 48 20 54 48 49 53 20 52 |..,.;WITH THIS R|
00001230: 4F 55 54 49 4E 45 20 41 4C 4C 20 57 45 20 43 41 |OUTINE ALL WE CA|
00001240: 4E 20 53 50 45 43 8B 59 20 49 53 20 41 20 54 52 |N SPEC.Y IS A TR|
00001250: 41 43 4B 20 CB 20 A4 20 49 54 20 AF 20 87 20 54 |ACK . . IT . . T|
00001260: 48 45 20 46 49 52 53 54 00 D2 0A 36 01 3B 32 35 |HE FIRST...6.;25|
00001270: 36 20 42 59 54 45 53 20 54 48 45 20 87 20 48 45 |6 BYTES THE . HE|
00001280: 41 44 20 50 41 53 53 45 53 20 4F 56 45 52 20 42 |AD PASSES OVER B|
00001290: 55 54 20 49 54 53 20 45 4E 4F 55 47 48 20 A4 20 |UT ITS ENOUGH . |
000012A0: 54 45 4C 4C 20 55 53 20 8B 20 54 48 45 52 45 20 |TELL US . THERE |
000012B0: 49 53 00 1C 0B 40 01 3B 41 4E 59 20 55 53 45 46 |IS...@.;ANY USEF|
000012C0: 55 4C 4C 20 83 20 4F 4E 20 54 48 45 20 54 52 41 |ULL . ON THE TRA|
000012D0: 43 4B 20 49 46 20 54 48 45 52 45 20 49 53 20 41 |CK IF THERE IS A|
000012E0: 20 52 4F 55 54 49 4E 45 20 43 41 4E 20 42 45 20 | ROUTINE CAN BE |
000012F0: 50 55 54 20 54 4F 47 45 54 48 45 52 00 62 0B 4A |PUT TOGETHER.b.J|
00001300: 01 3B A4 20 87 20 49 4E 20 53 4F 4D 45 20 83 2C |.;. . IN SOME .,|
00001310: 20 43 48 45 43 4B 20 54 48 45 20 46 49 52 53 54 | CHECK THE FIRST|
00001320: 20 35 20 4F 52 20 53 4F 20 42 59 54 45 53 2C 20 | 5 OR SO BYTES, |
00001330: 43 48 45 43 4B 20 49 54 20 57 49 54 48 20 57 48 |CHECK IT WITH WH|
00001340: 41 54 00 98 0B 54 01 3B 57 45 20 41 4C 87 59 20 |AT...T.;WE AL.Y |
00001350: 48 41 56 45 2C 20 8B 20 49 54 53 20 44 8B 46 45 |HAVE, . ITS D.FE|
00001360: 52 45 4E 54 20 94 20 49 54 20 8B 20 A8 20 87 20 |RENT . IT . . . |
00001370: 53 4F 4D 45 20 4D B0 45 00 E5 0B 5E 01 3B 8F 45 |SOME M.E...^.;.E|
00001380: 4D 42 45 52 20 54 48 49 53 20 49 53 20 47 43 52 |MBER THIS IS GCR|
00001390: 20 44 41 54 41 20 53 4F 20 49 54 20 48 41 53 20 | DATA SO IT HAS |
000013A0: 54 4F 20 42 45 20 54 52 41 4E 53 4C 41 54 45 44 |TO BE TRANSLATED|
000013B0: 20 46 49 52 53 54 20 49 20 53 55 47 47 45 53 54 | FIRST I SUGGEST|
000013C0: 20 54 48 41 54 00 27 0C 68 01 3B 59 4F 55 20 57 | THAT.'.h.;YOU W|
000013D0: B0 4B 20 57 49 54 48 20 4E B0 4D 41 4C 4C 59 20 |.K WITH N.MALLY |
000013E0: 81 4D 41 54 54 45 44 20 44 49 53 4B 53 20 46 49 |.MATTED DISKS FI|
000013F0: 52 53 54 20 A4 20 A1 20 54 48 45 20 48 41 4E 47 |RST . . THE HANG|
00001400: 20 4F 46 20 47 43 52 00 68 0C 72 01 3B 41 53 20 | OF GCR.h.r.;AS |
00001410: 59 4F 55 20 57 91 54 20 46 49 4E 44 20 54 48 45 |YOU W.T FIND THE|
00001420: 20 4E B0 4D 41 4C 20 53 59 4E 43 20 4D 41 52 4B | N.MAL SYNC MARK|
00001430: 53 20 55 53 55 41 4C 4C 59 20 46 4F 55 4E 44 20 |S USUALLY FOUND |
00001440: 57 49 54 48 20 47 43 52 00 A5 0C 7C 01 3B 57 50 |WITH GCR...|.;WP|
00001450: 47 43 52 20 91 20 54 48 49 53 20 44 49 53 4B 20 |GCR . THIS DISK |
00001460: 44 45 53 43 52 49 42 45 53 20 57 48 41 54 20 47 |DESCRIBES WHAT G|
00001470: 43 52 20 49 53 20 AF 20 57 48 41 54 20 A4 20 4C |CR IS . WHAT . L|
00001480: 4F 4F 4B 20 81 00 EC 0C 86 01 3B 59 4F 55 20 43 |OOK ......;YOU C|
00001490: 41 4E 20 41 4C 53 4F 20 55 53 45 20 44 49 53 4B |AN ALSO USE DISK|
000014A0: 20 52 41 4D 20 41 44 44 52 45 53 53 45 53 20 46 | RAM ADDRESSES F|
000014B0: 52 4F 4D 20 24 30 36 30 30 20 A4 20 24 30 37 46 |ROM $0600 . $07F|
000014C0: 46 20 A4 20 87 20 49 4E 20 4D B0 45 00 35 0D 90 |F . . IN M.E.5..|
000014D0: 01 3B 83 20 41 54 20 41 20 54 49 4D 45 20 4A 55 |.;. AT A TIME JU|
000014E0: 53 54 20 4D 41 4B 45 20 53 55 52 45 20 54 4F 20 |ST MAKE SURE TO |
000014F0: 49 4E 49 54 49 41 4C 49 5A 45 20 54 48 45 20 44 |INITIALIZE THE D|
00001500: 49 53 4B 20 57 48 45 4E 20 59 4F 55 52 20 44 4F |ISK WHEN YOUR DO|
00001510: 4E 45 20 41 53 00 63 0D 9A 01 3B 24 30 37 30 30 |NE AS.c...;$0700|
00001520: 20 A4 20 24 30 37 46 46 20 49 53 20 55 53 45 44 | . $07FF IS USED|
00001530: 20 81 20 54 48 45 20 42 41 4D 20 44 49 52 45 43 | . THE BAM DIREC|
00001540: A4 52 59 00 AD 0D A4 01 3B 46 49 4E 41 4C 4C 59 |.RY.....;FINALLY|
00001550: 20 57 48 45 4E 20 4E 4F 20 53 59 4E 43 20 49 53 | WHEN NO SYNC IS|
00001560: 20 55 53 45 44 20 81 20 50 52 4F 54 45 43 54 49 | USED . PROTECTI|
00001570: 91 20 41 A8 48 45 52 20 52 4F 55 54 49 4E 45 20 |. A.HER ROUTINE |
00001580: 91 20 54 48 45 20 44 49 53 4B 20 49 53 00 F3 0D |. THE DISK IS...|
00001590: AE 01 3B 55 53 45 44 20 A4 20 87 20 49 54 20 48 |..;USED . . IT H|
000015A0: 45 4E 43 45 20 4E 4F 20 53 59 4E 43 20 49 53 20 |ENCE NO SYNC IS |
000015B0: A8 20 54 48 45 20 4F 47 45 52 20 50 45 4F 50 4C |. THE OGER PEOPL|
000015C0: 45 20 54 48 49 4E 4B 20 49 54 20 49 53 20 49 20 |E THINK IT IS I |
000015D0: 50 55 54 00 36 0E B8 01 3B 54 48 49 53 20 52 4F |PUT.6...;THIS RO|
000015E0: 55 54 49 4E 45 20 48 45 52 45 20 A4 20 53 48 4F |UTINE HERE . SHO|
000015F0: 57 20 49 54 20 49 53 20 B9 53 49 42 4C 45 20 A4 |W IT IS .SIBLE .|
00001600: 20 87 20 49 54 20 42 55 54 20 54 48 45 20 4B 45 | . IT BUT THE KE|
00001610: 59 20 A4 20 49 54 00 7B 0E C2 01 3B 49 53 20 45 |Y . IT.{...;IS E|
00001620: 4C 53 45 57 48 45 52 45 20 91 20 54 48 45 20 44 |LSEWHERE . THE D|
00001630: 49 53 4B 20 41 20 4C 49 54 54 4C 45 20 48 55 4E |ISK A LITTLE HUN|
00001640: 54 49 4E 47 20 41 52 4F 55 4E 44 20 49 53 20 41 |TING AROUND IS A|
00001650: 4C 4C 20 49 54 20 54 41 4B 45 53 00 8E 0E CC 01 |LL IT TAKES.....|
00001660: 2E 80 20 87 20 48 44 52 4E AD 53 59 4E 43 00 00 |.. . HDRN.SYNC..|
00001670: 00 20 AF 20 57 48 41 54 20 A4 20 4C 4F 4F 4B 20 |. . WHAT . LOOK |
00001680: 81 00 EC 0C 86 01 3B 59 4F 55 20 43 41 4E 20 41 |......;YOU CAN A|
00001690: 4C 53 4F 20 55 53 45 20 44 49 53 4B 20 52 41 4D |LSO USE DISK RAM|
000016A0: 20 41 44 44 52 45 53 53 45 53 20 46 52 4F 4D 20 | ADDRESSES FROM |
000016B0: 24 30 36 30 30 20 A4 20 24 30 37 46 46 20 A4 20 |$0600 . $07FF . |
000016C0: 87 20 49 4E 20 4D B0 45 00 35 0D 90 01 3B 83 20 |. IN M.E.5...;. |
000016D0: 41 54 01 08 0E 08 0A 00 AC B2 20 24 37 32 30 30 |AT........ $7200|
000016E0: 00 15 08 14 00 2E 53 00 47 08 3C 00 3B 93 45 52 |......S.G.<.;.ER|
000016F0: 20 54 52 41 4E 53 46 45 52 20 4D AD 4C 20 50 52 | TRANSFER M.L PR|
00001700: 4F 47 52 41 4D 20 A4 20 24 30 33 30 30 20 49 4E |OGRAM . $0300 IN|
00001710: 20 31 35 34 31 20 52 41 4D 00 68 08 6E 00 3B 36 | 1541 RAM.h.n.;6|
00001720: 34 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 26 |4 ROM ROUTINES &|
00001730: 20 41 44 44 52 45 53 53 45 53 00 78 08 82 00 4C | ADDRESSES.x...L|
00001740: 49 53 20 B2 20 24 46 46 42 31 00 8A 08 8C 00 4C |IS . $FFB1.....L|
00001750: 49 53 45 43 20 B2 20 24 46 46 39 33 00 9C 08 96 |ISEC . $FF93....|
00001760: 00 55 4E 4C 49 53 20 B2 20 24 46 46 41 45 00 AC |.UNLIS . $FFAE..|
00001770: 08 A0 00 4F 55 54 20 B2 20 24 46 46 41 38 00 BD |...OUT . $FFA8..|
00001780: 08 AA 00 50 52 4F 47 20 B2 20 24 37 31 30 30 00 |...PROG . $7100.|
00001790: E0 08 BE 00 3B 31 35 34 31 20 52 4F 4D 20 52 4F |....;1541 ROM RO|
000017A0: 55 54 49 4E 45 53 20 26 20 41 44 44 52 45 53 53 |UTINES & ADDRESS|
000017B0: 45 53 00 E9 08 C8 00 3B 4E 91 45 00 FC 08 DC 00 |ES.....;N.E.....|
000017C0: 53 54 41 52 54 20 4C 44 41 20 23 24 30 38 00 08 |START LDA #$08..|
000017D0: 09 E6 00 4A 53 52 20 4C 49 53 00 15 09 F0 00 4C |...JSR LIS.....L|
000017E0: 44 41 20 23 24 46 46 00 23 09 FA 00 4A 53 52 20 |DA #$FF.#...JSR |
000017F0: 4C 49 53 45 43 00 30 09 04 01 4C 44 58 20 23 24 |LISEC.0...LDX #$|
00001800: 30 30 00 41 09 0E 01 4C 50 31 20 4C 44 41 20 4D |00.A...LP1 LDA M|
00001810: 57 2C 58 00 4D 09 18 01 4A 53 52 20 4F 55 54 00 |W,X.M...JSR OUT.|
00001820: 55 09 22 01 49 4E 58 00 62 09 2C 01 43 50 58 20 |U.".INX.b.,.CPX |
00001830: 23 24 30 36 00 6E 09 36 01 42 4E 45 20 4C 50 31 |#$06.n.6.BNE LP1|
00001840: 00 A9 09 4A 01 3B 4C 44 41 20 23 24 30 38 20 44 |...J.;LDA #$08 D|
00001850: 45 56 49 43 45 20 4E 55 4D 42 45 52 20 81 20 44 |EVICE NUMBER . D|
00001860: 49 53 4B 20 4A 53 52 20 A4 20 9B 45 4E 20 52 4F |ISK JSR . .EN RO|
00001870: 55 54 49 4E 45 20 24 45 44 30 43 00 EF 09 54 01 |UTINE $ED0C...T.|
00001880: 3B 54 48 45 20 9B 45 4E 20 52 4F 55 54 49 4E 45 |;THE .EN ROUTINE|
00001890: 20 41 4C 4C 45 52 54 53 20 54 48 45 20 44 49 53 | ALLERTS THE DIS|
000018A0: 4B 20 54 48 41 54 20 41 20 43 4F 4D 4D AF 20 49 |K THAT A COMM. I|
000018B0: 53 20 42 45 49 4E 47 20 53 45 4E 54 20 A4 20 49 |S BEING SENT . I|
000018C0: 54 00 2F 0A 5E 01 3B 54 48 45 20 36 35 30 32 AD |T./.^.;THE 6502.|
000018D0: 31 30 20 52 45 51 55 49 52 45 53 20 41 20 53 45 |10 REQUIRES A SE|
000018E0: 43 91 44 41 52 59 20 41 44 44 52 45 53 53 20 57 |C.DARY ADDRESS W|
000018F0: 49 54 48 20 54 48 45 20 9B 45 4E 20 43 4F 4D 4D |ITH THE .EN COMM|
00001900: AF 00 74 0A 68 01 3B 54 48 49 53 20 49 53 20 54 |..t.h.;THIS IS T|
00001910: 48 45 20 53 41 4D 45 20 41 53 20 9F 20 31 35 2C |HE SAME AS . 15,|
00001920: 38 2C 31 35 2E 20 54 48 45 20 23 24 46 46 20 57 |8,15. THE #$FF W|
00001930: 49 4C 4C 20 42 45 20 43 91 56 45 52 54 45 44 20 |ILL BE C.VERTED |
00001940: A4 20 23 24 30 46 00 B2 0A 72 01 3B 42 59 20 54 |. #$0F...r.;BY T|
00001950: 48 45 20 53 45 43 91 44 41 52 59 20 52 4F 55 54 |HE SEC.DARY ROUT|
00001960: 49 4E 45 20 24 45 44 42 39 20 AF 20 53 45 4E 54 |INE $EDB9 . SENT|
00001970: 20 4F 56 45 52 20 54 48 45 20 53 45 52 49 41 4C | OVER THE SERIAL|
00001980: 20 42 55 53 00 F8 0A 7C 01 3B 57 45 20 53 45 54 | BUS...|.;WE SET|
00001990: 20 55 50 20 41 20 4C 4F 4F 50 20 57 49 54 48 20 | UP A LOOP WITH |
000019A0: 58 20 AF 20 53 80 20 54 48 45 20 43 4F 4D 4D AF |X . S. THE COMM.|
000019B0: 20 4D AB 57 20 30 30 20 30 33 20 32 30 20 28 4D | M.W 00 03 20 (M|
000019C0: 45 4D B0 59 20 57 52 49 54 45 00 43 0B 86 01 3B |EM.Y WRITE.C...;|
000019D0: 40 20 24 30 33 30 30 20 23 24 32 30 20 28 23 33 |@ $0300 #$20 (#3|
000019E0: 32 20 42 59 54 45 53 29 20 29 20 57 45 20 41 52 |2 BYTES) ) WE AR|
000019F0: 45 20 4C 49 4D 49 54 45 44 20 A4 20 53 80 49 4E |E LIMITED . S.IN|
00001A00: 47 20 23 33 32 20 42 59 54 45 53 20 41 54 20 41 |G #32 BYTES AT A|
00001A10: 20 54 49 4D 45 00 8F 0B 90 01 3B 42 45 43 41 55 | TIME.....;BECAU|
00001A20: 53 45 20 4F 46 20 54 48 49 53 20 4F 55 52 20 50 |SE OF THIS OUR P|
00001A30: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 53 80 20 23 |ROGRAM WILL S. #|
00001A40: 32 35 36 20 42 59 54 45 53 20 41 53 20 49 54 27 |256 BYTES AS IT'|
00001A50: 53 20 45 41 53 49 45 52 20 A4 20 53 45 54 20 55 |S EASIER . SET U|
00001A60: 50 00 BF 0B 9A 01 3B 54 48 45 20 4C 4F 4F 50 20 |P.....;THE LOOP |
00001A70: 81 20 23 32 35 36 20 41 53 20 23 33 32 20 49 53 |. #256 AS #32 IS|
00001A80: 20 41 20 44 49 56 49 53 B0 20 4F 46 20 23 32 35 | A DIVIS. OF #25|
00001A90: 36 00 CC 0B AE 01 4C 44 59 20 23 24 30 30 00 DD |6.....LDY #$00..|
00001AA0: 0B B8 01 4C 50 32 20 4C 44 41 20 50 52 4F 47 00 |...LP2 LDA PROG.|
00001AB0: E9 0B C2 01 4A 53 52 20 4F 55 54 00 F7 0B CC 01 |....JSR OUT.....|
00001AC0: 49 4E 43 20 4C 50 32 AA 31 00 04 0C D6 01 49 4E |INC LP2.1.....IN|
00001AD0: 43 20 4D 57 AA 33 00 0C 0C E0 01 49 4E 59 00 19 |C MW.3.....INY..|
00001AE0: 0C EA 01 43 50 59 20 23 24 32 30 00 25 0C F4 01 |...CPY #$20.%...|
00001AF0: 42 4E 45 20 4C 50 32 00 32 0C FE 01 4C 44 41 20 |BNE LP2.2...LDA |
00001B00: 4D 57 AA 33 00 3C 0C 08 02 42 45 51 20 A0 00 4A |MW.3.<...BEQ ..J|
00001B10: 0C 12 02 4A 53 52 20 55 4E 4C 49 53 00 58 0C 1C |...JSR UNLIS.X..|
00001B20: 02 4A 4D 50 20 53 54 41 52 54 00 68 0C 26 02 A0 |.JMP START.h.&..|
00001B30: 20 4A 53 52 20 55 4E 4C 49 53 00 70 0C 30 02 42 | JSR UNLIS.p.0.B|
00001B40: 52 4B 00 93 0C 44 02 3B 42 55 46 46 45 52 20 57 |RK...D.;BUFFER W|
00001B50: 49 54 48 20 4D 45 4D B0 59 20 57 52 49 54 45 20 |ITH MEM.Y WRITE |
00001B60: 43 4F 4D 4D AF 00 B2 0C 58 02 4D 57 20 2E 42 59 |COMM....X.MW .BY|
00001B70: 54 45 20 37 37 20 34 35 20 38 37 20 30 30 20 30 |TE 77 45 87 00 0|
00001B80: 33 20 33 32 00 F2 0C 6C 02 3B 4C 49 4E 45 20 34 |3 32...l.;LINE 4|
00001B90: 33 30 20 53 54 41 52 54 53 20 4F 55 52 20 41 43 |30 STARTS OUR AC|
00001BA0: 54 55 41 4C 20 53 80 49 4E 47 20 4F 46 20 54 48 |TUAL S.ING OF TH|
00001BB0: 45 20 50 52 4F 47 52 41 4D 20 A4 20 54 48 45 20 |E PROGRAM . THE |
00001BC0: 44 49 53 4B 00 35 0D 76 02 3B 57 45 20 93 20 41 |DISK.5.v.;WE . A|
00001BD0: 20 57 49 54 48 20 54 48 45 20 46 49 52 53 54 20 | WITH THE FIRST |
00001BE0: 42 59 54 45 20 41 54 20 24 37 31 30 30 20 AF 20 |BYTE AT $7100 . |
00001BF0: 53 80 20 49 54 20 A7 20 49 4E 43 8F 45 4E 54 20 |S. IT . INC.ENT |
00001C00: 54 48 45 20 4C 4F 57 00 81 0D 80 02 3B 42 59 54 |THE LOW.....;BYT|
00001C10: 45 20 24 37 31 30 30 20 B2 20 24 37 31 30 31 20 |E $7100 . $7101 |
00001C20: AF 20 49 4E 43 8F 45 4E 54 20 54 48 45 20 4C 4F |. INC.ENT THE LO|
00001C30: 57 20 42 59 54 45 20 4F 46 20 4D 2D 57 20 43 4F |W BYTE OF M-W CO|
00001C40: 4D 4D 41 4E 44 20 24 30 33 30 30 20 3D 20 24 30 |MMAND $0300 = $0|
00001C50: 33 30 31 00 C0 0D 8A 02 3B 54 48 49 53 20 9A 49 |301.....;THIS .I|
00001C60: 4E 55 45 53 20 55 4E 54 49 4C 20 41 4C 4C 20 23 |NUES UNTIL ALL #|
00001C70: 33 32 20 42 59 54 45 53 20 48 41 56 45 20 42 45 |32 BYTES HAVE BE|
00001C80: 45 4E 20 53 45 4E 54 20 A4 20 54 48 45 20 44 49 |EN SENT . THE DI|
00001C90: 53 4B 00 07 0E 94 02 3B 4F 55 52 20 4C 4F 57 20 |SK.....;OUR LOW |
00001CA0: 42 59 54 45 20 4F 46 20 54 48 45 20 4D AB 57 20 |BYTE OF THE M.W |
00001CB0: 43 4F 4D 4D AF 20 49 53 20 4E 4F 57 20 23 24 32 |COMM. IS NOW #$2|
00001CC0: 30 20 28 23 33 32 29 20 57 45 20 43 4F 4D 50 41 |0 (#32) WE COMPA|
00001CD0: 52 45 20 81 20 23 24 30 30 00 53 0E 9E 02 3B 8B |RE . #$00.S...;.|
00001CE0: 20 49 54 20 49 53 20 57 45 20 48 41 56 45 20 57 | IT IS WE HAVE W|
00001CF0: 52 41 50 50 45 44 20 41 52 4F 55 4E 44 20 28 23 |RAPPED AROUND (#|
00001D00: 24 46 46 20 A4 20 23 24 30 30 29 20 23 32 35 36 |$FF . #$00) #256|
00001D10: 20 42 59 54 45 53 20 48 41 56 45 20 42 45 45 4E | BYTES HAVE BEEN|
00001D20: 20 53 45 4E 54 00 8E 0E A8 02 3B 57 45 20 4A 53 | SENT.....;WE JS|
00001D30: 52 20 A4 20 55 4E 9B 45 4E 20 24 45 44 46 45 20 |R . UN.EN $EDFE |
00001D40: A0 20 54 48 45 20 43 4F 4D 4D AF 20 43 48 41 4E |. THE COMM. CHAN|
00001D50: 4E 45 4C 20 4D 55 53 54 20 42 45 20 A0 44 20 AF |NEL MUST BE .D .|
00001D60: 00 C4 0E B2 02 3B AF 20 A7 20 52 45 9F 45 44 20 |.....;. . RE.ED |
00001D70: AF 20 4A 55 4D 50 20 42 41 43 4B 20 A4 20 53 54 |. JUMP BACK . ST|
00001D80: 41 52 54 20 A4 20 53 80 20 23 33 32 20 4D B0 45 |ART . S. #32 M.E|
00001D90: 20 42 59 54 45 53 00 09 0F BC 02 3B 42 59 20 43 | BYTES.....;BY C|
00001DA0: 48 41 4E 47 49 4E 47 20 54 48 49 53 20 52 4F 55 |HANGING THIS ROU|
00001DB0: 54 49 4E 45 20 41 52 4F 55 4E 44 20 59 4F 55 20 |TINE AROUND YOU |
00001DC0: 43 41 4E 20 87 20 83 20 46 52 4F 4D 20 54 48 45 |CAN . . FROM THE|
00001DD0: 20 44 49 53 4B 20 55 53 49 4E 47 00 4C 0F C6 02 | DISK USING.L...|
00001DE0: 3B 54 48 45 20 41 42 4F 56 45 20 52 4F 55 54 49 |;THE ABOVE ROUTI|
00001DF0: 4E 45 20 AF 20 4D AB 52 20 49 4E 53 54 45 41 44 |NE . M.R INSTEAD|
00001E00: 20 4F 46 20 4D AB 57 20 53 45 45 20 54 52 41 43 | OF M.W SEE TRAC|
00001E10: 45 20 81 20 41 4E 20 45 58 41 4D 50 4C 45 00 57 |E . AN EXAMPLE.W|
00001E20: 0F DA 02 2E 80 20 93 45 52 00 00 00 57 20 42 59 |..... .ER...W BY|
00001E30: 54 45 20 4F 46 20 4D 2D 57 20 43 4F 4D 4D 41 4E |TE OF M-W COMMAN|
00001E40: 44 20 24 30 33 30 30 20 3D 20 24 30 33 30 31 00 |D $0300 = $0301.|
00001E50: C0 0D 8A 02 3B 54 48 49 53 20 9A 49 4E 55 45 53 |....;THIS .INUES|
00001E60: 20 55 4E 54 49 4C 20 41 4C 4C 20 23 33 32 20 42 | UNTIL ALL #32 B|
00001E70: 59 54 45 53 20 48 41 56 45 20 42 45 45 4E 20 53 |YTES HAVE BEEN S|
00001E80: 45 4E 54 20 A4 20 54 48 45 20 44 49 53 4B 00 07 |ENT . THE DISK..|
00001E90: 0E 94 02 3B 4F 55 52 20 4C 4F 57 20 42 59 54 45 |...;OUR LOW BYTE|
00001EA0: 20 4F 46 20 54 48 45 20 4D AB 57 20 43 4F 4D 4D | OF THE M.W COMM|
00001EB0: AF 20 49 53 20 4E 4F 57 20 23 24 32 30 20 28 23 |. IS NOW #$20 (#|
00001EC0: 33 32 01 08 0E 08 0A 00 AC B2 20 24 37 31 30 30 |32........ $7100|
00001ED0: 00 15 08 1E 00 2E 53 00 23 08 5A 00 99 20 B2 20 |......S.#.Z.. . |
00001EE0: 24 46 46 44 32 00 38 08 5F 00 3B 94 20 54 48 45 |$FFD2.8._.;. THE|
00001EF0: 20 52 45 47 49 53 54 45 52 53 00 55 08 64 00 53 | REGISTERS.U.d.S|
00001F00: 54 41 20 B0 47 3A 53 54 41 20 41 3A 53 54 58 20 |TA .G:STA A:STX |
00001F10: 58 3A 53 54 59 20 59 00 65 08 6E 00 50 48 50 3B |X:STY Y.e.n.PHP;|
00001F20: 94 20 46 4C 41 47 53 00 72 08 BE 00 4C 44 59 20 |. FLAGS.r...LDY |
00001F30: 23 24 30 37 00 81 08 C8 00 4C 50 31 20 4C 44 41 |#$07.....LP1 LDA|
00001F40: 20 B0 47 00 8E 08 D2 00 AF 20 4D 41 53 4B 2C 59 | .G...... MASK,Y|
00001F50: 00 A9 08 D3 00 3B 45 58 41 4D 50 4C 45 20 B0 47 |.....;EXAMPLE .G|
00001F60: 20 B2 20 31 30 31 30 31 30 31 30 00 C5 08 D4 00 | . 10101010.....|
00001F70: 3B 4D 41 53 4B 20 B2 20 20 20 20 20 20 20 20 31 |;MASK . 1|
00001F80: 31 31 31 31 31 31 30 00 E1 08 D5 00 3B 52 45 53 |1111110.....;RES|
00001F90: 55 4C 54 20 B2 20 20 20 20 20 20 31 30 31 30 31 |ULT . 10101|
00001FA0: 30 31 30 00 1F 09 D6 00 3B 57 48 45 4E 20 43 4F |010.....;WHEN CO|
00001FB0: 4D 50 41 52 45 44 20 8B 20 52 45 53 55 4C 54 20 |MPARED . RESULT |
00001FC0: 49 53 20 45 51 55 41 4C 20 A7 20 50 55 54 20 41 |IS EQUAL . PUT A|
00001FD0: 20 5A 45 52 4F 20 41 54 20 42 49 54 20 5A 45 52 | ZERO AT BIT ZER|
00001FE0: 4F 00 5E 09 D7 00 3B 8B 20 57 48 45 4E 20 43 4F |O.^...;. WHEN CO|
00001FF0: 4D 50 41 52 45 44 20 54 48 45 20 52 45 55 4C 54 |MPARED THE REULT|
00002000: 20 49 53 20 A8 20 45 51 55 41 4C 20 50 55 54 20 | IS . EQUAL PUT |
00002010: 41 20 91 45 20 41 54 20 42 49 54 20 5A 45 52 4F |A .E AT BIT ZERO|
00002020: 00 69 09 DC 00 43 4D 50 20 B0 47 00 76 09 E6 00 |.i...CMP .G.v...|
00002030: 42 45 51 20 5A 45 52 4F 00 8D 09 E7 00 3B 50 55 |BEQ ZERO.....;PU|
00002040: 54 20 41 20 91 45 20 41 54 20 42 49 54 2C 59 00 |T A .E AT BIT,Y.|
00002050: 9A 09 F0 00 4C 44 41 20 23 24 33 31 00 A9 09 FA |....LDA #$31....|
00002060: 00 53 54 41 20 42 49 54 53 2C 59 00 B1 09 04 01 |.STA BITS,Y.....|
00002070: 44 45 59 00 BE 09 0E 01 43 50 59 20 23 24 46 46 |DEY.....CPY #$FF|
00002080: 00 CA 09 18 01 42 4E 45 20 4C 50 31 00 D6 09 22 |.....BNE LP1..."|
00002090: 01 4A 4D 50 20 4F 55 54 00 EF 09 23 01 3B 50 55 |.JMP OUT...#.;PU|
000020A0: 54 20 41 20 5A 45 52 4F 20 41 54 20 42 49 54 2C |T A ZERO AT BIT,|
000020B0: 59 00 01 0A A4 01 5A 45 52 4F 20 4C 44 41 20 23 |Y.....ZERO LDA #|
000020C0: 24 33 30 00 10 0A AE 01 53 54 41 20 42 49 54 53 |$30.....STA BITS|
000020D0: 2C 59 00 18 0A B8 01 44 45 59 00 25 0A C2 01 43 |,Y.....DEY.%...C|
000020E0: 50 59 20 23 24 46 46 00 31 0A CC 01 42 4E 45 20 |PY #$FF.1...BNE |
000020F0: 4C 50 31 00 46 0A CD 01 3B 99 20 42 49 54 53 20 |LP1.F...;. BITS |
00002100: A4 20 53 43 52 45 45 4E 00 57 0A D6 01 4F 55 54 |. SCREEN.W...OUT|
00002110: 20 4C 44 41 20 23 24 30 44 00 61 0A E0 01 4A 53 | LDA #$0D.a...JS|
00002120: 52 20 99 00 6E 0A FE 01 4C 44 59 20 23 24 30 30 |R ..n...LDY #$00|
00002130: 00 7F 0A 08 02 4C 50 32 20 4C 44 41 20 23 24 32 |.....LP2 LDA #$2|
00002140: 30 00 89 0A 12 02 4A 53 52 20 99 00 98 0A 1C 02 |0.....JSR ......|
00002150: 4C 44 41 20 42 49 54 53 2C 59 00 A2 0A 26 02 4A |LDA BITS,Y...&.J|
00002160: 53 52 20 99 00 AA 0A 30 02 49 4E 59 00 B7 0A 3A |SR ....0.INY...:|
00002170: 02 43 50 59 20 23 24 30 38 00 C3 0A 44 02 42 4E |.CPY #$08...D.BN|
00002180: 45 20 4C 50 32 00 D0 0A 45 02 4C 44 41 20 23 24 |E LP2...E.LDA #$|
00002190: 30 44 00 DA 0A 46 02 4A 53 52 20 99 00 F7 0A 47 |0D...F.JSR ....G|
000021A0: 02 3B 8C 20 54 48 45 20 52 45 47 49 53 54 45 52 |.;. THE REGISTER|
000021B0: 53 20 AF 20 46 4C 41 47 53 00 0D 0B 4E 02 4C 44 |S . FLAGS...N.LD|
000021C0: 41 20 41 3A 4C 44 58 20 58 3A 4C 44 59 20 59 00 |A A:LDX X:LDY Y.|
000021D0: 15 0B 53 02 50 4C 50 00 1D 0B 58 02 52 54 53 00 |..S.PLP...X.RTS.|
000021E0: 4C 0B 62 02 4D 41 53 4B 20 2E 42 59 54 45 20 31 |L.b.MASK .BYTE 1|
000021F0: 32 37 20 31 39 31 20 32 32 33 20 32 33 39 20 32 |27 191 223 239 2|
00002200: 34 37 20 32 35 31 20 32 35 33 20 32 35 34 00 6B |47 251 253 254.k|
00002210: 0B 6C 02 42 49 54 53 20 2E 42 59 54 45 20 30 20 |.l.BITS .BYTE 0 |
00002220: 30 20 30 20 30 20 30 20 30 20 30 20 30 00 7A 0B |0 0 0 0 0 0 0.z.|
00002230: 76 02 B0 47 20 2E 42 59 54 45 20 30 00 88 0B 80 |v..G .BYTE 0....|
00002240: 02 41 20 2E 42 59 54 45 20 30 00 96 0B 8A 02 58 |.A .BYTE 0.....X|
00002250: 20 2E 42 59 54 45 20 30 00 A4 0B 94 02 59 20 2E | .BYTE 0.....Y .|
00002260: 42 59 54 45 20 30 00 B2 0B 9E 02 2E 80 20 42 49 |BYTE 0....... BI|
00002270: 4E 41 52 59 00 00 00 20 23 24 46 46 00 CA 09 18 |NARY... #$FF....|
00002280: 01 42 4E 45 20 4C 50 31 00 D6 09 22 01 4A 4D 50 |.BNE LP1...".JMP|
00002290: 20 4F 55 54 00 EF 09 23 01 3B 50 55 54 20 41 20 | OUT...#.;PUT A |
000022A0: 5A 45 52 4F 20 41 54 20 42 49 54 2C 59 00 01 0A |ZERO AT BIT,Y...|
000022B0: A4 01 5A 45 52 4F 20 4C 44 41 01 08 0E 08 0A 00 |..ZERO LDA......|
000022C0: AC B2 20 24 37 31 30 30 00 15 08 14 00 2E 53 00 |.. $7100......S.|
000022D0: 45 08 28 00 3B 87 20 45 52 52 B0 20 87 53 20 45 |E.(.;. ERR. .S E|
000022E0: 52 52 B0 20 43 4F 44 45 20 40 20 24 30 30 30 30 |RR. CODE @ $0000|
000022F0: 20 5A 45 52 4F 20 50 41 47 45 20 31 35 34 31 00 | ZERO PAGE 1541.|
00002300: 66 08 5A 00 3B 36 34 20 52 4F 4D 20 52 4F 55 54 |f.Z.;64 ROM ROUT|
00002310: 49 4E 45 53 20 26 20 41 44 44 52 45 53 53 45 53 |INES & ADDRESSES|
00002320: 00 74 08 6E 00 99 20 B2 20 24 46 46 44 32 00 84 |.t.n.. . $FFD2..|
00002330: 08 78 00 4C 49 53 20 B2 20 24 46 46 42 31 00 96 |.x.LIS . $FFB1..|
00002340: 08 82 00 55 4E 4C 49 53 20 B2 20 24 46 46 41 45 |...UNLIS . $FFAE|
00002350: 00 A8 08 8C 00 4C 49 53 45 43 20 B2 20 24 46 46 |.....LISEC . $FF|
00002360: 39 33 00 B8 08 96 00 4F 55 54 20 B2 20 24 46 46 |93.....OUT . $FF|
00002370: 41 38 00 C7 08 A0 00 49 4E 20 B2 20 24 46 46 41 |A8.....IN . $FFA|
00002380: 35 00 D7 08 AA 00 54 4C 4B 20 B2 20 24 46 46 42 |5.....TLK . $FFB|
00002390: 34 00 E9 08 B4 00 55 4E 54 4C 4B 20 B2 20 24 46 |4.....UNTLK . $F|
000023A0: 46 41 42 00 FC 08 BE 00 54 4C 4B 53 45 43 20 B2 |FAB.....TLKSEC .|
000023B0: 20 24 46 46 39 36 00 17 09 D2 00 3B 31 35 34 31 | $FF96.....;1541|
000023C0: 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 4E 91 | ROM ROUTINES N.|
000023D0: 45 00 24 09 E6 00 4C 44 41 20 23 24 30 38 00 30 |E.$...LDA #$08.0|
000023E0: 09 F0 00 4A 53 52 20 4C 49 53 00 3D 09 FA 00 4C |...JSR LIS.=...L|
000023F0: 44 41 20 23 24 46 46 00 4B 09 04 01 4A 53 52 20 |DA #$FF.K...JSR |
00002400: 4C 49 53 45 43 00 58 09 0E 01 4C 44 59 20 23 24 |LISEC.X...LDY #$|
00002410: 30 30 00 69 09 18 01 4C 50 31 20 4C 44 41 20 4D |00.i...LP1 LDA M|
00002420: 52 2C 59 00 75 09 22 01 4A 53 52 20 4F 55 54 00 |R,Y.u.".JSR OUT.|
00002430: 7D 09 2C 01 49 4E 59 00 8A 09 36 01 43 50 59 20 |}.,.INY...6.CPY |
00002440: 23 24 30 36 00 96 09 40 01 42 4E 45 20 4C 50 31 |#$06...@.BNE LP1|
00002450: 00 A4 09 4A 01 4A 53 52 20 55 4E 4C 49 53 00 DA |...J.JSR UNLIS..|
00002460: 09 5E 01 3B 53 80 20 4D AB 52 20 30 30 20 30 30 |.^.;S. M.R 00 00|
00002470: 20 30 31 20 4D 45 4D B0 59 20 87 20 24 30 30 30 | 01 MEM.Y . $000|
00002480: 30 20 31 20 42 59 54 45 20 28 45 52 52 B0 20 43 |0 1 BYTE (ERR. C|
00002490: 4F 44 45 29 00 E7 09 72 01 4C 44 41 20 23 24 30 |ODE)...r.LDA #$0|
000024A0: 38 00 F3 09 7C 01 4A 53 52 20 54 4C 4B 00 00 0A |8...|.JSR TLK...|
000024B0: 86 01 4C 44 41 20 23 24 46 46 00 0F 0A 90 01 4A |..LDA #$FF.....J|
000024C0: 53 52 20 54 4C 4B 53 45 43 00 1A 0A 9A 01 4A 53 |SR TLKSEC.....JS|
000024D0: 52 20 49 4E 00 26 0A A4 01 53 54 41 20 45 52 52 |R IN.&...STA ERR|
000024E0: 00 34 0A AE 01 4A 53 52 20 55 4E 54 4C 4B 00 3C |.4...JSR UNTLK.<|
000024F0: 0A B3 01 42 52 4B 00 80 0A C2 01 3B 43 4F 4D 4D |...BRK.....;COMM|
00002500: AF 20 54 48 45 20 44 49 53 4B 20 A4 20 54 41 4C |. THE DISK . TAL|
00002510: 4B 20 53 80 20 54 48 45 20 91 45 20 42 59 54 45 |K S. THE .E BYTE|
00002520: 20 40 20 24 30 30 30 30 20 91 A4 20 54 48 45 20 | @ $0000 .. THE |
00002530: 53 45 52 49 41 4C 20 42 55 53 00 C3 0A CC 01 3B |SERIAL BUS.....;|
00002540: 55 53 45 20 54 48 45 20 41 43 43 50 54 52 20 52 |USE THE ACCPTR R|
00002550: 4F 55 54 49 4E 45 20 24 46 46 41 35 20 A4 20 50 |OUTINE $FFA5 . P|
00002560: 55 54 20 54 48 45 20 42 59 54 45 20 B5 4F 20 54 |UT THE BYTE .O T|
00002570: 48 45 20 41 20 52 45 47 49 53 54 45 52 00 F4 0A |HE A REGISTER...|
00002580: D6 01 3B 53 A4 52 45 20 54 48 45 20 45 52 52 B0 |..;S.RE THE ERR.|
00002590: 20 43 4F 44 45 20 49 4E 20 4F 55 52 20 42 55 46 | CODE IN OUR BUF|
000025A0: 46 45 52 20 43 41 4C 4C 45 44 20 45 52 52 00 32 |FER CALLED ERR.2|
000025B0: 0B EA 01 3B 48 45 52 45 20 59 4F 55 20 43 41 4E |...;HERE YOU CAN|
000025C0: 20 41 44 44 20 54 48 45 20 48 45 58 20 A4 20 C6 | ADD THE HEX . .|
000025D0: 49 49 20 52 4F 55 54 49 4E 45 20 A4 20 99 20 54 |II ROUTINE . . T|
000025E0: 48 45 20 45 52 52 B0 20 43 4F 44 45 00 44 0B F4 |HE ERR. CODE.D..|
000025F0: 01 3B A4 20 54 48 45 20 53 43 52 45 45 4E 00 59 |.;. THE SCREEN.Y|
00002600: 0B 08 02 3B 42 55 46 46 45 52 53 20 AF 20 46 4C |...;BUFFERS . FL|
00002610: 41 47 53 00 78 0B 12 02 4D 52 20 2E 42 59 54 45 |AGS.x...MR .BYTE|
00002620: 20 37 37 20 34 35 20 38 32 20 30 30 20 30 30 20 | 77 45 82 00 00 |
00002630: 30 31 00 88 0B 1C 02 45 52 52 20 2E 42 59 54 45 |01.....ERR .BYTE|
00002640: 20 30 00 96 0B 26 02 2E 80 20 87 20 45 52 52 B0 | 0...&... . ERR.|
00002650: 00 00 00 52 20 55 4E 4C 49 53 00 DA 09 5E 01 3B |...R UNLIS...^.;|
00002660: 53 80 20 4D AB 52 20 30 30 20 30 30 20 30 31 20 |S. M.R 00 00 01 |
00002670: 4D 45 4D B0 59 20 87 20 24 30 30 30 30 20 31 20 |MEM.Y . $0000 1 |
00002680: 42 59 54 45 20 28 45 52 52 B0 20 43 4F 44 45 29 |BYTE (ERR. CODE)|
00002690: 00 E7 09 72 01 4C 44 41 20 23 24 30 38 00 F3 09 |...r.LDA #$08...|
000026A0: 7C 01 4A 53 52 20 54 4C 4B 00 00 0A 86 01 4C 44 ||.JSR TLK.....LD|
000026B0: 41 20 01 08 0E 08 0A 00 AC B2 20 24 37 31 30 30 |A ........ $7100|
000026C0: 00 15 08 0F 00 2E 53 00 26 08 1E 00 3B 44 49 53 |......S.&...;DIS|
000026D0: 4B 20 43 4F 4D 4D AF 53 00 47 08 46 00 3B 36 34 |K COMM.S.G.F.;64|
000026E0: 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 26 20 | ROM ROUTINES & |
000026F0: 41 44 44 52 45 53 53 45 53 00 55 08 50 00 9F 20 |ADDRESSES.U.P.. |
00002700: B2 20 24 46 46 43 30 00 67 08 5A 00 53 45 54 4E |. $FFC0.g.Z.SETN|
00002710: 4D 20 B2 20 24 46 46 42 44 00 7A 08 64 00 53 45 |M . $FFBD.z.d.SE|
00002720: 54 4C 46 53 20 B2 20 24 46 46 42 41 00 88 08 69 |TLFS . $FFBA...i|
00002730: 00 A0 20 B2 20 24 46 46 43 33 00 9F 08 78 00 3B |.. . $FFC3...x.;|
00002740: 31 35 34 31 20 52 4F 55 54 49 4E 45 53 20 4E 91 |1541 ROUTINES N.|
00002750: 45 00 AC 08 8C 00 4C 44 41 20 23 24 30 32 00 B8 |E.....LDA #$02..|
00002760: 08 96 00 4C 44 58 20 23 B3 9D 00 C4 08 A0 00 4C |...LDX #.......L|
00002770: 44 59 20 23 B1 9D 00 D2 08 AA 00 4A 53 52 20 53 |DY #.......JSR S|
00002780: 45 54 4E 4D 00 DF 08 B4 00 4C 44 41 20 23 24 30 |ETNM.....LDA #$0|
00002790: 46 00 EC 08 BE 00 4C 44 58 20 23 24 30 38 00 F9 |F.....LDX #$08..|
000027A0: 08 C8 00 4C 44 59 20 23 24 30 46 00 08 09 D2 00 |...LDY #$0F.....|
000027B0: 4A 53 52 20 53 45 54 4C 46 53 00 12 09 DC 00 4A |JSR SETLFS.....J|
000027C0: 53 52 20 9F 00 1F 09 E6 00 4C 44 41 20 23 24 30 |SR ......LDA #$0|
000027D0: 46 00 29 09 F0 00 4A 53 52 20 A0 00 3B 09 FA 00 |F.)...JSR ..;...|
000027E0: 9D 20 2E 42 59 54 45 20 37 33 20 30 30 00 73 09 |. .BYTE 73 00.s.|
000027F0: 0E 01 3B 54 48 49 53 20 49 53 20 54 48 45 20 4D |..;THIS IS THE M|
00002800: AD 4C 20 45 51 55 49 56 45 4C 41 4E 54 20 4F 46 |.L EQUIVELANT OF|
00002810: 20 9F 20 31 35 2C 38 2C 31 35 3A 20 98 20 31 35 | . 15,8,15: . 15|
00002820: 2C 22 49 30 22 00 BB 09 18 01 3B 57 45 20 53 45 |,"I0".....;WE SE|
00002830: 54 20 55 50 20 54 48 45 20 C3 47 54 48 20 4F 46 |T UP THE .GTH OF|
00002840: 20 54 48 45 20 43 4F 4D 4D AF 20 32 20 AF 20 54 | THE COMM. 2 . T|
00002850: 48 45 20 41 44 44 52 45 53 53 20 49 4E 20 52 41 |HE ADDRESS IN RA|
00002860: 4D 20 57 48 45 52 45 20 49 54 20 49 53 00 FE 09 |M WHERE IT IS...|
00002870: 22 01 3B 53 45 54 20 4F 55 52 20 BC 49 43 41 4C |".;SET OUR .ICAL|
00002880: 20 46 49 4C 45 20 31 35 20 38 20 31 35 20 AF 20 | FILE 15 8 15 . |
00002890: 4A 53 52 20 9F 20 59 4F 55 20 4D 55 53 54 20 A0 |JSR . YOU MUST .|
000028A0: 20 41 20 46 49 4C 45 20 57 48 45 4E 20 44 91 45 | A FILE WHEN D.E|
000028B0: 00 0F 0A 2C 01 2E 80 20 44 49 53 4B 20 43 4D 4E |...,... DISK CMN|
000028C0: 44 00 00 00 26 08 1E 00 3B 44 49 53 4B 20 43 4F |D...&...;DISK CO|
000028D0: 4D 4D AF 53 00 47 08 46 00 3B 36 34 20 52 4F 4D |MM.S.G.F.;64 ROM|
000028E0: 20 52 4F 55 54 49 4E 45 53 20 26 20 41 44 44 52 | ROUTINES & ADDR|
000028F0: 45 53 53 45 53 00 55 08 50 00 9F 20 B2 20 24 46 |ESSES.U.P.. . $F|
00002900: 46 43 30 00 67 08 5A 00 53 45 54 4E 4D 20 B2 20 |FC0.g.Z.SETNM . |
00002910: 24 46 46 42 44 00 7A 08 64 00 53 45 54 4C 46 53 |$FFBD.z.d.SETLFS|
00002920: 20 B2 20 24 46 46 42 41 00 88 08 69 00 A0 20 B2 | . $FFBA...i.. .|
00002930: 20 24 46 46 43 33 00 9F 08 78 00 3B 31 35 34 31 | $FFC3...x.;1541|
00002940: 20 52 4F 55 54 49 4E 45 53 20 4E 91 45 00 AC 08 | ROUTINES N.E...|
00002950: 8C 00 4C 44 41 20 23 24 30 32 00 B8 08 96 00 4C |..LDA #$02.....L|
00002960: 44 58 20 23 B3 9D 00 C4 08 A0 00 4C 44 59 20 23 |DX #.......LDY #|
00002970: B1 9D 00 D2 08 AA 00 4A 53 52 20 53 45 54 4E 4D |.......JSR SETNM|
00002980: 00 DF 08 B4 00 4C 44 41 20 23 24 30 46 00 EC 08 |.....LDA #$0F...|
00002990: BE 00 4C 44 58 20 23 24 30 38 00 F9 08 C8 00 4C |..LDX #$08.....L|
000029A0: 44 59 20 23 24 30 46 00 08 09 D2 00 01 08 0E 08 |DY #$0F.........|
000029B0: 0A 00 AC B2 20 24 37 31 30 30 00 15 08 14 00 2E |.... $7100......|
000029C0: 53 00 23 08 1E 00 9F 20 B2 20 24 46 46 43 30 00 |S.#.... . $FFC0.|
000029D0: 35 08 28 00 53 45 54 4E 4D 20 B2 20 24 46 46 42 |5.(.SETNM . $FFB|
000029E0: 44 00 48 08 32 00 53 45 54 4C 46 53 20 B2 20 24 |D.H.2.SETLFS . $|
000029F0: 46 46 42 41 00 56 08 3C 00 A0 20 B2 20 24 46 46 |FFBA.V.<.. . $FF|
00002A00: 43 33 00 66 08 46 00 54 4C 4B 20 B2 20 24 46 46 |C3.f.F.TLK . $FF|
00002A10: 42 34 00 79 08 50 00 54 4C 4B 53 45 43 20 B2 20 |B4.y.P.TLKSEC . |
00002A20: 24 46 46 39 36 00 8B 08 5A 00 55 4E 54 4C 4B 20 |$FF96...Z.UNTLK |
00002A30: B2 20 24 46 46 41 42 00 9A 08 64 00 49 4E 20 B2 |. $FFAB...d.IN .|
00002A40: 20 24 46 46 41 35 00 A7 08 6E 00 4C 44 41 20 23 | $FFA5...n.LDA #|
00002A50: 24 30 37 00 B6 08 78 00 4C 44 58 20 B3 23 42 55 |$07...x.LDX .#BU|
00002A60: 4D 50 00 C5 08 82 00 4C 44 59 20 B1 23 42 55 4D |MP.....LDY .#BUM|
00002A70: 50 00 D3 08 8C 00 4A 53 52 20 53 45 54 4E 4D 00 |P.....JSR SETNM.|
00002A80: E0 08 96 00 4C 44 41 20 23 24 30 46 00 ED 08 A0 |....LDA #$0F....|
00002A90: 00 4C 44 58 20 23 24 30 38 00 FA 08 AA 00 4C 44 |.LDX #$08.....LD|
00002AA0: 59 20 23 24 30 46 00 09 09 B4 00 4A 53 52 20 53 |Y #$0F.....JSR S|
00002AB0: 45 54 4C 46 53 00 13 09 BE 00 4A 53 52 20 9F 00 |ETLFS.....JSR ..|
00002AC0: 21 09 C8 00 4A 53 52 20 44 45 4C 41 59 00 2E 09 |!...JSR DELAY...|
00002AD0: D2 00 4A 53 52 20 43 4C 53 45 00 3B 09 DC 00 4A |..JSR CLSE.;...J|
00002AE0: 53 52 20 48 41 4C 46 00 48 09 E6 00 4C 44 41 20 |SR HALF.H...LDA |
00002AF0: 23 24 30 37 00 56 09 F0 00 4C 44 58 20 B3 23 54 |#$07.V...LDX .#T|
00002B00: 52 4B 00 64 09 FA 00 4C 44 59 20 B1 23 54 52 4B |RK.d...LDY .#TRK|
00002B10: 00 72 09 04 01 4A 53 52 20 53 45 54 4E 4D 00 7F |.r...JSR SETNM..|
00002B20: 09 0E 01 4C 44 41 20 23 24 30 46 00 8C 09 18 01 |...LDA #$0F.....|
00002B30: 4C 44 58 20 23 24 30 38 00 99 09 22 01 4C 44 59 |LDX #$08...".LDY|
00002B40: 20 23 24 30 46 00 A8 09 2C 01 4A 53 52 20 53 45 | #$0F...,.JSR SE|
00002B50: 54 4C 46 53 00 B2 09 36 01 4A 53 52 20 9F 00 C0 |TLFS...6.JSR ...|
00002B60: 09 40 01 4A 53 52 20 44 45 4C 41 59 00 CD 09 4A |.@.JSR DELAY...J|
00002B70: 01 4A 53 52 20 43 4C 53 45 00 DA 09 54 01 4C 44 |.JSR CLSE...T.LD|
00002B80: 41 20 23 24 30 37 00 E9 09 5E 01 4C 44 58 20 B3 |A #$07...^.LDX .|
00002B90: 23 53 45 45 4B 00 F8 09 68 01 4C 44 59 20 B1 23 |#SEEK...h.LDY .#|
00002BA0: 53 45 45 4B 00 06 0A 72 01 4A 53 52 20 53 45 54 |SEEK...r.JSR SET|
00002BB0: 4E 4D 00 13 0A 7C 01 4C 44 41 20 23 24 30 46 00 |NM...|.LDA #$0F.|
00002BC0: 20 0A 86 01 4C 44 58 20 23 24 30 38 00 2D 0A 90 | ...LDX #$08.-..|
00002BD0: 01 4C 44 59 20 23 24 30 46 00 37 0A 9A 01 4A 53 |.LDY #$0F.7...JS|
00002BE0: 52 20 9F 00 45 0A A4 01 4A 53 52 20 44 45 4C 41 |R ..E...JSR DELA|
00002BF0: 59 00 52 0A AE 01 4A 53 52 20 43 4C 53 45 00 5F |Y.R...JSR CLSE._|
00002C00: 0A B8 01 4C 44 41 20 23 24 30 35 00 67 0A C2 01 |...LDA #$05.g...|
00002C10: 42 52 4B 00 7D 0A CC 01 48 41 4C 46 20 4C 44 58 |BRK.}...HALF LDX|
00002C20: 20 B3 23 44 53 4B 43 4E 54 00 8E 0A D6 01 4C 44 | .#DSKCNT.....LD|
00002C30: 59 20 B1 23 44 53 4B 43 4E 54 00 9C 0A E0 01 4A |Y .#DSKCNT.....J|
00002C40: 53 52 20 53 45 54 4E 4D 00 A9 0A EA 01 4C 44 41 |SR SETNM.....LDA|
00002C50: 20 23 24 30 46 00 B6 0A F4 01 4C 44 58 20 23 24 | #$0F.....LDX #$|
00002C60: 30 38 00 C3 0A FE 01 4C 44 59 20 23 24 30 46 00 |08.....LDY #$0F.|
00002C70: D2 0A 08 02 4A 53 52 20 53 45 54 4C 46 53 00 DC |....JSR SETLFS..|
00002C80: 0A 12 02 4A 53 52 20 9F 00 EA 0A 1C 02 4A 53 52 |...JSR ......JSR|
00002C90: 20 44 45 4C 41 59 00 F7 0A 26 02 4C 44 41 20 23 | DELAY...&.LDA #|
00002CA0: 24 30 38 00 03 0B 30 02 4A 53 52 20 54 4C 4B 00 |$08...0.JSR TLK.|
00002CB0: 10 0B 3A 02 4C 44 41 20 23 24 46 46 00 1F 0B 44 |..:.LDA #$FF...D|
00002CC0: 02 4A 53 52 20 54 4C 4B 53 45 43 00 2A 0B 4E 02 |.JSR TLKSEC.*.N.|
00002CD0: 4A 53 52 20 49 4E 00 37 0B 58 02 53 54 41 20 48 |JSR IN.7.X.STA H|
00002CE0: 45 41 44 00 45 0B 62 02 4A 53 52 20 55 4E 54 4C |EAD.E.b.JSR UNTL|
00002CF0: 4B 00 52 0B 6C 02 4A 53 52 20 43 4C 53 45 00 5F |K.R.l.JSR CLSE._|
00002D00: 0B 76 02 4C 44 41 20 48 45 41 44 00 6A 0B 80 02 |.v.LDA HEAD.j...|
00002D10: AF 20 23 24 46 43 00 79 0B 8A 02 53 54 41 20 48 |. #$FC.y...STA H|
00002D20: 45 41 44 AA 31 00 81 0B 94 02 43 4C 43 00 8E 0B |EAD.1.....CLC...|
00002D30: 9E 02 41 44 43 20 23 24 30 33 00 9C 0B A8 02 53 |..ADC #$03.....S|
00002D40: 54 41 20 42 4D 50 AA 36 00 A9 0B B2 02 4C 44 41 |TA BMP.6.....LDA|
00002D50: 20 23 24 30 37 00 B7 0B BC 02 4C 44 58 20 B3 23 | #$07.....LDX .#|
00002D60: 42 4D 50 00 C5 0B C6 02 4C 44 59 20 B1 23 42 4D |BMP.....LDY .#BM|
00002D70: 50 00 D3 0B D0 02 4A 53 52 20 53 45 54 4E 4D 00 |P.....JSR SETNM.|
00002D80: E0 0B DA 02 4C 44 41 20 23 24 30 46 00 ED 0B E4 |....LDA #$0F....|
00002D90: 02 4C 44 58 20 23 24 30 38 00 FA 0B EE 02 4C 44 |.LDX #$08.....LD|
00002DA0: 59 20 23 24 30 46 00 09 0C F8 02 4A 53 52 20 53 |Y #$0F.....JSR S|
00002DB0: 45 54 4C 46 53 00 13 0C 02 03 4A 53 52 20 9F 00 |ETLFS.....JSR ..|
00002DC0: 20 0C 0C 03 4A 53 52 20 43 4C 53 45 00 28 0C 16 | ...JSR CLSE.(..|
00002DD0: 03 52 54 53 00 3B 0C 20 03 44 45 4C 41 59 20 4C |.RTS.;. .DELAY L|
00002DE0: 44 58 20 23 24 30 30 00 48 0C 2A 03 53 54 58 20 |DX #$00.H.*.STX |
00002DF0: 54 49 4D 45 00 57 0C 34 03 53 54 58 20 54 49 4D |TIME.W.4.STX TIM|
00002E00: 45 AA 31 00 68 0C 3E 03 4C 50 35 20 49 4E 43 20 |E.1.h.>.LP5 INC |
00002E10: 54 49 4D 45 00 75 0C 48 03 4C 44 59 20 54 49 4D |TIME.u.H.LDY TIM|
00002E20: 45 00 82 0C 52 03 43 50 59 20 23 24 46 46 00 8E |E...R.CPY #$FF..|
00002E30: 0C 5C 03 42 4E 45 20 4C 50 35 00 9D 0C 66 03 49 |.\.BNE LP5...f.I|
00002E40: 4E 43 20 54 49 4D 45 AA 31 00 AC 0C 70 03 4C 44 |NC TIME.1...p.LD|
00002E50: 59 20 54 49 4D 45 AA 31 00 B9 0C 7A 03 43 50 59 |Y TIME.1...z.CPY|
00002E60: 20 23 24 46 46 00 C5 0C 84 03 42 4E 45 20 4C 50 | #$FF.....BNE LP|
00002E70: 35 00 CD 0C 8E 03 49 4E 58 00 DA 0C 98 03 43 50 |5.....INX.....CP|
00002E80: 58 20 23 24 30 33 00 E6 0C A2 03 42 4E 45 20 4C |X #$03.....BNE L|
00002E90: 50 35 00 EE 0C AC 03 52 54 53 00 00 0D B6 03 43 |P5.....RTS.....C|
00002EA0: 4C 53 45 20 4C 44 41 20 23 24 30 46 00 0A 0D C0 |LSE LDA #$0F....|
00002EB0: 03 4A 53 52 20 A0 00 12 0D CA 03 52 54 53 00 5A |.JSR ......RTS.Z|
00002EC0: 0D DE 03 3B 41 4C 4C 20 4F 46 20 54 48 45 53 45 |...;ALL OF THESE|
00002ED0: 20 52 4F 55 54 49 4E 45 53 20 41 52 45 20 44 4F | ROUTINES ARE DO|
00002EE0: 43 55 4D 45 4E 54 45 44 20 49 4E 20 4F 54 48 45 |CUMENTED IN OTHE|
00002EF0: 52 20 50 52 4F 47 52 41 4D 53 20 91 20 54 48 49 |R PROGRAMS . THI|
00002F00: 53 20 44 49 53 4B 00 A1 0D E8 03 3B 54 48 45 20 |S DISK.....;THE |
00002F10: 91 4C 59 20 A2 20 49 54 45 4D 20 48 45 52 45 20 |.LY . ITEM HERE |
00002F20: 49 53 20 48 4F 57 20 57 45 20 4D 4F 56 45 20 54 |IS HOW WE MOVE T|
00002F30: 48 45 20 48 45 41 44 20 48 41 4C 46 20 41 20 54 |HE HEAD HALF A T|
00002F40: 52 41 43 4B 20 57 49 54 48 20 54 48 45 00 E9 0D |RACK WITH THE...|
00002F50: F2 03 3B 52 4F 55 54 49 4E 45 20 48 41 4C 46 20 |..;ROUTINE HALF |
00002F60: 49 4E 20 41 20 4E 55 54 20 53 48 45 4C 4C 20 57 |IN A NUT SHELL W|
00002F70: 45 20 87 20 24 31 43 30 30 20 49 4E 20 54 48 45 |E . $1C00 IN THE|
00002F80: 20 31 35 34 31 20 42 59 20 4D 41 4E 49 50 55 4C | 1541 BY MANIPUL|
00002F90: 41 54 49 4E 47 00 31 0E FC 03 3B 42 49 54 53 20 |ATING.1...;BITS |
00002FA0: 30 20 AF 20 31 20 57 45 20 4D 4F 56 45 20 54 48 |0 . 1 WE MOVE TH|
00002FB0: 45 20 48 45 41 44 20 49 4E 20 54 48 49 53 20 43 |E HEAD IN THIS C|
00002FC0: 41 53 45 20 57 45 20 53 45 54 20 42 4F 54 48 20 |ASE WE SET BOTH |
00002FD0: 42 49 54 53 20 A4 20 31 20 54 48 49 53 00 7B 0E |BITS . 1 THIS.{.|
00002FE0: 06 04 3B 4D 4F 56 45 53 20 54 48 45 20 48 45 41 |..;MOVES THE HEA|
00002FF0: 44 20 42 41 43 4B 20 91 45 20 48 41 4C 46 20 54 |D BACK .E HALF T|
00003000: 52 41 43 4B 20 4E 4F 57 20 54 48 45 20 48 45 41 |RACK NOW THE HEA|
00003010: 44 20 49 53 20 41 20 48 41 4C 46 20 54 52 41 43 |D IS A HALF TRAC|
00003020: 4B 20 42 45 4C 4F 57 00 C5 0E 10 04 3B 54 52 41 |K BELOW.....;TRA|
00003030: 43 4B 20 91 45 20 57 48 45 4E 20 57 45 20 89 20 |CK .E WHEN WE . |
00003040: 53 45 45 4B 20 54 48 45 20 31 35 34 31 20 52 4F |SEEK THE 1541 RO|
00003050: 4D 20 53 54 41 52 54 53 20 43 4F 55 4E 54 49 4E |M STARTS COUNTIN|
00003060: 47 20 44 4F 57 4E 20 48 4F 57 20 46 41 52 20 49 |G DOWN HOW FAR I|
00003070: 54 00 0E 0F 1A 04 3B 4D 4F 56 45 44 20 46 52 4F |T.....;MOVED FRO|
00003080: 4D 20 57 48 45 52 45 20 49 54 20 54 48 4F 55 47 |M WHERE IT THOUG|
00003090: 48 54 20 49 54 20 57 41 53 20 28 54 52 41 43 4B |HT IT WAS (TRACK|
000030A0: 20 91 45 29 20 57 48 45 4E 20 49 54 20 90 53 20 | .E) WHEN IT .S |
000030B0: 49 54 53 20 41 20 48 41 4C 46 00 37 0F 24 04 3B |ITS A HALF.7.$.;|
000030C0: 54 52 41 43 4B 20 53 48 B0 54 20 4F 46 20 57 48 |TRACK SH.T OF WH|
000030D0: 45 52 45 20 49 54 53 20 53 55 50 B9 45 44 20 A4 |ERE ITS SUP.ED .|
000030E0: 20 42 45 00 82 0F 29 04 3B 54 48 45 20 46 4F 4C | BE...).;THE FOL|
000030F0: 4C 4F 57 49 4E 47 20 30 20 42 59 54 45 20 48 41 |LOWING 0 BYTE HA|
00003100: 53 20 A8 48 49 4E 47 20 A4 20 44 4F 20 57 49 54 |S .HING . DO WIT|
00003110: 48 20 54 48 45 20 50 52 4F 47 52 41 4D 20 49 4E |H THE PROGRAM IN|
00003120: 53 54 45 41 44 20 49 54 20 46 49 58 45 53 00 C4 |STEAD IT FIXES..|
00003130: 0F 2A 04 3B 41 20 42 55 47 20 49 4E 20 54 48 45 |.*.;A BUG IN THE|
00003140: 20 41 53 53 45 4D 42 4C 45 52 20 41 46 54 45 52 | ASSEMBLER AFTER|
00003150: 20 41 20 4C 91 47 20 99 20 52 4F 55 54 49 4E 45 | A L.G . ROUTINE|
00003160: 20 4C 49 4B 45 20 54 48 49 53 20 91 45 20 49 54 | LIKE THIS .E IT|
00003170: 00 0B 10 2B 04 3B 53 4F 4D 45 54 49 4D 45 53 20 |...+.;SOMETIMES |
00003180: 4D 41 4B 45 53 20 41 20 4D 41 54 48 20 4D 49 53 |MAKES A MATH MIS|
00003190: 54 41 4B 45 20 91 20 54 48 45 20 46 49 52 53 54 |TAKE . THE FIRST|
000031A0: 20 4D 41 54 48 20 42 59 54 45 20 28 37 37 20 49 | MATH BYTE (77 I|
000031B0: 4E 20 42 55 4D 50 29 00 49 10 2C 04 3B A4 20 49 |N BUMP).I.,.;. I|
000031C0: 4E 53 55 52 45 20 54 48 49 53 20 44 4F 45 53 27 |NSURE THIS DOES'|
000031D0: 4E 54 20 48 41 50 50 45 4E 20 41 20 2E 42 59 54 |NT HAPPEN A .BYT|
000031E0: 45 20 30 20 A4 20 53 45 54 20 54 48 45 20 42 55 |E 0 . SET THE BU|
000031F0: 46 46 45 52 53 00 55 10 2D 04 2E 42 59 54 45 20 |FFERS.U.-..BYTE |
00003200: 30 00 7A 10 2E 04 42 55 4D 50 20 2E 42 59 54 45 |0.z...BUMP .BYTE|
00003210: 20 37 37 20 34 35 20 38 37 20 30 30 20 30 30 20 | 77 45 87 00 00 |
00003220: 30 31 20 31 39 32 00 9F 10 38 04 53 45 45 4B 20 |01 192...8.SEEK |
00003230: 2E 42 59 54 45 20 37 37 20 34 35 20 38 37 20 30 |.BYTE 77 45 87 0|
00003240: 30 20 30 30 20 30 31 20 31 37 36 00 CA 10 3D 04 |0 00 01 176...=.|
00003250: 3B 54 48 49 53 20 49 53 20 23 24 45 30 20 41 54 |;THIS IS #$E0 AT|
00003260: 20 24 30 30 20 5A 45 52 4F 20 50 41 47 45 20 4F | $00 ZERO PAGE O|
00003270: 46 20 31 35 34 31 00 ED 10 42 04 54 52 4B 20 2E |F 1541...B.TRK .|
00003280: 42 59 54 45 20 37 37 20 34 35 20 38 37 20 30 36 |BYTE 77 45 87 06|
00003290: 20 30 30 20 30 31 20 31 37 00 30 11 47 04 3B 54 | 00 01 17.0.G.;T|
000032A0: 48 49 53 20 49 53 20 4F 55 52 20 54 52 41 43 4B |HIS IS OUR TRACK|
000032B0: 20 41 54 20 24 30 37 20 5A 45 52 4F 20 50 41 47 | AT $07 ZERO PAG|
000032C0: 45 20 4F 46 20 31 35 34 31 20 81 20 4E 4F 57 20 |E OF 1541 . NOW |
000032D0: 59 4F 55 20 48 41 56 45 20 A4 20 97 00 73 11 48 |YOU HAVE . ..s.H|
000032E0: 04 3B 54 48 45 20 54 52 41 43 4B 20 49 4E 20 42 |.;THE TRACK IN B|
000032F0: 55 54 20 59 4F 55 20 43 4F 55 4C 44 20 4D 45 52 |UT YOU COULD MER|
00003300: 47 45 20 41 20 50 41 52 54 20 B0 20 53 43 52 45 |GE A PART . SCRE|
00003310: 45 4E 20 48 45 52 45 20 A4 20 44 4F 20 49 54 00 |EN HERE . DO IT.|
00003320: 93 11 4C 04 44 53 4B 43 4E 54 20 2E 42 59 54 45 |..L.DSKCNT .BYTE|
00003330: 20 37 37 20 34 35 20 38 32 20 30 30 20 32 38 00 | 77 45 82 00 28.|
00003340: B6 11 56 04 42 4D 50 20 2E 42 59 54 45 20 37 37 |..V.BMP .BYTE 77|
00003350: 20 34 35 20 38 37 20 30 30 20 32 38 20 30 31 20 | 45 87 00 28 01 |
00003360: 30 30 00 C9 11 60 04 54 49 4D 45 20 2E 42 59 54 |00...`.TIME .BYT|
00003370: 45 20 30 20 30 00 DC 11 6A 04 48 45 41 44 20 2E |E 0 0...j.HEAD .|
00003380: 42 59 54 45 20 30 20 30 00 EE 11 74 04 2E 80 20 |BYTE 0 0...t... |
00003390: 48 41 4C 46 20 54 52 41 43 4B 00 00 00 4D 41 54 |HALF TRACK...MAT|
000033A0: 48 20 42 59 54 45 20 28 37 37 20 49 4E 20 42 55 |H BYTE (77 IN BU|
000033B0: 4D 50 29 00 49 10 2C 04 3B A4 20 49 4E 53 55 52 |MP).I.,.;. INSUR|
000033C0: 45 20 54 48 49 53 20 44 4F 45 53 27 4E 54 20 48 |E THIS DOES'NT H|
000033D0: 41 50 50 45 4E 20 41 20 2E 42 59 54 45 20 30 20 |APPEN A .BYTE 0 |
000033E0: A4 20 53 45 54 20 54 48 45 20 42 55 46 46 45 52 |. SET THE BUFFER|
000033F0: 53 00 55 10 2D 04 2E 42 59 54 45 20 30 00 7A 10 |S.U.-..BYTE 0.z.|
00003400: 2E 04 42 55 4D 50 20 2E 42 59 54 45 20 37 37 20 |..BUMP .BYTE 77 |
00003410: 34 35 20 38 37 20 30 30 20 30 30 20 30 31 20 31 |45 87 00 00 01 1|
00003420: 39 32 00 9F 10 38 04 53 45 45 4B 20 2E 42 59 54 |92...8.SEEK .BYT|
00003430: 45 20 37 37 20 34 35 20 38 37 20 30 30 20 30 30 |E 77 45 87 00 00|
00003440: 20 30 31 20 31 37 36 00 CA 10 3D 04 3B 54 48 49 | 01 176...=.;THI|
00003450: 53 20 49 53 20 23 24 45 30 20 41 54 20 24 30 30 |S IS #$E0 AT $00|
00003460: 20 5A 45 52 4F 20 50 41 47 45 20 4F 46 20 31 35 | ZERO PAGE OF 15|
00003470: 34 31 00 ED 10 42 04 54 52 4B 20 2E 42 59 54 45 |41...B.TRK .BYTE|
00003480: 20 37 37 20 34 35 20 38 37 20 30 36 20 30 30 20 | 77 45 87 06 00 |
00003490: 30 31 20 31 37 00 01 08 0E 08 0A 00 AC B2 20 24 |01 17......... $|
000034A0: 37 31 30 30 00 15 08 0B 00 2E 53 00 50 08 1E 00 |7100......S.P...|
000034B0: 3B 52 4F 55 54 49 4E 45 20 43 48 41 4E 47 45 53 |;ROUTINE CHANGES|
000034C0: 20 C6 49 49 20 A4 20 48 45 58 20 81 20 55 53 45 | .II . HEX . USE|
000034D0: 20 57 49 54 48 49 4E 20 4F 54 48 45 52 20 52 4F | WITHIN OTHER RO|
000034E0: 55 54 49 4E 45 53 00 71 08 32 00 3B 36 34 20 52 |UTINES.q.2.;64 R|
000034F0: 4F 4D 20 52 4F 55 54 49 4E 45 53 20 26 20 41 44 |OM ROUTINES & AD|
00003500: 44 52 45 53 53 45 53 00 7F 08 3C 00 99 20 B2 20 |DRESSES...<.. . |
00003510: 24 46 46 44 32 00 8F 08 46 00 A1 49 4E 20 B2 20 |$FFD2...F..IN . |
00003520: 24 46 46 45 34 00 AA 08 5A 00 3B 31 35 34 31 20 |$FFE4...Z.;1541 |
00003530: 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 4E 91 45 |ROM ROUTINES N.E|
00003540: 00 B7 08 6E 00 4C 44 41 20 23 24 39 33 00 C1 08 |...n.LDA #$93...|
00003550: 78 00 4A 53 52 20 99 00 CE 08 82 00 4C 44 59 20 |x.JSR ......LDY |
00003560: 23 24 30 30 00 E0 08 8C 00 4C 50 31 20 4C 44 41 |#$00.....LP1 LDA|
00003570: 20 4D 45 53 2C 59 00 ED 08 96 00 43 4D 50 20 23 | MES,Y.....CMP #|
00003580: 24 30 30 00 FB 08 A0 00 42 45 51 20 53 54 41 52 |$00.....BEQ STAR|
00003590: 54 00 05 09 AA 00 4A 53 52 20 99 00 0D 09 B4 00 |T.....JSR ......|
000035A0: 49 4E 59 00 19 09 BE 00 4A 4D 50 20 4C 50 31 00 |INY.....JMP LP1.|
000035B0: 4C 09 D2 00 3B 54 48 49 53 20 52 4F 55 54 49 4E |L...;THIS ROUTIN|
000035C0: 45 20 49 53 20 BD 4C 41 49 4E 45 44 20 49 4E 20 |E IS .LAINED IN |
000035D0: 53 43 52 45 45 4E 20 91 20 54 48 49 53 20 44 49 |SCREEN . THIS DI|
000035E0: 53 4B 00 5F 09 E6 00 53 54 41 52 54 20 4C 44 41 |SK._...START LDA|
000035F0: 20 23 24 30 30 00 6A 09 F0 00 53 54 41 20 43 54 | #$00.j...STA CT|
00003600: 00 79 09 FA 00 4C 44 41 20 B3 23 42 55 46 46 00 |.y...LDA .#BUFF.|
00003610: 87 09 04 01 53 54 41 20 4E 55 4D AA 31 00 D1 09 |....STA NUM.1...|
00003620: 18 01 3B 48 45 52 45 20 57 45 20 53 45 54 20 4F |..;HERE WE SET O|
00003630: 55 52 20 42 55 46 46 45 52 53 20 AF 20 46 4C 41 |UR BUFFERS . FLA|
00003640: 47 53 20 41 53 20 57 45 20 57 49 4C 4C 20 42 45 |GS AS WE WILL BE|
00003650: 20 43 48 41 4E 47 49 4E 47 20 41 44 44 52 45 53 | CHANGING ADDRES|
00003660: 53 45 53 20 55 BF 47 00 0F 0A 22 01 3B 49 4E 43 |SES U.G...".;INC|
00003670: 20 8B 20 57 45 20 44 91 54 20 52 45 53 45 54 20 | . WE D.T RESET |
00003680: 54 48 45 4D 20 41 4C 4C 20 43 41 4C 43 55 4C 41 |THEM ALL CALCULA|
00003690: 54 49 91 53 20 57 4F 55 4C 44 20 42 45 20 55 53 |TI.S WOULD BE US|
000036A0: 45 4C 45 53 53 00 1D 0A 36 01 A1 20 4A 53 52 20 |ELESS...6.. JSR |
000036B0: A1 49 4E 00 2A 0A 40 01 43 4D 50 20 23 24 30 30 |.IN.*.@.CMP #$00|
000036C0: 00 34 0A 4A 01 42 45 51 20 A1 00 45 0A 54 01 4E |.4.J.BEQ ..E.T.N|
000036D0: 55 4D 20 53 54 41 20 42 55 46 46 00 4F 0A 5E 01 |UM STA BUFF.O.^.|
000036E0: 4A 53 52 20 99 00 5D 0A 68 01 49 4E 43 20 4E 55 |JSR ..].h.INC NU|
000036F0: 4D AA 31 00 68 0A 72 01 49 4E 43 20 43 54 00 73 |M.1.h.r.INC CT.s|
00003700: 0A 7C 01 4C 44 58 20 43 54 00 80 0A 86 01 43 50 |.|.LDX CT.....CP|
00003710: 58 20 23 24 30 32 00 8A 0A 90 01 42 4E 45 20 A1 |X #$02.....BNE .|
00003720: 00 CB 0A A4 01 3B 48 45 52 45 20 57 45 20 A1 20 |.....;HERE WE . |
00003730: 4F 55 52 20 54 57 4F 20 C6 49 49 20 4E 55 4D 42 |OUR TWO .II NUMB|
00003740: 45 52 53 20 46 52 4F 4D 20 54 48 45 20 4B 45 59 |ERS FROM THE KEY|
00003750: 42 4F 41 52 44 20 AF 20 53 A4 52 45 20 54 48 45 |BOARD . S.RE THE|
00003760: 4D 00 D8 0A B8 01 4C 44 41 20 42 55 46 46 00 E4 |M.....LDA BUFF..|
00003770: 0A C2 01 4A 53 52 20 43 91 56 00 F8 0A CC 01 41 |...JSR C.V.....A|
00003780: 53 4C 3A 41 53 4C 3A 41 53 4C 3A 41 53 4C 00 07 |SL:ASL:ASL:ASL..|
00003790: 0B D6 01 53 54 41 20 42 55 46 46 AA 32 00 4B 0B |...STA BUFF.2.K.|
000037A0: EA 01 3B 4A 53 52 20 43 91 56 20 28 43 91 56 45 |..;JSR C.V (C.VE|
000037B0: 52 54 29 20 49 53 20 BD 4C 41 49 4E 45 44 20 42 |RT) IS .LAINED B|
000037C0: 45 4C 4F 57 20 41 46 54 45 52 20 8E 49 4E 47 20 |ELOW AFTER .ING |
000037D0: 57 45 20 48 41 56 45 20 4F 55 52 20 46 49 52 53 |WE HAVE OUR FIRS|
000037E0: 54 00 8B 0B F4 01 3B 52 45 41 4C 20 4E 55 4D 42 |T.....;REAL NUMB|
000037F0: 45 52 20 54 48 49 53 20 4E 55 4D 42 45 52 20 48 |ER THIS NUMBER H|
00003800: 41 53 20 A4 20 42 45 20 4D 55 4C 54 49 50 4C 49 |AS . BE MULTIPLI|
00003810: 45 44 20 42 59 20 23 31 36 20 AF 20 53 A4 52 45 |ED BY #16 . S.RE|
00003820: 44 00 9A 0B 08 02 4C 44 41 20 42 55 46 46 AA 31 |D.....LDA BUFF.1|
00003830: 00 A6 0B 12 02 4A 53 52 20 43 91 56 00 B5 0B 1C |.....JSR C.V....|
00003840: 02 53 54 41 20 42 55 46 46 AA 33 00 F5 0B 30 02 |.STA BUFF.3...0.|
00003850: 3B 54 48 49 53 20 49 53 20 4F 55 52 20 53 45 43 |;THIS IS OUR SEC|
00003860: 91 44 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 54 |.D NUMBER FROM T|
00003870: 48 45 20 4B 45 59 42 4F 41 52 44 20 49 54 27 53 |HE KEYBOARD IT'S|
00003880: 20 53 A4 52 45 44 20 41 4C 53 4F 00 FD 0B 44 02 | S.RED ALSO...D.|
00003890: 43 4C 43 00 0C 0C 4E 02 4C 44 41 20 42 55 46 46 |CLC...N.LDA BUFF|
000038A0: AA 32 00 1B 0C 58 02 41 44 43 20 42 55 46 46 AA |.2...X.ADC BUFF.|
000038B0: 33 00 2A 0C 62 02 53 54 41 20 42 55 46 46 AA 34 |3.*.b.STA BUFF.4|
000038C0: 00 32 0C 6C 02 42 52 4B 00 72 0C 80 02 3B 57 45 |.2.l.BRK.r...;WE|
000038D0: 20 43 4C 45 41 52 20 54 48 45 20 43 20 46 4C 41 | CLEAR THE C FLA|
000038E0: 47 20 81 20 41 44 44 49 54 54 49 91 20 AF 20 41 |G . ADDITTI. . A|
000038F0: 44 44 20 54 48 45 20 54 57 4F 20 4E 55 4D 42 45 |DD THE TWO NUMBE|
00003900: 52 53 20 A4 A1 48 45 52 00 B7 0C 8A 02 3B 49 54 |RS ..HER.....;IT|
00003910: 53 20 54 48 45 20 53 A4 52 45 44 20 81 20 46 55 |S THE S.RED . FU|
00003920: 54 55 52 45 20 55 53 45 20 41 53 20 57 49 54 48 |TURE USE AS WITH|
00003930: 20 41 4C 4C 20 52 4F 55 54 49 4E 45 53 20 91 20 | ALL ROUTINES . |
00003940: 54 48 49 53 20 44 49 53 4B 20 54 48 45 00 F7 0C |THIS DISK THE...|
00003950: 94 02 3B 42 55 46 46 45 52 20 49 53 20 45 58 54 |..;BUFFER IS EXT|
00003960: 80 45 44 20 4F 55 54 20 49 45 20 54 48 45 20 46 |.ED OUT IE THE F|
00003970: 49 52 53 54 20 54 57 4F 20 48 4F 4C 44 20 4F 55 |IRST TWO HOLD OU|
00003980: 52 20 B0 49 47 49 4E 41 4C 20 C6 49 49 00 3C 0D |R .IGINAL .II.<.|
00003990: 9E 02 3B 54 48 45 20 82 20 54 57 4F 20 48 4F 4C |..;THE . TWO HOL|
000039A0: 44 20 4F 55 52 20 52 45 41 4C 20 4E 55 4D 42 45 |D OUR REAL NUMBE|
000039B0: 52 53 20 AF 20 54 48 45 20 4C 41 53 54 20 49 53 |RS . THE LAST IS|
000039C0: 20 54 48 45 20 41 44 44 49 54 54 49 91 20 54 48 | THE ADDITTI. TH|
000039D0: 49 53 00 88 0D A8 02 3B 43 4F 55 4C 44 20 42 45 |IS.....;COULD BE|
000039E0: 20 53 43 41 4C 45 44 20 44 4F 57 4E 20 42 55 54 | SCALED DOWN BUT|
000039F0: 20 49 54 27 53 20 45 41 53 49 45 52 20 A4 20 55 | IT'S EASIER . U|
00003A00: 4E 44 45 52 53 C0 44 20 54 48 49 53 20 57 41 59 |NDERS.D THIS WAY|
00003A10: 20 41 53 20 57 45 20 43 41 4E 20 53 45 45 00 CC | AS WE CAN SEE..|
00003A20: 0D B2 02 3B 45 58 41 43 54 4C 59 20 57 48 41 54 |...;EXACTLY WHAT|
00003A30: 20 49 53 20 48 41 50 50 45 4E 49 4E 47 20 42 59 | IS HAPPENING BY|
00003A40: 20 87 49 4E 47 20 54 48 45 20 42 55 46 46 45 52 | .ING THE BUFFER|
00003A50: 20 46 52 4F 4D 20 4C 45 46 54 20 A4 20 52 49 47 | FROM LEFT . RIG|
00003A60: 48 54 00 DD 0D C6 02 43 91 56 20 43 4D 50 20 23 |HT.....C.V CMP #|
00003A70: 24 33 41 00 EA 0D D0 02 42 43 43 20 4E 49 4E 45 |$3A.....BCC NINE|
00003A80: 00 F2 0D DA 02 53 45 43 00 FF 0D E4 02 53 42 43 |.....SEC.....SBC|
00003A90: 20 23 24 33 37 00 07 0E EE 02 52 54 53 00 14 0E | #$37.....RTS...|
00003AA0: F8 02 4E 49 4E 45 20 53 45 43 00 21 0E 02 03 53 |..NINE SEC.!...S|
00003AB0: 42 43 20 23 24 33 30 00 29 0E 0C 03 43 4C 43 00 |BC #$30.)...CLC.|
00003AC0: 31 0E 16 03 52 54 53 00 78 0E 2A 03 3B 48 45 52 |1...RTS.x.*.;HER|
00003AD0: 45 20 57 45 20 43 4F 4D 50 41 52 45 20 4F 55 52 |E WE COMPARE OUR|
00003AE0: 20 4E 55 4D 42 45 52 53 20 A4 20 53 45 45 20 8B | NUMBERS . SEE .|
00003AF0: 20 54 48 45 52 45 20 47 52 45 41 54 45 52 20 54 | THERE GREATER T|
00003B00: 48 41 4E 20 23 39 20 8B 20 53 4F 20 57 45 00 BC |HAN #9 . SO WE..|
00003B10: 0E 34 03 3B 49 47 4E B0 45 20 54 48 45 20 42 52 |.4.;IGN.E THE BR|
00003B20: 41 4E 43 48 20 AF 20 53 55 42 54 52 41 43 54 20 |ANCH . SUBTRACT |
00003B30: 23 35 35 20 46 52 4F 4D 20 49 54 20 28 41 20 B2 |#55 FROM IT (A .|
00003B40: 20 23 36 35 20 C6 49 49 20 4D 49 4E 55 53 20 23 | #65 .II MINUS #|
00003B50: 35 35 00 F6 0E 3E 03 3B 45 51 55 41 4C 53 20 23 |55...>.;EQUALS #|
00003B60: 31 30 20 41 20 52 45 41 4C 20 23 31 30 29 20 54 |10 A REAL #10) T|
00003B70: 48 49 53 20 4E 55 4D 42 45 52 20 43 41 4E 20 42 |HIS NUMBER CAN B|
00003B80: 45 20 57 B0 4B 45 44 20 57 49 54 48 00 3B 0F 48 |E W.KED WITH.;.H|
00003B90: 03 3B 8B 20 54 48 45 20 4E 55 4D 42 45 52 20 49 |.;. THE NUMBER I|
00003BA0: 53 20 4E 49 4E 45 20 B0 20 4C 45 53 53 20 57 45 |S NINE . LESS WE|
00003BB0: 20 4A 55 53 54 20 53 55 42 54 52 41 43 54 20 23 | JUST SUBTRACT #|
00003BC0: 24 33 30 20 46 52 4F 4D 20 49 54 20 AF 20 52 54 |$30 FROM IT . RT|
00003BD0: 53 00 50 0F 5C 03 3B 42 55 46 46 45 52 53 20 AF |S.P.\.;BUFFERS .|
00003BE0: 20 46 4C 41 47 53 00 79 0F 70 03 4D 45 53 20 2E | FLAGS.y.p.MES .|
00003BF0: 42 59 54 45 20 22 45 4E 54 45 52 20 48 45 58 20 |BYTE "ENTER HEX |
00003C00: 4E 55 4D 42 45 52 20 3A 2E 42 59 54 45 20 30 00 |NUMBER :.BYTE 0.|
00003C10: 88 0F 7A 03 43 54 20 2E 42 59 54 45 20 30 00 9F |..z.CT .BYTE 0..|
00003C20: 0F 84 03 42 55 46 46 20 2E 42 59 54 45 20 30 20 |...BUFF .BYTE 0 |
00003C30: 30 20 30 20 30 00 B0 0F 8E 03 2E 80 20 C6 49 49 |0 0 0....... .II|
00003C40: 20 A4 20 48 45 58 00 00 00 46 45 52 20 46 52 4F | . HEX...FER FRO|
00003C50: 4D 20 4C 45 46 54 20 A4 20 52 49 47 48 54 00 DD |M LEFT . RIGHT..|
00003C60: 0D C6 02 43 91 56 20 43 4D 50 20 23 24 33 41 00 |...C.V CMP #$3A.|
00003C70: EA 0D D0 02 42 43 43 20 4E 49 4E 45 00 F2 0D DA |....BCC NINE....|
00003C80: 02 53 45 43 00 FF 01 08 0E 08 0A 00 AC B2 20 24 |.SEC.......... $|
00003C90: 37 31 30 30 00 15 08 14 00 2E 53 00 28 08 1E 00 |7100......S.(...|
00003CA0: 3B AC AC AC AC AC AC AC AC AC AC AC AC AC 00 40 |;..............@|
00003CB0: 08 28 00 3B 48 45 58 20 A4 20 C6 49 49 20 43 91 |.(.;HEX . .II C.|
00003CC0: 56 45 52 53 49 91 00 61 08 3C 00 3B 36 34 20 52 |VERSI..a.<.;64 R|
00003CD0: 4F 4D 20 52 4F 55 54 49 4E 45 53 20 26 20 41 44 |OM ROUTINES & AD|
00003CE0: 44 52 45 53 53 45 53 00 6F 08 50 00 99 20 B2 20 |DRESSES.o.P.. . |
00003CF0: 24 46 46 44 32 00 7C 08 64 00 4C 44 41 20 23 24 |$FFD2.|.d.LDA #$|
00003D00: 41 35 00 88 08 6E 00 53 54 41 20 4E 55 4D 00 93 |A5...n.STA NUM..|
00003D10: 08 78 00 AF 20 23 24 46 30 00 A1 08 82 00 53 54 |.x.. #$F0.....ST|
00003D20: 41 20 4E 55 4D AA 31 00 A9 08 8C 00 53 45 43 00 |A NUM.1.....SEC.|
00003D30: B5 08 96 00 4C 44 41 20 4E 55 4D 00 C3 08 A0 00 |....LDA NUM.....|
00003D40: 53 42 43 20 4E 55 4D AA 31 00 D1 08 AA 00 53 54 |SBC NUM.1.....ST|
00003D50: 41 20 4E 55 4D AA 32 00 1B 09 BE 00 3B 54 48 49 |A NUM.2.....;THI|
00003D60: 53 20 49 53 20 54 48 45 20 52 45 56 45 52 53 45 |S IS THE REVERSE|
00003D70: 20 4F 46 20 C6 49 49 20 A4 20 48 45 58 20 57 45 | OF .II . HEX WE|
00003D80: 20 46 49 52 53 54 20 54 55 52 4E 20 4F 46 46 20 | FIRST TURN OFF |
00003D90: 54 48 45 20 4C 4F 57 20 46 4F 55 52 20 42 49 54 |THE LOW FOUR BIT|
00003DA0: 53 00 5B 09 C8 00 3B A7 20 53 55 42 54 52 41 43 |S.[...;. SUBTRAC|
00003DB0: 54 20 54 48 49 53 20 4E 55 4D 42 45 52 20 46 52 |T THIS NUMBER FR|
00003DC0: 4F 4D 20 54 48 45 20 B0 49 47 49 4E 41 4C 20 23 |OM THE .IGINAL #|
00003DD0: 24 41 35 20 B2 20 23 24 41 30 20 AF 20 23 24 30 |$A5 . #$A0 . #$0|
00003DE0: 35 00 69 09 DC 00 4C 44 41 20 4E 55 4D AA 31 00 |5.i...LDA NUM.1.|
00003DF0: 76 09 E6 00 43 4D 50 20 23 24 30 30 00 81 09 F0 |v...CMP #$00....|
00003E00: 00 42 45 51 20 91 45 00 95 09 FA 00 4C 53 52 3A |.BEQ .E.....LSR:|
00003E10: 4C 53 52 3A 4C 53 52 3A 4C 53 52 00 A2 09 04 01 |LSR:LSR:LSR.....|
00003E20: 43 4D 50 20 23 24 30 41 00 AD 09 0E 01 42 43 43 |CMP #$0A.....BCC|
00003E30: 20 91 45 00 B5 09 18 01 43 4C 43 00 C2 09 22 01 | .E.....CLC...".|
00003E40: 41 44 43 20 23 24 33 37 00 D0 09 2C 01 53 54 41 |ADC #$37...,.STA|
00003E50: 20 4E 55 4D AA 33 00 DC 09 36 01 4A 4D 50 20 54 | NUM.3...6.JMP T|
00003E60: 57 4F 00 E7 09 40 01 91 45 20 43 4C 43 00 F5 09 |WO...@..E CLC...|
00003E70: 54 01 53 54 41 20 4E 55 4D AA 33 00 39 0A 68 01 |T.STA NUM.3.9.h.|
00003E80: 3B 4F 55 52 20 46 49 52 53 54 20 4E 55 4D 42 45 |;OUR FIRST NUMBE|
00003E90: 52 20 49 53 20 43 4F 4D 50 41 52 45 44 20 81 20 |R IS COMPARED . |
00003EA0: 23 24 30 30 20 8B 20 49 54 20 49 53 20 57 45 20 |#$00 . IT IS WE |
00003EB0: 41 44 44 20 23 24 33 30 20 8B 20 A8 20 57 45 00 |ADD #$30 . . WE.|
00003EC0: 80 0A 72 01 3B 44 49 56 49 44 45 20 42 59 20 31 |..r.;DIVIDE BY 1|
00003ED0: 36 20 AF 20 42 59 20 41 44 44 49 4E 47 20 23 24 |6 . BY ADDING #$|
00003EE0: 33 37 20 57 45 20 80 20 55 50 20 57 49 54 48 20 |37 WE . UP WITH |
00003EF0: 54 48 45 20 46 49 52 53 54 20 48 41 4C 46 20 4F |THE FIRST HALF O|
00003F00: 46 20 23 24 58 58 00 92 0A 86 01 54 57 4F 20 4C |F #$XX.....TWO L|
00003F10: 44 41 20 4E 55 4D AA 32 00 9F 0A 90 01 43 4D 50 |DA NUM.2.....CMP|
00003F20: 20 23 24 30 41 00 AB 0A 9A 01 42 43 43 20 91 45 | #$0A.....BCC .E|
00003F30: 53 00 B3 0A A4 01 43 4C 43 00 C0 0A AE 01 41 44 |S.....CLC.....AD|
00003F40: 43 20 23 24 33 37 00 CE 0A B8 01 53 54 41 20 4E |C #$37.....STA N|
00003F50: 55 4D AA 34 00 DA 0A C2 01 4A 4D 50 20 4F 55 54 |UM.4.....JMP OUT|
00003F60: 00 E6 0A CC 01 91 45 53 20 43 4C 43 00 F3 0A D6 |......ES CLC....|
00003F70: 01 41 44 43 20 23 24 33 30 00 01 0B E0 01 53 54 |.ADC #$30.....ST|
00003F80: 41 20 4E 55 4D AA 34 00 48 0B F4 01 3B 54 48 45 |A NUM.4.H...;THE|
00003F90: 20 53 45 43 91 44 20 48 41 4C 46 20 4F 46 20 23 | SEC.D HALF OF #|
00003FA0: 24 58 58 20 43 4F 4D 50 41 52 45 44 20 81 20 41 |$XX COMPARED . A|
00003FB0: 20 4E 55 4D 42 45 52 20 4C 45 53 53 20 54 48 41 | NUMBER LESS THA|
00003FC0: 4E 20 23 24 30 39 20 8B 20 49 54 20 49 53 00 69 |N #$09 . IT IS.i|
00003FD0: 0B FE 01 3B 57 45 20 41 44 44 20 23 24 33 30 20 |...;WE ADD #$30 |
00003FE0: 8B 20 A8 20 57 45 20 41 44 44 20 23 24 33 37 00 |. . WE ADD #$37.|
00003FF0: 7A 0B 12 02 4F 55 54 20 4C 44 41 20 23 24 39 33 |z...OUT LDA #$93|
00004000: 00 84 0B 1C 02 4A 53 52 20 99 00 91 0B 26 02 4C |.....JSR ....&.L|
00004010: 44 41 20 23 24 32 33 00 9B 0B 30 02 4A 53 52 20 |DA #$23...0.JSR |
00004020: 99 00 A8 0B 3A 02 4C 44 41 20 23 24 32 34 00 B2 |....:.LDA #$24..|
00004030: 0B 44 02 4A 53 52 20 99 00 C0 0B 4E 02 4C 44 41 |.D.JSR ....N.LDA|
00004040: 20 4E 55 4D AA 33 00 CA 0B 58 02 4A 53 52 20 99 | NUM.3...X.JSR .|
00004050: 00 D8 0B 62 02 4C 44 41 20 4E 55 4D AA 34 00 E2 |...b.LDA NUM.4..|
00004060: 0B 6C 02 4A 53 52 20 99 00 EA 0B 76 02 42 52 4B |.l.JSR ....v.BRK|
00004070: 00 F7 0B 8A 02 3B 42 55 46 46 45 52 53 00 0F 0C |.....;BUFFERS...|
00004080: 94 02 4E 55 4D 20 2E 42 59 54 45 20 30 20 30 20 |..NUM .BYTE 0 0 |
00004090: 30 20 30 20 30 00 20 0C 9E 02 2E 80 20 48 45 58 |0 0 0. ..... HEX|
000040A0: 20 A4 20 C6 49 49 00 00 00 57 45 20 41 44 44 20 | . .II...WE ADD |
000040B0: 23 24 33 30 20 8B 20 A8 20 57 45 00 80 0A 72 01 |#$30 . . WE...r.|
000040C0: 3B 44 49 56 49 44 45 20 42 59 20 31 36 20 AF 20 |;DIVIDE BY 16 . |
000040D0: 42 59 20 41 44 44 49 4E 47 20 23 24 33 37 20 57 |BY ADDING #$37 W|
000040E0: 45 20 80 20 55 50 20 57 49 54 48 20 54 48 45 20 |E . UP WITH THE |
000040F0: 46 49 52 53 54 20 48 41 4C 46 20 4F 46 20 23 24 |FIRST HALF OF #$|
00004100: 58 58 00 92 0A 86 01 54 57 4F 20 4C 44 41 20 4E |XX.....TWO LDA N|
00004110: 55 4D AA 32 00 9F 0A 90 01 43 4D 50 20 23 24 30 |UM.2.....CMP #$0|
00004120: 41 00 AB 0A 9A 01 42 43 43 20 91 45 53 00 B3 0A |A.....BCC .ES...|
00004130: A4 01 43 4C 43 00 C0 0A AE 01 41 44 43 20 23 24 |..CLC.....ADC #$|
00004140: 33 37 00 CE 0A B8 01 53 54 41 20 4E 55 4D AA 34 |37.....STA NUM.4|
00004150: 00 DA 0A C2 01 4A 4D 50 20 4F 55 54 00 E6 0A CC |.....JMP OUT....|
00004160: 01 91 45 53 20 43 4C 43 00 F3 0A D6 01 41 44 43 |..ES CLC.....ADC|
00004170: 20 23 24 33 30 00 01 0B E0 01 53 54 01 08 0E 08 | #$30.....ST....|
00004180: 0A 00 AC B2 20 24 37 31 30 30 00 15 08 15 00 2E |.... $7100......|
00004190: 53 00 4C 08 1E 00 3B 42 49 54 20 44 45 4E 53 49 |S.L...;BIT DENSI|
000041A0: 54 59 20 52 4F 55 54 49 4E 45 20 43 48 41 4E 47 |TY ROUTINE CHANG|
000041B0: 45 53 20 87 20 57 52 49 54 45 20 53 50 45 45 44 |ES . WRITE SPEED|
000041C0: 20 4F 46 20 31 35 34 31 00 61 08 32 00 3B 36 34 | OF 1541.a.2.;64|
000041D0: 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 00 71 08 | ROM ROUTINES.q.|
000041E0: 3C 00 A1 49 4E 20 B2 20 24 46 46 45 34 00 7F 08 |<..IN . $FFE4...|
000041F0: 46 00 99 20 B2 20 24 46 46 44 32 00 96 08 5A 00 |F.. . $FFD2...Z.|
00004200: 3B 31 35 34 31 20 52 4F 4D 20 52 4F 55 54 49 4E |;1541 ROM ROUTIN|
00004210: 45 53 00 A9 08 64 00 44 53 4B 43 4E 54 20 B2 20 |ES...d.DSKCNT . |
00004220: 24 31 43 30 30 00 B9 08 6E 00 47 43 52 20 B2 20 |$1C00...n.GCR . |
00004230: 24 31 43 30 31 00 CA 08 82 00 53 59 4E 43 20 B2 |$1C01.....SYNC .|
00004240: 20 24 46 35 35 36 00 DA 08 8C 00 4F 46 46 20 B2 | $F556.....OFF .|
00004250: 20 24 46 39 36 39 00 E7 08 A0 00 4C 44 41 20 23 | $F969.....LDA #|
00004260: 24 39 33 00 F1 08 AA 00 4A 53 52 20 99 00 FE 08 |$93.....JSR ....|
00004270: B4 00 4C 44 59 20 23 24 30 30 00 10 09 BE 00 4C |..LDY #$00.....L|
00004280: 50 31 20 4C 44 41 20 4D 45 53 2C 59 00 1D 09 C8 |P1 LDA MES,Y....|
00004290: 00 43 4D 50 20 23 24 30 30 00 2B 09 D2 00 42 45 |.CMP #$00.+...BE|
000042A0: 51 20 53 54 41 52 54 00 35 09 DC 00 4A 53 52 20 |Q START.5...JSR |
000042B0: 99 00 3D 09 E1 00 49 4E 59 00 49 09 E6 00 4A 4D |..=...INY.I...JM|
000042C0: 50 20 4C 50 31 00 5B 09 F0 00 53 54 41 52 54 20 |P LP1.[...START |
000042D0: 4A 53 52 20 A1 49 4E 00 68 09 FA 00 43 4D 50 20 |JSR .IN.h...CMP |
000042E0: 23 24 30 30 00 76 09 04 01 42 45 51 20 53 54 41 |#$00.v...BEQ STA|
000042F0: 52 54 00 80 09 1D 01 4A 53 52 20 99 00 8D 09 22 |RT.....JSR ...."|
00004300: 01 43 4D 50 20 23 24 33 31 00 9A 09 2C 01 42 45 |.CMP #$31...,.BE|
00004310: 51 20 5A 91 45 31 00 A7 09 36 01 43 4D 50 20 23 |Q Z.E1...6.CMP #|
00004320: 24 33 32 00 B4 09 40 01 42 45 51 20 5A 91 45 32 |$32...@.BEQ Z.E2|
00004330: 00 C1 09 4A 01 43 4D 50 20 23 24 33 33 00 CE 09 |...J.CMP #$33...|
00004340: 54 01 42 45 51 20 5A 91 45 33 00 DB 09 5E 01 43 |T.BEQ Z.E3...^.C|
00004350: 4D 50 20 23 24 33 34 00 E8 09 68 01 42 45 51 20 |MP #$34...h.BEQ |
00004360: 5A 91 45 34 00 30 0A 7C 01 3B 54 48 45 52 45 20 |Z.E4.0.|.;THERE |
00004370: 41 52 45 20 46 4F 55 52 20 44 8B 46 45 52 45 4E |ARE FOUR D.FEREN|
00004380: 54 20 42 49 54 20 44 45 4E 53 49 54 59 20 5A 91 |T BIT DENSITY Z.|
00004390: 45 53 20 49 4E 20 54 48 45 20 31 35 34 31 20 5A |ES IN THE 1541 Z|
000043A0: 91 45 20 31 20 49 53 20 46 52 4F 4D 00 76 0A 86 |.E 1 IS FROM.v..|
000043B0: 01 3B 54 52 41 43 4B 20 31 20 A4 20 31 37 20 5A |.;TRACK 1 . 17 Z|
000043C0: 91 45 20 32 20 46 52 4F 4D 20 54 52 41 43 4B 20 |.E 2 FROM TRACK |
000043D0: 31 38 20 A4 20 32 34 20 5A 91 45 20 33 20 46 52 |18 . 24 Z.E 3 FR|
000043E0: 4F 4D 20 54 52 41 43 4B 20 32 35 20 A4 20 33 30 |OM TRACK 25 . 30|
000043F0: 20 AF 00 BC 0A 90 01 3B 5A 91 45 20 34 20 46 52 | ......;Z.E 4 FR|
00004400: 4F 4D 20 54 52 41 43 4B 20 33 31 20 A4 20 33 35 |OM TRACK 31 . 35|
00004410: 20 A8 49 43 45 20 48 45 52 45 20 57 45 20 44 49 | .ICE HERE WE DI|
00004420: 44 20 A8 20 43 91 56 45 52 54 20 4F 55 52 20 C6 |D . C.VERT OUR .|
00004430: 49 49 20 A4 20 48 45 58 00 CE 0A A4 01 5A 91 45 |II . HEX.....Z.E|
00004440: 31 20 4C 44 41 20 23 24 36 30 00 DC 0A AE 01 53 |1 LDA #$60.....S|
00004450: 54 41 20 5A 91 45 AA 31 00 E6 0A B8 01 4A 4D 50 |TA Z.E.1.....JMP|
00004460: 20 80 00 F8 0A C2 01 5A 91 45 32 20 4C 44 41 20 | ......Z.E2 LDA |
00004470: 23 24 34 30 00 06 0B CC 01 53 54 41 20 5A 91 45 |#$40.....STA Z.E|
00004480: AA 31 00 10 0B D6 01 4A 4D 50 20 80 00 22 0B E0 |.1.....JMP .."..|
00004490: 01 5A 91 45 33 20 4C 44 41 20 23 24 32 30 00 30 |.Z.E3 LDA #$20.0|
000044A0: 0B EA 01 53 54 41 20 5A 91 45 AA 31 00 3A 0B F4 |...STA Z.E.1.:..|
000044B0: 01 4A 4D 50 20 80 00 4C 0B FE 01 5A 91 45 34 20 |.JMP ..L...Z.E4 |
000044C0: 4C 44 41 20 23 24 30 30 00 5A 0B 08 02 53 54 41 |LDA #$00.Z...STA|
000044D0: 20 5A 91 45 AA 31 00 64 0B 12 02 80 20 42 52 4B | Z.E.1.d.... BRK|
000044E0: 00 B1 0B 26 02 3B 41 42 4F 56 45 20 57 45 20 44 |...&.;ABOVE WE D|
000044F0: 45 53 49 47 4E 41 54 45 20 41 20 4E 55 4D 42 45 |ESIGNATE A NUMBE|
00004500: 52 20 57 45 20 57 49 4C 4C B0 41 20 44 53 4B 43 |R WE WILL.A DSKC|
00004510: 4E 54 20 24 31 43 30 30 20 57 49 54 48 20 41 53 |NT $1C00 WITH AS|
00004520: 20 57 49 4C 4C 20 42 45 20 53 45 45 4E 00 FE 0B | WILL BE SEEN...|
00004530: 30 02 3B 53 45 45 4E 20 42 45 4C 4F 57 20 57 48 |0.;SEEN BELOW WH|
00004540: 41 54 20 57 45 20 41 52 45 20 44 4F 49 4E 47 20 |AT WE ARE DOING |
00004550: 48 45 52 45 20 49 53 20 43 48 41 4E 47 49 4E 47 |HERE IS CHANGING|
00004560: 20 42 49 54 53 20 35 20 AF 20 36 20 4F 46 20 24 | BITS 5 . 6 OF $|
00004570: 31 43 30 30 20 54 48 45 53 45 00 45 0C 3A 02 3B |1C00 THESE.E.:.;|
00004580: 54 57 4F 20 42 49 54 53 20 9A 52 4F 4C 20 54 48 |TWO BITS .ROL TH|
00004590: 45 20 53 50 45 45 44 20 4F 46 20 54 48 45 20 31 |E SPEED OF THE 1|
000045A0: 35 34 31 20 54 48 45 20 42 49 54 53 20 41 52 45 |541 THE BITS ARE|
000045B0: 20 41 53 20 46 4F 4C 4C 4F 57 53 20 5A 91 45 20 | AS FOLLOWS Z.E |
000045C0: 31 00 80 0C 44 02 3B 42 49 54 53 20 31 20 31 20 |1...D.;BITS 1 1 |
000045D0: 5A 91 45 20 32 20 42 49 54 53 20 31 20 30 20 5A |Z.E 2 BITS 1 0 Z|
000045E0: 91 45 20 33 20 42 49 54 53 20 30 20 31 20 5A 91 |.E 3 BITS 0 1 Z.|
000045F0: 45 20 34 20 42 49 54 53 20 30 20 30 00 93 0C 58 |E 4 BITS 0 0...X|
00004600: 02 48 44 52 20 4C 44 41 20 44 53 4B 43 4E 54 00 |.HDR LDA DSKCNT.|
00004610: 9E 0C 62 02 AF 20 23 24 39 46 00 AE 0C 6C 02 5A |..b.. #$9F...l.Z|
00004620: 91 45 20 B0 41 20 23 24 30 30 00 BD 0C 76 02 53 |.E .A #$00...v.S|
00004630: 54 41 20 44 53 4B 43 4E 54 00 CA 0C BC 02 4A 53 |TA DSKCNT.....JS|
00004640: 52 20 53 59 4E 43 00 D7 0C C6 02 4C 44 59 20 23 |R SYNC.....LDY #|
00004650: 24 30 30 00 E5 0C D0 02 92 31 20 42 56 43 20 92 |$00......1 BVC .|
00004660: 31 00 ED 0C DA 02 43 4C 56 00 F9 0C E4 02 4C 44 |1.....CLV.....LD|
00004670: 41 20 47 43 52 00 09 0D EE 02 53 54 41 20 24 30 |A GCR.....STA $0|
00004680: 34 30 30 2C 59 00 11 0D F8 02 49 4E 59 00 1C 0D |400,Y.....INY...|
00004690: 02 03 42 4E 45 20 92 31 00 29 0D 0C 03 4C 44 59 |..BNE .1.)...LDY|
000046A0: 20 23 24 30 30 00 37 0D 16 03 92 32 20 42 56 43 | #$00.7....2 BVC|
000046B0: 20 92 32 00 3F 0D 20 03 43 4C 56 00 4B 0D 2A 03 | .2.?. .CLV.K.*.|
000046C0: 4C 44 41 20 47 43 52 00 5B 0D 34 03 53 54 41 20 |LDA GCR.[.4.STA |
000046D0: 24 30 35 30 30 2C 59 00 63 0D 3E 03 49 4E 59 00 |$0500,Y.c.>.INY.|
000046E0: 6E 0D 48 03 42 4E 45 20 92 32 00 7B 0D 52 03 4C |n.H.BNE .2.{.R.L|
000046F0: 44 41 20 23 24 30 31 00 87 0D 5C 03 4A 4D 50 20 |DA #$01...\.JMP |
00004700: 4F 46 46 00 D3 0D 70 03 3B 54 48 49 53 20 53 48 |OFF...p.;THIS SH|
00004710: 4F 55 4C 44 20 4C 4F 4F 4B 20 46 41 4D 49 4C 49 |OULD LOOK FAMILI|
00004720: 41 52 20 49 54 53 20 4F 55 52 20 87 20 48 45 41 |AR ITS OUR . HEA|
00004730: 44 45 52 49 AD 4C 20 52 4F 55 54 49 4E 45 20 57 |DERI.L ROUTINE W|
00004740: 49 54 48 20 41 4E 20 41 44 44 49 54 54 49 91 00 |ITH AN ADDITTI..|
00004750: 19 0E 7A 03 3B 57 45 20 46 49 52 53 54 20 93 20 |..z.;WE FIRST . |
00004760: 41 20 57 49 54 48 20 24 31 43 30 30 20 AF 20 49 |A WITH $1C00 . I|
00004770: 54 20 57 49 54 48 20 23 24 39 46 20 54 48 49 53 |T WITH #$9F THIS|
00004780: 20 54 55 52 4E 53 20 4F 46 46 20 42 49 54 53 20 | TURNS OFF BITS |
00004790: 35 20 AF 20 36 00 55 0E 84 03 3B 57 45 20 A7 20 |5 . 6.U...;WE . |
000047A0: B0 20 24 31 43 30 30 20 AF 20 53 45 54 20 42 49 |. $1C00 . SET BI|
000047B0: 54 53 20 35 20 AF 20 36 20 A4 20 54 48 45 20 5A |TS 5 . 6 . THE Z|
000047C0: 91 45 20 53 50 45 45 44 20 57 45 20 43 48 4F 53 |.E SPEED WE CHOS|
000047D0: 45 00 99 0E 8E 03 3B A7 20 57 45 20 46 41 4C 4C |E.....;. WE FALL|
000047E0: 20 54 48 52 4F 55 47 48 20 AF 20 87 20 54 48 45 | THROUGH . . THE|
000047F0: 20 48 45 41 44 45 52 20 57 48 49 43 48 20 57 4F | HEADER WHICH WO|
00004800: 55 4C 44 20 42 45 20 50 55 54 20 49 4E 20 41 54 |ULD BE PUT IN AT|
00004810: 20 5A 45 52 4F 00 E4 0E 98 03 3B 50 41 47 45 20 | ZERO.....;PAGE |
00004820: 81 20 42 55 46 46 45 52 20 24 30 33 30 30 20 41 |. BUFFER $0300 A|
00004830: 53 20 44 49 53 43 52 49 42 45 44 20 49 4E 20 57 |S DISCRIBED IN W|
00004840: 50 31 35 34 31 20 5A 45 52 4F 20 50 41 47 45 20 |P1541 ZERO PAGE |
00004850: 24 30 30 20 48 4F 4C 44 53 20 41 20 23 24 45 30 |$00 HOLDS A #$E0|
00004860: 00 30 0F A2 03 3B 24 30 36 20 48 4F 4C 44 53 20 |.0...;$06 HOLDS |
00004870: 54 48 45 20 54 52 41 43 4B 20 AF 20 24 30 37 20 |THE TRACK . $07 |
00004880: 48 4F 4C 44 53 20 54 48 45 20 53 45 43 A4 52 20 |HOLDS THE SEC.R |
00004890: 4F 46 20 43 4F 55 52 53 45 20 54 48 45 20 52 4F |OF COURSE THE RO|
000048A0: 55 54 49 4E 45 20 43 41 4E 20 42 45 00 6E 0F AC |UTINE CAN BE.n..|
000048B0: 03 3B 41 44 44 45 44 20 A4 20 87 20 48 45 41 44 |.;ADDED . . HEAD|
000048C0: 45 52 20 B0 20 87 20 48 44 52 4E AD 53 59 4E 43 |ER . . HDRN.SYNC|
000048D0: 20 44 45 50 80 49 4E 47 20 91 20 54 48 45 20 50 | DEP.ING . THE P|
000048E0: 52 4F 54 45 43 54 49 91 20 91 00 B7 0F B6 03 3B |ROTECTI. ......;|
000048F0: 54 48 45 20 44 49 53 4B 20 4F 46 20 B5 45 52 45 |THE DISK OF .ERE|
00004900: 53 54 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 |ST THIS ROUTINE |
00004910: 57 4F 55 4C 44 20 42 45 20 54 52 41 4E 53 46 45 |WOULD BE TRANSFE|
00004920: 52 45 44 20 A4 20 54 48 45 20 44 49 53 4B 20 46 |RED . THE DISK F|
00004930: 52 4F 4D 00 02 10 C0 03 3B 4C 49 4E 45 20 36 30 |ROM.....;LINE 60|
00004940: 30 20 24 37 31 34 44 20 54 48 52 4F 55 47 48 20 |0 $714D THROUGH |
00004950: 4C 49 4E 45 20 38 36 30 20 24 37 31 37 41 20 A4 |LINE 860 $717A .|
00004960: 20 31 35 34 31 20 42 55 46 46 45 52 20 53 54 41 | 1541 BUFFER STA|
00004970: 52 54 49 4E 47 20 41 54 20 24 30 33 30 30 00 17 |RTING AT $0300..|
00004980: 10 D4 03 3B 42 55 46 46 45 52 53 20 AF 20 46 4C |...;BUFFERS . FL|
00004990: 41 47 53 00 4E 10 DE 03 4D 45 53 20 2E 42 59 54 |AGS.N...MES .BYT|
000049A0: 45 20 22 45 4E 54 45 52 20 44 45 4E 53 49 54 59 |E "ENTER DENSITY|
000049B0: 20 5A 4F 4E 45 20 31 20 32 20 33 20 4F 52 20 34 | ZONE 1 2 3 OR 4|
000049C0: 20 22 3A 2E 42 59 54 45 20 30 00 61 10 F2 03 2E | ":.BYTE 0.a....|
000049D0: 80 20 42 49 54 20 44 45 4E 53 49 54 59 00 00 00 |. BIT DENSITY...|
000049E0: 54 20 44 45 4E 53 49 54 59 00 00 00 4E 53 49 54 |T DENSITY...NSIT|
000049F0: 59 00 00 00 54 20 44 45 4E 53 49 54 59 00 00 00 |Y...T DENSITY...|
00004A00: 54 20 44 45 4E 53 49 54 59 00 00 00 49 54 20 44 |T DENSITY...IT D|
00004A10: 45 4E 53 49 54 59 00 00 00 49 54 20 44 45 4E 53 |ENSITY...IT DENS|
00004A20: 49 54 59 00 00 00 2E 80 20 42 49 54 20 44 45 4E |ITY..... BIT DEN|
00004A30: 53 49 54 59 00 00 00 20 49 4E 20 57 50 31 35 34 |SITY... IN WP154|
00004A40: 31 20 5A 45 52 4F 20 50 41 47 45 20 24 30 30 20 |1 ZERO PAGE $00 |
00004A50: 48 4F 4C 44 53 20 41 20 23 24 45 30 00 30 0F A2 |HOLDS A #$E0.0..|
00004A60: 03 3B 24 30 36 20 48 4F 4C 44 01 08 0C 08 0A 00 |.;$06 HOLD......|
00004A70: 3B C6 20 48 45 58 00 31 08 50 00 53 43 52 49 4E |;. HEX.1.P.SCRIN|
00004A80: 20 4C 44 59 20 23 24 30 30 3B 20 53 43 52 45 45 | LDY #$00; SCREE|
00004A90: 4E 20 81 4D 41 54 53 20 26 20 85 00 40 08 55 00 |N .MATS & ..@.U.|
00004AA0: 53 54 59 20 48 4C 46 46 4C 47 00 63 08 5A 00 50 |STY HLFFLG.c.Z.P|
00004AB0: 52 4E 54 20 4C 44 41 20 54 52 4B 4D 45 53 2C 59 |RNT LDA TRKMES,Y|
00004AC0: 3B 20 45 4E 54 45 52 20 54 52 41 43 4B 00 6F 08 |; ENTER TRACK.o.|
00004AD0: 64 00 42 45 51 20 4C 50 34 00 79 08 6E 00 4A 53 |d.BEQ LP4.y.n.JS|
00004AE0: 52 20 99 00 81 08 78 00 49 4E 59 00 8E 08 82 00 |R ....x.INY.....|
00004AF0: 4A 4D 50 20 50 52 4E 54 00 9C 08 8C 00 4C 50 34 |JMP PRNT.....LP4|
00004B00: 20 4A 53 52 20 A1 00 A9 08 96 00 43 4D 50 20 23 | JSR ......CMP #|
00004B10: 24 30 30 00 B5 08 A0 00 42 45 51 20 4C 50 34 00 |$00.....BEQ LP4.|
00004B20: CF 08 AA 00 4A 53 52 20 99 3B 99 20 31 53 54 20 |....JSR .;. 1ST |
00004B30: 4B 45 59 53 54 52 4F 4B 45 00 DB 08 B4 00 53 54 |KEYSTROKE.....ST|
00004B40: 41 20 54 52 4B 00 E9 08 BE 00 4C 50 35 20 4A 53 |A TRK.....LP5 JS|
00004B50: 52 20 A1 00 F5 08 C8 00 42 45 51 20 4C 50 35 00 |R ......BEQ LP5.|
00004B60: 0F 09 D2 00 4A 53 52 20 99 3B 99 20 32 4E 44 20 |....JSR .;. 2ND |
00004B70: 4B 45 59 53 54 52 4F 4B 45 00 2F 09 DC 00 53 54 |KEYSTROKE./...ST|
00004B80: 41 20 54 52 4B AA 31 3B 20 43 48 41 4E 47 45 20 |A TRK.1; CHANGE |
00004B90: C6 49 49 20 A4 20 48 45 58 00 3B 09 E6 00 4C 44 |.II . HEX.;...LD|
00004BA0: 41 20 54 52 4B 00 56 09 F0 00 AF 20 23 24 30 46 |A TRK.V.... #$0F|
00004BB0: 3B 43 4C 45 41 52 20 48 49 47 48 20 42 49 54 53 |;CLEAR HIGH BITS|
00004BC0: 00 62 09 FA 00 53 54 41 20 54 52 4B 00 79 09 04 |.b...STA TRK.y..|
00004BD0: 01 41 53 4C 3A 41 53 4C 3B 20 B2 20 54 49 4D 45 |.ASL:ASL; . TIME|
00004BE0: 53 20 34 00 81 09 0E 01 43 4C 43 00 98 09 18 01 |S 4.....CLC.....|
00004BF0: 41 44 43 20 54 52 4B 3B 20 B2 20 54 49 4D 45 53 |ADC TRK; . TIMES|
00004C00: 20 35 00 AC 09 22 01 41 53 4C 3B 20 B2 20 54 49 | 5...".ASL; . TI|
00004C10: 4D 45 53 20 31 30 00 B8 09 2C 01 53 54 41 20 54 |MES 10...,.STA T|
00004C20: 52 4B 00 C6 09 36 01 4C 44 41 20 54 52 4B AA 31 |RK...6.LDA TRK.1|
00004C30: 00 D1 09 40 01 AF 20 23 24 30 46 00 D9 09 54 01 |...@.. #$0F...T.|
00004C40: 43 4C 43 00 E5 09 68 01 41 44 43 20 54 52 4B 00 |CLC...h.ADC TRK.|
00004C50: F1 09 72 01 53 54 41 20 54 52 4B 00 FF 09 7C 01 |..r.STA TRK...|.|
00004C60: 53 54 41 20 54 4B 53 45 43 00 26 0A 86 01 4A 53 |STA TKSEC.&...JS|
00004C70: 52 20 9C 48 44 3B 20 46 49 4C 4C 20 24 38 31 30 |R .HD; FILL $810|
00004C80: 30 AB 24 38 31 46 46 20 57 49 54 48 20 30 27 53 |0.$81FF WITH 0'S|
00004C90: 00 33 0A 90 01 4C 44 59 20 23 24 30 30 00 55 0A |.3...LDY #$00.U.|
00004CA0: 9A 01 C6 20 4C 44 41 20 54 52 4B 4D 45 53 31 2C |... LDA TRKMES1,|
00004CB0: 59 3B 20 99 20 48 41 4C 46 20 54 52 41 43 4B 00 |Y; . HALF TRACK.|
00004CC0: 60 0A A5 01 42 45 51 20 C6 31 00 6A 0A A9 01 4A |`...BEQ .1.j...J|
00004CD0: 53 52 20 99 00 72 0A AA 01 49 4E 59 00 7C 0A AE |SR ..r...INY.|..|
00004CE0: 01 4A 4D 50 20 C6 00 89 0A B8 01 C6 31 20 4A 53 |.JMP .......1 JS|
00004CF0: 52 20 A1 00 96 0A BD 01 43 4D 50 20 23 24 30 30 |R ......CMP #$00|
00004D00: 00 A1 0A BE 01 42 45 51 20 C6 31 00 AB 0A C2 01 |.....BEQ .1.....|
00004D10: 4A 53 52 20 99 00 C4 0A CC 01 43 4D 50 20 23 24 |JSR ......CMP #$|
00004D20: 34 45 3B 20 45 51 55 41 4C 53 20 22 4E 22 00 CF |4E; EQUALS "N"..|
00004D30: 0A D6 01 42 45 51 20 C6 32 00 DC 0A E0 01 4C 44 |...BEQ .2.....LD|
00004D40: 41 20 23 24 30 31 00 00 0B EA 01 53 54 41 20 48 |A #$01.....STA H|
00004D50: 4C 46 46 4C 47 3B 20 53 45 54 20 48 41 4C 46 20 |LFFLG; SET HALF |
00004D60: 54 52 41 43 4B 20 46 4C 41 47 00 10 0B F4 01 C6 |TRACK FLAG......|
00004D70: 32 20 4C 44 59 20 23 24 30 30 00 2D 0B FE 01 C6 |2 LDY #$00.-....|
00004D80: 33 20 4C 44 41 20 54 52 4B 4D 45 53 32 2C 59 3B |3 LDA TRKMES2,Y;|
00004D90: 20 99 20 5A 91 45 53 00 38 0B 08 02 42 45 51 20 | . Z.ES.8...BEQ |
00004DA0: C6 34 00 42 0B 12 02 4A 53 52 20 99 00 4A 0B 1C |.4.B...JSR ..J..|
00004DB0: 02 49 4E 59 00 55 0B 26 02 4A 4D 50 20 C6 33 00 |.INY.U.&.JMP .3.|
00004DC0: 62 0B 30 02 C6 34 20 4A 53 52 20 A1 00 6F 0B 3A |b.0..4 JSR ..o.:|
00004DD0: 02 43 4D 50 20 23 24 30 30 00 7A 0B 44 02 42 45 |.CMP #$00.z.D.BE|
00004DE0: 51 20 C6 34 00 84 0B 4E 02 4A 53 52 20 99 00 AC |Q .4...N.JSR ...|
00004DF0: 0B 58 02 53 45 43 3A 53 42 43 20 23 24 33 31 3A |.X.SEC:SBC #$31:|
00004E00: 54 41 59 3B 20 42 45 43 4F 4D 45 53 20 48 45 58 |TAY; BECOMES HEX|
00004E10: 20 31 20 A4 20 34 00 BC 0B 62 02 4C 44 41 20 44 | 1 . 4...b.LDA D|
00004E20: 45 4E 53 31 2C 59 00 E3 0B 6C 02 53 54 41 20 53 |ENS1,Y...l.STA S|
00004E30: 50 44 AA 31 3B 20 50 55 54 20 5A 91 45 20 49 4E |PD.1; PUT Z.E IN|
00004E40: 20 44 49 53 4B 20 50 52 4F 47 52 41 4D 00 EE 0B | DISK PROGRAM...|
00004E50: 8A 02 C6 37 20 52 54 53 00 03 0C 20 03 2E 46 49 |...7 RTS... ..FI|
00004E60: 4C 45 20 4C 44 20 44 53 4B 20 50 52 47 00 00 00 |LE LD DSK PRG...|
00004E70: 44 3B 20 46 49 4C 4C 20 24 38 31 30 30 AB 24 38 |D; FILL $8100.$8|
00004E80: 31 46 46 20 57 49 54 48 20 30 27 53 00 33 0A 90 |1FF WITH 0'S.3..|
00004E90: 01 4C 44 59 20 23 24 30 30 00 55 0A 9A 01 C6 20 |.LDY #$00.U.... |
00004EA0: 4C 44 41 20 54 52 4B 4D 45 53 31 2C 59 3B 20 99 |LDA TRKMES1,Y; .|
00004EB0: 20 48 41 4C 46 20 54 52 41 43 4B 00 60 0A A5 01 | HALF TRACK.`...|
00004EC0: 42 45 51 20 C6 31 00 6A 0A A9 01 4A 53 52 20 99 |BEQ .1.j...JSR .|
00004ED0: 00 72 0A AA 01 49 4E 59 00 7C 0A AE 01 4A 4D 50 |.r...INY.|...JMP|
00004EE0: 20 C6 00 89 0A B8 01 C6 31 20 4A 53 52 20 A1 00 | .......1 JSR ..|
00004EF0: 96 0A BD 01 43 4D 50 20 23 24 30 30 00 A1 0A BE |....CMP #$00....|
00004F00: 01 42 45 51 20 C6 31 00 AB 0A C2 01 4A 53 52 20 |.BEQ .1.....JSR |
00004F10: 99 00 C4 0A CC 01 43 4D 50 20 23 24 34 45 3B 20 |......CMP #$4E; |
00004F20: 45 51 55 41 4C 53 20 22 4E 22 00 CF 0A D6 01 42 |EQUALS "N".....B|
00004F30: 45 51 20 C6 32 00 DC 0A E0 01 4C 44 41 20 23 24 |EQ .2.....LDA #$|
00004F40: 30 31 00 00 0B EA 01 53 54 41 20 48 4C 46 46 4C |01.....STA HLFFL|
00004F50: 47 3B 20 53 45 54 20 48 41 4C 46 20 54 52 41 43 |G; SET HALF TRAC|
00004F60: 01 08 12 08 0A 00 3B 45 58 43 20 44 53 4B 20 50 |......;EXC DSK P|
00004F70: 52 47 00 3B 08 04 01 45 58 44 53 4B 20 4A 53 52 |RG.;...EXDSK JSR|
00004F80: 20 9B 3B 20 50 55 54 20 23 24 45 30 20 41 54 20 | .; PUT #$E0 AT |
00004F90: 24 30 30 20 49 4E 20 31 35 34 31 00 48 08 0E 01 |$00 IN 1541.H...|
00004FA0: 4C 44 59 20 23 24 30 30 00 5B 08 18 01 4C 50 32 |LDY #$00.[...LP2|
00004FB0: 31 20 4C 44 41 20 4D 57 31 2C 59 00 67 08 22 01 |1 LDA MW1,Y.g.".|
00004FC0: 4A 53 52 20 4F 55 54 00 6F 08 2C 01 49 4E 59 00 |JSR OUT.o.,.INY.|
00004FD0: 7C 08 36 01 43 50 59 20 23 24 30 38 00 89 08 40 ||.6.CPY #$08...@|
00004FE0: 01 42 4E 45 20 4C 50 32 31 00 97 08 4A 01 4A 53 |.BNE LP21...J.JS|
00004FF0: 52 20 55 4E 4C 49 53 00 A1 08 54 01 4A 53 52 20 |R UNLIS...T.JSR |
00005000: 9B 00 AE 08 5E 01 4C 44 59 20 23 24 30 30 00 C1 |....^.LDY #$00..|
00005010: 08 68 01 4C 50 32 32 20 4C 44 41 20 4D 57 34 2C |.h.LP22 LDA MW4,|
00005020: 59 00 CD 08 72 01 4A 53 52 20 4F 55 54 00 D5 08 |Y...r.JSR OUT...|
00005030: 7C 01 49 4E 59 00 E2 08 86 01 43 50 59 20 23 24 ||.INY.....CPY #$|
00005040: 30 37 00 EF 08 90 01 42 4E 45 20 4C 50 32 32 00 |07.....BNE LP22.|
00005050: FD 08 9A 01 4A 53 52 20 55 4E 4C 49 53 00 0C 09 |....JSR UNLIS...|
00005060: 9B 01 4A 53 52 20 43 48 4B 45 52 52 00 14 09 A4 |..JSR CHKERR....|
00005070: 01 52 54 53 00 26 09 80 02 2E 46 49 4C 45 20 44 |.RTS.&....FILE D|
00005080: 53 4B 20 50 52 47 00 00 00 A0 A0 A0 A0 A0 A0 A0 |SK PRG..........|
00005090: A0 00 00 00 00 00 00 00 00 00 03 00 00 00 82 14 |................|
000050A0: 08 52 44 20 54 52 4B 20 45 51 A0 A0 A0 A0 A0 A0 |.RD TRK EQ......|
000050B0: A0 00 00 00 00 00 00 00 00 00 02 00 00 00 82 10 |................|
000050C0: 07 52 44 20 54 52 4B 20 54 41 42 4C 45 53 A0 A0 |.RD TRK TABLES..|
000050D0: A0 00 00 00 00 00 00 00 00 00 08 00 00 00 82 0F |................|
000050E0: 00 41 53 43 20 48 45 58 A0 A0 A0 A0 A0 A0 A0 A0 |.ASC HEX........|
000050F0: A0 00 00 00 00 00 00 00 00 00 05 00 00 00 82 0D |................|
00005100: 09 4C 44 20 44 53 4B 20 50 52 47 A0 A0 A0 A0 A0 |.LD DSK PRG.....|
00005110: A0 00 00 00 00 00 00 00 00 00 02 00 00 00 02 0D |................|
00005120: 0F 45 58 43 20 44 53 4B 20 50 52 47 A0 A0 A0 A0 |.EXC DSK PRG....|
00005130: A0 00 00 00 00 00 00 00 00 00 00 00 00 00 82 17 |................|
00005140: 01 44 53 4B 20 50 52 47 A0 A0 A0 A0 A0 A0 A0 A0 |.DSK PRG........|
00005150: A0 00 00 00 00 00 00 00 00 00 02 00 01 08 11 08 |................|
00005160: 0A 00 3B 52 44 20 44 53 4B 20 42 55 46 00 42 08 |..;RD DSK BUF.B.|
00005170: 90 01 52 44 44 53 4B 20 4C 44 41 20 23 24 30 30 |..RDDSK LDA #$00|
00005180: 3B 20 87 20 44 49 53 4B 20 42 55 46 46 45 52 53 |; . DISK BUFFERS|
00005190: 20 24 30 34 30 30 20 26 20 24 30 35 30 30 00 63 | $0400 & $0500.c|
000051A0: 08 9A 01 53 54 41 20 41 3B 20 43 4F 55 4E 54 45 |...STA A; COUNTE|
000051B0: 52 20 81 20 54 57 4F 20 42 55 46 46 45 52 53 00 |R . TWO BUFFERS.|
000051C0: 70 08 A4 01 52 44 20 4A 53 52 20 9B 00 7D 08 AE |p...RD JSR ..}..|
000051D0: 01 4C 44 59 20 23 24 30 30 00 90 08 B8 01 4C 50 |.LDY #$00.....LP|
000051E0: 32 33 20 4C 44 41 20 4D 52 31 2C 59 00 9C 08 C2 |23 LDA MR1,Y....|
000051F0: 01 4A 53 52 20 4F 55 54 00 A4 08 CC 01 49 4E 59 |.JSR OUT.....INY|
00005200: 00 B1 08 D6 01 43 50 59 20 23 24 30 36 00 BE 08 |.....CPY #$06...|
00005210: E0 01 42 4E 45 20 4C 50 32 33 00 CC 08 EA 01 4A |..BNE LP23.....J|
00005220: 53 52 20 55 4E 4C 49 53 00 D9 08 F4 01 4A 53 52 |SR UNLIS.....JSR|
00005230: 20 54 41 4C 4B 00 E6 08 FE 01 4C 44 59 20 23 24 | TALK.....LDY #$|
00005240: 30 30 00 0C 09 08 02 4C 50 32 34 20 4A 53 52 20 |00.....LP24 JSR |
00005250: 49 4E 3B 20 A1 20 41 20 42 59 54 45 20 26 20 50 |IN; . A BYTE & P|
00005260: 55 54 20 49 4E 20 36 34 00 31 09 12 02 42 46 31 |UT IN 64.1...BF1|
00005270: 20 53 54 41 20 47 43 52 31 2C 59 3B 20 47 43 52 | STA GCR1,Y; GCR|
00005280: 20 A4 20 48 45 58 20 42 55 46 46 45 52 00 5C 09 | . HEX BUFFER.\.|
00005290: 17 02 42 46 32 20 53 54 41 20 47 43 52 32 2C 59 |..BF2 STA GCR2,Y|
000052A0: 3B 20 8B 20 A2 20 53 45 43 A4 52 20 54 48 49 53 |; . . SEC.R THIS|
000052B0: 20 57 49 4C 4C 20 42 45 00 83 09 1C 02 49 4E 59 | WILL BE.....INY|
000052C0: 3B 20 54 52 41 4E 53 46 45 52 45 44 20 A4 20 83 |; TRANSFERED . .|
000052D0: 20 42 55 46 46 45 52 20 54 4F 20 53 41 56 45 00 | BUFFER TO SAVE.|
000052E0: 90 09 26 02 42 4E 45 20 4C 50 32 34 00 9E 09 27 |..&.BNE LP24...'|
000052F0: 02 4A 53 52 20 55 4E 54 4C 4B 00 B6 09 28 02 4A |.JSR UNTLK...(.J|
00005300: 53 52 20 9B 3B 20 A1 20 42 59 54 45 20 23 20 32 |SR .; . BYTE # 2|
00005310: 35 36 00 EA 09 29 02 4C 44 59 20 23 24 30 30 3B |56...).LDY #$00;|
00005320: 20 54 41 4C 4B 20 49 53 20 4C 49 4D 49 54 45 44 | TALK IS LIMITED|
00005330: 20 A4 20 32 35 35 20 42 59 54 45 53 20 41 54 20 | . 255 BYTES AT |
00005340: 41 20 54 49 4D 45 00 FC 09 2A 02 4C 42 20 4C 44 |A TIME...*.LB LD|
00005350: 41 20 4D 52 4C 42 2C 59 00 08 0A 2B 02 4A 53 52 |A MRLB,Y...+.JSR|
00005360: 20 4F 55 54 00 10 0A 2C 02 49 4E 59 00 1D 0A 2D | OUT...,.INY...-|
00005370: 02 43 50 59 20 23 24 30 36 00 28 0A 2E 02 42 4E |.CPY #$06.(...BN|
00005380: 45 20 4C 42 00 36 0A 2F 02 4A 53 52 20 55 4E 4C |E LB.6./.JSR UNL|
00005390: 49 53 00 43 0A 30 02 4A 53 52 20 54 41 4C 4B 00 |IS.C.0.JSR TALK.|
000053A0: 4E 0A 31 02 4A 53 52 20 49 4E 00 5B 0A 32 02 4C |N.1.JSR IN.[.2.L|
000053B0: 44 59 20 23 24 46 46 00 6A 0A 33 02 53 54 41 20 |DY #$FF.j.3.STA |
000053C0: 47 43 52 31 2C 59 00 79 0A 34 02 53 54 41 20 47 |GCR1,Y.y.4.STA G|
000053D0: 43 52 32 2C 59 00 87 0A 35 02 4A 53 52 20 55 4E |CR2,Y...5.JSR UN|
000053E0: 54 4C 4B 00 B3 0A 43 02 49 4E 43 20 4D 52 31 AA |TLK...C.INC MR1.|
000053F0: 34 3B 20 49 4E 43 8F 45 4E 54 20 48 49 47 48 20 |4; INC.ENT HIGH |
00005400: 42 59 54 45 20 4F 46 20 42 55 46 46 45 52 53 00 |BYTE OF BUFFERS.|
00005410: C1 0A 44 02 49 4E 43 20 42 46 31 AA 32 00 CF 0A |..D.INC BF1.2...|
00005420: 49 02 49 4E 43 20 42 46 32 AA 32 00 D9 0A 4E 02 |I.INC BF2.2...N.|
00005430: 49 4E 43 20 41 00 E3 0A 58 02 4C 44 41 20 41 00 |INC A...X.LDA A.|
00005440: 08 0B 62 02 43 4D 50 20 23 24 30 32 3B 20 43 48 |..b.CMP #$02; CH|
00005450: 45 43 4B 20 8B 20 42 4F 54 48 20 42 55 46 46 45 |ECK . BOTH BUFFE|
00005460: 52 53 20 87 00 14 0B 6C 02 42 45 51 20 52 44 31 |RS ....l.BEQ RD1|
00005470: 00 1F 0B 76 02 4A 4D 50 20 52 44 00 4F 0B 80 02 |...v.JMP RD.O...|
00005480: 52 44 31 20 44 45 43 20 42 46 31 AA 32 3B 20 44 |RD1 DEC BF1.2; D|
00005490: 45 43 8F 45 4D 54 20 48 49 47 48 20 42 59 54 45 |EC.EMT HIGH BYTE|
000054A0: 20 4F 46 20 42 55 46 46 45 52 53 00 5D 0B 85 02 | OF BUFFERS.]...|
000054B0: 44 45 43 20 42 46 31 AA 32 00 6B 0B 8A 02 44 45 |DEC BF1.2.k...DE|
000054C0: 43 20 42 46 32 AA 32 00 79 0B 8F 02 44 45 43 20 |C BF2.2.y...DEC |
000054D0: 42 46 32 AA 32 00 87 0B 94 02 44 45 43 20 4D 52 |BF2.2.....DEC MR|
000054E0: 31 AA 34 00 95 0B 9E 02 44 45 43 20 4D 52 31 AA |1.4.....DEC MR1.|
000054F0: 34 00 A2 0B A8 02 4C 44 41 20 23 24 30 30 00 AC |4.....LDA #$00..|
00005500: 0B B2 02 53 54 41 20 41 00 B4 0B BC 02 52 54 53 |...STA A.....RTS|
00005510: 00 C3 0B C6 02 2E 46 49 4C 45 20 81 4D 41 54 00 |......FILE .MAT.|
00005520: 00 00 49 53 20 4C 49 4D 49 54 45 44 20 A4 20 32 |..IS LIMITED . 2|
00005530: 35 35 20 42 59 54 45 53 20 41 54 20 41 20 54 49 |55 BYTES AT A TI|
00005540: 4D 45 00 FC 09 2A 02 4C 42 20 4C 44 41 20 4D 52 |ME...*.LB LDA MR|
00005550: 4C 42 2C 59 01 08 0E 08 0A 00 AC B2 20 24 37 30 |LB,Y........ $70|
00005560: 30 30 00 15 08 32 00 2E 4D 00 38 08 5A 00 3B 20 |00...2..M.8.Z.; |
00005570: 48 4F 57 20 A4 20 50 52 4F 47 52 41 4D 20 54 48 |HOW . PROGRAM TH|
00005580: 45 20 44 49 53 4B 20 A4 20 87 20 41 00 5A 08 82 |E DISK . . A.Z..|
00005590: 00 3B 20 53 45 43 A4 52 20 91 20 41 20 54 52 41 |.; SEC.R . A TRA|
000055A0: 43 4B 20 26 20 50 55 54 20 54 48 45 20 83 00 72 |CK & PUT THE ..r|
000055B0: 08 AA 00 3B 20 B5 4F 20 54 48 45 20 36 34 27 53 |...; .O THE 64'S|
000055C0: 20 4D 45 4D B0 59 00 78 08 D2 00 3B 00 97 08 FA | MEM.Y.x...;....|
000055D0: 00 3B AC AC AC AC 20 36 34 20 52 4F 4D 20 52 4F |.;.... 64 ROM RO|
000055E0: 55 54 49 4E 45 53 20 AC AC AC AC 00 A5 08 22 01 |UTINES .......".|
000055F0: 9B 20 B2 20 24 46 46 42 31 00 B7 08 4A 01 4C 49 |. . $FFB1...J.LI|
00005600: 53 45 43 20 B2 20 24 46 46 39 33 00 C9 08 72 01 |SEC . $FF93...r.|
00005610: 55 4E 4C 49 53 20 B2 20 24 46 46 41 45 00 D9 08 |UNLIS . $FFAE...|
00005620: 9A 01 4F 55 54 20 B2 20 24 46 46 41 38 00 EA 08 |..OUT . $FFA8...|
00005630: C2 01 54 41 4C 4B 20 B2 20 24 46 46 42 34 00 FD |..TALK . $FFB4..|
00005640: 08 EA 01 54 4C 4B 53 45 43 20 B2 20 24 46 46 39 |...TLKSEC . $FF9|
00005650: 36 00 10 09 12 02 55 4E 54 41 4C 4B 20 B2 20 24 |6.....UNTALK . $|
00005660: 46 46 41 42 00 1F 09 3A 02 49 4E 20 B2 20 24 46 |FFAB...:.IN . $F|
00005670: 46 41 35 00 25 09 62 02 3B 00 32 09 8A 02 4A 53 |FA5.%.b.;.2...JS|
00005680: 52 20 49 4E 49 54 00 3E 09 B2 02 4A 53 52 20 4C |R INIT.>...JSR L|
00005690: 49 53 00 4B 09 DA 02 4C 44 59 20 23 24 30 30 00 |IS.K...LDY #$00.|
000056A0: 5D 09 02 03 4C 50 31 20 4C 44 41 20 4D 52 31 2C |]...LP1 LDA MR1,|
000056B0: 59 00 69 09 2A 03 4A 53 52 20 4F 55 54 00 71 09 |Y.i.*.JSR OUT.q.|
000056C0: 52 03 49 4E 59 00 7E 09 7A 03 43 50 59 20 23 24 |R.INY.~.z.CPY #$|
000056D0: 30 38 00 8A 09 A2 03 42 4E 45 20 4C 50 31 00 98 |08.....BNE LP1..|
000056E0: 09 CA 03 4A 53 52 20 55 4E 4C 49 53 00 A4 09 F2 |...JSR UNLIS....|
000056F0: 03 4A 53 52 20 4C 49 53 00 B1 09 1A 04 4C 44 59 |.JSR LIS.....LDY|
00005700: 20 23 24 30 30 00 C3 09 42 04 4C 50 32 20 4C 44 | #$00...B.LP2 LD|
00005710: 41 20 4D 57 32 2C 59 00 CF 09 6A 04 4A 53 52 20 |A MW2,Y...j.JSR |
00005720: 4F 55 54 00 D7 09 92 04 49 4E 59 00 E4 09 9C 04 |OUT.....INY.....|
00005730: 43 50 59 20 23 24 30 37 00 F0 09 A6 04 42 4E 45 |CPY #$07.....BNE|
00005740: 20 4C 50 32 00 FE 09 B0 04 4A 53 52 20 55 4E 4C | LP2.....JSR UNL|
00005750: 49 53 00 0D 0A BA 04 4A 53 52 20 43 48 4B 45 52 |IS.....JSR CHKER|
00005760: 52 00 15 0A E2 04 42 52 4B 00 26 0A 0A 05 49 4E |R.....BRK.&...IN|
00005770: 49 54 20 4A 53 52 20 4C 49 53 00 32 0A 32 05 4C |IT JSR LIS.2.2.L|
00005780: 44 41 20 23 22 49 00 3E 0A 5A 05 4A 53 52 20 4F |DA #"I.>.Z.JSR O|
00005790: 55 54 00 4C 0A 82 05 4A 53 52 20 55 4E 4C 49 53 |UT.L...JSR UNLIS|
000057A0: 00 54 0A AA 05 52 54 53 00 65 0A D2 05 4C 49 53 |.T...RTS.e...LIS|
000057B0: 20 4C 44 41 20 23 24 30 38 00 6F 0A FA 05 4A 53 | LDA #$08.o...JS|
000057C0: 52 20 9B 00 7C 0A 22 06 4C 44 41 20 23 24 36 46 |R ..|.".LDA #$6F|
000057D0: 00 8A 0A 4A 06 4A 4D 50 20 4C 49 53 45 43 00 9D |...J.JMP LISEC..|
000057E0: 0A 72 06 43 48 4B 45 52 52 20 4A 53 52 20 4C 49 |.r.CHKERR JSR LI|
000057F0: 53 00 AA 0A 9A 06 4C 44 59 20 23 24 30 30 00 BC |S.....LDY #$00..|
00005800: 0A C2 06 4C 50 33 20 4C 44 41 20 4D 52 31 2C 59 |...LP3 LDA MR1,Y|
00005810: 00 C8 0A EA 06 4A 53 52 20 4F 55 54 00 D0 0A 12 |.....JSR OUT....|
00005820: 07 49 4E 59 00 DD 0A 3A 07 43 50 59 20 23 24 30 |.INY...:.CPY #$0|
00005830: 35 00 E9 0A 62 07 42 4E 45 20 4C 50 33 00 F4 0A |5...b.BNE LP3...|
00005840: 8A 07 4A 53 52 20 49 4E 00 FF 0A B2 07 42 50 4C |..JSR IN.....BPL|
00005850: 20 4F 4B 00 0D 0B DA 07 4A 53 52 20 55 4E 4C 49 | OK.....JSR UNLI|
00005860: 53 00 1C 0B 02 08 4A 4D 50 20 43 48 4B 45 52 52 |S.....JMP CHKERR|
00005870: 00 2D 0B 2A 08 4F 4B 20 4A 4D 50 20 55 4E 4C 49 |.-.*.OK JMP UNLI|
00005880: 53 00 55 0B 52 08 4D 57 31 20 2E 42 59 54 45 20 |S.U.R.MW1 .BYTE |
00005890: 22 4D 2D 57 3A 2E 42 59 54 45 20 30 36 20 30 30 |"M-W:.BYTE 06 00|
000058A0: 20 30 32 20 31 38 20 30 30 00 7B 0B 7A 08 4D 57 | 02 18 00.{.z.MW|
000058B0: 32 20 2E 42 59 54 45 20 22 4D 2D 57 3A 2E 42 59 |2 .BYTE "M-W:.BY|
000058C0: 54 45 20 30 30 20 30 30 20 30 31 20 31 32 38 00 |TE 00 00 01 128.|
000058D0: 9A 0B A2 08 4D 52 31 20 2E 42 59 54 45 20 22 4D |....MR1 .BYTE "M|
000058E0: 2D 52 3A 2E 42 59 54 45 20 30 30 20 30 30 00 00 |-R:.BYTE 00 00..|
000058F0: 00 4C 49 53 00 B1 09 1A 04 4C 44 59 20 23 24 30 |.LIS.....LDY #$0|
00005900: 30 00 C3 09 42 04 4C 50 32 20 4C 44 41 20 4D 57 |0...B.LP2 LDA MW|
00005910: 32 2C 59 00 CF 09 6A 04 4A 53 52 20 4F 55 54 00 |2,Y...j.JSR OUT.|
00005920: D7 09 92 04 49 4E 59 00 E4 09 9C 04 43 50 59 20 |....INY.....CPY |
00005930: 23 24 30 37 00 F0 09 A6 04 42 4E 45 20 4C 50 32 |#$07.....BNE LP2|
00005940: 00 FE 09 B0 04 4A 53 52 20 55 4E 4C 01 08 0E 08 |.....JSR UNL....|
00005950: 0A 00 AC B2 20 24 37 31 30 30 00 4C 08 14 00 3B |.... $7100.L...;|
00005960: 87 20 48 45 41 44 45 52 20 49 4C 4C 20 52 4F 55 |. HEADER ILL ROU|
00005970: 54 49 4E 45 20 44 45 53 49 47 4E 45 44 20 A4 20 |TINE DESIGNED . |
00005980: 87 20 47 43 52 20 83 20 4F 4E 20 49 4C 4C 45 47 |. GCR . ON ILLEG|
00005990: 41 4C 20 54 52 41 43 4B 00 8A 08 1E 00 3B 41 46 |AL TRACK.....;AF|
000059A0: 54 45 52 20 54 52 41 4E 53 46 45 52 20 A4 20 36 |TER TRANSFER . 6|
000059B0: 34 20 52 41 4D 20 47 43 52 20 52 4F 55 54 49 4E |4 RAM GCR ROUTIN|
000059C0: 45 20 57 49 4C 4C 20 43 91 56 45 52 54 20 49 54 |E WILL C.VERT IT|
000059D0: 20 A4 20 48 45 58 00 CB 08 28 00 3B A4 20 55 53 | . HEX...(.;. US|
000059E0: 45 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 53 |E THIS ROUTINE S|
000059F0: 45 45 20 49 4E 46 4F 20 41 54 20 42 45 47 49 4E |EE INFO AT BEGIN|
00005A00: 49 4E 47 20 4F 46 20 87 20 48 45 41 44 45 52 20 |ING OF . HEADER |
00005A10: 52 4F 55 54 49 4E 45 00 E4 08 32 00 3B 36 34 20 |ROUTINE...2.;64 |
00005A20: 52 4F 4D 20 52 4F 55 54 49 4E 45 53 20 4E 91 45 |ROM ROUTINES N.E|
00005A30: 00 FB 08 3C 00 3B 31 35 34 31 20 52 4F 4D 20 52 |...<.;1541 ROM R|
00005A40: 4F 55 54 49 4E 45 53 00 0C 09 46 00 53 59 4E 43 |OUTINES...F.SYNC|
00005A50: 20 B2 20 24 46 35 35 36 00 1C 09 50 00 47 43 52 | . $F556...P.GCR|
00005A60: 20 B2 20 24 31 43 30 31 00 2C 09 5A 00 4F 46 46 | . $1C01.,.Z.OFF|
00005A70: 20 B2 20 24 46 39 36 39 00 39 09 64 00 4A 53 52 | . $F969.9.d.JSR|
00005A80: 20 53 59 4E 43 00 46 09 6E 00 4C 44 59 20 23 24 | SYNC.F.n.LDY #$|
00005A90: 30 30 00 54 09 78 00 92 31 20 42 56 43 20 92 31 |00.T.x..1 BVC .1|
00005AA0: 00 5C 09 82 00 43 4C 56 00 68 09 8C 00 4C 44 41 |.\...CLV.h...LDA|
00005AB0: 20 47 43 52 00 78 09 96 00 53 54 41 20 24 30 34 | GCR.x...STA $04|
00005AC0: 30 30 2C 59 00 80 09 A0 00 49 4E 59 00 8B 09 AA |00,Y.....INY....|
00005AD0: 00 42 4E 45 20 92 31 00 98 09 B4 00 4C 44 59 20 |.BNE .1.....LDY |
00005AE0: 23 24 30 30 00 E2 09 BE 00 3B 54 48 49 53 20 49 |#$00.....;THIS I|
00005AF0: 53 20 54 48 45 20 53 41 4D 45 20 52 4F 55 54 49 |S THE SAME ROUTI|
00005B00: 4E 45 20 41 53 20 87 20 48 45 41 44 45 52 20 42 |NE AS . HEADER B|
00005B10: 55 54 20 41 53 20 49 54 53 20 41 4E 20 49 4C 4C |UT AS ITS AN ILL|
00005B20: 45 47 41 4C 4C 59 20 81 4D 41 54 54 45 44 00 24 |EGALLY .MATTED.$|
00005B30: 0A C8 00 3B 54 52 41 43 4B 20 57 45 20 44 4F 20 |...;TRACK WE DO |
00005B40: A8 20 55 53 45 20 53 52 43 48 20 41 53 20 49 54 |. USE SRCH AS IT|
00005B50: 20 57 4F 55 4C 44 20 8E 20 54 48 45 20 45 52 52 | WOULD . THE ERR|
00005B60: B0 20 48 45 41 44 45 52 20 A8 20 46 4F 55 4E 44 |. HEADER . FOUND|
00005B70: 00 66 0A D2 00 3B 49 4E 53 54 45 41 44 20 57 45 |.f...;INSTEAD WE|
00005B80: 20 92 20 81 20 54 48 45 20 53 59 4E 43 20 AF 20 | . . THE SYNC . |
00005B90: 87 20 57 48 41 54 45 56 45 52 20 83 20 57 45 20 |. WHATEVER . WE |
00005BA0: 47 45 54 20 54 4F 20 54 48 45 20 42 55 46 46 45 |GET TO THE BUFFE|
00005BB0: 52 53 00 A7 0A DC 00 3B 41 20 52 4F 55 54 49 4E |RS.....;A ROUTIN|
00005BC0: 45 20 43 4F 55 4C 44 20 42 45 20 44 45 53 49 47 |E COULD BE DESIG|
00005BD0: 4E 45 44 20 A4 20 87 20 41 4C 4C 20 53 45 43 A4 |NED . . ALL SEC.|
00005BE0: 52 53 20 41 54 20 91 45 20 54 49 4D 45 20 AF 20 |RS AT .E TIME . |
00005BF0: 54 48 45 00 E8 0A E6 00 3B 48 45 41 44 45 52 AD |THE.....;HEADER.|
00005C00: 53 20 43 4F 55 4C 44 20 42 45 20 57 52 49 54 54 |S COULD BE WRITT|
00005C10: 45 4E 20 42 41 43 4B 20 A4 20 41 20 43 4F 50 59 |EN BACK . A COPY|
00005C20: 20 44 49 53 4B 20 55 BF 47 20 81 4D 41 54 20 54 | DISK U.G .MAT T|
00005C30: 52 41 43 4B 00 F6 0A F0 00 92 32 20 42 56 43 20 |RACK......2 BVC |
00005C40: 92 32 00 FE 0A FA 00 43 4C 56 00 0A 0B 04 01 4C |.2.....CLV.....L|
00005C50: 44 41 20 47 43 52 00 1A 0B 0E 01 53 54 41 20 24 |DA GCR.....STA $|
00005C60: 30 35 30 30 2C 59 00 22 0B 18 01 49 4E 59 00 2D |0500,Y."...INY.-|
00005C70: 0B 22 01 42 4E 45 20 92 32 00 3A 0B 2C 01 4C 44 |.".BNE .2.:.,.LD|
00005C80: 41 20 23 24 30 31 00 46 0B 36 01 4A 4D 50 20 4F |A #$01.F.6.JMP O|
00005C90: 46 46 00 8F 0B 40 01 3B 57 45 20 50 55 54 20 41 |FF...@.;WE PUT A|
00005CA0: 20 23 24 30 31 20 49 4E 20 41 20 AF 20 4A 53 52 | #$01 IN A . JSR|
00005CB0: 20 4F 46 46 20 54 48 49 53 20 23 24 30 31 20 49 | OFF THIS #$01 I|
00005CC0: 53 20 50 55 54 20 49 4E 20 54 48 45 20 45 52 52 |S PUT IN THE ERR|
00005CD0: B0 20 43 4F 44 45 20 28 4F 4B 29 00 B8 0B 4A 01 |. CODE (OK)...J.|
00005CE0: 3B 54 45 4C 4C 53 20 54 48 45 20 44 49 53 4B 20 |;TELLS THE DISK |
00005CF0: 41 4C 4C 53 20 4F 4B 20 AF 20 53 48 55 54 53 20 |ALLS OK . SHUTS |
00005D00: 44 4F 57 4E 00 00 00 44 45 52 20 42 55 54 20 41 |DOWN...DER BUT A|
00005D10: 53 20 49 54 53 20 41 4E 20 49 4C 4C 45 47 41 4C |S ITS AN ILLEGAL|
00005D20: 4C 59 20 81 4D 41 54 54 45 44 00 24 0A C8 00 3B |LY .MATTED.$...;|
00005D30: 54 52 41 43 4B 20 57 45 20 44 4F 20 A8 20 55 53 |TRACK WE DO . US|
00005D40: 45 20 53 52 01 08 0E 08 0A 00 AC B2 20 24 37 30 |E SR........ $70|
00005D50: 30 30 00 1A 08 0F 00 3B 42 41 4D 20 45 51 00 21 |00.....;BAM EQ.!|
00005D60: 08 1E 00 2E 4D 00 27 08 23 00 3B 00 3C 08 24 00 |....M.'.#.;.<.$.|
00005D70: 3B 36 34 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 |;64 ROM ROUTINES|
00005D80: 00 42 08 25 00 3B 00 50 08 28 00 A1 20 B2 20 24 |.B.%.;.P.(.. . $|
00005D90: 46 46 45 34 00 5E 08 32 00 99 20 B2 20 24 46 46 |FFE4.^.2.. . $FF|
00005DA0: 44 32 00 6E 08 3C 00 4C 49 53 20 B2 20 24 46 46 |D2.n.<.LIS . $FF|
00005DB0: 42 31 00 80 08 46 00 55 4E 4C 49 53 20 B2 20 24 |B1...F.UNLIS . $|
00005DC0: 46 46 41 45 00 92 08 50 00 4C 49 53 45 43 20 B2 |FFAE...P.LISEC .|
00005DD0: 20 24 46 46 39 33 00 A2 08 5A 00 4F 55 54 20 B2 | $FF93...Z.OUT .|
00005DE0: 20 24 46 46 41 38 00 B1 08 64 00 49 4E 20 B2 20 | $FFA8...d.IN . |
00005DF0: 24 46 46 41 35 00 C1 08 6E 00 54 4C 4B 20 B2 20 |$FFA5...n.TLK . |
00005E00: 24 46 46 42 34 00 D3 08 78 00 55 4E 54 4C 4B 20 |$FFB4...x.UNTLK |
00005E10: B2 20 24 46 46 41 42 00 E6 08 82 00 54 4C 4B 53 |. $FFAB.....TLKS|
00005E20: 45 43 20 B2 20 24 46 46 39 36 00 EC 08 97 00 3B |EC . $FF96.....;|
00005E30: 00 F2 08 C8 00 3B 00 04 09 C9 00 3B 36 34 20 41 |.....;.....;64 A|
00005E40: 44 44 52 45 53 53 45 53 00 0A 09 CA 00 3B 00 1B |DDRESSES.....;..|
00005E50: 09 D2 00 9C 52 41 4D 20 B2 20 24 44 38 30 30 00 |....RAM . $D800.|
00005E60: 2B 09 0E 01 2E 46 49 4C 45 20 42 41 4D 20 31 00 |+....FILE BAM 1.|
00005E70: 00 00 A0 A0 A0 00 00 00 00 00 00 00 00 00 03 00 |................|
00005E80: 00 00 82 0E 00 52 44 20 54 52 4B 20 31 37 A0 A0 |.....RD TRK 17..|
00005E90: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 02 00 |................|
00005EA0: 00 00 82 0E 01 52 44 20 54 52 4B 20 31 38 A0 A0 |.....RD TRK 18..|
00005EB0: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 03 00 |................|
00005EC0: 00 00 82 0E 03 52 44 20 54 52 4B 20 54 41 42 4C |.....RD TRK TABL|
00005ED0: 45 53 A0 A0 A0 00 00 00 00 00 00 00 00 00 08 00 |ES..............|
00005EE0: 00 00 02 0E 0C 42 41 4D 20 45 51 A0 A0 A0 A0 A0 |.....BAM EQ.....|
00005EF0: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 00 00 |................|
00005F00: 00 00 82 0E 14 42 41 4D 20 31 A0 A0 A0 A0 A0 A0 |.....BAM 1......|
00005F10: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 01 00 |................|
00005F20: 00 00 82 16 00 42 41 4D 20 32 A0 A0 A0 A0 A0 A0 |.....BAM 2......|
00005F30: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 03 00 |................|
00005F40: 01 08 0C 08 0A 00 3B 42 41 4D 20 31 00 2D 08 14 |......;BAM 1.-..|
00005F50: 00 4C 44 41 20 23 24 30 30 3B 52 45 53 45 54 20 |.LDA #$00;RESET |
00005F60: 54 52 41 43 4B 20 AF 20 53 45 43 A4 52 00 39 08 |TRACK . SEC.R.9.|
00005F70: 1E 00 53 54 41 20 54 52 4B 00 45 08 28 00 53 54 |..STA TRK.E.(.ST|
00005F80: 41 20 53 45 43 00 52 08 2D 00 53 54 41 20 43 54 |A SEC.R.-.STA CT|
00005F90: 52 31 00 6C 08 32 00 4C 44 41 20 23 24 39 33 3B |R1.l.2.LDA #$93;|
00005FA0: 43 4C 45 41 52 20 53 43 52 45 45 4E 00 76 08 3C |CLEAR SCREEN.v.<|
00005FB0: 00 4A 53 52 20 99 00 96 08 46 00 4C 44 59 20 23 |.JSR ....F.LDY #|
00005FC0: B3 41 3B 46 49 4C 4C 20 42 55 46 46 45 52 53 20 |.A;FILL BUFFERS |
00005FD0: 57 49 54 48 20 30 00 A3 08 50 00 4C 44 41 20 23 |WITH 0...P.LDA #|
00005FE0: 24 30 30 00 B3 08 5A 00 42 42 4D 20 53 54 41 20 |$00...Z.BBM STA |
00005FF0: 41 2C 59 00 BB 08 64 00 49 4E 59 00 C7 08 6E 00 |A,Y...d.INY...n.|
00006000: 42 4E 45 20 42 42 4D 00 D7 08 78 00 2E 46 49 4C |BNE BBM...x..FIL|
00006010: 45 20 42 41 4D 20 32 00 00 00 00 2E 46 49 4C 45 |E BAM 2.....FILE|
00006020: 20 42 41 4D 4D 20 31 00 00 00 00 00 00 00 00 00 | BAMM 1.........|
00006030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 08 |................|
00006040: 0C 08 0A 00 3B 42 41 4D 20 32 00 29 08 14 00 4A |....;BAM 2.)...J|
00006050: 53 52 20 49 4E 49 54 3B 49 4E 49 54 49 41 4C 49 |SR INIT;INITIALI|
00006060: 5A 45 20 44 49 53 4B 00 33 08 1E 00 4A 53 52 20 |ZE DISK.3...JSR |
00006070: 9B 00 54 08 28 00 4C 44 59 20 23 24 30 30 3B 53 |..T.(.LDY #$00;S|
00006080: 45 54 20 55 50 20 A4 20 87 20 44 49 52 45 43 A4 |ET UP . . DIREC.|
00006090: 52 59 00 81 08 32 00 42 20 4C 44 41 20 4D 57 2C |RY...2.B LDA MW,|
000060A0: 59 3B 50 55 54 20 23 24 31 32 20 41 54 20 24 30 |Y;PUT #$12 AT $0|
000060B0: 36 20 26 20 23 24 30 30 20 41 54 20 24 30 37 00 |6 & #$00 AT $07.|
000060C0: 8D 08 3C 00 4A 53 52 20 4F 55 54 00 95 08 46 00 |..<.JSR OUT...F.|
000060D0: 49 4E 59 00 A2 08 50 00 43 50 59 20 23 24 30 38 |INY...P.CPY #$08|
000060E0: 00 AC 08 5A 00 42 4E 45 20 42 00 BA 08 64 00 4A |...Z.BNE B...d.J|
000060F0: 53 52 20 55 4E 4C 49 53 00 C4 08 6E 00 4A 53 52 |SR UNLIS...n.JSR|
00006100: 20 9B 00 E3 08 78 00 4C 44 59 20 23 24 30 30 3B | ....x.LDY #$00;|
00006110: 50 55 54 20 23 24 38 30 20 87 20 41 54 20 24 30 |PUT #$80 . AT $0|
00006120: 30 00 F4 08 82 00 42 31 20 4C 44 41 20 4D 57 31 |0.....B1 LDA MW1|
00006130: 2C 59 00 00 09 8C 00 4A 53 52 20 4F 55 54 00 08 |,Y.....JSR OUT..|
00006140: 09 96 00 49 4E 59 00 15 09 A0 00 43 50 59 20 23 |...INY.....CPY #|
00006150: 24 30 37 00 20 09 AA 00 42 4E 45 20 42 31 00 2E |$07. ...BNE B1..|
00006160: 09 B4 00 4A 53 52 20 55 4E 4C 49 53 00 4B 09 BE |...JSR UNLIS.K..|
00006170: 00 4A 53 52 20 43 48 4B 45 52 52 3B 92 20 81 20 |.JSR CHKERR;. . |
00006180: 45 52 52 B0 20 43 4F 44 45 00 55 09 C8 00 4A 53 |ERR. CODE.U...JS|
00006190: 52 20 9B 00 62 09 D2 00 4C 44 59 20 23 24 30 30 |R ..b...LDY #$00|
000061A0: 00 83 09 DC 00 42 32 20 4C 44 41 20 4D 52 31 2C |.....B2 LDA MR1,|
000061B0: 59 3B 87 20 42 41 4D 20 4D 41 50 20 B5 4F 20 36 |Y;. BAM MAP .O 6|
000061C0: 34 00 8F 09 E6 00 4A 53 52 20 4F 55 54 00 97 09 |4.....JSR OUT...|
000061D0: F0 00 49 4E 59 00 A4 09 FA 00 43 50 59 20 23 24 |..INY.....CPY #$|
000061E0: 30 37 00 AF 09 04 01 42 4E 45 20 42 32 00 BD 09 |07.....BNE B2...|
000061F0: 0E 01 4A 53 52 20 55 4E 4C 49 53 00 CA 09 18 01 |..JSR UNLIS.....|
00006200: 4A 53 52 20 54 41 4C 4B 00 D7 09 22 01 4C 44 59 |JSR TALK...".LDY|
00006210: 20 23 24 30 30 00 E5 09 2C 01 42 33 20 4A 53 52 | #$00...,.B3 JSR|
00006220: 20 49 4E 00 F6 09 36 01 53 54 41 20 42 41 4D 42 | IN...6.STA BAMB|
00006230: 55 46 2C 59 00 FE 09 40 01 49 4E 59 00 0B 0A 4A |UF,Y...@.INY...J|
00006240: 01 43 50 59 20 23 24 38 43 00 16 0A 54 01 42 4E |.CPY #$8C...T.BN|
00006250: 45 20 42 33 00 24 0A 5E 01 4A 53 52 20 55 4E 54 |E B3.$.^.JSR UNT|
00006260: 4C 4B 00 34 0A 68 01 2E 46 49 4C 45 20 42 41 4D |LK.4.h..FILE BAM|
00006270: 20 33 00 00 00 20 23 24 30 30 3B 53 45 54 20 55 | 3... #$00;SET U|
00006280: 50 20 A4 20 87 20 44 49 52 45 43 A4 52 59 00 81 |P . . DIREC.RY..|
00006290: 08 32 00 42 20 4C 44 41 20 4D 57 2C 59 3B 50 55 |.2.B LDA MW,Y;PU|
000062A0: 54 20 23 24 31 32 20 41 54 20 24 30 36 20 26 20 |T #$12 AT $06 & |
000062B0: 23 24 30 30 20 41 54 20 24 30 37 00 8D 08 3C 00 |#$00 AT $07...<.|
000062C0: 4A 53 52 20 4F 55 54 00 95 08 46 00 49 4E 59 00 |JSR OUT...F.INY.|
000062D0: A2 08 50 00 43 50 59 20 23 24 30 38 00 AC 08 5A |..P.CPY #$08...Z|
000062E0: 00 42 4E 45 20 42 00 BA 08 64 00 4A 53 52 20 55 |.BNE B...d.JSR U|
000062F0: 4E 4C 49 53 00 C4 08 6E 00 4A 53 52 20 9B 00 E3 |NLIS...n.JSR ...|
00006300: 08 78 00 4C 44 59 20 23 24 30 30 3B 50 55 54 20 |.x.LDY #$00;PUT |
00006310: 23 24 38 30 20 87 20 41 54 20 24 30 30 00 F4 08 |#$80 . AT $00...|
00006320: 82 00 42 31 20 4C 44 41 20 4D 57 31 2C 59 00 00 |..B1 LDA MW1,Y..|
00006330: 09 8C 00 4A 53 52 20 4F 01 08 0C 08 0A 00 3B 42 |...JSR O......;B|
00006340: 41 4D 20 33 00 1F 08 14 00 54 52 4B 4C 50 20 4C |AM 3.....TRKLP L|
00006350: 44 41 20 23 24 30 30 00 44 08 1E 00 53 54 41 20 |DA #$00.D...STA |
00006360: 43 54 52 3B 43 4F 55 4E 54 45 52 20 4E 55 4D 42 |CTR;COUNTER NUMB|
00006370: 45 52 20 4F 46 20 54 52 41 43 4B 53 00 6D 08 28 |ER OF TRACKS.m.(|
00006380: 00 4C 44 41 20 23 24 30 34 3B 48 49 47 48 20 42 |.LDA #$04;HIGH B|
00006390: 59 54 45 20 4F 46 20 53 43 52 45 45 4E 20 41 44 |YTE OF SCREEN AD|
000063A0: 44 52 45 53 53 00 7B 08 32 00 53 54 41 20 4D 4C |DRESS.{.2.STA ML|
000063B0: 32 AA 32 00 88 08 33 00 4C 44 41 20 23 24 44 38 |2.2...3.LDA #$D8|
000063C0: 00 94 08 34 00 53 54 41 20 9C AA 32 00 B7 08 3C |...4.STA ..2...<|
000063D0: 00 49 4E 43 20 54 52 4B 3B 45 51 55 41 4C 53 20 |.INC TRK;EQUALS |
000063E0: 23 24 30 31 20 46 49 52 53 54 20 54 49 4D 45 00 |#$01 FIRST TIME.|
000063F0: C3 08 46 00 4C 44 41 20 54 52 4B 00 E1 08 50 00 |..F.LDA TRK...P.|
00006400: 43 4D 50 20 23 24 32 34 3B 47 52 45 41 54 45 52 |CMP #$24;GREATER|
00006410: 20 54 48 41 4E 20 23 33 35 00 EC 08 5A 00 42 43 | THAN #35...Z.BC|
00006420: 43 20 4D 4C 00 FF 08 64 00 4A 4D 50 20 80 3B 46 |C ML...d.JMP .;F|
00006430: 49 4E 49 53 48 45 44 00 2B 09 6E 00 4D 4C 20 53 |INISHED.+.n.ML S|
00006440: 54 41 20 4D 4C 32 AA 31 3B 4C 4F 57 20 42 59 54 |TA ML2.1;LOW BYT|
00006450: 45 20 4F 46 20 53 43 52 45 45 4E 20 B2 20 54 52 |E OF SCREEN . TR|
00006460: 41 43 4B 00 37 09 6F 00 53 54 41 20 9C AA 31 00 |ACK.7.o.STA ..1.|
00006470: 64 09 78 00 4A 53 52 20 53 45 43 A4 52 3B 43 41 |d.x.JSR SEC.R;CA|
00006480: 4C 43 55 4C 41 54 45 20 23 20 4F 46 20 53 45 43 |LCULATE # OF SEC|
00006490: 53 20 91 20 54 48 49 53 20 54 52 4B 00 91 09 7D |S . THIS TRK...}|
000064A0: 00 49 4E 43 20 43 54 52 31 3B 53 4B 49 50 20 31 |.INC CTR1;SKIP 1|
000064B0: 53 54 20 42 59 54 45 20 42 41 4D 20 4D 41 50 20 |ST BYTE BAM MAP |
000064C0: 23 20 4F 46 20 53 45 43 53 00 A4 09 8C 00 53 45 |# OF SECS.....SE|
000064D0: 43 4C 50 20 4C 44 59 20 43 54 52 31 00 C7 09 96 |CLP LDY CTR1....|
000064E0: 00 4C 44 41 20 42 41 4D 42 55 46 2C 59 3B 42 41 |.LDA BAMBUF,Y;BA|
000064F0: 4D 20 4D 41 50 20 46 52 4F 4D 20 31 35 34 31 00 |M MAP FROM 1541.|
00006500: E8 09 BE 00 4A 53 52 20 52 45 56 3B 52 45 56 45 |....JSR REV;REVE|
00006510: 52 53 45 20 42 49 54 53 20 49 4E 20 42 59 54 45 |RSE BITS IN BYTE|
00006520: 00 0A 0A C8 00 4A 53 52 20 42 49 3B 43 91 56 45 |.....JSR BI;C.VE|
00006530: 52 54 20 A4 20 38 20 42 49 4E 41 52 59 20 42 49 |RT . 8 BINARY BI|
00006540: 54 53 00 17 0A D2 00 4C 44 59 20 23 24 30 30 00 |TS.....LDY #$00.|
00006550: 2A 0A DC 00 4D 4C 33 20 4C 44 41 20 42 49 54 53 |*...ML3 LDA BITS|
00006560: 2C 59 00 50 0A E6 00 4D 4C 32 20 53 54 41 20 24 |,Y.P...ML2 STA $|
00006570: 30 34 30 30 3B 50 55 54 20 42 49 54 53 20 49 4E |0400;PUT BITS IN|
00006580: 20 42 41 4D 20 4D 41 50 00 5D 0A EB 00 4C 44 41 | BAM MAP.]...LDA|
00006590: 20 23 24 30 35 00 6D 0A EC 00 9C 20 53 54 41 20 | #$05.m.... STA |
000065A0: 24 44 38 30 30 00 87 0A F0 00 44 45 43 20 53 45 |$D800.....DEC SE|
000065B0: 43 3B 53 45 43 A4 52 20 43 4F 55 4E 54 45 52 00 |C;SEC.R COUNTER.|
000065C0: 93 0A FA 00 4C 44 41 20 53 45 43 00 B5 0A 04 01 |....LDA SEC.....|
000065D0: 42 4E 45 20 4D 4C 34 3B 8B 20 30 20 41 4C 4C 20 |BNE ML4;. 0 ALL |
000065E0: 53 45 43 A4 52 53 20 50 4C 41 43 45 44 00 D6 0A |SEC.RS PLACED...|
000065F0: 05 01 49 4E 43 20 43 54 52 31 3B 43 4F 55 4E 54 |..INC CTR1;COUNT|
00006600: 45 52 20 23 20 4F 46 20 54 52 41 43 4B 53 00 E4 |ER # OF TRACKS..|
00006610: 0A 06 01 4A 4D 50 20 54 52 4B 4C 50 00 16 0B 0E |...JMP TRKLP....|
00006620: 01 4D 4C 34 20 43 4C 43 3B 20 41 44 44 20 A4 20 |.ML4 CLC; ADD . |
00006630: 53 43 52 45 45 4E 20 41 44 44 52 45 53 53 20 81 |SCREEN ADDRESS .|
00006640: 20 50 52 4F 50 45 52 20 43 4F 4C 55 4D 4E 00 3C | PROPER COLUMN.<|
00006650: 0B 18 01 4C 44 41 20 4D 4C 32 AA 31 3B 4C 4F 57 |...LDA ML2.1;LOW|
00006660: 20 42 59 54 45 20 53 43 52 45 45 4E 20 41 44 44 | BYTE SCREEN ADD|
00006670: 52 45 53 53 00 49 0B 22 01 41 44 43 20 23 24 32 |RESS.I.".ADC #$2|
00006680: 38 00 57 0B 2C 01 53 54 41 20 4D 4C 32 AA 31 00 |8.W.,.STA ML2.1.|
00006690: 65 0B 36 01 4C 44 41 20 4D 4C 32 AA 32 00 72 0B |e.6.LDA ML2.2.r.|
000066A0: 40 01 41 44 43 20 23 24 30 30 00 99 0B 4A 01 53 |@.ADC #$00...J.S|
000066B0: 54 41 20 4D 4C 32 AA 32 3B 48 49 47 48 20 42 59 |TA ML2.2;HIGH BY|
000066C0: 54 45 20 53 43 52 45 45 4E 20 41 44 44 52 45 53 |TE SCREEN ADDRES|
000066D0: 53 00 A1 0B 4B 01 43 4C 43 00 AD 0B 4C 01 4C 44 |S...K.CLC...L.LD|
000066E0: 41 20 9C AA 31 00 BA 0B 4D 01 41 44 43 20 23 24 |A ..1...M.ADC #$|
000066F0: 32 38 00 C6 0B 4E 01 53 54 41 20 9C AA 31 00 D2 |28...N.STA ..1..|
00006700: 0B 4F 01 4C 44 41 20 9C AA 32 00 DF 0B 50 01 41 |.O.LDA ..2...P.A|
00006710: 44 43 20 23 24 30 30 00 EB 0B 51 01 53 54 41 20 |DC #$00...Q.STA |
00006720: 9C AA 32 00 F3 0B 66 01 49 4E 59 00 19 0C 67 01 |..2...f.INY...g.|
00006730: 43 50 59 20 23 24 30 38 3B 4E 55 4D 42 45 52 20 |CPY #$08;NUMBER |
00006740: 4F 46 20 42 49 54 53 20 44 49 53 50 4C 41 59 45 |OF BITS DISPLAYE|
00006750: 44 00 25 0C 68 01 42 4E 45 20 4D 4C 33 00 55 0C |D.%.h.BNE ML3.U.|
00006760: 72 01 49 4E 43 20 43 54 52 3B 20 45 41 43 48 20 |r.INC CTR; EACH |
00006770: 54 52 41 43 4B 20 55 53 45 53 20 33 20 42 59 54 |TRACK USES 3 BYT|
00006780: 45 53 20 49 4E 20 42 41 4D 20 4D 41 50 00 61 0C |ES IN BAM MAP.a.|
00006790: 7C 01 4C 44 41 20 43 54 52 00 6E 0C 86 01 43 4D ||.LDA CTR.n...CM|
000067A0: 50 20 23 24 30 33 00 7C 0C 90 01 42 45 51 20 54 |P #$03.|...BEQ T|
000067B0: 52 4B 4C 50 00 A2 0C 9A 01 49 4E 43 20 43 54 52 |RKLP.....INC CTR|
000067C0: 31 3B 53 4B 49 50 20 53 45 43 A4 52 53 20 42 59 |1;SKIP SEC.RS BY|
000067D0: 54 45 20 82 20 54 52 41 43 4B 00 B0 0C A4 01 4A |TE . TRACK.....J|
000067E0: 4D 50 20 53 45 43 4C 50 00 D5 0C FE 01 80 20 4A |MP SECLP...... J|
000067F0: 53 52 20 A1 3B 92 20 81 20 41 4E 59 20 4B 45 59 |SR .;. . ANY KEY|
00006800: 20 A4 20 42 45 20 50 52 45 53 53 45 44 00 DF 0C | . BE PRESSED...|
00006810: 08 02 42 45 51 20 80 00 EC 0C 12 02 4C 44 41 20 |..BEQ ......LDA |
00006820: 23 24 39 33 00 F6 0C 1C 02 4A 53 52 20 99 00 06 |#$93.....JSR ...|
00006830: 0D 26 02 4A 4D 50 20 28 24 41 30 30 32 29 00 16 |.&.JMP ($A002)..|
00006840: 0D 30 02 2E 46 49 4C 45 20 42 41 4D 20 34 00 00 |.0..FILE BAM 4..|
00006850: 00 41 20 4D 4C 32 AA 31 3B 4C 4F 57 20 42 59 54 |.A ML2.1;LOW BYT|
00006860: 45 20 53 43 52 45 45 4E 20 41 44 44 52 45 53 53 |E SCREEN ADDRESS|
00006870: 00 49 0B 22 01 41 44 43 20 23 24 32 38 00 57 0B |.I.".ADC #$28.W.|
00006880: 2C 01 53 54 41 20 4D 4C 32 AA 31 00 65 0B 36 01 |,.STA ML2.1.e.6.|
00006890: 4C 44 41 20 4D 4C 32 AA 32 00 72 0B 40 01 41 44 |LDA ML2.2.r.@.AD|
000068A0: 43 20 23 24 30 30 00 99 0B 4A 01 53 54 41 20 4D |C #$00...J.STA M|
000068B0: 4C 32 AA 32 3B 48 49 47 48 20 42 59 54 45 20 53 |L2.2;HIGH BYTE S|
000068C0: 43 52 45 45 4E 20 41 44 44 52 45 53 53 00 A1 0B |CREEN ADDRESS...|
000068D0: 4B 01 43 4C 43 00 AD 0B 4C 01 4C 44 41 20 9C AA |K.CLC...L.LDA ..|
000068E0: 31 00 BA 0B 4D 01 41 44 43 20 23 24 32 38 00 C6 |1...M.ADC #$28..|
000068F0: 0B 4E 01 53 54 41 20 9C AA 31 00 D2 0B 4F 01 4C |.N.STA ..1...O.L|
00006900: 44 41 20 9C AA 32 00 DF 0B 50 01 41 44 43 20 23 |DA ..2...P.ADC #|
00006910: 24 30 30 00 EB 0B 51 01 53 54 41 20 9C AA 32 00 |$00...Q.STA ..2.|
00006920: F3 0B 66 01 49 4E 59 00 19 0C 67 01 01 08 0C 08 |..f.INY...g.....|
00006930: 0A 00 3B 42 41 4D 20 34 00 33 08 14 00 53 56 52 |..;BAM 4.3...SVR|
00006940: 45 47 20 53 54 41 20 41 3B 54 45 4D 50 B0 41 52 |EG STA A;TEMP.AR|
00006950: 59 20 94 20 4F 46 20 41 2C 58 2C 20 AF 20 59 00 |Y . OF A,X, . Y.|
00006960: 3D 08 1E 00 53 54 58 20 58 00 47 08 28 00 53 54 |=...STX X.G.(.ST|
00006970: 59 20 59 00 4F 08 32 00 52 54 53 00 6B 08 3C 00 |Y Y.O.2.RTS.k.<.|
00006980: 52 53 54 52 45 47 20 4C 44 41 20 41 3B 8C 20 41 |RSTREG LDA A;. A|
00006990: 2C 58 2C 20 AF 20 59 00 75 08 46 00 4C 44 58 20 |,X, . Y.u.F.LDX |
000069A0: 58 00 7F 08 50 00 4C 44 59 20 59 00 87 08 5A 00 |X...P.LDY Y...Z.|
000069B0: 52 54 53 00 97 08 64 00 2E 46 49 4C 45 20 42 41 |RTS...d..FILE BA|
000069C0: 4D 20 35 00 00 00 00 00 00 00 00 00 00 00 00 00 |M 5.............|
000069D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000069E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000069F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00006A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00006A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00006A20: 00 00 00 00 00 00 00 00 00 00 01 08 0C 08 32 00 |..............2.|
00006A30: 3B 42 41 4D 20 35 00 2D 08 5A 00 3B 43 91 56 45 |;BAM 5.-.Z.;C.VE|
00006A40: 52 54 20 42 59 54 45 20 A4 20 38 20 42 49 54 53 |RT BYTE . 8 BITS|
00006A50: 20 42 49 4E 41 52 59 00 3E 08 64 00 42 49 20 4A | BINARY.>.d.BI J|
00006A60: 53 52 20 53 56 52 45 47 00 4E 08 6E 00 50 48 50 |SR SVREG.N.n.PHP|
00006A70: 3B 94 20 46 4C 41 47 53 00 5B 08 BE 00 4C 44 59 |;. FLAGS.[...LDY|
00006A80: 20 23 24 30 37 00 6A 08 C8 00 4C 50 31 20 4C 44 | #$07.j...LP1 LD|
00006A90: 41 20 B0 47 00 77 08 D2 00 AF 20 4D 41 53 4B 2C |A .G.w.... MASK,|
00006AA0: 59 00 92 08 D3 00 3B 45 58 41 4D 50 4C 45 20 B0 |Y.....;EXAMPLE .|
00006AB0: 47 20 B2 20 31 30 31 30 31 30 31 30 00 AE 08 D4 |G . 10101010....|
00006AC0: 00 3B 4D 41 53 4B 20 B2 20 20 20 20 20 20 20 20 |.;MASK . |
00006AD0: 31 31 31 31 31 31 31 30 00 CA 08 D5 00 3B 52 45 |11111110.....;RE|
00006AE0: 53 55 4C 54 20 B2 20 20 20 20 20 20 31 30 31 30 |SULT . 1010|
00006AF0: 31 30 31 30 00 08 09 D6 00 3B 57 48 45 4E 20 43 |1010.....;WHEN C|
00006B00: 4F 4D 50 41 52 45 44 20 8B 20 52 45 53 55 4C 54 |OMPARED . RESULT|
00006B10: 20 49 53 20 45 51 55 41 4C 20 A7 20 50 55 54 20 | IS EQUAL . PUT |
00006B20: 41 20 5A 45 52 4F 20 41 54 20 42 49 54 20 5A 45 |A ZERO AT BIT ZE|
00006B30: 52 4F 00 47 09 D7 00 3B 8B 20 57 48 45 4E 20 43 |RO.G...;. WHEN C|
00006B40: 4F 4D 50 41 52 45 44 20 54 48 45 20 52 45 55 4C |OMPARED THE REUL|
00006B50: 54 20 49 53 20 A8 20 45 51 55 41 4C 20 50 55 54 |T IS . EQUAL PUT|
00006B60: 20 41 20 91 45 20 41 54 20 42 49 54 20 5A 45 52 | A .E AT BIT ZER|
00006B70: 4F 00 52 09 DC 00 43 4D 50 20 B0 47 00 5F 09 E6 |O.R...CMP .G._..|
00006B80: 00 42 45 51 20 5A 45 52 4F 00 76 09 E7 00 3B 50 |.BEQ ZERO.v...;P|
00006B90: 55 54 20 41 20 91 45 20 41 54 20 42 49 54 2C 59 |UT A .E AT BIT,Y|
00006BA0: 00 83 09 F0 00 4C 44 41 20 23 24 42 31 00 92 09 |.....LDA #$B1...|
00006BB0: FA 00 53 54 41 20 42 49 54 53 2C 59 00 9A 09 04 |..STA BITS,Y....|
00006BC0: 01 44 45 59 00 A6 09 18 01 42 50 4C 20 4C 50 31 |.DEY.....BPL LP1|
00006BD0: 00 B2 09 22 01 4A 4D 50 20 42 49 31 00 CB 09 23 |...".JMP BI1...#|
00006BE0: 01 3B 50 55 54 20 41 20 5A 45 52 4F 20 41 54 20 |.;PUT A ZERO AT |
00006BF0: 42 49 54 2C 59 00 DD 09 A4 01 5A 45 52 4F 20 4C |BIT,Y.....ZERO L|
00006C00: 44 41 20 23 24 42 30 00 EC 09 AE 01 53 54 41 20 |DA #$B0.....STA |
00006C10: 42 49 54 53 2C 59 00 F4 09 B8 01 44 45 59 00 00 |BITS,Y.....DEY..|
00006C20: 0A CC 01 42 50 4C 20 4C 50 31 00 13 0A 4E 02 42 |...BPL LP1...N.B|
00006C30: 49 31 20 4A 53 52 20 52 53 54 52 45 47 00 1B 0A |I1 JSR RSTREG...|
00006C40: 53 02 50 4C 50 00 23 0A 58 02 52 54 53 00 52 0A |S.PLP.#.X.RTS.R.|
00006C50: 62 02 4D 41 53 4B 20 2E 42 59 54 45 20 31 32 37 |b.MASK .BYTE 127|
00006C60: 20 31 39 31 20 32 32 33 20 32 33 39 20 32 34 37 | 191 223 239 247|
00006C70: 20 32 35 31 20 32 35 33 20 32 35 34 00 71 0A 6C | 251 253 254.q.l|
00006C80: 02 42 49 54 53 20 2E 42 59 54 45 20 30 20 30 20 |.BITS .BYTE 0 0 |
00006C90: 30 20 30 20 30 20 30 20 30 20 30 00 80 0A 76 02 |0 0 0 0 0 0...v.|
00006CA0: B0 47 20 2E 42 59 54 45 20 30 00 90 0A 9E 02 2E |.G .BYTE 0......|
00006CB0: 46 49 4C 45 20 42 41 4D 20 36 00 00 00 3B 4D 41 |FILE BAM 6...;MA|
00006CC0: 53 4B 20 B2 20 20 20 20 20 20 20 20 31 31 31 31 |SK . 1111|
00006CD0: 31 31 31 30 00 CA 08 D5 00 3B 52 45 53 55 4C 54 |1110.....;RESULT|
00006CE0: 20 B2 20 20 20 20 20 20 31 30 31 30 31 30 31 30 | . 10101010|
00006CF0: 00 08 09 D6 00 3B 57 48 45 4E 20 43 4F 4D 50 41 |.....;WHEN COMPA|
00006D00: 52 45 44 20 8B 20 52 45 53 55 4C 54 20 49 53 20 |RED . RESULT IS |
00006D10: 45 51 55 41 4C 20 A7 20 50 55 54 20 41 20 5A 45 |EQUAL . PUT A ZE|
00006D20: 52 4F 20 41 01 08 0C 08 0A 00 3B 42 41 4D 20 36 |RO A......;BAM 6|
00006D30: 00 3A 08 14 00 53 45 43 A4 52 20 4C 44 41 20 54 |.:...SEC.R LDA T|
00006D40: 52 4B 3B 20 43 41 4C 43 55 4C 41 54 45 20 4E 55 |RK; CALCULATE NU|
00006D50: 4D 42 45 52 20 4F 46 20 53 45 43 A4 52 53 00 48 |MBER OF SEC.RS.H|
00006D60: 08 1E 00 4C 44 58 20 42 4F 55 4E 44 00 5A 08 28 |...LDX BOUND.Z.(|
00006D70: 00 53 20 43 4D 50 20 42 4F 55 4E 44 2C 58 00 62 |.S CMP BOUND,X.b|
00006D80: 08 32 00 44 45 58 00 6C 08 3C 00 42 43 53 20 53 |.2.DEX.l.<.BCS S|
00006D90: 00 7B 08 46 00 4C 44 41 20 A4 54 41 4C 2C 58 00 |.{.F.LDA .TAL,X.|
00006DA0: 87 08 4B 00 53 54 41 20 53 45 43 00 8F 08 5F 00 |..K.STA SEC..._.|
00006DB0: 52 54 53 00 9F 08 82 00 2E 46 49 4C 45 20 42 41 |RTS......FILE BA|
00006DC0: 4D 20 37 00 00 00 30 00 BF 08 D5 00 3B 52 45 53 |M 7...0.....;RES|
00006DD0: 55 4C 54 20 B2 20 20 20 20 20 20 31 30 31 30 31 |ULT . 10101|
00006DE0: 30 31 30 00 FD 08 D6 00 3B 57 48 45 4E 20 43 4F |010.....;WHEN CO|
00006DF0: 4D 50 41 52 45 44 20 8B 20 52 45 53 55 4C 54 20 |MPARED . RESULT |
00006E00: 49 53 20 45 51 55 41 4C 20 A7 20 50 55 54 20 41 |IS EQUAL . PUT A|
00006E10: 20 5A 45 52 4F 20 41 54 20 42 49 54 20 5A 45 52 | ZERO AT BIT ZER|
00006E20: 4F 00 01 08 0C 08 0A 00 3B 42 41 4D 20 37 00 30 |O.......;BAM 7.0|
00006E30: 08 14 00 52 45 56 20 53 54 41 20 41 3B 94 20 42 |...REV STA A;. B|
00006E40: 59 54 45 20 A4 20 52 45 56 45 52 53 45 20 42 49 |YTE . REVERSE BI|
00006E50: 54 53 00 4D 08 1E 00 4C 44 41 20 23 24 30 30 3B |TS.M...LDA #$00;|
00006E60: 43 4C 45 41 52 20 42 49 54 20 42 59 54 45 53 00 |CLEAR BIT BYTES.|
00006E70: 5C 08 28 00 53 54 41 20 42 49 54 42 55 46 00 6D |\.(.STA BITBUF.m|
00006E80: 08 32 00 53 54 41 20 42 49 54 42 55 46 AA 31 00 |.2.STA BITBUF.1.|
00006E90: 77 08 3C 00 4C 44 41 20 41 00 86 08 46 00 53 54 |w.<.LDA A...F.ST|
00006EA0: 41 20 42 49 54 42 55 46 00 93 08 50 00 4C 44 59 |A BITBUF...P.LDY|
00006EB0: 20 23 24 30 30 00 C0 08 5A 00 52 45 56 31 20 4C | #$00...Z.REV1 L|
00006EC0: 53 52 20 42 49 54 42 55 46 3B 50 55 53 48 20 42 |SR BITBUF;PUSH B|
00006ED0: 49 54 20 30 20 B5 4F 20 43 41 52 52 59 20 46 4C |IT 0 .O CARRY FL|
00006EE0: 41 47 00 F0 08 64 00 52 4F 4C 20 42 49 54 42 55 |AG...d.ROL BITBU|
00006EF0: 46 AA 31 3B 50 55 53 48 20 43 41 52 52 59 20 42 |F.1;PUSH CARRY B|
00006F00: 49 54 20 B5 4F 20 52 45 56 45 52 53 45 20 42 59 |IT .O REVERSE BY|
00006F10: 54 45 00 F6 08 68 00 3B 00 23 09 69 00 3B B0 47 |TE...h.;.#.i.;.G|
00006F20: 20 42 49 54 53 20 50 55 53 48 45 44 20 52 49 47 | BITS PUSHED RIG|
00006F30: 48 54 20 A2 20 42 49 54 53 20 50 55 53 48 45 44 |HT . BITS PUSHED|
00006F40: 20 4C 45 46 54 00 44 09 6A 00 3B 57 48 45 4E 20 | LEFT.D.j.;WHEN |
00006F50: 46 49 4E 49 53 48 45 44 20 42 59 54 45 20 52 45 |FINISHED BYTE RE|
00006F60: 56 45 52 53 45 44 00 4A 09 6B 00 3B 00 52 09 6E |VERSED.J.k.;.R.n|
00006F70: 00 49 4E 59 00 5F 09 78 00 43 50 59 20 23 24 30 |.INY._.x.CPY #$0|
00006F80: 38 00 6C 09 82 00 42 4E 45 20 52 45 56 31 00 8A |8.l...BNE REV1..|
00006F90: 09 87 00 4C 44 41 20 42 49 54 42 55 46 AA 31 3B |...LDA BITBUF.1;|
00006FA0: 52 45 56 45 52 53 45 20 42 59 54 45 00 B0 09 8C |REVERSE BYTE....|
00006FB0: 00 53 54 41 20 B0 47 3B 50 55 54 20 48 45 52 45 |.STA .G;PUT HERE|
00006FC0: 20 81 20 42 49 4E 41 52 59 20 43 91 56 45 52 53 | . BINARY C.VERS|
00006FD0: 49 91 00 B8 09 96 00 52 54 53 00 C8 09 A0 00 2E |I......RTS......|
00006FE0: 46 49 4C 45 20 42 41 4D 20 38 00 00 00 A0 A0 A0 |FILE BAM 8......|
00006FF0: A0 A0 A0 00 00 00 00 00 00 00 00 00 02 00 00 00 |................|
00007000: 82 0D 01 55 4E 4F 50 20 45 51 A0 A0 A0 A0 A0 A0 |...UNOP EQ......|
00007010: A0 A0 A0 00 00 00 00 00 00 00 00 00 02 00 01 08 |................|
00007020: 0C 08 0A 00 3B 42 41 4D 20 38 00 4C 08 14 00 3B |....;BAM 8.L...;|
00007030: 54 48 45 20 9B 45 4E 20 52 4F 55 54 49 4E 45 20 |THE .EN ROUTINE |
00007040: 41 4C 45 52 54 53 20 54 48 45 20 44 49 53 4B 20 |ALERTS THE DISK |
00007050: 54 48 41 54 20 41 20 43 4F 4D 4D AF 20 49 53 20 |THAT A COMM. IS |
00007060: 42 45 49 4E 47 20 53 45 4E 54 00 8F 08 1E 00 3B |BEING SENT.....;|
00007070: 4F 56 45 52 20 54 48 45 20 53 45 52 49 41 4C 20 |OVER THE SERIAL |
00007080: 42 55 53 2E 20 54 48 49 53 20 43 4F 4D 4D AF 20 |BUS. THIS COMM. |
00007090: 49 53 20 50 4C 41 43 45 44 20 49 4E 20 54 48 45 |IS PLACED IN THE|
000070A0: 20 31 35 34 31 27 53 20 43 4F 4D 4D AF 00 BF 08 | 1541'S COMM....|
000070B0: 28 00 3B 42 55 46 46 45 52 20 41 54 20 24 30 32 |(.;BUFFER AT $02|
000070C0: 30 30 20 49 54 20 49 53 20 A7 20 50 41 52 53 45 |00 IT IS . PARSE|
000070D0: 44 20 AF 20 45 58 45 43 55 54 45 44 2E 00 C5 08 |D . EXECUTED....|
000070E0: 32 00 3B 00 10 09 3C 00 3B 54 48 45 20 54 41 4C |2.;...<.;THE TAL|
000070F0: 4B 20 52 4F 55 54 49 4E 45 20 53 80 53 20 31 20 |K ROUTINE S.S 1 |
00007100: 42 59 54 45 20 41 54 20 41 20 54 49 4D 45 20 46 |BYTE AT A TIME F|
00007110: 52 4F 4D 20 54 48 45 20 31 35 34 31 20 A4 20 54 |ROM THE 1541 . T|
00007120: 48 45 20 36 34 20 4F 56 45 52 20 54 48 45 00 45 |HE 64 OVER THE.E|
00007130: 09 46 00 3B 53 45 52 49 41 4C 20 42 55 53 2E 20 |.F.;SERIAL BUS. |
00007140: 54 48 45 20 42 59 54 45 20 49 53 20 48 45 4C 44 |THE BYTE IS HELD|
00007150: 20 49 4E 20 54 48 45 20 41 20 52 45 47 49 53 54 | IN THE A REGIST|
00007160: 45 52 2E 00 4B 09 50 00 3B 00 8B 09 5A 00 3B 42 |ER..K.P.;...Z.;B|
00007170: 4F 54 48 20 52 4F 55 54 49 4E 45 53 20 52 45 51 |OTH ROUTINES REQ|
00007180: 55 49 52 45 20 54 48 41 54 20 41 20 53 45 43 91 |UIRE THAT A SEC.|
00007190: 44 41 52 59 20 41 44 44 52 45 53 53 20 42 45 20 |DARY ADDRESS BE |
000071A0: 53 50 45 43 8B 49 45 44 2E 00 91 09 64 00 3B 00 |SPEC.IED....d.;.|
000071B0: A0 09 8C 00 49 4E 49 54 20 4A 53 52 20 9B 00 B2 |....INIT JSR ...|
000071C0: 09 96 00 4C 44 41 20 23 24 34 39 3B 20 22 49 22 |...LDA #$49; "I"|
000071D0: 00 D4 09 A0 00 4A 53 52 20 4F 55 54 3B 20 53 80 |.....JSR OUT; S.|
000071E0: 20 31 20 42 59 54 45 20 A4 20 54 48 45 20 31 35 | 1 BYTE . THE 15|
000071F0: 34 31 00 E2 09 AA 00 4A 53 52 20 55 4E 4C 49 53 |41.....JSR UNLIS|
00007200: 00 EA 09 B4 00 52 54 53 00 FE 09 E2 04 9B 20 4C |.....RTS...... L|
00007210: 44 41 20 23 24 30 38 3B 20 9B 45 4E 00 0A 0A EC |DA #$08; .EN....|
00007220: 04 4A 53 52 20 4C 49 53 00 17 0A F6 04 4C 44 41 |.JSR LIS.....LDA|
00007230: 20 23 24 46 46 00 25 0A 00 05 4A 53 52 20 4C 49 | #$FF.%...JSR LI|
00007240: 53 45 43 00 2D 0A 0A 05 52 54 53 00 3F 0A 14 05 |SEC.-...RTS.?...|
00007250: 54 41 4C 4B 20 4C 44 41 20 23 24 30 38 00 63 0A |TALK LDA #$08.c.|
00007260: 1E 05 4A 53 52 20 54 4C 4B 3B 20 A1 20 31 20 42 |..JSR TLK; . 1 B|
00007270: 59 54 45 20 46 52 4F 4D 20 54 48 45 20 31 35 34 |YTE FROM THE 154|
00007280: 31 00 70 0A 28 05 4C 44 41 20 23 24 46 46 00 7F |1.p.(.LDA #$FF..|
00007290: 0A 32 05 4A 53 52 20 54 4C 4B 53 45 43 00 87 0A |.2.JSR TLKSEC...|
000072A0: 3C 05 52 54 53 00 BF 0A 90 06 43 48 4B 45 52 52 |<.RTS.....CHKERR|
000072B0: 20 4A 53 52 20 9B 3B 92 20 81 20 43 4F 4D 4D AF | JSR .;. . COMM.|
000072C0: 20 A4 20 42 45 20 52 45 50 4C 41 43 45 44 20 57 | . BE REPLACED W|
000072D0: 49 54 48 20 45 52 52 B0 20 43 4F 44 45 00 CC 0A |ITH ERR. CODE...|
000072E0: 9A 06 4C 44 59 20 23 24 30 30 00 DE 0A A4 06 43 |..LDY #$00.....C|
000072F0: 48 4B 31 20 4C 44 41 20 4D 52 2C 59 00 EA 0A AE |HK1 LDA MR,Y....|
00007300: 06 4A 53 52 20 4F 55 54 00 F2 0A B8 06 49 4E 59 |.JSR OUT.....INY|
00007310: 00 FF 0A C2 06 43 50 59 20 23 24 30 36 00 0C 0B |.....CPY #$06...|
00007320: CC 06 42 4E 45 20 43 48 4B 31 00 1A 0B D6 06 4A |..BNE CHK1.....J|
00007330: 53 52 20 55 4E 4C 49 53 00 27 0B E0 06 4A 53 52 |SR UNLIS.'...JSR|
00007340: 20 54 41 4C 4B 00 32 0B EA 06 4A 53 52 20 49 4E | TALK.2...JSR IN|
00007350: 00 3E 0B F4 06 53 54 41 20 45 52 52 00 4C 0B FE |.>...STA ERR.L..|
00007360: 06 4A 53 52 20 55 4E 54 4C 4B 00 58 0B 08 07 4C |.JSR UNTLK.X...L|
00007370: 44 41 20 45 52 52 00 88 0B 12 07 42 4D 49 20 43 |DA ERR.....BMI C|
00007380: 48 4B 45 52 52 3B 20 53 45 56 45 4E 54 48 20 42 |HKERR; SEVENTH B|
00007390: 49 54 20 53 45 54 20 22 4E 4F 20 45 52 52 4F 52 |IT SET "NO ERROR|
000073A0: 20 43 4F 44 45 22 00 90 0B 1C 07 52 54 53 00 A5 | CODE".....RTS..|
000073B0: 0B 6C 07 2E 46 49 4C 45 20 42 41 4D 20 54 41 42 |.l..FILE BAM TAB|
000073C0: 4C 45 53 00 00 00 30 07 54 52 4B 20 45 52 52 B0 |LES...0.TRK ERR.|
000073D0: 00 00 00 31 20 54 52 4B 20 45 52 52 B0 00 00 00 |...1 TRK ERR....|
000073E0: 20 45 52 52 B0 01 00 00 FF FF 00 00 FF FF 00 00 | ERR............|
000073F0: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007400: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007410: F7 FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007420: FF FF 00 00 F3 FF 00 00 FF F3 00 00 FF FF 08 00 |................|
00007430: FF FF 5E 02 F7 FF 00 00 FF FF 00 00 FF FF 00 00 |..^.............|
00007440: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007450: FF FF 00 00 FF FF 00 00 FF FF 00 00 F3 FF 00 00 |................|
00007460: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007470: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
00007480: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 05 4A |...............J|
00007490: 53 52 20 54 4C 4B 53 45 43 00 87 0A 3C 05 52 54 |SR TLKSEC...<.RT|
000074A0: 53 00 BF 0A 90 06 43 48 4B 45 52 52 20 4A 53 52 |S.....CHKERR JSR|
000074B0: 20 9B 3B 92 20 81 20 43 4F 4D 4D AF 20 A4 20 42 | .;. . COMM. . B|
000074C0: 45 20 52 45 50 4C 41 43 45 44 20 57 49 54 48 20 |E REPLACED WITH |
000074D0: 45 52 52 B0 20 43 4F 44 45 00 CC 0A 9A 06 4C 44 |ERR. CODE.....LD|
000074E0: 59 20 23 24 30 30 00 DE 0A A4 06 43 48 4B 31 20 |Y #$00.....CHK1 |
000074F0: 4C 44 41 20 4D 52 2C 59 00 EA 0A AE 06 4A 53 52 |LDA MR,Y.....JSR|
00007500: 20 4F 55 54 00 F2 0A B8 06 49 4E 59 00 FF 0A C2 | OUT.....INY....|
00007510: 06 43 50 59 01 08 11 08 0A 00 3B 42 41 4D 20 54 |.CPY......;BAM T|
00007520: 41 42 4C 45 53 00 38 08 14 00 4D 57 20 2E 42 59 |ABLES.8...MW .BY|
00007530: 54 45 20 22 4D 2D 57 3A 2E 42 59 54 45 20 30 36 |TE "M-W:.BYTE 06|
00007540: 20 30 30 20 30 32 20 31 38 20 30 30 00 5E 08 1E | 00 02 18 00.^..|
00007550: 00 4D 57 31 20 2E 42 59 54 45 20 22 4D 2D 57 3A |.MW1 .BYTE "M-W:|
00007560: 2E 42 59 54 45 20 30 30 20 30 30 20 30 31 20 31 |.BYTE 00 00 01 1|
00007570: 32 38 00 7F 08 28 00 4D 52 20 2E 42 59 54 45 20 |28...(.MR .BYTE |
00007580: 22 4D 2D 52 3A 2E 42 59 54 45 20 30 30 20 30 30 |"M-R:.BYTE 00 00|
00007590: 20 30 31 00 A2 08 32 00 4D 52 31 20 2E 42 59 54 | 01...2.MR1 .BYT|
000075A0: 45 20 22 4D 2D 52 3A 2E 42 59 54 45 20 30 34 20 |E "M-R:.BYTE 04 |
000075B0: 30 33 20 31 34 30 00 C1 08 3C 00 42 4F 55 4E 44 |03 140...<.BOUND|
000075C0: 20 2E 42 59 54 45 20 30 34 20 33 36 20 33 31 20 | .BYTE 04 36 31 |
000075D0: 32 35 20 31 38 00 DC 08 46 00 A4 54 41 4C 20 2E |25 18...F..TAL .|
000075E0: 42 59 54 45 20 31 37 20 31 38 20 31 39 20 32 31 |BYTE 17 18 19 21|
000075F0: 00 EA 08 4B 00 41 20 2E 42 59 54 45 20 30 00 F8 |...K.A .BYTE 0..|
00007600: 08 50 00 58 20 2E 42 59 54 45 20 30 00 06 09 5A |.P.X .BYTE 0...Z|
00007610: 00 59 20 2E 42 59 54 45 20 30 00 16 09 64 00 45 |.Y .BYTE 0...d.E|
00007620: 52 52 20 2E 42 59 54 45 20 30 00 26 09 78 00 54 |RR .BYTE 0.&.x.T|
00007630: 52 4B 20 2E 42 59 54 45 20 30 00 36 09 82 00 53 |RK .BYTE 0.6...S|
00007640: 45 43 20 2E 42 59 54 45 20 30 00 4B 09 8C 00 42 |EC .BYTE 0.K...B|
00007650: 49 54 42 55 46 20 2E 42 59 54 45 20 30 20 30 00 |ITBUF .BYTE 0 0.|
00007660: 5B 09 96 00 43 54 52 20 2E 42 59 54 45 20 30 00 |[...CTR .BYTE 0.|
00007670: 6C 09 A0 00 43 54 52 31 20 2E 42 59 54 45 20 30 |l...CTR1 .BYTE 0|
00007680: 00 79 09 AA 00 AC B2 20 24 37 32 30 30 00 8C 09 |.y..... $7200...|
00007690: B4 00 42 41 4D 42 55 46 20 2E 42 59 54 45 20 30 |..BAMBUF .BYTE 0|
000076A0: 00 9A 09 BE 00 2E 80 20 42 41 4D 20 45 51 00 00 |....... BAM EQ..|
000076B0: 00 00 82 0E 0C 42 41 4D 20 45 51 A0 A0 A0 A0 A0 |.....BAM EQ.....|
000076C0: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 02 00 |................|
000076D0: 00 00 82 0E 14 42 41 4D A0 A0 A0 A0 A0 A0 A0 A0 |.....BAM........|
000076E0: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 01 00 |................|
000076F0: 00 00 82 16 00 42 41 4D 20 31 A0 A0 A0 A0 A0 A0 |.....BAM 1......|
00007700: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 03 00 |................|
00007710: 01 08 11 08 05 00 3B 53 52 43 48 20 44 53 4B 20 |......;SRCH DSK |
00007720: 38 00 25 08 0A 00 53 43 52 45 45 4E 20 4C 44 59 |8.%...SCREEN LDY|
00007730: 20 23 24 30 30 00 36 08 14 00 4C 50 38 20 4C 44 | #$00.6...LP8 LD|
00007740: 41 20 53 43 2C 59 00 43 08 1E 00 43 4D 50 20 23 |A SC,Y.C...CMP #|
00007750: 24 30 30 00 50 08 28 00 42 45 51 20 80 53 43 52 |$00.P.(.BEQ .SCR|
00007760: 00 5A 08 32 00 4A 53 52 20 99 00 62 08 3C 00 49 |.Z.2.JSR ..b.<.I|
00007770: 4E 59 00 6E 08 46 00 4A 4D 50 20 4C 50 38 00 7B |NY.n.F.JMP LP8.{|
00007780: 08 50 00 80 53 43 52 20 52 54 53 00 A1 08 64 00 |.P..SCR RTS...d.|
00007790: 53 43 20 2E 42 59 54 45 20 31 34 37 20 33 32 20 |SC .BYTE 147 32 |
000077A0: 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 33 |32 32 32 32 32 3|
000077B0: 32 00 CA 08 78 00 2E 42 59 54 45 20 22 12 9F 20 |2...x..BYTE ".. |
000077C0: 50 42 57 20 53 4F 46 54 57 41 52 45 20 53 45 41 |PBW SOFTWARE SEA|
000077D0: 52 43 48 20 44 49 53 4B 20 22 00 DD 08 F0 00 2E |RCH DISK "......|
000077E0: 42 59 54 45 20 31 33 20 31 33 20 31 33 00 1A 09 |BYTE 13 13 13...|
000077F0: 18 01 2E 42 59 54 45 20 33 32 20 33 32 20 33 32 |...BYTE 32 32 32|
00007800: 20 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 | 32 32 32 32 32 |
00007810: 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 33 |32 32 32 32 32 3|
00007820: 32 20 33 32 20 33 32 20 33 32 00 2D 09 22 01 2E |2 32 32 32.-."..|
00007830: 42 59 54 45 20 22 12 9C 20 42 59 20 22 00 3D 09 |BYTE ".. BY ".=.|
00007840: 2C 01 2E 42 59 54 45 20 31 33 20 31 33 00 6B 09 |,..BYTE 13 13.k.|
00007850: 54 01 2E 42 59 54 45 20 33 32 20 33 32 20 33 32 |T..BYTE 32 32 32|
00007860: 20 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 | 32 32 32 32 32 |
00007870: 33 32 20 33 32 20 33 32 20 33 32 00 89 09 5E 01 |32 32 32 32...^.|
00007880: 2E 42 59 54 45 20 22 12 9E 20 43 2E 46 2E 20 4C |.BYTE ".. C.F. L|
00007890: 45 20 4D 49 45 55 58 20 22 00 99 09 68 01 2E 42 |E MIEUX "...h..B|
000078A0: 59 54 45 20 31 33 20 31 33 00 C1 09 90 01 2E 42 |YTE 13 13......B|
000078B0: 59 54 45 20 33 32 20 33 32 20 33 32 20 33 32 20 |YTE 32 32 32 32 |
000078C0: 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 33 |32 32 32 32 32 3|
000078D0: 32 00 E4 09 9A 01 2E 42 59 54 45 20 22 12 9F 20 |2......BYTE ".. |
000078E0: 28 43 29 20 46 52 45 45 57 41 52 45 20 31 39 38 |(C) FREEWARE 198|
000078F0: 36 20 92 22 00 F4 09 A4 01 2E 42 59 54 45 20 31 |6 ."......BYTE 1|
00007900: 33 20 31 33 00 19 0A A9 01 2E 42 59 54 45 20 33 |3 13......BYTE 3|
00007910: 32 20 33 32 20 33 32 20 33 32 20 33 32 20 33 32 |2 32 32 32 32 32|
00007920: 20 33 32 20 33 32 20 33 32 00 3D 0A AE 01 2E 42 | 32 32 32.=....B|
00007930: 59 54 45 20 22 12 05 20 45 4E 54 45 52 20 53 45 |YTE ".. ENTER SE|
00007940: 41 52 43 48 20 53 54 52 49 4E 47 20 22 00 62 0A |ARCH STRING ".b.|
00007950: B8 01 2E 42 59 54 45 20 31 33 20 31 33 20 33 32 |...BYTE 13 13 32|
00007960: 20 33 32 20 33 32 20 33 32 20 33 32 20 33 32 20 | 32 32 32 32 32 |
00007970: 33 32 00 78 0A BD 01 2E 42 59 54 45 20 33 32 20 |32.x....BYTE 32 |
00007980: 33 32 20 33 32 20 33 32 00 97 0A C2 01 2E 42 59 |32 32 32......BY|
00007990: 54 45 20 22 12 1E 20 45 58 41 4D 50 4C 45 20 32 |TE ".. EXAMPLE 2|
000079A0: 30 44 32 46 46 20 22 00 AD 0A CC 01 2E 42 59 54 |0D2FF "......BYT|
000079B0: 45 20 31 33 20 31 33 20 31 33 20 30 30 00 C7 0A |E 13 13 13 00...|
000079C0: D6 01 2E 46 49 4C 45 20 53 52 43 48 20 44 53 4B |...FILE SRCH DSK|
000079D0: 20 54 41 42 4C 45 53 00 00 00 00 2E 42 59 54 45 | TABLES.....BYTE|
000079E0: 20 31 33 20 31 33 20 31 33 00 1A 09 18 01 2E 42 | 13 13 13......B|
000079F0: 59 54 45 20 33 32 20 33 32 20 33 32 20 33 32 20 |YTE 32 32 32 32 |
00007A00: 33 32 20 33 32 20 33 32 20 33 01 08 0E 08 0A 00 |32 32 32 3......|
00007A10: AC B2 20 24 37 30 30 30 00 1D 08 0F 00 3B 52 44 |.. $7000.....;RD|
00007A20: 20 54 52 4B 20 45 51 00 24 08 1E 00 2E 4D 00 2A | TRK EQ.$....M.*|
00007A30: 08 23 00 3B 00 3F 08 24 00 3B 36 34 20 52 4F 4D |.#.;.?.$.;64 ROM|
00007A40: 20 52 4F 55 54 49 4E 45 53 00 45 08 25 00 3B 00 | ROUTINES.E.%.;.|
00007A50: 53 08 28 00 A1 20 B2 20 24 46 46 45 34 00 61 08 |S.(.. . $FFE4.a.|
00007A60: 32 00 99 20 B2 20 24 46 46 44 32 00 71 08 3C 00 |2.. . $FFD2.q.<.|
00007A70: 4C 49 53 20 B2 20 24 46 46 42 31 00 83 08 46 00 |LIS . $FFB1...F.|
00007A80: 55 4E 4C 49 53 20 B2 20 24 46 46 41 45 00 95 08 |UNLIS . $FFAE...|
00007A90: 50 00 4C 49 53 45 43 20 B2 20 24 46 46 39 33 00 |P.LISEC . $FF93.|
00007AA0: A5 08 5A 00 4F 55 54 20 B2 20 24 46 46 41 38 00 |..Z.OUT . $FFA8.|
00007AB0: B4 08 64 00 49 4E 20 B2 20 24 46 46 41 35 00 C4 |..d.IN . $FFA5..|
00007AC0: 08 6E 00 54 4C 4B 20 B2 20 24 46 46 42 34 00 D6 |.n.TLK . $FFB4..|
00007AD0: 08 78 00 55 4E 54 4C 4B 20 B2 20 24 46 46 41 42 |.x.UNTLK . $FFAB|
00007AE0: 00 E9 08 82 00 54 4C 4B 53 45 43 20 B2 20 24 46 |.....TLKSEC . $F|
00007AF0: 46 39 36 00 F7 08 8C 00 90 20 B2 20 24 46 46 45 |F96...... . $FFE|
00007B00: 31 00 FD 08 97 00 3B 00 14 09 98 00 3B 31 35 34 |1.....;.....;154|
00007B10: 31 20 52 4F 4D 20 52 4F 55 54 49 4E 45 53 00 1A |1 ROM ROUTINES..|
00007B20: 09 99 00 3B 00 2B 09 A0 00 53 59 4E 43 20 B2 20 |...;.+...SYNC . |
00007B30: 24 46 35 35 36 00 3B 09 AA 00 4F 46 46 20 B2 20 |$F556.;...OFF . |
00007B40: 24 46 39 36 39 00 41 09 AB 00 3B 00 56 09 AC 00 |$F969.A...;.V...|
00007B50: 3B 31 35 34 31 20 B5 45 52 4E 41 4C 20 49 AD 4F |;1541 .ERNAL I.O|
00007B60: 00 5C 09 AD 00 3B 00 6F 09 B9 00 44 53 4B 43 4E |.\...;.o...DSKCN|
00007B70: 54 20 B2 20 24 31 43 30 30 00 7D 09 BE 00 83 20 |T . $1C00.}.... |
00007B80: 3D 20 24 31 43 30 31 00 83 09 C8 00 3B 00 9E 09 |= $1C01.....;...|
00007B90: C9 00 3B 36 34 20 5A 45 52 4F 20 50 41 47 45 20 |..;64 ZERO PAGE |
00007BA0: 41 44 44 52 45 53 BF 47 00 A4 09 CA 00 3B 00 B3 |ADDRES.G.....;..|
00007BB0: 09 D2 00 5A 31 20 B2 20 24 30 30 46 42 00 C2 09 |...Z1 . $00FB...|
00007BC0: DC 00 5A 32 20 B2 20 24 30 30 46 43 00 D1 09 E6 |..Z2 . $00FC....|
00007BD0: 00 5A 33 20 B2 20 24 30 30 46 44 00 E0 09 F0 00 |.Z3 . $00FD.....|
00007BE0: 5A 34 20 B2 20 24 30 30 46 45 00 F3 09 0E 01 2E |Z4 . $00FE......|
00007BF0: 46 49 4C 45 20 52 44 20 54 52 4B 20 31 00 00 00 |FILE RD TRK 1...|
00007C00: 00 00 00 00 01 00 01 08 0F 08 0A 00 3B 52 44 20 |............;RD |
00007C10: 54 52 4B 20 31 00 35 08 3C 00 53 54 41 52 54 20 |TRK 1.5.<.START |
00007C20: 4A 53 52 20 9C 41 4C 4C 3B 20 43 4C 45 41 52 20 |JSR .ALL; CLEAR |
00007C30: 41 4C 4C 20 42 55 46 46 45 52 53 00 5F 08 46 00 |ALL BUFFERS._.F.|
00007C40: 4C 44 41 20 23 24 34 30 3B 20 23 36 34 20 54 52 |LDA #$40; #64 TR|
00007C50: 59 53 20 41 54 20 46 49 4E 44 49 4E 47 20 53 45 |YS AT FINDING SE|
00007C60: 43 A4 52 20 83 00 6A 08 50 00 53 54 41 20 43 54 |C.R ..j.P.STA CT|
00007C70: 00 9A 08 73 00 4C 44 41 20 23 24 36 30 3A 53 54 |...s.LDA #$60:ST|
00007C80: 41 20 57 52 4B 3B 52 45 50 4C 41 43 45 20 4A 53 |A WRK;REPLACE JS|
00007C90: 52 20 49 4E 20 47 43 52 20 52 4F 55 54 49 4E 45 |R IN GCR ROUTINE|
00007CA0: 00 C7 08 78 00 4A 53 52 20 46 49 4C 4C 3B 20 46 |...x.JSR FILL; F|
00007CB0: 49 4C 4C 20 31 35 34 31 20 52 41 4D 20 42 55 46 |ILL 1541 RAM BUF|
00007CC0: 46 45 52 53 20 57 49 54 48 20 30 27 53 00 E9 08 |FERS WITH 0'S...|
00007CD0: 82 00 4A 53 52 20 49 4E 49 54 3B 20 49 4E 49 54 |..JSR INIT; INIT|
00007CE0: 49 41 4C 49 5A 45 20 54 48 45 20 44 49 53 4B 00 |IALIZE THE DISK.|
00007CF0: 0E 09 8C 00 4A 53 52 20 53 43 52 49 4E 3B 20 53 |....JSR SCRIN; S|
00007D00: 43 52 45 45 4E 20 81 4D 41 54 20 26 20 83 20 49 |CREEN .MAT & . I|
00007D10: 4E 50 55 54 00 31 09 8D 00 4C 44 41 20 48 4C 46 |NPUT.1...LDA HLF|
00007D20: 46 4C 47 3B 20 43 48 45 43 4B 20 8B 20 48 41 4C |FLG; CHECK . HAL|
00007D30: 46 20 54 52 41 43 4B 00 53 09 8E 00 42 45 51 20 |F TRACK.S...BEQ |
00007D40: 53 54 31 3B 20 8B 20 45 51 55 41 4C 20 48 4C 46 |ST1; . EQUAL HLF|
00007D50: 46 4C 47 20 A8 20 53 45 54 00 5F 09 91 00 4A 53 |FLG . SET._...JS|
00007D60: 52 20 48 4C 46 00 8D 09 92 00 44 45 43 20 54 52 |R HLF.....DEC TR|
00007D70: 4B 3A 4C 44 41 20 54 52 4B 3B 20 8B 20 48 41 4C |K:LDA TRK; . HAL|
00007D80: 46 20 54 52 41 43 4B 20 57 45 27 4C 4C 20 42 45 |F TRACK WE'LL BE|
00007D90: 20 91 45 00 B3 09 93 00 53 54 41 20 54 4B 53 45 | .E.....STA TKSE|
00007DA0: 43 3B 20 54 52 41 43 4B 20 4C 4F 57 45 52 20 54 |C; TRACK LOWER T|
00007DB0: 48 41 4E 20 4E B0 4D 41 4C 00 DC 09 96 00 53 54 |HAN N.MAL.....ST|
00007DC0: 31 20 4A 53 52 20 53 45 43 A4 52 3B 20 43 41 4C |1 JSR SEC.R; CAL|
00007DD0: 43 55 4C 41 54 45 20 23 20 4F 46 20 53 45 43 A4 |CULATE # OF SEC.|
00007DE0: 52 53 00 02 0A A0 00 4A 53 52 20 52 44 45 52 52 |RS.....JSR RDERR|
00007DF0: 3B 20 87 20 45 52 52 B0 53 20 41 54 20 24 30 30 |; . ERR.S AT $00|
00007E00: 20 49 4E 20 31 35 34 31 00 21 0A AA 00 4A 53 52 | IN 1541.!...JSR|
00007E10: 20 44 49 53 50 3B 20 99 20 45 52 52 B0 53 20 A4 | DISP; . ERR.S .|
00007E20: 20 53 43 52 45 45 4E 00 2E 0A DC 00 4C 44 58 20 | SCREEN.....LDX |
00007E30: 23 24 30 30 00 58 0A E6 00 4A 53 52 20 50 52 47 |#$00.X...JSR PRG|
00007E40: 44 53 4B 3B 20 50 55 54 20 44 49 53 4B 20 50 52 |DSK; PUT DISK PR|
00007E50: 4F 47 52 41 4D 20 41 54 20 24 30 33 30 30 00 7F |OGRAM AT $0300..|
00007E60: 0A 04 01 54 52 59 20 4A 53 52 20 45 58 44 53 4B |...TRY JSR EXDSK|
00007E70: 3B 20 23 24 45 30 20 41 54 20 24 30 30 20 45 58 |; #$E0 AT $00 EX|
00007E80: 45 43 55 54 45 00 A5 0A 22 01 4A 53 52 20 52 44 |ECUTE...".JSR RD|
00007E90: 44 53 4B 3B 20 87 20 52 41 4D 20 41 54 20 24 30 |DSK; . RAM AT $0|
00007EA0: 34 30 30 20 A4 20 24 30 35 46 46 00 C9 0A 23 01 |400 . $05FF...#.|
00007EB0: 4A 53 52 20 90 3B 41 46 54 45 52 20 45 52 52 B0 |JSR .;AFTER ERR.|
00007EC0: 53 20 44 49 53 50 4C 41 59 45 44 20 8A 20 90 00 |S DISPLAYED . ..|
00007ED0: EB 0A 24 01 42 4E 45 20 CB 91 3B 57 49 4C 4C 20 |..$.BNE ..;WILL |
00007EE0: 54 45 52 4D 49 4E 41 54 45 20 50 52 4F 47 52 41 |TERMINATE PROGRA|
00007EF0: 4D 00 F8 0A 25 01 4A 4D 50 20 41 4C 4C 44 00 20 |M...%.JMP ALLD. |
00007F00: 0B 2C 01 CB 91 20 4A 53 52 20 47 43 52 3B 20 43 |.,... JSR GCR; C|
00007F10: 91 56 45 52 54 20 47 43 52 20 48 45 41 44 45 52 |.VERT GCR HEADER|
00007F20: 20 A4 20 48 45 58 00 47 0B 36 01 4A 53 52 20 46 | . HEX.G.6.JSR F|
00007F30: 4D 54 3B 20 52 4F 57 20 41 54 20 24 37 46 58 58 |MT; ROW AT $7FXX|
00007F40: 20 A4 20 50 55 54 20 48 45 41 44 45 52 00 56 0B | . PUT HEADER.V.|
00007F50: 40 01 4C 44 41 20 53 45 43 46 4C 47 00 75 0B 4A |@.LDA SECFLG.u.J|
00007F60: 01 42 45 51 20 4E 4F 53 45 43 3B 20 8B 20 30 20 |.BEQ NOSEC; . 0 |
00007F70: 44 55 50 4C 49 43 41 54 45 20 87 00 82 0B 54 01 |DUPLICATE ....T.|
00007F80: 4C 44 41 20 23 24 30 30 00 A3 0B 5E 01 53 54 41 |LDA #$00...^.STA|
00007F90: 20 53 45 43 46 4C 47 3B 20 52 45 53 45 54 20 53 | SECFLG; RESET S|
00007FA0: 45 43 A4 52 20 46 4C 41 47 00 C9 0B 68 01 44 45 |EC.R FLAG...h.DE|
00007FB0: 43 20 53 45 43 3B 20 53 55 42 54 52 41 43 54 20 |C SEC; SUBTRACT |
00007FC0: 31 20 8B 20 A8 20 44 55 50 4C 49 43 41 54 45 00 |1 . . DUPLICATE.|
00007FD0: D5 0B 72 01 4C 44 41 20 53 45 43 00 E3 0B 7C 01 |..r.LDA SEC...|.|
00007FE0: 42 4E 45 20 4E 4F 53 45 43 00 04 0C B8 01 41 4C |BNE NOSEC.....AL|
00007FF0: 4C 44 20 4A 53 52 20 49 4E 49 54 3B 20 54 48 49 |LD JSR INIT; THI|
00008000: 53 20 49 53 20 54 48 45 20 80 00 3E 0C BD 01 4C |S IS THE ..>...L|
00008010: 44 41 20 23 24 30 30 3A 53 54 41 20 57 52 4B 3B |DA #$00:STA WRK;|
00008020: 20 52 45 50 4C 41 43 45 20 4A 53 52 20 57 49 54 | REPLACE JSR WIT|
00008030: 48 20 42 52 4B 20 49 4E 20 47 43 52 20 52 4F 55 |H BRK IN GCR ROU|
00008040: 54 49 4E 45 00 60 0C CC 01 42 52 4B 3B 20 81 43 |TINE.`...BRK; .C|
00008050: 45 53 20 52 4F 55 54 49 4E 45 20 A4 20 4D AD 4C |ES ROUTINE . M.L|
00008060: 20 4D 91 49 A4 52 00 88 0C D6 01 4E 4F 53 45 43 | M.I.R.....NOSEC|
00008070: 20 4A 53 52 20 9C 42 55 46 3B 20 43 4C 45 41 52 | JSR .BUF; CLEAR|
00008080: 20 42 55 46 46 45 52 53 20 81 20 4D B0 45 00 B0 | BUFFERS . M.E..|
00008090: 0C E0 01 44 45 43 20 43 54 3B 20 53 55 42 54 52 |...DEC CT; SUBTR|
000080A0: 41 43 54 20 31 20 46 52 4F 4D 20 4F 55 52 20 36 |ACT 1 FROM OUR 6|
000080B0: 34 20 54 52 59 53 00 BB 0C EA 01 4C 44 41 20 43 |4 TRYS.....LDA C|
000080C0: 54 00 DA 0C F4 01 42 45 51 20 41 4C 4C 44 3B 20 |T.....BEQ ALLD; |
000080D0: 8B 20 5A 45 52 4F 20 57 45 27 52 45 20 44 91 45 |. ZERO WE'RE D.E|
000080E0: 00 FB 0C FE 01 4A 4D 50 20 54 52 59 3B 20 8B 20 |.....JMP TRY; . |
000080F0: A8 20 5A 45 52 4F 20 4C 4F 4F 4B 20 81 20 4D B0 |. ZERO LOOK . M.|
00008100: 45 00 0E 0D 08 02 2E 46 49 4C 45 20 52 44 20 54 |E......FILE RD T|
00008110: 52 4B 20 32 00 00 00 45 41 44 45 52 20 A4 20 48 |RK 2...EADER . H|
00008120: 45 58 00 47 0B 36 01 4A 53 52 20 46 4D 54 3B 20 |EX.G.6.JSR FMT; |
00008130: 52 4F 57 20 41 54 20 24 37 46 58 58 20 A4 20 50 |ROW AT $7FXX . P|
00008140: 55 54 20 48 45 41 44 45 52 00 56 0B 40 01 4C 44 |UT HEADER.V.@.LD|
00008150: 41 20 53 45 43 46 4C 47 00 75 0B 4A 01 42 45 51 |A SECFLG.u.J.BEQ|
00008160: 20 4E 4F 53 45 43 3B 20 8B 20 30 20 44 55 50 4C | NOSEC; . 0 DUPL|
00008170: 49 43 41 54 45 20 87 00 82 0B 54 01 4C 44 41 20 |ICATE ....T.LDA |
00008180: 23 24 30 30 00 A3 0B 5E 01 53 54 41 20 53 45 43 |#$00...^.STA SEC|
00008190: 46 4C 47 3B 20 52 45 53 45 54 20 53 45 43 A4 52 |FLG; RESET SEC.R|
000081A0: 20 46 4C 41 47 00 C9 0B 68 01 44 45 43 20 53 45 | FLAG...h.DEC SE|
000081B0: 43 3B 20 53 55 42 54 52 41 43 54 20 31 20 8B 20 |C; SUBTRACT 1 . |
000081C0: A8 20 44 55 50 4C 49 43 41 54 45 00 D5 0B 72 01 |. DUPLICATE...r.|
000081D0: 4C 44 41 20 53 45 43 00 E3 0B 7C 01 42 4E 45 20 |LDA SEC...|.BNE |
000081E0: 4E 4F 53 45 43 00 04 0C B8 01 41 4C 4C 44 20 4A |NOSEC.....ALLD J|
000081F0: 53 52 20 49 4E 49 54 3B 20 54 01 08 0F 08 0A 00 |SR INIT; T......|
00008200: 3B 52 44 20 54 52 4B 20 32 00 34 08 50 00 53 43 |;RD TRK 2.4.P.SC|
00008210: 52 49 4E 20 4C 44 59 20 23 24 30 30 3B 20 53 43 |RIN LDY #$00; SC|
00008220: 52 45 45 4E 20 81 4D 41 54 53 20 26 20 85 00 51 |REEN .MATS & ..Q|
00008230: 08 55 00 53 54 59 20 48 4C 46 46 4C 47 3B 20 52 |.U.STY HLFFLG; R|
00008240: 45 53 45 54 20 48 4C 46 46 4C 47 00 74 08 5A 00 |ESET HLFFLG.t.Z.|
00008250: 50 52 4E 54 20 4C 44 41 20 54 52 4B 4D 45 53 2C |PRNT LDA TRKMES,|
00008260: 59 3B 20 45 4E 54 45 52 20 54 52 41 43 4B 00 80 |Y; ENTER TRACK..|
00008270: 08 64 00 42 45 51 20 4C 50 34 00 8A 08 6E 00 4A |.d.BEQ LP4...n.J|
00008280: 53 52 20 99 00 92 08 78 00 49 4E 59 00 9F 08 82 |SR ....x.INY....|
00008290: 00 4A 4D 50 20 50 52 4E 54 00 AD 08 8C 00 4C 50 |.JMP PRNT.....LP|
000082A0: 34 20 4A 53 52 20 A1 00 BA 08 96 00 43 4D 50 20 |4 JSR ......CMP |
000082B0: 23 24 30 30 00 C6 08 A0 00 42 45 51 20 4C 50 34 |#$00.....BEQ LP4|
000082C0: 00 E0 08 AA 00 4A 53 52 20 99 3B 99 20 31 53 54 |.....JSR .;. 1ST|
000082D0: 20 4B 45 59 53 54 52 4F 4B 45 00 EC 08 B4 00 53 | KEYSTROKE.....S|
000082E0: 54 41 20 54 52 4B 00 FA 08 BE 00 4C 50 35 20 4A |TA TRK.....LP5 J|
000082F0: 53 52 20 A1 00 06 09 C8 00 42 45 51 20 4C 50 35 |SR ......BEQ LP5|
00008300: 00 20 09 D2 00 4A 53 52 20 99 3B 99 20 32 4E 44 |. ...JSR .;. 2ND|
00008310: 20 4B 45 59 53 54 52 4F 4B 45 00 40 09 DC 00 53 | KEYSTROKE.@...S|
00008320: 54 41 20 54 52 4B AA 31 3B 20 43 48 41 4E 47 45 |TA TRK.1; CHANGE|
00008330: 20 C6 49 49 20 A4 20 48 45 58 00 4C 09 E6 00 4C | .II . HEX.L...L|
00008340: 44 41 20 54 52 4B 00 67 09 F0 00 AF 20 23 24 30 |DA TRK.g.... #$0|
00008350: 46 3B 43 4C 45 41 52 20 48 49 47 48 20 42 49 54 |F;CLEAR HIGH BIT|
00008360: 53 00 73 09 FA 00 53 54 41 20 54 52 4B 00 8A 09 |S.s...STA TRK...|
00008370: 04 01 41 53 4C 3A 41 53 4C 3B 20 B2 20 54 49 4D |..ASL:ASL; . TIM|
00008380: 45 53 20 34 00 92 09 0E 01 43 4C 43 00 A9 09 18 |ES 4.....CLC....|
00008390: 01 41 44 43 20 54 52 4B 3B 20 B2 20 54 49 4D 45 |.ADC TRK; . TIME|
000083A0: 53 20 35 00 BD 09 22 01 41 53 4C 3B 20 B2 20 54 |S 5...".ASL; . T|
000083B0: 49 4D 45 53 20 31 30 00 C9 09 2C 01 53 54 41 20 |IMES 10...,.STA |
000083C0: 54 52 4B 00 D7 09 36 01 4C 44 41 20 54 52 4B AA |TRK...6.LDA TRK.|
000083D0: 31 00 E2 09 40 01 AF 20 23 24 30 46 00 EA 09 54 |1...@.. #$0F...T|
000083E0: 01 43 4C 43 00 F6 09 68 01 41 44 43 20 54 52 4B |.CLC...h.ADC TRK|
000083F0: 00 17 0A 72 01 53 54 41 20 54 52 4B 3B 4E 4F 57 |...r.STA TRK;NOW|
00008400: 20 48 4F 4C 44 53 20 48 45 58 20 4E 55 4D 42 45 | HOLDS HEX NUMBE|
00008410: 52 00 25 0A 7C 01 53 54 41 20 54 4B 53 45 43 00 |R.%.|.STA TKSEC.|
00008420: 4C 0A 86 01 4A 53 52 20 9C 48 44 3B 20 46 49 4C |L...JSR .HD; FIL|
00008430: 4C 20 24 37 46 30 30 AB 24 37 46 46 46 20 57 49 |L $7F00.$7FFF WI|
00008440: 54 48 20 30 27 53 00 59 0A 90 01 4C 44 59 20 23 |TH 0'S.Y...LDY #|
00008450: 24 30 30 00 7B 0A 9A 01 C6 20 4C 44 41 20 54 52 |$00.{.... LDA TR|
00008460: 4B 4D 45 53 31 2C 59 3B 20 99 20 48 41 4C 46 20 |KMES1,Y; . HALF |
00008470: 54 52 41 43 4B 00 86 0A A5 01 42 45 51 20 C6 31 |TRACK.....BEQ .1|
00008480: 00 90 0A A9 01 4A 53 52 20 99 00 98 0A AA 01 49 |.....JSR ......I|
00008490: 4E 59 00 A2 0A AE 01 4A 4D 50 20 C6 00 AF 0A B8 |NY.....JMP .....|
000084A0: 01 C6 31 20 4A 53 52 20 A1 00 BC 0A BD 01 43 4D |..1 JSR ......CM|
000084B0: 50 20 23 24 30 30 00 C7 0A BE 01 42 45 51 20 C6 |P #$00.....BEQ .|
000084C0: 31 00 D1 0A C2 01 4A 53 52 20 99 00 EA 0A CC 01 |1.....JSR ......|
000084D0: 43 4D 50 20 23 24 34 45 3B 20 45 51 55 41 4C 53 |CMP #$4E; EQUALS|
000084E0: 20 22 4E 22 00 F5 0A D6 01 42 45 51 20 C6 32 00 | "N".....BEQ .2.|
000084F0: 02 0B E0 01 4C 44 41 20 23 24 30 31 00 26 0B EA |....LDA #$01.&..|
00008500: 01 53 54 41 20 48 4C 46 46 4C 47 3B 20 53 45 54 |.STA HLFFLG; SET|
00008510: 20 48 41 4C 46 20 54 52 41 43 4B 20 46 4C 41 47 | HALF TRACK FLAG|
00008520: 00 36 0B F4 01 C6 32 20 4C 44 59 20 23 24 30 30 |.6....2 LDY #$00|
00008530: 00 53 0B FE 01 C6 33 20 4C 44 41 20 54 52 4B 4D |.S....3 LDA TRKM|
00008540: 45 53 32 2C 59 3B 20 99 20 5A 91 45 53 00 5E 0B |ES2,Y; . Z.ES.^.|
00008550: 08 02 42 45 51 20 C6 34 00 68 0B 12 02 4A 53 52 |..BEQ .4.h...JSR|
00008560: 20 99 00 70 0B 1C 02 49 4E 59 00 7B 0B 26 02 4A | ..p...INY.{.&.J|
00008570: 4D 50 20 C6 33 00 88 0B 30 02 C6 34 20 4A 53 52 |MP .3...0..4 JSR|
00008580: 20 A1 00 95 0B 3A 02 43 4D 50 20 23 24 30 30 00 | ....:.CMP #$00.|
00008590: A0 0B 44 02 42 45 51 20 C6 34 00 AA 0B 4E 02 4A |..D.BEQ .4...N.J|
000085A0: 53 52 20 99 00 D2 0B 58 02 53 45 43 3A 53 42 43 |SR ....X.SEC:SBC|
000085B0: 20 23 24 33 31 3A 54 41 59 3B 20 42 45 43 4F 4D | #$31:TAY; BECOM|
000085C0: 45 53 20 48 45 58 20 31 20 A4 20 34 00 E2 0B 62 |ES HEX 1 . 4...b|
000085D0: 02 4C 44 41 20 44 45 4E 53 31 2C 59 00 12 0C 6C |.LDA DENS1,Y...l|
000085E0: 02 53 54 41 20 53 50 44 AA 31 3B 20 53 45 54 20 |.STA SPD.1; SET |
000085F0: 9A 52 4F 4C 4C 45 52 20 42 59 54 45 20 49 4E 20 |.ROLLER BYTE IN |
00008600: 44 49 53 4B 20 50 52 4F 47 52 41 4D 00 1D 0C 8A |DISK PROGRAM....|
00008610: 02 C6 37 20 52 54 53 00 30 0C 20 03 2E 46 49 4C |..7 RTS.0. ..FIL|
00008620: 45 20 52 44 20 54 52 4B 20 33 00 00 00 20 24 37 |E RD TRK 3... $7|
00008630: 46 30 30 AB 24 37 46 46 46 20 57 49 54 48 20 30 |F00.$7FFF WITH 0|
00008640: 27 53 00 59 0A 90 01 4C 44 59 20 23 24 30 30 00 |'S.Y...LDY #$00.|
00008650: 7B 0A 9A 01 C6 20 4C 44 41 20 54 52 4B 4D 45 53 |{.... LDA TRKMES|
00008660: 31 2C 59 3B 20 99 20 48 41 4C 46 20 54 52 41 43 |1,Y; . HALF TRAC|
00008670: 4B 00 86 0A A5 01 42 45 51 20 C6 31 00 90 0A A9 |K.....BEQ .1....|
00008680: 01 4A 53 52 20 99 00 98 0A AA 01 49 4E 59 00 A2 |.JSR ......INY..|
00008690: 0A AE 01 4A 4D 50 20 C6 00 AF 0A B8 01 C6 31 20 |...JMP .......1 |
000086A0: 4A 53 52 20 A1 00 BC 0A BD 01 43 4D 50 20 23 24 |JSR ......CMP #$|
000086B0: 30 30 00 C7 0A BE 01 42 45 51 20 C6 31 00 D1 0A |00.....BEQ .1...|
000086C0: C2 01 4A 53 52 20 99 00 EA 0A CC 01 43 4D 50 20 |..JSR ......CMP |
000086D0: 23 24 34 45 3B 20 45 51 55 41 4C 53 20 22 4E 22 |#$4E; EQUALS "N"|
000086E0: 00 F5 0A D6 01 42 45 51 20 C6 32 00 02 0B E0 01 |.....BEQ .2.....|
000086F0: 01 08 0F 08 0A 00 3B 52 44 20 54 52 4B 20 33 00 |......;RD TRK 3.|
00008700: 3B 08 14 00 50 52 47 44 53 4B 20 4A 53 52 20 9B |;...PRGDSK JSR .|
00008710: 3B 20 50 55 54 20 44 49 53 4B 20 50 52 4F 47 52 |; PUT DISK PROGR|
00008720: 41 4D 20 41 54 20 24 30 33 30 30 00 5B 08 1E 00 |AM AT $0300.[...|
00008730: 4C 44 59 20 23 24 30 30 3B 20 49 4E 20 54 48 45 |LDY #$00; IN THE|
00008740: 20 31 35 34 31 27 53 20 52 41 4D 00 6E 08 28 00 | 1541'S RAM.n.(.|
00008750: 4C 50 31 38 20 4C 44 41 20 4D 57 33 2C 59 00 7A |LP18 LDA MW3,Y.z|
00008760: 08 32 00 4A 53 52 20 4F 55 54 00 82 08 3C 00 49 |.2.JSR OUT...<.I|
00008770: 4E 59 00 8F 08 46 00 43 50 59 20 23 24 30 36 00 |NY...F.CPY #$06.|
00008780: 9C 08 50 00 42 4E 45 20 4C 50 31 38 00 A9 08 5A |..P.BNE LP18...Z|
00008790: 00 4C 44 59 20 23 24 30 30 00 BD 08 64 00 4C 50 |.LDY #$00...d.LP|
000087A0: 31 39 20 4C 44 41 20 50 52 4F 47 2C 58 00 C9 08 |19 LDA PROG,X...|
000087B0: 6E 00 4A 53 52 20 4F 55 54 00 D1 08 82 00 49 4E |n.JSR OUT.....IN|
000087C0: 59 00 D9 08 8C 00 49 4E 58 00 E6 08 96 00 43 50 |Y.....INX.....CP|
000087D0: 59 20 23 24 32 30 00 F3 08 A0 00 42 4E 45 20 4C |Y #$20.....BNE L|
000087E0: 50 31 39 00 01 09 AA 00 4A 53 52 20 55 4E 4C 49 |P19.....JSR UNLI|
000087F0: 53 00 2C 09 B4 00 53 54 59 20 4D 57 33 AA 33 3B |S.,...STY MW3.3;|
00008800: 20 52 45 50 4C 41 43 45 20 4C 4F 20 42 59 54 45 | REPLACE LO BYTE|
00008810: 20 4D AB 57 20 41 44 44 52 45 53 53 00 39 09 BE | M.W ADDRESS.9..|
00008820: 00 43 50 58 20 23 24 34 30 00 46 09 C8 00 42 45 |.CPX #$40.F...BE|
00008830: 51 20 45 52 52 34 00 55 09 D2 00 4A 4D 50 20 50 |Q ERR4.U...JMP P|
00008840: 52 47 44 53 4B 00 68 09 DC 00 45 52 52 34 20 4A |RGDSK.h...ERR4 J|
00008850: 53 52 20 55 4E 4C 49 53 00 75 09 E1 00 4C 44 41 |SR UNLIS.u...LDA|
00008860: 20 23 24 30 30 00 9E 09 E2 00 53 54 41 20 4D 57 | #$00.....STA MW|
00008870: 33 AA 33 3B 20 52 45 53 45 54 20 4C 4F 20 42 59 |3.3; RESET LO BY|
00008880: 54 45 20 4D AB 57 20 41 44 44 52 45 53 53 00 A6 |TE M.W ADDRESS..|
00008890: 09 E6 00 52 54 53 00 B9 09 80 02 2E 46 49 4C 45 |...RTS......FILE|
000088A0: 20 52 44 20 54 52 4B 20 34 00 00 00 00 00 82 13 | RD TRK 4.......|
000088B0: 09 44 53 4B 20 50 52 47 A0 A0 A0 A0 A0 A0 A0 A0 |.DSK PRG........|
000088C0: A0 00 00 00 00 00 00 00 00 00 02 00 00 00 82 14 |................|
000088D0: 00 52 45 47 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.REG............|
000088E0: A0 00 00 00 00 00 00 00 00 00 01 00 01 08 0F 08 |................|
000088F0: 0A 00 3B 52 44 20 54 52 4B 20 34 00 38 08 04 01 |..;RD TRK 4.8...|
00008900: 45 58 44 53 4B 20 4A 53 52 20 9B 3B 20 50 55 54 |EXDSK JSR .; PUT|
00008910: 20 23 24 45 30 20 41 54 20 24 30 30 20 49 4E 20 | #$E0 AT $00 IN |
00008920: 31 35 34 31 00 45 08 0E 01 4C 44 59 20 23 24 30 |1541.E...LDY #$0|
00008930: 30 00 71 08 18 01 4C 50 32 31 20 4C 44 41 20 4D |0.q...LP21 LDA M|
00008940: 57 31 2C 59 3B 4D AB 57 20 30 36 20 30 30 20 30 |W1,Y;M.W 06 00 0|
00008950: 32 20 22 54 52 4B 20 26 20 53 45 43 22 00 7D 08 |2 "TRK & SEC".}.|
00008960: 22 01 4A 53 52 20 4F 55 54 00 85 08 2C 01 49 4E |".JSR OUT...,.IN|
00008970: 59 00 92 08 36 01 43 50 59 20 23 24 30 38 00 9F |Y...6.CPY #$08..|
00008980: 08 40 01 42 4E 45 20 4C 50 32 31 00 AD 08 4A 01 |.@.BNE LP21...J.|
00008990: 4A 53 52 20 55 4E 4C 49 53 00 B7 08 54 01 4A 53 |JSR UNLIS...T.JS|
000089A0: 52 20 9B 00 C4 08 5E 01 4C 44 59 20 23 24 30 30 |R ....^.LDY #$00|
000089B0: 00 EB 08 68 01 4C 50 32 32 20 4C 44 41 20 4D 57 |...h.LP22 LDA MW|
000089C0: 34 2C 59 3B 4D AB 57 20 30 30 20 30 30 20 30 31 |4,Y;M.W 00 00 01|
000089D0: 20 22 23 24 45 30 22 00 F7 08 72 01 4A 53 52 20 | "#$E0"...r.JSR |
000089E0: 4F 55 54 00 FF 08 7C 01 49 4E 59 00 0C 09 86 01 |OUT...|.INY.....|
000089F0: 43 50 59 20 23 24 30 37 00 19 09 90 01 42 4E 45 |CPY #$07.....BNE|
00008A00: 20 4C 50 32 32 00 27 09 9A 01 4A 53 52 20 55 4E | LP22.'...JSR UN|
00008A10: 4C 49 53 00 45 09 9B 01 4A 53 52 20 43 48 4B 45 |LIS.E...JSR CHKE|
00008A20: 52 52 3B 20 92 20 81 20 45 52 52 B0 20 43 4F 44 |RR; . . ERR. COD|
00008A30: 45 00 4D 09 A4 01 52 54 53 00 60 09 80 02 2E 46 |E.M...RTS.`....F|
00008A40: 49 4C 45 20 52 44 20 54 52 4B 20 35 00 00 00 20 |ILE RD TRK 5... |
00008A50: 54 52 4B 20 32 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |TRK 2...........|
00008A60: 00 00 00 00 00 00 05 00 00 00 82 13 07 52 44 20 |.............RD |
00008A70: 54 52 4B 20 33 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |TRK 3...........|
00008A80: 00 00 00 00 00 00 02 00 00 00 02 13 08 52 44 20 |.............RD |
00008A90: 54 52 4B 20 34 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |TRK 4...........|
00008AA0: 00 00 00 00 00 00 00 00 00 00 82 13 09 52 44 20 |.............RD |
00008AB0: 54 52 4B 20 35 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |TRK 5...........|
00008AC0: 00 00 00 00 00 00 02 00 00 00 82 14 00 52 45 47 |.............REG|
00008AD0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |................|
00008AE0: 00 00 00 00 00 00 01 00 01 08 0F 08 0A 00 3B 52 |..............;R|
00008AF0: 44 20 54 52 4B 20 35 00 2C 08 28 00 50 52 4F 47 |D TRK 5.,.(.PROG|
00008B00: 20 4C 44 41 20 44 53 4B 43 4E 54 3B 58 58 58 58 | LDA DSKCNT;XXXX|
00008B10: 58 58 58 58 00 47 08 32 00 AF 20 23 24 39 46 3B |XXXX.G.2.. #$9F;|
00008B20: 20 20 20 20 20 20 20 31 30 30 31 31 31 31 31 00 | 10011111.|
00008B30: 63 08 3C 00 53 50 44 20 B0 41 20 23 24 30 30 3B |c.<.SPD .A #$00;|
00008B40: 20 20 20 30 58 58 30 30 30 30 30 00 72 08 46 00 | 0XX00000.r.F.|
00008B50: 53 54 41 20 44 53 4B 43 4E 54 00 95 08 50 00 42 |STA DSKCNT...P.B|
00008B60: 59 20 4A 53 52 20 53 59 4E 43 3B 46 49 4E 44 20 |Y JSR SYNC;FIND |
00008B70: 41 4E 59 20 53 59 4E 43 20 4D 41 52 4B 00 A2 08 |ANY SYNC MARK...|
00008B80: C8 00 4C 44 59 20 23 24 30 30 00 CB 08 D2 00 92 |..LDY #$00......|
00008B90: 31 20 42 56 43 20 92 31 3B 20 56 20 46 4C 41 47 |1 BVC .1; V FLAG|
00008BA0: 20 49 4E 44 49 43 41 54 45 53 20 47 43 52 20 42 | INDICATES GCR B|
00008BB0: 59 54 45 00 E0 08 DC 00 43 4C 56 3B 52 45 53 45 |YTE.....CLV;RESE|
00008BC0: 54 20 56 20 46 4C 41 47 00 FD 08 E6 00 4C 44 41 |T V FLAG.....LDA|
00008BD0: 20 83 3B 20 49 4E 54 45 52 4E 41 4C 20 49 2F 4F | .; INTERNAL I/O|
00008BE0: 20 50 4F 52 54 00 0D 09 F0 00 53 54 41 20 24 30 | PORT.....STA $0|
00008BF0: 34 30 30 2C 59 00 15 09 FA 00 49 4E 59 00 20 09 |400,Y.....INY. .|
00008C00: 04 01 42 4E 45 20 92 31 00 2D 09 0E 01 4C 44 59 |..BNE .1.-...LDY|
00008C10: 20 23 24 30 30 00 3B 09 5E 01 92 32 20 42 56 43 | #$00.;.^..2 BVC|
00008C20: 20 92 32 00 43 09 68 01 43 4C 56 00 4D 09 72 01 | .2.C.h.CLV.M.r.|
00008C30: 4C 44 41 20 83 00 5D 09 7C 01 53 54 41 20 24 30 |LDA ..].|.STA $0|
00008C40: 35 30 30 2C 59 00 65 09 86 01 49 4E 59 00 70 09 |500,Y.e...INY.p.|
00008C50: 90 01 42 4E 45 20 92 32 00 88 09 9A 01 4C 44 41 |..BNE .2.....LDA|
00008C60: 20 23 24 30 31 3B 20 45 52 52 B0 20 43 4F 44 45 | #$01; ERR. CODE|
00008C70: 00 A9 09 A4 01 4A 4D 50 20 4F 46 46 3B 20 45 52 |.....JMP OFF; ER|
00008C80: 52 B0 20 48 AF 4C 49 4E 47 20 52 4F 55 54 49 4E |R. H.LING ROUTIN|
00008C90: 45 00 B1 09 08 02 52 54 53 00 C4 09 4E 02 2E 46 |E.....RTS...N..F|
00008CA0: 49 4C 45 20 52 44 20 54 52 4B 20 36 00 00 00 20 |ILE RD TRK 6... |
00008CB0: 35 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |5...............|
00008CC0: 00 00 00 00 00 00 82 14 00 52 45 47 A0 A0 A0 A0 |.........REG....|
00008CD0: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00008CE0: 00 00 01 00 01 08 0F 08 0A 00 3B 52 44 20 54 52 |..........;RD TR|
00008CF0: 4B 20 36 00 1F 08 14 00 53 56 52 45 47 20 53 54 |K 6.....SVREG ST|
00008D00: 41 20 41 00 29 08 1E 00 53 54 58 20 58 00 33 08 |A A.)...STX X.3.|
00008D10: 28 00 53 54 59 20 59 00 3B 08 32 00 52 54 53 00 |(.STY Y.;.2.RTS.|
00008D20: 4C 08 3C 00 52 53 54 52 45 47 20 4C 44 41 20 41 |L.<.RSTREG LDA A|
00008D30: 00 56 08 46 00 4C 44 58 20 58 00 60 08 50 00 4C |.V.F.LDX X.`.P.L|
00008D40: 44 59 20 59 00 68 08 5A 00 52 54 53 00 7B 08 64 |DY Y.h.Z.RTS.{.d|
00008D50: 00 2E 46 49 4C 45 20 52 44 20 54 52 4B 20 37 00 |..FILE RD TRK 7.|
00008D60: 00 00 00 00 82 0A 00 43 33 35 20 31 32 A0 A0 A0 |.......C35 12...|
00008D70: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
00008D80: 04 00 00 00 82 0A 01 43 33 35 20 31 33 A0 A0 A0 |.......C35 13...|
00008D90: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
00008DA0: 03 00 00 00 82 0A 04 43 33 35 20 31 34 A0 A0 A0 |.......C35 14...|
00008DB0: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
00008DC0: 03 00 00 00 82 0A 09 43 33 35 20 31 35 A0 A0 A0 |.......C35 15...|
00008DD0: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
00008DE0: 04 00 01 08 0F 08 0A 00 3B 52 44 20 54 52 4B 20 |........;RD TRK |
00008DF0: 37 00 3A 08 14 00 46 49 4C 4C 20 4A 53 52 20 9B |7.:...FILL JSR .|
00008E00: 3B 20 50 55 54 20 30 27 53 20 46 52 4F 4D 20 24 |; PUT 0'S FROM $|
00008E10: 30 33 30 30 20 A4 20 24 30 35 46 46 00 5C 08 1E |0300 . $05FF.\..|
00008E20: 00 4C 44 59 20 23 24 30 30 3B 20 49 4E 20 31 35 |.LDY #$00; IN 15|
00008E30: 34 31 20 52 41 4D 20 42 55 46 46 45 52 53 00 7D |41 RAM BUFFERS.}|
00008E40: 08 28 00 46 49 4C 4C 31 20 4C 44 41 20 4D 57 35 |.(.FILL1 LDA MW5|
00008E50: 2C 59 3B 4D AB 57 20 30 30 20 30 33 20 46 46 00 |,Y;M.W 00 03 FF.|
00008E60: 89 08 32 00 4A 53 52 20 4F 55 54 00 91 08 3C 00 |..2.JSR OUT...<.|
00008E70: 49 4E 59 00 9E 08 46 00 43 50 59 20 23 24 30 36 |INY...F.CPY #$06|
00008E80: 00 AC 08 50 00 42 4E 45 20 46 49 4C 4C 31 00 B9 |...P.BNE FILL1..|
00008E90: 08 5A 00 4C 44 59 20 23 24 30 30 00 CC 08 64 00 |.Z.LDY #$00...d.|
00008EA0: 46 49 4C 4C 32 20 4C 44 41 20 23 24 30 30 00 D8 |FILL2 LDA #$00..|
00008EB0: 08 6E 00 4A 53 52 20 4F 55 54 00 E0 08 78 00 49 |.n.JSR OUT...x.I|
00008EC0: 4E 59 00 ED 08 82 00 43 50 59 20 23 24 32 30 00 |NY.....CPY #$20.|
00008ED0: FB 08 8C 00 42 4E 45 20 46 49 4C 4C 32 00 03 09 |....BNE FILL2...|
00008EE0: 96 00 43 4C 43 00 11 09 A0 00 4C 44 41 20 4D 57 |..CLC.....LDA MW|
00008EF0: 35 AA 33 00 1E 09 AA 00 41 44 43 20 23 24 32 30 |5.3.....ADC #$20|
00008F00: 00 2B 09 B4 00 43 4D 50 20 23 24 30 30 00 39 09 |.+...CMP #$00.9.|
00008F10: BE 00 42 45 51 20 46 49 4C 4C 33 00 6B 09 C8 00 |..BEQ FILL3.k...|
00008F20: 53 54 41 20 4D 57 35 AA 33 3B 49 4E 43 8F 45 4E |STA MW5.3;INC.EN|
00008F30: 54 20 4C 4F 20 42 59 54 45 20 4D 2D 57 20 41 44 |T LO BYTE M-W AD|
00008F40: 44 52 45 53 53 20 42 59 20 23 24 32 30 00 79 09 |DRESS BY #$20.y.|
00008F50: D2 00 4A 53 52 20 55 4E 4C 49 53 00 86 09 DC 00 |..JSR UNLIS.....|
00008F60: 4A 4D 50 20 46 49 4C 4C 00 A3 09 E6 00 46 49 4C |JMP FILL.....FIL|
00008F70: 4C 33 20 4C 44 41 20 23 24 30 30 3A 53 54 41 20 |L3 LDA #$00:STA |
00008F80: 4D 57 35 AA 33 00 CD 09 EB 00 49 4E 43 20 4D 57 |MW5.3.....INC MW|
00008F90: 35 AA 34 3B 49 4E 43 8F 45 4E 54 20 48 49 20 42 |5.4;INC.ENT HI B|
00008FA0: 59 54 45 20 4D 2D 57 20 41 44 44 52 45 53 53 00 |YTE M-W ADDRESS.|
00008FB0: DB 09 F0 00 4C 44 41 20 4D 57 35 AA 34 00 E8 09 |....LDA MW5.4...|
00008FC0: 04 01 43 4D 50 20 23 24 30 36 00 F6 09 0E 01 42 |..CMP #$06.....B|
00008FD0: 45 51 20 46 49 4C 4C 34 00 04 0A 22 01 4A 53 52 |EQ FILL4...".JSR|
00008FE0: 20 55 4E 4C 49 53 00 11 0A 2C 01 4A 4D 50 20 46 | UNLIS...,.JMP F|
00008FF0: 49 4C 4C 00 25 0A 36 01 46 49 4C 4C 34 20 4A 53 |ILL.%.6.FILL4 JS|
00009000: 52 20 55 4E 4C 49 53 00 4A 0A 40 01 4C 44 41 20 |R UNLIS.J.@.LDA |
00009010: 23 24 30 30 3A 53 54 41 20 4D 57 35 AA 33 3B 8C |#$00:STA MW5.3;.|
00009020: 20 4D AB 57 20 41 44 44 52 45 53 53 00 61 0A 45 | M.W ADDRESS.a.E|
00009030: 01 4C 44 41 20 23 24 30 33 3A 53 54 41 20 4D 57 |.LDA #$03:STA MW|
00009040: 35 AA 34 00 69 0A 4A 01 52 54 53 00 75 0A 4F 01 |5.4.i.J.RTS.u.O.|
00009050: AC B2 24 37 32 30 30 00 88 0A 54 01 2E 46 49 4C |..$7200...T..FIL|
00009060: 45 20 52 44 20 54 52 4B 20 38 00 00 00 4E 59 00 |E RD TRK 8...NY.|
00009070: 9E 08 46 00 43 50 59 20 23 24 30 36 00 AC 08 50 |..F.CPY #$06...P|
00009080: 00 42 4E 45 20 46 49 4C 4C 31 00 B9 08 5A 00 4C |.BNE FILL1...Z.L|
00009090: 44 59 20 23 24 30 30 00 CC 08 64 00 46 49 4C 4C |DY #$00...d.FILL|
000090A0: 32 20 4C 44 41 20 23 24 30 30 00 D8 08 6E 00 4A |2 LDA #$00...n.J|
000090B0: 53 52 20 4F 55 54 00 E0 08 78 00 49 4E 59 00 ED |SR OUT...x.INY..|
000090C0: 08 82 00 43 50 59 20 23 24 32 30 00 FB 08 8C 00 |...CPY #$20.....|
000090D0: 42 4E 45 20 46 49 4C 4C 32 00 03 09 01 08 0F 08 |BNE FILL2.......|
000090E0: 50 00 3B 52 44 20 54 52 4B 20 38 00 35 08 5F 00 |P.;RD TRK 8.5._.|
000090F0: 3B 43 91 56 45 52 54 20 35 20 42 59 54 45 53 20 |;C.VERT 5 BYTES |
00009100: 47 43 52 20 A4 20 34 20 42 59 54 45 53 20 48 45 |GCR . 4 BYTES HE|
00009110: 58 00 62 08 60 00 3B 81 20 45 58 41 4D 50 4C 45 |X.b.`.;. EXAMPLE|
00009120: 20 57 45 27 4C 4C 20 55 53 45 20 23 24 27 53 20 | WE'LL USE #$'S |
00009130: 35 32 20 35 36 20 45 35 20 32 39 20 36 42 00 91 |52 56 E5 29 6B..|
00009140: 08 64 00 47 43 52 20 4C 44 41 20 23 24 30 30 3B |.d.GCR LDA #$00;|
00009150: 53 45 54 20 5A 45 52 4F 20 50 41 47 45 20 49 4E |SET ZERO PAGE IN|
00009160: 44 45 58 20 41 44 44 52 45 53 53 45 53 00 9C 08 |DEX ADDRESSES...|
00009170: 6E 00 53 54 41 20 5A 31 00 A7 08 78 00 53 54 41 |n.STA Z1...x.STA|
00009180: 20 5A 34 00 B2 08 82 00 53 54 41 20 5A 33 00 C1 | Z4.....STA Z3..|
00009190: 08 8C 00 4C 44 41 20 23 B1 47 43 52 31 00 CC 08 |...LDA #.GCR1...|
000091A0: 96 00 53 54 41 20 5A 32 00 DA 08 A0 00 4C 31 20 |..STA Z2.....L1 |
000091B0: 4A 53 52 20 41 41 00 E5 08 AA 00 53 54 59 20 5A |JSR AA.....STY Z|
000091C0: 34 00 01 09 B4 00 43 50 59 20 23 24 43 43 3B 20 |4.....CPY #$CC; |
000091D0: 31 53 54 20 32 30 34 20 42 59 54 45 53 00 0C 09 |1ST 204 BYTES...|
000091E0: BE 00 42 4E 45 20 4C 31 00 19 09 04 01 4C 44 41 |..BNE L1.....LDA|
000091F0: 20 23 24 30 30 00 24 09 0E 01 53 54 41 20 5A 31 | #$00.$...STA Z1|
00009200: 00 2F 09 18 01 53 54 41 20 5A 34 00 3A 09 22 01 |./...STA Z4.:.".|
00009210: 53 54 41 20 5A 33 00 47 09 2C 01 4C 44 59 20 23 |STA Z3.G.,.LDY #|
00009220: 24 46 46 00 54 09 36 01 4C 44 58 20 23 24 30 30 |$FF.T.6.LDX #$00|
00009230: 00 84 09 40 01 54 52 20 4C 44 41 20 47 43 52 31 |...@.TR LDA GCR1|
00009240: 2C 59 3B 20 4D 4F 56 45 20 4C 41 53 54 20 31 30 |,Y; MOVE LAST 10|
00009250: 32 20 42 59 54 45 53 20 A4 20 43 91 56 45 52 54 |2 BYTES . C.VERT|
00009260: 00 93 09 4A 01 53 54 41 20 47 43 52 31 2C 58 00 |...J.STA GCR1,X.|
00009270: B8 09 4F 01 4C 44 41 20 23 B1 47 43 52 31 3A 43 |..O.LDA #.GCR1:C|
00009280: 4C 43 3A 41 44 43 20 23 24 30 31 3A 53 54 41 20 |LC:ADC #$01:STA |
00009290: 54 52 AA 32 00 C4 09 54 01 49 4E 59 3A 49 4E 58 |TR.2...T.INY:INX|
000092A0: 00 CF 09 5E 01 42 4E 45 20 54 52 00 DC 09 63 01 |...^.BNE TR...c.|
000092B0: 4C 44 41 20 23 24 43 43 00 04 0A 68 01 53 54 41 |LDA #$CC...h.STA|
000092C0: 20 52 31 AA 31 3A 53 54 41 20 52 32 AA 31 3A 53 | R1.1:STA R2.1:S|
000092D0: 54 41 20 52 33 AA 31 3A 53 54 41 20 52 34 AA 31 |TA R3.1:STA R4.1|
000092E0: 00 12 0A 72 01 4C 32 20 4A 53 52 20 41 41 00 1D |...r.L2 JSR AA..|
000092F0: 0A 77 01 53 54 59 20 5A 34 00 2A 0A 7C 01 43 50 |.w.STY Z4.*.|.CP|
00009300: 59 20 23 24 43 43 00 35 0A 81 01 42 4E 45 20 4C |Y #$CC.5...BNE L|
00009310: 32 00 42 0A 86 01 4C 44 41 20 23 24 30 30 00 6A |2.B...LDA #$00.j|
00009320: 0A 90 01 53 54 41 20 52 31 AA 31 3A 53 54 41 20 |...STA R1.1:STA |
00009330: 52 32 AA 31 3A 53 54 41 20 52 33 AA 31 3A 53 54 |R2.1:STA R3.1:ST|
00009340: 41 20 52 34 AA 31 00 82 0A 95 01 4C 44 41 20 23 |A R4.1.....LDA #|
00009350: B1 47 43 52 31 3A 53 54 41 20 54 52 AA 32 00 8E |.GCR1:STA TR.2..|
00009360: 0A 9A 01 57 52 4B 20 52 54 53 00 AA 0A B8 01 41 |...WRK RTS.....A|
00009370: 41 20 4C 44 59 20 5A 33 3B B2 20 45 51 55 41 4C |A LDY Z3;. EQUAL|
00009380: 53 20 5A 45 52 4F 00 C5 0A BD 01 3B 28 5A 31 29 |S ZERO.....;(Z1)|
00009390: 2C 59 20 50 4F B5 53 20 A4 20 24 37 44 30 30 2C |,Y PO.S . $7D00,|
000093A0: 59 00 E5 0A C2 01 4C 44 41 20 28 5A 31 29 2C 59 |Y.....LDA (Z1),Y|
000093B0: 3B 20 20 23 24 35 32 20 20 30 31 30 31 30 30 31 |; #$52 0101001|
000093C0: 30 00 03 0B CC 01 AF 20 23 24 46 38 3B 20 20 20 |0...... #$F8; |
000093D0: 20 20 20 20 20 20 20 31 31 31 31 31 30 30 30 00 | 11111000.|
000093E0: 3E 0B CE 01 3B 52 45 53 55 4C 54 AB AB AB AB AB |>...;RESULT.....|
000093F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009400: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009410: AB AB 30 31 30 31 30 30 30 30 00 5E 0B D6 01 4C |..01010000.^...L|
00009420: 53 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |SR; |
00009430: 20 20 30 30 31 30 31 30 30 30 00 7E 0B D7 01 4C | 00101000.~...L|
00009440: 53 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |SR; |
00009450: 20 20 30 30 30 31 30 31 30 30 00 A6 0B D8 01 4C | 00010100.....L|
00009460: 53 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |SR; |
00009470: 20 20 30 30 30 30 31 30 31 30 20 20 B2 20 23 24 | 00001010 . #$|
00009480: 30 41 00 B9 0B E0 01 53 54 41 20 47 43 52 33 3B |0A.....STA GCR3;|
00009490: 24 37 41 30 30 00 D9 0B EA 01 4C 44 41 20 28 5A |$7A00.....LDA (Z|
000094A0: 31 29 2C 59 3B 20 20 23 24 35 32 20 20 30 31 30 |1),Y; #$52 010|
000094B0: 31 30 30 31 30 00 F7 0B F4 01 AF 20 23 24 30 37 |10010...... #$07|
000094C0: 3B 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 |; 00000|
000094D0: 31 31 31 00 32 0C F5 01 3B 52 45 53 55 4C 54 AB |111.2...;RESULT.|
000094E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000094F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009500: AB AB AB AB AB AB 30 30 30 30 30 30 31 30 00 52 |......00000010.R|
00009510: 0C FE 01 41 53 4C 3B 20 20 20 20 20 20 20 20 20 |...ASL; |
00009520: 20 20 20 20 20 20 30 30 30 30 30 31 30 30 00 7A | 00000100.z|
00009530: 0C FF 01 41 53 4C 3B 20 20 20 20 20 20 20 20 20 |...ASL; |
00009540: 20 20 20 20 20 20 30 30 30 30 31 30 30 30 20 20 | 00001000 |
00009550: B2 20 23 24 30 38 00 8F 0C 08 02 53 54 41 20 47 |. #$08.....STA G|
00009560: 43 52 33 AA 31 3B 24 37 41 30 31 00 97 0C 12 02 |CR3.1;$7A01.....|
00009570: 49 4E 59 00 B7 0C 1C 02 4C 44 41 20 28 5A 31 29 |INY.....LDA (Z1)|
00009580: 2C 59 3B 20 20 23 24 35 36 20 20 30 31 30 31 30 |,Y; #$56 01010|
00009590: 31 31 30 00 D5 0C 26 02 AF 20 23 24 43 30 3B 20 |110...&.. #$C0; |
000095A0: 20 20 20 20 20 20 20 20 20 31 31 30 30 30 30 30 | 1100000|
000095B0: 30 00 10 0D 27 02 3B 52 45 53 55 4C 54 AB AB AB |0...'.;RESULT...|
000095C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000095D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000095E0: AB AB AB AB 30 31 30 30 30 30 30 30 00 3F 0D 2B |....01000000.?.+|
000095F0: 02 3B 20 43 41 52 52 59 20 46 4C 41 47 20 A8 20 |.; CARRY FLAG . |
00009600: 43 4C 45 41 52 45 44 20 41 20 31 20 57 49 4C 4C |CLEARED A 1 WILL|
00009610: 20 42 45 20 43 41 52 52 49 45 44 00 5F 0D 30 02 | BE CARRIED._.0.|
00009620: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009630: 20 20 20 31 30 30 30 30 30 30 30 00 7F 0D 31 02 | 10000000...1.|
00009640: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009650: 20 20 20 30 30 30 30 30 30 30 30 00 9F 0D 32 02 | 00000000...2.|
00009660: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009670: 20 20 20 30 30 30 30 30 30 30 31 00 BE 0D 3A 02 | 00000001...:.|
00009680: B0 41 20 47 43 52 33 AA 31 3B 20 20 23 24 30 38 |.A GCR3.1; #$08|
00009690: 20 20 30 30 30 30 31 30 30 30 00 01 0E 3F 02 3B | 00001000...?.;|
000096A0: 52 45 53 55 4C 54 AB AB AB AB AB AB AB AB AB AB |RESULT..........|
000096B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000096C0: AB AB AB AB AB AB AB AB AB AB AB AB AB 30 30 30 |.............000|
000096D0: 30 31 30 30 31 20 20 B2 20 23 24 30 39 00 10 0E |01001 . #$09...|
000096E0: 44 02 53 54 41 20 47 43 52 33 AA 31 00 30 0E 4E |D.STA GCR3.1.0.N|
000096F0: 02 4C 44 41 20 28 5A 31 29 2C 59 3B 20 20 23 24 |.LDA (Z1),Y; #$|
00009700: 35 36 20 20 30 31 30 31 30 31 31 30 00 4E 0E 58 |56 01010110.N.X|
00009710: 02 AF 20 23 24 33 45 3B 20 20 20 20 20 20 20 20 |.. #$3E; |
00009720: 20 20 30 30 31 31 31 31 31 30 00 89 0E 59 02 3B | 00111110...Y.;|
00009730: 52 45 53 55 4C 54 AB AB AB AB AB AB AB AB AB AB |RESULT..........|
00009740: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009750: AB AB AB AB AB AB AB AB AB AB AB AB AB 30 30 30 |.............000|
00009760: 31 30 31 31 30 00 B1 0E 62 02 4C 53 52 3B 20 20 |10110...b.LSR; |
00009770: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 | 000|
00009780: 30 31 30 31 31 20 20 B2 20 23 24 30 42 00 C6 0E |01011 . #$0B...|
00009790: 6C 02 53 54 41 20 47 43 52 33 AA 32 3B 24 37 41 |l.STA GCR3.2;$7A|
000097A0: 30 32 00 E6 0E 76 02 4C 44 41 20 28 5A 31 29 2C |02...v.LDA (Z1),|
000097B0: 59 3B 20 20 23 24 35 36 20 20 30 31 30 31 30 31 |Y; #$56 010101|
000097C0: 31 30 00 04 0F 80 02 AF 20 23 24 30 31 3B 20 20 |10...... #$01; |
000097D0: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 31 | 00000001|
000097E0: 00 3F 0F 85 02 3B 52 45 53 55 4C 54 AB AB AB AB |.?...;RESULT....|
000097F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009800: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009810: AB AB AB 30 30 30 30 30 30 30 30 00 5F 0F 8A 02 |...00000000._...|
00009820: 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ASL; |
00009830: 20 20 20 30 30 30 30 30 30 30 30 00 7F 0F 8B 02 | 00000000.....|
00009840: 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ASL; |
00009850: 20 20 20 30 30 30 30 30 30 30 30 00 9F 0F 8C 02 | 00000000.....|
00009860: 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ASL; |
00009870: 20 20 20 30 30 30 30 30 30 30 30 00 C7 0F 8D 02 | 00000000.....|
00009880: 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ASL; |
00009890: 20 20 20 30 30 30 30 30 30 30 30 20 20 B2 20 23 | 00000000 . #|
000098A0: 24 30 30 00 DC 0F 94 02 53 54 41 20 47 43 52 33 |$00.....STA GCR3|
000098B0: AA 33 3B 24 37 41 30 33 00 E4 0F 9E 02 49 4E 59 |.3;$7A03.....INY|
000098C0: 00 04 10 A8 02 4C 44 41 20 28 5A 31 29 2C 59 3B |.....LDA (Z1),Y;|
000098D0: 20 20 23 24 45 35 20 20 31 31 31 30 30 31 30 31 | #$E5 11100101|
000098E0: 00 22 10 B2 02 AF 20 23 24 46 30 3B 20 20 20 20 |.".... #$F0; |
000098F0: 20 20 20 20 20 20 31 31 31 31 30 30 30 30 00 5D | 11110000.]|
00009900: 10 B7 02 3B 52 45 53 55 4C 54 AB AB AB AB AB AB |...;RESULT......|
00009910: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009920: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009930: AB 31 31 31 30 30 30 30 30 00 7D 10 BC 02 4C 53 |.11100000.}...LS|
00009940: 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R; |
00009950: 20 30 31 31 31 30 30 30 30 00 9D 10 BD 02 4C 53 | 01110000.....LS|
00009960: 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R; |
00009970: 20 30 30 31 31 31 30 30 30 00 BD 10 BE 02 4C 53 | 00111000.....LS|
00009980: 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R; |
00009990: 20 30 30 30 31 31 31 30 30 00 E5 10 BF 02 4C 53 | 00011100.....LS|
000099A0: 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R; |
000099B0: 20 30 30 30 30 31 31 31 30 20 20 B2 20 23 24 30 | 00001110 . #$0|
000099C0: 45 00 04 11 C6 02 B0 41 20 47 43 52 33 AA 33 3B |E......A GCR3.3;|
000099D0: 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 | 00000000|
000099E0: 00 47 11 CB 02 3B 52 45 53 55 4C 54 AB AB AB AB |.G...;RESULT....|
000099F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009A00: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009A10: AB AB AB 30 30 30 30 31 31 31 30 20 20 B2 20 23 |...00001110 . #|
00009A20: 24 30 45 00 5C 11 D0 02 53 54 41 20 47 43 52 33 |$0E.\...STA GCR3|
00009A30: AA 33 3B 24 37 41 30 33 00 7C 11 DA 02 4C 44 41 |.3;$7A03.|...LDA|
00009A40: 20 28 5A 31 29 2C 59 3B 20 20 23 24 45 35 20 20 | (Z1),Y; #$E5 |
00009A50: 31 31 31 30 30 31 30 31 00 9A 11 E4 02 AF 20 23 |11100101...... #|
00009A60: 24 30 46 3B 20 20 20 20 20 20 20 20 20 20 30 30 |$0F; 00|
00009A70: 30 30 31 31 31 31 00 D5 11 E9 02 3B 52 45 53 55 |001111.....;RESU|
00009A80: 4C 54 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |LT..............|
00009A90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009AA0: AB AB AB AB AB AB AB AB AB 30 30 30 30 30 31 30 |.........0000010|
00009AB0: 31 00 FD 11 EE 02 41 53 4C 3B 20 20 20 20 20 20 |1.....ASL; |
00009AC0: 20 20 20 20 20 20 20 20 20 30 30 30 30 31 30 31 | 0000101|
00009AD0: 30 20 20 B2 20 23 24 30 41 00 12 12 F8 02 53 54 |0 . #$0A.....ST|
00009AE0: 41 20 47 43 52 33 AA 34 3B 24 37 41 30 34 00 1A |A GCR3.4;$7A04..|
00009AF0: 12 02 03 49 4E 59 00 3A 12 0C 03 4C 44 41 20 28 |...INY.:...LDA (|
00009B00: 5A 31 29 2C 59 3B 20 20 23 24 32 39 20 20 30 30 |Z1),Y; #$29 00|
00009B10: 31 30 31 30 30 31 00 58 12 16 03 AF 20 23 24 38 |101001.X.... #$8|
00009B20: 30 3B 20 20 20 20 20 20 20 20 20 20 31 30 30 30 |0; 1000|
00009B30: 30 30 30 30 00 93 12 1B 03 3B 52 45 53 55 4C 54 |0000.....;RESULT|
00009B40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009B50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009B60: AB AB AB AB AB AB AB 30 30 30 30 30 30 30 30 00 |.......00000000.|
00009B70: 9B 12 20 03 43 4C 43 00 BB 12 2A 03 52 4F 4C 3B |.. .CLC...*.ROL;|
00009B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00009B90: 30 30 30 30 30 30 30 00 DB 12 2B 03 52 4F 4C 3B |0000000...+.ROL;|
00009BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00009BB0: 30 30 30 30 30 30 30 00 FA 12 34 03 B0 41 20 47 |0000000...4..A G|
00009BC0: 43 52 33 AA 34 3B 20 20 23 24 30 41 20 20 30 30 |CR3.4; #$0A 00|
00009BD0: 30 30 31 30 31 30 00 3D 13 39 03 3B 52 45 53 55 |001010.=.9.;RESU|
00009BE0: 4C 54 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |LT..............|
00009BF0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009C00: AB AB AB AB AB AB AB AB AB 30 30 30 30 31 30 31 |.........0000101|
00009C10: 30 20 20 B2 20 23 24 30 41 00 52 13 3E 03 53 54 |0 . #$0A.R.>.ST|
00009C20: 41 20 47 43 52 33 AA 34 3B 24 37 41 30 34 00 72 |A GCR3.4;$7A04.r|
00009C30: 13 48 03 4C 44 41 20 28 5A 31 29 2C 59 3B 20 20 |.H.LDA (Z1),Y; |
00009C40: 23 24 32 39 20 20 30 30 31 30 31 30 30 31 00 90 |#$29 00101001..|
00009C50: 13 52 03 AF 20 23 24 37 43 3B 20 20 20 20 20 20 |.R.. #$7C; |
00009C60: 20 20 20 20 30 31 31 31 31 31 30 30 00 CB 13 57 | 01111100...W|
00009C70: 03 3B 52 45 53 55 4C 54 AB AB AB AB AB AB AB AB |.;RESULT........|
00009C80: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009C90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 30 |...............0|
00009CA0: 30 31 30 31 30 30 30 00 EB 13 5C 03 4C 53 52 3B |0101000...\.LSR;|
00009CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00009CC0: 30 30 31 30 31 30 30 00 13 14 5D 03 4C 53 52 3B |0010100...].LSR;|
00009CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00009CE0: 30 30 30 31 30 31 30 20 20 B2 20 23 24 30 41 00 |0001010 . #$0A.|
00009CF0: 28 14 66 03 53 54 41 20 47 43 52 33 AA 35 3B 24 |(.f.STA GCR3.5;$|
00009D00: 37 30 41 35 00 48 14 70 03 4C 44 41 20 28 5A 31 |70A5.H.p.LDA (Z1|
00009D10: 29 2C 59 3B 20 20 23 24 32 39 20 20 30 30 31 30 |),Y; #$29 0010|
00009D20: 31 30 30 31 00 66 14 7A 03 AF 20 23 30 33 3B 20 |1001.f.z.. #03; |
00009D30: 20 20 20 20 20 20 20 20 20 20 30 30 30 30 30 30 | 000000|
00009D40: 31 31 00 A1 14 7F 03 3B 52 45 53 55 4C 54 AB AB |11.....;RESULT..|
00009D50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009D60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009D70: AB AB AB AB AB 30 30 30 30 30 30 30 31 00 C1 14 |.....00000001...|
00009D80: 84 03 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 |..ASL; |
00009D90: 20 20 20 20 20 30 30 30 30 30 30 31 30 00 E1 14 | 00000010...|
00009DA0: 85 03 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 |..ASL; |
00009DB0: 20 20 20 20 20 30 30 30 30 30 31 30 30 00 09 15 | 00000100...|
00009DC0: 86 03 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 |..ASL; |
00009DD0: 20 20 20 20 20 30 30 30 30 31 30 30 30 20 20 B2 | 00001000 .|
00009DE0: 20 23 24 30 38 00 1E 15 8E 03 53 54 41 20 47 43 | #$08.....STA GC|
00009DF0: 52 33 AA 36 3B 24 37 41 30 36 00 26 15 98 03 49 |R3.6;$7A06.&...I|
00009E00: 4E 59 00 46 15 A2 03 4C 44 41 20 28 5A 31 29 2C |NY.F...LDA (Z1),|
00009E10: 59 3B 20 20 23 24 36 42 20 20 30 31 31 30 31 30 |Y; #$6B 011010|
00009E20: 31 31 00 64 15 AC 03 AF 20 23 24 45 30 3B 20 20 |11.d.... #$E0; |
00009E30: 20 20 20 20 20 20 20 20 31 31 31 30 30 30 30 30 | 11100000|
00009E40: 00 9F 15 B1 03 3B 52 45 53 55 4C 54 AB AB AB AB |.....;RESULT....|
00009E50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009E60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009E70: AB AB AB 30 31 31 30 30 30 30 30 00 BF 15 B6 03 |...01100000.....|
00009E80: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009E90: 20 20 20 31 31 30 30 30 30 30 30 00 DF 15 B7 03 | 11000000.....|
00009EA0: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009EB0: 20 20 20 31 30 30 30 30 30 30 30 00 FF 15 B8 03 | 10000000.....|
00009EC0: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009ED0: 20 20 20 30 30 30 30 30 30 30 31 00 1F 16 B9 03 | 00000001.....|
00009EE0: 52 4F 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ROL; |
00009EF0: 20 20 20 30 30 30 30 30 30 31 31 00 3E 16 C0 03 | 00000011.>...|
00009F00: B0 41 20 47 43 52 33 AA 36 3B 20 20 23 24 30 38 |.A GCR3.6; #$08|
00009F10: 20 20 30 30 30 30 31 30 30 30 00 81 16 C5 03 3B | 00001000.....;|
00009F20: 52 45 53 55 4C 54 AB AB AB AB AB AB AB AB AB AB |RESULT..........|
00009F30: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009F40: AB AB AB AB AB AB AB AB AB AB AB AB AB 30 30 30 |.............000|
00009F50: 30 31 30 31 31 20 20 B2 20 23 24 30 42 00 96 16 |01011 . #$0B...|
00009F60: CA 03 53 54 41 20 47 43 52 33 AA 36 3B 24 37 41 |..STA GCR3.6;$7A|
00009F70: 30 36 00 B6 16 D4 03 4C 44 41 20 28 5A 31 29 2C |06.....LDA (Z1),|
00009F80: 59 3B 20 20 23 24 36 42 20 20 30 31 31 30 31 30 |Y; #$6B 011010|
00009F90: 31 31 00 D4 16 DE 03 AF 20 23 24 31 46 3B 20 20 |11...... #$1F; |
00009FA0: 20 20 20 20 20 20 20 20 30 30 30 31 31 31 31 31 | 00011111|
00009FB0: 00 17 17 E3 03 3B 52 45 53 55 4C 54 AB AB AB AB |.....;RESULT....|
00009FC0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009FD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00009FE0: AB AB AB 30 30 30 30 31 30 31 31 20 20 B2 20 23 |...00001011 . #|
00009FF0: 24 30 42 00 2C 17 E8 03 53 54 41 20 47 43 52 33 |$0B.,...STA GCR3|
0000A000: AA 37 3B 24 37 41 30 37 00 34 17 F2 03 49 4E 59 |.7;$7A07.4...INY|
0000A010: 00 3F 17 FC 03 53 54 59 20 5A 33 00 4A 17 06 04 |.?...STY Z3.J...|
0000A020: 4C 44 59 20 5A 34 00 5F 17 10 04 4C 44 58 20 47 |LDY Z4._...LDX G|
0000A030: 43 52 33 3B 20 20 20 23 24 30 41 00 7E 17 1A 04 |CR3; #$0A.~...|
0000A040: 4C 44 41 20 47 43 52 34 2C 58 3B 20 23 24 30 30 |LDA GCR4,X; #$00|
0000A050: 20 20 30 30 30 30 30 30 30 30 00 93 17 24 04 4C | 00000000...$.L|
0000A060: 44 58 20 47 43 52 33 AA 31 3B 20 23 24 30 39 00 |DX GCR3.1; #$09.|
0000A070: B1 17 2E 04 B0 41 20 47 43 52 35 2C 58 3B 20 23 |.....A GCR5,X; #|
0000A080: 24 30 38 20 20 30 30 30 30 31 30 30 30 00 FC 17 |$08 00001000...|
0000A090: 33 04 3B 52 45 53 55 4C 54 AB AB AB AB AB AB AB |3.;RESULT.......|
0000A0A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A0B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 30 30 |..............00|
0000A0C0: 30 30 31 30 30 30 20 20 B2 20 23 24 30 38 20 48 |001000 . #$08 H|
0000A0D0: 45 41 44 45 52 20 49 44 00 0D 18 38 04 52 31 20 |EADER ID...8.R1 |
0000A0E0: 53 54 41 20 48 45 58 2C 59 00 15 18 42 04 49 4E |STA HEX,Y...B.IN|
0000A0F0: 59 00 2A 18 4C 04 4C 44 58 20 47 43 52 33 AA 32 |Y.*.L.LDX GCR3.2|
0000A100: 3B 20 23 24 30 42 00 49 18 56 04 4C 44 41 20 47 |; #$0B.I.V.LDA G|
0000A110: 43 52 34 2C 58 3B 20 23 24 31 30 20 20 30 30 30 |CR4,X; #$10 000|
0000A120: 31 30 30 30 30 00 5E 18 60 04 4C 44 58 20 47 43 |10000.^.`.LDX GC|
0000A130: 52 33 AA 33 3B 20 23 24 30 45 00 7C 18 6A 04 B0 |R3.3; #$0E.|.j..|
0000A140: 41 20 47 43 52 35 2C 58 3B 20 20 20 20 20 20 20 |A GCR5,X; |
0000A150: 30 30 30 30 30 31 30 30 00 C6 18 6F 04 3B 52 45 |00000100...o.;RE|
0000A160: 53 55 4C 54 AB AB AB AB AB AB AB AB AB AB AB AB |SULT............|
0000A170: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A180: AB AB AB AB AB AB AB AB AB 30 30 30 31 30 31 30 |.........0001010|
0000A190: 30 20 20 B2 20 23 24 31 34 20 43 48 45 43 4B 53 |0 . #$14 CHECKS|
0000A1A0: 55 4D 00 D7 18 74 04 52 32 20 53 54 41 20 48 45 |UM...t.R2 STA HE|
0000A1B0: 58 2C 59 00 DF 18 7E 04 49 4E 59 00 F4 18 88 04 |X,Y...~.INY.....|
0000A1C0: 4C 44 58 20 47 43 52 33 AA 34 3B 20 23 24 30 41 |LDX GCR3.4; #$0A|
0000A1D0: 00 13 19 92 04 4C 44 41 20 47 43 52 34 2C 58 3B |.....LDA GCR4,X;|
0000A1E0: 20 23 24 30 30 20 20 30 30 30 30 30 30 30 30 00 | #$00 00000000.|
0000A1F0: 28 19 9C 04 4C 44 58 20 47 43 52 33 AA 35 3B 20 |(...LDX GCR3.5; |
0000A200: 23 24 30 41 00 46 19 A6 04 B0 41 20 47 43 52 35 |#$0A.F....A GCR5|
0000A210: 2C 58 3B 20 20 20 20 20 20 20 30 30 30 30 30 30 |,X; 000000|
0000A220: 30 30 00 8D 19 AB 04 3B 52 45 53 55 4C 54 AB AB |00.....;RESULT..|
0000A230: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A240: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A250: AB AB AB 30 30 30 30 30 30 30 30 20 20 B2 20 23 |...00000000 . #|
0000A260: 24 30 30 20 53 45 43 A4 52 00 9E 19 B0 04 52 33 |$00 SEC.R.....R3|
0000A270: 20 53 54 41 20 48 45 58 2C 59 00 A6 19 BA 04 49 | STA HEX,Y.....I|
0000A280: 4E 59 00 BB 19 C4 04 4C 44 58 20 47 43 52 33 AA |NY.....LDX GCR3.|
0000A290: 36 3B 20 23 24 30 41 00 DA 19 CE 04 4C 44 41 20 |6; #$0A.....LDA |
0000A2A0: 47 43 52 34 2C 58 3B 20 23 24 31 30 20 20 30 30 |GCR4,X; #$10 00|
0000A2B0: 30 31 30 30 30 30 00 EF 19 D8 04 4C 44 58 20 47 |010000.....LDX G|
0000A2C0: 43 52 33 AA 37 3B 20 23 24 30 42 00 0D 1A E2 04 |CR3.7; #$0B.....|
0000A2D0: B0 41 20 47 43 52 35 2C 58 3B 20 20 20 20 20 20 |.A GCR5,X; |
0000A2E0: 20 30 30 30 30 30 30 30 31 00 54 1A E7 04 3B 52 | 00000001.T...;R|
0000A2F0: 45 53 55 4C 54 AB AB AB AB AB AB AB AB AB AB AB |ESULT...........|
0000A300: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A310: AB AB AB AB AB AB AB AB AB AB 30 30 30 31 30 30 |..........000100|
0000A320: 30 31 20 20 B2 20 23 24 31 31 20 54 52 41 43 4B |01 . #$11 TRACK|
0000A330: 00 65 1A EC 04 52 34 20 53 54 41 20 48 45 58 2C |.e...R4 STA HEX,|
0000A340: 59 00 6D 1A F6 04 49 4E 59 00 78 1A 00 05 53 54 |Y.m...INY.x...ST|
0000A350: 59 20 5A 34 00 80 1A 3C 05 52 54 53 00 93 1A 46 |Y Z4...<.RTS...F|
0000A360: 05 2E 46 49 4C 45 20 52 44 20 54 52 4B 20 39 00 |..FILE RD TRK 9.|
0000A370: 00 00 AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
0000A380: AB AB AB AB AB 30 30 30 31 30 31 30 30 20 20 B2 |.....00010100 .|
0000A390: 20 23 24 31 34 20 43 48 45 43 4B 53 55 4D 00 D7 | #$14 CHECKSUM..|
0000A3A0: 18 74 04 52 32 20 53 54 41 20 48 45 58 2C 59 00 |.t.R2 STA HEX,Y.|
0000A3B0: DF 18 7E 04 49 4E 01 08 0F 08 0A 00 3B 52 44 20 |..~.IN......;RD |
0000A3C0: 54 52 4B 20 39 00 4F 08 14 00 3B 54 48 45 20 9B |TRK 9.O...;THE .|
0000A3D0: 45 4E 20 52 4F 55 54 49 4E 45 20 41 4C 45 52 54 |EN ROUTINE ALERT|
0000A3E0: 53 20 54 48 45 20 44 49 53 4B 20 54 48 41 54 20 |S THE DISK THAT |
0000A3F0: 41 20 43 4F 4D 4D AF 20 49 53 20 42 45 49 4E 47 |A COMM. IS BEING|
0000A400: 20 53 45 4E 54 00 92 08 1E 00 3B 4F 56 45 52 20 | SENT.....;OVER |
0000A410: 54 48 45 20 53 45 52 49 41 4C 20 42 55 53 2E 20 |THE SERIAL BUS. |
0000A420: 54 48 49 53 20 43 4F 4D 4D AF 20 49 53 20 50 4C |THIS COMM. IS PL|
0000A430: 41 43 45 44 20 49 4E 20 54 48 45 20 31 35 34 31 |ACED IN THE 1541|
0000A440: 27 53 20 43 4F 4D 4D AF 00 C2 08 28 00 3B 42 55 |'S COMM....(.;BU|
0000A450: 46 46 45 52 20 41 54 20 24 30 32 30 30 20 49 54 |FFER AT $0200 IT|
0000A460: 20 49 53 20 A7 20 50 41 52 53 45 44 20 AF 20 45 | IS . PARSED . E|
0000A470: 58 45 43 55 54 45 44 2E 00 C8 08 32 00 3B 00 13 |XECUTED....2.;..|
0000A480: 09 3C 00 3B 54 48 45 20 54 41 4C 4B 20 52 4F 55 |.<.;THE TALK ROU|
0000A490: 54 49 4E 45 20 53 80 53 20 31 20 42 59 54 45 20 |TINE S.S 1 BYTE |
0000A4A0: 41 54 20 41 20 54 49 4D 45 20 46 52 4F 4D 20 54 |AT A TIME FROM T|
0000A4B0: 48 45 20 31 35 34 31 20 A4 20 54 48 45 20 36 34 |HE 1541 . THE 64|
0000A4C0: 20 4F 56 45 52 20 54 48 45 00 48 09 46 00 3B 53 | OVER THE.H.F.;S|
0000A4D0: 45 52 49 41 4C 20 42 55 53 2E 20 54 48 45 20 42 |ERIAL BUS. THE B|
0000A4E0: 59 54 45 20 49 53 20 48 45 4C 44 20 49 4E 20 54 |YTE IS HELD IN T|
0000A4F0: 48 45 20 41 20 52 45 47 49 53 54 45 52 2E 00 4E |HE A REGISTER..N|
0000A500: 09 50 00 3B 00 8E 09 5A 00 3B 42 4F 54 48 20 52 |.P.;...Z.;BOTH R|
0000A510: 4F 55 54 49 4E 45 53 20 52 45 51 55 49 52 45 20 |OUTINES REQUIRE |
0000A520: 54 48 41 54 20 41 20 53 45 43 91 44 41 52 59 20 |THAT A SEC.DARY |
0000A530: 41 44 44 52 45 53 53 20 42 45 20 53 50 45 43 8B |ADDRESS BE SPEC.|
0000A540: 49 45 44 2E 00 94 09 64 00 3B 00 A3 09 8C 00 49 |IED....d.;.....I|
0000A550: 4E 49 54 20 4A 53 52 20 9B 00 B5 09 96 00 4C 44 |NIT JSR ......LD|
0000A560: 41 20 23 24 34 39 3B 20 22 49 22 00 D7 09 A0 00 |A #$49; "I".....|
0000A570: 4A 53 52 20 4F 55 54 3B 20 53 80 20 31 20 42 59 |JSR OUT; S. 1 BY|
0000A580: 54 45 20 A4 20 54 48 45 20 31 35 34 31 00 E5 09 |TE . THE 1541...|
0000A590: AA 00 4A 53 52 20 55 4E 4C 49 53 00 ED 09 B4 00 |..JSR UNLIS.....|
0000A5A0: 52 54 53 00 01 0A E2 04 9B 20 4C 44 41 20 23 24 |RTS...... LDA #$|
0000A5B0: 30 38 3B 20 9B 45 4E 00 0D 0A EC 04 4A 53 52 20 |08; .EN.....JSR |
0000A5C0: 4C 49 53 00 1A 0A F6 04 4C 44 41 20 23 24 46 46 |LIS.....LDA #$FF|
0000A5D0: 00 28 0A 00 05 4A 53 52 20 4C 49 53 45 43 00 30 |.(...JSR LISEC.0|
0000A5E0: 0A 0A 05 52 54 53 00 42 0A 14 05 54 41 4C 4B 20 |...RTS.B...TALK |
0000A5F0: 4C 44 41 20 23 24 30 38 00 66 0A 1E 05 4A 53 52 |LDA #$08.f...JSR|
0000A600: 20 54 4C 4B 3B 20 A1 20 31 20 42 59 54 45 20 46 | TLK; . 1 BYTE F|
0000A610: 52 4F 4D 20 54 48 45 20 31 35 34 31 00 73 0A 28 |ROM THE 1541.s.(|
0000A620: 05 4C 44 41 20 23 24 46 46 00 82 0A 32 05 4A 53 |.LDA #$FF...2.JS|
0000A630: 52 20 54 4C 4B 53 45 43 00 8A 0A 3C 05 52 54 53 |R TLKSEC...<.RTS|
0000A640: 00 AE 0A 46 05 44 49 53 50 20 4C 44 59 20 23 24 |...F.DISP LDY #$|
0000A650: 30 30 3B 20 99 20 45 52 52 B0 53 20 A4 20 53 43 |00; . ERR.S . SC|
0000A660: 52 45 45 4E 00 C1 0A 50 05 55 54 20 4C 44 41 20 |REEN...P.UT LDA |
0000A670: 45 52 4D 45 53 2C 59 00 CE 0A 5A 05 43 4D 50 20 |ERMES,Y...Z.CMP |
0000A680: 23 24 30 30 00 DA 0A 64 05 42 45 51 20 55 54 31 |#$00...d.BEQ UT1|
0000A690: 00 E4 0A 6E 05 4A 53 52 20 99 00 EC 0A 73 05 49 |...n.JSR ....s.I|
0000A6A0: 4E 59 00 F7 0A 78 05 4A 4D 50 20 55 54 00 08 0B |NY...x.JMP UT...|
0000A6B0: D5 05 55 54 31 20 4C 44 41 20 23 24 32 30 00 12 |..UT1 LDA #$20..|
0000A6C0: 0B D6 05 4A 53 52 20 99 00 1F 0B DC 05 4C 44 59 |...JSR ......LDY|
0000A6D0: 20 23 24 30 30 00 31 0B E6 05 4C 50 31 31 20 4C | #$00.1...LP11 L|
0000A6E0: 44 41 20 23 24 33 30 00 3B 0B F0 05 4A 53 52 20 |DA #$30.;...JSR |
0000A6F0: 99 00 4A 0B FA 05 4C 44 41 20 42 55 46 46 2C 59 |..J...LDA BUFF,Y|
0000A700: 00 57 0B 04 06 43 4D 50 20 23 24 30 41 00 78 0B |.W...CMP #$0A.x.|
0000A710: 0E 06 42 43 43 20 4C 45 53 53 3B 20 42 59 54 45 |..BCC LESS; BYTE|
0000A720: 20 49 53 20 41 20 31 20 54 48 52 55 20 39 00 80 | IS A 1 THRU 9..|
0000A730: 0B 18 06 43 4C 43 00 A1 0B 22 06 41 44 43 20 23 |...CLC...".ADC #|
0000A740: 24 30 37 3B 20 41 44 44 20 37 20 A4 20 99 20 41 |$07; ADD 7 . . A|
0000A750: 20 54 48 52 55 20 46 00 AE 0B 2C 06 4C 45 53 53 | THRU F...,.LESS|
0000A760: 20 43 4C 43 00 BB 0B 36 06 41 44 43 20 23 24 33 | CLC...6.ADC #$3|
0000A770: 30 00 C5 0B 40 06 4A 53 52 20 99 00 D2 0B 4A 06 |0...@.JSR ....J.|
0000A780: 4C 44 41 20 23 24 32 30 00 DC 0B 54 06 4A 53 52 |LDA #$20...T.JSR|
0000A790: 20 99 00 E4 0B 5E 06 49 4E 59 00 F0 0B 68 06 43 | ....^.INY...h.C|
0000A7A0: 50 59 20 53 45 43 00 FD 0B 72 06 42 4E 45 20 4C |PY SEC...r.BNE L|
0000A7B0: 50 31 31 00 07 0C 7C 06 4A 53 52 20 99 00 13 0C |P11...|.JSR ....|
0000A7C0: 86 06 46 49 4E 20 52 54 53 00 4B 0C 90 06 43 48 |..FIN RTS.K...CH|
0000A7D0: 4B 45 52 52 20 4A 53 52 20 9B 3B 92 20 81 20 43 |KERR JSR .;. . C|
0000A7E0: 4F 4D 4D AF 20 A4 20 42 45 20 52 45 50 4C 41 43 |OMM. . BE REPLAC|
0000A7F0: 45 44 20 57 49 54 48 20 45 52 52 B0 20 43 4F 44 |ED WITH ERR. COD|
0000A800: 45 00 58 0C 9A 06 4C 44 59 20 23 24 30 30 00 6B |E.X...LDY #$00.k|
0000A810: 0C A4 06 43 48 4B 31 20 4C 44 41 20 4D 52 32 2C |...CHK1 LDA MR2,|
0000A820: 59 00 77 0C AE 06 4A 53 52 20 4F 55 54 00 7F 0C |Y.w...JSR OUT...|
0000A830: B8 06 49 4E 59 00 8C 0C C2 06 43 50 59 20 23 24 |..INY.....CPY #$|
0000A840: 30 36 00 99 0C CC 06 42 4E 45 20 43 48 4B 31 00 |06.....BNE CHK1.|
0000A850: A7 0C D6 06 4A 53 52 20 55 4E 4C 49 53 00 B4 0C |....JSR UNLIS...|
0000A860: E0 06 4A 53 52 20 54 41 4C 4B 00 BF 0C EA 06 4A |..JSR TALK.....J|
0000A870: 53 52 20 49 4E 00 CB 0C F4 06 53 54 41 20 45 52 |SR IN.....STA ER|
0000A880: 52 00 D9 0C FE 06 4A 53 52 20 55 4E 54 4C 4B 00 |R.....JSR UNTLK.|
0000A890: E5 0C 08 07 4C 44 41 20 45 52 52 00 15 0D 12 07 |....LDA ERR.....|
0000A8A0: 42 4D 49 20 43 48 4B 45 52 52 3B 20 53 45 56 45 |BMI CHKERR; SEVE|
0000A8B0: 4E 54 48 20 42 49 54 20 53 45 54 20 22 4E 4F 20 |NTH BIT SET "NO |
0000A8C0: 45 52 52 4F 52 20 43 4F 44 45 22 00 1D 0D 1C 07 |ERROR CODE".....|
0000A8D0: 52 54 53 00 31 0D 6C 07 2E 46 49 4C 45 20 52 44 |RTS.1.l..FILE RD|
0000A8E0: 20 54 52 4B 20 31 30 00 00 00 30 07 54 52 4B 20 | TRK 10...0.TRK |
0000A8F0: 45 52 52 B0 00 00 00 31 20 54 52 4B 20 45 52 52 |ERR....1 TRK ERR|
0000A900: B0 00 00 00 20 45 52 52 B0 01 00 00 FF FF 00 00 |.... ERR........|
0000A910: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A920: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A930: FF FF 00 00 F7 FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A940: FF FF 00 00 FF FF 00 00 F3 FF 00 00 FF F3 00 00 |................|
0000A950: FF FF 08 00 FF FF 5E 02 F7 FF 00 00 FF FF 00 00 |......^.........|
0000A960: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A970: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A980: F3 FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A990: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A9A0: FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 |................|
0000A9B0: FF FF 7C 06 4A 53 52 20 99 00 13 0C 86 06 46 49 |..|.JSR ......FI|
0000A9C0: 4E 20 52 54 53 00 4B 0C 90 06 43 48 4B 45 52 52 |N RTS.K...CHKERR|
0000A9D0: 20 4A 53 52 20 9B 3B 92 20 81 20 43 4F 4D 4D AF | JSR .;. . COMM.|
0000A9E0: 20 A4 20 42 45 20 52 45 50 4C 41 43 45 44 20 57 | . BE REPLACED W|
0000A9F0: 49 54 48 20 45 52 52 B0 20 43 4F 44 45 00 58 0C |ITH ERR. CODE.X.|
0000AA00: 9A 06 4C 44 59 20 23 24 30 30 00 6B 0C A4 06 43 |..LDY #$00.k...C|
0000AA10: 48 4B 31 20 4C 44 41 20 4D 52 32 2C 59 00 77 0C |HK1 LDA MR2,Y.w.|
0000AA20: AE 06 4A 53 52 20 4F 55 54 00 7F 0C B8 06 49 4E |..JSR OUT.....IN|
0000AA30: 59 00 8C 0C C2 06 43 50 59 20 23 24 30 36 00 99 |Y.....CPY #$06..|
0000AA40: 0C CC 06 42 4E 45 20 43 48 4B 31 00 A7 0C D6 06 |...BNE CHK1.....|
0000AA50: 4A 53 52 20 55 4E 4C 49 53 00 B4 0C E0 06 4A 53 |JSR UNLIS.....JS|
0000AA60: 52 20 54 41 4C 4B 00 BF 0C EA 06 4A 53 52 20 49 |R TALK.....JSR I|
0000AA70: 4E 00 CB 0C F4 06 53 54 41 20 45 52 52 00 D9 0C |N.....STA ERR...|
0000AA80: FE 06 4A 53 52 20 55 4E 54 4C 4B 00 E5 0C 08 07 |..JSR UNTLK.....|
0000AA90: 4C 44 41 20 45 52 52 00 15 0D 12 07 42 4D 49 20 |LDA ERR.....BMI |
0000AAA0: 43 48 4B 45 52 52 3B 20 01 08 10 08 0A 00 3B 52 |CHKERR; ......;R|
0000AAB0: 44 20 44 53 4B 20 31 30 00 41 08 90 01 52 44 44 |D DSK 10.A...RDD|
0000AAC0: 53 4B 20 4C 44 41 20 23 24 30 30 3B 20 87 20 44 |SK LDA #$00; . D|
0000AAD0: 49 53 4B 20 42 55 46 46 45 52 53 20 24 30 34 30 |ISK BUFFERS $040|
0000AAE0: 30 20 26 20 24 30 35 30 30 00 62 08 9A 01 53 54 |0 & $0500.b...ST|
0000AAF0: 41 20 41 3B 20 43 4F 55 4E 54 45 52 20 81 20 54 |A A; COUNTER . T|
0000AB00: 57 4F 20 42 55 46 46 45 52 53 00 6F 08 A4 01 52 |WO BUFFERS.o...R|
0000AB10: 44 20 4A 53 52 20 9B 00 7C 08 AE 01 4C 44 59 20 |D JSR ..|...LDY |
0000AB20: 23 24 30 30 00 8F 08 B8 01 4C 50 32 33 20 4C 44 |#$00.....LP23 LD|
0000AB30: 41 20 4D 52 31 2C 59 00 9B 08 C2 01 4A 53 52 20 |A MR1,Y.....JSR |
0000AB40: 4F 55 54 00 A3 08 CC 01 49 4E 59 00 B0 08 D6 01 |OUT.....INY.....|
0000AB50: 43 50 59 20 23 24 30 36 00 BD 08 E0 01 42 4E 45 |CPY #$06.....BNE|
0000AB60: 20 4C 50 32 33 00 CB 08 EA 01 4A 53 52 20 55 4E | LP23.....JSR UN|
0000AB70: 4C 49 53 00 D8 08 F4 01 4A 53 52 20 54 41 4C 4B |LIS.....JSR TALK|
0000AB80: 00 E5 08 FE 01 4C 44 59 20 23 24 30 30 00 0B 09 |.....LDY #$00...|
0000AB90: 08 02 4C 50 32 34 20 4A 53 52 20 49 4E 3B 20 A1 |..LP24 JSR IN; .|
0000ABA0: 20 41 20 42 59 54 45 20 26 20 50 55 54 20 49 4E | A BYTE & PUT IN|
0000ABB0: 20 36 34 00 30 09 12 02 42 46 31 20 53 54 41 20 | 64.0...BF1 STA |
0000ABC0: 47 43 52 31 2C 59 3B 20 47 43 52 20 A4 20 48 45 |GCR1,Y; GCR . HE|
0000ABD0: 58 20 42 55 46 46 45 52 00 5B 09 17 02 42 46 32 |X BUFFER.[...BF2|
0000ABE0: 20 53 54 41 20 47 43 52 32 2C 59 3B 20 8B 20 A2 | STA GCR2,Y; . .|
0000ABF0: 20 53 45 43 A4 52 20 54 48 49 53 20 57 49 4C 4C | SEC.R THIS WILL|
0000AC00: 20 42 45 00 82 09 1C 02 49 4E 59 3B 20 54 52 41 | BE.....INY; TRA|
0000AC10: 4E 53 46 45 52 45 44 20 A4 20 83 20 42 55 46 46 |NSFERED . . BUFF|
0000AC20: 45 52 20 54 4F 20 53 41 56 45 00 8F 09 26 02 42 |ER TO SAVE...&.B|
0000AC30: 4E 45 20 4C 50 32 34 00 9D 09 27 02 4A 53 52 20 |NE LP24...'.JSR |
0000AC40: 55 4E 54 4C 4B 00 B5 09 28 02 4A 53 52 20 9B 3B |UNTLK...(.JSR .;|
0000AC50: 20 A1 20 42 59 54 45 20 23 20 32 35 36 00 E9 09 | . BYTE # 256...|
0000AC60: 29 02 4C 44 59 20 23 24 30 30 3B 20 54 41 4C 4B |).LDY #$00; TALK|
0000AC70: 20 49 53 20 4C 49 4D 49 54 45 44 20 A4 20 32 35 | IS LIMITED . 25|
0000AC80: 35 20 42 59 54 45 53 20 41 54 20 41 20 54 49 4D |5 BYTES AT A TIM|
0000AC90: 45 00 FB 09 2A 02 4C 42 20 4C 44 41 20 4D 52 4C |E...*.LB LDA MRL|
0000ACA0: 42 2C 59 00 07 0A 2B 02 4A 53 52 20 4F 55 54 00 |B,Y...+.JSR OUT.|
0000ACB0: 0F 0A 2C 02 49 4E 59 00 1C 0A 2D 02 43 50 59 20 |..,.INY...-.CPY |
0000ACC0: 23 24 30 36 00 27 0A 2E 02 42 4E 45 20 4C 42 00 |#$06.'...BNE LB.|
0000ACD0: 35 0A 2F 02 4A 53 52 20 55 4E 4C 49 53 00 42 0A |5./.JSR UNLIS.B.|
0000ACE0: 30 02 4A 53 52 20 54 41 4C 4B 00 4D 0A 31 02 4A |0.JSR TALK.M.1.J|
0000ACF0: 53 52 20 49 4E 00 5A 0A 32 02 4C 44 59 20 23 24 |SR IN.Z.2.LDY #$|
0000AD00: 46 46 00 69 0A 33 02 53 54 41 20 47 43 52 31 2C |FF.i.3.STA GCR1,|
0000AD10: 59 00 78 0A 34 02 53 54 41 20 47 43 52 32 2C 59 |Y.x.4.STA GCR2,Y|
0000AD20: 00 86 0A 35 02 4A 53 52 20 55 4E 54 4C 4B 00 B2 |...5.JSR UNTLK..|
0000AD30: 0A 43 02 49 4E 43 20 4D 52 31 AA 34 3B 20 49 4E |.C.INC MR1.4; IN|
0000AD40: 43 8F 45 4E 54 20 48 49 47 48 20 42 59 54 45 20 |C.ENT HIGH BYTE |
0000AD50: 4F 46 20 42 55 46 46 45 52 53 00 C0 0A 44 02 49 |OF BUFFERS...D.I|
0000AD60: 4E 43 20 42 46 31 AA 32 00 CE 0A 49 02 49 4E 43 |NC BF1.2...I.INC|
0000AD70: 20 42 46 32 AA 32 00 D8 0A 4E 02 49 4E 43 20 41 | BF2.2...N.INC A|
0000AD80: 00 E2 0A 58 02 4C 44 41 20 41 00 07 0B 62 02 43 |...X.LDA A...b.C|
0000AD90: 4D 50 20 23 24 30 32 3B 20 43 48 45 43 4B 20 8B |MP #$02; CHECK .|
0000ADA0: 20 42 4F 54 48 20 42 55 46 46 45 52 53 20 87 00 | BOTH BUFFERS ..|
0000ADB0: 13 0B 6C 02 42 45 51 20 52 44 31 00 1E 0B 76 02 |..l.BEQ RD1...v.|
0000ADC0: 4A 4D 50 20 52 44 00 4C 0B 80 02 52 44 31 20 44 |JMP RD.L...RD1 D|
0000ADD0: 45 43 20 42 46 31 AA 32 3B 20 52 45 53 45 54 20 |EC BF1.2; RESET |
0000ADE0: 48 49 47 48 20 42 59 54 45 20 4F 46 20 42 55 46 |HIGH BYTE OF BUF|
0000ADF0: 46 45 52 53 00 5A 0B 85 02 44 45 43 20 42 46 31 |FERS.Z...DEC BF1|
0000AE00: AA 32 00 68 0B 8A 02 44 45 43 20 42 46 32 AA 32 |.2.h...DEC BF2.2|
0000AE10: 00 76 0B 8F 02 44 45 43 20 42 46 32 AA 32 00 84 |.v...DEC BF2.2..|
0000AE20: 0B 94 02 44 45 43 20 4D 52 31 AA 34 00 92 0B 9E |...DEC MR1.4....|
0000AE30: 02 44 45 43 20 4D 52 31 AA 34 00 9F 0B A8 02 4C |.DEC MR1.4.....L|
0000AE40: 44 41 20 23 24 30 30 00 A9 0B B2 02 53 54 41 20 |DA #$00.....STA |
0000AE50: 41 00 B1 0B BC 02 52 54 53 00 C5 0B C6 02 2E 46 |A.....RTS......F|
0000AE60: 49 4C 45 20 52 44 20 54 52 4B 20 31 31 00 00 00 |ILE RD TRK 11...|
0000AE70: 4C 49 4D 49 54 45 44 20 A4 20 32 35 35 20 42 59 |LIMITED . 255 BY|
0000AE80: 54 45 53 20 41 54 20 41 20 54 49 4D 45 00 FB 09 |TES AT A TIME...|
0000AE90: 2A 02 4C 42 20 4C 44 41 20 4D 52 4C 42 2C 59 00 |*.LB LDA MRLB,Y.|
0000AEA0: 01 08 10 08 05 00 3B 52 44 20 54 52 4B 20 31 31 |......;RD TRK 11|
0000AEB0: 00 3A 08 0A 00 46 4D 54 20 4A 53 52 20 53 56 52 |.:...FMT JSR SVR|
0000AEC0: 45 47 3B 20 52 4F 55 54 49 4E 45 20 A4 20 50 4C |EG; ROUTINE . PL|
0000AED0: 41 43 45 20 48 45 41 44 45 52 00 5F 08 14 00 4C |ACE HEADER._...L|
0000AEE0: 44 59 20 23 24 30 32 3B 20 49 4E 20 50 52 4F 50 |DY #$02; IN PROP|
0000AEF0: 45 52 20 52 4F 57 20 41 54 20 24 37 46 58 58 00 |ER ROW AT $7FXX.|
0000AF00: 8A 08 1E 00 4C 44 41 20 48 45 58 2C 59 3B 20 54 |....LDA HEX,Y; T|
0000AF10: 48 49 53 20 49 53 20 54 48 45 20 53 45 43 A4 52 |HIS IS THE SEC.R|
0000AF20: 20 49 4E 20 48 45 41 44 45 52 00 C6 08 23 00 53 | IN HEADER...#.S|
0000AF30: 54 41 20 45 52 52 3B 20 55 53 45 44 20 49 4E 20 |TA ERR; USED IN |
0000AF40: 53 54 20 83 20 54 4F 20 50 4C 41 43 45 20 44 41 |ST . TO PLACE DA|
0000AF50: 54 41 20 49 4E 20 4E 55 4D 45 52 49 43 20 53 45 |TA IN NUMERIC SE|
0000AF60: 51 55 45 4E 43 45 00 02 09 24 00 3B 50 55 54 20 |QUENCE...$.;PUT |
0000AF70: 48 45 41 44 45 52 20 49 4E 20 4E 55 4D 45 52 49 |HEADER IN NUMERI|
0000AF80: 43 20 53 45 51 55 45 4E 43 45 2E 20 45 41 43 48 |C SEQUENCE. EACH|
0000AF90: 20 48 45 41 44 45 52 20 49 53 20 38 20 42 59 54 | HEADER IS 8 BYT|
0000AFA0: 45 53 00 2B 09 28 00 41 53 4C 3A 41 53 4C 3A 41 |ES.+.(.ASL:ASL:A|
0000AFB0: 53 4C 3B 20 4D 55 4C 54 49 50 4C 59 20 42 59 20 |SL; MULTIPLY BY |
0000AFC0: 38 20 8B 20 53 45 43 20 B2 20 33 00 45 09 32 00 |8 . SEC . 3.E.2.|
0000AFD0: 54 41 59 3B 20 A7 20 41 20 B2 20 23 32 34 20 B0 |TAY; . A . #24 .|
0000AFE0: 20 23 24 31 38 00 6E 09 3C 00 4C 44 41 20 48 44 | #$18.n.<.LDA HD|
0000AFF0: 42 55 46 2C 59 3B 20 8B 20 24 38 31 31 38 20 B2 |BUF,Y; . $8118 .|
0000B000: 20 30 20 49 54 53 20 41 20 A2 20 53 45 43 00 8E | 0 ITS A . SEC..|
0000B010: 09 46 00 42 45 51 20 57 52 54 3B 20 53 4F 20 41 |.F.BEQ WRT; SO A|
0000B020: 44 44 20 49 54 20 A4 20 42 55 46 46 45 52 00 9D |DD IT . BUFFER..|
0000B030: 09 47 00 4A 53 52 20 52 53 54 52 45 47 00 A5 09 |.G.JSR RSTREG...|
0000B040: 4B 00 52 54 53 00 CD 09 4C 00 57 52 54 20 4C 44 |K.RTS...L.WRT LD|
0000B050: 58 20 23 24 30 30 3B 20 57 52 49 54 45 20 48 45 |X #$00; WRITE HE|
0000B060: 41 44 45 52 20 A4 20 42 55 46 46 45 52 00 DF 09 |ADER . BUFFER...|
0000B070: 50 00 4D 52 45 20 4C 44 41 20 48 45 58 2C 58 00 |P.MRE LDA HEX,X.|
0000B080: EF 09 55 00 53 54 41 20 48 44 42 55 46 2C 59 00 |..U.STA HDBUF,Y.|
0000B090: F7 09 5A 00 49 4E 59 00 FF 09 5F 00 49 4E 58 00 |..Z.INY..._.INX.|
0000B0A0: 0C 0A 64 00 43 50 58 20 23 24 30 38 00 18 0A 6E |..d.CPX #$08...n|
0000B0B0: 00 42 4E 45 20 4D 52 45 00 41 0A 6F 00 4C 44 41 |.BNE MRE.A.o.LDA|
0000B0C0: 20 23 24 30 31 3B 20 53 45 54 20 53 45 43 20 46 | #$01; SET SEC F|
0000B0D0: 4C 41 47 20 53 4F 20 43 4F 55 4E 54 20 57 49 4C |LAG SO COUNT WIL|
0000B0E0: 4C 00 63 0A 70 00 53 54 41 20 53 45 43 46 4C 47 |L.c.p.STA SECFLG|
0000B0F0: 3B 20 42 45 20 44 45 43 8F 45 4E 54 45 44 20 42 |; BE DEC.ENTED B|
0000B100: 59 20 31 00 8E 0A 71 00 4C 44 41 20 45 52 52 3B |Y 1...q.LDA ERR;|
0000B110: 20 45 41 43 48 20 87 20 52 45 51 55 49 52 45 53 | EACH . REQUIRES|
0000B120: 20 54 57 4F 20 83 20 42 55 46 46 45 52 53 00 AF | TWO . BUFFERS..|
0000B130: 0A 72 00 41 53 4C 3B 20 8B 20 53 45 43 20 B2 20 |.r.ASL; . SEC . |
0000B140: 33 20 A7 20 54 49 4D 45 53 20 32 20 B2 20 36 00 |3 . TIMES 2 . 6.|
0000B150: B7 0A 73 00 43 4C 43 00 E5 0A 74 00 41 44 43 20 |..s.CLC...t.ADC |
0000B160: 23 24 31 30 3B 20 31 30 20 AA 20 36 20 B2 20 31 |#$10; 10 . 6 . 1|
0000B170: 36 20 48 49 47 48 20 42 59 54 45 20 4F 46 20 42 |6 HIGH BYTE OF B|
0000B180: 55 46 46 45 52 00 11 0B 75 00 43 4D 50 20 23 24 |UFFER...u.CMP #$|
0000B190: 33 42 3B 20 8B 20 53 45 43 20 B1 20 32 31 20 A7 |3B; . SEC . 21 .|
0000B1A0: 20 A8 20 C5 49 44 20 53 45 43 20 4E 55 4D 42 45 | . .ID SEC NUMBE|
0000B1B0: 52 00 1E 0B 76 00 42 43 53 20 46 4D 54 31 00 2D |R...v.BCS FMT1.-|
0000B1C0: 0B 77 00 53 54 41 20 53 54 44 31 AA 32 00 4F 0B |.w.STA STD1.2.O.|
0000B1D0: 80 00 4A 53 52 20 44 54 3B 20 57 52 49 54 45 20 |..JSR DT; WRITE |
0000B1E0: 42 59 54 45 53 20 A4 20 42 55 46 46 45 52 53 00 |BYTES . BUFFERS.|
0000B1F0: 71 0B 81 00 4A 53 52 20 52 53 54 52 45 47 3B 20 |q...JSR RSTREG; |
0000B200: A1 20 B0 49 47 49 4E 41 4C 20 41 20 58 20 26 20 |. .IGINAL A X & |
0000B210: 59 00 7E 0B 82 00 46 4D 54 31 20 52 54 53 00 92 |Y.~...FMT1 RTS..|
0000B220: 0B A0 00 2E 46 49 4C 45 20 52 44 20 54 52 4B 20 |....FILE RD TRK |
0000B230: 31 32 00 00 00 54 52 45 47 00 A5 09 4B 00 52 54 |12...TREG...K.RT|
0000B240: 53 00 CD 09 4C 00 57 52 54 20 4C 44 58 20 23 24 |S...L.WRT LDX #$|
0000B250: 30 30 3B 20 57 52 49 54 45 20 48 45 41 44 45 52 |00; WRITE HEADER|
0000B260: 20 A4 20 42 55 46 46 45 52 00 DF 09 50 00 4D 52 | . BUFFER...P.MR|
0000B270: 45 20 4C 44 41 20 48 45 58 2C 58 00 EF 09 55 00 |E LDA HEX,X...U.|
0000B280: 53 54 41 20 48 44 42 55 46 2C 59 00 F7 09 5A 00 |STA HDBUF,Y...Z.|
0000B290: 49 4E 59 00 FF 09 5F 00 01 08 10 08 0A 00 3B 52 |INY..._.......;R|
0000B2A0: 44 20 54 52 4B 20 31 32 00 35 08 14 00 9C 42 55 |D TRK 12.5....BU|
0000B2B0: 46 20 4C 44 41 20 23 24 30 30 3B 20 43 4C 45 41 |F LDA #$00; CLEA|
0000B2C0: 52 20 47 43 52 20 42 55 46 46 45 52 53 00 42 08 |R GCR BUFFERS.B.|
0000B2D0: 1E 00 4C 44 59 20 23 24 30 30 00 52 08 28 00 9C |..LDY #$00.R.(..|
0000B2E0: 20 53 54 41 20 48 45 58 2C 59 00 64 08 32 00 53 | STA HEX,Y.d.2.S|
0000B2F0: 54 41 20 48 45 58 AA 32 35 36 2C 59 00 73 08 3C |TA HEX.256,Y.s.<|
0000B300: 00 53 54 41 20 47 43 52 31 2C 59 00 86 08 46 00 |.STA GCR1,Y...F.|
0000B310: 53 54 41 20 47 43 52 31 AA 32 35 36 2C 59 00 95 |STA GCR1.256,Y..|
0000B320: 08 50 00 53 54 41 20 47 43 52 32 2C 59 00 A8 08 |.P.STA GCR2,Y...|
0000B330: 5A 00 53 54 41 20 47 43 52 32 AA 32 35 36 2C 59 |Z.STA GCR2.256,Y|
0000B340: 00 B7 08 5F 00 53 54 41 20 47 43 52 33 2C 59 00 |..._.STA GCR3,Y.|
0000B350: BF 08 6E 00 49 4E 59 00 C9 08 78 00 42 4E 45 20 |..n.INY...x.BNE |
0000B360: 9C 00 D1 08 82 00 52 54 53 00 E5 08 8C 00 2E 46 |......RTS......F|
0000B370: 49 4C 45 20 52 44 20 54 52 4B 20 31 33 00 00 00 |ILE RD TRK 13...|
0000B380: 48 44 52 00 00 00 0B D0 02 2E 46 49 4C 45 20 4C |HDR.......FILE L|
0000B390: 44 20 44 53 4B 20 01 08 10 08 0A 00 3B 52 44 20 |D DSK ......;RD |
0000B3A0: 54 52 4B 20 31 33 00 36 08 14 00 9C 48 44 20 4C |TRK 13.6....HD L|
0000B3B0: 44 41 20 23 24 30 30 3B 20 43 4C 45 41 52 20 48 |DA #$00; CLEAR H|
0000B3C0: 45 41 44 45 52 20 42 55 46 46 45 52 00 4C 08 1E |EADER BUFFER.L..|
0000B3D0: 00 4C 44 59 20 23 24 30 30 3B 20 81 20 4D B0 45 |.LDY #$00; . M.E|
0000B3E0: 20 83 00 60 08 28 00 43 4C 48 20 53 54 41 20 48 | ..`.(.CLH STA H|
0000B3F0: 44 42 55 46 2C 59 00 68 08 32 00 49 4E 59 00 74 |DBUF,Y.h.2.INY.t|
0000B400: 08 3C 00 42 4E 45 20 43 4C 48 00 7C 08 46 00 52 |.<.BNE CLH.|.F.R|
0000B410: 54 53 00 90 08 50 00 2E 46 49 4C 45 20 52 44 20 |TS...P..FILE RD |
0000B420: 54 52 4B 20 31 34 00 00 00 52 20 A1 00 A2 08 C8 |TRK 14...R .....|
0000B430: 00 42 45 51 20 4C 50 35 00 AC 08 D2 00 4A 53 52 |.BEQ LP5.....JSR|
0000B440: 20 99 00 BA 08 DC 00 53 54 41 20 54 52 4B AA 31 | ......STA TRK.1|
0000B450: 00 C6 08 E6 00 4C 44 41 20 54 52 4B 00 D1 08 F0 |.....LDA TRK....|
0000B460: 00 AF 20 23 24 30 46 00 DD 08 FA 00 53 54 41 20 |.. #$0F.....STA |
0000B470: 54 52 4B 00 E9 08 04 01 41 53 4C 3A 41 53 4C 00 |TRK.....ASL:ASL.|
0000B480: F1 08 0E 01 43 4C 43 00 FD 08 18 01 41 44 43 20 |....CLC.....ADC |
0000B490: 54 52 4B 00 01 08 10 08 0A 00 3B 52 44 20 54 52 |TRK.......;RD TR|
0000B4A0: 4B 20 31 34 00 3E 08 14 00 53 45 43 A4 52 20 4C |K 14.>...SEC.R L|
0000B4B0: 44 41 20 54 52 4B 3B 20 43 41 4C 43 55 4C 41 54 |DA TRK; CALCULAT|
0000B4C0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 53 45 43 A4 |E NUMBER OF SEC.|
0000B4D0: 52 53 00 5F 08 15 00 43 4D 50 20 23 24 32 34 3B |RS._...CMP #$24;|
0000B4E0: 20 91 20 54 52 41 43 4B 20 43 48 4F 53 45 4E 20 | . TRACK CHOSEN |
0000B4F0: A4 20 87 00 89 08 16 00 42 43 43 20 4E B0 4D 54 |. ......BCC N.MT|
0000B500: 3B 20 8B 20 54 52 41 43 4B 20 49 53 20 47 52 45 |; . TRACK IS GRE|
0000B510: 41 54 45 52 20 54 48 41 4E 20 23 33 35 00 AA 08 |ATER THAN #35...|
0000B520: 17 00 4C 44 58 20 23 24 30 30 3B 20 A7 20 53 45 |..LDX #$00; . SE|
0000B530: 54 20 53 45 43 A4 52 53 20 A4 20 23 31 37 00 B7 |T SEC.RS . #17..|
0000B540: 08 19 00 4A 4D 50 20 4F 56 45 52 00 DF 08 1E 00 |...JMP OVER.....|
0000B550: 4E B0 4D 54 20 4C 44 58 20 42 4F 55 4E 44 3B 20 |N.MT LDX BOUND; |
0000B560: 8B 20 4C 45 53 53 20 54 48 41 4E 20 23 33 35 20 |. LESS THAN #35 |
0000B570: 54 48 45 00 0F 09 28 00 4C 50 36 20 43 4D 50 20 |THE...(.LP6 CMP |
0000B580: 42 4F 55 4E 44 2C 58 3B 20 43 41 4C 43 55 4C 41 |BOUND,X; CALCULA|
0000B590: 54 45 20 4E 55 4D 42 45 52 20 4F 46 20 53 45 43 |TE NUMBER OF SEC|
0000B5A0: A4 52 53 00 17 09 32 00 44 45 58 00 23 09 3C 00 |.RS...2.DEX.#.<.|
0000B5B0: 42 43 53 20 4C 50 36 00 37 09 46 00 4F 56 45 52 |BCS LP6.7.F.OVER|
0000B5C0: 20 4C 44 41 20 A4 54 41 4C 2C 58 00 43 09 4B 00 | LDA .TAL,X.C.K.|
0000B5D0: 53 54 41 20 53 45 43 00 53 09 4C 00 53 54 41 20 |STA SEC.S.L.STA |
0000B5E0: 54 4B 53 45 43 AA 31 00 5B 09 5F 00 52 54 53 00 |TKSEC.1.[._.RTS.|
0000B5F0: 6F 09 82 00 2E 46 49 4C 45 20 52 44 20 54 52 4B |o....FILE RD TRK|
0000B600: 20 31 35 00 00 00 00 00 00 00 00 00 00 00 04 00 | 15.............|
0000B610: 00 00 82 15 04 52 44 20 54 52 4B 20 31 31 A0 A0 |.....RD TRK 11..|
0000B620: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 04 00 |................|
0000B630: 00 00 82 15 06 52 44 20 54 52 4B 20 31 32 A0 A0 |.....RD TRK 12..|
0000B640: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 01 00 |................|
0000B650: 00 00 82 15 07 52 44 20 54 52 4B 20 31 33 A0 A0 |.....RD TRK 13..|
0000B660: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 01 00 |................|
0000B670: 00 00 02 15 08 52 44 20 54 52 4B 20 31 34 A0 A0 |.....RD TRK 14..|
0000B680: A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 00 00 |................|
0000B690: 01 08 10 08 0A 00 3B 52 44 20 54 52 4B 20 31 35 |......;RD TRK 15|
0000B6A0: 00 37 08 14 00 44 54 20 4C 44 58 20 23 24 30 30 |.7...DT LDX #$00|
0000B6B0: 3B 20 53 A4 52 45 20 47 43 52 20 83 20 49 4E 20 |; S.RE GCR . IN |
0000B6C0: 42 55 46 46 45 52 53 00 49 08 1E 00 53 54 44 41 |BUFFERS.I...STDA|
0000B6D0: 20 4C 44 59 20 23 24 30 30 00 5C 08 28 00 53 54 | LDY #$00.\.(.ST|
0000B6E0: 44 20 4C 44 41 20 47 43 52 32 2C 59 00 69 08 29 |D LDA GCR2,Y.i.)|
0000B6F0: 00 43 4D 50 20 23 24 30 30 00 76 08 2A 00 42 45 |.CMP #$00.v.*.BE|
0000B700: 51 20 53 54 44 33 00 A9 08 32 00 53 54 44 31 20 |Q STD3...2.STD1 |
0000B710: 53 54 41 20 24 30 30 30 30 2C 59 3B 20 48 49 47 |STA $0000,Y; HIG|
0000B720: 48 20 42 59 54 45 20 52 45 50 4C 41 43 45 44 20 |H BYTE REPLACED |
0000B730: 46 52 4F 4D 20 81 4D 41 54 00 B1 08 3C 00 49 4E |FROM .MAT...<.IN|
0000B740: 59 00 BD 08 46 00 42 4E 45 20 53 54 44 00 C5 08 |Y...F.BNE STD...|
0000B750: 50 00 49 4E 58 00 D2 08 5A 00 43 50 58 20 23 24 |P.INX...Z.CPX #$|
0000B760: 30 32 00 FD 08 64 00 42 45 51 20 53 54 44 32 3B |02...d.BEQ STD2;|
0000B770: 20 49 4E 43 8F 45 4E 54 20 48 49 47 48 20 42 59 | INC.ENT HIGH BY|
0000B780: 54 45 20 4F 46 20 42 55 46 46 45 52 53 00 0B 09 |TE OF BUFFERS...|
0000B790: 6E 00 49 4E 43 20 53 54 44 AA 32 00 1A 09 8C 00 |n.INC STD.2.....|
0000B7A0: 49 4E 43 20 53 54 44 31 AA 32 00 27 09 AA 00 4A |INC STD1.2.'...J|
0000B7B0: 4D 50 20 53 54 44 41 00 56 09 36 01 53 54 44 32 |MP STDA.V.6.STD2|
0000B7C0: 20 4C 44 41 20 23 B1 47 43 52 32 3B 20 8C 20 48 | LDA #.GCR2; . H|
0000B7D0: 49 47 48 20 42 59 54 45 20 4F 46 20 47 43 52 20 |IGH BYTE OF GCR |
0000B7E0: 42 55 46 46 45 52 00 64 09 40 01 53 54 41 20 53 |BUFFER.d.@.STA S|
0000B7F0: 54 44 AA 32 00 71 09 4A 01 53 54 44 33 20 52 54 |TD.2.q.J.STD3 RT|
0000B800: 53 00 85 09 E8 03 2E 46 49 4C 45 20 52 44 20 54 |S......FILE RD T|
0000B810: 52 4B 20 31 36 00 00 00 54 41 42 4C 45 53 A0 A0 |RK 16...TABLES..|
0000B820: A0 00 00 00 00 00 00 00 00 00 08 00 00 00 82 0E |................|
0000B830: 0C 42 41 4D 20 45 51 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.BAM EQ.........|
0000B840: A0 00 00 00 00 00 00 00 00 00 02 00 00 00 82 0E |................|
0000B850: 14 42 41 4D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.BAM............|
0000B860: A0 00 00 00 00 00 00 00 00 00 01 00 00 00 82 16 |................|
0000B870: 00 42 41 4D 4D 20 31 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.BAMM 1.........|
0000B880: A0 00 00 00 00 00 00 00 00 00 03 00 01 08 10 08 |................|
0000B890: 0A 00 3B 52 44 20 54 52 4B 20 31 36 00 39 08 0B |..;RD TRK 16.9..|
0000B8A0: 00 52 44 45 52 52 20 4C 44 41 20 53 45 43 3B 20 |.RDERR LDA SEC; |
0000B8B0: 87 20 45 52 52 B0 20 41 54 20 24 30 30 20 49 4E |. ERR. AT $00 IN|
0000B8C0: 20 31 35 34 31 00 45 08 0C 00 53 54 41 20 53 56 | 1541.E...STA SV|
0000B8D0: 45 00 54 08 14 00 45 52 52 53 20 4A 53 52 20 9B |E.T...ERRS JSR .|
0000B8E0: 00 61 08 1E 00 4C 44 59 20 23 24 30 30 00 91 08 |.a...LDY #$00...|
0000B8F0: 28 00 4C 50 37 20 4C 44 41 20 4D 57 31 2C 59 3B |(.LP7 LDA MW1,Y;|
0000B900: 20 50 55 54 20 54 52 41 43 4B 20 26 20 53 45 43 | PUT TRACK & SEC|
0000B910: 20 41 54 20 24 30 36 20 26 20 24 30 37 00 9D 08 | AT $06 & $07...|
0000B920: 32 00 4A 53 52 20 4F 55 54 00 A5 08 3C 00 49 4E |2.JSR OUT...<.IN|
0000B930: 59 00 B2 08 46 00 43 50 59 20 23 24 30 38 00 BE |Y...F.CPY #$08..|
0000B940: 08 50 00 42 4E 45 20 4C 50 37 00 CC 08 5A 00 4A |.P.BNE LP7...Z.J|
0000B950: 53 52 20 55 4E 4C 49 53 00 D6 08 64 00 4A 53 52 |SR UNLIS...d.JSR|
0000B960: 20 9B 00 E3 08 6E 00 4C 44 59 20 23 24 30 30 00 | ....n.LDY #$00.|
0000B970: 0A 09 78 00 4C 50 38 20 4C 44 41 20 4D 57 32 2C |..x.LP8 LDA MW2,|
0000B980: 59 3B 20 50 55 54 20 23 24 38 30 20 28 87 29 20 |Y; PUT #$80 (.) |
0000B990: 41 54 20 24 30 30 00 16 09 82 00 4A 53 52 20 4F |AT $00.....JSR O|
0000B9A0: 55 54 00 1E 09 8C 00 49 4E 59 00 2B 09 96 00 43 |UT.....INY.+...C|
0000B9B0: 50 59 20 23 24 30 37 00 37 09 A0 00 42 4E 45 20 |PY #$07.7...BNE |
0000B9C0: 4C 50 38 00 45 09 AA 00 4A 53 52 20 55 4E 4C 49 |LP8.E...JSR UNLI|
0000B9D0: 53 00 6A 09 B4 00 4A 53 52 20 43 48 4B 45 52 52 |S.j...JSR CHKERR|
0000B9E0: 3B 20 92 20 81 20 45 52 52 B0 20 43 4F 44 45 20 |; . . ERR. CODE |
0000B9F0: 41 54 20 24 30 30 00 76 09 22 01 4C 44 41 20 45 |AT $00.v.".LDA E|
0000BA00: 52 52 00 A2 09 27 01 4C 44 59 20 53 56 45 3B 20 |RR...'.LDY SVE; |
0000BA10: 48 4F 4C 44 53 20 4E 55 4D 42 45 52 20 4F 46 20 |HOLDS NUMBER OF |
0000BA20: 53 45 43 A4 52 53 20 91 20 54 52 41 43 4B 00 B1 |SEC.RS . TRACK..|
0000BA30: 09 5E 01 53 54 41 20 42 55 46 46 2C 59 00 BD 09 |.^.STA BUFF,Y...|
0000BA40: 68 01 44 45 43 20 53 56 45 00 C9 09 69 01 4C 44 |h.DEC SVE...i.LD|
0000BA50: 41 20 53 56 45 00 D9 09 6A 01 53 54 41 20 54 4B |A SVE...j.STA TK|
0000BA60: 53 45 43 AA 31 00 E6 09 6B 01 43 4D 50 20 23 24 |SEC.1...k.CMP #$|
0000BA70: 46 46 00 F3 09 72 01 42 4E 45 20 45 52 52 53 00 |FF...r.BNE ERRS.|
0000BA80: FB 09 B8 01 52 54 53 00 0F 0A C2 01 2E 46 49 4C |....RTS......FIL|
0000BA90: 45 20 52 44 20 54 52 4B 20 31 37 00 00 00 44 45 |E RD TRK 17...DE|
0000BAA0: 52 52 20 4C 44 41 20 53 45 43 3B 20 87 20 45 52 |RR LDA SEC; . ER|
0000BAB0: 52 B0 20 41 54 20 24 30 30 20 49 4E 20 31 35 34 |R. AT $00 IN 154|
0000BAC0: 31 00 45 08 0C 00 53 54 41 20 53 56 45 00 54 08 |1.E...STA SVE.T.|
0000BAD0: 14 00 45 52 52 53 20 4A 53 52 20 9B 00 61 08 1E |..ERRS JSR ..a..|
0000BAE0: 00 4C 44 59 20 23 24 30 30 00 91 08 28 00 4C 50 |.LDY #$00...(.LP|
0000BAF0: 37 20 4C 44 41 20 4D 57 31 2C 59 3B 20 50 55 54 |7 LDA MW1,Y; PUT|
0000BB00: 20 54 52 41 43 4B 20 26 20 53 45 43 20 41 54 20 | TRACK & SEC AT |
0000BB10: 24 30 36 20 26 20 24 30 37 00 9D 08 32 00 4A 53 |$06 & $07...2.JS|
0000BB20: 52 20 4F 55 54 00 A5 08 3C 00 49 4E 59 00 B2 08 |R OUT...<.INY...|
0000BB30: 46 00 43 50 59 20 23 24 30 38 00 BE 08 50 00 42 |F.CPY #$08...P.B|
0000BB40: 4E 45 20 4C 50 37 00 CC 08 5A 00 4A 53 52 20 55 |NE LP7...Z.JSR U|
0000BB50: 4E 4C 49 53 00 D6 08 64 00 4A 53 52 20 9B 00 E3 |NLIS...d.JSR ...|
0000BB60: 08 6E 00 4C 44 59 20 23 24 30 30 00 0A 09 78 00 |.n.LDY #$00...x.|
0000BB70: 4C 50 38 20 4C 44 41 20 4D 57 32 2C 59 3B 20 50 |LP8 LDA MW2,Y; P|
0000BB80: 55 54 20 23 24 38 01 08 10 08 0A 00 3B 52 44 20 |UT #$8......;RD |
0000BB90: 54 52 4B 20 31 37 00 38 08 14 00 9C 41 4C 4C 20 |TRK 17.8....ALL |
0000BBA0: 4C 44 41 20 23 24 30 38 3B 20 41 54 20 42 45 47 |LDA #$08; AT BEG|
0000BBB0: 49 4E 4E 49 4E 47 20 4F 46 20 45 41 43 48 00 69 |INNING OF EACH.i|
0000BBC0: 08 1E 00 53 54 41 20 41 4C 32 AA 32 3B 20 87 20 |...STA AL2.2; . |
0000BBD0: 54 48 49 53 20 52 4F 55 54 49 4E 45 20 43 4C 45 |THIS ROUTINE CLE|
0000BBE0: 41 52 53 20 41 4C 4C 20 42 55 46 46 45 52 53 00 |ARS ALL BUFFERS.|
0000BBF0: 79 08 23 00 41 4C 20 4C 44 41 20 23 24 30 30 00 |y.#.AL LDA #$00.|
0000BC00: 86 08 28 00 4C 44 59 20 23 24 30 30 00 9A 08 32 |..(.LDY #$00...2|
0000BC10: 00 41 4C 32 20 53 54 41 20 24 30 30 30 30 2C 59 |.AL2 STA $0000,Y|
0000BC20: 00 A2 08 3C 00 49 4E 59 00 AE 08 46 00 42 4E 45 |...<.INY...F.BNE|
0000BC30: 20 41 4C 32 00 BC 08 50 00 49 4E 43 20 41 4C 32 | AL2...P.INC AL2|
0000BC40: AA 32 00 CA 08 5A 00 4C 44 41 20 41 4C 32 AA 32 |.2...Z.LDA AL2.2|
0000BC50: 00 F2 08 6E 00 43 4D 50 20 23 24 34 30 3B 20 46 |...n.CMP #$40; F|
0000BC60: 49 4C 4C 20 24 30 38 30 30 20 24 33 46 46 46 20 |ILL $0800 $3FFF |
0000BC70: 57 49 54 48 20 30 27 53 00 FF 08 78 00 42 45 51 |WITH 0'S...x.BEQ|
0000BC80: 20 46 49 4E 31 00 0A 09 8C 00 4A 4D 50 20 41 4C | FIN1.....JMP AL|
0000BC90: 00 17 09 96 00 46 49 4E 31 20 52 54 53 00 2B 09 |.....FIN1 RTS.+.|
0000BCA0: 36 01 2E 46 49 4C 45 20 52 44 20 54 52 4B 20 31 |6..FILE RD TRK 1|
0000BCB0: 38 00 00 00 A0 A0 A0 00 00 00 00 00 00 00 00 00 |8...............|
0000BCC0: 03 00 00 00 02 0E 00 52 44 20 54 52 4B 20 31 37 |.......RD TRK 17|
0000BCD0: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
0000BCE0: 00 00 00 00 82 0E 01 48 41 46 A0 A0 A0 A0 A0 A0 |.......HAF......|
0000BCF0: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
0000BD00: 03 00 00 00 82 0E 03 52 44 20 54 52 4B 20 54 41 |.......RD TRK TA|
0000BD10: 42 4C 45 53 A0 A0 A0 00 00 00 00 00 00 00 00 00 |BLES............|
0000BD20: 08 00 00 00 82 0E 0C 42 41 4D 20 45 51 A0 A0 A0 |.......BAM EQ...|
0000BD30: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
0000BD40: 02 00 00 00 82 0E 14 42 41 4D A0 A0 A0 A0 A0 A0 |.......BAM......|
0000BD50: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
0000BD60: 01 00 00 00 82 16 00 42 41 4D 4D 20 31 A0 A0 A0 |.......BAMM 1...|
0000BD70: A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 00 00 |................|
0000BD80: 03 00 01 08 10 08 0A 00 3B 52 44 20 54 52 4B 20 |........;RD TRK |
0000BD90: 31 38 00 1E 08 14 00 48 4C 46 20 4A 53 52 20 9B |18.....HLF JSR .|
0000BDA0: 00 2B 08 1E 00 4C 44 59 20 23 24 30 30 00 54 08 |.+...LDY #$00.T.|
0000BDB0: 28 00 42 4D 50 31 20 4C 44 41 20 42 55 4D 50 2C |(.BMP1 LDA BUMP,|
0000BDC0: 59 3B 20 42 55 4D 50 20 48 45 41 44 20 A4 20 54 |Y; BUMP HEAD . T|
0000BDD0: 52 41 43 4B 20 31 00 60 08 32 00 4A 53 52 20 4F |RACK 1.`.2.JSR O|
0000BDE0: 55 54 00 68 08 3C 00 49 4E 59 00 75 08 46 00 43 |UT.h.<.INY.u.F.C|
0000BDF0: 50 59 20 23 24 30 37 00 82 08 50 00 42 4E 45 20 |PY #$07...P.BNE |
0000BE00: 42 4D 50 31 00 90 08 55 00 4A 53 52 20 55 4E 4C |BMP1...U.JSR UNL|
0000BE10: 49 53 00 AE 08 5A 00 4A 53 52 20 43 48 4B 45 52 |IS...Z.JSR CHKER|
0000BE20: 52 3B 20 92 20 81 20 45 52 52 B0 20 43 4F 44 45 |R; . . ERR. CODE|
0000BE30: 00 B8 08 64 00 4A 53 52 20 9B 00 C5 08 6E 00 4C |...d.JSR ....n.L|
0000BE40: 44 59 20 23 24 30 30 00 D4 08 78 00 43 91 20 4C |DY #$00...x.C. L|
0000BE50: 44 41 20 9A 2C 59 00 DC 08 82 00 49 4E 59 00 E9 |DA .,Y.....INY..|
0000BE60: 08 8C 00 43 50 59 20 23 24 30 36 00 F4 08 96 00 |...CPY #$06.....|
0000BE70: 42 4E 45 20 43 91 00 02 09 A0 00 4A 53 52 20 55 |BNE C......JSR U|
0000BE80: 4E 4C 49 53 00 0F 09 AA 00 4A 53 52 20 54 41 4C |NLIS.....JSR TAL|
0000BE90: 4B 00 1A 09 B4 00 4A 53 52 20 49 4E 00 27 09 BE |K.....JSR IN.'..|
0000BEA0: 00 53 54 41 20 48 45 41 44 00 35 09 C8 00 4A 53 |.STA HEAD.5...JS|
0000BEB0: 52 20 55 4E 54 4C 4B 00 62 09 D2 00 4C 44 41 20 |R UNTLK.b...LDA |
0000BEC0: 48 45 41 44 3B 20 58 58 58 58 58 58 58 58 20 48 |HEAD; XXXXXXXX H|
0000BED0: 4F 4C 44 53 20 24 31 43 30 30 20 46 52 4F 4D 20 |OLDS $1C00 FROM |
0000BEE0: 31 35 34 31 00 77 09 DC 00 AF 20 23 24 46 43 3B |1541.w.... #$FC;|
0000BEF0: 20 31 31 31 31 31 31 30 30 00 9E 09 E6 00 B0 41 | 11111100......A|
0000BF00: 20 23 24 30 33 3B 20 58 58 58 58 58 58 31 31 20 | #$03; XXXXXX11 |
0000BF10: 43 59 43 4C 45 20 42 49 54 53 20 30 20 26 20 31 |CYCLE BITS 0 & 1|
0000BF20: 00 AC 09 F0 00 53 54 41 20 42 4D 50 AA 36 00 B6 |.....STA BMP.6..|
0000BF30: 09 FA 00 4A 53 52 20 9B 00 C3 09 04 01 4C 44 59 |...JSR ......LDY|
0000BF40: 20 23 24 30 30 00 EF 09 0E 01 43 91 31 20 4C 44 | #$00.....C.1 LD|
0000BF50: 41 20 42 4D 50 2C 59 3B 20 50 55 54 20 43 59 43 |A BMP,Y; PUT CYC|
0000BF60: 4C 45 44 20 42 59 54 45 20 41 54 20 24 31 43 30 |LED BYTE AT $1C0|
0000BF70: 30 00 FB 09 18 01 4A 53 52 20 4F 55 54 00 03 0A |0.....JSR OUT...|
0000BF80: 22 01 49 4E 59 00 10 0A 2C 01 43 50 59 20 23 24 |".INY...,.CPY #$|
0000BF90: 30 37 00 1C 0A 36 01 42 4E 45 20 43 91 31 00 49 |07...6.BNE C.1.I|
0000BFA0: 0A 40 01 4A 53 52 20 55 4E 4C 49 53 3B 20 48 45 |.@.JSR UNLIS; HE|
0000BFB0: 41 44 20 49 53 20 4E 4F 57 20 31 AD 32 20 54 52 |AD IS NOW 1.2 TR|
0000BFC0: 41 43 4B 20 42 45 4C 4F 57 20 31 00 51 0A 4A 01 |ACK BELOW 1.Q.J.|
0000BFD0: 52 54 53 00 69 0A 54 01 2E 46 49 4C 45 20 52 44 |RTS.i.T..FILE RD|
0000BFE0: 20 54 52 4B 20 54 41 42 4C 45 53 00 00 00 20 23 | TRK TABLES... #|
0000BFF0: 24 30 37 00 82 08 50 00 42 4E 45 20 42 4D 50 31 |$07...P.BNE BMP1|
0000C000: 00 90 08 55 00 4A 53 52 20 55 4E 4C 49 53 00 AE |...U.JSR UNLIS..|
0000C010: 08 5A 00 4A 53 52 20 43 48 4B 45 52 52 3B 20 92 |.Z.JSR CHKERR; .|
0000C020: 20 81 20 45 52 52 B0 20 43 4F 44 45 00 B8 08 64 | . ERR. CODE...d|
0000C030: 00 4A 53 52 20 9B 00 C5 08 6E 00 4C 44 59 20 23 |.JSR ....n.LDY #|
0000C040: 24 30 30 00 D4 08 78 00 43 91 20 4C 44 41 20 9A |$00...x.C. LDA .|
0000C050: 2C 59 00 DC 08 82 00 49 4E 59 00 E9 08 8C 00 43 |,Y.....INY.....C|
0000C060: 50 59 20 23 24 30 36 00 F4 08 96 00 42 4E 45 20 |PY #$06.....BNE |
0000C070: 43 91 00 02 09 A0 00 4A 53 52 20 55 01 08 14 08 |C......JSR U....|
0000C080: 0A 00 3B 52 44 20 54 52 4B 20 54 41 42 4C 45 53 |..;RD TRK TABLES|
0000C090: 00 32 08 14 00 54 52 4B 4D 45 53 20 2E 42 59 54 |.2...TRKMES .BYT|
0000C0A0: 45 20 31 34 37 20 31 33 20 31 33 20 31 33 00 65 |E 147 13 13 13.e|
0000C0B0: 08 1E 00 2E 42 59 54 45 20 22 45 4E 54 45 52 20 |....BYTE "ENTER |
0000C0C0: 54 52 41 43 4B 20 4E 55 4D 42 45 52 20 31 20 54 |TRACK NUMBER 1 T|
0000C0D0: 4F 20 34 34 20 3A 2E 42 59 54 45 20 33 32 20 30 |O 44 :.BYTE 32 0|
0000C0E0: 30 00 A5 08 28 00 54 52 4B 4D 45 53 31 20 2E 42 |0...(.TRKMES1 .B|
0000C0F0: 59 54 45 20 31 33 20 31 33 3A 2E 42 59 54 45 20 |YTE 13 13:.BYTE |
0000C100: 22 48 41 4C 46 20 54 52 41 43 4B 20 28 59 20 4F |"HALF TRACK (Y O|
0000C110: 52 20 4E 29 20 3A 2E 42 59 54 45 20 33 32 20 30 |R N) :.BYTE 32 0|
0000C120: 30 00 BD 08 2D 00 54 52 4B 4D 45 53 32 20 2E 42 |0...-.TRKMES2 .B|
0000C130: 59 54 45 20 31 33 20 31 33 00 FA 08 37 00 2E 42 |YTE 13 13...7..B|
0000C140: 59 54 45 20 22 54 52 4B 20 30 31 20 54 4F 20 31 |YTE "TRK 01 TO 1|
0000C150: 37 20 44 45 4E 20 31 20 20 20 54 52 4B 20 31 38 |7 DEN 1 TRK 18|
0000C160: 20 54 4F 20 32 34 20 44 45 4E 20 32 20 3A 2E 42 | TO 24 DEN 2 :.B|
0000C170: 59 54 45 20 31 33 00 37 09 38 00 2E 42 59 54 45 |YTE 13.7.8..BYTE|
0000C180: 20 22 54 52 4B 20 32 35 20 54 4F 20 33 30 20 44 | "TRK 25 TO 30 D|
0000C190: 45 4E 20 33 20 20 20 54 52 4B 20 33 31 20 54 4F |EN 3 TRK 31 TO|
0000C1A0: 20 33 35 20 44 45 4E 20 34 20 3A 2E 42 59 54 45 | 35 DEN 4 :.BYTE|
0000C1B0: 20 31 33 00 63 09 3A 00 2E 42 59 54 45 20 22 44 | 13.c.:..BYTE "D|
0000C1C0: 45 4E 53 54 49 54 59 20 31 20 32 20 33 20 4F 52 |ENSTITY 1 2 3 OR|
0000C1D0: 20 34 20 3A 2E 42 59 54 45 20 33 32 20 30 30 00 | 4 :.BYTE 32 00.|
0000C1E0: A5 09 3D 00 45 52 4D 45 53 20 2E 42 59 54 45 20 |..=.ERMES .BYTE |
0000C1F0: 31 33 20 31 33 3A 2E 42 59 54 45 20 22 45 52 52 |13 13:.BYTE "ERR|
0000C200: 4F 52 53 20 4F 4E 20 54 48 49 53 20 54 52 41 43 |ORS ON THIS TRAC|
0000C210: 4B 20 3A 2E 42 59 54 45 20 31 33 20 31 33 20 30 |K :.BYTE 13 13 0|
0000C220: 30 00 C8 09 46 00 4D 57 31 20 2E 42 59 54 45 20 |0...F.MW1 .BYTE |
0000C230: 22 4D 2D 57 22 3A 2E 42 59 54 45 20 30 36 20 30 |"M-W":.BYTE 06 0|
0000C240: 30 20 30 32 00 DC 09 50 00 54 4B 53 45 43 20 2E |0 02...P.TKSEC .|
0000C250: 42 59 54 45 20 30 20 30 00 03 0A 5A 00 4D 57 32 |BYTE 0 0...Z.MW2|
0000C260: 20 2E 42 59 54 45 20 22 4D 2D 57 22 3A 2E 42 59 | .BYTE "M-W":.BY|
0000C270: 54 45 20 30 30 20 30 30 20 30 31 20 31 32 38 00 |TE 00 00 01 128.|
0000C280: 26 0A 64 00 4D 57 33 20 2E 42 59 54 45 20 22 4D |&.d.MW3 .BYTE "M|
0000C290: 2D 57 22 3A 2E 42 59 54 45 20 30 30 20 30 33 20 |-W":.BYTE 00 03 |
0000C2A0: 33 32 00 4D 0A 6E 00 4D 57 34 20 2E 42 59 54 45 |32.M.n.MW4 .BYTE|
0000C2B0: 20 22 4D 2D 57 22 3A 2E 42 59 54 45 20 30 30 20 | "M-W":.BYTE 00 |
0000C2C0: 30 30 20 30 31 20 32 32 34 00 70 0A 78 00 4D 57 |00 01 224.p.x.MW|
0000C2D0: 35 20 2E 42 59 54 45 20 22 4D 2D 57 22 3A 2E 42 |5 .BYTE "M-W":.B|
0000C2E0: 59 54 45 20 30 30 20 30 33 20 33 32 00 94 0A 82 |YTE 00 03 32....|
0000C2F0: 00 4D 52 31 20 2E 42 59 54 45 20 22 4D 2D 52 22 |.MR1 .BYTE "M-R"|
0000C300: 3A 2E 42 59 54 45 20 30 30 20 30 34 20 32 35 35 |:.BYTE 00 04 255|
0000C310: 00 B7 0A 8C 00 4D 52 32 20 2E 42 59 54 45 20 22 |.....MR2 .BYTE "|
0000C320: 4D 2D 52 22 3A 2E 42 59 54 45 20 30 30 20 30 30 |M-R":.BYTE 00 00|
0000C330: 20 30 31 00 DE 0A 91 00 4D 52 4C 42 20 2E 42 59 | 01.....MRLB .BY|
0000C340: 54 45 20 22 4D 2D 52 22 3A 2E 42 59 54 45 20 32 |TE "M-R":.BYTE 2|
0000C350: 35 35 20 30 30 34 20 30 30 31 00 06 0B 96 00 42 |55 004 001.....B|
0000C360: 55 4D 50 20 2E 42 59 54 45 20 22 4D 2D 57 22 3A |UMP .BYTE "M-W":|
0000C370: 2E 42 59 54 45 20 30 30 20 30 30 20 30 31 20 31 |.BYTE 00 00 01 1|
0000C380: 39 32 00 27 0B A0 00 9A 20 2E 42 59 54 45 20 22 |92.'.... .BYTE "|
0000C390: 4D 2D 52 22 3A 2E 42 59 54 45 20 30 30 20 32 38 |M-R":.BYTE 00 28|
0000C3A0: 20 30 31 00 4A 0B AA 00 42 4D 50 20 2E 42 59 54 | 01.J...BMP .BYT|
0000C3B0: 45 20 22 4D 2D 57 22 3A 2E 42 59 54 45 20 30 30 |E "M-W":.BYTE 00|
0000C3C0: 20 32 38 20 30 31 00 5D 0B B4 00 48 45 41 44 20 | 28 01.]...HEAD |
0000C3D0: 2E 42 59 54 45 20 30 20 30 00 72 0B BE 00 43 4D |.BYTE 0 0.r...CM|
0000C3E0: 4E 44 20 2E 42 59 54 45 20 37 33 20 30 30 00 91 |ND .BYTE 73 00..|
0000C3F0: 0B C8 00 42 4F 55 4E 44 20 2E 42 59 54 45 20 30 |...BOUND .BYTE 0|
0000C400: 34 20 33 36 20 33 31 20 32 35 20 31 38 00 AC 0B |4 36 31 25 18...|
0000C410: D2 00 A4 54 41 4C 20 2E 42 59 54 45 20 31 37 20 |...TAL .BYTE 17 |
0000C420: 31 38 20 31 39 20 32 31 00 C6 0B DC 00 5A 91 45 |18 19 21.....Z.E|
0000C430: 20 2E 42 59 54 45 20 30 34 20 30 33 20 30 32 20 | .BYTE 04 03 02 |
0000C440: 30 31 00 E2 0B EB 00 44 45 4E 53 31 20 2E 42 59 |01.....DENS1 .BY|
0000C450: 54 45 20 39 36 20 36 34 20 33 32 20 30 30 00 11 |TE 96 64 32 00..|
0000C460: 0C F0 00 47 43 52 34 20 2E 42 59 54 45 20 32 35 |...GCR4 .BYTE 25|
0000C470: 35 20 32 35 35 20 32 35 35 20 32 35 35 20 32 35 |5 255 255 255 25|
0000C480: 35 20 32 35 35 20 32 35 35 20 32 35 35 00 37 0C |5 255 255 255.7.|
0000C490: FA 00 2E 42 59 54 45 20 32 35 35 20 31 32 38 20 |...BYTE 255 128 |
0000C4A0: 30 30 20 31 36 20 32 35 35 20 31 39 32 20 36 34 |00 16 255 192 64|
0000C4B0: 20 38 30 00 5E 0C 04 01 2E 42 59 54 45 20 32 35 | 80.^....BYTE 25|
0000C4C0: 35 20 32 35 35 20 33 32 20 34 38 20 32 35 35 20 |5 255 32 48 255 |
0000C4D0: 32 34 30 20 39 36 20 31 31 32 00 88 0C 0E 01 2E |240 96 112......|
0000C4E0: 42 59 54 45 20 32 35 35 20 31 34 34 20 31 36 30 |BYTE 255 144 160|
0000C4F0: 20 31 37 36 20 32 35 35 20 32 30 38 20 32 32 34 | 176 255 208 224|
0000C500: 20 32 35 35 00 B7 0C 18 01 47 43 52 35 20 2E 42 | 255.....GCR5 .B|
0000C510: 59 54 45 20 32 35 35 20 32 35 35 20 32 35 35 20 |YTE 255 255 255 |
0000C520: 32 35 35 20 32 35 35 20 32 35 35 20 32 35 35 20 |255 255 255 255 |
0000C530: 32 35 35 00 DB 0C 22 01 2E 42 59 54 45 20 32 35 |255..."..BYTE 25|
0000C540: 35 20 30 38 20 30 30 20 30 31 20 32 35 35 20 31 |5 08 00 01 255 1|
0000C550: 32 20 30 34 20 30 35 00 00 0D 2C 01 2E 42 59 54 |2 04 05...,..BYT|
0000C560: 45 20 32 35 35 20 32 35 35 20 30 32 20 30 33 20 |E 255 255 02 03 |
0000C570: 32 35 35 20 31 35 20 30 36 20 30 37 00 25 0D 36 |255 15 06 07.%.6|
0000C580: 01 2E 42 59 54 45 20 32 35 35 20 30 39 20 31 30 |..BYTE 255 09 10|
0000C590: 20 31 31 20 32 35 35 20 31 33 20 31 34 20 32 35 | 11 255 13 14 25|
0000C5A0: 35 00 32 0D 40 01 AC B2 20 24 37 37 30 30 00 45 |5.2.@... $7700.E|
0000C5B0: 0D 4A 01 42 55 46 46 4C 47 20 2E 42 59 54 45 20 |.J.BUFFLG .BYTE |
0000C5C0: 30 00 5F 0D 54 01 5A 4E 46 4C 47 20 2E 42 59 54 |0._.T.ZNFLG .BYT|
0000C5D0: 45 20 30 20 30 20 30 20 30 20 30 00 71 0D 5E 01 |E 0 0 0 0 0.q.^.|
0000C5E0: 91 45 53 45 43 20 2E 42 59 54 45 20 30 00 84 0D |.ESEC .BYTE 0...|
0000C5F0: 68 01 48 4C 46 46 4C 47 20 2E 42 59 54 45 20 30 |h.HLFFLG .BYTE 0|
0000C600: 00 94 0D 72 01 53 45 43 20 2E 42 59 54 45 20 30 |...r.SEC .BYTE 0|
0000C610: 00 A4 0D 77 01 45 52 52 20 2E 42 59 54 45 20 30 |...w.ERR .BYTE 0|
0000C620: 00 B3 0D 7C 01 43 54 20 2E 42 59 54 45 20 30 00 |...|.CT .BYTE 0.|
0000C630: E0 0D 86 01 42 55 46 46 20 2E 42 59 54 45 20 30 |....BUFF .BYTE 0|
0000C640: 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 | 0 0 0 0 0 0 0 0|
0000C650: 20 30 20 30 20 30 20 30 20 30 20 30 00 F6 0D 90 | 0 0 0 0 0 0....|
0000C660: 01 2E 42 59 54 45 20 30 20 30 20 30 20 30 20 30 |..BYTE 0 0 0 0 0|
0000C670: 20 30 00 03 0E 9A 01 AC B2 20 24 37 38 30 30 00 | 0....... $7800.|
0000C680: 22 0E A4 01 47 43 52 33 20 2E 42 59 54 45 20 30 |"...GCR3 .BYTE 0|
0000C690: 20 30 20 30 20 30 20 30 20 30 20 30 20 30 00 32 | 0 0 0 0 0 0 0.2|
0000C6A0: 0E AE 01 53 56 45 20 2E 42 59 54 45 20 30 00 44 |...SVE .BYTE 0.D|
0000C6B0: 0E B8 01 54 52 4B 20 2E 42 59 54 45 20 30 20 30 |...TRK .BYTE 0 0|
0000C6C0: 00 57 0E C2 01 53 45 43 46 4C 47 20 2E 42 59 54 |.W...SECFLG .BYT|
0000C6D0: 45 20 30 00 65 0E CC 01 41 20 2E 42 59 54 45 20 |E 0.e...A .BYTE |
0000C6E0: 30 00 73 0E D6 01 58 20 2E 42 59 54 45 20 30 00 |0.s...X .BYTE 0.|
0000C6F0: 81 0E E0 01 59 20 2E 42 59 54 45 20 30 00 8E 0E |....Y .BYTE 0...|
0000C700: EA 01 AC B2 20 24 37 39 30 30 00 B5 0E FE 01 48 |.... $7900.....H|
0000C710: 45 58 20 2E 42 59 54 45 20 30 3B 44 45 43 4F 44 |EX .BYTE 0;DECOD|
0000C720: 45 44 20 47 43 52 20 4C 41 43 45 44 20 48 45 52 |ED GCR LACED HER|
0000C730: 45 00 C2 0E 08 02 AC B2 20 24 37 42 30 30 00 EF |E....... $7B00..|
0000C740: 0E 12 02 47 43 52 31 20 2E 42 59 54 45 20 30 3B |...GCR1 .BYTE 0;|
0000C750: 20 47 43 52 20 50 4C 41 43 45 44 20 48 45 52 45 | GCR PLACED HERE|
0000C760: 20 81 20 43 91 56 45 52 53 49 91 00 FC 0E 1C 02 | . C.VERSI......|
0000C770: AC B2 20 24 37 44 30 30 00 23 0F 26 02 47 43 52 |.. $7D00.#.&.GCR|
0000C780: 32 20 2E 42 59 54 45 20 30 3B 20 47 43 52 20 48 |2 .BYTE 0; GCR H|
0000C790: 45 52 45 20 81 20 83 20 42 55 46 46 45 52 53 00 |ERE . . BUFFERS.|
0000C7A0: 46 0F 30 02 AC B2 20 24 37 46 30 30 3B 20 48 45 |F.0... $7F00; HE|
0000C7B0: 41 44 45 52 20 83 20 50 4C 41 43 45 44 20 48 45 |ADER . PLACED HE|
0000C7C0: 52 45 00 58 0F 3A 02 48 44 42 55 46 20 2E 42 59 |RE.X.:.HDBUF .BY|
0000C7D0: 54 45 20 30 00 69 0F 44 02 2E 80 20 52 44 20 54 |TE 0.i.D... RD T|
0000C7E0: 52 4B 20 45 51 00 00 00 30 00 84 0D 68 01 48 4C |RK EQ...0...h.HL|
0000C7F0: 46 46 4C 47 20 2E 42 59 54 45 20 30 00 94 0D 72 |FFLG .BYTE 0...r|
0000C800: 01 53 45 43 20 2E 42 59 54 45 20 30 00 A4 0D 77 |.SEC .BYTE 0...w|
0000C810: 01 45 52 52 20 2E 42 59 54 45 20 30 00 B3 0D 7C |.ERR .BYTE 0...||
0000C820: 01 43 54 20 2E 42 59 54 45 20 30 00 E0 0D 86 01 |.CT .BYTE 0.....|
0000C830: 42 55 46 46 20 2E 42 59 54 45 20 30 20 30 20 30 |BUFF .BYTE 0 0 0|
0000C840: 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 | 0 0 0 0 0 0 0 0|
0000C850: 20 30 20 30 20 30 20 30 00 F6 0D 90 01 2E 42 59 | 0 0 0 0......BY|
0000C860: 54 45 20 30 20 30 20 30 20 30 20 30 01 08 0E 08 |TE 0 0 0 0 0....|
0000C870: 0A 00 AC B2 20 24 39 30 30 30 00 16 08 0B 00 3B |.... $9000.....;|
0000C880: 2E 4D 00 28 08 0C 00 3B 2E 44 20 55 4E 4F 50 20 |.M.(...;.D UNOP |
0000C890: 36 30 30 30 00 36 08 14 00 99 20 B2 20 24 46 46 |6000.6.... . $FF|
0000C8A0: 44 32 00 46 08 1E 00 4C 49 53 20 B2 20 24 46 46 |D2.F...LIS . $FF|
0000C8B0: 42 31 00 58 08 28 00 4C 49 53 45 43 20 B2 20 24 |B1.X.(.LISEC . $|
0000C8C0: 46 46 39 33 00 6A 08 32 00 55 4E 4C 49 53 20 B2 |FF93.j.2.UNLIS .|
0000C8D0: 20 24 46 46 41 45 00 7A 08 3C 00 54 4C 4B 20 B2 | $FFAE.z.<.TLK .|
0000C8E0: 20 24 46 46 42 34 00 8D 08 46 00 54 4C 4B 53 45 | $FFB4...F.TLKSE|
0000C8F0: 43 20 B2 20 24 46 46 39 36 00 9F 08 50 00 55 4E |C . $FF96...P.UN|
0000C900: 54 4C 4B 20 B2 20 24 46 46 41 42 00 AF 08 5A 00 |TLK . $FFAB...Z.|
0000C910: 4F 55 54 20 B2 20 24 46 46 41 38 00 BE 08 64 00 |OUT . $FFA8...d.|
0000C920: 49 4E 20 B2 20 24 46 46 41 35 00 CE 08 6E 00 42 |IN . $FFA5...n.B|
0000C930: 44 52 20 B2 20 24 44 30 32 30 00 DF 08 78 00 42 |DR . $D020...x.B|
0000C940: 47 52 44 20 B2 20 24 44 30 32 31 00 F1 08 82 00 |GRD . $D021.....|
0000C950: 56 49 43 49 49 20 B2 20 24 44 30 31 38 00 01 09 |VICII . $D018...|
0000C960: 8C 00 43 49 4F 20 B2 20 24 44 44 30 30 00 11 09 |..CIO . $DD00...|
0000C970: 96 00 44 49 4F 20 B2 20 24 31 38 30 30 00 22 09 |..DIO . $1800.".|
0000C980: A0 00 44 B5 49 4F 20 B2 20 24 31 43 30 30 00 30 |..D.IO . $1C00.0|
0000C990: 09 AA 00 90 20 B2 20 24 46 46 45 31 00 3E 09 B4 |.... . $FFE1.>..|
0000C9A0: 00 A1 20 B2 20 24 46 46 45 34 00 4C 09 C8 00 2E |.. . $FFE4.L....|
0000C9B0: 46 49 4C 45 20 4F 50 53 00 00 00 A0 A0 00 00 00 |FILE OPS........|
0000C9C0: 00 00 00 00 00 00 03 00 00 00 82 16 09 53 45 43 |.............SEC|
0000C9D0: 53 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |S...............|
0000C9E0: 00 00 00 00 00 00 01 00 00 00 82 16 0B 52 45 56 |.............REV|
0000C9F0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |................|
0000CA00: 00 00 00 00 00 00 02 00 00 00 82 16 12 42 41 4D |.............BAM|
0000CA10: 20 55 54 49 4C A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 | UTIL...........|
0000CA20: 00 00 00 00 00 00 05 00 00 00 82 0D 00 42 41 4D |.............BAM|
0000CA30: 20 54 41 42 4C 45 53 A0 A0 A0 A0 A0 A0 00 00 00 | TABLES.........|
0000CA40: 00 00 00 00 00 00 02 00 00 00 02 0D 01 55 4E 4F |.............UNO|
0000CA50: 50 20 45 51 A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 |P EQ............|
0000CA60: 00 00 00 00 00 00 00 00 01 08 0D 08 14 00 4A 4D |..............JM|
0000CA70: 50 20 42 45 47 00 35 08 1E 00 4F 50 20 2E 42 59 |P BEG.5...OP .BY|
0000CA80: 54 45 20 22 42 52 4B 4F 52 41 CC 4B 55 C1 53 4F |TE "BRKORA.KU.SO|
0000CA90: D3 4B 31 4F 52 41 41 53 4C C1 53 4F 22 00 5A 08 |.K1ORAASL.SO".Z.|
0000CAA0: 28 00 2E 42 59 54 45 20 22 50 48 50 4F 52 41 41 |(..BYTE "PHPORAA|
0000CAB0: 53 4C C1 53 4F D3 4B 32 4F 52 41 41 53 4C C1 53 |SL.SO.K2ORAASL.S|
0000CAC0: 4F 22 00 7F 08 32 00 2E 42 59 54 45 20 22 42 50 |O"...2..BYTE "BP|
0000CAD0: 4C 4F 52 41 CC 4B 55 C1 53 4F D3 4B 31 4F 52 41 |LORA.KU.SO.K1ORA|
0000CAE0: 41 53 4C C1 53 4F 22 00 A4 08 3C 00 2E 42 59 54 |ASL.SO"...<..BYT|
0000CAF0: 45 20 22 43 4C 43 4F 52 41 CE 4F 50 C1 53 4F D3 |E "CLCORA.OP.SO.|
0000CB00: 4B 32 4F 52 41 41 53 4C C1 53 4F 22 00 C9 08 46 |K2ORAASL.SO"...F|
0000CB10: 00 2E 42 59 54 45 20 22 4A 53 52 41 4E 44 CC 4B |..BYTE "JSRAND.K|
0000CB20: 55 D2 4C 41 42 49 54 41 4E 44 52 4F 4C D2 4C 41 |U.LABITANDROL.LA|
0000CB30: 22 00 EE 08 50 00 2E 42 59 54 45 20 22 50 4C 50 |"...P..BYTE "PLP|
0000CB40: 41 4E 44 52 4F 4C D2 4C 41 42 49 54 41 4E 44 52 |ANDROL.LABITANDR|
0000CB50: 4F 4C D2 4C 41 22 00 13 09 5A 00 2E 42 59 54 45 |OL.LA"...Z..BYTE|
0000CB60: 20 22 42 4D 49 41 4E 44 CC 4B 55 D2 4C 41 D3 4B | "BMIAND.KU.LA.K|
0000CB70: 31 41 4E 44 52 4F 4C D2 4C 41 22 00 38 09 64 00 |1ANDROL.LA".8.d.|
0000CB80: 2E 42 59 54 45 20 22 53 45 43 41 4E 44 CE 4F 50 |.BYTE "SECAND.OP|
0000CB90: D2 4C 41 D3 4B 32 41 4E 44 52 4F 4C D2 4C 41 22 |.LA.K2ANDROL.LA"|
0000CBA0: 00 5D 09 6E 00 2E 42 59 54 45 20 22 52 54 49 45 |.].n..BYTE "RTIE|
0000CBB0: 4F 52 CC 4B 55 CC 53 45 D3 4B 31 45 4F 52 4C 53 |OR.KU.SE.K1EORLS|
0000CBC0: 52 CC 53 45 22 00 82 09 78 00 2E 42 59 54 45 20 |R.SE"...x..BYTE |
0000CBD0: 22 50 48 41 45 4F 52 4C 53 52 C1 4C 52 4A 4D 50 |"PHAEORLSR.LRJMP|
0000CBE0: 45 4F 52 4C 53 52 CC 53 45 22 00 A7 09 82 00 2E |EORLSR.SE"......|
0000CBF0: 42 59 54 45 20 22 42 56 43 45 4F 52 CC 4B 55 CC |BYTE "BVCEOR.KU.|
0000CC00: 53 45 D3 4B 31 45 4F 52 4C 53 52 CC 53 45 22 00 |SE.K1EORLSR.SE".|
0000CC10: CC 09 8C 00 2E 42 59 54 45 20 22 43 4C 49 45 4F |.....BYTE "CLIEO|
0000CC20: 52 CE 4F 50 CC 53 45 D3 4B 32 45 4F 52 4C 53 52 |R.OP.SE.K2EORLSR|
0000CC30: CC 53 45 22 00 F1 09 96 00 2E 42 59 54 45 20 22 |.SE"......BYTE "|
0000CC40: 52 54 53 41 44 43 CC 4B 55 D2 52 41 D3 4B 31 41 |RTSADC.KU.RA.K1A|
0000CC50: 44 43 52 4F 52 D2 52 41 22 00 16 0A A0 00 2E 42 |DCROR.RA"......B|
0000CC60: 59 54 45 20 22 50 4C 41 41 44 43 52 4F 52 C1 52 |YTE "PLAADCROR.R|
0000CC70: 52 4A 4D 50 41 44 43 52 4F 52 D2 52 41 22 00 3B |RJMPADCROR.RA".;|
0000CC80: 0A AA 00 2E 42 59 54 45 20 22 42 56 53 41 44 43 |....BYTE "BVSADC|
0000CC90: CC 4B 55 D2 52 41 D3 4B 31 41 44 43 52 4F 52 D2 |.KU.RA.K1ADCROR.|
0000CCA0: 52 41 22 00 60 0A B4 00 2E 42 59 54 45 20 22 53 |RA".`....BYTE "S|
0000CCB0: 45 49 41 44 43 CE 4F 50 D2 52 41 D3 4B 32 41 44 |EIADC.OP.RA.K2AD|
0000CCC0: 43 52 4F 52 D2 52 41 22 00 85 0A BE 00 2E 42 59 |CROR.RA"......BY|
0000CCD0: 54 45 20 22 D3 4B 31 53 54 41 D3 4B 31 C1 58 53 |TE ".K1STA.K1.XS|
0000CCE0: 53 54 59 53 54 41 53 54 58 C1 58 53 22 00 AA 0A |STYSTASTX.XS"...|
0000CCF0: C8 00 2E 42 59 54 45 20 22 44 45 59 D3 4B 31 54 |...BYTE "DEY.K1T|
0000CD00: 58 41 D8 41 41 53 54 59 53 54 41 53 54 58 C1 58 |XA.AASTYSTASTX.X|
0000CD10: 53 22 00 CF 0A D2 00 2E 42 59 54 45 20 22 42 43 |S"......BYTE "BC|
0000CD20: 43 53 54 41 CC 4B 55 C1 58 53 53 54 59 53 54 41 |CSTA.KU.XSSTYSTA|
0000CD30: 53 54 58 C1 58 53 22 00 F4 0A DC 00 2E 42 59 54 |STX.XS"......BYT|
0000CD40: 45 20 22 54 59 41 53 54 41 54 58 53 C1 58 50 D4 |E "TYASTATXS.XP.|
0000CD50: 45 59 53 54 41 D4 45 58 D4 45 41 22 00 19 0B E6 |EYSTA.EX.EA"....|
0000CD60: 00 2E 42 59 54 45 20 22 4C 44 59 4C 44 41 4C 44 |..BYTE "LDYLDALD|
0000CD70: 58 CC 41 58 4C 44 59 4C 44 41 4C 44 58 CC 41 58 |X.AXLDYLDALDX.AX|
0000CD80: 22 00 3E 0B F0 00 2E 42 59 54 45 20 22 54 41 59 |".>....BYTE "TAY|
0000CD90: 4C 44 41 54 41 58 CF 41 4C 4C 44 59 4C 44 41 4C |LDATAX.ALLDYLDAL|
0000CDA0: 44 58 CC 41 58 22 00 63 0B FA 00 2E 42 59 54 45 |DX.AX".c....BYTE|
0000CDB0: 20 22 42 43 53 4C 44 41 CC 4B 55 CC 41 58 4C 44 | "BCSLDA.KU.AXLD|
0000CDC0: 59 4C 44 41 4C 44 58 CC 41 58 22 00 88 0B 04 01 |YLDALDX.AX".....|
0000CDD0: 2E 42 59 54 45 20 22 43 4C 56 4C 44 41 54 53 58 |.BYTE "CLVLDATSX|
0000CDE0: CC 41 53 4C 44 59 4C 44 41 4C 44 58 CC 41 58 22 |.ASLDYLDALDX.AX"|
0000CDF0: 00 AD 0B 0E 01 2E 42 59 54 45 20 22 43 50 59 43 |......BYTE "CPYC|
0000CE00: 4D 50 D3 4B 31 C4 43 4D 43 50 59 43 4D 50 44 45 |MP.K1.CMCPYCMPDE|
0000CE10: 43 C4 43 4D 22 00 D2 0B 18 01 2E 42 59 54 45 20 |C.CM"......BYTE |
0000CE20: 22 49 4E 59 43 4D 50 44 45 58 D3 41 58 43 50 59 |"INYCMPDEX.AXCPY|
0000CE30: 43 4D 50 44 45 43 C4 43 4D 22 00 F7 0B 22 01 2E |CMPDEC.CM"..."..|
0000CE40: 42 59 54 45 20 22 42 4E 45 43 4D 50 CC 4B 55 C4 |BYTE "BNECMP.KU.|
0000CE50: 43 4D D3 4B 31 43 4D 50 44 45 43 C4 43 4D 22 00 |CM.K1CMPDEC.CM".|
0000CE60: 1C 0C 2C 01 2E 42 59 54 45 20 22 43 4C 44 43 4D |..,..BYTE "CLDCM|
0000CE70: 50 CE 4F 50 C4 43 4D D3 4B 32 43 4D 50 44 45 43 |P.OP.CM.K2CMPDEC|
0000CE80: C4 43 4D 22 00 41 0C 36 01 2E 42 59 54 45 20 22 |.CM".A.6..BYTE "|
0000CE90: 43 50 58 53 42 43 D3 4B 31 C9 4E 53 43 50 58 53 |CPXSBC.K1.NSCPXS|
0000CEA0: 42 43 49 4E 43 C9 4E 53 22 00 66 0C 40 01 2E 42 |BCINC.NS".f.@..B|
0000CEB0: 59 54 45 20 22 49 4E 58 53 42 43 4E 4F 50 D3 42 |YTE "INXSBCNOP.B|
0000CEC0: 4B 43 50 58 53 42 43 49 4E 43 C9 4E 53 22 00 8B |KCPXSBCINC.NS"..|
0000CED0: 0C 4A 01 2E 42 59 54 45 20 22 42 45 51 53 42 43 |.J..BYTE "BEQSBC|
0000CEE0: CC 4B 55 C9 4E 53 D3 4B 31 53 42 43 49 4E 43 C9 |.KU.NS.K1SBCINC.|
0000CEF0: 4E 53 22 00 B0 0C 54 01 2E 42 59 54 45 20 22 53 |NS"...T..BYTE "S|
0000CF00: 45 44 53 42 43 CE 4F 50 C9 4E 53 D3 4B 32 53 42 |EDSBC.OP.NS.K2SB|
0000CF10: 43 49 4E 43 C9 4E 53 22 00 BF 0C 5E 01 2E 46 49 |CINC.NS"...^..FI|
0000CF20: 4C 45 20 54 59 50 45 00 00 00 54 41 53 54 58 C1 |LE TYPE...TASTX.|
0000CF30: 58 53 22 00 F4 0A DC 00 2E 42 59 54 45 20 22 54 |XS"......BYTE "T|
0000CF40: 59 41 53 54 41 54 58 53 C1 58 50 D4 45 59 53 54 |YASTATXS.XP.EYST|
0000CF50: 41 D4 45 58 D4 45 41 22 00 19 0B E6 00 2E 01 08 |A.EX.EA"........|
0000CF60: 28 08 28 00 54 59 50 45 20 2E 42 59 54 45 20 33 |(.(.TYPE .BYTE 3|
0000CF70: 32 20 38 38 20 33 32 20 38 38 20 33 32 20 33 32 |2 88 32 88 32 32|
0000CF80: 20 33 32 20 33 32 00 4A 08 32 00 2E 42 59 54 45 | 32 32.J.2..BYTE|
0000CF90: 20 33 32 20 33 35 20 33 32 20 33 35 20 33 32 20 | 32 35 32 35 32 |
0000CFA0: 33 32 20 33 32 20 33 32 00 6C 08 3C 00 2E 42 59 |32 32 32.l.<..BY|
0000CFB0: 54 45 20 33 32 20 38 39 20 33 32 20 38 39 20 33 |TE 32 89 32 89 3|
0000CFC0: 32 20 38 38 20 38 38 20 38 38 00 8E 08 46 00 2E |2 88 88 88...F..|
0000CFD0: 42 59 54 45 20 33 32 20 38 39 20 33 32 20 38 39 |BYTE 32 89 32 89|
0000CFE0: 20 33 32 20 38 38 20 38 38 20 38 38 00 B0 08 50 | 32 88 88 88...P|
0000CFF0: 00 2E 42 59 54 45 20 33 32 20 38 38 20 33 32 20 |..BYTE 32 88 32 |
0000D000: 38 38 20 33 32 20 33 32 20 33 32 20 33 32 00 D2 |88 32 32 32 32..|
0000D010: 08 5A 00 2E 42 59 54 45 20 33 32 20 33 35 20 33 |.Z..BYTE 32 35 3|
0000D020: 32 20 33 35 20 33 32 20 33 32 20 33 32 20 33 32 |2 35 32 32 32 32|
0000D030: 00 F4 08 64 00 2E 42 59 54 45 20 33 32 20 38 39 |...d..BYTE 32 89|
0000D040: 20 33 32 20 38 39 20 33 32 20 38 38 20 38 38 20 | 32 89 32 88 88 |
0000D050: 38 38 00 16 09 6E 00 2E 42 59 54 45 20 33 32 20 |88...n..BYTE 32 |
0000D060: 38 39 20 33 32 20 38 39 20 33 32 20 38 38 20 38 |89 32 89 32 88 8|
0000D070: 38 20 38 38 00 38 09 78 00 2E 42 59 54 45 20 33 |8 88.8.x..BYTE 3|
0000D080: 32 20 38 38 20 33 32 20 38 38 20 33 32 20 33 32 |2 88 32 88 32 32|
0000D090: 20 33 32 20 33 32 00 5A 09 82 00 2E 42 59 54 45 | 32 32.Z....BYTE|
0000D0A0: 20 33 32 20 33 35 20 33 32 20 33 35 20 33 32 20 | 32 35 32 35 32 |
0000D0B0: 33 32 20 33 32 20 33 32 00 7C 09 8C 00 2E 42 59 |32 32 32.|....BY|
0000D0C0: 54 45 20 33 32 20 38 39 20 33 32 20 38 39 20 33 |TE 32 89 32 89 3|
0000D0D0: 32 20 38 38 20 38 38 20 38 38 00 9E 09 96 00 2E |2 88 88 88......|
0000D0E0: 42 59 54 45 20 33 32 20 38 39 20 33 32 20 38 39 |BYTE 32 89 32 89|
0000D0F0: 20 33 32 20 38 38 20 38 38 20 38 38 00 C0 09 A0 | 32 88 88 88....|
0000D100: 00 2E 42 59 54 45 20 33 32 20 38 38 20 33 32 20 |..BYTE 32 88 32 |
0000D110: 38 38 20 33 32 20 33 32 20 33 32 20 33 32 00 E2 |88 32 32 32 32..|
0000D120: 09 AA 00 2E 42 59 54 45 20 33 32 20 33 35 20 33 |....BYTE 32 35 3|
0000D130: 32 20 33 35 20 33 32 20 33 32 20 33 32 20 33 32 |2 35 32 32 32 32|
0000D140: 00 04 0A B4 00 2E 42 59 54 45 20 33 32 20 38 39 |......BYTE 32 89|
0000D150: 20 33 32 20 38 39 20 33 32 20 38 38 20 38 38 20 | 32 89 32 88 88 |
0000D160: 38 38 00 26 0A BE 00 2E 42 59 54 45 20 33 32 20 |88.&....BYTE 32 |
0000D170: 38 39 20 33 32 20 38 39 20 33 32 20 38 38 20 38 |89 32 89 32 88 8|
0000D180: 38 20 38 38 00 48 0A C8 00 2E 42 59 54 45 20 33 |8 88.H....BYTE 3|
0000D190: 32 20 38 38 20 33 32 20 38 38 20 33 32 20 33 32 |2 88 32 88 32 32|
0000D1A0: 20 33 32 20 33 32 00 6A 0A D2 00 2E 42 59 54 45 | 32 32.j....BYTE|
0000D1B0: 20 33 32 20 33 32 20 33 32 20 33 35 20 33 32 20 | 32 32 32 35 32 |
0000D1C0: 33 32 20 33 32 20 33 32 00 8C 0A DC 00 2E 42 59 |32 32 32......BY|
0000D1D0: 54 45 20 33 32 20 38 39 20 33 32 20 38 39 20 38 |TE 32 89 32 89 8|
0000D1E0: 38 20 38 38 20 38 39 20 38 39 00 AE 0A E6 00 2E |8 88 89 89......|
0000D1F0: 42 59 54 45 20 33 32 20 38 39 20 33 32 20 38 39 |BYTE 32 89 32 89|
0000D200: 20 38 38 20 38 38 20 38 39 20 38 39 00 D0 0A F0 | 88 88 89 89....|
0000D210: 00 2E 42 59 54 45 20 33 35 20 38 38 20 33 35 20 |..BYTE 35 88 35 |
0000D220: 38 38 20 33 32 20 33 32 20 33 32 20 33 32 00 F2 |88 32 32 32 32..|
0000D230: 0A FA 00 2E 42 59 54 45 20 33 32 20 33 35 20 33 |....BYTE 32 35 3|
0000D240: 32 20 33 35 20 33 32 20 33 32 20 33 32 20 33 32 |2 35 32 32 32 32|
0000D250: 00 14 0B 04 01 2E 42 59 54 45 20 33 32 20 38 39 |......BYTE 32 89|
0000D260: 20 33 32 20 38 39 20 38 38 20 38 38 20 38 39 20 | 32 89 88 88 89 |
0000D270: 38 39 00 36 0B 0E 01 2E 42 59 54 45 20 33 32 20 |89.6....BYTE 32 |
0000D280: 38 39 20 33 32 20 38 39 20 38 38 20 38 38 20 38 |89 32 89 88 88 8|
0000D290: 39 20 38 39 00 58 0B 18 01 2E 42 59 54 45 20 33 |9 89.X....BYTE 3|
0000D2A0: 35 20 38 38 20 33 32 20 38 38 20 33 32 20 33 32 |5 88 32 88 32 32|
0000D2B0: 20 33 32 20 33 32 00 7A 0B 22 01 2E 42 59 54 45 | 32 32.z."..BYTE|
0000D2C0: 20 33 32 20 33 35 20 33 32 20 33 35 20 33 32 20 | 32 35 32 35 32 |
0000D2D0: 33 32 20 33 32 20 33 32 00 9C 0B 2C 01 2E 42 59 |32 32 32...,..BY|
0000D2E0: 54 45 20 33 32 20 38 39 20 33 32 20 38 39 20 33 |TE 32 89 32 89 3|
0000D2F0: 32 20 38 38 20 38 38 20 38 38 00 BE 0B 36 01 2E |2 88 88 88...6..|
0000D300: 42 59 54 45 20 33 32 20 38 39 20 33 32 20 38 39 |BYTE 32 89 32 89|
0000D310: 20 33 32 20 38 38 20 38 38 20 38 38 00 E0 0B 40 | 32 88 88 88...@|
0000D320: 01 2E 42 59 54 45 20 33 35 20 38 38 20 33 32 20 |..BYTE 35 88 32 |
0000D330: 38 38 20 33 32 20 33 32 20 33 32 20 33 32 00 02 |88 32 32 32 32..|
0000D340: 0C 4A 01 2E 42 59 54 45 20 33 32 20 33 35 20 33 |.J..BYTE 32 35 3|
0000D350: 32 20 33 35 20 33 32 20 33 32 20 33 32 20 33 32 |2 35 32 32 32 32|
0000D360: 00 24 0C 54 01 2E 42 59 54 45 20 33 32 20 38 39 |.$.T..BYTE 32 89|
0000D370: 20 33 32 20 38 39 20 33 32 20 38 38 20 38 38 20 | 32 89 32 88 88 |
0000D380: 38 38 00 46 0C 5E 01 2E 42 59 54 45 20 33 32 20 |88.F.^..BYTE 32 |
0000D390: 38 39 20 33 32 20 38 39 20 33 32 20 38 38 20 38 |89 32 89 32 88 8|
0000D3A0: 38 20 38 38 00 56 0C 68 01 2E 46 49 4C 45 20 42 |8 88.V.h..FILE B|
0000D3B0: 59 54 45 53 00 00 00 35 20 33 32 20 33 32 20 33 |YTES...5 32 32 3|
0000D3C0: 32 20 33 32 00 8C 0A DC 00 2E 42 59 54 45 20 33 |2 32......BYTE 3|
0000D3D0: 32 20 38 39 20 33 32 20 38 39 20 38 38 20 38 38 |2 89 32 89 88 88|
0000D3E0: 20 38 39 20 38 39 00 AE 0A E6 00 2E 42 59 54 45 | 89 89......BYTE|
0000D3F0: 20 33 32 20 38 39 20 33 32 20 38 39 20 38 38 20 | 32 89 32 89 88 |
0000D400: 38 38 20 38 39 20 38 39 00 D0 0A F0 00 2E 42 59 |88 89 89......BY|
0000D410: 54 45 20 33 35 20 38 38 20 33 35 20 38 38 20 33 |TE 35 88 35 88 3|
0000D420: 32 20 33 32 20 33 32 20 33 32 00 F2 0A FA 00 2E |2 32 32 32......|
0000D430: 42 59 54 45 20 33 32 20 33 35 20 33 32 20 33 35 |BYTE 32 35 32 35|
0000D440: 20 33 32 20 33 32 20 33 32 20 33 32 00 14 0B 04 | 32 32 32 32....|
0000D450: 01 2E 42 59 01 08 20 08 28 00 42 59 54 45 20 2E |..BY.. .(.BYTE .|
0000D460: 42 59 54 45 20 30 20 31 20 30 20 31 20 30 20 31 |BYTE 0 1 0 1 0 1|
0000D470: 20 31 20 31 00 3A 08 32 00 2E 42 59 54 45 20 30 | 1 1.:.2..BYTE 0|
0000D480: 20 31 20 30 20 31 20 30 20 32 20 32 20 32 00 54 | 1 0 1 0 2 2 2.T|
0000D490: 08 3C 00 2E 42 59 54 45 20 31 20 31 20 30 20 31 |.<..BYTE 1 1 0 1|
0000D4A0: 20 30 20 31 20 31 20 31 00 6E 08 46 00 2E 42 59 | 0 1 1 1.n.F..BY|
0000D4B0: 54 45 20 30 20 32 20 30 20 32 20 30 20 32 20 32 |TE 0 2 0 2 0 2 2|
0000D4C0: 20 32 00 88 08 50 00 2E 42 59 54 45 20 32 20 31 | 2...P..BYTE 2 1|
0000D4D0: 20 30 20 31 20 31 20 31 20 31 20 31 00 A2 08 5A | 0 1 1 1 1 1...Z|
0000D4E0: 00 2E 42 59 54 45 20 30 20 31 20 30 20 31 20 32 |..BYTE 0 1 0 1 2|
0000D4F0: 20 32 20 32 20 32 00 BC 08 64 00 2E 42 59 54 45 | 2 2 2...d..BYTE|
0000D500: 20 31 20 31 20 30 20 31 20 30 20 31 20 31 20 31 | 1 1 0 1 0 1 1 1|
0000D510: 00 D6 08 6E 00 2E 42 59 54 45 20 30 20 32 20 30 |...n..BYTE 0 2 0|
0000D520: 20 32 20 30 20 32 20 32 20 32 00 F0 08 78 00 2E | 2 0 2 2 2...x..|
0000D530: 42 59 54 45 20 30 20 31 20 30 20 31 20 30 20 31 |BYTE 0 1 0 1 0 1|
0000D540: 20 31 20 31 00 0A 09 82 00 2E 42 59 54 45 20 30 | 1 1......BYTE 0|
0000D550: 20 31 20 30 20 31 20 32 20 32 20 32 20 32 00 24 | 1 0 1 2 2 2 2.$|
0000D560: 09 8C 00 2E 42 59 54 45 20 31 20 31 20 30 20 31 |....BYTE 1 1 0 1|
0000D570: 20 30 20 31 20 31 20 31 00 3E 09 96 00 2E 42 59 | 0 1 1 1.>....BY|
0000D580: 54 45 20 30 20 32 20 30 20 32 20 30 20 32 20 32 |TE 0 2 0 2 0 2 2|
0000D590: 20 32 00 58 09 A0 00 2E 42 59 54 45 20 30 20 31 | 2.X....BYTE 0 1|
0000D5A0: 20 30 20 31 20 30 20 31 20 31 20 31 00 72 09 AA | 0 1 0 1 1 1.r..|
0000D5B0: 00 2E 42 59 54 45 20 30 20 31 20 30 20 31 20 32 |..BYTE 0 1 0 1 2|
0000D5C0: 20 32 20 32 20 32 00 8C 09 B4 00 2E 42 59 54 45 | 2 2 2......BYTE|
0000D5D0: 20 31 20 31 20 30 20 31 20 30 20 31 20 31 20 31 | 1 1 0 1 0 1 1 1|
0000D5E0: 00 A6 09 BE 00 2E 42 59 54 45 20 30 20 32 20 30 |......BYTE 0 2 0|
0000D5F0: 20 32 20 30 20 32 20 32 20 32 00 C0 09 C8 00 2E | 2 0 2 2 2......|
0000D600: 42 59 54 45 20 30 20 31 20 30 20 31 20 31 20 31 |BYTE 0 1 0 1 1 1|
0000D610: 20 31 20 31 00 DA 09 D2 00 2E 42 59 54 45 20 30 | 1 1......BYTE 0|
0000D620: 20 30 20 30 20 31 20 32 20 32 20 32 20 32 00 F4 | 0 0 1 2 2 2 2..|
0000D630: 09 DC 00 2E 42 59 54 45 20 31 20 31 20 30 20 31 |....BYTE 1 1 0 1|
0000D640: 20 31 20 31 20 31 20 31 00 0E 0A E6 00 2E 42 59 | 1 1 1 1......BY|
0000D650: 54 45 20 30 20 32 20 30 20 32 20 32 20 32 20 32 |TE 0 2 0 2 2 2 2|
0000D660: 20 32 00 28 0A F0 00 2E 42 59 54 45 20 31 20 31 | 2.(....BYTE 1 1|
0000D670: 20 31 20 31 20 31 20 31 20 31 20 31 00 42 0A FA | 1 1 1 1 1 1.B..|
0000D680: 00 2E 42 59 54 45 20 30 20 31 20 30 20 31 20 32 |..BYTE 0 1 0 1 2|
0000D690: 20 32 20 32 20 32 00 5C 0A 04 01 2E 42 59 54 45 | 2 2 2.\....BYTE|
0000D6A0: 20 31 20 31 20 30 20 31 20 31 20 31 20 31 20 31 | 1 1 0 1 1 1 1 1|
0000D6B0: 00 76 0A 0E 01 2E 42 59 54 45 20 30 20 32 20 30 |.v....BYTE 0 2 0|
0000D6C0: 20 32 20 32 20 32 20 32 20 32 00 90 0A 18 01 2E | 2 2 2 2 2......|
0000D6D0: 42 59 54 45 20 31 20 31 20 30 20 31 20 31 20 31 |BYTE 1 1 0 1 1 1|
0000D6E0: 20 31 20 31 00 AA 0A 22 01 2E 42 59 54 45 20 30 | 1 1..."..BYTE 0|
0000D6F0: 20 31 20 30 20 31 20 32 20 32 20 32 20 32 00 C4 | 1 0 1 2 2 2 2..|
0000D700: 0A 2C 01 2E 42 59 54 45 20 31 20 31 20 30 20 31 |.,..BYTE 1 1 0 1|
0000D710: 20 30 20 31 20 31 20 31 00 DE 0A 36 01 2E 42 59 | 0 1 1 1...6..BY|
0000D720: 54 45 20 30 20 32 20 30 20 32 20 30 20 32 20 32 |TE 0 2 0 2 0 2 2|
0000D730: 20 32 00 F8 0A 40 01 2E 42 59 54 45 20 31 20 31 | 2...@..BYTE 1 1|
0000D740: 20 30 20 31 20 31 20 31 20 31 20 31 00 12 0B 4A | 0 1 1 1 1 1...J|
0000D750: 01 2E 42 59 54 45 20 30 20 31 20 30 20 31 20 32 |..BYTE 0 1 0 1 2|
0000D760: 20 32 20 32 20 32 00 2C 0B 54 01 2E 42 59 54 45 | 2 2 2.,.T..BYTE|
0000D770: 20 31 20 31 20 30 20 31 20 30 20 31 20 31 20 31 | 1 1 0 1 0 1 1 1|
0000D780: 00 46 0B 5E 01 2E 42 59 54 45 20 30 20 32 20 30 |.F.^..BYTE 0 2 0|
0000D790: 20 32 20 30 20 32 20 32 20 32 00 65 0B 77 01 43 | 2 0 2 2 2.e.w.C|
0000D7A0: 4D 4E 44 31 20 2E 42 59 54 45 20 36 38 20 38 30 |MND1 .BYTE 68 80|
0000D7B0: 20 38 38 20 31 39 32 20 30 00 78 0B 78 01 43 4D | 88 192 0.x.x.CM|
0000D7C0: 4E 44 33 20 2E 42 59 54 45 20 33 32 00 9A 0B 7C |ND3 .BYTE 32...||
0000D7D0: 01 2E 42 59 54 45 20 33 32 20 33 32 20 33 32 20 |..BYTE 32 32 32 |
0000D7E0: 33 32 20 33 32 20 33 32 20 33 32 20 33 32 00 AD |32 32 32 32 32..|
0000D7F0: 0B 86 01 2E 42 59 54 45 20 33 32 20 33 32 20 33 |....BYTE 32 32 3|
0000D800: 32 00 C3 0B 8B 01 43 4D 4E 44 34 20 2E 42 59 54 |2.....CMND4 .BYT|
0000D810: 45 20 39 20 36 20 33 00 D9 0B 8C 01 43 4D 4E 44 |E 9 6 3.....CMND|
0000D820: 32 20 2E 42 59 54 45 20 35 20 32 20 30 00 E9 0B |2 .BYTE 5 2 0...|
0000D830: 90 01 2E 46 49 4C 45 20 55 4E 4F 50 31 00 00 00 |...FILE UNOP1...|
0000D840: 20 31 20 31 00 0E 0A E6 00 2E 42 59 01 08 1E 08 | 1 1......BY....|
0000D850: 0A 00 42 45 47 20 4C 44 41 20 23 24 39 33 3B 53 |..BEG LDA #$93;S|
0000D860: 43 52 45 45 4E 20 81 4D 41 54 00 28 08 14 00 4A |CREEN .MAT.(...J|
0000D870: 53 52 20 99 00 35 08 32 00 4C 44 41 20 23 24 30 |SR ..5.2.LDA #$0|
0000D880: 30 00 43 08 3C 00 53 54 41 20 24 44 30 32 30 00 |0.C.<.STA $D020.|
0000D890: 51 08 46 00 53 54 41 20 24 44 30 32 31 00 5E 08 |Q.F.STA $D021.^.|
0000D8A0: 50 00 4C 44 41 20 23 24 30 35 00 6C 08 5A 00 53 |P.LDA #$05.l.Z.S|
0000D8B0: 54 41 20 24 30 32 38 36 00 8F 08 A0 00 53 54 41 |TA $0286.....STA|
0000D8C0: 52 54 20 4C 44 58 20 23 24 46 46 3B 52 45 53 45 |RT LDX #$FF;RESE|
0000D8D0: 54 20 54 48 45 20 53 54 41 43 4B 00 97 08 AA 00 |T THE STACK.....|
0000D8E0: 54 58 53 00 BF 08 DC 00 4A 53 52 20 A1 41 44 44 |TXS.....JSR .ADD|
0000D8F0: 3B A1 20 42 45 47 49 4E 4E 49 4E 47 20 26 20 80 |;. BEGINNING & .|
0000D900: 49 4E 47 20 41 44 44 52 45 53 53 00 CA 08 E6 00 |ING ADDRESS.....|
0000D910: 4A 53 52 20 43 52 00 F7 08 F0 00 53 54 59 20 24 |JSR CR.....STY $|
0000D920: 32 34 3B 48 4F 4C 44 53 20 23 20 4F 46 20 42 59 |24;HOLDS # OF BY|
0000D930: 54 45 53 20 49 4E 20 22 44 22 20 41 44 52 45 53 |TES IN "D" ADRES|
0000D940: 53 45 53 00 04 09 FA 00 4C 44 58 20 23 24 30 30 |SES.....LDX #$00|
0000D950: 00 28 09 04 01 4C 44 41 20 41 44 44 42 55 46 3B |.(...LDA ADDBUF;|
0000D960: A1 20 43 4F 4D 4D AF 20 44 2C 20 50 2C 20 49 2C |. COMM. D, P, I,|
0000D970: 20 B0 20 58 00 35 09 0E 01 43 4D 50 20 23 24 34 | . X.5...CMP #$4|
0000D980: 34 00 42 09 18 01 42 4E 45 20 43 48 4B 50 00 62 |4.B...BNE CHKP.b|
0000D990: 09 22 01 4A 4D 50 20 44 3B 20 44 49 53 41 53 53 |.".JMP D; DISASS|
0000D9A0: 45 4D 42 4C 45 20 A4 20 53 43 52 45 45 4E 00 74 |EMBLE . SCREEN.t|
0000D9B0: 09 2C 01 43 48 4B 50 20 43 4D 50 20 23 24 35 30 |.,.CHKP CMP #$50|
0000D9C0: 00 81 09 36 01 42 4E 45 20 43 48 4B 49 00 9D 09 |...6.BNE CHKI...|
0000D9D0: 40 01 4A 4D 50 20 50 3B 44 49 53 41 53 53 45 4D |@.JMP P;DISASSEM|
0000D9E0: 42 4C 45 20 A4 20 99 45 52 00 AF 09 4A 01 43 48 |BLE . .ER...J.CH|
0000D9F0: 4B 49 20 43 4D 50 20 23 24 34 39 00 BC 09 54 01 |KI CMP #$49...T.|
0000DA00: 42 4E 45 20 43 48 4B 58 00 C8 09 5E 01 4A 4D 50 |BNE CHKX...^.JMP|
0000DA10: 20 44 53 4B 00 DA 09 7C 01 43 48 4B 58 20 43 4D | DSK...|.CHKX CM|
0000DA20: 50 20 23 24 35 38 00 F2 09 86 01 42 4E 45 20 4E |P #$58.....BNE N|
0000DA30: 3B 49 4E 43 B0 52 45 43 54 20 81 4D 41 54 00 12 |;INC.RECT .MAT..|
0000DA40: 0A 90 01 4A 4D 50 20 58 3B 8E 20 A4 20 4D AD 4C |...JMP X;. . M.L|
0000DA50: 20 4D 91 49 A4 52 20 40 20 24 43 30 30 30 00 22 | M.I.R @ $C000."|
0000DA60: 0A 9A 01 2E 46 49 4C 45 20 55 4E 4F 50 32 00 00 |....FILE UNOP2..|
0000DA70: 00 35 08 32 00 4C 44 41 20 23 24 30 30 00 43 08 |.5.2.LDA #$00.C.|
0000DA80: 3C 00 53 54 41 20 24 44 30 32 30 00 51 08 46 00 |<.STA $D020.Q.F.|
0000DA90: 53 54 41 20 24 44 30 32 31 00 5E 08 50 00 4C 44 |STA $D021.^.P.LD|
0000DAA0: 41 20 23 24 30 35 00 6C 08 5A 00 53 54 41 20 24 |A #$05.l.Z.STA $|
0000DAB0: 30 32 38 36 00 8F 08 A0 00 53 54 41 52 54 20 4C |0286.....START L|
0000DAC0: 44 58 20 23 24 46 46 3B 52 45 53 45 54 20 54 48 |DX #$FF;RESET TH|
0000DAD0: 45 20 53 54 41 43 4B 00 97 08 AA 00 54 58 53 00 |E STACK.....TXS.|
0000DAE0: BF 08 DC 00 4A 53 52 20 A1 41 44 44 3B A1 20 42 |....JSR .ADD;. B|
0000DAF0: 45 47 49 4E 4E 49 4E 47 20 26 20 80 49 4E 47 20 |EGINNING & .ING |
0000DB00: 41 44 44 52 45 53 53 00 CA 08 E6 00 4A 53 52 20 |ADDRESS.....JSR |
0000DB10: 43 52 00 F7 08 F0 00 53 54 59 20 24 32 34 3B 48 |CR.....STY $24;H|
0000DB20: 4F 4C 44 53 20 23 20 4F 46 20 42 59 54 45 53 20 |OLDS # OF BYTES |
0000DB30: 49 4E 20 22 44 22 20 41 44 52 45 53 53 45 53 00 |IN "D" ADRESSES.|
0000DB40: 04 09 FA 00 4C 44 01 08 26 08 28 00 44 20 4A 53 |....LD..&.(.D JS|
0000DB50: 52 20 44 49 53 3B 53 45 54 20 55 50 20 41 44 44 |R DIS;SET UP ADD|
0000DB60: 52 45 53 53 20 52 4F 55 54 49 4E 45 00 43 08 32 |RESS ROUTINE.C.2|
0000DB70: 00 4A 53 52 20 46 49 4E 44 4D 4E 3B 99 20 44 49 |.JSR FINDMN;. DI|
0000DB80: 53 41 53 53 45 4D 42 4C 59 00 69 08 3C 00 4A 4D |SASSEMBLY.i.<.JM|
0000DB90: 50 20 53 54 41 52 54 3B 57 48 45 4E 20 46 49 4E |P START;WHEN FIN|
0000DBA0: 49 53 48 45 44 20 54 45 52 4D 49 4E 41 54 45 00 |ISHED TERMINATE.|
0000DBB0: 77 08 46 00 50 20 4A 53 52 20 44 49 53 00 8C 08 |w.F.P JSR DIS...|
0000DBC0: 50 00 4A 53 52 20 9F 3B 53 45 54 20 55 50 20 99 |P.JSR .;SET UP .|
0000DBD0: 45 52 00 9B 08 5A 00 4A 53 52 20 46 49 4E 44 4D |ER...Z.JSR FINDM|
0000DBE0: 4E 00 A5 08 64 00 4A 53 52 20 A0 00 CB 08 6E 00 |N...d.JSR ....n.|
0000DBF0: 4A 4D 50 20 53 54 41 52 54 3B 57 48 45 4E 20 46 |JMP START;WHEN F|
0000DC00: 49 4E 49 53 48 45 44 20 54 45 52 4D 49 4E 41 54 |INISHED TERMINAT|
0000DC10: 45 00 E9 08 78 00 58 20 4A 4D 50 20 24 43 30 30 |E...x.X JMP $C00|
0000DC20: 30 3B 4A 4D 50 20 4D AD 4C 20 4D 91 49 A4 52 00 |0;JMP M.L M.I.R.|
0000DC30: F9 08 82 00 4E 20 4A 4D 50 20 53 54 41 52 54 00 |....N JMP START.|
0000DC40: 0A 09 A0 00 44 49 53 20 4C 44 59 20 23 24 30 30 |....DIS LDY #$00|
0000DC50: 00 19 09 AA 00 4A 53 52 20 53 45 54 41 44 44 00 |.....JSR SETADD.|
0000DC60: 3B 09 B4 00 53 54 41 20 24 32 32 3B 48 49 20 42 |;...STA $22;HI B|
0000DC70: 59 54 45 20 42 45 47 49 4E 20 41 44 44 52 45 53 |YTE BEGIN ADDRES|
0000DC80: 53 00 4A 09 BE 00 4A 53 52 20 53 45 54 41 44 44 |S.J...JSR SETADD|
0000DC90: 00 56 09 C8 00 53 54 41 20 24 32 33 00 7E 09 D2 |.V...STA $23.~..|
0000DCA0: 00 4A 53 52 20 48 45 58 3B 57 48 45 4E 20 8E 20 |.JSR HEX;WHEN . |
0000DCB0: 48 49 20 42 59 54 45 20 42 45 47 49 4E 20 49 4E |HI BYTE BEGIN IN|
0000DCC0: 20 48 45 58 00 8A 09 DC 00 53 54 41 20 24 46 43 | HEX.....STA $FC|
0000DCD0: 00 99 09 E6 00 4A 53 52 20 53 45 54 41 44 44 00 |.....JSR SETADD.|
0000DCE0: BB 09 F0 00 53 54 41 20 24 32 32 3B 4C 4F 20 42 |....STA $22;LO B|
0000DCF0: 59 54 45 20 42 45 47 49 4E 20 41 44 44 52 45 53 |YTE BEGIN ADDRES|
0000DD00: 53 00 CA 09 FA 00 4A 53 52 20 53 45 54 41 44 44 |S.....JSR SETADD|
0000DD10: 00 D6 09 04 01 53 54 41 20 24 32 33 00 F8 09 0E |.....STA $23....|
0000DD20: 01 4A 53 52 20 48 45 58 3B 4C 4F 20 42 59 54 45 |.JSR HEX;LO BYTE|
0000DD30: 20 42 45 47 49 4E 20 41 44 44 52 45 53 53 00 04 | BEGIN ADDRESS..|
0000DD40: 0A 18 01 53 54 41 20 24 46 42 00 13 0A 22 01 4A |...STA $FB...".J|
0000DD50: 53 52 20 53 45 54 41 44 44 00 31 0A 2C 01 53 54 |SR SETADD.1.,.ST|
0000DD60: 41 20 24 32 32 3B 48 49 20 42 59 54 45 20 80 20 |A $22;HI BYTE . |
0000DD70: 41 44 44 52 45 53 53 00 40 0A 36 01 4A 53 52 20 |ADDRESS.@.6.JSR |
0000DD80: 53 45 54 41 44 44 00 4C 0A 40 01 53 54 41 20 24 |SETADD.L.@.STA $|
0000DD90: 32 33 00 6A 0A 4A 01 4A 53 52 20 48 45 58 3B 20 |23.j.J.JSR HEX; |
0000DDA0: 43 91 56 45 52 54 20 41 44 44 20 A4 20 48 45 58 |C.VERT ADD . HEX|
0000DDB0: 00 88 0A 54 01 53 54 41 20 24 46 45 3B 48 49 20 |...T.STA $FE;HI |
0000DDC0: 42 59 54 45 20 80 20 41 44 44 52 45 53 53 00 97 |BYTE . ADDRESS..|
0000DDD0: 0A 5E 01 4A 53 52 20 53 45 54 41 44 44 00 B5 0A |.^.JSR SETADD...|
0000DDE0: 68 01 53 54 41 20 24 32 32 3B 4C 4F 20 42 59 54 |h.STA $22;LO BYT|
0000DDF0: 45 20 80 20 41 44 44 52 45 53 53 00 C4 0A 72 01 |E . ADDRESS...r.|
0000DE00: 4A 53 52 20 53 45 54 41 44 44 00 D0 0A 7C 01 53 |JSR SETADD...|.S|
0000DE10: 54 41 20 24 32 33 00 DC 0A 86 01 4A 53 52 20 48 |TA $23.....JSR H|
0000DE20: 45 58 00 FA 0A 90 01 53 54 41 20 24 46 44 3B 4C |EX.....STA $FD;L|
0000DE30: 4F 20 42 59 54 45 20 80 20 41 44 44 52 45 53 53 |O BYTE . ADDRESS|
0000DE40: 00 02 0B 9A 01 52 54 53 00 13 0B A4 01 53 54 20 |.....RTS.....ST |
0000DE50: 4A 4D 50 20 53 54 41 52 54 00 23 0B AE 01 2E 46 |JMP START.#....F|
0000DE60: 49 4C 45 20 55 4E 4F 50 33 00 00 00 59 54 45 20 |ILE UNOP3...YTE |
0000DE70: 42 45 47 49 4E 20 41 44 44 52 45 53 53 00 4A 09 |BEGIN ADDRESS.J.|
0000DE80: BE 00 4A 53 52 20 53 45 54 41 44 44 00 56 09 C8 |..JSR SETADD.V..|
0000DE90: 00 53 54 41 20 24 32 33 00 7E 09 D2 00 4A 53 52 |.STA $23.~...JSR|
0000DEA0: 20 48 45 58 3B 57 48 45 4E 20 8E 20 48 49 20 42 | HEX;WHEN . HI B|
0000DEB0: 59 54 45 20 42 45 47 49 4E 20 49 4E 20 48 45 58 |YTE BEGIN IN HEX|
0000DEC0: 00 8A 09 DC 00 53 54 41 20 24 46 43 00 99 09 E6 |.....STA $FC....|
0000DED0: 00 4A 53 52 20 53 45 54 41 44 44 00 BB 09 F0 00 |.JSR SETADD.....|
0000DEE0: 53 54 41 20 24 32 32 3B 4C 4F 20 42 59 54 45 20 |STA $22;LO BYTE |
0000DEF0: 42 45 47 49 4E 20 41 44 44 52 45 53 53 00 CA 09 |BEGIN ADDRESS...|
0000DF00: FA 00 4A 53 52 20 53 45 54 41 44 44 00 D6 09 04 |..JSR SETADD....|
0000DF10: 01 53 54 41 20 24 32 33 00 F8 09 0E 01 4A 53 52 |.STA $23.....JSR|
0000DF20: 20 48 45 58 3B 4C 4F 20 42 59 54 45 20 42 45 47 | HEX;LO BYTE BEG|
0000DF30: 49 4E 20 41 44 44 52 45 53 53 00 04 0A 18 01 08 |IN ADDRESS......|
0000DF40: 36 08 32 00 53 45 54 41 44 44 20 43 50 59 20 24 |6.2.SETADD CPY $|
0000DF50: 32 34 3B 23 20 4F 46 20 42 59 54 45 53 20 49 4E |24;# OF BYTES IN|
0000DF60: 20 42 45 47 49 4E 20 26 20 80 20 41 44 44 52 45 | BEGIN & . ADDRE|
0000DF70: 53 53 45 53 00 41 08 3C 00 42 43 53 20 53 54 00 |SSES.A.<.BCS ST.|
0000DF80: 49 08 46 00 49 4E 59 00 6E 08 50 00 4C 44 41 20 |I.F.INY.n.P.LDA |
0000DF90: 41 44 44 42 55 46 2C 59 3B A1 20 54 48 45 20 43 |ADDBUF,Y;. THE C|
0000DFA0: 4F 4D 4D AF 20 44 20 50 20 B0 20 58 00 7B 08 5A |OMM. D P . X.{.Z|
0000DFB0: 00 43 4D 50 20 23 24 32 30 00 8A 08 64 00 42 45 |.CMP #$20...d.BE|
0000DFC0: 51 20 53 45 54 41 44 44 00 9E 08 6E 00 43 4D 50 |Q SETADD...n.CMP|
0000DFD0: 20 23 24 32 43 3B 20 43 4F 4D 4D 41 00 AD 08 78 | #$2C; COMMA...x|
0000DFE0: 00 42 45 51 20 53 45 54 41 44 44 00 BF 08 82 00 |.BEQ SETADD.....|
0000DFF0: 43 4D 50 20 23 24 33 30 3B 5A 45 52 4F 00 D0 08 |CMP #$30;ZERO...|
0000E000: 8C 00 42 43 43 20 53 54 3B 23 20 B3 20 30 00 DD |..BCC ST;# . 0..|
0000E010: 08 96 00 43 4D 50 20 23 24 33 41 00 EF 08 A0 00 |...CMP #$3A.....|
0000E020: 42 43 53 20 55 33 32 3B 23 20 B1 20 39 00 1F 09 |BCS U32;# . 9...|
0000E030: AA 00 53 42 43 20 23 24 32 46 3B 42 45 43 4F 4D |..SBC #$2F;BECOM|
0000E040: 45 53 20 52 45 41 4C 20 23 2C 20 23 24 33 31 20 |ES REAL #, #$31 |
0000E050: AB 20 23 24 32 46 20 B2 20 23 24 30 31 00 30 09 |. #$2F . #$01.0.|
0000E060: B4 00 55 33 32 20 43 4D 50 20 23 24 34 31 00 43 |..U32 CMP #$41.C|
0000E070: 09 BE 00 42 43 43 20 55 33 33 3B 20 41 20 B0 20 |...BCC U33; A . |
0000E080: B1 00 50 09 C8 00 53 42 43 20 23 24 33 37 00 61 |..P...SBC #$37.a|
0000E090: 09 D2 00 55 33 33 20 43 4D 50 20 23 24 31 30 00 |...U33 CMP #$10.|
0000E0A0: 72 09 DC 00 42 43 53 20 53 54 3B 23 20 B1 20 47 |r...BCS ST;# . G|
0000E0B0: 00 7A 09 E6 00 52 54 53 00 99 09 F0 00 48 45 58 |.z...RTS.....HEX|
0000E0C0: 20 4C 44 41 20 24 32 32 3B 43 48 41 4E 47 45 20 | LDA $22;CHANGE |
0000E0D0: 23 20 A4 20 48 45 58 00 AD 09 FA 00 41 53 4C 3A |# . HEX.....ASL:|
0000E0E0: 41 53 4C 3A 41 53 4C 3A 41 53 4C 00 B9 09 04 01 |ASL:ASL:ASL.....|
0000E0F0: 53 54 41 20 24 32 32 00 C5 09 0E 01 4C 44 41 20 |STA $22.....LDA |
0000E100: 24 32 33 00 D0 09 18 01 B0 41 20 24 32 32 00 D8 |$23......A $22..|
0000E110: 09 22 01 52 54 53 00 E8 09 2C 01 2E 46 49 4C 45 |.".RTS...,..FILE|
0000E120: 20 55 4E 4F 50 34 00 00 00 A0 A0 A0 A0 A0 A0 00 | UNOP4..........|
0000E130: 00 00 00 00 00 00 00 00 04 00 01 08 25 08 0A 00 |............%...|
0000E140: 3B 45 58 41 4D 50 4C 45 20 55 53 45 44 20 48 45 |;EXAMPLE USED HE|
0000E150: 52 45 20 49 53 20 4A 4D 50 20 24 36 36 31 43 00 |RE IS JMP $661C.|
0000E160: 39 08 28 00 46 49 4E 44 4D 4E 20 4C 44 59 20 23 |9.(.FINDMN LDY #|
0000E170: 24 30 30 00 55 08 32 00 4C 44 41 20 28 24 46 42 |$00.U.2.LDA ($FB|
0000E180: 29 2C 59 3B 20 23 24 34 43 20 22 4A 4D 50 22 00 |),Y; #$4C "JMP".|
0000E190: 77 08 3C 00 54 41 58 3B 49 4E 44 45 58 20 A4 20 |w.<.TAX;INDEX . |
0000E1A0: 23 20 4F 46 20 42 59 54 45 53 20 49 4E 20 41 52 |# OF BYTES IN AR|
0000E1B0: 47 00 8A 08 46 00 54 41 59 3B 49 4E 44 45 58 20 |G...F.TAY;INDEX |
0000E1C0: A4 20 4F 50 00 95 08 47 00 AF 20 23 24 31 46 00 |. OP...G.. #$1F.|
0000E1D0: B3 08 48 00 53 54 41 20 42 55 46 31 3B 48 4F 4C |..H.STA BUF1;HOL|
0000E1E0: 44 53 20 23 20 24 20 28 20 45 54 43 2E 00 BB 08 |DS # $ ( ETC....|
0000E1F0: 50 00 49 4E 59 00 DF 08 5A 00 4C 44 41 20 23 24 |P.INY...Z.LDA #$|
0000E200: 30 30 3B 43 4F 55 4E 54 20 42 59 20 33 27 53 20 |00;COUNT BY 3'S |
0000E210: A4 20 4F 50 AB 43 4F 44 45 00 EB 08 64 00 53 54 |. OP.CODE...d.ST|
0000E220: 41 20 24 32 32 00 14 09 6E 00 4C 44 41 20 23 B1 |A $22...n.LDA #.|
0000E230: 4F 50 3B 57 48 45 4E 20 46 49 4E 49 48 45 44 20 |OP;WHEN FINIHED |
0000E240: 24 32 32 20 26 20 24 32 33 20 57 49 4C 4C 00 20 |$22 & $23 WILL. |
0000E250: 09 78 00 53 54 41 20 24 32 33 00 3E 09 82 00 46 |.x.STA $23.>...F|
0000E260: 49 4E 20 43 4C 43 3B 50 4F B5 20 A4 20 24 36 30 |IN CLC;PO. . $60|
0000E270: 45 37 20 22 4A 4D 50 22 00 4B 09 8C 00 4C 44 41 |E7 "JMP".K...LDA|
0000E280: 20 23 24 30 33 00 57 09 96 00 41 44 43 20 24 32 | #$03.W...ADC $2|
0000E290: 32 00 63 09 A0 00 53 54 41 20 24 32 32 00 6F 09 |2.c...STA $22.o.|
0000E2A0: AA 00 4C 44 41 20 24 32 33 00 7C 09 B4 00 41 44 |..LDA $23.|...AD|
0000E2B0: 43 20 23 24 30 30 00 88 09 BE 00 53 54 41 20 24 |C #$00.....STA $|
0000E2C0: 32 33 00 90 09 C8 00 44 45 59 00 9C 09 D2 00 42 |23.....DEY.....B|
0000E2D0: 4E 45 20 46 49 4E 00 AD 09 0E 01 4C 44 41 20 24 |NE FIN.....LDA $|
0000E2E0: 46 43 3B 23 24 36 30 00 D6 09 18 01 4A 53 52 20 |FC;#$60.....JSR |
0000E2F0: 48 45 58 43 91 3B 99 20 48 49 20 42 59 54 45 20 |HEXC.;. HI BYTE |
0000E300: 41 44 44 52 45 53 53 20 A4 20 53 43 52 45 45 4E |ADDRESS . SCREEN|
0000E310: 00 E2 09 22 01 4C 44 41 20 24 46 42 00 0D 0A 2C |...".LDA $FB...,|
0000E320: 01 4A 53 52 20 48 45 58 43 91 3B 20 4C 4F 20 42 |.JSR HEXC.; LO B|
0000E330: 59 54 45 20 53 43 52 45 45 4E 20 4E 4F 57 20 48 |YTE SCREEN NOW H|
0000E340: 41 53 20 36 30 30 30 00 23 0A 36 01 4A 53 52 20 |AS 6000.#.6.JSR |
0000E350: 53 50 43 3B 99 20 41 20 53 50 41 43 45 00 4D 0A |SPC;. A SPACE.M.|
0000E360: 40 01 4C 44 41 20 42 59 54 45 2C 58 3B 23 20 4F |@.LDA BYTE,X;# O|
0000E370: 46 20 42 59 54 45 53 20 49 4E 20 4A 4D 50 20 41 |F BYTES IN JMP A|
0000E380: 52 47 55 4D 45 4E 54 00 5A 0A 4A 01 53 54 41 20 |RGUMENT.Z.J.STA |
0000E390: 42 55 46 32 00 67 0A 54 01 49 4E 43 20 42 55 46 |BUF2.g.T.INC BUF|
0000E3A0: 32 00 6F 0A 5E 01 54 41 59 00 7F 0A 68 01 4C 44 |2.o.^.TAY...h.LD|
0000E3B0: 41 20 43 4D 4E 44 32 2C 59 00 8C 0A 72 01 53 54 |A CMND2,Y...r.ST|
0000E3C0: 41 20 42 55 46 30 00 99 0A 7C 01 4C 44 59 20 23 |A BUF0...|.LDY #|
0000E3D0: 24 30 30 00 B3 0A 86 01 55 34 31 20 4C 44 41 20 |$00.....U41 LDA |
0000E3E0: 28 24 46 42 29 2C 59 3B 20 23 24 34 43 00 D6 0A |($FB),Y; #$4C...|
0000E3F0: 90 01 4A 53 52 20 48 45 58 43 91 3B 99 20 34 43 |..JSR HEXC.;. 4C|
0000E400: 20 A4 20 53 52 45 45 4E 20 36 30 30 30 20 34 43 | . SREEN 6000 4C|
0000E410: 00 E6 0A 9A 01 2E 46 49 4C 45 20 55 4E 4F 50 35 |......FILE UNOP5|
0000E420: 00 00 00 09 6E 00 4C 44 41 20 23 B1 4F 50 3B 57 |....n.LDA #.OP;W|
0000E430: 48 45 4E 20 01 08 0D 08 28 00 4A 53 52 20 53 50 |HEN ....(.JSR SP|
0000E440: 43 00 15 08 32 00 49 4E 59 00 3C 08 3C 00 43 50 |C...2.INY.<.<.CP|
0000E450: 59 20 42 55 46 32 3B 20 23 20 4F 46 20 42 59 54 |Y BUF2; # OF BYT|
0000E460: 45 53 20 49 4E 20 43 4D 4E 44 20 AF 20 41 52 47 |ES IN CMND . ARG|
0000E470: 00 5E 08 46 00 42 4E 45 20 55 34 31 3B 20 99 20 |.^.F.BNE U41; . |
0000E480: 52 45 53 54 20 36 30 30 30 20 34 43 20 31 43 20 |REST 6000 4C 1C |
0000E490: 36 36 00 66 08 50 00 44 45 59 00 84 08 5A 00 4C |66.f.P.DEY...Z.L|
0000E4A0: 44 41 20 43 4D 4E 44 34 2C 59 3B 23 20 4F 46 20 |DA CMND4,Y;# OF |
0000E4B0: 53 50 43 53 20 A4 20 99 00 8C 08 64 00 54 41 59 |SPCS . ....d.TAY|
0000E4C0: 00 99 08 6E 00 4A 53 52 20 53 50 43 31 00 A6 08 |...n.JSR SPC1...|
0000E4D0: 78 00 4C 44 59 20 23 24 30 30 00 C1 08 82 00 55 |x.LDY #$00.....U|
0000E4E0: 35 32 20 4C 44 41 20 28 24 32 32 29 2C 59 3B 20 |52 LDA ($22),Y; |
0000E4F0: 99 20 4A 4D 50 00 E0 08 83 00 42 50 4C 20 4E B0 |. JMP.....BPL N.|
0000E500: 45 56 3B 53 45 56 45 4E 54 48 20 42 49 54 20 A8 |EV;SEVENTH BIT .|
0000E510: 20 53 45 54 00 F3 08 84 00 AF 20 23 24 37 46 3A | SET...... #$7F:|
0000E520: 53 54 41 20 42 59 54 00 00 09 85 00 4C 44 41 20 |STA BYT.....LDA |
0000E530: 23 24 31 32 00 0A 09 86 00 4A 53 52 20 99 00 16 |#$12.....JSR ...|
0000E540: 09 87 00 4C 44 41 20 42 59 54 00 25 09 8C 00 4E |...LDA BYT.%...N|
0000E550: B0 45 56 20 4A 53 52 20 99 00 2D 09 96 00 49 4E |.EV JSR ..-...IN|
0000E560: 59 00 3A 09 A0 00 43 50 59 20 23 24 30 33 00 46 |Y.:...CPY #$03.F|
0000E570: 09 AA 00 42 4E 45 20 55 35 32 00 53 09 AB 00 4C |...BNE U52.S...L|
0000E580: 44 41 20 23 24 39 32 00 5D 09 AC 00 4A 53 52 20 |DA #$92.]...JSR |
0000E590: 99 00 69 09 B4 00 4A 53 52 20 53 50 43 00 7C 09 |..i...JSR SPC.|.|
0000E5A0: BE 00 4C 44 59 20 42 55 46 32 3B 20 23 24 32 30 |..LDY BUF2; #$20|
0000E5B0: 00 84 09 C8 00 44 45 59 00 90 09 D2 00 42 4E 45 |.....DEY.....BNE|
0000E5C0: 20 55 35 33 00 9F 09 DC 00 4A 4D 50 20 43 48 4B | U53.....JMP CHK|
0000E5D0: 54 59 50 00 C3 09 E6 00 55 35 33 20 4C 44 41 20 |TYP.....U53 LDA |
0000E5E0: 54 59 50 45 2C 58 3B 20 48 4F 4C 44 53 20 23 20 |TYPE,X; HOLDS # |
0000E5F0: 24 20 59 20 B0 20 58 00 D2 09 F0 00 43 4D 50 20 |$ Y . X.....CMP |
0000E600: 23 24 32 33 3B 23 00 E8 09 FA 00 42 4E 45 20 55 |#$23;#.....BNE U|
0000E610: 35 34 3B 4D 55 53 54 20 42 45 20 24 00 F2 09 04 |54;MUST BE $....|
0000E620: 01 4A 53 52 20 99 00 FF 09 0E 01 44 45 43 20 42 |.JSR ......DEC B|
0000E630: 55 46 30 00 15 0A 18 01 55 35 34 20 4C 44 41 20 |UF0.....U54 LDA |
0000E640: 42 55 46 31 3B 23 24 30 43 00 25 0A 22 01 AF 20 |BUF1;#$0C.%.".. |
0000E650: 23 24 30 46 3B 23 24 30 43 00 53 0A 2C 01 43 4D |#$0F;#$0C.S.,.CM|
0000E660: 50 20 23 24 30 31 3B 49 4E 44 49 52 45 43 54 20 |P #$01;INDIRECT |
0000E670: 54 59 50 45 53 20 45 51 55 41 4C 20 23 24 30 31 |TYPES EQUAL #$01|
0000E680: 20 B0 20 23 24 30 33 00 63 0A 36 01 42 45 51 20 | . #$03.c.6.BEQ |
0000E690: 50 41 52 3B 99 20 28 00 70 0A 37 01 43 4D 50 20 |PAR;. (.p.7.CMP |
0000E6A0: 23 24 30 33 00 87 0A 38 01 42 4E 45 20 55 35 35 |#$03...8.BNE U55|
0000E6B0: 3B A8 20 49 4E 44 49 52 45 43 54 00 98 0A 40 01 |;. INDIRECT...@.|
0000E6C0: 50 41 52 20 4C 44 41 20 23 24 32 38 00 A2 0A 4A |PAR LDA #$28...J|
0000E6D0: 01 4A 53 52 20 99 00 AF 0A 54 01 44 45 43 20 42 |.JSR ....T.DEC B|
0000E6E0: 55 46 30 00 BC 0A 5E 01 44 45 43 20 42 55 46 30 |UF0...^.DEC BUF0|
0000E6F0: 00 CF 0A 68 01 55 35 35 20 4C 44 41 20 23 24 32 |...h.U55 LDA #$2|
0000E700: 34 3B 24 00 D9 0A 72 01 4A 53 52 20 99 00 E6 0A |4;$...r.JSR ....|
0000E710: 7C 01 4C 44 41 20 42 55 46 31 00 F3 0A 86 01 43 ||.LDA BUF1.....C|
0000E720: 4D 50 20 23 24 31 30 00 10 0B 90 01 42 4E 45 20 |MP #$10.....BNE |
0000E730: 55 36 34 3B 54 57 4F 20 42 59 54 45 20 41 44 44 |U64;TWO BYTE ADD|
0000E740: 52 45 53 53 00 18 0B 9A 01 43 4C 43 00 24 0B A4 |RESS.....CLC.$..|
0000E750: 01 4C 44 41 20 24 46 42 00 31 0B AE 01 41 44 43 |.LDA $FB.1...ADC|
0000E760: 20 23 24 30 32 00 3D 0B B8 01 53 54 41 20 24 32 | #$02.=...STA $2|
0000E770: 34 00 49 0B C2 01 4C 44 41 20 24 46 43 00 56 0B |4.I...LDA $FC.V.|
0000E780: CC 01 41 44 43 20 23 24 30 30 00 62 0B D6 01 53 |..ADC #$00.b...S|
0000E790: 54 41 20 24 32 35 00 6F 0B DB 01 4C 44 59 20 23 |TA $25.o...LDY #|
0000E7A0: 24 30 31 00 7F 0B E0 01 4C 44 41 20 28 24 46 42 |$01.....LDA ($FB|
0000E7B0: 29 2C 59 00 8B 0B EA 01 42 4D 49 20 55 36 35 00 |),Y.....BMI U65.|
0000E7C0: 9B 0B F4 01 2E 46 49 4C 45 20 55 4E 4F 50 36 00 |.....FILE UNOP6.|
0000E7D0: 00 00 E6 00 55 35 33 20 4C 44 41 20 54 59 50 45 |....U53 LDA TYPE|
0000E7E0: 2C 58 3B 20 48 4F 4C 44 53 20 23 20 24 20 59 20 |,X; HOLDS # $ Y |
0000E7F0: B0 20 58 00 D2 09 F0 00 43 4D 50 20 23 24 32 33 |. X.....CMP #$23|
0000E800: 3B 23 00 E8 09 FA 00 42 4E 45 20 55 35 34 3B 4D |;#.....BNE U54;M|
0000E810: 55 53 54 20 42 45 20 24 00 F2 09 04 01 4A 53 52 |UST BE $.....JSR|
0000E820: 20 99 00 FF 09 0E 01 44 45 43 20 42 01 08 09 08 | ......DEC B....|
0000E830: 28 00 43 4C 43 00 15 08 32 00 41 44 43 20 24 32 |(.CLC...2.ADC $2|
0000E840: 34 00 21 08 3C 00 53 54 41 20 24 32 34 00 2D 08 |4.!.<.STA $24.-.|
0000E850: 46 00 4C 44 41 20 24 32 35 00 3A 08 50 00 41 44 |F.LDA $25.:.P.AD|
0000E860: 43 20 23 24 30 30 00 46 08 5A 00 53 54 41 20 24 |C #$00.F.Z.STA $|
0000E870: 32 35 00 53 08 64 00 4A 4D 50 20 48 45 58 31 00 |25.S.d.JMP HEX1.|
0000E880: 5F 08 6E 00 55 36 35 20 53 45 43 00 6C 08 78 00 |_.n.U65 SEC.l.x.|
0000E890: 53 54 41 20 42 55 46 33 00 79 08 82 00 4C 44 41 |STA BUF3.y...LDA|
0000E8A0: 20 23 24 30 30 00 86 08 8C 00 53 42 43 20 42 55 | #$00.....SBC BU|
0000E8B0: 46 33 00 93 08 96 00 53 54 41 20 42 55 46 33 00 |F3.....STA BUF3.|
0000E8C0: 9B 08 A0 00 53 45 43 00 A7 08 AA 00 4C 44 41 20 |....SEC.....LDA |
0000E8D0: 24 32 34 00 B4 08 B4 00 53 42 43 20 42 55 46 33 |$24.....SBC BUF3|
0000E8E0: 00 C0 08 BE 00 53 54 41 20 24 32 34 00 CC 08 C8 |.....STA $24....|
0000E8F0: 00 4C 44 41 20 24 32 35 00 D9 08 D2 00 53 42 43 |.LDA $25.....SBC|
0000E900: 20 23 24 30 30 00 E5 08 DC 00 53 54 41 20 24 32 | #$00.....STA $2|
0000E910: 35 00 F6 08 E6 00 48 45 58 31 20 4C 44 41 20 24 |5.....HEX1 LDA $|
0000E920: 32 35 00 04 09 F0 00 4A 53 52 20 48 45 58 43 91 |25.....JSR HEXC.|
0000E930: 00 10 09 FA 00 4C 44 41 20 24 32 34 00 1E 09 04 |.....LDA $24....|
0000E940: 01 4A 53 52 20 48 45 58 43 91 00 2B 09 0E 01 4A |.JSR HEXC..+...J|
0000E950: 4D 50 20 49 4E 43 52 00 41 09 18 01 55 36 34 20 |MP INCR.A...U64 |
0000E960: 4C 44 59 20 42 55 46 32 3B 23 24 30 33 00 49 09 |LDY BUF2;#$03.I.|
0000E970: 22 01 44 45 59 00 8B 09 2C 01 55 36 31 20 4C 44 |".DEY...,.U61 LD|
0000E980: 41 20 28 24 46 42 29 2C 59 3B 99 54 20 54 57 4F |A ($FB),Y;.T TWO|
0000E990: 20 42 59 54 45 20 41 44 44 52 45 53 53 20 36 30 | BYTE ADDRESS 60|
0000E9A0: 30 30 20 34 43 20 31 43 20 36 36 20 20 20 4A 4D |00 4C 1C 66 JM|
0000E9B0: 50 20 24 36 36 31 43 00 99 09 36 01 4A 53 52 20 |P $661C...6.JSR |
0000E9C0: 48 45 58 43 91 00 A1 09 40 01 44 45 59 00 AD 09 |HEXC....@.DEY...|
0000E9D0: 4A 01 42 4E 45 20 55 36 31 00 C3 09 54 01 43 48 |J.BNE U61...T.CH|
0000E9E0: 4B 54 59 50 20 4C 44 41 20 54 59 50 45 2C 58 00 |KTYP LDA TYPE,X.|
0000E9F0: D0 09 5E 01 43 4D 50 20 23 24 32 34 00 DC 09 68 |..^.CMP #$24...h|
0000EA00: 01 42 43 53 20 55 37 31 00 03 0A 72 01 49 4E 43 |.BCS U71...r.INC|
0000EA10: 20 42 55 46 30 3B 23 20 4F 46 20 53 50 41 43 45 | BUF0;# OF SPACE|
0000EA20: 53 20 41 46 54 45 52 20 41 44 44 52 45 53 53 00 |S AFTER ADDRESS.|
0000EA30: 10 0A 7C 01 49 4E 43 20 42 55 46 30 00 1D 0A 86 |..|.INC BUF0....|
0000EA40: 01 42 4E 45 20 49 4E 43 52 00 2D 0A 90 01 2E 46 |.BNE INCR.-....F|
0000EA50: 49 4C 45 20 55 4E 4F 50 37 00 00 00 43 20 23 24 |ILE UNOP7...C #$|
0000EA60: 30 30 00 46 08 5A 00 53 54 41 20 24 32 35 00 53 |00.F.Z.STA $25.S|
0000EA70: 08 64 00 4A 4D 50 20 48 45 58 31 00 5F 08 6E 00 |.d.JMP HEX1._.n.|
0000EA80: 55 36 35 20 53 45 43 00 6C 08 78 00 53 54 41 20 |U65 SEC.l.x.STA |
0000EA90: 42 55 46 33 00 79 08 82 00 4C 44 41 20 23 24 30 |BUF3.y...LDA #$0|
0000EAA0: 30 00 86 08 8C 00 53 42 43 20 42 55 46 33 00 93 |0.....SBC BUF3..|
0000EAB0: 08 96 00 53 54 41 20 42 55 46 33 00 9B 08 A0 00 |...STA BUF3.....|
0000EAC0: 53 45 43 00 A7 08 AA 00 4C 44 41 20 24 32 34 00 |SEC.....LDA $24.|
0000EAD0: B4 08 B4 00 53 42 43 20 42 55 46 33 00 C0 08 BE |....SBC BUF3....|
0000EAE0: 00 53 54 41 20 24 32 34 00 CC 08 C8 00 4C 44 41 |.STA $24.....LDA|
0000EAF0: 20 24 32 35 00 D9 08 D2 00 53 42 43 20 23 24 30 | $25.....SBC #$0|
0000EB00: 30 00 E5 08 DC 00 53 54 41 20 24 32 35 00 F6 08 |0.....STA $25...|
0000EB10: E6 00 48 45 58 31 20 4C 44 41 20 24 32 35 00 04 |..HEX1 LDA $25..|
0000EB20: 09 F0 00 4A 53 52 01 08 0D 08 28 00 55 37 31 20 |...JSR....(.U71 |
0000EB30: 50 48 41 00 1A 08 32 00 4C 44 41 20 42 55 46 31 |PHA...2.LDA BUF1|
0000EB40: 00 27 08 3C 00 43 4D 50 20 23 24 31 31 00 34 08 |.'.<.CMP #$11.4.|
0000EB50: 46 00 42 45 51 20 50 41 52 31 00 41 08 47 00 43 |F.BEQ PAR1.A.G.C|
0000EB60: 4D 50 20 23 24 31 33 00 4D 08 48 00 42 4E 45 20 |MP #$13.M.H.BNE |
0000EB70: 55 37 32 00 63 08 50 00 50 41 52 31 20 4C 44 41 |U72.c.P.PAR1 LDA|
0000EB80: 20 23 24 32 39 3B 99 20 29 00 6D 08 5A 00 4A 53 | #$29;. ).m.Z.JS|
0000EB90: 52 20 99 00 82 08 64 00 55 37 32 20 4C 44 41 20 |R ....d.U72 LDA |
0000EBA0: 23 24 32 43 3B 99 20 2C 00 8C 08 6E 00 4A 53 52 |#$2C;. ,...n.JSR|
0000EBB0: 20 99 00 94 08 78 00 50 4C 41 00 9E 08 82 00 4A | ....x.PLA.....J|
0000EBC0: 53 52 20 99 00 AB 08 8C 00 4C 44 41 20 42 55 46 |SR ......LDA BUF|
0000EBD0: 31 00 B8 08 96 00 43 4D 50 20 23 24 30 31 00 C5 |1.....CMP #$01..|
0000EBE0: 08 A0 00 42 45 51 20 50 41 52 32 00 D2 08 A1 00 |...BEQ PAR2.....|
0000EBF0: 43 4D 50 20 23 24 30 33 00 DF 08 A2 00 42 4E 45 |CMP #$03.....BNE|
0000EC00: 20 49 4E 43 52 00 F1 08 AA 00 50 41 52 32 20 4C | INCR.....PAR2 L|
0000EC10: 44 41 20 23 24 32 39 00 FB 08 B4 00 4A 53 52 20 |DA #$29.....JSR |
0000EC20: 99 00 0D 09 BE 00 49 4E 43 52 20 49 4E 43 20 42 |......INCR INC B|
0000EC30: 55 46 30 00 2D 09 C8 00 49 4E 43 20 42 55 46 30 |UF0.-...INC BUF0|
0000EC40: 3B 52 45 53 54 20 4F 46 20 53 50 41 43 45 53 20 |;REST OF SPACES |
0000EC50: A4 20 99 00 3A 09 D2 00 49 4E 43 20 42 55 46 30 |. ..:...INC BUF0|
0000EC60: 00 47 09 DC 00 4C 44 59 20 42 55 46 30 00 62 09 |.G...LDY BUF0.b.|
0000EC70: E6 00 4A 53 52 20 53 50 43 31 3B 99 20 A4 54 41 |..JSR SPC1;. .TA|
0000EC80: 4C 20 53 50 41 43 45 53 00 6F 09 F0 00 4C 44 59 |L SPACES.o...LDY|
0000EC90: 20 23 24 30 30 00 9E 09 FA 00 55 37 33 20 4C 44 | #$00.....U73 LD|
0000ECA0: 41 20 28 24 46 42 29 2C 59 3B 99 53 20 52 49 47 |A ($FB),Y;.S RIG|
0000ECB0: 48 54 20 48 AF 20 53 49 44 45 20 4F 46 20 53 43 |HT H. SIDE OF SC|
0000ECC0: 52 45 45 4E 00 AA 09 04 01 4A 53 52 20 4D 4E 31 |REEN.....JSR MN1|
0000ECD0: 00 B2 09 0E 01 49 4E 59 00 BF 09 18 01 43 50 59 |.....INY.....CPY|
0000ECE0: 20 42 55 46 32 00 CB 09 22 01 42 4E 45 20 55 37 | BUF2...".BNE U7|
0000ECF0: 33 00 F1 09 2C 01 4A 53 52 20 43 52 3B 4C 49 4E |3...,.JSR CR;LIN|
0000ED00: 45 20 46 49 4E 49 53 48 45 44 20 99 20 43 41 52 |E FINISHED . CAR|
0000ED10: 52 49 41 47 45 20 8E 00 FE 09 36 01 4C 44 59 20 |RIAGE ....6.LDY |
0000ED20: 23 24 30 30 00 26 0A 40 01 4C 44 41 20 28 24 46 |#$00.&.@.LDA ($F|
0000ED30: 42 29 2C 59 3B 8B 20 52 54 53 20 B0 20 4A 4D 50 |B),Y;. RTS . JMP|
0000ED40: 20 53 4B 49 50 20 41 20 4C 49 4E 45 00 33 0A 4A | SKIP A LINE.3.J|
0000ED50: 01 43 4D 50 20 23 24 36 30 00 3F 0A 54 01 42 45 |.CMP #$60.?.T.BE|
0000ED60: 51 20 55 37 34 00 4C 0A 5E 01 43 4D 50 20 23 24 |Q U74.L.^.CMP #$|
0000ED70: 34 43 00 58 0A 68 01 42 4E 45 20 55 38 31 00 67 |4C.X.h.BNE U81.g|
0000ED80: 0A 72 01 55 37 34 20 4A 53 52 20 43 52 00 77 0A |.r.U74 JSR CR.w.|
0000ED90: 7C 01 2E 46 49 4C 45 20 55 4E 4F 50 38 00 00 00 ||..FILE UNOP8...|
0000EDA0: 3B 99 20 2C 00 8C 08 6E 00 4A 53 52 20 99 00 94 |;. ,...n.JSR ...|
0000EDB0: 08 78 00 50 4C 41 00 9E 08 82 00 4A 53 52 20 99 |.x.PLA.....JSR .|
0000EDC0: 00 AB 08 8C 00 4C 44 41 20 42 55 46 31 00 B8 08 |.....LDA BUF1...|
0000EDD0: 96 00 43 4D 50 20 23 24 30 31 00 C5 08 A0 00 42 |..CMP #$01.....B|
0000EDE0: 45 51 20 50 41 52 32 00 D2 08 A1 00 43 4D 50 20 |EQ PAR2.....CMP |
0000EDF0: 23 24 30 33 00 DF 08 A2 00 42 4E 45 20 49 4E 43 |#$03.....BNE INC|
0000EE00: 52 00 F1 08 AA 00 50 41 52 32 20 4C 44 41 20 23 |R.....PAR2 LDA #|
0000EE10: 24 32 39 00 FB 08 B4 00 4A 53 52 20 99 00 0D 09 |$29.....JSR ....|
0000EE20: 01 08 24 08 1E 00 3B 41 44 44 20 23 20 4F 46 20 |..$...;ADD # OF |
0000EE30: 42 59 54 45 53 20 A4 20 42 41 53 45 20 41 44 44 |BYTES . BASE ADD|
0000EE40: 52 45 53 53 00 3A 08 28 00 55 38 31 20 4C 44 59 |RESS.:.(.U81 LDY|
0000EE50: 20 42 55 46 32 3B 23 24 30 33 00 42 08 32 00 54 | BUF2;#$03.B.2.T|
0000EE60: 59 41 00 4A 08 3C 00 43 4C 43 00 5B 08 46 00 41 |YA.J.<.CLC.[.F.A|
0000EE70: 44 43 20 24 46 42 3B 23 24 30 30 00 6C 08 50 00 |DC $FB;#$00.l.P.|
0000EE80: 53 54 41 20 24 46 42 3B 23 24 30 33 00 7D 08 5A |STA $FB;#$03.}.Z|
0000EE90: 00 4C 44 41 20 24 46 43 3B 23 24 36 30 00 8A 08 |.LDA $FC;#$60...|
0000EEA0: 64 00 41 44 43 20 23 24 30 30 00 AC 08 6E 00 53 |d.ADC #$00...n.S|
0000EEB0: 54 41 20 24 46 43 3B 23 24 36 30 20 41 44 44 52 |TA $FC;#$60 ADDR|
0000EEC0: 45 53 53 20 4E 4F 57 20 36 30 30 33 00 CA 08 78 |ESS NOW 6003...x|
0000EED0: 00 43 4D 50 20 24 46 45 3B 48 49 20 42 59 54 45 |.CMP $FE;HI BYTE|
0000EEE0: 20 80 20 41 44 44 52 45 53 53 00 D6 08 82 00 42 | . ADDRESS.....B|
0000EEF0: 43 43 20 55 38 32 00 F8 08 8C 00 4C 44 41 20 24 |CC U82.....LDA $|
0000EF00: 46 42 3B 4C 4F 20 42 59 54 45 20 42 45 47 49 4E |FB;LO BYTE BEGIN|
0000EF10: 20 41 44 44 52 45 53 53 00 16 09 96 00 43 4D 50 | ADDRESS.....CMP|
0000EF20: 20 24 46 44 3B 4C 4F 20 42 59 54 45 20 80 20 41 | $FD;LO BYTE . A|
0000EF30: 44 44 52 45 53 53 00 22 09 A0 00 42 43 43 20 55 |DDRESS."...BCC U|
0000EF40: 38 32 00 2A 09 AA 00 52 54 53 00 52 09 B4 00 4D |82.*...RTS.R...M|
0000EF50: 4E 31 20 AF 20 23 24 37 46 3B 43 48 45 43 4B 20 |N1 . #$7F;CHECK |
0000EF60: 81 20 99 41 42 4C 45 20 43 48 41 52 41 43 54 45 |. .ABLE CHARACTE|
0000EF70: 52 53 00 5F 09 BE 00 43 4D 50 20 23 24 32 31 00 |RS._...CMP #$21.|
0000EF80: 72 09 C8 00 42 43 43 20 55 38 33 3B B3 20 23 24 |r...BCC U83;. #$|
0000EF90: 32 31 00 86 09 D2 00 43 4D 50 20 23 24 35 42 3B |21.....CMP #$5B;|
0000EFA0: B1 20 23 24 35 42 00 92 09 DC 00 42 43 53 20 55 |. #$5B.....BCS U|
0000EFB0: 38 30 00 BD 09 E6 00 55 38 34 20 4A 4D 50 20 99 |80.....U84 JMP .|
0000EFC0: 3B 99 20 43 48 41 52 41 43 48 54 45 52 20 52 49 |;. CHARACHTER RI|
0000EFD0: 47 48 54 20 48 AF 20 53 43 52 45 45 4E 00 CD 09 |GHT H. SCREEN...|
0000EFE0: F0 00 55 38 33 20 B0 41 20 23 24 34 30 00 D9 09 |..U83 .A #$40...|
0000EFF0: FA 00 42 4E 45 20 55 38 34 00 E8 09 FB 00 55 38 |..BNE U84.....U8|
0000F000: 30 20 AF 20 23 24 34 30 00 F4 09 FC 00 42 4E 45 |0 . #$40.....BNE|
0000F010: 20 55 38 34 00 19 0A FD 00 4A 4D 50 20 53 54 41 | U84.....JMP STA|
0000F020: 52 54 3B 8A 20 90 20 4B 45 59 20 44 4F 57 4E 20 |RT;. . KEY DOWN |
0000F030: 54 45 52 4D 49 4E 41 54 45 00 3D 0A FF 00 55 38 |TERMINATE.=...U8|
0000F040: 32 20 4A 53 52 20 24 46 46 45 31 3B 43 48 45 43 |2 JSR $FFE1;CHEC|
0000F050: 4B 20 54 48 45 20 8A AD 90 20 4B 45 59 00 54 0A |K THE ... KEY.T.|
0000F060: 00 01 42 4E 45 20 46 49 4E 44 3B A8 20 50 52 45 |..BNE FIND;. PRE|
0000F070: 53 53 45 44 00 79 0A 01 01 4A 4D 50 20 53 54 41 |SSED.y...JMP STA|
0000F080: 52 54 3B 8A 20 90 20 4B 45 59 20 44 4F 57 4E 20 |RT;. . KEY DOWN |
0000F090: 54 45 52 4D 49 4E 41 54 45 00 98 0A 04 01 46 49 |TERMINATE.....FI|
0000F0A0: 4E 44 20 4A 4D 50 20 46 49 4E 44 4D 4E 3B 8E 20 |ND JMP FINDMN;. |
0000F0B0: 81 20 82 20 4C 49 4E 45 00 C8 0A 0E 01 A1 41 44 |. . LINE......AD|
0000F0C0: 44 20 4C 44 59 20 23 24 30 30 3B 50 55 54 20 43 |D LDY #$00;PUT C|
0000F0D0: 4F 4D 4D AF 20 AF 20 41 44 44 52 45 53 53 45 53 |OMM. . ADDRESSES|
0000F0E0: 20 40 20 24 30 32 30 30 00 DA 0A 18 01 55 38 35 | @ $0200.....U85|
0000F0F0: 20 4A 53 52 20 24 46 46 43 46 00 EB 0A 22 01 53 | JSR $FFCF...".S|
0000F100: 54 41 20 41 44 44 42 55 46 2C 59 00 F3 0A 2C 01 |TA ADDBUF,Y...,.|
0000F110: 49 4E 59 00 00 0B 36 01 43 4D 50 20 23 24 30 44 |INY...6.CMP #$0D|
0000F120: 00 0C 0B 40 01 42 4E 45 20 55 38 35 00 14 0B 4A |...@.BNE U85...J|
0000F130: 01 44 45 59 00 1C 0B 54 01 52 54 53 00 2C 0B 5E |.DEY...T.RTS.,.^|
0000F140: 01 2E 46 49 4C 45 20 55 4E 4F 50 39 00 00 00 AF |..FILE UNOP9....|
0000F150: 20 23 24 37 46 3B 43 48 45 43 4B 20 81 20 99 41 | #$7F;CHECK . .A|
0000F160: 42 4C 45 20 43 48 41 52 41 43 54 45 52 53 00 5F |BLE CHARACTERS._|
0000F170: 09 BE 00 43 4D 50 20 23 24 32 31 00 72 09 C8 00 |...CMP #$21.r...|
0000F180: 42 43 43 20 55 38 33 3B B3 20 23 24 32 31 00 86 |BCC U83;. #$21..|
0000F190: 09 D2 00 43 4D 50 20 23 24 35 42 3B B1 20 23 24 |...CMP #$5B;. #$|
0000F1A0: 35 42 00 92 09 DC 00 42 43 53 20 55 38 30 00 BD |5B.....BCS U80..|
0000F1B0: 09 E6 00 55 38 34 20 4A 4D 50 20 99 3B 99 20 43 |...U84 JMP .;. C|
0000F1C0: 48 41 52 41 43 48 54 45 52 20 52 49 47 48 54 20 |HARACHTER RIGHT |
0000F1D0: 48 AF 20 53 43 52 45 45 4E 00 CD 09 F0 00 55 38 |H. SCREEN.....U8|
0000F1E0: 33 20 B0 41 20 23 24 34 30 00 D9 09 FA 00 42 4E |3 .A #$40.....BN|
0000F1F0: 45 20 55 38 34 00 E8 09 FB 00 55 38 30 20 AF 20 |E U84.....U80 . |
0000F200: 23 24 34 30 00 F4 09 FC 00 42 4E 45 20 55 38 34 |#$40.....BNE U84|
0000F210: 00 19 0A FD 00 4A 4D 50 01 08 1C 08 28 00 53 50 |.....JMP....(.SP|
0000F220: 43 20 4C 44 41 20 23 24 32 30 3B 99 20 31 20 53 |C LDA #$20;. 1 S|
0000F230: 50 41 43 45 00 26 08 32 00 4A 4D 50 20 99 00 49 |PACE.&.2.JMP ..I|
0000F240: 08 3C 00 53 50 43 31 20 4C 44 41 20 43 4D 4E 44 |.<.SPC1 LDA CMND|
0000F250: 33 2C 59 3B 99 20 23 20 4F 46 20 53 50 41 43 45 |3,Y;. # OF SPACE|
0000F260: 53 00 53 08 46 00 4A 53 52 20 99 00 5B 08 50 00 |S.S.F.JSR ..[.P.|
0000F270: 44 45 59 00 68 08 5A 00 42 4E 45 20 53 50 43 31 |DEY.h.Z.BNE SPC1|
0000F280: 00 70 08 64 00 52 54 53 00 8F 08 6E 00 43 52 20 |.p.d.RTS...n.CR |
0000F290: 4C 44 41 20 23 24 30 44 3B 99 20 41 20 43 41 52 |LDA #$0D;. A CAR|
0000F2A0: 52 41 49 47 45 20 8E 00 99 08 78 00 4A 53 52 20 |RAIGE ....x.JSR |
0000F2B0: 99 00 A1 08 82 00 52 54 53 00 C2 08 8C 00 48 45 |......RTS.....HE|
0000F2C0: 58 43 91 20 50 48 41 3B 4E 55 4D 42 45 52 20 4D |XC. PHA;NUMBER M|
0000F2D0: 41 4E 49 50 55 4C 41 54 49 91 00 D6 08 96 00 4C |ANIPULATI......L|
0000F2E0: 53 52 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 00 E2 |SR:LSR:LSR:LSR..|
0000F2F0: 08 A0 00 4A 53 52 20 4D 4E 32 00 EA 08 AA 00 50 |...JSR MN2.....P|
0000F300: 4C 41 00 F5 08 B4 00 AF 20 23 24 30 46 00 01 09 |LA...... #$0F...|
0000F310: BE 00 4A 4D 50 20 4D 4E 32 00 12 09 C8 00 4D 4E |..JMP MN2.....MN|
0000F320: 32 20 43 4D 50 20 23 24 30 41 00 1E 09 D2 00 42 |2 CMP #$0A.....B|
0000F330: 43 43 20 55 39 32 00 3A 09 DC 00 41 44 43 20 23 |CC U92.:...ADC #|
0000F340: 24 30 36 3B 41 44 4A 55 53 54 20 81 20 41 20 A4 |$06;ADJUST . A .|
0000F350: 20 46 00 58 09 E6 00 55 39 32 20 41 44 43 20 23 | F.X...U92 ADC #|
0000F360: 24 33 30 3B 41 44 4A 55 53 54 20 30 20 A4 20 39 |$30;ADJUST 0 . 9|
0000F370: 00 62 09 F0 00 4A 4D 50 20 99 00 7C 09 FA 00 9F |.b...JMP ..|....|
0000F380: 20 4C 44 41 20 23 24 30 30 3B 53 45 54 20 55 50 | LDA #$00;SET UP|
0000F390: 20 99 45 52 00 95 09 04 01 4A 53 52 20 24 46 46 | .ER.....JSR $FF|
0000F3A0: 42 44 3B 53 45 54 20 46 49 C3 41 4D 45 00 AA 09 |BD;SET FI.AME...|
0000F3B0: 0E 01 4C 44 41 20 23 24 30 34 3B 20 44 45 56 49 |..LDA #$04; DEVI|
0000F3C0: 43 45 00 B2 09 18 01 54 41 58 00 BF 09 22 01 4C |CE.....TAX...".L|
0000F3D0: 44 59 20 23 24 30 37 00 DC 09 2C 01 4A 53 52 20 |DY #$07...,.JSR |
0000F3E0: 24 46 46 42 41 3B 53 45 54 20 BC 49 43 41 4C 20 |$FFBA;SET .ICAL |
0000F3F0: 46 49 4C 45 00 FA 09 36 01 4A 53 52 20 24 46 46 |FILE...6.JSR $FF|
0000F400: 43 30 3B 9F 20 46 49 4C 45 20 28 9F 34 2C 34 2C |C0;. FILE (.4,4,|
0000F410: 37 29 00 07 0A 40 01 4C 44 58 20 23 24 30 34 00 |7)...@.LDX #$04.|
0000F420: 28 0A 4A 01 4A 4D 50 20 24 46 46 43 39 3B 53 45 |(.J.JMP $FFC9;SE|
0000F430: 54 20 4F 55 54 50 55 54 20 43 48 41 4E 4E 45 4C |T OUTPUT CHANNEL|
0000F440: 00 44 0A 54 01 A0 20 4C 44 41 20 23 24 30 44 3B |.D.T.. LDA #$0D;|
0000F450: 54 55 52 4E 20 4F 46 46 20 99 45 52 00 4E 0A 5E |TURN OFF .ER.N.^|
0000F460: 01 4A 53 52 20 99 00 5B 0A 68 01 4C 44 41 20 23 |.JSR ..[.h.LDA #|
0000F470: 24 30 34 00 70 0A 72 01 4A 53 52 20 24 46 46 43 |$04.p.r.JSR $FFC|
0000F480: 33 3B A0 20 46 49 4C 45 00 8A 0A 7C 01 4A 4D 50 |3;. FILE...|.JMP|
0000F490: 20 24 46 46 45 37 3B A0 20 41 4C 4C 20 46 49 4C | $FFE7;. ALL FIL|
0000F4A0: 45 53 00 9B 0A F4 01 42 55 46 30 20 2E 42 59 54 |ES.....BUF0 .BYT|
0000F4B0: 45 20 30 00 AC 0A FE 01 42 55 46 31 20 2E 42 59 |E 0.....BUF1 .BY|
0000F4C0: 54 45 20 30 00 BD 0A 08 02 42 55 46 32 20 2E 42 |TE 0.....BUF2 .B|
0000F4D0: 59 54 45 20 30 00 CE 0A 12 02 42 55 46 33 20 2E |YTE 0.....BUF3 .|
0000F4E0: 42 59 54 45 20 30 00 DE 0A 17 02 42 59 54 20 2E |BYTE 0.....BYT .|
0000F4F0: 42 59 54 45 20 30 00 07 0B 1C 02 41 44 44 42 55 |BYTE 0.....ADDBU|
0000F500: 46 20 2E 42 59 54 45 20 30 20 30 20 30 20 30 20 |F .BYTE 0 0 0 0 |
0000F510: 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 00 |0 0 0 0 0 0 0 0.|
0000F520: 14 0B 26 02 2E 80 20 4F 50 20 45 51 00 00 00 55 |..&... OP EQ...U|
0000F530: 39 32 00 3A 09 DC 00 41 44 43 20 23 24 30 36 3B |92.:...ADC #$06;|
0000F540: 41 44 4A 55 53 54 20 81 20 41 20 A4 20 46 00 58 |ADJUST . A . F.X|
0000F550: 09 E6 00 55 39 32 20 41 44 43 20 23 24 33 30 3B |...U92 ADC #$30;|
0000F560: 41 44 4A 55 53 54 20 30 20 A4 20 39 00 62 09 F0 |ADJUST 0 . 9.b..|
0000F570: 00 4A 4D 50 20 99 00 7C 09 FA 00 9F 20 4C 44 41 |.JMP ..|.... LDA|
0000F580: 20 23 24 30 30 3B 53 45 54 20 55 50 20 99 45 52 | #$00;SET UP .ER|
0000F590: 00 95 09 04 01 4A 53 52 20 24 46 46 42 44 3B 53 |.....JSR $FFBD;S|
0000F5A0: 45 54 20 46 49 C3 41 4D 45 00 AA 09 0E 01 4C 44 |ET FI.AME.....LD|
0000F5B0: 41 20 23 24 30 34 3B 20 44 45 56 49 43 45 00 B2 |A #$04; DEVICE..|
0000F5C0: 09 18 01 54 41 58 00 BF 09 22 01 4C 44 59 20 23 |...TAX...".LDY #|
0000F5D0: 24 30 37 00 DC 09 2C 01 4A 53 52 20 24 46 46 42 |$07...,.JSR $FFB|
0000F5E0: 41 3B 53 45 54 20 BC 49 43 41 4C 20 46 49 4C 45 |A;SET .ICAL FILE|
0000F5F0: 00 FA 09 36 01 4A 53 52 20 24 46 46 43 30 3B 9F |...6.JSR $FFC0;.|
0000F600: 20 46 49 4C 45 20 28 9F 34 2C 34 2C 37 29 00 07 | FILE (.4,4,7)..|
0000F610: 01 08 0E 08 0A 00 AC B2 20 24 30 38 30 31 00 1F |........ $0801..|
0000F620: 08 0F 00 3B 53 52 43 48 20 44 53 4B 20 45 51 00 |...;SRCH DSK EQ.|
0000F630: 26 08 1E 00 2E 4D 00 32 08 23 00 2E 44 20 53 52 |&....M.2.#..D SR|
0000F640: 43 48 00 47 08 24 00 3B 36 34 20 52 4F 4D 20 52 |CH.G.$.;64 ROM R|
0000F650: 4F 55 54 49 4E 45 53 00 4D 08 25 00 3B 00 5B 08 |OUTINES.M.%.;.[.|
0000F660: 28 00 A1 20 B2 20 24 46 46 45 34 00 69 08 32 00 |(.. . $FFE4.i.2.|
0000F670: 99 20 B2 20 24 46 46 44 32 00 79 08 3C 00 4C 49 |. . $FFD2.y.<.LI|
0000F680: 53 20 B2 20 24 46 46 42 31 00 8B 08 46 00 55 4E |S . $FFB1...F.UN|
0000F690: 4C 49 53 20 B2 20 24 46 46 41 45 00 9D 08 50 00 |LIS . $FFAE...P.|
0000F6A0: 4C 49 53 45 43 20 B2 20 24 46 46 39 33 00 AD 08 |LISEC . $FF93...|
0000F6B0: 5A 00 4F 55 54 20 B2 20 24 46 46 41 38 00 BC 08 |Z.OUT . $FFA8...|
0000F6C0: 64 00 49 4E 20 B2 20 24 46 46 41 35 00 CC 08 6E |d.IN . $FFA5...n|
0000F6D0: 00 54 4C 4B 20 B2 20 24 46 46 42 34 00 DE 08 78 |.TLK . $FFB4...x|
0000F6E0: 00 55 4E 54 4C 4B 20 B2 20 24 46 46 41 42 00 F1 |.UNTLK . $FFAB..|
0000F6F0: 08 82 00 54 4C 4B 53 45 43 20 B2 20 24 46 46 39 |...TLKSEC . $FF9|
0000F700: 36 00 FF 08 8C 00 90 20 B2 20 24 46 46 45 31 00 |6...... . $FFE1.|
0000F710: 14 09 0E 01 2E 46 49 4C 45 20 53 52 43 48 20 44 |.....FILE SRCH D|
0000F720: 53 4B 20 31 00 00 00 00 00 00 04 00 00 00 82 1A |SK 1............|
0000F730: 00 43 33 35 20 31 37 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.C35 17.........|
0000F740: A0 00 00 00 00 00 00 00 00 00 03 00 00 00 82 1A |................|
0000F750: 02 43 33 35 20 31 38 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.C35 18.........|
0000F760: A0 00 00 00 00 00 00 00 00 00 03 00 00 00 82 1A |................|
0000F770: 04 43 33 35 20 31 39 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.C35 19.........|
0000F780: A0 00 00 00 00 00 00 00 00 00 05 00 00 00 82 1A |................|
0000F790: 08 43 33 35 20 32 30 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.C35 20.........|
0000F7A0: A0 00 00 00 00 00 00 00 00 00 04 00 00 00 82 1A |................|
0000F7B0: 10 43 33 35 20 32 31 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.C35 21.........|
0000F7C0: A0 00 00 00 00 00 00 00 00 00 03 00 00 00 02 11 |................|
0000F7D0: 01 53 52 43 48 20 44 53 4B 20 45 51 A0 A0 A0 A0 |.SRCH DSK EQ....|
0000F7E0: A0 00 00 00 00 00 00 00 00 00 00 00 00 00 82 09 |................|
0000F7F0: 01 53 52 43 48 20 44 53 4B 20 31 A0 A0 A0 A0 A0 |.SRCH DSK 1.....|
0000F800: A0 00 00 00 00 00 00 00 00 00 05 00 01 08 11 08 |................|
0000F810: 0A 00 3B 53 52 43 48 20 44 53 4B 20 31 00 2F 08 |..;SRCH DSK 1./.|
0000F820: 0F 00 3B 42 41 53 49 43 20 4C 49 4E 45 20 4E 55 |..;BASIC LINE NU|
0000F830: 4D 42 45 52 20 AF 20 9E 54 45 4D 00 5E 08 14 00 |MBER . .TEM.^...|
0000F840: 2E 42 59 54 45 20 31 30 20 30 38 20 31 30 20 30 |.BYTE 10 08 10 0|
0000F850: 30 20 31 35 38 20 35 30 20 34 38 20 35 34 20 34 |0 158 50 48 54 4|
0000F860: 39 20 30 30 20 30 30 20 30 30 00 6B 08 1E 00 4C |9 00 00 00.k...L|
0000F870: 44 41 20 23 24 30 30 00 79 08 28 00 53 54 41 20 |DA #$00.y.(.STA |
0000F880: 24 44 30 32 30 00 87 08 32 00 53 54 41 20 24 44 |$D020...2.STA $D|
0000F890: 30 32 31 00 94 08 3C 00 4C 44 41 20 23 24 31 37 |021...<.LDA #$17|
0000F8A0: 00 A2 08 46 00 53 54 41 20 24 44 30 31 38 00 C2 |...F.STA $D018..|
0000F8B0: 08 50 00 4C 44 41 20 23 24 39 33 3A 4A 53 52 20 |.P.LDA #$93:JSR |
0000F8C0: 99 3B 43 4C 45 41 52 20 53 43 52 45 45 4E 00 E2 |.;CLEAR SCREEN..|
0000F8D0: 08 5A 00 4C 44 41 20 23 24 30 30 3B 5A 45 52 4F |.Z.LDA #$00;ZERO|
0000F8E0: 20 41 4C 4C 20 56 41 52 49 41 42 4C 45 53 00 04 | ALL VARIABLES..|
0000F8F0: 09 64 00 53 54 41 20 54 52 4B 3B 48 4F 4C 44 53 |.d.STA TRK;HOLDS|
0000F900: 20 43 55 52 52 45 4E 54 20 54 52 41 43 4B 20 23 | CURRENT TRACK #|
0000F910: 00 2A 09 6E 00 53 54 41 20 41 3A 53 54 41 20 58 |.*.n.STA A:STA X|
0000F920: 3A 53 54 41 20 59 3B 53 50 41 52 45 20 52 45 47 |:STA Y;SPARE REG|
0000F930: 49 53 54 45 52 53 00 4C 09 78 00 53 54 41 20 53 |ISTERS.L.x.STA S|
0000F940: 45 43 3B 48 4F 4C 44 53 20 43 55 52 52 45 4E 54 |EC;HOLDS CURRENT|
0000F950: 20 53 45 43 A4 52 20 23 00 77 09 82 00 53 54 41 | SEC.R #.w...STA|
0000F960: 20 53 54 52 49 4E 47 3B 48 4F 4C 44 53 20 23 20 | STRING;HOLDS # |
0000F970: 4F 42 20 59 54 45 53 20 53 45 41 52 43 48 49 4E |OB YTES SEARCHIN|
0000F980: 47 20 81 00 94 09 8C 00 4A 53 52 20 49 4E 49 54 |G ......JSR INIT|
0000F990: 3B 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B |;INITIALIZE DISK|
0000F9A0: 00 AF 09 96 00 4A 53 52 20 53 43 52 45 45 4E 3B |.....JSR SCREEN;|
0000F9B0: 53 43 52 45 45 4E 20 81 4D 41 54 00 D4 09 A0 00 |SCREEN .MAT.....|
0000F9C0: 4A 53 52 20 47 3B A1 20 4B 45 59 53 54 52 4F 4B |JSR G;. KEYSTROK|
0000F9D0: 45 53 20 46 52 4F 4D 20 4B 45 59 42 4F 41 52 44 |ES FROM KEYBOARD|
0000F9E0: 00 E7 09 AA 00 53 52 43 48 31 20 4C 44 58 20 23 |.....SRCH1 LDX #|
0000F9F0: 24 46 46 00 08 0A B4 00 54 58 53 3B 53 45 54 20 |$FF.....TXS;SET |
0000FA00: 53 54 41 43 4B 20 A4 20 42 4F 54 A4 4D 20 28 23 |STACK . BOT.M (#|
0000FA10: 24 46 46 29 00 24 0A BE 00 49 4E 43 20 54 52 4B |$FF).$...INC TRK|
0000FA20: 3B 49 4E 43 8F 45 4E 54 20 54 52 41 43 4B 20 23 |;INC.ENT TRACK #|
0000FA30: 00 30 0A C8 00 4C 44 41 20 54 52 4B 00 51 0A D2 |.0...LDA TRK.Q..|
0000FA40: 00 43 4D 50 20 23 24 32 34 3B 8B 20 54 52 4B 20 |.CMP #$24;. TRK |
0000FA50: 23 20 33 36 20 46 49 4E 49 53 48 45 44 00 5B 0A |# 36 FINISHED.[.|
0000FA60: DC 00 42 45 51 20 80 00 7A 0A E6 00 4A 53 52 20 |..BEQ ..z...JSR |
0000FA70: 53 45 43 A4 52 3B A1 20 23 20 4F 46 20 53 45 43 |SEC.R;. # OF SEC|
0000FA80: 20 91 20 54 52 4B 00 96 0A F0 00 4A 53 52 20 9B | . TRK.....JSR .|
0000FA90: 3B 53 80 20 54 52 41 43 4B 20 87 20 A4 20 44 49 |;S. TRACK . . DI|
0000FAA0: 53 4B 00 A3 0A FA 00 4C 44 59 20 23 24 30 30 00 |SK.....LDY #$00.|
0000FAB0: C7 0A 04 01 4C 50 20 4C 44 41 20 4D 57 2C 59 3B |....LP LDA MW,Y;|
0000FAC0: 54 52 4B 20 23 20 A4 20 24 30 36 20 49 4E 20 31 |TRK # . $06 IN 1|
0000FAD0: 35 34 31 00 D3 0A 0E 01 4A 53 52 20 4F 55 54 00 |541.....JSR OUT.|
0000FAE0: DB 0A 18 01 49 4E 59 00 E8 0A 22 01 43 50 59 20 |....INY...".CPY |
0000FAF0: 23 24 30 37 00 F3 0A 2C 01 42 4E 45 20 4C 50 00 |#$07...,.BNE LP.|
0000FB00: 01 0B 36 01 4A 53 52 20 55 4E 4C 49 53 00 22 0B |..6.JSR UNLIS.".|
0000FB10: 40 01 4E 58 54 53 45 43 20 4A 53 52 20 9B 3B 53 |@.NXTSEC JSR .;S|
0000FB20: 80 20 53 45 43 20 87 20 A4 20 44 49 53 4B 00 2F |. SEC . . DISK./|
0000FB30: 0B 4A 01 4C 44 59 20 23 24 30 30 00 55 0B 54 01 |.J.LDY #$00.U.T.|
0000FB40: 4C 50 31 20 4C 44 41 20 4D 57 31 2C 59 3B 53 45 |LP1 LDA MW1,Y;SE|
0000FB50: 43 20 23 20 A4 20 24 30 37 20 49 4E 20 31 35 34 |C # . $07 IN 154|
0000FB60: 31 00 61 0B 5E 01 4A 53 52 20 4F 55 54 00 69 0B |1.a.^.JSR OUT.i.|
0000FB70: 68 01 49 4E 59 00 76 0B 72 01 43 50 59 20 23 24 |h.INY.v.r.CPY #$|
0000FB80: 30 37 00 82 0B 7C 01 42 4E 45 20 4C 50 31 00 90 |07...|.BNE LP1..|
0000FB90: 0B 86 01 4A 53 52 20 55 4E 4C 49 53 00 A8 0B 90 |...JSR UNLIS....|
0000FBA0: 01 4A 53 52 20 9B 3B 53 80 20 22 23 24 38 30 22 |.JSR .;S. "#$80"|
0000FBB0: 20 28 87 29 00 B5 0B 9A 01 4C 44 59 20 23 24 30 | (.).....LDY #$0|
0000FBC0: 30 00 DB 0B A4 01 4C 50 32 20 4C 44 41 20 4D 57 |0.....LP2 LDA MW|
0000FBD0: 32 2C 59 3B 20 23 24 38 30 20 A4 20 24 30 30 20 |2,Y; #$80 . $00 |
0000FBE0: 49 4E 20 31 35 34 31 00 E7 0B AE 01 4A 53 52 20 |IN 1541.....JSR |
0000FBF0: 4F 55 54 00 EF 0B B8 01 49 4E 59 00 FC 0B C2 01 |OUT.....INY.....|
0000FC00: 43 50 59 20 23 24 30 37 00 08 0C CC 01 42 4E 45 |CPY #$07.....BNE|
0000FC10: 20 4C 50 32 00 16 0C D6 01 4A 53 52 20 55 4E 4C | LP2.....JSR UNL|
0000FC20: 49 53 00 33 0C E0 01 4A 53 52 20 43 48 4B 45 52 |IS.3...JSR CHKER|
0000FC30: 52 3B 92 20 81 20 45 52 52 B0 20 43 4F 44 45 00 |R;. . ERR. CODE.|
0000FC40: 5B 0C EA 01 4A 4D 50 20 52 44 44 53 4B 3B 87 20 |[...JMP RDDSK;. |
0000FC50: 53 45 43 20 83 20 46 4F 52 20 53 45 41 52 43 48 |SEC . FOR SEARCH|
0000FC60: 20 53 54 52 49 4E 47 00 73 0C F4 01 80 20 4A 53 | STRING.s.... JS|
0000FC70: 52 20 49 4E 49 54 3B 46 49 4E 49 53 48 45 44 00 |R INIT;FINISHED.|
0000FC80: 95 0C FE 01 4A 4D 50 20 28 24 41 30 30 32 29 3B |....JMP ($A002);|
0000FC90: 42 41 53 49 43 53 20 57 41 52 4D 20 53 54 41 52 |BASICS WARM STAR|
0000FCA0: 54 00 AA 0C 08 02 2E 46 49 4C 45 20 53 52 43 48 |T......FILE SRCH|
0000FCB0: 20 44 53 4B 20 32 00 00 00 2C 59 3B 54 52 4B 20 | DSK 2...,Y;TRK |
0000FCC0: 23 20 A4 20 24 30 36 20 49 4E 20 31 35 34 31 00 |# . $06 IN 1541.|
0000FCD0: D3 0A 0E 01 4A 53 52 20 4F 55 54 00 DB 0A 18 01 |....JSR OUT.....|
0000FCE0: 49 4E 59 00 E8 0A 22 01 43 50 59 20 23 24 30 37 |INY...".CPY #$07|
0000FCF0: 00 F3 0A 2C 01 42 4E 45 20 4C 50 00 01 0B 36 01 |...,.BNE LP...6.|
0000FD00: 4A 53 01 08 11 08 01 00 3B 53 52 43 48 20 44 53 |JS......;SRCH DS|
0000FD10: 4B 20 32 00 31 08 05 00 52 44 44 53 4B 20 4A 53 |K 2.1...RDDSK JS|
0000FD20: 52 20 53 54 50 3B 43 48 45 43 4B 20 8A AD 90 20 |R STP;CHECK ... |
0000FD30: 4B 45 59 00 3E 08 0A 00 4C 44 41 20 23 24 30 38 |KEY.>...LDA #$08|
0000FD40: 00 48 08 14 00 4A 53 52 20 9B 00 55 08 1E 00 4C |.H...JSR ..U...L|
0000FD50: 44 59 20 23 24 30 30 00 88 08 28 00 4C 50 33 20 |DY #$00...(.LP3 |
0000FD60: 4C 44 41 20 4D 52 31 2C 59 3B 87 20 42 59 54 45 |LDA MR1,Y;. BYTE|
0000FD70: 53 20 24 30 33 30 32 20 A4 20 30 33 46 46 20 49 |S $0302 . 03FF I|
0000FD80: 4E 20 31 35 34 31 20 52 41 4D 00 94 08 32 00 4A |N 1541 RAM...2.J|
0000FD90: 53 52 20 4F 55 54 00 9C 08 3C 00 49 4E 59 00 A9 |SR OUT...<.INY..|
0000FDA0: 08 46 00 43 50 59 20 23 24 30 36 00 B5 08 50 00 |.F.CPY #$06...P.|
0000FDB0: 42 4E 45 20 4C 50 33 00 C3 08 5A 00 4A 53 52 20 |BNE LP3...Z.JSR |
0000FDC0: 55 4E 4C 49 53 00 D0 08 64 00 4C 44 41 20 23 24 |UNLIS...d.LDA #$|
0000FDD0: 30 38 00 01 09 6E 00 4A 53 52 20 54 41 4C 4B 3B |08...n.JSR TALK;|
0000FDE0: 53 45 54 20 55 50 20 44 49 53 4B 20 A4 20 53 80 |SET UP DISK . S.|
0000FDF0: 20 42 59 54 45 53 20 91 20 53 45 52 49 41 4C 20 | BYTES . SERIAL |
0000FE00: 42 55 53 00 0E 09 78 00 4C 44 59 20 23 24 30 32 |BUS...x.LDY #$02|
0000FE10: 00 35 09 7D 00 A2 49 4E 20 4C 44 58 20 23 24 30 |.5.}..IN LDX #$0|
0000FE20: 30 3A 53 54 58 20 58 3B 53 45 54 20 53 50 41 52 |0:STX X;SET SPAR|
0000FE30: 45 20 58 20 A4 20 30 00 5D 09 82 00 82 49 4E 20 |E X . 0.]....IN |
0000FE40: 4A 53 52 20 49 4E 3B A1 20 41 20 42 59 54 45 20 |JSR IN;. A BYTE |
0000FE50: 46 52 4F 4D 20 53 45 52 49 41 4C 20 42 55 53 00 |FROM SERIAL BUS.|
0000FE60: 89 09 87 00 49 4E 59 3A 43 50 59 20 23 24 46 46 |....INY:CPY #$FF|
0000FE70: 3A 42 45 51 20 4C 50 36 3B 42 52 41 4E 43 48 20 |:BEQ LP6;BRANCH |
0000FE80: 41 4C 4C 20 42 59 54 45 53 20 87 00 AE 09 8C 00 |ALL BYTES ......|
0000FE90: 4C 44 58 20 58 3B 48 4F 4C 44 53 20 43 4F 55 4E |LDX X;HOLDS COUN|
0000FEA0: 54 20 4F 46 20 42 59 54 45 53 20 46 4F 55 4E 44 |T OF BYTES FOUND|
0000FEB0: 00 D5 09 96 00 43 4D 50 20 53 52 43 48 2C 58 3B |.....CMP SRCH,X;|
0000FEC0: 48 4F 4C 44 53 20 42 59 54 45 53 20 53 45 41 52 |HOLDS BYTES SEAR|
0000FED0: 43 48 49 4E 47 20 81 00 F4 09 A0 00 42 4E 45 20 |CHING ......BNE |
0000FEE0: A2 49 4E 3B 4E 4F 20 4D 41 54 43 48 20 54 52 59 |.IN;NO MATCH TRY|
0000FEF0: 20 41 47 41 49 4E 00 28 0A AA 00 49 4E 58 3A 43 | AGAIN.(...INX:C|
0000FF00: 50 58 20 53 54 52 49 4E 47 3A 42 45 51 20 50 52 |PX STRING:BEQ PR|
0000FF10: 54 83 3B 49 46 20 58 20 3D 20 4C 45 4E 47 54 48 |T.;IF X = LENGTH|
0000FF20: 20 4F 46 20 53 45 41 52 43 48 00 47 0A AB 00 3B | OF SEARCH.G...;|
0000FF30: 53 54 52 49 4E 47 20 A7 20 41 4C 4C 20 46 4F 55 |STRING . ALL FOU|
0000FF40: 4E 44 20 99 20 49 54 21 21 00 72 0A B4 00 53 54 |ND . IT!!.r...ST|
0000FF50: 58 20 58 3B 8B 20 A8 20 4B 45 45 50 20 54 52 41 |X X;. . KEEP TRA|
0000FF60: 43 4B 20 4F 46 20 48 4F 57 20 4D 41 4E 59 20 46 |CK OF HOW MANY F|
0000FF70: 4F 55 4E 44 00 8B 0A BE 00 4A 4D 50 20 82 49 4E |OUND.....JMP .IN|
0000FF80: 3B A1 20 41 A8 48 45 52 20 42 59 54 45 00 9E 0A |;. A.HER BYTE...|
0000FF90: C8 00 50 52 54 83 20 4A 53 52 20 55 4E 54 4C 4B |..PRT. JSR UNTLK|
0000FFA0: 00 D1 0A D2 00 4A 4D 50 20 50 52 4E 54 83 3B 52 |.....JMP PRNT.;R|
0000FFB0: 4F 55 54 49 4E 45 20 54 4F 20 50 52 49 4E 54 20 |OUTINE TO PRINT |
0000FFC0: 54 52 4B 20 26 20 53 45 43 20 54 4F 20 53 43 52 |TRK & SEC TO SCR|
0000FFD0: 45 45 4E 00 E3 0A DC 00 4C 50 36 20 4A 53 52 20 |EEN.....LP6 JSR |
0000FFE0: 55 4E 4C 49 53 00 06 0B E6 00 4A 4D 50 20 49 4E |UNLIS.....JMP IN|
0000FFF0: 43 52 3B 44 45 43 20 53 45 43 20 23 20 AF 20 49 |CR;DEC SEC # . I|
00010000: 4E 43 20 54 52 4B 20 23 00 14 0B F0 00 53 54 50 |NC TRK #.....STP|
00010010: 20 4A 53 52 20 90 00 32 0B FA 00 42 4E 45 20 4E | JSR ..2...BNE N|
00010020: 4F 90 3B 8A AD 90 20 4B 45 59 20 A8 20 50 52 45 |O.;... KEY . PRE|
00010030: 53 53 45 44 00 52 0B 04 01 4A 4D 50 20 80 3B 4B |SSED.R...JMP .;K|
00010040: 45 59 20 50 52 45 53 53 45 44 20 54 45 52 4D 49 |EY PRESSED TERMI|
00010050: 4E 41 54 45 00 5E 0B 0E 01 4E 4F 90 20 52 54 53 |NATE.^...NO. RTS|
00010060: 00 73 0B 18 01 2E 46 49 4C 45 20 53 52 43 48 20 |.s....FILE SRCH |
00010070: 44 53 4B 20 33 00 00 00 4E 43 48 20 41 4C 4C 20 |DSK 3...NCH ALL |
00010080: 42 59 54 45 53 20 87 00 AE 09 8C 00 4C 44 58 20 |BYTES ......LDX |
00010090: 58 3B 48 4F 4C 44 53 20 43 4F 55 4E 54 20 4F 46 |X;HOLDS COUNT OF|
000100A0: 20 42 59 54 45 53 20 46 4F 55 4E 44 00 D5 09 96 | BYTES FOUND....|
000100B0: 00 43 4D 50 20 53 52 43 48 2C 58 3B 48 4F 4C 44 |.CMP SRCH,X;HOLD|
000100C0: 53 20 42 59 54 45 53 20 53 45 41 52 43 48 49 4E |S BYTES SEARCHIN|
000100D0: 47 20 81 00 F4 09 A0 00 42 4E 45 20 A2 49 4E 3B |G ......BNE .IN;|
000100E0: 4E 4F 20 4D 41 54 43 48 20 54 52 59 20 41 47 41 |NO MATCH TRY AGA|
000100F0: 49 4E 00 28 0A AA 00 49 4E 58 01 08 11 08 0A 00 |IN.(...INX......|
00010100: 3B 53 52 43 48 20 44 53 4B 20 33 00 32 08 14 00 |;SRCH DSK 3.2...|
00010110: 49 4E 43 52 20 44 45 43 20 53 45 43 3B 44 45 43 |INCR DEC SEC;DEC|
00010120: 20 23 20 4F 46 20 53 45 43 53 20 87 00 4F 08 1E | # OF SECS ..O..|
00010130: 00 42 4D 49 20 49 4E 43 54 52 4B 3B 4E 4F 20 4D |.BMI INCTRK;NO M|
00010140: B0 45 20 53 45 43 A4 52 53 00 5E 08 28 00 4A 4D |.E SEC.RS.^.(.JM|
00010150: 50 20 4E 58 54 53 45 43 00 7D 08 32 00 49 4E 43 |P NXTSEC.}.2.INC|
00010160: 54 52 4B 20 4A 4D 50 20 53 52 43 48 31 3B 49 4E |TRK JMP SRCH1;IN|
00010170: 43 20 54 52 4B 20 23 00 92 08 90 01 2E 46 49 4C |C TRK #......FIL|
00010180: 45 20 53 52 43 48 20 44 53 4B 20 34 00 00 00 00 |E SRCH DSK 4....|
00010190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000101F0: 00 00 00 00 00 00 00 00 01 08 11 08 0A 00 3B 53 |..............;S|
00010200: 52 43 48 20 44 53 4B 20 34 00 47 08 14 00 53 45 |RCH DSK 4.G...SE|
00010210: 43 A4 52 20 4C 44 41 20 54 52 4B 3B 20 43 41 4C |C.R LDA TRK; CAL|
00010220: 43 55 4C 41 54 45 20 4E 55 4D 42 45 52 20 4F 46 |CULATE NUMBER OF|
00010230: 20 53 45 43 A4 52 53 20 91 20 54 52 41 43 4B 00 | SEC.RS . TRACK.|
00010240: 5A 08 1E 00 4C 44 58 20 42 4F 55 4E 44 3B 20 23 |Z...LDX BOUND; #|
00010250: 20 34 00 6C 08 28 00 53 20 43 4D 50 20 42 4F 55 | 4.l.(.S CMP BOU|
00010260: 4E 44 2C 58 00 74 08 32 00 44 45 58 00 7E 08 3C |ND,X.t.2.DEX.~.<|
00010270: 00 42 43 53 20 53 00 A1 08 46 00 4C 44 41 20 A4 |.BCS S...F.LDA .|
00010280: 54 41 4C 2C 58 3B 23 20 4F 46 20 53 45 43 20 91 |TAL,X;# OF SEC .|
00010290: 20 54 48 49 53 20 54 52 4B 00 AD 08 4B 00 53 54 | THIS TRK...K.ST|
000102A0: 41 20 53 45 43 00 B5 08 5F 00 52 54 53 00 D4 08 |A SEC..._.RTS...|
000102B0: 64 00 42 4F 55 4E 44 20 2E 42 59 54 45 20 30 34 |d.BOUND .BYTE 04|
000102C0: 20 33 36 20 33 31 20 32 35 20 31 38 00 EF 08 6E | 36 31 25 18...n|
000102D0: 00 A4 54 41 4C 20 2E 42 59 54 45 20 31 36 20 31 |..TAL .BYTE 16 1|
000102E0: 37 20 31 38 20 32 30 00 04 09 82 00 2E 46 49 4C |7 18 20......FIL|
000102F0: 45 20 53 52 43 48 20 44 53 4B 20 35 00 00 00 A0 |E SRCH DSK 5....|
00010300: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00010310: 00 00 04 00 00 00 82 1A 00 43 33 35 20 31 37 A0 |.........C35 17.|
00010320: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00010330: 00 00 03 00 00 00 82 1A 02 43 33 35 20 31 38 A0 |.........C35 18.|
00010340: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00010350: 00 00 03 00 00 00 82 1A 04 43 33 35 20 31 39 A0 |.........C35 19.|
00010360: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00010370: 00 00 05 00 00 00 82 1A 08 43 33 35 20 32 30 A0 |.........C35 20.|
00010380: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
00010390: 00 00 04 00 00 00 82 1A 10 43 33 35 20 32 31 A0 |.........C35 21.|
000103A0: A0 A0 A0 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |................|
000103B0: 00 00 03 00 00 00 82 09 00 53 52 43 48 20 44 53 |.........SRCH DS|
000103C0: 4B 20 45 51 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |K EQ............|
000103D0: 00 00 02 00 00 00 82 09 01 53 52 43 48 20 44 53 |.........SRCH DS|
000103E0: 4B 20 31 A0 A0 A0 A0 A0 A0 00 00 00 00 00 00 00 |K 1.............|
000103F0: 00 00 05 00 01 08 11 08 0A 00 3B 53 52 43 48 20 |..........;SRCH |
00010400: 44 53 4B 20 35 00 51 08 14 00 3B 54 48 45 20 9B |DSK 5.Q...;THE .|
00010410: 45 4E 20 52 4F 55 54 49 4E 45 20 41 4C 45 52 54 |EN ROUTINE ALERT|
00010420: 53 20 54 48 45 20 44 49 53 4B 20 54 48 41 54 20 |S THE DISK THAT |
00010430: 41 20 43 4F 4D 4D AF 20 49 53 20 42 45 49 4E 47 |A COMM. IS BEING|
00010440: 20 53 45 4E 54 00 94 08 1E 00 3B 4F 56 45 52 20 | SENT.....;OVER |
00010450: 54 48 45 20 53 45 52 49 41 4C 20 42 55 53 2E 20 |THE SERIAL BUS. |
00010460: 54 48 49 53 20 43 4F 4D 4D AF 20 49 53 20 50 4C |THIS COMM. IS PL|
00010470: 41 43 45 44 20 49 4E 20 54 48 45 20 31 35 34 31 |ACED IN THE 1541|
00010480: 27 53 20 43 4F 4D 4D AF 00 C4 08 28 00 3B 42 55 |'S COMM....(.;BU|
00010490: 46 46 45 52 20 41 54 20 24 30 32 30 30 20 49 54 |FFER AT $0200 IT|
000104A0: 20 49 53 20 A7 20 50 41 52 53 45 44 20 AF 20 45 | IS . PARSED . E|
000104B0: 58 45 43 55 54 45 44 2E 00 CA 08 32 00 3B 00 15 |XECUTED....2.;..|
000104C0: 09 3C 00 3B 54 48 45 20 54 41 4C 4B 20 52 4F 55 |.<.;THE TALK ROU|
000104D0: 54 49 4E 45 20 53 80 53 20 31 20 42 59 54 45 20 |TINE S.S 1 BYTE |
000104E0: 41 54 20 41 20 54 49 4D 45 20 46 52 4F 4D 20 54 |AT A TIME FROM T|
000104F0: 48 45 20 31 35 34 31 20 A4 20 54 48 45 20 36 34 |HE 1541 . THE 64|
00010500: 20 4F 56 45 52 20 54 48 45 00 4A 09 46 00 3B 53 | OVER THE.J.F.;S|
00010510: 45 52 49 41 4C 20 42 55 53 2E 20 54 48 45 20 42 |ERIAL BUS. THE B|
00010520: 59 54 45 20 49 53 20 48 45 4C 44 20 49 4E 20 54 |YTE IS HELD IN T|
00010530: 48 45 20 41 20 52 45 47 49 53 54 45 52 2E 00 50 |HE A REGISTER..P|
00010540: 09 50 00 3B 00 90 09 5A 00 3B 42 4F 54 48 20 52 |.P.;...Z.;BOTH R|
00010550: 4F 55 54 49 4E 45 53 20 52 45 51 55 49 52 45 20 |OUTINES REQUIRE |
00010560: 54 48 41 54 20 41 20 53 45 43 91 44 41 52 59 20 |THAT A SEC.DARY |
00010570: 41 44 44 52 45 53 53 20 42 45 20 53 50 45 43 8B |ADDRESS BE SPEC.|
00010580: 49 45 44 2E 00 96 09 64 00 3B 00 A5 09 8C 00 49 |IED....d.;.....I|
00010590: 4E 49 54 20 4A 53 52 20 9B 00 B7 09 96 00 4C 44 |NIT JSR ......LD|
000105A0: 41 20 23 24 34 39 3B 20 22 49 22 00 D9 09 A0 00 |A #$49; "I".....|
000105B0: 4A 53 52 20 4F 55 54 3B 20 53 80 20 31 20 42 59 |JSR OUT; S. 1 BY|
000105C0: 54 45 20 A4 20 54 48 45 20 31 35 34 31 00 E7 09 |TE . THE 1541...|
000105D0: AA 00 4A 53 52 20 55 4E 4C 49 53 00 EF 09 B4 00 |..JSR UNLIS.....|
000105E0: 52 54 53 00 03 0A E2 04 9B 20 4C 44 41 20 23 24 |RTS...... LDA #$|
000105F0: 30 38 3B 20 9B 45 4E 00 0F 0A EC 04 4A 53 52 20 |08; .EN.....JSR |
00010600: 4C 49 53 00 1C 0A F6 04 4C 44 41 20 23 24 46 46 |LIS.....LDA #$FF|
00010610: 00 2A 0A 00 05 4A 53 52 20 4C 49 53 45 43 00 32 |.*...JSR LISEC.2|
00010620: 0A 0A 05 52 54 53 00 44 0A 14 05 54 41 4C 4B 20 |...RTS.D...TALK |
00010630: 4C 44 41 20 23 24 30 38 00 68 0A 1E 05 4A 53 52 |LDA #$08.h...JSR|
00010640: 20 54 4C 4B 3B 20 A1 20 31 20 42 59 54 45 20 46 | TLK; . 1 BYTE F|
00010650: 52 4F 4D 20 54 48 45 20 31 35 34 31 00 75 0A 28 |ROM THE 1541.u.(|
00010660: 05 4C 44 41 20 23 24 46 46 00 84 0A 32 05 4A 53 |.LDA #$FF...2.JS|
00010670: 52 20 54 4C 4B 53 45 43 00 8C 0A 3C 05 52 54 53 |R TLKSEC...<.RTS|
00010680: 00 C4 0A 90 06 43 48 4B 45 52 52 20 4A 53 52 20 |.....CHKERR JSR |
00010690: 9B 3B 92 20 81 20 43 4F 4D 4D AF 20 A4 20 42 45 |.;. . COMM. . BE|
000106A0: 20 52 45 50 4C 41 43 45 44 20 57 49 54 48 20 45 | REPLACED WITH E|
000106B0: 52 52 B0 20 43 4F 44 45 00 D1 0A 9A 06 4C 44 59 |RR. CODE.....LDY|
000106C0: 20 23 24 30 30 00 F8 0A A4 06 43 48 4B 31 20 4C | #$00.....CHK1 L|
000106D0: 44 41 20 4D 52 2C 59 3B 87 20 42 59 54 45 20 40 |DA MR,Y;. BYTE @|
000106E0: 20 24 30 30 20 49 4E 20 31 35 34 31 00 04 0B AE | $00 IN 1541....|
000106F0: 06 4A 53 52 20 4F 55 54 00 0C 0B B8 06 49 4E 59 |.JSR OUT.....INY|
00010700: 00 19 0B C2 06 43 50 59 20 23 24 30 36 00 26 0B |.....CPY #$06.&.|
00010710: CC 06 42 4E 45 20 43 48 4B 31 00 34 0B D6 06 4A |..BNE CHK1.4...J|
00010720: 53 52 20 55 4E 4C 49 53 00 41 0B E0 06 4A 53 52 |SR UNLIS.A...JSR|
00010730: 20 54 41 4C 4B 00 5A 0B EA 06 4A 53 52 20 49 4E | TALK.Z...JSR IN|
00010740: 3B A1 20 42 59 54 45 20 41 54 20 24 30 30 00 66 |;. BYTE AT $00.f|
00010750: 0B F4 06 53 54 41 20 45 52 52 00 74 0B FE 06 4A |...STA ERR.t...J|
00010760: 53 52 20 55 4E 54 4C 4B 00 80 0B 08 07 4C 44 41 |SR UNTLK.....LDA|
00010770: 20 45 52 52 00 B0 0B 12 07 42 4D 49 20 43 48 4B | ERR.....BMI CHK|
00010780: 45 52 52 3B 20 53 45 56 45 4E 54 48 20 42 49 54 |ERR; SEVENTH BIT|
00010790: 20 53 45 54 20 22 4E 4F 20 45 52 52 4F 52 20 43 | SET "NO ERROR C|
000107A0: 4F 44 45 22 00 B8 0B 1C 07 52 54 53 00 CD 0B 6C |ODE".....RTS...l|
000107B0: 07 2E 46 49 4C 45 20 53 52 43 48 20 44 53 4B 20 |..FILE SRCH DSK |
000107C0: 36 00 00 00 30 07 54 52 4B 20 45 52 52 B0 00 00 |6...0.TRK ERR...|
000107D0: 00 31 20 54 52 4B 20 45 52 52 B0 00 00 00 20 45 |.1 TRK ERR.... E|
000107E0: 52 52 B0 01 00 00 FF FF 00 00 FF FF 00 00 FF FF |RR..............|
000107F0: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |................|
00010800: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 F7 FF |................|
00010810: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |................|
00010820: 00 00 F3 FF 00 00 FF F3 00 00 FF FF 08 00 FF FF |................|
00010830: 5E 02 F7 FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |^...............|
00010840: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |................|
00010850: 00 00 FF FF 00 00 FF FF 00 00 F3 FF 00 00 FF FF |................|
00010860: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |................|
00010870: 00 00 FF FF 00 00 FF FF 00 00 FF FF 00 00 FF FF |................|
00010880: 00 00 FF FF 00 00 FF FF 00 00 FF FF 9B 3B 92 20 |.............;. |
00010890: 81 20 43 4F 4D 4D AF 20 A4 20 42 45 20 52 45 50 |. COMM. . BE REP|
000108A0: 4C 41 43 45 44 20 57 49 54 48 20 45 52 52 B0 20 |LACED WITH ERR. |
000108B0: 43 4F 44 45 00 D1 0A 9A 06 4C 44 59 20 23 24 30 |CODE.....LDY #$0|
000108C0: 30 00 F8 0A A4 06 43 48 4B 31 20 4C 44 41 20 4D |0.....CHK1 LDA M|
000108D0: 52 2C 59 3B 87 20 42 59 54 45 20 40 20 24 30 30 |R,Y;. BYTE @ $00|
000108E0: 20 49 4E 20 31 35 34 31 00 04 01 08 11 08 0A 00 | IN 1541........|
000108F0: 3B 53 52 43 48 20 44 53 4B 20 36 00 36 08 50 00 |;SRCH DSK 6.6.P.|
00010900: 47 20 4A 53 52 20 A1 3B 52 4F 55 54 49 4E 45 20 |G JSR .;ROUTINE |
00010910: 81 20 4B 45 59 42 4F 41 52 44 20 45 4E 54 52 59 |. KEYBOARD ENTRY|
00010920: 00 40 08 5A 00 42 45 51 20 47 00 64 08 5B 00 43 |.@.Z.BEQ G.d.[.C|
00010930: 4D 50 20 23 24 30 44 3B 8E 20 B2 20 80 20 4F 46 |MP #$0D;. . . OF|
00010940: 20 53 45 41 52 43 48 20 53 54 52 49 4E 47 00 6E | SEARCH STRING.n|
00010950: 08 5C 00 42 4E 45 20 54 00 76 08 5D 00 52 54 53 |.\.BNE T.v.].RTS|
00010960: 00 7C 08 5E 00 3B 00 92 08 5F 00 3B 43 91 56 45 |.|.^.;..._.;C.VE|
00010970: 52 54 20 C6 49 49 20 A4 20 48 45 58 00 98 08 60 |RT .II . HEX...`|
00010980: 00 3B 00 B9 08 64 00 54 20 4A 53 52 20 99 3B 4B |.;...d.T JSR .;K|
00010990: 45 59 20 53 A4 4B 45 20 49 4E 20 C6 49 49 20 99 |EY S.KE IN .II .|
000109A0: 20 49 54 00 DC 08 69 00 4A 53 52 20 54 45 4E 3B | IT...i.JSR TEN;|
000109B0: 43 91 56 45 52 54 20 46 49 52 53 54 20 4B 45 59 |C.VERT FIRST KEY|
000109C0: 53 54 52 4F 4B 45 00 E9 08 6E 00 47 31 20 4A 53 |STROKE...n.G1 JS|
000109D0: 52 20 A1 00 F4 08 6F 00 42 45 51 20 47 31 00 FE |R ....o.BEQ G1..|
000109E0: 08 78 00 4A 53 52 20 99 00 1E 09 7D 00 4A 53 52 |.x.JSR ....}.JSR|
000109F0: 20 91 45 3B 43 91 56 45 52 54 20 32 4E 44 20 4B | .E;C.VERT 2ND K|
00010A00: 45 59 53 54 52 4F 4B 45 00 28 09 82 00 4C 44 58 |EYSTROKE.(...LDX|
00010A10: 20 58 00 52 09 8C 00 53 54 41 20 53 52 43 48 2C | X.R...STA SRCH,|
00010A20: 58 3B 50 55 54 20 53 45 41 52 43 48 20 53 54 52 |X;PUT SEARCH STR|
00010A30: 49 4E 47 20 B5 4F 20 4D 45 4D B0 59 00 5A 09 96 |ING .O MEM.Y.Z..|
00010A40: 00 49 4E 58 00 64 09 A0 00 53 54 58 20 58 00 92 |.INX.d...STX X..|
00010A50: 09 A1 00 49 4E 43 20 53 54 52 49 4E 47 3B 56 41 |...INC STRING;VA|
00010A60: 52 49 41 42 4C 45 20 48 4F 57 20 4C 91 47 20 53 |RIABLE HOW L.G S|
00010A70: 45 41 52 43 48 20 53 54 52 49 4E 47 00 A9 09 A5 |EARCH STRING....|
00010A80: 00 4A 4D 50 20 47 3B A1 20 41 A8 48 45 52 20 42 |.JMP G;. A.HER B|
00010A90: 59 54 45 00 D5 09 AA 00 54 45 4E 20 43 4D 50 20 |YTE.....TEN CMP |
00010AA0: 23 24 34 31 3B 23 20 47 52 45 41 54 45 52 20 54 |#$41;# GREATER T|
00010AB0: 48 41 4E 20 39 20 28 41 20 42 20 45 54 43 29 00 |HAN 9 (A B ETC).|
00010AC0: E1 09 B4 00 42 43 43 20 4E 55 4D 00 F3 09 B8 00 |....BCC NUM.....|
00010AD0: 3B 45 58 41 4D 50 4C 45 20 23 24 42 35 00 13 0A |;EXAMPLE #$B5...|
00010AE0: B9 00 3B 48 4F 4C 44 53 20 54 48 45 20 42 20 28 |..;HOLDS THE B (|
00010AF0: 23 24 34 32 29 20 49 4E 20 23 24 42 35 00 32 0A |#$42) IN #$B5.2.|
00010B00: BA 00 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00010B10: 20 20 20 20 30 31 30 30 30 30 31 30 00 3A 0A BE | 01000010.:..|
00010B20: 00 53 45 43 00 59 0A C8 00 53 42 43 20 23 24 30 |.SEC.Y...SBC #$0|
00010B30: 37 3B 23 24 33 42 20 20 20 20 20 30 30 31 31 31 |7;#$3B 00111|
00010B40: 30 31 31 00 76 0A D2 00 4E 55 4D 20 AF 20 23 24 |011.v...NUM . #$|
00010B50: 30 46 3B 20 20 20 20 20 30 30 30 30 31 31 31 31 |0F; 00001111|
00010B60: 00 95 0A D7 00 3B 45 51 55 41 4C 53 20 20 20 20 |.....;EQUALS |
00010B70: 20 20 20 20 20 20 20 30 30 30 30 31 30 31 31 00 | 00001011.|
00010B80: B4 0A DC 00 41 53 4C 3B 20 20 20 20 20 20 20 20 |....ASL; |
00010B90: 20 20 20 20 20 20 30 30 30 31 30 31 31 30 00 D3 | 00010110..|
00010BA0: 0A E1 00 41 53 4C 3B 20 20 20 20 20 20 20 20 20 |...ASL; |
00010BB0: 20 20 20 20 20 30 30 31 30 31 31 30 30 00 F2 0A | 00101100...|
00010BC0: E2 00 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 |..ASL; |
00010BD0: 20 20 20 20 30 31 30 31 31 30 30 30 00 18 0B E3 | 01011000....|
00010BE0: 00 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 |.ASL; |
00010BF0: 20 20 20 31 30 31 31 30 30 30 30 20 B2 20 23 24 | 10110000 . #$|
00010C00: 42 30 00 25 0B E6 00 53 54 41 20 54 45 4D 50 00 |B0.%...STA TEMP.|
00010C10: 2D 0B F0 00 52 54 53 00 4E 0B FA 00 91 45 20 43 |-...RTS.N....E C|
00010C20: 4D 50 20 23 24 34 31 3B 54 48 45 20 23 24 30 35 |MP #$41;THE #$05|
00010C30: 20 49 4E 20 23 24 42 35 00 5B 0B 04 01 42 43 43 | IN #$B5.[...BCC|
00010C40: 20 4E 55 4D 31 00 63 0B 0E 01 53 45 43 00 70 0B | NUM1.c...SEC.p.|
00010C50: 18 01 53 42 43 20 23 24 30 37 00 8F 0B 1D 01 3B |..SBC #$07.....;|
00010C60: 45 58 41 4D 50 4C 45 20 20 20 20 20 20 20 20 20 |EXAMPLE |
00010C70: 20 30 30 30 30 30 31 30 31 00 AC 0B 22 01 4E 55 | 00000101...".NU|
00010C80: 4D 31 20 AF 20 23 24 30 46 3B 20 20 20 20 30 30 |M1 . #$0F; 00|
00010C90: 30 30 31 31 31 31 00 CB 0B 27 01 3B 45 51 55 41 |001111...'.;EQUA|
00010CA0: 4C 53 20 23 24 30 35 20 20 20 20 20 20 30 30 30 |LS #$05 000|
00010CB0: 30 30 31 30 31 00 D3 0B 2C 01 43 4C 43 00 F3 0B |00101...,.CLC...|
00010CC0: 36 01 41 44 43 20 54 45 4D 50 3B 23 24 42 30 20 |6.ADC TEMP;#$B0 |
00010CD0: AA 20 23 24 30 35 20 B2 20 23 24 42 35 00 FB 0B |. #$05 . #$B5...|
00010CE0: 40 01 52 54 53 00 10 0C 7C 01 2E 46 49 4C 45 20 |@.RTS...|..FILE |
00010CF0: 53 52 43 48 20 44 53 4B 20 37 00 00 00 00 3B 20 |SRCH DSK 7....; |
00010D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00010D10: 30 31 30 30 30 30 31 30 00 3A 0A BE 00 53 45 43 |01000010.:...SEC|
00010D20: 00 59 0A C8 00 53 42 43 20 23 24 30 37 3B 23 24 |.Y...SBC #$07;#$|
00010D30: 33 42 20 20 20 20 20 30 30 31 31 31 30 31 31 00 |3B 00111011.|
00010D40: 76 0A D2 00 4E 55 4D 20 AF 20 23 24 30 46 3B 20 |v...NUM . #$0F; |
00010D50: 20 20 20 20 30 30 30 30 31 31 31 31 00 95 0A D7 | 00001111....|
00010D60: 00 3B 45 51 55 41 4C 53 20 20 20 20 20 20 20 20 |.;EQUALS |
00010D70: 20 20 20 30 30 30 30 31 30 31 31 00 B4 0A DC 00 | 00001011.....|
00010D80: 41 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 |ASL; |
00010D90: 20 20 30 30 30 31 30 31 31 30 00 D3 0A E1 00 41 | 00010110.....A|
00010DA0: 53 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |SL; |
00010DB0: 20 30 30 31 30 31 31 30 30 00 F2 0A E2 00 41 53 | 00101100.....AS|
00010DC0: 4C 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |L; |
00010DD0: 30 31 30 31 31 30 30 30 00 18 0B E3 00 41 53 4C |01011000.....ASL|
00010DE0: 01 08 11 08 0A 00 3B 53 52 43 48 20 44 53 4B 20 |......;SRCH DSK |
00010DF0: 37 00 17 08 0B 00 3B 00 36 08 0C 00 3B 43 91 56 |7.....;.6...;C.V|
00010E00: 45 52 54 20 48 45 58 20 A4 20 C6 49 49 20 81 20 |ERT HEX . .II . |
00010E10: 53 43 52 45 45 4E 00 3C 08 0D 00 3B 00 6A 08 14 |SCREEN.<...;.j..|
00010E20: 00 50 52 4E 54 83 20 4C 44 41 20 54 52 4B 3B 45 |.PRNT. LDA TRK;E|
00010E30: 58 41 4D 50 4C 45 20 54 52 4B 20 23 24 31 42 20 |XAMPLE TRK #$1B |
00010E40: 28 32 37 20 41 53 43 49 49 29 00 76 08 1E 00 4A |(27 ASCII).v...J|
00010E50: 53 52 20 48 45 58 00 83 08 28 00 4C 44 41 20 54 |SR HEX...(.LDA T|
00010E60: 45 4D 50 00 A4 08 32 00 53 54 41 20 54 52 4B 4C |EMP...2.STA TRKL|
00010E70: 4F 3B 48 4F 4C 44 53 20 41 20 C6 49 49 20 33 31 |O;HOLDS A .II 31|
00010E80: 20 28 31 29 00 B3 08 3C 00 4C 44 41 20 54 45 4D | (1)...<.LDA TEM|
00010E90: 50 AA 31 00 D4 08 46 00 53 54 41 20 54 52 4B 48 |P.1...F.STA TRKH|
00010EA0: 49 3B 48 4F 4C 44 53 20 41 20 C6 49 49 20 34 32 |I;HOLDS A .II 42|
00010EB0: 20 28 42 29 00 E0 08 50 00 4C 44 41 20 53 45 43 | (B)...P.LDA SEC|
00010EC0: 00 EC 08 5A 00 4A 53 52 20 48 45 58 00 F9 08 64 |...Z.JSR HEX...d|
00010ED0: 00 4C 44 41 20 54 45 4D 50 00 07 09 6E 00 53 54 |.LDA TEMP...n.ST|
00010EE0: 41 20 53 45 43 4C 4F 00 16 09 78 00 4C 44 41 20 |A SECLO...x.LDA |
00010EF0: 54 45 4D 50 AA 31 00 24 09 82 00 53 54 41 20 53 |TEMP.1.$...STA S|
00010F00: 45 43 48 49 00 31 09 8C 00 4A 4D 50 20 53 43 52 |ECHI.1...JMP SCR|
00010F10: 4E 00 53 09 96 00 48 45 58 20 53 54 41 20 54 45 |N.S...HEX STA TE|
00010F20: 4D 50 AA 31 3B 20 23 24 31 42 20 30 30 30 31 31 |MP.1; #$1B 00011|
00010F30: 30 31 31 00 73 09 A0 00 AF 20 23 24 46 30 3B 20 |011.s.... #$F0; |
00010F40: 20 20 20 20 20 20 20 20 20 20 20 31 31 31 31 30 | 11110|
00010F50: 30 30 30 00 95 09 A1 00 3B 45 51 55 41 4C 53 20 |000.....;EQUALS |
00010F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 | 000|
00010F70: 31 30 30 30 30 00 B7 09 A5 00 4C 53 52 3B 20 20 |10000.....LSR; |
00010F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
00010F90: 30 30 30 31 30 30 30 00 D9 09 AA 00 4C 53 52 3B |0001000.....LSR;|
00010FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00010FB0: 20 30 30 30 30 30 31 30 30 00 FB 09 AB 00 4C 53 | 00000100.....LS|
00010FC0: 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R; |
00010FD0: 20 20 20 30 30 30 30 30 30 31 30 00 1D 0A AC 00 | 00000010.....|
00010FE0: 4C 53 52 3B 20 20 20 20 20 20 20 20 20 20 20 20 |LSR; |
00010FF0: 20 20 20 20 20 30 30 30 30 30 30 30 31 00 37 0A | 00000001.7.|
00011000: B4 00 41 44 43 20 23 24 33 30 3B B2 20 33 31 20 |..ADC #$30;. 31 |
00011010: C6 49 49 20 B2 20 31 00 44 0A BE 00 53 54 41 20 |.II . 1.D...STA |
00011020: 54 45 4D 50 00 66 0A C8 00 4C 44 41 20 54 45 4D |TEMP.f...LDA TEM|
00011030: 50 AA 31 3B 23 24 31 42 20 20 20 20 20 20 30 30 |P.1;#$1B 00|
00011040: 30 31 31 30 31 31 00 86 0A DC 00 AF 20 23 24 30 |011011...... #$0|
00011050: 46 3B 20 20 20 20 20 20 20 20 20 20 20 20 30 30 |F; 00|
00011060: 30 30 31 31 31 31 00 A8 0A E1 00 3B 45 51 55 41 |001111.....;EQUA|
00011070: 4C 53 20 23 24 30 42 20 20 20 20 20 20 20 20 20 |LS #$0B |
00011080: 30 30 30 30 31 30 31 31 00 B5 0A E6 00 43 4D 50 |00001011.....CMP|
00011090: 20 23 24 30 41 00 C3 0A F0 00 42 43 43 20 55 4E | #$0A.....BCC UN|
000110A0: 44 45 52 00 CB 0A FA 00 43 4C 43 00 E8 0A 04 01 |DER.....CLC.....|
000110B0: 41 44 43 20 23 24 30 37 3B 4E 4F 57 20 45 51 55 |ADC #$07;NOW EQU|
000110C0: 41 4C 53 20 23 24 31 32 00 F6 0A 0E 01 55 4E 44 |ALS #$12.....UND|
000110D0: 45 52 20 43 4C 43 00 1E 0B 18 01 41 44 43 20 23 |ER CLC.....ADC #|
000110E0: 24 33 30 3B 4E 4F 57 20 45 51 55 41 4C 53 20 23 |$30;NOW EQUALS #|
000110F0: 24 34 32 20 28 42 20 49 4E 20 C6 49 49 29 00 2D |$42 (B IN .II).-|
00011100: 0B 22 01 53 54 41 20 54 45 4D 50 AA 31 00 35 0B |.".STA TEMP.1.5.|
00011110: 2C 01 52 54 53 00 47 0B 36 01 53 43 52 4E 20 4C |,.RTS.G.6.SCRN L|
00011120: 44 59 20 23 24 30 30 00 57 0B 40 01 4C 50 37 20 |DY #$00.W.@.LP7 |
00011130: 4C 44 41 20 83 2C 59 00 64 0B 4A 01 43 4D 50 20 |LDA .,Y.d.J.CMP |
00011140: 23 24 30 30 00 71 0B 54 01 42 45 51 20 80 50 52 |#$00.q.T.BEQ .PR|
00011150: 54 00 7B 0B 5E 01 4A 53 52 20 99 00 83 0B 63 01 |T.{.^.JSR ....c.|
00011160: 49 4E 59 00 8F 0B 68 01 4A 4D 50 20 4C 50 37 00 |INY...h.JMP LP7.|
00011170: A1 0B 72 01 80 50 52 54 20 4A 4D 50 20 49 4E 43 |..r..PRT JMP INC|
00011180: 52 00 B6 0B 7C 01 2E 46 49 4C 45 20 53 52 43 48 |R...|..FILE SRCH|
00011190: 20 44 53 4B 20 38 00 00 00 53 52 3B 20 20 20 20 | DSK 8...SR; |
000111A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 30 | 000|
000111B0: 30 30 31 30 30 00 FB 09 AB 00 4C 53 52 3B 20 20 |00100.....LSR; |
000111C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 | 0|
000111D0: 30 30 30 30 30 31 30 00 01 08 16 08 0A 00 3B 53 |0000010.......;S|
000111E0: 52 43 48 20 44 53 4B 20 54 41 42 4C 45 53 00 38 |RCH DSK TABLES.8|
000111F0: 08 14 00 4D 57 20 2E 42 59 54 45 20 22 4D 2D 57 |...MW .BYTE "M-W|
00011200: 22 3A 2E 42 59 54 45 20 30 36 20 30 30 20 30 31 |":.BYTE 06 00 01|
00011210: 00 48 08 1E 00 54 52 4B 20 2E 42 59 54 45 20 30 |.H...TRK .BYTE 0|
00011220: 00 6B 08 28 00 4D 57 31 20 2E 42 59 54 45 20 22 |.k.(.MW1 .BYTE "|
00011230: 4D 2D 57 22 3A 2E 42 59 54 45 20 30 37 20 30 30 |M-W":.BYTE 07 00|
00011240: 20 30 31 00 7B 08 32 00 53 45 43 20 2E 42 59 54 | 01.{.2.SEC .BYT|
00011250: 45 20 30 00 A2 08 3C 00 4D 57 32 20 2E 42 59 54 |E 0...<.MW2 .BYT|
00011260: 45 20 22 4D 2D 57 22 3A 2E 42 59 54 45 20 30 30 |E "M-W":.BYTE 00|
00011270: 20 30 30 20 30 31 20 31 32 38 00 C4 08 41 00 4D | 00 01 128...A.M|
00011280: 52 20 2E 42 59 54 45 20 22 4D 2D 52 22 3A 2E 42 |R .BYTE "M-R":.B|
00011290: 59 54 45 20 30 30 20 30 30 20 30 31 00 E8 08 46 |YTE 00 00 01...F|
000112A0: 00 4D 52 31 20 2E 42 59 54 45 20 22 4D 2D 52 22 |.MR1 .BYTE "M-R"|
000112B0: 3A 2E 42 59 54 45 20 30 32 20 30 33 20 32 35 33 |:.BYTE 02 03 253|
000112C0: 00 F7 08 5A 00 83 20 2E 42 59 54 45 20 31 33 00 |...Z.. .BYTE 13.|
000112D0: 0D 09 5F 00 2E 42 59 54 45 20 22 12 20 54 52 4B |.._..BYTE ". TRK|
000112E0: 20 23 24 20 22 00 1F 09 60 00 54 52 4B 4C 4F 20 | #$ "...`.TRKLO |
000112F0: 2E 42 59 54 45 20 30 00 31 09 64 00 54 52 4B 48 |.BYTE 0.1.d.TRKH|
00011300: 49 20 2E 42 59 54 45 20 30 00 3E 09 65 00 2E 42 |I .BYTE 0.>.e..B|
00011310: 59 54 45 20 33 32 00 4C 09 69 00 2E 42 59 54 45 |YTE 32.L.i..BYTE|
00011320: 20 22 92 22 00 64 09 6E 00 2E 42 59 54 45 20 22 | ".".d.n..BYTE "|
00011330: 20 20 12 20 53 45 43 20 23 24 20 22 00 76 09 73 | . SEC #$ ".v.s|
00011340: 00 53 45 43 4C 4F 20 2E 42 59 54 45 20 30 00 88 |.SECLO .BYTE 0..|
00011350: 09 78 00 53 45 43 48 49 20 2E 42 59 54 45 20 30 |.x.SECHI .BYTE 0|
00011360: 00 95 09 79 00 2E 42 59 54 45 20 33 32 00 AB 09 |...y..BYTE 32...|
00011370: 82 00 2E 42 59 54 45 20 22 92 22 3A 2E 42 59 54 |...BYTE ".":.BYT|
00011380: 45 20 30 00 BE 09 8C 00 53 54 52 49 4E 47 20 2E |E 0.....STRING .|
00011390: 42 59 54 45 20 30 00 CE 09 96 00 45 52 52 20 2E |BYTE 0.....ERR .|
000113A0: 42 59 54 45 20 30 00 DC 09 A0 00 41 20 2E 42 59 |BYTE 0.....A .BY|
000113B0: 54 45 20 30 00 EA 09 AA 00 58 20 2E 42 59 54 45 |TE 0.....X .BYTE|
000113C0: 20 30 00 F8 09 B4 00 59 20 2E 42 59 54 45 20 30 | 0.....Y .BYTE 0|
000113D0: 00 0B 0A BE 00 54 45 4D 50 20 2E 42 59 54 45 20 |.....TEMP .BYTE |
000113E0: 30 20 30 00 1C 0A 86 01 53 52 43 48 20 2E 42 59 |0 0.....SRCH .BY|
000113F0: 54 45 20 30 00 2F 0A 90 01 2E 80 20 53 52 43 48 |TE 0./..... SRCH|
00011400: 20 44 53 4B 20 45 51 00 00 00 | DSK EQ... |
6 LYNX VI BY WILL CORLEY. 69 .READ H
EADER. 6 .P. 220 .READ HEADERI/L. 4 .P.
220 .READ HDRN/SYNC. 7 .P. 158 .LOADER.
8 .P. 105 .BINARY. 4 .P. 188 .READ ERROR
. 4 .P. 160 .DISK CMND. 3 .P. 23 .HALF T
RACK. 11 .P. 6 .ASCII TO HEX. 8 .P. 194
.HEX TO ASCII. 5 .P. 44 .BIT DENSITY. 9
.P. 204 .ASC HEX. 5 .P. 15 .EXC DSK PRG.
2 .P. 44 .RD DSK BUF. 4 .P. 205 .READ S
EC. 4 .P. 164 .READ HEADER ILL.. 4 .P. 1
94 .BAM EQ. 2 .P. 49 .BAM 1. 1 .P. 219 .
BAM 2. 3 .P. 60 .BAM 3. 6 .P. 36 .BAM 4.
1 .P. 155 .BAM 5. 3 .P. 152 .BAM 6. 1 .
P. 163 .BAM 7. 2 .P. 206 .BAM 8. 5 .P. 1
21 .BAM TABLES. 2 .P. 160 .SRCH DSK 8. 3
.P. 207 .RD TRK EQ. 2 .P. 249 .RD TRK 1
. 6 .P. 28 .RD TRK 2. 5 .P. 60 .RD TRK 3
. 2 .P. 191 .RD TRK 4. 2 .P. 102 .RD TRK
5. 2 .P. 202 .RD TRK 6. 1 .P. 127 .RD T
RK 7. 3 .P. 144 .RD TRK 8. 19 .P. 187 .R
D TRK 9. 7 .P. 9 .RD TRK 10. 4 .P. 207 .
RD TRK 11. 4 .P. 156 .RD TRK 12. 1 .P. 2
33 .RD TRK 13. 1 .P. 148 .RD TRK 14. 2 .
P. 117 .RD TRK 15. 2 .P. 139 .RD TRK 16.
3 .P. 23 .RD TRK 17. 2 .P. 49 .RD TRK 1
8. 3 .P. 113 .RD TRK TABLES. 8 .P. 123 .
UNOP EQ. 2 .P. 82 .OPS. 5 .P. 203 .TYPE.
5 .P. 98 .BYTES. 4 .P. 243 .UNOP1. 3 .P
. 42 .UNOP2. 4 .P. 45 .UNOP3. 2 .P. 238
.UNOP4. 3 .P. 238 .UNOP5. 4 .P. 165 .UNO
P6. 3 .P. 53 .UNOP7. 3 .P. 127 .UNOP8. 4
.P. 54 .UNOP9. 4 .P. 30 .SRCH DSK EQ. 2
.P. 26 .SRCH DSK 1. 5 .P. 182 .SRCH DSK
2. 4 .P. 125 .SRCH DSK 3. 1 .P. 150 .SR
CH DSK 4. 2 .P. 10 .SRCH DSK 5. 5 .P. 16
1 .SRCH DSK 6. 5 .P. 28 .SRCH DSK 7. 4 .
P. 192 .SRCH DSK TABLES. 3 .P. .P. 23 .R
D TRK 17. 2 .P. 49 .RD TRK 18. 3 .P. 113
.RD........ $7100......S.L.2.;. HEADER
ROUTINE DESIGNED . . GCR . INTO 1541 RAM
...<.;AFTER TRANSFER . 64 RAM GCR ROUTIN
E WILL C.VERT IT . HEX...D.;64 ROM ROUTI
NES N.E...X.;1541 ROM ROUTINES.K...SRCH
. $F510.....SYNC . $F556... .GCR . $1C01
.....OFF . $F969./...;THIS ROUTINE IS EX
ECUTED IN THE 1541 AT $0300.O.H.;THE ROU
TINE CAN BE PUT .O THE 1541'S MEM.Y WITH
A 64.41 M......;. . THIS ROUTINE PUT TR
ACK DESIRED AT $06 . SEC.R AT $07.V...;P
UT #$E0 (EXECUTE) AT $00 . PRESS ......J
SR SRCH.....LDY #$00.....LP1 CLV...... B
VC ......DEY...".BNE LP1.).,.JSR SYNC.6.
6.LDY #$00.D.@..1 BVC .1.L.J.CLV.X.T.LDA
GCR.H.^.STA $0400,Y.P.H.INY.{.R.BNE .1.
....;SRCH ROUTINE LOOKS . OUR TRACK . SE
C.R WE PUT AT $06 . $07 IN.....;ZERO PAG
E OF THE 1541 THE V FLAG IS SET EVERY TI
ME A . BYTE IS ..1...;HENCE BVC . NO BYT
E HAS BEEN . .O $1C01.W...;THE FIRST #25
6 BYTES WILL BE IGN.ED THIS IS KOD . THO
SE .E SEC.R.....;. ERR.S WE PUT THE SEC.
R NUMBER .E LESS THAN THE BAD SEC.R IN $
07.....;THIS WAY WE'LL SYNC UP . IT . .
IT ANYWAY..9.B.;WE JSR SYNC . LOCATE THE
BEGINNING OF THE HEADER BLOCK . S.RE TH
E GCR.B.L.;IN THE RAM BUFFER STARTING AT
$0400.O...LDY #$00.}....2 BVC .2.....CL
V.....LDA GCR.....STA $0500,Y.....INY...
..BNE .2...&.;THIS IS THE SAME ROUTINE A
S ABOVE BUT THE . IS STORED AT $0500.8.0
.;$1C01 IS . PORT A FOR GCR I/O DATA (AN
INTERNAL DATA PORT).E.D.LDA #$01.Q.N.JM
P OFF...B.;WE PUT A #$01 IN A . JSR OFF
THIS #$01 IS THE ERR. CODE (OK)...L.;TEL
LS THE DISK ALL IS OK . SHUTS DOWN.N....
. . HEADER...NC UP . IT . . IT ANYWAY..9
.B.;WE J........ $7100......S.S.2.;. HEA
DERI.L ROUTINE DESIGNED . . GCR . ON IL
LEGAL TRACK...<.;AFTER TRANSFER . 64 RAM
GCR ROUTINE WILL C.VERT IT . HEX.R.F.;.
USE THIS ROUTINE SEE INFO AT BEGINING O
F . HEADER ROUTINE...N.;64 ROM ROUTINES
N.E.....;1541 ROM ROUTINES.....SYNC . $F
556.#. .GCR . $1C01.3...OFF . $F969.@...
JSR SYNC.M.H.LDY #$00.[.R..1 BVC .1.C...
CLV.O...LDA GCR....STA $0400,Y.....INY.
....BNE .1.....LDY #$00...".;THIS IS THE
SAME ROUTINE AS . HEADER BUT AS ITS AN
ILLEGALLY .MATTED.+.,.;TRACK WE DO . USE
SRCH AS IT WOULD . THE ERR. HEADER . FO
UND.M.6.;INSTEAD WE . . THE SYNC . . WHA
TEVER . WE GET TO THE BUFFERS...@.;A ROU
TINE COULD BE DESIGNED . . ALL SEC.RS AT
.E TIME . THE...J.;HEADER.S COULD BE WR
ITTEN BACK . A COPY DISK U.G .MAT TRACK.
..^..2 BVC .2...H.CLV...R.LDA GCR.!.|.ST
A $0500,Y.)...INY.4...BNE .2.A...LDA #$0
1.M...JMP OFF.....;WE PUT A #$01 IN A .
JSR OFF THIS #$01 IS PUT IN THE ERR. COD
E (OK)...B.;TELLS THE DISK ALLS OK . SHU
TS DOWN.R.V... . HEADERI.L...LLEGALLY .M
ATTED.+.,.;TRACK WE DO ......... $7100..
....S.\...;. HEADERN.SYNC .S TRACK . HEA
DER IN.MATI. FROM TRACK WITH NO SYNC...#
.;. USE THIS ROUTINE SEE INFO AT BEGININ
G OF . HEADER ROUTINE.B.2.;64 ROM ROUTIN
ES & ADDRESSES N.E...F.;1541 ROM ROUTINE
S . ADDRESSES...P.. . $F969...Z.GCR . $1
C01...N.LDY #$00. .X.LP1 BVC LP1.(...CLV
.4...LDA GCR.D...STA $0400,Y.L. .INY.X..
.BNE LP1.E...LDY #$00.U...LP2 BVC LP2.}.
H.CLV...R.LDA GCR.....STA $0500,Y.....IN
Y.....BNE LP2.....LDA #$01.D...JMP .....
.;THIS ROUTINE IS ALMOST THE SAME AS . H
EADER . . HEADERI.L BUT.?.".;HERE WE BY
PASS ALL .IC AS NO SYNC WOULD . US DEAD.
..,.;WITH THIS ROUTINE ALL WE CAN SPEC.Y
IS A TRACK K . IT . . THE FIRST.R.6.;25
6 BYTES THE . HEAD PASSES OVER BUT ITS E
NOUGH . TELL US . THERE IS...@.;ANY USEF
ULL . ON THE TRACK IF THERE IS A ROUTINE
CAN BE PUT TOGETHER.B.J.;. . IN SOME .,
CHECK THE FIRST 5 OR SO BYTES, CHECK IT
WITH WHAT...T.;WE AL.Y HAVE, . ITS D.FE
RENT . IT . . . SOME M.E...^.;.EMBER THI
S IS GCR DATA SO IT HAS TO BE TRANSLATED
FIRST I SUGGEST THAT.'.H.;YOU W.K WITH
N.MALLY .MATTED DISKS FIRST . . THE HANG
OF GCR.H.R.;AS YOU W.T FIND THE N.MAL S
YNC MARKS USUALLY FOUND WITH GCR...|.;WP
GCR . THIS DISK DESCRIBES WHAT GCR IS .
WHAT . LOOK ......;YOU CAN ALSO USE DISK
RAM ADDRESSES FROM $0600 . $07FF . . IN
M.E.5...;. AT A TIME JUST MAKE SURE TO
INITIALIZE THE DISK WHEN YOUR DONE AS.C.
..;$0700 . $07FF IS USED . THE BAM DIREC
.RY.....;FINALLY WHEN NO SYNC IS USED .
PROTECTI. A.HER ROUTINE . THE DISK IS...
..;USED . . IT HENCE NO SYNC IS . THE OG
ER PEOPLE THINK IT IS I PUT.6...;THIS RO
UTINE HERE . SHOW IT IS .SIBLE . . IT BU
T THE KEY . IT.{.B.;IS ELSEWHERE . THE D
ISK A LITTLE HUNTING AROUND IS ALL IT TA
KES...L... . HDRN.SYNC... . WHAT . LOOK
......;YOU CAN ALSO USE DISK RAM ADDRESS
ES FROM $0600 . $07FF . . IN M.E.5...;.
AT........ $7200......S.G.<.;.ER TRANSFE
R M.L PROGRAM . $0300 IN 1541 RAM.H.N.;6
4 ROM ROUTINES & ADDRESSES.X...LIS . $FF
B1.....LISEC . $FF93.....UNLIS . $FFAE..
. .OUT . $FFA8.....PROG . $7100.....;154
1 ROM ROUTINES & ADDRESSES...H.;N.E.....
START LDA #$08.....JSR LIS.....LDA #$FF.
#...JSR LISEC.0...LDX #$00.A...LP1 LDA M
W,X.M...JSR OUT.U.".INX.B.,.CPX #$06.N.6
.BNE LP1...J.;LDA #$08 DEVICE NUMBER . D
ISK JSR . .EN ROUTINE $ED0C...T.;THE .EN
ROUTINE ALLERTS THE DISK THAT A COMM. I
S BEING SENT . IT./.^.;THE 6502.10 REQUI
RES A SEC.DARY ADDRESS WITH THE .EN COMM
..T.H.;THIS IS THE SAME AS . 15,8,15. TH
E #$FF WILL BE C.VERTED . #$0F...R.;BY T
HE SEC.DARY ROUTINE $EDB9 . SENT OVER TH
E SERIAL BUS...|.;WE SET UP A LOOP WITH
X . S. THE COMM. M.W 00 03 20 (MEM.Y WRI
TE.C...;@ $0300 #$20 (#32 BYTES) ) WE AR
E LIMITED . S.ING #32 BYTES AT A TIME...
..;BECAUSE OF THIS OUR PROGRAM WILL S. #
256 BYTES AS IT'S EASIER . SET UP.....;T
HE LOOP . #256 AS #32 IS A DIVIS. OF #25
6.L...LDY #$00.....LP2 LDA PROG...B.JSR
OUT...L.INC LP2.1...V.INC MW.3.....INY..
...CPY #$20.%...BNE LP2.2...LDA MW.3.<..
.BEQ .J...JSR UNLIS.X...JMP START.H.&.
JSR UNLIS.P.0.BRK...D.;BUFFER WITH MEM.
Y WRITE COMM....X.MW .BYTE 77 45 87 00 0
3 32...L.;LINE 430 STARTS OUR ACTUAL S.I
NG OF THE PROGRAM . THE DISK.5.V.;WE . A
WITH THE FIRST BYTE AT $7100 . S. IT .
INC.ENT THE LOW.....;BYTE $7100 . $7101
. INC.ENT THE LOW BYTE OF M-W COMMAND $0
300 = $0301.....;THIS .INUES UNTIL ALL #
32 BYTES HAVE BEEN SENT . THE DISK.....;
OUR LOW BYTE OF THE M.W COMM. IS NOW #$2
0 (#32) WE COMPARE . #$00.S...;. IT IS W
E HAVE WRAPPED AROUND (#$FF . #$00) #256
BYTES HAVE BEEN SENT.....;WE JSR . UN.E
N $EDFE THE COMM. CHANNEL MUST BE D .
.D...;. . RE.ED . JUMP BACK . START . S.
#32 M.E BYTES.....;BY CHANGING THIS ROU
TINE AROUND YOU CAN . . FROM THE DISK US
ING.L.F.;THE ABOVE ROUTINE . M.R INSTEAD
OF M.W SEE TRACE . AN EXAMPLE.W.Z... .E
R...W BYTE OF M-W COMMAND $0300 = $0301.
....;THIS .INUES UNTIL ALL #32 BYTES HAV
E BEEN SENT . THE DISK.....;OUR LOW BYTE
OF THE M.W COMM. IS NOW #$20 (#32......
.. $7100......S.#.Z.. . $FFD2.8._.;. THE
REGISTERS.U.D.STA .G:STA A:STX X:STY Y.
E.N.PHP;. FLAGS.R...LDY #$07...H.LP1 LDA
.G...R.. MASK,Y...S.;EXAMPLE .G . 10101
010.E.T.;MASK . 11111110...U.;RES
ULT . 10101010...V.;WHEN COMPARED .
RESULT IS EQUAL . PUT A ZERO AT BIT ZER
O.^.W.;. WHEN COMPARED THE REULT IS . EQ
UAL PUT A .E AT BIT ZERO.I...CMP .G.V...
BEQ ZERO.....;PUT A .E AT BIT,Y.....LDA
#$31.....STA BITS,Y.....DEY.....CPY #$FF
.J...BNE LP1.V.".JMP OUT...#.;PUT A ZERO
AT BIT,Y.....ZERO LDA #$30.....STA BITS
,Y.....DEY.%.B.CPY #$FF.1.L.BNE LP1.F.M.
;. BITS . SCREEN.W.V.OUT LDA #$0D.A...JS
R ..N...LDY #$00....LP2 LDA #$20.....JS
R ......LDA BITS,Y...&.JSR ....0.INY...:
.CPY #$08.C.D.BNE LP2.P.E.LDA #$0D.Z.F.J
SR ....G.;. THE REGISTERS . FLAGS...N.LD
A A:LDX X:LDY Y...S.PLP...X.RTS.L.B.MASK
.BYTE 127 191 223 239 247 251 253 254.K
.L.BITS .BYTE 0 0 0 0 0 0 0 0.Z.V..G .BY
TE 0.....A .BYTE 0.....X .BYTE 0.....Y .
BYTE 0....... BINARY... #$FF.J...BNE LP1
.V.".JMP OUT...#.;PUT A ZERO AT BIT,Y...
..ZERO LDA........ $7100......S.E.(.;. E
RR. .S ERR. CODE @ $0000 ZERO PAGE 1541.
F.Z.;64 ROM ROUTINES & ADDRESSES.T.N.. .
$FFD2...X.LIS . $FFB1.....UNLIS . $FFAE
.....LISEC . $FF93.....OUT . $FFA8.G. .I
N . $FFA5.W...TLK . $FFB4.....UNTLK . $F
FAB.....TLKSEC . $FF96...R.;1541 ROM ROU
TINES N.E.$...LDA #$08.0...JSR LIS.=...L
DA #$FF.K...JSR LISEC.X...LDY #$00.I...L
P1 LDA MR,Y.U.".JSR OUT.}.,.INY...6.CPY
#$06...@.BNE LP1...J.JSR UNLIS.Z.^.;S. M
.R 00 00 01 MEM.Y . $0000 1 BYTE (ERR. C
ODE)...R.LDA #$08...|.JSR TLK.....LDA #$
FF.....JSR TLKSEC.....JSR IN.&...STA ERR
.4...JSR UNTLK.<...BRK...B.;COMM. THE DI
SK . TALK S. THE .E BYTE @ $0000 .. THE
SERIAL BUS.C.L.;USE THE ACCPTR ROUTINE $
FFA5 . PUT THE BYTE .O THE A REGISTER...
V.;S.RE THE ERR. CODE IN OUR BUFFER CALL
ED ERR.2...;HERE YOU CAN ADD THE HEX . F
II ROUTINE . . THE ERR. CODE.D...;. THE
SCREEN.Y...;BUFFERS . FLAGS.X...MR .BYTE
77 45 82 00 00 01.....ERR .BYTE 0...&..
. . ERR....R UNLIS.Z.^.;S. M.R 00 00 01
MEM.Y . $0000 1 BYTE (ERR. CODE)...R.LDA
#$08...|.JSR TLK.....LDA ........ $7100
......S.&...;DISK COMM.S.G.F.;64 ROM ROU
TINES & ADDRESSES.U.P.. . $FFC0.G.Z.SETN
M . $FFBD.Z.D.SETLFS . $FFBA...I. . $FF
C3...X.;1541 ROUTINES N.E.....LDA #$02..
...LDX #...D. .LDY #...R...JSR SETNM....
.LDA #$0F.....LDX #$08...H.LDY #$0F...R.
JSR SETLFS.....JSR ......LDA #$0F.)...JS
R .;.... .BYTE 73 00.S...;THIS IS THE M
.L EQUIVELANT OF . 15,8,15: . 15,"I0"...
..;WE SET UP THE CGTH OF THE COMM. 2 . T
HE ADDRESS IN RAM WHERE IT IS...".;SET O
UR .ICAL FILE 15 8 15 . JSR . YOU MUST
A FILE WHEN D.E...,... DISK CMND...&...
;DISK COMM.S.G.F.;64 ROM ROUTINES & ADDR
ESSES.U.P.. . $FFC0.G.Z.SETNM . $FFBD.Z.
D.SETLFS . $FFBA...I. . $FFC3...X.;1541
ROUTINES N.E.....LDA #$02.....LDX #...D
. .LDY #...R...JSR SETNM.....LDA #$0F...
..LDX #$08...H.LDY #$0F...R......... $71
00......S.#.... . $FFC0.5.(.SETNM . $FFB
D.H.2.SETLFS . $FFBA.V.<. . $FFC3.F.F.T
LK . $FFB4.Y.P.TLKSEC . $FF96...Z.UNTLK
. $FFAB...D.IN . $FFA5...N.LDA #$07...X.
LDX .#BUMP.E...LDY .#BUMP.S...JSR SETNM.
....LDA #$0F... .LDX #$08.....LDY #$0F..
...JSR SETLFS.....JSR ..!.H.JSR DELAY...
R.JSR CLSE.;...JSR HALF.H...LDA #$07.V..
.LDX .#TRK.D...LDY .#TRK.R...JSR SETNM.
...LDA #$0F.....LDX #$08...".LDY #$0F...
,.JSR SETLFS...6.JSR ....@.JSR DELAY.M.J
.JSR CLSE.Z.T.LDA #$07...^.LDX .#SEEK...
H.LDY .#SEEK...R.JSR SETNM...|.LDA #$0F.
...LDX #$08.-...LDY #$0F.7...JSR ..E...
JSR DELAY.R...JSR CLSE._...LDA #$05.G.B.
BRK.}.L.HALF LDX .#DSKCNT...V.LDY .#DSKC
NT.....JSR SETNM.....LDA #$0F.....LDX #$
08.C...LDY #$0F.R...JSR SETLFS.....JSR .
.....JSR DELAY...&.LDA #$08...0.JSR TLK.
..:.LDA #$FF...D.JSR TLKSEC.*.N.JSR IN.7
.X.STA HEAD.E.B.JSR UNTLK.R.L.JSR CLSE._
.V.LDA HEAD.J.... #$FC.Y...STA HEAD.1...
..CLC.....ADC #$03.....STA BMP.6.....LDA
#$07.....LDX .#BMP.E.F.LDY .#BMP.S.P.JS
R SETNM...Z.LDA #$0F.....LDX #$08.....LD
Y #$0F.....JSR SETLFS.....JSR .. ...JSR
CLSE.(...RTS.;. .DELAY LDX #$00.H.*.STX
TIME.W.4.STX TIME.1.H.>.LP5 INC TIME.U.H
.LDY TIME...R.CPY #$FF...\.BNE LP5...F.I
NC TIME.1...P.LDY TIME.1...Z.CPY #$FF.E.
..BNE LP5.M...INX.Z...CPX #$03.....BNE L
P5.....RTS.....CLSE LDA #$0F.....JSR ..
.J.RTS.Z...;ALL OF THESE ROUTINES ARE DO
CUMENTED IN OTHER PROGRAMS . THIS DISK..
...;THE .LY . ITEM HERE IS HOW WE MOVE T
HE HEAD HALF A TRACK WITH THE.....;ROUTI
NE HALF IN A NUT SHELL WE . $1C00 IN THE
1541 BY MANIPULATING.1...;BITS 0 . 1 WE
MOVE THE HEAD IN THIS CASE WE SET BOTH
BITS . 1 THIS.{...;MOVES THE HEAD BACK .
E HALF TRACK NOW THE HEAD IS A HALF TRAC
K BELOW.E...;TRACK .E WHEN WE . SEEK THE
1541 ROM STARTS COUNTING DOWN HOW FAR I
T.....;MOVED FROM WHERE IT THOUGHT IT WA
S (TRACK .E) WHEN IT .S ITS A HALF.7.$.;
TRACK SH.T OF WHERE ITS SUP.ED . BE...).
;THE FOLLOWING 0 BYTE HAS .HING . DO WIT
H THE PROGRAM INSTEAD IT FIXES.D.*.;A BU
G IN THE ASSEMBLER AFTER A L.G . ROUTINE
LIKE THIS .E IT...+.;SOMETIMES MAKES A
MATH MISTAKE . THE FIRST MATH BYTE (77 I
N BUMP).I.,.;. INSURE THIS DOES'NT HAPPE
N A .BYTE 0 . SET THE BUFFERS.U.-..BYTE
0.Z...BUMP .BYTE 77 45 87 00 00 01 192..
.8.SEEK .BYTE 77 45 87 00 00 01 176.J.=.
;THIS IS #$E0 AT $00 ZERO PAGE OF 1541..
.B.TRK .BYTE 77 45 87 06 00 01 17.0.G.;T
HIS IS OUR TRACK AT $07 ZERO PAGE OF 154
1 . NOW YOU HAVE . ..S.H.;THE TRACK IN B
UT YOU COULD MERGE A PART . SCREEN HERE
. DO IT...L.DSKCNT .BYTE 77 45 82 00 28.
..V.BMP .BYTE 77 45 87 00 28 01 00.I.`.T
IME .BYTE 0 0...J.HEAD .BYTE 0 0...T...
HALF TRACK...MATH BYTE (77 IN BUMP).I.,.
;. INSURE THIS DOES'NT HAPPEN A .BYTE 0
. SET THE BUFFERS.U.-..BYTE 0.Z...BUMP .
BYTE 77 45 87 00 00 01 192...8.SEEK .BYT
E 77 45 87 00 00 01 176.J.=.;THIS IS #$E
0 AT $00 ZERO PAGE OF 1541...B.TRK .BYTE
77 45 87 06 00 01 17......... $7100....
..S.P...;ROUTINE CHANGES FII . HEX . USE
WITHIN OTHER ROUTINES.Q.2.;64 ROM ROUTI
NES & ADDRESSES..<.. . $FFD2...F..IN .
$FFE4...Z.;1541 ROM ROUTINES N.E...N.LDA
#$93.A.X.JSR ..N...LDY #$00.....LP1 LDA
MES,Y.....CMP #$00... .BEQ START.....JS
R ......INY.....JMP LP1.L.R.;THIS ROUTIN
E IS .LAINED IN SCREEN . THIS DISK._...S
TART LDA #$00.J...STA CT.Y...LDA .#BUFF.
....STA NUM.1.Q...;HERE WE SET OUR BUFFE
RS . FLAGS AS WE WILL BE CHANGING ADDRES
SES U.G...".;INC . WE D.T RESET THEM ALL
CALCULATI.S WOULD BE USELESS...6.. JSR
.IN.*.@.CMP #$00.4.J.BEQ ..E.T.NUM STA B
UFF.O.^.JSR ..].H.INC NUM.1.H.R.INC CT.S
.|.LDX CT.....CPX #$02.....BNE ..K...;HE
RE WE . OUR TWO FII NUMBERS FROM THE KEY
BOARD . S.RE THEM.X...LDA BUFF...B.JSR C
.V...L.ASL:ASL:ASL:ASL...V.STA BUFF.2.K.
..;JSR C.V (C.VERT) IS .LAINED BELOW AFT
ER .ING WE HAVE OUR FIRST.....;REAL NUMB
ER THIS NUMBER HAS . BE MULTIPLIED BY #1
6 . S.RED.....LDA BUFF.1.....JSR C.V....
.STA BUFF.3...0.;THIS IS OUR SEC.D NUMBE
R FROM THE KEYBOARD IT'S S.RED ALSO...D.
CLC...N.LDA BUFF.2...X.ADC BUFF.3.*.B.ST
A BUFF.4.2.L.BRK.R...;WE CLEAR THE C FLA
G . ADDITTI. . ADD THE TWO NUMBERS ..HER
.....;ITS THE S.RED . FUTURE USE AS WITH
ALL ROUTINES . THIS DISK THE.....;BUFFE
R IS EXT.ED OUT IE THE FIRST TWO HOLD OU
R .IGINAL FII.<...;THE . TWO HOLD OUR RE
AL NUMBERS . THE LAST IS THE ADDITTI. TH
IS.....;COULD BE SCALED DOWN BUT IT'S EA
SIER . UNDERS.D THIS WAY AS WE CAN SEE.L
...;EXACTLY WHAT IS HAPPENING BY .ING TH
E BUFFER FROM LEFT . RIGHT...F.C.V CMP #
$3A...P.BCC NINE...Z.SEC.....SBC #$37...
..RTS.....NINE SEC.!...SBC #$30.)...CLC.
1...RTS.X.*.;HERE WE COMPARE OUR NUMBERS
. SEE . THERE GREATER THAN #9 . SO WE..
.4.;IGN.E THE BRANCH . SUBTRACT #55 FROM
IT (A . #65 FII MINUS #55...>.;EQUALS #
10 A REAL #10) THIS NUMBER CAN BE W.KED
WITH.;.H.;. THE NUMBER IS NINE . LESS WE
JUST SUBTRACT #$30 FROM IT . RTS.P.\.;B
UFFERS . FLAGS.Y.P.MES .BYTE "ENTER HEX
NUMBER :.BYTE 0...Z.CT .BYTE 0.....BUFF
.BYTE 0 0 0 0....... FII . HEX...FER FRO
M LEFT . RIGHT...F.C.V CMP #$3A...P.BCC
NINE...Z.SEC.......... $7100......S.(...
;..............@.(.;HEX . FII C.VERSI..A
.<.;64 ROM ROUTINES & ADDRESSES.O.P.. .
$FFD2.|.D.LDA #$A5...N.STA NUM...X.. #$F
0.....STA NUM.1.....SEC.....LDA NUM.C. .
SBC NUM.1.Q...STA NUM.2.....;THIS IS THE
REVERSE OF FII . HEX WE FIRST TURN OFF
THE LOW FOUR BITS.[.H.;. SUBTRACT THIS N
UMBER FROM THE .IGINAL #$A5 . #$A0 . #$0
5.I...LDA NUM.1.V...CMP #$00.....BEQ .E.
....LSR:LSR:LSR:LSR.....CMP #$0A.....BCC
.E.....CLC.B.".ADC #$37.P.,.STA NUM.3..
.6.JMP TWO...@..E CLC...T.STA NUM.3.9.H.
;OUR FIRST NUMBER IS COMPARED . #$00 . I
T IS WE ADD #$30 . . WE...R.;DIVIDE BY 1
6 . BY ADDING #$37 WE . UP WITH THE FIRS
T HALF OF #$XX.....TWO LDA NUM.2.....CMP
#$0A.....BCC .ES.....CLC.....ADC #$37.N
...STA NUM.4.Z.B.JMP OUT...L..ES CLC...V
.ADC #$30.....STA NUM.4.H...;THE SEC.D H
ALF OF #$XX COMPARED . A NUMBER LESS THA
N #$09 . IT IS.I...;WE ADD #$30 . . WE A
DD #$37.Z...OUT LDA #$93.....JSR ....&.L
DA #$23...0.JSR ....:.LDA #$24...D.JSR .
...N.LDA NUM.3.J.X.JSR ..X.B.LDA NUM.4..
.L.JSR ....V.BRK.....;BUFFERS.....NUM .B
YTE 0 0 0 0 0. ..... HEX . FII...WE ADD
#$30 . . WE...R.;DIVIDE BY 16 . BY ADDIN
G #$37 WE . UP WITH THE FIRST HALF OF #$
XX.....TWO LDA NUM.2.....CMP #$0A.....BC
C .ES.....CLC.....ADC #$37.N...STA NUM.4
.Z.B.JMP OUT...L..ES CLC...V.ADC #$30...
..ST........ $7100......S.L...;BIT DENSI
TY ROUTINE CHANGES . WRITE SPEED OF 1541
.A.2.;64 ROM ROUTINES.Q.<..IN . $FFE4..
F.. . $FFD2...Z.;1541 ROM ROUTINES...D.D
SKCNT . $1C00...N.GCR . $1C01.J...SYNC .
$F556.Z...OFF . $F969... .LDA #$93.....
JSR ......LDY #$00.....LP1 LDA MES,Y...H
.CMP #$00.+.R.BEQ START.5...JSR ..=...IN
Y.I...JMP LP1.[...START JSR .IN.H...CMP
#$00.V...BEQ START.....JSR ....".CMP #$3
1...,.BEQ Z.E1...6.CMP #$32...@.BEQ Z.E2
.A.J.CMP #$33.N.T.BEQ Z.E3...^.CMP #$34.
..H.BEQ Z.E4.0.|.;THERE ARE FOUR D.FEREN
T BIT DENSITY Z.ES IN THE 1541 Z.E 1 IS
FROM.V...;TRACK 1 . 17 Z.E 2 FROM TRACK
18 . 24 Z.E 3 FROM TRACK 25 . 30 ......;
Z.E 4 FROM TRACK 31 . 35 .ICE HERE WE DI
D . C.VERT OUR FII . HEX.N...Z.E1 LDA #$
60.....STA Z.E.1.....JMP ....B.Z.E2 LDA
#$40...L.STA Z.E.1...V.JMP .."...Z.E3 LD
A #$20.0...STA Z.E.1.:...JMP ..L...Z.E4
LDA #$00.Z...STA Z.E.1.D.... BRK...&.;AB
OVE WE DESIGNATE A NUMBER WE WILL.A DSKC
NT $1C00 WITH AS WILL BE SEEN...0.;SEEN
BELOW WHAT WE ARE DOING HERE IS CHANGING
BITS 5 . 6 OF $1C00 THESE.E.:.;TWO BITS
.ROL THE SPEED OF THE 1541 THE BITS ARE
AS FOLLOWS Z.E 1...D.;BITS 1 1 Z.E 2 BI
TS 1 0 Z.E 3 BITS 0 1 Z.E 4 BITS 0 0...X
.HDR LDA DSKCNT...B.. #$9F...L.Z.E .A #$
00...V.STA DSKCNT.J...JSR SYNC.W.F.LDY #
$00...P..1 BVC .1...Z.CLV.....LDA GCR...
..STA $0400,Y.....INY.....BNE .1.)...LDY
#$00.7....2 BVC .2.?. .CLV.K.*.LDA GCR.
[.4.STA $0500,Y.C.>.INY.N.H.BNE .2.{.R.L
DA #$01...\.JMP OFF.S.P.;THIS SHOULD LOO
K FAMILIAR ITS OUR . HEADERI.L ROUTINE W
ITH AN ADDITTI....Z.;WE FIRST . A WITH $
1C00 . IT WITH #$9F THIS TURNS OFF BITS
5 . 6.U...;WE . . $1C00 . SET BITS 5 . 6
. THE Z.E SPEED WE CHOSE.....;. WE FALL
THROUGH . . THE HEADER WHICH WOULD BE P
UT IN AT ZERO.....;PAGE . BUFFER $0300 A
S DISCRIBED IN WP1541 ZERO PAGE $00 HOLD
S A #$E0.0...;$06 HOLDS THE TRACK . $07
HOLDS THE SEC.R OF COURSE THE ROUTINE CA
N BE.N...;ADDED . . HEADER . . HDRN.SYNC
DEP.ING . THE PROTECTI. ......;THE DISK
OF .EREST THIS ROUTINE WOULD BE TRANSFE
RED . THE DISK FROM.....;LINE 600 $714D
THROUGH LINE 860 $717A . 1541 BUFFER STA
RTING AT $0300...T.;BUFFERS . FLAGS.N...
MES .BYTE "ENTER DENSITY ZONE 1 2 3 OR 4
":.BYTE 0.A..... BIT DENSITY...T DENSIT
Y...NSITY...T DENSITY...T DENSITY...IT D
ENSITY...IT DENSITY..... BIT DENSITY...
IN WP1541 ZERO PAGE $00 HOLDS A #$E0.0..
.;$06 HOLD......;F HEX.1.P.SCRIN LDY #$0
0; SCREEN .MATS & ..@.U.STY HLFFLG.C.Z.P
RNT LDA TRKMES,Y; ENTER TRACK.O.D.BEQ LP
4.Y.N.JSR ....X.INY.....JMP PRNT.....LP4
JSR ......CMP #$00... .BEQ LP4.O...JSR
.;. 1ST KEYSTROKE.....STA TRK.....LP5 JS
R ....H.BEQ LP5...R.JSR .;. 2ND KEYSTROK
E./...STA TRK.1; CHANGE FII . HEX.;...LD
A TRK.V.... #$0F;CLEAR HIGH BITS.B...STA
TRK.Y...ASL:ASL; . TIMES 4.....CLC.....
ADC TRK; . TIMES 5...".ASL; . TIMES 10..
.,.STA TRK.F.6.LDA TRK.1.Q.@.. #$0F.Y.T.
CLC...H.ADC TRK...R.STA TRK...|.STA TKSE
C.&...JSR .HD; FILL $8100.$81FF WITH 0'S
.3...LDY #$00.U...F LDA TRKMES1,Y; . HAL
F TRACK.`...BEQ F1.J...JSR ..R...INY.|..
.JMP F.....F1 JSR ......CMP #$00.....BEQ
F1...B.JSR ..D.L.CMP #$4E; EQUALS "N".O
.V.BEQ F2.....LDA #$01.....STA HLFFLG; S
ET HALF TRACK FLAG.....F2 LDY #$00.-...F
3 LDA TRKMES2,Y; . Z.ES.8...BEQ F4.B...J
SR ..J...INY.U.&.JMP F3.B.0.F4 JSR ..O.:
.CMP #$00.Z.D.BEQ F4...N.JSR ....X.SEC:S
BC #$31:TAY; BECOMES HEX 1 . 4...B.LDA D
ENS1,Y...L.STA SPD.1; PUT Z.E IN DISK PR
OGRAM.....F7 RTS... ..FILE LD DSK PRG...
D; FILL $8100.$81FF WITH 0'S.3...LDY #$0
0.U...F LDA TRKMES1,Y; . HALF TRACK.`...
BEQ F1.J...JSR ..R...INY.|...JMP F.....F
1 JSR ......CMP #$00.....BEQ F1...B.JSR
..D.L.CMP #$4E; EQUALS "N".O.V.BEQ F2...
..LDA #$01.....STA HLFFLG; SET HALF TRAC
......;EXC DSK PRG.;...EXDSK JSR .; PUT
#$E0 AT $00 IN 1541.H...LDY #$00.[...LP2
1 LDA MW1,Y.G.".JSR OUT.O.,.INY.|.6.CPY
#$08...@.BNE LP21...J.JSR UNLIS...T.JSR
....^.LDY #$00.A.H.LP22 LDA MW4,Y.M.R.JS
R OUT.U.|.INY.....CPY #$07.....BNE LP22.
....JSR UNLIS.....JSR CHKERR.....RTS.&..
..FILE DSK PRG... ...............
.RD TRK EQ ................RD TRK
TABLES ................ASC HEX
................LD DSK PRG .......
.........EXC DSK PRG ...............
.DSK PRG .................;RD DS
K BUF.B...RDDSK LDA #$00; . DISK BUFFERS
$0400 & $0500.C...STA A; COUNTER . TWO
BUFFERS.P...RD JSR ..}...LDY #$00.....LP
23 LDA MR1,Y...B.JSR OUT...L.INY...V.CPY
#$06.....BNE LP23.L...JSR UNLIS.Y...JSR
TALK.....LDY #$00.....LP24 JSR IN; . A
BYTE & PUT IN 64.1...BF1 STA GCR1,Y; GCR
. HEX BUFFER.\...BF2 STA GCR2,Y; . . SE
C.R THIS WILL BE.....INY; TRANSFERED . .
BUFFER TO SAVE...&.BNE LP24...'.JSR UNT
LK...(.JSR .; . BYTE # 256...).LDY #$00;
TALK IS LIMITED . 255 BYTES AT A TIME..
.*.LB LDA MRLB,Y...+.JSR OUT...,.INY...-
.CPY #$06.(...BNE LB.6./.JSR UNLIS.C.0.J
SR TALK.N.1.JSR IN.[.2.LDY #$FF.J.3.STA
GCR1,Y.Y.4.STA GCR2,Y...5.JSR UNTLK...C.
INC MR1.4; INC.ENT HIGH BYTE OF BUFFERS.
A.D.INC BF1.2.O.I.INC BF2.2.Y.N.INC A...
X.LDA A...B.CMP #$02; CHECK . BOTH BUFFE
RS ....L.BEQ RD1...V.JMP RD.O...RD1 DEC
BF1.2; DEC.EMT HIGH BYTE OF BUFFERS.]...
DEC BF1.2.K...DEC BF2.2.Y...DEC BF2.2...
..DEC MR1.4.....DEC MR1.4.....LDA #$00..
...STA A.....RTS.C.F..FILE .MAT...IS LIM
ITED . 255 BYTES AT A TIME...*.LB LDA MR
LB,Y........ $7000...2..M.8.Z.; HOW . PR
OGRAM THE DISK . . A.Z...; SEC.R . A TRA
CK & PUT THE ..R...; .O THE 64'S MEM.Y.X
.R.;.....;.... 64 ROM ROUTINES .......".
. . $FFB1...J.LISEC . $FF93.I.R.UNLIS .
$FFAE.Y...OUT . $FFA8...B.TALK . $FFB4..
...TLKSEC . $FF96.....UNTALK . $FFAB...:
.IN . $FFA5.%.B.;.2...JSR INIT.>...JSR L
IS.K.Z.LDY #$00.]...LP1 LDA MR1,Y.I.*.JS
R OUT.Q.R.INY.~.Z.CPY #$08.....BNE LP1..
.J.JSR UNLIS.....JSR LIS.....LDY #$00.C.
B.LP2 LDA MW2,Y.O.J.JSR OUT.W...INY.....
CPY #$07.....BNE LP2.....JSR UNLIS.....J
SR CHKERR.....BRK.&...INIT JSR LIS.2.2.L
DA #"I.>.Z.JSR OUT.L...JSR UNLIS.T...RTS
.E.R.LIS LDA #$08.O...JSR ..|.".LDA #$6F
...J.JMP LISEC...R.CHKERR JSR LIS.....LD
Y #$00...B.LP3 LDA MR1,Y.H...JSR OUT.P..
.INY...:.CPY #$05...B.BNE LP3.....JSR IN
.....BPL OK...Z.JSR UNLIS.....JMP CHKERR
.-.*.OK JMP UNLIS.U.R.MW1 .BYTE "M-W:.BY
TE 06 00 02 18 00.{.Z.MW2 .BYTE "M-W:.BY
TE 00 00 01 128.....MR1 .BYTE "M-R:.BYTE
00 00...LIS.....LDY #$00.C.B.LP2 LDA MW
2,Y.O.J.JSR OUT.W...INY.....CPY #$07....
.BNE LP2.....JSR UNL........ $7100.L...;
. HEADER ILL ROUTINE DESIGNED . . GCR .
ON ILLEGAL TRACK.....;AFTER TRANSFER . 6
4 RAM GCR ROUTINE WILL C.VERT IT . HEX.K
.(.;. USE THIS ROUTINE SEE INFO AT BEGIN
ING OF . HEADER ROUTINE...2.;64 ROM ROUT
INES N.E...<.;1541 ROM ROUTINES...F.SYNC
. $F556...P.GCR . $1C01.,.Z.OFF . $F969
.9.D.JSR SYNC.F.N.LDY #$00.T.X..1 BVC .1
.\...CLV.H...LDA GCR.X...STA $0400,Y...
.INY.....BNE .1.....LDY #$00.....;THIS I
S THE SAME ROUTINE AS . HEADER BUT AS IT
S AN ILLEGALLY .MATTED.$.H.;TRACK WE DO
. USE SRCH AS IT WOULD . THE ERR. HEADER
. FOUND.F.R.;INSTEAD WE . . THE SYNC .
. WHATEVER . WE GET TO THE BUFFERS.....;
A ROUTINE COULD BE DESIGNED . . ALL SEC.
RS AT .E TIME . THE.....;HEADER.S COULD
BE WRITTEN BACK . A COPY DISK U.G .MAT T
RACK......2 BVC .2.....CLV.....LDA GCR..
...STA $0500,Y."...INY.-.".BNE .2.:.,.LD
A #$01.F.6.JMP OFF...@.;WE PUT A #$01 IN
A . JSR OFF THIS #$01 IS PUT IN THE ERR
. CODE (OK)...J.;TELLS THE DISK ALLS OK
. SHUTS DOWN...DER BUT AS ITS AN ILLEGAL
LY .MATTED.$.H.;TRACK WE DO . USE SR....
.... $7000.....;BAM EQ.!....M.'.#.;.<.$.
;64 ROM ROUTINES.B.%.;.P.(.. . $FFE4.^.2
.. . $FFD2.N.<.LIS . $FFB1...F.UNLIS . $
FFAE...P.LISEC . $FF93...Z.OUT . $FFA8..
.D.IN . $FFA5.A.N.TLK . $FFB4.S.X.UNTLK
. $FFAB.....TLKSEC . $FF96.....;...H.;..
.I.;64 ADDRESSES...J.;...R..RAM . $D800.
+....FILE BAM 1... ................RD
TRK 17 ................RD TRK 18
................RD TRK TABLES ...
.............BAM EQ ...........
.....BAM 1 ................BAM
2 .................;BAM 1.-..
.LDA #$00;RESET TRACK . SEC.R.9...STA TR
K.E.(.STA SEC.R.-.STA CTR1.L.2.LDA #$93;
CLEAR SCREEN.V.<.JSR ....F.LDY #.A;FILL
BUFFERS WITH 0...P.LDA #$00...Z.BBM STA
A,Y...D.INY.G.N.BNE BBM.W.X..FILE BAM 2.
....FILE BAMM 1.........................
....;BAM 2.)...JSR INIT;INITIALIZE DISK.
3...JSR ..T.(.LDY #$00;SET UP . . DIREC.
RY...2.B LDA MW,Y;PUT #$12 AT $06 & #$00
AT $07...<.JSR OUT...F.INY...P.CPY #$08
...Z.BNE B...D.JSR UNLIS.D.N.JSR ....X.L
DY #$00;PUT #$80 . AT $00.....B1 LDA MW1
,Y.....JSR OUT.....INY... .CPY #$07. ...
BNE B1.....JSR UNLIS.K...JSR CHKERR;. .
ERR. CODE.U.H.JSR ..B.R.LDY #$00.....B2
LDA MR1,Y;. BAM MAP .O 64.....JSR OUT...
..INY.....CPY #$07.....BNE B2.....JSR UN
LIS.J...JSR TALK.W.".LDY #$00...,.B3 JSR
IN...6.STA BAMBUF,Y...@.INY...J.CPY #$8
C...T.BNE B3.$.^.JSR UNTLK.4.H..FILE BAM
3... #$00;SET UP . . DIREC.RY...2.B LDA
MW,Y;PUT #$12 AT $06 & #$00 AT $07...<.
JSR OUT...F.INY...P.CPY #$08...Z.BNE B..
.D.JSR UNLIS.D.N.JSR ....X.LDY #$00;PUT
#$80 . AT $00.....B1 LDA MW1,Y.....JSR O
......;BAM 3.....TRKLP LDA #$00.D...STA
CTR;COUNTER NUMBER OF TRACKS.M.(.LDA #$0
4;HIGH BYTE OF SCREEN ADDRESS.{.2.STA ML
2.2...3.LDA #$D8...4.STA ..2...<.INC TRK
;EQUALS #$01 FIRST TIME.C.F.LDA TRK...P.
CMP #$24;GREATER THAN #35...Z.BCC ML...D
.JMP .;FINISHED.+.N.ML STA ML2.1;LOW BYT
E OF SCREEN . TRACK.7.O.STA ..1.D.X.JSR
SEC.R;CALCULATE # OF SECS . THIS TRK...}
.INC CTR1;SKIP 1ST BYTE BAM MAP # OF SEC
S.....SECLP LDY CTR1.G...LDA BAMBUF,Y;BA
M MAP FROM 1541.....JSR REV;REVERSE BITS
IN BYTE...H.JSR BI;C.VERT . 8 BINARY BI
TS...R.LDY #$00.*...ML3 LDA BITS,Y.P...M
L2 STA $0400;PUT BITS IN BAM MAP.]...LDA
#$05.M.... STA $D800.....DEC SEC;SEC.R
COUNTER.....LDA SEC.....BNE ML4;. 0 ALL
SEC.RS PLACED.V...INC CTR1;COUNTER # OF
TRACKS.....JMP TRKLP.....ML4 CLC; ADD .
SCREEN ADDRESS . PROPER COLUMN.<...LDA M
L2.1;LOW BYTE SCREEN ADDRESS.I.".ADC #$2
8.W.,.STA ML2.1.E.6.LDA ML2.2.R.@.ADC #$
00...J.STA ML2.2;HIGH BYTE SCREEN ADDRES
S...K.CLC...L.LDA ..1...M.ADC #$28.F.N.S
TA ..1.R.O.LDA ..2...P.ADC #$00...Q.STA
..2...F.INY...G.CPY #$08;NUMBER OF BITS
DISPLAYED.%.H.BNE ML3.U.R.INC CTR; EACH
TRACK USES 3 BYTES IN BAM MAP.A.|.LDA CT
R.N...CMP #$03.|...BEQ TRKLP.....INC CTR
1;SKIP SEC.RS BYTE . TRACK.....JMP SECLP
.U.... JSR .;. . ANY KEY . BE PRESSED...
..BEQ ......LDA #$93.....JSR ....&.JMP (
$A002)...0..FILE BAM 4...A ML2.1;LOW BYT
E SCREEN ADDRESS.I.".ADC #$28.W.,.STA ML
2.1.E.6.LDA ML2.2.R.@.ADC #$00...J.STA M
L2.2;HIGH BYTE SCREEN ADDRESS...K.CLC...
L.LDA ..1...M.ADC #$28.F.N.STA ..1.R.O.L
DA ..2...P.ADC #$00...Q.STA ..2...F.INY.
..G.......;BAM 4.3...SVREG STA A;TEMP.AR
Y . OF A,X, . Y.=...STX X.G.(.STY Y.O.2.
RTS.K.<.RSTREG LDA A;. A,X, . Y.U.F.LDX
X..P.LDY Y...Z.RTS...D..FILE BAM 5.....
........................................
........................................
......................2.;BAM 5.-.Z.;C.VE
RT BYTE . 8 BITS BINARY.>.D.BI JSR SVREG
.N.N.PHP;. FLAGS.[...LDY #$07.J.H.LP1 LD
A .G.W.R.. MASK,Y...S.;EXAMPLE .G . 1010
1010...T.;MASK . 11111110.J.U.;RE
SULT . 10101010...V.;WHEN COMPARED
. RESULT IS EQUAL . PUT A ZERO AT BIT ZE
RO.G.W.;. WHEN COMPARED THE REULT IS . E
QUAL PUT A .E AT BIT ZERO.R...CMP .G._..
.BEQ ZERO.V...;PUT A .E AT BIT,Y.....LDA
#$B1.....STA BITS,Y.....DEY.....BPL LP1
...".JMP BI1.K.#.;PUT A ZERO AT BIT,Y...
..ZERO LDA #$B0.....STA BITS,Y.....DEY..
.L.BPL LP1...N.BI1 JSR RSTREG...S.PLP.#.
X.RTS.R.B.MASK .BYTE 127 191 223 239 247
251 253 254.Q.L.BITS .BYTE 0 0 0 0 0 0
0 0...V..G .BYTE 0......FILE BAM 6...;MA
SK . 11111110.J.U.;RESULT .
10101010...V.;WHEN COMPARED . RESULT IS
EQUAL . PUT A ZERO A......;BAM 6.:...SEC
.R LDA TRK; CALCULATE NUMBER OF SEC.RS.H
...LDX BOUND.Z.(.S CMP BOUND,X.B.2.DEX.L
.<.BCS S.{.F.LDA .TAL,X...K.STA SEC..._.
RTS......FILE BAM 7...0...U.;RESULT .
10101010...V.;WHEN COMPARED . RESULT
IS EQUAL . PUT A ZERO AT BIT ZERO.......
;BAM 7.0...REV STA A;. BYTE . REVERSE BI
TS.M...LDA #$00;CLEAR BIT BYTES.\.(.STA
BITBUF.M.2.STA BITBUF.1.W.<.LDA A...F.ST
A BITBUF...P.LDY #$00...Z.REV1 LSR BITBU
F;PUSH BIT 0 .O CARRY FLAG...D.ROL BITBU
F.1;PUSH CARRY BIT .O REVERSE BYTE...H.;
.#.I.;.G BITS PUSHED RIGHT . BITS PUSHED
LEFT.D.J.;WHEN FINISHED BYTE REVERSED.J
.K.;.R.N.INY._.X.CPY #$08.L...BNE REV1..
...LDA BITBUF.1;REVERSE BYTE.....STA .G;
PUT HERE . BINARY C.VERSI......RTS.H. ..
FILE BAM 8... ................UNOP
EQ .................;BAM 8.L...;
THE .EN ROUTINE ALERTS THE DISK THAT A C
OMM. IS BEING SENT.....;OVER THE SERIAL
BUS. THIS COMM. IS PLACED IN THE 1541'S
COMM....(.;BUFFER AT $0200 IT IS . PARSE
D . EXECUTED..E.2.;...<.;THE TALK ROUTIN
E S.S 1 BYTE AT A TIME FROM THE 1541 . T
HE 64 OVER THE.E.F.;SERIAL BUS. THE BYTE
IS HELD IN THE A REGISTER..K.P.;...Z.;B
OTH ROUTINES REQUIRE THAT A SEC.DARY ADD
RESS BE SPEC.IED....D.;. ...INIT JSR ...
...LDA #$49; "I".T. .JSR OUT; S. 1 BYTE
. THE 1541.....JSR UNLIS.....RTS...... L
DA #$08; .EN.....JSR LIS.....LDA #$FF.%.
..JSR LISEC.-...RTS.?...TALK LDA #$08.C.
..JSR TLK; . 1 BYTE FROM THE 1541.P.(.LD
A #$FF..2.JSR TLKSEC...<.RTS.....CHKERR
JSR .;. . COMM. . BE REPLACED WITH ERR.
CODE.L...LDY #$00.....CHK1 LDA MR,Y....
.JSR OUT.....INY...B.CPY #$06...L.BNE CH
K1...V.JSR UNLIS.'...JSR TALK.2...JSR IN
.>...STA ERR.L...JSR UNTLK.X...LDA ERR..
...BMI CHKERR; SEVENTH BIT SET "NO ERROR
CODE".....RTS...L..FILE BAM TABLES...0.
TRK ERR....1 TRK ERR.... ERR............
........................................
..........................^.............
........................................
.......................................J
SR TLKSEC...<.RTS.....CHKERR JSR .;. . C
OMM. . BE REPLACED WITH ERR. CODE.L...LD
Y #$00.....CHK1 LDA MR,Y.....JSR OUT....
.INY...B.CPY......;BAM TABLES.8...MW .BY
TE "M-W:.BYTE 06 00 02 18 00.^...MW1 .BY
TE "M-W:.BYTE 00 00 01 128..(.MR .BYTE
"M-R:.BYTE 00 00 01...2.MR1 .BYTE "M-R:.
BYTE 04 03 140.A.<.BOUND .BYTE 04 36 31
25 18...F..TAL .BYTE 17 18 19 21...K.A .
BYTE 0...P.X .BYTE 0...Z.Y .BYTE 0...D.E
RR .BYTE 0.&.X.TRK .BYTE 0.6...SEC .BYTE
0.K...BITBUF .BYTE 0 0.[...CTR .BYTE 0.
L. .CTR1 .BYTE 0.Y..... $7200.....BAMBUF
.BYTE 0....... BAM EQ.......BAM EQ
................BAM ...
.............BAM 1 ...........
......;SRCH DSK 8.%...SCREEN LDY #$00.6.
..LP8 LDA SC,Y.C...CMP #$00.P.(.BEQ .SCR
.Z.2.JSR ..B.<.INY.N.F.JMP LP8.{.P..SCR
RTS...D.SC .BYTE 147 32 32 32 32 32 32 3
2.J.X..BYTE ".. PBW SOFTWARE SEARCH DISK
"......BYTE 13 13 13......BYTE 32 32 32
32 32 32 32 32 32 32 32 32 32 32 32 32
32.-."..BYTE ".. BY ".=.,..BYTE 13 13.K.
T..BYTE 32 32 32 32 32 32 32 32 32 32 32
32...^..BYTE ".. C.F. LE MIEUX "...H..B
YTE 13 13.A....BYTE 32 32 32 32 32 32 32
32 32 32......BYTE ".. (C) FREEWARE 198
6 ."......BYTE 13 13......BYTE 32 32 32
32 32 32 32 32 32.=....BYTE ".. ENTER SE
ARCH STRING ".B....BYTE 13 13 32 32 32 3
2 32 32 32.X....BYTE 32 32 32 32...B..BY
TE ".. EXAMPLE 20D2FF "...L..BYTE 13 13
13 00.G.V..FILE SRCH DSK TABLES.....BYTE
13 13 13......BYTE 32 32 32 32 32 32 32
3........ $7000.....;RD TRK EQ.$....M.*
.#.;.?.$.;64 ROM ROUTINES.E.%.;.S.(.. .
$FFE4.A.2.. . $FFD2.Q.<.LIS . $FFB1...F.
UNLIS . $FFAE...P.LISEC . $FF93...Z.OUT
. $FFA8...D.IN . $FFA5.D.N.TLK . $FFB4.V
.X.UNTLK . $FFAB.....TLKSEC . $FF96.....
. . $FFE1.....;.....;1541 ROM ROUTINES..
...;.+. .SYNC . $F556.;...OFF . $F969.A.
..;.V...;1541 .ERNAL I.O.\...;.O...DSKCN
T . $1C00.}.... = $1C01...H.;...I.;64 ZE
RO PAGE ADDRES.G...J.;...R.Z1 . $00FB.B.
..Z2 . $00FC.Q...Z3 . $00FD.....Z4 . $00
FE......FILE RD TRK 1...............;RD
TRK 1.5.<.START JSR .ALL; CLEAR ALL BUFF
ERS._.F.LDA #$40; #64 TRYS AT FINDING SE
C.R ..J.P.STA CT...S.LDA #$60:STA WRK;RE
PLACE JSR IN GCR ROUTINE.G.X.JSR FILL; F
ILL 1541 RAM BUFFERS WITH 0'S.....JSR IN
IT; INITIALIZE THE DISK.....JSR SCRIN; S
CREEN .MAT & . INPUT.1...LDA HLFFLG; CHE
CK . HALF TRACK.S...BEQ ST1; . EQUAL HLF
FLG . SET._...JSR HLF.....DEC TRK:LDA TR
K; . HALF TRACK WE'LL BE .E.....STA TKSE
C; TRACK LOWER THAN N.MAL.....ST1 JSR SE
C.R; CALCULATE # OF SEC.RS... .JSR RDERR
; . ERR.S AT $00 IN 1541.!...JSR DISP; .
ERR.S . SCREEN.....LDX #$00.X...JSR PRG
DSK; PUT DISK PROGRAM AT $0300....TRY J
SR EXDSK; #$E0 AT $00 EXECUTE...".JSR RD
DSK; . RAM AT $0400 . $05FF.I.#.JSR .;AF
TER ERR.S DISPLAYED . ....$.BNE K.;WILL
TERMINATE PROGRAM...%.JMP ALLD. .,.K. JS
R GCR; C.VERT GCR HEADER . HEX.G.6.JSR F
MT; ROW AT $7FXX . PUT HEADER.V.@.LDA SE
CFLG.U.J.BEQ NOSEC; . 0 DUPLICATE ....T.
LDA #$00...^.STA SECFLG; RESET SEC.R FLA
G.I.H.DEC SEC; SUBTRACT 1 . . DUPLICATE.
U.R.LDA SEC...|.BNE NOSEC.....ALLD JSR I
NIT; THIS IS THE ..>...LDA #$00:STA WRK;
REPLACE JSR WITH BRK IN GCR ROUTINE.`.L
.BRK; .CES ROUTINE . M.L M.I.R...V.NOSEC
JSR .BUF; CLEAR BUFFERS . M.E.....DEC C
T; SUBTRACT 1 FROM OUR 64 TRYS.....LDA C
T.Z...BEQ ALLD; . ZERO WE'RE D.E.....JMP
TRY; . . ZERO LOOK . M.E......FILE RD T
RK 2...EADER . HEX.G.6.JSR FMT; ROW AT $
7FXX . PUT HEADER.V.@.LDA SECFLG.U.J.BEQ
NOSEC; . 0 DUPLICATE ....T.LDA #$00...^
.STA SECFLG; RESET SEC.R FLAG.I.H.DEC SE
C; SUBTRACT 1 . . DUPLICATE.U.R.LDA SEC.
..|.BNE NOSEC.....ALLD JSR INIT; T......
;RD TRK 2.4.P.SCRIN LDY #$00; SCREEN .MA
TS & ..Q.U.STY HLFFLG; RESET HLFFLG.T.Z.
PRNT LDA TRKMES,Y; ENTER TRACK...D.BEQ L
P4...N.JSR ....X.INY.....JMP PRNT.....LP
4 JSR ......CMP #$00.F. .BEQ LP4.....JSR
.;. 1ST KEYSTROKE.....STA TRK.....LP5 J
SR ....H.BEQ LP5. .R.JSR .;. 2ND KEYSTRO
KE.@...STA TRK.1; CHANGE FII . HEX.L...L
DA TRK.G.... #$0F;CLEAR HIGH BITS.S...ST
A TRK.....ASL:ASL; . TIMES 4.....CLC....
.ADC TRK; . TIMES 5...".ASL; . TIMES 10.
I.,.STA TRK.W.6.LDA TRK.1...@.. #$0F...T
.CLC...H.ADC TRK...R.STA TRK;NOW HOLDS H
EX NUMBER.%.|.STA TKSEC.L...JSR .HD; FIL
L $7F00.$7FFF WITH 0'S.Y...LDY #$00.{...
F LDA TRKMES1,Y; . HALF TRACK.....BEQ F1
.....JSR ......INY.....JMP F.....F1 JSR
......CMP #$00.G...BEQ F1.Q.B.JSR ....L.
CMP #$4E; EQUALS "N"...V.BEQ F2.....LDA
#$01.&...STA HLFFLG; SET HALF TRACK FLAG
.6...F2 LDY #$00.S...F3 LDA TRKMES2,Y; .
Z.ES.^...BEQ F4.H...JSR ..P...INY.{.&.J
MP F3...0.F4 JSR ....:.CMP #$00. .D.BEQ
F4...N.JSR ..R.X.SEC:SBC #$31:TAY; BECOM
ES HEX 1 . 4...B.LDA DENS1,Y...L.STA SPD
.1; SET .ROLLER BYTE IN DISK PROGRAM....
.F7 RTS.0. ..FILE RD TRK 3... $7F00.$7FF
F WITH 0'S.Y...LDY #$00.{...F LDA TRKMES
1,Y; . HALF TRACK.....BEQ F1.....JSR ...
...INY.....JMP F.....F1 JSR ......CMP #$
00.G...BEQ F1.Q.B.JSR ....L.CMP #$4E; EQ
UALS "N"...V.BEQ F2...........;RD TRK 3.
;...PRGDSK JSR .; PUT DISK PROGRAM AT $0
300.[...LDY #$00; IN THE 1541'S RAM.N.(.
LP18 LDA MW3,Y.Z.2.JSR OUT...<.INY...F.C
PY #$06...P.BNE LP18...Z.LDY #$00...D.LP
19 LDA PROG,X.I.N.JSR OUT.Q...INY.Y...IN
X.....CPY #$20... .BNE LP19.....JSR UNLI
S.,...STY MW3.3; REPLACE LO BYTE M.W ADD
RESS.9...CPX #$40.F.H.BEQ ERR4.U.R.JMP P
RGDSK.H...ERR4 JSR UNLIS.U...LDA #$00...
..STA MW3.3; RESET LO BYTE M.W ADDRESS..
...RTS......FILE RD TRK 4........DSK PRG
................REG
.................;RD TRK 4.8...EXDSK JS
R .; PUT #$E0 AT $00 IN 1541.E...LDY #$0
0.Q...LP21 LDA MW1,Y;M.W 06 00 02 "TRK &
SEC".}.".JSR OUT...,.INY...6.CPY #$08..
.@.BNE LP21...J.JSR UNLIS...T.JSR ..D.^.
LDY #$00...H.LP22 LDA MW4,Y;M.W 00 00 01
"#$E0"...R.JSR OUT...|.INY.....CPY #$07
.....BNE LP22.'...JSR UNLIS.E...JSR CHKE
RR; . . ERR. CODE.M...RTS.`....FILE RD T
RK 5... TRK 2 ................RD
TRK 3 ................RD TRK 4
................RD TRK 5 ...
.............REG ...........
......;RD TRK 5.,.(.PROG LDA DSKCNT;XXXX
XXXX.G.2.. #$9F; 10011111.C.<.SPD
.A #$00; 0XX00000.R.F.STA DSKCNT...P.B
Y JSR SYNC;FIND ANY SYNC MARK...H.LDY #$
00.K.R..1 BVC .1; V FLAG INDICATES GCR B
YTE.....CLV;RESET V FLAG.....LDA .; INTE
RNAL I/O PORT.....STA $0400,Y.....INY. .
..BNE .1.-...LDY #$00.;.^..2 BVC .2.C.H.
CLV.M.R.LDA ..].|.STA $0500,Y.E...INY.P.
..BNE .2.....LDA #$01; ERR. CODE.....JMP
OFF; ERR. H.LING ROUTINE.....RTS.D.N..F
ILE RD TRK 6... 5 ...............
.REG .................;RD TR
K 6.....SVREG STA A.)...STX X.3.(.STY Y.
;.2.RTS.L.<.RSTREG LDA A.V.F.LDX X.`.P.L
DY Y.H.Z.RTS.{.D..FILE RD TRK 7........C
35 12 ................C35 13
................C35 14 .
...............C35 15 .........
........;RD TRK 7.:...FILL JSR .; PUT 0'
S FROM $0300 . $05FF.\...LDY #$00; IN 15
41 RAM BUFFERS.}.(.FILL1 LDA MW5,Y;M.W 0
0 03 FF...2.JSR OUT...<.INY...F.CPY #$06
...P.BNE FILL1...Z.LDY #$00.L.D.FILL2 LD
A #$00.X.N.JSR OUT...X.INY.....CPY #$20.
....BNE FILL2.....CLC... .LDA MW5.3.....
ADC #$20.+...CMP #$00.9...BEQ FILL3.K.H.
STA MW5.3;INC.ENT LO BYTE M-W ADDRESS BY
#$20.Y.R.JSR UNLIS.....JMP FILL.....FIL
L3 LDA #$00:STA MW5.3.M...INC MW5.4;INC.
ENT HI BYTE M-W ADDRESS.....LDA MW5.4...
..CMP #$06.....BEQ FILL4...".JSR UNLIS..
.,.JMP FILL.%.6.FILL4 JSR UNLIS.J.@.LDA
#$00:STA MW5.3;. M.W ADDRESS.A.E.LDA #$0
3:STA MW5.4.I.J.RTS.U.O...$7200...T..FIL
E RD TRK 8...NY...F.CPY #$06...P.BNE FIL
L1...Z.LDY #$00.L.D.FILL2 LDA #$00.X.N.J
SR OUT...X.INY.....CPY #$20.....BNE FILL
2.......P.;RD TRK 8.5._.;C.VERT 5 BYTES
GCR . 4 BYTES HEX.B.`.;. EXAMPLE WE'LL U
SE #$'S 52 56 E5 29 6B...D.GCR LDA #$00;
SET ZERO PAGE INDEX ADDRESSES...N.STA Z1
...X.STA Z4.....STA Z3.A...LDA #.GCR1.L.
..STA Z2.Z. .L1 JSR AA.....STY Z4.....CP
Y #$CC; 1ST 204 BYTES.....BNE L1.....LDA
#$00.$...STA Z1./...STA Z4.:.".STA Z3.G
.,.LDY #$FF.T.6.LDX #$00...@.TR LDA GCR1
,Y; MOVE LAST 102 BYTES . C.VERT...J.STA
GCR1,X...O.LDA #.GCR1:CLC:ADC #$01:STA
TR.2.D.T.INY:INX.O.^.BNE TR...C.LDA #$CC
...H.STA R1.1:STA R2.1:STA R3.1:STA R4.1
...R.L2 JSR AA...W.STY Z4.*.|.CPY #$CC.5
...BNE L2.B...LDA #$00.J...STA R1.1:STA
R2.1:STA R3.1:STA R4.1.....LDA #.GCR1:ST
A TR.2.....WRK RTS.....AA LDY Z3;. EQUAL
S ZERO.E...;(Z1),Y PO.S . $7D00,Y...B.LD
A (Z1),Y; #$52 01010010...L.. #$F8;
11111000.>.N.;RESULT.............
..........................01010000.^.V.L
SR; 00101000.~.W.LSR;
00010100...X.LSR;
00001010 . #$0A.....STA GCR3;$7A00.Y.
..LDA (Z1),Y; #$52 01010010...... #$07
; 00000111.2...;RESULT.........
..............................00000010.R
...ASL; 00000100.Z...ASL;
00001000 . #$08.....STA G
CR3.1;$7A01.....INY.....LDA (Z1),Y; #$5
6 01010110.U.&.. #$C0; 1100000
0...'.;RESULT...........................
............01000000.?.+.; CARRY FLAG .
CLEARED A 1 WILL BE CARRIED._.0.ROL;
10000000..1.ROL;
00000000...2.ROL; 00000
001...:..A GCR3.1; #$08 00001000...?.;
RESULT..................................
.....00001001 . #$09...D.STA GCR3.1.0.N
.LDA (Z1),Y; #$56 01010110.N.X.. #$3E;
00111110...Y.;RESULT..........
.............................00010110...
B.LSR; 00001011 . #$0B.F.
L.STA GCR3.2;$7A02...V.LDA (Z1),Y; #$56
01010110...... #$01; 00000001
.?...;RESULT............................
...........00000000._...ASL;
00000000....ASL; 00000
000.....ASL; 00000000.G...
ASL; 00000000 . #$00.....
STA GCR3.3;$7A03.....INY.....LDA (Z1),Y;
#$E5 11100101.".... #$F0; 11
110000.]...;RESULT......................
.................11100000.}...LSR;
01110000.....LSR;
00111000.....LSR; 0001110
0.....LSR; 00001110 . #$0
E...F..A GCR3.3; 00000000.G.K.;RE
SULT....................................
...00001110 . #$0E.\.P.STA GCR3.3;$7A03
.|.Z.LDA (Z1),Y; #$E5 11100101...... #
$0F; 00001111.U...;RESULT......
.................................0000010
1.....ASL; 00001010 . #$0
A.....STA GCR3.4;$7A04.....INY.:...LDA (
Z1),Y; #$29 00101001.X.... #$80;
10000000.....;RESULT................
.......................00000000... .CLC.
..*.ROL; 00000000...+.ROL;
00000000...4..A GCR3.4;
#$0A 00001010.=.9.;RESULT..............
.........................00001010 . #$0
A.R.>.STA GCR3.4;$7A04.R.H.LDA (Z1),Y;
#$29 00101001...R.. #$7C; 0111
1100.K.W.;RESULT........................
...............00101000...\.LSR;
00010100...].LSR; 0
0001010 . #$0A.(.F.STA GCR3.5;$70A5.H.P
.LDA (Z1),Y; #$29 00101001.F.Z.. #03;
00000011....;RESULT..........
.............................00000001.A.
..ASL; 00000010.....ASL;
00000100.....ASL;
00001000 . #$08.....STA GCR3.6;$7A
06.&...INY.F...LDA (Z1),Y; #$6B 011010
11.D.... #$E0; 11100000.....;RE
SULT....................................
...01100000.....ROL; 11000
000.....ROL; 10000000.....
ROL; 00000001.....ROL;
00000011.>....A GCR3.6; #$08
00001000...E.;RESULT..................
.....................00001011 . #$0B...
J.STA GCR3.6;$7A06...T.LDA (Z1),Y; #$6B
01101011.T.... #$1F; 00011111
.....;RESULT............................
...........00001011 . #$0B.,...STA GCR3
.7;$7A07.4...INY.?...STY Z3.J...LDY Z4._
...LDX GCR3; #$0A.~...LDA GCR4,X; #$00
00000000...$.LDX GCR3.1; #$09......A G
CR5,X; #$08 00001000...3.;RESULT.......
..............................00001000
. #$08 HEADER ID...8.R1 STA HEX,Y...B.IN
Y.*.L.LDX GCR3.2; #$0B.I.V.LDA GCR4,X; #
$10 00010000.^.`.LDX GCR3.3; #$0E.|.J..
A GCR5,X; 00000100.F.O.;RESULT....
.................................0001010
0 . #$14 CHECKSUM.W.T.R2 STA HEX,Y...~.
INY.....LDX GCR3.4; #$0A.....LDA GCR4,X;
#$00 00000000.(...LDX GCR3.5; #$0A.F..
..A GCR5,X; 00000000.....;RESULT..
...................................00000
000 . #$00 SEC.R.....R3 STA HEX,Y.....I
NY...D.LDX GCR3.6; #$0A.Z.N.LDA GCR4,X;
#$10 00010000...X.LDX GCR3.7; #$0B.....
.A GCR5,X; 00000001.T...;RESULT...
..................................000100
01 . #$11 TRACK.E...R4 STA HEX,Y.M...IN
Y.X...STY Z4...<.RTS...F..FILE RD TRK 9.
.....................00010100 . #$14 CH
ECKSUM.W.T.R2 STA HEX,Y...~.IN......;RD
TRK 9.O...;THE .EN ROUTINE ALERTS THE DI
SK THAT A COMM. IS BEING SENT.....;OVER
THE SERIAL BUS. THIS COMM. IS PLACED IN
THE 1541'S COMM..B.(.;BUFFER AT $0200 IT
IS . PARSED . EXECUTED..H.2.;...<.;THE
TALK ROUTINE S.S 1 BYTE AT A TIME FROM T
HE 1541 . THE 64 OVER THE.H.F.;SERIAL BU
S. THE BYTE IS HELD IN THE A REGISTER..N
.P.;...Z.;BOTH ROUTINES REQUIRE THAT A S
EC.DARY ADDRESS BE SPEC.IED....D.;.....I
NIT JSR ......LDA #$49; "I".W. .JSR OUT;
S. 1 BYTE . THE 1541.....JSR UNLIS.....
RTS...... LDA #$08; .EN.....JSR LIS.....
LDA #$FF.(...JSR LISEC.0...RTS.B...TALK
LDA #$08.F...JSR TLK; . 1 BYTE FROM THE
1541.S.(.LDA #$FF...2.JSR TLKSEC...<.RTS
...F.DISP LDY #$00; . ERR.S . SCREEN.A.P
.UT LDA ERMES,Y.N.Z.CMP #$00.Z.D.BEQ UT1
...N.JSR ....S.INY...X.JMP UT...U.UT1 LD
A #$20...V.JSR ......LDY #$00.1...LP11 L
DA #$30.;...JSR ..J...LDA BUFF,Y.W...CMP
#$0A.X...BCC LESS; BYTE IS A 1 THRU 9..
...CLC...".ADC #$07; ADD 7 . . A THRU F.
..,.LESS CLC...6.ADC #$30.E.@.JSR ..R.J.
LDA #$20...T.JSR ....^.INY...H.CPY SEC..
.R.BNE LP11...|.JSR ......FIN RTS.K...CH
KERR JSR .;. . COMM. . BE REPLACED WITH
ERR. CODE.X...LDY #$00.K...CHK1 LDA MR2,
Y.W...JSR OUT....INY...B.CPY #$06...L.B
NE CHK1...V.JSR UNLIS.....JSR TALK.....J
SR IN.K...STA ERR.Y...JSR UNTLK.....LDA
ERR.....BMI CHKERR; SEVENTH BIT SET "NO
ERROR CODE".....RTS.1.L..FILE RD TRK 10.
..0.TRK ERR....1 TRK ERR.... ERR........
........................................
..............................^.........
........................................
........................................
..|.JSR ......FIN RTS.K...CHKERR JSR .;.
. COMM. . BE REPLACED WITH ERR. CODE.X.
..LDY #$00.K...CHK1 LDA MR2,Y.W...JSR OU
T....INY...B.CPY #$06...L.BNE CHK1...V.
JSR UNLIS.....JSR TALK.....JSR IN.K...ST
A ERR.Y...JSR UNTLK.....LDA ERR.....BMI
CHKERR; ......;RD DSK 10.A...RDDSK LDA #
$00; . DISK BUFFERS $0400 & $0500.B...ST
A A; COUNTER . TWO BUFFERS.O...RD JSR ..
|...LDY #$00.....LP23 LDA MR1,Y...B.JSR
OUT...L.INY...V.CPY #$06.....BNE LP23.K.
..JSR UNLIS.X...JSR TALK.....LDY #$00...
..LP24 JSR IN; . A BYTE & PUT IN 64.0...
BF1 STA GCR1,Y; GCR . HEX BUFFER.[...BF2
STA GCR2,Y; . . SEC.R THIS WILL BE.....
INY; TRANSFERED . . BUFFER TO SAVE...&.B
NE LP24...'.JSR UNTLK...(.JSR .; . BYTE
# 256...).LDY #$00; TALK IS LIMITED . 25
5 BYTES AT A TIME...*.LB LDA MRLB,Y...+.
JSR OUT...,.INY...-.CPY #$06.'...BNE LB.
5./.JSR UNLIS.B.0.JSR TALK.M.1.JSR IN.Z.
2.LDY #$FF.I.3.STA GCR1,Y.X.4.STA GCR2,Y
...5.JSR UNTLK...C.INC MR1.4; INC.ENT HI
GH BYTE OF BUFFERS...D.INC BF1.2.N.I.INC
BF2.2.X.N.INC A...X.LDA A...B.CMP #$02;
CHECK . BOTH BUFFERS ....L.BEQ RD1...V.
JMP RD.L...RD1 DEC BF1.2; RESET HIGH BYT
E OF BUFFERS.Z...DEC BF1.2.H...DEC BF2.2
.V...DEC BF2.2.....DEC MR1.4.....DEC MR1
.4.....LDA #$00.....STA A.....RTS.E.F..F
ILE RD TRK 11...LIMITED . 255 BYTES AT A
TIME...*.LB LDA MRLB,Y.......;RD TRK 11
.:...FMT JSR SVREG; ROUTINE . PLACE HEAD
ER._...LDY #$02; IN PROPER ROW AT $7FXX.
....LDA HEX,Y; THIS IS THE SEC.R IN HEAD
ER.F.#.STA ERR; USED IN ST . TO PLACE DA
TA IN NUMERIC SEQUENCE...$.;PUT HEADER I
N NUMERIC SEQUENCE. EACH HEADER IS 8 BYT
ES.+.(.ASL:ASL:ASL; MULTIPLY BY 8 . SEC
. 3.E.2.TAY; . A . #24 . #$18.N.<.LDA HD
BUF,Y; . $8118 . 0 ITS A . SEC...F.BEQ W
RT; SO ADD IT . BUFFER...G.JSR RSTREG...
K.RTS.M.L.WRT LDX #$00; WRITE HEADER . B
UFFER...P.MRE LDA HEX,X...U.STA HDBUF,Y.
..Z.INY..._.INX...D.CPX #$08...N.BNE MRE
.A.O.LDA #$01; SET SEC FLAG SO COUNT WIL
L.C.P.STA SECFLG; BE DEC.ENTED BY 1...Q.
LDA ERR; EACH . REQUIRES TWO . BUFFERS..
.R.ASL; . SEC . 3 . TIMES 2 . 6...S.CLC.
..T.ADC #$10; 10 . 6 . 16 HIGH BYTE OF B
UFFER...U.CMP #$3B; . SEC . 21 . . EID S
EC NUMBER...V.BCS FMT1.-.W.STA STD1.2.O.
..JSR DT; WRITE BYTES . BUFFERS.Q...JSR
RSTREG; . .IGINAL A X & Y.~...FMT1 RTS..
. ..FILE RD TRK 12...TREG...K.RTS.M.L.WR
T LDX #$00; WRITE HEADER . BUFFER...P.MR
E LDA HEX,X...U.STA HDBUF,Y...Z.INY..._.
......;RD TRK 12.5....BUF LDA #$00; CLEA
R GCR BUFFERS.B...LDY #$00.R.(.. STA HEX
,Y.D.2.STA HEX.256,Y.S.<.STA GCR1,Y...F.
STA GCR1.256,Y...P.STA GCR2,Y...Z.STA GC
R2.256,Y..._.STA GCR3,Y...N.INY.I.X.BNE
..Q...RTS......FILE RD TRK 13...HDR....P
..FILE LD DSK ......;RD TRK 13.6....HD L
DA #$00; CLEAR HEADER BUFFER.L...LDY #$0
0; . M.E ..`.(.CLH STA HDBUF,Y.H.2.INY.T
.<.BNE CLH.|.F.RTS...P..FILE RD TRK 14..
.R ....H.BEQ LP5...R.JSR ......STA TRK.1
.F...LDA TRK.Q.... #$0F.....STA TRK.....
ASL:ASL.....CLC.....ADC TRK.......;RD TR
K 14.>...SEC.R LDA TRK; CALCULATE NUMBER
OF SEC.RS._...CMP #$24; . TRACK CHOSEN
. ......BCC N.MT; . TRACK IS GREATER THA
N #35.....LDX #$00; . SET SEC.RS . #17..
...JMP OVER.....N.MT LDX BOUND; . LESS T
HAN #35 THE...(.LP6 CMP BOUND,X; CALCULA
TE NUMBER OF SEC.RS...2.DEX.#.<.BCS LP6.
7.F.OVER LDA .TAL,X.C.K.STA SEC.S.L.STA
TKSEC.1.[._.RTS.O....FILE RD TRK 15.....
.............RD TRK 11 ...........
.....RD TRK 12 ................RD
TRK 13 ................RD TRK 14
.................;RD TRK 15.7...DT
LDX #$00; S.RE GCR . IN BUFFERS.I...STDA
LDY #$00.\.(.STD LDA GCR2,Y.I.).CMP #$0
0.V.*.BEQ STD3...2.STD1 STA $0000,Y; HIG
H BYTE REPLACED FROM .MAT...<.INY...F.BN
E STD.E.P.INX.R.Z.CPX #$02...D.BEQ STD2;
INC.ENT HIGH BYTE OF BUFFERS...N.INC ST
D.2.....INC STD1.2.'...JMP STDA.V.6.STD2
LDA #.GCR2; . HIGH BYTE OF GCR BUFFER.D
.@.STA STD.2.Q.J.STD3 RTS......FILE RD T
RK 16...TABLES ................BAM EQ
................BAM
................BAMM 1 .......
..........;RD TRK 16.9...RDERR LDA SEC;
. ERR. AT $00 IN 1541.E...STA SVE.T...ER
RS JSR ..A...LDY #$00...(.LP7 LDA MW1,Y;
PUT TRACK & SEC AT $06 & $07...2.JSR OU
T...<.INY...F.CPY #$08...P.BNE LP7.L.Z.J
SR UNLIS.V.D.JSR ....N.LDY #$00...X.LP8
LDA MW2,Y; PUT #$80 (.) AT $00.....JSR O
UT.....INY.+...CPY #$07.7. .BNE LP8.E...
JSR UNLIS.J...JSR CHKERR; . . ERR. CODE
AT $00.V.".LDA ERR...'.LDY SVE; HOLDS NU
MBER OF SEC.RS . TRACK...^.STA BUFF,Y...
H.DEC SVE.I.I.LDA SVE.Y.J.STA TKSEC.1...
K.CMP #$FF...R.BNE ERRS.....RTS...B..FIL
E RD TRK 17...DERR LDA SEC; . ERR. AT $0
0 IN 1541.E...STA SVE.T...ERRS JSR ..A..
.LDY #$00...(.LP7 LDA MW1,Y; PUT TRACK &
SEC AT $06 & $07...2.JSR OUT...<.INY...
F.CPY #$08...P.BNE LP7.L.Z.JSR UNLIS.V.D
.JSR ....N.LDY #$00...X.LP8 LDA MW2,Y; P
UT #$8......;RD TRK 17.8....ALL LDA #$08
; AT BEGINNING OF EACH.I...STA AL2.2; .
THIS ROUTINE CLEARS ALL BUFFERS.Y.#.AL L
DA #$00...(.LDY #$00...2.AL2 STA $0000,Y
...<.INY...F.BNE AL2...P.INC AL2.2.J.Z.L
DA AL2.2...N.CMP #$40; FILL $0800 $3FFF
WITH 0'S...X.BEQ FIN1.....JMP AL.....FIN
1 RTS.+.6..FILE RD TRK 18... .........
.......RD TRK 17 ................H
AF ................RD TRK TA
BLES ................BAM EQ .
...............BAM .........
.......BAMM 1 .................
;RD TRK 18.....HLF JSR ..+...LDY #$00.T.
(.BMP1 LDA BUMP,Y; BUMP HEAD . TRACK 1.`
.2.JSR OUT.H.<.INY.U.F.CPY #$07...P.BNE
BMP1...U.JSR UNLIS...Z.JSR CHKERR; . . E
RR. CODE...D.JSR ..E.N.LDY #$00.T.X.C. L
DA .,Y.....INY.....CPY #$06.....BNE C...
. .JSR UNLIS.....JSR TALK.....JSR IN.'..
.STA HEAD.5.H.JSR UNTLK.B.R.LDA HEAD; XX
XXXXXX HOLDS $1C00 FROM 1541.W.... #$FC;
11111100......A #$03; XXXXXX11 CYCLE BI
TS 0 & 1.....STA BMP.6.....JSR ..C...LDY
#$00.....C.1 LDA BMP,Y; PUT CYCLED BYTE
AT $1C00.....JSR OUT...".INY...,.CPY #$
07...6.BNE C.1.I.@.JSR UNLIS; HEAD IS NO
W 1.2 TRACK BELOW 1.Q.J.RTS.I.T..FILE RD
TRK TABLES... #$07...P.BNE BMP1...U.JSR
UNLIS...Z.JSR CHKERR; . . ERR. CODE...D
.JSR ..E.N.LDY #$00.T.X.C. LDA .,Y.....I
NY.....CPY #$06.....BNE C.... .JSR U....
..;RD TRK TABLES.2...TRKMES .BYTE 147 13
13 13.E....BYTE "ENTER TRACK NUMBER 1 T
O 44 :.BYTE 32 00...(.TRKMES1 .BYTE 13 1
3:.BYTE "HALF TRACK (Y OR N) :.BYTE 32 0
0...-.TRKMES2 .BYTE 13 13...7..BYTE "TRK
01 TO 17 DEN 1 TRK 18 TO 24 DEN 2 :.B
YTE 13.7.8..BYTE "TRK 25 TO 30 DEN 3 T
RK 31 TO 35 DEN 4 :.BYTE 13.C.:..BYTE "D
ENSTITY 1 2 3 OR 4 :.BYTE 32 00...=.ERME
S .BYTE 13 13:.BYTE "ERRORS ON THIS TRAC
K :.BYTE 13 13 00.H.F.MW1 .BYTE "M-W":.B
YTE 06 00 02...P.TKSEC .BYTE 0 0...Z.MW2
.BYTE "M-W":.BYTE 00 00 01 128.&.D.MW3
.BYTE "M-W":.BYTE 00 03 32.M.N.MW4 .BYTE
"M-W":.BYTE 00 00 01 224.P.X.MW5 .BYTE
"M-W":.BYTE 00 03 32.....MR1 .BYTE "M-R"
:.BYTE 00 04 255.....MR2 .BYTE "M-R":.BY
TE 00 00 01.....MRLB .BYTE "M-R":.BYTE 2
55 004 001.....BUMP .BYTE "M-W":.BYTE 00
00 01 192.'. .. .BYTE "M-R":.BYTE 00 28
01.J...BMP .BYTE "M-W":.BYTE 00 28 01.]
...HEAD .BYTE 0 0.R...CMND .BYTE 73 00..
.H.BOUND .BYTE 04 36 31 25 18...R..TAL .
BYTE 17 18 19 21.F...Z.E .BYTE 04 03 02
01.....DENS1 .BYTE 96 64 32 00.....GCR4
.BYTE 255 255 255 255 255 255 255 255.7.
...BYTE 255 128 00 16 255 192 64 80.^...
.BYTE 255 255 32 48 255 240 96 112......
BYTE 255 144 160 176 255 208 224 255....
.GCR5 .BYTE 255 255 255 255 255 255 255
255..."..BYTE 255 08 00 01 255 12 04 05.
..,..BYTE 255 255 02 03 255 15 06 07.%.6
..BYTE 255 09 10 11 255 13 14 255.2.@...
$7700.E.J.BUFFLG .BYTE 0._.T.ZNFLG .BYT
E 0 0 0 0 0.Q.^..ESEC .BYTE 0...H.HLFFLG
.BYTE 0...R.SEC .BYTE 0...W.ERR .BYTE 0
...|.CT .BYTE 0.....BUFF .BYTE 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0......BYTE 0 0 0 0 0
0....... $7800."...GCR3 .BYTE 0 0 0 0 0
0 0 0.2...SVE .BYTE 0.D...TRK .BYTE 0 0
.W.B.SECFLG .BYTE 0.E.L.A .BYTE 0.S.V.X
.BYTE 0.....Y .BYTE 0....... $7900.....H
EX .BYTE 0;DECODED GCR LACED HERE.B.....
$7B00.....GCR1 .BYTE 0; GCR PLACED HERE
. C.VERSI........ $7D00.#.&.GCR2 .BYTE
0; GCR HERE . . BUFFERS.F.0... $7F00; HE
ADER . PLACED HERE.X.:.HDBUF .BYTE 0.I.D
... RD TRK EQ...0...H.HLFFLG .BYTE 0...R
.SEC .BYTE 0...W.ERR .BYTE 0...|.CT .BYT
E 0.....BUFF .BYTE 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0......BYTE 0 0 0 0 0........ $90
00.....;.M.(...;.D UNOP 6000.6.... . $FF
D2.F...LIS . $FFB1.X.(.LISEC . $FF93.J.2
.UNLIS . $FFAE.Z.<.TLK . $FFB4...F.TLKSE
C . $FF96...P.UNTLK . $FFAB...Z.OUT . $F
FA8...D.IN . $FFA5.N.N.BDR . $D020...X.B
GRD . $D021.....VICII . $D018.....CIO .
$DD00.....DIO . $1800.". .D.IO . $1C00.0
.... . $FFE1.>.... . $FFE4.L.H..FILE OPS
... ................SECS ...
.............REV ...........
.....BAM UTIL ................BAM
TABLES ................UNOP EQ
.................JMP BEG.5...OP .BY
TE "BRKORALKUASOSK1ORAASLASO".Z.(..BYTE
"PHPORAASLASOSK2ORAASLASO"..2..BYTE "BP
LORALKUASOSK1ORAASLASO"...<..BYTE "CLCOR
ANOPASOSK2ORAASLASO".I.F..BYTE "JSRANDLK
URLABITANDROLRLA"...P..BYTE "PLPANDROLRL
ABITANDROLRLA"...Z..BYTE "BMIANDLKURLASK
1ANDROLRLA".8.D..BYTE "SECANDNOPRLASK2AN
DROLRLA".].N..BYTE "RTIEORLKULSESK1EORLS
RLSE"...X..BYTE "PHAEORLSRALRJMPEORLSRLS
E"......BYTE "BVCEORLKULSESK1EORLSRLSE".
L....BYTE "CLIEORNOPLSESK2EORLSRLSE"....
..BYTE "RTSADCLKURRASK1ADCRORRRA"... ..B
YTE "PLAADCRORARRJMPADCRORRRA".;....BYTE
"BVSADCLKURRASK1ADCRORRRA".`....BYTE "S
EIADCNOPRRASK2ADCRORRRA"......BYTE "SK1S
TASK1AXSSTYSTASTXAXS"...H..BYTE "DEYSK1T
XAXAASTYSTASTXAXS".O.R..BYTE "BCCSTALKUA
XSSTYSTASTXAXS"......BYTE "TYASTATXSAXPT
EYSTATEXTEA"......BYTE "LDYLDALDXLAXLDYL
DALDXLAX".>....BYTE "TAYLDATAXOALLDYLDAL
DXLAX".C....BYTE "BCSLDALKULAXLDYLDALDXL
AX"......BYTE "CLVLDATSXLASLDYLDALDXLAX"
......BYTE "CPYCMPSK1DCMCPYCMPDECDCM".R.
...BYTE "INYCMPDEXSAXCPYCMPDECDCM"..."..
BYTE "BNECMPLKUDCMSK1CMPDECDCM"...,..BYT
E "CLDCMPNOPDCMSK2CMPDECDCM".A.6..BYTE "
CPXSBCSK1INSCPXSBCINCINS".F.@..BYTE "INX
SBCNOPSBKCPXSBCINCINS"...J..BYTE "BEQSBC
LKUINSSK1SBCINCINS"...T..BYTE "SEDSBCNOP
INSSK2SBCINCINS"...^..FILE TYPE...TASTXA
XS"......BYTE "TYASTATXSAXPTEYSTATEXTEA"
........(.(.TYPE .BYTE 32 88 32 88 32 32
32 32.J.2..BYTE 32 35 32 35 32 32 32 32
.L.<..BYTE 32 89 32 89 32 88 88 88...F..
BYTE 32 89 32 89 32 88 88 88...P..BYTE 3
2 88 32 88 32 32 32 32.R.Z..BYTE 32 35 3
2 35 32 32 32 32...D..BYTE 32 89 32 89 3
2 88 88 88...N..BYTE 32 89 32 89 32 88 8
8 88.8.X..BYTE 32 88 32 88 32 32 32 32.Z
....BYTE 32 35 32 35 32 32 32 32.|....BY
TE 32 89 32 89 32 88 88 88......BYTE 32
89 32 89 32 88 88 88... ..BYTE 32 88 32
88 32 32 32 32......BYTE 32 35 32 35 32
32 32 32......BYTE 32 89 32 89 32 88 88
88.&....BYTE 32 89 32 89 32 88 88 88.H.H
..BYTE 32 88 32 88 32 32 32 32.J.R..BYTE
32 32 32 35 32 32 32 32......BYTE 32 89
32 89 88 88 89 89......BYTE 32 89 32 89
88 88 89 89.P....BYTE 35 88 35 88 32 32
32 32......BYTE 32 35 32 35 32 32 32 32
......BYTE 32 89 32 89 88 88 89 89.6....
BYTE 32 89 32 89 88 88 89 89.X....BYTE 3
5 88 32 88 32 32 32 32.Z."..BYTE 32 35 3
2 35 32 32 32 32...,..BYTE 32 89 32 89 3
2 88 88 88...6..BYTE 32 89 32 89 32 88 8
8 88...@..BYTE 35 88 32 88 32 32 32 32..
.J..BYTE 32 35 32 35 32 32 32 32.$.T..BY
TE 32 89 32 89 32 88 88 88.F.^..BYTE 32
89 32 89 32 88 88 88.V.H..FILE BYTES...5
32 32 32 32......BYTE 32 89 32 89 88 88
89 89......BYTE 32 89 32 89 88 88 89 89
.P....BYTE 35 88 35 88 32 32 32 32......
BYTE 32 35 32 35 32 32 32 32......BY.. .
(.BYTE .BYTE 0 1 0 1 0 1 1 1.:.2..BYTE 0
1 0 1 0 2 2 2.T.<..BYTE 1 1 0 1 0 1 1 1
.N.F..BYTE 0 2 0 2 0 2 2 2...P..BYTE 2 1
0 1 1 1 1 1...Z..BYTE 0 1 0 1 2 2 2 2..
.D..BYTE 1 1 0 1 0 1 1 1.V.N..BYTE 0 2 0
2 0 2 2 2...X..BYTE 0 1 0 1 0 1 1 1....
..BYTE 0 1 0 1 2 2 2 2.$....BYTE 1 1 0 1
0 1 1 1.>....BYTE 0 2 0 2 0 2 2 2.X. ..
BYTE 0 1 0 1 0 1 1 1.R....BYTE 0 1 0 1 2
2 2 2......BYTE 1 1 0 1 0 1 1 1......BY
TE 0 2 0 2 0 2 2 2...H..BYTE 0 1 0 1 1 1
1 1.Z.R..BYTE 0 0 0 1 2 2 2 2......BYTE
1 1 0 1 1 1 1 1......BYTE 0 2 0 2 2 2 2
2.(....BYTE 1 1 1 1 1 1 1 1.B....BYTE 0
1 0 1 2 2 2 2.\....BYTE 1 1 0 1 1 1 1 1
.V....BYTE 0 2 0 2 2 2 2 2......BYTE 1 1
0 1 1 1 1 1..."..BYTE 0 1 0 1 2 2 2 2.D
.,..BYTE 1 1 0 1 0 1 1 1...6..BYTE 0 2 0
2 0 2 2 2...@..BYTE 1 1 0 1 1 1 1 1...J
..BYTE 0 1 0 1 2 2 2 2.,.T..BYTE 1 1 0 1
0 1 1 1.F.^..BYTE 0 2 0 2 0 2 2 2.E.W.C
MND1 .BYTE 68 80 88 192 0.X.X.CMND3 .BYT
E 32...|..BYTE 32 32 32 32 32 32 32 32..
....BYTE 32 32 32.C...CMND4 .BYTE 9 6 3.
Y...CMND2 .BYTE 5 2 0......FILE UNOP1...
1 1......BY......BEG LDA #$93;SCREEN .M
AT.(...JSR ..5.2.LDA #$00.C.<.STA $D020.
Q.F.STA $D021.^.P.LDA #$05.L.Z.STA $0286
... .START LDX #$FF;RESET THE STACK.....
TXS.....JSR .ADD;. BEGINNING & .ING ADDR
ESS.J...JSR CR.....STY $24;HOLDS # OF BY
TES IN "D" ADRESSES.....LDX #$00.(...LDA
ADDBUF;. COMM. D, P, I, . X.5...CMP #$4
4.B...BNE CHKP.B.".JMP D; DISASSEMBLE .
SCREEN.T.,.CHKP CMP #$50...6.BNE CHKI...
@.JMP P;DISASSEMBLE . .ER...J.CHKI CMP #
$49...T.BNE CHKX.H.^.JMP DSK.Z.|.CHKX CM
P #$58.....BNE N;INC.RECT .MAT.....JMP X
;. . M.L M.I.R @ $C000."....FILE UNOP2..
.5.2.LDA #$00.C.<.STA $D020.Q.F.STA $D02
1.^.P.LDA #$05.L.Z.STA $0286... .START L
DX #$FF;RESET THE STACK.....TXS.....JSR
.ADD;. BEGINNING & .ING ADDRESS.J...JSR
CR.....STY $24;HOLDS # OF BYTES IN "D" A
DRESSES.....LD..&.(.D JSR DIS;SET UP ADD
RESS ROUTINE.C.2.JSR FINDMN;. DISASSEMBL
Y.I.<.JMP START;WHEN FINISHED TERMINATE.
W.F.P JSR DIS...P.JSR .;SET UP .ER...Z.J
SR FINDMN...D.JSR .K.N.JMP START;WHEN F
INISHED TERMINATE...X.X JMP $C000;JMP M.
L M.I.R.....N JMP START... .DIS LDY #$00
.....JSR SETADD.;...STA $22;HI BYTE BEGI
N ADDRESS.J...JSR SETADD.V.H.STA $23.~.R
.JSR HEX;WHEN . HI BYTE BEGIN IN HEX....
.STA $FC.....JSR SETADD.....STA $22;LO B
YTE BEGIN ADDRESS.J...JSR SETADD.V...STA
$23.....JSR HEX;LO BYTE BEGIN ADDRESS..
...STA $FB...".JSR SETADD.1.,.STA $22;HI
BYTE . ADDRESS.@.6.JSR SETADD.L.@.STA $
23.J.J.JSR HEX; C.VERT ADD . HEX...T.STA
$FE;HI BYTE . ADDRESS...^.JSR SETADD...
H.STA $22;LO BYTE . ADDRESS.D.R.JSR SETA
DD.P.|.STA $23.....JSR HEX.....STA $FD;L
O BYTE . ADDRESS.....RTS.....ST JMP STAR
T.#....FILE UNOP3...YTE BEGIN ADDRESS.J.
..JSR SETADD.V.H.STA $23.~.R.JSR HEX;WHE
N . HI BYTE BEGIN IN HEX.....STA $FC....
.JSR SETADD.....STA $22;LO BYTE BEGIN AD
DRESS.J...JSR SETADD.V...STA $23.....JSR
HEX;LO BYTE BEGIN ADDRESS......6.2.SETA
DD CPY $24;# OF BYTES IN BEGIN & . ADDRE
SSES.A.<.BCS ST.I.F.INY.N.P.LDA ADDBUF,Y
;. THE COMM. D P . X.{.Z.CMP #$20...D.BE
Q SETADD...N.CMP #$2C; COMMA...X.BEQ SET
ADD.....CMP #$30;ZERO.P...BCC ST;# . 0..
...CMP #$3A... .BCS U32;# . 9.....SBC #$
2F;BECOMES REAL #, #$31 . #$2F . #$01.0.
..U32 CMP #$41.C...BCC U33; A . ..P.H.SB
C #$37.A.R.U33 CMP #$10.R...BCS ST;# . G
.Z...RTS.....HEX LDA $22;CHANGE # . HEX.
....ASL:ASL:ASL:ASL.....STA $22.E...LDA
$23.P....A $22.X.".RTS...,..FILE UNOP4..
. .............%...;EXAMPLE USED HE
RE IS JMP $661C.9.(.FINDMN LDY #$00.U.2.
LDA ($FB),Y; #$4C "JMP".W.<.TAX;INDEX .
# OF BYTES IN ARG...F.TAY;INDEX . OP...G
.. #$1F...H.STA BUF1;HOLDS # $ ( ETC....
P.INY...Z.LDA #$00;COUNT BY 3'S . OP.COD
E...D.STA $22...N.LDA #.OP;WHEN FINIHED
$22 & $23 WILL. .X.STA $23.>...FIN CLC;P
O. . $60E7 "JMP".K...LDA #$03.W...ADC $2
2.C. .STA $22.O...LDA $23.|...ADC #$00..
...STA $23...H.DEY...R.BNE FIN.....LDA $
FC;#$60.V...JSR HEXC.;. HI BYTE ADDRESS
. SCREEN...".LDA $FB...,.JSR HEXC.; LO B
YTE SCREEN NOW HAS 6000.#.6.JSR SPC;. A
SPACE.M.@.LDA BYTE,X;# OF BYTES IN JMP A
RGUMENT.Z.J.STA BUF2.G.T.INC BUF2.O.^.TA
Y..H.LDA CMND2,Y...R.STA BUF0...|.LDY #
$00.....U41 LDA ($FB),Y; #$4C.V...JSR HE
XC.;. 4C . SREEN 6000 4C......FILE UNOP5
....N.LDA #.OP;WHEN ....(.JSR SPC...2.IN
Y.<.<.CPY BUF2; # OF BYTES IN CMND . ARG
.^.F.BNE U41; . REST 6000 4C 1C 66.F.P.D
EY...Z.LDA CMND4,Y;# OF SPCS . ....D.TAY
...N.JSR SPC1...X.LDY #$00.A...U52 LDA (
$22),Y; . JMP.....BPL N.EV;SEVENTH BIT .
SET...... #$7F:STA BYT.....LDA #$12....
.JSR ......LDA BYT.%...N.EV JSR ..-...IN
Y.:. .CPY #$03.F...BNE U52.S...LDA #$92.
]...JSR ..I...JSR SPC.|...LDY BUF2; #$20
...H.DEY...R.BNE U53.....JMP CHKTYP.C...
U53 LDA TYPE,X; HOLDS # $ Y . X.R...CMP
#$23;#.....BNE U54;MUST BE $.....JSR ...
...DEC BUF0.....U54 LDA BUF1;#$0C.%."..
#$0F;#$0C.S.,.CMP #$01;INDIRECT TYPES EQ
UAL #$01 . #$03.C.6.BEQ PAR;. (.P.7.CMP
#$03...8.BNE U55;. INDIRECT...@.PAR LDA
#$28...J.JSR ....T.DEC BUF0...^.DEC BUF0
.O.H.U55 LDA #$24;$.Y.R.JSR ....|.LDA BU
F1.....CMP #$10.....BNE U64;TWO BYTE ADD
RESS.....CLC.$...LDA $FB.1...ADC #$02.=.
..STA $24.I.B.LDA $FC.V.L.ADC #$00.B.V.S
TA $25.O...LDY #$01....LDA ($FB),Y.....
BMI U65......FILE UNOP6.....U53 LDA TYPE
,X; HOLDS # $ Y . X.R...CMP #$23;#.....B
NE U54;MUST BE $.....JSR ......DEC B....
(.CLC...2.ADC $24.!.<.STA $24.-.F.LDA $2
5.:.P.ADC #$00.F.Z.STA $25.S.D.JMP HEX1.
_.N.U65 SEC.L.X.STA BUF3.Y...LDA #$00...
..SBC BUF3.....STA BUF3... .SEC.....LDA
$24.....SBC BUF3.....STA $24.L.H.LDA $25
.Y.R.SBC #$00.....STA $25.....HEX1 LDA $
25.....JSR HEXC......LDA $24.....JSR HEX
C..+...JMP INCR.A...U64 LDY BUF2;#$03.I.
".DEY...,.U61 LDA ($FB),Y;.T TWO BYTE AD
DRESS 6000 4C 1C 66 JMP $661C...6.JSR
HEXC....@.DEY...J.BNE U61.C.T.CHKTYP LDA
TYPE,X.P.^.CMP #$24...H.BCS U71...R.INC
BUF0;# OF SPACES AFTER ADDRESS...|.INC
BUF0.....BNE INCR.-....FILE UNOP7...C #$
00.F.Z.STA $25.S.D.JMP HEX1._.N.U65 SEC.
L.X.STA BUF3.Y...LDA #$00.....SBC BUF3..
...STA BUF3... .SEC.....LDA $24.....SBC
BUF3.....STA $24.L.H.LDA $25.Y.R.SBC #$0
0.....STA $25.....HEX1 LDA $25.....JSR..
..(.U71 PHA...2.LDA BUF1.'.<.CMP #$11.4.
F.BEQ PAR1.A.G.CMP #$13.M.H.BNE U72.C.P.
PAR1 LDA #$29;. ).M.Z.JSR ....D.U72 LDA
#$2C;. ,...N.JSR ....X.PLA.....JSR .....
.LDA BUF1.....CMP #$01.E. .BEQ PAR2.R...
CMP #$03.....BNE INCR.....PAR2 LDA #$29.
....JSR ......INCR INC BUF0.-.H.INC BUF0
;REST OF SPACES . ..:.R.INC BUF0.G...LDY
BUF0.B...JSR SPC1;. .TAL SPACES.O...LDY
#$00.....U73 LDA ($FB),Y;.S RIGHT H. SI
DE OF SCREEN.....JSR MN1.....INY.....CPY
BUF2.K.".BNE U73...,.JSR CR;LINE FINISH
ED . CARRIAGE ....6.LDY #$00.&.@.LDA ($F
B),Y;. RTS . JMP SKIP A LINE.3.J.CMP #$6
0.?.T.BEQ U74.L.^.CMP #$4C.X.H.BNE U81.G
.R.U74 JSR CR.W.|..FILE UNOP8...;. ,...N
.JSR ....X.PLA.....JSR ......LDA BUF1...
..CMP #$01.E. .BEQ PAR2.R...CMP #$03....
.BNE INCR.....PAR2 LDA #$29.....JSR ....
..$...;ADD # OF BYTES . BASE ADDRESS.:.(
.U81 LDY BUF2;#$03.B.2.TYA.J.<.CLC.[.F.A
DC $FB;#$00.L.P.STA $FB;#$03.}.Z.LDA $FC
;#$60...D.ADC #$00...N.STA $FC;#$60 ADDR
ESS NOW 6003.J.X.CMP $FE;HI BYTE . ADDRE
SS.V...BCC U82.....LDA $FB;LO BYTE BEGIN
ADDRESS.....CMP $FD;LO BYTE . ADDRESS."
. .BCC U82.*...RTS.R...MN1 . #$7F;CHECK
. .ABLE CHARACTERS._...CMP #$21.R.H.BCC
U83;. #$21...R.CMP #$5B;. #$5B.....BCS U
80.....U84 JMP .;. CHARACHTER RIGHT H. S
CREEN.M...U83 .A #$40.Y...BNE U84.....U8
0 . #$40.....BNE U84.....JMP START;. . K
EY DOWN TERMINATE.=...U82 JSR $FFE1;CHEC
K THE ... KEY.T...BNE FIND;. PRESSED.Y..
.JMP START;. . KEY DOWN TERMINATE.....FI
ND JMP FINDMN;. . . LINE.H....ADD LDY #$
00;PUT COMM. . ADDRESSES @ $0200.Z...U85
JSR $FFCF...".STA ADDBUF,Y...,.INY...6.
CMP #$0D...@.BNE U85...J.DEY...T.RTS.,.^
..FILE UNOP9.... #$7F;CHECK . .ABLE CHAR
ACTERS._...CMP #$21.R.H.BCC U83;. #$21..
.R.CMP #$5B;. #$5B.....BCS U80.....U84 J
MP .;. CHARACHTER RIGHT H. SCREEN.M...U8
3 .A #$40.Y...BNE U84.....U80 . #$40....
.BNE U84.....JMP....(.SPC LDA #$20;. 1 S
PACE.&.2.JMP ..I.<.SPC1 LDA CMND3,Y;. #
OF SPACES.S.F.JSR ..[.P.DEY.H.Z.BNE SPC1
.P.D.RTS...N.CR LDA #$0D;. A CARRAIGE ..
..X.JSR ......RTS.B...HEXC. PHA;NUMBER M
ANIPULATI..V...LSR:LSR:LSR:LSR... .JSR M
N2.....PLA...... #$0F.....JMP MN2...H.MN
2 CMP #$0A...R.BCC U92.:...ADC #$06;ADJU
ST . A . F.X...U92 ADC #$30;ADJUST 0 . 9
.B...JMP ..|.... LDA #$00;SET UP .ER....
.JSR $FFBD;SET FICAME.....LDA #$04; DEVI
CE.....TAX...".LDY #$07...,.JSR $FFBA;SE
T .ICAL FILE...6.JSR $FFC0;. FILE (.4,4,
7)...@.LDX #$04.(.J.JMP $FFC9;SET OUTPUT
CHANNEL.D.T. LDA #$0D;TURN OFF .ER.N.^
.JSR ..[.H.LDA #$04.P.R.JSR $FFC3; FILE
...|.JMP $FFE7; ALL FILES.....BUF0 .BYT
E 0.....BUF1 .BYTE 0.....BUF2 .BYTE 0.N.
..BUF3 .BYTE 0.....BYT .BYTE 0.....ADDBU
F .BYTE 0 0 0 0 0 0 0 0 0 0 0 0...&... O
P EQ...U92.:...ADC #$06;ADJUST . A . F.X
...U92 ADC #$30;ADJUST 0 . 9.B...JMP ..|
.... LDA #$00;SET UP .ER.....JSR $FFBD;S
ET FICAME.....LDA #$04; DEVICE.....TAX..
.".LDY #$07...,.JSR $FFBA;SET .ICAL FILE
...6.JSR $FFC0;. FILE (.4,4,7)..........
$0801.....;SRCH DSK EQ.&....M.2.#..D SR
CH.G.$.;64 ROM ROUTINES.M.%.;.[.(.. . $F
FE4.I.2.. . $FFD2.Y.<.LIS . $FFB1...F.UN
LIS . $FFAE...P.LISEC . $FF93...Z.OUT .
$FFA8...D.IN . $FFA5.L.N.TLK . $FFB4...X
.UNTLK . $FFAB.....TLKSEC . $FF96......
. $FFE1......FILE SRCH DSK 1............
.C35 17 ................C35 18
................C35 19
................C35 20 .......
.........C35 21 ...............
.SRCH DSK EQ ................SRCH DS
K 1 .................;SRCH DSK 1./.
..;BASIC LINE NUMBER . .TEM.^....BYTE 10
08 10 00 158 50 48 54 49 00 00 00.K...L
DA #$00.Y.(.STA $D020...2.STA $D021...<.
LDA #$17...F.STA $D018.B.P.LDA #$93:JSR
.;CLEAR SCREEN...Z.LDA #$00;ZERO ALL VAR
IABLES...D.STA TRK;HOLDS CURRENT TRACK #
.*.N.STA A:STA X:STA Y;SPARE REGISTERS.L
.X.STA SEC;HOLDS CURRENT SEC.R #.W...STA
STRING;HOLDS # OB YTES SEARCHING ......
JSR INIT;INITIALIZE DISK.....JSR SCREEN;
SCREEN .MAT.T. .JSR G;. KEYSTROKES FROM
KEYBOARD.....SRCH1 LDX #$FF.....TXS;SET
STACK . BOT.M (#$FF).$...INC TRK;INC.ENT
TRACK #.0.H.LDA TRK.Q.R.CMP #$24;. TRK
# 36 FINISHED.[...BEQ ..Z...JSR SEC.R;.
# OF SEC . TRK.....JSR .;S. TRACK . . DI
SK.....LDY #$00.G...LP LDA MW,Y;TRK # .
$06 IN 1541.S...JSR OUT.....INY...".CPY
#$07...,.BNE LP...6.JSR UNLIS.".@.NXTSEC
JSR .;S. SEC . . DISK./.J.LDY #$00.U.T.
LP1 LDA MW1,Y;SEC # . $07 IN 1541.A.^.JS
R OUT.I.H.INY.V.R.CPY #$07...|.BNE LP1..
...JSR UNLIS.....JSR .;S. "#$80" (.)....
.LDY #$00.....LP2 LDA MW2,Y; #$80 . $00
IN 1541.....JSR OUT.....INY...B.CPY #$07
...L.BNE LP2...V.JSR UNLIS.3...JSR CHKER
R;. . ERR. CODE.[...JMP RDDSK;. SEC . FO
R SEARCH STRING.S.... JSR INIT;FINISHED.
....JMP ($A002);BASICS WARM START......F
ILE SRCH DSK 2...,Y;TRK # . $06 IN 1541.
S...JSR OUT.....INY...".CPY #$07...,.BNE
LP...6.JS......;SRCH DSK 2.1...RDDSK JS
R STP;CHECK ... KEY.>...LDA #$08.H...JSR
..U...LDY #$00...(.LP3 LDA MR1,Y;. BYTE
S $0302 . 03FF IN 1541 RAM...2.JSR OUT..
.<.INY...F.CPY #$06...P.BNE LP3.C.Z.JSR
UNLIS.P.D.LDA #$08...N.JSR TALK;SET UP D
ISK . S. BYTES . SERIAL BUS...X.LDY #$02
.5.}..IN LDX #$00:STX X;SET SPARE X . 0.
]....IN JSR IN;. A BYTE FROM SERIAL BUS.
....INY:CPY #$FF:BEQ LP6;BRANCH ALL BYTE
S ......LDX X;HOLDS COUNT OF BYTES FOUND
.U...CMP SRCH,X;HOLDS BYTES SEARCHING ..
.. .BNE .IN;NO MATCH TRY AGAIN.(...INX:C
PX STRING:BEQ PRT.;IF X = LENGTH OF SEAR
CH.G...;STRING . ALL FOUND . IT!!.R...ST
X X;. . KEEP TRACK OF HOW MANY FOUND....
.JMP .IN;. A.HER BYTE...H.PRT. JSR UNTLK
.Q.R.JMP PRNT.;ROUTINE TO PRINT TRK & SE
C TO SCREEN.....LP6 JSR UNLIS.....JMP IN
CR;DEC SEC # . INC TRK #.....STP JSR ..2
...BNE NO.;... KEY . PRESSED.R...JMP .;K
EY PRESSED TERMINATE.^...NO. RTS.S....FI
LE SRCH DSK 3...NCH ALL BYTES ......LDX
X;HOLDS COUNT OF BYTES FOUND.U...CMP SRC
H,X;HOLDS BYTES SEARCHING .... .BNE .IN;
NO MATCH TRY AGAIN.(...INX......;SRCH DS
K 3.2...INCR DEC SEC;DEC # OF SECS ..O..
.BMI INCTRK;NO M.E SEC.RS.^.(.JMP NXTSEC
.}.2.INCTRK JMP SRCH1;INC TRK #......FIL
E SRCH DSK 4............................
........................................
........................................
......;SRCH DSK 4.G...SEC.R LDA TRK; CAL
CULATE NUMBER OF SEC.RS . TRACK.Z...LDX
BOUND; # 4.L.(.S CMP BOUND,X.T.2.DEX.~.<
.BCS S...F.LDA .TAL,X;# OF SEC . THIS TR
K...K.STA SEC..._.RTS.T.D.BOUND .BYTE 04
36 31 25 18...N..TAL .BYTE 16 17 18 20.
.....FILE SRCH DSK 5... .......
.........C35 17 ...............
.C35 18 ................C35 19
................C35 20
................C35 21 .......
.........SRCH DSK EQ ...............
.SRCH DSK 1 .................;SRCH
DSK 5.Q...;THE .EN ROUTINE ALERTS THE DI
SK THAT A COMM. IS BEING SENT.....;OVER
THE SERIAL BUS. THIS COMM. IS PLACED IN
THE 1541'S COMM..D.(.;BUFFER AT $0200 IT
IS . PARSED . EXECUTED..J.2.;...<.;THE
TALK ROUTINE S.S 1 BYTE AT A TIME FROM T
HE 1541 . THE 64 OVER THE.J.F.;SERIAL BU
S. THE BYTE IS HELD IN THE A REGISTER..P
.P.;...Z.;BOTH ROUTINES REQUIRE THAT A S
EC.DARY ADDRESS BE SPEC.IED....D.;.....I
NIT JSR ......LDA #$49; "I".Y. .JSR OUT;
S. 1 BYTE . THE 1541.....JSR UNLIS.....
RTS...... LDA #$08; .EN.....JSR LIS.....
LDA #$FF.*...JSR LISEC.2...RTS.D...TALK
LDA #$08.H...JSR TLK; . 1 BYTE FROM THE
1541.U.(.LDA #$FF...2.JSR TLKSEC...<.RTS
.D...CHKERR JSR .;. . COMM. . BE REPLACE
D WITH ERR. CODE.Q...LDY #$00.....CHK1 L
DA MR,Y;. BYTE @ $00 IN 1541.....JSR OUT
.....INY...B.CPY #$06.&.L.BNE CHK1.4.V.J
SR UNLIS.A...JSR TALK.Z...JSR IN;. BYTE
AT $00.F...STA ERR.T...JSR UNTLK.....LDA
ERR.....BMI CHKERR; SEVENTH BIT SET "NO
ERROR CODE".....RTS.M.L..FILE SRCH DSK
6...0.TRK ERR....1 TRK ERR.... ERR......
........................................
................................^.......
........................................
........................................
.....;. . COMM. . BE REPLACED WITH ERR.
CODE.Q...LDY #$00.....CHK1 LDA MR,Y;. BY
TE @ $00 IN 1541........;SRCH DSK 6.6.P.
G JSR .;ROUTINE . KEYBOARD ENTRY.@.Z.BEQ
G.D.[.CMP #$0D;. . . OF SEARCH STRING.N
.\.BNE T.V.].RTS.|.^.;..._.;C.VERT FII .
HEX...`.;...D.T JSR .;KEY S.KE IN FII .
IT...I.JSR TEN;C.VERT FIRST KEYSTROKE..
.N.G1 JSR ....O.BEQ G1...X.JSR ....}.JSR
.E;C.VERT 2ND KEYSTROKE.(...LDX X.R...S
TA SRCH,X;PUT SEARCH STRING .O MEM.Y.Z..
.INX.D. .STX X.....INC STRING;VARIABLE H
OW L.G SEARCH STRING.....JMP G;. A.HER B
YTE.U...TEN CMP #$41;# GREATER THAN 9 (A
B ETC).....BCC NUM.....;EXAMPLE #$B5...
..;HOLDS THE B (#$42) IN #$B5.2...;
01000010.:...SEC.Y.H.SBC #$0
7;#$3B 00111011.V.R.NUM . #$0F;
00001111...W.;EQUALS 00001011.
....ASL; 00010110.S...ASL;
00101100.....ASL;
01011000.....ASL; 10110
000 . #$B0.%...STA TEMP.-...RTS.N....E C
MP #$41;THE #$05 IN #$B5.[...BCC NUM1.C.
..SEC.P...SBC #$07.....;EXAMPLE
00000101...".NUM1 . #$0F; 00001111.K
.'.;EQUALS #$05 00000101.S.,.CLC...
6.ADC TEMP;#$B0 . #$05 . #$B5...@.RTS...
|..FILE SRCH DSK 7....;
01000010.:...SEC.Y.H.SBC #$07;#$3B 0
0111011.V.R.NUM . #$0F; 00001111...W
.;EQUALS 00001011.....ASL;
00010110.S...ASL;
00101100.....ASL; 01011000
.....ASL......;SRCH DSK 7.....;.6...;C.V
ERT HEX . FII . SCREEN.<...;.J...PRNT. L
DA TRK;EXAMPLE TRK #$1B (27 ASCII).V...J
SR HEX...(.LDA TEMP...2.STA TRKLO;HOLDS
A FII 31 (1)...<.LDA TEMP.1.T.F.STA TRKH
I;HOLDS A FII 42 (B)...P.LDA SEC...Z.JSR
HEX...D.LDA TEMP...N.STA SECLO...X.LDA
TEMP.1.$...STA SECHI.1...JMP SCRN.S...HE
X STA TEMP.1; #$1B 00011011.S. .. #$F0;
11110000.....;EQUALS
00010000.....LSR; 0
0001000.Y...LSR; 0000010
0.....LSR; 00000010.....
LSR; 00000001.7...ADC #$
30;. 31 FII . 1.D...STA TEMP.F.H.LDA TEM
P.1;#$1B 00011011...... #$0F;
00001111.....;EQUALS #$0B
00001011.....CMP #$0A.C...BCC UNDER.K...
CLC.....ADC #$07;NOW EQUALS #$12.....UND
ER CLC.....ADC #$30;NOW EQUALS #$42 (B I
N FII).-.".STA TEMP.1.5.,.RTS.G.6.SCRN L
DY #$00.W.@.LP7 LDA .,Y.D.J.CMP #$00.Q.T
.BEQ .PRT.{.^.JSR ....C.INY...H.JMP LP7.
..R..PRT JMP INCR...|..FILE SRCH DSK 8..
.SR; 00000100.....LSR;
00000010.......;SRCH DSK
TABLES.8...MW .BYTE "M-W":.BYTE 06 00 01
.H...TRK .BYTE 0.K.(.MW1 .BYTE "M-W":.BY
TE 07 00 01.{.2.SEC .BYTE 0...<.MW2 .BYT
E "M-W":.BYTE 00 00 01 128.D.A.MR .BYTE
"M-R":.BYTE 00 00 01...F.MR1 .BYTE "M-R"
:.BYTE 02 03 253...Z.. .BYTE 13..._..BYT
E ". TRK #$ "...`.TRKLO .BYTE 0.1.D.TRKH
I .BYTE 0.>.E..BYTE 32.L.I..BYTE ".".D.N
..BYTE " . SEC #$ ".V.S.SECLO .BYTE 0..
.X.SECHI .BYTE 0...Y..BYTE 32......BYTE
".":.BYTE 0.....STRING .BYTE 0.N...ERR .
BYTE 0... .A .BYTE 0.....X .BYTE 0.....Y
.BYTE 0.....TEMP .BYTE 0 0.....SRCH .BY
TE 0./..... SRCH DSK EQ...
> CLICK IMAGE PREVIEW FOR FULL MODAL