cdc:nos2.source:opl.opl871:deck:hstcopy
Deck HSTCOPY
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.hstcopy +++|(*$L'HOSTCOPY UTILITY.',S-,U+ *) 00002 M01S00002.hstcopy +++|(*$V+ DISPLAY CM RECORD MAP. *) 00003 M01S00003.hstcopy +++|(*$E+ USE EXTERNAL ENTRY POINTS. *) 00004 M01S00004.hstcopy +++|PROGRAM HSTCOPY(INPUT,OUTPUT,FTS); 00005 M01S00005.hstcopy +++|(*** 00006 M01S00006.hstcopy +++| * HSTCOPY - HOSTCOPY UTILITY. 00007 M01S00007.hstcopy +++| * 00008 M01S00008.hstcopy +++| * L. M. BURGHER/S. V. PRESTON 84/09/22. 00009 M01S00001.ns2421 +++| * S. V. PRESTON 86/03/14. 00010 M01S00002.ns2421 +++| * MODIFIED TO SUPPORT V10 SST FORMAT. 00011 M01S00009.hstcopy +++| * 00012 M01S00010.hstcopy +++| * OVERVIEW 00013 M01S00011.hstcopy +++| * 00014 M01S00012.hstcopy +++| * HSTCOPY READS A FILE AND TRANSFERS IT TO A 5870 OR 5970 00015 M01S00013.hstcopy +++| * NON-IMPACT PRINTER. HSTCOPY CALLS THE PP PROGRAM XHC TO 00016 M01S00014.hstcopy +++| * TRANSFER THE DATA TO THE NON-IMPACT PRINTER. 00017 M01S00015.hstcopy +++| * 00018 M01S00016.hstcopy +++| * HSTCOPY READS THE FOLLOWING TYPES OF FILES: 00019 M01S00017.hstcopy +++| *
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00018.ns2421 ---| * 1) 128-BYTE AND 512-BYTE RECORDS CONSISTING OF 8-BIT
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00019.ns2421 ---| * BYTES WITHOUT ZERO-BYTE TERMINATORS. 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 M01S00020.hstcopy +++| * 00026 M01S00021.hstcopy +++| * 2) 80-BYTE EBCDIC CARD IMAGE RECORDS WITHOUT ZERO-BYTE 00027 M01S00022.hstcopy +++| * TERMINATORS. 00028 M01S00023.hstcopy +++| * 00029 M01S00024.hstcopy +++| * CONTROL STATEMENT CALL 00030 M01S00025.hstcopy +++| * 00031 M01S00026.hstcopy +++| * HSTCOPY(INPUT,OUTPUT,FTS) 00032 M01S00027.hstcopy +++| * 00033 M01S00028.hstcopy +++| * HSTCOPY - HOSTCOPY CONTROL STATEMENT. 00034 M01S00029.hstcopy +++| * INPUT - INPUT FILE CONTAINING INPUT DIRECTIVES. 00035 M01S00030.hstcopy +++| * OUTPUT - OUTPUT FILE CONTAINING STATUS OF HOSTCOPY. 00036 M01S00031.hstcopy +++| * FTS - INPUT FILE TO TRANSFER TO NIP. 00037 M01S00032.hstcopy +++| *) 00038 M01S00033.hstcopy +++| 00039 M01S00034.hstcopy +++|CONST 00040 M01S00035.hstcopy +++| 00041 M01S00036.hstcopy +++|(* DEFINE BUFFER LENGTHS. *) 00042 M01S00037.hstcopy +++|
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00043 M02S00038.ns2421 ---| CML = 69; (* NUMBER OF CM WORDS *)
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00044 M02S00039.ns2421 ---| BIT4L = 1024; (* NUMBER OF BIT4S *)
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act
----------------------------+
00045 M02S00040.ns2421 ---| RECL = 4; (* NUMBER OF 128-BYTE RECS *)
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 M01S00041.hstcopy +++|
00051 M01S00042.hstcopy +++|(* DEFINE RECORD LENGTH. *)
00052 M01S00043.hstcopy +++|
00053 M01S00044.hstcopy +++| RECRDL = 256; (* NUMBER OF BIT4S PER RECRD *)
00054 M01S00045.hstcopy +++| RECRDPL = 2; (* NUM OF RECRD POINTERS *)
00055 M01S00046.hstcopy +++|
00056 M01S00047.hstcopy +++|TYPE
00057 M01S00048.hstcopy +++|
00058 M01S00049.hstcopy +++|(*$T- TURN RUNTIME TESTING OFF. *)
00059 M01S00050.hstcopy +++| PCNTRL = cONTROL; (* CONTROL RECORD POINTER *)
00060 M01S00051.hstcopy +++| PRECRD = rECRD; (* DATA RECORD POINTER *)
00061 M01S00052.hstcopy +++|(*$T= RESTORE RUNTIME TESTING. *)
00062 M01S00053.hstcopy +++|
00063 M01S00054.hstcopy +++|(* DEFINE BIT FIELD WIDTHS. *)
00064 M01S00055.hstcopy +++|
00065 M01S00056.hstcopy +++| BIT1 = 0..1B;
00066 M01S00057.hstcopy +++| BIT3 = 0..7B;
00067 M01S00058.hstcopy +++| BIT4 = 0..17B;
00068 M01S00059.hstcopy +++| BIT6 = 0..77B;
00069 M01S00060.hstcopy +++| BIT9 = 0..777B;
00070 M01S00061.hstcopy +++| BIT11 = 0..3777B;
00071 M01S00062.hstcopy +++| BIT12 = 0..7777B;
00072 M01S00063.hstcopy +++| BIT42 = 0..77777777777777B;
00073 M01S00064.hstcopy +++|
00074 M01S00065.hstcopy +++|(* DEFINE PACKED CHARACTER STRINGS. *)
00075 M01S00066.hstcopy +++|
00076 M01S00067.hstcopy +++| CHAR3 = PACKED ARRAY[1..3] OF CHAR;
00077 M01S00068.hstcopy +++| CHAR10 = PACKED ARRAY[1..10] OF CHAR;
00078 M01S00069.hstcopy +++| CHAR40 = PACKED ARRAY[1..40] OF CHAR;
00079 M01S00070.hstcopy +++|
00080 M01S00071.hstcopy +++| BUFTAG = 1..2;
00081 M01S00072.hstcopy +++| BUFFER = RECORD CASE TAG : BUFTAG OF
00082 M01S00073.hstcopy +++| 1 : (W : ARRAY[1..CML] OF INTEGER);
00083 M01S00074.hstcopy +++| 2 : (B4 : PACKED ARRAY[1..BIT4L] OF BIT4);
00084 M01S00075.hstcopy +++| END; (* BUFFER *)
00085 M01S00076.hstcopy +++|
00086 M01S00077.hstcopy +++| RECRD = PACKED ARRAY[1..RECRDL] OF BIT4;
00087 M01S00078.hstcopy +++| (* DATA RECORD *)
00088 M01S00079.hstcopy +++|
00089 M01S00080.hstcopy +++| CONTROL = PACKED RECORD (* XHC CONTROL TABLE *)
00090 M01S00081.hstcopy +++| FILL1 : BIT3;
00091 M01S00082.hstcopy +++| EQ : BIT9; (* EST ORDINAL *)
00092 M01S00083.hstcopy +++| FILL2 : BIT11;
00093 M01S00084.hstcopy +++| TERM : BOOLEAN; (* TERMINATE XHC *)
00094 M01S00085.hstcopy +++| FILL3 : BIT11;
00095 M01S00086.hstcopy +++| CARDIMG : BOOLEAN; (* CARD IMAGE *)
00096 M01S00087.hstcopy +++| FILL4 : BIT11;
00097 M01S00088.hstcopy +++| COMP : BOOLEAN; (* REQUEST COMPLETE *)
00098 M01S00089.hstcopy +++| FILL5 : BIT42;
00099 M01S00090.hstcopy +++| RESV1 : BIT1;
00100 M01S00091.hstcopy +++| RECRDP : PRECRD; (* RECRD POINTER *)
00101 M01S00092.hstcopy +++| END; (* CONTROL *)
00102 M01S00093.hstcopy +++|
00103 M01S00094.hstcopy +++| SYSREQ = PACKED RECORD
00104 M01S00095.hstcopy +++| (* SYSTEM REQUEST FORMAT *)
00105 M01S00096.hstcopy +++| PPNAME : CHAR3; (* PP PROGRAM NAME *)
00106 M01S00097.hstcopy +++| RESV1 : BIT1;
00107 M01S00098.hstcopy +++| RECALL : BOOLEAN; (* RECALL OPTION *)
00108 M01S00099.hstcopy +++| FILL1 : BIT4;
00109 M01S00100.hstcopy +++| FILL2 : BIT12;
00110 M01S00101.hstcopy +++| FILL3 : BIT6;
00111 M01S00102.hstcopy +++| RESV2 : BIT1; (* CONTROL POINTER *)
00112 M01S00103.hstcopy +++| CNTRLP : PCNTRL;
00113 M01S00104.hstcopy +++| END; (* SYSREQ *)
00114 M01S00105.hstcopy +++|
00115 M01S00106.hstcopy +++|VAR
00116 M01S00107.hstcopy +++|
00117 M01S00108.hstcopy +++| CNTRLP : PCNTRL; (* XHC CONTROL POINTER *)
00118 M01S00109.hstcopy +++| INITOK : BOOLEAN; (* INITIALIZE OK *)
00119 M01S00110.hstcopy +++| RCL, XHC : SYSREQ; (* SYSTEM REQUEST *)
00120 M01S00111.hstcopy +++| FTS : SEGMENTED FILE OF INTEGER;
00121 M01S00112.hstcopy +++| (* SYSTEM SOFTWARE FILE *)
00122 M01S00113.hstcopy +++|
00123 M01S00114.hstcopy +++|(* DEFINE DAYFILE MESSAGE VARIABLES. *)
00124 M01S00115.hstcopy +++|
00125 M01S00116.hstcopy +++| EFMSG : CHAR40; (* EMPTY FILE *)
00126 M01S00117.hstcopy +++| EQMSG : CHAR40; (* INCORRECT EQUIPMENT *)
00127 M01S00118.hstcopy +++| LDMSG : CHAR40; (* EQUIPMENT LOADED *)
00128 M01S00119.hstcopy +++|
00129 M01S00120.hstcopy +++|(* DEFINE BUFFER VARIABLES. *)
00130 M01S00121.hstcopy +++|
00131 M01S00122.hstcopy +++| BUFF : BUFFER; (* DATA BUFFER *)
00132 M01S00123.hstcopy +++| CMI : 0..CML; (* CM INDEX *)
00133 M01S00124.hstcopy +++| BIT4I : 0..BIT4L; (* BIT4 INDEX *)
00134 M01S00125.hstcopy +++| RECI : 0..RECL; (* RECRD INDEX *)
00135 M01S00126.hstcopy +++| RECNUM : 1..RECL; (* NUM RECRDS PER BUFFER *)
00136 M01S00127.hstcopy +++|
00137 M01S00128.hstcopy +++|(* DEFINE RECORD VARIABLES. *)
00138 M01S00129.hstcopy +++|
00139 M01S00130.hstcopy +++| RECRDP : ARRAY[1..RECRDPL] OF PRECRD;
00140 M01S00131.hstcopy +++| (* DATA RECORD POINTERS *)
00141 M01S00132.hstcopy +++| RECRDPI : 1..RECRDPL; (* RECORD POINTER INDEX *)
00142 M01S00133.hstcopy +++| RECRDI : 0..RECRDL; (* RECORD INDEX *)
00143 M01S00134.hstcopy +++|
00144 M01S00135.hstcopy +++|VALUE
00145 M01S00136.hstcopy +++|
00146 M01S00137.hstcopy +++| INITOK = FALSE;
00147 M01S00138.hstcopy +++| RCL = ('RCL', 0, TRUE, 0, 0, 0, 0, NIL);
00148 M01S00139.hstcopy +++| XHC = ('XHC', 0, FALSE, 0, 0, 0, 0, NIL);
00149 M01S00140.hstcopy +++|
00150 M01S00141.hstcopy +++|(* DAYFILE MESSAGES. *)
00151 M01S00142.hstcopy +++|
00152 M01S00143.hstcopy +++| EFMSG = ' SYSTEM SOFTWARE FILE EMPTY. ';
00153 M01S00144.hstcopy +++| EQMSG = ' EQXXX, INCORRECT EQUIPMENT NUMBER. ';
00154 M01S00145.hstcopy +++| LDMSG = ' EQXXX, HOSTCOPY TRANSFER COMPLETE. ';
00155 M01S00146.hstcopy +++|(*$L'EXTERNAL FUNCTIONS AND PROCEDURES.'*)
00156 M01S00147.hstcopy +++|FUNCTION XDXB( STR : CHAR10; TYP : INTEGER;
00157 M01S00148.hstcopy +++| VAR NUM : INTEGER) : INTEGER; FORTRAN;
00158 M01S00149.hstcopy +++|(**
00159 M01S00150.hstcopy +++| * CHARACTER TO INTEGER CONVERSION.
00160 M01S00151.hstcopy +++| *
00161 M01S00152.hstcopy +++| * LOADED FROM SRVLIB.
00162 M01S00153.hstcopy +++| *)
00163 M01S00154.hstcopy +++|
00164 M01S00155.hstcopy +++|PROCEDURE SYS(VAR REQ : SYSREQ); EXTERN;
00165 M01S00156.hstcopy +++|(**
00166 M01S00157.hstcopy +++| * ISSUE SYSTEM REQUEST.
00167 M01S00158.hstcopy +++| *
00168 M01S00159.hstcopy +++| * LOADED FROM UTILLIB.
00169 M01S00160.hstcopy +++| *)
00170 M01S00161.hstcopy +++|(*$L'INIT - INITIALIZE.'*)
00171 M01S00162.hstcopy +++|PROCEDURE INIT;
00172 M01S00163.hstcopy +++|(**
00173 M01S00164.hstcopy +++| *
00174 M01S00165.hstcopy +++| * INITIALIZE HOST COPY.
00175 M01S00166.hstcopy +++| *
00176 M01S00167.hstcopy +++| * EXIT
00177 M01S00168.hstcopy +++| * INITOK = TRUE, IF INITIALIZED PROPERLY.
00178 M01S00169.hstcopy +++| * THE PP XHC HAS BEEN STARTED.
00179 M01S00170.hstcopy +++| * LDMSG HAS BEEN SET WITH EQUIPMENT NUMBER.
00180 M01S00171.hstcopy +++| *
00181 M01S00172.hstcopy +++| * CALLS
00182 M01S00173.hstcopy +++| * SYS, XDXB.
00183 M01S00174.hstcopy +++| *
00184 M01S00175.hstcopy +++| * NESTED FROM HSTCOPY.
00185 M01S00176.hstcopy +++| *)
00186 M01S00177.hstcopy +++|
00187 M01S00178.hstcopy +++|VAR
00188 M01S00179.hstcopy +++|
00189 M01S00180.hstcopy +++| CARDIMG : ALFA; (* CARD IMAGE *)
00190 M01S00181.hstcopy +++| EQ : ALFA; (* EST ORDINAL *)
00191 M01S00182.hstcopy +++| I, J : INTEGER;
00192 M01S00183.hstcopy +++| VALIDEQ : INTEGER; (* VALID EQUIPMENT *)
00193 M01S00184.hstcopy +++|
00194 M01S00185.hstcopy +++| BEGIN (* INIT *)
00195 M01S00186.hstcopy +++| RESET(FTS); (* INITIALIZE FTS FILE *)
00196 M01S00187.hstcopy +++| IF NOT EOS(FTS) THEN
00197 M01S00188.hstcopy +++| BEGIN (* FILE OK *)
00198 M01S00189.hstcopy +++| EQ := ' '; (* EQ NUMBER *)
00199 M01S00190.hstcopy +++| FOR I := 1 TO 3 DO
00200 M01S00191.hstcopy +++| READ(EQ[I]);
00201 M01S00192.hstcopy +++| READLN;
00202 M01S00193.hstcopy +++| READLN(CARDIMG[1]); (* CARD IMAGE *)
00203 M01S00194.hstcopy +++| VALIDEQ := XDXB(EQ, 0, I); (* CONVERT EQ TO INTEGER *)
00204 M01S00195.hstcopy +++| IF (VALIDEQ = 0) AND (I <= 777B) THEN
00205 M01S00196.hstcopy +++| BEGIN (* VALID EQ *)
00206 M01S00197.hstcopy +++| NEW(CNTRLP); (* INITIALIZE POINTERS *)
00207 M01S00198.hstcopy +++| FOR J := 1 TO RECRDPL DO
00208 M01S00199.hstcopy +++| BEGIN
00209 M01S00200.hstcopy +++| RECRDPI := J;
00210 M01S00201.hstcopy +++| NEW(RECRDP[RECRDPI]);
00211 M01S00202.hstcopy +++| END;
00212 M01S00203.hstcopy +++| CNTRLP;EQ := I; (* SETUP XHC CONTROL RECORD *)
00213 M01S00204.hstcopy +++| CNTRLP;TERM := FALSE;
00214 M01S00205.hstcopy +++| IF CARDIMG[1] = 'T' THEN
00215 M01S00206.hstcopy +++| CNTRLP;CARDIMG := TRUE
00216 M01S00207.hstcopy +++| ELSE
00217 M01S00208.hstcopy +++| CNTRLP;CARDIMG := FALSE;
00218 M01S00209.hstcopy +++| CNTRLP;COMP := FALSE;
00219 M01S00210.hstcopy +++| CNTRLP;RECRDP := NIL;
00220 M01S00211.hstcopy +++| XHC.CNTRLP := CNTRLP;
00221 M01S00212.hstcopy +++| RCL.CNTRLP := CNTRLP;
00222 M01S00213.hstcopy +++| SYS(XHC); (* INITIATE XHC *)
00223 M01S00214.hstcopy +++| INITOK := TRUE; (* INITIALIZE OK *)
00224 M01S00215.hstcopy +++| FOR I := 1 TO 3 DO (* SET EQ IN LOAD MESSAGE *)
00225 M01S00216.hstcopy +++| LDMSG[I+3] := EQ[I];
00226 M01S00217.hstcopy +++| END (* VALID EQ *)
00227 M01S00218.hstcopy +++| ELSE
00228 M01S00219.hstcopy +++| BEGIN (* INCORRECT EQ *)
00229 M01S00220.hstcopy +++| FOR I := 1 TO 3 DO (* SET EQ IN MESSAGE *)
00230 M01S00221.hstcopy +++| EQMSG[I+3] := EQ[I];
00231 M01S00222.hstcopy +++| MESSAGE(EQMSG);
00232 M01S00223.hstcopy +++| WRITELN(EQMSG);
00233 M01S00224.hstcopy +++| END; (* IF *) (* INCORRECT EQ *)
00234 M01S00225.hstcopy +++| END (* FILE OK *)
00235 M01S00226.hstcopy +++| ELSE
00236 M01S00227.hstcopy +++| BEGIN (* EMPTY FILE *)
00237 M01S00228.hstcopy +++| MESSAGE(EFMSG);
00238 M01S00229.hstcopy +++| WRITELN(EFMSG);
00239 M01S00230.hstcopy +++| END; (* IF *) (* EMPTY FILE *)
00240 M01S00231.hstcopy +++| END; (* INIT *)
00241 M01S00232.hstcopy +++|(*$L'MAIN PROGRAM.'*)
00242 M01S00233.hstcopy +++|BEGIN (* HSTCOPY *)
00243 M01S00234.hstcopy +++|INIT; (* INITIALIZE HOST COPY *)
00244 M01S00235.hstcopy +++|IF INITOK THEN
00245 M01S00236.hstcopy +++| BEGIN (* INIT OK *)
00246 M01S00237.hstcopy +++| WHILE NOT EOF(FTS) DO
00247 M01S00238.hstcopy +++| BEGIN (* PROCESS FTS RECORD *)
00248 M01S00239.hstcopy +++| CMI := 0; (* READ FTS RECORD *)
00249 M01S00240.hstcopy +++| WHILE (NOT EOS(FTS) AND NOT EOF(FTS)) AND
00250 M01S00241.hstcopy +++| (CMI < CML) DO
00251 M01S00242.hstcopy +++| BEGIN
00252 M01S00243.hstcopy +++| CMI := CMI+1;
00253 M01S00244.hstcopy +++| READ(FTS,BUFF.W[CMI]);
00254 M01S00245.hstcopy +++| END; (* WHILE *)
00255 M01S00246.hstcopy +++| GETSEG(FTS); (* GET NEXT RECORD *)
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00256 M02S00247.ns2421 ---| IF CMI = CML THEN (* 128- OR 512-BYTE RECORD *)
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00257 M02S00248.ns2421 ---| RECNUM := 4
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00258 M02S00249.ns2421 ---| ELSE
| Line S00250 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | ns2421 |
Seq # *Modification Id* Act ----------------------------+ 00259 M02S00250.ns2421 ---| RECNUM := 1; 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 M01S00251.hstcopy +++| BIT4I := 0; (* XFER FTS RECORD TO NIP *) 00270 M01S00252.hstcopy +++| FOR RECI := 1 TO RECNUM DO 00271 M01S00253.hstcopy +++| BEGIN 00272 M01S00254.hstcopy +++| IF RECRDPI < RECRDPL THEN 00273 M01S00255.hstcopy +++| RECRDPI := RECRDPI + 1 00274 M01S00256.hstcopy +++| ELSE 00275 M01S00257.hstcopy +++| RECRDPI := 1; 00276 M01S00258.hstcopy +++| FOR RECRDI := 1 TO RECRDL DO (* MOVE ONE 128-BYTE RECORD *) 00277 M01S00259.hstcopy +++| BEGIN 00278 M01S00260.hstcopy +++| BIT4I := BIT4I+1; 00279 M01S00261.hstcopy +++| RECRDP[RECRDPI];RECRDI] := BUFF.B4[BIT4I]; 00280 M01S00262.hstcopy +++| END; (* FOR *) 00281 M01S00263.hstcopy +++| SYS(RCL); (* WAIT FOR REQUEST DONE *) 00282 M01S00264.hstcopy +++| CNTRLP;RECRDP := RECRDP[RECRDPI]; 00283 M01S00265.hstcopy +++| (* REQUEST XHC TO XFER RECRD *) 00284 M01S00266.hstcopy +++| CNTRLP;COMP := FALSE; 00285 M01S00267.hstcopy +++| END; (* FOR *) 00286 M01S00268.hstcopy +++| END; (* WHILE *) (* PROCESS FTS RECORD *) 00287 M01S00269.hstcopy +++| SYS(RCL); (* WAIT FOR REQUEST DONE *) 00288 M01S00270.hstcopy +++| CNTRLP;TERM := TRUE; (* TERMINATE XHC *) 00289 M01S00271.hstcopy +++| CNTRLP;COMP := FALSE; 00290 M01S00272.hstcopy +++| SYS(RCL); (* WAIT FOR TERMINATION *) 00291 M01S00273.hstcopy +++| MESSAGE(LDMSG); (* HOSTCOPY COMPLETE *) 00292 M01S00274.hstcopy +++| WRITELN(LDMSG); 00293 M01S00275.hstcopy +++| END; (* IF *) (* INIT OK *) 00294 M01S00276.hstcopy +++|END. (* HSTCOPY *) 00295 M01S00277.hstcopy +++|*WEOR 00296 M01S00278.hstcopy +++| TTL SYS - ISSUE SYSTEM REQUEST. 00297 M01S00279.hstcopy +++| TITLE SYS - ISSUE SYSTEM REQUEST. 00298 M01S00280.hstcopy +++| IDENT SYS 00299 M01S00281.hstcopy +++| ENTRY SYS 00300 M01S00282.hstcopy +++| SST 00301 M01S00283.hstcopy +++| SYSCOM B1 00302 M01S00284.hstcopy +++|*COMMENT SYS - ISSUE SYSTEM REQUEST.
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | hstcopy |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00303 M02S00285.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 00304 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00305 M01S00286.hstcopy +++| SYS SPACE 4,10 00306 M01S00287.hstcopy +++|*** SYS - ISSUE SYSTEM REQUEST. 00307 M01S00288.hstcopy +++|* 00308 M01S00289.hstcopy +++|* SYS ALLOWS DIRECT SYSTEM CALLS TO THE OPERATING 00309 M01S00290.hstcopy +++|* SYSTEM. THE REQUEST, IN THE FORM OF AN RA+1 REQUEST, 00310 M01S00291.hstcopy +++|* IS PASSED TO SYS, WHICH IN TURN CALLS SYS=. THIS 00311 M01S00292.hstcopy +++|* IS REQUIRED BECAUSE OF REGISTER DIFFERENCES. 00312 M01S00293.hstcopy +++|* 00313 M01S00294.hstcopy +++|* PASCAL DECLARATION: 00314 M01S00295.hstcopy +++|* 00315 M01S00296.hstcopy +++|* PROCEDURE SYS(VAR REQ : SYSREQ); EXTERN; 00316 M01S00297.hstcopy +++|* 00317 M01S00298.hstcopy +++|* REQ RA+1 REQUEST. 00318 M01S00299.hstcopy +++| SPACE 4,10 00319 M01S00300.hstcopy +++|*** COMMON DECKS. 00320 M01S00301.hstcopy +++| 00321 M01S00302.hstcopy +++| 00322 M01S00303.hstcopy +++|*CALL COMCMAC 00323 M01S00304.hstcopy +++| SPACE 4,10 00324 M01S00305.hstcopy +++|** SYS - ISSUE SYSTEM REQUEST. 00325 M01S00306.hstcopy +++|* 00326 M01S00307.hstcopy +++|* ENTRY (X0) = ADDRESS OF THE REQUEST. 00327 M01S00308.hstcopy +++|* 00328 M01S00309.hstcopy +++|* EXIT REQUEST ISSUED. 00329 M01S00310.hstcopy +++|* 00330 M01S00311.hstcopy +++|* USES A - 4. 00331 M01S00312.hstcopy +++|* X - 4, 6. 00332 M01S00313.hstcopy +++|* B - NONE. 00333 M01S00314.hstcopy +++|* 00334 M01S00315.hstcopy +++|* CALLS SYS=. 00335 M01S00316.hstcopy +++| 00336 M01S00317.hstcopy +++| 00337 M01S00318.hstcopy +++| SYS PS ENTRY/EXIT 00338 M01S00319.hstcopy +++| SA4 X0 GET REQUEST 00339 M01S00320.hstcopy +++| BX6 X4 00340 M01S00321.hstcopy +++| RJ =XSYS= 00341 M01S00322.hstcopy +++| EQ SYS RETURN 00342 M01S00323.hstcopy +++| 00343 M01S00324.hstcopy +++| 00344 M01S00325.hstcopy +++| END 00345 M01S00326.hstcopy +++|*WEOR
cdc/nos2.source/opl.opl871/deck/hstcopy.txt · Last modified: by 127.0.0.1