Deck MAC1

4 Modifications

Listing Sections

Deck MAC1 Start
Deck MAC1 Part 1 (Line 1996)

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.mac1    +++|          IDENT  MACREL
00002  M01S00002.mac1    +++|          SYSCOM B1
00003  M01S00003.mac1    +++|          ENTRY  MACREL.
00004  M01S00004.mac1    +++|          ENTRY  MACREL=
00005  M01S00005.mac1    +++|          TITLE  MACREL - SYSTEM MACRO INTERFACE ROUTINES.
00006  M01S00006.mac1    +++|*COMMENT  SYSTEM MACRO INTERFACE ROUTINES.

Line S00007 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.mac1    +++| MACREL   SPACE  4,10

Line S00009 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`ns2676`

Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00009.ns2676  ---|***       MACREL - SYSTEM MACRO INTERFACE ROUTINES.
00011  M01S00001.ns2676  +++|**        MACREL - SYSTEM MACRO INTERFACE ROUTINES.
00012  M01S00010.mac1    +++|*
00013  M01S00011.mac1    +++|*         T. R. RAMSEY.      76/08/08.
00014  M01S00012.mac1    +++|*         M. D. PICKARD      77/03/14.
00015  M01S00013.mac1    +++|*         J. D. BRANHAM.     78/09/12.
00016  M01S00014.mac1    +++|*
00017  M01S00015.mac1    +++| MACREL   SPACE  4,10

Line S00016 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`ns2676`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00016.ns2676  ---|***              *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT
00019  M01S00002.ns2676  +++|**               *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT
00020  M01S00017.mac1    +++|*         PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
00021  M01S00018.mac1    +++|*         AND THE SYSTEM MACROS.
00022  M01S00019.mac1    +++|*
00023  M01S00020.mac1    +++|*         *FORTRAN* CALLING SEQUENCES ARE SHOWN IN EACH MODULE ALONG
00024  M01S00021.mac1    +++|*         WITH OTHER PERTINENT INFORMATION, E.G., ENTRY, EXIT.
00025  M01S00022.mac1    +++|*
00026  M01S00023.mac1    +++|*         ALSO *SYMPL* CALLING SEQUENCES ARE SHOWN IN EACH MODULE
00027  M01S00024.mac1    +++|*         ALONG WITH THE APPROPRIATE *SYMPL* DATA TYPES NEEDED
00028  M01S00025.mac1    +++|*         FOR ENTRY/EXIT.
00029  M01S00026.mac1    +++|          TITLE  MACREL - SYSTEM MACRO INTERFACE ROUTINES.
00030  M01S00027.mac1    +++| MACREL   SPACE  4,10
00031  M01S00028.mac1    +++|**               *MACREL* MODULES TRANSLATE PARAMETERS IN HIGHER LEVEL
00032  M01S00029.mac1    +++|*         LANGUAGE CALLING SEQUENCES INTO MACRO CALLING SEQUENCES.
00033  M01S00030.mac1    +++|*         *FORTRAN* CALLING SEQUENCES MENTIONED ARE EQUIVALENT TO
00034  M01S00031.mac1    +++|*         COBOL (ENTER USING), *SYMPL*, ETC.
00035  M01S00032.mac1    +++|*
00036  M01S00033.mac1    +++|*         ENTRY  *FORTRAN* CALL AND FUNCTION REFERENCE CALLING
00037  M01S00034.mac1    +++|*                SEQUENCES USE THE ACTUAL PARAMETER LIST, CALL BY
00038  M01S00035.mac1    +++|*                REFERENCE CALLING SEQUENCE WHERE -
00039  M01S00036.mac1    +++|*                 (A1)      = FWA OF PARAMETER ADDRESS LIST.
00040  M01S00037.mac1    +++|*                ((A1))     = FIRST PARAMETER
00041  M01S00038.mac1    +++|*                ((A1+1))   = SECOND PARAMETER
00042  M01S00039.mac1    +++|*                  .          .
00043  M01S00040.mac1    +++|*                  .          .
00044  M01S00041.mac1    +++|*                  .          .
00045  M01S00042.mac1    +++|*                ((A1+N))   = N-TH PARAMETER
00046  M01S00043.mac1    +++|*                ((A1+N+1)) = 0 (ZERO)  (NOMINALLY)
00047  M01S00044.mac1    +++|*                 (X1)      = FIRST PARAMETER
00048  M01S00045.mac1    +++|*
00049  M01S00046.mac1    +++|*         EXIT   (X6) = FUNCTION RESULT.
00050  M01S00047.mac1    +++|*                (X7) = SECOND WORD OF TWO WORD RESULT, E.G., COMPLEX.
00051  M01S00048.mac1    +++|*
00052  M01S00049.mac1    +++|*         NEEDS  EACH MODULE CONTAINS A CALL TO A MACRO WHOSE NAME IS
00053  M01S00050.mac1    +++|*                THE SAME AS THE MODULE (EXCEPT WHERE NOTED).  THESE
00054  M01S00051.mac1    +++|*                MACROS ARE DEFINED IN *PSSTEXT* AND *NOSTEXT*.
00055  M01S00052.mac1    +++|*
00056  M01S00053.mac1    +++|*         NOTE   B1 IS SET TO ONE UPON ENTRY TO EACH MODULE
00057  M01S00054.mac1    +++|*
00058  M01S00055.mac1    +++|*         OTHER  *MACREL* IS A COLLECTION OF RELOCATABLE MODULES
00059  M01S00056.mac1    +++|*                COMBINED INTO ONE *MODIFY* DECK ENTITY NAMED *LIB*.
00060  M01S00057.mac1    +++| MACREL.  SPACE  4,10
00061  M01S00058.mac1    +++|**        MACREL. - UNDEFINED MACRO PROCESSOR.
00062  M01S00059.mac1    +++|*
00063  M01S00060.mac1    +++|*         ENTRY  (X1) = MACRO NAME IN 0L FORMAT.
00064  M01S00061.mac1    +++|*
00065  M01S00062.mac1    +++|*         USES   X - 6.
00066  M01S00063.mac1    +++|*                A - 6.
00067  M01S00064.mac1    +++|*                B - 1.
00068  M01S00065.mac1    +++|*
00069  M01S00066.mac1    +++|*         MACROS ABORT, MESSAGE.
00070  M01S00067.mac1    +++|
00071  M01S00068.mac1    +++|
00072  M01S00069.mac1    +++| MACREL.  SUBR               ENTRY/EXIT
00073  M01S00070.mac1    +++|          SB1    1
00074  M01S00071.mac1    +++|          BX6    X1
00075  M01S00072.mac1    +++|          SA6    MACA+3
00076  M01S00073.mac1    +++|          MESSAGE  MACA,LOCAL,R
00077  M01S00074.mac1    +++|          ABORT
00078  M01S00075.mac1    +++|
00079  M01S00076.mac1    +++| MACA     DATA   C* MACREL - UNDEFINED MACRO -   FILL-IN.*
00080  M01S00077.mac1    +++| MACREL=  SPACE  4,10
00081  M01S00078.mac1    +++|**        MACREL= - ILLEGAL ARGUMENT PROCESSOR.
00082  M01S00079.mac1    +++|*
00083  M01S00080.mac1    +++|*         ENTRY  (X1) = MACRO NAME IN 0L FORMAT.
00084  M01S00081.mac1    +++|*                (X2) = THE ILLEGAL ARGUMENT.
00085  M01S00082.mac1    +++|*
00086  M01S00083.mac1    +++|*         USES   X - 0, 1, 2, 6.
00087  M01S00084.mac1    +++|*                A - 6.
00088  M01S00085.mac1    +++|*                B - 1.
00089  M01S00086.mac1    +++|*
00090  M01S00087.mac1    +++|*         CALLS  SFW.
00091  M01S00088.mac1    +++|*
00092  M01S00089.mac1    +++|*         MACROS ABORT, MESSAGE.
00093  M01S00090.mac1    +++|
00094  M01S00091.mac1    +++|
00095  M01S00092.mac1    +++| MACREL=  SUBR               ENTRY/EXIT
00096  M01S00093.mac1    +++|          SB1    1
00097  M01S00094.mac1    +++|          BX0    X2          SAVE SECOND ARGUMENT
00098  M01S00095.mac1    +++|          LX1    -6
00099  M01S00096.mac1    +++|          SX2    1R-
00100  M01S00097.mac1    +++|          BX1    X1+X2
00101  M01S00098.mac1    +++|          RJ     =XSFW
00102  M01S00099.mac1    +++|          BX1    X0
00103  M01S00100.mac1    +++|          SA6    MACB
00104  M01S00101.mac1    +++|          RJ     =XSFW
00105  M01S00102.mac1    +++|          SA6    MACB+3
00106  M01S00103.mac1    +++|          MESSAGE  MACB,LOCAL,R
00107  M01S00104.mac1    +++|          ABORT
00108  M01S00105.mac1    +++|
00109  M01S00106.mac1    +++| MACB     DATA   C* FILL-IN - ILLEGAL ARGUMENT  >FILL-IT-IN<.*
00110  M01S00107.mac1    +++|
00111  M01S00108.mac1    +++|          END
00112  M01S00109.mac1    +++|          IDENT  ABEND
00113  M01S00110.mac1    +++|          ENTRY  ABORT
00114  M01S00111.mac1    +++|          ENTRY  ENDRUN
00115  M01S00112.mac1    +++|          SYSCOM B1
00116  M01S00113.mac1    +++|          TITLE  ABORT - ABORT JOB  /  ENDRUN - END CENTRAL PROGRAM.
00117  M01S00114.mac1    +++|*COMMENT   ABORT/ENDRUN.

Line S00115 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00115.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00119  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00120  M01S00116.mac1    +++| ABORT    SPACE  4,10
00121  M01S00117.mac1    +++|***       ABORT - ABORT JOB.
00122  M01S00118.mac1    +++|*
00123  M01S00119.mac1    +++|*         CALL ABORT
00124  M01S00120.mac1    +++|*
00125  M01S00121.mac1    +++|*         ABORT;  (*SYMPL* CALL)
00126  M01S00122.mac1    +++|*
00127  M01S00123.mac1    +++|*         USES   B - 1.
00128  M01S00124.mac1    +++|*
00129  M01S00125.mac1    +++|*         MACROS ABORT.
00130  M01S00126.mac1    +++|
00131  M01S00127.mac1    +++|
00132  M01S00128.mac1    +++| ABORT    SUBR               ENTRY/EXIT
00133  M01S00129.mac1    +++|          SB1    1
00134  M01S00130.mac1    +++|          ABORT
00135  M01S00131.mac1    +++| ENDRUN   SPACE  4,10
00136  M01S00132.mac1    +++|***       ENDRUN - END CENTRAL PROGRAM.
00137  M01S00133.mac1    +++|*
00138  M01S00134.mac1    +++|*         CALL ENDRUN.
00139  M01S00135.mac1    +++|*
00140  M01S00136.mac1    +++|*         ENDRUN;            (*SYMPL* CALL)
00141  M01S00137.mac1    +++|*
00142  M01S00138.mac1    +++|*         USES   B - 1.
00143  M01S00139.mac1    +++|*
00144  M01S00140.mac1    +++|*         NOTE - A *STOP;* IN *SYMPL* DOES THE SAME THING.
00145  M01S00141.mac1    +++|
00146  M01S00142.mac1    +++|
00147  M01S00143.mac1    +++| ENDRUN   SUBR               ENTRY/EXIT
00148  M01S00144.mac1    +++|          SB1    1
00149  M01S00145.mac1    +++|          ENDRUN
00150  M01S00146.mac1    +++|
00151  M01S00147.mac1    +++|          END
00152  M01S00148.mac1    +++|          IDENT  BKSP
00153  M01S00149.mac1    +++|          ENTRY  BKSP
00154  M01S00150.mac1    +++|          SYSCOM B1
00155  M01S00151.mac1    +++|          TITLE  BKSP - BACKSPACE 1 LOGICAL RECORD.
00156  M01S00152.mac1    +++|*COMMENT   BACKSPACE 1 LOGICAL RECORD.

Line S00153 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00153.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00158  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00159  M01S00154.mac1    +++| BKSP     SPACE  4,10
00160  M01S00155.mac1    +++|***       BKSP - BACKSPACE 1 LOGICAL RECORD.
00161  M01S00156.mac1    +++|*
00162  M01S00157.mac1    +++|*         CALL BKSP (FILE,R)
00163  M01S00158.mac1    +++|*
00164  M01S00159.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
00165  M01S00160.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00166  M01S00161.mac1    +++|*
00167  M01S00162.mac1    +++|*         BKSP(FILE,R);      ( *SYMPL* CALL )
00168  M01S00163.mac1    +++|*
00169  M01S00164.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
00170  M01S00165.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00171  M01S00166.mac1    +++|*
00172  M01S00167.mac1    +++|*         USES   X - 2.
00173  M01S00168.mac1    +++|*                A - 2.
00174  M01S00169.mac1    +++|*                B - 1.
00175  M01S00170.mac1    +++|*
00176  M01S00171.mac1    +++|*         MACROS BKSP.
00177  M01S00172.mac1    +++|
00178  M01S00173.mac1    +++|
00179  M01S00174.mac1    +++| BKSP     SUBR               ENTRY/EXIT
00180  M01S00175.mac1    +++|          SB1    1
00181  M01S00176.mac1    +++|          SA2    A1+B1       ADDRESS OF RECALL
00182  M01S00177.mac1    +++|          SA2    X2          RECALL VALUE
00183  M01S00178.mac1    +++|          NZ     X2,BKS1     IF RECALL
00184  M01S00179.mac1    +++|          BKSP   X1
00185  M01S00180.mac1    +++|          EQ     BKSPX
00186  M01S00181.mac1    +++|
00187  M01S00182.mac1    +++| BKS1     BKSP   X1,R
00188  M01S00183.mac1    +++|          EQ     BKSPX
00189  M01S00184.mac1    +++|
00190  M01S00185.mac1    +++|          END
00191  M01S00186.mac1    +++|          IDENT  BKSPRU
00192  M01S00187.mac1    +++|          ENTRY  BKSPRU
00193  M01S00188.mac1    +++|          SYSCOM B1
00194  M01S00189.mac1    +++|          TITLE  BKSPRU - BACKSPACE PHYSICAL RECORDS.
00195  M01S00190.mac1    +++|*COMMENT   BACKSPACE PHYSICAL RECORDS.

Line S00191 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00191.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00197  M01S00004.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00198  M01S00192.mac1    +++| BKSPRU   SPACE  4,10
00199  M01S00193.mac1    +++|***       BKSPRU - BACKSPACE PHYSICAL RECORDS.
00200  M01S00194.mac1    +++|*
00201  M01S00195.mac1    +++|*         CALL BKSPRU (FILE,N,R)
00202  M01S00196.mac1    +++|*
00203  M01S00197.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
00204  M01S00198.mac1    +++|*                (N) = NUMBER OF RECORDS.
00205  M01S00199.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00206  M01S00200.mac1    +++|*
00207  M01S00201.mac1    +++|*         BKSPRU(FILE,N,R);  (*SYMPL* CALL)
00208  M01S00202.mac1    +++|*
00209  M01S00203.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
00210  M01S00204.mac1    +++|*                (N) = AN ITEM CONTAINING THE NUMBER OF PRU*S TO
00211  M01S00205.mac1    +++|*                      BACKSPACE
00212  M01S00206.mac1    +++|*                (R) = RECALL,IF .NE. 0, RECALL IS REQUESTED.
00213  M01S00207.mac1    +++|*
00214  M01S00208.mac1    +++|*         USES   X - 2, 3.
00215  M01S00209.mac1    +++|*                A - 2, 3.
00216  M01S00210.mac1    +++|*                B - 1.
00217  M01S00211.mac1    +++|*
00218  M01S00212.mac1    +++|*         MACROS BKSPRU.
00219  M01S00213.mac1    +++|*
00220  M01S00214.mac1    +++|
00221  M01S00215.mac1    +++|
00222  M01S00216.mac1    +++| BKSPRU   SUBR               ENTRY/EXIT
00223  M01S00217.mac1    +++|          SB1    1
00224  M01S00218.mac1    +++|          SA3    A1+B1       ADDRESS OF N
00225  M01S00219.mac1    +++|          SA2    A3+B1       GET RECALL PARAMETER
00226  M01S00220.mac1    +++|          SA3    X3          N
00227  M01S00221.mac1    +++|          SA2    X2
00228  M01S00222.mac1    +++|          NZ     X2,BKP1     IF RECALL REQUESTED
00229  M01S00223.mac1    +++|          BKSPRU X1,X3
00230  M01S00224.mac1    +++|          EQ     BKSPRUX
00231  M01S00225.mac1    +++|
00232  M01S00226.mac1    +++| BKP1     BKSPRU X1,X3,R
00233  M01S00227.mac1    +++|          EQ     BKSPRUX
00234  M01S00228.mac1    +++|
00235  M01S00229.mac1    +++|          END
00236  M01S00230.mac1    +++|          IDENT  CHECKPT
00237  M01S00231.mac1    +++|          ENTRY  CHECKPT
00238  M01S00232.mac1    +++|          SYSCOM B1
00239  M01S00233.mac1    +++|          TITLE  CHECKPT - TAKE CHECKPOINT DUMP.
00240  M01S00234.mac1    +++|*COMMENT   TAKE CHECKPOINT DUMP.

Line S00235 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00235.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00242  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00243  M01S00236.mac1    +++| CHECKPT  SPACE  4,10
00244  M01S00237.mac1    +++|***       CHECKPT - TAKE CHECKPOINT DUMP.
00245  M01S00238.mac1    +++|*
00246  M01S00239.mac1    +++|*         CALL CHECKPT (LIST,OPTION)
00247  M01S00240.mac1    +++|*
00248  M01S00241.mac1    +++|*         ENTRY  (LIST) = LIST OF FILE PROCESSING SPECIFICATIONS.
00249  M01S00242.mac1    +++|*                (OPTION) = 0, PROCESS ALL FILES.
00250  M01S00243.mac1    +++|*                         = OTHER, PROCESS ONLY THE SPECIFIED FILES.
00251  M01S00244.mac1    +++|*
00252  M01S00245.mac1    +++|*         CHECKPT(LIST,OPTION);   (*SYMPL* CALL)
00253  M01S00246.mac1    +++|*
00254  M01S00247.mac1    +++|*         ENTRY   LIST, AN ARRAY THAT CONTAINS A LIST OF FILE
00255  M01S00248.mac1    +++|*                 PROCESSING SPECIFICATIONS.
00256  M01S00249.mac1    +++|*                 OPTION, AN ITEM THAT CONTAINS THE OPTION.
00257  M01S00250.mac1    +++|*
00258  M01S00251.mac1    +++|*         USES   X - 2.
00259  M01S00252.mac1    +++|*                A - 2.
00260  M01S00253.mac1    +++|*                B - 1.
00261  M01S00254.mac1    +++|*
00262  M01S00255.mac1    +++|*         MACROS CHECKPT.
00263  M01S00256.mac1    +++|
00264  M01S00257.mac1    +++|
00265  M01S00258.mac1    +++| CHECKPT  SUBR               ENTRY/EXIT
00266  M01S00259.mac1    +++|          SB1    1
00267  M01S00260.mac1    +++|          SA2    A1+B1       ADDRESS OF OPTION
00268  M01S00261.mac1    +++|          SA2    X2          OPTION
00269  M01S00262.mac1    +++|          ZR     X2,CHE1     IF ALL FILES TO BE PROCESSED
00270  M01S00263.mac1    +++|          CHECKPT X1,OPTION
00271  M01S00264.mac1    +++|          EQ     CHECKPTX
00272  M01S00265.mac1    +++|
00273  M01S00266.mac1    +++| CHE1     CHECKPT X1
00274  M01S00267.mac1    +++|          EQ     CHECKPTX
00275  M01S00268.mac1    +++|
00276  M01S00269.mac1    +++|          END
00277  M01S00270.mac1    +++|          IDENT  CLOCK
00278  M01S00271.mac1    +++|          ENTRY  CLOCK
00279  M01S00272.mac1    +++|          SYSCOM B1
00280  M01S00273.mac1    +++|          TITLE  CLOCK - OBTAIN TIME OF DAY.
00281  M01S00274.mac1    +++|*COMMENT   OBTAIN TIME OF DAY.

Line S00275 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00275.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00283  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00284  M01S00276.mac1    +++| CLOCK    SPACE  4,10
00285  M01S00277.mac1    +++|***       CLOCK - OBTAIN TIME OF DAY.
00286  M01S00278.mac1    +++|*
00287  M01S00279.mac1    +++|*         CALL CLOCK (STATUS)
00288  M01S00280.mac1    +++|*
00289  M01S00281.mac1    +++|*         EXIT   (STATUS) = TIME OF DAY.
00290  M01S00282.mac1    +++|*T        60/ * HH.MM.SS.*

Figure

00291  M01S00283.mac1    +++|*
00292  M01S00284.mac1    +++|*         CLOCK(STATUS);  (*SYMPL* CALL)
00293  M01S00285.mac1    +++|*
00294  M01S00286.mac1    +++|*         EXIT   STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE
00295  M01S00287.mac1    +++|*                CLOCK READING.
00296  M01S00288.mac1    +++|*
00297  M01S00289.mac1    +++|*         USES   X - 1, 5, 6.
00298  M01S00290.mac1    +++|*                A - 1.
00299  M01S00291.mac1    +++|*                B - 1.
00300  M01S00292.mac1    +++|*
00301  M01S00293.mac1    +++|*         MACROS CLOCK.
00302  M01S00294.mac1    +++|
00303  M01S00295.mac1    +++|
00304  M01S00296.mac1    +++| CLOCK    SUBR               ENTRY/EXIT
00305  M01S00297.mac1    +++|          SB1    1
00306  M01S00298.mac1    +++|          BX5    X1
00307  M01S00299.mac1    +++|          CLOCK  X1
00308  M01S00300.mac1    +++|          SA1    X5
00309  M01S00301.mac1    +++|          BX6    X1          RETURN TIME OF DAY AS FUNCTION RESULT
00310  M01S00302.mac1    +++|          EQ     CLOCKX
00311  M01S00303.mac1    +++|
00312  M01S00304.mac1    +++|          END
00313  M01S00305.mac1    +++|          IDENT  CLOSE
00314  M01S00306.mac1    +++|          ENTRY  CLOSE
00315  M01S00307.mac1    +++|          SYSCOM B1
00316  M01S00308.mac1    +++|          TITLE  CLOSE - CLOSE FILE.
00317  M01S00309.mac1    +++|*COMMENT   CLOSE FILE.

Line S00310 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00310.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00319  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00320  M01S00311.mac1    +++| CLOSE    SPACE  4,10
00321  M01S00312.mac1    +++|***       CLOSE - CLOSE FILE.
00322  M01S00313.mac1    +++|*
00323  M01S00314.mac1    +++|*         CALL CLOSE (FILE,OPTION,R)
00324  M01S00315.mac1    +++|*
00325  M01S00316.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
00326  M01S00317.mac1    +++|*                (OPTION) = 0, CLOSE WITH REWIND.
00327  M01S00318.mac1    +++|*                         = 2HNR, CLOSE WITHOUT REWIND.
00328  M01S00319.mac1    +++|*                         = 6HRETURN, CLOSE WITH REWIND, RETURN.
00329  M01S00320.mac1    +++|*                         = 6HREWIND, CLOSE WITH REWIND.
00330  M01S00321.mac1    +++|*                         = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
00331  M01S00322.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00332  M01S00323.mac1    +++|*
00333  M01S00324.mac1    +++|*         CLOSE(FILE,OPTION,R); (*SYMPL* CALL)
00334  M01S00325.mac1    +++|*
00335  M01S00326.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
00336  M01S00327.mac1    +++|*                 OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
00337  M01S00328.mac1    +++|*                         CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
00338  M01S00329.mac1    +++|*                         FILL, OR A BINARY 0.
00339  M01S00330.mac1    +++|*                            NR  (NO REWIND).
00340  M01S00331.mac1    +++|*                            RETURN.
00341  M01S00332.mac1    +++|*                            REWIND (SAME AS 0).
00342  M01S00333.mac1    +++|*                            UNLOAD.
00343  M01S00334.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00344  M01S00335.mac1    +++|*
00345  M01S00336.mac1    +++|*         EXIT   TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
00346  M01S00337.mac1    +++|*
00347  M01S00338.mac1    +++|*         USES   X - 2, 3, 4.
00348  M01S00339.mac1    +++|*                A - 2, 3, 4.
00349  M01S00340.mac1    +++|*                B - 1.
00350  M01S00341.mac1    +++|*
00351  M01S00342.mac1    +++|*         CALLS MACREL.
00352  M01S00343.mac1    +++|*
00353  M01S00344.mac1    +++|*         MACROS CLOSE.
00354  M01S00345.mac1    +++|
00355  M01S00346.mac1    +++|
00356  M01S00347.mac1    +++| CLOSE    SUBR               ENTRY/EXIT
00357  M01S00348.mac1    +++|          SB1    1
00358  M01S00349.mac1    +++|          SA2    A1+B1       ADDRESS OF OPTION
00359  M01S00350.mac1    +++|          SA3    A2+B1       GET ADDRESS OF RECALL PARAMETER
00360  M01S00351.mac1    +++|          SA2    X2          OPTION
00361  M01S00352.mac1    +++|          SA3    X3          RECALL OPTION
00362  M01S00353.mac1    +++|          ZR     X2,CLO1     IF REWIND
00363  M01S00354.mac1    +++|          NO
00364  M01S00355.mac1    +++|          SA4    =0HNR
00365  M01S00356.mac1    +++|          BX4    X2-X4
00366  M01S00357.mac1    +++|          ZR     X4,CLO2     IF NR
00367  M01S00358.mac1    +++|          SA4    =0HRETURN
00368  M01S00359.mac1    +++|          BX4    X2-X4
00369  M01S00360.mac1    +++|          ZR     X4,CLO6     IF RETURN
00370  M01S00361.mac1    +++|          SA4    =0HREWIND
00371  M01S00362.mac1    +++|          BX4    X2-X4
00372  M01S00363.mac1    +++|          ZR     X4,CLO1     IF REWIND
00373  M01S00364.mac1    +++|          SA4    =0HUNLOAD
00374  M01S00365.mac1    +++|          BX4    X2-X4
00375  M01S00366.mac1    +++|          ZR     X4,CLO8     IF UNLOAD
00376  M01S00367.mac1    +++|          SA1    =0LCLOSE
00377  M01S00368.mac1    +++|          RJ     =XMACREL=   DIAGNOSE ILLEGAL ARGUMENT
00378  M01S00369.mac1    +++|          EQ     CLOSEX
00379  M01S00370.mac1    +++|
00380  M01S00371.mac1    +++| CLO1     NZ     X3,CLO5     IF RECALL
00381  M01S00372.mac1    +++|          CLOSE  X1
00382  M01S00373.mac1    +++|          EQ     CLOSEX
00383  M01S00374.mac1    +++|
00384  M01S00375.mac1    +++| CLO2     NZ     X3,CLO6     IF RECALL
00385  M01S00376.mac1    +++|          CLOSE  X1,NR
00386  M01S00377.mac1    +++|          EQ     CLOSEX
00387  M01S00378.mac1    +++|
00388  M01S00379.mac1    +++| CLO3     NZ     X3,CLO7     IF RECALL
00389  M01S00380.mac1    +++|          CLOSE  X1,RETURN
00390  M01S00381.mac1    +++|          EQ     CLOSEX
00391  M01S00382.mac1    +++|
00392  M01S00383.mac1    +++| CLO4     NZ     X3,CLO8     IF RECALL
00393  M01S00384.mac1    +++|          CLOSE  X1,UNLOAD
00394  M01S00385.mac1    +++|          EQ     CLOSEX
00395  M01S00386.mac1    +++|
00396  M01S00387.mac1    +++| CLO5     CLOSE  X1,,R
00397  M01S00388.mac1    +++|          EQ     CLOSEX
00398  M01S00389.mac1    +++|
00399  M01S00390.mac1    +++| CLO6     CLOSE  X1,NR,R
00400  M01S00391.mac1    +++|          EQ     CLOSEX
00401  M01S00392.mac1    +++|
00402  M01S00393.mac1    +++| CLO7     CLOSE  X1,RETURN,R
00403  M01S00394.mac1    +++|          EQ     CLOSEX
00404  M01S00395.mac1    +++|
00405  M01S00396.mac1    +++| CLO8     CLOSE  X1,UNLOAD,R
00406  M01S00397.mac1    +++|          EQ     CLOSEX
00407  M01S00398.mac1    +++|
00408  M01S00399.mac1    +++|          END
00409  M01S00400.mac1    +++|          IDENT  CLOSER
00410  M01S00401.mac1    +++|          ENTRY  CLOSER
00411  M01S00402.mac1    +++|          SYSCOM B1
00412  M01S00403.mac1    +++|          TITLE  CLOSER - CLOSE REEL.
00413  M01S00404.mac1    +++|*COMMENT   CLOSE REEL.

Line S00405 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00405.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00415  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00416  M01S00406.mac1    +++| CLOSER   SPACE  4,10
00417  M01S00407.mac1    +++|***       CLOSER - CLOSER REEL.
00418  M01S00408.mac1    +++|*
00419  M01S00409.mac1    +++|*         CALL CLOSER (FILE,OPTION,R)
00420  M01S00410.mac1    +++|*
00421  M01S00411.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
00422  M01S00412.mac1    +++|*                (OPTION) = 0, CLOSE WITH REWIND.
00423  M01S00413.mac1    +++|*                         = 2HNR, CLOSE WITHOUT REWIND.
00424  M01S00414.mac1    +++|*                         = 6HREWIND, CLOSE WITH REWIND.
00425  M01S00415.mac1    +++|*                         = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
00426  M01S00416.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00427  M01S00417.mac1    +++|*
00428  M01S00418.mac1    +++|*         CLOSER(FILE,OPTION,R); (*SYMPL* CALL)
00429  M01S00419.mac1    +++|*
00430  M01S00420.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
00431  M01S00421.mac1    +++|*                 OPTION, AN ITEM THE CONTAINS ONE OF THE FOLLOWING
00432  M01S00422.mac1    +++|*                         CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
00433  M01S00423.mac1    +++|*                         FILL, OR A BINARY 0.
00434  M01S00424.mac1    +++|*                            NR  (NO REWIND).
00435  M01S00425.mac1    +++|*                            REWIND (SAME AS 0).
00436  M01S00426.mac1    +++|*                            UNLOAD.
00437  M01S00427.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00438  M01S00428.mac1    +++|*
00439  M01S00429.mac1    +++|*         EXIT   TO ARGUMENT ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
00440  M01S00430.mac1    +++|*
00441  M01S00431.mac1    +++|*         USES   X - 1, 2, 3, 4.
00442  M01S00432.mac1    +++|*                A - 1, 2, 3, 4.
00443  M01S00433.mac1    +++|*                B - 1.
00444  M01S00434.mac1    +++|*
00445  M01S00435.mac1    +++|*         CALLS MACREL.
00446  M01S00436.mac1    +++|*
00447  M01S00437.mac1    +++|*         MACROS CLOSER.
00448  M01S00438.mac1    +++|
00449  M01S00439.mac1    +++|
00450  M01S00440.mac1    +++|
00451  M01S00441.mac1    +++| CLOSER   SUBR               ENTRY/EXIT
00452  M01S00442.mac1    +++|          SB1    1
00453  M01S00443.mac1    +++|          SA2    A1+B1       ADDRESS OF OPTION
00454  M01S00444.mac1    +++|          SA3    A2+B1       GET RECALL PARAMETER ADDRESS
00455  M01S00445.mac1    +++|          SA2    X2          OPTION
00456  M01S00446.mac1    +++|          SA3    X3          GET RECALL VALUE
00457  M01S00447.mac1    +++|          ZR     X2,CLO1     IF REWIND
00458  M01S00448.mac1    +++|          NO
00459  M01S00449.mac1    +++|          SA4    =0HNR
00460  M01S00450.mac1    +++|          BX4    X2-X4
00461  M01S00451.mac1    +++|          ZR     X4,CLO2     IF NR
00462  M01S00452.mac1    +++|          SA4    =0HREWIND
00463  M01S00453.mac1    +++|          BX4    X2-X4
00464  M01S00454.mac1    +++|          ZR     X4,CLO1     IF REWIND
00465  M01S00455.mac1    +++|          SA4    =0HUNLOAD
00466  M01S00456.mac1    +++|          BX4    X2-X4
00467  M01S00457.mac1    +++|          ZR     X4,CLO3     IF UNLOAD
00468  M01S00458.mac1    +++|          SA1    =0LCLOSER
00469  M01S00459.mac1    +++|          RJ     =XMACREL=   DIAGNOSE ILLEGAL ARGUMENT
00470  M01S00460.mac1    +++|          EQ     CLOSERX
00471  M01S00461.mac1    +++|
00472  M01S00462.mac1    +++| CLO1     NZ     X3,CLO4     IF RECALL
00473  M01S00463.mac1    +++|          CLOSER X1
00474  M01S00464.mac1    +++|          EQ     CLOSERX
00475  M01S00465.mac1    +++|
00476  M01S00466.mac1    +++| CLO2     NZ     X3,CLO5     IF RECALL
00477  M01S00467.mac1    +++|          CLOSER X1,NR
00478  M01S00468.mac1    +++|          EQ     CLOSERX
00479  M01S00469.mac1    +++|
00480  M01S00470.mac1    +++| CLO3     NZ     X3,CLO6     IF RECALL
00481  M01S00471.mac1    +++|          CLOSER X1,UNLOAD
00482  M01S00472.mac1    +++|          EQ     CLOSERX
00483  M01S00473.mac1    +++|
00484  M01S00474.mac1    +++| CLO4     CLOSER X1,,R
00485  M01S00475.mac1    +++|          EQ     CLOSERX
00486  M01S00476.mac1    +++|
00487  M01S00477.mac1    +++| CLO5     CLOSER X1,NR,R
00488  M01S00478.mac1    +++|          EQ     CLOSERX
00489  M01S00479.mac1    +++|
00490  M01S00480.mac1    +++| CLO6     CLOSER X1,UNLOAD,R
00491  M01S00481.mac1    +++|          EQ     CLOSERX
00492  M01S00482.mac1    +++|
00493  M01S00483.mac1    +++|          END
00494  M01S00484.mac1    +++|          IDENT  CONSOLE
00495  M01S00485.mac1    +++|          ENTRY  CONSOLE
00496  M01S00486.mac1    +++|          SYSCOM B1
00497  M01S00487.mac1    +++|          TITLE  CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
00498  M01S00488.mac1    +++|*COMMENT COMMUNICATE WITH THE *K* AND *L* DISPLAY.

