RIAG Crate 008: 041 Spectrum Software Micro Cap Circuit Analysis Program Apple II 64k
Notes
Disk info for 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk:
File Name: riag_008_041_-_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_-_Apple_II_64k/041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 6656
Used Space (bytes): 136704
Physical Size (KB): 140
Free Space (KB): 6
Used Space (KB): 133
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 26
Used Sectors: 534
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk:
riag_008_041_-_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_-_Apple_II_64k/041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk DISK VOLUME #254
* A 002 HELLO
* B 006 DR
* A 002 COPYRIGHT 1982
* A 002 SPECTRUM SOFTWARE
* A 002 COMPILED WITH MICROSOFT BASIC
* A 002 RUNTIME MODULE (C) MICROSOFT
* B 065 DC.OBJ
* B 052 DESIGNER.OBJ
* B 014 TA.OBJ
* B 004 TABLE
A 011 WAVEGEN
* B 066 TC.OBJ
* B 017 RUNTIME
* B 055 FREQ.OBJ
* B 005 FIGURES
T 002 BUFFER
* B 102 EDITOR.OBJ
* T 009 TEXT
* B 000 MAIN MENU.OBJ
* B 046 TB.OBJ
DOS 3.3 format; 6,656 bytes free; 136,704 bytes used.
Text found in 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk/BUFFER.txt:
LINEAR AMPLIFIER
1
80
1
80
80
Text found in 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk/HELLO.bas:
100 HOME
300 POKE 40206,0: PRINT CHR$(4);"BRUN DR"
350 HOME : PRINT "******************2.2*******************"
400 PRINT CHR$(4) +"BLOAD RUNTIME" + CHR$(13) + CHR$(4) +"BRUN MAIN MENU.OBJ"
Text found in 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk/TEXT.txt:
INPUT RESISTANCE
OPEN LOOP GAIN
OUTPUT RESISTANCE
INPUT OFFSET VOLTAGE
MAXIMUM OUTPUT VOLTAGE
OUTPUT CAPACITANCE
SATURATION CURRENT(I0)
ZENER VOLTAGE
ZENER RESISTANCE
SERIES RESISTANCE
VT TERM (VT=K*T/Q)
PARALLEL RESISTANCE
BETA (HFE)
BASE EMITTER DIODE TYPE #
F-TAU=UNITY GAIN BANDWIDTH
COLLECTOR CURRENT (HFE-FT)
SATURATION RESISTANCE
CAPACITANCE B-E
CAPACITANCE C-B
BETA FACTOR (K'*W/L)
THRESHOLD VOLTAGE
GATE-DRAIN CAPACITANCE
GATE-SOURCE CAPACITANCE
DRAIN-SOURCE RESISTANCE
DRAIN-SOURCE CAPACITANCE
LINEAR TRANSCONDUCTANCE(GM)
ZERO LEVEL VOLTAGE
ONE LEVEL VOLTAGE
TIME DELAY TO LEADING EDGE
TIME DELAY TO ONE LEVEL
TIME DELAY TO FALLING EDGE
TIME DELAY TO ZERO LEVEL
PERIOD OF WAVEFORM (1/F)
FREQUENCY
AMPLITUDE/2
D.C. VOLTAGE LEVEL
PHASE ANGLE(RADIANS)
SOURCE RESISTANCE
INPUT SELF-INDUCTANCE
CURRENT GAIN (TURNS RATIO)
COEFFICIENT OF COUPLING
PRIMARY RESISTANCE(OHMS)
SECONDARY RESISTANCE(OHMS)
V(V)
V(I)
I(V)
I(I)
OPAMP
MAXIMUM SIM TIME(SEC)
MAXIMUM DELTA T (SEC)
MINIMUM ACCURACY(%)
1ST NODE TO MONITOR
OFFSET VOLTAGE FOR #1
SCALE FACTOR(V/DIV) FOR #1
2ND NODE TO MONITOR
OFFSET VOLTAGE FOR #2
SCALE FACTOR(V/DIV) FOR #2
Text found in 041_Spectrum_Software_Micro-Cap_Circuit_Analysis_Program_Apple_II_64k.dsk/WAVEGEN.bas:
90 DIM VX(101)
100 D$ = ""
110 HOME : VTAB 12: PRINT "PRESS M TO MODIFY THE WAVEFORM CODE": PRINT "ANY OTHER KEY TO GENERATE THE DISK FILE";
120 GET T$: PRINT T$: IF T$ = "M" THEN 2050
130 HOME : VTAB 10: INPUT "ENTER TMAX FOR THE WAVEFORM ";TMAX
140 PRINT
150 N = 1000
155 PRINT "ENTER THE FILE # TO SAVE THE WAVEFORM": INPUT "UNDER (0-9) ";XO$
200 PRINT
210 PRINT "ENTER THE MAXIMUM PEAK TO PEAK": INPUT "AMPLITUDE OF THE WAVEFORM ";PP
220 PRINT D$;"MON,I,O,C"
230 IF PP = 0 THEN 210
240 VS = 150/PP
260 DT = TMAX/N:T = -DT
270 HS = 270/TMAX
280 VS = -VS
290 HGR
300 FOR X = 0 TO 270 STEP 27: HPLOT X,0 TO X,150: NEXT
310 FOR Y = 0 TO 150 STEP 15: HPLOT 0,Y TO 270,Y: NEXT
320 HCOLOR= 3
330 FOR L = 0 TO N -1
340 T = T +DT
350 GOSUB 1000
360 GOSUB 2212
370 X = HS *T:Y = VS *V +75
380 X = HS *T:Y = VS *V +75
390 IF Y >0 AND YS >0 AND Y <159 AND YS <159 THEN HPLOT X,Y TO XS,YS
400 XS = X:YS = Y
410 NEXT
420 GOSUB 2270
430 HOME : TEXT : NORMAL
440 VTAB 10: PRINT "RETURNING TO ANALYZER MODULE"
445 PRINT D$;"NOMONI,O,C"
450 A$ = CHR$(4) +"BLOADRUNTIME,D1" + CHR$(13) + CHR$(4) +"BRUNEDITOR.OBJ"
460 PRINT A$
1000 REM **********************
1010 REM * USER AREA *
1020 REM * BEGINS HERE *
1030 REM * V=WAVEFORM VOLTAGE *
1040 REM * T=TIME IN SECONDS *
1050 REM * LINE 1500 IS *
1060 REM * DEMO CODE *
1070 REM * REMOVE BEFORE USE *
1080 REM **********************
1500 V = 5 * EXP( -T/2E -7) * SIN(T/2E -8)
1940 RETURN
1950 RETURN
1960 RETURN
1970 REM **********************
1980 REM * USER AREA *
1990 REM * ENDS HERE *
2000 REM **********************
2010 REM RETURN IN NEXT LINE IS FOR POSSIBILITY THAT USER ZAPS THE REGULAR RETURN FROM GOSUB 1000
2020 RETURN
2050 HOME : PRINT "THE USER AREA BEGINS AT LINE 1000": PRINT "AND ENDS AT LINE 2000."
2060 PRINT "YOU MAY PLACE ANY BASIC CODE IN THE": PRINT "USER AREA, INCLUDING FUNCTIONS, DATA ": PRINT "STATEMENTS, EQUATIONS ETC.
2070 PRINT "THE USER CODE GENERATES THE WAVEFORM."
2080 PRINT
2090 PRINT "AS SUPPLIED THE USER CODE CONTAINS A"
2100 PRINT "DEMO FUNCTION WHICH GENERATES"
2110 PRINT "AN EXPONENTIALLY DECAYING SINUSOID,"
2120 PRINT "USING LINE 1500. REMOVE LINE 1500"
2130 PRINT "BEFORE INSTALLING YOUR CODE."
2140 PRINT "AFTER PLACING YOUR CODE IN THE USER ": PRINT "AREA, TYPE RUN, PRESS TWICE"
2150 PRINT "AND THE PROGRAM WILL ENTER THE"
2160 PRINT "GENERATE MODE."
2170 PRINT : PRINT "REMEMBER, UNLESS YOU SAVE THIS BASIC": PRINT "PROGRAM UNDER THE NAME..WAVEGEN"
2180 PRINT "AFTER MODIFYING THE USER CODE"
2190 PRINT "AND BEFORE ACTUALLY GENERATING THE"
2200 PRINT "WAVEFORM, YOUR USER CODE WILL BE LOST."
2210 END
2212 J = INT(T *N/TM +.5):JJ = INT((J)/100):JX = INT((J +1)/100):VX(J -100 *JJ) = V
2213 IF JL = JX THEN RETURN
2214 JL = JX
2215 F$ = "USER" +XO$ + STR$(JL -1)
2220 PRINT D$;"OPEN"F$",D2"
2230 PRINT D$;"WRITE"F$
2260 FOR W = 0 TO 99: PRINT VX(W): NEXT
2270 PRINT D$;"CLOSE"F$
2280 RETURN