cdc:nos2.source:opl.opl871:deck:screx
Deck SCREX
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.screx +++|PRGM SCREX; 00002 M00S00002.screx +++|# TITLE SCREX - SCREEN/LINE EXECUTIVE PROGRAM. # 00003 M00S00003.screx +++| 00004 M00S00004.screx +++|BEGIN # SCREX # 00005 M00S00005.screx +++| 00006 M00S00006.screx +++|# 00007 M00S00007.screx +++|*** SCREX - SCREEN/LINE EXECUTIVE PROGRAM. 00008 M00S00008.screx +++|* 00009 M00S00009.screx +++|* *SCREX* MANAGES THE SCREEN AND LINE COMMANDS 00010 M00S00010.screx +++|* AND ALLOWS THE USER TO SPECIFY THE MODE OF 00011 M00S00011.screx +++|* OPERATION, AND OPTIONALLY THE TERMINAL MODEL 00012 M00S00012.screx +++|* BEING USED. *SCREX* INVOKES A CALL TO THE 00013 M00S00013.screx +++|* LOADER TO LOCATE A TERMINAL-DEFINITION CAPSULE, 00014 M00S00014.screx +++|* WHICH IT COPIES ONTO THE FILE *ZZZZTRM*. IT 00015 M00S00015.screx +++|* THEN WRITES OUT THE TERMINAL INITIALIZATION 00016 M00S00016.screx +++|* SEQUENCE FOUND IN THE LOADED CAPSULE. 00017 M00S00017.screx +++|* 00018 M00S00018.screx +++|* PRGM SCREX 00019 M00S00019.screx +++|* 00020 M00S00020.screx +++|* ENTRY *SCREX* HAS TWO ENTRY POINTS, *SCREEN* AND *LINE*. 00021 M00S00021.screx +++|* 00022 M00S00022.screx +++|* EXIT OBJECT ROUTINE EXECUTED. 00023 M00S00023.screx +++|* 00024 M00S00024.screx +++|* NOTES *SCREX* USES BOTH *SYMPL* AND *COMPASS* ROUTINES. 00025 M00S00025.screx +++|*
| Line S00026 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00026.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00028 M00S00027.screx +++|# 00029 M00S00028.screx +++| 00030 M00S00029.screx +++| XREF 00031 M00S00030.screx +++| BEGIN 00032 M00S00031.screx +++| PROC PF; # GET *TERMLIB* FILE # 00033 M00S00032.screx +++| PROC SCRCCK; # CHECK CAPSULE, GET LENGTH #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2274 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00001.ns2274 +++| PROC SCRCIS; # CHECK INTERACTIVE STATUS # 00035 M00S00033.screx +++| PROC SCRCZF; # CREATE *ZZZZTRM* FILE # 00036 M00S00034.screx +++| PROC SCRFST; # FILE STATUS CHECK # 00037 M00S00035.screx +++| PROC SCRGIS; # GET INIT. SEQUENCE # 00038 M00S00036.screx +++| PROC SCRISR; # ISSUE SYSTEM REQUEST # 00039 M00S00037.screx +++| PROC SCRLCP; # LOAD TERMINAL CAPSULE # 00040 M00S00038.screx +++| PROC SCRPKP; # PROCESS PARAMETERS # 00041 M00S00039.screx +++| PROC SCRRET; # RETURN *TERMLIB* FILE # 00042 M00S00040.screx +++| PROC SCRRTA; # RESIDENT TERMCAP ADDRESS # 00043 M00S00041.screx +++| PROC SCRRZF; # READ *ZZZZTRM* FILE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00001.ns2254 +++| PROC SCRUGD; # UNLOAD GROUP DIRECTORY # 00045 M00S00042.screx +++| PROC VDTABT$; # TERMINATE ABNORMALLY # 00046 M00S00043.screx +++| PROC VDTCLO; # CLOSE THE OUTPUT FET # 00047 M00S00044.screx +++| PROC VDTGSL; # GET SCREEN/LINE MODE # 00048 M00S00045.screx +++| PROC VDTGTA; # GET TERMCAP ADDRESS # 00049 M00S00046.screx +++| PROC VDTGTN; # GET TERMINAL MNEMONIC # 00050 M00S00047.screx +++| PROC VDTGTO; # GET TERMINAL ORDINAL # 00051 M00S00048.screx +++| PROC VDTMSG$; # ISSUE ERROR MESSAGE # 00052 M00S00049.screx +++| PROC VDTOPN; # OPEN THE OUTPUT FET # 00053 M00S00050.screx +++| PROC VDTSSL; # SET SCREEN/LINE MODE # 00054 M00S00051.screx +++| PROC VDTWTC; # WRITE THE INIT. SEQ. # 00055 M00S00052.screx +++| END 00056 M00S00053.screx +++| 00057 M00S00054.screx +++| XDEF 00058 M00S00055.screx +++| BEGIN 00059 M00S00056.screx +++| LABEL LINE; # LINE DIRECTIVE # 00060 M00S00057.screx +++| LABEL SCREEN; # SCREEN DIRECTIVE # 00061 M00S00058.screx +++| END 00062 M00S00059.screx +++| 00063 M00S00060.screx +++| ITEM ERR1 C(32) = "TERMINAL MODEL NOT YET SPECIFIED"; 00064 M00S00061.screx +++| # ERROR MESSAGE # 00065 M00S00062.screx +++| ITEM ERR1T I = 0; # END OF ERROR MESSAGE # 00066 M00S00063.screx +++| ITEM ERR2 C(29) = "TERMINAL DEFINITION NOT FOUND"; 00067 M00S00064.screx +++| # ERROR MESSGE # 00068 M00S00065.screx +++| ITEM ERR2T I = 0; # END OF ERROR MESSAGE # 00069 M00S00066.screx +++| ITEM ERR3 C(25) = "DEFINITION FILE NOT FOUND"; 00070 M00S00067.screx +++| # ERROR MESSGE # 00071 M00S00068.screx +++| ITEM ERR3T I = 0; # END OF ERROR MESSAGE # 00072 M00S00069.screx +++| ITEM I I; # INTEGER VARIABLE # 00073 M00S00070.screx +++| ITEM MODE I; # DIRECTIVE MODE VARIABLE #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2274 |
Seq # *Modification Id* Act ----------------------------+ 00074 M01S00002.ns2274 +++| ITEM SCRIST B; # INTERACTIVE STATUS FLAG # 00075 M00S00071.screx +++| ITEM SCRLCA I; # LOADED CAPSULE ADDRESS # 00076 M00S00072.screx +++| ITEM SCRMDL I; # MODEL ORDINAL(0 IF UNREC.)# 00077 M00S00073.screx +++| ITEM SCRMOD I; # MODE(LINE = 0,SCREEN = 1)# 00078 M00S00074.screx +++| ITEM SCRPFF I; # PERMANENT FILE FOUND # 00079 M00S00075.screx +++| ITEM SCRPFN C(7) = "TERMLIB"; # *PFM* PARAMETER # 00080 M00S00076.screx +++| ITEM SCRRCA I; # RESIDENT CAPSULE ADDRESS #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00081 M01S00001.ns2248 +++| ITEM SCRSTS B; # *TERMLIB* STATUS FLAG # 00082 M00S00077.screx +++| ITEM SCRTCF B; # TERMCAP FOUND #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00083 M01S00002.ns2248 +++| ITEM SCRTFL B; # *TERMLIB* FILE LOCAL # 00084 M00S00078.screx +++| ITEM SCRTRM C(7) = "Z Z Z Z"; # USER-SUPPLIED MNEMONIC #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00003.ns2248 +++| ITEM SCRTRP B; # *TERMLIB* RETRIEVED BY *PF* # 00086 M00S00079.screx +++| ITEM SCRUSN C(7) = "LIBRARY"; # ALTERNATE USER NUMBER # 00087 M00S00080.screx +++| ITEM SCRZBA I; # *ZZZZTRM* BUFFER ADDRESS # 00088 M00S00081.screx +++| ITEM SCRZFE B; # *ZZZZTRM* FILE EXISTS FLAG # 00089 M00S00082.screx +++| ITEM SCRZTM C(7); # Z-PREFIXED TERM-MNEMONIC #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00090 M01S00002.ns2254 +++| ITEM UNLOAD B; # UNLOAD GROUP DIRECTORY #
| Line S00083 Modification History | |
|---|---|
M01 (Removed by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00091 M01S00083.ns2254 ---| 00092 M01S00084.ns2254 ---|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00085.screx +++|
| Line S00086 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00100 M01S00086.ns2248 ---| PROC SCRGTC(SCRZTM,SCRTCF);
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00101 M01S00004.ns2248 +++| PROC SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP); 00102 M00S00087.screx +++| # TITLE SCRGTC - GET TERMINAL CAPSULE. # 00103 M00S00088.screx +++| 00104 M00S00089.screx +++| BEGIN # SCRGTC # 00105 M00S00090.screx +++| 00106 M00S00091.screx +++| # 00107 M00S00092.screx +++| *** SCRGTC - GET TERMINAL CAPSULE. 00108 M00S00093.screx +++| * 00109 M00S00094.screx +++| * *SCRGTC* CALLS *SCRLCP* TO LOAD A CAPSULE GIVEN THE 00110 M00S00095.screx +++| * CAPSULE NAME, WHICH RETURNS THE ADDRESS OF THE CAPSULE 00111 M00S00096.screx +++| * IF SUCCESSFULLY LOADED. IF SO, THE ROUTINE *SCRCZF* 00112 M00S00097.screx +++| * CREATES A FILE NAMED *ZZZZTRM* AND COPIES THIS CAPSULE 00113 M00S00098.screx +++| * RECORD INTO IT. *SCRCZF* THEN MARKS THE *ZZZZTRM* FILE 00114 M00S00099.screx +++| * NON-RETURNABLE BY GLOBAL CLEAR. 00115 M00S00100.screx +++| *
| Line S00101 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00116 M01S00101.ns2248 ---| * PROC SCRGTC(SCRZTM,SCRTCF)
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00117 M01S00005.ns2248 +++| * PROC SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP) 00118 M00S00102.screx +++| * 00119 M00S00103.screx +++| * SCRZTM = Z-PREFIXED TERMINAL MNEMONIC. 00120 M00S00104.screx +++| * SCRTCF = TERMCAP FOUND FLAG RETURNED.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00006.ns2248 +++| * SCRSTS = *TERMLIB* STATUS FLAG. 00122 M01S00007.ns2248 +++| * SCRTRP = *TERMLIB* RETRIEVED BY *PF*. 00123 M00S00105.screx +++| *
| Line S00106 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00124 M01S00106.ns2248 ---| * ENTRY OBJECT ROUTINE CALLED WITH TERMINAL MNEMONIC.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00125 M01S00008.ns2248 +++| * ENTRY OBJECT ROUTINE CALLED WITH TERMINAL MNEMONIC, 00126 M01S00009.ns2248 +++| * *TERMLIB* STATUS FLAG, AND FLAG TO RETURN *TERMLIB*. 00127 M00S00107.screx +++| * 00128 M00S00108.screx +++| * EXIT COMPLETION FLAG RETURNED TO CALLING ROUTINE. 00129 M00S00109.screx +++| * 00130 M00S00110.screx +++| * NOTES THE *SCRGTC* ROUTINES ARE COMPASS MACROS. 00131 M00S00111.screx +++| *
| Line S00112 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00132 M01S00112.281l803 ---| * COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00002.281l803 +++| * COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00134 M00S00113.screx +++| # 00135 M00S00114.screx +++| 00136 M00S00115.screx +++| 00137 M00S00116.screx +++| ITEM SCRCLS I; # CAPSULE LOADED SUCCESSFULLY # 00138 M00S00117.screx +++| ITEM SCRLCA I; # LOADED CAPSULE ADDRESS #
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00010.ns2248 +++| ITEM SCRSTS B; # *TERMLIB* STATUS FLAG # 00140 M00S00118.screx +++| ITEM SCRTCF B; # TERMCAP FOUND # 00141 M00S00119.screx +++| ITEM SCRTCL I; # TERMINAL CAPSULE LENGTH # 00142 M00S00120.screx +++| ITEM SCRTCV B; # TERMINAL CAPSULE VALID #
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00143 M01S00011.ns2248 +++| ITEM SCRTRP B; # *TERMLIB* RETRIEVED BY *PF* # 00144 M00S00121.screx +++| ITEM SCRZTM C(7); # TERMINAL MNEMONIC # 00145 M00S00122.screx +++| 00146 M00S00123.screx +++| 00147 M00S00124.screx +++| SCRTCF = FALSE; # INITIALIZE FOUND FLAG # 00148 M00S00125.screx +++| SCRLCP(SCRZTM,SCRLCA,SCRCLS); # LOAD TERMINAL CAPSULE # 00149 M00S00126.screx +++| IF SCRCLS EQ 0 THEN # CAPSULE LOADED SUCCESSFULLY # 00150 M00S00127.screx +++| BEGIN 00151 M00S00128.screx +++| SCRTCV = FALSE; # INITIALIZE AS INVALID #
| Line S00129 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00152 M01S00129.ns2248 ---| SCRCCK(SCRLCA,SCRZTM,SCRTCV,SCRTCL); # VALIDATE TERMCAP #
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act
----------------------------+
00153 M01S00012.ns2248 +++| SCRCCK(SCRLCA,SCRZTM,SCRTCV,SCRTCL,SCRSTS); # VALIDATE TERMCAP #
00154 M00S00130.screx +++| IF SCRTCV THEN # IF VALID *TDU* TERMCAP #
00155 M00S00131.screx +++| BEGIN
00156 M00S00132.screx +++| SCRRET("ZZZZTRM"); # RETURN *ZZZZTRM* FILE #
00157 M00S00133.screx +++| SCRCZF(SCRLCA,SCRTCL); # CREATE *ZZZZTRM* FILE #
00158 M00S00134.screx +++| SCRMDL = 1; # USER DEFINED MODEL #
00159 M00S00135.screx +++| SCRMOD = MODE; # DIRECTIVE SPECIFIED MODE #
00160 M00S00136.screx +++| VDTSSL(SCRMDL,SCRMOD); # SET MODEL, MODE #
00161 M00S00137.screx +++| SCRISR(SCRMOD); # ISSUE SYSTEM REQUEST #
00162 M00S00138.screx +++| SCROUT(SCRLCA,SCRMOD); # PRINT INIT. SEQUENCE #
00163 M00S00139.screx +++| SCRTCF = TRUE; # TERMINAL CAPSULE FOUND #
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act
----------------------------+
00164 M01S00013.ns2248 +++| SCRRET("ZZZZZOU"); # RETURN *ZZZZZOU* FILE #
00165 M00S00140.screx +++| END
00166 M00S00141.screx +++| END
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00167 M01S00014.ns2248 +++| IF SCRTRP THEN 00168 M01S00015.ns2248 +++| BEGIN # IF *PF* RETRIEVED *TERMLIB* # 00169 M00S00142.screx +++| SCRRET(SCRPFN); # RETURN LOCAL FILE #
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00016.ns2248 +++| END 00171 M00S00143.screx +++| 00172 M00S00144.screx +++| END # SCRGTC # 00173 M00S00145.screx +++| 00174 M00S00146.screx +++| PROC SCROUT(SCRLCA,SCRMOD); 00175 M00S00147.screx +++| # TITLE SCROUT - OUTPUT TERMINAL INITIALIZATION SEQUENCE # 00176 M00S00148.screx +++| 00177 M00S00149.screx +++| BEGIN # SCROUT # 00178 M00S00150.screx +++| 00179 M00S00151.screx +++| # 00180 M00S00152.screx +++| *** SCROUT - OUTPUT TERMINAL INIT. SEQUENCE * 00181 M00S00153.screx +++| * 00182 M00S00154.screx +++| * *SCROUT* CALLS *VDTOPN* TO OPEN AND INITIALIZE THE 00183 M00S00155.screx +++| * OUTPUT FET. *SCRGIS* IS THEN CALLED TO GET THE 00184 M00S00156.screx +++| * TERMINAL INITIALIZATION SEQUENCE FROM THE LOADED 00185 M00S00157.screx +++| * CAPSULE, CONVERTING THE SEQUENCE FROM 7-BIT BYTES 00186 M00S00158.screx +++| * TO 12-BIT TRANSPARENT BYTES. THE SEQUENCE IS LEFT 00187 M00S00159.screx +++| * IN THE *SCRISB* BUFFER, WHICH IS WRITTEN BY *VDTWTC* 00188 M00S00160.screx +++| * TO THE OUTPUT FET, AND *VDTCLO* CLOSES THIS FET. 00189 M00S00161.screx +++| * 00190 M00S00162.screx +++| * PROC SCROUT(ADDRESS,MODE) 00191 M00S00163.screx +++| * 00192 M00S00164.screx +++| * ADDRESS = LOADED CAPSULE OR FILE BUFFER ADDRESS. 00193 M00S00165.screx +++| * MODE = MODE SPECIFIED BY USER. 00194 M00S00166.screx +++| * 00195 M00S00167.screx +++| * ENTRY ADDRESS = LOADED CAPSULE OR FILE BUFFER ADD RESS. 00196 M00S00168.screx +++| * MODE = 0, IF LINE MODE, 00197 M00S00169.screx +++| * = 1, IF SCREEN MODE. 00198 M00S00170.screx +++| * 00199 M00S00171.screx +++| * EXIT OBJECT ROUTINE EXECUTED. 00200 M00S00172.screx +++| * 00201 M00S00173.screx +++| * NOTES THE *SCROUT* ROUTINES ARE COMPASS ROUTINES. 00202 M00S00174.screx +++| *
| Line S00175 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00203 M01S00175.281l803 ---| * COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00204 M01S00003.281l803 +++| * COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00205 M00S00176.screx +++| # 00206 M00S00177.screx +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2288 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00001.ns2288 +++| BASED ARRAY PARM [0:0] P(1);; 00208 M00S00178.screx +++| 00209 M00S00179.screx +++| ITEM SCRISB I; # SEQUENCE BUFFER # 00210 M00S00180.screx +++| ITEM SCRLCA I; # LOADED CAPSULE ADDRESS # 00211 M00S00181.screx +++| ITEM SCRMOD I; # TERMINAL MODE # 00212 M00S00182.screx +++| ITEM SCRREC I; # RECALL PARAMETER # 00213 M00S00183.screx +++| 00214 M00S00184.screx +++| SCRREC = 1; # SET AUTO RECALL # 00215 M00S00185.screx +++| SCRGIS(SCRLCA,SCRMOD,SCRISB); # GET SEQUENCE #
| Line S00186 Modification History | |
|---|---|
M01 (Removed by) | ns2288 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00186.ns2288 ---| VDTOPN; # OPEN THE OUTPUT FET # 00217 M01S00187.ns2288 ---| VDTWTC(SCRISB); # WRITE SEQUENCE # 00218 M01S00188.ns2288 ---| VDTCLO(SCRREC); # CLOSE THE OUTPUT FET #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2288 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00189.screx +++| 00227 M00S00190.screx +++| END # SCROUT # 00228 M00S00191.screx +++| 00229 M00S00192.screx +++| 00230 M00S00193.screx +++|SCREEN: # SCREEN ENTRY POINT # 00231 M00S00194.screx +++| 00232 M00S00195.screx +++| MODE = 1; # INITIALIZE MODE TO SCREEN # 00233 M00S00196.screx +++| GOTO SCRMAIN; # JUMP TO MAIN BODY OF *SCREX* # 00234 M00S00197.screx +++| 00235 M00S00198.screx +++|LINE: # LINE ENTRY POINT # 00236 M00S00199.screx +++| 00237 M00S00200.screx +++| MODE = 0; # INITIALIZE MODE TO LINE # 00238 M00S00201.screx +++| GOTO SCRMAIN; # JUMP TO MAIN BODY OF *SCREX* # 00239 M00S00202.screx +++| 00240 M00S00203.screx +++| 00241 M00S00204.screx +++|SCRMAIN: 00242 M00S00205.screx +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2274 |
Seq # *Modification Id* Act ----------------------------+ 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 #
| Line S00206 Modification History | |
|---|---|
M01 (Removed by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00246 M01S00206.ns2254 ---| SCRPKP(SCRTRM); # PROCESS PARAMETERS #
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00207.screx +++| IF SCRTRM EQ "Z Z Z Z" THEN # IF MODEL NOT SPECIFIED # 00257 M00S00208.screx +++| BEGIN 00258 M00S00209.screx +++| VDTGSL(SCRMDL,SCRMOD); # GET CURRENT MODEL, MODE # 00259 M00S00210.screx +++| IF SCRMDL NQ 0 THEN # IF PREVIOUS MODEL SPECIFIED # 00260 M00S00211.screx +++| BEGIN 00261 M00S00212.screx +++| IF SCRMDL NQ 1 THEN # IF RESIDENT MODEL SPECIFIED # 00262 M00S00213.screx +++| BEGIN 00263 M00S00214.screx +++| SCRMOD = MODE; # SET CURRENT MODE # 00264 M00S00215.screx +++| VDTGTA(SCRMDL,SCRRCA); # GIVEN MODEL, RETURN ADDRESS # 00265 M00S00216.screx +++| SCROUT(SCRRCA,SCRMOD); # SEND INITIALIZATION SEQUENCE # 00266 M00S00217.screx +++| VDTSSL(SCRMDL,SCRMOD); # SET MODE, MODEL # 00267 M00S00218.screx +++| SCRISR(SCRMOD); # ISSUE SYSTEM REQUEST # 00268 M00S00219.screx +++| END 00269 M00S00220.screx +++| ELSE # NON-RESIDENT MODEL SPECIFIED # 00270 M00S00221.screx +++| BEGIN 00271 M00S00222.screx +++| SCRZFE = FALSE; 00272 M00S00223.screx +++| SCRPFN = "ZZZZTRM"; 00273 M00S00224.screx +++| SCRFST(SCRPFN,SCRZFE); # CHECK FOR LOCAL *ZZZZTRM* # 00274 M00S00225.screx +++| IF SCRZFE THEN # IF LOCAL *ZZZZTRM* EXISTS # 00275 M00S00226.screx +++| BEGIN 00276 M00S00227.screx +++| SCRMOD = MODE; # USER SPECIFIED MODE # 00277 M00S00228.screx +++| SCRRZF(SCRPFN,SCRZBA); # READ INTO BUFFER # 00278 M00S00229.screx +++| SCROUT(SCRZBA,SCRMOD); # SEND INITIALIZATION SEQUENCE # 00279 M00S00230.screx +++| VDTSSL(SCRMDL,SCRMOD); # SET MODE, MODEL # 00280 M00S00231.screx +++| SCRISR(SCRMOD); # ISSUE SYSTEM REQUEST # 00281 M00S00232.screx +++| END 00282 M00S00233.screx +++| ELSE # NO LOCAL *ZZZZTRM* # 00283 M00S00234.screx +++| BEGIN 00284 M00S00235.screx +++| VDTMSG$(ERR3,0,1); # ERROR MESSAGE # 00285 M00S00236.screx +++| VDTABT$; # TERMINATE ABNORMALLY # 00286 M00S00237.screx +++| END 00287 M00S00238.screx +++| END 00288 M00S00239.screx +++| END 00289 M00S00240.screx +++| ELSE # NO PREVIOUS MODEL SPECIFIED # 00290 M00S00241.screx +++| BEGIN
| Line S00242 Modification History | |
|---|---|
M01 (Removed by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00291 M01S00242.ns2254 ---| VDTMSG$(ERR1,0,1); # ERROR MESSAGE # 00292 M01S00243.ns2254 ---| VDTABT$; # TERMINATE ABNORMALLY #
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00244.screx +++| END 00306 M00S00245.screx +++| END # MODEL NOT SPECIFIED # 00307 M00S00246.screx +++| ELSE # MODEL WAS SPECIFIED # 00308 M00S00247.screx +++| BEGIN 00309 M00S00248.screx +++| C<0>SCRZTM = "Z"; # PREFIX MNEMONIC WITH "Z" # 00310 M00S00249.screx +++| FOR I = 1 STEP 1 UNTIL 6 DO 00311 M00S00250.screx +++| C<I>SCRZTM = C<I-1>SCRTRM; # CONCAT *SCRTRM* TO *SCTZTM* # 00312 M00S00251.screx +++| VDTGTO(SCRMDL,SCRTRM); # GET TERMINAL ORDINAL # 00313 M00S00252.screx +++| IF SCRMDL NQ 0 THEN # IF TERMINAL TABLE RESIDENT # 00314 M00S00253.screx +++| BEGIN 00315 M00S00254.screx +++| SCRMOD = MODE; # SET DIRECTIVE MODE # 00316 M00S00255.screx +++| SCRRTA(SCRTRM,SCRLCA); # GET TERMCAP ADDRESS # 00317 M00S00256.screx +++| SCROUT(SCRLCA,SCRMOD); # PRINT INIT. SEQUENCE # 00318 M00S00257.screx +++| VDTSSL(SCRMDL,SCRMOD); # SET MODE, MODEL # 00319 M00S00258.screx +++| SCRISR(MODE); # ISSUE SYSTEM REQUEST # 00320 M00S00259.screx +++| END 00321 M00S00260.screx +++| ELSE # TERMINAL TABLE NOT RESIDENT # 00322 M00S00261.screx +++| BEGIN
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00323 M01S00030.ns2254 +++| UNLOAD = FALSE; # GROUP DIRECTORY UNLOAD FLAG #
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00324 M01S00017.ns2248 +++| SCRTRP = FALSE;
| Line S00262 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00325 M01S00262.ns2248 ---| SCRGTC(SCRZTM,SCRTCF); # GET LOCAL TERMINAL CAPSULE #
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 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 #
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00031.ns2254 +++| UNLOAD = TRUE;
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act
----------------------------+
00335 M01S00026.ns2248 +++| END
00336 M00S00263.screx +++| IF NOT SCRTCF THEN # IF TERMINAL CAPSULE NOT FOUND #
00337 M00S00264.screx +++| BEGIN
00338 M00S00265.screx +++| PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,0); # GET *SCRPFN* FILE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | screx1 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00266.screx +++| IF SCRPFF EQ 0 THEN # IF FILE WAS FOUND #
00344 M00S00267.screx +++| BEGIN
| Line S00268 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00345 M01S00268.ns2248 ---| SCRGTC(SCRZTM,SCRTCF); # GET TERMINAL CAPSULE #
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00346 M01S00027.ns2248 +++| SCRSTS = TRUE; 00347 M01S00028.ns2248 +++| SCRTRP = TRUE; # *TERMLIB* RETRIEVED BY *PF* #
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00353 M01S00029.ns2248 +++| SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP); # GET CAPSULE #
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00037.ns2254 +++| UNLOAD = TRUE; 00355 M00S00269.screx +++| END 00356 M00S00270.screx +++| IF NOT SCRTCF THEN # IF TERMCAP NOT FOUND # 00357 M00S00271.screx +++| BEGIN
| Line S00272 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act
----------------------------+
00358 M01S00272.ns2248 ---| PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,0);
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act
----------------------------+
00359 M01S00030.ns2248 +++| PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,"PN","0",0);
00360 M01S00031.ns2248 +++| # GET *TERMLIB* FROM UN=LIBRARY #
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | screx1 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00273.screx +++| IF SCRPFF EQ 0 THEN # IF FILE WAS FOUND #
00367 M00S00274.screx +++| BEGIN
| Line S00275 Modification History | |
|---|---|
M01 (Removed by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00368 M01S00275.ns2248 ---| SCRGTC(SCRZTM,SCRTCF); # GET TERMINAL CAPSULE #
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00369 M01S00032.ns2248 +++| SCRSTS = FALSE; # SET STATUS TO SYSTEM # 00370 M01S00033.ns2248 +++| SCRTRP = TRUE; # *TERMLIB* RETRIEVED BY *PF* #
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2248 |
Seq # *Modification Id* Act ----------------------------+ 00375 M01S00034.ns2248 +++| SCRGTC(SCRZTM,SCRTCF,SCRSTS,SCRTRP); # GET CAPSULE # 00376 M00S00276.screx +++| END 00377 M00S00277.screx +++| IF NOT SCRTCF THEN # IF TERMCAP NOT FOUND # 00378 M00S00278.screx +++| BEGIN 00379 M00S00279.screx +++| SCRMOD = 0; # LINE MODE # 00380 M00S00280.screx +++| SCRMDL = 0; # UNDEFINED ORDINAL # 00381 M00S00281.screx +++| VDTSSL(SCRMDL,SCRMOD); # SET MODE, MODEL # 00382 M00S00282.screx +++| SCRISR(SCRMOD); # ISSUE SYSTEM REQUEST # 00383 M00S00283.screx +++| VDTMSG$(ERR2,0,1); # SEND MESSAGE TO USER # 00384 M00S00284.screx +++| VDTABT$; # TERMINATE ABNORMALLY # 00385 M00S00285.screx +++| END 00386 M00S00286.screx +++| END # TERMCAP NOT FOUND # 00387 M00S00287.screx +++| END # TERMCAP NOT FOUND # 00388 M00S00288.screx +++| END # TERMINAL TABLE NOT RESIDENT # 00389 M00S00289.screx +++| END # MODEL WAS SPECIFIED #
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00390 M01S00290.ns2254 ---|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2254 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00042.ns2254 +++| 00392 M00S00291.screx +++|END # SCREX # # END OF *SCREX* PROGRAM # 00393 M00S00292.screx +++| 00394 M00S00293.screx +++|TERM
cdc/nos2.source/opl.opl871/deck/screx.txt · Last modified: by 127.0.0.1