SOURCE@
FILE INFORMATION
FILENAME(S): SOURCE@
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
48f40f770708b237cc6abd382e4d60f08d2c5c853f569f6dbfa086c35554b65b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU APRIL 1990 | SOURCE@ | PRG | UK CD | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 E8 03 21 00 2B 08 F2 03 21 20 41 53 |......!.+...! AS| 00000010: 53 45 4D 42 4C 45 20 41 4E 44 20 54 59 50 45 20 |SEMBLE AND TYPE | 00000020: 53 59 53 20 34 39 31 35 32 20 21 00 4F 08 FC 03 |SYS 49152 !.O...| 00000030: 21 20 42 59 20 41 4E 44 59 20 50 41 4E 44 59 2C |! BY ANDY PANDY,| 00000040: 20 44 45 43 45 4D 42 45 52 20 27 38 39 20 21 00 | DECEMBER '89 !.| 00000050: 72 08 FD 03 21 20 54 48 49 53 20 53 4F 55 52 43 |r...! THIS SOURC| 00000060: 45 20 49 53 20 50 52 45 54 54 59 20 4C 41 4D 45 |E IS PRETTY LAME| 00000070: 20 21 00 78 08 06 04 21 00 84 08 10 04 AC B2 34 | !.x...!.......4| 00000080: 39 31 35 32 00 8A 08 1A 04 21 00 97 08 24 04 4A |9152.....!...$.J| 00000090: 53 52 20 49 4E 49 54 00 A6 08 2E 04 4A 53 52 20 |SR INIT.....JSR | 000000A0: 45 CB 54 52 49 50 00 AC 08 38 04 21 00 B9 08 42 |E.TRIP...8.!...B| 000000B0: 04 53 45 54 49 52 51 20 21 00 C1 08 4C 04 53 45 |.SETIRQ !...L.SE| 000000C0: 49 00 CE 08 56 04 4C 44 41 20 23 24 37 46 00 DC |I...V.LDA #$7F..| 000000D0: 08 60 04 53 54 41 20 24 44 43 30 44 00 EA 08 6A |.`.STA $DC0D...j| 000000E0: 04 4C 44 41 20 24 44 43 30 44 00 F7 08 74 04 4C |.LDA $DC0D...t.L| 000000F0: 44 41 20 23 24 31 42 00 05 09 7E 04 53 54 41 20 |DA #$1B...~.STA | 00000100: 24 44 30 31 31 00 12 09 88 04 4C 44 41 20 23 24 |$D011.....LDA #$| 00000110: 33 32 00 20 09 92 04 53 54 41 20 24 44 30 31 32 |32. ...STA $D012| 00000120: 00 2E 09 9C 04 4C 44 41 20 23 B3 49 52 51 00 3B |.....LDA #.IRQ.;| 00000130: 09 A6 04 53 54 41 20 24 33 31 34 00 49 09 B0 04 |...STA $314.I...| 00000140: 4C 44 41 20 23 B1 49 52 51 00 56 09 BA 04 53 54 |LDA #.IRQ.V...ST| 00000150: 41 20 24 33 31 35 00 61 09 C4 04 4C 44 41 20 23 |A $315.a...LDA #| 00000160: 31 00 6F 09 CE 04 53 54 41 20 24 44 30 31 39 00 |1.o...STA $D019.| 00000170: 7D 09 D8 04 53 54 41 20 24 44 30 31 41 00 85 09 |}...STA $D01A...| 00000180: E2 04 43 4C 49 00 8D 09 EC 04 52 54 53 00 93 09 |..CLI.....RTS...| 00000190: F6 04 21 00 99 09 00 05 21 00 AB 09 0A 05 43 4F |..!.....!.....CO| 000001A0: 4C 54 41 42 B2 20 24 43 45 30 30 00 BD 09 14 05 |LTAB. $CE00.....| 000001B0: 44 45 4C 54 41 42 B2 20 24 43 46 30 30 00 C3 09 |DELTAB. $CF00...| 000001C0: 1E 05 21 00 CD 09 28 05 49 52 51 20 21 00 D9 09 |..!...(.IRQ !...| 000001D0: 32 05 4C 44 58 20 23 24 44 00 E4 09 3C 05 49 31 |2.LDX #$D...<.I1| 000001E0: 20 44 45 58 00 EF 09 46 05 42 4E 45 20 49 31 00 | DEX...F.BNE I1.| 000001F0: 03 0A 50 05 49 32 20 4C 44 59 20 44 45 4C 54 41 |..P.I2 LDY DELTA| 00000200: 42 2C 58 00 14 0A 5A 05 4C 44 41 20 43 4F 4C 54 |B,X...Z.LDA COLT| 00000210: 41 42 2C 58 00 1F 0A 64 05 49 33 20 44 45 59 00 |AB,X...d.I3 DEY.| 00000220: 2A 0A 6E 05 42 4E 45 20 49 33 00 38 0A 78 05 53 |*.n.BNE I3.8.x.S| 00000230: 54 41 20 24 44 30 31 36 00 46 0A 82 05 53 54 41 |TA $D016.F...STA| 00000240: 20 24 44 30 31 36 00 4E 0A 8C 05 49 4E 58 00 5B | $D016.N...INX.[| 00000250: 0A 96 05 43 50 58 20 23 24 34 32 00 66 0A A0 05 |...CPX #$42.f...| 00000260: 42 4E 45 20 49 32 00 71 0A AA 05 4C 44 58 20 23 |BNE I2.q...LDX #| 00000270: 38 00 7C 0A B4 05 49 34 20 44 45 58 00 87 0A BE |8.|...I4 DEX....| 00000280: 05 42 4E 45 20 49 34 00 8D 0A C8 05 21 00 9A 0A |.BNE I4.....!...| 00000290: D2 05 4A 53 52 20 57 41 56 45 00 A0 0A D3 05 21 |..JSR WAVE.....!| 000002A0: 00 AB 0A DC 05 4C 44 41 20 23 31 00 B9 0A E6 05 |.....LDA #1.....| 000002B0: 53 54 41 20 24 44 30 31 39 00 C7 0A F0 05 4A 4D |STA $D019.....JM| 000002C0: 50 20 24 45 41 33 31 00 CD 0A FA 05 21 00 D8 0A |P $EA31.....!...| 000002D0: 04 06 49 4E 49 54 20 21 00 E3 0A 0E 06 4C 44 58 |..INIT !.....LDX| 000002E0: 20 23 30 00 F2 0A 18 06 49 4E 30 20 4C 44 59 20 | #0.....IN0 LDY | 000002F0: 23 30 00 05 0B 22 06 49 4E 31 20 4C 44 41 20 44 |#0...".IN1 LDA D| 00000300: 54 41 42 2C 59 00 16 0B 2C 06 53 54 41 20 44 45 |TAB,Y...,.STA DE| 00000310: 4C 54 41 42 2C 58 00 1E 0B 36 06 49 4E 58 00 26 |LTAB,X...6.INX.&| 00000320: 0B 40 06 49 4E 59 00 31 0B 4A 06 43 50 59 20 23 |.@.INY.1.J.CPY #| 00000330: 38 00 3D 0B 54 06 42 43 43 20 49 4E 31 00 4A 0B |8.=.T.BCC IN1.J.| 00000340: 5E 06 43 50 58 20 23 24 38 30 00 56 0B 68 06 42 |^.CPX #$80.V.h.B| 00000350: 43 43 20 49 4E 30 00 5E 0B 72 06 52 54 53 00 64 |CC IN0.^.r.RTS.d| 00000360: 0B 7C 06 21 00 81 0B 86 06 44 54 41 42 20 42 59 |.|.!.....DTAB BY| 00000370: 54 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |T 8,8,8,8,8,8,8,| 00000380: 31 00 87 0B 90 06 21 00 95 0B 9A 06 57 41 56 45 |1.....!.....WAVE| 00000390: 54 41 42 20 21 00 B9 0B A4 06 42 59 54 20 32 31 |TAB !.....BYT 21| 000003A0: 39 2C 32 31 39 2C 32 31 39 2C 32 31 39 2C 32 31 |9,219,219,219,21| 000003B0: 39 2C 32 31 39 2C 32 31 39 00 01 0C AE 06 42 59 |9,219,219.....BY| 000003C0: 54 20 32 31 38 2C 32 31 37 2C 32 31 37 2C 32 31 |T 218,217,217,21| 000003D0: 36 2C 32 31 36 2C 32 31 36 2C 32 31 37 2C 32 31 |6,216,216,217,21| 000003E0: 37 2C 32 31 38 2C 32 31 39 2C 32 32 30 2C 32 32 |7,218,219,220,22| 000003F0: 31 2C 32 32 31 2C 32 32 32 2C 32 32 32 2C 32 32 |1,221,222,222,22| 00000400: 32 00 1D 0C B8 06 42 59 54 20 32 32 31 2C 32 32 |2.....BYT 221,22| 00000410: 31 2C 32 32 30 2C 32 31 39 2C 32 31 39 00 41 0C |1,220,219,219.A.| 00000420: C2 06 42 59 54 20 32 31 39 2C 32 31 39 2C 32 31 |..BYT 219,219,21| 00000430: 39 2C 32 31 39 2C 32 31 39 2C 32 31 39 2C 32 31 |9,219,219,219,21| 00000440: 39 00 65 0C CC 06 42 59 54 20 32 31 39 2C 32 31 |9.e...BYT 219,21| 00000450: 39 2C 32 31 39 2C 32 31 39 2C 32 31 39 2C 32 31 |9,219,219,219,21| 00000460: 39 2C 32 31 39 00 6B 0C D6 06 21 00 79 0C E0 06 |9,219.k...!.y...| 00000470: 57 31 20 42 59 54 20 30 30 00 8A 0C EA 06 57 43 |W1 BYT 00.....WC| 00000480: 4F 55 4E 54 20 42 59 54 20 32 00 90 0C F4 06 21 |OUNT BYT 2.....!| 00000490: 00 9B 0C FE 06 57 41 56 45 20 21 00 A1 0C 08 07 |.....WAVE !.....| 000004A0: 21 00 B0 0C 12 07 44 45 43 20 57 43 4F 55 4E 54 |!.....DEC WCOUNT| 000004B0: 00 D5 0C 1C 07 4C 44 41 20 57 43 4F 55 4E 54 20 |.....LDA WCOUNT | 000004C0: 21 20 54 48 49 53 20 53 4C 4F 57 53 20 54 48 45 |! THIS SLOWS THE| 000004D0: 20 57 41 56 45 00 EC 0C 26 07 42 45 51 20 59 45 | WAVE...&.BEQ YE| 000004E0: 53 20 21 20 20 20 20 44 4F 57 4E 2E 00 F4 0C 30 |S ! DOWN....0| 000004F0: 07 52 54 53 00 FE 0C 3A 07 59 45 53 20 21 00 21 |.RTS...:.YES !.!| 00000500: 0D 44 07 4C 44 41 20 23 32 20 21 20 3C 2D 20 41 |.D.LDA #2 ! <- A| 00000510: 4C 54 45 52 20 46 4F 52 20 53 50 45 45 44 20 21 |LTER FOR SPEED !| 00000520: 21 00 30 0D 4E 07 53 54 41 20 57 43 4F 55 4E 54 |!.0.N.STA WCOUNT| 00000530: 00 36 0D 58 07 21 00 41 0D 62 07 4C 44 58 20 23 |.6.X.!.A.b.LDX #| 00000540: 30 00 4A 0D 6C 07 57 57 20 21 00 70 0D 76 07 4C |0.J.l.WW !.p.v.L| 00000550: 44 41 20 43 4F 4C 54 41 42 AA 31 2C 58 20 21 20 |DA COLTAB.1,X ! | 00000560: 52 4F 54 41 54 45 20 54 48 45 20 54 41 42 4C 45 |ROTATE THE TABLE| 00000570: 00 97 0D 80 07 53 54 41 20 43 4F 4C 54 41 42 2C |.....STA COLTAB,| 00000580: 58 20 21 20 20 20 52 4F 55 4E 44 20 41 4E 44 20 |X ! ROUND AND | 00000590: 52 4F 55 4E 44 20 21 00 9F 0D 8A 07 49 4E 58 00 |ROUND !.....INX.| 000005A0: AB 0D 94 07 43 50 58 20 23 38 30 00 B6 0D 9E 07 |....CPX #80.....| 000005B0: 42 4E 45 20 57 57 00 BC 0D A8 07 21 00 C7 0D B2 |BNE WW.....!....| 000005C0: 07 49 4E 43 20 57 31 00 D2 0D BC 07 4C 44 41 20 |.INC W1.....LDA | 000005D0: 57 31 00 DE 0D C6 07 43 4D 50 20 23 34 31 00 EB |W1.....CMP #41..| 000005E0: 0D D0 07 42 4E 45 20 4E 4F 31 36 00 F6 0D DA 07 |...BNE NO16.....| 000005F0: 4C 44 41 20 23 30 00 01 0E E4 07 53 54 41 20 57 |LDA #0.....STA W| 00000600: 31 00 0C 0E EE 07 4E 4F 31 36 20 21 00 14 0E F8 |1.....NO16 !....| 00000610: 07 54 41 58 00 39 0E 02 08 4C 44 41 20 57 41 56 |.TAX.9...LDA WAV| 00000620: 45 54 41 42 2C 58 20 21 20 50 4F 50 20 54 48 45 |ETAB,X ! POP THE| 00000630: 20 56 41 4C 55 45 20 49 4E 00 59 0E 0C 08 53 54 | VALUE IN.Y...ST| 00000640: 41 20 43 4F 4C 54 41 42 AA 37 38 20 21 20 54 48 |A COLTAB.78 ! TH| 00000650: 45 20 54 41 42 4C 45 20 21 00 61 0E 16 08 52 54 |E TABLE !.a...RT| 00000660: 53 00 67 0E 20 08 21 00 74 0E 2A 08 45 CB 54 52 |S.g. .!.t.*.E.TR| 00000670: 49 50 20 21 00 83 0E 34 08 4C 44 41 20 23 B3 54 |IP !...4.LDA #.T| 00000680: 45 58 54 00 92 0E 3E 08 4C 44 59 20 23 B1 54 45 |EXT...>.LDY #.TE| 00000690: 58 54 00 9D 0E 48 08 4C 44 58 20 23 30 00 AB 0E |XT...H.LDX #0...| 000006A0: 52 08 4A 53 52 20 24 41 42 31 45 00 B3 0E 5C 08 |R.JSR $AB1E...\.| 000006B0: 52 54 53 00 B9 0E 66 08 21 00 C4 0E 70 08 54 45 |RTS...f.!...p.TE| 000006C0: 58 54 20 21 00 D2 0E 7A 08 42 59 54 20 22 93 11 |XT !...z.BYT "..| 000006D0: 11 22 00 05 0F 84 08 42 59 54 20 22 20 20 20 20 |.".....BYT " | 000006E0: 20 20 20 20 20 20 20 B0 C0 C0 AE 20 B0 C0 C0 C9 | .... ....| 000006F0: 20 C0 C0 C0 C9 20 C9 20 20 C9 20 20 20 20 20 20 | .... . . | 00000700: 20 20 20 20 22 00 38 0F 8E 08 42 59 54 20 22 20 | ".8...BYT " | 00000710: 20 20 20 20 20 20 20 20 20 20 DD 20 20 DD 20 DD | . . .| 00000720: 20 20 DD 20 20 20 20 DD 20 DD 20 20 DD 20 20 20 | . . . . | 00000730: 20 20 20 20 20 20 20 22 00 6B 0F 98 08 42 59 54 | ".k...BYT| 00000740: 20 22 20 20 20 20 20 20 20 20 20 20 20 AB C0 C0 | " ...| 00000750: B3 20 DD 20 20 DD 20 DD 20 20 DD 20 CA C0 C0 B3 |. . . . . ....| 00000760: 20 20 20 20 20 20 20 20 20 20 22 00 9E 0F A2 08 | ".....| 00000770: 42 59 54 20 22 20 20 20 20 20 20 20 20 20 20 20 |BYT " | 00000780: DD 20 20 DD 20 DD 20 20 DD 20 DD 20 20 DD 20 20 |. . . . . . | 00000790: 20 20 DD 20 20 20 20 20 20 20 20 20 20 22 00 D3 | . "..| 000007A0: 0F AC 08 42 59 54 20 22 20 20 20 20 20 20 20 20 |...BYT " | 000007B0: 20 20 20 DD 20 20 DD 20 DD 20 20 DD 20 CA C0 C0 | . . . . ...| 000007C0: CB 20 C0 C0 C0 CB 20 20 20 20 20 20 20 20 20 20 |. .... | 000007D0: 22 2C 30 00 00 00 |",0... |
......!.+...! ASSEMBLE AND TYPE SYS 4915
2 !.O...! BY ANDY PANDY, DECEMBER '89 !.
R...! THIS SOURCE IS PRETTY LAME !.X...!
.......49152.....!...$.JSR INIT.....JSR
EKTRIP...8.!...B.SETIRQ !.A.L.SEI.N.V.LD
A #$7F...`.STA $DC0D...J.LDA $DC0D...T.L
DA #$1B...~.STA $D011.....LDA #$32. ...S
TA $D012.....LDA #.IRQ.;...STA $314.I...
LDA #.IRQ.V...STA $315.A.D.LDA #1.O.N.ST
A $D019.}.X.STA $D01A.....CLI.....RTS...
..!.....!.....COLTAB. $CE00.....DELTAB.
$CF00.C...!.M.(.IRQ !.Y.2.LDX #$D...<.I1
DEX...F.BNE I1...P.I2 LDY DELTAB,X...Z.
LDA COLTAB,X...D.I3 DEY.*.N.BNE I3.8.X.S
TA $D016.F...STA $D016.N...INX.[...CPX #
$42.F. .BNE I2.Q...LDX #8.|...I4 DEX....
.BNE I4...H.!...R.JSR WAVE. .S.!.....LDA
#1.....STA $D019.G...JMP $EA31.M...!.X.
..INIT !.....LDX #0.....IN0 LDY #0...".I
N1 LDA DTAB,Y...,.STA DELTAB,X...6.INX.&
.@.INY.1.J.CPY #8.=.T.BCC IN1.J.^.CPX #$
80.V.H.BCC IN0.^.R.RTS.D.|.!.....DTAB BY
T 8,8,8,8,8,8,8,1.....!.....WAVETAB !...
..BYT 219,219,219,219,219,219,219.....BY
T 218,217,217,216,216,216,217,217,218,21
9,220,221,221,222,222,222.....BYT 221,22
1,220,219,219.A.B.BYT 219,219,219,219,21
9,219,219.E.L.BYT 219,219,219,219,219,21
9,219.K.V.!.Y...W1 BYT 00.....WCOUNT BYT
2.....!.....WAVE !.....!.....DEC WCOUNT
.U...LDA WCOUNT ! THIS SLOWS THE WAVE...
&.BEQ YES ! DOWN....0.RTS...:.YES !.!
.D.LDA #2 ! <- ALTER FOR SPEED !!.0.N.ST
A WCOUNT.6.X.!.A.B.LDX #0.J.L.WW !.P.V.L
DA COLTAB.1,X ! ROTATE THE TABLE.....STA
COLTAB,X ! ROUND AND ROUND !.....INX.
....CPX #80.....BNE WW.....!.G...INC W1.
R...LDA W1...F.CMP #41...P.BNE NO16...Z.
LDA #0.....STA W1.....NO16 !.....TAX.9..
.LDA WAVETAB,X ! POP THE VALUE IN.Y...ST
A COLTAB.78 ! THE TABLE !.A...RTS.G. .!.
T.*.EKTRIP !...4.LDA #.TEXT...>.LDY #.TE
XT...H.LDX #0...R.JSR $AB1E...\.RTS...F.
!.D.P.TEXT !.R.Z.BYT "...".....BYT "
.... ...I ...I I I ".8.
..BYT " . . . . . . .
".K...BYT " .... . . .
. J... ".....BYT "
. . . . . . . ".S...BYT "
. . . . J..K ...K
",0...
> CLICK IMAGE PREVIEW FOR FULL MODAL