RASTER

FILE INFORMATION

FILENAME(S): RASTER

FILE TYPE(S): PRG

FILE SIZE: 982b

FIRST SEEN: 2025-11-30 19:47:33

APPEARS ON: 1 disk(s)

FILE HASH

3b316c30aa013cf7344aa7870172650958fb5d5e1c73dc7d29d8b36070c6e22b

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HJ LPEDISK 07 2	RASTER	PRG	Curtcool, Frank	10	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0D 08 0A 00 9E 39  AC 34 30 39 36 00 1A 08  |.......9.4096...|
00000010: 14 00 2E 4F 50 54 20 4E  2C 4F 00 27 08 1E 00 AC  |...OPT N,O.'....|
00000020: B2 20 24 43 30 30 30 00  3A 08 28 00 53 43 52 4F  |. $C000.:.(.SCRO|
00000030: 4C 59 20 B2 20 24 44 30  31 31 00 4D 08 32 00 52  |LY . $D011.M.2.R|
00000040: 41 53 54 45 52 20 B2 20  24 44 30 31 32 00 60 08  |ASTER . $D012.`.|
00000050: 3C 00 53 43 52 4F 4C 58  20 B2 20 24 44 30 31 36  |<.SCROLX . $D016|
00000060: 00 73 08 46 00 56 4D 43  53 42 20 20 B2 20 24 44  |.s.F.VMCSB  . $D|
00000070: 30 31 38 00 86 08 50 00  56 49 43 49 52 51 20 B2  |018...P.VICIRQ .|
00000080: 20 24 44 30 31 39 00 99  08 5A 00 49 52 51 4D 53  | $D019...Z.IRQMS|
00000090: 4B 20 B2 20 24 44 30 31  41 00 AC 08 64 00 42 47  |K . $D01A...d.BG|
000000A0: 43 4F 4C 30 20 B2 20 24  44 30 32 31 00 BF 08 6E  |COL0 . $D021...n|
000000B0: 00 43 49 41 49 43 52 20  B2 20 24 44 43 30 44 00  |.CIAICR . $DC0D.|
000000C0: C5 08 78 00 3B 00 D3 08  82 00 B5 4E 4F 20 B2 20  |..x.;......NO . |
000000D0: 24 46 42 00 D9 08 8C 00  3B 00 DF 08 96 00 3B 00  |$FB.....;.....;.|
000000E0: EE 08 A0 00 53 45 54 49  52 51 20 53 45 49 00 FB  |....SETIRQ SEI..|
000000F0: 08 AA 00 4C 44 41 20 23  24 37 46 00 0A 09 B4 00  |...LDA #$7F.....|
00000100: 53 54 41 20 43 49 41 49  43 52 00 15 09 BE 00 4C  |STA CIAICR.....L|
00000110: 44 41 20 23 31 00 24 09  C8 00 53 54 41 20 49 52  |DA #1.$...STA IR|
00000120: 51 4D 53 4B 00 2F 09 D2  00 4C 44 41 20 23 33 00  |QMSK./...LDA #3.|
00000130: 3B 09 DC 00 53 54 41 20  B5 4E 4F 00 4A 09 E6 00  |;...STA .NO.J...|
00000140: 4C 44 41 20 52 41 53 54  42 4C 00 59 09 F0 00 53  |LDA RASTBL.Y...S|
00000150: 54 41 20 52 41 53 54 45  52 00 65 09 FA 00 4C 44  |TA RASTER.e...LD|
00000160: 41 20 23 32 34 00 73 09  04 01 53 54 41 20 24 44  |A #24.s...STA $D|
00000170: 30 31 31 00 79 09 0E 01  3B 00 8A 09 18 01 4C 44  |011.y...;.....LD|
00000180: 41 20 23 B3 52 41 53 49  52 51 00 98 09 22 01 53  |A #.RASIRQ...".S|
00000190: 54 41 20 24 30 33 31 34  00 A9 09 2C 01 4C 44 41  |TA $0314...,.LDA|
000001A0: 20 23 B1 52 41 53 49 52  51 00 B7 09 36 01 53 54  | #.RASIRQ...6.ST|
000001B0: 41 20 24 30 33 31 35 00  BF 09 40 01 43 4C 49 00  |A $0315...@.CLI.|
000001C0: C7 09 4A 01 52 54 53 00  CD 09 54 01 3B 00 E3 09  |..J.RTS...T.;...|
000001D0: 5E 01 52 41 53 49 52 51  20 4C 44 41 20 56 49 43  |^.RASIRQ LDA VIC|
000001E0: 49 52 51 00 F2 09 68 01  53 54 41 20 56 49 43 49  |IRQ...h.STA VICI|
000001F0: 52 51 00 FB 09 72 01 AF  20 23 31 00 07 0A 7C 01  |RQ...r.. #1...|.|
00000200: 42 45 51 20 B5 52 54 00  13 0A 86 01 44 45 43 20  |BEQ .RT.....DEC |
00000210: B5 4E 4F 00 20 0A 90 01  42 50 4C 20 52 41 53 31  |.NO. ...BPL RAS1|
00000220: 00 2B 0A 9A 01 4C 44 41  20 23 32 00 37 0A A4 01  |.+...LDA #2.7...|
00000230: 53 54 41 20 B5 4E 4F 00  3D 0A AE 01 3B 00 4E 0A  |STA .NO.=...;.N.|
00000240: B8 01 52 41 53 31 20 4C  44 58 20 B5 4E 4F 00 5F  |..RAS1 LDX .NO._|
00000250: 0A C2 01 4C 44 41 20 43  4F 4C 54 42 4C 2C 58 00  |...LDA COLTBL,X.|
00000260: 6E 0A CC 01 53 54 41 20  42 47 43 4F 4C 30 00 7F  |n...STA BGCOL0..|
00000270: 0A D6 01 4C 44 41 20 43  52 31 54 42 4C 2C 58 00  |...LDA CR1TBL,X.|
00000280: 8E 0A E0 01 53 54 41 20  53 43 52 4F 4C 59 00 9F  |....STA SCROLY..|
00000290: 0A EA 01 4C 44 41 20 43  52 32 54 42 4C 2C 58 00  |...LDA CR2TBL,X.|
000002A0: AE 0A F4 01 53 54 41 20  53 43 52 4F 4C 58 00 BF  |....STA SCROLX..|
000002B0: 0A FE 01 4C 44 41 20 4D  45 4D 54 42 4C 2C 58 00  |...LDA MEMTBL,X.|
000002C0: CD 0A 08 02 53 54 41 20  56 4D 43 53 42 00 DE 0A  |....STA VMCSB...|
000002D0: 12 02 4C 44 41 20 52 41  53 54 42 4C 2C 58 00 ED  |..LDA RASTBL,X..|
000002E0: 0A 1C 02 53 54 41 20 52  41 53 54 45 52 00 F5 0A  |...STA RASTER...|
000002F0: 26 02 54 58 41 00 04 0B  30 02 42 45 51 20 4F 4C  |&.TXA...0.BEQ OL|
00000300: 44 49 52 51 00 10 0B 3A  02 B5 52 54 20 50 4C 41  |DIRQ...:..RT PLA|
00000310: 00 18 0B 44 02 54 41 59  00 20 0B 4E 02 50 4C 41  |...D.TAY. .N.PLA|
00000320: 00 28 0B 58 02 54 41 58  00 30 0B 62 02 50 4C 41  |.(.X.TAX.0.b.PLA|
00000330: 00 38 0B 6C 02 52 54 49  00 3E 0B 76 02 3B 00 53  |.8.l.RTI.>.v.;.S|
00000340: 0B 80 02 4F 4C 44 49 52  51 20 4A 4D 50 20 24 45  |...OLDIRQ JMP $E|
00000350: 41 33 31 00 59 0B 8A 02  3B 00 74 0B 94 02 52 41  |A31.Y...;.t...RA|
00000360: 53 54 42 4C 20 2E 42 59  54 20 34 39 2C 31 37 30  |STBL .BYT 49,170|
00000370: 2C 31 32 39 00 8A 0B 9E  02 43 4F 4C 54 42 4C 20  |,129.....COLTBL |
00000380: 2E 42 59 54 20 30 2C 36  2C 30 00 A3 0B A8 02 43  |.BYT 0,6,0.....C|
00000390: 52 31 54 42 4C 20 2E 42  59 54 20 35 39 2C 32 37  |R1TBL .BYT 59,27|
000003A0: 2C 35 39 00 BA 0B B2 02  43 52 32 54 42 4C 20 2E  |,59.....CR2TBL .|
000003B0: 42 59 54 20 32 34 2C 38  2C 38 00 D3 0B BC 02 4D  |BYT 24,8,8.....M|
000003C0: 45 4D 54 42 4C 20 2E 42  59 54 20 32 34 2C 32 30  |EMTBL .BYT 24,20|
000003D0: 2C 32 34 00 00 00                                 |,24...          |

.......9.4096......OPT N,O.'..... $C000.
:.(.SCROLY . $D011.M.2.RASTER . $D012.`.
<.SCROLX . $D016.S.F.VMCSB  . $D018...P.
VICIRQ . $D019...Z.IRQMSK . $D01A...D.BG
COL0 . $D021...N.CIAICR . $DC0D.E.X.;.S.
...NO . $FB.Y...;.....;... .SETIRQ SEI..
...LDA #$7F.....STA CIAICR.....LDA #1.$.
H.STA IRQMSK./.R.LDA #3.;...STA .NO.J...
LDA RASTBL.Y...STA RASTER.E...LDA #24.S.
..STA $D011.Y...;.....LDA #.RASIRQ...".S
TA $0314...,.LDA #.RASIRQ...6.STA $0315.
..@.CLI.G.J.RTS.M.T.;...^.RASIRQ LDA VIC
IRQ...H.STA VICIRQ...R.. #1...|.BEQ .RT.
....DEC .NO. ...BPL RAS1.+...LDA #2.7...
STA .NO.=...;.N...RAS1 LDX .NO._.B.LDA C
OLTBL,X.N.L.STA BGCOL0..V.LDA CR1TBL,X.
....STA SCROLY.....LDA CR2TBL,X.....STA 
SCROLX.....LDA MEMTBL,X.M...STA VMCSB...
..LDA RASTBL,X.....STA RASTER...&.TXA...
0.BEQ OLDIRQ...:..RT PLA...D.TAY. .N.PLA
.(.X.TAX.0.B.PLA.8.L.RTI.>.V.;.S...OLDIR
Q JMP $EA31.Y...;.T...RASTBL .BYT 49,170
,129.....COLTBL .BYT 0,6,0.....CR1TBL .B
YT 59,27,59.....CR2TBL .BYT 24,8,8.S...M
EMTBL .BYT 24,20,24...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL