RASTERS3
FILE INFORMATION
FILENAME(S): RASTERS3
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 16:09:44
APPEARS ON: 2 disk(s)
FILE HASH
84fb919aa95ec86eb9a3b2466615c529ba69dd131cc2dc76952989ab923251a3
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU NOVEMBER 89 | RASTERS3 | PRG | BrainSkull, Sammlung, UK CD | 32 | 5 | DOWNLOAD FILE |
| CDU NOVEMBER 89 | RASTERS3 | PRG | BrainSkull, Sammlung | 32 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 E8 03 21 20 46 4C 44 20 4C 49 4E 45 |......! FLD LINE|
00000010: 20 42 4F 55 4E 43 45 00 2F 08 F2 03 21 20 42 59 | BOUNCE./...! BY|
00000020: 20 41 4E 44 59 20 50 41 52 54 52 49 44 47 45 00 | ANDY PARTRIDGE.|
00000030: 56 08 FC 03 21 20 43 52 45 44 49 54 20 4D 45 20 |V...! CREDIT ME |
00000040: 49 46 20 59 4F 55 20 55 53 45 20 49 54 2D 4F 52 |IF YOU USE IT-OR|
00000050: 20 45 4C 53 45 21 00 5C 08 06 04 21 00 62 08 10 | ELSE!.\...!.b..|
00000060: 04 21 00 6E 08 1A 04 AC B2 34 39 31 35 32 00 74 |.!.n.....49152.t|
00000070: 08 24 04 21 00 7F 08 2E 04 4C 44 41 20 23 31 00 |.$.!.....LDA #1.|
00000080: 8D 08 38 04 53 54 41 20 24 44 30 32 31 00 99 08 |..8.STA $D021...|
00000090: 42 04 53 54 41 20 36 34 36 00 B7 08 4C 04 4A 53 |B.STA 646...L.JS|
000000A0: 52 20 24 45 35 34 34 20 20 21 3C 43 4C 45 41 52 |R $E544 !<CLEAR|
000000B0: 20 53 43 52 45 45 4E 00 DB 08 56 04 4C 44 58 20 | SCREEN...V.LDX |
000000C0: 23 30 20 20 20 20 20 21 3C 43 4C 45 41 52 20 52 |#0 !<CLEAR R|
000000D0: 41 4D 20 54 4F 20 41 56 4F 49 44 00 02 09 60 04 |AM TO AVOID...`.|
000000E0: 53 54 58 20 24 33 46 46 46 20 20 21 20 47 41 52 |STX $3FFF ! GAR|
000000F0: 42 41 47 45 20 49 4E 20 46 4C 44 27 44 20 41 52 |BAGE IN FLD'D AR|
00000100: 45 41 00 08 09 6A 04 21 00 29 09 74 04 4C 44 41 |EA...j.!.).t.LDA|
00000110: 20 23 B3 54 45 58 54 20 21 3C 44 49 53 50 4C 41 | #.TEXT !<DISPLA|
00000120: 59 20 54 45 58 54 20 4F 4E 00 45 09 7E 04 4C 44 |Y TEXT ON.E.~.LD|
00000130: 59 20 23 B1 54 45 58 54 20 21 20 54 48 45 20 53 |Y #.TEXT ! THE S|
00000140: 43 52 45 45 4E 00 53 09 88 04 4A 53 52 20 24 41 |CREEN.S...JSR $A|
00000150: 42 31 45 00 59 09 92 04 21 00 61 09 9C 04 53 45 |B1E.Y...!.a...SE|
00000160: 49 00 6E 09 A6 04 4C 44 41 20 23 24 37 46 00 8C |I.n...LDA #$7F..|
00000170: 09 B0 04 53 54 41 20 24 44 43 30 44 20 21 20 53 |...STA $DC0D ! S|
00000180: 45 54 20 49 4E 54 45 52 55 50 54 53 00 9A 09 BA |ET INTERUPTS....|
00000190: 04 4C 44 41 20 24 44 43 30 44 00 A8 09 C4 04 4C |.LDA $DC0D.....L|
000001A0: 44 41 20 23 B3 49 52 51 00 B5 09 CE 04 53 54 41 |DA #.IRQ.....STA|
000001B0: 20 24 33 31 34 00 C3 09 D8 04 4C 44 41 20 23 B1 | $314.....LDA #.|
000001C0: 49 52 51 00 D0 09 E2 04 53 54 41 20 24 33 31 35 |IRQ.....STA $315|
000001D0: 00 DB 09 EC 04 4C 44 41 20 23 31 00 E9 09 F6 04 |.....LDA #1.....|
000001E0: 53 54 41 20 24 44 30 31 41 00 F7 09 00 05 4C 44 |STA $D01A.....LD|
000001F0: 41 20 24 44 30 31 31 00 02 0A 0A 05 AF 20 23 24 |A $D011...... #$|
00000200: 37 46 00 10 0A 14 05 53 54 41 20 24 44 30 31 31 |7F.....STA $D011|
00000210: 00 35 0A 1E 05 4C 44 41 20 23 24 33 32 20 20 21 |.5...LDA #$32 !|
00000220: 20 3C 2D 20 41 4C 54 45 52 20 54 48 49 53 20 52 | <- ALTER THIS R|
00000230: 41 53 54 45 52 00 58 0A 28 05 53 54 41 20 24 44 |ASTER.X.(.STA $D|
00000240: 30 31 32 20 21 20 54 52 49 47 47 45 52 20 4E 55 |012 ! TRIGGER NU|
00000250: 4D 42 45 52 20 46 4F 52 00 7C 0A 32 05 4C 44 41 |MBER FOR.|.2.LDA|
00000260: 20 23 31 20 20 20 20 21 20 50 4F 53 54 49 54 49 | #1 ! POSTITI|
00000270: 4F 4E 20 4F 46 20 42 4F 55 4E 43 45 00 8A 0A 3C |ON OF BOUNCE...<|
00000280: 05 53 54 41 20 24 44 30 31 39 00 92 0A 46 05 43 |.STA $D019...F.C|
00000290: 4C 49 00 9A 0A 50 05 52 54 53 00 A0 0A 5A 05 21 |LI...P.RTS...Z.!|
000002A0: 00 AA 0A 64 05 49 52 51 20 21 00 B0 0A 6E 05 21 |...d.IRQ !...n.!|
000002B0: 00 D2 0A 78 05 4C 44 58 20 23 24 34 20 21 20 57 |...x.LDX #$4 ! W|
000002C0: 41 49 54 20 41 20 4C 49 54 54 4C 45 20 42 49 54 |AIT A LITTLE BIT|
000002D0: 20 21 00 F5 0A 82 05 48 48 20 44 45 58 20 20 21 | !.....HH DEX !|
000002E0: 20 28 52 45 4D 4F 56 45 20 54 48 49 53 20 41 4E | (REMOVE THIS AN|
000002F0: 44 20 54 48 45 00 1D 0B 8C 05 42 4E 45 20 48 48 |D THE.....BNE HH|
00000300: 20 20 21 20 54 4F 50 20 4C 49 4E 45 20 46 4C 49 | ! TOP LINE FLI|
00000310: 43 4B 45 52 53 20 4F 4E 2F 4F 46 46 29 00 23 0B |CKERS ON/OFF).#.|
00000320: 96 05 21 00 48 0B A0 05 4C 44 58 20 B9 31 20 21 |..!.H...LDX .1 !|
00000330: 20 47 45 54 20 4E 4F 2E 20 4F 46 20 4C 49 4E 45 | GET NO. OF LINE|
00000340: 53 20 54 4F 20 46 4C 44 00 4E 0B AA 05 21 00 73 |S TO FLD.N...!.s|
00000350: 0B B4 05 44 31 20 4C 44 41 20 24 44 30 31 32 20 |...D1 LDA $D012 |
00000360: 20 21 3C 47 45 54 20 43 55 52 52 45 4E 54 20 4C | !<GET CURRENT L|
00000370: 49 4E 45 00 94 0B BE 05 54 31 20 43 4D 50 20 24 |INE.....T1 CMP $|
00000380: 44 30 31 32 20 20 21 3C 53 54 49 4C 4C 20 54 48 |D012 !<STILL TH|
00000390: 45 52 45 3F 00 B4 0B C8 05 42 45 51 20 54 31 20 |ERE?.....BEQ T1 |
000003A0: 20 20 20 20 20 20 20 21 20 49 46 20 59 45 53 2C | ! IF YES,|
000003B0: 57 41 49 54 00 D6 0B D2 05 AF 20 23 24 30 37 20 |WAIT...... #$07 |
000003C0: 20 20 20 20 20 21 3C 49 46 20 4E 4F 54 2C 46 4C | !<IF NOT,FL|
000003D0: 44 20 4C 49 4E 45 00 FC 0B DC 05 B0 41 20 23 24 |D LINE......A #$|
000003E0: 31 30 20 20 20 20 20 20 21 20 44 4F 57 4E 2E 57 |10 ! DOWN.W|
000003F0: 48 59 20 49 54 20 57 4F 52 4B 53 3F 00 1B 0C E6 |HY IT WORKS?....|
00000400: 05 53 54 41 20 24 44 30 31 31 20 20 20 20 20 21 |.STA $D011 !|
00000410: 20 57 48 4F 20 4B 4E 4F 57 53 21 00 39 0C F0 05 | WHO KNOWS!.9...|
00000420: 44 45 58 20 20 20 20 20 20 20 20 20 20 20 21 3C |DEX !<|
00000430: 46 49 4E 49 53 48 45 44 3F 00 5E 0C FA 05 42 4E |FINISHED?.^...BN|
00000440: 45 20 44 31 20 20 20 20 20 20 20 20 21 20 49 46 |E D1 ! IF|
00000450: 20 4E 4F 54 2C 43 4F 4E 54 49 4E 55 45 21 00 64 | NOT,CONTINUE!.d|
00000460: 0C 04 06 21 00 6F 0C 0E 06 4C 44 59 20 23 30 00 |...!.o...LDY #0.|
00000470: 81 0C 18 06 4A 55 20 4C 44 58 20 44 54 41 42 2C |....JU LDX DTAB,|
00000480: 59 00 8C 0C 22 06 4C 32 20 44 45 58 00 97 0C 2C |Y...".L2 DEX...,|
00000490: 06 42 4E 45 20 4C 32 00 BA 0C 36 06 4C 44 41 20 |.BNE L2...6.LDA |
000004A0: 43 54 41 42 2C 59 20 20 20 20 21 3C 54 48 49 53 |CTAB,Y !<THIS|
000004B0: 20 50 41 52 54 20 4A 55 53 54 00 E1 0C 40 06 53 | PART JUST...@.S|
000004C0: 54 41 20 24 44 30 32 30 20 20 20 20 20 21 20 44 |TA $D020 ! D|
000004D0: 49 53 50 4C 41 59 53 20 54 48 45 20 47 52 45 45 |ISPLAYS THE GREE|
000004E0: 4E 00 09 0D 4A 06 53 54 41 20 24 44 30 32 31 20 |N...J.STA $D021 |
000004F0: 20 20 20 20 21 20 42 41 52 20 55 4E 44 45 52 20 | ! BAR UNDER |
00000500: 54 48 45 20 54 45 58 54 2E 00 2E 0D 54 06 49 4E |THE TEXT....T.IN|
00000510: 59 20 20 20 20 20 20 20 20 20 20 20 21 20 28 4C |Y ! (L|
00000520: 49 4B 45 20 50 52 4F 47 52 41 4D 20 31 29 00 3A |IKE PROGRAM 1).:|
00000530: 0D 5E 06 43 50 59 20 23 31 39 00 45 0D 68 06 42 |.^.CPY #19.E.h.B|
00000540: 4E 45 20 4A 55 00 4B 0D 72 06 21 00 56 0D 7C 06 |NE JU.K.r.!.V.|.|
00000550: 4C 44 58 20 B9 32 00 5C 0D 86 06 21 00 7F 0D 90 |LDX .2.\...!....|
00000560: 06 44 50 31 20 4C 44 41 20 24 44 30 31 32 20 21 |.DP1 LDA $D012 !|
00000570: 20 41 4E 44 20 44 4F 20 54 48 45 20 46 4C 44 00 | AND DO THE FLD.|
00000580: A2 0D 9A 06 54 50 31 20 43 4D 50 20 24 44 30 31 |....TP1 CMP $D01|
00000590: 32 20 21 20 41 47 41 49 4E 20 42 45 4C 4F 57 20 |2 ! AGAIN BELOW |
000005A0: 54 4F 00 C9 0D A4 06 42 45 51 20 54 50 31 20 20 |TO.....BEQ TP1 |
000005B0: 20 20 20 20 20 21 20 43 4F 4D 50 45 4E 53 41 54 | ! COMPENSAT|
000005C0: 45 20 46 4F 52 20 54 48 45 00 E6 0D AE 06 AF 20 |E FOR THE...... |
000005D0: 23 24 30 37 20 20 20 20 20 20 21 3C 54 4F 50 20 |#$07 !<TOP |
000005E0: 4F 4E 45 2E 2E 2E 00 07 0E B8 06 B0 41 20 23 24 |ONE.........A #$|
000005F0: 31 30 20 20 20 20 20 20 21 20 4F 54 48 45 52 57 |10 ! OTHERW|
00000600: 49 53 45 20 54 48 45 00 2E 0E C2 06 53 54 41 20 |ISE THE.....STA |
00000610: 24 44 30 31 31 20 20 20 20 20 21 20 57 48 4F 4C |$D011 ! WHOL|
00000620: 45 20 53 43 52 45 45 4E 20 57 4F 55 4C 44 00 52 |E SCREEN WOULD.R|
00000630: 0E CC 06 44 45 58 20 20 20 20 20 20 20 20 20 20 |...DEX |
00000640: 20 21 20 47 4F 20 55 50 20 41 4E 44 20 44 4F 57 | ! GO UP AND DOW|
00000650: 4E 21 00 79 0E D6 06 42 4E 45 20 44 50 31 20 20 |N!.y...BNE DP1 |
00000660: 20 20 20 20 20 21 20 54 52 59 20 44 45 4C 45 54 | ! TRY DELET|
00000670: 49 4E 47 20 54 48 49 53 21 00 7F 0E E0 06 21 00 |ING THIS!.....!.|
00000680: 8C 0E EA 06 4C 44 41 20 23 24 30 31 00 9A 0E F4 |....LDA #$01....|
00000690: 06 53 54 41 20 24 44 30 31 39 00 C0 0E FE 06 4C |.STA $D019.....L|
000006A0: 44 41 20 23 24 31 42 20 20 20 20 20 20 21 3C 52 |DA #$1B !<R|
000006B0: 45 53 45 54 20 24 44 30 31 31 20 41 46 54 45 52 |ESET $D011 AFTER|
000006C0: 00 E4 0E 08 07 53 54 41 20 24 44 30 31 31 20 20 |.....STA $D011 |
000006D0: 20 20 20 21 20 4F 55 52 20 46 49 44 45 52 4C 49 | ! OUR FIDERLI|
000006E0: 4E 47 20 21 00 09 0F 12 07 4A 53 52 20 42 4F 55 |NG !.....JSR BOU|
000006F0: 4E 43 45 20 20 20 20 21 3C 43 41 4C 43 55 4C 41 |NCE !<CALCULA|
00000700: 54 45 20 42 4F 55 4E 43 45 00 29 0F 1C 07 4A 4D |TE BOUNCE.)...JM|
00000710: 50 20 24 45 41 33 31 20 20 20 20 20 21 3C 41 4E |P $EA31 !<AN|
00000720: 44 20 46 49 4E 49 53 48 21 00 2F 0F 26 07 21 00 |D FINISH!./.&.!.|
00000730: 7B 0F 30 07 44 54 41 42 20 42 59 54 20 38 2C 38 |{.0.DTAB BYT 8,8|
00000740: 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C 38 2C 38 |,8,8,8,8,8,1,8,8|
00000750: 2C 38 2C 38 2C 38 2C 38 2C 38 2C 31 2C 38 2C 38 |,8,8,8,8,8,1,8,8|
00000760: 2C 38 20 21 3C 44 45 4C 41 59 53 20 46 4F 52 20 |,8 !<DELAYS FOR |
00000770: 4D 49 44 44 4C 45 20 42 49 54 21 00 CA 0F 3A 07 |MIDDLE BIT!...:.|
00000780: 43 54 41 42 20 42 59 54 20 39 2C 35 2C 31 33 2C |CTAB BYT 9,5,13,|
00000790: 30 2C 30 2C 30 2C 30 2C 39 2C 35 2C 35 2C 39 2C |0,0,0,0,9,5,5,9,|
000007A0: 30 2C 30 2C 30 2C 30 2C 31 33 2C 35 2C 39 2C 30 |0,0,0,0,13,5,9,0|
000007B0: 20 21 3C 43 4F 4C 4F 55 52 53 20 46 4F 52 20 4D | !<COLOURS FOR M|
000007C0: 49 44 44 4C 45 20 42 49 54 21 00 D0 0F 44 07 21 |IDDLE BIT!...D.!|
000007D0: 00 DD 0F 4E 07 42 4F 55 4E 43 45 20 21 00 E3 0F |...N.BOUNCE !...|
000007E0: 58 07 21 00 F2 0F 62 07 48 55 50 20 49 4E 43 20 |X.!...b.HUP INC |
000007F0: B9 43 00 FD 0F 6C 07 4C 44 58 20 B9 43 00 23 10 |.C...l.LDX .C.#.|
00000800: 76 07 43 50 58 20 23 31 32 33 20 20 20 20 20 21 |v.CPX #123 !|
00000810: 3C 52 4F 55 54 49 4E 45 20 54 48 41 54 20 52 45 |<ROUTINE THAT RE|
00000820: 41 44 53 00 4A 10 80 07 42 4E 45 20 4E 4F 39 35 |ADS.J...BNE NO95|
00000830: 20 20 20 20 20 21 20 54 48 45 20 56 41 4C 55 45 | ! THE VALUE|
00000840: 53 20 46 52 4F 4D 20 54 48 45 00 71 10 8A 07 4C |S FROM THE.q...L|
00000850: 44 41 20 23 32 35 35 20 20 20 20 20 21 20 53 49 |DA #255 ! SI|
00000860: 4E 55 53 20 54 41 42 4C 45 20 46 4F 52 20 54 48 |NUS TABLE FOR TH|
00000870: 45 00 8F 10 94 07 53 54 41 20 B9 43 20 20 20 20 |E.....STA .C |
00000880: 20 21 20 46 4C 44 20 52 4F 55 54 49 4E 45 2E 00 | ! FLD ROUTINE..|
00000890: 9B 10 9E 07 4A 4D 50 20 48 55 50 00 AE 10 A8 07 |....JMP HUP.....|
000008A0: 4E 4F 39 35 20 4C 44 41 20 BF 55 53 2C 58 00 B6 |NO95 LDA .US,X..|
000008B0: 10 B2 07 53 45 43 00 C1 10 BC 07 41 44 43 20 23 |...SEC.....ADC #|
000008C0: 35 00 CC 10 C6 07 53 54 41 20 B9 31 00 D8 10 D0 |5.....STA .1....|
000008D0: 07 4C 44 41 20 23 38 35 00 E3 10 DA 07 53 42 43 |.LDA #85.....SBC|
000008E0: 20 B9 31 00 EE 10 E4 07 53 54 41 20 B9 32 00 F6 | .1.....STA .2..|
000008F0: 10 EE 07 52 54 53 00 FC 10 F8 07 21 00 07 11 02 |...RTS.....!....|
00000900: 08 B9 31 20 42 52 4B 00 12 11 0C 08 B9 32 20 42 |..1 BRK......2 B|
00000910: 52 4B 00 1D 11 16 08 B9 43 20 42 52 4B 00 23 11 |RK......C BRK.#.|
00000920: 20 08 21 00 2D 11 2A 08 BF 55 53 20 21 00 75 11 | .!.-.*..US !.u.|
00000930: 34 08 42 59 54 20 24 31 45 2C 24 31 43 2C 24 31 |4.BYT $1E,$1C,$1|
00000940: 42 2C 24 31 39 2C 24 31 38 2C 24 31 36 2C 24 31 |B,$19,$18,$16,$1|
00000950: 35 2C 24 31 33 2C 24 31 32 2C 24 31 30 2C 24 30 |5,$13,$12,$10,$0|
00000960: 46 2C 24 30 45 2C 24 30 44 2C 24 30 42 2C 24 30 |F,$0E,$0D,$0B,$0|
00000970: 41 2C 24 30 39 00 BD 11 3E 08 42 59 54 20 24 30 |A,$09...>.BYT $0|
00000980: 38 2C 24 30 37 2C 24 30 36 2C 24 30 35 2C 24 30 |8,$07,$06,$05,$0|
00000990: 34 2C 24 30 33 2C 24 30 33 2C 24 30 32 2C 24 30 |4,$03,$03,$02,$0|
000009A0: 32 2C 24 30 31 2C 24 30 31 2C 24 30 30 2C 24 30 |2,$01,$01,$00,$0|
000009B0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 00 05 12 |0,$00,$00,$00...|
000009C0: 48 08 42 59 54 20 24 30 30 2C 24 30 30 2C 24 30 |H.BYT $00,$00,$0|
000009D0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 31 2C 24 30 |0,$00,$00,$01,$0|
000009E0: 31 2C 24 30 32 2C 24 30 32 2C 24 30 33 2C 24 30 |1,$02,$02,$03,$0|
000009F0: 34 2C 24 30 34 2C 24 30 35 2C 24 30 36 2C 24 30 |4,$04,$05,$06,$0|
00000A00: 37 2C 24 30 38 00 4D 12 52 08 42 59 54 20 24 30 |7,$08.M.R.BYT $0|
00000A10: 39 2C 24 30 41 2C 24 30 43 2C 24 30 44 2C 24 30 |9,$0A,$0C,$0D,$0|
00000A20: 45 2C 24 30 46 2C 24 31 31 2C 24 31 32 2C 24 31 |E,$0F,$11,$12,$1|
00000A30: 33 2C 24 31 35 2C 24 31 36 2C 24 31 38 2C 24 31 |3,$15,$16,$18,$1|
00000A40: 39 2C 24 31 42 2C 24 31 43 2C 24 31 45 00 95 12 |9,$1B,$1C,$1E...|
00000A50: 5C 08 42 59 54 20 24 31 46 2C 24 32 31 2C 24 32 |\.BYT $1F,$21,$2|
00000A60: 32 2C 24 32 34 2C 24 32 35 2C 24 32 37 2C 24 32 |2,$24,$25,$27,$2|
00000A70: 38 2C 24 32 39 2C 24 32 42 2C 24 32 43 2C 24 32 |8,$29,$2B,$2C,$2|
00000A80: 44 2C 24 32 46 2C 24 33 30 2C 24 33 31 2C 24 33 |D,$2F,$30,$31,$3|
00000A90: 32 2C 24 33 33 00 DD 12 66 08 42 59 54 20 24 33 |2,$33...f.BYT $3|
00000AA0: 34 2C 24 33 35 2C 24 33 36 2C 24 33 37 2C 24 33 |4,$35,$36,$37,$3|
00000AB0: 38 2C 24 33 38 2C 24 33 39 2C 24 33 41 2C 24 33 |8,$38,$39,$3A,$3|
00000AC0: 41 2C 24 33 41 2C 24 33 42 2C 24 33 42 2C 24 33 |A,$3A,$3B,$3B,$3|
00000AD0: 42 2C 24 33 42 2C 24 33 42 2C 24 33 42 00 25 13 |B,$3B,$3B,$3B.%.|
00000AE0: 70 08 42 59 54 20 24 33 42 2C 24 33 42 2C 24 33 |p.BYT $3B,$3B,$3|
00000AF0: 42 2C 24 33 41 2C 24 33 41 2C 24 33 39 2C 24 33 |B,$3A,$3A,$39,$3|
00000B00: 39 2C 24 33 38 2C 24 33 37 2C 24 33 36 2C 24 33 |9,$38,$37,$36,$3|
00000B10: 36 2C 24 33 35 2C 24 33 34 2C 24 33 33 2C 24 33 |6,$35,$34,$33,$3|
00000B20: 32 2C 24 33 30 00 61 13 7A 08 42 59 54 20 24 32 |2,$30.a.z.BYT $2|
00000B30: 46 2C 24 32 45 2C 24 32 44 2C 24 32 42 2C 24 32 |F,$2E,$2D,$2B,$2|
00000B40: 41 2C 24 32 39 2C 24 32 37 2C 24 32 36 2C 24 32 |A,$29,$27,$26,$2|
00000B50: 34 2C 24 32 33 2C 24 32 31 2C 24 32 30 2C 24 31 |4,$23,$21,$20,$1|
00000B60: 46 00 67 13 84 08 21 00 8D 13 8E 08 21 20 20 20 |F.g...!.....! |
00000B70: 5E 20 20 54 41 42 4C 45 20 4F 46 20 56 41 4C 55 |^ TABLE OF VALU|
00000B80: 45 53 20 46 4F 52 20 42 4F 55 4E 43 45 00 AE 13 |ES FOR BOUNCE...|
00000B90: 98 08 21 20 20 20 21 20 20 28 43 41 4C 43 55 4C |..! ! (CALCUL|
00000BA0: 41 54 45 44 20 49 4E 20 42 41 53 49 43 29 00 B4 |ATED IN BASIC)..|
00000BB0: 13 A2 08 21 00 BF 13 AC 08 54 45 58 54 20 21 00 |...!.....TEXT !.|
00000BC0: F4 13 B6 08 42 59 54 20 22 13 11 20 44 52 45 41 |....BYT ".. DREA|
00000BD0: 4D 53 20 42 45 59 4F 4E 44 20 54 48 45 20 59 4F |MS BEYOND THE YO|
00000BE0: 55 4E 47 20 55 4E 44 45 52 53 54 41 4E 44 49 4E |UNG UNDERSTANDIN|
00000BF0: 47 21 20 22 00 2F 14 C0 08 42 59 54 20 22 11 28 |G! "./...BYT ".(|
00000C00: 43 29 20 41 4E 44 59 20 50 41 52 54 52 49 44 47 |C) ANDY PARTRIDG|
00000C10: 45 20 20 28 54 48 45 20 57 4F 52 44 20 4D 41 47 |E (THE WORD MAG|
00000C20: 49 43 49 41 4E 21 29 11 11 11 11 11 22 2C 30 00 |ICIAN!).....",0.|
00000C30: 35 14 CA 08 21 00 58 14 D4 08 21 20 20 20 5E 20 |5...!.X...! ^ |
00000C40: 20 54 48 45 20 54 45 58 54 20 50 52 49 4E 54 45 | THE TEXT PRINTE|
00000C50: 44 20 4F 4E 20 54 48 45 00 6D 14 DE 08 21 20 20 |D ON THE.m...! |
00000C60: 20 21 20 20 53 43 52 45 45 4E 2E 2E 2E 00 73 14 | ! SCREEN....s.|
00000C70: E8 08 21 00 00 00 |..!... |
......! FLD LINE BOUNCE./...! BY ANDY PA
RTRIDGE.V...! CREDIT ME IF YOU USE IT-OR
ELSE!.\...!.B...!.N.....49152.T.$.!...
.LDA #1...8.STA $D021...B.STA 646...L.JS
R $E544 !<CLEAR SCREEN...V.LDX #0 !
<CLEAR RAM TO AVOID...`.STX $3FFF ! GAR
BAGE IN FLD'D AREA...J.!.).T.LDA #.TEXT
!<DISPLAY TEXT ON.E.~.LDY #.TEXT ! THE S
CREEN.S...JSR $AB1E.Y...!.A...SEI.N...LD
A #$7F.....STA $DC0D ! SET INTERUPTS....
.LDA $DC0D...D.LDA #.IRQ...N.STA $314.C.
X.LDA #.IRQ.P...STA $315.....LDA #1.....
STA $D01A.....LDA $D011...... #$7F.....S
TA $D011.5...LDA #$32 ! <- ALTER THIS R
ASTER.X.(.STA $D012 ! TRIGGER NUMBER FOR
.|.2.LDA #1 ! POSTITION OF BOUNCE...<
.STA $D019...F.CLI...P.RTS. .Z.!...D.IRQ
!...N.!.R.X.LDX #$4 ! WAIT A LITTLE BIT
!.....HH DEX ! (REMOVE THIS AND THE...
..BNE HH ! TOP LINE FLICKERS ON/OFF).#.
..!.H. .LDX .1 ! GET NO. OF LINES TO FLD
.N...!.S...D1 LDA $D012 !<GET CURRENT L
INE.....T1 CMP $D012 !<STILL THERE?...H
.BEQ T1 ! IF YES,WAIT.V.R.. #$07
!<IF NOT,FLD LINE......A #$10
! DOWN.WHY IT WORKS?.....STA $D011 !
WHO KNOWS!.9...DEX !<FINISHED
?.^...BNE D1 ! IF NOT,CONTINUE!.D
...!.O...LDY #0.....JU LDX DTAB,Y...".L2
DEX...,.BNE L2...6.LDA CTAB,Y !<THIS
PART JUST...@.STA $D020 ! DISPLAYS
THE GREEN...J.STA $D021 ! BAR UNDER
THE TEXT....T.INY ! (LIKE PROG
RAM 1).:.^.CPY #19.E.H.BNE JU.K.R.!.V.|.
LDX .2.\...!....DP1 LDA $D012 ! AND DO
THE FLD.....TP1 CMP $D012 ! AGAIN BELOW
TO.I...BEQ TP1 ! COMPENSATE FOR TH
E...... #$07 !<TOP ONE.........A #$
10 ! OTHERWISE THE...B.STA $D011
! WHOLE SCREEN WOULD.R.L.DEX
! GO UP AND DOWN!.Y.V.BNE DP1 ! T
RY DELETING THIS!....!.....LDA #$01....
.STA $D019.....LDA #$1B !<RESET $D0
11 AFTER.....STA $D011 ! OUR FIDERLI
NG !.....JSR BOUNCE !<CALCULATE BOUNC
E.)...JMP $EA31 !<AND FINISH!./.&.!.
{.0.DTAB BYT 8,8,8,8,8,8,8,1,8,8,8,8,8,8
,8,1,8,8,8 !<DELAYS FOR MIDDLE BIT!.J.:.
CTAB BYT 9,5,13,0,0,0,0,9,5,5,9,0,0,0,0,
13,5,9,0 !<COLOURS FOR MIDDLE BIT!.P.D.!
...N.BOUNCE !...X.!...B.HUP INC .C...L.L
DX .C.#.V.CPX #123 !<ROUTINE THAT RE
ADS.J...BNE NO95 ! THE VALUES FROM T
HE.Q...LDA #255 ! SINUS TABLE FOR TH
E.....STA .C ! FLD ROUTINE......JMP
HUP.....NO95 LDA .US,X.....SEC.A...ADC #
5.L.F.STA .1.X.P.LDA #85...Z.SBC .1.....
STA .2.....RTS.....!......1 BRK......2 B
RK......C BRK.#. .!.-.*..US !.U.4.BYT $1
E,$1C,$1B,$19,$18,$16,$15,$13,$12,$10,$0
F,$0E,$0D,$0B,$0A,$09...>.BYT $08,$07,$0
6,$05,$04,$03,$03,$02,$02,$01,$01,$00,$0
0,$00,$00,$00...H.BYT $00,$00,$00,$00,$0
0,$01,$01,$02,$02,$03,$04,$04,$05,$06,$0
7,$08.M.R.BYT $09,$0A,$0C,$0D,$0E,$0F,$1
1,$12,$13,$15,$16,$18,$19,$1B,$1C,$1E...
\.BYT $1F,$21,$22,$24,$25,$27,$28,$29,$2
B,$2C,$2D,$2F,$30,$31,$32,$33...F.BYT $3
4,$35,$36,$37,$38,$38,$39,$3A,$3A,$3A,$3
B,$3B,$3B,$3B,$3B,$3B.%.P.BYT $3B,$3B,$3
B,$3A,$3A,$39,$39,$38,$37,$36,$36,$35,$3
4,$33,$32,$30.A.Z.BYT $2F,$2E,$2D,$2B,$2
A,$29,$27,$26,$24,$23,$21,$20,$1F.G...!.
....! ^ TABLE OF VALUES FOR BOUNCE...
..! ! (CALCULATED IN BASIC).....!....
.TEXT !.....BYT ".. DREAMS BEYOND THE YO
UNG UNDERSTANDING! "./...BYT ".(C) ANDY
PARTRIDGE (THE WORD MAGICIAN!).....",0.
5.J.!.X.T.! ^ THE TEXT PRINTED ON THE
.M...! ! SCREEN....S...!...
> CLICK IMAGE PREVIEW FOR FULL MODAL