_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

3.MAGIC RASTER

FILE INFORMATION

FILENAME(S): 3.MAGIC RASTER

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-12-02 00:14:46

APPEARS ON: 1 disk(s)

FILE HASH

e88a250b1ab7edb5cc7fa368f1c2f25cc57a0980eb683e965b295ae00dbbd9ed

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TRIUMWYRATSPREAD 3.MAGIC RASTER PRG Maestro 25 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 10 BB 42 4F 55 4E 43  49 4E 47 20 52 41 53 54  |...BOUNCING RAST|
00000010: 45 52 20 42 41 4C 4C 53  20 42 59 00 BB 50 45 54  |ER BALLS BY..PET|
00000020: 45 52 20 4B 41 4C 44 49  20 49 4E 20 31 39 38 39  |ER KALDI IN 1989|
00000030: 00 02 00 00 02 00 2A 24  36 30 30 30 00 02 00 D3  |......*$6000....|
00000040: 45 49 00 CC 44 41 20 23  3C 49 52 51 00 D3 54 41  |EI..DA #<IRQ..TA|
00000050: 20 24 33 31 34 00 CC 44  41 20 23 3E 49 52 51 00  | $314..DA #>IRQ.|
00000060: D3 54 41 20 24 33 31 35  00 CC 44 41 20 23 31 00  |.TA $315..DA #1.|
00000070: D3 54 41 20 24 44 30 31  41 00 CC 44 41 20 24 44  |.TA $D01A..DA $D|
00000080: 30 31 31 00 C1 4E 44 20  23 24 37 46 00 D3 54 41  |011..ND #$7F..TA|
00000090: 20 24 44 30 31 31 00 CC  44 41 20 23 31 32 38 00  | $D011..DA #128.|
000000A0: D3 54 41 20 24 44 30 31  32 00 D3 54 41 20 52 41  |.TA $D012..TA RA|
000000B0: 53 54 45 52 00 CC 44 41  20 23 24 37 46 00 D3 54  |STER..DA #$7F..T|
000000C0: 41 20 24 44 43 30 44 00  CC 44 41 20 23 30 00 D3  |A $DC0D..DA #0..|
000000D0: 54 41 20 42 41 4C 4C 44  49 52 2B 31 00 CC 44 41  |TA BALLDIR+1..DA|
000000E0: 20 23 31 00 D3 54 41 20  42 41 4C 4C 50 4C 41 43  | #1..TA BALLPLAC|
000000F0: 45 00 D3 54 41 20 42 41  4C 4C 44 49 52 00 CC 44  |E..TA BALLDIR..D|
00000100: 41 20 23 33 30 00 D3 54  41 20 42 41 4C 4C 50 4C  |A #30..TA BALLPL|
00000110: 41 43 45 2B 31 00 CA 53  52 20 57 4F 52 4B 00 C3  |ACE+1..SR WORK..|
00000120: 4C 49 00 D2 54 53 00 02  00 4D 45 4D 2F 2A 2B 32  |LI..TS...MEM/*+2|
00000130: 35 36 00 02 00 50 45 50  45 2F 00 43 31 3D 20 32  |56...PEPE/.C1= 2|
00000140: 00 43 32 3D 20 31 35 00  43 33 3D 20 39 00 43 34  |.C2= 15.C3= 9.C4|
00000150: 3D 20 34 00 43 35 3D 20  38 00 43 36 3D 20 31 35  |= 4.C5= 8.C6= 15|
00000160: 00 43 37 3D 20 37 00 42  31 3D 20 31 34 00 42 32  |.C7= 7.B1= 14.B2|
00000170: 3D 20 36 00 42 41 4C 4C  50 4C 41 43 45 2F 2E 42  |= 6.BALLPLACE/.B|
00000180: 20 30 2C 30 2C 30 2C 30  2C 30 2C 30 00 42 41 4C  | 0,0,0,0,0,0.BAL|
00000190: 4C 44 49 52 2F 2E 42 20  30 2C 30 2C 30 2C 30 2C  |LDIR/.B 0,0,0,0,|
000001A0: 30 2C 30 00 52 41 53 54  45 52 2F 2E 42 20 30 00  |0,0.RASTER/.B 0.|
000001B0: 48 45 4C 50 2F 2E 42 20  30 2C 30 2C 30 2C 30 2C  |HELP/.B 0,0,0,0,|
000001C0: 30 00 42 4F 43 49 2F 2E  42 20 30 00 02 00 4C 49  |0.BOCI/.B 0...LI|
000001D0: 4E 45 53 2F 00 2E 42 20  30 00 2E 42 20 43 31 2C  |NES/..B 0..B C1,|
000001E0: 43 31 2C 43 32 2C 43 31  2C 43 32 2C 43 37 2C 43  |C1,C2,C1,C2,C7,C|
000001F0: 32 2C 43 31 2C 43 32 2C  43 31 2C 43 31 00 2E 42  |2,C1,C2,C1,C1..B|
00000200: 20 43 33 2C 43 33 2C 43  34 2C 43 33 2C 43 34 2C  | C3,C3,C4,C3,C4,|
00000210: 43 37 2C 43 34 2C 43 33  2C 43 34 2C 43 33 2C 43  |C7,C4,C3,C4,C3,C|
00000220: 33 00 2E 42 20 43 35 2C  43 35 2C 43 36 2C 43 35  |3..B C5,C5,C6,C5|
00000230: 2C 43 36 2C 43 37 2C 43  36 2C 43 35 2C 43 36 2C  |,C6,C7,C6,C5,C6,|
00000240: 43 35 2C 43 35 2C 32 30  30 00 02 00 49 52 51 2F  |C5,C5,200...IRQ/|
00000250: 00 CC 44 59 20 23 31 32  00 D3 54 59 20 42 4F 43  |..DY #12..TY BOC|
00000260: 49 00 CE 4F 50 00 CE 4F  50 00 C5 4F 52 20 24 46  |I..OP..OP..OR $F|
00000270: 46 00 CC 44 58 20 23 30  00 4C 4F 4F 50 2F 00 C9  |F..DX #0.LOOP/..|
00000280: 4E 58 00 CC 44 41 20 4D  45 4D 2C 58 00 D3 54 41  |NX..DA MEM,X..TA|
00000290: 20 35 33 32 38 30 00 D3  54 41 20 35 33 32 38 31  | 53280..TA 53281|
000002A0: 00 CA 53 52 20 53 00 C9  4E 58 00 CC 44 41 20 4D  |..SR S..NX..DA M|
000002B0: 45 4D 2C 58 00 D3 54 41  20 35 33 32 38 30 00 D3  |EM,X..TA 53280..|
000002C0: 54 41 20 35 33 32 38 31  00 CA 53 52 20 53 00 C9  |TA 53281..SR S..|
000002D0: 4E 58 00 CC 44 41 20 4D  45 4D 2C 58 00 D3 54 41  |NX..DA MEM,X..TA|
000002E0: 20 35 33 32 38 30 00 D3  54 41 20 35 33 32 38 31  | 53280..TA 53281|
000002F0: 00 C5 4F 52 20 24 46 46  00 CE 4F 50 00 C9 4E 58  |..OR $FF..OP..NX|
00000300: 00 CC 44 41 20 4D 45 4D  2C 58 00 D3 54 41 20 35  |..DA MEM,X..TA 5|
00000310: 33 32 38 30 00 D3 54 41  20 35 33 32 38 31 00 CA  |3280..TA 53281..|
00000320: 53 52 20 53 00 C9 4E 58  00 CC 44 41 20 4D 45 4D  |SR S..NX..DA MEM|
00000330: 2C 58 00 D3 54 41 20 35  33 32 38 30 00 D3 54 41  |,X..TA 53280..TA|
00000340: 20 35 33 32 38 31 00 CA  53 52 20 53 00 C9 4E 58  | 53281..SR S..NX|
00000350: 00 CC 44 41 20 4D 45 4D  2C 58 00 D3 54 41 20 35  |..DA MEM,X..TA 5|
00000360: 33 32 38 30 00 D3 54 41  20 35 33 32 38 31 00 CA  |3280..TA 53281..|
00000370: 53 52 20 53 00 C9 4E 58  00 CC 44 41 20 4D 45 4D  |SR S..NX..DA MEM|
00000380: 2C 58 00 D3 54 41 20 35  33 32 38 30 00 D3 54 41  |,X..TA 53280..TA|
00000390: 20 35 33 32 38 31 00 CA  53 52 20 53 00 C9 4E 58  | 53281..SR S..NX|
000003A0: 00 CC 44 41 20 4D 45 4D  2C 58 00 D3 54 41 20 35  |..DA MEM,X..TA 5|
000003B0: 33 32 38 30 00 D3 54 41  20 35 33 32 38 31 00 CC  |3280..TA 53281..|
000003C0: 44 59 20 23 34 00 CA 53  52 20 43 30 00 C4 45 43  |DY #4..SR C0..EC|
000003D0: 20 42 4F 43 49 00 CE 4F  50 00 C2 4E 45 20 4C 4F  | BOCI..OP..NE LO|
000003E0: 4F 50 00 CE 4F 50 00 CE  4F 50 00 CE 4F 50 00 CC  |OP..OP..OP..OP..|
000003F0: 44 41 20 23 31 35 00 D3  54 41 20 35 33 32 38 30  |DA #15..TA 53280|
00000400: 00 D3 54 41 20 35 33 32  38 31 00 CA 53 52 20 57  |..TA 53281..SR W|
00000410: 4F 52 4B 00 CA 53 52 20  41 4C 4C 57 4F 52 4B 00  |ORK..SR ALLWORK.|
00000420: CC 44 58 20 23 31 00 4C  50 35 2F 00 CC 44 41 20  |.DX #1.LP5/..DA |
00000430: 42 41 4C 4C 50 4C 41 43  45 2C 58 00 D3 42 43 20  |BALLPLACE,X..BC |
00000440: 23 34 30 00 C2 50 4C 20  44 4F 44 4F 00 C5 4F 52  |#40..PL DODO..OR|
00000450: 20 23 32 35 35 00 44 4F  44 4F 2F 00 D3 54 41 20  | #255.DODO/..TA |
00000460: 48 45 4C 50 2B 31 00 CC  44 41 20 23 34 37 00 D3  |HELP+1..DA #47..|
00000470: 42 43 20 48 45 4C 50 2B  31 00 00 CC 53 52 00 CC  |BC HELP+1...SR..|
00000480: 53 52 00 CC 53 52 00 CC  53 52 00 C3 4C 43 00 C1  |SR..SR..SR..LC..|
00000490: 44 43 20 23 31 00 D3 54  41 20 48 45 4C 50 2B 31  |DC #1..TA HELP+1|
000004A0: 00 52 45 50 45 41 54 2F  00 CA 53 52 20 4D 4F 56  |.REPEAT/..SR MOV|
000004B0: 45 00 C4 45 43 20 48 45  4C 50 2B 31 00 C2 4E 45  |E..EC HELP+1..NE|
000004C0: 20 52 45 50 45 41 54 00  C4 45 58 00 C2 50 4C 20  | REPEAT..EX..PL |
000004D0: 4C 50 35 00 00 CA 53 52  20 52 4F 4C 4C 00 C9 4E  |LP5...SR ROLL..N|
000004E0: 43 20 24 44 30 31 39 00  CA 4D 50 20 24 45 41 33  |C $D019..MP $EA3|
000004F0: 31 00 02 00 53 2F 00 CC  44 59 20 23 36 00 43 30  |1...S/..DY #6.C0|
00000500: 2F 00 C4 45 59 00 C2 4E  45 20 43 30 00 CE 4F 50  |/..EY..NE C0..OP|
00000510: 00 CE 4F 50 00 CE 4F 50  00 D2 54 53 00 4D 2F 00  |..OP..OP..TS.M/.|
00000520: D2 54 53 00 02 00 42 41  4C 4C 2F 00 2E 42 20 42  |.TS...BALL/..B B|
00000530: 31 2C 42 31 2C 42 31 2C  42 32 2C 42 31 2C 42 32  |1,B1,B1,B2,B1,B2|
00000540: 2C 42 32 2C 43 37 2C 42  32 00 2E 42 20 43 37 2C  |,B2,C7,B2..B C7,|
00000550: 42 32 2C 42 32 2C 42 31  2C 42 32 2C 42 31 2C 42  |B2,B2,B1,B2,B1,B|
00000560: 31 2C 42 31 2C 32 30 30  00 02 00 57 4F 52 4B 2F  |1,B1,200...WORK/|
00000570: 00 CC 44 58 20 23 33 33  00 4C 50 31 2F 00 CC 44  |..DX #33.LP1/..D|
00000580: 41 20 4C 49 4E 45 53 2B  31 2C 58 00 D3 54 41 20  |A LINES+1,X..TA |
00000590: 4D 45 4D 2C 58 00 D3 54  41 20 4D 45 4D 2B 33 33  |MEM,X..TA MEM+33|
000005A0: 2C 58 00 D3 54 41 20 4D  45 4D 2B 36 36 2C 58 00  |,X..TA MEM+66,X.|
000005B0: C4 45 58 00 C2 50 4C 20  4C 50 31 00 D2 54 53 00  |.EX..PL LP1..TS.|
000005C0: 02 00 49 4E 53 45 52 54  2F 00 CC 44 58 20 23 30  |..INSERT/..DX #0|
000005D0: 00 4C 50 32 2F 00 CC 44  41 20 42 41 4C 4C 2C 58  |.LP2/..DA BALL,X|
000005E0: 00 C2 4D 49 20 4B 31 00  D3 54 41 20 4D 45 4D 2C  |..MI K1..TA MEM,|
000005F0: 59 00 C9 4E 58 00 C9 4E  59 00 C2 4E 45 20 4C 50  |Y..NX..NY..NE LP|
00000600: 32 00 4B 31 2F 00 D2 54  53 00 02 00 4D 4F 56 45  |2.K1/..TS...MOVE|
00000610: 2F 00 CC 44 59 20 42 41  4C 4C 50 4C 41 43 45 2C  |/..DY BALLPLACE,|
00000620: 58 00 CC 44 41 20 42 41  4C 4C 44 49 52 2C 58 00  |X..DA BALLDIR,X.|
00000630: C2 45 51 20 46 45 4C 00  C9 4E 43 20 42 41 4C 4C  |.EQ FEL..NC BALL|
00000640: 50 4C 41 43 45 2C 58 00  C3 50 59 20 23 38 31 00  |PLACE,X..PY #81.|
00000650: C2 4E 45 20 4B 32 00 C4  45 43 20 42 41 4C 4C 44  |.NE K2..EC BALLD|
00000660: 49 52 2C 58 00 CA 4D 50  20 4B 32 00 46 45 4C 2F  |IR,X..MP K2.FEL/|
00000670: 00 C4 45 43 20 42 41 4C  4C 50 4C 41 43 45 2C 58  |..EC BALLPLACE,X|
00000680: 00 C3 50 59 20 23 31 00  C2 4E 45 20 4B 32 00 C9  |..PY #1..NE K2..|
00000690: 4E 43 20 42 41 4C 4C 44  49 52 2C 58 00 4B 32 2F  |NC BALLDIR,X.K2/|
000006A0: 00 D2 54 53 00 02 00 41  4C 4C 57 4F 52 4B 2F 00  |..TS...ALLWORK/.|
000006B0: CC 44 58 20 23 31 00 D3  54 58 20 48 45 4C 50 00  |.DX #1..TX HELP.|
000006C0: 4C 50 33 2F 00 CC 44 59  20 42 41 4C 4C 50 4C 41  |LP3/..DY BALLPLA|
000006D0: 43 45 2C 58 00 CA 53 52  20 49 4E 53 45 52 54 00  |CE,X..SR INSERT.|
000006E0: C4 45 43 20 48 45 4C 50  00 CC 44 58 20 48 45 4C  |.EC HELP..DX HEL|
000006F0: 50 00 C2 50 4C 20 4C 50  33 00 D2 54 53 00 02 00  |P..PL LP3..TS...|
00000700: 52 4F 4C 4C 2F 00 CC 44  58 20 23 33 33 00 CC 44  |ROLL/..DX #33..D|
00000710: 59 20 4C 49 4E 45 53 2C  58 00 C4 45 58 00 4B 49  |Y LINES,X..EX.KI|
00000720: 4C 4C 2F 00 CC 44 41 20  4C 49 4E 45 53 2C 58 00  |LL/..DA LINES,X.|
00000730: D3 54 41 20 4C 49 4E 45  53 2B 31 2C 58 00 C4 45  |.TA LINES+1,X..E|
00000740: 58 00 C2 4E 45 20 4B 49  4C 4C 00 D3 54 59 20 4C  |X..NE KILL..TY L|
00000750: 49 4E 45 53 2B 31 00 D2  54 53 00 02 00 5D 2E 24  |INES+1..TS...].$|
00000760: 38 30 30 30 00 01                                 |8000..          |

...BOUNCING RASTER BALLS BY..PETER KALDI
 IN 1989......*$6000...SEI.LDA #<IRQ.STA
 $314.LDA #>IRQ.STA $315.LDA #1.STA $D01
A.LDA $D011.AND #$7F.STA $D011.LDA #128.
STA $D012.STA RASTER.LDA #$7F.STA $DC0D.
LDA #0.STA BALLDIR+1.LDA #1.STA BALLPLAC
E.STA BALLDIR.LDA #30.STA BALLPLACE+1.JS
R WORK.CLI.RTS...MEM/*+256...PEPE/.C1= 2
.C2= 15.C3= 9.C4= 4.C5= 8.C6= 15.C7= 7.B
1= 14.B2= 6.BALLPLACE/.B 0,0,0,0,0,0.BAL
LDIR/.B 0,0,0,0,0,0.RASTER/.B 0.HELP/.B 
0,0,0,0,0.BOCI/.B 0...LINES/..B 0..B C1,
C1,C2,C1,C2,C7,C2,C1,C2,C1,C1..B C3,C3,C
4,C3,C4,C7,C4,C3,C4,C3,C3..B C5,C5,C6,C5
,C6,C7,C6,C5,C6,C5,C5,200...IRQ/.LDY #12
.STY BOCI.NOP.NOP.EOR $FF.LDX #0.LOOP/.I
NX.LDA MEM,X.STA 53280.STA 53281.JSR S.I
NX.LDA MEM,X.STA 53280.STA 53281.JSR S.I
NX.LDA MEM,X.STA 53280.STA 53281.EOR $FF
.NOP.INX.LDA MEM,X.STA 53280.STA 53281.J
SR S.INX.LDA MEM,X.STA 53280.STA 53281.J
SR S.INX.LDA MEM,X.STA 53280.STA 53281.J
SR S.INX.LDA MEM,X.STA 53280.STA 53281.J
SR S.INX.LDA MEM,X.STA 53280.STA 53281.L
DY #4.JSR C0.DEC BOCI.NOP.BNE LOOP.NOP.N
OP.NOP.LDA #15.STA 53280.STA 53281.JSR W
ORK.JSR ALLWORK.LDX #1.LP5/.LDA BALLPLAC
E,X.SBC #40.BPL DODO.EOR #255.DODO/.STA 
HELP+1.LDA #47.SBC HELP+1..LSR.LSR.LSR.L
SR.CLC.ADC #1.STA HELP+1.REPEAT/.JSR MOV
E.DEC HELP+1.BNE REPEAT.DEX.BPL LP5..JSR
 ROLL.INC $D019.JMP $EA31...S/.LDY #6.C0
/.DEY.BNE C0.NOP.NOP.NOP.RTS.M/.RTS...BA
LL/..B B1,B1,B1,B2,B1,B2,B2,C7,B2..B C7,
B2,B2,B1,B2,B1,B1,B1,200...WORK/.LDX #33
.LP1/.LDA LINES+1,X.STA MEM,X.STA MEM+33
,X.STA MEM+66,X.DEX.BPL LP1.RTS...INSERT
/.LDX #0.LP2/.LDA BALL,X.BMI K1.STA MEM,
Y.INX.INY.BNE LP2.K1/.RTS...MOVE/.LDY BA
LLPLACE,X.LDA BALLDIR,X.BEQ FEL.INC BALL
PLACE,X.CPY #81.BNE K2.DEC BALLDIR,X.JMP
 K2.FEL/.DEC BALLPLACE,X.CPY #1.BNE K2.I
NC BALLDIR,X.K2/.RTS...ALLWORK/.LDX #1.S
TX HELP.LP3/.LDY BALLPLACE,X.JSR INSERT.
DEC HELP.LDX HELP.BPL LP3.RTS...ROLL/.LD
X #33.LDY LINES,X.DEX.KILL/.LDA LINES,X.
STA LINES+1,X.DEX.BNE KILL.STY LINES+1.R
TS...].$8000..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL