00000000: 01 04 26 04 01 00 8F 20 47 52 41 50 48 49 43 53 |..&.... GRAPHICS|
00000010: 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 50 | DEMONSTRATION P|
00000020: 52 4F 47 52 41 4D 00 4D 04 02 00 8F 20 46 4F 52 |ROGRAM.M.... FOR|
00000030: 20 41 44 56 41 4E 43 45 44 20 42 49 54 20 4D 41 | ADVANCED BIT MA|
00000040: 50 50 45 44 20 47 52 41 50 48 49 43 53 00 74 04 |PPED GRAPHICS.t.|
00000050: 03 00 8F 20 46 4F 52 20 54 48 45 20 43 4F 4D 4D |... FOR THE COMM|
00000060: 4F 44 4F 52 45 2D 36 34 20 55 53 49 4E 47 20 48 |ODORE-64 USING H|
00000070: 52 53 50 50 00 98 04 04 00 8F 20 43 4F 4D 4D 4F |RSPP...... COMMO|
00000080: 44 4F 52 45 2C 20 56 4F 4C 20 34 2C 20 23 34 2C |DORE, VOL 4, #4,|
00000090: 20 50 41 47 45 20 37 38 00 AE 04 05 00 8F 20 42 | PAGE 78...... B|
000000A0: 59 20 46 52 41 4E 4B 20 43 4F 56 49 54 5A 00 CD |Y FRANK COVITZ..|
000000B0: 04 06 00 8F 20 43 4F 50 49 45 44 20 42 59 20 4C |.... COPIED BY L|
000000C0: 41 57 52 45 4E 43 45 20 57 41 4C 45 53 00 F4 04 |AWRENCE WALES...|
000000D0: 0A 00 8F 20 49 46 20 41 3D 30 20 54 48 45 4E 20 |... IF A=0 THEN |
000000E0: 41 3D 31 3A 4C 4F 41 44 22 48 52 53 55 50 50 22 |A=1:LOAD"HRSUPP"|
000000F0: 2C 38 2C 31 00 11 05 14 00 42 41 B2 36 AC 31 36 |,8,1.....BA.6.16|
00000100: AE 33 3A 8F 20 42 41 53 45 20 41 44 44 52 45 53 |.3:. BASE ADDRES|
00000110: 53 00 1B 05 1E 00 49 4E B2 42 41 00 27 05 28 00 |S.....IN.BA.'.(.|
00000120: 52 53 B2 42 41 AA 33 00 33 05 32 00 43 4C B2 42 |RS.BA.3.3.2.CL.B|
00000130: 41 AA 36 00 3F 05 3C 00 44 52 B2 42 41 AA 39 00 |A.6.?.<.DR.BA.9.|
00000140: 4C 05 46 00 50 58 B2 42 41 AA 31 32 00 59 05 50 |L.F.PX.BA.12.Y.P|
00000150: 00 4D 56 B2 42 41 AA 31 35 00 63 05 5A 00 9E 28 |.MV.BA.15.c.Z..(|
00000160: 49 4E 29 00 85 05 64 00 53 B2 33 3A 9E 28 4D 56 |IN)...d.S.3:.(MV|
00000170: 29 2C 53 2C 53 3A 81 20 49 B2 53 20 A4 20 31 39 |),S,S:. I.S . 19|
00000180: 35 20 A9 20 53 00 A2 05 6E 00 58 31 B2 53 3A 59 |5 . S...n.X1.S:Y|
00000190: 31 B2 58 31 3A 58 32 B2 58 31 3A 59 32 B2 59 31 |1.X1:X2.X1:Y2.Y1|
000001A0: AA 49 00 C2 05 78 00 58 33 B2 58 32 AA 49 3A 59 |.I...x.X3.X2.I:Y|
000001B0: 33 B2 59 32 3A 58 34 B2 58 33 3A 59 34 B2 59 33 |3.Y2:X4.X3:Y4.Y3|
000001C0: AB 49 00 D1 05 82 00 9E 44 52 2C 58 32 2C 31 39 |.I......DR,X2,19|
000001D0: 38 00 DF 05 8C 00 9E 44 52 2C 58 33 2C 59 33 00 |8......DR,X3,Y3.|
000001E0: ED 05 96 00 9E 44 52 2C 58 34 2C 59 34 00 FB 05 |.....DR,X4,Y4...|
000001F0: A0 00 9E 44 52 2C 58 31 2C 59 31 00 03 06 AA 00 |...DR,X1,Y1.....|
00000200: 82 20 49 00 1C 06 B4 00 A1 20 41 24 3A 8B 20 41 |. I...... A$:. A|
00000210: 24 B3 B1 22 43 22 20 A7 20 31 38 30 00 3F 06 C8 |$.."C" . 180.?..|
00000220: 00 52 B2 38 30 3A 58 43 B2 31 36 30 3A 59 43 B2 |.R.80:XC.160:YC.|
00000230: 31 30 30 3A 41 B2 FF AD 31 38 30 3A 53 B2 35 00 |100:A...180:S.5.|
00000240: 49 06 D2 00 9E 28 43 4C 29 00 66 06 DC 00 81 20 |I....(CL).f.... |
00000250: 41 4E 20 B2 20 30 20 A4 20 FF AD 31 2E 39 39 20 |AN . 0 . ..1.99 |
00000260: A9 20 FF AD 32 30 00 84 06 E6 00 9E 4D 56 2C 58 |. ..20......MV,X|
00000270: 43 AA 52 AC BF 28 41 4E 29 2C 59 43 AA 52 AC BF |C.R..(AN),YC.R..|
00000280: 28 41 4E 29 00 98 06 F0 00 81 20 49 B2 53 20 A4 |(AN)...... I.S .|
00000290: 20 33 36 30 20 A9 20 53 00 C0 06 FA 00 9E 44 52 | 360 . S......DR|
000002A0: 2C 58 43 AA 52 AC BF 28 32 AC 49 AC 41 AA 41 4E |,XC.R..(2.I.A.AN|
000002B0: 29 2C 59 43 AA 52 AC BF 28 49 AC 41 AA 41 4E 29 |),YC.R..(I.A.AN)|
000002C0: 00 CB 06 04 01 82 20 49 2C 41 4E 00 E4 06 0E 01 |...... I,AN.....|
000002D0: A1 20 41 24 3A 8B 20 41 24 B3 B1 22 43 22 20 A7 |. A$:. A$.."C" .|
000002E0: 20 32 37 30 00 EE 06 2C 01 9E 28 43 4C 29 00 04 | 270...,..(CL)..|
000002F0: 07 36 01 44 B2 34 3A 45 B2 32 3A 58 B2 58 43 3A |.6.D.4:E.2:X.XC:|
00000300: 59 B2 59 43 00 10 07 40 01 9E 4D 56 2C 58 2C 59 |Y.YC...@..MV,X,Y|
00000310: 00 1F 07 4A 01 81 20 49 B2 30 20 A4 20 32 30 00 |...J.. I.0 . 20.|
00000320: 37 07 54 01 44 B2 44 AA 45 3A 59 B2 59 AA 44 3A |7.T.D.D.E:Y.Y.D:|
00000330: 9E 44 52 2C 58 2C 59 00 4F 07 5E 01 44 B2 44 AA |.DR,X,Y.O.^.D.D.|
00000340: 45 3A 58 B2 58 AA 44 3A 9E 44 52 2C 58 2C 59 00 |E:X.X.D:.DR,X,Y.|
00000350: 67 07 68 01 44 B2 44 AA 45 3A 59 B2 59 AB 44 3A |g.h.D.D.E:Y.Y.D:|
00000360: 9E 44 52 2C 58 2C 59 00 7F 07 72 01 44 B2 44 AA |.DR,X,Y...r.D.D.|
00000370: 45 3A 58 B2 58 AB 44 3A 9E 44 52 2C 58 2C 59 00 |E:X.X.D:.DR,X,Y.|
00000380: 87 07 7C 01 82 20 49 00 A0 07 86 01 A1 20 41 24 |..|.. I...... A$|
00000390: 3A 8B 20 41 24 B3 B1 22 43 22 20 A7 20 33 39 30 |:. A$.."C" . 390|
000003A0: 00 AE 07 90 01 9E 43 4C 3A 53 B2 FF AD 33 00 C2 |......CL:S...3..|
000003B0: 07 9A 01 81 20 54 B2 30 20 A4 20 53 20 A9 20 53 |.... T.0 . S . S|
000003C0: AD 38 00 DE 07 A4 01 9E 4D 56 2C 58 43 AA 52 AC |.8......MV,XC.R.|
000003D0: BE 28 54 29 2C 59 43 AA 52 AC BF 28 54 29 00 F2 |.(T),YC.R..(T)..|
000003E0: 07 AE 01 81 20 49 B2 53 20 A4 20 32 AC FF 20 A9 |.... I.S . 2.. .|
000003F0: 20 53 00 12 08 B8 01 9E 44 52 2C 58 43 AA 52 AC | S......DR,XC.R.|
00000400: BE 28 49 AA 54 29 2C 59 43 AA 52 AC BF 28 49 AA |.(I.T),YC.R..(I.|
00000410: 54 29 00 1C 08 C2 01 82 20 49 2C 54 00 35 08 CC |T)...... I,T.5..|
00000420: 01 A1 20 41 24 3A 8B 20 41 24 B3 B1 22 43 22 20 |.. A$:. A$.."C" |
00000430: A7 20 34 36 30 00 4A 08 F4 01 9E 43 4C 3A 53 B2 |. 460.J....CL:S.|
00000440: FF AD 34 3A 44 B2 52 AD 32 30 00 5F 08 FE 01 81 |..4:D.R.20._....|
00000450: 20 54 B2 30 20 A4 20 53 20 A9 20 53 AD 32 30 00 | T.0 . S . S.20.|
00000460: 7B 08 08 02 9E 4D 56 2C 58 43 AA 52 AC BE 28 54 |{....MV,XC.R..(T|
00000470: 29 2C 59 43 AA 52 AC BF 28 54 29 00 8F 08 12 02 |),YC.R..(T).....|
00000480: 81 20 49 B2 53 20 A4 20 32 AC FF 20 A9 20 53 00 |. I.S . 2.. . S.|
00000490: AF 08 1C 02 9E 44 52 2C 58 43 AA 52 AC BE 28 49 |.....DR,XC.R..(I|
000004A0: AA 54 29 2C 59 43 AA 52 AC BF 28 49 AA 54 29 00 |.T),YC.R..(I.T).|
000004B0: B7 08 26 02 82 20 49 00 C5 08 30 02 52 B2 52 AB |..&.. I...0.R.R.|
000004C0: 44 3A 82 20 54 00 DE 08 44 02 A1 20 41 24 3A 8B |D:. T...D.. A$:.|
000004D0: 20 41 24 B3 B1 22 43 22 20 A7 20 35 38 30 00 F8 | A$.."C" . 580..|
000004E0: 08 58 02 9E 43 4C 3A 52 B2 38 30 3A 53 B2 FF AD |.X..CL:R.80:S...|
000004F0: 38 3A 44 B2 52 AD 32 30 00 0D 09 62 02 81 20 54 |8:D.R.20...b.. T|
00000500: B2 30 20 A4 20 53 20 A9 20 53 AD 34 30 00 29 09 |.0 . S . S.40.).|
00000510: 6C 02 9E 50 58 2C 58 43 AA 52 AC BE 28 54 29 2C |l..PX,XC.R..(T),|
00000520: 59 43 AA 52 AC BF 28 54 29 00 3D 09 76 02 81 20 |YC.R..(T).=.v.. |
00000530: 49 B2 53 20 A4 20 32 AC FF 20 A9 20 53 00 5D 09 |I.S . 2.. . S.].|
00000540: 80 02 9E 50 58 2C 58 43 AA 52 AC BE 28 49 AA 54 |...PX,XC.R..(I.T|
00000550: 29 2C 59 43 AA 52 AC BF 28 49 AA 54 29 00 65 09 |),YC.R..(I.T).e.|
00000560: 8A 02 82 20 49 00 73 09 94 02 52 B2 52 AB 44 3A |... I.s...R.R.D:|
00000570: 82 20 54 00 8C 09 A8 02 A1 20 41 24 3A 8B 20 41 |. T...... A$:. A|
00000580: 24 B3 B1 22 43 22 20 A7 20 36 38 30 00 A8 09 BC |$.."C" . 680....|
00000590: 02 9E 43 4C 3A 52 B2 38 30 3A 53 B2 32 AC FF AD |..CL:R.80:S.2...|
000005A0: 35 3A 41 B2 FF AD 31 30 00 B6 09 C6 02 81 20 49 |5:A...10...... I|
000005B0: B2 30 20 A4 20 34 00 C2 09 D0 02 54 B2 41 AA 49 |.0 . 4.....T.A.I|
000005C0: AC 53 00 E4 09 DA 02 58 28 49 29 B2 58 43 AA 52 |.S.....X(I).XC.R|
000005D0: AC BE 28 54 29 3A 59 28 49 29 B2 59 43 AA 52 AC |..(T):Y(I).YC.R.|
000005E0: BF 28 54 29 00 EC 09 E4 02 82 20 49 00 FE 09 EE |.(T)...... I....|
000005F0: 02 9E 4D 56 2C 58 28 30 29 2C 59 28 30 29 00 1E |..MV,X(0),Y(0)..|
00000600: 0A F8 02 9E 44 52 2C 58 28 32 29 2C 59 28 32 29 |....DR,X(2),Y(2)|
00000610: 3A 9E 44 52 2C 58 28 34 29 2C 59 28 34 29 00 3E |:.DR,X(4),Y(4).>|
00000620: 0A 02 03 9E 44 52 2C 58 28 31 29 2C 59 28 31 29 |....DR,X(1),Y(1)|
00000630: 3A 9E 44 52 2C 58 28 33 29 2C 59 28 33 29 00 50 |:.DR,X(3),Y(3).P|
00000640: 0A 0C 03 9E 44 52 2C 58 28 30 29 2C 59 28 30 29 |....DR,X(0),Y(0)|
00000650: 00 69 0A 16 03 A1 20 41 24 3A 8B 20 41 24 B3 B1 |.i.... A$:. A$..|
00000660: 22 43 22 20 A7 20 37 39 30 00 8B 0A 20 03 9E 43 |"C" . 790... ..C|
00000670: 4C 3A 41 B2 31 36 30 3A 42 B2 41 AD 32 3A 9E 4D |L:A.160:B.A.2:.M|
00000680: 56 2C 30 2C 41 AC BD 28 AB 34 29 00 A1 0A 2A 03 |V,0,A..(.4)...*.|
00000690: 81 20 58 B2 34 20 A4 20 32 AC 41 AB 31 20 A9 20 |. X.4 . 2.A.1 . |
000006A0: 34 00 BD 0A 34 03 9E 44 52 2C 58 2C 41 AC BD 28 |4...4..DR,X,A..(|
000006B0: AB 28 28 58 AB 41 29 AD 42 29 AE 32 29 00 C5 0A |.((X.A).B).2)...|
000006C0: 3E 03 82 20 58 00 DE 0A 70 03 A1 20 41 24 3A 8B |>.. X...p.. A$:.|
000006D0: 20 41 24 B3 B1 22 43 22 20 A7 20 38 38 30 00 E8 | A$.."C" . 880..|
000006E0: 0A 0F 27 9E 28 52 53 29 00 00 00 |..'.(RS)... |
..&.... GRAPHICS DEMONSTRATION PROGRAM.M
.... FOR ADVANCED BIT MAPPED GRAPHICS.T.
... FOR THE COMMODORE-64 USING HRSPP....
.. COMMODORE, VOL 4, #4, PAGE 78...... B
Y FRANK COVITZ.M.... COPIED BY LAWRENCE
WALES...... IF A=0 THEN A=1:LOAD"HRSUPP"
,8,1.....BA.6.16.3:. BASE ADDRESS.....IN
.BA.'.(.RS.BA.3.3.2.CL.BA.6.?.<.DR.BA.9.
L.F.PX.BA.12.Y.P.MV.BA.15.C.Z..(IN)...D.
S.3:.(MV),S,S:. I.S . 195 . S...N.X1.S:Y
1.X1:X2.X1:Y2.Y1.I.B.X.X3.X2.I:Y3.Y2:X4.
X3:Y4.Y3.I.Q....DR,X2,198......DR,X3,Y3.
.....DR,X4,Y4... ..DR,X1,Y1...... I.....
. A$:. A$.."C" . 180.?.H.R.80:XC.160:YC.
100:A...180:S.5.I.R..(CL).F.... AN . 0 .
..1.99 . ..20......MV,XC.R..(AN),YC.R..
(AN)...... I.S . 360 . S......DR,XC.R..(
2.I.A.AN),YC.R..(I.A.AN).K.... I,AN.....
. A$:. A$.."C" . 270...,..(CL)...6.D.4:E
.2:X.XC:Y.YC...@..MV,X,Y...J.. I.0 . 20.
7.T.D.D.E:Y.Y.D:.DR,X,Y.O.^.D.D.E:X.X.D:
.DR,X,Y.G.H.D.D.E:Y.Y.D:.DR,X,Y..R.D.D.
E:X.X.D:.DR,X,Y...|.. I. .... A$:. A$.."
C" . 390......CL:S...3.B.... T.0 . S . S
.8......MV,XC.R..(T),YC.R..(T)...... I.S
. 2.. . S......DR,XC.R..(I.T),YC.R..(I.
T)...B.. I,T.5.L.. A$:. A$.."C" . 460.J.
...CL:S...4:D.R.20._.... T.0 . S . S.20.
{....MV,XC.R..(T),YC.R..(T)...... I.S .
2.. . S......DR,XC.R..(I.T),YC.R..(I.T).
..&.. I.E.0.R.R.D:. T...D.. A$:. A$.."C"
. 580...X..CL:R.80:S...8:D.R.20...B.. T
.0 . S . S.40.).L..PX,XC.R..(T),YC.R..(T
).=.V.. I.S . 2.. . S.]....PX,XC.R..(I.T
),YC.R..(I.T).E.... I.S...R.R.D:. T.....
. A$:. A$.."C" . 680......CL:R.80:S.2...
5:A...10...F.. I.0 . 4.B.P.T.A.I.S...Z.X
(I).XC.R..(T):Y(I).YC.R..(T)...... I....
..MV,X(0),Y(0)......DR,X(2),Y(2):.DR,X(4
),Y(4).>....DR,X(1),Y(1):.DR,X(3),Y(3).P
....DR,X(0),Y(0).I.... A$:. A$.."C" . 79
0... ..CL:A.160:B.A.2:.MV,0,A..(.4)...*.
. X.4 . 2.A.1 . 4...4..DR,X,A..(.((X.A).
B).2).E.>.. X...P.. A$:. A$.."C" . 880..
..'.(RS)...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL