Listing of file='3270U1' on disk='vmedia/bsc_3271_rel_1.14.04.wvd.zip'
# Sector 2430, program filename = '3270U1' 0010 REM 3270U1 03/20/91, 3270 Universal Loader,COPYRIGHT WANG LABS, 1980 0020 COM CLEAR 0030 REM In order to reduce the memory needs of the universal area 0040 REM the REM statement has been removed from the other loader modules 0050 REM ."3270U1" determines if the CPU has been configured correctly. 0060 REM ."3270U2" dimensions the COMmon global variables. 0070 REM ."3270U3" initializes the COMmon global variables. 0080 REM ."3270U4" is DEFFNs @"3270UNIV" - $ RELEASE PART and $BREAK ! 0090 REM .Examine partition information 0100 A=0 0110 A$=$PSTAT(A+1) : ERRORGOTO 130 0120 A=A+1 : IF A<16THEN 110 0130 IF A=1THEN 150 0135 A=#PART : A$=$PSTAT(A) 0150 IF STR(A$,9,1)="M"AND STR(A$,11,3)<>HEX(010500)THEN 250 0155 IF STR(A$,9,1)="W"AND STR(A$,11,3)<HEX(001200)THEN 250 0160 REM .O.K.to load 0180 REM .Initialize critical variables 0190 REM .Then load 3270 Universal partition 0200 LOAD DC T#0,"3270U2 " : E=ERR : IF E>0THEN 200 0250 STOP "Universal partition must be bank 1 with 2.5K memory"