6 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.screx   +++|PRGM SCREX;
00002  M01S00002.screx   +++|# TITLE SCREX - SCREEN/LINE EXECUTIVE PROGRAM. #
00003  M01S00003.screx   +++|
00004  M01S00004.screx   +++|BEGIN  # SCREX #
00005  M01S00005.screx   +++|
00006  M01S00006.screx   +++|#
00007  M01S00007.screx   +++|***  SCREX - SCREEN/LINE EXECUTIVE PROGRAM.
00008  M01S00008.screx   +++|*
00009  M01S00009.screx   +++|*    *SCREX* MANAGES THE SCREEN AND LINE COMMANDS
00010  M01S00010.screx   +++|*    AND ALLOWS THE USER TO SPECIFY THE MODE OF
00011  M01S00011.screx   +++|*    OPERATION, AND OPTIONALLY THE TERMINAL MODEL
00012  M01S00012.screx   +++|*    BEING USED.  *SCREX* INVOKES A CALL TO THE
00013  M01S00013.screx   +++|*    LOADER TO LOCATE A TERMINAL-DEFINITION CAPSULE,
00014  M01S00014.screx   +++|*    WHICH IT COPIES ONTO THE FILE *ZZZZTRM*.  IT
00015  M01S00015.screx   +++|*    THEN WRITES OUT THE TERMINAL INITIALIZATION
00016  M01S00016.screx   +++|*    SEQUENCE FOUND IN THE LOADED CAPSULE.
00017  M01S00017.screx   +++|*
00018  M01S00018.screx   +++|*    PRGM SCREX
00019  M01S00019.screx   +++|*
00020  M01S00020.screx   +++|*    ENTRY     *SCREX* HAS TWO ENTRY POINTS, *SCREEN* AND *LINE*.
00021  M01S00021.screx   +++|*
00022  M01S00022.screx   +++|*    EXIT      OBJECT ROUTINE EXECUTED.
00023  M01S00023.screx   +++|*
00024  M01S00024.screx   +++|*    NOTES     *SCREX* USES BOTH *SYMPL* AND *COMPASS* ROUTINES.
00025  M01S00025.screx   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00026.281l803 ---|*    COPYRIGHT CONTROL DATA CORPORATION, 1984.
00027  M01S00001.281l803 +++|*    COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00028  M01S00027.screx   +++|#
00029  M01S00028.screx   +++|
00030  M01S00029.screx   +++|  XREF
00031  M01S00030.screx   +++|    BEGIN
00032  M01S00031.screx   +++|    PROC PF;                         # GET *TERMLIB* FILE #
00033  M01S00032.screx   +++|    PROC SCRCCK;                     # CHECK CAPSULE, GET LENGTH #
00034  M01S00001.ns2274  +++|    PROC SCRCIS;                     # CHECK INTERACTIVE STATUS #
00035  M01S00033.screx   +++|    PROC SCRCZF;                     # CREATE *ZZZZTRM* FILE #
00036  M01S00034.screx   +++|    PROC SCRFST;                     # FILE STATUS CHECK #
00037  M01S00035.screx   +++|    PROC SCRGIS;                     # GET INIT. SEQUENCE #
00038  M01S00036.screx   +++|    PROC SCRISR;                     # ISSUE SYSTEM REQUEST #
00039  M01S00037.screx   +++|    PROC SCRLCP;                     # LOAD TERMINAL CAPSULE #
00040  M01S00038.screx   +++|    PROC SCRPKP;                     # PROCESS PARAMETERS #
00041  M01S00039.screx   +++|    PROC SCRRET;                     # RETURN *TERMLIB* FILE #
00042  M01S00040.screx   +++|    PROC SCRRTA;                     # RESIDENT TERMCAP ADDRESS #
00043  M01S00041.screx   +++|    PROC SCRRZF;                     # READ *ZZZZTRM* FILE #
00044  M01S00001.ns2254  +++|    PROC SCRUGD;                     # UNLOAD GROUP DIRECTORY #
00045  M01S00042.screx   +++|    PROC VDTABT$;                    # TERMINATE ABNORMALLY #
00046  M01S00043.screx   +++|    PROC VDTCLO;                     # CLOSE THE OUTPUT FET #
00047  M01S00044.screx   +++|    PROC VDTGSL;                     # GET SCREEN/LINE MODE #
00048  M01S00045.screx   +++|    PROC VDTGTA;                     # GET TERMCAP ADDRESS #
00049  M01S00046.screx   +++|    PROC VDTGTN;                     # GET TERMINAL MNEMONIC #
00050  M01S00047.screx   +++|    PROC VDTGTO;                     # GET TERMINAL ORDINAL #
00051  M01S00048.screx   +++|    PROC VDTMSG$;                    # ISSUE ERROR MESSAGE #
00052  M01S00049.screx   +++|    PROC VDTOPN;                     # OPEN THE OUTPUT FET #
00053  M01S00050.screx   +++|    PROC VDTSSL;                     # SET SCREEN/LINE MODE #
00054  M01S00051.screx   +++|    PROC VDTWTC;                     # WRITE THE INIT. SEQ. #
00055  M01S00052.screx   +++|    END
00056  M01S00053.screx   +++|
00057  M01S00054.screx   +++|  XDEF
00058  M01S00055.screx   +++|    BEGIN
00059  M01S00056.screx   +++|    LABEL LINE;                       # LINE DIRECTIVE #
00060  M01S00057.screx   +++|    LABEL SCREEN;                     # SCREEN DIRECTIVE #
00061  M01S00058.screx   +++|    END
00062  M01S00059.screx   +++|
00063  M01S00060.screx   +++|  ITEM ERR1       C(32) =  "TERMINAL MODEL NOT YET SPECIFIED";
00064  M01S00061.screx   +++|                                     # ERROR MESSAGE #
00065  M01S00062.screx   +++|  ITEM ERR1T      I = 0;             # END OF ERROR MESSAGE #
00066  M01S00063.screx   +++|  ITEM ERR2       C(29) =  "TERMINAL DEFINITION NOT FOUND";
00067  M01S00064.screx   +++|                                     # ERROR MESSGE #
00068  M01S00065.screx   +++|  ITEM ERR2T      I = 0;             # END OF ERROR MESSAGE #
00069  M01S00066.screx   +++|  ITEM ERR3       C(25) =  "DEFINITION FILE NOT FOUND";
00070  M01S00067.screx   +++|                                     # ERROR MESSGE #
00071  M01S00068.screx   +++|  ITEM ERR3T      I = 0;             # END OF ERROR MESSAGE #
00072  M01S00069.screx   +++|  ITEM I          I;                 # INTEGER VARIABLE #
00073  M01S00070.screx   +++|  ITEM MODE       I;                 # DIRECTIVE MODE VARIABLE #
00074  M01S00002.ns2274  +++|  ITEM SCRIST     B;                 # INTERACTIVE STATUS FLAG #
00075  M01S00071.screx   +++|  ITEM SCRLCA     I;                 # LOADED CAPSULE ADDRESS #
00076  M01S00072.screx   +++|  ITEM SCRMDL     I;                 # MODEL ORDINAL(0 IF UNREC.)#
00077  M01S00073.screx   +++|  ITEM SCRMOD     I;                 # MODE(LINE = 0,SCREEN = 1)#
00078  M01S00074.screx   +++|  ITEM SCRPFF     I;                 # PERMANENT FILE FOUND #
00079  M01S00075.screx   +++|  ITEM SCRPFN     C(7) = "TERMLIB";  # *PFM* PARAMETER #
00080  M01S00076.screx   +++|  ITEM SCRRCA     I;                 # RESIDENT CAPSULE ADDRESS #
00081  M01S00001.ns2248  +++|  ITEM SCRSTS     B;                 # *TERMLIB* STATUS FLAG #
00082  M01S00077.screx   +++|  ITEM SCRTCF     B;                 # TERMCAP FOUND #
00083  M01S00002.ns2248  +++|  ITEM SCRTFL     B;                 # *TERMLIB* FILE LOCAL #
00084  M01S00078.screx   +++|  ITEM SCRTRM     C(7) = "Z Z Z Z";  # USER-SUPPLIED MNEMONIC #
00085  M01S00003.ns2248  +++|  ITEM SCRTRP     B;                 # *TERMLIB* RETRIEVED BY *PF* #
00086  M01S00079.screx   +++|  ITEM SCRUSN     C(7) = "LIBRARY";  # ALTERNATE USER NUMBER #
00087  M01S00080.screx   +++|  ITEM SCRZBA     I;                 # *ZZZZTRM* BUFFER ADDRESS #
00088  M01S00081.screx   +++|  ITEM SCRZFE     B;                 # *ZZZZTRM* FILE EXISTS FLAG #
00089  M01S00082.screx   +++|  ITEM SCRZTM     C(7);              # Z-PREFIXED TERM-MNEMONIC #
00090  M01S00002.ns2254  +++|  ITEM UNLOAD     B;                 # UNLOAD GROUP DIRECTORY #

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00083.ns2254  ---|

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00084.ns2254  ---|
00093  M01S00003.ns2254  +++|  ARRAY NONESTR[0:0] S(1);
00094  M01S00004.ns2254  +++|    BEGIN
00095  M01S00005.ns2254  +++|    ITEM NONEKEY  C(00,00,04) = ["NONE"];  # NONE OPTION STRING #
00096  M01S00006.ns2254  +++|    ITEM ZEROES   I(00,24,18) = [ 0 ];  # ZERO-FILL #
00097  M01S00007.ns2254  +++|    ITEM NONE     C(00,00,07);       # ZERO-FILLED STRING #
00098  M01S00008.ns2254  +++|    END
00099  M01S00085.screx   +++|

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00086.ns2248  ---|  PROC SCRGTC(SCRZTM,SCRTCF);
00101  M01S00004.ns2248  +++|  PROC SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP);
00102  M01S00087.screx   +++|  # TITLE SCRGTC - GET TERMINAL CAPSULE. #
00103  M01S00088.screx   +++|
00104  M01S00089.screx   +++|  BEGIN  # SCRGTC #
00105  M01S00090.screx   +++|
00106  M01S00091.screx   +++|  #
00107  M01S00092.screx   +++|  ***  SCRGTC - GET TERMINAL CAPSULE.
00108  M01S00093.screx   +++|  *
00109  M01S00094.screx   +++|  *    *SCRGTC* CALLS *SCRLCP* TO LOAD A CAPSULE GIVEN THE
00110  M01S00095.screx   +++|  *    CAPSULE NAME, WHICH RETURNS THE ADDRESS OF THE CAPSULE
00111  M01S00096.screx   +++|  *    IF SUCCESSFULLY LOADED.  IF SO, THE ROUTINE *SCRCZF*
00112  M01S00097.screx   +++|  *    CREATES A FILE NAMED *ZZZZTRM* AND COPIES THIS CAPSULE
00113  M01S00098.screx   +++|  *    RECORD INTO IT.  *SCRCZF* THEN MARKS THE *ZZZZTRM* FILE
00114  M01S00099.screx   +++|  *    NON-RETURNABLE BY GLOBAL CLEAR.
00115  M01S00100.screx   +++|  *

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00101.ns2248  ---|  *    PROC SCRGTC(SCRZTM,SCRTCF)
00117  M01S00005.ns2248  +++|  *    PROC SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP)
00118  M01S00102.screx   +++|  *
00119  M01S00103.screx   +++|  *                SCRZTM = Z-PREFIXED TERMINAL MNEMONIC.
00120  M01S00104.screx   +++|  *                SCRTCF = TERMCAP FOUND FLAG RETURNED.
00121  M01S00006.ns2248  +++|  *                SCRSTS = *TERMLIB* STATUS FLAG.
00122  M01S00007.ns2248  +++|  *                SCRTRP = *TERMLIB* RETRIEVED BY *PF*.
00123  M01S00105.screx   +++|  *

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00106.ns2248  ---|  *    ENTRY     OBJECT ROUTINE CALLED WITH TERMINAL MNEMONIC.
00125  M01S00008.ns2248  +++|  *    ENTRY     OBJECT ROUTINE CALLED WITH TERMINAL MNEMONIC,
00126  M01S00009.ns2248  +++|  *              *TERMLIB* STATUS FLAG, AND FLAG TO RETURN *TERMLIB*.
00127  M01S00107.screx   +++|  *
00128  M01S00108.screx   +++|  *    EXIT      COMPLETION FLAG RETURNED TO CALLING ROUTINE.
00129  M01S00109.screx   +++|  *
00130  M01S00110.screx   +++|  *    NOTES     THE *SCRGTC* ROUTINES ARE COMPASS MACROS.
00131  M01S00111.screx   +++|  *

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00112.281l803 ---|  *    COPYRIGHT CONTROL DATA CORPORATION, 1984.
00133  M01S00002.281l803 +++|  *    COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00134  M01S00113.screx   +++|  #
00135  M01S00114.screx   +++|
00136  M01S00115.screx   +++|
00137  M01S00116.screx   +++|  ITEM SCRCLS     I;                 # CAPSULE LOADED SUCCESSFULLY #
00138  M01S00117.screx   +++|  ITEM SCRLCA     I;                 # LOADED CAPSULE ADDRESS #
00139  M01S00010.ns2248  +++|  ITEM SCRSTS     B;                 # *TERMLIB* STATUS FLAG #
00140  M01S00118.screx   +++|  ITEM SCRTCF     B;                 # TERMCAP FOUND #
00141  M01S00119.screx   +++|  ITEM SCRTCL     I;                 # TERMINAL CAPSULE LENGTH #
00142  M01S00120.screx   +++|  ITEM SCRTCV     B;                 # TERMINAL CAPSULE VALID #
00143  M01S00011.ns2248  +++|  ITEM SCRTRP     B;                 # *TERMLIB* RETRIEVED BY *PF* #
00144  M01S00121.screx   +++|  ITEM SCRZTM     C(7);              # TERMINAL MNEMONIC #
00145  M01S00122.screx   +++|
00146  M01S00123.screx   +++|
00147  M01S00124.screx   +++|  SCRTCF = FALSE;                    # INITIALIZE FOUND FLAG #
00148  M01S00125.screx   +++|  SCRLCP(SCRZTM,SCRLCA,SCRCLS);      # LOAD TERMINAL CAPSULE #
00149  M01S00126.screx   +++|  IF SCRCLS EQ 0 THEN                # CAPSULE LOADED SUCCESSFULLY #
00150  M01S00127.screx   +++|    BEGIN
00151  M01S00128.screx   +++|    SCRTCV = FALSE;                  # INITIALIZE AS INVALID #

Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00129.ns2248  ---|    SCRCCK(SCRLCA,SCRZTM,SCRTCV,SCRTCL);  # VALIDATE TERMCAP #
00153  M01S00012.ns2248  +++|    SCRCCK(SCRLCA,SCRZTM,SCRTCV,SCRTCL,SCRSTS);  # VALIDATE TERMCAP #
00154  M01S00130.screx   +++|    IF SCRTCV THEN                   # IF VALID *TDU* TERMCAP #
00155  M01S00131.screx   +++|      BEGIN
00156  M01S00132.screx   +++|      SCRRET("ZZZZTRM");             # RETURN *ZZZZTRM* FILE #
00157  M01S00133.screx   +++|      SCRCZF(SCRLCA,SCRTCL);         # CREATE *ZZZZTRM* FILE #
00158  M01S00134.screx   +++|      SCRMDL = 1;                    # USER DEFINED MODEL #
00159  M01S00135.screx   +++|      SCRMOD = MODE;                 # DIRECTIVE SPECIFIED MODE #
00160  M01S00136.screx   +++|      VDTSSL(SCRMDL,SCRMOD);         # SET MODEL, MODE #
00161  M01S00137.screx   +++|      SCRISR(SCRMOD);                # ISSUE SYSTEM REQUEST #
00162  M01S00138.screx   +++|      SCROUT(SCRLCA,SCRMOD);         # PRINT INIT. SEQUENCE #
00163  M01S00139.screx   +++|      SCRTCF = TRUE;                 # TERMINAL CAPSULE FOUND #
00164  M01S00013.ns2248  +++|      SCRRET("ZZZZZOU");             # RETURN *ZZZZZOU* FILE #
00165  M01S00140.screx   +++|      END
00166  M01S00141.screx   +++|    END
00167  M01S00014.ns2248  +++|  IF SCRTRP THEN
00168  M01S00015.ns2248  +++|    BEGIN                            # IF *PF* RETRIEVED *TERMLIB* #
00169  M01S00142.screx   +++|    SCRRET(SCRPFN);                  # RETURN LOCAL FILE #
00170  M01S00016.ns2248  +++|    END
00171  M01S00143.screx   +++|
00172  M01S00144.screx   +++|  END  # SCRGTC #
00173  M01S00145.screx   +++|
00174  M01S00146.screx   +++|  PROC SCROUT(SCRLCA,SCRMOD);
00175  M01S00147.screx   +++|  # TITLE SCROUT - OUTPUT TERMINAL INITIALIZATION SEQUENCE #
00176  M01S00148.screx   +++|
00177  M01S00149.screx   +++|  BEGIN  # SCROUT #
00178  M01S00150.screx   +++|
00179  M01S00151.screx   +++|  #
00180  M01S00152.screx   +++|  ***  SCROUT - OUTPUT TERMINAL INIT. SEQUENCE *
00181  M01S00153.screx   +++|  *
00182  M01S00154.screx   +++|  *    *SCROUT* CALLS *VDTOPN* TO OPEN AND INITIALIZE THE
00183  M01S00155.screx   +++|  *    OUTPUT FET.  *SCRGIS* IS THEN CALLED TO GET THE
00184  M01S00156.screx   +++|  *    TERMINAL INITIALIZATION SEQUENCE FROM THE LOADED
00185  M01S00157.screx   +++|  *    CAPSULE, CONVERTING THE SEQUENCE FROM 7-BIT BYTES
00186  M01S00158.screx   +++|  *    TO 12-BIT TRANSPARENT BYTES.  THE SEQUENCE IS LEFT
00187  M01S00159.screx   +++|  *    IN THE *SCRISB* BUFFER, WHICH IS WRITTEN BY *VDTWTC*
00188  M01S00160.screx   +++|  *    TO THE OUTPUT FET, AND *VDTCLO* CLOSES THIS FET.
00189  M01S00161.screx   +++|  *
00190  M01S00162.screx   +++|  *    PROC SCROUT(ADDRESS,MODE)
00191  M01S00163.screx   +++|  *
00192  M01S00164.screx   +++|  *                ADDRESS = LOADED CAPSULE OR FILE BUFFER ADDRESS.
00193  M01S00165.screx   +++|  *                MODE = MODE SPECIFIED BY USER.
00194  M01S00166.screx   +++|  *
00195  M01S00167.screx   +++|  *    ENTRY     ADDRESS = LOADED CAPSULE OR FILE BUFFER ADD RESS.
00196  M01S00168.screx   +++|  *              MODE = 0, IF LINE MODE,
00197  M01S00169.screx   +++|  *                   = 1, IF SCREEN MODE.
00198  M01S00170.screx   +++|  *
00199  M01S00171.screx   +++|  *    EXIT      OBJECT ROUTINE EXECUTED.
00200  M01S00172.screx   +++|  *
00201  M01S00173.screx   +++|  *    NOTES     THE *SCROUT* ROUTINES ARE COMPASS ROUTINES.
00202  M01S00174.screx   +++|  *

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00175.281l803 ---|  *    COPYRIGHT CONTROL DATA CORPORATION, 1984.
00204  M01S00003.281l803 +++|  *    COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00205  M01S00176.screx   +++|  #
00206  M01S00177.screx   +++|
00207  M01S00001.ns2288  +++|  BASED ARRAY PARM [0:0] P(1);;
00208  M01S00178.screx   +++|
00209  M01S00179.screx   +++|  ITEM SCRISB     I;                 # SEQUENCE BUFFER #
00210  M01S00180.screx   +++|  ITEM SCRLCA     I;                 # LOADED CAPSULE ADDRESS #
00211  M01S00181.screx   +++|  ITEM SCRMOD     I;                 # TERMINAL MODE #
00212  M01S00182.screx   +++|  ITEM SCRREC     I;                 # RECALL PARAMETER #
00213  M01S00183.screx   +++|
00214  M01S00184.screx   +++|  SCRREC = 1;                        # SET AUTO RECALL #
00215  M01S00185.screx   +++|  SCRGIS(SCRLCA,SCRMOD,SCRISB);      # GET SEQUENCE #

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00186.ns2288  ---|  VDTOPN;                            # OPEN THE OUTPUT FET #

Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00187.ns2288  ---|  VDTWTC(SCRISB);                    # WRITE SEQUENCE #

Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00188.ns2288  ---|  VDTCLO(SCRREC);                    # CLOSE THE OUTPUT FET #
00219  M01S00002.ns2288  +++|  IF SCRISB NQ 0 THEN
00220  M01S00003.ns2288  +++|    BEGIN                            # IF NOT EMPTY SEQUENCE #
00221  M01S00004.ns2288  +++|    VDTOPN;                          # OPEN THE OUTPUT FET #
00222  M01S00005.ns2288  +++|    P<PARM> = SCRISB;
00223  M01S00006.ns2288  +++|    VDTWTC(PARM);                    # WRITE SEQUENCE #
00224  M01S00007.ns2288  +++|    VDTCLO(SCRREC);                  # CLOSE THE OUTPUT FET #
00225  M01S00008.ns2288  +++|    END
00226  M01S00189.screx   +++|
00227  M01S00190.screx   +++|  END  # SCROUT #
00228  M01S00191.screx   +++|
00229  M01S00192.screx   +++|
00230  M01S00193.screx   +++|SCREEN:                              # SCREEN ENTRY POINT #
00231  M01S00194.screx   +++|
00232  M01S00195.screx   +++|  MODE = 1;                          # INITIALIZE MODE TO SCREEN #
00233  M01S00196.screx   +++|  GOTO SCRMAIN;                      # JUMP TO MAIN BODY OF *SCREX* #
00234  M01S00197.screx   +++|
00235  M01S00198.screx   +++|LINE:                                # LINE ENTRY POINT #
00236  M01S00199.screx   +++|
00237  M01S00200.screx   +++|  MODE = 0;                          # INITIALIZE MODE TO LINE #
00238  M01S00201.screx   +++|  GOTO SCRMAIN;                      # JUMP TO MAIN BODY OF *SCREX* #
00239  M01S00202.screx   +++|
00240  M01S00203.screx   +++|
00241  M01S00204.screx   +++|SCRMAIN:
00242  M01S00205.screx   +++|
00243  M01S00003.ns2274  +++|  SCRCIS(SCRIST);                    # CHECK INTERACTIVE STATUS #
00244  M01S00004.ns2274  +++|  IF NOT(SCRIST) THEN                # IF NOT INTERACTIVE  #
00245  M01S00005.ns2274  +++|    STOP;                            # HALT PROGRAM EXECUTION #

Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00206.ns2254  ---|  SCRPKP(SCRTRM);                    # PROCESS PARAMETERS #
00247  M01S00009.ns2254  +++|  SCRPKP(SCRTRM);                    # PROCESS PARAMETERS #
00248  M01S00010.ns2254  +++|  IF (SCRTRM EQ NONE[0]) THEN        # NONE OPTION SPECIFIED #
00249  M01S00011.ns2254  +++|    BEGIN                            # NONE OPTION #
00250  M01S00012.ns2254  +++|    SCRMDL = 0;                      # SET CURRENT MODEL TO NONE #
00251  M01S00013.ns2254  +++|    SCRMOD = 0;                      # SET CURRENT MODE TO LINE #
00252  M01S00014.ns2254  +++|    VDTSSL(SCRMDL,SCRMOD);           # SET MODE, MODEL #
00253  M01S00015.ns2254  +++|    SCRISR(SCRMOD);                  # ISSUE SYSTEM REQUEST #
00254  M01S00016.ns2254  +++|    RETURN;
00255  M01S00017.ns2254  +++|    END
00256  M01S00207.screx   +++|  IF SCRTRM EQ "Z Z Z Z" THEN        # IF MODEL NOT SPECIFIED #
00257  M01S00208.screx   +++|    BEGIN
00258  M01S00209.screx   +++|    VDTGSL(SCRMDL,SCRMOD);           # GET CURRENT MODEL, MODE #
00259  M01S00210.screx   +++|    IF SCRMDL NQ 0 THEN              # IF PREVIOUS MODEL SPECIFIED #
00260  M01S00211.screx   +++|      BEGIN
00261  M01S00212.screx   +++|      IF SCRMDL NQ 1 THEN            # IF RESIDENT MODEL SPECIFIED #
00262  M01S00213.screx   +++|        BEGIN
00263  M01S00214.screx   +++|        SCRMOD = MODE;               # SET CURRENT MODE #
00264  M01S00215.screx   +++|        VDTGTA(SCRMDL,SCRRCA);       # GIVEN MODEL, RETURN ADDRESS #
00265  M01S00216.screx   +++|        SCROUT(SCRRCA,SCRMOD);       # SEND INITIALIZATION SEQUENCE #
00266  M01S00217.screx   +++|        VDTSSL(SCRMDL,SCRMOD);       # SET MODE, MODEL #
00267  M01S00218.screx   +++|        SCRISR(SCRMOD);              # ISSUE SYSTEM REQUEST #
00268  M01S00219.screx   +++|        END
00269  M01S00220.screx   +++|      ELSE                           # NON-RESIDENT MODEL SPECIFIED #
00270  M01S00221.screx   +++|        BEGIN
00271  M01S00222.screx   +++|        SCRZFE = FALSE;
00272  M01S00223.screx   +++|        SCRPFN = "ZZZZTRM";
00273  M01S00224.screx   +++|        SCRFST(SCRPFN,SCRZFE);       # CHECK FOR LOCAL *ZZZZTRM* #
00274  M01S00225.screx   +++|        IF SCRZFE THEN               # IF LOCAL *ZZZZTRM* EXISTS #
00275  M01S00226.screx   +++|          BEGIN
00276  M01S00227.screx   +++|          SCRMOD = MODE;             # USER SPECIFIED MODE #
00277  M01S00228.screx   +++|          SCRRZF(SCRPFN,SCRZBA);     # READ INTO BUFFER #
00278  M01S00229.screx   +++|          SCROUT(SCRZBA,SCRMOD);     # SEND INITIALIZATION SEQUENCE #
00279  M01S00230.screx   +++|          VDTSSL(SCRMDL,SCRMOD);     # SET MODE, MODEL #
00280  M01S00231.screx   +++|          SCRISR(SCRMOD);            # ISSUE SYSTEM REQUEST #
00281  M01S00232.screx   +++|          END
00282  M01S00233.screx   +++|        ELSE                         # NO LOCAL *ZZZZTRM* #
00283  M01S00234.screx   +++|          BEGIN
00284  M01S00235.screx   +++|          VDTMSG$(ERR3,0,1);         # ERROR MESSAGE #
00285  M01S00236.screx   +++|          VDTABT$;                   # TERMINATE ABNORMALLY #
00286  M01S00237.screx   +++|          END
00287  M01S00238.screx   +++|        END
00288  M01S00239.screx   +++|      END
00289  M01S00240.screx   +++|    ELSE                             # NO PREVIOUS MODEL SPECIFIED #
00290  M01S00241.screx   +++|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00242.ns2254  ---|      VDTMSG$(ERR1,0,1);             # ERROR MESSAGE #

Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00243.ns2254  ---|      VDTABT$;                       # TERMINATE ABNORMALLY #
00293  M01S00018.ns2254  +++|      IF MODE EQ 0 THEN              # LINE MODE SPECIFIED #
00294  M01S00019.ns2254  +++|        BEGIN                        # LINE DIRECTIVE #
00295  M01S00020.ns2254  +++|        SCRMDL = 0;                  # SET CURRENT MODEL TO NONE #
00296  M01S00021.ns2254  +++|        SCRMOD = 0;                  # SET CURRENT MODE TO LINE #
00297  M01S00022.ns2254  +++|        VDTSSL(SCRMDL,SCRMOD);       # SET MODE, MODEL #
00298  M01S00023.ns2254  +++|        SCRISR(SCRMOD);              # ISSUE SYSTEM REQUEST #
00299  M01S00024.ns2254  +++|        END
00300  M01S00025.ns2254  +++|      ELSE
00301  M01S00026.ns2254  +++|        BEGIN                        # SCREEN DIRECTIVE #
00302  M01S00027.ns2254  +++|        VDTMSG$(ERR1,0,1);           # ERROR MESSAGE #
00303  M01S00028.ns2254  +++|        VDTABT$;                     # TERMINATE ABNORMALLY #
00304  M01S00029.ns2254  +++|        END
00305  M01S00244.screx   +++|      END
00306  M01S00245.screx   +++|    END                              # MODEL NOT SPECIFIED #
00307  M01S00246.screx   +++|  ELSE                               # MODEL WAS SPECIFIED #
00308  M01S00247.screx   +++|    BEGIN
00309  M01S00248.screx   +++|    C<0>SCRZTM = "Z";                # PREFIX MNEMONIC WITH "Z" #
00310  M01S00249.screx   +++|    FOR I = 1 STEP 1 UNTIL 6 DO
00311  M01S00250.screx   +++|      C<I>SCRZTM = C<I-1>SCRTRM;     # CONCAT *SCRTRM* TO *SCTZTM* #
00312  M01S00251.screx   +++|    VDTGTO(SCRMDL,SCRTRM);           # GET TERMINAL ORDINAL #
00313  M01S00252.screx   +++|    IF SCRMDL NQ 0 THEN              # IF TERMINAL TABLE RESIDENT #
00314  M01S00253.screx   +++|      BEGIN
00315  M01S00254.screx   +++|      SCRMOD = MODE;                 # SET DIRECTIVE MODE #
00316  M01S00255.screx   +++|      SCRRTA(SCRTRM,SCRLCA);         # GET TERMCAP ADDRESS #
00317  M01S00256.screx   +++|      SCROUT(SCRLCA,SCRMOD);         # PRINT INIT. SEQUENCE #
00318  M01S00257.screx   +++|      VDTSSL(SCRMDL,SCRMOD);         # SET MODE, MODEL #
00319  M01S00258.screx   +++|      SCRISR(MODE);                  # ISSUE SYSTEM REQUEST #
00320  M01S00259.screx   +++|      END
00321  M01S00260.screx   +++|    ELSE                             # TERMINAL TABLE NOT RESIDENT #
00322  M01S00261.screx   +++|      BEGIN
00323  M01S00030.ns2254  +++|      UNLOAD = FALSE;                # GROUP DIRECTORY UNLOAD FLAG #
00324  M01S00017.ns2248  +++|      SCRTRP = FALSE;

Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00262.ns2248  ---|      SCRGTC(SCRZTM,SCRTCF);         # GET LOCAL TERMINAL CAPSULE #
00326  M01S00018.ns2248  +++|      SCRSTS = FALSE;                # INITIALIZE *TERMLIB* STATUS #
00327  M01S00019.ns2248  +++|      SCRTFL = FALSE;
00328  M01S00020.ns2248  +++|      SCRTCF = FALSE;
00329  M01S00021.ns2248  +++|      SCRFST(SCRPFN,SCRTFL);         # CHECK IF *TERMLIB* IS LOCAL #
00330  M01S00022.ns2248  +++|      IF SCRTFL THEN
00331  M01S00023.ns2248  +++|        BEGIN                        # IF LOCAL *TERMLIB* FOUND #
00332  M01S00024.ns2248  +++|        SCRSTS = TRUE;
00333  M01S00025.ns2248  +++|        SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP);  # GET LOCAL CAPSULE #
00334  M01S00031.ns2254  +++|        UNLOAD = TRUE;
00335  M01S00026.ns2248  +++|        END
00336  M01S00263.screx   +++|      IF NOT SCRTCF THEN             # IF TERMINAL CAPSULE NOT FOUND #
00337  M01S00264.screx   +++|        BEGIN
00338  M01S00265.screx   +++|        PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,0);  # GET *SCRPFN* FILE #
00339  M01S00001.screx1  +++|        IF SCRPFF NQ 0 THEN
00340  M01S00002.screx1  +++|          BEGIN                      # IF GET FAILS, ATTACH #
00341  M01S00003.screx1  +++|          PF("ATTACH",SCRPFN,SCRPFN,"RC",SCRPFF,"NA",0,0);
00342  M01S00004.screx1  +++|          END
00343  M01S00266.screx   +++|        IF SCRPFF EQ 0 THEN          # IF FILE WAS FOUND #
00344  M01S00267.screx   +++|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00268.ns2248  ---|          SCRGTC(SCRZTM,SCRTCF);     # GET TERMINAL CAPSULE #
00346  M01S00027.ns2248  +++|          SCRSTS = TRUE;
00347  M01S00028.ns2248  +++|          SCRTRP = TRUE;             # *TERMLIB* RETRIEVED BY *PF* #
00348  M01S00032.ns2254  +++|          IF UNLOAD THEN             # IF LOADER CALLED BEFORE #
00349  M01S00033.ns2254  +++|            BEGIN
00350  M01S00034.ns2254  +++|            SCRUGD;                  # UNLOAD GROUP DIRECTORY #
00351  M01S00035.ns2254  +++|            UNLOAD = FALSE;          # GROUP DIRECTORY UNLOADED #
00352  M01S00036.ns2254  +++|            END
00353  M01S00029.ns2248  +++|          SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP);  # GET CAPSULE #
00354  M01S00037.ns2254  +++|          UNLOAD = TRUE;
00355  M01S00269.screx   +++|          END
00356  M01S00270.screx   +++|        IF NOT SCRTCF THEN           # IF TERMCAP NOT FOUND #
00357  M01S00271.screx   +++|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00272.ns2248  ---|          PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,0);
00359  M01S00030.ns2248  +++|          PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,"PN","0",0);
00360  M01S00031.ns2248  +++|                                     # GET *TERMLIB* FROM UN=LIBRARY #
00361  M01S00005.screx1  +++|          IF SCRPFF NQ 0 THEN
00362  M01S00006.screx1  +++|            BEGIN                    # IF GET FAILS, ATTACH #
00363  M01S00007.screx1  +++|            PF("ATTACH",SCRPFN,SCRPFN,"RC",SCRPFF,
00364  M01S00008.screx1  +++|               "UN",SCRUSN,"PN","0","NA",0,0);
00365  M01S00009.screx1  +++|            END
00366  M01S00273.screx   +++|          IF SCRPFF EQ 0 THEN        # IF FILE WAS FOUND #
00367  M01S00274.screx   +++|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00275.ns2248  ---|            SCRGTC(SCRZTM,SCRTCF);   # GET TERMINAL CAPSULE #
00369  M01S00032.ns2248  +++|            SCRSTS = FALSE;          # SET STATUS TO SYSTEM #
00370  M01S00033.ns2248  +++|            SCRTRP = TRUE;           # *TERMLIB* RETRIEVED BY *PF* #
00371  M01S00038.ns2254  +++|            IF UNLOAD THEN           # IF LOADER CALLED BEFORE #
00372  M01S00039.ns2254  +++|              BEGIN
00373  M01S00040.ns2254  +++|              SCRUGD;                # UNLOAD GROUP DIRECTORY #
00374  M01S00041.ns2254  +++|              END
00375  M01S00034.ns2248  +++|            SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP);  # GET CAPSULE #
00376  M01S00276.screx   +++|            END
00377  M01S00277.screx   +++|          IF NOT SCRTCF THEN         # IF TERMCAP NOT FOUND #
00378  M01S00278.screx   +++|            BEGIN
00379  M01S00279.screx   +++|            SCRMOD = 0;              # LINE MODE #
00380  M01S00280.screx   +++|            SCRMDL = 0;              # UNDEFINED ORDINAL #
00381  M01S00281.screx   +++|            VDTSSL(SCRMDL,SCRMOD);   # SET MODE, MODEL #
00382  M01S00282.screx   +++|            SCRISR(SCRMOD);          # ISSUE SYSTEM REQUEST #
00383  M01S00283.screx   +++|            VDTMSG$(ERR2,0,1);       # SEND MESSAGE TO USER #
00384  M01S00284.screx   +++|            VDTABT$;                 # TERMINATE ABNORMALLY #
00385  M01S00285.screx   +++|            END
00386  M01S00286.screx   +++|          END                        # TERMCAP NOT FOUND #
00387  M01S00287.screx   +++|        END                          # TERMCAP NOT FOUND #
00388  M01S00288.screx   +++|      END                            # TERMINAL TABLE NOT RESIDENT #
00389  M01S00289.screx   +++|    END                              # MODEL WAS SPECIFIED #

Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00290.ns2254  ---|
00391  M01S00042.ns2254  +++|
00392  M01S00291.screx   +++|END  # SCREX #                       # END OF *SCREX* PROGRAM #
00393  M01S00292.screx   +++|
00394  M01S00293.screx   +++|TERM