MATCHING NETWORK
FILE INFORMATION
FILENAME(S): MATCHING NETWORK
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-10-19 22:48:27
APPEARS ON: 1 disk(s)
FILE HASH
c6db0d7497ee043b75754e3da2ce3b2639a9e6b6f687541cf11be15f12caa609
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SNAPSHOT64 | MATCHING NETWORK | PRG | Radd Maxx | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 01 00 8F 20 4D 41 54 43 48 49 4E 47 |....... MATCHING| 00000010: 20 4E 45 54 57 4F 52 4B 53 00 37 08 02 00 8F 20 | NETWORKS.7.... | 00000020: 46 52 4F 4D 20 52 46 20 4D 41 47 2E 20 41 50 52 |FROM RF MAG. APR| 00000030: 49 4C 20 31 39 38 35 00 45 08 03 00 8F 20 50 41 |IL 1985.E.... PA| 00000040: 47 45 20 34 34 00 61 08 0A 00 97 35 33 32 38 30 |GE 44.a....53280| 00000050: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 95 |,0:.53281,0:."..| 00000060: 22 00 8C 08 14 00 85 22 93 45 4E 54 45 52 20 53 |"......".ENTER S| 00000070: 4F 55 52 43 45 20 52 45 53 49 53 54 41 4E 43 45 |OURCE RESISTANCE| 00000080: 20 49 4E 20 4F 48 4D 53 22 3B 52 53 00 B5 08 28 | IN OHMS";RS...(| 00000090: 00 85 22 11 45 4E 54 45 52 20 4C 4F 41 44 20 52 |..".ENTER LOAD R| 000000A0: 45 53 49 53 54 41 4E 43 45 20 49 4E 20 4F 48 4D |ESISTANCE IN OHM| 000000B0: 53 22 3B 52 4C 00 C4 08 34 00 8B 52 53 B3 B2 52 |S";RL...4..RS..R| 000000C0: 4C A7 36 30 00 FB 08 36 00 99 22 93 11 11 11 11 |L.60...6..".....| 000000D0: 11 11 11 52 53 20 4D 55 53 54 20 42 45 20 4C 45 |...RS MUST BE LE| 000000E0: 53 53 20 54 48 41 4E 20 4F 52 20 45 51 55 41 4C |SS THAN OR EQUAL| 000000F0: 20 54 4F 20 52 4C 22 3A 89 32 30 00 0D 09 3C 00 | TO RL":.20...<.| 00000100: 51 4D B2 BA 28 52 4C AD 52 53 AB 31 29 00 5A 09 |QM..(RL.RS.1).Z.| 00000110: 46 00 99 22 11 45 4E 54 45 52 20 46 52 45 51 20 |F..".ENTER FREQ | 00000120: 49 4E 20 48 45 52 54 5A 20 46 4F 52 20 52 45 53 |IN HERTZ FOR RES| 00000130: 55 4C 54 53 20 49 4E 20 20 20 20 20 20 48 45 4E |ULTS IN HEN| 00000140: 52 49 45 53 20 41 4E 44 20 46 41 52 41 44 53 20 |RIES AND FARADS | 00000150: 4F 52 20 30 20 46 4F 52 22 3B 00 80 09 48 00 99 |OR 0 FOR";...H..| 00000160: 22 20 52 45 53 55 4C 54 53 20 49 4E 20 20 52 45 |" RESULTS IN RE| 00000170: 41 43 54 41 4E 43 45 20 56 41 4C 55 45 53 3A 22 |ACTANCE VALUES:"| 00000180: 00 88 09 50 00 85 46 4F 00 B2 09 5A 00 85 22 11 |...P..FO...Z..".| 00000190: 45 4E 54 45 52 20 44 45 53 49 52 45 44 20 4E 45 |ENTER DESIRED NE| 000001A0: 54 57 4F 52 4B 20 28 31 2D 31 34 29 3A 22 3B 4E |TWORK (1-14):";N| 000001B0: 45 54 00 CC 09 69 00 99 3A 99 22 51 2D 4D 49 4E |ET...i..:."Q-MIN| 000001C0: 3D 22 3B 51 4D 3A 99 3A 51 B2 51 4D 00 DC 09 78 |=";QM:.:Q.QM...x| 000001D0: 00 8B 4E 45 54 B1 31 32 A7 31 35 30 00 0A 0A 82 |..NET.12.150....| 000001E0: 00 85 22 11 45 4E 54 45 52 20 44 45 53 49 52 45 |..".ENTER DESIRE| 000001F0: 44 20 56 41 4C 55 45 20 4F 46 20 51 20 28 51 3E |D VALUE OF Q (Q>| 00000200: 3D 51 4D 49 4E 29 3A 22 3B 51 00 19 0A 8E 00 8B |=QMIN):";Q......| 00000210: 51 B1 B2 51 4D A7 31 34 35 00 4B 0A 90 00 99 22 |Q..QM.145.K...."| 00000220: 51 20 4D 55 53 54 20 42 45 20 47 52 45 41 54 45 |Q MUST BE GREATE| 00000230: 52 20 54 48 41 4E 20 4F 52 20 45 51 55 41 4C 20 |R THAN OR EQUAL | 00000240: 54 4F 22 3B 51 4D 3A 89 31 33 30 00 54 0A 91 00 |TO";QM:.130.T...| 00000250: 99 22 93 22 00 97 0A 96 00 91 4E 45 54 8D 34 30 |."."......NET.40| 00000260: 30 2C 34 30 30 2C 35 30 30 2C 35 30 30 2C 36 30 |0,400,500,500,60| 00000270: 30 2C 36 30 30 2C 37 30 30 2C 37 30 30 2C 38 30 |0,600,700,700,80| 00000280: 30 2C 38 30 30 2C 39 30 30 2C 39 30 30 2C 31 30 |0,800,900,900,10| 00000290: 30 30 2C 31 30 30 30 00 A5 0A A0 00 8B 46 4F B2 |00,1000......FO.| 000002A0: 30 A7 33 30 30 00 BA 0A AA 00 91 B4 28 58 31 29 |0.300.......(X1)| 000002B0: AA 31 89 31 39 30 2C 32 30 30 00 DA 0A B4 00 46 |.1.190,200.....F| 000002C0: 31 B2 28 31 AD 28 36 2E 32 38 AC 46 4F AC 58 31 |1.(1.(6.28.FO.X1| 000002D0: 29 29 AC AB 31 3A 89 32 31 30 00 EE 0A C8 00 46 |))..1:.210.....F| 000002E0: 31 B2 58 31 AD 28 36 2E 32 38 AC 46 4F 29 00 03 |1.X1.(6.28.FO)..| 000002F0: 0B D2 00 91 B4 28 58 32 29 AA 31 89 32 33 30 2C |.....(X2).1.230,| 00000300: 32 34 30 00 23 0B DC 00 46 32 B2 28 31 AD 28 36 |240.#...F2.(1.(6| 00000310: 2E 32 38 AC 46 4F AC 58 32 29 29 AC AB 31 3A 89 |.28.FO.X2))..1:.| 00000320: 32 35 30 00 37 0B F0 00 46 32 B2 58 32 AD 28 36 |250.7...F2.X2.(6| 00000330: 2E 32 38 AC 46 4F 29 00 47 0B FA 00 8B 4E 45 54 |.28.FO).G....NET| 00000340: B1 31 32 A7 33 30 30 00 5C 0B 04 01 91 B4 28 58 |.12.300.\.....(X| 00000350: 33 29 AA 31 89 32 38 30 2C 32 39 30 00 7C 0B 0E |3).1.280,290.|..| 00000360: 01 46 33 B2 28 31 AD 28 36 2E 32 38 AC 46 4F AC |.F3.(1.(6.28.FO.| 00000370: 58 32 29 29 AC AB 31 3A 89 33 30 30 00 90 0B 22 |X2))..1:.300..."| 00000380: 01 46 33 B2 58 33 AD 28 36 2E 32 38 AC 46 4F 29 |.F3.X3.(6.28.FO)| 00000390: 00 9A 0B 2C 01 8D 31 32 30 30 00 A0 0B 31 01 99 |...,..1200...1..| 000003A0: 00 CC 0B 36 01 85 22 45 4E 54 45 52 20 31 20 54 |...6.."ENTER 1 T| 000003B0: 4F 20 52 55 4E 20 50 52 4F 47 52 41 4D 20 4F 52 |O RUN PROGRAM OR| 000003C0: 20 30 20 54 4F 20 45 4E 44 22 3B 44 00 D8 0B 4A | 0 TO END";D...J| 000003D0: 01 8B 44 B2 31 A7 32 30 00 DE 0B 54 01 80 00 F0 |..D.1.20...T....| 000003E0: 0B 90 01 8F 20 4E 45 54 31 20 52 53 3C 3D 52 4C |.... NET1 RS<=RL| 000003F0: 00 1A 0C 9A 01 58 31 B2 52 53 AC 28 BA 28 28 52 |.....X1.RS.(.((R| 00000400: 4C AD 52 53 29 AD 28 51 AE 32 AA 31 AB 28 52 4C |L.RS).(Q.2.1.(RL| 00000410: AD 52 53 29 29 29 29 AC AB 31 00 3B 0C A4 01 58 |.RS))))..1.;...X| 00000420: 32 B2 28 51 AC 52 4C AB 28 52 53 AC 52 4C AD 58 |2.(Q.RL.(RS.RL.X| 00000430: 31 29 29 AD 28 51 AE 32 AA 31 29 00 4C 0C AE 01 |1)).(Q.2.1).L...| 00000440: 58 33 B2 28 52 4C AD 51 29 AC AB 31 00 5B 0C B8 |X3.(RL.Q)..1.[..| 00000450: 01 8B 4E 45 54 B2 31 A7 34 36 30 00 65 0C C2 01 |..NET.1.460.e...| 00000460: 8D 31 31 30 30 00 6B 0C CC 01 8E 00 7D 0C F4 01 |.1100.k.....}...| 00000470: 8F 20 4E 45 54 20 33 20 52 53 3C 52 4C 00 9E 0C |. NET 3 RS<RL...| 00000480: FE 01 58 31 B2 52 53 AD 28 BA 28 28 52 53 AC 28 |..X1.RS.(.((RS.(| 00000490: 51 AE 32 AA 31 29 29 AD 52 4C AB 31 29 29 00 C6 |Q.2.1)).RL.1))..| 000004A0: 0C 08 02 58 32 B2 28 28 52 4C AC 51 29 AD 28 51 |...X2.((RL.Q).(Q| 000004B0: AE 32 AA 31 29 29 AC 28 31 AB 28 52 53 AD 28 51 |.2.1)).(1.(RS.(Q| 000004C0: AC 58 31 29 29 29 00 D7 0C 12 02 58 33 B2 28 52 |.X1))).....X3.(R| 000004D0: 4C AD 51 29 AC AB 31 00 E6 0C 1C 02 8B 4E 45 54 |L.Q)..1......NET| 000004E0: B2 33 A7 35 36 30 00 F0 0C 26 02 8D 31 31 30 30 |.3.560...&..1100| 000004F0: 00 F6 0C 30 02 8E 00 09 0D 58 02 8F 20 4E 45 54 |...0.....X.. NET| 00000500: 20 35 20 52 53 3C 3D 52 4C 00 15 0D 62 02 58 31 | 5 RS<=RL...b.X1| 00000510: B2 52 53 AC 51 00 45 0D 6C 02 58 32 B2 28 52 53 |.RS.Q.E.l.X2.(RS| 00000520: AC 28 31 AA 51 AE 32 29 AC AB 31 29 AD 28 51 AC |.(1.Q.2)..1).(Q.| 00000530: BA 28 28 52 53 AC 28 31 AA 51 AE 32 29 29 AD 52 |.((RS.(1.Q.2)).R| 00000540: 4C AB 31 29 29 00 67 0D 76 02 58 33 B2 52 4C AC |L.1)).g.v.X3.RL.| 00000550: BA 28 28 52 53 AC 28 31 AA 51 AE 32 29 29 AD 52 |.((RS.(1.Q.2)).R| 00000560: 4C AB 31 29 AC AB 31 00 76 0D 80 02 8B 4E 45 54 |L.1)..1.v....NET| 00000570: B2 35 A7 36 36 30 00 80 0D 8A 02 8D 31 31 30 30 |.5.660......1100| 00000580: 00 86 0D 94 02 8E 00 98 0D BC 02 8F 20 4E 45 54 |............ NET| 00000590: 20 37 20 52 53 3C 52 4C 00 D0 0D C6 02 58 31 B2 | 7 RS<RL.....X1.| 000005A0: 52 53 AC 51 3A 58 32 B2 28 52 53 AC 28 31 AA 51 |RS.Q:X2.(RS.(1.Q| 000005B0: AE 32 29 AC AB 31 29 AD 28 51 AB BA 28 28 52 53 |.2)..1).(Q..((RS| 000005C0: AC 28 31 AA 51 AE 32 29 29 AD 52 4C AB 31 29 29 |.(1.Q.2)).RL.1))| 000005D0: 00 F2 0D DA 02 58 33 B2 52 4C AC BA 28 28 52 53 |.....X3.RL..((RS| 000005E0: AC 28 31 AA 51 AE 32 29 29 AD 52 4C AB 31 29 AC |.(1.Q.2)).RL.1).| 000005F0: AB 31 00 01 0E E4 02 8B 4E 45 54 B2 37 A7 37 36 |.1......NET.7.76| 00000600: 30 00 0B 0E EE 02 8D 31 31 30 30 00 11 0E F8 02 |0......1100.....| 00000610: 8E 00 23 0E 20 03 8F 20 4E 45 54 20 39 20 52 53 |..#. .. NET 9 RS| 00000620: 3C 52 4C 00 5B 0E 2A 03 58 31 B2 BA 28 52 53 AC |<RL.[.*.X1..(RS.| 00000630: 52 4C AB 52 53 AE 32 AB 51 AC 52 53 29 3A 58 32 |RL.RS.2.Q.RS):X2| 00000640: B2 51 AC 52 53 3A 58 33 B2 28 52 53 AC 52 4C AC |.Q.RS:X3.(RS.RL.| 00000650: AB 31 29 AD 28 58 31 AA 58 32 29 00 6A 0E 48 03 |.1).(X1.X2).j.H.| 00000660: 8B 4E 45 54 B2 39 A7 38 36 30 00 74 0E 52 03 8D |.NET.9.860.t.R..| 00000670: 31 31 30 30 00 7A 0E 5C 03 8E 00 8D 0E 84 03 8F |1100.z.\........| 00000680: 20 4E 45 54 20 31 31 20 52 53 3C 52 4C 00 C1 0E | NET 11 RS<RL...| 00000690: 8E 03 58 31 B2 52 53 AC BA 28 52 4C AD 52 53 AB |..X1.RS..(RL.RS.| 000006A0: 31 29 3A 58 32 B2 52 4C AD 51 AC AB 31 3A 58 33 |1):X2.RL.Q..1:X3| 000006B0: B2 58 32 AD 28 58 31 AD 28 51 AC 52 53 29 AB 31 |.X2.(X1.(Q.RS).1| 000006C0: 29 00 D1 0E AC 03 8B 4E 45 54 B2 31 31 A7 39 36 |)......NET.11.96| 000006D0: 30 00 DB 0E B6 03 8D 31 31 30 30 00 E1 0E C0 03 |0......1100.....| 000006E0: 8E 00 EE 0E E8 03 8F 20 4E 45 54 20 31 33 00 14 |....... NET 13..| 000006F0: 0F F2 03 58 31 B2 BA 28 52 53 AC 52 4C AB 52 53 |...X1..(RS.RL.RS| 00000700: AE 32 29 3A 58 32 B2 28 52 53 AC 52 4C AC AB 31 |.2):X2.(RS.RL..1| 00000710: 29 AD 58 31 00 25 0F 06 04 8B 4E 45 54 B2 31 33 |).X1.%....NET.13| 00000720: A7 31 30 35 30 00 2F 0F 10 04 8D 31 31 30 30 00 |.1050./....1100.| 00000730: 35 0F 1A 04 8E 00 4B 0F 4C 04 8F 20 49 4E 56 45 |5.....K.L.. INVE| 00000740: 52 53 45 20 52 4F 55 54 49 4E 45 00 61 0F 56 04 |RSE ROUTINE.a.V.| 00000750: 58 31 B2 58 31 AC AB 31 3A 58 32 B2 58 32 AC AB |X1.X1..1:X2.X2..| 00000760: 31 00 72 0F 6A 04 8B 4E 45 54 B2 31 34 A7 31 31 |1.r.j..NET.14.11| 00000770: 35 30 00 7F 0F 74 04 58 33 B2 58 33 AC AB 31 00 |50...t.X3.X3..1.| 00000780: 85 0F 7E 04 8E 00 99 0F B0 04 8F 20 50 52 49 4E |..~........ PRIN| 00000790: 54 20 52 4F 55 54 49 4E 45 00 C1 0F B4 04 99 3A |T ROUTINE......:| 000007A0: 99 3A 99 22 53 4F 55 52 43 45 20 52 45 53 49 53 |.:."SOURCE RESIS| 000007B0: 54 41 4E 43 45 3D 22 3B 52 53 3B 22 4F 48 4D 53 |TANCE=";RS;"OHMS| 000007C0: 22 00 E3 0F C4 04 99 22 4C 4F 41 44 20 52 45 53 |"......"LOAD RES| 000007D0: 49 53 54 41 4E 43 45 3D 22 3B 52 4C 3B 22 4F 48 |ISTANCE=";RL;"OH| 000007E0: 4D 53 22 00 F4 0F CE 04 99 22 51 4D 49 4E 20 3D |MS"......"QMIN =| 000007F0: 22 3B 51 4D 00 03 10 D8 04 8B 51 4D B2 51 A7 31 |";QM......QM.Q.1| 00000800: 32 37 30 00 10 10 E2 04 99 22 51 20 3D 22 3B 51 |270......"Q =";Q| 00000810: 00 2A 10 F6 04 99 22 4E 45 54 57 4F 52 4B 20 4E |.*...."NETWORK N| 00000820: 55 4D 42 45 52 22 3B 4E 45 54 00 3A 10 00 05 8B |UMBER";NET.:....| 00000830: 46 4F B3 B1 30 A7 31 33 34 30 00 50 10 14 05 99 |FO..0.1340.P....| 00000840: 22 58 31 20 3D 22 3B 58 31 3B 22 4F 48 4D 53 22 |"X1 =";X1;"OHMS"| 00000850: 00 66 10 1E 05 99 22 58 32 20 3D 22 3B 58 32 3B |.f...."X2 =";X2;| 00000860: 22 4F 48 4D 53 22 00 77 10 23 05 8B 4E 45 54 B1 |"OHMS".w.#..NET.| 00000870: 31 32 A7 31 33 33 30 00 8F 10 28 05 99 22 58 33 |12.1330...(.."X3| 00000880: 20 3D 22 3B 58 33 3B 22 4F 48 4D 53 22 3A 99 00 | =";X3;"OHMS":..| 00000890: DE 10 2D 05 99 22 50 4F 53 49 54 49 56 45 20 56 |..-.."POSITIVE V| 000008A0: 41 4C 55 45 53 20 46 4F 52 20 49 4E 44 55 43 54 |ALUES FOR INDUCT| 000008B0: 49 56 45 20 52 45 41 43 54 41 4E 43 45 20 26 20 |IVE REACTANCE & | 000008C0: 4E 45 47 41 54 49 56 45 20 56 41 4C 55 45 53 20 |NEGATIVE VALUES | 000008D0: 46 4F 52 20 43 41 50 20 52 45 41 43 54 22 00 E4 |FOR CAP REACT"..| 000008E0: 10 32 05 8E 00 02 11 3C 05 99 22 46 52 45 51 55 |.2.....<.."FREQU| 000008F0: 45 4E 43 59 20 3D 22 3B 46 4F 3B 22 48 45 52 54 |ENCY =";FO;"HERT| 00000900: 5A 22 00 19 11 41 05 91 B4 28 58 31 29 AA 31 89 |Z"...A...(X1).1.| 00000910: 31 33 36 30 2C 31 33 37 30 00 37 11 46 05 99 22 |1360,1370.7.F.."| 00000920: 43 31 20 3D 22 3B 46 31 3B 22 46 41 52 41 44 53 |C1 =";F1;"FARADS| 00000930: 22 3A 89 31 33 38 30 00 41 11 50 05 89 31 33 38 |":.1380.A.P..138| 00000940: 30 00 5A 11 5A 05 99 22 4C 31 20 3D 22 3B 46 31 |0.Z.Z.."L1 =";F1| 00000950: 3B 22 48 45 4E 52 49 45 53 22 00 71 11 64 05 91 |;"HENRIES".q.d..| 00000960: B4 28 58 32 29 AA 31 89 31 34 30 30 2C 31 34 31 |.(X2).1.1400,141| 00000970: 30 00 89 11 6E 05 99 22 43 32 20 3D 22 3B 46 32 |0...n.."C2 =";F2| 00000980: 3B 22 46 41 52 41 44 53 22 00 93 11 78 05 89 31 |;"FARADS"...x..1| 00000990: 34 32 30 00 AC 11 82 05 99 22 4C 32 20 3D 22 3B |420......"L2 =";| 000009A0: 46 32 3B 22 48 45 4E 52 49 45 53 22 00 BD 11 8C |F2;"HENRIES"....| 000009B0: 05 8B 4E 45 54 B1 31 32 A7 31 34 37 30 00 D4 11 |..NET.12.1470...| 000009C0: 96 05 91 B4 28 58 33 29 AA 31 89 31 34 35 30 2C |....(X3).1.1450,| 000009D0: 31 34 36 30 00 EC 11 A0 05 99 22 43 33 20 3D 22 |1460......"C3 ="| 000009E0: 3B 46 33 3B 22 46 41 52 41 44 53 22 00 F6 11 AA |;F3;"FARADS"....| 000009F0: 05 89 31 34 37 30 00 0F 12 B4 05 99 22 4C 33 20 |..1470......"L3 | 00000A00: 3D 22 3B 46 33 3B 22 48 45 4E 52 49 45 53 22 00 |=";F3;"HENRIES".| 00000A10: 15 12 BE 05 8E 00 00 00 |........ |
....... MATCHING NETWORKS.7.... FROM RF MAG. APRIL 1985.E.... PAGE 44.A....53280 ,0:.53281,0:.".."......".ENTER SOURCE RE SISTANCE IN OHMS";RS...(..".ENTER LOAD R ESISTANCE IN OHMS";RL.D.4..RS..RL.60...6 .."........RS MUST BE LESS THAN OR EQUAL TO RL":.20...<.QM..(RL.RS.1).Z.F..".ENT ER FREQ IN HERTZ FOR RESULTS IN HEN RIES AND FARADS OR 0 FOR";...H.." RESULT S IN REACTANCE VALUES:"...P..FO...Z..". ENTER DESIRED NETWORK (1-14):";NET.L.I.. :."Q-MIN=";QM:.:Q.QM...X..NET.12.150.... ..".ENTER DESIRED VALUE OF Q (Q>=QMIN):" ;Q......Q..QM.145.K...."Q MUST BE GREATE R THAN OR EQUAL TO";QM:.130.T....".".... ..NET.400,400,500,500,600,600,700,700,80 0,800,900,900,1000,1000... ..FO.0.300... ....(X1).1.190,200.Z...F1.(1.(6.28.FO.X1 ))..1:.210...H.F1.X1.(6.28.FO)...R...(X2 ).1.230,240.#...F2.(1.(6.28.FO.X2))..1:. 250.7...F2.X2.(6.28.FO).G....NET.12.300. \.....(X3).1.280,290.|...F3.(1.(6.28.FO. X2))..1:.300...".F3.X3.(6.28.FO)...,..12 00. .1...L.6.."ENTER 1 TO RUN PROGRAM OR 0 TO END";D.X.J..D.1.20...T........ NET 1 RS<=RL.....X1.RS.(.((RL.RS).(Q.2.1.(RL .RS))))..1.;...X2.(Q.RL.(RS.RL.X1)).(Q.2 .1).L...X3.(RL.Q)..1.[....NET.1.460.E.B. .1100.K.L...}.... NET 3 RS<RL.....X1.RS. (.((RS.(Q.2.1)).RL.1)).F...X2.((RL.Q).(Q .2.1)).(1.(RS.(Q.X1))).W...X3.(RL.Q)..1. .....NET.3.560...&..1100...0.....X.. NET 5 RS<=RL...B.X1.RS.Q.E.L.X2.(RS.(1.Q.2) ..1).(Q..((RS.(1.Q.2)).RL.1)).G.V.X3.RL. .((RS.(1.Q.2)).RL.1)..1.V....NET.5.660.. ....1100............ NET 7 RS<RL.P.F.X1. RS.Q:X2.(RS.(1.Q.2)..1).(Q..((RS.(1.Q.2) ).RL.1))...Z.X3.RL..((RS.(1.Q.2)).RL.1). .1......NET.7.760......1100.......#. .. NET 9 RS<RL.[.*.X1..(RS.RL.RS.2.Q.RS):X2 .Q.RS:X3.(RS.RL..1).(X1.X2).J.H..NET.9.8 60.T.R..1100.Z.\........ NET 11 RS<RL.A. ..X1.RS..(RL.RS.1):X2.RL.Q..1:X3.X2.(X1. (Q.RS).1).Q....NET.11.960......1100..... ....... NET 13.....X1..(RS.RL.RS.2):X2.( RS.RL..1).X1.%....NET.13.1050./....1100. 5.....K.L.. INVERSE ROUTINE.A.V.X1.X1..1 :X2.X2..1.R.J..NET.14.1150..T.X3.X3..1. ..~........ PRINT ROUTINE.A....:.:."SOUR CE RESISTANCE=";RS;"OHMS"...D.."LOAD RES ISTANCE=";RL;"OHMS"...N.."QMIN =";QM...X ..QM.Q.1270......"Q =";Q.*...."NETWORK N UMBER";NET.:....FO..0.1340.P...."X1 =";X 1;"OHMS".F...."X2 =";X2;"OHMS".W.#..NET. 12.1330...(.."X3 =";X3;"OHMS":....-.."PO SITIVE VALUES FOR INDUCTIVE REACTANCE & NEGATIVE VALUES FOR CAP REACT"...2.....< .."FREQUENCY =";FO;"HERTZ"...A...(X1).1. 1360,1370.7.F.."C1 =";F1;"FARADS":.1380. A.P..1380.Z.Z.."L1 =";F1;"HENRIES".Q.D.. .(X2).1.1400,1410...N.."C2 =";F2;"FARADS "...X..1420......"L2 =";F2;"HENRIES".... ..NET.12.1470.T.....(X3).1.1450,1460... .."C3 =";F3;"FARADS"......1470......"L3 =";F3;"HENRIES".........
> CLICK IMAGE PREVIEW FOR FULL MODAL