Listing of file='B327010' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 1022, program filename = 'B327010'
0010 REM B327010 12/08/82, 3270 LOADER,COPYRIGHT WANG LABS, 1980
0030 COM N$64,B$1,C$1,A,B,C
: SELECT PRINT 005(80)
: GOSUB 830
: SELECT @PART"3270UNIV"
: IF @C$=" "THEN @Z$=" "
: IF Z$=" "AND @Z$=" "THEN 1180
: IF Z$<>" "AND @Z$=" "THEN 130
: IF Z$=" "AND @Z$<>" "THEN 140
: GOSUB '99(0,"Request to load a configuration into the WANG 2200/3270 emul
ator")
: PRINT AT(6,0)
: IF Z$<>" "AND @Z$<>" "THEN 1220
0125 STOP "Invalid Z$ and @Z$"
0130 GOSUB 2210
: @C$=" "
: IF STR(Z$,1,1)="h"THEN 180
: B$=" "
: N$(5)="ASK?327B"
: LOAD DC T#0,N$(4)
0140 W$=@W$
: Z$=@Z$
: GOSUB 2210
: N$(5)="ASK?327A"
: LOAD DC T#0,N$(4)
0180 @P$(5)=" "
: STR(@P$(5),24)="None"
: STR(@P$(5),41)="No Spooling"
: B$="L"
: LOAD DC T#0,"B327020"
0830 A=0
0840 A=A+1
: A$=$PSTAT(A)
: ERRORGOTO 860
0845 IF STR(A$,17,8)<>"3270 MCT"THEN 840
: IF STR(A$,12,1)<HEX(03)THEN 1170
: RETURN
0860 IF A>1THEN 1200
: RETURN
0900 DEFFN'15
: PRINT HEX(03),,"Active 2200 system configuration"
: A=0
: PRINT ,". . . . . . . . 9 10 1 2 3 4 5 6 7 8 920 1 2 3 4 5 6 7 8 9"
0930 A$=$PSTAT(A+1)
: ERRORGOTO 1060
0940 PRINT "Partition ";A+1;" =",
: HEXPRINT STR(A$,1,29)
: PRINT STR(A$,9,1);" BASIC Release ";HEXOF(STR(A$,10,1));" ";
: PRINT " Memory bank=";HEXOF(STR(A$,11,1));
: PRINT " Size = ";HEXOF(STR(A$,12,1));" K";
: PRINT " Prog=";STR(A$,14,1);
: PRINT " Term = ";HEXOF(STR(A$,15,1));
: PRINT " Status=";STR(A$,16,1);
: PRINT "Global name=";STR(A$,17,8);
1020 PRINT " Last error=";HEXOF(STR(A$,25,1))
: PRINT
: A=A+1
: GOTO 930
1060 PRINT A;" Partitions configured";
: B=#PART
: PRINT " This is Partition";B,
: C=#TERM
: PRINT " Terminal ";C
: PRINT
: PRINT "MCT task should load into Partition ";A;" which is now assigned"
: PRINT "Global name=";STR(A$,17,8);
: PRINT " Size = ";HEXOF(STR(A$,12,2));
: PRINT " Status=";STR(A$,16,1);
1130 PRINT " Term = ";HEXOF(STR(A$,15,1))
: RETURN
1170 PRINT HEX(03)
: STOP "MCT partition does not have sufficient memory"
1180 GOSUB '99(5,"No cluster is loaded")
1190 LOAD DC T#0,N$(1)
1200 GOSUB '99(20,"MCT task is not loaded into Background partition")
1210 LOAD DC T#0,N$(1)
1220 PRINT HEX(0E);BOX(1,79);" MCT Task already loaded","The configuration req
uested is ";
: IF Z$<>@Z$THEN 1255
: PRINT "the same"
: GOTO 1290
1255 PRINT "different "
: PRINT TAB(12);"Printers";TAB(38);"Prompts";TAB(53);"Stations"
: PRINT "New = ";Z$
: PRINT "Loaded = ";@Z$
1290 PRINT
: C$=" "
: PRINT "Key '0 to Abort to START"
: PRINT "Key L to Load system anew"
: PRINT "Key A to Attach to the system already loaded"
1330 KEYIN C$,,1340
: GOTO 1360
1340 IF C$<>HEX(00)THEN 1330
: PRINT "'00"
: GOTO 1210
1360 IF C$="L"THEN 1370
: IF C$="A"THEN 1375
: GOTO 1330
1370 PRINT "Loading anew"
: GOTO 130
1375 PRINT "Attach"
: GOTO 140
2210 A$="0"
: STR(A$,2)=STR(Z$,25,2)
: SELECT #6<STR(A$,1,3)>
: $IF ON #6,2230
: ERRORGOTO 2300
2230 ADD(STR(A$,2,1),08)
: SELECT #7<STR(A$,1,3)>
: $IF ON #7,2270
: ERRORGOTO 2300
2270 RETURN
2300 STR(A$,5)="T.C. Board address has not been configured into device table"
: GOSUB '99(5,A$)
: GOTO 1190
9390 DEFFN'99(A,A$)
: PRINT HEX(03);BOX(5,79);HEX(0A0A0E);TAB(40-LEN(A$)/2);A$
: IF A=0THEN RETURN
: SELECT P2
: FOR A=ATO 0STEP -1
: PRINT A;HEX(0C)
: NEXT A
: SELECT P
: RETURN