Line S00489 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00489.281l803 ---|          COMMENT  COPYRIGHT CONTROL CORP. 1978.
00500  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00501  M01S00490.mac1    +++| CONSOLE  SPACE  4,10
00502  M01S00491.mac1    +++|***       CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
00503  M01S00492.mac1    +++|*
00504  M01S00493.mac1    +++|*         CALL CONSOLE (ADDR)
00505  M01S00494.mac1    +++|*
00506  M01S00495.mac1    +++|*         CONSOLE(ADDR);   (*SYMPL* CALL)
00507  M01S00496.mac1    +++|*
00508  M01S00497.mac1    +++|*         ENTRY  (ADDR) = ADDRESS OF CONSOLE PARAMETER WORD.
00509  M01S00498.mac1    +++|*                IF (ADDR) = 0, CONSOLE OPERATIONS ARE TERMINATED.
00510  M01S00499.mac1    +++|*T,       6/0,18/IB,18/RB,18/LB

Figure

00511  M01S00500.mac1    +++|*                IB = KEYBOARD BUFFER ADDRESS.
00512  M01S00501.mac1    +++|*                RB = ADDRESS OF FORMATTED BUFFER FOR RIGHT SCREEN.
00513  M01S00502.mac1    +++|*                LB = ADDRESS OF FORMATTED BUFFER FOR LEFT SCREEN.
00514  M01S00503.mac1    +++|*
00515  M01S00504.mac1    +++|*         USES   B - 1.
00516  M01S00505.mac1    +++|*
00517  M01S00506.mac1    +++|*         MACROS CONSOLE.
00518  M01S00507.mac1    +++|
00519  M01S00508.mac1    +++|
00520  M01S00509.mac1    +++| CONSOLE  BSS    0
00521  M01S00510.mac1    +++| CONSL    SUBR               ENTRY/EXIT
00522  M01S00511.mac1    +++|          SB1    1
00523  M01S00512.mac1    +++|          CONSOLE  X1
00524  M01S00513.mac1    +++|          EQ     CONSLX      EXIT
00525  M01S00514.mac1    +++|
00526  M01S00515.mac1    +++|          END
00527  M01S00516.mac1    +++|          IDENT  DATE
00528  M01S00517.mac1    +++|          ENTRY  DATE
00529  M01S00518.mac1    +++|          SYSCOM B1
00530  M01S00519.mac1    +++|          TITLE  DATE - OBTAIN DATE.
00531  M01S00520.mac1    +++|*COMMENT   OBTAIN DATE.

Line S00521 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00521.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00533  M01S00010.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00534  M01S00522.mac1    +++| DATE     SPACE  4,10
00535  M01S00523.mac1    +++|***       DATE - OBTAIN DATE.
00536  M01S00524.mac1    +++|*
00537  M01S00525.mac1    +++|*         CALL DATE (STATUS)
00538  M01S00526.mac1    +++|*
00539  M01S00527.mac1    +++|*         EXIT   (STATUS) = DATE.
00540  M01S00528.mac1    +++|*T        60/ * YY/MM/DD.*

Figure

00541  M01S00529.mac1    +++|*
00542  M01S00530.mac1    +++|*         DATE(STATUS);  (*SYMPL* CALL)
00543  M01S00531.mac1    +++|*
00544  M01S00532.mac1    +++|*         EXIT   (STATUS), A CHARACTER ITEM CONTAINING THE TIME.
00545  M01S00533.mac1    +++|*
00546  M01S00534.mac1    +++|*         USES   X - 1, 5, 6.
00547  M01S00535.mac1    +++|*                A - 1.
00548  M01S00536.mac1    +++|*                B - 1.
00549  M01S00537.mac1    +++|*
00550  M01S00538.mac1    +++|*         MACROS DATE.
00551  M01S00539.mac1    +++|
00552  M01S00540.mac1    +++|
00553  M01S00541.mac1    +++| DATE     SUBR               ENTRY/EXIT
00554  M01S00542.mac1    +++|          SB1    1
00555  M01S00543.mac1    +++|          BX5    X1
00556  M01S00544.mac1    +++|          DATE   X1
00557  M01S00545.mac1    +++|          SA1    X5
00558  M01S00546.mac1    +++|          BX6    X1          RETURN DATE AS FUNCTION RESULT
00559  M01S00547.mac1    +++|          EQ     DATEX
00560  M01S00548.mac1    +++|
00561  M01S00549.mac1    +++|          END
00562  M01S00550.mac1    +++|          IDENT  EDATE
00563  M01S00551.mac1    +++|          ENTRY  EDATE
00564  M01S00552.mac1    +++|          SYSCOM B1
00565  M01S00553.mac1    +++|          TITLE  EDATE - EDIT DATE FROM PACKED FORMAT.
00566  M01S00554.mac1    +++|*COMMENT   EDIT DATE FROM PACKED FORMAT.

