DENSITY.ASM
FILE INFORMATION
FILENAME(S): DENSITY.ASM
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-10-19 22:48:34
APPEARS ON: 3 disk(s)
FILE HASH
e61381eacbf46f855622f8b2de82c4376a54b4283997eee481802bdc4c117798
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | DENSITY.ASM | PRG | Radd Maxx | 2 | 6 | DOWNLOAD FILE |
| PPM VOL II | DENSITY.ASM | PRG | High Voltage Complete C64 Collection | 22 | 5 | DOWNLOAD FILE |
| 1541 DEVELOPMENT | DENSITY.ASM | PRG | Sailor, Ganheden | 34 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 24 04 AC B2 24 34 33 30 30 20 20 20 |..3.$...$4300 | 00000010: 20 20 20 20 20 3B 52 4F 55 54 49 4E 45 20 A4 20 | ;ROUTINE . | 00000020: 87 20 43 48 41 4E 47 45 44 20 44 45 4E 53 49 54 |. CHANGED DENSIT| 00000030: 59 20 33 00 69 08 2E 04 3B 54 48 49 53 20 52 4F |Y 3.i...;THIS RO| 00000040: 55 54 49 4E 45 20 57 49 4C 4C 20 87 20 41 4E 59 |UTINE WILL . ANY| 00000050: 20 54 52 41 43 4B 20 41 54 20 54 52 41 43 4B 20 | TRACK AT TRACK | 00000060: 31 20 44 45 4E 53 49 54 59 00 9F 08 38 04 3B 55 |1 DENSITY...8.;U| 00000070: 53 45 20 54 48 49 53 20 91 20 54 48 45 20 49 4E |SE THIS . THE IN| 00000080: 4E 45 52 20 54 52 41 43 4B 53 20 81 20 54 48 45 |NER TRACKS . THE| 00000090: 20 27 42 45 53 54 27 20 52 45 53 55 4C 54 53 00 | 'BEST' RESULTS.| 000000A0: A7 08 42 04 53 45 49 00 D2 08 4C 04 4C 44 59 20 |..B.SEI...L.LDY | 000000B0: 23 24 30 30 20 20 20 20 20 20 20 3B 46 49 4C 4C |#$00 ;FILL| 000000C0: 20 57 B0 4B 20 53 50 41 43 45 20 57 49 54 48 20 | W.K SPACE WITH | 000000D0: 30 30 00 DF 08 56 04 4C 44 41 20 23 24 30 30 00 |00...V.LDA #$00.| 000000E0: EF 08 60 04 43 4C 45 41 52 49 54 20 B2 20 AC 00 |..`.CLEARIT . ..| 000000F0: 1A 09 6A 04 53 54 41 20 24 30 34 30 30 2C 59 20 |..j.STA $0400,Y | 00000100: 20 20 20 3B 53 A4 52 45 20 30 30 20 41 54 20 24 | ;S.RE 00 AT $| 00000110: 30 34 30 30 AB 24 30 34 46 46 00 22 09 74 04 49 |0400.$04FF.".t.I| 00000120: 4E 59 00 32 09 7E 04 42 4E 45 20 43 4C 45 41 52 |NY.2.~.BNE CLEAR| 00000130: 49 54 00 57 09 88 04 4A 53 52 20 24 46 45 30 30 |IT.W...JSR $FE00| 00000140: 20 20 20 20 20 20 3B 53 45 54 20 50 43 52 20 A4 | ;SET PCR .| 00000150: 20 87 20 4D 4F 44 45 00 65 09 92 04 4C 44 41 20 | . MODE.e...LDA | 00000160: 24 31 43 30 43 00 71 09 9C 04 B0 41 20 23 24 30 |$1C0C.q....A #$0| 00000170: 45 00 7F 09 A6 04 53 54 41 20 24 31 43 30 43 00 |E.....STA $1C0C.| 00000180: A5 09 B0 04 4C 44 41 20 24 31 43 30 30 20 20 20 |....LDA $1C00 | 00000190: 20 20 20 3B A1 20 43 55 52 52 45 4E 54 20 44 45 | ;. CURRENT DE| 000001A0: 4E 53 49 54 59 00 DC 09 BA 04 B0 41 20 23 24 36 |NSITY......A #$6| 000001B0: 30 20 20 20 20 20 20 20 3B 53 57 49 54 43 48 20 |0 ;SWITCH | 000001C0: 44 45 4E 53 49 54 59 20 A4 20 54 52 41 43 4B 20 |DENSITY . TRACK | 000001D0: 31 AB 31 37 20 44 45 4E 53 49 54 59 00 0E 0A C4 |1.17 DENSITY....| 000001E0: 04 53 54 41 20 24 31 43 30 30 20 20 20 20 20 20 |.STA $1C00 | 000001F0: 3B 53 A4 52 45 20 43 48 41 4E 47 45 44 20 44 45 |;S.RE CHANGED DE| 00000200: 4E 53 49 54 59 20 41 54 20 24 31 43 30 30 00 36 |NSITY AT $1C00.6| 00000210: 0A CE 04 4C 44 58 20 23 24 30 30 20 20 20 20 20 |...LDX #$00 | 00000220: 20 20 3B 53 45 54 20 55 50 20 54 49 4D 45 52 20 | ;SET UP TIMER | 00000230: 81 20 53 59 4E 43 00 43 0A D8 04 4C 44 59 20 23 |. SYNC.C...LDY #| 00000240: 24 30 30 00 53 0A E2 04 54 49 4D 45 4F 55 54 20 |$00.S...TIMEOUT | 00000250: B2 20 AC 00 5B 0A EC 04 44 45 59 00 69 0A F6 04 |. ..[...DEY.i...| 00000260: 42 4E 45 20 92 53 59 4E 43 00 71 0A 00 05 44 45 |BNE .SYNC.q...DE| 00000270: 58 00 7F 0A 0A 05 42 4E 45 20 92 53 59 4E 43 00 |X.....BNE .SYNC.| 00000280: AE 0A 14 05 4C 44 41 20 23 24 30 33 20 20 20 20 |....LDA #$03 | 00000290: 20 20 20 3B 30 33 B2 4E 4F 20 53 59 4E 43 20 20 | ;03.NO SYNC | 000002A0: 20 8B 20 4E 4F 20 53 59 4E 43 20 A7 20 80 00 BA | . NO SYNC . ...| 000002B0: 0A 1E 05 42 4E 45 20 80 49 54 00 DB 0A 28 05 92 |...BNE .IT...(..| 000002C0: 53 59 4E 43 20 B2 20 AC 20 20 20 20 20 20 3B 43 |SYNC . . ;C| 000002D0: 48 45 43 4B 20 81 20 53 59 4E 43 00 E9 0A 32 05 |HECK . SYNC...2.| 000002E0: 42 49 54 20 24 31 43 30 30 00 F9 0A 3C 05 42 4D |BIT $1C00...<.BM| 000002F0: 49 20 54 49 4D 45 4F 55 54 00 1D 0B 46 05 4C 44 |I TIMEOUT...F.LD| 00000300: 41 20 24 31 43 30 31 20 20 20 20 20 20 3B 53 4B |A $1C01 ;SK| 00000310: 49 50 20 46 49 52 53 54 20 42 59 54 45 00 25 0B |IP FIRST BYTE.%.| 00000320: 50 05 43 4C 56 00 32 0B 5A 05 4C 44 59 20 23 24 |P.CLV.2.Z.LDY #$| 00000330: 30 30 00 54 0B 64 05 A1 42 59 54 45 20 B2 20 AC |00.T.d..BYTE . .| 00000340: 20 20 20 20 20 20 3B 87 20 83 20 46 52 4F 4D 20 | ;. . FROM | 00000350: 44 49 53 4B 00 72 0B 6E 05 42 56 43 20 A1 42 59 |DISK.r.n.BVC .BY| 00000360: 54 45 20 20 20 20 3B 92 20 81 20 42 59 54 45 20 |TE ;. . BYTE | 00000370: 87 59 00 7A 0B 78 05 43 4C 56 00 A1 0B 82 05 4C |.Y.z.x.CLV.....L| 00000380: 44 41 20 24 31 43 30 31 20 20 20 20 20 20 3B 93 |DA $1C01 ;.| 00000390: 20 42 59 54 45 20 46 52 4F 4D 20 83 20 50 4F 52 | BYTE FROM . POR| 000003A0: 54 00 CD 0B 8C 05 53 54 41 20 24 30 34 30 30 2C |T.....STA $0400,| 000003B0: 59 20 20 20 20 3B 53 A4 52 45 20 83 20 46 52 4F |Y ;S.RE . FRO| 000003C0: 4D 20 24 30 34 30 30 2D 24 30 34 46 46 00 D5 0B |M $0400-$04FF...| 000003D0: 96 05 49 4E 59 00 E3 0B A0 05 42 4E 45 20 A1 42 |..INY.....BNE .B| 000003E0: 59 54 45 00 02 0C AA 05 4C 44 41 20 23 24 30 31 |YTE.....LDA #$01| 000003F0: 20 20 20 20 20 20 20 3B 30 31 B2 4E 4F 20 45 52 | ;01.NO ER| 00000400: 52 B0 00 24 0C B4 05 80 49 54 20 B2 20 AC 20 20 |R..$....IT . . | 00000410: 20 20 20 20 20 20 3B 46 49 4E 49 53 48 20 55 50 | ;FINISH UP| 00000420: 20 AF 20 80 00 55 0C BE 05 53 54 41 20 24 30 30 | . ..U...STA $00| 00000430: 30 30 20 20 20 20 20 3B 53 A4 52 45 20 45 52 52 |00 ;S.RE ERR| 00000440: B0 20 43 4F 44 45 20 49 4E 20 43 4F 4D 4D AF 20 |. CODE IN COMM. | 00000450: 51 55 45 55 45 00 79 0C C8 05 4A 4D 50 20 24 46 |QUEUE.y...JMP $F| 00000460: 39 36 45 20 20 20 20 20 20 3B 52 4F 4D 20 52 4F |96E ;ROM RO| 00000470: 55 54 49 4E 45 20 A4 20 80 00 00 00 |UTINE . .... |
..3.$...$4300 ;ROUTINE . . CHANGE
D DENSITY 3.I...;THIS ROUTINE WILL . ANY
TRACK AT TRACK 1 DENSITY...8.;USE THIS
. THE INNER TRACKS . THE 'BEST' RESULTS.
..B.SEI.R.L.LDY #$00 ;FILL W.K SPA
CE WITH 00...V.LDA #$00...`.CLEARIT . ..
..J.STA $0400,Y ;S.RE 00 AT $0400.$04
FF.".T.INY.2.~.BNE CLEARIT.W...JSR $FE00
;SET PCR . . MODE.E...LDA $1C0C.Q.
...A #$0E....STA $1C0C.....LDA $1C00
;. CURRENT DENSITY......A #$60
;SWITCH DENSITY . TRACK 1.17 DENSITY...D
.STA $1C00 ;S.RE CHANGED DENSITY AT
$1C00.6.N.LDX #$00 ;SET UP TIMER
. SYNC.C.X.LDY #$00.S...TIMEOUT . ..[...
DEY.I...BNE .SYNC.Q...DEX....BNE .SYNC.
....LDA #$03 ;03.NO SYNC . NO SY
NC . ......BNE .IT...(..SYNC . . ;C
HECK . SYNC...2.BIT $1C00...<.BMI TIMEOU
T...F.LDA $1C01 ;SKIP FIRST BYTE.%.
P.CLV.2.Z.LDY #$00.T.D..BYTE . . ;.
. FROM DISK.R.N.BVC .BYTE ;. . BYTE
.Y.Z.X.CLV.....LDA $1C01 ;. BYTE FR
OM . PORT.M...STA $0400,Y ;S.RE . FRO
M $0400-$04FF.U...INY... .BNE .BYTE.....
LDA #$01 ;01.NO ERR..$....IT . .
;FINISH UP . ..U...STA $0000 ;
S.RE ERR. CODE IN COMM. QUEUE.Y.H.JMP $F
96E ;ROM ROUTINE . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL