MikeCook/!Tr_Test/Tr

Home » Archimedes archive » Acorn User » AU 1996-08.adf » Regulars » MikeCook/!Tr_Test/Tr_Test

MikeCook/!Tr_Test/Tr_Test

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1996-08.adf » Regulars
Filename:	MikeCook/!Tr_Test/Tr_Test
Read OK:	✔
File size:	1D2B bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Tr_Test - A transistor tester
   20REM Version 1.0 By Mike Cook
   30REM All rights reserved
   40DIM q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
   50DIM IsName% 356, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
   60DIM PBS% 4,PBK% 8,Lead$(12),Config%(12)
   70AA%=&90 : REM Analogue Chip Address
   80DA%=&70 : REM Digital Chip Address
   90
  100ON ERROR PROCerrorbox
  110DIM taskid%4,intmess% 20:$taskid%="TASK"
  120intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
  130SYS "Wimp_Initialise",300,!taskid%,"Tr_Test",intmess% TO version%,taskhand%
  140
  150MxL%=300
  160DIM Mne$(34),Op%(34),It%(34),Lable$(MxL%),LabVal%(MxL%)
  170DIM S7%(9), SPoint%(7),IX%(7),IY%(7),IX1%(7),IY1%(7)
  180
  190SYS "Wimp_OpenTemplate",,"<TT$Dir>.Templates"
  200ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
  210SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  220SYS "Wimp_CreateWindow",,q% TO info%
  230SYS "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Control",0
  240Wn%!28=-1
  250FOR A%=0 TO 7
  260SPoint%(A%)=!(Wn%+4+88+20+32*A%)
  270IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
  280IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
  290NEXT
  300
  310SYS "Wimp_CreateWindow",,Wn%+4 TO monW%
  320Wn%!0=monW%:Wn%!28=-1
  330
  340SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
  350q%!108=TextWarn%:q%!112=-1:q%!116=300
  360XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
  370SYS "Wimp_CreateWindow",,q% TO warningW%
  380SYS "Wimp_CloseTemplate"
  390
  400
  410smpicon%=FNicon
  420wopen%=FALSE:warnOn%=FALSE
  430InWin%=FALSE
  440PROCsetupmenu
  450PROC_SPinit
  460
  470
  480REPEAT
  490 SYS "Wimp_Poll",0,q% TO A%
  500  CASE A% OF
  510   WHEN 1:VDU7
  520   WHEN 2:SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%: SYS "Wimp_OpenWindow",,q%
  530   WHEN 3:PROC_close
  540   WHEN 4:InWin%=FALSE:LX%=-1:LY%=-1
  550   WHEN 5:InWin%=TRUE
  560   WHEN 6:PROC_do_click(q%)
  570   WHEN 7:PROC_PutDown(q%)
  580   WHEN 8:PROC_KeyPress
  590   WHEN 9:PROC_SORT_Menu
  600   WHEN 17,18:PROCreceive(q%)
  610   ENDCASE
  620 UNTIL FALSE
  630
  640END
  650
  660
  670DEF PROC_SORT_Menu
  680 IF !q%=1 THEN PROCdie
  690ENDIF
  700ENDPROC
  710
  720DEF PROC_close
  730IF q%!0=monW% THEN SYS"Wimp_GetWindowInfo",,Wn%:wopen%=FALSE
  740IF q%!0=warningW% THEN warnOn%=FALSE
  750SYS "Wimp_CloseWindow",,q%
  760ENDPROC
  770
  780DEF PROC_do_click(q%)
  790i%=q%!16
  800CASE q%!12 OF
  810WHEN warningW%: q%!0=warningW% :PROC_close
  820WHEN -2: REM Look first at Icon Bar Click
  830        IF q%!16=smpicon% THEN
  840        IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-74,180:IconMenu%=TRUE
  850        IF q%!8=4 THEN PROC_Open
  860        ENDIF
  870
  880WHEN monW%:  
  890              IF q%!8=4 THEN PROC_MonClick
  900              IF q%!8=2 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-96,q%!4:IconMenu%=FALSE
  910ENDCASE
  920ENDPROC
  930
  940
  950DEF PROC_MonClick
  960LOCAL D%,V%,B%
  970REM Do the action for a window click
  980CASE i% OF
  990
 1000  WHEN 8:  D%=FNviic
 1010           IF D%<2 THEN
 1020            IF D%=0 THEN PROC_setupW("No Digital IIC Device") ELSE PROC_setupW("No IIC Analogue Device")
 1030            ELSE
 1040             PROC_TT
 1050           ENDIF
 1060 ENDCASE
 1070ENDPROC
 1080
 1090DEF PROC_Open
 1100SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%
 1110REM OPEN UP WINDOW HERE
 1120IF wopen% THEN
 1130q%!0=monW%
 1140SYS"Wimp_GetWindowState",,q%
 1150  IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q%
 1160ELSE
 1170SYS "Wimp_OpenWindow",,Wn%
 1180wopen%=TRUE
 1190ENDIF
 1200ENDPROC
 1210
 1220DEFPROCsetupmenu
 1230LOCAL m%
 1240
 1250$menu%="Tr_Test"
 1260menu%?12=7
 1270menu%?13=2
 1280menu%?14=7
 1290menu%?15=0
 1300menu%!16=128
 1310menu%!20=40
 1320menu%!24=0
 1330m%=menu%+28
 1340m%!0=0
 1350m%!4=info%
 1360m%!8=(7<<24)OR %10001
 1370$(m%+12)="Info"
 1380
 1390m%+=24
 1400m%!0=&80
 1410m%!4=0
 1420m%!8=(7<<24)OR %10001
 1430$(m%+12)="Quit"
 1440ENDPROC
 1450
 1460DEF PROCreceive(q%)
 1470LOCAL A%
 1480A%=q%!16
 1490CASE A% OF
 1500WHEN 0:PROCdie
 1510
 1520WHEN &502:   CASE TRUE OF
 1530             WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the Transistor tester icon.|MTest transistors"
 1540             OTHERWISE:mes$=""
 1550             ENDCASE
 1560    IF mes$<>"" THEN
 1570    q%!12=q%!8
 1580    $(q%+20)=mes$+CHR$0
 1590    q%!0=(20+LENmes$+4)AND NOT 3
 1600    q%!16=&503
 1610    SYS "Wimp_SendMessage",18,q%,q%!4
 1620ENDCASE
 1630ENDPROC
 1640
 1650DEF PROC_Dack
 1660sendth%=q%!4
 1670myref%=q%!8
 1680SYS "Wimp_GetPointerInfo",,q%+8
 1690q%!28=q%!8
 1700q%!32=q%!12
 1710q%!0=(44+LENn$+4)AND NOT 3
 1720q%!12=myref%
 1730q%!16=4
 1740q%!36=-1
 1750q%!40=&FF9
 1760$(q%+44)=n$+CHR$0
 1770SYS "Wimp_SendMessage",17,q%,sendth%
 1780ENDIF
 1790ENDPROC
 1800
 1810DEFFNsget(x%)
 1820LOCAL x$
 1830WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE
 1840=x$
 1850
 1860DEFFNicon
 1870q%!0=-1
 1880q%!4=0
 1890q%!8=10 : REM Y DIRECTION
 1900q%!12=70 : REM X DIRECTION
 1910q%!16=96
 1920q%!20=&2002
 1930$(q%+24)="!Tr_Test"
 1940SYS "Wimp_CreateIcon",,q% TO icon%
 1950=icon%
 1960
 1970DEF PROC_setupW(t$)
 1980!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
 1990$TextWarn%=t$
 2000TextWarn%?LEN(t$)=0
 2010VDU 7
 2020warnOn%=TRUE
 2030SYS "Wimp_OpenWindow",,q%
 2040ENDPROC
 2050
 2060DEF PROCerrorbox
 2070REM SYS "Wimp_DragBox",,-1
 2080!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 2090SYS "Wimp_ReportError",buffers%,1,"Transistor"
 2100PROCdie
 2110ENDPROC
 2120
 2130DEFPROCdie
 2140SYS "Wimp_CloseDown",taskhand%,!taskid%
 2150END
 2160ENDPROC
 2170
 2180DEF PROC_KeyPress
 2190CASE q%!0 OF
 2200WHEN saveW%: i%=2:PROC_DoSave
 2210WHEN rateW%: PROC_GetRate
 2220             IF Srate<0.3 THEN Srate=0.3:VDU 7
 2230             PROC_PutRate(STR$(Srate))
 2240             SYS "Wimp_CloseWindow",,Rat%
 2250             SYS "Wimp_CreateMenu",,-1
 2260ENDCASE
 2270ENDPROC
 2280
 2290DEF PROC_GetPrams
 2300LOCAL A$
 2310q%!0=Wn%!0
 2320InFile$=FNsget(SPoint%(4))
 2330ENDPROC
 2340
 2350REM Verify IIC interface fitted
 2360DEF FNviic
 2370LOCAL V%
 2380V%=2
 2390PROC_Mulout(0)
 2400IF DeviceD%=FALSE THEN V%=0
 2410PROC_AIN
 2420IF DeviceA%=FALSE THEN V%=1
 2430=V%
 2440
 2450DEF PROC_PutPrams(n%,V%)
 2460PROC_sput(SPoint%(n%),STR$(V%))
 2470SYS"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
 2480ENDPROC
 2490
 2500DEF PROC_PutPramsS(n%,V$)
 2510PROC_sput(SPoint%(n%),V$)
 2520SYS"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
 2530ENDPROC
 2540
 2550DEF PROC_sput(x%,X$)
 2560LOCAL A%
 2570FOR A%=1 TO LEN(X$)
 2580?x%=ASC(MID$(X$,A%,1))
 2590x%+=1
 2600NEXT
 2610?x%=0
 2620ENDPROC
 2630
 2640REM -----------------------------------------------------------
 2650
 2660DEF PROC_TT
 2670SYS"Hourglass_On"
 2680MGain%=0
 2690LC%=12
 2700FOR A%=0 TO 11
 2710IF A%<6 THEN Type$="NPN" ELSE Type$="PNP"
 2720Gain%=0
 2730REM First test with no base current
 2740PROC_Mulout(Config%(A%) EOR &18)
 2750*FX19
 2760PROC_AIN
 2770IF ABS(col%)<5 THEN
 2780PROC_Mulout(Config%(A%))
 2790*FX19
 2800PROC_Anlise
 2810ELSE
 2820ENDIF
 2830IF Gain%>MGain% THEN MGain%=Gain%:LC%=A%:Atype$=Type$
 2840NEXT
 2850REM Disconnect transistor
 2860PROC_Rsm
 2870IF LC%=12 OR MGain%<2 THEN
 2880PROC_PutPramsS(4,"Nothing")
 2890PROC_PutPramsS(5,"Faulty")
 2900PROC_PutPramsS(7," ")
 2910PROC_PutPramsS(6," ")
 2920PROC_PutPramsS(2," ")
 2930ELSE
 2940PROC_PutPramsS(5,Atype$)
 2950PROC_PutPrams(4,MGain%)
 2960PROC_PutPramsS(7,MID$(Lead$(LC%),1,1))
 2970PROC_PutPramsS(6,MID$(Lead$(LC%),2,1))
 2980PROC_PutPramsS(2,MID$(Lead$(LC%),3,1))
 2990ENDIF
 3000SYS"Hourglass_Off"
 3010ENDPROC
 3020
 3030DEF PROC_Anlise
 3040PROC_AIN
 3050Ic=((5*col%)/256)/220
 3060Ib=((5*bas%)/256)/220000
 3070IF Ib<>0 AND Ic<>0 THEN Gain%=Ic/Ib
 3080ENDPROC
 3090
 3100DEF FNtc(N%)
 3110IF N%>&7F THEN N%=&FFFFFF00 OR N%
 3120=N%
 3130
 3140DEF PROC_Rsm
 3150?PBK%=&FF
 3160SYS "XIIC_Control",DA%,PBK%,1 TO ;Fl
 3170ENDPROC
 3180
 3190DEF PROC_Mulout(N%)
 3200LOCAL A%,B%,C%,M%
 3210PROC_Rsm
 3220FOR A%=0 TO 15
 3230B%=N% AND 1
 3240N%=N%>>1
 3250M%=B%<<7 OR A% OR &60
 3260?PBK%=M%
 3270SYS "XIIC_Control",DA%,PBK%,1 TO ;Fl
 3280C%=M%
 3290IF A%>7 THEN C%=C% AND &BF ELSE C%=C% AND &DF
 3300?PBK%=C%
 3310SYS "XIIC_Control",DA%,PBK%,1 TO ;Fl
 3320?PBK%=M%
 3330SYS "XIIC_Control",DA%,PBK%,1 TO ;Fl
 3340NEXT
 3350IF (Fl AND 1) =1 THEN DeviceD%=FALSE ELSE DeviceD%=TRUE
 3360ENDPROC
 3370
 3380DEF PROC_AIN
 3390LOCAL Fl,B%
 3400?PBS%=&30
 3410REM Set up the control register
 3420SYS "XIIC_Control",AA%,PBS%,1 TO ;Fl
 3430SYS "XIIC_Control",AA% OR 1,PBK%,2 TO ;Fl
 3440bas%=PBK%?1
 3450?PBS%=&31
 3460SYS "XIIC_Control",AA%,PBS%,1 TO ;Fl
 3470SYS "XIIC_Control",AA% OR 1,PBK%,2 TO ;Fl
 3480IF (Fl AND 1) =1 THEN DeviceA%=FALSE ELSE DeviceA%=TRUE
 3490col%=PBK%?1
 3500col%=FNtc(col%)
 3510bas%=FNtc(bas%)
 3520ENDPROC
 3530
 3540REM Initilise switch pattern
 3550DEF PROC_SPinit
 3560LOCAL A%
 3570FOR A%=0 TO 11
 3580READ Lead$(A%),Config%(A%)
 3590NEXT
 3600DATA ebc,&3128,cbe,&8528,ecb,&2A28,ceb,&4628,bce,&88A8,bec,&50A8
 3610DATA ebc,&1151,cbe,&0554,ecb,&0A51,ceb,&0652,bce,&08D4,bec,&10D2
 3620ENDPROC
 3630


#� Tr_Test - A transistor tester
� Version 1.0 By Mike Cook
� All rights reserved
(N� q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
2K� IsName% 356, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
<)� PBS% 4,PBK% 8,Lead$(12),Config%(12)
F%AA%=&90 : � Analogue Chip Address
P$DA%=&70 : � Digital Chip Address
Z
d� � �errorbox
n*� taskid%4,intmess% 20:$taskid%="TASK"
xIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
�Mș "Wimp_Initialise",300,!taskid%,"Tr_Test",intmess% � version%,taskhand%
�
�MxL%=300
�9� Mne$(34),Op%(34),It%(34),Lable$(MxL%),LabVal%(MxL%)
�6� S7%(9), SPoint%(7),IX%(7),IY%(7),IX1%(7),IY1%(7)
�
�0ș "Wimp_OpenTemplate",,"<TT$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�<ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Control",0
�
Wn%!28=-1
�� A%=0 � 7
$SPoint%(A%)=!(Wn%+4+88+20+32*A%)
9IX%(A%)=!(Wn%+4+88+32*A%):IY%(A%)=!(Wn%+4+88+4+32*A%)
>IX1%(A%)=!(Wn%+4+88+8+32*A%):IY1%(A%)=!(Wn%+4+88+12+32*A%)
"�
,
6)ș "Wimp_CreateWindow",,Wn%+4 � monW%
@Wn%!0=monW%:Wn%!28=-1
J
T9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
^)q%!108=TextWarn%:q%!112=-1:q%!116=300
h XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
r*ș "Wimp_CreateWindow",,q% � warningW%
|ș "Wimp_CloseTemplate"
�
�
�smpicon%=�icon
�wopen%=�:warnOn%=�
�InWin%=�
��setupmenu
��_SPinit
�
�
��
� ș "Wimp_Poll",0,q% � A%
�
  Ȏ A% �
�
   � 1:�7
O   � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%
   � 3:�_close
!   � 4:InWin%=�:LX%=-1:LY%=-1
&   � 5:InWin%=�
0   � 6:�_do_click(q%)
:   � 7:�_PutDown(q%)
D   � 8:�_KeyPress
N   � 9:�_SORT_Menu
X   � 17,18:�receive(q%)
b   �
l � �
v
��
�
�
�� �_SORT_Menu
� � !q%=1 � �die
��
��
�
�
� �_close
�7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
� � q%!0=warningW% � warnOn%=�
�ș "Wimp_CloseWindow",,q%
��

� �_do_click(q%)
i%=q%!16
 Ȏ q%!12 �
