TRACK ARCING.ASM
FILE INFORMATION
FILENAME(S): TRACK ARCING.ASM
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 22:48:34
APPEARS ON: 3 disk(s)
FILE HASH
e24664c67922a54bd1be1ac707df8c141d6f3d93f659895ed1394f5ebd66f32c
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | TRACK ARCING.ASM | PRG | Radd Maxx | 1 | 1 | DOWNLOAD FILE |
| PPM VOL II | TRACK ARCING.ASM | PRG | High Voltage Complete C64 Collection | 13 | 6 | DOWNLOAD FILE |
| 1541 DEVELOPMENT | TRACK ARCING.ASM | PRG | Sailor, Ganheden | 1 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 32 08 2E 04 AC B2 24 34 33 30 30 20 20 20 |..2.....$4300 | 00000010: 20 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 A4 20 | ;ROUTINE . | 00000020: 44 4F 20 54 52 41 43 4B 20 41 52 43 49 4E 47 20 |DO TRACK ARCING | 00000030: 56 33 00 3A 08 38 04 53 45 49 00 65 08 42 04 4C |V3.:.8.SEI.e.B.L| 00000040: 44 59 20 23 24 30 30 20 20 20 20 20 20 20 3B 46 |DY #$00 ;F| 00000050: 49 4C 4C 20 57 B0 4B 20 53 50 41 43 45 20 57 49 |ILL W.K SPACE WI| 00000060: 54 48 20 30 30 00 72 08 4C 04 4C 44 41 20 23 24 |TH 00.r.L.LDA #$| 00000070: 30 30 00 82 08 56 04 43 4C 45 41 52 49 54 20 B2 |00...V.CLEARIT .| 00000080: 20 AC 00 AD 08 60 04 53 54 41 20 24 30 34 30 30 | ....`.STA $0400| 00000090: 2C 59 20 20 20 20 3B 53 A4 52 45 20 30 30 20 41 |,Y ;S.RE 00 A| 000000A0: 54 20 24 30 34 30 30 AB 24 30 34 46 46 00 B5 08 |T $0400.$04FF...| 000000B0: 6A 04 49 4E 59 00 C5 08 74 04 42 4E 45 20 43 4C |j.INY...t.BNE CL| 000000C0: 45 41 52 49 54 00 EA 08 7E 04 4A 53 52 20 24 46 |EARIT...~.JSR $F| 000000D0: 45 30 30 20 20 20 20 20 20 3B 53 45 54 20 50 43 |E00 ;SET PC| 000000E0: 52 20 A4 20 87 20 4D 4F 44 45 00 F8 08 88 04 4C |R . . MODE.....L| 000000F0: 44 41 20 24 31 43 30 43 00 04 09 92 04 B0 41 20 |DA $1C0C......A | 00000100: 23 24 30 45 00 12 09 9C 04 53 54 41 20 24 31 43 |#$0E.....STA $1C| 00000110: 30 43 00 33 09 A6 04 3B 53 45 54 20 55 50 20 A4 |0C.3...;SET UP .| 00000120: 20 46 49 4E 44 20 54 52 41 43 4B 20 AF 20 53 45 | FIND TRACK . SE| 00000130: 43 A4 52 00 59 09 B0 04 4A 53 52 20 24 46 35 31 |C.R.Y...JSR $F51| 00000140: 30 20 20 20 20 20 20 3B 46 49 4E 44 20 50 52 4F |0 ;FIND PRO| 00000150: 50 45 52 20 53 45 43 A4 52 00 79 09 BA 04 4A 53 |PER SEC.R.y...JS| 00000160: 52 20 A9 48 45 41 44 20 20 20 3B 4D 4F 56 45 20 |R .HEAD ;MOVE | 00000170: 31 AD 32 20 54 52 41 43 4B 00 B4 09 C4 04 4A 4D |1.2 TRACK.....JM| 00000180: 50 20 46 49 4E 44 53 59 4E 43 20 20 20 3B 4A 55 |P FINDSYNC ;JU| 00000190: 4D 50 20 A4 20 87 20 54 48 45 20 83 20 46 52 4F |MP . . THE . FRO| 000001A0: 4D 20 54 48 45 20 41 44 4A 41 43 45 4E 54 20 54 |M THE ADJACENT T| 000001B0: 52 41 43 4B 00 C1 09 CE 04 A9 48 45 41 44 20 B2 |RACK......HEAD .| 000001C0: AC 00 EB 09 D8 04 4C 44 58 20 24 31 43 30 30 20 |......LDX $1C00 | 000001D0: 20 20 20 20 20 3B A9 20 48 45 41 44 20 49 4E 20 | ;. HEAD IN | 000001E0: 48 41 4C 46 20 54 52 41 43 4B 53 00 22 0A E2 04 |HALF TRACKS."...| 000001F0: 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 20 3B |INX ;| 00000200: 43 48 41 4E 47 45 20 A4 20 44 45 58 20 A4 20 4D |CHANGE . DEX . M| 00000210: 4F 56 45 20 48 45 41 44 20 4F 54 48 45 52 20 57 |OVE HEAD OTHER W| 00000220: 41 59 00 2A 0A EC 04 54 58 41 00 4D 0A F6 04 AF |AY.*...TXA.M....| 00000230: 20 23 24 30 33 20 20 20 20 20 20 20 3B 43 59 43 | #$03 ;CYC| 00000240: 4C 45 20 42 49 54 53 20 30 20 26 20 31 00 5B 0A |LE BITS 0 & 1.[.| 00000250: 00 05 53 54 41 20 24 30 30 31 34 00 69 0A 0A 05 |..STA $0014.i...| 00000260: 4C 44 41 20 24 31 43 30 30 00 74 0A 14 05 AF 20 |LDA $1C00.t.... | 00000270: 23 24 46 43 00 81 0A 1E 05 B0 41 20 24 30 30 31 |#$FC......A $001| 00000280: 34 00 A6 0A 28 05 53 54 41 20 24 31 43 30 30 20 |4...(.STA $1C00 | 00000290: 20 20 20 20 20 3B A9 20 48 45 41 44 20 31 AD 32 | ;. HEAD 1.2| 000002A0: 20 54 52 41 43 4B 00 CC 0A 32 05 4C 44 58 20 23 | TRACK...2.LDX #| 000002B0: 24 41 41 20 20 20 20 20 20 20 3B 92 20 81 20 48 |$AA ;. . H| 000002C0: 45 41 44 20 A4 20 53 45 54 54 4C 45 00 DB 0A 3C |EAD . SETTLE...<| 000002D0: 05 44 45 4C 41 59 31 20 B2 20 AC 00 E8 0A 46 05 |.DELAY1 . ....F.| 000002E0: 4C 44 59 20 23 24 30 30 00 F7 0A 50 05 44 45 4C |LDY #$00...P.DEL| 000002F0: 41 59 32 20 B2 20 AC 00 FF 0A 5A 05 44 45 59 00 |AY2 . ....Z.DEY.| 00000300: 0E 0B 64 05 42 4E 45 20 44 45 4C 41 59 32 00 16 |..d.BNE DELAY2..| 00000310: 0B 6E 05 44 45 58 00 44 0B 78 05 42 4E 45 20 44 |.n.DEX.D.x.BNE D| 00000320: 45 4C 41 59 31 20 20 20 20 3B 48 45 41 44 20 53 |ELAY1 ;HEAD S| 00000330: 45 54 54 4C 45 44 20 41 54 20 48 41 4C 46 20 54 |ETTLED AT HALF T| 00000340: 52 41 43 4B 00 4C 0B 82 05 52 54 53 00 5D 0B 8C |RACK.L...RTS.]..| 00000350: 05 46 49 4E 44 53 59 4E 43 20 B2 20 AC 00 84 0B |.FINDSYNC . ....| 00000360: 96 05 4C 44 58 20 23 24 30 30 20 20 20 20 20 20 |..LDX #$00 | 00000370: 3B 53 45 54 20 55 50 20 54 49 4D 45 52 20 81 20 |;SET UP TIMER . | 00000380: 53 59 4E 43 00 91 0B A0 05 4C 44 59 20 23 24 30 |SYNC.....LDY #$0| 00000390: 30 00 A1 0B AA 05 54 49 4D 45 4F 55 54 20 B2 20 |0.....TIMEOUT . | 000003A0: AC 00 A9 0B B4 05 44 45 59 00 B7 0B BE 05 42 4E |......DEY.....BN| 000003B0: 45 20 92 53 59 4E 43 00 BF 0B C8 05 44 45 58 00 |E .SYNC.....DEX.| 000003C0: CD 0B D2 05 42 4E 45 20 92 53 59 4E 43 00 FB 0B |....BNE .SYNC...| 000003D0: DC 05 4C 44 41 20 23 24 30 33 20 20 20 20 20 20 |..LDA #$03 | 000003E0: 3B 30 33 B2 4E 4F 20 53 59 4E 43 20 20 20 8B 20 |;03.NO SYNC . | 000003F0: 4E 4F 20 53 59 4E 43 20 A7 20 80 00 07 0C E6 05 |NO SYNC . ......| 00000400: 42 4E 45 20 80 49 54 00 28 0C F0 05 92 53 59 4E |BNE .IT.(....SYN| 00000410: 43 20 B2 20 AC 20 20 20 20 20 20 3B 43 48 45 43 |C . . ;CHEC| 00000420: 4B 20 81 20 53 59 4E 43 00 36 0C FA 05 42 49 54 |K . SYNC.6...BIT| 00000430: 20 24 31 43 30 30 00 46 0C 04 06 42 4D 49 20 54 | $1C00.F...BMI T| 00000440: 49 4D 45 4F 55 54 00 69 0C 0E 06 4C 44 41 20 24 |IMEOUT.i...LDA $| 00000450: 31 43 30 31 20 20 20 20 20 3B 53 4B 49 50 20 46 |1C01 ;SKIP F| 00000460: 49 52 53 54 20 42 59 54 45 00 71 0C 18 06 43 4C |IRST BYTE.q...CL| 00000470: 56 00 7E 0C 22 06 4C 44 59 20 23 24 30 30 00 8B |V.~.".LDY #$00..| 00000480: 0C 2C 06 4C 44 58 20 23 24 30 41 00 AD 0C 36 06 |.,.LDX #$0A...6.| 00000490: A1 42 59 54 45 20 B2 20 AC 20 20 20 20 20 20 3B |.BYTE . . ;| 000004A0: 87 20 83 20 46 52 4F 4D 20 44 49 53 4B 00 CA 0C |. . FROM DISK...| 000004B0: 40 06 42 56 43 20 A1 42 59 54 45 20 20 20 3B 92 |@.BVC .BYTE ;.| 000004C0: 20 81 20 42 59 54 45 20 87 59 00 D2 0C 4A 06 43 | . BYTE .Y...J.C| 000004D0: 4C 56 00 F8 0C 54 06 4C 44 41 20 24 31 43 30 31 |LV...T.LDA $1C01| 000004E0: 20 20 20 20 20 3B 93 20 42 59 54 45 20 46 52 4F | ;. BYTE FRO| 000004F0: 4D 20 83 20 50 4F 52 54 00 23 0D 5E 06 53 54 41 |M . PORT.#.^.STA| 00000500: 20 24 30 34 30 30 2C 59 20 20 20 3B 53 A4 52 45 | $0400,Y ;S.RE| 00000510: 20 83 20 46 52 4F 4D 20 24 30 34 30 30 2D 24 30 | . FROM $0400-$0| 00000520: 34 46 46 00 2B 0D 68 06 49 4E 59 00 33 0D 72 06 |4FF.+.h.INY.3.r.| 00000530: 44 45 58 00 41 0D 7C 06 42 4E 45 20 A1 42 59 54 |DEX.A.|.BNE .BYT| 00000540: 45 00 5F 0D 86 06 4C 44 41 20 23 24 30 31 20 20 |E._...LDA #$01 | 00000550: 20 20 20 20 3B 30 31 B2 4E 4F 20 45 52 52 B0 00 | ;01.NO ERR..| 00000560: 81 0D 90 06 80 49 54 20 B2 20 AC 20 20 20 20 20 |.....IT . . | 00000570: 20 20 20 3B 46 49 4E 49 53 48 20 55 50 20 AF 20 | ;FINISH UP . | 00000580: 80 00 A0 0D 9A 06 50 48 41 20 20 20 20 20 20 20 |......PHA | 00000590: 20 20 20 20 3B 94 20 45 52 52 B0 20 43 4F 44 45 | ;. ERR. CODE| 000005A0: 00 AD 0D A4 06 4C 44 59 20 23 24 30 34 00 E3 0D |.....LDY #$04...| 000005B0: AE 06 53 54 59 20 24 33 31 20 20 20 20 20 20 20 |..STY $31 | 000005C0: 3B 53 45 54 20 55 50 20 50 4F B5 45 52 53 20 81 |;SET UP PO.ERS .| 000005D0: 20 47 43 52 20 A4 20 48 45 58 20 43 91 56 45 52 | GCR . HEX C.VER| 000005E0: 53 49 91 00 F0 0D B8 06 4C 44 59 20 23 24 30 30 |SI......LDY #$00| 000005F0: 00 FC 0D C2 06 53 54 59 20 24 33 30 00 20 0E CC |.....STY $30. ..| 00000600: 06 4A 53 52 20 24 46 38 45 30 20 20 20 20 20 3B |.JSR $F8E0 ;| 00000610: 43 91 56 45 52 54 20 47 43 52 20 A4 20 48 45 58 |C.VERT GCR . HEX| 00000620: 00 3F 0E D6 06 50 4C 41 20 20 20 20 20 20 20 20 |.?...PLA | 00000630: 20 20 20 3B A1 20 45 52 52 B0 20 43 4F 44 45 00 | ;. ERR. CODE.| 00000640: 4B 0E E0 06 53 54 41 20 24 30 30 00 6E 0E EA 06 |K...STA $00.n...| 00000650: 4A 4D 50 20 24 46 39 36 45 20 20 20 20 20 3B 52 |JMP $F96E ;R| 00000660: 4F 4D 20 52 4F 55 54 49 4E 45 20 A4 20 80 00 00 |OM ROUTINE . ...| 00000670: 00 |. |
..2.....$4300 ;ROUTINE . DO TRACK
ARCING V3.:.8.SEI.E.B.LDY #$00 ;F
ILL W.K SPACE WITH 00.R.L.LDA #$00...V.C
LEARIT . ....`.STA $0400,Y ;S.RE 00 A
T $0400.$04FF...J.INY.E.T.BNE CLEARIT...
~.JSR $FE00 ;SET PCR . . MODE.....L
DA $1C0C......A #$0E.....STA $1C0C.3...;
SET UP . FIND TRACK . SEC.R.Y...JSR $F51
0 ;FIND PROPER SEC.R.Y...JSR .HEAD
;MOVE 1.2 TRACK...D.JMP FINDSYNC ;JU
MP . . THE . FROM THE ADJACENT TRACK.A.N
..HEAD .....X.LDX $1C00 ;. HEAD IN
HALF TRACKS."...INX ;CHANGE .
DEX . MOVE HEAD OTHER WAY.*...TXA.M....
#$03 ;CYCLE BITS 0 & 1.[...STA $0
014.I...LDA $1C00.T.... #$FC......A $001
4...(.STA $1C00 ;. HEAD 1.2 TRACK.L
.2.LDX #$AA ;. . HEAD . SETTLE...<
.DELAY1 . ....F.LDY #$00...P.DELAY2 . ..
..Z.DEY...D.BNE DELAY2...N.DEX.D.X.BNE D
ELAY1 ;HEAD SETTLED AT HALF TRACK.L..
.RTS.]...FINDSYNC . ......LDX #$00
;SET UP TIMER . SYNC... .LDY #$00.....TI
MEOUT . ......DEY.....BNE .SYNC...H.DEX.
M.R.BNE .SYNC.....LDA #$03 ;03.NO S
YNC . NO SYNC . ......BNE .IT.(....SYN
C . . ;CHECK . SYNC.6...BIT $1C00.F
...BMI TIMEOUT.I...LDA $1C01 ;SKIP F
IRST BYTE.Q...CLV.~.".LDY #$00...,.LDX #
$0A...6..BYTE . . ;. . FROM DISK.J.
@.BVC .BYTE ;. . BYTE .Y.R.J.CLV...T.L
DA $1C01 ;. BYTE FROM . PORT.#.^.STA
$0400,Y ;S.RE . FROM $0400-$04FF.+.H.
INY.3.R.DEX.A.|.BNE .BYTE._...LDA #$01
;01.NO ERR.......IT . . ;FINI
SH UP . .. ...PHA ;. ERR. CODE
.....LDY #$04.....STY $31 ;SET UP
PO.ERS . GCR . HEX C.VERSI......LDY #$00
...B.STY $30. .L.JSR $F8E0 ;C.VERT G
CR . HEX.?.V.PLA ;. ERR. CODE.
K...STA $00.N...JMP $F96E ;ROM ROUTI
NE . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL