Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:hstcopy
Deck HSTCOPY
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.hstcopy +++|(*$L'HOSTCOPY UTILITY.',S-,U+ *) 00002 M00S00002.hstcopy +++|(*$V+ DISPLAY CM RECORD MAP. *) 00003 M00S00003.hstcopy +++|(*$E+ USE EXTERNAL ENTRY POINTS. *) 00004 M00S00004.hstcopy +++|PROGRAM HSTCOPY(INPUT,OUTPUT,FTS); 00005 M00S00005.hstcopy +++|(*** 00006 M00S00006.hstcopy +++| * HSTCOPY - HOSTCOPY UTILITY. 00007 M00S00007.hstcopy +++| * 00008 M00S00008.hstcopy +++| * L. M. BURGHER/S. V. PRESTON 84/09/22.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.ns2421 +++| * S. V. PRESTON 86/03/14. 00010 M01S00002.ns2421 +++| * MODIFIED TO SUPPORT V10 SST FORMAT. 00011 M00S00009.hstcopy +++| * 00012 M00S00010.hstcopy +++| * OVERVIEW 00013 M00S00011.hstcopy +++| * 00014 M00S00012.hstcopy +++| * HSTCOPY READS A FILE AND TRANSFERS IT TO A 5870 OR 5970 00015 M00S00013.hstcopy +++| * NON-IMPACT PRINTER. HSTCOPY CALLS THE PP PROGRAM XHC TO 00016 M00S00014.hstcopy +++| * TRANSFER THE DATA TO THE NON-IMPACT PRINTER. 00017 M00S00015.hstcopy +++| * 00018 M00S00016.hstcopy +++| * HSTCOPY READS THE FOLLOWING TYPES OF FILES: 00019 M00S00017.hstcopy +++| *
| Line S00018 Modification History | |
|---|---|
M01 (Removed by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00018.ns2421 ---| * 1) 128-BYTE AND 512-BYTE RECORDS CONSISTING OF 8-BIT 00021 M01S00019.ns2421 ---| * BYTES WITHOUT ZERO-BYTE TERMINATORS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00003.ns2421 +++| * 1) RECORDS CONSISTING OF MULTIPLES OF 128 8-BIT BYTES, 00023 M01S00004.ns2421 +++| * WITHOUT ZERO-BYTE TERMINATORS, UP TO A MAXIMUM 00024 M01S00005.ns2421 +++| * OF 8192 8-BIT BYTES. 00025 M00S00020.hstcopy +++| * 00026 M00S00021.hstcopy +++| * 2) 80-BYTE EBCDIC CARD IMAGE RECORDS WITHOUT ZERO-BYTE 00027 M00S00022.hstcopy +++| * TERMINATORS. 00028 M00S00023.hstcopy +++| * 00029 M00S00024.hstcopy +++| * CONTROL STATEMENT CALL 00030 M00S00025.hstcopy +++| * 00031 M00S00026.hstcopy +++| * HSTCOPY(INPUT,OUTPUT,FTS) 00032 M00S00027.hstcopy +++| * 00033 M00S00028.hstcopy +++| * HSTCOPY - HOSTCOPY CONTROL STATEMENT. 00034 M00S00029.hstcopy +++| * INPUT - INPUT FILE CONTAINING INPUT DIRECTIVES. 00035 M00S00030.hstcopy +++| * OUTPUT - OUTPUT FILE CONTAINING STATUS OF HOSTCOPY. 00036 M00S00031.hstcopy +++| * FTS - INPUT FILE TO TRANSFER TO NIP. 00037 M00S00032.hstcopy +++| *) 00038 M00S00033.hstcopy +++| 00039 M00S00034.hstcopy +++|CONST 00040 M00S00035.hstcopy +++| 00041 M00S00036.hstcopy +++|(* DEFINE BUFFER LENGTHS. *) 00042 M00S00037.hstcopy +++|
| Line S00038 Modification History | |
|---|---|
M01 (Removed by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00038.ns2421 ---| CML = 69; (* NUMBER OF CM WORDS *) 00044 M01S00039.ns2421 ---| BIT4L = 1024; (* NUMBER OF BIT4S *) 00045 M01S00040.ns2421 ---| RECL = 4; (* NUMBER OF 128-BYTE RECS *)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2421 |
Seq # *Modification Id* Act
----------------------------+
00046 M01S00006.ns2421 +++| CML = 1093; (* NUMBER OF CM WORDS *)
00047 M01S00007.ns2421 +++| CMLS = 69;
00048 M01S00008.ns2421 +++| BIT4L = 16384; (* NUMBER OF BIT4S *)
00049 M01S00009.ns2421 +++| RECL = 64; (* NUMBER OF 128-BYTE RECS *)
00050 M00S00041.hstcopy +++|
00051 M00S00042.hstcopy +++|(* DEFINE RECORD LENGTH. *)
00052 M00S00043.hstcopy +++|
00053 M00S00044.hstcopy +++| RECRDL = 256; (* NUMBER OF BIT4S PER RECRD *)
00054 M00S00045.hstcopy +++| RECRDPL = 2; (* NUM OF RECRD POINTERS *)
00055 M00S00046.hstcopy +++|
00056 M00S00047.hstcopy +++|TYPE
00057 M00S00048.hstcopy +++|
00058 M00S00049.hstcopy +++|(*$T- TURN RUNTIME TESTING OFF. *)
00059 M00S00050.hstcopy +++| PCNTRL = cONTROL; (* CONTROL RECORD POINTER *)
00060 M00S00051.hstcopy +++| PRECRD = rECRD; (* DATA RECORD POINTER *)
00061 M00S00052.hstcopy +++|(*$T= RESTORE RUNTIME TESTING. *)
00062 M00S00053.hstcopy +++|
00063 M00S00054.hstcopy +++|(* DEFINE BIT FIELD WIDTHS. *)
00064 M00S00055.hstcopy +++|
00065 M00S00056.hstcopy +++| BIT1 = 0..1B;
00066 M00S00057.hstcopy +++| BIT3 = 0..7B;
00067 M00S00058.hstcopy +++| BIT4 = 0..17B;
00068 M00S00059.hstcopy +++| BIT6 = 0..77B;
00069 M00S00060.hstcopy +++| BIT9 = 0..777B;
00070 M00S00061.hstcopy +++| BIT11 = 0..3777B;
00071 M00S00062.hstcopy +++| BIT12 = 0..7777B;
00072 M00S00063.hstcopy +++| BIT42 = 0..77777777777777B;
00073 M00S00064.hstcopy +++|
00074 M00S00065.hstcopy +++|(* DEFINE PACKED CHARACTER STRINGS. *)
00075 M00S00066.hstcopy +++|
00076 M00S00067.hstcopy +++| CHAR3 = PACKED ARRAY[1..3] OF CHAR;
00077 M00S00068.hstcopy +++| CHAR10 = PACKED ARRAY[1..10] OF CHAR;
00078 M00S00069.hstcopy +++| CHAR40 = PACKED ARRAY[1..40] OF CHAR;
00079 M00S00070.hstcopy +++|
00080 M00S00071.hstcopy +++| BUFTAG = 1..2;
00081 M00S00072.hstcopy +++| BUFFER = RECORD CASE TAG : BUFTAG OF
00082 M00S00073.hstcopy +++| 1 : (W : ARRAY[1..CML] OF INTEGER);
00083 M00S00074.hstcopy +++| 2 : (B4 : PACKED ARRAY[1..BIT4L] OF BIT4);
00084 M00S00075.hstcopy +++| END; (* BUFFER *)
00085 M00S00076.hstcopy +++|
00086 M00S00077.hstcopy +++| RECRD = PACKED ARRAY[1..RECRDL] OF BIT4;
00087 M00S00078.hstcopy +++| (* DATA RECORD *)
00088 M00S00079.hstcopy +++|
00089 M00S00080.hstcopy +++| CONTROL = PACKED RECORD (* XHC CONTROL TABLE *)
00090 M00S00081.hstcopy +++| FILL1 : BIT3;
00091 M00S00082.hstcopy +++| EQ : BIT9; (* EST ORDINAL *)
00092 M00S00083.hstcopy +++| FILL2 : BIT11;
00093 M00S00084.hstcopy +++| TERM : BOOLEAN; (* TERMINATE XHC *)
00094 M00S00085.hstcopy +++| FILL3 : BIT11;
00095 M00S00086.hstcopy +++| CARDIMG : BOOLEAN; (* CARD IMAGE *)
00096 M00S00087.hstcopy +++| FILL4 : BIT11;
00097 M00S00088.hstcopy +++| COMP : BOOLEAN; (* REQUEST COMPLETE *)
00098 M00S00089.hstcopy +++| FILL5 : BIT42;
00099 M00S00090.hstcopy +++| RESV1 : BIT1;
00100 M00S00091.hstcopy +++| RECRDP : PRECRD; (* RECRD POINTER *)
00101 M00S00092.hstcopy +++| END; (* CONTROL *)
00102 M00S00093.hstcopy +++|
00103 M00S00094.hstcopy +++| SYSREQ = PACKED RECORD
00104 M00S00095.hstcopy +++| (* SYSTEM REQUEST FORMAT *)
00105 M00S00096.hstcopy +++| PPNAME : CHAR3; (* PP PROGRAM NAME *)
00106 M00S00097.hstcopy +++| RESV1 : BIT1;
00107 M00S00098.hstcopy +++| RECALL : BOOLEAN; (* RECALL OPTION *)
00108 M00S00099.hstcopy +++| FILL1 : BIT4;
00109 M00S00100.hstcopy +++| FILL2 : BIT12;
00110 M00S00101.hstcopy +++| FILL3 : BIT6;
00111 M00S00102.hstcopy +++| RESV2 : BIT1; (* CONTROL POINTER *)
00112 M00S00103.hstcopy +++| CNTRLP : PCNTRL;
00113 M00S00104.hstcopy +++| END; (* SYSREQ *)
00114 M00S00105.hstcopy +++|
00115 M00S00106.hstcopy +++|VAR
00116 M00S00107.hstcopy +++|
00117 M00S00108.hstcopy +++| CNTRLP : PCNTRL; (* XHC CONTROL POINTER *)
00118 M00S00109.hstcopy +++| INITOK : BOOLEAN; (* INITIALIZE OK *)
00119 M00S00110.hstcopy +++| RCL, XHC : SYSREQ; (* SYSTEM REQUEST *)
00120 M00S00111.hstcopy +++| FTS : SEGMENTED FILE OF INTEGER;
00121 M00S00112.hstcopy +++| (* SYSTEM SOFTWARE FILE *)
00122 M00S00113.hstcopy +++|
00123 M00S00114.hstcopy +++|(* DEFINE DAYFILE MESSAGE VARIABLES. *)
00124 M00S00115.hstcopy +++|
00125 M00S00116.hstcopy +++| EFMSG : CHAR40; (* EMPTY FILE *)
00126 M00S00117.hstcopy +++| EQMSG : CHAR40; (* INCORRECT EQUIPMENT *)
00127 M00S00118.hstcopy +++| LDMSG : CHAR40; (* EQUIPMENT LOADED *)
00128 M00S00119.hstcopy +++|
00129 M00S00120.hstcopy +++|(* DEFINE BUFFER VARIABLES. *)
00130 M00S00121.hstcopy +++|
00131 M00S00122.hstcopy +++| BUFF : BUFFER; (* DATA BUFFER *)
00132 M00S00123.hstcopy +++| CMI : 0..CML; (* CM INDEX *)
00133 M00S00124.hstcopy +++| BIT4I : 0..BIT4L; (* BIT4 INDEX *)
00134 M00S00125.hstcopy +++| RECI : 0..RECL; (* RECRD INDEX *)
00135 M00S00126.hstcopy +++| RECNUM : 1..RECL; (* NUM RECRDS PER BUFFER *)
00136 M00S00127.hstcopy +++|
00137 M00S00128.hstcopy +++|(* DEFINE RECORD VARIABLES. *)
00138 M00S00129.hstcopy +++|
00139 M00S00130.hstcopy +++| RECRDP : ARRAY[1..RECRDPL] OF PRECRD;
00140 M00S00131.hstcopy +++| (* DATA RECORD POINTERS *)
00141 M00S00132.hstcopy +++| RECRDPI : 1..RECRDPL; (* RECORD POINTER INDEX *)
00142 M00S00133.hstcopy +++| RECRDI : 0..RECRDL; (* RECORD INDEX *)
00143 M00S00134.hstcopy +++|
00144 M00S00135.hstcopy +++|VALUE
00145 M00S00136.hstcopy +++|
00146 M00S00137.hstcopy +++| INITOK = FALSE;
00147 M00S00138.hstcopy +++| RCL = ('RCL', 0, TRUE, 0, 0, 0, 0, NIL);
00148 M00S00139.hstcopy +++| XHC = ('XHC', 0, FALSE, 0, 0, 0, 0, NIL);
00149 M00S00140.hstcopy +++|
00150 M00S00141.hstcopy +++|(* DAYFILE MESSAGES. *)
00151 M00S00142.hstcopy +++|
00152 M00S00143.hstcopy +++| EFMSG = ' SYSTEM SOFTWARE FILE EMPTY. ';
00153 M00S00144.hstcopy +++| EQMSG = ' EQXXX, INCORRECT EQUIPMENT NUMBER. ';
00154 M00S00145.hstcopy +++| LDMSG = ' EQXXX, HOSTCOPY TRANSFER COMPLETE. ';
00155 M00S00146.hstcopy +++|(*$L'EXTERNAL FUNCTIONS AND PROCEDURES.'*)
00156 M00S00147.hstcopy +++|FUNCTION XDXB( STR : CHAR10; TYP : INTEGER;
00157 M00S00148.hstcopy +++| VAR NUM : INTEGER) : INTEGER; FORTRAN;
00158 M00S00149.hstcopy +++|(**
00159 M00S00150.hstcopy +++| * CHARACTER TO INTEGER CONVERSION.
00160 M00S00151.hstcopy +++| *
00161 M00S00152.hstcopy +++| * LOADED FROM SRVLIB.
00162 M00S00153.hstcopy +++| *)
00163 M00S00154.hstcopy +++|
00164 M00S00155.hstcopy +++|PROCEDURE SYS(VAR REQ : SYSREQ); EXTERN;
00165 M00S00156.hstcopy +++|(**
00166 M00S00157.hstcopy +++| * ISSUE SYSTEM REQUEST.
00167 M00S00158.hstcopy +++| *
00168 M00S00159.hstcopy +++| * LOADED FROM UTILLIB.
00169 M00S00160.hstcopy +++| *)
00170 M00S00161.hstcopy +++|(*$L'INIT - INITIALIZE.'*)
00171 M00S00162.hstcopy +++|PROCEDURE INIT;
00172 M00S00163.hstcopy +++|(**
00173 M00S00164.hstcopy +++| *
00174 M00S00165.hstcopy +++| * INITIALIZE HOST COPY.
00175 M00S00166.hstcopy +++| *
00176 M00S00167.hstcopy +++| * EXIT
00177 M00S00168.hstcopy +++| * INITOK = TRUE, IF INITIALIZED PROPERLY.
00178 M00S00169.hstcopy +++| * THE PP XHC HAS BEEN STARTED.
00179 M00S00170.hstcopy +++| * LDMSG HAS BEEN SET WITH EQUIPMENT NUMBER.
00180 M00S00171.hstcopy +++| *
00181 M00S00172.hstcopy +++| * CALLS
00182 M00S00173.hstcopy +++| * SYS, XDXB.
00183 M00S00174.hstcopy +++| *
00184 M00S00175.hstcopy +++| * NESTED FROM HSTCOPY.
00185 M00S00176.hstcopy +++| *)
00186 M00S00177.hstcopy +++|
00187 M00S00178.hstcopy +++|VAR
00188 M00S00179.hstcopy +++|
00189 M00S00180.hstcopy +++| CARDIMG : ALFA; (* CARD IMAGE *)
00190 M00S00181.hstcopy +++| EQ : ALFA; (* EST ORDINAL *)
00191 M00S00182.hstcopy +++| I, J : INTEGER;
00192 M00S00183.hstcopy +++| VALIDEQ : INTEGER; (* VALID EQUIPMENT *)
00193 M00S00184.hstcopy +++|
00194 M00S00185.hstcopy +++| BEGIN (* INIT *)
00195 M00S00186.hstcopy +++| RESET(FTS); (* INITIALIZE FTS FILE *)
00196 M00S00187.hstcopy +++| IF NOT EOS(FTS) THEN
00197 M00S00188.hstcopy +++| BEGIN (* FILE OK *)
00198 M00S00189.hstcopy +++| EQ := ' '; (* EQ NUMBER *)
00199 M00S00190.hstcopy +++| FOR I := 1 TO 3 DO
00200 M00S00191.hstcopy +++| READ(EQ[I]);
00201 M00S00192.hstcopy +++| READLN;
00202 M00S00193.hstcopy +++| READLN(CARDIMG[1]); (* CARD IMAGE *)
00203 M00S00194.hstcopy +++| VALIDEQ := XDXB(EQ, 0, I); (* CONVERT EQ TO INTEGER *)
00204 M00S00195.hstcopy +++| IF (VALIDEQ = 0) AND (I <= 777B) THEN
00205 M00S00196.hstcopy +++| BEGIN (* VALID EQ *)
00206 M00S00197.hstcopy +++| NEW(CNTRLP); (* INITIALIZE POINTERS *)
00207 M00S00198.hstcopy +++| FOR J := 1 TO RECRDPL DO
00208 M00S00199.hstcopy +++| BEGIN
00209 M00S00200.hstcopy +++| RECRDPI := J;
00210 M00S00201.hstcopy +++| NEW(RECRDP[RECRDPI]);
00211 M00S00202.hstcopy +++| END;
00212 M00S00203.hstcopy +++| CNTRLP;EQ := I; (* SETUP XHC CONTROL RECORD *)
00213 M00S00204.hstcopy +++| CNTRLP;TERM := FALSE;
00214 M00S00205.hstcopy +++| IF CARDIMG[1] = 'T' THEN
00215 M00S00206.hstcopy +++| CNTRLP;CARDIMG := TRUE
00216 M00S00207.hstcopy +++| ELSE
00217 M00S00208.hstcopy +++| CNTRLP;CARDIMG := FALSE;
00218 M00S00209.hstcopy +++| CNTRLP;COMP := FALSE;
00219 M00S00210.hstcopy +++| CNTRLP;RECRDP := NIL;
00220 M00S00211.hstcopy +++| XHC.CNTRLP := CNTRLP;
00221 M00S00212.hstcopy +++| RCL.CNTRLP := CNTRLP;
00222 M00S00213.hstcopy +++| SYS(XHC); (* INITIATE XHC *)
00223 M00S00214.hstcopy +++| INITOK := TRUE; (* INITIALIZE OK *)
00224 M00S00215.hstcopy +++| FOR I := 1 TO 3 DO (* SET EQ IN LOAD MESSAGE *)
00225 M00S00216.hstcopy +++| LDMSG[I+3] := EQ[I];
00226 M00S00217.hstcopy +++| END (* VALID EQ *)
00227 M00S00218.hstcopy +++| ELSE
00228 M00S00219.hstcopy +++| BEGIN (* INCORRECT EQ *)
00229 M00S00220.hstcopy +++| FOR I := 1 TO 3 DO (* SET EQ IN MESSAGE *)
00230 M00S00221.hstcopy +++| EQMSG[I+3] := EQ[I];
00231 M00S00222.hstcopy +++| MESSAGE(EQMSG);
00232 M00S00223.hstcopy +++| WRITELN(EQMSG);
00233 M00S00224.hstcopy +++| END; (* IF *) (* INCORRECT EQ *)
00234 M00S00225.hstcopy +++| END (* FILE OK *)
00235 M00S00226.hstcopy +++| ELSE
00236 M00S00227.hstcopy +++| BEGIN (* EMPTY FILE *)
00237 M00S00228.hstcopy +++| MESSAGE(EFMSG);
00238 M00S00229.hstcopy +++| WRITELN(EFMSG);
00239 M00S00230.hstcopy +++| END; (* IF *) (* EMPTY FILE *)
00240 M00S00231.hstcopy +++| END; (* INIT *)
00241 M00S00232.hstcopy +++|(*$L'MAIN PROGRAM.'*)
00242 M00S00233.hstcopy +++|BEGIN (* HSTCOPY *)
00243 M00S00234.hstcopy +++|INIT; (* INITIALIZE HOST COPY *)
00244 M00S00235.hstcopy +++|IF INITOK THEN
00245 M00S00236.hstcopy +++| BEGIN (* INIT OK *)
00246 M00S00237.hstcopy +++| WHILE NOT EOF(FTS) DO
00247 M00S00238.hstcopy +++| BEGIN (* PROCESS FTS RECORD *)
00248 M00S00239.hstcopy +++| CMI := 0; (* READ FTS RECORD *)
00249 M00S00240.hstcopy +++| WHILE (NOT EOS(FTS) AND NOT EOF(FTS)) AND
00250 M00S00241.hstcopy +++| (CMI < CML) DO
00251 M00S00242.hstcopy +++| BEGIN
00252 M00S00243.hstcopy +++| CMI := CMI+1;
00253 M00S00244.hstcopy +++| READ(FTS,BUFF.W[CMI]);
00254 M00S00245.hstcopy +++| END; (* WHILE *)
00255 M00S00246.hstcopy +++| GETSEG(FTS); (* GET NEXT RECORD *)
| Line S00247 Modification History | |
|---|---|
M01 (Removed by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00256 M01S00247.ns2421 ---| IF CMI = CML THEN (* 128- OR 512-BYTE RECORD *) 00257 M01S00248.ns2421 ---| RECNUM := 4 00258 M01S00249.ns2421 ---| ELSE 00259 M01S00250.ns2421 ---| RECNUM := 1;
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00010.ns2421 +++| IF CMI = CML THEN (* ESTABLISH RECORD SIZE *) 00261 M01S00011.ns2421 +++| RECNUM := 64 (* 8192-BYTES *) 00262 M01S00012.ns2421 +++| ELSE 00263 M01S00013.ns2421 +++| BEGIN 00264 M01S00014.ns2421 +++| IF CMI = CMLS THEN 00265 M01S00015.ns2421 +++| RECNUM := 4 (* 512-BYTES *) 00266 M01S00016.ns2421 +++| ELSE 00267 M01S00017.ns2421 +++| RECNUM := 1; (* 128-BYTES *) 00268 M01S00018.ns2421 +++| END; 00269 M00S00251.hstcopy +++| BIT4I := 0; (* XFER FTS RECORD TO NIP *) 00270 M00S00252.hstcopy +++| FOR RECI := 1 TO RECNUM DO 00271 M00S00253.hstcopy +++| BEGIN 00272 M00S00254.hstcopy +++| IF RECRDPI < RECRDPL THEN 00273 M00S00255.hstcopy +++| RECRDPI := RECRDPI + 1 00274 M00S00256.hstcopy +++| ELSE 00275 M00S00257.hstcopy +++| RECRDPI := 1; 00276 M00S00258.hstcopy +++| FOR RECRDI := 1 TO RECRDL DO (* MOVE ONE 128-BYTE RECORD *) 00277 M00S00259.hstcopy +++| BEGIN 00278 M00S00260.hstcopy +++| BIT4I := BIT4I+1; 00279 M00S00261.hstcopy +++| RECRDP[RECRDPI];RECRDI] := BUFF.B4[BIT4I]; 00280 M00S00262.hstcopy +++| END; (* FOR *) 00281 M00S00263.hstcopy +++| SYS(RCL); (* WAIT FOR REQUEST DONE *) 00282 M00S00264.hstcopy +++| CNTRLP;RECRDP := RECRDP[RECRDPI]; 00283 M00S00265.hstcopy +++| (* REQUEST XHC TO XFER RECRD *) 00284 M00S00266.hstcopy +++| CNTRLP;COMP := FALSE; 00285 M00S00267.hstcopy +++| END; (* FOR *) 00286 M00S00268.hstcopy +++| END; (* WHILE *) (* PROCESS FTS RECORD *) 00287 M00S00269.hstcopy +++| SYS(RCL); (* WAIT FOR REQUEST DONE *) 00288 M00S00270.hstcopy +++| CNTRLP;TERM := TRUE; (* TERMINATE XHC *) 00289 M00S00271.hstcopy +++| CNTRLP;COMP := FALSE; 00290 M00S00272.hstcopy +++| SYS(RCL); (* WAIT FOR TERMINATION *) 00291 M00S00273.hstcopy +++| MESSAGE(LDMSG); (* HOSTCOPY COMPLETE *) 00292 M00S00274.hstcopy +++| WRITELN(LDMSG); 00293 M00S00275.hstcopy +++| END; (* IF *) (* INIT OK *) 00294 M00S00276.hstcopy +++|END. (* HSTCOPY *) 00295 M00S00277.hstcopy +++|*WEOR 00296 M00S00278.hstcopy +++| TTL SYS - ISSUE SYSTEM REQUEST. 00297 M00S00279.hstcopy +++| TITLE SYS - ISSUE SYSTEM REQUEST. 00298 M00S00280.hstcopy +++| IDENT SYS 00299 M00S00281.hstcopy +++| ENTRY SYS 00300 M00S00282.hstcopy +++| SST 00301 M00S00283.hstcopy +++| SYSCOM B1 00302 M00S00284.hstcopy +++|*COMMENT SYS - ISSUE SYSTEM REQUEST.
| Line S00285 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00303 M01S00285.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00304 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00305 M00S00286.hstcopy +++| SYS SPACE 4,10 00306 M00S00287.hstcopy +++|*** SYS - ISSUE SYSTEM REQUEST. 00307 M00S00288.hstcopy +++|* 00308 M00S00289.hstcopy +++|* SYS ALLOWS DIRECT SYSTEM CALLS TO THE OPERATING 00309 M00S00290.hstcopy +++|* SYSTEM. THE REQUEST, IN THE FORM OF AN RA+1 REQUEST, 00310 M00S00291.hstcopy +++|* IS PASSED TO SYS, WHICH IN TURN CALLS SYS=. THIS 00311 M00S00292.hstcopy +++|* IS REQUIRED BECAUSE OF REGISTER DIFFERENCES. 00312 M00S00293.hstcopy +++|* 00313 M00S00294.hstcopy +++|* PASCAL DECLARATION: 00314 M00S00295.hstcopy +++|* 00315 M00S00296.hstcopy +++|* PROCEDURE SYS(VAR REQ : SYSREQ); EXTERN; 00316 M00S00297.hstcopy +++|* 00317 M00S00298.hstcopy +++|* REQ RA+1 REQUEST. 00318 M00S00299.hstcopy +++| SPACE 4,10 00319 M00S00300.hstcopy +++|*** COMMON DECKS. 00320 M00S00301.hstcopy +++| 00321 M00S00302.hstcopy +++| 00322 M00S00303.hstcopy +++|*CALL COMCMAC 00323 M00S00304.hstcopy +++| SPACE 4,10 00324 M00S00305.hstcopy +++|** SYS - ISSUE SYSTEM REQUEST. 00325 M00S00306.hstcopy +++|* 00326 M00S00307.hstcopy +++|* ENTRY (X0) = ADDRESS OF THE REQUEST. 00327 M00S00308.hstcopy +++|* 00328 M00S00309.hstcopy +++|* EXIT REQUEST ISSUED. 00329 M00S00310.hstcopy +++|* 00330 M00S00311.hstcopy +++|* USES A - 4. 00331 M00S00312.hstcopy +++|* X - 4, 6. 00332 M00S00313.hstcopy +++|* B - NONE. 00333 M00S00314.hstcopy +++|* 00334 M00S00315.hstcopy +++|* CALLS SYS=. 00335 M00S00316.hstcopy +++| 00336 M00S00317.hstcopy +++| 00337 M00S00318.hstcopy +++| SYS PS ENTRY/EXIT 00338 M00S00319.hstcopy +++| SA4 X0 GET REQUEST 00339 M00S00320.hstcopy +++| BX6 X4 00340 M00S00321.hstcopy +++| RJ =XSYS= 00341 M00S00322.hstcopy +++| EQ SYS RETURN 00342 M00S00323.hstcopy +++| 00343 M00S00324.hstcopy +++| 00344 M00S00325.hstcopy +++| END 00345 M00S00326.hstcopy +++|*WEOR
cdc/nos2.source/opl.opl871/deck/hstcopy.txt · Last modified: by 127.0.0.1