READ GCR 1K.ASM
FILE INFORMATION
FILENAME(S): READ GCR 1K.ASM
FILE TYPE(S): PRG
FILE SIZE: 997b
FIRST SEEN: 2025-10-19 22:48:34
APPEARS ON: 3 disk(s)
FILE HASH
cba28da856c3380dd2d7680e29f5fc95d4ead8405b05c82d8c608d421d13a5f2
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | READ GCR 1K.ASM | PRG | Radd Maxx | 2 | 0 | DOWNLOAD FILE |
| PPM VOL II | READ GCR 1K.ASM | PRG | High Voltage Complete C64 Collection | 14 | 12 | DOWNLOAD FILE |
| 1541 DEVELOPMENT | READ GCR 1K.ASM | PRG | Sailor, Ganheden | 2 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 24 04 AC B2 24 34 33 30 30 20 20 20 |..#.$...$4300 | 00000010: 20 20 20 20 3B 87 20 31 4B 20 4F 46 20 47 43 52 | ;. 1K OF GCR| 00000020: 20 56 33 00 2B 08 2E 04 53 45 49 00 55 08 38 04 | V3.+...SEI.U.8.| 00000030: 4C 44 59 20 23 24 30 30 20 20 20 20 20 20 3B 46 |LDY #$00 ;F| 00000040: 49 4C 4C 20 57 B0 4B 20 53 50 41 43 45 20 57 49 |ILL W.K SPACE WI| 00000050: 54 48 20 30 30 00 62 08 42 04 4C 44 41 20 23 24 |TH 00.b.B.LDA #$| 00000060: 30 30 00 72 08 4C 04 43 4C 45 41 52 49 54 20 B2 |00.r.L.CLEARIT .| 00000070: 20 AC 00 9D 08 56 04 53 54 41 20 24 30 34 30 30 | ....V.STA $0400| 00000080: 2C 59 20 20 20 20 3B 53 A4 52 45 20 30 30 20 41 |,Y ;S.RE 00 A| 00000090: 54 20 24 30 34 30 30 AB 24 30 34 46 46 00 A5 08 |T $0400.$04FF...| 000000A0: 60 04 49 4E 59 00 B5 08 6A 04 42 4E 45 20 43 4C |`.INY...j.BNE CL| 000000B0: 45 41 52 49 54 00 D9 08 74 04 4A 53 52 20 24 46 |EARIT...t.JSR $F| 000000C0: 45 30 30 20 20 20 20 20 3B 53 45 54 20 50 43 52 |E00 ;SET PCR| 000000D0: 20 A4 20 87 20 4D 4F 44 45 00 E7 08 7E 04 4C 44 | . . MODE...~.LD| 000000E0: 41 20 24 31 43 30 43 00 F3 08 88 04 B0 41 20 23 |A $1C0C......A #| 000000F0: 24 30 45 00 01 09 92 04 53 54 41 20 24 31 43 30 |$0E.....STA $1C0| 00000100: 43 00 28 09 9C 04 4C 44 58 20 23 24 30 30 20 20 |C.(...LDX #$00 | 00000110: 20 20 20 20 3B 53 45 54 20 55 50 20 54 49 4D 45 | ;SET UP TIME| 00000120: 52 20 81 20 53 59 4E 43 00 35 09 A6 04 4C 44 59 |R . SYNC.5...LDY| 00000130: 20 23 24 30 30 00 45 09 B0 04 54 49 4D 45 4F 55 | #$00.E...TIMEOU| 00000140: 54 20 B2 20 AC 00 4D 09 BA 04 44 45 59 00 5B 09 |T . ..M...DEY.[.| 00000150: C4 04 42 4E 45 20 92 53 59 4E 43 00 63 09 CE 04 |..BNE .SYNC.c...| 00000160: 44 45 58 00 71 09 D8 04 42 4E 45 20 92 53 59 4E |DEX.q...BNE .SYN| 00000170: 43 00 9F 09 E2 04 4C 44 41 20 23 24 30 33 20 20 |C.....LDA #$03 | 00000180: 20 20 20 20 3B 30 33 B2 4E 4F 20 53 59 4E 43 20 | ;03.NO SYNC | 00000190: 20 20 8B 20 4E 4F 20 53 59 4E 43 20 A7 20 80 00 | . NO SYNC . ..| 000001A0: AB 09 EC 04 42 4E 45 20 80 49 54 00 CC 09 F6 04 |....BNE .IT.....| 000001B0: 92 53 59 4E 43 20 B2 20 AC 20 20 20 20 20 20 3B |.SYNC . . ;| 000001C0: 43 48 45 43 4B 20 81 20 53 59 4E 43 00 DA 09 00 |CHECK . SYNC....| 000001D0: 05 42 49 54 20 24 31 43 30 30 00 EA 09 0A 05 42 |.BIT $1C00.....B| 000001E0: 4D 49 20 54 49 4D 45 4F 55 54 00 0D 0A 14 05 4C |MI TIMEOUT.....L| 000001F0: 44 41 20 24 31 43 30 31 20 20 20 20 20 3B 53 4B |DA $1C01 ;SK| 00000200: 49 50 20 46 49 52 53 54 20 42 59 54 45 00 15 0A |IP FIRST BYTE...| 00000210: 1E 05 43 4C 56 00 22 0A 28 05 4C 44 59 20 23 24 |..CLV.".(.LDY #$| 00000220: 30 30 00 44 0A 32 05 A1 42 59 54 45 20 B2 20 AC |00.D.2..BYTE . .| 00000230: 20 20 20 20 20 20 3B 87 20 83 20 46 52 4F 4D 20 | ;. . FROM | 00000240: 44 49 53 4B 00 61 0A 3C 05 42 56 43 20 A1 42 59 |DISK.a.<.BVC .BY| 00000250: 54 45 20 20 20 3B 92 20 81 20 42 59 54 45 20 87 |TE ;. . BYTE .| 00000260: 59 00 69 0A 46 05 43 4C 56 00 8F 0A 50 05 4C 44 |Y.i.F.CLV...P.LD| 00000270: 41 20 24 31 43 30 31 20 20 20 20 20 3B 93 20 42 |A $1C01 ;. B| 00000280: 59 54 45 20 46 52 4F 4D 20 83 20 50 4F 52 54 00 |YTE FROM . PORT.| 00000290: BA 0A 5A 05 53 54 41 20 24 30 34 30 30 2C 59 20 |..Z.STA $0400,Y | 000002A0: 20 20 3B 53 A4 52 45 20 83 20 46 52 4F 4D 20 24 | ;S.RE . FROM $| 000002B0: 30 34 30 30 2D 24 30 34 46 46 00 C2 0A 64 05 49 |0400-$04FF...d.I| 000002C0: 4E 59 00 D0 0A 6E 05 42 4E 45 20 A1 42 59 54 45 |NY...n.BNE .BYTE| 000002D0: 00 07 0B 78 05 49 4E 43 20 24 30 33 33 37 20 20 |...x.INC $0337 | 000002E0: 20 20 20 3B 55 53 45 44 20 A4 20 46 49 4C 4C 20 | ;USED . FILL | 000002F0: 42 55 46 46 45 52 20 46 52 4F 4D 20 24 30 35 30 |BUFFER FROM $050| 00000300: 30 AB 24 30 37 46 46 00 33 0B 82 05 4C 44 41 20 |0.$07FF.3...LDA | 00000310: 24 30 33 33 37 20 20 20 20 20 3B 57 49 54 48 20 |$0337 ;WITH | 00000320: 47 43 52 20 83 20 46 52 4F 4D 20 54 48 45 20 44 |GCR . FROM THE D| 00000330: 49 53 4B 00 40 0B 8C 05 43 4D 50 20 23 24 30 38 |ISK.@...CMP #$08| 00000340: 00 4E 0B 96 05 42 4E 45 20 A1 42 59 54 45 00 6C |.N...BNE .BYTE.l| 00000350: 0B A0 05 4C 44 41 20 23 24 30 31 20 20 20 20 20 |...LDA #$01 | 00000360: 20 3B 30 31 B2 4E 4F 20 45 52 52 B0 00 8E 0B AA | ;01.NO ERR.....| 00000370: 05 80 49 54 20 B2 20 AC 20 20 20 20 20 20 20 20 |..IT . . | 00000380: 3B 46 49 4E 49 53 48 20 55 50 20 AF 20 80 00 BF |;FINISH UP . ...| 00000390: 0B B4 05 53 54 41 20 24 30 30 30 30 20 20 20 20 |...STA $0000 | 000003A0: 20 3B 53 A4 52 45 20 45 52 52 B0 20 43 4F 44 45 | ;S.RE ERR. CODE| 000003B0: 20 49 4E 20 43 4F 4D 4D AF 20 51 55 45 55 45 00 | IN COMM. QUEUE.| 000003C0: E2 0B BE 05 4A 4D 50 20 24 46 39 36 45 20 20 20 |....JMP $F96E | 000003D0: 20 20 3B 52 4F 4D 20 52 4F 55 54 49 4E 45 20 A4 | ;ROM ROUTINE .| 000003E0: 20 80 00 00 00 | .... |
..#.$...$4300 ;. 1K OF GCR V3.+...
SEI.U.8.LDY #$00 ;FILL W.K SPACE WI
TH 00.B.B.LDA #$00.R.L.CLEARIT . ....V.S
TA $0400,Y ;S.RE 00 AT $0400.$04FF...
`.INY...J.BNE CLEARIT.Y.T.JSR $FE00
;SET PCR . . MODE...~.LDA $1C0C......A #
$0E.....STA $1C0C.(...LDX #$00 ;SET
UP TIMER . SYNC.5...LDY #$00.E...TIMEOU
T . ..M...DEY.[.D.BNE .SYNC.C.N.DEX.Q.X.
BNE .SYNC.....LDA #$03 ;03.NO SYNC
. NO SYNC . ......BNE .IT.L....SYNC .
. ;CHECK . SYNC.Z...BIT $1C00.....B
MI TIMEOUT.....LDA $1C01 ;SKIP FIRST
BYTE.....CLV.".(.LDY #$00.D.2..BYTE . .
;. . FROM DISK.A.<.BVC .BYTE ;.
. BYTE .Y.I.F.CLV...P.LDA $1C01 ;. B
YTE FROM . PORT...Z.STA $0400,Y ;S.RE
. FROM $0400-$04FF.B.D.INY.P.N.BNE .BYTE
...X.INC $0337 ;USED . FILL BUFFER F
ROM $0500.$07FF.3...LDA $0337 ;WITH
GCR . FROM THE DISK.@...CMP #$08.N...BNE
.BYTE.L. .LDA #$01 ;01.NO ERR.....
..IT . . ;FINISH UP . ......STA $
0000 ;S.RE ERR. CODE IN COMM. QUEUE.
....JMP $F96E ;ROM ROUTINE . ....
> CLICK IMAGE PREVIEW FOR FULL MODAL