ADV.SRC

FILE INFORMATION

FILENAME(S): ADV.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:11:34

APPEARS ON: 1 disk(s)

FILE HASH

07f693464e890e65c8fee98aa958bd7f879e959d69326cec60c82989881f9e23

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
NOG UITZOEKEN	ADV.SRC	PRG	DuncanTwain	33	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 20 2E 4C 53 54 20 4E 4F  53 4F 55 52 43 45 0D 20  | .LST NOSOURCE. |
00000010: 2E 4C 53 54 20 43 4F 44  45 0D 46 52 45 51 31 48  |.LST CODE.FREQ1H|
00000020: 49 3D 35 34 32 37 32 0D  46 52 45 51 31 4C 4F 3D  |I=54272.FREQ1LO=|
00000030: 35 34 32 37 33 0D 50 55  4C 53 45 31 48 49 3D 35  |54273.PULSE1HI=5|
00000040: 34 32 37 34 0D 50 55 4C  53 45 31 4C 4F 3D 35 34  |4274.PULSE1LO=54|
00000050: 32 37 35 0D 57 41 56 45  31 3D 35 34 32 37 36 0D  |275.WAVE1=54276.|
00000060: 41 54 54 31 3D 35 34 32  37 37 0D 53 55 53 31 3D  |ATT1=54277.SUS1=|
00000070: 35 34 32 37 38 0D 46 52  45 51 32 48 49 3D 35 34  |54278.FREQ2HI=54|
00000080: 32 37 39 0D 46 52 45 51  32 4C 4F 3D 35 34 32 38  |279.FREQ2LO=5428|
00000090: 30 0D 50 55 4C 53 45 32  48 49 3D 35 34 32 38 31  |0.PULSE2HI=54281|
000000A0: 0D 50 55 4C 53 45 32 4C  4F 3D 35 34 32 38 32 0D  |.PULSE2LO=54282.|
000000B0: 57 41 56 45 32 3D 35 34  32 38 33 0D 41 54 54 32  |WAVE2=54283.ATT2|
000000C0: 3D 35 34 32 38 34 0D 53  55 53 32 3D 35 34 32 38  |=54284.SUS2=5428|
000000D0: 35 0D 46 52 45 51 33 48  49 3D 35 34 32 38 36 0D  |5.FREQ3HI=54286.|
000000E0: 46 52 45 51 33 4C 4F 3D  35 34 32 38 37 0D 50 55  |FREQ3LO=54287.PU|
000000F0: 4C 53 45 33 48 49 3D 35  34 32 38 38 0D 50 55 4C  |LSE3HI=54288.PUL|
00000100: 53 45 33 4C 4F 3D 35 34  32 38 39 0D 57 41 56 45  |SE3LO=54289.WAVE|
00000110: 33 3D 35 34 32 39 30 0D  41 54 54 33 3D 35 34 32  |3=54290.ATT3=542|
00000120: 39 31 0D 53 55 53 33 3D  35 34 32 39 32 0D 45 4E  |91.SUS3=54292.EN|
00000130: 56 45 4C 4F 50 45 3D 20  35 34 32 39 39 0D 52 41  |VELOPE= 54299.RA|
00000140: 4E 44 4F 4D 3D 35 34 32  39 37 0D 56 4F 4C 55 4D  |NDOM=54297.VOLUM|
00000150: 45 3D 35 34 32 39 36 0D  3B 0D 3B 42 41 43 4B 3D  |E=54296.;.;BACK=|
00000160: 35 33 32 38 31 0D 3B 42  4F 52 44 45 52 3D 35 33  |53281.;BORDER=53|
00000170: 32 38 30 0D 53 43 52 45  45 4E 3D 31 30 32 34 0D  |280.SCREEN=1024.|
00000180: 53 43 52 45 45 4E 43 4F  4C 3D 35 35 32 39 36 0D  |SCREENCOL=55296.|
00000190: 3B 0D 3B 20 20 20 20 20  20 20 56 41 52 49 41 42  |;.;       VARIAB|
000001A0: 4C 45 20 44 45 46 49 4E  49 54 49 4F 4E 53 0D 3B  |LE DEFINITIONS.;|
000001B0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000001C0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000001D0: 3D 0D 3B 0D 47 4C 5F 43  4F 55 4E 54 20 2E 42 59  |=.;.GL_COUNT .BY|
000001E0: 54 45 20 30 20 3B 47 4C  49 54 43 48 43 4F 55 4E  |TE 0 ;GLITCHCOUN|
000001F0: 54 0D 47 4C 5F 4D 41 58  20 2E 42 59 54 45 20 36  |T.GL_MAX .BYTE 6|
00000200: 20 3B 20 47 4C 49 54 43  48 4D 41 58 20 54 4F 20  | ; GLITCHMAX TO |
00000210: 43 4F 4D 50 41 52 45 20  47 4C 43 4F 55 4E 54 20  |COMPARE GLCOUNT |
00000220: 54 4F 0D 47 4C 5F 45 4E  41 42 4C 45 20 2E 42 59  |TO.GL_ENABLE .BY|
00000230: 54 45 20 30 0D 54 55 5F  43 4F 55 4E 54 20 2E 42  |TE 0.TU_COUNT .B|
00000240: 59 54 45 20 30 20 3B 20  54 55 4E 45 43 4F 55 4E  |YTE 0 ; TUNECOUN|
00000250: 54 0D 54 55 5F 4D 41 58  20 20 20 2E 42 59 54 45  |T.TU_MAX   .BYTE|
00000260: 20 32 31 20 3B 54 55 4E  45 4D 41 58 20 54 4F 20  | 21 ;TUNEMAX TO |
00000270: 43 4F 4D 50 41 52 45 20  54 4F 20 54 55 4E 45 43  |COMPARE TO TUNEC|
00000280: 4F 55 4E 54 20 54 4F 0D  54 55 5F 45 4E 41 42 4C  |OUNT TO.TU_ENABL|
00000290: 45 20 2E 42 59 54 45 20  30 0D 20 44 49 4D 20 54  |E .BYTE 0. DIM T|
000002A0: 45 4D 50 31 20 2C 20 54  45 4D 50 32 20 2C 20 54  |EMP1 , TEMP2 , T|
000002B0: 45 4D 50 25 0D 20 4C 45  54 20 56 4F 4C 55 4D 45  |EMP%. LET VOLUME|
000002C0: 20 3D 20 31 35 0D 20 47  4F 54 4F 20 53 54 41 52  | = 15. GOTO STAR|
000002D0: 54 0D 3B 0D 3B 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |T.;.;***********|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002F0: 2A 2A 2A 2A 2A 2A 0D 3B  0D 42 45 41 54 0D 3B 0D  |******.;.BEAT.;.|
00000300: 20 4C 44 41 20 23 31 0D  20 53 54 41 20 50 55 4C  | LDA #1. STA PUL|
00000310: 53 45 31 48 49 0D 20 4C  44 41 20 23 36 0D 20 53  |SE1HI. LDA #6. S|
00000320: 54 41 20 50 55 4C 53 45  31 4C 4F 0D 20 4C 44 41  |TA PULSE1LO. LDA|
00000330: 20 23 31 0D 20 53 54 41  20 46 52 45 51 31 48 49  | #1. STA FREQ1HI|
00000340: 0D 20 4C 44 41 20 23 31  0D 20 53 54 41 20 46 52  |. LDA #1. STA FR|
00000350: 45 51 31 4C 4F 0D 20 4C  44 41 20 23 30 0D 20 53  |EQ1LO. LDA #0. S|
00000360: 54 41 20 57 41 56 45 31  0D 20 4C 44 41 20 23 36  |TA WAVE1. LDA #6|
00000370: 35 0D 20 53 54 41 20 57  41 56 45 31 20 3B 20 52  |5. STA WAVE1 ; R|
00000380: 45 53 45 54 20 47 41 54  45 42 49 54 0D 20 4C 44  |ESET GATEBIT. LD|
00000390: 41 20 23 31 30 0D 20 53  54 41 20 41 54 54 31 0D  |A #10. STA ATT1.|
000003A0: 20 4C 44 41 20 23 39 0D  20 53 54 41 20 53 55 53  | LDA #9. STA SUS|
000003B0: 31 0D 20 52 45 54 55 52  4E 0D 3B 0D 3B 2A 2A 2A  |1. RETURN.;.;***|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 0D 3B  |**************.;|
000003E0: 0D 4E 4F 49 53 45 0D 3B  0D 20 4C 44 41 20 23 31  |.NOISE.;. LDA #1|
000003F0: 0D 20 53 54 41 20 50 55  4C 53 45 33 48 49 0D 20  |. STA PULSE3HI. |
00000400: 4C 44 41 20 23 36 0D 20  53 54 41 20 50 55 4C 53  |LDA #6. STA PULS|
00000410: 45 33 4C 4F 0D 20 4C 44  41 20 23 30 0D 20 53 54  |E3LO. LDA #0. ST|
00000420: 41 20 57 41 56 45 33 0D  20 4C 44 41 20 23 31 32  |A WAVE3. LDA #12|
00000430: 39 0D 20 53 54 41 20 57  41 56 45 33 20 3B 20 52  |9. STA WAVE3 ; R|
00000440: 45 53 45 54 20 47 41 54  45 42 49 54 0D 20 4C 44  |ESET GATEBIT. LD|
00000450: 41 20 45 4E 56 45 4C 4F  50 45 0D 20 53 54 41 20  |A ENVELOPE. STA |
00000460: 46 52 45 51 33 48 49 0D  20 4C 44 41 20 52 41 4E  |FREQ3HI. LDA RAN|
00000470: 44 4F 4D 0D 20 53 54 41  20 46 52 45 51 33 4C 4F  |DOM. STA FREQ3LO|
00000480: 0D 20 52 45 54 55 52 4E  0D 3B 0D 3B 2A 2A 2A 2A  |. RETURN.;.;****|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 0D 3B 0D  |*************.;.|
000004B0: 47 4C 49 54 43 48 0D 3B  0D 20 4C 44 41 20 23 31  |GLITCH.;. LDA #1|
000004C0: 0D 20 53 54 41 20 50 55  4C 53 45 33 48 49 0D 20  |. STA PULSE3HI. |
000004D0: 4C 44 41 20 23 36 0D 20  53 54 41 20 50 55 4C 53  |LDA #6. STA PULS|
000004E0: 45 33 4C 4F 0D 20 4C 44  41 20 23 30 0D 20 53 54  |E3LO. LDA #0. ST|
000004F0: 41 20 57 41 56 45 33 0D  20 4C 44 41 20 23 33 33  |A WAVE3. LDA #33|
00000500: 0D 20 53 54 41 20 57 41  56 45 33 20 3B 20 52 45  |. STA WAVE3 ; RE|
00000510: 53 45 54 20 47 41 54 45  42 49 54 0D 20 4C 44 41  |SET GATEBIT. LDA|
00000520: 20 23 31 30 0D 20 53 54  41 20 41 54 54 33 0D 20  | #10. STA ATT3. |
00000530: 4C 44 41 20 23 39 0D 20  53 54 41 20 53 55 53 33  |LDA #9. STA SUS3|
00000540: 0D 20 4C 44 41 20 23 31  0D 20 53 54 41 20 46 52  |. LDA #1. STA FR|
00000550: 45 51 33 48 49 20 3B 20  41 4C 57 41 59 53 20 54  |EQ3HI ; ALWAYS T|
00000560: 48 45 20 53 41 4D 45 0D  20 49 4E 43 20 47 4C 5F  |HE SAME. INC GL_|
00000570: 43 4F 55 4E 54 0D 20 49  46 20 47 4C 5F 43 4F 55  |COUNT. IF GL_COU|
00000580: 4E 54 20 3D 20 47 4C 5F  4D 41 58 20 47 4F 54 4F  |NT = GL_MAX GOTO|
00000590: 20 47 4C 5F 45 4E 44 0D  20 4C 44 59 20 47 4C 5F  | GL_END. LDY GL_|
000005A0: 43 4F 55 4E 54 0D 20 4C  44 41 20 47 4C 5F 44 41  |COUNT. LDA GL_DA|
000005B0: 54 41 2C 59 0D 20 53 54  41 20 46 52 45 51 33 4C  |TA,Y. STA FREQ3L|
000005C0: 4F 0D 20 52 45 54 55 52  4E 0D 47 4C 5F 45 4E 44  |O. RETURN.GL_END|
000005D0: 20 4C 44 41 20 23 30 20  3B 52 45 53 45 54 20 47  | LDA #0 ;RESET G|
000005E0: 4C 5F 43 4F 55 4E 54 0D  20 53 54 41 20 47 4C 5F  |L_COUNT. STA GL_|
000005F0: 43 4F 55 4E 54 0D 20 53  54 41 20 47 4C 5F 45 4E  |COUNT. STA GL_EN|
00000600: 41 42 4C 45 0D 20 52 45  54 55 52 4E 0D 3B 0D 47  |ABLE. RETURN.;.G|
00000610: 4C 5F 44 41 54 41 20 2E  42 59 54 45 20 31 32 2C  |L_DATA .BYTE 12,|
00000620: 32 38 2C 34 35 2C 36 32  2C 38 31 2C 38 31 0D 3B  |28,45,62,81,81.;|
00000630: 0D 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.;**************|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000650: 2A 2A 2A 0D 3B 0D 42 4C  49 4E 47 0D 3B 0D 20 4C  |***.;.BLING.;. L|
00000660: 44 41 20 23 31 0D 20 53  54 41 20 46 52 45 51 32  |DA #1. STA FREQ2|
00000670: 48 49 0D 20 4C 44 41 20  23 32 30 30 0D 20 53 54  |HI. LDA #200. ST|
00000680: 41 20 46 52 45 51 32 4C  4F 0D 20 4C 44 41 20 23  |A FREQ2LO. LDA #|
00000690: 30 0D 20 53 54 41 20 57  41 56 45 32 0D 20 4C 44  |0. STA WAVE2. LD|
000006A0: 41 20 23 33 33 0D 20 53  54 41 20 57 41 56 45 32  |A #33. STA WAVE2|
000006B0: 20 3B 20 52 45 53 45 54  20 47 41 54 45 42 49 54  | ; RESET GATEBIT|
000006C0: 0D 20 4C 44 41 20 23 31  30 0D 20 53 54 41 20 41  |. LDA #10. STA A|
000006D0: 54 54 32 0D 20 4C 44 41  20 23 39 0D 20 53 54 41  |TT2. LDA #9. STA|
000006E0: 20 53 55 53 32 0D 20 52  45 54 55 52 4E 0D 3B 0D  | SUS2. RETURN.;.|
000006F0: 3B 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |;***************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000710: 2A 2A 0D 3B 0D 54 55 4E  45 0D 3B 0D 20 4C 44 41  |**.;.TUNE.;. LDA|
00000720: 20 23 31 0D 20 53 54 41  20 50 55 4C 53 45 33 48  | #1. STA PULSE3H|
00000730: 49 0D 20 4C 44 41 20 23  36 0D 20 53 54 41 20 50  |I. LDA #6. STA P|
00000740: 55 4C 53 45 33 4C 4F 0D  20 4C 44 41 20 23 30 0D  |ULSE3LO. LDA #0.|
00000750: 20 53 54 41 20 57 41 56  45 33 0D 20 4C 44 41 20  | STA WAVE3. LDA |
00000760: 23 33 33 0D 20 53 54 41  20 57 41 56 45 33 20 3B  |#33. STA WAVE3 ;|
00000770: 20 52 45 53 45 54 20 47  41 54 45 42 49 54 0D 20  | RESET GATEBIT. |
00000780: 4C 44 41 20 23 31 30 0D  20 53 54 41 20 41 54 54  |LDA #10. STA ATT|
00000790: 33 0D 20 4C 44 41 20 23  39 0D 20 53 54 41 20 53  |3. LDA #9. STA S|
000007A0: 55 53 33 0D 20 4C 44 41  20 23 31 0D 20 53 54 41  |US3. LDA #1. STA|
000007B0: 20 46 52 45 51 33 48 49  20 3B 20 41 4C 57 41 59  | FREQ3HI ; ALWAY|
000007C0: 53 20 54 48 45 20 53 41  4D 45 0D 20 49 4E 43 20  |S THE SAME. INC |
000007D0: 54 55 5F 43 4F 55 4E 54  0D 20 49 46 20 54 55 5F  |TU_COUNT. IF TU_|
000007E0: 43 4F 55 4E 54 20 3D 20  54 55 5F 4D 41 58 20 47  |COUNT = TU_MAX G|
000007F0: 4F 54 4F 20 54 55 5F 45  4E 44 0D 20 4C 44 59 20  |OTO TU_END. LDY |
00000800: 54 55 5F 43 4F 55 4E 54  0D 20 4C 44 41 20 54 55  |TU_COUNT. LDA TU|
00000810: 5F 44 41 54 41 2C 59 0D  20 53 54 41 20 46 52 45  |_DATA,Y. STA FRE|
00000820: 51 33 4C 4F 0D 20 52 45  54 55 52 4E 0D 54 55 5F  |Q3LO. RETURN.TU_|
00000830: 45 4E 44 20 4C 44 41 20  23 30 20 3B 52 45 53 45  |END LDA #0 ;RESE|
00000840: 54 20 54 55 5F 43 4F 55  4E 54 0D 20 53 54 41 20  |T TU_COUNT. STA |
00000850: 54 55 5F 43 4F 55 4E 54  0D 20 53 54 41 20 54 55  |TU_COUNT. STA TU|
00000860: 5F 45 4E 41 42 4C 45 0D  20 52 45 54 55 52 4E 0D  |_ENABLE. RETURN.|
00000870: 3B 0D 54 55 5F 44 41 54  41 20 2E 42 59 54 45 20  |;.TU_DATA .BYTE |
00000880: 31 32 2C 32 38 2C 34 35  2C 36 32 2C 38 31 2C 38  |12,28,45,62,81,8|
00000890: 31 0D 20 2E 42 59 54 45  20 31 30 32 2C 31 30 32  |1. .BYTE 102,102|
000008A0: 2C 31 32 33 2C 31 32 33  2C 31 34 35 2C 31 32 33  |,123,123,145,123|
000008B0: 2C 31 32 33 0D 20 2E 42  59 54 45 20 31 30 32 2C  |,123. .BYTE 102,|
000008C0: 31 30 32 2C 38 31 2C 38  31 2C 36 32 2C 34 35 2C  |102,81,81,62,45,|
000008D0: 32 38 2C 31 32 0D 3B 0D  3B 2A 2A 2A 2A 2A 2A 2A  |28,12.;.;*******|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 0D 3B 0D 3B 4D 41  |**********.;.;MA|
00000900: 43 52 4F 20 44 45 46 49  4E 49 54 49 4F 4E 53 0D  |CRO DEFINITIONS.|
00000910: 3B 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |;===============|
00000920: 3D 3D 0D 3B 0D 3B 0D 3B  2A 2A 2A 2A 2A 2A 2A 2A  |==.;.;.;********|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A  0D 3B 0D 53 54 41 52 54  |********.;.START|
00000950: 20 47 52 30 0D 20 4C 45  54 20 43 4F 4C 4F 52 20  | GR0. LET COLOR |
00000960: 3D 20 31 35 0D 20 4C 45  54 20 54 45 4D 50 31 20  |= 15. LET TEMP1 |
00000970: 3D 20 33 37 0D 20 46 4F  52 20 54 45 4D 50 32 20  |= 37. FOR TEMP2 |
00000980: 3D 20 30 20 54 4F 20 32  34 0D 20 50 4C 4F 54 30  |= 0 TO 24. PLOT0|
00000990: 20 31 36 30 20 2C 20 54  45 4D 50 31 20 2C 20 54  | 160 , TEMP1 , T|
000009A0: 45 4D 50 32 0D 20 50 4C  4F 54 30 20 31 36 30 20  |EMP2. PLOT0 160 |
000009B0: 2C 20 54 45 4D 50 31 20  2B 20 31 20 2C 20 54 45  |, TEMP1 + 1 , TE|
000009C0: 4D 50 32 0D 20 50 4C 4F  54 30 20 31 36 30 20 2C  |MP2. PLOT0 160 ,|
000009D0: 20 54 45 4D 50 31 20 2B  20 32 20 2C 20 54 45 4D  | TEMP1 + 2 , TEM|
000009E0: 50 32 0D 20 4E 45 58 54  20 54 45 4D 50 32 0D 20  |P2. NEXT TEMP2. |
000009F0: 52 45 54 55 52 4E 0D 20  53 54 4F 50 0D 00 00 00  |RETURN. STOP....|
00000A00: 4F                                                |O               |

 .LST NOSOURCE. .LST CODE.FREQ1HI=54272.
FREQ1LO=54273.PULSE1HI=54274.PULSE1LO=54
275.WAVE1=54276.ATT1=54277.SUS1=54278.FR
EQ2HI=54279.FREQ2LO=54280.PULSE2HI=54281
.PULSE2LO=54282.WAVE2=54283.ATT2=54284.S
US2=54285.FREQ3HI=54286.FREQ3LO=54287.PU
LSE3HI=54288.PULSE3LO=54289.WAVE3=54290.
ATT3=54291.SUS3=54292.ENVELOPE= 54299.RA
NDOM=54297.VOLUME=54296.;.;BACK=53281.;B
ORDER=53280.SCREEN=1024.SCREENCOL=55296.
;.;       VARIABLE DEFINITIONS.;========
=========================.;.GL_COUNT .BY
TE 0 ;GLITCHCOUNT.GL_MAX .BYTE 6 ; GLITC
HMAX TO COMPARE GLCOUNT TO.GL_ENABLE .BY
TE 0.TU_COUNT .BYTE 0 ; TUNECOUNT.TU_MAX
   .BYTE 21 ;TUNEMAX TO COMPARE TO TUNEC
OUNT TO.TU_ENABLE .BYTE 0. DIM TEMP1 , T
EMP2 , TEMP%. LET VOLUME = 15. GOTO STAR
T.;.;*********************************.;
.BEAT.;. LDA #1. STA PULSE1HI. LDA #6. S
TA PULSE1LO. LDA #1. STA FREQ1HI. LDA #1
. STA FREQ1LO. LDA #0. STA WAVE1. LDA #6
5. STA WAVE1 ; RESET GATEBIT. LDA #10. S
TA ATT1. LDA #9. STA SUS1. RETURN.;.;***
******************************.;.NOISE.;
. LDA #1. STA PULSE3HI. LDA #6. STA PULS
E3LO. LDA #0. STA WAVE3. LDA #129. STA W
AVE3 ; RESET GATEBIT. LDA ENVELOPE. STA 
FREQ3HI. LDA RANDOM. STA FREQ3LO. RETURN
.;.;*********************************.;.
GLITCH.;. LDA #1. STA PULSE3HI. LDA #6. 
STA PULSE3LO. LDA #0. STA WAVE3. LDA #33
. STA WAVE3 ; RESET GATEBIT. LDA #10. ST
A ATT3. LDA #9. STA SUS3. LDA #1. STA FR
EQ3HI ; ALWAYS THE SAME. INC GL_COUNT. I
F GL_COUNT = GL_MAX GOTO GL_END. LDY GL_
COUNT. LDA GL_DATA,Y. STA FREQ3LO. RETUR
N.GL_END LDA #0 ;RESET GL_COUNT. STA GL_
COUNT. STA GL_ENABLE. RETURN.;.GL_DATA .
BYTE 12,28,45,62,81,81.;.;**************
*******************.;.BLING.;. LDA #1. S
TA FREQ2HI. LDA #200. STA FREQ2LO. LDA #
0. STA WAVE2. LDA #33. STA WAVE2 ; RESET
 GATEBIT. LDA #10. STA ATT2. LDA #9. STA
 SUS2. RETURN.;.;***********************
**********.;.TUNE.;. LDA #1. STA PULSE3H
I. LDA #6. STA PULSE3LO. LDA #0. STA WAV
E3. LDA #33. STA WAVE3 ; RESET GATEBIT. 
LDA #10. STA ATT3. LDA #9. STA SUS3. LDA
 #1. STA FREQ3HI ; ALWAYS THE SAME. INC 
TU_COUNT. IF TU_COUNT = TU_MAX GOTO TU_E
ND. LDY TU_COUNT. LDA TU_DATA,Y. STA FRE
Q3LO. RETURN.TU_END LDA #0 ;RESET TU_COU
NT. STA TU_COUNT. STA TU_ENABLE. RETURN.
;.TU_DATA .BYTE 12,28,45,62,81,81. .BYTE
 102,102,123,123,145,123,123. .BYTE 102,
102,81,81,62,45,28,12.;.;***************
******************.;.;MACRO DEFINITIONS.
;=================.;.;.;****************
****************.;.START GR0. LET COLOR 
= 15. LET TEMP1 = 37. FOR TEMP2 = 0 TO 2
4. PLOT0 160 , TEMP1 , TEMP2. PLOT0 160 
, TEMP1 + 1 , TEMP2. PLOT0 160 , TEMP1 +
 2 , TEMP2. NEXT TEMP2. RETURN. STOP....
O

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL