image of READY prompt

Wang2200.org

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"