*(� warningW%: q%!0=warningW% :�_close
4(� -2: � Look first at Icon Bar Click
>        � q%!16=smpicon% �
HI        � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-74,180:IconMenu%=�
R        � q%!8=4 � �_Open
\
        �
f
p� monW%:  
z'              � q%!8=4 � �_MonClick
�P              � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-96,q%!4:IconMenu%=�
��
��
�
�
�� �_MonClick
�� D%,V%,B%
�&� Do the action for a window click
�Ȏ i% �
�
�  � 8:  D%=�viic
�           � D%<2 �
�_            � D%=0 � �_setupW("No Digital IIC Device") � �_setupW("No IIC Analogue Device")
            �
             �_TT
           �
$ �
.�
8
B� �_Open
L.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
V� OPEN UP WINDOW HERE
`� wopen% �
jq%!0=monW%
tș"Wimp_GetWindowState",,q%
~6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
��
�ș "Wimp_OpenWindow",,Wn%
�wopen%=�
��
��
�
���setupmenu
�� m%
�
�$menu%="Tr_Test"
�menu%?12=7
�menu%?13=2
menu%?14=7

menu%?15=0
menu%!16=128
menu%!20=40
(menu%!24=0
2m%=menu%+28
<
m%!0=0
Fm%!4=info%
Pm%!8=(7<<24)� %10001
Z$(m%+12)="Info"
d
n
m%+=24
xm%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
��
�
�� �receive(q%)
�� A%
�A%=q%!16
�Ȏ A% �
�� 0:�die
�
�� &502:   Ȏ � �
�i             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Transistor tester icon.|MTest transistors"
             :mes$=""
             �
    � mes$<>"" �
"    q%!12=q%!8
,    $(q%+20)=mes$+�0
6    q%!0=(20+�mes$+4)� � 3
@    q%!16=&503
J(    ș "Wimp_SendMessage",18,q%,q%!4
T�
^�
h
r� �_Dack
|sendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
�'ș "Wimp_SendMessage",17,q%,sendth%
��
��

ݤsget(x%)
� x$
&ȕ ?x% x$+=�(?x%):x%+=1:�
0=x$
:
D
ݤicon
Nq%!0=-1
X
q%!4=0
bq%!8=10 : � Y DIRECTION
lq%!12=70 : � X DIRECTION
vq%!16=96
�q%!20=&2002
�$(q%+24)="!Tr_Test"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
�ș "Wimp_OpenWindow",,q%
��

� �errorbox
� SYS "Wimp_DragBox",,-1
 2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
*1ș "Wimp_ReportError",buffers%,1,"Transistor"
4�die
>�
H
R	��die
\*ș "Wimp_CloseDown",taskhand%,!taskid%
f�
p�
z
�� �_KeyPress
�
Ȏ q%!0 �
�� saveW%: i%=2:�_DoSave
�� rateW%: �_GetRate
�,             � Srate<0.3 � Srate=0.3:� 7
�$             �_PutRate(�(Srate))
�,             ș "Wimp_CloseWindow",,Rat%
�)             ș "Wimp_CreateMenu",,-1
��
��
�
�� �_GetPrams
�� A$
	q%!0=Wn%!0
	InFile$=�sget(SPoint%(4))
	�
	$
	.!� Verify IIC interface fitted
	8� �viic
	B� V%
	LV%=2
	V�_Mulout(0)
	`� DeviceD%=� � V%=0
	j	�_AIN
	t� DeviceA%=� � V%=1
	~=V%
	�
	�� �_PutPrams(n%,V%)
	��_sput(SPoint%(n%),�(V%))
	�@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
	��
	�
	�� �_PutPramsS(n%,V$)
	��_sput(SPoint%(n%),V$)
	�@ș"Wimp_ForceRedraw",monW%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
	��
	�
	�� �_sput(x%,X$)
� A%

� A%=1 � �(X$)
?x%=�(�X$,A%,1))
	x%+=1
(�
2	?x%=0
<�
F
PA� -----------------------------------------------------------
Z
d
� �_TT
nș"Hourglass_On"
xMGain%=0
�
LC%=12
�� A%=0 � 11
�&� A%<6 � Type$="NPN" � Type$="PNP"
�Gain%=0
�%� First test with no base current
��_Mulout(Config%(A%) � &18)
�	*FX19
�	�_AIN
�� �(col%)<5 �
��_Mulout(Config%(A%))
�	*FX19
��_Anlise
��
�
5� Gain%>MGain% � MGain%=Gain%:LC%=A%:Atype$=Type$
�
"� Disconnect transistor
,	�_Rsm
6� LC%=12 � MGain%<2 �
@�_PutPramsS(4,"Nothing")
J�_PutPramsS(5,"Faulty")
T�_PutPramsS(7," ")
^�_PutPramsS(6," ")
h�_PutPramsS(2," ")
r�
|�_PutPramsS(5,Atype$)
��_PutPrams(4,MGain%)
�#�_PutPramsS(7,�Lead$(LC%),1,1))
�#�_PutPramsS(6,�Lead$(LC%),2,1))
�#�_PutPramsS(2,�Lead$(LC%),3,1))
��
�ș"Hourglass_Off"
��
�
�� �_Anlise
�	�_AIN
�Ic=((5*col%)/256)/220
�Ib=((5*bas%)/256)/220000
�!� Ib<>0 � Ic<>0 � Gain%=Ic/Ib
�


� �tc(N%)
& � N%>&7F � N%=&FFFFFF00 � N%
0=N%
:
D� �_Rsm
N
?PBK%=&FF
X&ș "XIIC_Control",DA%,PBK%,1 � ;Fl
b�
l
v� �_Mulout(N%)
�� A%,B%,C%,M%
�	�_Rsm
�� A%=0 � 15
�
B%=N% � 1
�N%=N%>>1
�M%=B%<<7 � A% � &60
�?PBK%=M%
�&ș "XIIC_Control",DA%,PBK%,1 � ;Fl
�	C%=M%
�&� A%>7 � C%=C% � &BF � C%=C% � &DF
�?PBK%=C%
�&ș "XIIC_Control",DA%,PBK%,1 � ;Fl
�?PBK%=M%

&ș "XIIC_Control",DA%,PBK%,1 � ;Fl

�

+� (Fl � 1) =1 � DeviceD%=� � DeviceD%=�

 �

*

4� �_AIN

>� Fl,B%

H
?PBS%=&30

R!� Set up the control register

\&ș "XIIC_Control",AA%,PBS%,1 � ;Fl

f*ș "XIIC_Control",AA% � 1,PBK%,2 � ;Fl

pbas%=PBK%?1

z
?PBS%=&31

�&ș "XIIC_Control",AA%,PBS%,1 � ;Fl

�*ș "XIIC_Control",AA% � 1,PBK%,2 � ;Fl

�+� (Fl � 1) =1 � DeviceA%=� � DeviceA%=�

�col%=PBK%?1

�col%=�tc(col%)

�bas%=�tc(bas%)

��

�

�� Initilise switch pattern

�� �_SPinit

�� A%

�� A%=0 � 11

�� Lead$(A%),Config%(A%)
�
A� ebc,&3128,cbe,&8528,ecb,&2A28,ceb,&4628,bce,&88A8,bec,&50A8
A� ebc,&1151,cbe,&0554,ecb,&0A51,ceb,&0652,bce,&08D4,bec,&10D2
$�
.
�

00000000  0d 00 0a 23 f4 20 54 72  5f 54 65 73 74 20 2d 20  |...#. Tr_Test - |
00000010  41 20 74 72 61 6e 73 69  73 74 6f 72 20 74 65 73  |A transistor tes|
00000020  74 65 72 0d 00 14 1e f4  20 56 65 72 73 69 6f 6e  |ter..... Version|
00000030  20 31 2e 30 20 42 79 20  4d 69 6b 65 20 43 6f 6f  | 1.0 By Mike Coo|
00000040  6b 0d 00 1e 19 f4 20 41  6c 6c 20 72 69 67 68 74  |k..... All right|
00000050  73 20 72 65 73 65 72 76  65 64 0d 00 28 4e de 20  |s reserved..(N. |
00000060  71 25 20 26 33 30 30 2c  71 63 25 20 38 30 2c 20  |q% &300,qc% 80, |
00000070  57 6e 25 20 26 33 30 30  2c 74 65 6d 70 25 20 32  |Wn% &300,temp% 2|
00000080  35 36 2c 62 75 66 66 65  72 73 25 20 35 31 32 2c  |56,buffers% 512,|
00000090  6d 65 6e 75 25 20 31 32  38 2c 53 57 25 20 32 35  |menu% 128,SW% 25|
000000a0  36 2c 63 62 25 20 31 38  0d 00 32 4b de 20 49 73  |6,cb% 18..2K. Is|
000000b0  4e 61 6d 65 25 20 33 35  36 2c 20 57 6d 65 6e 75  |Name% 356, Wmenu|
000000c0  25 20 35 31 32 2c 53 6d  65 6e 75 25 20 32 35 36  |% 512,Smenu% 256|
000000d0  2c 49 6d 65 6e 75 25 20  32 35 36 2c 20 54 65 78  |,Imenu% 256, Tex|
000000e0  74 57 61 72 6e 25 20 31  30 30 2c 20 77 77 25 20  |tWarn% 100, ww% |
000000f0  32 35 36 0d 00 3c 29 de  20 50 42 53 25 20 34 2c  |256..<). PBS% 4,|
00000100  50 42 4b 25 20 38 2c 4c  65 61 64 24 28 31 32 29  |PBK% 8,Lead$(12)|
00000110  2c 43 6f 6e 66 69 67 25  28 31 32 29 0d 00 46 25  |,Config%(12)..F%|
00000120  41 41 25 3d 26 39 30 20  3a 20 f4 20 41 6e 61 6c  |AA%=&90 : . Anal|
00000130  6f 67 75 65 20 43 68 69  70 20 41 64 64 72 65 73  |ogue Chip Addres|
00000140  73 0d 00 50 24 44 41 25  3d 26 37 30 20 3a 20 f4  |s..P$DA%=&70 : .|
00000150  20 44 69 67 69 74 61 6c  20 43 68 69 70 20 41 64  | Digital Chip Ad|
00000160  64 72 65 73 73 0d 00 5a  04 0d 00 64 11 ee 20 85  |dress..Z...d.. .|
00000170  20 f2 65 72 72 6f 72 62  6f 78 0d 00 6e 2a de 20  | .errorbox..n*. |
00000180  74 61 73 6b 69 64 25 34  2c 69 6e 74 6d 65 73 73  |taskid%4,intmess|
00000190  25 20 32 30 3a 24 74 61  73 6b 69 64 25 3d 22 54  |% 20:$taskid%="T|
000001a0  41 53 4b 22 0d 00 78 49  69 6e 74 6d 65 73 73 25  |ASK"..xIintmess%|
000001b0  21 30 3d 31 3a 69 6e 74  6d 65 73 73 25 21 34 3d  |!0=1:intmess%!4=|
000001c0  32 3a 69 6e 74 6d 65 73  73 25 21 38 3d 33 3a 69  |2:intmess%!8=3:i|
000001d0  6e 74 6d 65 73 73 25 21  31 32 3d 26 35 30 32 3a  |ntmess%!12=&502:|
000001e0  69 6e 74 6d 65 73 73 25  21 31 36 3d 30 0d 00 82  |intmess%!16=0...|
000001f0  4d c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |M.. "Wimp_Initia|
00000200  6c 69 73 65 22 2c 33 30  30 2c 21 74 61 73 6b 69  |lise",300,!taski|
00000210  64 25 2c 22 54 72 5f 54  65 73 74 22 2c 69 6e 74  |d%,"Tr_Test",int|
00000220  6d 65 73 73 25 20 b8 20  76 65 72 73 69 6f 6e 25  |mess% . version%|
00000230  2c 74 61 73 6b 68 61 6e  64 25 0d 00 8c 04 0d 00  |,taskhand%......|
00000240  96 0c 4d 78 4c 25 3d 33  30 30 0d 00 a0 39 de 20  |..MxL%=300...9. |
00000250  4d 6e 65 24 28 33 34 29  2c 4f 70 25 28 33 34 29  |Mne$(34),Op%(34)|
00000260  2c 49 74 25 28 33 34 29  2c 4c 61 62 6c 65 24 28  |,It%(34),Lable$(|
00000270  4d 78 4c 25 29 2c 4c 61  62 56 61 6c 25 28 4d 78  |MxL%),LabVal%(Mx|
00000280  4c 25 29 0d 00 aa 36 de  20 53 37 25 28 39 29 2c  |L%)...6. S7%(9),|
00000290  20 53 50 6f 69 6e 74 25  28 37 29 2c 49 58 25 28  | SPoint%(7),IX%(|
000002a0  37 29 2c 49 59 25 28 37  29 2c 49 58 31 25 28 37  |7),IY%(7),IX1%(7|
000002b0  29 2c 49 59 31 25 28 37  29 0d 00 b4 04 0d 00 be  |),IY1%(7).......|
000002c0  30 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |0.. "Wimp_OpenTe|
000002d0  6d 70 6c 61 74 65 22 2c  2c 22 3c 54 54 24 44 69  |mplate",,"<TT$Di|
000002e0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 00 c8  |r>.Templates"...|
000002f0  29 ee 20 85 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |). . .. "Wimp_Cl|
00000300  6f 73 65 54 65 6d 70 6c  61 74 65 22 3a f2 65 72  |oseTemplate":.er|
00000310  72 6f 72 62 6f 78 0d 00  d2 3a c8 99 20 22 57 69  |rorbox...:.. "Wi|
00000320  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000330  2c 2c 71 25 2c 74 65 6d  70 25 2c 74 65 6d 70 25  |,,q%,temp%,temp%|
00000340  2b 32 35 36 2c 2d 31 2c  22 49 6e 66 6f 22 2c 30  |+256,-1,"Info",0|
00000350  0d 00 dc 26 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...&.. "Wimp_Cre|
00000360  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000370  20 69 6e 66 6f 25 0d 00  e6 3c c8 99 20 22 57 69  | info%...<.. "Wi|
00000380  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000390  2c 2c 57 6e 25 2b 34 2c  53 57 25 2c 53 57 25 2b  |,,Wn%+4,SW%,SW%+|
000003a0  32 35 36 2c 2d 31 2c 22  43 6f 6e 74 72 6f 6c 22  |256,-1,"Control"|
000003b0  2c 30 0d 00 f0 0d 57 6e  25 21 32 38 3d 2d 31 0d  |,0....Wn%!28=-1.|
000003c0  00 fa 0e e3 20 41 25 3d  30 20 b8 20 37 0d 01 04  |.... A%=0 . 7...|
000003d0  24 53 50 6f 69 6e 74 25  28 41 25 29 3d 21 28 57  |$SPoint%(A%)=!(W|
000003e0  6e 25 2b 34 2b 38 38 2b  32 30 2b 33 32 2a 41 25  |n%+4+88+20+32*A%|
000003f0  29 0d 01 0e 39 49 58 25  28 41 25 29 3d 21 28 57  |)...9IX%(A%)=!(W|
00000400  6e 25 2b 34 2b 38 38 2b  33 32 2a 41 25 29 3a 49  |n%+4+88+32*A%):I|
00000410  59 25 28 41 25 29 3d 21  28 57 6e 25 2b 34 2b 38  |Y%(A%)=!(Wn%+4+8|
00000420  38 2b 34 2b 33 32 2a 41  25 29 0d 01 18 3e 49 58  |8+4+32*A%)...>IX|
00000430  31 25 28 41 25 29 3d 21  28 57 6e 25 2b 34 2b 38  |1%(A%)=!(Wn%+4+8|
00000440  38 2b 38 2b 33 32 2a 41  25 29 3a 49 59 31 25 28  |8+8+32*A%):IY1%(|
00000450  41 25 29 3d 21 28 57 6e  25 2b 34 2b 38 38 2b 31  |A%)=!(Wn%+4+88+1|
00000460  32 2b 33 32 2a 41 25 29  0d 01 22 05 ed 0d 01 2c  |2+32*A%).."....,|
00000470  04 0d 01 36 29 c8 99 20  22 57 69 6d 70 5f 43 72  |...6).. "Wimp_Cr|
00000480  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 57 6e 25  |eateWindow",,Wn%|
00000490  2b 34 20 b8 20 6d 6f 6e  57 25 0d 01 40 19 57 6e  |+4 . monW%..@.Wn|
000004a0  25 21 30 3d 6d 6f 6e 57  25 3a 57 6e 25 21 32 38  |%!0=monW%:Wn%!28|
000004b0  3d 2d 31 0d 01 4a 04 0d  01 54 39 c8 99 20 22 57  |=-1..J...T9.. "W|
000004c0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000004d0  22 2c 2c 71 25 2c 77 77  25 2c 77 77 25 2b 32 35  |",,q%,ww%,ww%+25|
000004e0  36 2c 2d 31 2c 22 57 61  72 6e 69 6e 67 22 2c 30  |6,-1,"Warning",0|
000004f0  0d 01 5e 29 71 25 21 31  30 38 3d 54 65 78 74 57  |..^)q%!108=TextW|
00000500  61 72 6e 25 3a 71 25 21  31 31 32 3d 2d 31 3a 71  |arn%:q%!112=-1:q|
00000510  25 21 31 31 36 3d 33 30  30 0d 01 68 20 58 51 25  |%!116=300..h XQ%|
00000520  3d 71 25 21 38 2d 71 25  21 30 3a 59 51 25 3d 71  |=q%!8-q%!0:YQ%=q|
00000530  25 21 31 32 2d 71 25 21  34 0d 01 72 2a c8 99 20  |%!12-q%!4..r*.. |
00000540  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000550  6f 77 22 2c 2c 71 25 20  b8 20 77 61 72 6e 69 6e  |ow",,q% . warnin|
00000560  67 57 25 0d 01 7c 1b c8  99 20 22 57 69 6d 70 5f  |gW%..|... "Wimp_|
00000570  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 01  |CloseTemplate"..|
00000580  86 04 0d 01 90 04 0d 01  9a 12 73 6d 70 69 63 6f  |..........smpico|
00000590  6e 25 3d a4 69 63 6f 6e  0d 01 a4 16 77 6f 70 65  |n%=.icon....wope|
000005a0  6e 25 3d a3 3a 77 61 72  6e 4f 6e 25 3d a3 0d 01  |n%=.:warnOn%=...|
000005b0  ae 0c 49 6e 57 69 6e 25  3d a3 0d 01 b8 0e f2 73  |..InWin%=......s|
000005c0  65 74 75 70 6d 65 6e 75  0d 01 c2 0c f2 5f 53 50  |etupmenu....._SP|
000005d0  69 6e 69 74 0d 01 cc 04  0d 01 d6 04 0d 01 e0 05  |init............|
000005e0  f5 0d 01 ea 1d 20 c8 99  20 22 57 69 6d 70 5f 50  |..... .. "Wimp_P|
000005f0  6f 6c 6c 22 2c 30 2c 71  25 20 b8 20 41 25 0d 01  |oll",0,q% . A%..|
00000600  f4 0d 20 20 c8 8e 20 41  25 20 ca 0d 01 fe 0d 20  |..  .. A% ..... |
00000610  20 20 c9 20 31 3a ef 37  0d 02 08 4f 20 20 20 c9  |  . 1:.7...O   .|
00000620  20 32 3a c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  | 2:.."OS_ReadMod|
00000630  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 33 20  |eVariable",-1,3 |
00000640  b8 20 2c 2c 4e 63 6f 6c  6f 75 72 73 25 3a 20 c8  |. ,,Ncolours%: .|
00000650  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000660  6f 77 22 2c 2c 71 25 0d  02 12 12 20 20 20 c9 20  |ow",,q%....   . |
00000670  33 3a f2 5f 63 6c 6f 73  65 0d 02 1c 21 20 20 20  |3:._close...!   |
00000680  c9 20 34 3a 49 6e 57 69  6e 25 3d a3 3a 4c 58 25  |. 4:InWin%=.:LX%|
00000690  3d 2d 31 3a 4c 59 25 3d  2d 31 0d 02 26 13 20 20  |=-1:LY%=-1..&.  |
000006a0  20 c9 20 35 3a 49 6e 57  69 6e 25 3d b9 0d 02 30  | . 5:InWin%=...0|
000006b0  19 20 20 20 c9 20 36 3a  f2 5f 64 6f 5f 63 6c 69  |.   . 6:._do_cli|
000006c0  63 6b 28 71 25 29 0d 02  3a 18 20 20 20 c9 20 37  |ck(q%)..:.   . 7|
000006d0  3a f2 5f 50 75 74 44 6f  77 6e 28 71 25 29 0d 02  |:._PutDown(q%)..|
000006e0  44 15 20 20 20 c9 20 38  3a f2 5f 4b 65 79 50 72  |D.   . 8:._KeyPr|
000006f0  65 73 73 0d 02 4e 16 20  20 20 c9 20 39 3a f2 5f  |ess..N.   . 9:._|
00000700  53 4f 52 54 5f 4d 65 6e  75 0d 02 58 1b 20 20 20  |SORT_Menu..X.   |
00000710  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
00000720  28 71 25 29 0d 02 62 08  20 20 20 cb 0d 02 6c 08  |(q%)..b.   ...l.|
00000730  20 fd 20 a3 0d 02 76 04  0d 02 80 05 e0 0d 02 8a  | . ...v.........|
00000740  04 0d 02 94 04 0d 02 9e  11 dd 20 f2 5f 53 4f 52  |.......... ._SOR|
00000750  54 5f 4d 65 6e 75 0d 02  a8 13 20 e7 20 21 71 25  |T_Menu.... . !q%|
00000760  3d 31 20 8c 20 f2 64 69  65 0d 02 b2 05 cd 0d 02  |=1 . .die.......|
00000770  bc 05 e1 0d 02 c6 04 0d  02 d0 0d dd 20 f2 5f 63  |............ ._c|
00000780  6c 6f 73 65 0d 02 da 37  e7 20 71 25 21 30 3d 6d  |lose...7. q%!0=m|
00000790  6f 6e 57 25 20 8c 20 c8  99 22 57 69 6d 70 5f 47  |onW% . .."Wimp_G|
000007a0  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 57  |etWindowInfo",,W|
000007b0  6e 25 3a 77 6f 70 65 6e  25 3d a3 0d 02 e4 20 e7  |n%:wopen%=.... .|
000007c0  20 71 25 21 30 3d 77 61  72 6e 69 6e 67 57 25 20  | q%!0=warningW% |
000007d0  8c 20 77 61 72 6e 4f 6e  25 3d a3 0d 02 ee 1d c8  |. warnOn%=......|
000007e0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
000007f0  64 6f 77 22 2c 2c 71 25  0d 02 f8 05 e1 0d 03 02  |dow",,q%........|
00000800  04 0d 03 0c 14 dd 20 f2  5f 64 6f 5f 63 6c 69 63  |...... ._do_clic|
00000810  6b 28 71 25 29 0d 03 16  0c 69 25 3d 71 25 21 31  |k(q%)....i%=q%!1|
00000820  36 0d 03 20 0e c8 8e 20  71 25 21 31 32 20 ca 0d  |6.. ... q%!12 ..|
00000830  03 2a 28 c9 20 77 61 72  6e 69 6e 67 57 25 3a 20  |.*(. warningW%: |
00000840  71 25 21 30 3d 77 61 72  6e 69 6e 67 57 25 20 3a  |q%!0=warningW% :|
00000850  f2 5f 63 6c 6f 73 65 0d  03 34 28 c9 20 2d 32 3a  |._close..4(. -2:|
00000860  20 f4 20 4c 6f 6f 6b 20  66 69 72 73 74 20 61 74  | . Look first at|
00000870  20 49 63 6f 6e 20 42 61  72 20 43 6c 69 63 6b 0d  | Icon Bar Click.|
00000880  03 3e 1e 20 20 20 20 20  20 20 20 e7 20 71 25 21  |.>.        . q%!|
00000890  31 36 3d 73 6d 70 69 63  6f 6e 25 20 8c 0d 03 48  |16=smpicon% ...H|
000008a0  49 20 20 20 20 20 20 20  20 e7 20 71 25 21 38 3d  |I        . q%!8=|
000008b0  32 20 8c 20 c8 99 22 57  69 6d 70 5f 43 72 65 61  |2 . .."Wimp_Crea|
000008c0  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 71  |teMenu",,menu%,q|
000008d0  25 21 30 2d 37 34 2c 31  38 30 3a 49 63 6f 6e 4d  |%!0-74,180:IconM|
000008e0  65 6e 75 25 3d b9 0d 03  52 1d 20 20 20 20 20 20  |enu%=...R.      |
000008f0  20 20 e7 20 71 25 21 38  3d 34 20 8c 20 f2 5f 4f  |  . q%!8=4 . ._O|
00000900  70 65 6e 0d 03 5c 0d 20  20 20 20 20 20 20 20 cd  |pen..\.        .|
00000910  0d 03 66 04 0d 03 70 0e  c9 20 6d 6f 6e 57 25 3a  |..f...p.. monW%:|
00000920  20 20 0d 03 7a 27 20 20  20 20 20 20 20 20 20 20  |  ..z'          |
00000930  20 20 20 20 e7 20 71 25  21 38 3d 34 20 8c 20 f2  |    . q%!8=4 . .|
00000940  5f 4d 6f 6e 43 6c 69 63  6b 0d 03 84 50 20 20 20  |_MonClick...P   |
00000950  20 20 20 20 20 20 20 20  20 20 20 e7 20 71 25 21  |           . q%!|
00000960  38 3d 32 20 8c 20 c8 99  22 57 69 6d 70 5f 43 72  |8=2 . .."Wimp_Cr|
00000970  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00000980  2c 71 25 21 30 2d 39 36  2c 71 25 21 34 3a 49 63  |,q%!0-96,q%!4:Ic|
00000990  6f 6e 4d 65 6e 75 25 3d  a3 0d 03 8e 05 cb 0d 03  |onMenu%=........|
000009a0  98 05 e1 0d 03 a2 04 0d  03 ac 04 0d 03 b6 10 dd  |................|
000009b0  20 f2 5f 4d 6f 6e 43 6c  69 63 6b 0d 03 c0 0e ea  | ._MonClick.....|
000009c0  20 44 25 2c 56 25 2c 42  25 0d 03 ca 26 f4 20 44  | D%,V%,B%...&. D|
000009d0  6f 20 74 68 65 20 61 63  74 69 6f 6e 20 66 6f 72  |o the action for|
000009e0  20 61 20 77 69 6e 64 6f  77 20 63 6c 69 63 6b 0d  | a window click.|
000009f0  03 d4 0b c8 8e 20 69 25  20 ca 0d 03 de 04 0d 03  |..... i% .......|
00000a00  e8 14 20 20 c9 20 38 3a  20 20 44 25 3d a4 76 69  |..  . 8:  D%=.vi|
00000a10  69 63 0d 03 f2 17 20 20  20 20 20 20 20 20 20 20  |ic....          |
00000a20  20 e7 20 44 25 3c 32 20  8c 0d 03 fc 5f 20 20 20  | . D%<2 ...._   |
00000a30  20 20 20 20 20 20 20 20  20 e7 20 44 25 3d 30 20  |         . D%=0 |
00000a40  8c 20 f2 5f 73 65 74 75  70 57 28 22 4e 6f 20 44  |. ._setupW("No D|
00000a50  69 67 69 74 61 6c 20 49  49 43 20 44 65 76 69 63  |igital IIC Devic|
00000a60  65 22 29 20 8b 20 f2 5f  73 65 74 75 70 57 28 22  |e") . ._setupW("|
00000a70  4e 6f 20 49 49 43 20 41  6e 61 6c 6f 67 75 65 20  |No IIC Analogue |
00000a80  44 65 76 69 63 65 22 29  0d 04 06 11 20 20 20 20  |Device")....    |
00000a90  20 20 20 20 20 20 20 20  cc 0d 04 10 15 20 20 20  |        .....   |
00000aa0  20 20 20 20 20 20 20 20  20 20 f2 5f 54 54 0d 04  |          ._TT..|
00000ab0  1a 10 20 20 20 20 20 20  20 20 20 20 20 cd 0d 04  |..           ...|
00000ac0  24 06 20 cb 0d 04 2e 05  e1 0d 04 38 04 0d 04 42  |$. ........8...B|
00000ad0  0c dd 20 f2 5f 4f 70 65  6e 0d 04 4c 2e c8 99 22  |.. ._Open..L..."|
00000ae0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000af0  62 6c 65 22 2c 2d 31 2c  33 20 b8 20 2c 2c 4e 63  |ble",-1,3 . ,,Nc|
00000b00  6f 6c 6f 75 72 73 25 0d  04 56 19 f4 20 4f 50 45  |olours%..V.. OPE|
00000b10  4e 20 55 50 20 57 49 4e  44 4f 57 20 48 45 52 45  |N UP WINDOW HERE|
00000b20  0d 04 60 0e e7 20 77 6f  70 65 6e 25 20 8c 0d 04  |..`.. wopen% ...|
00000b30  6a 0e 71 25 21 30 3d 6d  6f 6e 57 25 0d 04 74 1f  |j.q%!0=monW%..t.|
00000b40  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000b50  77 53 74 61 74 65 22 2c  2c 71 25 0d 04 7e 36 20  |wState",,q%..~6 |
00000b60  20 e7 20 71 25 21 32 38  3c 3e 2d 31 20 8c 20 71  | . q%!28<>-1 . q|
00000b70  25 21 32 38 3d 2d 31 3a  20 c8 99 20 22 57 69 6d  |%!28=-1: .. "Wim|
00000b80  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00000b90  25 0d 04 88 05 cc 0d 04  92 1d c8 99 20 22 57 69  |%........... "Wi|
00000ba0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000bb0  57 6e 25 0d 04 9c 0c 77  6f 70 65 6e 25 3d b9 0d  |Wn%....wopen%=..|
00000bc0  04 a6 05 cd 0d 04 b0 05  e1 0d 04 ba 04 0d 04 c4  |................|
00000bd0  0f dd f2 73 65 74 75 70  6d 65 6e 75 0d 04 ce 08  |...setupmenu....|
00000be0  ea 20 6d 25 0d 04 d8 04  0d 04 e2 14 24 6d 65 6e  |. m%........$men|
00000bf0  75 25 3d 22 54 72 5f 54  65 73 74 22 0d 04 ec 0e  |u%="Tr_Test"....|
00000c00  6d 65 6e 75 25 3f 31 32  3d 37 0d 04 f6 0e 6d 65  |menu%?12=7....me|
00000c10  6e 75 25 3f 31 33 3d 32  0d 05 00 0e 6d 65 6e 75  |nu%?13=2....menu|
00000c20  25 3f 31 34 3d 37 0d 05  0a 0e 6d 65 6e 75 25 3f  |%?14=7....menu%?|
00000c30  31 35 3d 30 0d 05 14 10  6d 65 6e 75 25 21 31 36  |15=0....menu%!16|
00000c40  3d 31 32 38 0d 05 1e 0f  6d 65 6e 75 25 21 32 30  |=128....menu%!20|
00000c50  3d 34 30 0d 05 28 0e 6d  65 6e 75 25 21 32 34 3d  |=40..(.menu%!24=|
00000c60  30 0d 05 32 0f 6d 25 3d  6d 65 6e 75 25 2b 32 38  |0..2.m%=menu%+28|
00000c70  0d 05 3c 0a 6d 25 21 30  3d 30 0d 05 46 0e 6d 25  |..<.m%!0=0..F.m%|
00000c80  21 34 3d 69 6e 66 6f 25  0d 05 50 18 6d 25 21 38  |!4=info%..P.m%!8|
00000c90  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00000ca0  0d 05 5a 13 24 28 6d 25  2b 31 32 29 3d 22 49 6e  |..Z.$(m%+12)="In|
00000cb0  66 6f 22 0d 05 64 04 0d  05 6e 0a 6d 25 2b 3d 32  |fo"..d...n.m%+=2|
00000cc0  34 0d 05 78 0c 6d 25 21  30 3d 26 38 30 0d 05 82  |4..x.m%!0=&80...|
00000cd0  0a 6d 25 21 34 3d 30 0d  05 8c 18 6d 25 21 38 3d  |.m%!4=0....m%!8=|
00000ce0  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00000cf0  05 96 13 24 28 6d 25 2b  31 32 29 3d 22 51 75 69  |...$(m%+12)="Qui|
00000d00  74 22 0d 05 a0 05 e1 0d  05 aa 04 0d 05 b4 12 dd  |t"..............|
00000d10  20 f2 72 65 63 65 69 76  65 28 71 25 29 0d 05 be  | .receive(q%)...|
00000d20  08 ea 20 41 25 0d 05 c8  0c 41 25 3d 71 25 21 31  |.. A%....A%=q%!1|
00000d30  36 0d 05 d2 0b c8 8e 20  41 25 20 ca 0d 05 dc 0c  |6...... A% .....|
00000d40  c9 20 30 3a f2 64 69 65  0d 05 e6 04 0d 05 f0 14  |. 0:.die........|
00000d50  c9 20 26 35 30 32 3a 20  20 20 c8 8e 20 b9 20 ca  |. &502:   .. . .|
00000d60  0d 05 fa 69 20 20 20 20  20 20 20 20 20 20 20 20  |...i            |
00000d70  20 c9 20 71 25 21 33 32  3d 2d 32 20 80 20 71 25  | . q%!32=-2 . q%|
00000d80  21 33 36 3d 73 6d 70 69  63 6f 6e 25 3a 6d 65 73  |!36=smpicon%:mes|
00000d90  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 54  |$="This is the T|
00000da0  72 61 6e 73 69 73 74 6f  72 20 74 65 73 74 65 72  |ransistor tester|
00000db0  20 69 63 6f 6e 2e 7c 4d  54 65 73 74 20 74 72 61  | icon.|MTest tra|
00000dc0  6e 73 69 73 74 6f 72 73  22 0d 06 04 1a 20 20 20  |nsistors"....   |
00000dd0  20 20 20 20 20 20 20 20  20 20 7f 3a 6d 65 73 24  |          .:mes$|
00000de0  3d 22 22 0d 06 0e 12 20  20 20 20 20 20 20 20 20  |=""....         |
00000df0  20 20 20 20 cb 0d 06 18  14 20 20 20 20 e7 20 6d  |    .....    . m|
00000e00  65 73 24 3c 3e 22 22 20  8c 0d 06 22 12 20 20 20  |es$<>"" ...".   |
00000e10  20 71 25 21 31 32 3d 71  25 21 38 0d 06 2c 18 20  | q%!12=q%!8..,. |
00000e20  20 20 20 24 28 71 25 2b  32 30 29 3d 6d 65 73 24  |   $(q%+20)=mes$|
00000e30  2b bd 30 0d 06 36 1e 20  20 20 20 71 25 21 30 3d  |+.0..6.    q%!0=|
00000e40  28 32 30 2b a9 6d 65 73  24 2b 34 29 80 20 ac 20  |(20+.mes$+4). . |
00000e50  33 0d 06 40 12 20 20 20  20 71 25 21 31 36 3d 26  |3..@.    q%!16=&|
00000e60  35 30 33 0d 06 4a 28 20  20 20 20 c8 99 20 22 57  |503..J(    .. "W|
00000e70  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000e80  2c 31 38 2c 71 25 2c 71  25 21 34 0d 06 54 05 cb  |,18,q%,q%!4..T..|
00000e90  0d 06 5e 05 e1 0d 06 68  04 0d 06 72 0c dd 20 f2  |..^....h...r.. .|
00000ea0  5f 44 61 63 6b 0d 06 7c  10 73 65 6e 64 74 68 25  |_Dack..|.sendth%|
00000eb0  3d 71 25 21 34 0d 06 86  0f 6d 79 72 65 66 25 3d  |=q%!4....myref%=|
00000ec0  71 25 21 38 0d 06 90 22  c8 99 20 22 57 69 6d 70  |q%!8...".. "Wimp|
00000ed0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000ee0  2c 2c 71 25 2b 38 0d 06  9a 0e 71 25 21 32 38 3d  |,,q%+8....q%!28=|
00000ef0  71 25 21 38 0d 06 a4 0f  71 25 21 33 32 3d 71 25  |q%!8....q%!32=q%|
00000f00  21 31 32 0d 06 ae 18 71  25 21 30 3d 28 34 34 2b  |!12....q%!0=(44+|
00000f10  a9 6e 24 2b 34 29 80 20  ac 20 33 0d 06 b8 10 71  |.n$+4). . 3....q|
00000f20  25 21 31 32 3d 6d 79 72  65 66 25 0d 06 c2 0b 71  |%!12=myref%....q|
00000f30  25 21 31 36 3d 34 0d 06  cc 0c 71 25 21 33 36 3d  |%!16=4....q%!36=|
00000f40  2d 31 0d 06 d6 0e 71 25  21 34 30 3d 26 46 46 39  |-1....q%!40=&FF9|
00000f50  0d 06 e0 12 24 28 71 25  2b 34 34 29 3d 6e 24 2b  |....$(q%+44)=n$+|
00000f60  bd 30 0d 06 ea 27 c8 99  20 22 57 69 6d 70 5f 53  |.0...'.. "Wimp_S|
00000f70  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00000f80  25 2c 73 65 6e 64 74 68  25 0d 06 f4 05 cd 0d 06  |%,sendth%.......|
00000f90  fe 05 e1 0d 07 08 04 0d  07 12 0e dd a4 73 67 65  |.............sge|
00000fa0  74 28 78 25 29 0d 07 1c  08 ea 20 78 24 0d 07 26  |t(x%)..... x$..&|
00000fb0  1d c8 95 20 3f 78 25 20  78 24 2b 3d bd 28 3f 78  |... ?x% x$+=.(?x|
00000fc0  25 29 3a 78 25 2b 3d 31  3a ce 0d 07 30 07 3d 78  |%):x%+=1:...0.=x|
00000fd0  24 0d 07 3a 04 0d 07 44  0a dd a4 69 63 6f 6e 0d  |$..:...D...icon.|
00000fe0  07 4e 0b 71 25 21 30 3d  2d 31 0d 07 58 0a 71 25  |.N.q%!0=-1..X.q%|
00000ff0  21 34 3d 30 0d 07 62 1b  71 25 21 38 3d 31 30 20  |!4=0..b.q%!8=10 |
00001000  3a 20 f4 20 59 20 44 49  52 45 43 54 49 4f 4e 0d  |: . Y DIRECTION.|
00001010  07 6c 1c 71 25 21 31 32  3d 37 30 20 3a 20 f4 20  |.l.q%!12=70 : . |
00001020  58 20 44 49 52 45 43 54  49 4f 4e 0d 07 76 0c 71  |X DIRECTION..v.q|
00001030  25 21 31 36 3d 39 36 0d  07 80 0f 71 25 21 32 30  |%!16=96....q%!20|
00001040  3d 26 32 30 30 32 0d 07  8a 17 24 28 71 25 2b 32  |=&2002....$(q%+2|
00001050  34 29 3d 22 21 54 72 5f  54 65 73 74 22 0d 07 94  |4)="!Tr_Test"...|
00001060  24 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |$.. "Wimp_Create|
00001070  49 63 6f 6e 22 2c 2c 71  25 20 b8 20 69 63 6f 6e  |Icon",,q% . icon|
00001080  25 0d 07 9e 0a 3d 69 63  6f 6e 25 0d 07 a8 04 0d  |%....=icon%.....|
00001090  07 b2 12 dd 20 f2 5f 73  65 74 75 70 57 28 74 24  |.... ._setupW(t$|
000010a0  29 0d 07 bc 58 21 71 25  3d 77 61 72 6e 69 6e 67  |)...X!q%=warning|
000010b0  57 25 3a 71 25 21 34 3d  32 30 30 3a 71 25 21 38  |W%:q%!4=200:q%!8|
000010c0  3d 32 30 30 3a 71 25 21  31 32 3d 32 30 30 2b 58  |=200:q%!12=200+X|
000010d0  51 25 3a 71 25 21 31 36  3d 32 30 30 2b 59 51 25  |Q%:q%!16=200+YQ%|
000010e0  3a 71 25 21 32 30 3d 30  3a 71 25 21 32 34 3d 30  |:q%!20=0:q%!24=0|
000010f0  3a 71 25 21 32 38 3d 2d  31 0d 07 c6 11 24 54 65  |:q%!28=-1....$Te|
00001100  78 74 57 61 72 6e 25 3d  74 24 0d 07 d0 15 54 65  |xtWarn%=t$....Te|
00001110  78 74 57 61 72 6e 25 3f  a9 28 74 24 29 3d 30 0d  |xtWarn%?.(t$)=0.|
00001120  07 da 07 ef 20 37 0d 07  e4 0d 77 61 72 6e 4f 6e  |.... 7....warnOn|
00001130  25 3d b9 0d 07 ee 1c c8  99 20 22 57 69 6d 70 5f  |%=....... "Wimp_|
00001140  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00001150  07 f8 05 e1 0d 08 02 04  0d 08 0c 0f dd 20 f2 65  |............. .e|
00001160  72 72 6f 72 62 6f 78 0d  08 16 1c f4 20 53 59 53  |rrorbox..... SYS|
00001170  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
00001180  2c 2d 31 0d 08 20 32 21  62 75 66 66 65 72 73 25  |,-1.. 2!buffers%|
00001190  3d 9f 3a 24 28 62 75 66  66 65 72 73 25 2b 34 29  |=.:$(buffers%+4)|
000011a0  3d f6 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |=.$+" at line "+|
000011b0  c3 9e 2b bd 30 0d 08 2a  31 c8 99 20 22 57 69 6d  |..+.0..*1.. "Wim|
000011c0  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 62  |p_ReportError",b|
000011d0  75 66 66 65 72 73 25 2c  31 2c 22 54 72 61 6e 73  |uffers%,1,"Trans|
000011e0  69 73 74 6f 72 22 0d 08  34 08 f2 64 69 65 0d 08  |istor"..4..die..|
000011f0  3e 05 e1 0d 08 48 04 0d  08 52 09 dd f2 64 69 65  |>....H...R...die|
00001200  0d 08 5c 2a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..\*.. "Wimp_Clo|
00001210  73 65 44 6f 77 6e 22 2c  74 61 73 6b 68 61 6e 64  |seDown",taskhand|
00001220  25 2c 21 74 61 73 6b 69  64 25 0d 08 66 05 e0 0d  |%,!taskid%..f...|
00001230  08 70 05 e1 0d 08 7a 04  0d 08 84 10 dd 20 f2 5f  |.p....z...... ._|
00001240  4b 65 79 50 72 65 73 73  0d 08 8e 0d c8 8e 20 71  |KeyPress...... q|
00001250  25 21 30 20 ca 0d 08 98  1b c9 20 73 61 76 65 57  |%!0 ...... saveW|
00001260  25 3a 20 69 25 3d 32 3a  f2 5f 44 6f 53 61 76 65  |%: i%=2:._DoSave|
00001270  0d 08 a2 17 c9 20 72 61  74 65 57 25 3a 20 f2 5f  |..... rateW%: ._|
00001280  47 65 74 52 61 74 65 0d  08 ac 2c 20 20 20 20 20  |GetRate...,     |
00001290  20 20 20 20 20 20 20 20  e7 20 53 72 61 74 65 3c  |        . Srate<|
000012a0  30 2e 33 20 8c 20 53 72  61 74 65 3d 30 2e 33 3a  |0.3 . Srate=0.3:|
000012b0  ef 20 37 0d 08 b6 24 20  20 20 20 20 20 20 20 20  |. 7...$         |
000012c0  20 20 20 20 f2 5f 50 75  74 52 61 74 65 28 c3 28  |    ._PutRate(.(|
000012d0  53 72 61 74 65 29 29 0d  08 c0 2c 20 20 20 20 20  |Srate))...,     |
000012e0  20 20 20 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |        .. "Wimp|
000012f0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 52  |_CloseWindow",,R|
00001300  61 74 25 0d 08 ca 29 20  20 20 20 20 20 20 20 20  |at%...)         |
00001310  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |    .. "Wimp_Cre|
00001320  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 08 d4 05  |ateMenu",,-1....|
00001330  cb 0d 08 de 05 e1 0d 08  e8 04 0d 08 f2 10 dd 20  |............... |
00001340  f2 5f 47 65 74 50 72 61  6d 73 0d 08 fc 08 ea 20  |._GetPrams..... |
00001350  41 24 0d 09 06 0e 71 25  21 30 3d 57 6e 25 21 30  |A$....q%!0=Wn%!0|
00001360  0d 09 10 1d 49 6e 46 69  6c 65 24 3d a4 73 67 65  |....InFile$=.sge|
00001370  74 28 53 50 6f 69 6e 74  25 28 34 29 29 0d 09 1a  |t(SPoint%(4))...|
00001380  05 e1 0d 09 24 04 0d 09  2e 21 f4 20 56 65 72 69  |....$....!. Veri|
00001390  66 79 20 49 49 43 20 69  6e 74 65 72 66 61 63 65  |fy IIC interface|
000013a0  20 66 69 74 74 65 64 0d  09 38 0b dd 20 a4 76 69  | fitted..8.. .vi|
000013b0  69 63 0d 09 42 08 ea 20  56 25 0d 09 4c 08 56 25  |ic..B.. V%..L.V%|
000013c0  3d 32 0d 09 56 0f f2 5f  4d 75 6c 6f 75 74 28 30  |=2..V.._Mulout(0|
000013d0  29 0d 09 60 17 e7 20 44  65 76 69 63 65 44 25 3d  |)..`.. DeviceD%=|
000013e0  a3 20 8c 20 56 25 3d 30  0d 09 6a 09 f2 5f 41 49  |. . V%=0..j.._AI|
000013f0  4e 0d 09 74 17 e7 20 44  65 76 69 63 65 41 25 3d  |N..t.. DeviceA%=|
00001400  a3 20 8c 20 56 25 3d 31  0d 09 7e 07 3d 56 25 0d  |. . V%=1..~.=V%.|
00001410  09 88 04 0d 09 92 17 dd  20 f2 5f 50 75 74 50 72  |........ ._PutPr|
00001420  61 6d 73 28 6e 25 2c 56  25 29 0d 09 9c 1d f2 5f  |ams(n%,V%)....._|
00001430  73 70 75 74 28 53 50 6f  69 6e 74 25 28 6e 25 29  |sput(SPoint%(n%)|
00001440  2c c3 28 56 25 29 29 0d  09 a6 40 c8 99 22 57 69  |,.(V%))...@.."Wi|
00001450  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001460  6d 6f 6e 57 25 2c 49 58  25 28 6e 25 29 2c 49 59  |monW%,IX%(n%),IY|
00001470  25 28 6e 25 29 2c 49 58  31 25 28 6e 25 29 2c 49  |%(n%),IX1%(n%),I|
00001480  59 31 25 28 6e 25 29 0d  09 b0 05 e1 0d 09 ba 04  |Y1%(n%).........|
00001490  0d 09 c4 18 dd 20 f2 5f  50 75 74 50 72 61 6d 73  |..... ._PutPrams|
000014a0  53 28 6e 25 2c 56 24 29  0d 09 ce 1a f2 5f 73 70  |S(n%,V$)....._sp|
000014b0  75 74 28 53 50 6f 69 6e  74 25 28 6e 25 29 2c 56  |ut(SPoint%(n%),V|
000014c0  24 29 0d 09 d8 40 c8 99  22 57 69 6d 70 5f 46 6f  |$)...@.."Wimp_Fo|
000014d0  72 63 65 52 65 64 72 61  77 22 2c 6d 6f 6e 57 25  |rceRedraw",monW%|
000014e0  2c 49 58 25 28 6e 25 29  2c 49 59 25 28 6e 25 29  |,IX%(n%),IY%(n%)|
000014f0  2c 49 58 31 25 28 6e 25  29 2c 49 59 31 25 28 6e  |,IX1%(n%),IY1%(n|
00001500  25 29 0d 09 e2 05 e1 0d  09 ec 04 0d 09 f6 13 dd  |%)..............|
00001510  20 f2 5f 73 70 75 74 28  78 25 2c 58 24 29 0d 0a  | ._sput(x%,X$)..|
00001520  00 08 ea 20 41 25 0d 0a  0a 12 e3 20 41 25 3d 31  |... A%..... A%=1|
00001530  20 b8 20 a9 28 58 24 29  0d 0a 14 14 3f 78 25 3d  | . .(X$)....?x%=|
00001540  97 28 c1 58 24 2c 41 25  2c 31 29 29 0d 0a 1e 09  |.(.X$,A%,1))....|
00001550  78 25 2b 3d 31 0d 0a 28  05 ed 0d 0a 32 09 3f 78  |x%+=1..(....2.?x|
00001560  25 3d 30 0d 0a 3c 05 e1  0d 0a 46 04 0d 0a 50 41  |%=0..<....F...PA|
00001570  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00001580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000015a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 0a 5a  |-------------..Z|
000015b0  04 0d 0a 64 0a dd 20 f2  5f 54 54 0d 0a 6e 14 c8  |...d.. ._TT..n..|
000015c0  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  |."Hourglass_On".|
000015d0  0a 78 0c 4d 47 61 69 6e  25 3d 30 0d 0a 82 0a 4c  |.x.MGain%=0....L|
000015e0  43 25 3d 31 32 0d 0a 8c  0f e3 20 41 25 3d 30 20  |C%=12..... A%=0 |
000015f0  b8 20 31 31 0d 0a 96 26  e7 20 41 25 3c 36 20 8c  |. 11...&. A%<6 .|
00001600  20 54 79 70 65 24 3d 22  4e 50 4e 22 20 8b 20 54  | Type$="NPN" . T|
00001610  79 70 65 24 3d 22 50 4e  50 22 0d 0a a0 0b 47 61  |ype$="PNP"....Ga|
00001620  69 6e 25 3d 30 0d 0a aa  25 f4 20 46 69 72 73 74  |in%=0...%. First|
00001630  20 74 65 73 74 20 77 69  74 68 20 6e 6f 20 62 61  | test with no ba|
00001640  73 65 20 63 75 72 72 65  6e 74 0d 0a b4 1f f2 5f  |se current....._|
00001650  4d 75 6c 6f 75 74 28 43  6f 6e 66 69 67 25 28 41  |Mulout(Config%(A|
00001660  25 29 20 82 20 26 31 38  29 0d 0a be 09 2a 46 58  |%) . &18)....*FX|
00001670  31 39 0d 0a c8 09 f2 5f  41 49 4e 0d 0a d2 11 e7  |19....._AIN.....|
00001680  20 94 28 63 6f 6c 25 29  3c 35 20 8c 0d 0a dc 19  | .(col%)<5 .....|
00001690  f2 5f 4d 75 6c 6f 75 74  28 43 6f 6e 66 69 67 25  |._Mulout(Config%|
000016a0  28 41 25 29 29 0d 0a e6  09 2a 46 58 31 39 0d 0a  |(A%))....*FX19..|
000016b0  f0 0c f2 5f 41 6e 6c 69  73 65 0d 0a fa 05 cc 0d  |..._Anlise......|
000016c0  0b 04 05 cd 0d 0b 0e 35  e7 20 47 61 69 6e 25 3e  |.......5. Gain%>|
000016d0  4d 47 61 69 6e 25 20 8c  20 4d 47 61 69 6e 25 3d  |MGain% . MGain%=|
000016e0  47 61 69 6e 25 3a 4c 43  25 3d 41 25 3a 41 74 79  |Gain%:LC%=A%:Aty|
000016f0  70 65 24 3d 54 79 70 65  24 0d 0b 18 05 ed 0d 0b  |pe$=Type$.......|
00001700  22 1b f4 20 44 69 73 63  6f 6e 6e 65 63 74 20 74  |".. Disconnect t|
00001710  72 61 6e 73 69 73 74 6f  72 0d 0b 2c 09 f2 5f 52  |ransistor..,.._R|
00001720  73 6d 0d 0b 36 19 e7 20  4c 43 25 3d 31 32 20 84  |sm..6.. LC%=12 .|
00001730  20 4d 47 61 69 6e 25 3c  32 20 8c 0d 0b 40 1c f2  | MGain%<2 ...@..|
00001740  5f 50 75 74 50 72 61 6d  73 53 28 34 2c 22 4e 6f  |_PutPramsS(4,"No|
00001750  74 68 69 6e 67 22 29 0d  0b 4a 1b f2 5f 50 75 74  |thing")..J.._Put|
00001760  50 72 61 6d 73 53 28 35  2c 22 46 61 75 6c 74 79  |PramsS(5,"Faulty|
00001770  22 29 0d 0b 54 16 f2 5f  50 75 74 50 72 61 6d 73  |")..T.._PutPrams|
00001780  53 28 37 2c 22 20 22 29  0d 0b 5e 16 f2 5f 50 75  |S(7," ")..^.._Pu|
00001790  74 50 72 61 6d 73 53 28  36 2c 22 20 22 29 0d 0b  |tPramsS(6," ")..|
000017a0  68 16 f2 5f 50 75 74 50  72 61 6d 73 53 28 32 2c  |h.._PutPramsS(2,|
000017b0  22 20 22 29 0d 0b 72 05  cc 0d 0b 7c 19 f2 5f 50  |" ")..r....|.._P|
000017c0  75 74 50 72 61 6d 73 53  28 35 2c 41 74 79 70 65  |utPramsS(5,Atype|
000017d0  24 29 0d 0b 86 18 f2 5f  50 75 74 50 72 61 6d 73  |$)....._PutPrams|
000017e0  28 34 2c 4d 47 61 69 6e  25 29 0d 0b 90 23 f2 5f  |(4,MGain%)...#._|
000017f0  50 75 74 50 72 61 6d 73  53 28 37 2c c1 4c 65 61  |PutPramsS(7,.Lea|
00001800  64 24 28 4c 43 25 29 2c  31 2c 31 29 29 0d 0b 9a  |d$(LC%),1,1))...|
00001810  23 f2 5f 50 75 74 50 72  61 6d 73 53 28 36 2c c1  |#._PutPramsS(6,.|
00001820  4c 65 61 64 24 28 4c 43  25 29 2c 32 2c 31 29 29  |Lead$(LC%),2,1))|
00001830  0d 0b a4 23 f2 5f 50 75  74 50 72 61 6d 73 53 28  |...#._PutPramsS(|
00001840  32 2c c1 4c 65 61 64 24  28 4c 43 25 29 2c 33 2c  |2,.Lead$(LC%),3,|
00001850  31 29 29 0d 0b ae 05 cd  0d 0b b8 15 c8 99 22 48  |1))..........."H|
00001860  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 0b c2  |ourglass_Off"...|
00001870  05 e1 0d 0b cc 04 0d 0b  d6 0e dd 20 f2 5f 41 6e  |........... ._An|
00001880  6c 69 73 65 0d 0b e0 09  f2 5f 41 49 4e 0d 0b ea  |lise....._AIN...|
00001890  19 49 63 3d 28 28 35 2a  63 6f 6c 25 29 2f 32 35  |.Ic=((5*col%)/25|
000018a0  36 29 2f 32 32 30 0d 0b  f4 1c 49 62 3d 28 28 35  |6)/220....Ib=((5|
000018b0  2a 62 61 73 25 29 2f 32  35 36 29 2f 32 32 30 30  |*bas%)/256)/2200|
000018c0  30 30 0d 0b fe 21 e7 20  49 62 3c 3e 30 20 80 20  |00...!. Ib<>0 . |
000018d0  49 63 3c 3e 30 20 8c 20  47 61 69 6e 25 3d 49 63  |Ic<>0 . Gain%=Ic|
000018e0  2f 49 62 0d 0c 08 05 e1  0d 0c 12 04 0d 0c 1c 0d  |/Ib.............|
000018f0  dd 20 a4 74 63 28 4e 25  29 0d 0c 26 20 e7 20 4e  |. .tc(N%)..& . N|
00001900  25 3e 26 37 46 20 8c 20  4e 25 3d 26 46 46 46 46  |%>&7F . N%=&FFFF|
00001910  46 46 30 30 20 84 20 4e  25 0d 0c 30 07 3d 4e 25  |FF00 . N%..0.=N%|
00001920  0d 0c 3a 04 0d 0c 44 0b  dd 20 f2 5f 52 73 6d 0d  |..:...D.. ._Rsm.|
00001930  0c 4e 0d 3f 50 42 4b 25  3d 26 46 46 0d 0c 58 26  |.N.?PBK%=&FF..X&|
00001940  c8 99 20 22 58 49 49 43  5f 43 6f 6e 74 72 6f 6c  |.. "XIIC_Control|
00001950  22 2c 44 41 25 2c 50 42  4b 25 2c 31 20 b8 20 3b  |",DA%,PBK%,1 . ;|
00001960  46 6c 0d 0c 62 05 e1 0d  0c 6c 04 0d 0c 76 12 dd  |Fl..b....l...v..|
00001970  20 f2 5f 4d 75 6c 6f 75  74 28 4e 25 29 0d 0c 80  | ._Mulout(N%)...|
00001980  11 ea 20 41 25 2c 42 25  2c 43 25 2c 4d 25 0d 0c  |.. A%,B%,C%,M%..|
00001990  8a 09 f2 5f 52 73 6d 0d  0c 94 0f e3 20 41 25 3d  |..._Rsm..... A%=|
000019a0  30 20 b8 20 31 35 0d 0c  9e 0d 42 25 3d 4e 25 20  |0 . 15....B%=N% |
000019b0  80 20 31 0d 0c a8 0c 4e  25 3d 4e 25 3e 3e 31 0d  |. 1....N%=N%>>1.|
000019c0  0c b2 17 4d 25 3d 42 25  3c 3c 37 20 84 20 41 25  |...M%=B%<<7 . A%|
000019d0  20 84 20 26 36 30 0d 0c  bc 0c 3f 50 42 4b 25 3d  | . &60....?PBK%=|
000019e0  4d 25 0d 0c c6 26 c8 99  20 22 58 49 49 43 5f 43  |M%...&.. "XIIC_C|
000019f0  6f 6e 74 72 6f 6c 22 2c  44 41 25 2c 50 42 4b 25  |ontrol",DA%,PBK%|
00001a00  2c 31 20 b8 20 3b 46 6c  0d 0c d0 09 43 25 3d 4d  |,1 . ;Fl....C%=M|
00001a10  25 0d 0c da 26 e7 20 41  25 3e 37 20 8c 20 43 25  |%...&. A%>7 . C%|
00001a20  3d 43 25 20 80 20 26 42  46 20 8b 20 43 25 3d 43  |=C% . &BF . C%=C|
00001a30  25 20 80 20 26 44 46 0d  0c e4 0c 3f 50 42 4b 25  |% . &DF....?PBK%|
00001a40  3d 43 25 0d 0c ee 26 c8  99 20 22 58 49 49 43 5f  |=C%...&.. "XIIC_|
00001a50  43 6f 6e 74 72 6f 6c 22  2c 44 41 25 2c 50 42 4b  |Control",DA%,PBK|
00001a60  25 2c 31 20 b8 20 3b 46  6c 0d 0c f8 0c 3f 50 42  |%,1 . ;Fl....?PB|
00001a70  4b 25 3d 4d 25 0d 0d 02  26 c8 99 20 22 58 49 49  |K%=M%...&.. "XII|
00001a80  43 5f 43 6f 6e 74 72 6f  6c 22 2c 44 41 25 2c 50  |C_Control",DA%,P|
00001a90  42 4b 25 2c 31 20 b8 20  3b 46 6c 0d 0d 0c 05 ed  |BK%,1 . ;Fl.....|
00001aa0  0d 0d 16 2b e7 20 28 46  6c 20 80 20 31 29 20 3d  |...+. (Fl . 1) =|
00001ab0  31 20 8c 20 44 65 76 69  63 65 44 25 3d a3 20 8b  |1 . DeviceD%=. .|
00001ac0  20 44 65 76 69 63 65 44  25 3d b9 0d 0d 20 05 e1  | DeviceD%=... ..|
00001ad0  0d 0d 2a 04 0d 0d 34 0b  dd 20 f2 5f 41 49 4e 0d  |..*...4.. ._AIN.|
00001ae0  0d 3e 0b ea 20 46 6c 2c  42 25 0d 0d 48 0d 3f 50  |.>.. Fl,B%..H.?P|
00001af0  42 53 25 3d 26 33 30 0d  0d 52 21 f4 20 53 65 74  |BS%=&30..R!. Set|
00001b00  20 75 70 20 74 68 65 20  63 6f 6e 74 72 6f 6c 20  | up the control |
00001b10  72 65 67 69 73 74 65 72  0d 0d 5c 26 c8 99 20 22  |register..\&.. "|
00001b20  58 49 49 43 5f 43 6f 6e  74 72 6f 6c 22 2c 41 41  |XIIC_Control",AA|
00001b30  25 2c 50 42 53 25 2c 31  20 b8 20 3b 46 6c 0d 0d  |%,PBS%,1 . ;Fl..|
00001b40  66 2a c8 99 20 22 58 49  49 43 5f 43 6f 6e 74 72  |f*.. "XIIC_Contr|
00001b50  6f 6c 22 2c 41 41 25 20  84 20 31 2c 50 42 4b 25  |ol",AA% . 1,PBK%|
00001b60  2c 32 20 b8 20 3b 46 6c  0d 0d 70 0f 62 61 73 25  |,2 . ;Fl..p.bas%|
00001b70  3d 50 42 4b 25 3f 31 0d  0d 7a 0d 3f 50 42 53 25  |=PBK%?1..z.?PBS%|
00001b80  3d 26 33 31 0d 0d 84 26  c8 99 20 22 58 49 49 43  |=&31...&.. "XIIC|
00001b90  5f 43 6f 6e 74 72 6f 6c  22 2c 41 41 25 2c 50 42  |_Control",AA%,PB|
00001ba0  53 25 2c 31 20 b8 20 3b  46 6c 0d 0d 8e 2a c8 99  |S%,1 . ;Fl...*..|
00001bb0  20 22 58 49 49 43 5f 43  6f 6e 74 72 6f 6c 22 2c  | "XIIC_Control",|
00001bc0  41 41 25 20 84 20 31 2c  50 42 4b 25 2c 32 20 b8  |AA% . 1,PBK%,2 .|
00001bd0  20 3b 46 6c 0d 0d 98 2b  e7 20 28 46 6c 20 80 20  | ;Fl...+. (Fl . |
00001be0  31 29 20 3d 31 20 8c 20  44 65 76 69 63 65 41 25  |1) =1 . DeviceA%|
00001bf0  3d a3 20 8b 20 44 65 76  69 63 65 41 25 3d b9 0d  |=. . DeviceA%=..|
00001c00  0d a2 0f 63 6f 6c 25 3d  50 42 4b 25 3f 31 0d 0d  |...col%=PBK%?1..|
00001c10  ac 12 63 6f 6c 25 3d a4  74 63 28 63 6f 6c 25 29  |..col%=.tc(col%)|
00001c20  0d 0d b6 12 62 61 73 25  3d a4 74 63 28 62 61 73  |....bas%=.tc(bas|
00001c30  25 29 0d 0d c0 05 e1 0d  0d ca 04 0d 0d d4 1e f4  |%)..............|
00001c40  20 49 6e 69 74 69 6c 69  73 65 20 73 77 69 74 63  | Initilise switc|
00001c50  68 20 70 61 74 74 65 72  6e 0d 0d de 0e dd 20 f2  |h pattern..... .|
00001c60  5f 53 50 69 6e 69 74 0d  0d e8 08 ea 20 41 25 0d  |_SPinit..... A%.|
00001c70  0d f2 0f e3 20 41 25 3d  30 20 b8 20 31 31 0d 0d  |.... A%=0 . 11..|
00001c80  fc 1b f3 20 4c 65 61 64  24 28 41 25 29 2c 43 6f  |... Lead$(A%),Co|
00001c90  6e 66 69 67 25 28 41 25  29 0d 0e 06 05 ed 0d 0e  |nfig%(A%).......|
00001ca0  10 41 dc 20 65 62 63 2c  26 33 31 32 38 2c 63 62  |.A. ebc,&3128,cb|
00001cb0  65 2c 26 38 35 32 38 2c  65 63 62 2c 26 32 41 32  |e,&8528,ecb,&2A2|
00001cc0  38 2c 63 65 62 2c 26 34  36 32 38 2c 62 63 65 2c  |8,ceb,&4628,bce,|
00001cd0  26 38 38 41 38 2c 62 65  63 2c 26 35 30 41 38 0d  |&88A8,bec,&50A8.|
00001ce0  0e 1a 41 dc 20 65 62 63  2c 26 31 31 35 31 2c 63  |..A. ebc,&1151,c|
00001cf0  62 65 2c 26 30 35 35 34  2c 65 63 62 2c 26 30 41  |be,&0554,ecb,&0A|
00001d00  35 31 2c 63 65 62 2c 26  30 36 35 32 2c 62 63 65  |51,ceb,&0652,bce|
00001d10  2c 26 30 38 44 34 2c 62  65 63 2c 26 31 30 44 32  |,&08D4,bec,&10D2|
00001d20  0d 0e 24 05 e1 0d 0e 2e  04 0d ff                 |..$........|
00001d2b

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .