SOUND-INFO!
FILE INFORMATION
FILENAME(S): SOUND-INFO!
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 21:07:05
APPEARS ON: 1 disk(s)
FILE HASH
4c443b1117e4da2a6ca3d98bf3fbbb99617685e0f7a560408061ee698776b25e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PET DEMO S 01 | SOUND-INFO! | PRG | DuncanTwain | 25 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 48 04 64 00 8F 20 20 53 51 55 41 52 45 20 |..H.d.. SQUARE |
00000010: 57 41 56 45 20 47 45 4E 45 52 41 54 4F 52 20 57 |WAVE GENERATOR W|
00000020: 52 49 54 54 45 4E 20 20 20 20 20 20 20 20 20 20 |RITTEN |
00000030: 20 42 59 20 52 4F 4E 20 48 4F 4C 54 20 4A 52 2E | BY RON HOLT JR.|
00000040: 20 46 52 4F 4D 20 41 4E 00 92 04 6E 00 8F 20 20 | FROM AN...n.. |
00000050: 41 52 54 49 43 4C 45 20 49 4E 20 27 50 45 54 20 |ARTICLE IN 'PET |
00000060: 55 53 45 52 20 4E 4F 54 45 53 27 20 20 20 20 20 |USER NOTES' |
00000070: 20 20 20 20 20 20 20 20 4D 41 52 2F 41 50 50 20 | MAR/APP |
00000080: 37 38 2E 20 20 20 20 41 52 54 49 43 4C 45 20 42 |78. ARTICLE B|
00000090: 59 3A 00 D9 04 78 00 8F 20 20 4A 2E 20 52 2E 20 |Y:...x.. J. R. |
000000A0: 4B 49 4E 4E 41 52 44 2C 20 36 32 33 20 41 4D 45 |KINNARD, 623 AME|
000000B0: 53 42 55 52 59 20 20 20 20 20 20 20 20 20 20 20 |SBURY |
000000C0: 20 20 52 44 2E 2C 20 41 55 53 54 49 4E 2C 20 54 | RD., AUSTIN, T|
000000D0: 58 2E 2C 20 37 38 37 35 32 00 E8 04 82 00 8F 20 |X., 78752...... |
000000E0: 20 35 2F 33 31 2F 37 38 00 10 05 C8 00 99 22 93 | 5/31/78......".|
000000F0: 20 20 20 20 20 20 20 20 20 12 53 51 55 41 52 45 | .SQUARE|
00000100: 20 57 41 56 45 20 47 45 4E 45 52 41 54 4F 52 22 | WAVE GENERATOR"|
00000110: 00 32 05 04 01 99 22 20 20 20 54 48 49 53 20 50 |.2...." THIS P|
00000120: 52 4F 47 52 41 4D 20 47 45 4E 45 52 41 54 45 53 |ROGRAM GENERATES|
00000130: 20 41 00 5F 05 0E 01 99 22 50 52 4F 47 52 41 4D | A._...."PROGRAM|
00000140: 4D 41 42 4C 45 20 53 51 55 41 52 45 20 57 41 56 |MABLE SQUARE WAV|
00000150: 45 20 46 52 4F 4D 20 54 48 45 20 43 42 32 22 00 |E FROM THE CB2".|
00000160: 7D 05 18 01 99 22 4C 49 4E 45 20 4F 46 20 54 48 |}...."LINE OF TH|
00000170: 45 20 55 53 45 52 20 50 4F 52 54 2E 22 00 AA 05 |E USER PORT."...|
00000180: 22 01 99 22 4E 4F 20 4F 54 48 45 52 20 48 41 52 |".."NO OTHER HAR|
00000190: 44 57 41 52 45 20 49 53 20 4E 45 43 45 53 53 41 |DWARE IS NECESSA|
000001A0: 52 59 20 4F 54 48 45 52 20 22 00 C5 05 2C 01 99 |RY OTHER "...,..|
000001B0: 22 41 4E 20 41 55 44 49 4F 20 41 4D 50 4C 49 46 |"AN AUDIO AMPLIF|
000001C0: 49 45 52 2E 22 00 F1 05 36 01 99 22 20 20 20 41 |IER."...6.." A|
000001D0: 54 20 54 49 4D 45 53 20 49 54 20 57 4F 55 4C 44 |T TIMES IT WOULD|
000001E0: 20 42 45 20 44 45 53 49 52 41 42 4C 45 20 54 4F | BE DESIRABLE TO|
000001F0: 22 00 20 06 40 01 99 22 47 45 4E 45 52 41 54 45 |". .@.."GENERATE|
00000200: 20 41 4E 20 41 55 44 49 4F 20 53 49 47 4E 41 4C | AN AUDIO SIGNAL|
00000210: 20 46 52 4F 4D 20 54 48 45 20 12 50 45 54 92 22 | FROM THE .PET."|
00000220: 00 49 06 4A 01 99 22 54 4F 20 41 44 44 20 53 50 |.I.J.."TO ADD SP|
00000230: 45 43 49 41 4C 20 45 46 46 45 43 54 53 20 54 4F |ECIAL EFFECTS TO|
00000240: 20 47 41 4D 45 53 2C 20 22 00 75 06 54 01 99 22 | GAMES, ".u.T.."|
00000250: 45 58 50 45 52 49 4D 45 4E 54 20 57 49 54 48 20 |EXPERIMENT WITH |
00000260: 43 4F 4D 50 55 54 45 52 20 4D 55 53 49 43 2C 20 |COMPUTER MUSIC, |
00000270: 48 41 56 45 22 00 9F 06 5E 01 99 22 54 48 45 20 |HAVE"...^.."THE |
00000280: 43 4F 4D 50 55 54 45 52 20 43 41 4C 4C 20 59 4F |COMPUTER CALL YO|
00000290: 55 20 41 46 54 45 52 20 41 20 4C 4F 4E 47 22 00 |U AFTER A LONG".|
000002A0: CC 06 68 01 99 22 50 52 4F 47 52 41 4D 2C 20 4F |..h.."PROGRAM, O|
000002B0: 52 20 50 45 52 48 41 50 53 20 44 52 49 56 45 20 |R PERHAPS DRIVE |
000002C0: 41 20 4C 4F 57 20 53 50 45 45 44 22 00 FB 06 72 |A LOW SPEED"...r|
000002D0: 01 99 22 4D 4F 44 45 4D 20 46 4F 52 20 54 45 4C |.."MODEM FOR TEL|
000002E0: 45 50 48 4F 4E 45 20 4C 49 4E 45 20 43 4F 4D 4D |EPHONE LINE COMM|
000002F0: 55 4E 49 43 41 54 49 4F 4E 2E 22 00 2A 07 7C 01 |UNICATION.".*.|.|
00000300: 99 22 20 20 20 41 20 50 52 4F 47 52 41 4D 4D 41 |." A PROGRAMMA|
00000310: 42 4C 45 20 53 51 55 41 52 45 20 57 41 56 45 20 |BLE SQUARE WAVE |
00000320: 47 45 4E 45 52 41 54 4F 52 22 00 56 07 86 01 99 |GENERATOR".V....|
00000330: 22 49 53 20 49 4E 43 4C 55 44 45 44 20 49 4E 20 |"IS INCLUDED IN |
00000340: 54 48 45 20 4D 43 53 36 35 32 32 20 57 48 49 43 |THE MCS6522 WHIC|
00000350: 48 20 49 4E 20 22 00 85 07 90 01 99 22 49 4E 54 |H IN "......"INT|
00000360: 45 52 46 41 43 45 53 20 54 48 45 20 12 50 45 54 |ERFACES THE .PET|
00000370: 92 20 50 41 52 41 4C 4C 45 4C 20 55 53 45 52 20 |. PARALLEL USER |
00000380: 50 4F 52 54 22 00 B4 07 9A 01 99 22 57 48 45 4E |PORT"......"WHEN|
00000390: 20 54 48 45 20 54 41 50 45 20 44 52 49 56 45 20 | THE TAPE DRIVE |
000003A0: 49 53 20 4E 4F 54 20 49 4E 20 4F 50 45 52 41 54 |IS NOT IN OPERAT|
000003B0: 49 4F 4E 22 00 E0 07 A4 01 99 22 54 48 45 20 47 |ION"......"THE G|
000003C0: 45 4E 45 52 41 54 4F 52 20 43 41 4E 20 42 45 20 |ENERATOR CAN BE |
000003D0: 55 53 45 44 20 54 4F 20 50 52 4F 44 55 43 45 22 |USED TO PRODUCE"|
000003E0: 00 10 08 AE 01 99 22 4F 4E 45 20 4F 46 20 35 31 |......"ONE OF 51|
000003F0: 34 20 44 49 46 46 45 52 45 4E 54 20 46 52 45 51 |4 DIFFERENT FREQ|
00000400: 55 45 4E 43 49 45 53 20 42 45 54 57 45 45 4E 22 |UENCIES BETWEEN"|
00000410: 00 3F 08 B8 01 99 22 91 32 34 33 48 5A 20 41 4E |.?....".243HZ AN|
00000420: 44 20 31 32 35 4B 48 5A 20 4F 4E 20 43 42 32 20 |D 125KHZ ON CB2 |
00000430: 28 55 53 45 52 20 50 4F 52 54 20 50 49 4E 22 00 |(USER PORT PIN".|
00000440: 4A 08 BD 01 99 22 4D 2E 29 22 00 70 08 C2 01 99 |J...."M.)".p....|
00000450: 3A 99 3A 99 22 54 4F 20 43 4F 4E 54 49 4E 55 45 |:.:."TO CONTINUE|
00000460: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 | PRESS ANY KEY."|
00000470: 00 83 08 CC 01 A1 41 24 3A 8B 41 24 B2 22 22 89 |......A$:.A$."".|
00000480: 34 36 30 00 AF 08 D6 01 99 22 93 54 48 45 20 46 |460......".THE F|
00000490: 45 41 54 55 52 45 20 4F 46 20 54 48 45 20 36 35 |EATURE OF THE 65|
000004A0: 32 32 20 57 48 49 43 48 20 4D 41 4B 45 53 22 00 |22 WHICH MAKES".|
000004B0: DD 08 E0 01 99 22 54 48 49 53 20 50 4F 53 53 49 |....."THIS POSSI|
000004C0: 42 4C 45 20 49 53 20 41 20 52 45 43 49 52 43 55 |BLE IS A RECIRCU|
000004D0: 4C 41 54 49 4E 47 20 53 48 49 46 54 22 00 0A 09 |LATING SHIFT"...|
000004E0: EA 01 99 22 52 45 47 49 53 54 45 52 20 49 4E 54 |..."REGISTER INT|
000004F0: 45 4E 45 44 20 46 4F 52 20 53 45 52 49 41 4C 20 |ENED FOR SERIAL |
00000500: 44 41 54 41 20 49 2F 4F 2E 22 00 38 09 F4 01 99 |DATA I/O.".8....|
00000510: 22 57 49 54 48 20 41 20 53 51 55 41 52 45 20 57 |"WITH A SQUARE W|
00000520: 41 56 45 20 50 41 54 54 45 52 4E 20 4C 4F 41 44 |AVE PATTERN LOAD|
00000530: 45 44 20 49 4E 54 4F 22 00 66 09 FE 01 99 22 54 |ED INTO".f...."T|
00000540: 48 45 20 53 48 49 46 54 20 52 45 47 49 53 54 45 |HE SHIFT REGISTE|
00000550: 52 20 41 4E 44 20 54 48 45 20 43 4F 4E 54 52 4F |R AND THE CONTRO|
00000560: 4C 20 53 45 54 22 00 93 09 08 02 99 22 46 4F 52 |L SET"......"FOR|
00000570: 20 46 52 45 45 20 52 55 4E 4E 49 4E 47 20 4F 55 | FREE RUNNING OU|
00000580: 54 50 55 54 20 55 4E 44 45 52 20 41 20 54 49 4D |TPUT UNDER A TIM|
00000590: 45 52 22 00 BF 09 12 02 99 22 43 4F 4E 54 52 4F |ER"......"CONTRO|
000005A0: 4C 4C 45 44 20 52 41 54 45 2C 20 41 20 43 4F 4E |LLED RATE, A CON|
000005B0: 54 49 4E 55 4F 55 53 20 53 51 55 41 52 45 22 00 |TINUOUS SQUARE".|
000005C0: DF 09 1C 02 99 22 57 41 56 45 20 49 53 20 50 52 |....."WAVE IS PR|
000005D0: 4F 44 55 43 45 44 20 4F 4E 20 43 42 32 2E 22 00 |ODUCED ON CB2.".|
000005E0: 09 0A 26 02 99 22 20 20 20 54 48 45 20 42 41 53 |..&.." THE BAS|
000005F0: 49 43 20 53 54 41 54 45 4D 45 4E 54 53 20 4E 45 |IC STATEMENTS NE|
00000600: 45 44 45 44 20 54 4F 20 22 00 33 0A 30 02 99 22 |EDED TO ".3.0.."|
00000610: 43 4F 4E 54 52 4F 4C 20 54 48 45 20 4F 55 54 50 |CONTROL THE OUTP|
00000620: 55 54 20 41 52 45 20 41 53 20 46 4F 4C 4C 4F 57 |UT ARE AS FOLLOW|
00000630: 53 3A 22 00 56 0A 3A 02 99 3A 99 22 20 20 20 20 |S:".V.:..:." |
00000640: 20 20 20 20 20 20 20 12 50 4F 4B 45 20 35 39 34 | .POKE 594|
00000650: 36 37 2C 31 36 22 00 82 0A 44 02 99 22 53 45 54 |67,16"...D.."SET|
00000660: 53 20 53 48 49 46 54 20 52 45 47 49 53 54 45 52 |S SHIFT REGISTER|
00000670: 20 46 4F 52 20 46 52 45 45 20 52 55 4E 4E 49 4E | FOR FREE RUNNIN|
00000680: 47 22 00 96 0A 4E 02 99 22 4F 55 54 50 55 54 20 |G"...N.."OUTPUT |
00000690: 4D 4F 44 45 2E 22 00 B8 0A 58 02 99 3A 99 22 20 |MODE."...X..:." |
000006A0: 20 20 20 20 20 20 20 20 20 20 12 50 4F 4B 45 20 | .POKE |
000006B0: 35 39 34 36 34 2C 43 22 00 E2 0A 62 02 99 22 53 |59464,C"...b.."S|
000006C0: 45 54 53 20 53 48 49 46 54 20 52 41 54 45 2E 20 |ETS SHIFT RATE. |
000006D0: 27 43 27 20 49 53 20 41 4E 20 49 4E 54 45 47 45 |'C' IS AN INTEGE|
000006E0: 52 22 00 FC 0A 6C 02 99 22 42 45 54 57 45 45 4E |R"...l.."BETWEEN|
000006F0: 20 30 20 41 4E 44 20 32 35 35 2E 22 00 1E 0B 76 | 0 AND 255."...v|
00000700: 02 99 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |..:." |
00000710: 12 50 4F 4B 45 20 35 39 34 36 36 2C 44 22 00 4B |.POKE 59466,D".K|
00000720: 0B 80 02 99 22 4C 4F 41 44 53 20 54 48 45 20 53 |...."LOADS THE S|
00000730: 48 49 46 54 20 52 45 47 49 53 54 45 52 2E 20 20 |HIFT REGISTER. |
00000740: 27 44 27 20 53 48 4F 55 4C 44 22 00 76 0B 8A 02 |'D' SHOULD".v...|
00000750: 99 22 42 45 20 31 35 2C 20 35 31 2C 20 4F 52 20 |."BE 15, 51, OR |
00000760: 38 35 20 46 4F 52 20 41 20 53 51 55 41 52 45 20 |85 FOR A SQUARE |
00000770: 57 41 56 45 20 22 00 85 0B 94 02 99 22 4F 55 54 |WAVE "......"OUT|
00000780: 50 55 54 2E 22 00 AA 0B 9E 02 99 3A 99 22 50 52 |PUT."......:."PR|
00000790: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
000007A0: 4F 4E 54 49 4E 55 45 2E 22 3B 00 BD 0B A8 02 A1 |ONTINUE.";......|
000007B0: 41 24 3A 8B 41 24 B2 22 22 89 36 38 30 00 C7 0B |A$:.A$."".680...|
000007C0: B2 02 89 36 30 30 30 00 F2 0B BC 02 99 22 93 46 |...6000......".F|
000007D0: 4F 52 20 41 20 44 45 4D 4F 4E 53 54 52 41 54 49 |OR A DEMONSTRATI|
000007E0: 4F 4E 20 4F 46 20 53 4F 4D 45 20 4F 46 20 54 48 |ON OF SOME OF TH|
000007F0: 45 22 00 20 0C C1 02 99 22 50 4F 53 53 49 42 4C |E". ...."POSSIBL|
00000800: 45 20 53 4F 55 4E 44 53 2C 20 43 4F 4E 4E 45 43 |E SOUNDS, CONNEC|
00000810: 54 20 54 48 45 20 41 4D 50 4C 49 46 49 45 52 22 |T THE AMPLIFIER"|
00000820: 00 3F 0C C6 02 99 22 41 4E 44 20 54 48 45 4E 20 |.?...."AND THEN |
00000830: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 |PRESS ANY KEY.".|
00000840: 52 0C D0 02 A1 41 24 3A 8B 41 24 B2 22 22 89 37 |R....A$:.A$."".7|
00000850: 32 30 00 74 0C DA 02 41 55 58 49 4C 4C 41 52 59 |20.t...AUXILLARY|
00000860: 20 43 54 52 4C 20 52 45 47 49 53 54 45 52 B2 35 | CTRL REGISTER.5|
00000870: 39 34 36 37 00 90 0C E4 02 52 41 54 45 B2 35 39 |9467.....RATE.59|
00000880: 34 36 34 3A 8F 20 53 48 49 46 54 20 52 41 54 45 |464:. SHIFT RATE|
00000890: 00 B4 0C EE 02 52 45 47 49 53 54 45 52 B2 35 39 |.....REGISTER.59|
000008A0: 34 36 36 3A 8F 20 53 48 49 46 54 20 52 45 47 49 |466:. SHIFT REGI|
000008B0: 53 54 45 52 00 C0 0C F8 02 97 20 41 55 2C 31 36 |STER...... AU,16|
000008C0: 00 CB 0C 02 03 97 20 52 41 2C 30 00 DD 0C 07 03 |...... RA,0.....|
000008D0: 53 20 52 45 47 49 53 54 45 52 B2 31 35 00 E9 0C |S REGISTER.15...|
000008E0: 0C 03 97 20 52 45 2C 53 52 00 0F 0D 11 03 99 3A |... RE,SR......:|
000008F0: 99 22 53 48 49 46 54 20 52 45 47 49 53 54 45 52 |."SHIFT REGISTER|
00000900: 20 4C 4F 41 44 45 44 20 57 49 54 48 22 53 52 00 | LOADED WITH"SR.|
00000910: 2F 0D 13 03 99 3A 99 22 53 48 49 46 54 20 52 41 |/....:."SHIFT RA|
00000920: 54 45 20 4C 4F 41 44 45 44 20 57 49 54 48 22 00 |TE LOADED WITH".|
00000930: 3A 0D 16 03 81 49 B2 31 A4 32 00 61 0D 20 03 81 |:....I.1.2.a. ..|
00000940: 4A B2 30 A4 32 35 35 A9 20 35 3A 99 22 91 22 2C |J.0.255. 5:.".",|
00000950: 2C 22 1D 1D 22 4A 22 20 22 3A 97 52 41 2C 4A 3A |,".."J" ":.RA,J:|
00000960: 82 00 89 0D 2A 03 81 4A B2 32 35 35 A4 30 A9 AB |....*..J.255.0..|
00000970: 35 3A 99 22 91 22 2C 2C 22 1D 1D 22 4A 22 9D 20 |5:.".",,".."J". |
00000980: 22 3A 97 52 41 2C 4A 3A 82 00 8F 0D 34 03 82 00 |":.RA,J:....4...|
00000990: B2 0D 84 03 99 22 93 53 48 49 46 54 20 52 45 47 |.....".SHIFT REG|
000009A0: 49 53 54 45 52 20 4C 4F 41 44 45 44 20 57 49 54 |ISTER LOADED WIT|
000009B0: 48 22 00 D6 0D 8E 03 99 3A 99 22 53 48 49 46 54 |H"......:."SHIFT|
000009C0: 20 52 41 54 45 20 4C 4F 41 44 45 44 20 57 49 54 | RATE LOADED WIT|
000009D0: 48 20 31 35 30 22 00 E2 0D 93 03 97 52 41 2C 31 |H 150"......RA,1|
000009E0: 35 30 00 F1 0D 98 03 81 49 B2 30 A4 32 35 35 A9 |50......I.0.255.|
000009F0: 33 00 07 0E A2 03 99 22 13 22 2C 2C 2C 22 9D 9D |3......".",,,"..|
00000A00: 9D 9D 22 49 22 20 22 00 11 0E AC 03 97 52 45 2C |.."I" "......RE,|
00000A10: 49 00 1F 0E B1 03 81 4A B2 31 A4 37 35 3A 82 00 |I......J.1.75:..|
00000A20: 25 0E B6 03 82 00 48 0E C0 03 99 22 93 53 48 49 |%.....H....".SHI|
00000A30: 46 54 20 52 45 47 49 53 54 45 52 20 4C 4F 41 44 |FT REGISTER LOAD|
00000A40: 45 44 20 57 49 54 48 22 00 68 0E CA 03 99 3A 99 |ED WITH".h....:.|
00000A50: 22 53 48 49 46 54 20 52 41 54 45 20 4C 4F 41 44 |"SHIFT RATE LOAD|
00000A60: 45 44 20 57 49 54 48 22 00 74 0E CF 03 81 49 B2 |ED WITH".t....I.|
00000A70: 31 A4 38 30 00 87 0E D4 03 53 52 B2 B5 28 BB 28 |1.80.....SR..(.(|
00000A80: 31 29 AC 32 35 35 29 00 9A 0E DE 03 52 54 B2 B5 |1).255).....RT..|
00000A90: 28 BB 28 31 29 AC 32 35 35 29 00 B2 0E E8 03 99 |(.(1).255)......|
00000AA0: 22 13 22 2C 2C 2C 22 9D 9D 9D 9D 22 53 52 22 9D |".",,,"...."SR".|
00000AB0: 20 22 00 C7 0E F2 03 99 22 11 22 2C 2C 22 1D 1D | "......".",,"..|
00000AC0: 22 52 54 22 9D 20 22 00 D9 0E FC 03 97 52 45 2C |"RT". "......RE,|
00000AD0: 53 52 3A 97 52 41 2C 52 54 00 EC 0E 01 04 81 4A |SR:.RA,RT......J|
00000AE0: B2 31 A4 BB 28 31 29 AC 35 30 3A 82 00 F2 0E 06 |.1..(1).50:.....|
00000AF0: 04 82 00 FB 0E 4C 04 99 22 93 22 00 01 0F 51 04 |.....L.."."...Q.|
00000B00: 8C 00 12 0F 56 04 97 52 45 2C 31 35 3A 97 52 41 |....V..RE,15:.RA|
00000B10: 2C 30 00 1B 0F 60 04 87 4E 2C 54 00 2D 0F 65 04 |,0...`..N,T.-.e.|
00000B20: 8B 4E B2 30 AF 54 B2 30 89 31 32 30 30 00 37 0F |.N.0.T.0.1200.7.|
00000B30: 6A 04 97 52 41 2C 4E 00 45 0F 74 04 81 49 B2 31 |j..RA,N.E.t..I.1|
00000B40: A4 54 AC 37 35 00 4B 0F 7E 04 82 00 55 0F 83 04 |.T.75.K.~...U...|
00000B50: 97 52 41 2C 30 00 5F 0F 88 04 89 31 31 32 30 00 |.RA,0._....1120.|
00000B60: 75 0F B0 04 97 41 55 2C 30 3A 97 52 45 2C 30 3A |u....AU,0:.RE,0:|
00000B70: 97 52 41 2C 30 00 AB 0F D0 07 83 39 30 2C 32 2C |.RA,0......90,2,|
00000B80: 31 35 35 2C 31 2C 31 35 35 2C 31 2C 31 34 30 2C |155,1,155,1,140,|
00000B90: 32 2C 31 35 35 2C 32 2C 2C 2E 37 2C 31 31 30 2C |2,155,2,,.7,110,|
00000BA0: 31 2E 35 2C 31 31 30 2C 31 2E 35 00 B4 0F DA 07 |1.5,110,1.5.....|
00000BB0: 83 30 2C 30 00 D4 0F 87 13 8F 41 52 4B 41 42 4C |.0,0......ARKABL|
00000BC0: 45 20 50 52 4F 47 52 41 4D 2C 20 49 53 4E 27 54 |E PROGRAM, ISN'T|
00000BD0: 20 49 54 3F 00 DA 0F 88 13 80 00 07 10 70 17 99 | IT?.........p..|
00000BE0: 22 93 54 48 45 20 46 52 45 51 55 45 4E 43 59 20 |".THE FREQUENCY |
00000BF0: 4F 46 20 54 48 45 20 53 51 55 41 52 45 20 57 41 |OF THE SQUARE WA|
00000C00: 56 45 20 43 41 4E 22 00 2F 10 7A 17 99 22 42 45 |VE CAN"./.z.."BE|
00000C10: 20 44 45 54 45 52 4D 49 4E 45 44 20 46 52 4F 4D | DETERMINED FROM|
00000C20: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 | THE FOLLOWING".|
00000C30: 40 10 84 17 99 22 45 51 55 41 54 49 4F 4E 3A 22 |@...."EQUATION:"|
00000C40: 00 5F 10 8E 17 99 3A 99 22 46 52 45 51 55 45 4E |._....:."FREQUEN|
00000C50: 43 59 20 3D 20 35 30 30 30 30 30 20 48 5A 22 00 |CY = 500000 HZ".|
00000C60: 79 10 98 17 99 22 20 20 20 20 20 20 20 20 20 20 |y...." |
00000C70: 20 20 C0 C0 C0 C0 C0 C0 22 00 95 10 A2 17 99 22 | ......"......"|
00000C80: 20 20 20 20 20 20 20 20 20 20 28 43 2B 32 29 2A | (C+2)*|
00000C90: 28 44 31 29 22 00 BB 10 AC 17 99 3A 99 22 57 48 |(D1)"......:."WH|
00000CA0: 45 52 45 20 44 31 3D 38 20 46 4F 52 20 53 48 49 |ERE D1=8 FOR SHI|
00000CB0: 46 54 20 52 45 47 2E 3D 31 35 22 00 DF 10 B6 17 |FT REG.=15".....|
00000CC0: 99 22 20 20 20 20 20 20 44 31 3D 34 20 46 4F 52 |." D1=4 FOR|
00000CD0: 20 53 48 49 46 54 20 52 45 47 2E 3D 35 31 22 00 | SHIFT REG.=51".|
00000CE0: 03 11 C0 17 99 22 20 20 20 20 20 20 44 31 3D 32 |....." D1=2|
00000CF0: 20 46 4F 52 20 53 48 49 46 54 20 52 45 47 2E 3D | FOR SHIFT REG.=|
00000D00: 38 35 22 00 32 11 CA 17 99 3A 99 22 52 45 41 44 |85".2....:."READ|
00000D10: 49 4E 47 20 4F 52 20 57 52 49 54 49 4E 47 20 54 |ING OR WRITING T|
00000D20: 48 45 20 53 48 49 46 54 20 52 45 47 49 53 54 45 |HE SHIFT REGISTE|
00000D30: 52 22 00 60 11 D4 17 99 22 4D 55 53 54 20 42 45 |R".`...."MUST BE|
00000D40: 20 44 4F 4E 45 20 4C 41 53 54 20 41 53 20 54 48 | DONE LAST AS TH|
00000D50: 49 53 20 49 4E 54 49 41 54 45 53 20 54 48 45 22 |IS INTIATES THE"|
00000D60: 00 88 11 DE 17 99 22 53 48 49 46 54 49 4E 47 20 |......"SHIFTING |
00000D70: 4F 50 45 52 41 54 49 4F 4E 2E 20 20 54 48 45 20 |OPERATION. THE |
00000D80: 43 4F 4E 54 52 4F 4C 22 00 B7 11 E8 17 99 22 52 |CONTROL"......"R|
00000D90: 45 47 49 53 54 45 52 20 41 54 20 35 39 34 36 37 |EGISTER AT 59467|
00000DA0: 20 4D 55 53 54 20 42 45 20 52 45 4C 4F 41 44 45 | MUST BE RELOADE|
00000DB0: 44 20 57 49 54 48 22 00 DF 11 F2 17 99 22 5A 45 |D WITH"......"ZE|
00000DC0: 52 4F 20 46 4F 52 20 54 48 45 20 54 41 50 45 20 |RO FOR THE TAPE |
00000DD0: 44 52 49 56 45 20 54 4F 20 57 52 49 54 45 22 00 |DRIVE TO WRITE".|
00000DE0: F1 11 FC 17 99 22 43 4F 52 52 45 43 54 4C 59 2E |....."CORRECTLY.|
00000DF0: 22 00 20 12 06 18 99 22 20 20 44 4F 20 4E 4F 54 |". ...." DO NOT|
00000E00: 20 43 4F 4E 4E 45 43 54 20 41 20 53 50 45 41 4B | CONNECT A SPEAK|
00000E10: 45 52 20 4F 52 20 45 41 52 50 48 4F 4E 45 53 22 |ER OR EARPHONES"|
00000E20: 00 4D 12 10 18 99 22 44 49 52 45 43 54 4C 59 20 |.M...."DIRECTLY |
00000E30: 54 4F 20 54 48 45 20 50 45 54 2E 20 20 41 4E 20 |TO THE PET. AN |
00000E40: 41 4D 50 4C 49 46 49 45 52 20 49 53 22 00 7B 12 |AMPLIFIER IS".{.|
00000E50: 1A 18 99 22 4E 45 43 45 53 53 41 52 59 20 54 4F |..."NECESSARY TO|
00000E60: 20 49 53 4F 4C 41 54 45 20 54 48 45 20 36 35 32 | ISOLATE THE 652|
00000E70: 32 20 56 49 41 20 46 52 4F 4D 22 00 93 12 24 18 |2 VIA FROM"...$.|
00000E80: 99 22 49 4E 44 55 43 54 49 56 45 20 4C 4F 41 44 |."INDUCTIVE LOAD|
00000E90: 53 2E 22 00 B8 12 2E 18 99 3A 99 22 54 4F 20 43 |S."......:."TO C|
00000EA0: 4F 4E 54 49 4E 55 45 2C 20 50 52 45 53 53 20 41 |ONTINUE, PRESS A|
00000EB0: 4E 59 20 4B 45 59 2E 22 00 CC 12 38 18 A1 41 24 |NY KEY."...8..A$|
00000EC0: 3A 8B 41 24 B2 22 22 89 36 32 30 30 00 FA 12 58 |:.A$."".6200...X|
00000ED0: 1B 99 22 93 20 54 48 45 20 54 41 50 45 20 20 23 |..". THE TAPE #|
00000EE0: 32 20 52 45 41 44 20 53 49 47 4E 41 4C 20 4F 4E |2 READ SIGNAL ON|
00000EF0: 20 54 48 45 20 55 53 45 52 22 00 29 13 62 1B 99 | THE USER".).b..|
00000F00: 22 50 4F 52 54 20 50 49 4E 20 38 20 28 54 41 50 |"PORT PIN 8 (TAP|
00000F10: 45 20 23 32 20 52 45 41 44 20 41 4E 44 20 54 41 |E #2 READ AND TA|
00000F20: 50 45 20 57 52 49 54 45 22 00 51 13 6C 1B 99 22 |PE WRITE".Q.l.."|
00000F30: 41 52 45 20 52 45 56 45 52 53 45 44 20 49 4E 20 |ARE REVERSED IN |
00000F40: 54 48 45 20 49 4E 54 52 4F 44 55 43 54 4F 52 59 |THE INTRODUCTORY|
00000F50: 22 00 80 13 76 1B 99 22 4D 41 4E 55 41 4C 29 20 |"...v.."MANUAL) |
00000F60: 41 50 50 45 41 52 53 20 54 4F 20 42 45 20 54 48 |APPEARS TO BE TH|
00000F70: 45 20 43 42 31 20 4C 49 4E 45 20 46 52 4F 4D 22 |E CB1 LINE FROM"|
00000F80: 00 AC 13 80 1B 99 22 54 48 45 20 36 35 32 32 20 |......"THE 6522 |
00000F90: 41 4E 44 20 43 41 52 52 49 45 53 20 54 48 45 20 |AND CARRIES THE |
00000FA0: 53 48 49 46 54 20 43 4C 4F 43 4B 22 00 D2 13 8A |SHIFT CLOCK"....|
00000FB0: 1B 99 22 53 49 47 4E 41 4C 2E 20 20 57 49 54 48 |.."SIGNAL. WITH|
00000FC0: 20 42 4F 54 48 20 43 42 31 20 41 4E 44 20 43 42 | BOTH CB1 AND CB|
00000FD0: 32 22 00 02 14 94 1B 99 22 41 56 41 49 4C 41 42 |2"......"AVAILAB|
00000FE0: 4C 45 2C 20 49 54 20 4D 41 59 20 42 45 20 50 4F |LE, IT MAY BE PO|
00000FF0: 53 53 49 42 4C 45 20 54 4F 20 55 53 45 20 54 48 |SSIBLE TO USE TH|
00001000: 45 22 00 31 14 9E 1B 99 22 91 49 2F 4F 20 50 4F |E".1....".I/O PO|
00001010: 52 54 20 45 58 50 41 4E 53 49 4F 4E 20 53 43 48 |RT EXPANSION SCH|
00001020: 45 4D 45 20 44 45 53 43 52 49 42 45 44 20 49 4E |EME DESCRIBED IN|
00001030: 22 00 60 14 A8 1B 99 22 54 48 45 20 4D 43 53 36 |".`...."THE MCS6|
00001040: 35 32 32 20 56 45 52 53 41 54 49 4C 45 20 49 4E |522 VERSATILE IN|
00001050: 54 45 52 46 41 43 45 20 41 44 41 50 54 45 52 22 |TERFACE ADAPTER"|
00001060: 00 8A 14 AD 1B 99 22 44 41 54 41 20 53 48 45 45 |......"DATA SHEE|
00001070: 54 53 2C 20 41 56 41 49 4C 41 42 4C 45 20 42 59 |TS, AVAILABLE BY|
00001080: 20 57 52 49 54 49 4E 47 3A 22 00 A2 14 B2 1B 99 | WRITING:"......|
00001090: 3A 99 22 4D 4F 53 20 54 45 43 48 4E 4F 4C 4F 47 |:."MOS TECHNOLOG|
000010A0: 59 22 00 BC 14 BC 1B 99 22 39 35 30 20 52 49 54 |Y"......"950 RIT|
000010B0: 54 45 4E 48 4F 55 53 45 20 52 44 2E 00 DB 14 C6 |TENHOUSE RD.....|
000010C0: 1B 99 22 4E 4F 52 52 49 53 54 4F 57 4E 2C 20 50 |.."NORRISTOWN, P|
000010D0: 41 20 20 20 20 31 39 34 30 31 22 00 F1 14 D0 1B |A 19401".....|
000010E0: 99 22 28 32 31 35 29 20 36 36 36 2D 37 39 35 30 |."(215) 666-7950|
000010F0: 22 00 16 15 DA 1B 99 3A 99 22 54 4F 20 43 4F 4E |"......:."TO CON|
00001100: 54 49 4E 55 45 2C 20 50 52 45 53 53 20 41 4E 59 |TINUE, PRESS ANY|
00001110: 20 4B 45 59 2E 22 00 2A 15 E4 1B A1 41 24 3A 8B | KEY.".*....A$:.|
00001120: 41 24 B2 22 22 89 37 31 34 30 00 33 15 40 1F 89 |A$."".7140.3.@..|
00001130: 37 30 30 00 00 00 00 |700.... |
..H.D.. SQUARE WAVE GENERATOR WRITTEN
BY RON HOLT JR. FROM AN...N..
ARTICLE IN 'PET USER NOTES'
MAR/APP 78. ARTICLE BY:.Y.X.. J. R.
KINNARD, 623 AMESBURY RD., A
USTIN, TX., 78752...... 5/31/78...H..".
.SQUARE WAVE GENERATOR".2...."
THIS PROGRAM GENERATES A._...."PROGRAM
MABLE SQUARE WAVE FROM THE CB2".}...."LI
NE OF THE USER PORT."...".."NO OTHER HAR
DWARE IS NECESSARY OTHER ".E.,.."AN AUDI
O AMPLIFIER."...6.." AT TIMES IT WOULD
BE DESIRABLE TO". .@.."GENERATE AN AUDI
O SIGNAL FROM THE .PET.".I.J.."TO ADD SP
ECIAL EFFECTS TO GAMES, ".U.T.."EXPERIME
NT WITH COMPUTER MUSIC, HAVE"...^.."THE
COMPUTER CALL YOU AFTER A LONG".L.H.."PR
OGRAM, OR PERHAPS DRIVE A LOW SPEED"...R
.."MODEM FOR TELEPHONE LINE COMMUNICATIO
N.".*.|.." A PROGRAMMABLE SQUARE WAVE
GENERATOR".V...."IS INCLUDED IN THE MCS6
522 WHICH IN "......"INTERFACES THE .PET
. PARALLEL USER PORT"......"WHEN THE TAP
E DRIVE IS NOT IN OPERATION"......"THE G
ENERATOR CAN BE USED TO PRODUCE"......"O
NE OF 514 DIFFERENT FREQUENCIES BETWEEN"
.?....".243HZ AND 125KHZ ON CB2 (USER PO
RT PIN".J...."M.)".P.B..:.:."TO CONTINUE
PRESS ANY KEY."...L..A$:.A$."".460...V.
.".THE FEATURE OF THE 6522 WHICH MAKES".
....."THIS POSSIBLE IS A RECIRCULATING S
HIFT"......"REGISTER INTENED FOR SERIAL
DATA I/O.".8...."WITH A SQUARE WAVE PATT
ERN LOADED INTO".F...."THE SHIFT REGISTE
R AND THE CONTROL SET"......"FOR FREE RU
NNING OUTPUT UNDER A TIMER"......"CONTRO
LLED RATE, A CONTINUOUS SQUARE"......"WA
VE IS PRODUCED ON CB2."...&.." THE BAS
IC STATEMENTS NEEDED TO ".3.0.."CONTROL
THE OUTPUT ARE AS FOLLOWS:".V.:..:."
.POKE 59467,16"...D.."SETS SHIFT
REGISTER FOR FREE RUNNING"...N.."OUTPUT
MODE."...X..:." .POKE 59464,C"
...B.."SETS SHIFT RATE. 'C' IS AN INTEGE
R"...L.."BETWEEN 0 AND 255."...V..:."
.POKE 59466,D".K...."LOADS THE S
HIFT REGISTER. 'D' SHOULD".V...."BE 15,
51, OR 85 FOR A SQUARE WAVE "......"OUT
PUT."......:."PRESS ANY KEY TO CONTINUE.
";......A$:.A$."".680.G....6000......".F
OR A DEMONSTRATION OF SOME OF THE". .A..
"POSSIBLE SOUNDS, CONNECT THE AMPLIFIER"
.?.F.."AND THEN PRESS ANY KEY.".R.P..A$:
.A$."".720.T.Z.AUXILLARY CTRL REGISTER.5
9467.....RATE.59464:. SHIFT RATE.....REG
ISTER.59466:. SHIFT REGISTER...... AU,16
.K.... RA,0.....S REGISTER.15...... RE,S
R......:."SHIFT REGISTER LOADED WITH"SR.
/....:."SHIFT RATE LOADED WITH".:....I.1
.2.A. ..J.0.255. 5:.".",,".."J" ":.RA,J:
....*..J.255.0..5:.".",,".."J". ":.RA,J:
....4........".SHIFT REGISTER LOADED WIT
H".V....:."SHIFT RATE LOADED WITH 150"..
....RA,150......I.0.255.3......".",,,"..
.."I" "......RE,I......J.1.75:..%.....H.
...".SHIFT REGISTER LOADED WITH".H.J..:.
"SHIFT RATE LOADED WITH".T.O..I.1.80...T
.SR..(.(1).255).....RT..(.(1).255)......
".",,,"...."SR". ".G....".",,".."RT". ".
Y....RE,SR:.RA,RT......J.1..(1).50:.....
.....L.."."...Q.....V..RE,15:.RA,0...`..
N,T.-.E..N.0.T.0.1200.7.J..RA,N.E.T..I.1
.T.75.K.~...U....RA,0._....1120.U....AU,
0:.RE,0:.RA,0...P..90,2,155,1,155,1,140,
2,155,2,,.7,110,1.5,110,1.5...Z..0,0.T..
..ARKABLE PROGRAM, ISN'T IT?.Z.......P..
".THE FREQUENCY OF THE SQUARE WAVE CAN".
/.Z.."BE DETERMINED FROM THE FOLLOWING".
@...."EQUATION:"._....:."FREQUENCY = 500
000 HZ".Y...." ......"......"
(C+2)*(D1)"......:."WHERE D1=8
FOR SHIFT REG.=15"......" D1=4 FOR
SHIFT REG.=51"......" D1=2 FOR SHI
FT REG.=85".2.J..:."READING OR WRITING T
HE SHIFT REGISTER".`.T.."MUST BE DONE LA
ST AS THIS INTIATES THE"......"SHIFTING
OPERATION. THE CONTROL"......"REGISTER
AT 59467 MUST BE RELOADED WITH"......"ZE
RO FOR THE TAPE DRIVE TO WRITE"......"CO
RRECTLY.". ...." DO NOT CONNECT A SPEAK
ER OR EARPHONES".M...."DIRECTLY TO THE P
ET. AN AMPLIFIER IS".{...."NECESSARY TO
ISOLATE THE 6522 VIA FROM"...$.."INDUCT
IVE LOADS."......:."TO CONTINUE, PRESS A
NY KEY.".L.8..A$:.A$."".6200...X..". THE
TAPE #2 READ SIGNAL ON THE USER".).B..
"PORT PIN 8 (TAPE #2 READ AND TAPE WRITE
".Q.L.."ARE REVERSED IN THE INTRODUCTORY
"...V.."MANUAL) APPEARS TO BE THE CB1 LI
NE FROM"......"THE 6522 AND CARRIES THE
SHIFT CLOCK".R...."SIGNAL. WITH BOTH CB
1 AND CB2"......"AVAILABLE, IT MAY BE PO
SSIBLE TO USE THE".1....".I/O PORT EXPAN
SION SCHEME DESCRIBED IN".`...."THE MCS6
522 VERSATILE INTERFACE ADAPTER"......"D
ATA SHEETS, AVAILABLE BY WRITING:"......
:."MOS TECHNOLOGY"......"950 RITTENHOUSE
RD....F.."NORRISTOWN, PA 19401"...P.
."(215) 666-7950"...Z..:."TO CONTINUE, P
RESS ANY KEY.".*....A$:.A$."".7140.3.@..
700....
> CLICK IMAGE PREVIEW FOR FULL MODAL