> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 37 08 2E 04 AC B2 24 34 33 30 30 20 20 20 |..7.....$4300 |
00000010: 20 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 A4 20 | ;ROUTINE . |
00000020: 87 20 53 59 4E 43 48 52 91 49 5A 45 44 20 54 52 |. SYNCHR.IZED TR|
00000030: 41 43 4B 53 20 56 33 00 3F 08 38 04 53 45 49 00 |ACKS V3.?.8.SEI.|
00000040: 6A 08 42 04 4C 44 59 20 23 24 30 30 20 20 20 20 |j.B.LDY #$00 |
00000050: 20 20 20 3B 46 49 4C 4C 20 57 B0 4B 20 53 50 41 | ;FILL W.K SPA|
00000060: 43 45 20 57 49 54 48 20 30 30 00 77 08 4C 04 4C |CE WITH 00.w.L.L|
00000070: 44 41 20 23 24 30 30 00 87 08 56 04 43 4C 45 41 |DA #$00...V.CLEA|
00000080: 52 49 54 20 B2 20 AC 00 B2 08 60 04 53 54 41 20 |RIT . ....`.STA |
00000090: 24 30 34 30 30 2C 59 20 20 20 20 3B 53 A4 52 45 |$0400,Y ;S.RE|
000000A0: 20 30 30 20 41 54 20 24 30 34 30 30 AB 24 30 34 | 00 AT $0400.$04|
000000B0: 46 46 00 BA 08 6A 04 49 4E 59 00 CA 08 74 04 42 |FF...j.INY...t.B|
000000C0: 4E 45 20 43 4C 45 41 52 49 54 00 EF 08 7E 04 4A |NE CLEARIT...~.J|
000000D0: 53 52 20 24 46 45 30 30 20 20 20 20 20 20 3B 53 |SR $FE00 ;S|
000000E0: 45 54 20 50 43 52 20 A4 20 87 20 4D 4F 44 45 00 |ET PCR . . MODE.|
000000F0: FD 08 88 04 4C 44 41 20 24 31 43 30 43 00 09 09 |....LDA $1C0C...|
00000100: 92 04 B0 41 20 23 24 30 45 00 17 09 9C 04 53 54 |...A #$0E.....ST|
00000110: 41 20 24 31 43 30 43 00 38 09 A6 04 3B 53 45 54 |A $1C0C.8...;SET|
00000120: 20 55 50 20 A4 20 46 49 4E 44 20 54 52 41 43 4B | UP . FIND TRACK|
00000130: 20 AF 20 53 45 43 A4 52 00 5E 09 B0 04 4A 53 52 | . SEC.R.^...JSR|
00000140: 20 24 46 35 31 30 20 20 20 20 20 20 3B 46 49 4E | $F510 ;FIN|
00000150: 44 20 50 52 4F 50 45 52 20 53 45 43 A4 52 00 6C |D PROPER SEC.R.l|
00000160: 09 BA 04 4A 53 52 20 A9 48 45 41 44 00 8C 09 C4 |...JSR .HEAD....|
00000170: 04 4A 53 52 20 A9 48 45 41 44 20 20 20 3B 4D 4F |.JSR .HEAD ;MO|
00000180: 56 45 20 31 AD 32 20 54 52 41 43 4B 00 C7 09 CE |VE 1.2 TRACK....|
00000190: 04 4A 4D 50 20 46 49 4E 44 53 59 4E 43 20 20 20 |.JMP FINDSYNC |
000001A0: 3B 4A 55 4D 50 20 A4 20 87 20 54 48 45 20 83 20 |;JUMP . . THE . |
000001B0: 46 52 4F 4D 20 54 48 45 20 41 44 4A 41 43 45 4E |FROM THE ADJACEN|
000001C0: 54 20 54 52 41 43 4B 00 D4 09 D8 04 A9 48 45 41 |T TRACK......HEA|
000001D0: 44 20 B2 AC 00 FE 09 E2 04 4C 44 58 20 24 31 43 |D .......LDX $1C|
000001E0: 30 30 20 20 20 20 20 20 3B A9 20 48 45 41 44 20 |00 ;. HEAD |
000001F0: 49 4E 20 48 41 4C 46 20 54 52 41 43 4B 53 00 35 |IN HALF TRACKS.5|
00000200: 0A EC 04 49 4E 58 20 20 20 20 20 20 20 20 20 20 |...INX |
00000210: 20 20 3B 43 48 41 4E 47 45 20 A4 20 44 45 58 20 | ;CHANGE . DEX |
00000220: A4 20 4D 4F 56 45 20 48 45 41 44 20 4F 54 48 45 |. MOVE HEAD OTHE|
00000230: 52 20 57 41 59 00 3D 0A F6 04 54 58 41 00 60 0A |R WAY.=...TXA.`.|
00000240: 00 05 AF 20 23 24 30 33 20 20 20 20 20 20 20 3B |... #$03 ;|
00000250: 43 59 43 4C 45 20 42 49 54 53 20 30 20 26 20 31 |CYCLE BITS 0 & 1|
00000260: 00 6E 0A 0A 05 53 54 41 20 24 30 30 31 34 00 7C |.n...STA $0014.||
00000270: 0A 14 05 4C 44 41 20 24 31 43 30 30 00 87 0A 1E |...LDA $1C00....|
00000280: 05 AF 20 23 24 46 43 00 94 0A 28 05 B0 41 20 24 |.. #$FC...(..A $|
00000290: 30 30 31 34 00 B9 0A 32 05 53 54 41 20 24 31 43 |0014...2.STA $1C|
000002A0: 30 30 20 20 20 20 20 20 3B A9 20 48 45 41 44 20 |00 ;. HEAD |
000002B0: 31 AD 32 20 54 52 41 43 4B 00 DF 0A 3C 05 4C 44 |1.2 TRACK...<.LD|
000002C0: 58 20 23 24 41 41 20 20 20 20 20 20 20 3B 92 20 |X #$AA ;. |
000002D0: 81 20 48 45 41 44 20 A4 20 53 45 54 54 4C 45 00 |. HEAD . SETTLE.|
000002E0: EE 0A 46 05 44 45 4C 41 59 31 20 B2 20 AC 00 FB |..F.DELAY1 . ...|
000002F0: 0A 50 05 4C 44 59 20 23 24 30 30 00 0A 0B 5A 05 |.P.LDY #$00...Z.|
00000300: 44 45 4C 41 59 32 20 B2 20 AC 00 12 0B 64 05 44 |DELAY2 . ....d.D|
00000310: 45 59 00 21 0B 6E 05 42 4E 45 20 44 45 4C 41 59 |EY.!.n.BNE DELAY|
00000320: 32 00 29 0B 78 05 44 45 58 00 57 0B 82 05 42 4E |2.).x.DEX.W...BN|
00000330: 45 20 44 45 4C 41 59 31 20 20 20 20 3B 48 45 41 |E DELAY1 ;HEA|
00000340: 44 20 53 45 54 54 4C 45 44 20 41 54 20 48 41 4C |D SETTLED AT HAL|
00000350: 46 20 54 52 41 43 4B 00 5F 0B 8C 05 52 54 53 00 |F TRACK._...RTS.|
00000360: 70 0B 96 05 46 49 4E 44 53 59 4E 43 20 B2 20 AC |p...FINDSYNC . .|
00000370: 00 97 0B A0 05 4C 44 58 20 23 24 30 30 20 20 20 |.....LDX #$00 |
00000380: 20 20 20 3B 53 45 54 20 55 50 20 54 49 4D 45 52 | ;SET UP TIMER|
00000390: 20 81 20 53 59 4E 43 00 A4 0B AA 05 4C 44 59 20 | . SYNC.....LDY |
000003A0: 23 24 30 30 00 B4 0B B4 05 54 49 4D 45 4F 55 54 |#$00.....TIMEOUT|
000003B0: 20 B2 20 AC 00 BC 0B BE 05 44 45 59 00 CA 0B C8 | . ......DEY....|
000003C0: 05 42 4E 45 20 92 53 59 4E 43 00 D2 0B D2 05 44 |.BNE .SYNC.....D|
000003D0: 45 58 00 E0 0B DC 05 42 4E 45 20 92 53 59 4E 43 |EX.....BNE .SYNC|
000003E0: 00 0E 0C E6 05 4C 44 41 20 23 24 30 33 20 20 20 |.....LDA #$03 |
000003F0: 20 20 20 3B 30 33 B2 4E 4F 20 53 59 4E 43 20 20 | ;03.NO SYNC |
00000400: 20 8B 20 4E 4F 20 53 59 4E 43 20 A7 20 80 00 1A | . NO SYNC . ...|
00000410: 0C F0 05 42 4E 45 20 80 49 54 00 3B 0C FA 05 92 |...BNE .IT.;....|
00000420: 53 59 4E 43 20 B2 20 AC 20 20 20 20 20 20 3B 43 |SYNC . . ;C|
00000430: 48 45 43 4B 20 81 20 53 59 4E 43 00 49 0C 04 06 |HECK . SYNC.I...|
00000440: 42 49 54 20 24 31 43 30 30 00 59 0C 0E 06 42 4D |BIT $1C00.Y...BM|
00000450: 49 20 54 49 4D 45 4F 55 54 00 7C 0C 18 06 4C 44 |I TIMEOUT.|...LD|
00000460: 41 20 24 31 43 30 31 20 20 20 20 20 3B 53 4B 49 |A $1C01 ;SKI|
00000470: 50 20 46 49 52 53 54 20 42 59 54 45 00 84 0C 22 |P FIRST BYTE..."|
00000480: 06 43 4C 56 00 91 0C 2C 06 4C 44 59 20 23 24 30 |.CLV...,.LDY #$0|
00000490: 30 00 9E 0C 36 06 4C 44 58 20 23 24 30 41 00 C0 |0...6.LDX #$0A..|
000004A0: 0C 40 06 A1 42 59 54 45 20 B2 20 AC 20 20 20 20 |.@..BYTE . . |
000004B0: 20 20 3B 87 20 83 20 46 52 4F 4D 20 44 49 53 4B | ;. . FROM DISK|
000004C0: 00 DD 0C 4A 06 42 56 43 20 A1 42 59 54 45 20 20 |...J.BVC .BYTE |
000004D0: 20 3B 92 20 81 20 42 59 54 45 20 87 59 00 E5 0C | ;. . BYTE .Y...|
000004E0: 54 06 43 4C 56 00 0B 0D 5E 06 4C 44 41 20 24 31 |T.CLV...^.LDA $1|
000004F0: 43 30 31 20 20 20 20 20 3B 93 20 42 59 54 45 20 |C01 ;. BYTE |
00000500: 46 52 4F 4D 20 83 20 50 4F 52 54 00 36 0D 68 06 |FROM . PORT.6.h.|
00000510: 53 54 41 20 24 30 34 30 30 2C 59 20 20 20 3B 53 |STA $0400,Y ;S|
00000520: A4 52 45 20 83 20 46 52 4F 4D 20 24 30 34 30 30 |.RE . FROM $0400|
00000530: 2D 24 30 34 46 46 00 3E 0D 72 06 49 4E 59 00 46 |-$04FF.>.r.INY.F|
00000540: 0D 7C 06 44 45 58 00 54 0D 86 06 42 4E 45 20 A1 |.|.DEX.T...BNE .|
00000550: 42 59 54 45 00 72 0D 90 06 4C 44 41 20 23 24 30 |BYTE.r...LDA #$0|
00000560: 31 20 20 20 20 20 20 3B 30 31 B2 4E 4F 20 45 52 |1 ;01.NO ER|
00000570: 52 B0 00 94 0D 9A 06 80 49 54 20 B2 20 AC 20 20 |R.......IT . . |
00000580: 20 20 20 20 20 20 3B 46 49 4E 49 53 48 20 55 50 | ;FINISH UP|
00000590: 20 AF 20 80 00 B3 0D A4 06 50 48 41 20 20 20 20 | . ......PHA |
000005A0: 20 20 20 20 20 20 20 3B 94 20 45 52 52 B0 20 43 | ;. ERR. C|
000005B0: 4F 44 45 00 C0 0D AE 06 4C 44 59 20 23 24 30 34 |ODE.....LDY #$04|
000005C0: 00 F6 0D B8 06 53 54 59 20 24 33 31 20 20 20 20 |.....STY $31 |
000005D0: 20 20 20 3B 53 45 54 20 55 50 20 50 4F B5 45 52 | ;SET UP PO.ER|
000005E0: 53 20 81 20 47 43 52 20 A4 20 48 45 58 20 43 91 |S . GCR . HEX C.|
000005F0: 56 45 52 53 49 91 00 03 0E C2 06 4C 44 59 20 23 |VERSI......LDY #|
00000600: 24 30 30 00 0F 0E CC 06 53 54 59 20 24 33 30 00 |$00.....STY $30.|
00000610: 33 0E D6 06 4A 53 52 20 24 46 38 45 30 20 20 20 |3...JSR $F8E0 |
00000620: 20 20 3B 43 91 56 45 52 54 20 47 43 52 20 A4 20 | ;C.VERT GCR . |
00000630: 48 45 58 00 52 0E E0 06 50 4C 41 20 20 20 20 20 |HEX.R...PLA |
00000640: 20 20 20 20 20 20 3B A1 20 45 52 52 B0 20 43 4F | ;. ERR. CO|
00000650: 44 45 00 5E 0E EA 06 53 54 41 20 24 30 30 00 81 |DE.^...STA $00..|
00000660: 0E F4 06 4A 4D 50 20 24 46 39 36 45 20 20 20 20 |...JMP $F96E |
00000670: 20 3B 52 4F 4D 20 52 4F 55 54 49 4E 45 20 A4 20 | ;ROM ROUTINE . |
00000680: 80 00 00 00 |.... |
..7.....$4300 ;ROUTINE . . SYNCHR
.IZED TRACKS V3.?.8.SEI.J.B.LDY #$00
;FILL W.K SPACE WITH 00.W.L.LDA #$00.
..V.CLEARIT . ....`.STA $0400,Y ;S.RE
00 AT $0400.$04FF...J.INY.J.T.BNE CLEAR
IT...~.JSR $FE00 ;SET PCR . . MODE.
....LDA $1C0C......A #$0E.....STA $1C0C.
8...;SET UP . FIND TRACK . SEC.R.^...JSR
$F510 ;FIND PROPER SEC.R.L...JSR .
HEAD...D.JSR .HEAD ;MOVE 1.2 TRACK.G.N
.JMP FINDSYNC ;JUMP . . THE . FROM THE
ADJACENT TRACK.T.X..HEAD .......LDX $1C
00 ;. HEAD IN HALF TRACKS.5...INX
;CHANGE . DEX . MOVE HEAD OTHE
R WAY.=...TXA.`.... #$03 ;CYCLE BI
TS 0 & 1.N...STA $0014.|...LDA $1C00....
.. #$FC...(..A $0014...2.STA $1C00
;. HEAD 1.2 TRACK...<.LDX #$AA ;.
. HEAD . SETTLE...F.DELAY1 . ....P.LDY #
$00...Z.DELAY2 . ....D.DEY.!.N.BNE DELAY
2.).X.DEX.W...BNE DELAY1 ;HEAD SETTLE
D AT HALF TRACK._...RTS.P...FINDSYNC . .
... .LDX #$00 ;SET UP TIMER . SYNC.
....LDY #$00.....TIMEOUT . ......DEY.J.H
.BNE .SYNC.R.R.DEX.....BNE .SYNC.....LDA
#$03 ;03.NO SYNC . NO SYNC . ...
...BNE .IT.;....SYNC . . ;CHECK . S
YNC.I...BIT $1C00.Y...BMI TIMEOUT.|...LD
A $1C01 ;SKIP FIRST BYTE...".CLV...,
.LDY #$00...6.LDX #$0A...@..BYTE . .
;. . FROM DISK...J.BVC .BYTE ;. . BY
TE .Y...T.CLV...^.LDA $1C01 ;. BYTE
FROM . PORT.6.H.STA $0400,Y ;S.RE . FR
OM $0400-$04FF.>.R.INY.F.|.DEX.T...BNE .
BYTE.R...LDA #$01 ;01.NO ERR.......
IT . . ;FINISH UP . ......PHA
;. ERR. CODE.....LDY #$04.....STY
$31 ;SET UP PO.ERS . GCR . HEX C.
VERSI....B.LDY #$00...L.STY $30.3.V.JSR
$F8E0 ;C.VERT GCR . HEX.R...PLA
;. ERR. CODE.^...STA $00.....JMP $
F96E ;ROM ROUTINE . ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL