SID EDITOR
FILE INFORMATION
FILENAME(S): SID EDITOR
FILE TYPE(S): PRG
FILE SIZE: 10.8K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 1 disk(s)
FILE HASH
c0cdfb926adf8f3bbaf2d5ea7edaa28d3e608dd57b7cd218ce931f861262114d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE JAN 85 | SID EDITOR | PRG | Radd Maxx | 21 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 64 00 89 31 30 30 30 3A 8F 20 20 20 |..D.d..1000:. |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 31 36 2D 42 | ***** 16-B|
00000030: 49 54 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 2A |IT CALCULATION *|
00000040: 2A 2A 2A 2A 00 5F 08 C8 00 4B 4B B2 C2 28 4B 45 |****._...KK..(KE|
00000050: 59 29 3A 8B 4B 4B B2 4E 55 4C 4C A7 32 30 30 00 |Y):.KK.NULL.200.|
00000060: 85 08 CD 00 8F 20 4B 45 59 20 50 52 45 53 53 45 |..... KEY PRESSE|
00000070: 44 2C 20 55 53 45 20 56 41 52 53 20 46 4F 52 20 |D, USE VARS FOR |
00000080: 53 50 45 45 44 00 A3 08 D2 00 4A B2 42 42 3A 5A |SPEED.....J.BB:Z|
00000090: B2 C2 28 48 AA 42 42 29 3A 48 48 B2 C2 28 53 48 |..(H.BB):HH..(SH|
000000A0: 46 54 29 00 C5 08 D7 00 8F 20 43 55 52 2D 55 50 |FT)...... CUR-UP|
000000B0: 3D 37 2C 43 55 52 2D 4C 46 54 3D 32 2C 52 45 54 |=7,CUR-LFT=2,RET|
000000C0: 55 52 4E 3D 31 00 E9 08 DC 00 91 4B 4B 89 32 34 |URN=1......KK.24|
000000D0: 30 2C 32 35 30 2C 32 33 30 2C 32 33 30 2C 32 33 |0,250,230,230,23|
000000E0: 30 2C 32 33 30 2C 32 36 30 00 0A 09 E6 00 8E 3A |0,230,260......:|
000000F0: 8F 20 4E 4F 20 56 41 4C 49 44 20 4B 45 59 2C 20 |. NO VALID KEY, |
00000100: 4B 45 45 50 20 56 41 4C 55 45 00 24 09 F0 00 4A |KEEP VALUE.$...J|
00000110: B2 B5 28 28 5A AA 42 42 29 AC 4B AD 43 43 29 3A |..((Z.BB).K.CC):|
00000120: 89 32 36 30 00 4A 09 F5 00 8F 20 56 52 59 20 46 |.260.J.... VRY F|
00000130: 41 53 54 2C 4C 41 52 47 45 52 20 46 4F 52 20 48 |AST,LARGER FOR H|
00000140: 49 47 48 45 52 20 56 41 4C 53 00 67 09 FA 00 4A |IGHER VALS.g...J|
00000150: B2 4B 3A 8F 20 4D 4F 44 45 52 41 54 45 20 49 4E |.K:. MODERATE IN|
00000160: 43 52 45 4D 45 4E 54 00 8B 09 04 01 5A B2 C2 28 |CREMENT.....Z..(|
00000170: 48 29 AA 5A AC 58 58 AA 4A AC 28 28 48 48 B2 41 |H).Z.XX.J.((HH.A|
00000180: 41 29 AB 28 48 48 B1 41 41 29 29 00 AB 09 09 01 |A).(HH.AA)).....|
00000190: 8F 20 48 20 53 45 54 20 42 59 20 43 41 4C 4C 45 |. H SET BY CALLE|
000001A0: 52 2C 20 41 44 44 20 49 4E 43 52 00 CF 09 0A 01 |R, ADD INCR.....|
000001B0: 8F 20 49 4E 43 52 20 49 53 20 50 4F 53 20 49 46 |. INCR IS POS IF|
000001C0: 20 53 48 49 46 54 20 4B 45 59 20 44 4F 57 4E 00 | SHIFT KEY DOWN.|
000001D0: EF 09 0E 01 8B 5A B3 41 41 A7 5A B2 41 41 3A 8F |.....Z.AA.Z.AA:.|
000001E0: 20 4D 49 4E 20 26 20 4D 41 58 20 56 41 4C 53 00 | MIN & MAX VALS.|
000001F0: FE 09 18 01 8B 5A B1 5A 5A A7 5A B2 5A 5A 00 19 |.....Z.ZZ.Z.ZZ..|
00000200: 0A 22 01 8D 39 33 30 3A 8F 20 50 4F 53 49 54 49 |."..930:. POSITI|
00000210: 4F 4E 20 43 55 52 53 4F 52 00 3E 0A 27 01 8F 20 |ON CURSOR.>.'.. |
00000220: 50 52 49 4E 54 20 56 41 4C 55 45 20 49 46 20 50 |PRINT VALUE IF P|
00000230: 49 54 43 48 20 4F 52 20 46 49 4C 54 45 52 00 56 |ITCH OR FILTER.V|
00000240: 0A 2C 01 8B 44 56 B3 B1 43 43 A7 99 5A 22 9D 20 |.,..DV..CC..Z". |
00000250: 22 3A 89 33 32 30 00 72 0A 31 01 8F 20 50 52 49 |":.320.r.1.. PRI|
00000260: 4E 54 20 25 20 4F 46 20 44 55 54 59 20 43 59 43 |NT % OF DUTY CYC|
00000270: 4C 45 00 8B 0A 36 01 99 B5 28 5A AD 34 2E 30 39 |LE...6...(Z.4.09|
00000280: 35 29 AD 31 30 22 9D 25 20 20 22 00 A5 0A 3B 01 |5).10".% "...;.|
00000290: 8F 20 50 55 54 20 56 41 4C 55 45 20 49 4E 20 42 |. PUT VALUE IN B|
000002A0: 55 46 46 45 52 00 C4 0A 40 01 97 48 AA 42 42 2C |UFFER...@..H.BB,|
000002B0: 5A AD 58 58 3A 97 48 2C 5A AB B5 28 5A AD 58 58 |Z.XX:.H,Z..(Z.XX|
000002C0: 29 AC 58 58 00 E5 0A 4A 01 8B 44 56 B1 43 43 A7 |).XX...J..DV.CC.|
000002D0: 33 36 30 3A 8F 20 42 52 41 4E 43 48 20 46 4F 52 |360:. BRANCH FOR|
000002E0: 20 46 4C 54 52 00 09 0B 4F 01 8F 20 50 55 54 20 | FLTR...O.. PUT |
000002F0: 56 41 4C 20 49 4E 20 53 49 44 2C 20 42 41 43 4B |VAL IN SID, BACK|
00000300: 20 46 4F 52 20 4D 4F 52 45 00 25 0B 54 01 97 59 | FOR MORE.%.T..Y|
00000310: 59 2C C2 28 48 29 3A 97 59 59 AA 42 42 2C C2 28 |Y,.(H):.YY.BB,.(|
00000320: 48 AA 42 42 29 00 2E 0B 5E 01 89 32 30 30 00 50 |H.BB)...^..200.P|
00000330: 0B 63 01 8F 20 46 49 4C 54 45 52 20 49 53 20 4F |.c.. FILTER IS O|
00000340: 44 44 3B 20 31 31 2D 42 49 54 20 56 41 4C 55 45 |DD; 11-BIT VALUE|
00000350: 00 6B 0B 64 01 8F 20 53 54 4F 52 45 44 20 33 20 |.k.d.. STORED 3 |
00000360: 4C 4F 57 2C 20 38 20 48 49 47 48 00 82 0B 68 01 |LOW, 8 HIGH...h.|
00000370: 97 59 59 2C 5A AF 37 3A 97 59 59 AA 42 42 2C 5A |.YY,Z.7:.YY.BB,Z|
00000380: AD 38 00 C4 0B 72 01 89 32 30 30 3A 8F 20 20 20 |.8...r..200:. |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 38 2D 42 | ***** 8-B|
000003B0: 49 54 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 2A |IT CALCULATION *|
000003C0: 2A 2A 2A 2A 00 DF 0B 90 01 4B 4B B2 C2 28 4B 45 |****.....KK..(KE|
000003D0: 59 29 3A 8B 4B 4B B2 4E 55 4C 4C A7 34 30 30 00 |Y):.KK.NULL.400.|
000003E0: FF 0B 95 01 8F 20 4B 45 59 20 50 52 45 53 53 45 |..... KEY PRESSE|
000003F0: 44 2C 20 49 53 20 49 54 20 56 41 4C 49 44 3F 00 |D, IS IT VALID?.|
00000400: 23 0C 9A 01 91 4B 4B 89 34 33 30 2C 34 33 30 2C |#....KK.430,430,|
00000410: 34 32 30 2C 34 32 30 2C 34 32 30 2C 34 32 30 2C |420,420,420,420,|
00000420: 34 33 30 00 44 0C 9F 01 8F 20 4E 4F 2C 20 52 45 |430.D.... NO, RE|
00000430: 54 55 52 4E 20 57 49 54 48 20 56 41 4C 55 45 20 |TURN WITH VALUE |
00000440: 4B 45 50 54 00 4A 0C A4 01 8E 00 63 0C AE 01 48 |KEPT.J.....c...H|
00000450: 48 B2 C2 28 53 48 46 54 29 3A 42 42 B2 53 42 55 |H..(SHFT):BB.SBU|
00000460: 46 AA 48 00 85 0C B3 01 8F 20 41 44 44 20 49 4E |F.H...... ADD IN|
00000470: 43 52 45 4D 45 4E 54 20 28 53 41 4D 45 20 46 4F |CREMENT (SAME FO|
00000480: 52 20 41 4E 59 00 A9 0C B4 01 8F 20 56 41 4C 49 |R ANY...... VALI|
00000490: 44 20 4B 45 59 29 2C 20 50 4F 53 20 49 46 20 53 |D KEY), POS IF S|
000004A0: 48 49 46 54 20 44 4F 57 4E 00 C9 0C B8 01 5A B2 |HIFT DOWN.....Z.|
000004B0: 28 C2 28 42 42 29 AF 4A 29 AD 4B AA 28 48 48 B2 |(.(BB).J).K.(HH.|
000004C0: 30 29 AB 28 48 48 B1 30 29 00 E9 0C C2 01 8B 5A |0).(HH.0)......Z|
000004D0: B3 30 A7 5A B2 30 3A 8F 20 4D 49 4E 20 26 20 4D |.0.Z.0:. MIN & M|
000004E0: 41 58 20 56 41 4C 55 45 53 00 F8 0C CC 01 8B 5A |AX VALUES......Z|
000004F0: B1 31 35 A7 5A B2 31 35 00 16 0D D6 01 8D 39 33 |.15.Z.15......93|
00000500: 30 3A 99 5A 22 9D 20 20 22 3A 8F 20 50 4F 53 20 |0:.Z". ":. POS |
00000510: 26 20 50 52 4E 54 00 2C 0D DB 01 8F 20 4D 41 53 |& PRNT.,.... MAS|
00000520: 4B 20 4F 4E 20 54 4F 20 42 59 54 45 00 42 0D E0 |K ON TO BYTE.B..|
00000530: 01 5A B2 C2 28 42 42 29 AF 32 35 35 AB 4A B0 5A |.Z..(BB).255.J.Z|
00000540: AC 4B 00 62 0D E5 01 8F 20 49 4E 53 45 52 54 20 |.K.b.... INSERT |
00000550: 26 20 47 4F 20 42 41 43 4B 20 46 4F 52 20 4D 4F |& GO BACK FOR MO|
00000560: 52 45 00 99 0D EA 01 97 42 42 2C 5A 3A 97 53 49 |RE......BB,Z:.SI|
00000570: 44 AA 48 2C 5A 3A 89 34 30 30 3A 8F 20 20 20 20 |D.H,Z:.400:. |
00000580: 20 2A 2A 2A 2A 2A 20 42 49 54 20 44 45 43 4F 44 | ***** BIT DECOD|
00000590: 49 4E 47 20 2A 2A 2A 2A 2A 00 BB 0D BC 02 59 59 |ING *****.....YY|
000005A0: B2 C2 28 53 42 55 46 AA 58 58 29 3A 8F 20 56 41 |..(SBUF.XX):. VA|
000005B0: 4C 55 45 20 4F 46 20 42 59 54 45 00 DD 0D C6 02 |LUE OF BYTE.....|
000005C0: 5A B2 B5 28 28 59 59 AF 4A 29 AD 4B 29 3A 8F 20 |Z..((YY.J).K):. |
000005D0: 56 41 4C 20 4F 46 20 42 49 54 28 53 29 00 FD 0D |VAL OF BIT(S)...|
000005E0: CB 02 8F 20 4D 41 53 4B 20 56 41 4C 55 45 53 20 |... MASK VALUES |
000005F0: 53 45 54 20 42 59 20 43 41 4C 4C 45 52 00 38 0E |SET BY CALLER.8.|
00000600: D0 02 8E 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |...:. |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 2A 2A 2A 2A 2A 20 42 49 54 20 45 4E 43 4F 44 49 |***** BIT ENCODI|
00000630: 4E 47 20 2A 2A 2A 2A 2A 00 55 0E 20 03 59 59 B2 |NG *****.U. .YY.|
00000640: 59 59 AF 32 35 35 AB 4A B0 5A AC 4B 3A 8F 20 45 |YY.255.J.Z.K:. E|
00000650: 4E 43 4F 44 45 00 72 0E 2A 03 97 53 42 55 46 AA |NCODE.r.*..SBUF.|
00000660: 58 58 2C 59 59 3A 8F 20 53 45 54 20 42 55 46 46 |XX,YY:. SET BUFF|
00000670: 45 52 00 8B 0E 34 03 97 53 49 44 AA 58 58 2C 59 |ER...4..SID.XX,Y|
00000680: 59 3A 8F 20 53 45 54 20 53 49 44 00 C8 0E 3E 03 |Y:. SET SID...>.|
00000690: 8E 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |.:. |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
000006B0: 2A 2A 2A 20 43 55 52 53 4F 52 20 50 4C 4F 54 54 |*** CURSOR PLOTT|
000006C0: 45 52 20 2A 2A 2A 2A 2A 00 E6 0E 84 03 97 43 58 |ER *****......CX|
000006D0: 2C 57 58 25 28 43 54 29 AA 43 4C 3A 8F 20 57 4F |,WX%(CT).CL:. WO|
000006E0: 52 44 20 52 4F 57 00 05 0F 8E 03 97 43 59 2C 57 |RD ROW......CY,W|
000006F0: 59 25 28 43 54 29 AA 4F 46 53 3A 8F 20 26 20 43 |Y%(CT).OFS:. & C|
00000700: 4F 4C 55 4D 4E 00 0E 0F 98 03 89 39 35 30 00 2D |OLUMN......950.-|
00000710: 0F A2 03 97 43 58 2C 56 58 25 28 43 54 29 AA 43 |....CX,VX%(CT).C|
00000720: 4C 3A 8F 20 56 41 4C 55 45 20 52 4F 57 00 4C 0F |L:. VALUE ROW.L.|
00000730: AC 03 97 43 59 2C 56 59 25 28 43 54 29 3A 8F 20 |...CY,VY%(CT):. |
00000740: 20 20 20 20 26 20 43 4F 4C 55 4D 4E 00 66 0F B6 | & COLUMN.f..|
00000750: 03 9E 4D 4F 56 45 3A 8E 3A 8F 20 4D 4F 56 45 20 |..MOVE:.:. MOVE |
00000760: 43 55 52 53 4F 52 00 A0 0F E4 03 8F 20 20 20 20 |CURSOR...... |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000790: 20 4D 41 49 4E 20 52 4F 55 54 49 4E 45 20 2A 2A | MAIN ROUTINE **|
000007A0: 00 D8 0F E8 03 8D 20 35 30 30 30 30 3A 8F 20 49 |...... 50000:. I|
000007B0: 4E 49 54 49 41 4C 49 5A 45 20 20 20 20 20 20 20 |NITIALIZE |
000007C0: 20 20 20 2A 2A 2A 2A 2A 20 4B 45 59 20 49 4E 50 | ***** KEY INP|
000007D0: 55 54 20 2A 2A 2A 2A 2A 00 F4 0F 4C 04 4B 4B B2 |UT *****...L.KK.|
000007E0: C2 28 4B 45 59 29 3A 8B 4B 4B B2 4E 55 4C 4C A7 |.(KEY):.KK.NULL.|
000007F0: 31 31 30 30 00 13 10 51 04 8F 20 4B 45 59 20 50 |1100...Q.. KEY P|
00000800: 52 45 53 53 45 44 2C 20 49 46 20 53 48 49 46 54 |RESSED, IF SHIFT|
00000810: 20 49 53 00 35 10 52 04 8F 20 44 4F 57 4E 2C 20 | IS.5.R.. DOWN, |
00000820: 53 4B 49 50 20 45 4E 54 52 59 20 4C 45 56 45 4C |SKIP ENTRY LEVEL|
00000830: 20 43 41 4C 43 00 4F 10 56 04 48 48 B2 C2 28 53 | CALC.O.V.HH..(S|
00000840: 48 46 54 29 3A 8B 48 48 B2 31 A7 31 35 30 30 00 |HFT):.HH.1.1500.|
00000850: 6E 10 5B 04 8F 20 45 4E 54 52 59 20 4C 45 56 45 |n.[.. ENTRY LEVE|
00000860: 4C 20 49 4E 54 4F 20 56 4F 49 43 45 53 3F 00 84 |L INTO VOICES?..|
00000870: 10 60 04 8B 4B 4B B3 46 31 B0 4B 4B B1 46 35 A7 |.`..KK.F1.KK.F5.|
00000880: 31 35 30 30 00 A5 10 65 04 8F 20 43 48 41 4E 47 |1500...e.. CHANG|
00000890: 45 20 45 4E 54 52 59 20 4C 45 56 45 4C 20 26 20 |E ENTRY LEVEL & |
000008A0: 43 4C 45 41 52 00 C4 10 6A 04 45 4C B2 4B 4B AB |CLEAR...j.EL.KK.|
000008B0: 34 3A 44 56 B2 AB 31 3A 8D 35 33 30 30 30 3A 89 |4:DV..1:.53000:.|
000008C0: 31 31 30 30 00 03 11 D8 05 8F 20 20 20 20 20 20 |1100...... |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A | *****|
000008F0: 20 4B 45 59 20 44 49 53 50 41 54 43 48 20 2A 2A | KEY DISPATCH **|
00000900: 2A 2A 2A 00 1E 11 DC 05 8B 4B 4B B2 46 A7 32 30 |***......KK.F.20|
00000910: 30 30 3A 8F 20 46 52 45 51 55 45 4E 43 59 00 3B |00:. FREQUENCY.;|
00000920: 11 E6 05 8B 4B 4B B2 50 A7 32 30 30 30 3A 8F 20 |....KK.P.2000:. |
00000930: 50 55 4C 53 45 20 57 49 44 54 48 00 53 11 F0 05 |PULSE WIDTH.S...|
00000940: 8B 4B 4B B2 41 A7 33 30 30 30 3A 8F 20 41 54 54 |.KK.A.3000:. ATT|
00000950: 41 43 4B 00 6A 11 FA 05 8B 4B 4B B2 44 A7 33 30 |ACK.j....KK.D.30|
00000960: 30 30 3A 8F 20 44 45 43 41 59 00 83 11 04 06 8B |00:. DECAY......|
00000970: 4B 4B B2 53 A7 33 30 30 30 3A 8F 20 53 55 53 54 |KK.S.3000:. SUST|
00000980: 41 49 4E 00 9C 11 0E 06 8B 4B 4B B2 52 A7 33 30 |AIN......KK.R.30|
00000990: 30 30 3A 8F 20 52 45 4C 45 41 53 45 00 B6 11 18 |00:. RELEASE....|
000009A0: 06 8B 4B 4B B2 57 A7 34 30 30 30 3A 8F 20 57 41 |..KK.W.4000:. WA|
000009B0: 56 45 46 4F 52 4D 00 CC 11 22 06 8B 4B 4B B2 47 |VEFORM..."..KK.G|
000009C0: A7 34 30 30 30 3A 8F 20 47 41 54 45 00 E2 11 2C |.4000:. GATE...,|
000009D0: 06 8B 4B 4B B2 49 A7 34 30 30 30 3A 8F 20 52 49 |..KK.I.4000:. RI|
000009E0: 4E 47 00 F8 11 36 06 8B 4B 4B B2 59 A7 34 30 30 |NG...6..KK.Y.400|
000009F0: 30 3A 8F 20 53 59 4E 43 00 15 12 40 06 8B 4B 4B |0:. SYNC...@..KK|
00000A00: B2 51 A7 32 30 30 30 3A 8F 20 46 49 4C 54 45 52 |.Q.2000:. FILTER|
00000A10: 20 46 52 45 51 00 30 12 4A 06 8B 4B 4B B2 4E A7 | FREQ.0.J..KK.N.|
00000A20: 33 30 30 30 3A 8F 20 52 45 53 4F 4E 41 4E 43 45 |3000:. RESONANCE|
00000A30: 00 48 12 54 06 8B 4B 4B B2 56 A7 33 30 30 30 3A |.H.T..KK.V.3000:|
00000A40: 8F 20 56 4F 4C 55 4D 45 00 5E 12 5E 06 8B 4B 4B |. VOLUME.^.^..KK|
00000A50: B2 4D A7 35 30 30 30 3A 8F 20 4D 4F 44 45 00 77 |.M.5000:. MODE.w|
00000A60: 12 68 06 8B 4B 4B B2 4E 31 A7 35 30 30 30 3A 8F |.h..KK.N1.5000:.|
00000A70: 20 41 53 53 49 47 4E 00 87 12 72 06 8B 4B 4B B2 | ASSIGN...r..KK.|
00000A80: 4E 32 A7 35 30 30 30 00 97 12 7C 06 8B 4B 4B B2 |N2.5000...|..KK.|
00000A90: 4E 33 A7 35 30 30 30 00 A6 12 86 06 8B 4B 4B B2 |N3.5000......KK.|
00000AA0: 58 A7 35 30 30 30 00 BC 12 90 06 8B 4B 4B B2 4F |X.5000......KK.O|
00000AB0: A7 36 30 30 30 3A 8F 20 4F 53 43 33 00 D2 12 9A |.6000:. OSC3....|
00000AC0: 06 8B 4B 4B B2 45 A7 36 30 30 30 3A 8F 20 45 4E |..KK.E.6000:. EN|
00000AD0: 56 33 00 E9 12 A4 06 8B 4B 4B B2 54 A7 35 30 30 |V3......KK.T.500|
00000AE0: 30 3A 8F 20 33 20 4F 46 46 00 01 13 A9 06 8F 20 |0:. 3 OFF...... |
00000AF0: 53 50 45 43 49 41 4C 20 46 55 4E 43 54 49 4F 4E |SPECIAL FUNCTION|
00000B00: 53 00 18 13 AE 06 8B 4B 4B B2 46 31 A7 8D 37 30 |S......KK.F1..70|
00000B10: 30 30 3A 89 31 31 30 30 00 2F 13 B8 06 8B 4B 4B |00:.1100./....KK|
00000B20: B2 46 33 A7 8D 37 30 30 30 3A 89 31 31 30 30 00 |.F3..7000:.1100.|
00000B30: 46 13 C2 06 8B 4B 4B B2 46 35 A7 8D 37 30 30 30 |F....KK.F5..7000|
00000B40: 3A 89 31 31 30 30 00 63 13 CC 06 8B 4B 4B B3 B1 |:.1100.c....KK..|
00000B50: 46 37 B0 48 48 B2 30 A7 31 38 30 30 3A 8F 20 45 |F7.HH.0.1800:. E|
00000B60: 4E 44 3F 00 82 13 D6 06 A1 41 24 3A 8B 41 24 B3 |ND?......A$:.A$.|
00000B70: B1 22 22 A7 31 37 35 30 3A 8F 20 43 4C 52 20 42 |."".1750:. CLR B|
00000B80: 55 46 00 9C 13 E0 06 97 53 49 44 AA 32 34 2C 30 |UF......SID.24,0|
00000B90: 3A 9E 43 53 3A 80 3A 8F 20 45 4E 44 00 BC 13 08 |:.CS:.:. END....|
00000BA0: 07 44 56 B2 AB 31 3A 8D 35 33 30 32 30 3A 8F 20 |.DV..1:.53020:. |
00000BB0: 4E 4F 20 56 41 4C 49 44 20 4B 45 59 00 F9 13 12 |NO VALID KEY....|
00000BC0: 07 8D 35 32 30 30 30 3A 89 31 31 30 30 3A 8F 20 |..52000:.1100:. |
00000BD0: 4F 4F 50 53 20 20 20 20 20 20 20 20 2A 2A 2A 2A |OOPS ****|
00000BE0: 2A 20 31 36 2D 42 49 54 20 45 56 41 4C 55 41 54 |* 16-BIT EVALUAT|
00000BF0: 49 4F 4E 20 2A 2A 2A 2A 2A 00 0D 14 D0 07 44 56 |ION *****.....DV|
00000C00: B2 31 3A 8B 4B 4B B2 50 A7 44 56 B2 32 00 1D 14 |.1:.KK.P.DV.2...|
00000C10: DA 07 8B 4B 4B B2 51 A7 44 56 B2 31 32 00 3F 14 |...KK.Q.DV.12.?.|
00000C20: DF 07 8F 20 44 56 3A 31 3D 56 4F 49 43 45 20 46 |... DV:1=VOICE F|
00000C30: 52 45 51 2C 20 32 3D 50 4C 53 20 57 44 54 48 00 |REQ, 2=PLS WDTH.|
00000C40: 5F 14 E0 07 8F 20 31 32 3D 46 49 4C 54 45 52 20 |_.... 12=FILTER |
00000C50: 46 52 45 51 2C 20 43 4C 45 41 52 20 4F 4C 44 00 |FREQ, CLEAR OLD.|
00000C60: 79 14 E1 07 8F 20 56 41 52 53 20 55 53 45 44 20 |y.... VARS USED |
00000C70: 46 4F 52 20 53 50 45 45 44 00 95 14 E2 07 8F 20 |FOR SPEED...... |
00000C80: 5A 5A 3D 4D 41 58 20 56 41 4C 2C 20 48 3D 53 49 |ZZ=MAX VAL, H=SI|
00000C90: 44 20 52 45 47 00 B6 14 E4 07 8D 35 33 30 32 30 |D REG......53020|
00000CA0: 3A 58 58 B2 32 35 36 3A 41 41 B2 30 3A 42 42 B2 |:XX.256:AA.0:BB.|
00000CB0: 31 3A 43 43 B2 32 00 D0 14 EE 07 4B B2 32 39 3A |1:CC.2.....K.29:|
00000CC0: 48 B2 30 3A 5A 5A B2 36 35 35 33 35 3A 4A B2 37 |H.0:ZZ.65535:J.7|
00000CD0: 00 E6 14 F8 07 8B 44 56 B2 32 A7 5A 5A B2 34 30 |......DV.2.ZZ.40|
00000CE0: 39 35 3A 48 B2 32 00 02 15 02 08 8B 44 56 B2 31 |95:H.2......DV.1|
00000CF0: 32 A7 5A 5A B2 32 30 34 37 3A 48 B2 32 31 3A 4A |2.ZZ.2047:H.21:J|
00000D00: B2 30 00 23 15 07 08 8F 20 50 52 45 2D 43 41 4C |.0.#.... PRE-CAL|
00000D10: 43 55 4C 41 54 45 20 42 55 46 46 45 52 20 26 20 |CULATE BUFFER & |
00000D20: 53 49 44 00 36 15 08 08 8F 20 45 4E 54 52 59 20 |SID.6.... ENTRY |
00000D30: 50 4F 49 4E 54 53 00 56 15 0C 08 59 59 B2 53 49 |POINTS.V...YY.SI|
00000D40: 44 AA 45 4C AC 4A AA 48 3A 48 B2 53 42 55 46 AA |D.EL.J.H:H.SBUF.|
00000D50: 45 4C AC 4A AA 48 00 72 15 11 08 8F 20 43 41 4C |EL.J.H.r.... CAL|
00000D60: 43 20 26 20 44 49 53 50 4C 41 59 20 56 41 4C 55 |C & DISPLAY VALU|
00000D70: 45 53 00 96 15 12 08 8F 20 4F 4E 43 45 20 41 20 |ES...... ONCE A |
00000D80: 4E 4F 4E 2D 56 41 4C 49 44 20 4B 45 59 20 49 53 |NON-VALID KEY IS|
00000D90: 20 46 4F 55 4E 44 00 B9 15 13 08 8F 20 49 4E 20 | FOUND...... IN |
00000DA0: 53 55 42 52 4F 55 54 49 4E 45 2C 20 45 58 49 54 |SUBROUTINE, EXIT|
00000DB0: 20 57 49 54 48 20 4B 45 59 00 CC 15 14 08 8F 20 | WITH KEY...... |
00000DC0: 56 41 4C 55 45 20 49 4E 54 41 43 54 00 08 16 16 |VALUE INTACT....|
00000DD0: 08 8D 32 30 30 3A 89 31 31 31 30 3A 8F 20 20 20 |..200:.1110:. |
00000DE0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****|
00000DF0: 2A 20 38 2D 42 49 54 20 45 56 41 4C 55 41 54 49 |* 8-BIT EVALUATI|
00000E00: 4F 4E 20 2A 2A 2A 2A 2A 00 2C 16 B8 0B 44 56 B2 |ON *****.,...DV.|
00000E10: 34 3A 48 B2 45 4C AC 37 AA 35 3A 4A B2 32 34 30 |4:H.EL.7.5:J.240|
00000E20: 3A 4B B2 31 36 3A 8F 20 41 54 43 4B 00 4B 16 BD |:K.16:. ATCK.K..|
00000E30: 0B 8F 20 44 45 43 41 59 2C 20 53 55 53 54 41 49 |.. DECAY, SUSTAI|
00000E40: 4E 2C 20 52 45 4C 45 41 53 45 3F 00 63 16 C2 0B |N, RELEASE?.c...|
00000E50: 8B 4B 4B B2 44 A7 44 56 B2 35 3A 4A B2 31 35 3A |.KK.D.DV.5:J.15:|
00000E60: 4B B2 31 00 7B 16 CC 0B 8B 4B 4B B2 53 A7 44 56 |K.1.{....KK.S.DV|
00000E70: B2 36 3A 48 B2 45 4C AC 37 AA 36 00 9C 16 D6 0B |.6:H.EL.7.6.....|
00000E80: 8B 4B 4B B2 52 A7 44 56 B2 37 3A 48 B2 45 4C AC |.KK.R.DV.7:H.EL.|
00000E90: 37 AA 36 3A 4A B2 31 35 3A 4B B2 31 00 B7 16 DB |7.6:J.15:K.1....|
00000EA0: 0B 8F 20 52 45 53 4F 4E 41 4E 43 45 20 4F 52 20 |.. RESONANCE OR |
00000EB0: 56 4F 4C 55 4D 45 3F 00 CC 16 E0 0B 8B 4B 4B B2 |VOLUME?......KK.|
00000EC0: 4E A7 44 56 B2 31 33 3A 48 B2 32 33 00 EA 16 EA |N.DV.13:H.23....|
00000ED0: 0B 8B 4B 4B B2 56 A7 44 56 B2 31 34 3A 48 B2 32 |..KK.V.DV.14:H.2|
00000EE0: 34 3A 4A B2 31 35 3A 4B B2 31 00 0D 17 EF 0B 8F |4:J.15:K.1......|
00000EF0: 20 43 4C 45 41 52 2C 20 43 41 4C 43 20 26 20 44 | CLEAR, CALC & D|
00000F00: 49 53 50 4C 41 59 20 56 41 4C 55 45 53 00 2F 17 |ISPLAY VALUES./.|
00000F10: F0 0B 8F 20 57 48 45 4E 20 4E 4F 4E 2D 56 41 4C |... WHEN NON-VAL|
00000F20: 49 44 20 4B 45 59 20 50 52 45 53 53 45 44 2C 00 |ID KEY PRESSED,.|
00000F30: 4E 17 F1 0B 8F 20 52 45 54 55 52 4E 20 57 49 54 |N.... RETURN WIT|
00000F40: 48 20 56 41 4C 55 45 20 49 4E 54 41 43 54 00 8B |H VALUE INTACT..|
00000F50: 17 F4 0B 8D 35 33 30 32 30 3A 8D 34 30 30 3A 89 |....53020:.400:.|
00000F60: 31 31 31 30 3A 8F 20 20 20 20 2A 2A 2A 2A 2A 20 |1110:. ***** |
00000F70: 43 54 52 4C 20 42 59 54 45 20 43 41 4C 43 55 4C |CTRL BYTE CALCUL|
00000F80: 41 54 49 4F 4E 20 2A 2A 2A 2A 2A 00 A4 17 A0 0F |ATION *****.....|
00000F90: 44 56 B2 AB 31 3A 8D 35 33 30 32 30 3A 8F 20 43 |DV..1:.53020:. C|
00000FA0: 4C 45 41 52 00 BA 17 A5 0F 8F 20 53 45 54 20 4D |LEAR...... SET M|
00000FB0: 41 53 4B 20 56 41 4C 55 45 53 00 DE 17 AA 0F 58 |ASK VALUES.....X|
00000FC0: 58 B2 34 AA 45 4C AC 37 3A 44 56 B2 33 3A 4A B2 |X.4.EL.7:DV.3:J.|
00000FD0: 32 34 30 3A 8F 20 57 41 56 45 46 4F 52 4D 00 F8 |240:. WAVEFORM..|
00000FE0: 17 B4 0F 8B 4B 4B B2 47 A7 44 56 B2 38 3A 4A B2 |....KK.G.DV.8:J.|
00000FF0: 31 3A 8F 20 47 41 54 45 00 12 18 BE 0F 8B 4B 4B |1:. GATE......KK|
00001000: B2 49 A7 44 56 B2 39 3A 4A B2 34 3A 8F 20 52 49 |.I.DV.9:J.4:. RI|
00001010: 4E 47 00 2D 18 C8 0F 8B 4B 4B B2 59 A7 44 56 B2 |NG.-....KK.Y.DV.|
00001020: 31 30 3A 4A B2 32 3A 8F 20 53 59 4E 43 00 41 18 |10:J.2:. SYNC.A.|
00001030: D2 0F 4B B2 4A 3A 8B 4A B2 32 34 30 A7 4B B2 31 |..K.J:.J.240.K.1|
00001040: 36 00 64 18 D7 0F 8F 20 47 4F 20 47 45 54 20 56 |6.d.... GO GET V|
00001050: 41 4C 55 45 20 46 52 4F 4D 20 53 49 44 20 42 55 |ALUE FROM SID BU|
00001060: 46 46 45 52 00 7D 18 D8 0F 8F 20 42 52 41 4E 43 |FFER.}.... BRANC|
00001070: 48 20 49 46 20 57 41 56 45 46 4F 52 4D 00 91 18 |H IF WAVEFORM...|
00001080: DC 0F 8D 37 30 30 3A 8B 44 56 B2 33 A7 34 31 31 |...700:.DV.3.411|
00001090: 30 00 A4 18 E2 0F 8F 20 54 4F 47 47 4C 45 20 56 |0...... TOGGLE V|
000010A0: 41 4C 55 45 00 BF 18 E6 0F 5A B2 AB 28 5A B2 30 |ALUE.....Z..(Z.0|
000010B0: 29 3A 43 4C B2 45 4C AC 35 3A 43 54 B2 44 56 00 |):CL.EL.5:CT.DV.|
000010C0: DA 18 F0 0F 8B 5A B2 31 A7 99 22 12 22 3B 3A 8F |.....Z.1..".";:.|
000010D0: 20 48 49 47 48 4C 49 47 48 54 00 F5 18 FA 0F 8D | HIGHLIGHT......|
000010E0: 35 33 30 37 30 3A 89 34 31 39 30 3A 8F 20 44 49 |53070:.4190:. DI|
000010F0: 53 50 4C 41 59 00 FB 18 04 10 8F 00 1E 19 09 10 |SPLAY...........|
00001100: 8F 20 49 4E 43 20 30 2D 3E 31 2C 31 2D 3E 32 2C |. INC 0->1,1->2,|
00001110: 32 2D 3E 34 2C 34 2D 3E 38 2C 38 2D 3E 30 00 37 |2->4,4->8,8->0.7|
00001120: 19 0E 10 5A B2 28 5A AC 32 AB 28 5A B2 30 29 29 |...Z.(Z.2.(Z.0))|
00001130: AC AB 28 5A B3 38 29 00 58 19 18 10 43 54 B2 44 |..(Z.8).X...CT.D|
00001140: 56 3A 43 4C B2 45 4C AC 35 3A 8D 39 33 30 3A 8F |V:CL.EL.5:.930:.|
00001150: 20 4D 56 45 20 43 52 53 00 6F 19 1D 10 8F 20 44 | MVE CRS.o.... D|
00001160: 49 53 50 4C 41 59 20 57 41 56 45 46 4F 52 4D 00 |ISPLAY WAVEFORM.|
00001170: 85 19 22 10 41 24 B2 22 2D 22 3A 8B 5A B2 31 A7 |..".A$."-":.Z.1.|
00001180: 41 24 B2 22 54 00 94 19 2C 10 8B 5A B2 32 A7 41 |A$."T...,..Z.2.A|
00001190: 24 B2 22 53 00 A3 19 36 10 8B 5A B2 34 A7 41 24 |$."S...6..Z.4.A$|
000011A0: B2 22 50 00 B2 19 40 10 8B 5A B2 38 A7 41 24 B2 |."P...@..Z.8.A$.|
000011B0: 22 4E 00 BA 19 4A 10 99 41 24 00 C0 19 54 10 8F |"N...J..A$...T..|
000011C0: 00 01 1A 5E 10 8D 38 30 30 3A 89 31 31 30 30 3A |...^..800:.1100:|
000011D0: 8F 20 53 54 4F 52 45 20 26 20 52 54 52 4E 20 20 |. STORE & RTRN |
000011E0: 2A 2A 2A 2A 2A 20 46 49 4C 54 2F 4D 4F 44 45 20 |***** FILT/MODE |
000011F0: 43 41 4C 43 55 4C 41 54 49 4F 4E 20 2A 2A 2A 2A |CALCULATION ****|
00001200: 2A 00 1E 1A 88 13 44 56 B2 AB 31 3A 8D 35 33 30 |*.....DV..1:.530|
00001210: 32 30 3A 8F 20 43 4C 45 41 52 20 4F 4C 44 00 3A |20:. CLEAR OLD.:|
00001220: 1A 92 13 44 56 B2 31 35 3A 43 54 B2 44 56 3A 43 |...DV.15:CT.DV:C|
00001230: 4C B2 30 3A 8F 20 4D 4F 44 45 00 53 1A 97 13 8F |L.0:. MODE.S....|
00001240: 20 46 49 4C 54 45 52 20 41 53 53 49 47 4E 4D 45 | FILTER ASSIGNME|
00001250: 4E 54 3F 00 6E 1A 9C 13 8B 4B 4B B2 4E 31 A7 44 |NT?.n....KK.N1.D|
00001260: 56 B2 31 36 3A 48 B2 31 3A 89 35 35 30 30 00 89 |V.16:H.1:.5500..|
00001270: 1A A6 13 8B 4B 4B B2 4E 32 A7 44 56 B2 31 37 3A |....KK.N2.DV.17:|
00001280: 48 B2 32 3A 89 35 35 30 30 00 A4 1A B0 13 8B 4B |H.2:.5500......K|
00001290: 4B B2 4E 33 A7 44 56 B2 31 38 3A 48 B2 34 3A 89 |K.N3.DV.18:H.4:.|
000012A0: 35 35 30 30 00 BE 1A BA 13 8B 4B 4B B2 58 A7 44 |5500......KK.X.D|
000012B0: 56 B2 31 39 3A 48 B2 38 3A 89 35 35 30 30 00 CB |V.19:H.8:.5500..|
000012C0: 1A BF 13 8F 20 33 20 4F 46 46 3F 00 E1 1A C4 13 |.... 3 OFF?.....|
000012D0: 8B 4B 4B B2 54 A7 44 56 B2 32 32 3A 89 35 32 30 |.KK.T.DV.22:.520|
000012E0: 30 00 E7 1A CE 13 8F 00 FC 1A D3 13 8F 20 4D 4F |0............ MO|
000012F0: 44 45 20 49 4E 43 52 45 4D 45 4E 54 00 16 1B D8 |DE INCREMENT....|
00001300: 13 58 58 B2 32 34 3A 4A B2 31 31 32 3A 4B B2 31 |.XX.24:J.112:K.1|
00001310: 36 3A 8D 37 30 30 00 35 1B DD 13 8F 20 49 4E 43 |6:.700.5.... INC|
00001320: 52 20 30 2D 3E 31 2C 31 2D 3E 32 2C 32 2D 3E 34 |R 0->1,1->2,2->4|
00001330: 2C 34 2D 3E 30 00 59 1B DE 13 8F 20 50 52 4F 47 |,4->0.Y.... PROG|
00001340: 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E |RAM MODIFICATION|
00001350: 20 50 4F 53 53 49 42 4C 45 00 7B 1B DF 13 8F 20 | POSSIBLE.{.... |
00001360: 54 4F 20 41 4C 4C 4F 57 20 4D 4F 52 45 20 54 48 |TO ALLOW MORE TH|
00001370: 41 4E 20 4F 4E 45 20 4D 4F 44 45 00 92 1B E0 13 |AN ONE MODE.....|
00001380: 8F 20 41 54 20 54 48 45 20 53 41 4D 45 20 54 49 |. AT THE SAME TI|
00001390: 4D 45 00 AB 1B E2 13 5A B2 28 5A AC 32 AB 28 5A |ME.....Z.(Z.2.(Z|
000013A0: B2 30 29 29 AC AB 28 5A B3 34 29 00 C2 1B EC 13 |.0))..(Z.4).....|
000013B0: 8D 39 33 30 3A 8F 20 4D 4F 56 45 20 43 55 52 53 |.930:. MOVE CURS|
000013C0: 4F 52 00 DA 1B F6 13 41 24 B2 22 20 2D 22 3A 8B |OR.....A$." -":.|
000013D0: 5A B2 31 A7 41 24 B2 22 4C 50 00 EA 1B 00 14 8B |Z.1.A$."LP......|
000013E0: 5A B2 32 A7 41 24 B2 22 42 50 00 FA 1B 0A 14 8B |Z.2.A$."BP......|
000013F0: 5A B2 34 A7 41 24 B2 22 48 50 00 12 1C 14 14 99 |Z.4.A$."HP......|
00001400: 41 24 3A 89 35 35 35 30 3A 8F 20 44 49 53 50 4C |A$:.5550:. DISPL|
00001410: 41 59 00 18 1C 1E 14 8F 00 29 1C 23 14 8F 20 54 |AY.......).#.. T|
00001420: 55 52 4E 20 33 20 4F 46 46 00 48 1C 50 14 43 54 |URN 3 OFF.H.P.CT|
00001430: B2 44 56 3A 58 58 B2 32 34 3A 4A B2 31 32 38 3A |.DV:XX.24:J.128:|
00001440: 4B B2 31 3A 8D 37 30 30 00 5C 1C 55 14 8F 20 4D |K.1:.700.\.U.. M|
00001450: 41 53 4B 20 26 20 54 4F 47 47 4C 45 00 7C 1C 5A |ASK & TOGGLE.|.Z|
00001460: 14 5A 5A B2 31 32 38 AC AB 28 28 5A AF 4A 29 B2 |.ZZ.128..((Z.J).|
00001470: 30 29 3A 48 B2 31 3A 89 35 35 32 30 00 82 1C 64 |0):H.1:.5520...d|
00001480: 14 8F 00 96 1C 69 14 8F 20 41 53 53 49 47 4E 20 |.....i.. ASSIGN |
00001490: 46 49 4C 54 45 52 00 B4 1C 7C 15 43 54 B2 44 56 |FILTER...|.CT.DV|
000014A0: 3A 58 58 B2 32 33 3A 4A B2 31 35 3A 4B B2 31 3A |:XX.23:J.15:K.1:|
000014B0: 8D 37 30 30 00 D8 1C 86 15 5A 5A B2 48 AC AB 28 |.700.....ZZ.H..(|
000014C0: 28 5A AF 48 29 B2 30 29 3A 8F 20 4D 41 53 4B 20 |(Z.H).0):. MASK |
000014D0: 26 20 54 4F 47 47 4C 45 00 E8 1C 90 15 8B 5A 5A |& TOGGLE......ZZ|
000014E0: B1 30 A7 99 22 12 22 3B 00 FD 1C 9A 15 8D 35 33 |.0..".";......53|
000014F0: 30 39 30 3A 8F 20 44 49 53 50 4C 41 59 00 0C 1D |090:. DISPLAY...|
00001500: A4 15 5A B2 5A AF 4A AB 48 B0 5A 5A 00 42 1D AE |..Z.Z.J.H.ZZ.B..|
00001510: 15 8D 38 30 30 3A 89 31 31 30 30 3A 8F 20 53 54 |..800:.1100:. ST|
00001520: 4F 52 45 20 26 20 52 54 52 4E 20 20 2A 2A 2A 2A |ORE & RTRN ****|
00001530: 2A 20 49 2F 4F 20 49 4E 53 45 52 54 20 2A 2A 2A |* I/O INSERT ***|
00001540: 2A 2A 00 5B 1D 70 17 44 56 B2 AB 31 3A 8D 35 33 |**.[.p.DV..1:.53|
00001550: 30 32 30 3A 8F 20 43 4C 45 41 52 00 70 1D 75 17 |020:. CLEAR.p.u.|
00001560: 8F 20 44 45 46 41 55 4C 54 20 54 4F 20 4F 53 43 |. DEFAULT TO OSC|
00001570: 00 8F 1D 7A 17 48 B2 4F 53 3A 43 54 B2 32 30 3A |...z.H.OS:CT.20:|
00001580: 43 4C B2 30 3A 8B 4B 4B B2 4F A7 36 30 33 30 00 |CL.0:.KK.O.6030.|
00001590: 9E 1D 7F 17 8F 20 45 4E 56 45 4C 4F 50 45 00 AD |..... ENVELOPE..|
000015A0: 1D 84 17 48 B2 45 4E 3A 43 54 B2 32 31 00 C5 1D |...H.EN:CT.21...|
000015B0: 8E 17 4A B2 C2 28 48 29 3A 8F 20 52 45 41 44 20 |..J..(H):. READ |
000015C0: 56 41 4C 55 45 00 D8 1D 93 17 8F 20 56 41 4C 55 |VALUE...... VALU|
000015D0: 45 20 53 57 49 54 43 48 00 FB 1D 94 17 8F 20 45 |E SWITCH...... E|
000015E0: 49 54 48 45 52 20 32 35 35 20 28 4F 46 46 29 2C |ITHER 255 (OFF),|
000015F0: 30 20 28 56 4F 49 43 45 20 31 2C 00 1F 1E 95 17 |0 (VOICE 1,.....|
00001600: 8F 20 4C 4F 57 29 2C 31 20 28 56 4F 49 43 45 20 |. LOW),1 (VOICE |
00001610: 31 2C 20 48 49 47 48 29 2C 20 4F 52 20 32 32 00 |1, HIGH), OR 22.|
00001620: 3E 1E 96 17 8F 20 28 46 49 4C 54 45 52 20 46 52 |>.... (FILTER FR|
00001630: 45 51 55 45 4E 43 59 2C 20 48 49 47 48 29 00 5F |EQUENCY, HIGH)._|
00001640: 1E 98 17 4A B2 AB 28 4A B2 30 29 AB 32 32 AC 28 |...J..(J.0).22.(|
00001650: 4A B2 31 29 AB 32 35 35 AC 28 4A B2 32 32 29 00 |J.1).255.(J.22).|
00001660: 7B 1E A2 17 97 48 2C 4A 3A 8D 39 33 30 3A 8F 20 |{....H,J:.930:. |
00001670: 53 41 56 45 20 26 20 4D 4F 56 45 00 93 1E A7 17 |SAVE & MOVE.....|
00001680: 8F 20 43 41 4C 43 55 4C 41 54 45 20 44 49 53 50 |. CALCULATE DISP|
00001690: 4C 41 59 00 AE 1E AC 17 4A B2 31 AB 28 4A B1 30 |LAY.....J.1.(J.0|
000016A0: 29 AB 28 4A B1 31 29 AB 28 4A B1 32 32 29 00 C7 |).(J.1).(J.22)..|
000016B0: 1E B6 17 99 CA 28 22 4C 48 46 2D 22 2C 4A 2C 31 |.....("LHF-",J,1|
000016C0: 29 3A 89 31 31 30 30 00 07 1F 54 1B 8F 20 20 20 |):.1100...T.. |
000016D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
000016F0: 2A 2A 2A 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 |*** FUNCTION KEY|
00001700: 53 20 2A 2A 2A 2A 2A 00 20 1F 58 1B 44 56 B2 AB |S *****. .X.DV..|
00001710: 31 3A 8D 35 33 30 32 30 3A 8F 20 43 4C 45 41 52 |1:.53020:. CLEAR|
00001720: 00 40 1F 5D 1B 8F 20 43 41 4E 4E 4F 54 20 41 52 |.@.].. CANNOT AR|
00001730: 52 49 56 45 20 48 45 52 45 20 55 4E 4C 45 53 53 |RIVE HERE UNLESS|
00001740: 00 60 1F 5E 1B 8F 20 53 48 49 46 54 20 4B 45 59 |.`.^.. SHIFT KEY|
00001750: 20 57 41 53 20 50 52 45 53 53 45 44 2C 20 53 4F | WAS PRESSED, SO|
00001760: 00 78 1F 5F 1B 8F 20 46 31 3D 46 32 2C 46 33 3D |.x._.. F1=F2,F3=|
00001770: 46 34 2C 46 35 3D 46 36 00 97 1F 62 1B 48 B2 30 |F4,F5=F6...b.H.0|
00001780: 3A 43 54 B2 38 3A 4A B2 31 3A 4B B2 31 3A 8F 20 |:CT.8:J.1:K.1:. |
00001790: 44 45 46 41 55 4C 54 00 BB 1F 67 1B 8F 20 46 31 |DEFAULT...g.. F1|
000017A0: 28 46 32 29 3D 54 4F 47 47 4C 45 2C 20 46 33 28 |(F2)=TOGGLE, F3(|
000017B0: 46 34 29 3D 41 4C 4C 20 4F 46 46 00 D1 1F 6C 1B |F4)=ALL OFF...l.|
000017C0: 8B 4B 4B B2 46 31 B0 4B 4B B2 46 33 A7 37 31 30 |.KK.F1.KK.F3.710|
000017D0: 30 00 EA 1F 71 1B 8F 20 46 35 28 46 36 29 3D 4F |0...q.. F5(F6)=O|
000017E0: 4E 20 54 48 45 4E 20 4F 46 46 00 07 20 72 1B 8F |N THEN OFF.. r..|
000017F0: 20 5A 3D 52 45 41 44 20 56 41 4C 55 45 2C 20 53 | Z=READ VALUE, S|
00001800: 45 54 20 54 4F 20 31 00 26 20 73 1B 8F 20 57 49 |ET TO 1.& s.. WI|
00001810: 4C 4C 20 43 41 55 53 45 20 41 20 54 4F 47 47 4C |LL CAUSE A TOGGL|
00001820: 45 20 54 4F 20 30 00 41 20 74 1B 8F 20 48 20 53 |E TO 0.A t.. H S|
00001830: 45 52 56 45 53 20 54 4F 20 41 44 4A 55 53 54 20 |ERVES TO ADJUST |
00001840: 5A 00 4F 20 76 1B 48 B2 31 3A 8D 37 31 30 30 00 |Z.O v.H.1:.7100.|
00001850: 57 20 80 1B 48 B2 32 00 78 20 B7 1B 8F 20 56 4F |W ..H.2.x ... VO|
00001860: 49 43 45 20 47 41 54 45 53 20 41 54 20 53 49 44 |ICE GATES AT SID|
00001870: 2B 34 2C 31 31 2C 31 38 00 87 20 BC 1B 81 58 58 |+4,11,18.. ...XX|
00001880: B2 34 A4 31 38 A9 37 00 A5 20 C1 1B 3A 8F 20 49 |.4.18.7.. ..:. I|
00001890: 46 20 46 33 2C 20 53 45 54 20 54 4F 20 54 55 52 |F F3, SET TO TUR|
000018A0: 4E 20 4F 46 46 00 BA 20 C6 1B 3A 8D 37 30 30 3A |N OFF.. ..:.700:|
000018B0: 8B 4B 4B B2 46 33 A7 5A B2 31 00 CF 20 CB 1B 3A |.KK.F3.Z.1.. ..:|
000018C0: 8F 20 41 44 4A 55 53 54 20 46 4F 52 20 46 35 00 |. ADJUST FOR F5.|
000018D0: DF 20 D0 1B 3A 8B 48 B1 30 A7 5A B2 48 AB 31 00 |. ..:.H.0.Z.H.1.|
000018E0: FC 20 D5 1B 3A 8F 20 43 41 4C 43 55 4C 41 54 45 |. ..:. CALCULATE|
000018F0: 20 44 49 53 50 4C 41 59 20 52 4F 57 00 1A 21 DA | DISPLAY ROW..!.|
00001900: 1B 3A 43 4C B2 AB 35 AC 28 58 58 B2 31 31 29 AB |.:CL..5.(XX.11).|
00001910: 31 30 AC 28 58 58 B2 31 38 29 00 33 21 DF 1B 3A |10.(XX.18).3!..:|
00001920: 8F 20 44 49 53 50 4C 41 59 20 41 53 20 4F 4E 2F |. DISPLAY AS ON/|
00001930: 4F 46 46 00 4E 21 E4 1B 3A 91 28 5A B3 B1 31 29 |OFF.N!..:.(Z..1)|
00001940: AA 32 8D 35 33 30 36 30 2C 35 33 30 37 30 00 68 |.2.53060,53070.h|
00001950: 21 EE 1B 3A 5A B2 AB 28 5A B2 30 29 3A 59 59 B2 |!..:Z..(Z.0):YY.|
00001960: 59 59 AF 32 35 34 B0 5A 00 7E 21 F3 1B 3A 8F 20 |YY.254.Z.~!..:. |
00001970: 53 41 56 45 20 49 4E 20 42 55 46 46 45 52 00 8F |SAVE IN BUFFER..|
00001980: 21 F8 1B 3A 97 53 42 55 46 AA 58 58 2C 59 59 00 |!..:.SBUF.XX,YY.|
00001990: 95 21 02 1C 82 00 AF 21 07 1C 8F 20 4D 4F 56 45 |.!.....!... MOVE|
000019A0: 20 54 4F 20 53 49 44 20 51 55 49 43 4B 4C 59 00 | TO SID QUICKLY.|
000019B0: BE 21 0C 1C 81 58 58 B2 34 A4 31 38 A9 37 00 D6 |.!...XX.4.18.7..|
000019C0: 21 16 1C 3A 97 53 49 44 AA 58 58 2C C2 28 53 42 |!..:.SID.XX,.(SB|
000019D0: 55 46 AA 58 58 29 00 05 22 20 1C 82 3A 8E 3A 8F |UF.XX).." ..:.:.|
000019E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019F0: 20 20 20 20 20 2A 2A 20 49 4E 49 54 49 41 4C 49 | ** INITIALI|
00001A00: 5A 45 20 2A 2A 00 26 22 4B C3 8F 20 2A 20 50 55 |ZE **.&"K.. * PU|
00001A10: 54 20 49 4E 20 53 59 53 54 45 4D 20 52 4F 55 54 |T IN SYSTEM ROUT|
00001A20: 49 4E 45 53 20 2A 00 44 22 4C C3 8F 20 2A 20 43 |INES *.D"L.. * C|
00001A30: 55 52 53 4F 52 20 50 4C 4F 54 20 52 4F 55 54 49 |URSOR PLOT ROUTI|
00001A40: 4E 45 20 2A 00 5F 22 50 C3 4D 4F 56 45 B2 36 37 |NE *._"P.MOVE.67|
00001A50: 39 3A 43 58 B2 32 35 31 3A 43 59 B2 32 35 32 00 |9:CX.251:CY.252.|
00001A60: 73 22 5A C3 81 58 58 B2 4D 4F 56 45 A4 4D 4F 56 |s"Z..XX.MOVE.MOV|
00001A70: 45 AA 37 00 83 22 64 C3 3A 87 59 59 3A 97 58 58 |E.7.."d.:.YY:.XX|
00001A80: 2C 59 59 00 B7 22 6E C3 82 3A 8F 20 20 20 20 20 |,YY.."n..:. |
00001A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AA0: 20 20 20 20 20 20 49 4E 54 45 52 52 55 50 54 20 | INTERRUPT |
00001AB0: 52 4F 55 54 49 4E 45 00 C7 22 78 C3 81 58 58 B2 |ROUTINE.."x..XX.|
00001AC0: 37 31 32 A4 37 36 30 00 D7 22 82 C3 3A 87 59 59 |712.760.."..:.YY|
00001AD0: 3A 97 58 58 2C 59 59 00 19 23 8C C3 82 3A 8F 20 |:.XX,YY..#...:. |
00001AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AF0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 | ***** |
00001B00: 56 41 52 49 41 42 4C 45 20 41 53 53 49 47 4E 4D |VARIABLE ASSIGNM|
00001B10: 45 4E 54 20 2A 2A 2A 2A 2A 00 36 23 B4 C3 4B 45 |ENT *****.6#..KE|
00001B20: 59 B2 32 30 33 3A 53 48 46 54 B2 36 35 33 3A 4E |Y.203:SHFT.653:N|
00001B30: 55 4C 4C B2 36 34 00 55 23 B9 C3 8F 20 50 45 45 |ULL.64.U#... PEE|
00001B40: 4B 28 4B 45 59 29 3D 56 41 4C 20 4F 46 20 43 55 |K(KEY)=VAL OF CU|
00001B50: 52 52 45 4E 54 00 75 23 BA C3 8F 20 4B 45 59 20 |RRENT.u#... KEY |
00001B60: 44 4F 57 4E 2C 20 50 45 45 4B 28 53 48 46 54 29 |DOWN, PEEK(SHFT)|
00001B70: 3E 30 20 49 46 00 94 23 BB C3 8F 20 53 48 49 46 |>0 IF..#... SHIF|
00001B80: 54 2C 43 3D 2C 4F 52 20 43 54 52 4C 20 50 52 45 |T,C=,OR CTRL PRE|
00001B90: 53 53 45 44 00 B6 23 BC C3 8F 20 50 45 45 4B 28 |SSED..#... PEEK(|
00001BA0: 4B 45 59 29 3D 4E 55 4C 4C 20 4D 45 41 4E 53 20 |KEY)=NULL MEANS |
00001BB0: 4E 4F 20 4B 45 59 00 DC 23 BE C3 55 50 B2 37 3A |NO KEY..#..UP.7:|
00001BC0: 46 41 B2 32 3A 4C 4F B2 31 3A 58 58 B2 30 3A 59 |FA.2:LO.1:XX.0:Y|
00001BD0: 59 B2 30 3A 5A 5A B2 30 3A 5A B2 30 00 F9 23 C3 |Y.0:ZZ.0:Z.0..#.|
00001BE0: C3 8F 20 55 50 3D 43 55 52 53 4F 52 20 55 50 2F |.. UP=CURSOR UP/|
00001BF0: 44 4F 57 4E 3D 53 4C 4F 57 00 19 24 C4 C3 8F 20 |DOWN=SLOW..$... |
00001C00: 46 41 3D 43 52 53 52 20 4C 46 54 2F 52 47 48 54 |FA=CRSR LFT/RGHT|
00001C10: 3D 4D 4F 44 45 52 41 54 45 00 2E 24 C5 C3 8F 20 |=MODERATE..$... |
00001C20: 4C 4F 3D 52 45 54 55 52 4E 3D 46 41 53 54 00 4C |LO=RETURN=FAST.L|
00001C30: 24 C6 C3 8F 20 4E 4F 20 53 48 49 46 54 3D 44 4F |$... NO SHIFT=DO|
00001C40: 57 4E 2C 20 53 48 49 46 54 3D 55 50 00 70 24 C8 |WN, SHIFT=UP.p$.|
00001C50: C3 4B 4B B2 30 3A 48 48 B2 30 3A 48 B2 30 3A 4A |.KK.0:HH.0:H.0:J|
00001C60: B2 30 3A 4B B2 30 3A 44 56 B2 30 3A 43 54 B2 30 |.0:K.0:DV.0:CT.0|
00001C70: 00 91 24 CD C3 8F 20 4B 4B 20 48 4F 4C 44 53 20 |..$... KK HOLDS |
00001C80: 43 55 52 52 45 4E 54 20 4B 45 59 20 56 41 4C 55 |CURRENT KEY VALU|
00001C90: 45 00 AA 24 CE C3 8F 20 48 48 3E 30 20 49 46 20 |E..$... HH>0 IF |
00001CA0: 53 48 49 46 54 20 44 4F 57 4E 00 CC 24 CF C3 8F |SHIFT DOWN..$...|
00001CB0: 20 44 56 2C 43 54 2C 43 4C 20 41 52 45 20 44 49 | DV,CT,CL ARE DI|
00001CC0: 53 50 4C 41 59 20 56 41 4C 55 45 53 00 EE 24 D2 |SPLAY VALUES..$.|
00001CD0: C3 43 4C B2 30 3A 41 41 B2 30 3A 42 42 B2 30 3A |.CL.0:AA.0:BB.0:|
00001CE0: 43 43 B2 30 3A 53 49 44 B2 35 34 32 37 32 00 11 |CC.0:SID.54272..|
00001CF0: 25 D7 C3 8F 20 4F 50 3D 4D 4F 56 45 20 49 4E 54 |%... OP=MOVE INT|
00001D00: 45 52 52 55 50 54 2C 43 53 3D 52 45 53 54 4F 52 |ERRUPT,CS=RESTOR|
00001D10: 45 00 2F 25 DC C3 53 42 55 46 B2 4D 4F 56 45 AA |E./%..SBUF.MOVE.|
00001D20: 38 3A 4F 50 B2 37 31 32 3A 43 53 B2 37 32 35 00 |8:OP.712:CS.725.|
00001D30: 4C 25 E1 C3 8F 20 48 49 47 48 4C 49 47 48 54 45 |L%... HIGHLIGHTE|
00001D40: 44 20 4B 45 59 20 56 41 4C 55 45 53 00 64 25 E6 |D KEY VALUES.d%.|
00001D50: C3 46 31 B2 34 3A 46 33 B2 35 3A 46 35 B2 36 3A |.F1.4:F3.5:F5.6:|
00001D60: 46 37 B2 33 00 8A 25 F0 C3 46 B2 32 31 3A 50 B2 |F7.3..%..F.21:P.|
00001D70: 34 31 3A 57 B2 39 3A 41 B2 31 30 3A 44 B2 31 38 |41:W.9:A.10:D.18|
00001D80: 3A 53 B2 31 33 3A 52 B2 31 37 00 AC 25 FA C3 47 |:S.13:R.17..%..G|
00001D90: B2 32 36 3A 49 B2 33 33 3A 59 B2 32 35 3A 51 B2 |.26:I.33:Y.25:Q.|
00001DA0: 36 32 3A 4E B2 33 39 3A 4D B2 33 36 00 C6 25 04 |62:N.39:M.36..%.|
00001DB0: C4 56 B2 33 31 3A 4E 31 B2 35 36 3A 4E 32 B2 35 |.V.31:N1.56:N2.5|
00001DC0: 39 3A 4E 33 B2 38 00 DE 25 09 C4 8F 20 45 4E 2C |9:N3.8..%... EN,|
00001DD0: 4F 53 20 55 53 45 44 20 49 4E 20 49 2F 4F 00 04 |OS USED IN I/O..|
00001DE0: 26 0E C4 58 B2 32 33 3A 4F B2 33 38 3A 45 B2 31 |&..X.23:O.38:E.1|
00001DF0: 34 3A 54 B2 32 32 3A 45 4E B2 32 35 34 3A 4F 53 |4:T.22:EN.254:OS|
00001E00: B2 32 35 33 00 46 26 14 C4 8F 20 20 20 20 20 20 |.253.F&... |
00001E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E20: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 | ***** |
00001E30: 52 45 41 44 20 53 43 52 45 45 4E 20 44 41 54 41 |READ SCREEN DATA|
00001E40: 20 2A 2A 2A 2A 2A 00 66 26 18 C4 86 57 58 25 28 | *****.f&...WX%(|
00001E50: 32 32 29 2C 57 59 25 28 32 32 29 3A 8F 20 57 4F |22),WY%(22):. WO|
00001E60: 52 44 20 58 2C 59 00 87 26 22 C4 86 56 58 25 28 |RD X,Y..&"..VX%(|
00001E70: 32 32 29 2C 56 59 25 28 32 32 29 3A 8F 20 56 41 |22),VY%(22):. VA|
00001E80: 4C 55 45 20 58 2C 59 00 A7 26 2C C4 86 57 52 44 |LUE X,Y..&,..WRD|
00001E90: 24 28 32 32 29 3A 8F 20 44 49 53 50 4C 41 59 20 |$(22):. DISPLAY |
00001EA0: 53 54 52 49 4E 47 53 00 B4 26 36 C4 81 58 58 B2 |STRINGS..&6..XX.|
00001EB0: 30 A4 32 32 00 CA 26 40 C4 3A 87 57 58 25 28 58 |0.22..&@.:.WX%(X|
00001EC0: 58 29 2C 57 59 25 28 58 58 29 00 E0 26 4A C4 3A |X),WY%(XX)..&J.:|
00001ED0: 87 56 58 25 28 58 58 29 2C 56 59 25 28 58 58 29 |.VX%(XX),VY%(XX)|
00001EE0: 00 EF 26 54 C4 3A 87 57 52 44 24 28 58 58 29 00 |..&T.:.WRD$(XX).|
00001EF0: 2C 27 5E C4 82 3A 8F 20 20 20 20 20 20 20 20 20 |,'^..:. |
00001F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F10: 20 20 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 | ***** DISPLAY |
00001F20: 53 43 52 45 45 4E 20 2A 2A 2A 2A 2A 00 5C 27 7C |SCREEN *****.\'||
00001F30: C4 99 22 93 92 9A 20 20 53 49 44 20 45 44 49 54 |.."... SID EDIT|
00001F40: 4F 52 20 2D 20 50 52 45 53 53 20 41 20 48 49 47 |OR - PRESS A HIG|
00001F50: 48 4C 49 47 48 54 45 44 20 4B 45 59 00 8B 27 86 |HLIGHTED KEY..'.|
00001F60: C4 99 22 43 52 53 52 3A 5B 55 2F 44 5D 3D 53 4C |.."CRSR:[U/D]=SL|
00001F70: 4F 57 2C 5B 4C 2F 52 5D 3D 4D 45 44 2C 20 5B 52 |OW,[L/R]=MED, [R|
00001F80: 45 54 55 52 4E 5D 3D 46 41 53 54 00 A7 27 90 C4 |ETURN]=FAST..'..|
00001F90: 81 58 58 B2 30 A4 31 30 A9 35 3A 8F 20 56 4F 49 |.XX.0.10.5:. VOI|
00001FA0: 43 45 53 20 31 2D 33 00 BE 27 95 C4 3A 8F 20 30 |CES 1-3..'..:. 0|
00001FB0: 3D 46 31 2C 35 3D 46 33 2C 31 30 3D 46 35 00 D7 |=F1,5=F3,10=F5..|
00001FC0: 27 9A C4 3A 41 24 B2 C9 28 C4 28 32 AC 58 58 AD |'..:A$..(.(2.XX.|
00001FD0: 35 AA 31 29 2C 31 29 00 EA 27 9F C4 3A 8F 20 4D |5.1),1)..'..:. M|
00001FE0: 4F 56 45 20 43 55 52 53 4F 52 00 06 28 A4 C4 3A |OVE CURSOR..(..:|
00001FF0: 43 54 B2 30 3A 43 4C B2 58 58 3A 4F 46 53 B2 AB |CT.0:CL.XX:OFS..|
00002000: 33 3A 8D 39 30 30 00 1B 28 A9 C4 3A 8F 20 50 52 |3:.900..(..:. PR|
00002010: 49 4E 54 20 22 56 4F 49 43 45 22 00 39 28 AE C4 |INT "VOICE".9(..|
00002020: 3A 99 22 05 46 22 41 24 22 9A 20 22 57 52 44 24 |:.".F"A$". "WRD$|
00002030: 28 30 29 58 58 AD 35 AA 31 00 5A 28 B3 C4 3A 8F |(0)XX.5.1.Z(..:.|
00002040: 20 5A 20 44 45 54 45 52 4D 49 4E 45 53 20 44 49 | Z DETERMINES DI|
00002050: 53 50 4C 41 59 20 54 59 50 45 00 7A 28 B8 C4 3A |SPLAY TYPE.z(..:|
00002060: 81 59 59 B2 31 A4 31 30 3A 5A B2 31 AB 28 59 59 |.YY.1.10:Z.1.(YY|
00002070: B3 38 29 AB 28 59 59 B2 33 29 00 91 28 C2 C4 3A |.8).(YY.3)..(..:|
00002080: 20 43 54 B2 59 59 3A 4F 46 53 B2 30 3A 8D 39 30 | CT.YY:OFS.0:.90|
00002090: 30 00 B0 28 CC C4 3A 20 99 57 52 44 24 28 59 59 |0..(..: .WRD$(YY|
000020A0: 29 22 20 22 CA 28 22 20 30 2D 22 2C 5A 2C 31 29 |)" ".(" 0-",Z,1)|
000020B0: 00 B7 28 D6 C4 3A 82 00 BD 28 E0 C4 82 00 C3 28 |..(..:...(.....(|
000020C0: EA C4 8F 00 DF 28 EF C4 8F 20 46 49 4C 54 45 52 |.....(... FILTER|
000020D0: 20 26 20 56 4F 4C 55 4D 45 20 53 54 55 46 46 00 | & VOLUME STUFF.|
000020E0: F3 28 F4 C4 43 54 B2 31 31 3A 43 4C B2 30 3A 8D |.(..CT.11:CL.0:.|
000020F0: 39 30 30 00 01 29 FE C4 99 57 52 44 24 28 31 31 |900..)...WRD$(11|
00002100: 29 00 1D 29 08 C5 81 58 58 B2 31 32 A4 32 32 3A |)..)...XX.12.22:|
00002110: 8B 58 58 B3 B1 31 36 A7 35 30 34 36 30 00 36 29 |.XX..16.50460.6)|
00002120: 0D C5 3A 8F 20 41 44 44 49 54 49 4F 4E 41 4C 20 |..:. ADDITIONAL |
00002130: 50 52 4F 4D 50 54 00 58 29 12 C5 3A 99 22 20 20 |PROMPT.X)..:." |
00002140: 20 20 20 20 20 20 20 20 20 20 20 41 53 53 49 47 | ASSIG|
00002150: 4E 20 46 49 4C 54 45 52 00 72 29 17 C5 3A 8F 20 |N FILTER.r)..:. |
00002160: 41 24 3D 44 45 46 41 55 4C 54 20 44 49 53 50 4C |A$=DEFAULT DISPL|
00002170: 41 59 00 8B 29 1C C5 3A 41 24 B2 22 22 3A 8B 58 |AY..)..:A$."":.X|
00002180: 58 B3 31 35 A7 41 24 B2 22 20 30 00 AA 29 26 C5 |X.15.A$." 0..)&.|
00002190: 3A 8B 58 58 B2 31 35 B0 58 58 B2 32 30 B0 58 58 |:.XX.15.XX.20.XX|
000021A0: B2 32 31 A7 41 24 B2 22 20 2D 00 C8 29 30 C5 3A |.21.A$." -..)0.:|
000021B0: 43 54 B2 58 58 3A 8D 39 30 30 3A 8F 20 4D 4F 56 |CT.XX:.900:. MOV|
000021C0: 45 20 43 55 52 53 4F 52 00 D9 29 3A C5 3A 99 57 |E CURSOR..):.:.W|
000021D0: 52 44 24 28 58 58 29 41 24 00 E1 29 44 C5 82 3A |RD$(XX)A$..)D..:|
000021E0: 99 00 19 2A 4E C5 99 22 20 05 46 32 9A 3D 54 4F |...*N.." .F2.=TO|
000021F0: 47 47 4C 45 20 05 46 34 9A 3D 41 4C 4C 20 4F 46 |GGLE .F4.=ALL OF|
00002200: 46 20 05 46 36 9A 3D 4F 4E 2F 4F 46 46 20 05 46 |F .F6.=ON/OFF .F|
00002210: 38 9A 3D 51 55 49 54 22 3B 00 36 2A 53 C5 8F 20 |8.=QUIT";.6*S.. |
00002220: 44 49 53 50 4C 41 59 20 56 41 4C 55 45 53 20 44 |DISPLAY VALUES D|
00002230: 45 46 41 55 4C 54 00 53 2A 58 C5 45 4C B2 30 3A |EFAULT.S*X.EL.0:|
00002240: 4F 45 4C B2 45 4C 3A 44 56 B2 AB 31 3A 4F 44 56 |OEL.EL:DV..1:ODV|
00002250: B2 44 56 00 9E 2A A6 C5 8F 20 20 20 20 20 20 20 |.DV..*... |
00002260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002270: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 49 | ***** I|
00002280: 4E 53 45 52 54 20 49 2F 4F 20 49 4E 54 4F 20 49 |NSERT I/O INTO I|
00002290: 4E 54 45 52 52 55 50 54 20 2A 2A 2A 2A 2A 00 B6 |NTERRUPT *****..|
000022A0: 2A A8 C5 97 45 4E 2C 32 35 35 3A 97 4F 53 2C 32 |*...EN,255:.OS,2|
000022B0: 35 35 3A 9E 4F 50 00 FA 2A 34 C7 8F 20 20 20 20 |55:.OP..*4.. |
000022C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | ****|
000022E0: 2A 20 43 4C 45 41 52 20 53 49 44 20 26 20 42 55 |* CLEAR SID & BU|
000022F0: 46 46 45 52 20 2A 2A 2A 2A 2A 00 0D 2B 38 C7 81 |FFER *****..+8..|
00002300: 58 58 B2 53 49 44 A4 53 49 44 AA 32 38 00 1A 2B |XX.SID.SID.28..+|
00002310: 4C C7 3A 20 20 97 58 58 2C 30 00 30 2B 56 C7 3A |L.: .XX,0.0+V.:|
00002320: 20 20 97 53 42 55 46 AA 58 58 AB 53 49 44 2C 30 | .SBUF.XX.SID,0|
00002330: 00 36 2B 60 C7 82 00 6C 2B 6A C7 8E 3A 8F 20 20 |.6+`...l+j..:. |
00002340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002350: 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 45 52 52 | ***** ERR|
00002360: 4F 52 20 42 55 5A 5A 20 2A 2A 2A 2A 00 86 2B 20 |OR BUZZ ****..+ |
00002370: CB 97 53 49 44 AA 32 33 2C 30 3A 8F 20 4E 4F 20 |..SID.23,0:. NO |
00002380: 46 49 4C 54 45 52 00 A0 2B 2A CB 97 53 49 44 AA |FILTER..+*..SID.|
00002390: 32 34 2C 31 35 3A 8F 20 46 55 4C 4C 20 56 4F 4C |24,15:. FULL VOL|
000023A0: 00 B8 2B 34 CB 97 53 49 44 AA 31 2C 31 30 3A 8F |..+4..SID.1,10:.|
000023B0: 20 56 4F 49 43 45 20 31 00 CE 2B 3E CB 97 53 49 | VOICE 1..+>..SI|
000023C0: 44 AA 35 2C 30 3A 8F 20 4E 4F 20 41 2F 44 00 E8 |D.5,0:. NO A/D..|
000023D0: 2B 48 CB 97 53 49 44 AA 36 2C 32 34 30 3A 8F 20 |+H..SID.6,240:. |
000023E0: 46 55 4C 4C 20 53 55 53 00 00 2C 52 CB 97 53 49 |FULL SUS..,R..SI|
000023F0: 44 AA 34 2C 30 3A 8F 20 47 41 54 45 20 4F 46 46 |D.4,0:. GATE OFF|
00002400: 00 17 2C 5C CB 97 53 49 44 AA 34 2C 33 33 3A 8F |..,\..SID.4,33:.|
00002410: 20 53 41 57 20 4F 4E 00 2E 2C 66 CB 81 58 58 B2 | SAW ON..,f..XX.|
00002420: 31 A4 38 30 3A 82 3A 8F 20 44 45 4C 41 59 00 47 |1.80:.:. DELAY.G|
00002430: 2C 6B CB 8F 20 52 45 53 54 4F 52 45 20 4F 4C 44 |,k.. RESTORE OLD|
00002440: 20 56 41 4C 55 45 53 00 5E 2C 70 CB 97 53 49 44 | VALUES.^,p..SID|
00002450: AA 32 33 2C C2 28 53 42 55 46 AA 32 33 29 00 75 |.23,.(SBUF.23).u|
00002460: 2C 7A CB 97 53 49 44 AA 32 34 2C C2 28 53 42 55 |,z..SID.24,.(SBU|
00002470: 46 AA 32 34 29 00 8A 2C 84 CB 97 53 49 44 AA 31 |F.24)..,...SID.1|
00002480: 2C C2 28 53 42 55 46 AA 31 29 00 9F 2C 8E CB 97 |,.(SBUF.1)..,...|
00002490: 53 49 44 AA 35 2C C2 28 53 42 55 46 AA 35 29 00 |SID.5,.(SBUF.5).|
000024A0: B4 2C 98 CB 97 53 49 44 AA 36 2C C2 28 53 42 55 |.,...SID.6,.(SBU|
000024B0: 46 AA 36 29 00 C9 2C A2 CB 97 53 49 44 AA 34 2C |F.6)..,...SID.4,|
000024C0: C2 28 53 42 55 46 AA 34 29 00 0D 2D AC CB 8E 3A |.(SBUF.4)..-...:|
000024D0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000024E0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 | ***** |
000024F0: 48 49 47 48 4C 49 47 48 54 20 43 55 52 52 45 4E |HIGHLIGHT CURREN|
00002500: 54 20 45 4E 54 52 59 20 2A 2A 2A 2A 2A 00 2F 2D |T ENTRY *****./-|
00002510: 03 CF 8F 20 4C 49 4E 45 20 35 33 30 30 30 20 43 |... LINE 53000 C|
00002520: 4C 45 41 52 53 20 4F 4C 44 20 56 4F 49 43 45 00 |LEARS OLD VOICE.|
00002530: 4F 2D 04 CF 8F 20 4C 49 4E 45 20 35 33 30 31 30 |O-... LINE 53010|
00002540: 20 48 49 47 48 4C 49 47 48 54 53 20 4E 45 57 00 | HIGHLIGHTS NEW.|
00002550: 71 2D 05 CF 8F 20 4C 49 4E 45 20 35 33 30 32 30 |q-... LINE 53020|
00002560: 20 43 4C 45 41 52 53 20 4F 4C 44 20 45 4E 54 52 | CLEARS OLD ENTR|
00002570: 59 00 91 2D 06 CF 8F 20 4C 49 4E 45 20 35 33 30 |Y..-... LINE 530|
00002580: 34 30 20 48 49 47 48 4C 49 47 48 54 53 20 4E 45 |40 HIGHLIGHTS NE|
00002590: 57 00 97 2D 07 CF 8F 00 B9 2D 08 CF 43 54 B2 30 |W..-.....-..CT.0|
000025A0: 3A 43 4C B2 35 AC 4F 45 4C AC AB 28 43 54 B3 31 |:CL.5.OEL..(CT.1|
000025B0: 31 29 3A 8D 35 33 30 37 30 00 CD 2D 0D CF 8F 20 |1):.53070..-... |
000025C0: 43 4C 3D 52 4F 57 20 4F 46 46 53 45 54 00 E9 2D |CL=ROW OFFSET..-|
000025D0: 12 CF 43 4C B2 35 AC 45 4C AC AB 28 44 56 B3 31 |..CL.5.EL..(DV.1|
000025E0: 31 29 3A 8D 35 33 30 36 30 00 06 2E 1C CF 43 54 |1):.53060.....CT|
000025F0: B2 4F 44 56 3A 43 4C B2 35 AC 4F 45 4C AC AB 28 |.ODV:CL.5.OEL..(|
00002600: 43 54 B3 31 31 29 00 11 2E 26 CF 8D 35 33 30 37 |CT.11)...&..5307|
00002610: 30 00 23 2E 30 CF 4F 45 4C B2 45 4C 3A 4F 44 56 |0.#.0.OEL.EL:ODV|
00002620: B2 44 56 00 40 2E 3A CF 43 54 B2 4F 44 56 3A 43 |.DV.@.:.CT.ODV:C|
00002630: 4C B2 35 AC 4F 45 4C AC AB 28 43 54 B3 31 31 29 |L.5.OEL..(CT.11)|
00002640: 00 4A 2E 44 CF 99 22 12 22 3B 00 6B 2E 49 CF 8F |.J.D..".";.k.I..|
00002650: 20 4E 4F 20 43 48 41 4E 47 45 20 46 4F 52 20 54 | NO CHANGE FOR T|
00002660: 48 45 53 45 20 56 41 4C 55 45 53 00 81 2E 4A CF |HESE VALUES...J.|
00002670: 8F 20 47 41 54 45 2C 20 52 49 4E 47 2C 20 45 54 |. GATE, RING, ET|
00002680: 43 00 97 2E 4E CF 8B 43 54 B3 30 B0 43 54 B1 31 |C...N..CT.0.CT.1|
00002690: 34 A7 35 33 31 31 30 00 AD 2E 58 CF 8B 43 54 B2 |4.53110...X..CT.|
000026A0: 33 B0 43 54 B2 31 31 A7 35 33 31 31 30 00 BD 2E |3.CT.11.53110...|
000026B0: 62 CF 8D 39 30 30 3A 8F 20 50 4C 4F 54 00 CC 2E |b..900:. PLOT...|
000026C0: 6C CF 99 20 57 52 44 24 28 43 54 29 00 01 2F 76 |l.. WRD$(CT)../v|
000026D0: CF 99 22 92 22 3B 3A 8E 3A 8F 20 20 20 20 20 20 |..".";:.:. |
000026E0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 50 | ***** P|
000026F0: 52 4F 47 52 41 4D 20 44 41 54 41 20 2A 2A 2A 2A |ROGRAM DATA ****|
00002700: 2A 00 1B 2F 5E EA 8F 20 43 55 52 53 4F 52 20 4D |*../^.. CURSOR M|
00002710: 4F 56 45 20 52 4F 55 54 49 4E 45 00 21 2F 5F EA |OVE ROUTINE.!/_.|
00002720: 8F 00 44 2F 60 EA 83 32 34 2C 31 36 36 2C 32 35 |..D/`..24,166,25|
00002730: 31 2C 31 36 34 2C 32 35 32 2C 37 36 2C 32 34 30 |1,164,252,76,240|
00002740: 2C 32 35 35 00 4A 2F C0 EA 8F 00 50 2F C1 EA 8F |,255.J/....P/...|
00002750: 00 68 2F C2 EA 8F 20 49 4E 54 45 52 52 55 50 54 |.h/... INTERRUPT|
00002760: 20 52 4F 55 54 49 4E 45 00 6E 2F C3 EA 8F 00 8C | ROUTINE.n/.....|
00002770: 2F C4 EA 83 31 32 30 2C 31 36 39 2C 32 32 36 2C |/...120,169,226,|
00002780: 31 34 31 2C 32 30 2C 33 2C 31 36 39 00 AA 2F CE |141,20,3,169../.|
00002790: EA 83 32 2C 31 34 31 2C 32 31 2C 33 2C 38 38 2C |..2,141,21,3,88,|
000027A0: 39 36 2C 31 32 30 2C 31 36 39 00 C7 2F D8 EA 83 |96,120,169../...|
000027B0: 34 39 2C 31 34 31 2C 32 30 2C 33 2C 31 36 39 2C |49,141,20,3,169,|
000027C0: 32 33 34 2C 31 34 31 00 E4 2F E2 EA 83 32 31 2C |234,141../...21,|
000027D0: 33 2C 38 38 2C 39 36 2C 31 36 36 2C 32 35 33 2C |3,88,96,166,253,|
000027E0: 34 38 2C 36 00 02 30 EC EA 83 31 37 33 2C 32 37 |48,6..0...173,27|
000027F0: 2C 32 31 32 2C 31 35 37 2C 30 2C 32 31 32 2C 31 |,212,157,0,212,1|
00002800: 36 36 00 1F 30 F6 EA 83 32 35 34 2C 34 38 2C 36 |66..0...254,48,6|
00002810: 2C 31 37 33 2C 32 38 2C 32 31 32 2C 31 35 37 00 |,173,28,212,157.|
00002820: 34 30 00 EB 83 30 2C 32 31 32 2C 37 36 2C 34 39 |40...0,212,76,49|
00002830: 2C 32 33 34 00 3A 30 10 F6 8F 00 40 30 11 F6 8F |,234.:0....@0...|
00002840: 00 5A 30 12 F6 8F 20 53 43 52 45 45 4E 20 44 49 |.Z0... SCREEN DI|
00002850: 53 50 4C 41 59 20 44 41 54 41 00 60 30 13 F6 8F |SPLAY DATA.`0...|
00002860: 00 82 30 14 F6 8F 20 57 4F 52 44 20 53 54 41 52 |..0... WORD STAR|
00002870: 54 20 58 2C 20 57 4F 52 44 20 53 54 41 52 54 20 |T X, WORD START |
00002880: 59 2C 00 A6 30 15 F6 8F 20 56 41 4C 55 45 20 53 |Y,..0... VALUE S|
00002890: 54 41 52 54 20 58 2C 20 56 41 4C 55 45 20 53 54 |TART X, VALUE ST|
000028A0: 41 52 54 20 59 2C 00 B1 30 16 F6 8F 20 57 4F 52 |ART Y,..0... WOR|
000028B0: 44 00 B7 30 17 F6 8F 00 CA 30 18 F6 83 33 2C 34 |D..0.....0...3,4|
000028C0: 2C 33 2C 34 2C 56 4F 49 43 45 00 E7 30 22 F6 83 |,3,4,VOICE..0"..|
000028D0: 33 2C 31 33 2C 33 2C 32 33 2C 22 05 46 9A 52 45 |3,13,3,23,".F.RE|
000028E0: 51 55 45 4E 43 59 3A 00 04 31 2C F6 83 34 2C 31 |QUENCY:..1,..4,1|
000028F0: 33 2C 34 2C 32 33 2C 22 05 50 9A 4C 53 20 57 49 |3,4,23,".P.LS WI|
00002900: 44 54 48 3A 00 20 31 36 F6 83 35 2C 31 34 2C 35 |DTH:. 16..5,14,5|
00002910: 2C 32 34 2C 22 05 57 9A 41 56 45 46 4F 52 4D 3A |,24,".W.AVEFORM:|
00002920: 00 3A 31 40 F6 83 33 2C 33 30 2C 33 2C 33 37 2C |.:1@..3,30,3,37,|
00002930: 22 05 41 9A 54 54 41 43 4B 3A 00 53 31 4A F6 83 |".A.TTACK:.S1J..|
00002940: 34 2C 33 31 2C 34 2C 33 37 2C 22 05 44 9A 45 43 |4,31,4,37,".D.EC|
00002950: 41 59 3A 00 6E 31 54 F6 83 35 2C 32 39 2C 35 2C |AY:.n1T..5,29,5,|
00002960: 33 37 2C 22 05 53 9A 55 53 54 41 49 4E 3A 00 89 |37,".S.USTAIN:..|
00002970: 31 5E F6 83 36 2C 32 39 2C 36 2C 33 37 2C 22 05 |1^..6,29,6,37,".|
00002980: 52 9A 45 4C 45 41 53 45 3A 00 A0 31 68 F6 83 36 |R.ELEASE:..1h..6|
00002990: 2C 31 33 2C 36 2C 31 33 2C 22 05 47 9A 41 54 45 |,13,6,13,".G.ATE|
000029A0: 00 B7 31 72 F6 83 36 2C 31 38 2C 36 2C 31 38 2C |..1r..6,18,6,18,|
000029B0: 22 52 05 49 9A 4E 47 00 CE 31 7C F6 83 36 2C 32 |"R.I.NG..1|..6,2|
000029C0: 33 2C 36 2C 32 33 2C 22 53 05 59 9A 4E 43 00 E8 |3,6,23,"S.Y.NC..|
000029D0: 31 86 F6 83 31 39 2C 31 2C 31 39 2C 31 2C 46 49 |1...19,1,19,1,FI|
000029E0: 4C 54 45 52 2F 4F 55 54 00 07 32 90 F6 83 31 39 |LTER/OUT..2...19|
000029F0: 2C 31 33 2C 31 39 2C 32 33 2C 22 46 52 45 05 51 |,13,19,23,"FRE.Q|
00002A00: 9A 55 45 4E 43 59 3A 00 26 32 9A F6 83 32 30 2C |.UENCY:.&2...20,|
00002A10: 31 33 2C 32 30 2C 32 33 2C 22 52 45 53 4F 05 4E |13,20,23,"RESO.N|
00002A20: 9A 41 4E 43 45 3A 00 42 32 A4 F6 83 31 39 2C 33 |.ANCE:.B2...19,3|
00002A30: 30 2C 31 39 2C 33 37 2C 22 05 56 9A 4F 4C 55 4D |0,19,37,".V.OLUM|
00002A40: 45 3A 00 5C 32 AE F6 83 32 30 2C 33 32 2C 32 30 |E:.\2...20,32,20|
00002A50: 2C 33 37 2C 22 05 4D 9A 4F 44 45 3A 00 72 32 B8 |,37,".M.ODE:.r2.|
00002A60: F6 83 32 31 2C 32 37 2C 32 31 2C 32 37 2C 22 05 |..21,27,21,27,".|
00002A70: 31 9A 00 87 32 C2 F6 83 32 31 2C 32 39 2C 32 2C |1...2...21,29,2,|
00002A80: 32 39 2C 22 05 32 9A 00 9D 32 CC F6 83 32 31 2C |29,".2...2...21,|
00002A90: 33 31 2C 32 31 2C 33 31 2C 22 05 33 9A 00 B5 32 |31,21,31,".3...2|
00002AA0: D6 F6 83 32 31 2C 33 33 2C 32 31 2C 33 33 2C 22 |...21,33,21,33,"|
00002AB0: 45 05 58 9A 54 00 CE 32 E0 F6 83 32 32 2C 31 33 |E.X.T..2...22,13|
00002AC0: 2C 32 32 2C 31 38 2C 22 05 4F 9A 53 43 33 00 E7 |,22,18,".O.SC3..|
00002AD0: 32 EA F6 83 32 32 2C 32 31 2C 32 32 2C 32 36 2C |2...22,21,22,26,|
00002AE0: 22 05 45 9A 4E 56 33 00 05 33 F4 F6 83 32 32 2C |".E.NV3..3...22,|
00002AF0: 32 39 2C 32 32 2C 32 39 2C 22 05 54 9A 55 52 4E |29,22,29,".T.URN|
00002B00: 4F 46 46 20 33 00 41 33 FE F6 8F 20 20 20 20 20 |OFF 3.A3... |
00002B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B20: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 45 | *** E|
00002B30: 4E 44 20 4F 46 20 50 52 4F 47 52 41 4D 20 2A 2A |ND OF PROGRAM **|
00002B40: 2A 00 00 00 |*... |
..D.D..1000:. **
*** 16-BIT CALCULATION *****._.H.KK.B(KE
Y):.KK.NULL.200...M.. KEY PRESSED, USE V
ARS FOR SPEED...R.J.BB:Z.B(H.BB):HH.B(SH
FT).E.W.. CUR-UP=7,CUR-LFT=2,RETURN=1...
...KK.240,250,230,230,230,230,260......:
. NO VALID KEY, KEEP VALUE.$...J..((Z.BB
).K.CC):.260.J.... VRY FAST,LARGER FOR H
IGHER VALS.G...J.K:. MODERATE INCREMENT.
....Z.B(H).Z.XX.J.((HH.AA).(HH.AA)).....
. H SET BY CALLER, ADD INCR.O.... INCR I
S POS IF SHIFT KEY DOWN......Z.AA.Z.AA:.
MIN & MAX VALS......Z.ZZ.Z.ZZ..."..930:
. POSITION CURSOR.>.'.. PRINT VALUE IF P
ITCH OR FILTER.V.,..DV..CC..Z". ":.320.R
.1.. PRINT % OF DUTY CYCLE...6...(Z.4.09
5).10".% "...;.. PUT VALUE IN BUFFER.D.
@..H.BB,Z.XX:.H,Z..(Z.XX).XX...J..DV.CC.
360:. BRANCH FOR FLTR...O.. PUT VAL IN S
ID, BACK FOR MORE.%.T..YY,B(H):.YY.BB,B(
H.BB)...^..200.P.C.. FILTER IS ODD; 11-B
IT VALUE.K.D.. STORED 3 LOW, 8 HIGH...H.
.YY,Z.7:.YY.BB,Z.8.D.R..200:.
***** 8-BIT CALCULATION *
****.....KK.B(KEY):.KK.NULL.400...... KE
Y PRESSED, IS IT VALID?.#....KK.430,430,
420,420,420,420,430.D.... NO, RETURN WIT
H VALUE KEPT.J.....C...HH.B(SHFT):BB.SBU
F.H...... ADD INCREMENT (SAME FOR ANY...
... VALID KEY), POS IF SHIFT DOWN.I...Z.
(B(BB).J).K.(HH.0).(HH.0)...B..Z.0.Z.0:.
MIN & MAX VALUES...L..Z.15.Z.15...V..93
0:.Z". ":. POS & PRNT.,.... MASK ON TO
BYTE.B...Z.B(BB).255.J.Z.K.B.... INSERT
& GO BACK FOR MORE......BB,Z:.SID.H,Z:.4
00:. ***** BIT DECODING *****.....YY
.B(SBUF.XX):. VALUE OF BYTE...F.Z..((YY.
J).K):. VAL OF BIT(S)...K.. MASK VALUES
SET BY CALLER.8.P..:.
***** BIT ENCODING *****.U. .YY.
YY.255.J.Z.K:. ENCODE.R.*..SBUF.XX,YY:.
SET BUFFER...4..SID.XX,YY:. SET SID.H.>.
.:. ***** CURS
OR PLOTTER *****......CX,WX%(CT).CL:. WO
RD ROW......CY,WY%(CT).OFS:. & COLUMN...
...950.-....CX,VX%(CT).CL:. VALUE ROW.L.
...CY,VY%(CT):. & COLUMN.F....MOVE:.
:. MOVE CURSOR. ....
** MAIN ROUTINE **.X.... 5
0000:. INITIALIZE ***** KEY INP
UT *****...L.KK.B(KEY):.KK.NULL.1100...Q
.. KEY PRESSED, IF SHIFT IS.5.R.. DOWN,
SKIP ENTRY LEVEL CALC.O.V.HH.B(SHFT):.HH
.1.1500.N.[.. ENTRY LEVEL INTO VOICES?..
.`..KK.F1.KK.F5.1500...E.. CHANGE ENTRY
LEVEL & CLEAR.D.J.EL.KK.4:DV..1:.53000:.
1100...X..
***** KEY DISPATCH *****......KK.F.20
00:. FREQUENCY.;....KK.P.2000:. PULSE WI
DTH.S....KK.A.3000:. ATTACK.J....KK.D.30
00:. DECAY......KK.S.3000:. SUSTAIN.....
.KK.R.3000:. RELEASE......KK.W.4000:. WA
VEFORM.L."..KK.G.4000:. GATE...,..KK.I.4
000:. RING...6..KK.Y.4000:. SYNC...@..KK
.Q.2000:. FILTER FREQ.0.J..KK.N.3000:. R
ESONANCE.H.T..KK.V.3000:. VOLUME.^.^..KK
.M.5000:. MODE.W.H..KK.N1.5000:. ASSIGN.
..R..KK.N2.5000...|..KK.N3.5000......KK.
X.5000......KK.O.6000:. OSC3.R....KK.E.6
000:. ENV3......KK.T.5000:. 3 OFF......
SPECIAL FUNCTIONS......KK.F1..7000:.1100
./....KK.F3..7000:.1100.F.B..KK.F5..7000
:.1100.C.L..KK..F7.HH.0.1800:. END?...V.
.A$:.A$.."".1750:. CLR BUF......SID.24,0
:.CS:.:. END.....DV..1:.53020:. NO VALID
KEY......52000:.1100:. OOPS ****
* 16-BIT EVALUATION *****...P.DV.1:.KK.P
.DV.2...Z..KK.Q.DV.12.?.... DV:1=VOICE F
REQ, 2=PLS WDTH._.... 12=FILTER FREQ, CL
EAR OLD.Y.... VARS USED FOR SPEED......
ZZ=MAX VAL, H=SID REG......53020:XX.256:
AA.0:BB.1:CC.2.P...K.29:H.0:ZZ.65535:J.7
......DV.2.ZZ.4095:H.2......DV.12.ZZ.204
7:H.21:J.0.#.... PRE-CALCULATE BUFFER &
SID.6.... ENTRY POINTS.V...YY.SID.EL.J.H
:H.SBUF.EL.J.H.R.... CALC & DISPLAY VALU
ES...... ONCE A NON-VALID KEY IS FOUND..
.... IN SUBROUTINE, EXIT WITH KEY.L....
VALUE INTACT......200:.1110:.
***** 8-BIT EVALUATION *****.,...DV.
4:H.EL.7.5:J.240:K.16:. ATCK.K.... DECAY
, SUSTAIN, RELEASE?.C.B..KK.D.DV.5:J.15:
K.1.{.L..KK.S.DV.6:H.EL.7.6...V..KK.R.DV
.7:H.EL.7.6:J.15:K.1...... RESONANCE OR
VOLUME?.L....KK.N.DV.13:H.23......KK.V.D
V.14:H.24:J.15:K.1...... CLEAR, CALC & D
ISPLAY VALUES./.... WHEN NON-VALID KEY P
RESSED,.N.... RETURN WITH VALUE INTACT..
....53020:.400:.1110:. ***** CTRL BYT
E CALCULATION *****... .DV..1:.53020:. C
LEAR...... SET MASK VALUES.....XX.4.EL.7
:DV.3:J.240:. WAVEFORM......KK.G.DV.8:J.
1:. GATE......KK.I.DV.9:J.4:. RING.-.H..
KK.Y.DV.10:J.2:. SYNC.A.R.K.J:.J.240.K.1
6.D.W.. GO GET VALUE FROM SID BUFFER.}.X
.. BRANCH IF WAVEFORM......700:.DV.3.411
0...... TOGGLE VALUE.....Z..(Z.0):CL.EL.
5:CT.DV.Z....Z.1..".";:. HIGHLIGHT......
53070:.4190:. DISPLAY............ INC 0-
>1,1->2,2->4,4->8,8->0.7...Z.(Z.2.(Z.0))
..(Z.8).X...CT.DV:CL.EL.5:.930:. MVE CRS
.O.... DISPLAY WAVEFORM...".A$."-":.Z.1.
A$."T...,..Z.2.A$."S...6..Z.4.A$."P...@.
.Z.8.A$."N...J..A$...T.....^..800:.1100:
. STORE & RTRN ***** FILT/MODE CALCULAT
ION *****.....DV..1:.53020:. CLEAR OLD.:
...DV.15:CT.DV:CL.0:. MODE.S.... FILTER
ASSIGNMENT?.N....KK.N1.DV.16:H.1:.5500..
....KK.N2.DV.17:H.2:.5500......KK.N3.DV.
18:H.4:.5500......KK.X.DV.19:H.8:.5500.K
.... 3 OFF?...D..KK.T.DV.22:.5200...N...
..S.. MODE INCREMENT...X.XX.24:J.112:K.1
6:.700.5.... INCR 0->1,1->2,2->4,4->0.Y.
... PROGRAM MODIFICATION POSSIBLE.{....
TO ALLOW MORE THAN ONE MODE...... AT THE
SAME TIME.....Z.(Z.2.(Z.0))..(Z.4).B...
.930:. MOVE CURSOR.Z...A$." -":.Z.1.A$."
LP......Z.2.A$."BP......Z.4.A$."HP......
A$:.5550:. DISPLAY.......).#.. TURN 3 OF
F.H.P.CT.DV:XX.24:J.128:K.1:.700.\.U.. M
ASK & TOGGLE.|.Z.ZZ.128..((Z.J).0):H.1:.
5520...D.....I.. ASSIGN FILTER...|.CT.DV
:XX.23:J.15:K.1:.700.X...ZZ.H..((Z.H).0)
:. MASK & TOGGLE......ZZ.0..".";......53
090:. DISPLAY.....Z.Z.J.H.ZZ.B....800:.1
100:. STORE & RTRN ***** I/O INSERT ***
**.[.P.DV..1:.53020:. CLEAR.P.U.. DEFAUL
T TO OSC...Z.H.OS:CT.20:CL.0:.KK.O.6030.
.... ENVELOPE.....H.EN:CT.21.E...J.B(H)
:. READ VALUE.X.... VALUE SWITCH...... E
ITHER 255 (OFF),0 (VOICE 1,...... LOW),1
(VOICE 1, HIGH), OR 22.>.... (FILTER FR
EQUENCY, HIGH)._...J..(J.0).22.(J.1).255
.(J.22).{....H,J:.930:. SAVE & MOVE.....
. CALCULATE DISPLAY.....J.1.(J.0).(J.1).
(J.22).G....J("LHF-",J,1):.1100...T..
***** FUNC
TION KEYS *****. .X.DV..1:.53020:. CLEAR
.@.].. CANNOT ARRIVE HERE UNLESS.`.^.. S
HIFT KEY WAS PRESSED, SO.X._.. F1=F2,F3=
F4,F5=F6...B.H.0:CT.8:J.1:K.1:. DEFAULT.
..G.. F1(F2)=TOGGLE, F3(F4)=ALL OFF.Q.L.
.KK.F1.KK.F3.7100...Q.. F5(F6)=ON THEN O
FF.. R.. Z=READ VALUE, SET TO 1.& S.. WI
LL CAUSE A TOGGLE TO 0.A T.. H SERVES TO
ADJUST Z.O V.H.1:.7100.W ..H.2.X ... VO
ICE GATES AT SID+4,11,18.. ...XX.4.18.7.
. A.:. IF F3, SET TO TURN OFF.. F.:.700:
.KK.F3.Z.1.O K.:. ADJUST FOR F5.. P.:.H.
0.Z.H.1.. U.:. CALCULATE DISPLAY ROW..!Z
.:CL..5.(XX.11).10.(XX.18).3!..:. DISPLA
Y AS ON/OFF.N!..:.(Z..1).2.53060,53070.H
!..:Z..(Z.0):YY.YY.254.Z.~!..:. SAVE IN
BUFFER..!..:.SBUF.XX,YY..!.....!... MOVE
TO SID QUICKLY..!...XX.4.18.7.V!..:.SID
.XX,B(SBUF.XX).." ..:.:.
** INITIALIZE **.&"KC. * PUT IN SYS
TEM ROUTINES *.D"LC. * CURSOR PLOT ROUTI
NE *._"PCMOVE.679:CX.251:CY.252.S"ZC.XX.
MOVE.MOVE.7.."DC:.YY:.XX,YY.."NC.:.
INTERRUPT ROUTINE.
G"XC.XX.712.760.W".C:.YY:.XX,YY..#.C.:.
***** VARIABLE
ASSIGNMENT *****.6#.CKEY.203:SHFT.653:N
ULL.64.U#.C. PEEK(KEY)=VAL OF CURRENT.U#
.C. KEY DOWN, PEEK(SHFT)>0 IF..#.C. SHIF
T,C=,OR CTRL PRESSED..#.C. PEEK(KEY)=NUL
L MEANS NO KEY..#.CUP.7:FA.2:LO.1:XX.0:Y
Y.0:ZZ.0:Z.0..#CC. UP=CURSOR UP/DOWN=SLO
W..$DC. FA=CRSR LFT/RGHT=MODERATE..$EC.
LO=RETURN=FAST.L$FC. NO SHIFT=DOWN, SHIF
T=UP.P$HCKK.0:HH.0:H.0:J.0:K.0:DV.0:CT.0
..$MC. KK HOLDS CURRENT KEY VALUE..$NC.
HH>0 IF SHIFT DOWN.L$OC. DV,CT,CL ARE DI
SPLAY VALUES..$RCCL.0:AA.0:BB.0:CC.0:SID
.54272..%WC. OP=MOVE INTERRUPT,CS=RESTOR
E./%.CSBUF.MOVE.8:OP.712:CS.725.L%.C. HI
GHLIGHTED KEY VALUES.D%.CF1.4:F3.5:F5.6:
F7.3..%.CF.21:P.41:W.9:A.10:D.18:S.13:R.
17..%.CG.26:I.33:Y.25:Q.62:N.39:M.36.F%.
DV.31:N1.56:N2.59:N3.8..%.D. EN,OS USED
IN I/O..&.DX.23:O.38:E.14:T.22:EN.254:OS
.253.F&.D.
***** READ SCREEN DATA *****.F&.D.WX%(
22),WY%(22):. WORD X,Y..&"D.VX%(22),VY%(
22):. VALUE X,Y..&,D.WRD$(22):. DISPLAY
STRINGS..&6D.XX.0.22.J&@D:.WX%(XX),WY%(X
X)..&JD:.VX%(XX),VY%(XX)..&TD:.WRD$(XX).
,'^D.:. *****
DISPLAY SCREEN *****.\'|D."... SID EDIT
OR - PRESS A HIGHLIGHTED KEY..'.D."CRSR:
[U/D]=SLOW,[L/R]=MED, [RETURN]=FAST..'.D
.XX.0.10.5:. VOICES 1-3..'.D:. 0=F1,5=F3
,10=F5.W'.D:A$.I(D(2.XX.5.1),1)..'.D:. M
OVE CURSOR..(.D:CT.0:CL.XX:OFS..3:.900..
(.D:. PRINT "VOICE".9(.D:.".F"A$". "WRD$
(0)XX.5.1.Z(.D:. Z DETERMINES DISPLAY TY
PE.Z(.D:.YY.1.10:Z.1.(YY.8).(YY.3)..(BD:
CT.YY:OFS.0:.900..(LD: .WRD$(YY)" "J("
0-",Z,1)..(VD:...(.D..C(.D...(.D. FILTER
& VOLUME STUFF..(.DCT.11:CL.0:.900..).D
.WRD$(11)..).E.XX.12.22:.XX..16.50460.6)
.E:. ADDITIONAL PROMPT.X).E:."
ASSIGN FILTER.R).E:. A$=DEFAULT DISPL
AY..).E:A$."":.XX.15.A$." 0..)&E:.XX.15.
XX.20.XX.21.A$." -.H)0E:CT.XX:.900:. MOV
E CURSOR.Y):E:.WRD$(XX)A$..)DE.:...*NE."
.F2.=TOGGLE .F4.=ALL OFF .F6.=ON/OFF .F
8.=QUIT";.6*SE. DISPLAY VALUES DEFAULT.S
*XEEL.0:OEL.EL:DV..1:ODV.DV..*.E.
***** INSERT I/
O INTO INTERRUPT *****..*.E.EN,255:.OS,2
55:.OP..*4G.
***** CLEAR SID & BUFFER *****..+8G.
XX.SID.SID.28..+LG: .XX,0.0+VG: .SBUF.
XX.SID,0.6+`G..L+JG.:.
***** ERROR BUZZ ****..+ K.SID.23
,0:. NO FILTER. +*K.SID.24,15:. FULL VOL
..+4K.SID.1,10:. VOICE 1.N+>K.SID.5,0:.
NO A/D..+HK.SID.6,240:. FULL SUS..,RK.SI
D.4,0:. GATE OFF..,\K.SID.4,33:. SAW ON.
.,FK.XX.1.80:.:. DELAY.G,KK. RESTORE OLD
VALUES.^,PK.SID.23,B(SBUF.23).U,ZK.SID.
24,B(SBUF.24)..,.K.SID.1,B(SBUF.1)..,.K.
SID.5,B(SBUF.5)..,.K.SID.6,B(SBUF.6).I,.
K.SID.4,B(SBUF.4)..-.K.:.
***** HIGHLIGHT CURRENT ENTRY
*****./-.O. LINE 53000 CLEARS OLD VOICE.
O-.O. LINE 53010 HIGHLIGHTS NEW.Q-.O. LI
NE 53020 CLEARS OLD ENTRY..-.O. LINE 530
40 HIGHLIGHTS NEW..-.O...-.OCT.0:CL.5.OE
L..(CT.11):.53070.M-.O. CL=ROW OFFSET..-
.OCL.5.EL..(DV.11):.53060....OCT.ODV:CL.
5.OEL..(CT.11)...&O.53070.#.0OOEL.EL:ODV
.DV.@.:OCT.ODV:CL.5.OEL..(CT.11).J.DO.".
";.K.IO. NO CHANGE FOR THESE VALUES...JO
. GATE, RING, ETC...NO.CT.0.CT.14.53110.
..XO.CT.3.CT.11.53110...BO.900:. PLOT.L.
LO. WRD$(CT)../VO.".";:.:.
***** PROGRAM DATA *****../^.. CURSOR M
OVE ROUTINE.!/_...D/`..24,166,251,164,25
2,76,240,255.J/....P/A...H/B.. INTERRUPT
ROUTINE.N/C..../D..120,169,226,141,20,3
,169../N..2,141,21,3,88,96,120,169.G/X..
49,141,20,3,169,234,141../...21,3,88,96,
166,253,48,6..0...173,27,212,157,0,212,1
66..0...254,48,6,173,28,212,157.40...0,2
12,76,49,234.:0....@0....Z0... SCREEN DI
SPLAY DATA.`0.....0... WORD START X, WOR
D START Y,..0... VALUE START X, VALUE ST
ART Y,..0... WORD..0....J0...3,4,3,4,VOI
CE..0"..3,13,3,23,".F.REQUENCY:..1,..4,1
3,4,23,".P.LS WIDTH:. 16..5,14,5,24,".W.
AVEFORM:.:1@..3,30,3,37,".A.TTACK:.S1J..
4,31,4,37,".D.ECAY:.N1T..5,29,5,37,".S.U
STAIN:..1^..6,29,6,37,".R.ELEASE:. 1H..6
,13,6,13,".G.ATE..1R..6,18,6,18,"R.I.NG.
N1|..6,23,6,23,"S.Y.NC..1...19,1,19,1,FI
LTER/OUT..2...19,13,19,23,"FRE.Q.UENCY:.
&2...20,13,20,23,"RESO.N.ANCE:.B2...19,3
0,19,37,".V.OLUME:.\2...20,32,20,37,".M.
ODE:.R2...21,27,21,27,".1...2B..21,29,2,
29,".2...2L..21,31,21,31,".3...2V..21,33
,21,33,"E.X.T.N2...22,13,22,18,".O.SC3..
2...22,21,22,26,".E.NV3..3...22,29,22,29
,".T.URNOFF 3.A3...
*** END OF PROGRAM ***...
> CLICK IMAGE PREVIEW FOR FULL MODAL