Line S00555 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00555.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1979.
00568  M01S00011.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00569  M01S00556.mac1    +++| EDATE    SPACE  4,15
00570  M01S00557.mac1    +++|***       EDATE - EDIT DATE FROM PACKED FORMAT.
00571  M01S00558.mac1    +++|*
00572  M01S00559.mac1    +++|*         STAT = EDATE(PKDT)
00573  M01S00560.mac1    +++|*
00574  M01S00561.mac1    +++|*         STAT = EDATE(PKDT);   (*SYMPL* CALL)
00575  M01S00562.mac1    +++|*
00576  M01S00563.mac1    +++|*         ENTRY  (PKDT) = PACKED DATE IN LOWER 18 BITS.
00577  M01S00564.mac1    +++|*
00578  M01S00565.mac1    +++|*         EXIT   (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
00579  M01S00566.mac1    +++|*                       EDITED DATE IN THE FOLLOWING
00580  M01S00567.mac1    +++|*                       FORMAT -
00581  M01S00568.mac1    +++|*                                * YY/MM/DD.*.
00582  M01S00569.mac1    +++|*
00583  M01S00570.mac1    +++|*         USES   X - 1.
00584  M01S00571.mac1    +++|*                A - 1.
00585  M01S00572.mac1    +++|*                B - 1.
00586  M01S00573.mac1    +++|*
00587  M01S00574.mac1    +++|*         MACROS EDATE.
00588  M01S00575.mac1    +++|
00589  M01S00576.mac1    +++|
00590  M01S00577.mac1    +++| EDATE    SUBR               ENTRY/EXIT
00591  M01S00578.mac1    +++|          SB1    1
00592  M01S00579.mac1    +++|          SA1    X1          GET PACKED DATE
00593  M01S00580.mac1    +++|          EDATE  X1
00594  M01S00581.mac1    +++|          EQ     EDATEX      RETURN
00595  M01S00582.mac1    +++|
00596  M01S00583.mac1    +++|*CALL COMCCDD
00597  M01S00584.mac1    +++|*CALL COMCEDT
00598  M01S00585.mac1    +++|
00599  M01S00586.mac1    +++|          END
00600  M01S00587.mac1    +++|          IDENT  ETIME
00601  M01S00588.mac1    +++|          ENTRY  ETIME
00602  M01S00589.mac1    +++|          SYSCOM B1
00603  M01S00590.mac1    +++|          TITLE  ETIME - EDIT TIME FROM PACKED FORMAT.
00604  M01S00591.mac1    +++|*COMMENT   EDIT TIME FROM PACKED FORMAT.

Line S00592 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00592.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1979.
00606  M01S00012.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00607  M01S00593.mac1    +++| ETIME    SPACE  4,15
00608  M01S00594.mac1    +++|***       ETIME - EDIT TIME FROM PACKED FORMAT.
00609  M01S00595.mac1    +++|*
00610  M01S00596.mac1    +++|*         STAT = ETIME(PKTM)
00611  M01S00597.mac1    +++|*
00612  M01S00598.mac1    +++|*         STAT = ETIME(PKTM);   (*SYMPL* CALL)
00613  M01S00599.mac1    +++|*
00614  M01S00600.mac1    +++|*         ENTRY  (PKTM) = PACKED TIME IN LOWER 18 BITS.
00615  M01S00601.mac1    +++|*
00616  M01S00602.mac1    +++|*         EXIT   (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
00617  M01S00603.mac1    +++|*                       EDITED TIME IN THE FOLLOWING
00618  M01S00604.mac1    +++|*                       FORMAT -
00619  M01S00605.mac1    +++|*                                * HH.MM.SS.*.
00620  M01S00606.mac1    +++|*
00621  M01S00607.mac1    +++|*         USES   X - 1.
00622  M01S00608.mac1    +++|*                A - 1.
00623  M01S00609.mac1    +++|*                B - 1.
00624  M01S00610.mac1    +++|*
00625  M01S00611.mac1    +++|*         MACROS ETIME.
00626  M01S00612.mac1    +++|
00627  M01S00613.mac1    +++|
00628  M01S00614.mac1    +++| ETIME    SUBR               ENTRY/EXIT
00629  M01S00615.mac1    +++|          SB1    1
00630  M01S00616.mac1    +++|          SA1    X1          GET PACKED TIME
00631  M01S00617.mac1    +++|          ETIME  X1
00632  M01S00618.mac1    +++|          EQ     ETIMEX      RETURN
00633  M01S00619.mac1    +++|
00634  M01S00620.mac1    +++|*CALL COMCCDD
00635  M01S00621.mac1    +++|*CALL COMCEDT
00636  M01S00622.mac1    +++|
00637  M01S00623.mac1    +++|          END
00638  M01S00624.mac1    +++|          IDENT  EVICT
00639  M01S00625.mac1    +++|          ENTRY  EVICT
00640  M01S00626.mac1    +++|          SYSCOM B1
00641  M01S00627.mac1    +++|          TITLE  EVICT - RELEASE FILE SPACE.
00642  M01S00628.mac1    +++|*COMMENT   RELEASE FILE SPACE.

Line S00629 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00629.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00644  M01S00013.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00645  M01S00630.mac1    +++| EVICT    SPACE  4,10
00646  M01S00631.mac1    +++|***       EVICT - RELEASE FILE SPACE.
00647  M01S00632.mac1    +++|*
00648  M01S00633.mac1    +++|*         CALL EVICT (FILE,R)
00649  M01S00634.mac1    +++|*
00650  M01S00635.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
00651  M01S00636.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00652  M01S00637.mac1    +++|*
00653  M01S00638.mac1    +++|*         EVICT(FILE,R);     (*SYMPL* CALL)
00654  M01S00639.mac1    +++|*
00655  M01S00640.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
00656  M01S00641.mac1    +++|*                (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
00657  M01S00642.mac1    +++|*
00658  M01S00643.mac1    +++|*         USES   X - 2.
00659  M01S00644.mac1    +++|*                A - 2.
00660  M01S00645.mac1    +++|*                B - 1.
00661  M01S00646.mac1    +++|*
00662  M01S00647.mac1    +++|*         MACROS EVICT.
00663  M01S00648.mac1    +++|
00664  M01S00649.mac1    +++|
00665  M01S00650.mac1    +++| EVICT    SUBR               ENTRY/EXIT
00666  M01S00651.mac1    +++|          SB1    1
00667  M01S00652.mac1    +++|          SA2    A1+B1
00668  M01S00653.mac1    +++|          SA2    X2          RECALL VALUE
00669  M01S00654.mac1    +++|          NZ     X2,EVT1     IF RECALL ON
00670  M01S00655.mac1    +++|          EVICT  X1
00671  M01S00656.mac1    +++|          EQ     EVICTX
00672  M01S00657.mac1    +++|
00673  M01S00658.mac1    +++| EVT1     EVICT  X1,R
00674  M01S00659.mac1    +++|          EQ     EVICTX
00675  M01S00660.mac1    +++|
00676  M01S00661.mac1    +++|          END
00677  M01S00001.ns22000 +++|          IDENT  FILINFO
00678  M01S00002.ns22000 +++|          ENTRY  FILINFO
00679  M01S00003.ns22000 +++|          SYSCOM B1
00680  M01S00003.ns2676  +++|          TITLE  FILINFO - FILE INFORMATION.
00681  M01S00004.ns22000 +++|  COMMENT 82/11/15.          FILE INFORMATION.

Line S00005 Modification History
`M01` (Added by)	`ns22000`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00683  M01S00014.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00684  M01S00006.ns22000 +++|          SPACE  4,10
00685  M01S00007.ns22000 +++|***       FILINFO - FILE INFORMATION.
00686  M01S00008.ns22000 +++|*
00687  M01S00009.ns22000 +++|*         CALL FILINFO(PAR)      *FORTRAN*
00688  M01S00010.ns22000 +++|*
00689  M01S00011.ns22000 +++|*         FILINFO(PAR);          *SYMPL*
00690  M01S00012.ns22000 +++|*
00691  M01S00013.ns22000 +++|*         ENTRY  (PAR) = FIVE WORD PARAMETER BLOCK.
00692  M01S00014.ns22000 +++|*                        THE FIRST WORD MUST HAVE THE
00693  M01S00015.ns22000 +++|*                        FOLLOWING FORMAT :
00694  M01S00016.ns22000 +++|*
00695  M01S00017.ns22000 +++|*                        VFD    42/LFN, 6/LEN, 11/0, 1/1
00696  M01S00018.ns22000 +++|*
00697  M01S00019.ns22000 +++|*                        WHERE
00698  M01S00020.ns22000 +++|*
00699  M01S00021.ns22000 +++|*                        LFN   FILE NAME, LEFT JUSTIFIED, 0 FILLED.
00700  M01S00022.ns22000 +++|*                        LEN   MUST BE AT LEAST 5 WORDS.
00701  M01S00023.ns22000 +++|*
00702  M01S00024.ns22000 +++|*         EXIT   INFORMATION ABOUT THE FILE IS RETURNED IN THE
00703  M01S00025.ns22000 +++|*                PARAMETER BLOCK (SEE NOS VERS. 2, VOL. 4).
00704  M01S00026.ns22000 +++|*
00705  M01S00027.ns22000 +++|*         USE    B - 1.
00706  M01S00028.ns22000 +++|*
00707  M01S00029.ns22000 +++|*         MACRO  FILINFO.
00708  M01S00030.ns22000 +++|
00709  M01S00031.ns22000 +++|
00710  M01S00032.ns22000 +++| FILINFO  SUBR               ENTRY/EXIT
00711  M01S00033.ns22000 +++|          SB1    1
00712  M01S00034.ns22000 +++|          FILINFO X1
00713  M01S00035.ns22000 +++|          EQ     FILINFOX    RETURN
00714  M01S00036.ns22000 +++|          END
00715  M01S00662.mac1    +++|          IDENT  GETJN
00716  M01S00663.mac1    +++|          ENTRY  GETJN
00717  M01S00664.mac1    +++|          SYSCOM 1
00718  M01S00665.mac1    +++|          TITLE  GETJN - GET JOB SEQUENCE NUMBER.
00719  M01S00666.mac1    +++|*COMMENT GET JOB SEQUENCE NUMBER.

Line S00667 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00667.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1981.
00721  M01S00015.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00722  M01S00668.mac1    +++| GETJN    SPACE  4,10
00723  M01S00669.mac1    +++|***       GETJN - GET JOB SEQUENCE NUMBER.
00724  M01S00670.mac1    +++|*
00725  M01S00671.mac1    +++|*         CALL GETJN(ADDR)
00726  M01S00672.mac1    +++|*
00727  M01S00673.mac1    +++|*         GETJN(ADDR)
00728  M01S00674.mac1    +++|*
00729  M01S00675.mac1    +++|*         ENTRY  (ADDR) = ADDRESS TO RECIEVE JOB SEQUENCE NUMBER.
00730  M01S00676.mac1    +++|*
00731  M01S00677.mac1    +++|*         EXIT   ((ADDR)) = JOB SEQUENCE NUMBER.
00732  M01S00678.mac1    +++|*
00733  M01S00679.mac1    +++|*         USES   B - 1.
00734  M01S00680.mac1    +++|*
00735  M01S00681.mac1    +++|*         MACROS GETJN.
00736  M01S00682.mac1    +++|
00737  M01S00683.mac1    +++|
00738  M01S00684.mac1    +++| GETJN    SUBR               ENTRY/EXIT
00739  M01S00685.mac1    +++|          SB1    1
00740  M01S00686.mac1    +++|          GETJN  X1
00741  M01S00687.mac1    +++|          EQ     GETJNX      EXIT
00742  M01S00688.mac1    +++|
00743  M01S00689.mac1    +++|          END
00744  M01S00690.mac1    +++|          IDENT  JDATE
00745  M01S00691.mac1    +++|          ENTRY  JDATE
00746  M01S00692.mac1    +++|          SYSCOM B1
00747  M01S00693.mac1    +++|          TITLE  JDATE - OBTAIN JULIAN DATE.
00748  M01S00694.mac1    +++|*COMMENT   OBTAIN JULIAN DATE.

Line S00695 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00695.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00750  M01S00016.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00751  M01S00696.mac1    +++| JDATE    SPACE  4,10
00752  M01S00697.mac1    +++|***       JDATE - OBTAIN JULIAN DATE.
00753  M01S00698.mac1    +++|*
00754  M01S00699.mac1    +++|*         CALL JDATE (STATUS)
00755  M01S00700.mac1    +++|*
00756  M01S00701.mac1    +++|*         EXIT   (STATUS) = JULIAN DATE.
00757  M01S00702.mac1    +++|*T        30/ 0,  30/ *YYDDD*

Figure

00758  M01S00703.mac1    +++|*
00759  M01S00704.mac1    +++|*         JDATE(STATUS);  (*SYMPL* CALL)
00760  M01S00705.mac1    +++|*
00761  M01S00706.mac1    +++|*         EXIT   STATUS, A CHARACTER ITEM TO CONTAIN JULIAN
00762  M01S00707.mac1    +++|*                        DATE ON EXIT.
00763  M01S00708.mac1    +++|*
00764  M01S00709.mac1    +++|*         USES   X - 1, 5, 6.
00765  M01S00710.mac1    +++|*                A - 1.
00766  M01S00711.mac1    +++|*                B - 1.
00767  M01S00712.mac1    +++|*
00768  M01S00713.mac1    +++|*         MACROS JDATE.
00769  M01S00714.mac1    +++|
00770  M01S00715.mac1    +++|
00771  M01S00716.mac1    +++| JDATE    SUBR               ENTRY/EXIT
00772  M01S00717.mac1    +++|          SB1    1
00773  M01S00718.mac1    +++|          BX5    X1
00774  M01S00719.mac1    +++|          JDATE  X1
00775  M01S00720.mac1    +++|          SA1    X5
00776  M01S00721.mac1    +++|          BX6    X1          RETURN JULIAN DATE AS FUNCTION RESULT
00777  M01S00722.mac1    +++|          EQ     JDATEX
00778  M01S00723.mac1    +++|
00779  M01S00724.mac1    +++|          END
00780  M01S00725.mac1    +++|          IDENT  MACHID
00781  M01S00726.mac1    +++|          ENTRY  MACHID
00782  M01S00727.mac1    +++|          SYSCOM 1
00783  M01S00728.mac1    +++|          TITLE  MACHID - GET TWO CHARACTER MACHINE *ID*.
00784  M01S00729.mac1    +++|*COMMENT GET TWO CHARACTER MACHINE *ID*.

Line S00730 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00730.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1978.
00786  M01S00017.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00787  M01S00731.mac1    +++| MACHID   SPACE  4,10
00788  M01S00732.mac1    +++|***       MACHID - GET TWO CHARACTER MACHINE *ID*.
00789  M01S00733.mac1    +++|*
00790  M01S00734.mac1    +++|*         CALL MACHID (ADDR)
00791  M01S00735.mac1    +++|*
00792  M01S00736.mac1    +++|*         MACHID(ADDR);   (*SYMPL* CALL)
00793  M01S00737.mac1    +++|*
00794  M01S00738.mac1    +++|*         ENTRY  (ADDR) = ADDRESS TO RECEIVE MACHINE *ID*.
00795  M01S00739.mac1    +++|*
00796  M01S00740.mac1    +++|*         EXIT   ((ADDR)) = MACHINE *ID*.
00797  M01S00741.mac1    +++|*
00798  M01S00742.mac1    +++|*         USES   B - 1.
00799  M01S00743.mac1    +++|*
00800  M01S00744.mac1    +++|*         MACROS MACHID.
00801  M01S00745.mac1    +++|
00802  M01S00746.mac1    +++|
00803  M01S00747.mac1    +++| MACHID   SUBR               ENTRY/EXIT
00804  M01S00748.mac1    +++|          SB1    1
00805  M01S00749.mac1    +++|          MACHID X1
00806  M01S00750.mac1    +++|          EQ     MACHIDX     EXIT
00807  M01S00751.mac1    +++|
00808  M01S00752.mac1    +++|
00809  M01S00753.mac1    +++|          END
00810  M01S00754.mac1    +++|          IDENT  MEMORY
00811  M01S00755.mac1    +++|          ENTRY  MEMORY
00812  M01S00756.mac1    +++|          SYSCOM B1
00813  M01S00757.mac1    +++|          TITLE  MEMORY - REQUEST MEMORY.
00814  M01S00758.mac1    +++|*COMMENT   REQUEST MEMORY.

Line S00759 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00759.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00816  M01S00018.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00817  M01S00760.mac1    +++| MEMORY   SPACE  4,10
00818  M01S00761.mac1    +++|***       MEMORY - REQUEST MEMORY.
00819  M01S00762.mac1    +++|*
00820  M01S00763.mac1    +++|*         CALL MEMORY(TYPE,STATUS,R,NA)
00821  M01S00764.mac1    +++|*
00822  M01S00765.mac1    +++|*         ENTRY  (TYPE) = 2HCM OR 3HSCM  OR  3HECS OR 3HLCM.
00823  M01S00766.mac1    +++|*                (STATUS) = 30/N,30/0  N=AMOUNT REQUESTED.
00824  M01S00767.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
00825  M01S00768.mac1    +++|*                (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
00826  M01S00769.mac1    +++|*                       IF THE REQUESTED MEMORY IS NOT AVAILABLE.
00827  M01S00770.mac1    +++|*                       IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
00828  M01S00771.mac1    +++|*                       THE CURRENT FIELD LENGTH IS RETURNED IN
00829  M01S00772.mac1    +++|*                       BITS 59-30 OF *STATUS*.
00830  M01S00773.mac1    +++|*
00831  M01S00774.mac1    +++|*         MEMORY(TYPE,STATUS,R,NA);   (*SYMPL* CALL)
00832  M01S00775.mac1    +++|*
00833  M01S00776.mac1    +++|*         ENTRY  TYPE, AN ITEM CONTAINING A *CM* OR *SCM*, LEFT
00834  M01S00777.mac1    +++|*                      JUSTIFIED, BLANK FILLED.
00835  M01S00778.mac1    +++|*                STATUS, AN ITEM CONTAINING THE MEMORY REQUEST
00836  M01S00779.mac1    +++|*                        STATUS WORD.
00837  M01S00780.mac1    +++|*                THE FORMAT OF MEMORY REQUEST STATUS WORD IS
00838  M01S00781.mac1    +++|*T               30/VALUE, 26/0, 3/RESERVED, 1/COMPLETE BIT.

Figure

00839  M01S00782.mac1    +++|*                (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
00840  M01S00783.mac1    +++|*                (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
00841  M01S00784.mac1    +++|*                       IF THE REQUESTED MEMORY IS NOT AVAILABLE.
00842  M01S00785.mac1    +++|*                       IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
00843  M01S00786.mac1    +++|*                       THE CURRENT FIELD LENGTH IS RETURNED IN
00844  M01S00787.mac1    +++|*                       BITS 59-30 OF *STATUS*.
00845  M01S00788.mac1    +++|*
00846  M01S00789.mac1    +++|*         EXIT   TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
00847  M01S00790.mac1    +++|*                IF N = 0, CURRENT AMOUNT ASSIGNED IS RETURNED IN
00848  M01S00791.mac1    +++|*                          BITS 59-30 OF STATUS WORD.
00849  M01S00792.mac1    +++|*
00850  M01S00793.mac1    +++|*         USES   X - 1, 2, 3, 4, 5.
00851  M01S00794.mac1    +++|*                A - 1, 2, 3, 4, 5.
00852  M01S00795.mac1    +++|*                B - 1, 2.
00853  M01S00796.mac1    +++|*
00854  M01S00797.mac1    +++|*         CALLS  MACREL.
00855  M01S00798.mac1    +++|*
00856  M01S00799.mac1    +++|*         MACROS MEMORY.
00857  M01S00800.mac1    +++|
00858  M01S00801.mac1    +++|
00859  M01S00802.mac1    +++| MEMORY   SUBR               ENTRY/EXIT
00860  M01S00803.mac1    +++|          SB1    1
00861  M01S00804.mac1    +++|          SA2    X1          TYPE
00862  M01S00805.mac1    +++|          SA1    A1+B1       ADDRESS OF STATUS WORD
00863  M01S00806.mac1    +++|          SA3    A1+B1       GET RECALL PARAMETER
00864  M01S00807.mac1    +++|          SA5    X3
00865  M01S00808.mac1    +++|          SB2    X5
00866  M01S00809.mac1    +++|          SA5    A3+B1       GET NO ABORT OPTION
00867  M01S00810.mac1    +++|          SA3    =0HCM
00868  M01S00811.mac1    +++|          SA4    =0HSCM
00869  M01S00812.mac1    +++|          BX3    X2-X3
00870  M01S00813.mac1    +++|          BX4    X2-X4
00871  M01S00814.mac1    +++|          SA5    X5
00872  M01S00815.mac1    +++|          BX4    X3*X4
00873  M01S00816.mac1    +++|          ZR     X4,MEM1     IF CM OR SCM
00874  M01S00817.mac1    +++|          SA3    =0HECS
00875  M01S00818.mac1    +++|          SA4    =0HLCM
00876  M01S00819.mac1    +++|          BX3    X2-X3
00877  M01S00820.mac1    +++|          BX4    X2-X4
00878  M01S00821.mac1    +++|          BX4    X3*X4
00879  M01S00822.mac1    +++|          ZR     X4,MEM2     IF ECS OR LCM
00880  M01S00823.mac1    +++|          BX2    X1
00881  M01S00824.mac1    +++|          SA1    =0LMEMORY
00882  M01S00825.mac1    +++|          RJ     =XMACREL=   DIAGNOSE ILLEGAL ARGUMENT
00883  M01S00826.mac1    +++|          EQ     MEMORYX
00884  M01S00827.mac1    +++|
00885  M01S00828.mac1    +++| MEM1     ZR     B2,MEM3     IF NO RECALL
00886  M01S00829.mac1    +++|          MEMORY CM,X1,R,,X5
00887  M01S00830.mac1    +++|          EQ     MEMORYX
00888  M01S00831.mac1    +++|
00889  M01S00832.mac1    +++| MEM2     ZR     B2,MEM4     IF NO RECALL
00890  M01S00833.mac1    +++|          MEMORY ECS,X1,R,,X5
00891  M01S00834.mac1    +++|          EQ     MEMORYX
00892  M01S00835.mac1    +++|
00893  M01S00836.mac1    +++| MEM3     MEMORY CM,X1,,,X5
00894  M01S00837.mac1    +++|          EQ     MEMORYX
00895  M01S00838.mac1    +++|
00896  M01S00839.mac1    +++| MEM4     MEMORY ECS,X1,,,X5
00897  M01S00840.mac1    +++|          EQ     MEMORYX
00898  M01S00841.mac1    +++|
00899  M01S00842.mac1    +++|          END
00900  M01S00843.mac1    +++|          IDENT  MESSAGE
00901  M01S00844.mac1    +++|          ENTRY  MESSAGE
00902  M01S00845.mac1    +++|          SYSCOM B1
00903  M01S00846.mac1    +++|          TITLE  MESSAGE - SEND MESSAGE.
00904  M01S00847.mac1    +++|*COMMENT   SEND MESSAGE.

Line S00848 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00848.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00906  M01S00019.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00907  M01S00849.mac1    +++| MESSAGE  SPACE  4,10
00908  M01S00850.mac1    +++|***       MESSAGE - SEND MESSAGE.
00909  M01S00851.mac1    +++|*
00910  M01S00852.mac1    +++|*         CALL MESSAGE (TEXT,OPTION,R)
00911  M01S00853.mac1    +++|*
00912  M01S00854.mac1    +++|*         ENTRY  (TEXT) = MESSAGE ARRAY, TERMINATED BY ZERO BYTE
00913  M01S00855.mac1    +++|*                (OPTION) = 0, SEND MESSAGE TO SYSTEM DAYFILE,
00914  M01S00856.mac1    +++|*                              LOCAL JOB DAYFILE, AND A AND B DISPLAYS.
00915  M01S00857.mac1    +++|*                         = 1, SEND MESSAGE TO LINE 1 OF CONTROL POINT.
00916  M01S00858.mac1    +++|*                         = 2, SEND MESSAGE TO LINE 2 OF CONTROL POINT.
00917  M01S00859.mac1    +++|*                         = 3, SEND MESSAGE TO USER DAYFILE AND LINE
00918  M01S00860.mac1    +++|*                              1 OF CONTROL POINT.
00919  M01S00861.mac1    +++|*                         = 4, SEND MESSAGE TO ERROR LOG DAYFILE.
00920  M01S00862.mac1    +++|*                         = 5, SEND MESSAGE TO ACCOUNT DAYFILE.
00921  M01S00863.mac1    +++|*                         = 6, SAME AS 0.
00922  M01S00864.mac1    +++|*                         = 7, SAME AS 3.
00923  M01S00865.mac1    +++|*                         = 9, SEND MESSAGE TO BINARY MAINTENANCE LOG.
00924  M01S00866.mac1    +++|*                         = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE.
00925  M01S00867.mac1    +++|*
00926  M01S00868.mac1    +++|*         MESSAGE(TEXT,OPTION);  (*SYMPL* CALL)
00927  M01S00869.mac1    +++|*
00928  M01S00870.mac1    +++|*         ENTRY   TEXT, AN ARRAY WITH THE TEXT IN IT, OR AN ITEM
00929  M01S00871.mac1    +++|*                       WITH TEXT IN IT.
00930  M01S00872.mac1    +++|*                 OPTION, AN ITEM CONTAINING ONE OF THE OPTIONS.
00931  M01S00873.mac1    +++|*
00932  M01S00874.mac1    +++|*         USES   X - 2, 3, 4.
00933  M01S00875.mac1    +++|*                A - 2, 3.
00934  M01S00876.mac1    +++|*                B - 1.
00935  M01S00877.mac1    +++|*
00936  M01S00878.mac1    +++|*         MACROS MESSAGE.
00937  M01S00879.mac1    +++|
00938  M01S00880.mac1    +++|
00939  M01S00881.mac1    +++| MESSAGE  SUBR               ENTRY/EXIT
00940  M01S00882.mac1    +++|          SB1    1
00941  M01S00883.mac1    +++|          SA2    A1+B1       ADDRESS OF OPTION
00942  M01S00884.mac1    +++|          SA2    X2          OPTION
00943  M01S00885.mac1    +++|          SA3    =0HLOCAL
00944  M01S00886.mac1    +++|          BX4    X2-X3
00945  M01S00887.mac1    +++|          ZR     X4,MES1     IF LOCAL
00946  M01S00888.mac1    +++|          MESSAGE  X1,X2,R
00947  M01S00889.mac1    +++|          EQ     MESSAGEX
00948  M01S00890.mac1    +++|
00949  M01S00891.mac1    +++|
00950  M01S00892.mac1    +++| MES1     MESSAGE X1,LOCAL,R
00951  M01S00893.mac1    +++|          EQ     MESSAGEX
00952  M01S00894.mac1    +++|
00953  M01S00895.mac1    +++|          END
00954  M01S00896.mac1    +++|          IDENT  MOVE
00955  M01S00897.mac1    +++|          ENTRY  MOVE
00956  M01S00898.mac1    +++|          SYSCOM B1
00957  M01S00899.mac1    +++|          TITLE  MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS.
00958  M01S00900.mac1    +++|*COMMENT  MOVE BLOCK OF CENTRAL MEMORY WORDS.

Line S00901 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00901.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00960  M01S00020.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00961  M01S00902.mac1    +++| MOVE     SPACE  4,10
00962  M01S00903.mac1    +++|***       MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS, DIRECT ADDRESSING.
00963  M01S00904.mac1    +++|*
00964  M01S00905.mac1    +++|*         CALL MOVE (COUNT,FROM,TO)
00965  M01S00906.mac1    +++|*
00966  M01S00907.mac1    +++|*         ENTRY  (COUNT) = COUNT OF WORDS TO MOVE.
00967  M01S00908.mac1    +++|*                (FROM) = FIRST WORD OF THE *FROM* BLOCK.
00968  M01S00909.mac1    +++|*                (TO) = FIRST WORD OF THE *TO* BLOCK.
00969  M01S00910.mac1    +++|*
00970  M01S00911.mac1    +++|*         MOVE(COUNT,FROM,TO);  (*SYMPL* CALL)
00971  M01S00912.mac1    +++|*
00972  M01S00913.mac1    +++|*         ENTRY  COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
00973  M01S00914.mac1    +++|*                       MOVE.
00974  M01S00915.mac1    +++|*                FROM, AN ARRAY TO MOVE FROM.
00975  M01S00916.mac1    +++|*                TO, AN ARRAY TO MOVE TO.
00976  M01S00917.mac1    +++|*
00977  M01S00918.mac1    +++|*         USES   X - 1, 2, 3.
00978  M01S00919.mac1    +++|*                A - 1, 2, 3.
00979  M01S00920.mac1    +++|*                B - 1.
00980  M01S00921.mac1    +++|*
00981  M01S00922.mac1    +++|*         MACROS MOVE.
00982  M01S00923.mac1    +++|
00983  M01S00924.mac1    +++|
00984  M01S00925.mac1    +++| MOVE     SUBR               ENTRY/EXIT
00985  M01S00926.mac1    +++|          SB1    1           (B1) = 1
00986  M01S00927.mac1    +++|          SA2    A1+B1       (X2) = FROM FWA
00987  M01S00928.mac1    +++|          SA3    A2+B1       (X3) = TO FWA
00988  M01S00929.mac1    +++|          SA1    X1          (X1) = COUNT
00989  M01S00930.mac1    +++|          SX2    X2
00990  M01S00931.mac1    +++|          SX3    X3          CLEAR UPPER BITS
00991  M01S00932.mac1    +++|          SX1    X1
00992  M01S00933.mac1    +++|          MOVE   X1,X2,X3    MOVE DATA
00993  M01S00934.mac1    +++|          EQ     MOVEX       RETURN
00994  M01S00935.mac1    +++|
00995  M01S00936.mac1    +++|          END
00996  M01S00937.mac1    +++|          IDENT  MOVEI
00997  M01S00938.mac1    +++|          ENTRY  MOVEI
00998  M01S00939.mac1    +++|          SYSCOM B1
00999  M01S00940.mac1    +++|          TITLE  MOVEI - MOVE A BLOCK OF CM WORDS.
01000  M01S00941.mac1    +++|*COMMENT  MOVE A BLOCK OF CM WORDS.

Line S00942 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00942.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1978.
01002  M01S00021.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01003  M01S00943.mac1    +++| MOVEI    SPACE  4,10
01004  M01S00944.mac1    +++|***       MOVEI - MOVE BLOCK OF CENTRAL MEMORY WORDS, INDIRECT ADDRESS.
01005  M01S00945.mac1    +++|*
01006  M01S00946.mac1    +++|*         CALL MOVEI (COUNT,LOC(FROM),LOC(TO))
01007  M01S00947.mac1    +++|*
01008  M01S00948.mac1    +++|*         ENTRY  (COUNT) = COUNT OF WORDS TO MOVE.
01009  M01S00949.mac1    +++|*                (FROM) = FIRST WORD OF THE *FROM* BLOCK.
01010  M01S00950.mac1    +++|*                (TO) = FIRST WORD OF THE *TO* BLOCK.
01011  M01S00951.mac1    +++|*                LOC = LOCATION OF.
01012  M01S00952.mac1    +++|*
01013  M01S00953.mac1    +++|*         MOVEI(COUNT,FROM,TO);  (*SYMPL* CALL)
01014  M01S00954.mac1    +++|*
01015  M01S00955.mac1    +++|*         ENTRY   COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
01016  M01S00956.mac1    +++|*                        MOVE.
01017  M01S00957.mac1    +++|*                 FROM, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
01018  M01S00958.mac1    +++|*                       MOVE FROM, OR A LOC OF AN ARRAY.
01019  M01S00959.mac1    +++|*                 TO, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
01020  M01S00960.mac1    +++|*                     MOVE TO, OR A LOC OF AN ARRAY.
01021  M01S00961.mac1    +++|*
01022  M01S00962.mac1    +++|*         USES   X - 1, 2, 3.
01023  M01S00963.mac1    +++|*                A - 1, 2, 3.
01024  M01S00964.mac1    +++|*                B - 1.
01025  M01S00965.mac1    +++|*
01026  M01S00966.mac1    +++|*         MACROS MOVE.
01027  M01S00967.mac1    +++|
01028  M01S00968.mac1    +++|
01029  M01S00969.mac1    +++| MOVEI    SUBR               ENTRY/EXIT
01030  M01S00970.mac1    +++|          SB1    1
01031  M01S00971.mac1    +++|          SA2    A1+B1       (X2) = LOC (FROM FWA)
01032  M01S00972.mac1    +++|          SA3    A2+B1       (X3) = LOC (TO FWA)
01033  M01S00973.mac1    +++|          SA1    X1          (X1) = COUNT
01034  M01S00974.mac1    +++|          SA2    X2          (X2) = FROM FWA
01035  M01S00975.mac1    +++|          SA3    X3          (X3) = TO FWA
01036  M01S00976.mac1    +++|          SX1    X1
01037  M01S00977.mac1    +++|          SX2    X2          CLEAR UPPER BITS
01038  M01S00978.mac1    +++|          SX3    X3
01039  M01S00979.mac1    +++|          MOVE   X1,X2,X3    MOVE DATA
01040  M01S00980.mac1    +++|          EQ     MOVEIX      RETURN
01041  M01S00981.mac1    +++|
01042  M01S00982.mac1    +++|          END
01043  M01S00983.mac1    +++|          IDENT  OPEN
01044  M01S00984.mac1    +++|          ENTRY  OPEN
01045  M01S00985.mac1    +++|          SYSCOM B1
01046  M01S00986.mac1    +++|          TITLE  OPEN - OPEN FILE FOR PROCESSING.
01047  M01S00987.mac1    +++|*COMMENT   OPEN FILE FOR PROCESSING.

Line S00988 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00988.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01049  M01S00022.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01050  M01S00989.mac1    +++| OPEN     SPACE  4,10
01051  M01S00990.mac1    +++|***       OPEN - OPEN FILE FOR PROCESSING.
01052  M01S00991.mac1    +++|*
01053  M01S00992.mac1    +++|*         CALL OPEN (FILE,OPTION,R)
01054  M01S00993.mac1    +++|*
01055  M01S00994.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01056  M01S00995.mac1    +++|*                (OPTION) = 0, SAME AS ALTER.
01057  M01S00996.mac1    +++|*                         = 5HALTER.
01058  M01S00997.mac1    +++|*                         = 7HALTERNR.
01059  M01S00998.mac1    +++|*                         = 2HNR.
01060  M01S00999.mac1    +++|*                         = 4HREAD.
01061  M01S01000.mac1    +++|*                         = 6HREADNR.
01062  M01S01001.mac1    +++|*                         = 4HREEL.
01063  M01S01002.mac1    +++|*                         = 6HREELNR.
01064  M01S01003.mac1    +++|*                         = 5HWRITE.
01065  M01S01004.mac1    +++|*                         = 7HWRITENR.
01066  M01S01005.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01067  M01S01006.mac1    +++|*
01068  M01S01007.mac1    +++|*         OPEN(FILE,OPTION,R);     (*SYMPL* CALL)
01069  M01S01008.mac1    +++|*
01070  M01S01009.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01071  M01S01010.mac1    +++|*                OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
01072  M01S01011.mac1    +++|*                        CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
01073  M01S01012.mac1    +++|*                        FILL WITH BINARY 0.
01074  M01S01013.mac1    +++|*                            ALTER.
01075  M01S01014.mac1    +++|*                            ALTERNR  (ALTER, NO REWIND).
01076  M01S01015.mac1    +++|*                            NR  (NO REWIND).
01077  M01S01016.mac1    +++|*                            READ.
01078  M01S01017.mac1    +++|*                            READNR  (READ, NO REWIND).
01079  M01S01018.mac1    +++|*                            REEL.
01080  M01S01019.mac1    +++|*                            REELNR  (REEL, NO REWIND).
01081  M01S01020.mac1    +++|*                            WRITE.
01082  M01S01021.mac1    +++|*                            WRITENR  (WRITE, NO REWIND).
01083  M01S01022.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01084  M01S01023.mac1    +++|*
01085  M01S01024.mac1    +++|*         EXIT   TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
01086  M01S01025.mac1    +++|*
01087  M01S01026.mac1    +++|*         USES   X - 1, 2, 3, 4, 5, 6.
01088  M01S01027.mac1    +++|*                A - 1, 2, 3, 4, 5.
01089  M01S01028.mac1    +++|*                B - 1.
01090  M01S01029.mac1    +++|*
01091  M01S01030.mac1    +++|*         CALLS  MACREL.
01092  M01S01031.mac1    +++|*
01093  M01S01032.mac1    +++|*         MACROS OPEN.
01094  M01S01033.mac1    +++|
01095  M01S01034.mac1    +++|
01096  M01S01035.mac1    +++| OPEN     SUBR               ENTRY/EXIT
01097  M01S01036.mac1    +++|          SB1    1
01098  M01S01037.mac1    +++|          SA2    A1+B1       ADDRESS OF OPTION
01099  M01S01038.mac1    +++|          SA3    A2+B1       GET ADDRESS OF RECALL PARAMETER
01100  M01S01039.mac1    +++|          SA2    X2+         OPTION
01101  M01S01040.mac1    +++|          SA3    X3
01102  M01S01041.mac1    +++|          BX6    X3
01103  M01S01042.mac1    +++|          ZR     X2,OPE1     IF NO OPTION
01104  M01S01043.mac1    +++|          SA3    =0HALTER
01105  M01S01044.mac1    +++|          SA4    =0HALTERNR
01106  M01S01045.mac1    +++|          SA5    =0HNR
01107  M01S01046.mac1    +++|          BX3    X2-X3
01108  M01S01047.mac1    +++|          BX4    X2-X4
01109  M01S01048.mac1    +++|          ZR     X3,OPE2     IF ALTER
01110  M01S01049.mac1    +++|          BX5    X2-X5
01111  M01S01050.mac1    +++|          ZR     X4,OPE3     IF ALTERNR
01112  M01S01051.mac1    +++|          ZR     X5,OPE4     IF NR
01113  M01S01052.mac1    +++|          SA3    =0HREAD
01114  M01S01053.mac1    +++|          SA4    =0HREADNR
01115  M01S01054.mac1    +++|          SA5    =0HREEL
01116  M01S01055.mac1    +++|          BX3    X2-X3
01117  M01S01056.mac1    +++|          BX4    X2-X4
01118  M01S01057.mac1    +++|          ZR     X3,OPE5     IF READ
01119  M01S01058.mac1    +++|          BX5    X2-X5
01120  M01S01059.mac1    +++|          ZR     X4,OPE6     IF READNR
01121  M01S01060.mac1    +++|          ZR     X5,OPE7     IF REEL
01122  M01S01061.mac1    +++|          SA3    =0HREELNR
01123  M01S01062.mac1    +++|          SA4    =0HWRITE
01124  M01S01063.mac1    +++|          SA5    =0HWRITENR
01125  M01S01064.mac1    +++|          BX3    X2-X3
01126  M01S01065.mac1    +++|          BX4    X2-X4
01127  M01S01066.mac1    +++|          ZR     X3,OPE8     IF REELNR
01128  M01S01067.mac1    +++|          BX5    X2-X5
01129  M01S01068.mac1    +++|          ZR     X4,OPE9     IF WRITE
01130  M01S01069.mac1    +++|          ZR     X5,OPE10    IF WRITENR
01131  M01S01070.mac1    +++|          SA1    =0LOPEN
01132  M01S01071.mac1    +++|          RJ     =XMACREL=   DIAGNOSE ILLEGAL ARGUMENT
01133  M01S01072.mac1    +++|          EQ     OPENX
01134  M01S01073.mac1    +++|
01135  M01S01074.mac1    +++| OPE1     NZ     X6,OPE11    IF RECALL
01136  M01S01075.mac1    +++|          OPEN   X1
01137  M01S01076.mac1    +++|          EQ     OPENX
01138  M01S01077.mac1    +++|
01139  M01S01078.mac1    +++| OPE2     NZ     X6,OPE12    IF RECALL
01140  M01S01079.mac1    +++|          OPEN   X1,ALTER
01141  M01S01080.mac1    +++|          EQ     OPENX
01142  M01S01081.mac1    +++|
01143  M01S01082.mac1    +++| OPE3     NZ     X6,OPE13    IF RECALL
01144  M01S01083.mac1    +++|          OPEN   X1,ALTERNR
01145  M01S01084.mac1    +++|          EQ     OPENX
01146  M01S01085.mac1    +++|
01147  M01S01086.mac1    +++| OPE4     NZ     X6,OPE14    IF RECALL
01148  M01S01087.mac1    +++|          OPEN   X1,NR
01149  M01S01088.mac1    +++|          EQ     OPENX
01150  M01S01089.mac1    +++|
01151  M01S01090.mac1    +++| OPE5     NZ     X6,OPE15    IF RECALL
01152  M01S01091.mac1    +++|          OPEN   X1,READ
01153  M01S01092.mac1    +++|          EQ     OPENX
01154  M01S01093.mac1    +++|
01155  M01S01094.mac1    +++| OPE6     NZ     X6,OPE16    IF RECALL
01156  M01S01095.mac1    +++|          OPEN   X1,READNR
01157  M01S01096.mac1    +++|          EQ     OPENX
01158  M01S01097.mac1    +++|
01159  M01S01098.mac1    +++| OPE7     NZ     X6,OPE17    IF RECALL
01160  M01S01099.mac1    +++|          OPEN   X1,REEL
01161  M01S01100.mac1    +++|          EQ     OPENX
01162  M01S01101.mac1    +++|
01163  M01S01102.mac1    +++| OPE8     NZ     X6,OPE18    IF RECALL
01164  M01S01103.mac1    +++|          OPEN   X1,REELNR
01165  M01S01104.mac1    +++|          EQ     OPENX
01166  M01S01105.mac1    +++|
01167  M01S01106.mac1    +++| OPE9     NZ     X6,OPE19    IF RECALL
01168  M01S01107.mac1    +++|          OPEN   X1,WRITE
01169  M01S01108.mac1    +++|          EQ     OPENX
01170  M01S01109.mac1    +++|
01171  M01S01110.mac1    +++| OPE10    NZ     X6,OPE20    IF RECALL
01172  M01S01111.mac1    +++|          OPEN   X1,WRITENR
01173  M01S01112.mac1    +++|          EQ     OPENX
01174  M01S01113.mac1    +++|
01175  M01S01114.mac1    +++| OPE11    OPEN   X1,,R
01176  M01S01115.mac1    +++|          EQ     OPENX
01177  M01S01116.mac1    +++|
01178  M01S01117.mac1    +++| OPE12    OPEN   X1,ALTER,R
01179  M01S01118.mac1    +++|          EQ     OPENX
01180  M01S01119.mac1    +++|
01181  M01S01120.mac1    +++| OPE13    OPEN   X1,ALTERNR,R
01182  M01S01121.mac1    +++|          EQ     OPENX
01183  M01S01122.mac1    +++|
01184  M01S01123.mac1    +++| OPE14    OPEN   X1,NR,R
01185  M01S01124.mac1    +++|          EQ     OPENX
01186  M01S01125.mac1    +++|
01187  M01S01126.mac1    +++| OPE15    OPEN   X1,READ,R
01188  M01S01127.mac1    +++|          EQ     OPENX
01189  M01S01128.mac1    +++|
01190  M01S01129.mac1    +++| OPE16    OPEN   X1,READNR,R
01191  M01S01130.mac1    +++|          EQ     OPENX
01192  M01S01131.mac1    +++|
01193  M01S01132.mac1    +++| OPE17    OPEN   X1,REEL,R
01194  M01S01133.mac1    +++|          EQ     OPENX
01195  M01S01134.mac1    +++|
01196  M01S01135.mac1    +++| OPE18    OPEN   X1,REELNR,R
01197  M01S01136.mac1    +++|          EQ     OPENX
01198  M01S01137.mac1    +++|
01199  M01S01138.mac1    +++| OPE19    OPEN   X1,WRITE,R
01200  M01S01139.mac1    +++|          EQ     OPENX
01201  M01S01140.mac1    +++|
01202  M01S01141.mac1    +++| OPE20    OPEN   X1,WRITENR,R
01203  M01S01142.mac1    +++|          EQ     OPENX
01204  M01S01143.mac1    +++|
01205  M01S01144.mac1    +++|          END
01206  M01S01145.mac1    +++|          IDENT  PDATE
01207  M01S01146.mac1    +++|          ENTRY  PDATE
01208  M01S01147.mac1    +++|          SYSCOM B1
01209  M01S01148.mac1    +++|          TITLE  PDATE - RETURN PACK DATE AND TIME.
01210  M01S01149.mac1    +++|*COMMENT RETURN PACK DATE AND TIME.

Line S01150 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01211  M02S01150.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1978.
01212  M01S00023.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01213  M01S01151.mac1    +++| PDATE    SPACE  4,10
01214  M01S01152.mac1    +++|***       PDATE - RETURN PACK DATE AND TIME.
01215  M01S01153.mac1    +++|*
01216  M01S01154.mac1    +++|*         CALL PDATE (STAT)
01217  M01S01155.mac1    +++|*
01218  M01S01156.mac1    +++|*         PDATE(STAT);   (*SYMPL* CALL)
01219  M01S01157.mac1    +++|*
01220  M01S01158.mac1    +++|*         ENTRY  (STAT) = ADDRESS TO RECEIVE THE PACK DATE.
01221  M01S01159.mac1    +++|*
01222  M01S01160.mac1    +++|*         EXIT   (STAT) =
01223  M01S01161.mac1    +++|*T,       24/0,6/YY, 6/MO, 6/DD, 6/HH, 6/MM, 6/SS   (YY = YEAR - 1970)

Figure

01224  M01S01162.mac1    +++|*
01225  M01S01163.mac1    +++|*         USES   B - 1.
01226  M01S01164.mac1    +++|*
01227  M01S01165.mac1    +++|*         MACROS PDATE.
01228  M01S01166.mac1    +++|
01229  M01S01167.mac1    +++|
01230  M01S01168.mac1    +++| PDATE    SUBR               ENTRY/EXIT
01231  M01S01169.mac1    +++|          SB1    1
01232  M01S01170.mac1    +++|          PDATE  X1
01233  M01S01171.mac1    +++|          EQ     PDATEX      EXIT
01234  M01S01172.mac1    +++|
01235  M01S01173.mac1    +++|          END
01236  M01S01174.mac1    +++|          IDENT  PFD
01237  M01S01175.mac1    +++|          ENTRY  PFD
01238  M01S01176.mac1    +++|          SYSCOM B1
01239  M01S01177.mac1    +++|          TITLE  PFD - PERMANENT FILE REQUEST DELAYS.
01240  M01S01178.mac1    +++|*COMMENT  MAC1 - PERMANENT FILE REQUEST DELAYS.

Line S01179 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01179.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
01242  M01S00024.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01243  M01S01180.mac1    +++|
01244  M01S01181.mac1    +++|*CALL COMCMAC
01245  M01S01182.mac1    +++|*CALL COMAPFS
01246  M01S01183.mac1    +++|*CALL COMSPFM
01247  M01S01184.mac1    +++| PFD      SPACE  4,30
01248  M01S01185.mac1    +++|***       PFD - PERMANENT FILE REQUEST DELAYS.
01249  M01S01186.mac1    +++|*
01250  M01S01187.mac1    +++|*         *PFD* IS AN INTERFACE TO THE *PF* ROUTINES IN *CPUREL*.
01251  M01S01188.mac1    +++|*         WHEN THE *PF* ROUTINES ARE CALLED WITH THE USER PROCESSING
01252  M01S01189.mac1    +++|*         OPTION SELECTED, SEVERAL ERROR CODES MAY BE RETURNED BY
01253  M01S01190.mac1    +++|*         *PFM* WHICH ARE TEMPORARY CONDITIONS.  *PFD* WILL REISSUE
01254  M01S01191.mac1    +++|*         THE *PF* CALL FOLLOWING A DELAY UNTIL THE REQUEST IS COMPLETE
01255  M01S01192.mac1    +++|*         OR SOME OTHER RESPONSE IS RETURNED FOR THE FOLLOWING ERRORS.
01256  M01S01193.mac1    +++|*
01257  M01S01194.mac1    +++|*           * PF UTILITY ACTIVE.*
01258  M01S01195.mac1    +++|*           * INTERLOCK NOT AVAILABLE.*
01259  M01S01196.mac1    +++|*           * FNT FULL.*
01260  M01S01197.mac1    +++|*           * PFM EXCESS ACTIVITY.*
01261  M01S01198.mac1    +++|*
01262  M01S01199.mac1    +++|*         *SYMPL* CALL -
01263  M01S01200.mac1    +++|*
01264  M01S01201.mac1    +++|*           PFD(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0);
01265  M01S01202.mac1    +++|*
01266  M01S01203.mac1    +++|*         REFER TO THE *PF* ROUTINE DOCUMENTATION FOR A DESCRIPTION

Line S01204 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`ns2676`

Seq #  *Modification Id* Act 
----------------------------+
01267  M02S01204.ns2676  ---|*         OF THE PARAMETERS.
01268  M01S00004.ns2676  +++|*         OF THE PARAMETERS (SEE FTN 5 REFERENCE MANUAL, 60481300).
01269  M01S01205.mac1    +++|*
01270  M01S01206.mac1    +++|*         NOTE - THE STATUS WORD *PFSTAT* DEFINED IN *COMAPFS*
01271  M01S01207.mac1    +++|*         MUST BE USED WITH THE *RC* KEYWORD AS THE RETURN CODE
01272  M01S01208.mac1    +++|*         PARAMETER.
01273  M01S01209.mac1    +++|*
01274  M01S01210.mac1    +++|*         USES   X - 1, 2, 6.
01275  M01S01211.mac1    +++|*                A - 1, 2, 6.
01276  M01S01212.mac1    +++|*                B - 2.
01277  M01S01213.mac1    +++|*
01278  M01S01214.mac1    +++|*         CALLS  PF.
01279  M01S01215.mac1    +++|*
01280  M01S01216.mac1    +++|*         MACROS RECALL.
01281  M01S01217.mac1    +++|
01282  M01S01218.mac1    +++|
01283  M01S01219.mac1    +++| PFD      SUBR               ENTRY/EXIT
01284  M01S01220.mac1    +++|          SX6    A1          SAVE PARAMETER LIST ADDRESS
01285  M01S01221.mac1    +++|          SA6    PFDA
01286  M01S01222.mac1    +++|          BX6    X6-X6       CLEAR *PF* RETURN CODE
01287  M01S01223.mac1    +++|          SA6    PFSTAT
01288  M01S01224.mac1    +++| PFD1     RJ     =XPF
01289  M01S01225.mac1    +++|          SA2    PFSTAT      CHECK *PF* RETURN CODE
01290  M01S01226.mac1    +++|          ZR     X2,PFDX     IF NO ERROR
01291  M01S01227.mac1    +++|          SB2    X2-/ERRMSG/PFA
01292  M01S01228.mac1    +++|          ZR     B2,PFD2     IF DELAY REQUIRED
01293  M01S01229.mac1    +++|          SB2    X2-/ERRMSG/INA
01294  M01S01230.mac1    +++|          ZR     B2,PFD2     IF DELAY REQUIRED
01295  M01S01231.mac1    +++|          SB2    X2-/ERRMSG/FTF
01296  M01S01232.mac1    +++|          ZR     B2,PFD2     IF DELAY REQUIRED
01297  M01S01233.mac1    +++|          SB2    X2-/ERRMSG/PEA
01298  M01S01234.mac1    +++|          ZR     B2,PFD2     IF DELAY REQUIRED
01299  M01S01235.mac1    +++|          EQ     PFDX        RETURN
01300  M01S01236.mac1    +++|
01301  M01S01237.mac1    +++| PFD2     RECALL
01302  M01S01238.mac1    +++|          SA1    PFDA
01303  M01S01239.mac1    +++|          SA1    X1+
01304  M01S01240.mac1    +++|          EQ     PFD1        REISSUE *PF* CALL
01305  M01S01241.mac1    +++|
01306  M01S01242.mac1    +++| PFDA     BSS    1           PARAMETER LIST ADDRESS
01307  M01S01243.mac1    +++|
01308  M01S01244.mac1    +++|          END
01309  M01S01245.mac1    +++|          IDENT  POSMF
01310  M01S01246.mac1    +++|          ENTRY  POSMF
01311  M01S01247.mac1    +++|          SYSCOM B1
01312  M01S01248.mac1    +++|          TITLE  POSMF - POSITION MULTI-FILE SET.
01313  M01S01249.mac1    +++|*COMMENT   POSITION MULTI-FILE SET.

Line S01250 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01314  M02S01250.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01315  M01S00025.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01316  M01S01251.mac1    +++| POSMF    SPACE  4,10
01317  M01S01252.mac1    +++|***       POSMF - POSITION MULTI-FILE SET.
01318  M01S01253.mac1    +++|*         LABELED MULTI-FILE MAGNETIC TAPE ONLY.
01319  M01S01254.mac1    +++|*
01320  M01S01255.mac1    +++|*         CALL POSMF (MFILNAM,R)
01321  M01S01256.mac1    +++|*
01322  M01S01257.mac1    +++|*         ENTRY  (MFILNAM) = FIRST WORD OF THE FET.
01323  M01S01258.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01324  M01S01259.mac1    +++|*
01325  M01S01260.mac1    +++|*         POSMF(MFILNAM,R);     (*SYMPL* CALL)
01326  M01S01261.mac1    +++|*
01327  M01S01262.mac1    +++|*         ENTRY   MFILNAM, AN ARRAY THAT CONTAINS THE FET.
01328  M01S01263.mac1    +++|*                 (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01329  M01S01264.mac1    +++|*
01330  M01S01265.mac1    +++|*         USES   X - 2.
01331  M01S01266.mac1    +++|*                A - 2.
01332  M01S01267.mac1    +++|*                B - 1.
01333  M01S01268.mac1    +++|*
01334  M01S01269.mac1    +++|*         MACROS POSMF.
01335  M01S01270.mac1    +++|
01336  M01S01271.mac1    +++|
01337  M01S01272.mac1    +++| POSMF    SUBR               ENTRY/EXIT
01338  M01S01273.mac1    +++|          SB1    1
01339  M01S01274.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
01340  M01S01275.mac1    +++|          SA2    X2
01341  M01S01276.mac1    +++|          NZ     X2,POF1     IF RECALL
01342  M01S01277.mac1    +++|          POSMF  X1
01343  M01S01278.mac1    +++|          EQ     POSMFX
01344  M01S01279.mac1    +++|
01345  M01S01280.mac1    +++| POF1     POSMF  X1,R
01346  M01S01281.mac1    +++|          EQ     POSMFX
01347  M01S01282.mac1    +++|
01348  M01S01283.mac1    +++|          END
01349  M01S01284.mac1    +++|          IDENT  READ
01350  M01S01285.mac1    +++|          ENTRY  READ
01351  M01S01286.mac1    +++|          SYSCOM B1
01352  M01S01287.mac1    +++|          TITLE  READ - READ FILE TO *CIO* BUFFER.
01353  M01S01288.mac1    +++|*COMMENT   READ FILE TO *CIO* BUFFER.

Line S01289 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01354  M02S01289.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01355  M01S00026.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01356  M01S01290.mac1    +++| READ     SPACE  4,10
01357  M01S01291.mac1    +++|***       READ - READ FILE TO *CIO* BUFFER.
01358  M01S01292.mac1    +++|*
01359  M01S01293.mac1    +++|*         CALL READ (FILE,R)
01360  M01S01294.mac1    +++|*
01361  M01S01295.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01362  M01S01296.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01363  M01S01297.mac1    +++|*
01364  M01S01298.mac1    +++|*         READ(FILE);                 (*SYMPL* CALL)
01365  M01S01299.mac1    +++|*
01366  M01S01300.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01367  M01S01301.mac1    +++|*                (R) = RECALL IF .NE. 0, RECALL IS REQUESTED.
01368  M01S01302.mac1    +++|*
01369  M01S01303.mac1    +++|*         USES   X - 2.
01370  M01S01304.mac1    +++|*                A - 2.
01371  M01S01305.mac1    +++|*                B - 1.
01372  M01S01306.mac1    +++|*
01373  M01S01307.mac1    +++|*         MACROS READ.
01374  M01S01308.mac1    +++|
01375  M01S01309.mac1    +++|
01376  M01S01310.mac1    +++| READ     SUBR               ENTRY/EXIT
01377  M01S01311.mac1    +++|          SB1    1
01378  M01S01312.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
01379  M01S01313.mac1    +++|          SA2    X2
01380  M01S01314.mac1    +++|          NZ     X2,RED1     IF RECALL
01381  M01S01315.mac1    +++|          READ   X1
01382  M01S01316.mac1    +++|          EQ     READX
01383  M01S01317.mac1    +++|
01384  M01S01318.mac1    +++| RED1     READ   X1,R
01385  M01S01319.mac1    +++|          EQ     READX
01386  M01S01320.mac1    +++|
01387  M01S01321.mac1    +++|          END
01388  M01S01322.mac1    +++|          IDENT  READC
01389  M01S01323.mac1    +++|          ENTRY  READC
01390  M01S01324.mac1    +++|          SYSCOM B1
01391  M01S01325.mac1    +++|          TITLE  READC - READ CODED LINE IN *C* FORMAT.
01392  M01S01326.mac1    +++|*COMMENT   READ CODED LINE IN *C* FORMAT.

Line S01327 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01327.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01394  M01S00027.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01395  M01S01328.mac1    +++| READC    SPACE  4,10
01396  M01S01329.mac1    +++|***       READC - READ CODED LINE IN *C* FORMAT.
01397  M01S01330.mac1    +++|*
01398  M01S01331.mac1    +++|*         CALL READC (FILE,BUF,N,STATUS)
01399  M01S01332.mac1    +++|*
01400  M01S01333.mac1    +++|*         TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
01401  M01S01334.mac1    +++|*
01402  M01S01335.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01403  M01S01336.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
01404  M01S01337.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
01405  M01S01338.mac1    +++|*
01406  M01S01339.mac1    +++|*         READC(FILE,BUF,N,STATUS);       (*SYMPL* CALL)
01407  M01S01340.mac1    +++|*
01408  M01S01341.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01409  M01S01342.mac1    +++|*                BUF, AN ARRAY TO BE USED AS READ BUFFER.
01410  M01S01343.mac1    +++|*                N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
01411  M01S01344.mac1    +++|*                   IN *BUF*.
01412  M01S01345.mac1    +++|*
01413  M01S01346.mac1    +++|*         EXIT   (STATUS) = 0, TRANSFER COMPLETE.
01414  M01S01347.mac1    +++|*                         = -1, END-OF-FILE DETECTED ON FILE.
01415  M01S01348.mac1    +++|*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
01416  M01S01349.mac1    +++|*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
01417  M01S01350.mac1    +++|*                                TRANSFER WAS COMPLETE.
01418  M01S01351.mac1    +++|*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
01419  M01S01352.mac1    +++|*                           WORKING BUFFER.
01420  M01S01353.mac1    +++|*
01421  M01S01354.mac1    +++|*         USES   X - 3, 4, 5, 6.
01422  M01S01355.mac1    +++|*                A - 3, 4, 5, 6.
01423  M01S01356.mac1    +++|*                B - 1.
01424  M01S01357.mac1    +++|*
01425  M01S01358.mac1    +++|*         MACROS READC.
01426  M01S01359.mac1    +++|
01427  M01S01360.mac1    +++|
01428  M01S01361.mac1    +++|
01429  M01S01362.mac1    +++| READC    SUBR               ENTRY/EXIT
01430  M01S01363.mac1    +++|          SB1    1
01431  M01S01364.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
01432  M01S01365.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
01433  M01S01366.mac1    +++|          SA5    A4+B1       (X5) = ADDRESS OF STATUS WORD
01434  M01S01367.mac1    +++|          SA4    X4          WORD COUNT
01435  M01S01368.mac1    +++|          READC  X1,X3,X4
01436  M01S01369.mac1    +++|          BX6    X1
01437  M01S01370.mac1    +++|          SA6    X5
01438  M01S01371.mac1    +++|          EQ     READCX
01439  M01S01372.mac1    +++|
01440  M01S01373.mac1    +++|          END
01441  M01S01374.mac1    +++|          IDENT  READCW
01442  M01S01375.mac1    +++|          ENTRY  READCW
01443  M01S01376.mac1    +++|          SYSCOM B1
01444  M01S01377.mac1    +++|          TITLE  READCW - READ FILE NON-STOP WITH CONTROL WORDS.
01445  M01S01378.mac1    +++|*COMMENT   READ FILE NON-STOP WITH CONTROL WORDS.

Line S01379 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01446  M02S01379.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01447  M01S00028.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01448  M01S01380.mac1    +++| READCW   SPACE  4,10
01449  M01S01381.mac1    +++|***       READCW - READ FILE NON-STOP WITH CONTROL WORDS.
01450  M01S01382.mac1    +++|*
01451  M01S01383.mac1    +++|*         CALL READCW (FILE,LEVEL,R)
01452  M01S01384.mac1    +++|*
01453  M01S01385.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01454  M01S01386.mac1    +++|*                (LEVEL) = RECORD LEVEL.
01455  M01S01387.mac1    +++|*                        = 0, STOP AT END OF INFORMATION.
01456  M01S01388.mac1    +++|*                        = 17B, STOP AT END OF FILE.
01457  M01S01389.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01458  M01S01390.mac1    +++|*
01459  M01S01391.mac1    +++|*         READCW(FILE,LEVEL,R);          (*SYMPL* CALL)
01460  M01S01392.mac1    +++|*
01461  M01S01393.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01462  M01S01394.mac1    +++|*                LEVEL, AN ITEM CONTAINING ONE OF THE FOLLOWING
01463  M01S01395.mac1    +++|*                       VALUES.
01464  M01S01396.mac1    +++|*                            0, STOP AT EOI.
01465  M01S01397.mac1    +++|*                            17B, STOP AT EOF.
01466  M01S01398.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01467  M01S01399.mac1    +++|*
01468  M01S01400.mac1    +++|*         USES   X - 2, 3.
01469  M01S01401.mac1    +++|*                A - 2, 3.
01470  M01S01402.mac1    +++|*                B - 1.
01471  M01S01403.mac1    +++|*
01472  M01S01404.mac1    +++|*         MACROS READCW.
01473  M01S01405.mac1    +++|
01474  M01S01406.mac1    +++| READCW   SUBR               ENTRY/EXIT
01475  M01S01407.mac1    +++|          SB1    1
01476  M01S01408.mac1    +++|          SA3    A1+B1       ADDRESS OF LEVEL
01477  M01S01409.mac1    +++|          SA2    A3+B1       GET ADDRESS OF RECALL PARAMETER
01478  M01S01410.mac1    +++|          SA3    X3          LEVEL
01479  M01S01411.mac1    +++|          SA2    X2
01480  M01S01412.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01481  M01S01413.mac1    +++|          READCW X1,X3
01482  M01S01414.mac1    +++|          EQ     READCWX
01483  M01S01415.mac1    +++|
01484  M01S01416.mac1    +++| RED1     READCW X1,X3,R
01485  M01S01417.mac1    +++|          EQ     READCWX     EXIT
01486  M01S01418.mac1    +++|
01487  M01S01419.mac1    +++|          END
01488  M01S01420.mac1    +++|          IDENT  READEI
01489  M01S01421.mac1    +++|          ENTRY  READEI
01490  M01S01422.mac1    +++|          SYSCOM B1
01491  M01S01423.mac1    +++|          TITLE  READEI - READ FILE TO END OF INFORMATION.
01492  M01S01424.mac1    +++|*COMMENT   READ FILE TO END OF INFORMATION.

Line S01425 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01425.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01494  M01S00029.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01495  M01S01426.mac1    +++| READEI   SPACE  4,10
01496  M01S01427.mac1    +++|***       READEI - READ FILE TO END OF INFORMATION.
01497  M01S01428.mac1    +++|*
01498  M01S01429.mac1    +++|*         CALL READEI (FILE,R)
01499  M01S01430.mac1    +++|*
01500  M01S01431.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01501  M01S01432.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01502  M01S01433.mac1    +++|*
01503  M01S01434.mac1    +++|*         READEI(FILE,R);         (*SYMPL* CALL)
01504  M01S01435.mac1    +++|*
01505  M01S01436.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01506  M01S01437.mac1    +++|*
01507  M01S01438.mac1    +++|*         USES   X - 2.
01508  M01S01439.mac1    +++|*                A - 2.
01509  M01S01440.mac1    +++|*                B - 1.
01510  M01S01441.mac1    +++|*
01511  M01S01442.mac1    +++|*         MACROS READEI.
01512  M01S01443.mac1    +++|
01513  M01S01444.mac1    +++|
01514  M01S01445.mac1    +++| READEI   SUBR               ENTRY/EXIT
01515  M01S01446.mac1    +++|          SB1    1
01516  M01S01447.mac1    +++|          SA2    A1+B1
01517  M01S01448.mac1    +++|          SA2    X2
01518  M01S01449.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01519  M01S01450.mac1    +++|          READEI X1
01520  M01S01451.mac1    +++|          EQ     READEIX
01521  M01S01452.mac1    +++|
01522  M01S01453.mac1    +++| RED1     READEI X1,R
01523  M01S01454.mac1    +++|          EQ     READEIX
01524  M01S01455.mac1    +++|
01525  M01S01456.mac1    +++|          END
01526  M01S01457.mac1    +++|          IDENT  READH
01527  M01S01458.mac1    +++|          ENTRY  READH
01528  M01S01459.mac1    +++|          SYSCOM B1
01529  M01S01460.mac1    +++|          TITLE  READH - READ CODED LINE IN *H* FORMAT.
01530  M01S01461.mac1    +++|*COMMENT   READ CODED LINE IN *H* FORMAT.

Line S01462 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01531  M02S01462.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01532  M01S00030.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01533  M01S01463.mac1    +++| READH    SPACE  4,10
01534  M01S01464.mac1    +++|***       READH - READ CODED LINE IN *H* FORMAT.
01535  M01S01465.mac1    +++|*
01536  M01S01466.mac1    +++|*         CALL READH (FILE,BUF,N,STATUS)
01537  M01S01467.mac1    +++|*
01538  M01S01468.mac1    +++|*         TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
01539  M01S01469.mac1    +++|*         FILLS TRAILING SPACES INTO THE WORKING BUFFER.
01540  M01S01470.mac1    +++|*
01541  M01S01471.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01542  M01S01472.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
01543  M01S01473.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
01544  M01S01474.mac1    +++|*
01545  M01S01475.mac1    +++|*         READH(FILE,BUF,N,STATUS);      (*SYMPL* CALL)
01546  M01S01476.mac1    +++|*
01547  M01S01477.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
01548  M01S01478.mac1    +++|*                 BUF, AN ARRAY TO BE USED AS READ BUFFER.
01549  M01S01479.mac1    +++|*                 N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
01550  M01S01480.mac1    +++|*
01551  M01S01481.mac1    +++|*         EXIT   (STATUS) = 0, TRANSFER COMPLETE
01552  M01S01482.mac1    +++|*                         = -1, END-OF-FILE DETECTED ON FILE.
01553  M01S01483.mac1    +++|*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
01554  M01S01484.mac1    +++|*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
01555  M01S01485.mac1    +++|*                                TRANSFER WAS COMPLETE.
01556  M01S01486.mac1    +++|*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
01557  M01S01487.mac1    +++|*                           WORKING BUFFER.
01558  M01S01488.mac1    +++|*
01559  M01S01489.mac1    +++|*         USES   X - 3, 4, 5, 6.
01560  M01S01490.mac1    +++|*                A - 3, 4, 5, 6.
01561  M01S01491.mac1    +++|*                B - 1.
01562  M01S01492.mac1    +++|*
01563  M01S01493.mac1    +++|*         MACROS READH.
01564  M01S01494.mac1    +++|
01565  M01S01495.mac1    +++|
01566  M01S01496.mac1    +++| READH    SUBR               ENTRY/EXIT
01567  M01S01497.mac1    +++|          SB1    1
01568  M01S01498.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
01569  M01S01499.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
01570  M01S01500.mac1    +++|          SA5    A4+B1       (X5) = ADDRESS OF STATUS WORD
01571  M01S01501.mac1    +++|          SA4    X4          WORD COUNT
01572  M01S01502.mac1    +++|          READH  X1,X3,X4
01573  M01S01503.mac1    +++|          BX6    X1
01574  M01S01504.mac1    +++|          SA6    X5
01575  M01S01505.mac1    +++|          EQ     READHX
01576  M01S01506.mac1    +++|
01577  M01S01507.mac1    +++|          END
01578  M01S01508.mac1    +++|          IDENT  READLS
01579  M01S01509.mac1    +++|          ENTRY  READLS
01580  M01S01510.mac1    +++|          SYSCOM B1
01581  M01S01511.mac1    +++|          TITLE  READLS - READ FILE WITH LIST.
01582  M01S01512.mac1    +++|*COMMENT   READ FILE WITH LIST.

Line S01513 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01583  M02S01513.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01584  M01S00031.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01585  M01S01514.mac1    +++| READLS   SPACE  4,10
01586  M01S01515.mac1    +++|***       READLS - READ FILE WITH LIST.
01587  M01S01516.mac1    +++|*         MASS STORAGE FILES ONLY.
01588  M01S01517.mac1    +++|*
01589  M01S01518.mac1    +++|*         CALL READLS (FILE,R)
01590  M01S01519.mac1    +++|*
01591  M01S01520.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01592  M01S01521.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01593  M01S01522.mac1    +++|*
01594  M01S01523.mac1    +++|*         READS(FILE,R);           (*SYMPL* CALL)
01595  M01S01524.mac1    +++|*
01596  M01S01525.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01597  M01S01526.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01598  M01S01527.mac1    +++|*
01599  M01S01528.mac1    +++|*         USES   X - 2.
01600  M01S01529.mac1    +++|*                A - 2.
01601  M01S01530.mac1    +++|*                B - 1.
01602  M01S01531.mac1    +++|*
01603  M01S01532.mac1    +++|*         MACROS READLS.
01604  M01S01533.mac1    +++|
01605  M01S01534.mac1    +++|
01606  M01S01535.mac1    +++| READLS   SUBR               ENTRY/EXIT
01607  M01S01536.mac1    +++|          SB1    1
01608  M01S01537.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
01609  M01S01538.mac1    +++|          SA2    X2
01610  M01S01539.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01611  M01S01540.mac1    +++|          READLS X1
01612  M01S01541.mac1    +++|          EQ     READLSX
01613  M01S01542.mac1    +++|
01614  M01S01543.mac1    +++| RED1     READLS X1,R
01615  M01S01544.mac1    +++|          EQ     READLSX
01616  M01S01545.mac1    +++|
01617  M01S01546.mac1    +++|          END
01618  M01S01547.mac1    +++|          IDENT  READN
01619  M01S01548.mac1    +++|          ENTRY  READN
01620  M01S01549.mac1    +++|          TITLE  READN - READ FILE NON-STOP FOR TAPES.
01621  M01S01550.mac1    +++|*COMMENT   READ FILE NON-STOP FOR TAPES.

Line S01551 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01622  M02S01551.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01623  M01S00032.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01624  M01S01552.mac1    +++| READN    SPACE  4,10
01625  M01S01553.mac1    +++|***       READN - READ FILE NON-STOP FOR TAPES.
01626  M01S01554.mac1    +++|*         MAGNETIC TAPES IN S OR L FORMAT ONLY.
01627  M01S01555.mac1    +++|*
01628  M01S01556.mac1    +++|*         CALL READN (FILE,R)
01629  M01S01557.mac1    +++|*
01630  M01S01558.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01631  M01S01559.mac1    +++|*
01632  M01S01560.mac1    +++|*         READN(FILE,R);           (*SYMPL* CALL)
01633  M01S01561.mac1    +++|*
01634  M01S01562.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01635  M01S01563.mac1    +++|*
01636  M01S01564.mac1    +++|*         USES   X - 2.
01637  M01S01565.mac1    +++|*                A - 2.
01638  M01S01566.mac1    +++|*                B - 1.
01639  M01S01567.mac1    +++|*
01640  M01S01568.mac1    +++|*         MACROS READN.
01641  M01S01569.mac1    +++|
01642  M01S01570.mac1    +++|
01643  M01S01571.mac1    +++| READN    SUBR               ENTRY/EXIT
01644  M01S01572.mac1    +++|          SB1    1
01645  M01S01573.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
01646  M01S01574.mac1    +++|          SA2    X2
01647  M01S01575.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01648  M01S01576.mac1    +++|          READN  X1
01649  M01S01577.mac1    +++|          EQ     READNX
01650  M01S01578.mac1    +++|
01651  M01S01579.mac1    +++| RED1     READN  X1,R
01652  M01S01580.mac1    +++|          EQ     READNX
01653  M01S01581.mac1    +++|
01654  M01S01582.mac1    +++|          END
01655  M01S01583.mac1    +++|          IDENT  READNS
01656  M01S01584.mac1    +++|          ENTRY  READNS
01657  M01S01585.mac1    +++|          SYSCOM B1
01658  M01S01586.mac1    +++|          TITLE  READNS - READ FILE NON-STOP (READ TO EOF).
01659  M01S01587.mac1    +++|*COMMENT   READ FILE NON-STOP (READ TO EOF).

Line S01588 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01660  M02S01588.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01661  M01S00033.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01662  M01S01589.mac1    +++| READNS   SPACE  4,10
01663  M01S01590.mac1    +++|***       READNS - READ FILE NON-STOP (READ TO EOF).
01664  M01S01591.mac1    +++|*
01665  M01S01592.mac1    +++|*         CALL READNS (FILE,R)
01666  M01S01593.mac1    +++|*
01667  M01S01594.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01668  M01S01595.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01669  M01S01596.mac1    +++|*
01670  M01S01597.mac1    +++|*         READNS(FILE,R);         (*SYMPL* CALL)
01671  M01S01598.mac1    +++|*
01672  M01S01599.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01673  M01S01600.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL REQUESTED.
01674  M01S01601.mac1    +++|*
01675  M01S01602.mac1    +++|*         USES   X - 2.
01676  M01S01603.mac1    +++|*                A - 2.
01677  M01S01604.mac1    +++|*                B - 1.
01678  M01S01605.mac1    +++|*
01679  M01S01606.mac1    +++|*         MACROS READNS.
01680  M01S01607.mac1    +++|
01681  M01S01608.mac1    +++|
01682  M01S01609.mac1    +++| READNS   SUBR               ENTRY/EXIT
01683  M01S01610.mac1    +++|          SB1    1
01684  M01S01611.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
01685  M01S01612.mac1    +++|          SA2    X2
01686  M01S01613.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01687  M01S01614.mac1    +++|          READNS X1
01688  M01S01615.mac1    +++|          EQ     READNSX
01689  M01S01616.mac1    +++|
01690  M01S01617.mac1    +++| RED1     READNS X1,R
01691  M01S01618.mac1    +++|          EQ     READNSX     EXIT
01692  M01S01619.mac1    +++|
01693  M01S01620.mac1    +++|          END
01694  M01S01621.mac1    +++|          IDENT  READO
01695  M01S01622.mac1    +++|          ENTRY  READO
01696  M01S01623.mac1    +++|          SYSCOM B1
01697  M01S01624.mac1    +++|          TITLE  READO - READ ONE WORD.
01698  M01S01625.mac1    +++|*COMMENT   READ ONE WORD.

Line S01626 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01626.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01700  M01S00034.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01701  M01S01627.mac1    +++| READO    SPACE  4,10
01702  M01S01628.mac1    +++|***       READO - READ ONE WORD.
01703  M01S01629.mac1    +++|*
01704  M01S01630.mac1    +++|*         CALL READO (FILE,WORD,STATUS)
01705  M01S01631.mac1    +++|*
01706  M01S01632.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01707  M01S01633.mac1    +++|*
01708  M01S01634.mac1    +++|*         READO(FILE,WORD,STATUS);        (*SYMPL* CALL)
01709  M01S01635.mac1    +++|*
01710  M01S01636.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
01711  M01S01637.mac1    +++|*
01712  M01S01638.mac1    +++|*         EXIT   (WORD) = WORD READ IF (STATUS) = 0.
01713  M01S01639.mac1    +++|*                (STATUS) = 0, TRANSFER COMPLETE.
01714  M01S01640.mac1    +++|*                         = -1, END-OF-FILE DETECTED ON FILE.
01715  M01S01641.mac1    +++|*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
01716  M01S01642.mac1    +++|*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
01717  M01S01643.mac1    +++|*                                TRANSFER WAS COMPLETE.
01718  M01S01644.mac1    +++|*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
01719  M01S01645.mac1    +++|*                           WORKING BUFFER.
01720  M01S01646.mac1    +++|*
01721  M01S01647.mac1    +++|*         USES   X - 3, 5, 6, 7.
01722  M01S01648.mac1    +++|*                A - 3, 5, 6, 7.
01723  M01S01649.mac1    +++|*                B - 1.
01724  M01S01650.mac1    +++|*
01725  M01S01651.mac1    +++|*         MACROS READO.
01726  M01S01652.mac1    +++|
01727  M01S01653.mac1    +++|
01728  M01S01654.mac1    +++| READO    SUBR               ENTRY/EXIT
01729  M01S01655.mac1    +++|          SB1    1
01730  M01S01656.mac1    +++|          SA3    A1+B1       ADDRESS OF WORD
01731  M01S01657.mac1    +++|          SA5    A3+B1       (X5) = ADDRESS OF STATUS WORD
01732  M01S01658.mac1    +++|          BX0    X3
01733  M01S01659.mac1    +++|          READO  X1
01734  M01S01660.mac1    +++|          SA6    X0          WORD READ
01735  M01S01661.mac1    +++|          BX7    X1          STATUS
01736  M01S01662.mac1    +++|          SA7    X5
01737  M01S01663.mac1    +++|          EQ     READOX
01738  M01S01664.mac1    +++|
01739  M01S01665.mac1    +++|          END
01740  M01S01666.mac1    +++|          IDENT  READS
01741  M01S01667.mac1    +++|          ENTRY  READS
01742  M01S01668.mac1    +++|          SYSCOM B1
01743  M01S01669.mac1    +++|          TITLE  READS - READ CODED LINE TO CHARACTER BUFFER.
01744  M01S01670.mac1    +++|*COMMENT   READ CODED LINE TO CHARACTER BUFFER.

Line S01671 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01745  M02S01671.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01746  M01S00035.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01747  M01S01672.mac1    +++| READS    SPACE  4,10
01748  M01S01673.mac1    +++|***       READS - READ CODED LINE TO CHARACTER BUFFER.
01749  M01S01674.mac1    +++|*
01750  M01S01675.mac1    +++|*         CALL READS (FILE,BUF,N,STATUS)
01751  M01S01676.mac1    +++|*
01752  M01S01677.mac1    +++|*         UNPACKS WORDS AND STORES THEM IN THE WORKING BUFFER, ONE
01753  M01S01678.mac1    +++|*         CHARACTER/WORD, UNTIL THE END OF LINE BYTE (0000) IS SENSED.
01754  M01S01679.mac1    +++|*         FILLS THE WORKING BUFFER WITH SPACE CODES IF THE CODED LINE
01755  M01S01680.mac1    +++|*         TERMINATES BEFORE *N* CHARACTERS ARE STORED.
01756  M01S01681.mac1    +++|*
01757  M01S01682.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01758  M01S01683.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
01759  M01S01684.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
01760  M01S01685.mac1    +++|*
01761  M01S01686.mac1    +++|*         READS(FILE,BUF,N,STATUS);       (*SYMPL* CALL)
01762  M01S01687.mac1    +++|*
01763  M01S01688.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
01764  M01S01689.mac1    +++|*                 BUF, AN ARRAY TO BE USED AS READ BUFFER.
01765  M01S01690.mac1    +++|*                 N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
01766  M01S01691.mac1    +++|*
01767  M01S01692.mac1    +++|*         EXIT   (STATUS) = 0, TRANSFER COMPLETE
01768  M01S01693.mac1    +++|*                         = -1, END-OF-FILE DETECTED ON FILE.
01769  M01S01694.mac1    +++|*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
01770  M01S01695.mac1    +++|*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
01771  M01S01696.mac1    +++|*                                TRANSFER WAS COMPLETE.
01772  M01S01697.mac1    +++|*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
01773  M01S01698.mac1    +++|*                           WORKING BUFFER.
01774  M01S01699.mac1    +++|*
01775  M01S01700.mac1    +++|*         USES   X - 3, 4, 5, 6.
01776  M01S01701.mac1    +++|*                A - 3, 4, 5, 6.
01777  M01S01702.mac1    +++|*                B - 1.
01778  M01S01703.mac1    +++|*
01779  M01S01704.mac1    +++|*         MACROS READS.
01780  M01S01705.mac1    +++|
01781  M01S01706.mac1    +++|
01782  M01S01707.mac1    +++| READS    SUBR               ENTRY/EXIT
01783  M01S01708.mac1    +++|          SB1    1
01784  M01S01709.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
01785  M01S01710.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
01786  M01S01711.mac1    +++|          SA5    A4+B1       (X5) = ADDRESS OF STATUS WORD
01787  M01S01712.mac1    +++|          SA4    X4          WORD COUNT
01788  M01S01713.mac1    +++|          READS  X1,X3,X4
01789  M01S01714.mac1    +++|          BX6    X1
01790  M01S01715.mac1    +++|          SA6    X5
01791  M01S01716.mac1    +++|          EQ     READSX
01792  M01S01717.mac1    +++|
01793  M01S01718.mac1    +++|          END
01794  M01S01719.mac1    +++|          IDENT  READSKP
01795  M01S01720.mac1    +++|          ENTRY  READSKP
01796  M01S01721.mac1    +++|          SYSCOM B1
01797  M01S01722.mac1    +++|          TITLE  READSKP - READ FILE AND SKIP.
01798  M01S01723.mac1    +++|*COMMENT   READ FILE AND SKIP.

Line S01724 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01799  M02S01724.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01800  M01S00036.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01801  M01S01725.mac1    +++| READSKP  SPACE  4,10
01802  M01S01726.mac1    +++|***       READSKP - READ FILE AND SKIP.
01803  M01S01727.mac1    +++|*
01804  M01S01728.mac1    +++|*         CALL READSKP (FILE,LEVEL,R)
01805  M01S01729.mac1    +++|*
01806  M01S01730.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01807  M01S01731.mac1    +++|*                (LEVEL) = RECORD LEVEL.
01808  M01S01732.mac1    +++|*                        = 0, SKIP TO END OF RECORD.
01809  M01S01733.mac1    +++|*                        = 17B, SKIP TO END OF FILE.
01810  M01S01734.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01811  M01S01735.mac1    +++|*
01812  M01S01736.mac1    +++|*         READSKP(FILE,LEVEL,R);         (*SYMPL* CALL)
01813  M01S01737.mac1    +++|*
01814  M01S01738.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01815  M01S01739.mac1    +++|*                LEVEL, AN ITEM THAT CONTAINS ONE OF THE FOLLOWING
01816  M01S01740.mac1    +++|*                       VALUES.
01817  M01S01741.mac1    +++|*                           0, SKIP TO EOR.
01818  M01S01742.mac1    +++|*                           17B, SKIP TO EOF.
01819  M01S01743.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
01820  M01S01744.mac1    +++|*
01821  M01S01745.mac1    +++|*         USES   X - 2, 3.
01822  M01S01746.mac1    +++|*                A - 2, 3.
01823  M01S01747.mac1    +++|*                B - 1.
01824  M01S01748.mac1    +++|*
01825  M01S01749.mac1    +++|*         MACROS READSKP.
01826  M01S01750.mac1    +++|
01827  M01S01751.mac1    +++|
01828  M01S01752.mac1    +++|
01829  M01S01753.mac1    +++|
01830  M01S01754.mac1    +++| READSKP  SUBR               ENTRY/EXIT
01831  M01S01755.mac1    +++|          SB1    1
01832  M01S01756.mac1    +++|          SA3    A1+B1       ADDRESS OF LEVEL
01833  M01S01757.mac1    +++|          SA2    A3+B1       GET ADDRESS OF RECALL PARAMETER
01834  M01S01758.mac1    +++|          SA3    X3          LEVEL
01835  M01S01759.mac1    +++|          SA2    X2
01836  M01S01760.mac1    +++|          NZ     X2,RED1     IF RECALL REQUESTED
01837  M01S01761.mac1    +++|          READSKP  X1,X3
01838  M01S01762.mac1    +++|          EQ     READSKPX
01839  M01S01763.mac1    +++|
01840  M01S01764.mac1    +++| RED1     READSKP  X1,X3,R
01841  M01S01765.mac1    +++|          EQ     READSKPX
01842  M01S01766.mac1    +++|
01843  M01S01767.mac1    +++|          END
01844  M01S01768.mac1    +++|          IDENT  READW
01845  M01S01769.mac1    +++|          ENTRY  READW
01846  M01S01770.mac1    +++|          SYSCOM B1
01847  M01S01771.mac1    +++|          TITLE  READW - READ DATA TO WORKING BUFFER.
01848  M01S01772.mac1    +++|*COMMENT   READ DATA TO WORKING BUFFER.

Line S01773 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01849  M02S01773.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01850  M01S00037.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01851  M01S01774.mac1    +++| READW    SPACE  4,10
01852  M01S01775.mac1    +++|***       READW - READ DATA TO WORKING BUFFER.
01853  M01S01776.mac1    +++|*
01854  M01S01777.mac1    +++|*         CALL READW (FILE,BUF,N,STATUS)
01855  M01S01778.mac1    +++|*
01856  M01S01779.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01857  M01S01780.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
01858  M01S01781.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
01859  M01S01782.mac1    +++|*
01860  M01S01783.mac1    +++|*         EXIT   (STATUS) = 0, TRANSFER COMPLETE.
01861  M01S01784.mac1    +++|*                         = -1, END-OF-FILE DETECTED ON FILE.
01862  M01S01785.mac1    +++|*                         = -2, END-OF-INFORMATION DETECTED ON FILE.
01863  M01S01786.mac1    +++|*                         = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
01864  M01S01787.mac1    +++|*                                TRANSFER WAS COMPLETE.
01865  M01S01788.mac1    +++|*                     LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
01866  M01S01789.mac1    +++|*                           WORKING BUFFER.
01867  M01S01790.mac1    +++|*
01868  M01S01791.mac1    +++|*         READW(FILE,BUF,N,STATUS);       (*SYMPL* CALL)
01869  M01S01792.mac1    +++|*
01870  M01S01793.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01871  M01S01794.mac1    +++|*                BUF, AN ARRAY TO BE USED AS READ BUFFER.
01872  M01S01795.mac1    +++|*                N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
01873  M01S01796.mac1    +++|*
01874  M01S01797.mac1    +++|*         EXIT   STATUS, AN ITEM THAT WILL HAVE THE RESPONSE VALUE
01875  M01S01798.mac1    +++|*                        PUT IN IT.
01876  M01S01799.mac1    +++|*
01877  M01S01800.mac1    +++|*         USES   X - 3, 4, 5, 6.
01878  M01S01801.mac1    +++|*                A - 3, 4, 5, 6.
01879  M01S01802.mac1    +++|*                B - 1.
01880  M01S01803.mac1    +++|*
01881  M01S01804.mac1    +++|*         MACROS READW.
01882  M01S01805.mac1    +++|
01883  M01S01806.mac1    +++|
01884  M01S01807.mac1    +++| READW    SUBR               ENTRY/EXIT
01885  M01S01808.mac1    +++|          SB1    1
01886  M01S01809.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
01887  M01S01810.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
01888  M01S01811.mac1    +++|          SA5    A4+B1       (X5) = ADDRESS OF STATUS WORD
01889  M01S01812.mac1    +++|          SA4    X4          WORD COUNT
01890  M01S01813.mac1    +++|          READW  X1,X3,X4
01891  M01S01814.mac1    +++|          BX6    X1
01892  M01S01815.mac1    +++|          SA6    X5
01893  M01S01816.mac1    +++|          EQ     READWX
01894  M01S01817.mac1    +++|
01895  M01S01818.mac1    +++|          END
01896  M01S01819.mac1    +++|          IDENT  RECALL
01897  M01S01820.mac1    +++|          ENTRY  RECALL
01898  M01S01821.mac1    +++|          SYSCOM B1
01899  M01S01822.mac1    +++|          TITLE  RECALL - PLACE PROGRAM IN RECALL STATUS.
01900  M01S01823.mac1    +++|*COMMENT   PLACE PROGRAM IN RECALL STATUS.

Line S01824 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01901  M02S01824.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01902  M01S00038.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01903  M01S01825.mac1    +++| RECALL   SPACE  4,10
01904  M01S01826.mac1    +++|***       RECALL - PLACE PROGRAM IN RECALL STATUS.
01905  M01S01827.mac1    +++|*
01906  M01S01828.mac1    +++|*         CALL RECALL (STATUS)
01907  M01S01829.mac1    +++|*
01908  M01S01830.mac1    +++|*         ENTRY  (STATUS) = 0, ONE SYSTEM PERIODIC RECALL IS ISSUED.
01909  M01S01831.mac1    +++|*                         = OTHER, PROGRAM IS RECALLED WHEN
01910  M01S01832.mac1    +++|*                                  BIT 0 IS SET.
01911  M01S01833.mac1    +++|*
01912  M01S01834.mac1    +++|*         RECALL(STATUS);       (*SYMPL* CALL)
01913  M01S01835.mac1    +++|*
01914  M01S01836.mac1    +++|*         ENTRY  STATUS, AN ITEM CONTAINING 0 OR THE ADDRESS
01915  M01S01837.mac1    +++|*                OF THE WORD CONTAINING THE COMPLETION BIT.
01916  M01S01838.mac1    +++|*
01917  M01S01839.mac1    +++|*         USES   X - 2.
01918  M01S01840.mac1    +++|*                A - 2.
01919  M01S01841.mac1    +++|*                B - 1.
01920  M01S01842.mac1    +++|*
01921  M01S01843.mac1    +++|*         MACROS RECALL.
01922  M01S01844.mac1    +++|
01923  M01S01845.mac1    +++|
01924  M01S01846.mac1    +++| RECALL   SUBR               ENTRY/EXIT
01925  M01S01847.mac1    +++|          SB1    1
01926  M01S01848.mac1    +++|          SA2    X1          STATUS WORD
01927  M01S01849.mac1    +++|          ZR     X2,REC1     IF SINGLE RECALL
01928  M01S01850.mac1    +++|          RECALL X1          AUTO-RECALL
01929  M01S01851.mac1    +++|          EQ     RECALLX
01930  M01S01852.mac1    +++|
01931  M01S01853.mac1    +++| REC1     RECALL
01932  M01S01854.mac1    +++|          EQ     RECALLX
01933  M01S01855.mac1    +++|
01934  M01S01856.mac1    +++|          END
01935  M01S01857.mac1    +++|          IDENT  RENAME
01936  M01S01858.mac1    +++|          ENTRY  RENAME
01937  M01S01859.mac1    +++|          SYSCOM B1
01938  M01S01860.mac1    +++|          TITLE  RENAME - RENAME ASSIGNED FILE.
01939  M01S01861.mac1    +++|*COMMENT   RENAME ASSIGNED FILE.

Line S01862 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01940  M02S01862.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
01941  M01S00039.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01942  M01S01863.mac1    +++| RENAME   SPACE  4,10
01943  M01S01864.mac1    +++|***       RENAME - RENAME ASSIGNED FILE.
01944  M01S01865.mac1    +++|*
01945  M01S01866.mac1    +++|*         CALL RENAME (FILE,NFN)
01946  M01S01867.mac1    +++|*
01947  M01S01868.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01948  M01S01869.mac1    +++|*                (NFN)  = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
01949  M01S01870.mac1    +++|*                         SEVEN CHARACTER MAXIMUM.
01950  M01S01871.mac1    +++|*
01951  M01S01872.mac1    +++|*         RENAME(FILE,NFN);  (*SYMPL* CALL)
01952  M01S01873.mac1    +++|*
01953  M01S01874.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01954  M01S01875.mac1    +++|*                (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
01955  M01S01876.mac1    +++|*                        SEVEN CHARACTER MAXIMUM.
01956  M01S01877.mac1    +++|*
01957  M01S01878.mac1    +++|*         USES   X - 2, 6.
01958  M01S01879.mac1    +++|*                A - 2, 6.
01959  M01S01880.mac1    +++|*                B - 1.
01960  M01S01881.mac1    +++|*
01961  M01S01882.mac1    +++|*         MACROS RENAME.
01962  M01S01883.mac1    +++|
01963  M01S01884.mac1    +++|
01964  M01S01885.mac1    +++| RENAME   SUBR               ENTRY/EXIT
01965  M01S01886.mac1    +++|          SB1    1
01966  M01S01887.mac1    +++|          SA2    A1+B1       GET NEW FILE NAME
01967  M01S01888.mac1    +++|          SA2    X2
01968  M01S01889.mac1    +++|          BX6    X2
01969  M01S01890.mac1    +++|          SA6    X1+6        STORE NEW FILE NAME IN FET
01970  M01S01891.mac1    +++|          RENAME X1
01971  M01S01892.mac1    +++|          EQ     RENAMEX     RETURN
01972  M01S01893.mac1    +++|
01973  M01S01894.mac1    +++|          END
01974  M01S01895.mac1    +++|          IDENT  REQUEST
01975  M01S01896.mac1    +++|          ENTRY  REQUEST
01976  M01S01897.mac1    +++|          SYSCOM B1
01977  M01S01898.mac1    +++|          TITLE  REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
01978  M01S01899.mac1    +++|*COMMENT   REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.

Line S01900 Modification History
`M01` (Added by)	`mac1`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
01979  M02S01900.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
01980  M01S00040.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01981  M01S01901.mac1    +++| REQUEST  SPACE  4,10
01982  M01S01902.mac1    +++|***       REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
01983  M01S01903.mac1    +++|*
01984  M01S01904.mac1    +++|*         CALL REQUEST (LIST)
01985  M01S01905.mac1    +++|*
01986  M01S01906.mac1    +++|*         ENTRY  SEE *NOS SYSTEM REFERENCE MANUAL*.
01987  M01S01907.mac1    +++|*
01988  M01S01908.mac1    +++|*         REQUEST(LIST);        (*SYMPL* CALL)
01989  M01S01909.mac1    +++|*
01990  M01S01910.mac1    +++|*         ENTRY   AN ARRAY CONTAINING A REQUEST LIST, SEE *NOS
01991  M01S01911.mac1    +++|*                 REFERENCE MANUAL*.
01992  M01S01912.mac1    +++|*
01993  M01S01913.mac1    +++|*         USES   B - 1.
01994  M01S01914.mac1    +++|*
01995  M01S01915.mac1    +++|*         MACROS REQUEST.

Proceed to Part 1