RASTERS2
FILE INFORMATION
FILENAME(S): RASTERS2
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 16:09:44
APPEARS ON: 2 disk(s)
FILE HASH
295d0c3f03650de32bd757b1d9f59c1507231bb16189cd49d80f1b3ec3efd021
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU NOVEMBER 89 | RASTERS2 | PRG | BrainSkull, Sammlung, UK CD | 32 | 1 | DOWNLOAD FILE |
| CDU NOVEMBER 89 | RASTERS2 | PRG | BrainSkull, Sammlung | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E8 03 21 20 46 4C 44 20 43 4F 4C 4F |......! FLD COLO| 00000010: 55 52 20 42 41 52 53 2E 2E 2E 2E 00 21 08 F2 03 |UR BARS.....!...| 00000020: 21 00 27 08 FC 03 21 00 33 08 06 04 AC B2 34 39 |!.'...!.3.....49| 00000030: 31 35 32 00 39 08 10 04 21 00 54 08 1A 04 4A 53 |152.9...!.T...JS| 00000040: 52 20 53 45 54 49 52 51 20 21 20 53 45 54 20 49 |R SETIRQ ! SET I| 00000050: 52 51 27 53 00 72 08 24 04 52 54 53 20 20 20 20 |RQ'S.r.$.RTS | 00000060: 20 20 20 20 21 20 41 4E 44 20 52 45 54 55 52 4E | ! AND RETURN| 00000070: 20 21 00 78 08 2E 04 21 00 85 08 38 04 53 45 54 | !.x...!...8.SET| 00000080: 49 52 51 20 21 00 8D 08 42 04 53 45 49 00 9A 08 |IRQ !...B.SEI...| 00000090: 4C 04 4C 44 41 20 23 24 37 46 00 A8 08 56 04 53 |L.LDA #$7F...V.S| 000000A0: 54 41 20 24 44 43 30 44 00 B6 08 60 04 4C 44 41 |TA $DC0D...`.LDA| 000000B0: 20 24 44 43 30 44 00 C3 08 6A 04 4C 44 41 20 23 | $DC0D...j.LDA #| 000000C0: 24 31 42 00 D1 08 74 04 53 54 41 20 24 44 30 31 |$1B...t.STA $D01| 000000D0: 31 00 F5 08 7E 04 4C 44 41 20 23 24 33 32 20 20 |1...~.LDA #$32 | 000000E0: 20 21 20 3C 2D 20 53 45 54 20 54 48 49 53 20 4E | ! <- SET THIS N| 000000F0: 55 4D 42 45 52 00 1B 09 88 04 53 54 41 20 24 44 |UMBER.....STA $D| 00000100: 30 31 32 20 20 21 20 20 20 20 54 4F 20 54 48 45 |012 ! TO THE| 00000110: 20 46 49 52 53 54 20 4C 49 4E 45 00 3D 09 92 04 | FIRST LINE.=...| 00000120: 4C 44 41 20 23 B3 49 52 51 20 20 21 20 20 20 20 |LDA #.IRQ ! | 00000130: 59 4F 55 20 57 41 4E 54 20 59 4F 55 52 00 63 09 |YOU WANT YOUR.c.| 00000140: 9C 04 53 54 41 20 24 33 31 34 20 20 20 21 20 20 |..STA $314 ! | 00000150: 20 20 43 4F 4C 4F 55 52 53 20 54 4F 20 53 54 41 | COLOURS TO STA| 00000160: 52 54 2E 00 71 09 A6 04 4C 44 41 20 23 B1 49 52 |RT..q...LDA #.IR| 00000170: 51 00 7E 09 B0 04 53 54 41 20 24 33 31 35 00 89 |Q.~...STA $315..| 00000180: 09 BA 04 4C 44 41 20 23 31 00 97 09 C4 04 53 54 |...LDA #1.....ST| 00000190: 41 20 24 44 30 31 39 00 A5 09 CE 04 53 54 41 20 |A $D019.....STA | 000001A0: 24 44 30 31 41 00 B3 09 D8 04 4C 44 41 20 24 44 |$D01A.....LDA $D| 000001B0: 30 31 36 00 BE 09 E2 04 AF 20 23 24 46 30 00 CC |016...... #$F0..| 000001C0: 09 EC 04 53 54 41 20 24 44 30 31 36 00 D4 09 F6 |...STA $D016....| 000001D0: 04 43 4C 49 00 DC 09 00 05 52 54 53 00 E2 09 0A |.CLI.....RTS....| 000001E0: 05 21 00 09 0A 14 05 4D 41 58 B2 24 38 38 20 20 |.!.....MAX.$88 | 000001F0: 20 20 20 20 20 21 20 4D 41 58 2E 43 4F 4C 4F 55 | ! MAX.COLOU| 00000200: 52 45 44 20 4C 49 4E 45 53 00 31 0A 1E 05 43 4F |RED LINES.1...CO| 00000210: 4C 54 41 42 B2 24 43 36 30 30 20 21 3C 43 4F 4C |LTAB.$C600 !<COL| 00000220: 4F 55 52 20 54 41 42 4C 45 20 41 44 44 52 45 53 |OUR TABLE ADDRES| 00000230: 53 00 37 0A 28 05 21 00 41 0A 32 05 49 52 51 20 |S.7.(.!.A.2.IRQ | 00000240: 21 00 64 0A 3C 05 4C 44 58 20 23 24 44 20 20 20 |!.d.<.LDX #$D | 00000250: 21 3C 47 45 54 20 49 4E 20 45 58 41 43 54 4C 59 |!<GET IN EXACTLY| 00000260: 20 54 48 45 00 8A 0A 46 05 44 31 20 44 45 58 20 | THE...F.D1 DEX | 00000270: 20 20 20 21 20 52 49 47 48 54 20 50 4C 41 43 45 | ! RIGHT PLACE| 00000280: 20 54 4F 20 53 54 41 52 54 21 00 95 0A 50 05 42 | TO START!...P.B| 00000290: 4E 45 20 44 31 00 9B 0A 5A 05 21 00 A6 0A 64 05 |NE D1...Z.!...d.| 000002A0: 4C 44 58 20 23 30 00 CC 0A 6E 05 49 31 20 4C 44 |LDX #0...n.I1 LD| 000002B0: 41 20 24 44 30 31 32 20 20 20 20 21 3C 47 45 54 |A $D012 !<GET| 000002C0: 20 52 41 53 54 45 52 20 4C 49 4E 45 00 ED 0A 78 | RASTER LINE...x| 000002D0: 05 4C 44 59 20 43 4F 4C 54 41 42 2C 58 20 20 20 |.LDY COLTAB,X | 000002E0: 20 21 3C 47 45 54 20 43 4F 4C 4F 55 52 00 13 0B | !<GET COLOUR...| 000002F0: 82 05 49 32 20 43 4D 50 20 24 44 30 31 32 20 20 |..I2 CMP $D012 | 00000300: 20 20 21 3C 41 52 45 20 57 45 20 53 54 49 4C 4C | !<ARE WE STILL| 00000310: 20 4F 4E 00 38 0B 8C 05 42 45 51 20 49 32 20 20 | ON.8...BEQ I2 | 00000320: 20 20 20 20 20 20 20 20 21 20 53 41 4D 45 20 52 | ! SAME R| 00000330: 41 53 20 4C 49 4E 45 3F 00 5E 0B 96 05 53 54 59 |AS LINE?.^...STY| 00000340: 20 24 44 30 32 30 20 20 20 20 20 20 20 21 3C 53 | $D020 !<S| 00000350: 54 4F 52 45 20 43 4F 4C 4F 55 52 20 49 4E 00 84 |TORE COLOUR IN..| 00000360: 0B A0 05 53 54 59 20 24 44 30 32 31 20 20 20 20 |...STY $D021 | 00000370: 20 20 20 21 20 53 43 52 45 45 4E 20 26 20 42 4F | ! SCREEN & BO| 00000380: 52 44 45 52 00 A3 0B AA 05 AF 20 23 24 30 37 20 |RDER...... #$07 | 00000390: 20 20 20 20 20 20 20 21 3C 44 4F 20 54 48 45 20 | !<DO THE | 000003A0: 46 4C 44 00 C0 0B B4 05 B0 41 20 23 24 31 30 20 |FLD......A #$10 | 000003B0: 20 20 20 20 20 20 20 21 20 54 52 49 43 4B 20 21 | ! TRICK !| 000003C0: 00 E4 0B BE 05 53 54 41 20 24 44 30 31 31 20 20 |.....STA $D011 | 000003D0: 20 20 20 20 20 21 3C 41 4E 44 20 53 54 4F 52 45 | !<AND STORE| 000003E0: 20 49 54 2E 00 FA 0B C8 05 49 4E 58 20 20 20 20 | IT......INX | 000003F0: 20 20 20 20 20 20 20 20 20 21 00 1A 0C D2 05 43 | !.....C| 00000400: 50 58 20 23 4D 41 58 20 20 20 20 20 20 20 20 21 |PX #MAX !| 00000410: 3C 46 49 4E 49 53 48 45 44 3F 00 30 0C DC 05 42 |<FINISHED?.0...B| 00000420: 4E 45 20 49 31 20 20 20 20 20 20 20 20 20 20 21 |NE I1 !| 00000430: 00 36 0C E6 05 21 00 56 0C F0 05 4C 44 41 20 23 |.6...!.V...LDA #| 00000440: 31 20 20 20 20 20 20 20 20 20 20 21 3C 52 45 53 |1 !<RES| 00000450: 45 54 20 49 52 51 00 64 0C FA 05 53 54 41 20 24 |ET IRQ.d...STA $| 00000460: 44 30 31 39 00 88 0C 04 06 4A 4D 50 20 24 45 41 |D019.....JMP $EA| 00000470: 33 31 20 20 20 20 20 20 20 21 3C 41 4E 44 20 52 |31 !<AND R| 00000480: 45 54 55 52 4E 2E 2E 2E 00 8E 0C 0E 06 21 00 94 |ETURN........!..| 00000490: 0C 18 06 21 00 B8 0C 22 06 21 20 20 46 4C 44 20 |...!...".! FLD | 000004A0: 53 49 4E 47 4C 45 20 50 49 58 45 4C 20 43 4F 4C |SINGLE PIXEL COL| 000004B0: 4F 55 52 2D 42 41 52 53 00 DC 0C 2C 06 21 20 20 |OUR-BARS...,.! | 000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E2 0C 36 |------------...6| 000004E0: 06 21 00 09 0D 40 06 21 20 2D 54 4F 20 55 53 45 |.!...@.! -TO USE| 000004F0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2C 59 4F | THIS PROGRAM,YO| 00000500: 55 20 48 41 56 45 20 54 4F 00 2F 0D 4A 06 21 20 |U HAVE TO./.J.! | 00000510: 46 49 52 53 54 20 41 53 53 45 4D 42 4C 45 20 49 |FIRST ASSEMBLE I| 00000520: 54 2C 53 54 41 52 54 20 49 54 20 57 49 54 48 00 |T,START IT WITH.| 00000530: 54 0D 54 06 21 20 53 59 53 20 34 39 31 35 32 2C |T.T.! SYS 49152,| 00000540: 41 4E 44 20 54 48 45 4E 20 45 49 54 48 45 52 20 |AND THEN EITHER | 00000550: 50 4F 4B 45 00 79 0D 5E 06 21 20 46 52 4F 4D 20 |POKE.y.^.! FROM | 00000560: 42 41 53 49 43 2C 4F 52 20 55 53 45 20 41 20 4D |BASIC,OR USE A M| 00000570: 4F 4E 49 54 4F 52 20 54 4F 00 9E 0D 68 06 21 20 |ONITOR TO...h.! | 00000580: 50 55 54 20 54 48 45 20 43 4F 4C 4F 55 52 20 56 |PUT THE COLOUR V| 00000590: 41 4C 55 45 53 20 49 4E 54 4F 20 54 48 45 00 C0 |ALUES INTO THE..| 000005A0: 0D 72 06 21 20 54 41 42 4C 45 20 46 52 4F 4D 20 |.r.! TABLE FROM | 000005B0: 24 43 36 30 30 2D 24 43 36 30 30 2B 4D 41 58 2E |$C600-$C600+MAX.| 000005C0: 00 E6 0D 7C 06 21 20 45 47 2E 20 30 20 46 4F 52 |...|.! EG. 0 FOR| 000005D0: 20 42 4C 41 43 4B 2C 31 20 46 4F 52 20 57 48 49 | BLACK,1 FOR WHI| 000005E0: 54 45 20 45 54 43 00 EC 0D 86 06 21 00 0F 0E 90 |TE ETC.....!....| 000005F0: 06 21 20 2D 28 43 29 20 41 4E 44 59 20 50 41 52 |.! -(C) ANDY PAR| 00000600: 54 52 49 44 47 45 20 41 4E 44 20 43 44 55 21 00 |TRIDGE AND CDU!.| 00000610: 15 0E 9A 06 21 00 36 0E A4 06 AC B2 24 43 36 30 |....!.6.....$C60| 00000620: 30 20 21 20 45 58 41 4D 50 4C 45 20 43 4F 4C 4F |0 ! EXAMPLE COLO| 00000630: 55 52 53 2E 2E 2E 00 3C 0E AE 06 21 00 61 0E B8 |URS....<...!.a..| 00000640: 06 42 59 54 20 36 2C 30 2C 36 2C 32 2C 30 2C 36 |.BYT 6,0,6,2,0,6| 00000650: 2C 32 2C 34 2C 30 2C 36 2C 32 2C 34 2C 24 41 2C |,2,4,0,6,2,4,$A,| 00000660: 30 00 83 0E C2 06 42 59 54 20 36 2C 32 2C 34 2C |0.....BYT 6,2,4,| 00000670: 24 41 2C 37 2C 30 2C 36 2C 32 2C 34 2C 24 41 2C |$A,7,0,6,2,4,$A,| 00000680: 37 2C 31 00 A5 0E CC 06 42 59 54 20 37 2C 24 41 |7,1.....BYT 7,$A| 00000690: 2C 34 2C 32 2C 36 2C 30 2C 37 2C 24 41 2C 34 2C |,4,2,6,0,7,$A,4,| 000006A0: 32 2C 36 2C 30 00 CA 0E D6 06 42 59 54 20 24 41 |2,6,0.....BYT $A| 000006B0: 2C 34 2C 32 2C 36 2C 30 2C 34 2C 32 2C 36 2C 30 |,4,2,6,0,4,2,6,0| 000006C0: 2C 32 2C 36 2C 30 2C 36 2C 30 00 D0 0E E0 06 21 |,2,6,0,6,0.....!| 000006D0: 00 F6 0E EA 06 42 59 54 20 30 2C 39 2C 35 2C 35 |.....BYT 0,9,5,5| 000006E0: 2C 35 2C 31 33 2C 30 2C 35 2C 31 33 2C 31 33 2C |,5,13,0,5,13,13,| 000006F0: 31 33 2C 31 2C 30 00 1B 0F F4 06 42 59 54 20 31 |13,1,0.....BYT 1| 00000700: 33 2C 31 2C 31 2C 31 2C 31 33 2C 30 2C 31 2C 31 |3,1,1,1,13,0,1,1| 00000710: 33 2C 31 33 2C 31 33 2C 35 2C 30 00 32 0F FE 06 |3,13,13,5,0.2...| 00000720: 42 59 54 20 31 33 2C 35 2C 35 2C 35 2C 39 2C 30 |BYT 13,5,5,5,9,0| 00000730: 2C 30 00 38 0F 08 07 21 00 5D 0F 12 07 42 59 54 |,0.8...!.]...BYT| 00000740: 20 39 2C 30 2C 39 2C 32 2C 30 2C 39 2C 32 2C 38 | 9,0,9,2,0,9,2,8| 00000750: 2C 30 2C 39 2C 32 2C 38 2C 24 41 2C 30 00 7F 0F |,0,9,2,8,$A,0...| 00000760: 1C 07 42 59 54 20 39 2C 32 2C 38 2C 24 41 2C 37 |..BYT 9,2,8,$A,7| 00000770: 2C 30 2C 39 2C 32 2C 38 2C 24 41 2C 37 2C 31 00 |,0,9,2,8,$A,7,1.| 00000780: A1 0F 26 07 42 59 54 20 37 2C 24 41 2C 38 2C 32 |..&.BYT 7,$A,8,2| 00000790: 2C 39 2C 30 2C 37 2C 24 41 2C 38 2C 32 2C 39 2C |,9,0,7,$A,8,2,9,| 000007A0: 30 00 C6 0F 30 07 42 59 54 20 24 41 2C 38 2C 32 |0...0.BYT $A,8,2| 000007B0: 2C 39 2C 30 2C 38 2C 32 2C 39 2C 30 2C 32 2C 39 |,9,0,8,2,9,0,2,9| 000007C0: 2C 30 2C 39 2C 30 00 00 00 |,0,9,0... |
......! FLD COLOUR BARS.....!...!.'...!.
3.....49152.9...!.T...JSR SETIRQ ! SET I
RQ'S.R.$.RTS ! AND RETURN !.X...!
...8.SETIRQ !...B.SEI...L.LDA #$7F...V.S
TA $DC0D...`.LDA $DC0D.C.J.LDA #$1B.Q.T.
STA $D011...~.LDA #$32 ! <- SET THIS N
UMBER.....STA $D012 ! TO THE FIRST L
INE.=...LDA #.IRQ ! YOU WANT YOUR.C.
..STA $314 ! COLOURS TO START..Q...
LDA #.IRQ.~...STA $315.....LDA #1...D.ST
A $D019...N.STA $D01A...X.LDA $D016.....
. #$F0.L...STA $D016.T...CLI.....RTS....
.!.....MAX.$88 ! MAX.COLOURED LINE
S.1...COLTAB.$C600 !<COLOUR TABLE ADDRES
S.7.(.!.A.2.IRQ !.D.<.LDX #$D !<GET IN
EXACTLY THE...F.D1 DEX ! RIGHT PLACE
TO START!...P.BNE D1...Z.!...D.LDX #0.L
.N.I1 LDA $D012 !<GET RASTER LINE...X
.LDY COLTAB,X !<GET COLOUR.....I2 CMP
$D012 !<ARE WE STILL ON.8...BEQ I2
! SAME RAS LINE?.^...STY $D020
!<STORE COLOUR IN... .STY $D021
! SCREEN & BORDER...... #$07 !
<DO THE FLD......A #$10 ! TRICK !
.....STA $D011 !<AND STORE IT....H
.INX !...R.CPX #MAX !
<FINISHED?.0...BNE I1 !.6...!.V
...LDA #1 !<RESET IRQ.D...STA $
D019.....JMP $EA31 !<AND RETURN...
.....!.....!...".! FLD SINGLE PIXEL COL
OUR-BARS...,.! ------------------------
----...6.!...@.! -TO USE THIS PROGRAM,YO
U HAVE TO./.J.! FIRST ASSEMBLE IT,START
IT WITH.T.T.! SYS 49152,AND THEN EITHER
POKE.Y.^.! FROM BASIC,OR USE A MONITOR T
O...H.! PUT THE COLOUR VALUES INTO THE..
.R.! TABLE FROM $C600-$C600+MAX....|.! E
G. 0 FOR BLACK,1 FOR WHITE ETC.....!....
.! -(C) ANDY PARTRIDGE AND CDU!.....!.6.
....$C600 ! EXAMPLE COLOURS....<...!.A..
.BYT 6,0,6,2,0,6,2,4,0,6,2,4,$A,0...B.BY
T 6,2,4,$A,7,0,6,2,4,$A,7,1...L.BYT 7,$A
,4,2,6,0,7,$A,4,2,6,0.J.V.BYT $A,4,2,6,0
,4,2,6,0,2,6,0,6,0.P...!.....BYT 0,9,5,5
,5,13,0,5,13,13,13,1,0.....BYT 13,1,1,1,
13,0,1,13,13,13,5,0.2...BYT 13,5,5,5,9,0
,0.8...!.]...BYT 9,0,9,2,0,9,2,8,0,9,2,8
,$A,0....BYT 9,2,8,$A,7,0,9,2,8,$A,7,1.
..&.BYT 7,$A,8,2,9,0,7,$A,8,2,9,0.F.0.BY
T $A,8,2,9,0,8,2,9,0,2,9,0,9,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL