Listing of file='TBO.STAT' on disk='vmedia/toolbox.wvd.zip'
# Sector 1149, program filename = 'TBO.STAT'
0010 %TBO.STAT 10/26/89
0020 $PSTAT="TBO.STAT"
0030 DIM P$39,D$3,A$80,L1$1,P1$(4)2,P2$(3)4,B$1,C$1,I$30
0035 P1$()=HEX(2FFE7FFEFFFEFFFF)
: P2$()=" 8K 32K 64K"
0036 DIM P3$(3)8
: P3$()="ASC onlyASC/BSC SNA/SDLC"
0040 PRINT HEX(03);
0050 PRINT HEX(01068B);;AT(1,30);HEX(020402000E);"CS/2200 Device status";HEX(0
F)
0060 PRINT HEX(020402000E);"Terminal status";HEX(0F)
: GOSUB 160
: PRINT
0070 PRINT HEX(020402000E);"Printers";HEX(0F)
: GOSUB 130
0080 PRINT HEX(020402000E);"T.C.Boards";HEX(0F)
: GOSUB 140
0090 PRINT AT(23,0);"Key '0 to START '1 to What disks? other key to retest
here";HEX(0105);" ";
0110 KEYIN C$
: ON VAL(C$)+1GOTO 120,125
: GOTO 50
0120 DEFFN'0
: LOAD DC T#0,"START"
0125 DEFFN'1
: LOAD DC T#0,"TBO.XDAD"
0130 REM %PRINTER TESTS
: D$="215"
: FOR A=1TO 4
: P$=" "
: GOSUB '50(D$)
: PRINTUSING 220,D$,P$;
: D$=ADDHEX(01)
: NEXT A
: RETURN
0140 REM % TC-BOARD TESTS
: D$="01A"
: FOR A=1TO 6
: P$=" "
: GOSUB '60(D$)
: PRINTUSING 220,D$,P$;
: D$=ADDHEX(01)
: NEXT A
: RETURN
0150 REM %TERMINAL TEST
0160 $IF OFF /001,170
: KEYIN C$
: GOTO 160
0170 A$=" 2236D"
: PRINT BOX(1,35);
: PRINT HEX(0208090F)
: A=0
0175 I$=" "
0180 A=A+1
: IF A>5000THEN 190
: $IF OFF /001,180
: LINPUT -I$
: GOTO 230
0190 PRINT A$
0200 % ################# ####### !
0210 % ### ############# #.# !
0220 % ### ################################# !
0230 $GIO/005(40067601,B1$)
: B$=B1$
0240 PRINTUSING 200,"Terminal number",#TERM;
0250 AND (B$,20)
: IF B$=" "THEN A$="MVP"
: ELSE A$=" VP"
: P$=$PSTAT(1)
: B$=STR(P$,9,1)
: IF B$="W"THEN A$="CS/386"
0255 PRINTUSING 200,"CPU type ",A$;
0260 PRINTUSING 200,"Partition number",#PART;
0270 A$="VP"
: IF B$="M"THEN A$="MVP"
: IF B$="W"THEN A$="386"
: UNPACK(#.#)STR(P$,10,1)TO R
: PRINTUSING 210,A$,"OS Release ",R;
0280 PRINTUSING 200,"Partition memory",SPACEK;
0290 B$=B1$
: AND (B$,10)
: IF B$=HEX(10)THEN L=80
: ELSE L=64
: PRINTUSING 200,"CRT size ",L;
0300 RETURN
0310 DEFFN'50(D$)
: REM % PRINTER TEST
: SELECT #2<D$>
: $IF OFF #2,350
: ERRORGOTO 345
0320 $OPEN 340,#2
: $IF OFF #2,350
0330 $GIO#2(0100020112124000400040004000,B1$)
: IF STR(B1$,8,1)=HEX(10)THEN P$="Not Ready"
: ELSE P$="Ready"
: $CLOSE#2
: RETURN
0340 P$="Busy"
: RETURN
0345 P$="Undefined"
: RETURN
0350 P$="Unavailable"
: $CLOSE#2
: RETURN
0360 DEFFN'60(D$)
: REM %TC-BOARD TEST
: SELECT #7<D$>
: REM TEST FOR READY
: P$="Unavailable"
: $OPEN 340,#7
: ERRORGOTO 345
0370 $CLOSE#7
: $GIO#7(0100020F1212458044014004400D4001C620,B1$)L1$
: AND (B1$,10)
: IF STR(B1$,8,1)<>HEX(00)THEN 410
: IF L1$<>HEX(5C)THEN P$="28-B."
: ELSE P$="28-C."
0380 REM %No connector test for B-C Board
: Z=1
0390 REM %TEST MEMORY
: INIT(00)L1$,B1$
: $GIOWRITEREAD#7(458075280100020F12124400A0004020442044011800A00040011801C
620,B1$)P1$(Z)<1,2>;L1$
0400 IF L1$<>HEX(20)OR STR(B1$,8,1)=HEX(01)THEN REM STR(P$,5,4)=P2$(Z-0)
: IF Z=3THEN STR(P$,5,4)=P2$(Z)
: IF L1$<>HEX(20)OR Z>=3THEN 405
: Z=Z+1
: GOTO 390
0405 IF Z=1THEN P$="27-B"
: P$=P$&" "&P3$(Z)
: IF STR(P$,4,1)="C"THEN P$=P$&" 3275"
: RETURN
0410 REM %TEST D-E-F BOARD
: $GIO#7(0100020F121245807528400140004001400740FDC640,B1$)L1$
: AND (B1$,10)
: IF STR(B1$,8,1)<>HEX(00)THEN RETURN
0415 IF L1$=HEX(00)THEN P$="D."
: IF L1$=HEX(8E)THEN P$="E."
: IF L1$=HEX(8F)THEN P$="F."
0420 REM %TEST MEMORY SIZE
: DIM W$5,R$16
: W$=HEX(01000107FE)
: INIT(FF)R$
: STR(R$,3,2)=HEX(0004)
: $GIOSENDREADCOMMANDSTRING#7(1232A0001200,R$)W$
: V$=STR(R$,8,1)AND HEX(10)
: IF V$=HEX(10)THEN STOP "CPU TIME OUT DURING SIZE"
0430 $GIO#7(75108702,R$)
: K$=STR(R$,2,1)
0440 W$="64K"
: IF K$=HEX(7F)THEN W$="32K"
: IF K$=HEX(BF)THEN W$="48K"
: IF K$=HEX(28)THEN W$="128K"
0450 STR(P$,4,4)=W$
0460 IF P$="D. 64K"THEN P$=P$&" RS232/449 + sw. (3270.BSC)"
0462 IF P$="E. 128K"THEN P$=P$&" RS232/ACU (3274/SNA)"
0480 REM %Test Switch Position
: STR(I$,8,1),K$=HEX(00)
: $GIOREADUSEROPTIONSWITCH#7(458075104000400040084040400040DB40404032401040
4040C3400540407510400240004000404040004580751040014000400140404010C640,L$
)STR(I$,8,1)
0485 K$=STR(I$,8,1)
0490 IF K$=HEX(01)THEN P$=P$&" no ACU/X21"
: IF K$=HEX(02)THEN P$=P$&" ACU"
: IF K$=HEX(03)THEN P$=P$&" X21"
0500 REM PRINT P$
: RETURN