READ GCR.ASM
FILE INFORMATION
FILENAME(S): READ GCR.ASM
FILE TYPE(S): PRG
FILE SIZE: 871b
FIRST SEEN: 2025-10-19 22:48:34
APPEARS ON: 3 disk(s)
FILE HASH
d5ab9869c797cb72007ab0df7413bdd1650d005e11208c5a34cb106440013f01
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | READ GCR.ASM | PRG | Radd Maxx | 3 | 11 | DOWNLOAD FILE |
| PPM VOL II | READ GCR.ASM | PRG | High Voltage Complete C64 Collection | 14 | 4 | DOWNLOAD FILE |
| 1541 DEVELOPMENT | READ GCR.ASM | PRG | Sailor, Ganheden | 2 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 10 04 AC B2 24 34 33 30 30 20 20 20 |.. .....$4300 | 00000010: 20 20 20 20 3B 87 20 47 43 52 20 56 31 2E 32 36 | ;. GCR V1.26| 00000020: 00 28 08 1A 04 53 45 49 00 52 08 24 04 4C 44 59 |.(...SEI.R.$.LDY| 00000030: 20 23 24 30 30 20 20 20 20 20 20 3B 46 49 4C 4C | #$00 ;FILL| 00000040: 20 57 B0 4B 20 53 50 41 43 45 20 57 49 54 48 20 | W.K SPACE WITH | 00000050: 30 30 00 5F 08 2E 04 4C 44 41 20 23 24 30 30 00 |00._...LDA #$00.| 00000060: 6F 08 38 04 43 4C 45 41 52 49 54 20 B2 20 AC 00 |o.8.CLEARIT . ..| 00000070: 9A 08 42 04 53 54 41 20 24 30 34 30 30 2C 59 20 |..B.STA $0400,Y | 00000080: 20 20 20 3B 53 A4 52 45 20 30 30 20 41 54 20 24 | ;S.RE 00 AT $| 00000090: 30 34 30 30 AB 24 30 34 46 46 00 A2 08 4C 04 49 |0400.$04FF...L.I| 000000A0: 4E 59 00 B2 08 56 04 42 4E 45 20 43 4C 45 41 52 |NY...V.BNE CLEAR| 000000B0: 49 54 00 D6 08 60 04 4A 53 52 20 24 46 45 30 30 |IT...`.JSR $FE00| 000000C0: 20 20 20 20 20 3B 53 45 54 20 50 43 52 20 A4 20 | ;SET PCR . | 000000D0: 87 20 4D 4F 44 45 00 E4 08 6A 04 4C 44 41 20 24 |. MODE...j.LDA $| 000000E0: 31 43 30 43 00 F0 08 74 04 B0 41 20 23 24 30 45 |1C0C...t..A #$0E| 000000F0: 00 FE 08 7E 04 53 54 41 20 24 31 43 30 43 00 25 |...~.STA $1C0C.%| 00000100: 09 88 04 4C 44 58 20 23 24 30 30 20 20 20 20 20 |...LDX #$00 | 00000110: 20 3B 53 45 54 20 55 50 20 54 49 4D 45 52 20 81 | ;SET UP TIMER .| 00000120: 20 53 59 4E 43 00 32 09 92 04 4C 44 59 20 23 24 | SYNC.2...LDY #$| 00000130: 30 30 00 42 09 9C 04 54 49 4D 45 4F 55 54 20 B2 |00.B...TIMEOUT .| 00000140: 20 AC 00 4A 09 A6 04 44 45 59 00 58 09 B0 04 42 | ..J...DEY.X...B| 00000150: 4E 45 20 92 53 59 4E 43 00 60 09 BA 04 44 45 58 |NE .SYNC.`...DEX| 00000160: 00 6E 09 C4 04 42 4E 45 20 92 53 59 4E 43 00 9C |.n...BNE .SYNC..| 00000170: 09 CE 04 4C 44 41 20 23 24 30 33 20 20 20 20 20 |...LDA #$03 | 00000180: 20 3B 30 33 B2 4E 4F 20 53 59 4E 43 20 20 20 8B | ;03.NO SYNC .| 00000190: 20 4E 4F 20 53 59 4E 43 20 A7 20 80 00 A8 09 D8 | NO SYNC . .....| 000001A0: 04 42 4E 45 20 80 49 54 00 C9 09 E2 04 92 53 59 |.BNE .IT......SY| 000001B0: 4E 43 20 B2 20 AC 20 20 20 20 20 20 3B 43 48 45 |NC . . ;CHE| 000001C0: 43 4B 20 81 20 53 59 4E 43 00 D7 09 EC 04 42 49 |CK . SYNC.....BI| 000001D0: 54 20 24 31 43 30 30 00 E7 09 F6 04 42 4D 49 20 |T $1C00.....BMI | 000001E0: 54 49 4D 45 4F 55 54 00 0A 0A 00 05 4C 44 41 20 |TIMEOUT.....LDA | 000001F0: 24 31 43 30 31 20 20 20 20 20 3B 53 4B 49 50 20 |$1C01 ;SKIP | 00000200: 46 49 52 53 54 20 42 59 54 45 00 12 0A 0A 05 43 |FIRST BYTE.....C| 00000210: 4C 56 00 1F 0A 14 05 4C 44 59 20 23 24 30 30 00 |LV.....LDY #$00.| 00000220: 41 0A 1E 05 A1 42 59 54 45 20 B2 20 AC 20 20 20 |A....BYTE . . | 00000230: 20 20 20 3B 87 20 83 20 46 52 4F 4D 20 44 49 53 | ;. . FROM DIS| 00000240: 4B 00 5E 0A 28 05 42 56 43 20 A1 42 59 54 45 20 |K.^.(.BVC .BYTE | 00000250: 20 20 3B 92 20 81 20 42 59 54 45 20 87 59 00 66 | ;. . BYTE .Y.f| 00000260: 0A 32 05 43 4C 56 00 8C 0A 3C 05 4C 44 41 20 24 |.2.CLV...<.LDA $| 00000270: 31 43 30 31 20 20 20 20 20 3B 93 20 42 59 54 45 |1C01 ;. BYTE| 00000280: 20 46 52 4F 4D 20 83 20 50 4F 52 54 00 B7 0A 46 | FROM . PORT...F| 00000290: 05 53 54 41 20 24 30 34 30 30 2C 59 20 20 20 3B |.STA $0400,Y ;| 000002A0: 53 A4 52 45 20 83 20 46 52 4F 4D 20 24 30 34 30 |S.RE . FROM $040| 000002B0: 30 2D 24 30 34 46 46 00 BF 0A 50 05 49 4E 59 00 |0-$04FF...P.INY.| 000002C0: CD 0A 5A 05 42 4E 45 20 A1 42 59 54 45 00 EB 0A |..Z.BNE .BYTE...| 000002D0: 64 05 4C 44 41 20 23 24 30 31 20 20 20 20 20 20 |d.LDA #$01 | 000002E0: 3B 30 31 B2 4E 4F 20 45 52 52 B0 00 0D 0B 6E 05 |;01.NO ERR....n.| 000002F0: 80 49 54 20 B2 20 AC 20 20 20 20 20 20 20 20 3B |.IT . . ;| 00000300: 46 49 4E 49 53 48 20 55 50 20 AF 20 80 00 41 0B |FINISH UP . ..A.| 00000310: 78 05 53 54 41 20 24 30 30 30 30 20 20 20 20 20 |x.STA $0000 | 00000320: 3B 53 A4 52 45 20 45 52 52 B0 20 43 4F 44 45 20 |;S.RE ERR. CODE | 00000330: 49 4E 20 43 4F 4D 4D 41 4E 41 44 20 51 55 45 55 |IN COMMANAD QUEU| 00000340: 45 00 64 0B 82 05 4A 4D 50 20 24 46 39 36 45 20 |E.d...JMP $F96E | 00000350: 20 20 20 20 3B 52 4F 4D 20 52 4F 55 54 49 4E 45 | ;ROM ROUTINE| 00000360: 20 A4 20 80 00 00 00 | . .... |
.. .....$4300 ;. GCR V1.26.(...SEI
.R.$.LDY #$00 ;FILL W.K SPACE WITH
00._...LDA #$00.O.8.CLEARIT . ....B.STA
$0400,Y ;S.RE 00 AT $0400.$04FF...L.I
NY...V.BNE CLEARIT.V.`.JSR $FE00 ;SE
T PCR . . MODE...J.LDA $1C0C...T..A #$0E
...~.STA $1C0C.%...LDX #$00 ;SET UP
TIMER . SYNC.2...LDY #$00.B...TIMEOUT .
..J...DEY.X...BNE .SYNC.`...DEX.N.D.BNE
.SYNC...N.LDA #$03 ;03.NO SYNC .
NO SYNC . ....X.BNE .IT.I....SYNC . .
;CHECK . SYNC.W...BIT $1C00.....BMI
TIMEOUT.....LDA $1C01 ;SKIP FIRST BY
TE.....CLV.....LDY #$00.A....BYTE . .
;. . FROM DISK.^.(.BVC .BYTE ;. . B
YTE .Y.F.2.CLV...<.LDA $1C01 ;. BYTE
FROM . PORT...F.STA $0400,Y ;S.RE . F
ROM $0400-$04FF...P.INY.M.Z.BNE .BYTE...
D.LDA #$01 ;01.NO ERR....N..IT . .
;FINISH UP . ..A.X.STA $0000
;S.RE ERR. CODE IN COMMANAD QUEUE.D...JM
P $F96E ;ROM ROUTINE . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL