Deck MAC1 Part 001

4 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01902  M01S00038.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01903  M00S01825.mac1    +++| RECALL   SPACE  4,10
01904  M00S01826.mac1    +++|***       RECALL - PLACE PROGRAM IN RECALL STATUS.
01905  M00S01827.mac1    +++|*
01906  M00S01828.mac1    +++|*         CALL RECALL (STATUS)
01907  M00S01829.mac1    +++|*
01908  M00S01830.mac1    +++|*         ENTRY  (STATUS) = 0, ONE SYSTEM PERIODIC RECALL IS ISSUED.
01909  M00S01831.mac1    +++|*                         = OTHER, PROGRAM IS RECALLED WHEN
01910  M00S01832.mac1    +++|*                                  BIT 0 IS SET.
01911  M00S01833.mac1    +++|*
01912  M00S01834.mac1    +++|*         RECALL(STATUS);       (*SYMPL* CALL)
01913  M00S01835.mac1    +++|*
01914  M00S01836.mac1    +++|*         ENTRY  STATUS, AN ITEM CONTAINING 0 OR THE ADDRESS
01915  M00S01837.mac1    +++|*                OF THE WORD CONTAINING THE COMPLETION BIT.
01916  M00S01838.mac1    +++|*
01917  M00S01839.mac1    +++|*         USES   X - 2.
01918  M00S01840.mac1    +++|*                A - 2.
01919  M00S01841.mac1    +++|*                B - 1.
01920  M00S01842.mac1    +++|*
01921  M00S01843.mac1    +++|*         MACROS RECALL.
01922  M00S01844.mac1    +++|
01923  M00S01845.mac1    +++|
01924  M00S01846.mac1    +++| RECALL   SUBR               ENTRY/EXIT
01925  M00S01847.mac1    +++|          SB1    1
01926  M00S01848.mac1    +++|          SA2    X1          STATUS WORD
01927  M00S01849.mac1    +++|          ZR     X2,REC1     IF SINGLE RECALL
01928  M00S01850.mac1    +++|          RECALL X1          AUTO-RECALL
01929  M00S01851.mac1    +++|          EQ     RECALLX
01930  M00S01852.mac1    +++|
01931  M00S01853.mac1    +++| REC1     RECALL
01932  M00S01854.mac1    +++|          EQ     RECALLX
01933  M00S01855.mac1    +++|
01934  M00S01856.mac1    +++|          END
01935  M00S01857.mac1    +++|          IDENT  RENAME
01936  M00S01858.mac1    +++|          ENTRY  RENAME
01937  M00S01859.mac1    +++|          SYSCOM B1
01938  M00S01860.mac1    +++|          TITLE  RENAME - RENAME ASSIGNED FILE.
01939  M00S01861.mac1    +++|*COMMENT   RENAME ASSIGNED FILE.

Seq #  *Modification Id* Act 
----------------------------+
01940  M01S01862.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1980.

Seq #  *Modification Id* Act 
----------------------------+
01941  M01S00039.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01942  M00S01863.mac1    +++| RENAME   SPACE  4,10
01943  M00S01864.mac1    +++|***       RENAME - RENAME ASSIGNED FILE.
01944  M00S01865.mac1    +++|*
01945  M00S01866.mac1    +++|*         CALL RENAME (FILE,NFN)
01946  M00S01867.mac1    +++|*
01947  M00S01868.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
01948  M00S01869.mac1    +++|*                (NFN)  = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
01949  M00S01870.mac1    +++|*                         SEVEN CHARACTER MAXIMUM.
01950  M00S01871.mac1    +++|*
01951  M00S01872.mac1    +++|*         RENAME(FILE,NFN);  (*SYMPL* CALL)
01952  M00S01873.mac1    +++|*
01953  M00S01874.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
01954  M00S01875.mac1    +++|*                (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
01955  M00S01876.mac1    +++|*                        SEVEN CHARACTER MAXIMUM.
01956  M00S01877.mac1    +++|*
01957  M00S01878.mac1    +++|*         USES   X - 2, 6.
01958  M00S01879.mac1    +++|*                A - 2, 6.
01959  M00S01880.mac1    +++|*                B - 1.
01960  M00S01881.mac1    +++|*
01961  M00S01882.mac1    +++|*         MACROS RENAME.
01962  M00S01883.mac1    +++|
01963  M00S01884.mac1    +++|
01964  M00S01885.mac1    +++| RENAME   SUBR               ENTRY/EXIT
01965  M00S01886.mac1    +++|          SB1    1
01966  M00S01887.mac1    +++|          SA2    A1+B1       GET NEW FILE NAME
01967  M00S01888.mac1    +++|          SA2    X2
01968  M00S01889.mac1    +++|          BX6    X2
01969  M00S01890.mac1    +++|          SA6    X1+6        STORE NEW FILE NAME IN FET
01970  M00S01891.mac1    +++|          RENAME X1
01971  M00S01892.mac1    +++|          EQ     RENAMEX     RETURN
01972  M00S01893.mac1    +++|
01973  M00S01894.mac1    +++|          END
01974  M00S01895.mac1    +++|          IDENT  REQUEST
01975  M00S01896.mac1    +++|          ENTRY  REQUEST
01976  M00S01897.mac1    +++|          SYSCOM B1
01977  M00S01898.mac1    +++|          TITLE  REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
01978  M00S01899.mac1    +++|*COMMENT   REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.

Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01900.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
01980  M01S00040.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01981  M00S01901.mac1    +++| REQUEST  SPACE  4,10
01982  M00S01902.mac1    +++|***       REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
01983  M00S01903.mac1    +++|*
01984  M00S01904.mac1    +++|*         CALL REQUEST (LIST)
01985  M00S01905.mac1    +++|*
01986  M00S01906.mac1    +++|*         ENTRY  SEE *NOS SYSTEM REFERENCE MANUAL*.
01987  M00S01907.mac1    +++|*
01988  M00S01908.mac1    +++|*         REQUEST(LIST);        (*SYMPL* CALL)
01989  M00S01909.mac1    +++|*
01990  M00S01910.mac1    +++|*         ENTRY   AN ARRAY CONTAINING A REQUEST LIST, SEE *NOS
01991  M00S01911.mac1    +++|*                 REFERENCE MANUAL*.
01992  M00S01912.mac1    +++|*
01993  M00S01913.mac1    +++|*         USES   B - 1.
01994  M00S01914.mac1    +++|*
01995  M00S01915.mac1    +++|*         MACROS REQUEST.
01996  M00S01916.mac1    +++|
01997  M00S01917.mac1    +++|
01998  M00S01918.mac1    +++| REQUEST  SUBR               ENTRY/EXIT
01999  M00S01919.mac1    +++|          SB1    1
02000  M00S01920.mac1    +++|          REQUEST X1
02001  M00S01921.mac1    +++|          EQ     REQUESTX
02002  M00S01922.mac1    +++|
02003  M00S01923.mac1    +++|          END

Seq #  *Modification Id* Act 
----------------------------+
02004  M01S00001.v23l617 +++|          IDENT  REQWEST
02005  M01S00002.v23l617 +++|          ENTRY  REQWEST
02006  M01S00003.v23l617 +++|          SYSCOM B1
02007  M01S00004.v23l617 +++|          TITLE  REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
02008  M01S00005.v23l617 +++|*COMMENT  MAC1 - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
02009  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1984.

Seq #  *Modification Id* Act 
----------------------------+
02010  M01S00041.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Seq #  *Modification Id* Act 
----------------------------+
02011  M01S00007.v23l617 +++|          SPACE  4,10
02012  M01S00008.v23l617 +++|***       REQWEST - REQUEST (015) AUTO ASSIGNMENT OF EQUIPMENT TO FILE.
02013  M01S00009.v23l617 +++|*
02014  M01S00010.v23l617 +++|*         NOTE - *REQWEST* (*LFM* FUNCTION 015) IS SPELLED WITH A *W*
02015  M01S00011.v23l617 +++|*                TO DISTINGUISH IT FROM *REQUEST* (*LFM* FUNCTION 014).
02016  M01S00012.v23l617 +++|*
02017  M01S00013.v23l617 +++|*         *SYMPL* CALL -
02018  M01S00014.v23l617 +++|*         REQWEST(FILE,M);
02019  M01S00015.v23l617 +++|*
02020  M01S00016.v23l617 +++|*         ENTRY  (FILE) = FET, (FET+1 BITS 59-48 CONTAIN DEVICE TYPE).
02021  M01S00017.v23l617 +++|*                (M)    = IF NON ZERO, DAYFILE MESSAGE INDICATING
02022  M01S00018.v23l617 +++|*                         DEVICE TO WHICH THE FILE IS ASSIGNED WILL BE
02023  M01S00019.v23l617 +++|*                         ISSUED BY *LFM*.
02024  M01S00020.v23l617 +++|*                         IF ZERO, NO DAYFILE MESSAGE WILL BE ISSUED.
02025  M01S00021.v23l617 +++|*
02026  M01S00022.v23l617 +++|*         USES   X - 2.
02027  M01S00023.v23l617 +++|*                A - 2.
02028  M01S00024.v23l617 +++|*                B - 1.
02029  M01S00025.v23l617 +++|*
02030  M01S00026.v23l617 +++|*         MACROS REQUEST.
02031  M01S00027.v23l617 +++|
02032  M01S00028.v23l617 +++|
02033  M01S00029.v23l617 +++| REQWEST  SUBR               ENTRY/EXIT
02034  M01S00030.v23l617 +++|          SB1    1
02035  M01S00031.v23l617 +++|          SA2    A1+B1
02036  M01S00032.v23l617 +++|          SA2    X2
02037  M01S00033.v23l617 +++|          ZR     X2,REQW1    IF NO DAYFILE MESSAGE
02038  M01S00034.v23l617 +++|          REQUEST  X1,U
02039  M01S00035.v23l617 +++|          EQ     REQWESTX    RETURN
02040  M01S00036.v23l617 +++|
02041  M01S00037.v23l617 +++| REQW1    REQUEST  X1,U,N
02042  M01S00038.v23l617 +++|          EQ     REQWESTX    RETURN
02043  M01S00039.v23l617 +++|
02044  M01S00040.v23l617 +++|          END
02045  M00S01924.mac1    +++|          IDENT  RETURN
02046  M00S01925.mac1    +++|          ENTRY  RETURN
02047  M00S01926.mac1    +++|          ENTRY  RETERN
02048  M00S01927.mac1    +++|          SYSCOM B1
02049  M00S01928.mac1    +++|          TITLE  RETURN - RETURN FILE TO SYSTEM.
02050  M00S01929.mac1    +++|*COMMENT   RETURN FILE TO SYSTEM.

Seq #  *Modification Id* Act 
----------------------------+
02051  M01S01930.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02052  M01S00042.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02053  M00S01931.mac1    +++| RETURN   SPACE  4,10
02054  M00S01932.mac1    +++|***       RETURN - RETURN FILE TO SYSTEM.
02055  M00S01933.mac1    +++|*
02056  M00S01934.mac1    +++|*         CALL RETURN (FILE,R)
02057  M00S01935.mac1    +++|*
02058  M00S01936.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02059  M00S01937.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02060  M00S01938.mac1    +++|*
02061  M00S01939.mac1    +++|*         RETERN(FILE,R);         (*SYMPL* CALL)
02062  M00S01940.mac1    +++|*
02063  M00S01941.mac1    +++|*         NOTE    RETURN IS A RESERVED WORD IN *SYMPL*, A CALL TO
02064  M00S01942.mac1    +++|*                 THE RETURN MACRO IN *SYMPL* MUST SPELL RETURN WITH
02065  M00S01943.mac1    +++|*                 AN *E* INSTEAD OF A *U*.
02066  M00S01944.mac1    +++|*
02067  M00S01945.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02068  M00S01946.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02069  M00S01947.mac1    +++|*
02070  M00S01948.mac1    +++|*         USES   X - 2.
02071  M00S01949.mac1    +++|*                A - 2.
02072  M00S01950.mac1    +++|*                B - 1.
02073  M00S01951.mac1    +++|*
02074  M00S01952.mac1    +++|*         MACROS RETURN.
02075  M00S01953.mac1    +++|
02076  M00S01954.mac1    +++|
02077  M00S01955.mac1    +++|
02078  M00S01956.mac1    +++| RETERN   BSS  0             ENTRY FOR *SYMPL* ROUTINES
02079  M00S01957.mac1    +++| RETURN   SUBR               ENTRY/EXIT
02080  M00S01958.mac1    +++|          SB1    1
02081  M00S01959.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02082  M00S01960.mac1    +++|          SA2    X2
02083  M00S01961.mac1    +++|          NZ     X2,RET1     IF RECALL REQUESTED
02084  M00S01962.mac1    +++|          RETURN X1
02085  M00S01963.mac1    +++|          EQ     RETURNX
02086  M00S01964.mac1    +++|
02087  M00S01965.mac1    +++| RET1     RETURN X1,R
02088  M00S01966.mac1    +++|          EQ     RETURNX
02089  M00S01967.mac1    +++|
02090  M00S01968.mac1    +++|          END
02091  M00S01969.mac1    +++|          IDENT  REWIND
02092  M00S01970.mac1    +++|          ENTRY  REWIND
02093  M00S01971.mac1    +++|          SYSCOM B1
02094  M00S01972.mac1    +++|          TITLE  REWIND - REWIND FILE.
02095  M00S01973.mac1    +++|*COMMENT   REWIND FILE.

Seq #  *Modification Id* Act 
----------------------------+
02096  M01S01974.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02097  M01S00043.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02098  M00S01975.mac1    +++| REWIND   SPACE  4,10
02099  M00S01976.mac1    +++|***       REWIND - REWIND FILE.
02100  M00S01977.mac1    +++|*
02101  M00S01978.mac1    +++|*         CALL REWIND (FILE,R)
02102  M00S01979.mac1    +++|*
02103  M00S01980.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02104  M00S01981.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02105  M00S01982.mac1    +++|*
02106  M00S01983.mac1    +++|*         REWIND(FILE,R);         (*SYMPL* CALL)
02107  M00S01984.mac1    +++|*
02108  M00S01985.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02109  M00S01986.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02110  M00S01987.mac1    +++|*
02111  M00S01988.mac1    +++|*         USES   X - 2.
02112  M00S01989.mac1    +++|*                A - 2.
02113  M00S01990.mac1    +++|*                B - 1.
02114  M00S01991.mac1    +++|*
02115  M00S01992.mac1    +++|*         MACROS REWIND.
02116  M00S01993.mac1    +++|
02117  M00S01994.mac1    +++|
02118  M00S01995.mac1    +++| REWIND   SUBR               ENTRY/EXIT
02119  M00S01996.mac1    +++|          SB1    1
02120  M00S01997.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02121  M00S01998.mac1    +++|          SA2    X2
02122  M00S01999.mac1    +++|          NZ     X2,REW1     IF RECALL REQUESTED
02123  M00S02000.mac1    +++|          REWIND X1
02124  M00S02001.mac1    +++|          EQ     REWINDX
02125  M00S02002.mac1    +++|
02126  M00S02003.mac1    +++| REW1     REWIND X1,R
02127  M00S02004.mac1    +++|          EQ     REWINDX
02128  M00S02005.mac1    +++|
02129  M00S02006.mac1    +++|          END
02130  M00S02007.mac1    +++|          IDENT  REWRITE
02131  M00S02008.mac1    +++|          ENTRY  REWRITE
02132  M00S02009.mac1    +++|          SYSCOM B1
02133  M00S02010.mac1    +++|          TITLE  REWRITE - REWRITE DATA FROM *CIO* BUFFER.
02134  M00S02011.mac1    +++|*COMMENT   REWRITE DATA FROM *CIO* BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02135  M01S02012.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02136  M01S00044.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02137  M00S02013.mac1    +++| REWRITE  SPACE  4,10
02138  M00S02014.mac1    +++|***       REWRITE - REWITE DATA FROM *CIO* BUFFER.
02139  M00S02015.mac1    +++|*         MASS STORAGE FILES ONLY.
02140  M00S02016.mac1    +++|*
02141  M00S02017.mac1    +++|*         CALL REWRITE (FILE,R)
02142  M00S02018.mac1    +++|*
02143  M00S02019.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02144  M00S02020.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02145  M00S02021.mac1    +++|*
02146  M00S02022.mac1    +++|*         REWRITE(FILE,R);       (*SYMPL* CALL)
02147  M00S02023.mac1    +++|*
02148  M00S02024.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02149  M00S02025.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02150  M00S02026.mac1    +++|*
02151  M00S02027.mac1    +++|*         USES   X - 2.
02152  M00S02028.mac1    +++|*                A - 2.
02153  M00S02029.mac1    +++|*                B - 1.
02154  M00S02030.mac1    +++|*
02155  M00S02031.mac1    +++|*         MACROS REWRITE.
02156  M00S02032.mac1    +++|
02157  M00S02033.mac1    +++|
02158  M00S02034.mac1    +++| REWRITE  SUBR               ENTRY/EXIT
02159  M00S02035.mac1    +++|          SB1    1
02160  M00S02036.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02161  M00S02037.mac1    +++|          SA2    X2
02162  M00S02038.mac1    +++|          NZ     X2,REW1     IF RECALL REQUESTED
02163  M00S02039.mac1    +++|          REWRITE X1
02164  M00S02040.mac1    +++|          EQ     REWRITEX
02165  M00S02041.mac1    +++|
02166  M00S02042.mac1    +++| REW1     REWRITE X1,R
02167  M00S02043.mac1    +++|          EQ     REWRITEX
02168  M00S02044.mac1    +++|
02169  M00S02045.mac1    +++|          END
02170  M00S02046.mac1    +++|          IDENT  REWRITF
02171  M00S02047.mac1    +++|          ENTRY  REWRITF
02172  M00S02048.mac1    +++|          SYSCOM B1
02173  M00S02049.mac1    +++|          TITLE  REWRITF - REWRITE END OF FILE.
02174  M00S02050.mac1    +++|*COMMENT   REWRITE END OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
02175  M01S02051.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02176  M01S00045.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02177  M00S02052.mac1    +++| REWRITF  SPACE  4,10
02178  M00S02053.mac1    +++|***       REWRITF - REWRITE END OF FILE.
02179  M00S02054.mac1    +++|*         MASS STORAGE FILES ONLY.
02180  M00S02055.mac1    +++|*
02181  M00S02056.mac1    +++|*         CALL REWRITF (FILE,R)
02182  M00S02057.mac1    +++|*
02183  M00S02058.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02184  M00S02059.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02185  M00S02060.mac1    +++|*
02186  M00S02061.mac1    +++|*         REWRITE(FILE,R);       (*SYMPL* CALL)
02187  M00S02062.mac1    +++|*
02188  M00S02063.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02189  M00S02064.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02190  M00S02065.mac1    +++|*
02191  M00S02066.mac1    +++|*         USES   X - 2.
02192  M00S02067.mac1    +++|*                A - 2.
02193  M00S02068.mac1    +++|*                B - 1.
02194  M00S02069.mac1    +++|*
02195  M00S02070.mac1    +++|*         MACROS REWRITEF.
02196  M00S02071.mac1    +++|
02197  M00S02072.mac1    +++|
02198  M00S02073.mac1    +++| REWRITF  SUBR               ENTRY/EXIT
02199  M00S02074.mac1    +++|          SB1    1
02200  M00S02075.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02201  M00S02076.mac1    +++|          SA2    X2
02202  M00S02077.mac1    +++|          NZ     X2,REW1     IF RECALL REQUESTED
02203  M00S02078.mac1    +++|          REWRITEF  X1
02204  M00S02079.mac1    +++|          EQ     REWRITFX
02205  M00S02080.mac1    +++|
02206  M00S02081.mac1    +++| REW1     REWRITEF  X1,R
02207  M00S02082.mac1    +++|          EQ     REWRITFX
02208  M00S02083.mac1    +++|
02209  M00S02084.mac1    +++|          END
02210  M00S02085.mac1    +++|          IDENT  REWRITR
02211  M00S02086.mac1    +++|          ENTRY  REWRITR
02212  M00S02087.mac1    +++|          SYSCOM B1
02213  M00S02088.mac1    +++|          TITLE  REWRITR - REWRITE END OF RECORD.
02214  M00S02089.mac1    +++|*COMMENT   REWRITE END OF RECORD.

Seq #  *Modification Id* Act 
----------------------------+
02215  M01S02090.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02216  M01S00046.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02217  M00S02091.mac1    +++| REWRITR  SPACE  4,10
02218  M00S02092.mac1    +++|***       REWRITR - REWRITE END OF RECORD.
02219  M00S02093.mac1    +++|*         MASS STORAGE FILES ONLY.
02220  M00S02094.mac1    +++|*
02221  M00S02095.mac1    +++|*         CALL REWRITR (FILE,R)
02222  M00S02096.mac1    +++|*
02223  M00S02097.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02224  M00S02098.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02225  M00S02099.mac1    +++|*
02226  M00S02100.mac1    +++|*         REWRITR(FILE,R);           (*SYMPL* CALL)
02227  M00S02101.mac1    +++|*
02228  M00S02102.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02229  M00S02103.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02230  M00S02104.mac1    +++|*
02231  M00S02105.mac1    +++|*         USES   X - 2.
02232  M00S02106.mac1    +++|*                A - 2.
02233  M00S02107.mac1    +++|*                B - 1.
02234  M00S02108.mac1    +++|*
02235  M00S02109.mac1    +++|*         MACROS REWRITER.
02236  M00S02110.mac1    +++|
02237  M00S02111.mac1    +++|
02238  M00S02112.mac1    +++| REWRITR  SUBR               ENTRY/EXIT
02239  M00S02113.mac1    +++|          SB1    1
02240  M00S02114.mac1    +++|          SA2    A1+B1       GET ADDRESS OF RECALL PARAMETER
02241  M00S02115.mac1    +++|          SA2    X2
02242  M00S02116.mac1    +++|          NZ     X2,REW1     IF RECALL PARAMETER REQUESTED
02243  M00S02117.mac1    +++|          REWRITER  X1
02244  M00S02118.mac1    +++|          EQ     REWRITRX
02245  M00S02119.mac1    +++|
02246  M00S02120.mac1    +++| REW1     REWRITER  X1,R
02247  M00S02121.mac1    +++|          EQ     REWRITRX
02248  M00S02122.mac1    +++|
02249  M00S02123.mac1    +++|          END
02250  M00S02124.mac1    +++|          IDENT  ROLLOUT
02251  M00S02125.mac1    +++|          ENTRY  ROLLOUT
02252  M00S02126.mac1    +++|          SYSCOM B1
02253  M00S02127.mac1    +++|          TITLE  ROLLOUT - ROLLOUT THE JOB.
02254  M00S02128.mac1    +++|*COMMENT ROLLOUT THE JOB.

Seq #  *Modification Id* Act 
----------------------------+
02255  M01S02129.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02256  M01S00047.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02257  M00S02130.mac1    +++| ROLLOUT  SPACE  4,10
02258  M00S02131.mac1    +++|***       ROLLOUT - ROLLOUT THE JOB.
02259  M00S02132.mac1    +++|*
02260  M00S02133.mac1    +++|*         CALL ROLLOUT (ADDR)
02261  M00S02134.mac1    +++|*
02262  M00S02135.mac1    +++|*         ROLLOUT(ADDR);   (*SYMPL* CALL)
02263  M00S02136.mac1    +++|*
02264  M00S02137.mac1    +++|*         ENTRY  (ADDR) = ADDRESS OF EVENT DEPENDENCIES.
02265  M00S02138.mac1    +++|*T,       30/0,18/EVD,12/RTP

Figure

02266  M00S02139.mac1    +++|*                EVD = EVENT VALUE.
02267  M00S02140.mac1    +++|*                RTP = ROLLOUT TIME PERIOD.
02268  M00S02141.mac1    +++|*
02269  M00S02142.mac1    +++|*         USES   B - 1.
02270  M00S02143.mac1    +++|*
02271  M00S02144.mac1    +++|*         MACROS ROLLOUT.
02272  M00S02145.mac1    +++|
02273  M00S02146.mac1    +++|
02274  M00S02147.mac1    +++| ROLLOUT  BSS    0
02275  M00S02148.mac1    +++| ROLLT    SUBR               ENTRY/EXIT
02276  M00S02149.mac1    +++|          SB1    1
02277  M00S02150.mac1    +++|          ROLLOUT  X1
02278  M00S02151.mac1    +++|          EQ     ROLLTX      EXIT
02279  M00S02152.mac1    +++|
02280  M00S02153.mac1    +++|          END
02281  M00S02154.mac1    +++|          IDENT  ROUTE
02282  M00S02155.mac1    +++|          ENTRY  ROUTE
02283  M00S02156.mac1    +++|          SYSCOM B1
02284  M00S02157.mac1    +++|          TITLE ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
02285  M00S02158.mac1    +++|*COMMENT  ROUTE A FILE TO A SPECIFIC DISPOSITION.

Seq #  *Modification Id* Act 
----------------------------+
02286  M01S02159.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1981.

Seq #  *Modification Id* Act 
----------------------------+
02287  M01S00048.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02288  M00S02160.mac1    +++|          SPACE  4,10
02289  M00S02161.mac1    +++|***       ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
02290  M00S02162.mac1    +++|*
02291  M00S02163.mac1    +++|*         CALL ROUTE(ADDR,R)
02292  M00S02164.mac1    +++|*
02293  M00S02165.mac1    +++|*         ENTRY  (ADDR) = ADDRESS OF PARAMETER BLOCK.
02294  M00S02166.mac1    +++|*                (R)    = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02295  M00S02167.mac1    +++|*
02296  M00S02168.mac1    +++|*         ROUTE(ADDR,R);            (*SYMPL* CALL)
02297  M00S02169.mac1    +++|*
02298  M00S02170.mac1    +++|*         ENTRY  (ADDR) = ADDRESS OF PARAMETER BLOCK.
02299  M00S02171.mac1    +++|*                (R)    = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02300  M00S02172.mac1    +++|*
02301  M00S02173.mac1    +++|*         USES   X - 1, 2.
02302  M00S02174.mac1    +++|*                A - 1, 2.
02303  M00S02175.mac1    +++|*                B - 1.
02304  M00S02176.mac1    +++|*
02305  M00S02177.mac1    +++|*         MACROS ROUTE.
02306  M00S02178.mac1    +++|
02307  M00S02179.mac1    +++|
02308  M00S02180.mac1    +++| ROUTE    SUBR   ENTRY/EXIT
02309  M00S02181.mac1    +++|          SB1    1
02310  M00S02182.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02311  M00S02183.mac1    +++|          SA2    X2
02312  M00S02184.mac1    +++|          NZ     X2,ROU1     IF RECALL PARAMETER
02313  M00S02185.mac1    +++|          ROUTE  X1
02314  M00S02186.mac1    +++|          EQ     ROUTEX      EXIT
02315  M00S02187.mac1    +++|
02316  M00S02188.mac1    +++| ROU1     ROUTE  X1,R
02317  M00S02189.mac1    +++|          EQ     ROUTEX      EXIT
02318  M00S02190.mac1    +++|
02319  M00S02191.mac1    +++|          END
02320  M00S02192.mac1    +++|          IDENT  RPHR
02321  M00S02193.mac1    +++|          ENTRY  RPHR
02322  M00S02194.mac1    +++|          SYSCOM B1
02323  M00S02195.mac1    +++|          TITLE  RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
02324  M00S02196.mac1    +++|*COMMENT   READ PHYSICAL RECORD TO *CIO* BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02325  M01S02197.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02326  M01S00049.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02327  M00S02198.mac1    +++| RPHR     SPACE  4,10
02328  M00S02199.mac1    +++|***       RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
02329  M00S02200.mac1    +++|*
02330  M00S02201.mac1    +++|*         CALL RPHR (FILE,R)
02331  M00S02202.mac1    +++|*
02332  M00S02203.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02333  M00S02204.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02334  M00S02205.mac1    +++|*
02335  M00S02206.mac1    +++|*         RPHR(FILE,R);             (*SYMPL* CALL)
02336  M00S02207.mac1    +++|*
02337  M00S02208.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02338  M00S02209.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02339  M00S02210.mac1    +++|*
02340  M00S02211.mac1    +++|*         USES   X - 2.
02341  M00S02212.mac1    +++|*                A - 2.
02342  M00S02213.mac1    +++|*                B - 1.
02343  M00S02214.mac1    +++|*
02344  M00S02215.mac1    +++|*         MACROS RPHR.
02345  M00S02216.mac1    +++|
02346  M00S02217.mac1    +++|
02347  M00S02218.mac1    +++| RPHR     SUBR               ENTRY/EXIT
02348  M00S02219.mac1    +++|          SB1    1
02349  M00S02220.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02350  M00S02221.mac1    +++|          SA2    X2
02351  M00S02222.mac1    +++|          NZ     X2,RPH1     IF RECALL REQUESTED
02352  M00S02223.mac1    +++|          RPHR   X1
02353  M00S02224.mac1    +++|          EQ     RPHRX
02354  M00S02225.mac1    +++|
02355  M00S02226.mac1    +++| RPH1     RPHR   X1,R
02356  M00S02227.mac1    +++|          EQ     RPHRX
02357  M00S02228.mac1    +++|
02358  M00S02229.mac1    +++|          END
02359  M00S02230.mac1    +++|          IDENT  RPHRLS
02360  M00S02231.mac1    +++|          ENTRY  RPHRLS
02361  M00S02232.mac1    +++|          SYSCOM B1
02362  M00S02233.mac1    +++|          TITLE  RPHRLS - READ PRUS WITH LIST.
02363  M00S02234.mac1    +++|*COMMENT   READ PRUS WITH LIST.

Seq #  *Modification Id* Act 
----------------------------+
02364  M01S02235.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02365  M01S00050.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02366  M00S02236.mac1    +++| RPHRLS   SPACE  4,10
02367  M00S02237.mac1    +++|***       RPHRLS - READ PRUS WITH LIST.
02368  M00S02238.mac1    +++|*
02369  M00S02239.mac1    +++|*         CALL RPHRLS (FILE,R)
02370  M00S02240.mac1    +++|*
02371  M00S02241.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02372  M00S02242.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02373  M00S02243.mac1    +++|*
02374  M00S02244.mac1    +++|*         RPHRLS(FILE,R);         (*SYMPL* CALL)
02375  M00S02245.mac1    +++|*
02376  M00S02246.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02377  M00S02247.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02378  M00S02248.mac1    +++|*
02379  M00S02249.mac1    +++|*         USES   X - 2.
02380  M00S02250.mac1    +++|*                A - 2.
02381  M00S02251.mac1    +++|*                B - 1.
02382  M00S02252.mac1    +++|*
02383  M00S02253.mac1    +++|*         MACROS RPHRLS.
02384  M00S02254.mac1    +++|
02385  M00S02255.mac1    +++|
02386  M00S02256.mac1    +++| RPHRLS   SUBR               ENTRY/EXIT
02387  M00S02257.mac1    +++|          SB1    1

Seq #  *Modification Id* Act 
----------------------------+
02388  M01S02258.ns22000 ---|          SA2    X1+B1       GET RECALL PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
02389  M01S00037.ns22000 +++|          SA2    A1+B1       GET RECALL PARAMETER
02390  M00S02259.mac1    +++|          SA2    X2
02391  M00S02260.mac1    +++|          NZ     X2,RPH1     IF RECALL REQUESTED
02392  M00S02261.mac1    +++|          RPHRLS X1
02393  M00S02262.mac1    +++|          EQ     RPHRLSX
02394  M00S02263.mac1    +++|
02395  M00S02264.mac1    +++| RPH1     RPHRLS X1,R
02396  M00S02265.mac1    +++|          EQ     RPHRLSX
02397  M00S02266.mac1    +++|
02398  M00S02267.mac1    +++|          END
02399  M00S02268.mac1    +++|          IDENT  RTIME
02400  M00S02269.mac1    +++|          ENTRY  RTIME
02401  M00S02270.mac1    +++|          SYSCOM B1
02402  M00S02271.mac1    +++|          TITLE  RTIME - OBTAIN REAL TIME CLOCK READING.
02403  M00S02272.mac1    +++|*COMMENT   OBTAIN REAL TIME CLOCK READING.

Seq #  *Modification Id* Act 
----------------------------+
02404  M01S02273.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02405  M01S00051.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02406  M00S02274.mac1    +++| RTIME    SPACE  4,10
02407  M00S02275.mac1    +++|***       RTIME - OBTAIN REAL TIME CLOCK READING.
02408  M00S02276.mac1    +++|*
02409  M00S02277.mac1    +++|*         CALL RTIME (STATUS)
02410  M00S02278.mac1    +++|*
02411  M00S02279.mac1    +++|*         EXIT   (STATUS) = RESPONSE.
02412  M00S02280.mac1    +++|*                RESPONSE =
02413  M00S02281.mac1    +++|*T        24/ SECONDS,36/ MILLISECONDS

Figure

02414  M00S02282.mac1    +++|*         TIME IS SYSTEM SOFTWARE CLOCK TIME SINCE DEADSTART.
02415  M00S02283.mac1    +++|*
02416  M00S02284.mac1    +++|*         RTIME(STATUS);        (*SYMPL* CALL)
02417  M00S02285.mac1    +++|*
02418  M00S02286.mac1    +++|*         EXIT   STATUS, AN ITEM THAT WILL CONTAIN THE RTIME
02419  M00S02287.mac1    +++|*                        STATUS WORD ON EXIT.
02420  M00S02288.mac1    +++|*
02421  M00S02289.mac1    +++|*         USES   X - 1, 6.
02422  M00S02290.mac1    +++|*                A - 1.
02423  M00S02291.mac1    +++|*                B - 1.
02424  M00S02292.mac1    +++|*
02425  M00S02293.mac1    +++|*         MACROS RTIME.
02426  M00S02294.mac1    +++|
02427  M00S02295.mac1    +++|
02428  M00S02296.mac1    +++| RTIME    SUBR               ENTRY/EXIT
02429  M00S02297.mac1    +++|          SB1    1
02430  M00S02298.mac1    +++|          BX5    X1
02431  M00S02299.mac1    +++|          RTIME  X1
02432  M00S02300.mac1    +++|          SA1    X5
02433  M00S02301.mac1    +++|          BX6    X1          RETURN RESPONSE AS FUNCTION RESULT
02434  M00S02302.mac1    +++|          EQ     RTIMEX
02435  M00S02303.mac1    +++|
02436  M00S02304.mac1    +++|          END
02437  M00S02305.mac1    +++|          IDENT  SETJCI
02438  M00S02306.mac1    +++|          ENTRY  SETJCI
02439  M00S02307.mac1    +++|          SYSCOM B1
02440  M00S02308.mac1    +++|          TITLE  SETJCI - SET JOB CONTROL INFORMATION.
02441  M00S02309.mac1    +++|*COMMENT   SET JOB CONTROL INFORMATION.

Seq #  *Modification Id* Act 
----------------------------+
02442  M01S02310.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1979.

Seq #  *Modification Id* Act 
----------------------------+
02443  M01S00052.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02444  M00S02311.mac1    +++| SETJCI   SPACE  4,25
02445  M00S02312.mac1    +++|***       SETJCI - SET JOB CONTROL INFORMATION.
02446  M00S02313.mac1    +++|*
02447  M00S02314.mac1    +++|*         CALL SETJCI(ADDR)
02448  M00S02315.mac1    +++|*
02449  M00S02316.mac1    +++|*         ENTRY  (ADDR) = A TWO WORD ARRAY SPECIFYING JOB
02450  M00S02317.mac1    +++|*                         CONTROL INFORMATION.
02451  M00S02318.mac1    +++|*
02452  M00S02319.mac1    +++|*         EXIT   JOB CONTROL INFORMATION SET IN USER,S
02453  M00S02320.mac1    +++|*                CONTROL POINT AREA.
02454  M00S02321.mac1    +++|*
02455  M00S02322.mac1    +++|*         SETJCI(ADDR);   (*SYMPL* CALL)
02456  M00S02323.mac1    +++|*
02457  M00S02324.mac1    +++|*         ENTRY  (ADDR) = A TWO WORD ARRAY SPECIFYING
02458  M00S02325.mac1    +++|*                         JOB CONTROL INFORMATION.
02459  M00S02326.mac1    +++|*                         THE FORMAT OF THE ARRAY IS-
02460  M00S02327.mac1    +++|*T ADDR   6/EFG,18/REG,12/CCL,12/EM,6/SSW,6/0

Figure ADDR

02461  M00S02328.mac1    +++|*T,       6/EF,18/R3,18/R2,18/R1

Figure

02462  M00S02329.mac1    +++|*         EFG = GLOBAL ERROR FLAG.
02463  M00S02330.mac1    +++|*         REG = GLOBAL REGISTER.
02464  M00S02331.mac1    +++|*         CCL = RESERVED FOR CCL USE.
02465  M00S02332.mac1    +++|*         EM  = EXIT MODE (REFER TO *NOS* REFERENCE VOL. 2).
02466  M00S02333.mac1    +++|*         SSW = SENSE SWITCHES.
02467  M00S02334.mac1    +++|*         EF  = LAST ERROR FLAG ENCOUNTERED.
02468  M00S02335.mac1    +++|*         R3  = JOB CONTROL REGISTER 3.
02469  M00S02336.mac1    +++|*         R2  = JOB CONTROL REGISTER 2.
02470  M00S02337.mac1    +++|*         R1  = JOB CONTROL REGISTER 1.
02471  M00S02338.mac1    +++|*
02472  M00S02339.mac1    +++|*         EXIT   JOB CONTROL INFORMATION SET IN USER,S
02473  M00S02340.mac1    +++|*                CONTROL POINT AREA.
02474  M00S02341.mac1    +++|*
02475  M00S02342.mac1    +++|*         USES   B - 1.
02476  M00S02343.mac1    +++|*
02477  M00S02344.mac1    +++|*         MACROS SETJCI.
02478  M00S02345.mac1    +++|
02479  M00S02346.mac1    +++|
02480  M00S02347.mac1    +++| SETJCI   SUBR               ENTRY/EXIT
02481  M00S02348.mac1    +++|          SB1    1
02482  M00S02349.mac1    +++|          SETJCI X1
02483  M00S02350.mac1    +++|          EQ     SETJCIX     RETURN
02484  M00S02351.mac1    +++|
02485  M00S02352.mac1    +++|          END
02486  M00S02353.mac1    +++|          IDENT  SKIPB
02487  M00S02354.mac1    +++|          ENTRY  SKIPB
02488  M00S02355.mac1    +++|          SYSCOM B1
02489  M00S02356.mac1    +++|          TITLE  SKIPB - SKIP RECORDS BACKWARDS.
02490  M00S02357.mac1    +++|*COMMENT   SKIP RECORDS BACKWARDS.

Seq #  *Modification Id* Act 
----------------------------+
02491  M01S02358.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02492  M01S00053.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02493  M00S02359.mac1    +++| SKIPB    SPACE  4,10
02494  M00S02360.mac1    +++|***       SKIPB - SKIP RECORDS BACKWARDS.
02495  M00S02361.mac1    +++|*
02496  M00S02362.mac1    +++|*         CALL SKIPB (FILE,N,R)
02497  M00S02363.mac1    +++|*
02498  M00S02364.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02499  M00S02365.mac1    +++|*                (N) = NUMBER OF RECORDS.
02500  M00S02366.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02501  M00S02367.mac1    +++|*
02502  M00S02368.mac1    +++|*         SKIPB(FILE,N,R);           (*SYMPL* CALL)
02503  M00S02369.mac1    +++|*
02504  M00S02370.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02505  M00S02371.mac1    +++|*                N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
02506  M00S02372.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02507  M00S02373.mac1    +++|*
02508  M00S02374.mac1    +++|*         USES   X - 2, 3.
02509  M00S02375.mac1    +++|*                A - 2, 3.
02510  M00S02376.mac1    +++|*                B - 1.
02511  M00S02377.mac1    +++|*
02512  M00S02378.mac1    +++|*         MACROS SKIPB.
02513  M00S02379.mac1    +++|
02514  M00S02380.mac1    +++| SKIPB    SUBR               ENTRY/EXIT
02515  M00S02381.mac1    +++|          SB1    1
02516  M00S02382.mac1    +++|          SA3    A1+B1       ADDRESS OF N
02517  M00S02383.mac1    +++|          SA2    A3+B1       GET ADDRESS OF RECALL PARAMETER
02518  M00S02384.mac1    +++|          SA3    X3          N
02519  M00S02385.mac1    +++|          SA2    X2
02520  M00S02386.mac1    +++|          NZ     X2,SKI1     IF RECALL REQUESTED
02521  M00S02387.mac1    +++|          SKIPB  X1,X3
02522  M00S02388.mac1    +++|          EQ     SKIPBX
02523  M00S02389.mac1    +++|
02524  M00S02390.mac1    +++| SKI1     SKIPB  X1,X3,R
02525  M00S02391.mac1    +++|          EQ     SKIPBX
02526  M00S02392.mac1    +++|
02527  M00S02393.mac1    +++|          END
02528  M00S02394.mac1    +++|          IDENT  SKIPEI
02529  M00S02395.mac1    +++|          ENTRY  SKIPEI
02530  M00S02396.mac1    +++|          SYSCOM B1
02531  M00S02397.mac1    +++|          TITLE  SKIPEI - SKIP TO END OF INFORMATION.
02532  M00S02398.mac1    +++|*COMMENT   SKIP TO END OF INFORMATION.

Seq #  *Modification Id* Act 
----------------------------+
02533  M01S02399.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02534  M01S00054.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02535  M00S02400.mac1    +++| SKIPEI   SPACE  4,10
02536  M00S02401.mac1    +++|***       SKIPEI - SKIP TO END OF INFORMATION.
02537  M00S02402.mac1    +++|*
02538  M00S02403.mac1    +++|*         CALL SKIPEI (FILE,R)
02539  M00S02404.mac1    +++|*
02540  M00S02405.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02541  M00S02406.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02542  M00S02407.mac1    +++|*
02543  M00S02408.mac1    +++|*         SKIPEI(FILE,R);         (*SYMPL* CALL)
02544  M00S02409.mac1    +++|*
02545  M00S02410.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02546  M00S02411.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02547  M00S02412.mac1    +++|*
02548  M00S02413.mac1    +++|*         USES   X - 2.
02549  M00S02414.mac1    +++|*                A - 2.
02550  M00S02415.mac1    +++|*                B - 1.
02551  M00S02416.mac1    +++|*
02552  M00S02417.mac1    +++|*         MACROS SKIPEI.
02553  M00S02418.mac1    +++|
02554  M00S02419.mac1    +++|
02555  M00S02420.mac1    +++| SKIPEI   SUBR               ENTRY/EXIT
02556  M00S02421.mac1    +++|          SB1    1
02557  M00S02422.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02558  M00S02423.mac1    +++|          SA2    X2
02559  M00S02424.mac1    +++|          NZ     X2,SKI1     IF RECALL REQUESTED
02560  M00S02425.mac1    +++|          SKIPEI X1
02561  M00S02426.mac1    +++|          EQ     SKIPEIX
02562  M00S02427.mac1    +++|
02563  M00S02428.mac1    +++| SKI1     SKIPEI X1,R
02564  M00S02429.mac1    +++|          EQ     SKIPEIX
02565  M00S02430.mac1    +++|
02566  M00S02431.mac1    +++|          END
02567  M00S02432.mac1    +++|          IDENT  SKIPF
02568  M00S02433.mac1    +++|          ENTRY  SKIPF
02569  M00S02434.mac1    +++|          SYSCOM B1
02570  M00S02435.mac1    +++|          TITLE  SKIPF - SKIP RECORDS FORWARD.
02571  M00S02436.mac1    +++|*COMMENT   SKIP RECORDS FORWARD.

Seq #  *Modification Id* Act 
----------------------------+
02572  M01S02437.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02573  M01S00055.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02574  M00S02438.mac1    +++| SKIPF    SPACE  4,10
02575  M00S02439.mac1    +++|***       SKIPF - SKIP RECORDS FORWARD.
02576  M00S02440.mac1    +++|*
02577  M00S02441.mac1    +++|*         CALL SKIPF (FILE,N,R)
02578  M00S02442.mac1    +++|*
02579  M00S02443.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02580  M00S02444.mac1    +++|*                (N) = NUMBER OF RECORDS.
02581  M00S02445.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02582  M00S02446.mac1    +++|*
02583  M00S02447.mac1    +++|*         SKIPF(FILE,N,R);           (*SYMPL* CALL)
02584  M00S02448.mac1    +++|*
02585  M00S02449.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02586  M00S02450.mac1    +++|*                N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
02587  M00S02451.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02588  M00S02452.mac1    +++|*
02589  M00S02453.mac1    +++|*         USES   X - 2, 3.
02590  M00S02454.mac1    +++|*                A - 2, 3.
02591  M00S02455.mac1    +++|*                B - 1.
02592  M00S02456.mac1    +++|*
02593  M00S02457.mac1    +++|*         MACROS SKIPF.
02594  M00S02458.mac1    +++|
02595  M00S02459.mac1    +++|
02596  M00S02460.mac1    +++| SKIPF    SUBR               ENTRY/EXIT
02597  M00S02461.mac1    +++|          SB1    1
02598  M00S02462.mac1    +++|          SA3    A1+B1       ADDRESS OF N
02599  M00S02463.mac1    +++|          SA2    A3+B1       GET RECALL PARAMETER
02600  M00S02464.mac1    +++|          SA2    X2
02601  M00S02465.mac1    +++|          SA3    X3          N
02602  M00S02466.mac1    +++|          NZ     X2,SKI1     IF RECALL REQUESTED
02603  M00S02467.mac1    +++|          SKIPF  X1,X3
02604  M00S02468.mac1    +++|          EQ     SKIPFX
02605  M00S02469.mac1    +++|
02606  M00S02470.mac1    +++| SKI1     SKIPF  X1,X3,R
02607  M00S02471.mac1    +++|          EQ     SKIPFX
02608  M00S02472.mac1    +++|
02609  M00S02473.mac1    +++|          END
02610  M00S02474.mac1    +++|          IDENT  SKIPFB
02611  M00S02475.mac1    +++|          ENTRY  SKIPFB
02612  M00S02476.mac1    +++|          SYSCOM B1
02613  M00S02477.mac1    +++|          TITLE  SKIPFB - SKIP FILES BACKWARD.
02614  M00S02478.mac1    +++|*COMMENT   SKIP FILES BACKWARD.

Seq #  *Modification Id* Act 
----------------------------+
02615  M01S02479.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02616  M01S00056.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02617  M00S02480.mac1    +++| SKIPFB   SPACE  4,10
02618  M00S02481.mac1    +++|***       SKIPFB - SKIP FILES BACKWARD.
02619  M00S02482.mac1    +++|*
02620  M00S02483.mac1    +++|*         CALL SKIPFB (FILE,N,R)
02621  M00S02484.mac1    +++|*
02622  M00S02485.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02623  M00S02486.mac1    +++|*                (N) = NUMBER OF FILES.
02624  M00S02487.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02625  M00S02488.mac1    +++|*
02626  M00S02489.mac1    +++|*         SKIPFB(FILE,N,R);     (*SYMPL* CALL)
02627  M00S02490.mac1    +++|*
02628  M00S02491.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02629  M00S02492.mac1    +++|*                N, AN ITEM CONTAING THE NUMBER OF FILES TO SKIP.
02630  M00S02493.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02631  M00S02494.mac1    +++|*
02632  M00S02495.mac1    +++|*         USES   X - 2, 3.
02633  M00S02496.mac1    +++|*                A - 2, 3.
02634  M00S02497.mac1    +++|*                B - 1.
02635  M00S02498.mac1    +++|*
02636  M00S02499.mac1    +++|*         MACROS SKIPFB.
02637  M00S02500.mac1    +++|
02638  M00S02501.mac1    +++|
02639  M00S02502.mac1    +++|
02640  M00S02503.mac1    +++| SKIPFB   SUBR               ENTRY/EXIT
02641  M00S02504.mac1    +++|          SB1    1
02642  M00S02505.mac1    +++|          SA3    A1+B1       ADDRESS OF N
02643  M00S02506.mac1    +++|          SA2    A3+B1       GET ADDRESS OF RECALL PARAMETER
02644  M00S02507.mac1    +++|          SA3    X3          N
02645  M00S02508.mac1    +++|          SA2    X2
02646  M00S02509.mac1    +++|          NZ     X2,SKI1     IF RECALL REQUESTED
02647  M00S02510.mac1    +++|          SKIPFB X1,X3
02648  M00S02511.mac1    +++|          EQ     SKIPFBX
02649  M00S02512.mac1    +++|
02650  M00S02513.mac1    +++| SKI1     SKIPFB X1,X3,R
02651  M00S02514.mac1    +++|          EQ     SKIPFBX
02652  M00S02515.mac1    +++|
02653  M00S02516.mac1    +++|          END
02654  M00S02517.mac1    +++|          IDENT  SKIPFF
02655  M00S02518.mac1    +++|          ENTRY  SKIPFF
02656  M00S02519.mac1    +++|          SYSCOM B1
02657  M00S02520.mac1    +++|          TITLE  SKIPFF - SKIP FILES FORWARD.
02658  M00S02521.mac1    +++|*COMMENT   SKIP FILES FORWARD.

Seq #  *Modification Id* Act 
----------------------------+
02659  M01S02522.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02660  M01S00057.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02661  M00S02523.mac1    +++| SKIPFF   SPACE  4,10
02662  M00S02524.mac1    +++|***       SKIPFF - SKIP FILES FORWARD.
02663  M00S02525.mac1    +++|*
02664  M00S02526.mac1    +++|*         CALL SKIPFF (FILE,N,R)
02665  M00S02527.mac1    +++|*
02666  M00S02528.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02667  M00S02529.mac1    +++|*                (N) = NUMBER OF FILES
02668  M00S02530.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02669  M00S02531.mac1    +++|*
02670  M00S02532.mac1    +++|*         SKIPFF(FILE,N,R);     (*SYMPL* CALL)
02671  M00S02533.mac1    +++|*
02672  M00S02534.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02673  M00S02535.mac1    +++|*                N, AN ITEM THAT CONTAINS THE NUMBER OF FILES TO SKIP.
02674  M00S02536.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02675  M00S02537.mac1    +++|*
02676  M00S02538.mac1    +++|*         USES   X - 2, 3.
02677  M00S02539.mac1    +++|*                A - 2, 3.
02678  M00S02540.mac1    +++|*                B - 1.
02679  M00S02541.mac1    +++|*
02680  M00S02542.mac1    +++|*         MACROS SKIPFF.
02681  M00S02543.mac1    +++|
02682  M00S02544.mac1    +++|
02683  M00S02545.mac1    +++| SKIPFF   SUBR               ENTRY/EXIT
02684  M00S02546.mac1    +++|          SB1    1
02685  M00S02547.mac1    +++|          SA3    A1+B1       ADDRESS OF N
02686  M00S02548.mac1    +++|          SA2    A3+B1       ADDRESS OF RECALL PARAMETER
02687  M00S02549.mac1    +++|          SA3    X3          N
02688  M00S02550.mac1    +++|          SA2    X2
02689  M00S02551.mac1    +++|          NZ     X2,SKI1     IF RECALL REQUESTED
02690  M00S02552.mac1    +++|          SKIPFF X1,X3
02691  M00S02553.mac1    +++|          EQ     SKIPFFX
02692  M00S02554.mac1    +++|
02693  M00S02555.mac1    +++| SKI1     SKIPFF X1,X3,R
02694  M00S02556.mac1    +++|          EQ     SKIPFFX
02695  M00S02557.mac1    +++|
02696  M00S02558.mac1    +++|          END
02697  M00S02559.mac1    +++|          IDENT  SYSTEM
02698  M00S02560.mac1    +++|          ENTRY  SYSTEM
02699  M00S02561.mac1    +++|          SYSCOM B1
02700  M00S02562.mac1    +++|          TITLE  SYSTEM - REQUEST SYSTEM FUNCTION.
02701  M00S02563.mac1    +++|*COMMENT   REQUEST SYSTEM FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
02702  M01S02564.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02703  M01S00058.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02704  M00S02565.mac1    +++| SYSTEM   SPACE  4,10
02705  M00S02566.mac1    +++|***       SYSTEM - REQUEST SYSTEM FUNCTION.
02706  M00S02567.mac1    +++|*
02707  M00S02568.mac1    +++|*         CALL SYSTEM(ARGUMENT,R)
02708  M00S02569.mac1    +++|*
02709  M00S02570.mac1    +++|*         ENTRY  (ARGUMENT) = 3 CHARACTER SYSTEM REQUEST NAME,
02710  M00S02571.mac1    +++|*                             INCLUDING OPTIONAL PARAMETERS.
02711  M00S02572.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02712  M00S02573.mac1    +++|*
02713  M00S02574.mac1    +++|*         SYSTEM(ARGUMENTS,R);  (*SYMPL* CALL)
02714  M00S02575.mac1    +++|*
02715  M00S02576.mac1    +++|*         ENTRY  ARGUMENTS, AN ITEM CONTAINING THE REQUEST ARGUMENT.
02716  M00S02577.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02717  M00S02578.mac1    +++|*
02718  M00S02579.mac1    +++|*         EXIT   DEPENDS ON CALL, SEE *NOS REFERENCE MANUAL*.
02719  M00S02580.mac1    +++|*
02720  M00S02581.mac1    +++|*         USES   X - 1, 2, 6.
02721  M00S02582.mac1    +++|*                A - 1, 2.
02722  M00S02583.mac1    +++|*                B - 1.
02723  M00S02584.mac1    +++|*
02724  M00S02585.mac1    +++|*         MACROS SYSTEM.
02725  M00S02586.mac1    +++|
02726  M00S02587.mac1    +++|
02727  M00S02588.mac1    +++| SYSTEM   SUBR               ENTRY/EXIT
02728  M00S02589.mac1    +++|          SB1    1
02729  M00S02590.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02730  M00S02591.mac1    +++|          SA1    X1
02731  M00S02592.mac1    +++|          BX6    X1          SYSTEM REQUEST
02732  M00S02593.mac1    +++|          SA2    X2
02733  M00S02594.mac1    +++|          ZR     X2,SYS1     IF RECALL NOT REQUESTED
02734  M00S02595.mac1    +++|          MX2    1
02735  M00S02596.mac1    +++|          LX2    41
02736  M00S02597.mac1    +++|          BX6    X6+X2
02737  M00S02598.mac1    +++| SYS1     BSS    0
02738  M00S02599.mac1    +++|          SYSTEM
02739  M00S02600.mac1    +++|          EQ     SYSTEMX
02740  M00S02601.mac1    +++|
02741  M00S02602.mac1    +++|          END
02742  M00S02603.mac1    +++|          IDENT  TIME
02743  M00S02604.mac1    +++|          ENTRY  TIME
02744  M00S02605.mac1    +++|          SYSCOM B1
02745  M00S02606.mac1    +++|          TITLE  TIME - OBTAIN ACCUMULATED CPU TIME.
02746  M00S02607.mac1    +++|*COMMENT   OBTAIN ACCUMULATED CPU TIME.

Seq #  *Modification Id* Act 
----------------------------+
02747  M01S02608.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02748  M01S00059.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02749  M00S02609.mac1    +++| TIME     SPACE  4,10
02750  M00S02610.mac1    +++|***       TIME - OBTAIN ACCUMULATED CPU TIME.
02751  M00S02611.mac1    +++|*
02752  M00S02612.mac1    +++|*         CALL TIME (STATUS)
02753  M00S02613.mac1    +++|*
02754  M00S02614.mac1    +++|*         EXIT   (STATUS) = RESPONSE
02755  M00S02615.mac1    +++|*         RESPONSE =
02756  M00S02616.mac1    +++|*T        12/ 2000B,12/0,24/ SECONDS,12/ MILLISECONDS

Figure

02757  M00S02617.mac1    +++|*
02758  M00S02618.mac1    +++|*         TIME(STATUS);         (*SYMPL* CALL)
02759  M00S02619.mac1    +++|*
02760  M00S02620.mac1    +++|*         EXIT   (STATUS) =  TIME STATUS WORD.
02761  M00S02621.mac1    +++|*
02762  M00S02622.mac1    +++|*         USES   X - 1, 5, 6.
02763  M00S02623.mac1    +++|*                A - 1.
02764  M00S02624.mac1    +++|*                B - 1.
02765  M00S02625.mac1    +++|*
02766  M00S02626.mac1    +++|*         MACROS TIME.
02767  M00S02627.mac1    +++|
02768  M00S02628.mac1    +++|
02769  M00S02629.mac1    +++| TIME     SUBR               ENTRY/EXIT
02770  M00S02630.mac1    +++|          SB1    1
02771  M00S02631.mac1    +++|          BX5    X1
02772  M00S02632.mac1    +++|          TIME   X1
02773  M00S02633.mac1    +++|          SA1    X5
02774  M00S02634.mac1    +++|          BX6    X1          RETURN RESPONSE AS FUNCTION RESULT
02775  M00S02635.mac1    +++|          EQ     TIMEX
02776  M00S02636.mac1    +++|
02777  M00S02637.mac1    +++|          END
02778  M00S02638.mac1    +++|          IDENT  UNLOAD
02779  M00S02639.mac1    +++|          ENTRY  UNLOAD

Seq #  *Modification Id* Act 
----------------------------+
02780  M01S00005.ns2676  +++|          TITLE  UNLOAD - UNLOAD FILE.
02781  M00S02640.mac1    +++|*COMMENT   UNLOAD FILE.

Seq #  *Modification Id* Act 
----------------------------+
02782  M01S02641.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02783  M01S00060.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02784  M00S02642.mac1    +++| UNLOAD   SPACE  4,10
02785  M00S02643.mac1    +++|***       UNLOAD - UNLOAD FILE.
02786  M00S02644.mac1    +++|*
02787  M00S02645.mac1    +++|*         CALL UNLOAD (FILE,R)
02788  M00S02646.mac1    +++|*
02789  M00S02647.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02790  M00S02648.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02791  M00S02649.mac1    +++|*
02792  M00S02650.mac1    +++|*         UNLOAD(FILE,R);         (*SYMPL* CALL)
02793  M00S02651.mac1    +++|*
02794  M00S02652.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02795  M00S02653.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02796  M00S02654.mac1    +++|*
02797  M00S02655.mac1    +++|*         USES   X - 2.
02798  M00S02656.mac1    +++|*                A - 2.
02799  M00S02657.mac1    +++|*                B - 1.
02800  M00S02658.mac1    +++|*
02801  M00S02659.mac1    +++|*         MACROS UNLOAD.
02802  M00S02660.mac1    +++|
02803  M00S02661.mac1    +++|
02804  M00S02662.mac1    +++| UNLOAD   SUBR               ENTRY/EXIT
02805  M00S02663.mac1    +++|          SB1    1
02806  M00S02664.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02807  M00S02665.mac1    +++|          SA2    X2
02808  M00S02666.mac1    +++|          NZ     X2,UNL1     IF RECALL REQUESTED
02809  M00S02667.mac1    +++|          UNLOAD X1
02810  M00S02668.mac1    +++|          EQ     UNLOADX
02811  M00S02669.mac1    +++|
02812  M00S02670.mac1    +++| UNL1     UNLOAD X1,R
02813  M00S02671.mac1    +++|          EQ     UNLOADX
02814  M00S02672.mac1    +++|
02815  M00S02673.mac1    +++|          END
02816  M00S02674.mac1    +++|          IDENT  VERSION
02817  M00S02675.mac1    +++|          ENTRY  VERSION
02818  M00S02676.mac1    +++|          SYSCOM B1
02819  M00S02677.mac1    +++|          TITLE  VERSION - RETURN THE OPERATING SYSTEM VERSION NAME.
02820  M00S02678.mac1    +++|*COMMENT   RETURN VERSION NAME.

Seq #  *Modification Id* Act 
----------------------------+
02821  M01S02679.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02822  M01S00061.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02823  M00S02680.mac1    +++| VERSION  SPACE  4,10
02824  M00S02681.mac1    +++|***       VERSION - RETURN THE VERSION NAME OF THE OPERATING SYSTEM.
02825  M00S02682.mac1    +++|*
02826  M00S02683.mac1    +++|*         CALL VERSION (ADDR)
02827  M00S02684.mac1    +++|*
02828  M00S02685.mac1    +++|*         VERSION(ADDR);   (*SYMPL* CALL)
02829  M00S02686.mac1    +++|*
02830  M00S02687.mac1    +++|*         ENTRY  (ADDR) = ADDRESS TO RECEIVE VERSION NAME.
02831  M00S02688.mac1    +++|*
02832  M00S02689.mac1    +++|*         EXIT   (ADDR) = VERSION NAME.
02833  M00S02690.mac1    +++|*
02834  M00S02691.mac1    +++|*         USES   X - 2, 3, 6.
02835  M00S02692.mac1    +++|*                A - 2, 6.
02836  M00S02693.mac1    +++|*
02837  M00S02694.mac1    +++|*         MACROS VERSION.
02838  M00S02695.mac1    +++|
02839  M00S02696.mac1    +++|
02840  M00S02697.mac1    +++| VERSION  BSS    0
02841  M00S02698.mac1    +++| VERSIN   SUBR               ENTRY/EXIT
02842  M00S02699.mac1    +++|          MX3    42
02843  M00S02700.mac1    +++|          SA2    ADDR
02844  M00S02701.mac1    +++|          BX2    X3*X2
02845  M00S02702.mac1    +++|          BX6    X1+X2
02846  M00S02703.mac1    +++|          SA6    A2
02847  M00S02704.mac1    +++|          VERSION  A2
02848  M00S02705.mac1    +++|          EQ     VERSINX     EXIT
02849  M00S02706.mac1    +++|
02850  M00S02707.mac1    +++| ADDR     VFD    12/10,12/0,12/0,6/0,18/0
02851  M00S02708.mac1    +++|
02852  M00S02709.mac1    +++|          END
02853  M00S02710.mac1    +++|          IDENT  WPHR
02854  M00S02711.mac1    +++|          ENTRY  WPHR
02855  M00S02712.mac1    +++|          SYSCOM B1
02856  M00S02713.mac1    +++|          TITLE  WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
02857  M00S02714.mac1    +++|*COMMENT   WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02858  M01S02715.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02859  M01S00062.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02860  M00S02716.mac1    +++| WPHR     SPACE  4,10
02861  M00S02717.mac1    +++|***       WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
02862  M00S02718.mac1    +++|*
02863  M00S02719.mac1    +++|*         CALL WPHR (FILE,R)
02864  M00S02720.mac1    +++|*
02865  M00S02721.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02866  M00S02722.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02867  M00S02723.mac1    +++|*
02868  M00S02724.mac1    +++|*         WPHR(FILE,R);             (*SYMPL* CALL)
02869  M00S02725.mac1    +++|*
02870  M00S02726.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02871  M00S02727.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02872  M00S02728.mac1    +++|*
02873  M00S02729.mac1    +++|*         USES   X - 2.
02874  M00S02730.mac1    +++|*                A - 2.
02875  M00S02731.mac1    +++|*                B - 1.
02876  M00S02732.mac1    +++|*
02877  M00S02733.mac1    +++|*         MACROS WPHR.
02878  M00S02734.mac1    +++|
02879  M00S02735.mac1    +++|
02880  M00S02736.mac1    +++| WPHR     SUBR               ENTRY/EXIT
02881  M00S02737.mac1    +++|          SB1    1
02882  M00S02738.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02883  M00S02739.mac1    +++|          SA2    X2
02884  M00S02740.mac1    +++|          NZ     X2,WPH1     IF RECALL REQUESTED
02885  M00S02741.mac1    +++|          WPHR   X1
02886  M00S02742.mac1    +++|          EQ     WPHRX
02887  M00S02743.mac1    +++|
02888  M00S02744.mac1    +++| WPH1     WPHR   X1,R
02889  M00S02745.mac1    +++|          EQ     WPHRX
02890  M00S02746.mac1    +++|
02891  M00S02747.mac1    +++|          END
02892  M00S02748.mac1    +++|          IDENT  WRITE
02893  M00S02749.mac1    +++|          ENTRY  WRITE
02894  M00S02750.mac1    +++|          SYSCOM B1
02895  M00S02751.mac1    +++|          TITLE  WRITE - WRITE DATA FROM *CIO* BUFFER.
02896  M00S02752.mac1    +++|*COMMENT   WRITE DATA FROM *CIO* BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02897  M01S02753.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02898  M01S00063.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02899  M00S02754.mac1    +++| WRITE    SPACE  4,10
02900  M00S02755.mac1    +++|***       WRITE - WRITE DATA FROM *CIO* BUFFER.
02901  M00S02756.mac1    +++|*
02902  M00S02757.mac1    +++|*         CALL WRITE (FILE,R)
02903  M00S02758.mac1    +++|*
02904  M00S02759.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02905  M00S02760.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02906  M00S02761.mac1    +++|*
02907  M00S02762.mac1    +++|*         WRITE(FILE,R);           (*SYMPL* CALL)
02908  M00S02763.mac1    +++|*
02909  M00S02764.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02910  M00S02765.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02911  M00S02766.mac1    +++|*
02912  M00S02767.mac1    +++|*         USES   X - 2.
02913  M00S02768.mac1    +++|*                A - 2.
02914  M00S02769.mac1    +++|*                B - 1.
02915  M00S02770.mac1    +++|*
02916  M00S02771.mac1    +++|*         MACROS WRITE.
02917  M00S02772.mac1    +++|
02918  M00S02773.mac1    +++|
02919  M00S02774.mac1    +++| WRITE    SUBR               ENTRY/EXIT
02920  M00S02775.mac1    +++|          SB1    1
02921  M00S02776.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02922  M00S02777.mac1    +++|          SA2    X2
02923  M00S02778.mac1    +++|          NZ     X2,WRT1     IF RECALL PARAMETER REQUESTED
02924  M00S02779.mac1    +++|          WRITE  X1
02925  M00S02780.mac1    +++|          EQ     WRITEX
02926  M00S02781.mac1    +++|
02927  M00S02782.mac1    +++| WRT1     WRITE  X1,R
02928  M00S02783.mac1    +++|          EQ     WRITEX
02929  M00S02784.mac1    +++|
02930  M00S02785.mac1    +++|          END
02931  M00S02786.mac1    +++|          IDENT  WRITEC
02932  M00S02787.mac1    +++|          ENTRY  WRITEC
02933  M00S02788.mac1    +++|          SYSCOM B1
02934  M00S02789.mac1    +++|          TITLE  WRITEC - WRITE CODED LINE IN *C* FORMAT.
02935  M00S02790.mac1    +++|*COMMENT   WRITE CODED LINE IN *C* FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
02936  M01S02791.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02937  M01S00064.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02938  M00S02792.mac1    +++| WRITEC   SPACE  4,10
02939  M00S02793.mac1    +++|***       WRITEC - WRITE CODED LINE IN *C* FORMAT.
02940  M00S02794.mac1    +++|*
02941  M00S02795.mac1    +++|*         CALL WRITEC (FILE,BUF)
02942  M00S02796.mac1    +++|*
02943  M00S02797.mac1    +++|*         TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
02944  M00S02798.mac1    +++|*
02945  M00S02799.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02946  M00S02800.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
02947  M00S02801.mac1    +++|*
02948  M00S02802.mac1    +++|*         WRITEC(FILE,BUF);     (*SYMPL* CALL)
02949  M00S02803.mac1    +++|*
02950  M00S02804.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02951  M00S02805.mac1    +++|*                BUF, AN ARRAY TO BE USED AS READ BUFFER.
02952  M00S02806.mac1    +++|*
02953  M00S02807.mac1    +++|*         USES   X - 3.
02954  M00S02808.mac1    +++|*                A - 3.
02955  M00S02809.mac1    +++|*                B - 1.
02956  M00S02810.mac1    +++|*
02957  M00S02811.mac1    +++|*         MACROS WRITEC.
02958  M00S02812.mac1    +++|
02959  M00S02813.mac1    +++|
02960  M00S02814.mac1    +++| WRITEC   SUBR               ENTRY/EXIT
02961  M00S02815.mac1    +++|          SB1    1
02962  M00S02816.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
02963  M00S02817.mac1    +++|          WRITEC X1,X3
02964  M00S02818.mac1    +++|          EQ     WRITECX
02965  M00S02819.mac1    +++|
02966  M00S02820.mac1    +++|          END
02967  M00S02821.mac1    +++|          IDENT  WRITECW
02968  M00S02822.mac1    +++|          ENTRY  WRITECW
02969  M00S02823.mac1    +++|          SYSCOM B1
02970  M00S02824.mac1    +++|          TITLE  WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
02971  M00S02825.mac1    +++|*COMMENT   WRITE FILE NON-STOP WITH CONTROL WORDS.

Seq #  *Modification Id* Act 
----------------------------+
02972  M01S02826.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
02973  M01S00065.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
02974  M00S02827.mac1    +++| WRITECW  SPACE  4,10
02975  M00S02828.mac1    +++|***       WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
02976  M00S02829.mac1    +++|*
02977  M00S02830.mac1    +++|*         CALL WRITECW (FILE,R)
02978  M00S02831.mac1    +++|*
02979  M00S02832.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
02980  M00S02833.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02981  M00S02834.mac1    +++|*
02982  M00S02835.mac1    +++|*         WRITECW(FILE,R);       (*SYMPL* CALL)
02983  M00S02836.mac1    +++|*
02984  M00S02837.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
02985  M00S02838.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
02986  M00S02839.mac1    +++|*
02987  M00S02840.mac1    +++|*         USES   X - 2.
02988  M00S02841.mac1    +++|*                A - 2.
02989  M00S02842.mac1    +++|*                B - 1.
02990  M00S02843.mac1    +++|*
02991  M00S02844.mac1    +++|*
02992  M00S02845.mac1    +++|*         MACROS WRITECW.
02993  M00S02846.mac1    +++|
02994  M00S02847.mac1    +++|
02995  M00S02848.mac1    +++| WRITECW  SUBR               ENTRY/EXIT
02996  M00S02849.mac1    +++|          SB1    1
02997  M00S02850.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
02998  M00S02851.mac1    +++|          SA2    X2
02999  M00S02852.mac1    +++|          NZ     X2,WCW1     IF RECALL
03000  M00S02853.mac1    +++|          WRITECW  X1
03001  M00S02854.mac1    +++|          EQ     WRITECWX
03002  M00S02855.mac1    +++|
03003  M00S02856.mac1    +++| WCW1     WRITECW  X1,R
03004  M00S02857.mac1    +++|          EQ     WRITECWX    EXIT
03005  M00S02858.mac1    +++|
03006  M00S02859.mac1    +++|          END
03007  M00S02860.mac1    +++|          IDENT  WRITEF
03008  M00S02861.mac1    +++|          ENTRY  WRITEF
03009  M00S02862.mac1    +++|          SYSCOM B1
03010  M00S02863.mac1    +++|          TITLE  WRITEF - WRITE END OF FILE.
03011  M00S02864.mac1    +++|*COMMENT   WRITE END OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
03012  M01S02865.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03013  M01S00066.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03014  M00S02866.mac1    +++| WRITEF   SPACE  4,10
03015  M00S02867.mac1    +++|***       WRITEF - WRITE END OF FILE.
03016  M00S02868.mac1    +++|*
03017  M00S02869.mac1    +++|*         CALL WRITEF (FILE,R)
03018  M00S02870.mac1    +++|*
03019  M00S02871.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03020  M00S02872.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03021  M00S02873.mac1    +++|*
03022  M00S02874.mac1    +++|*         WRITEF(FILE,R);         (*SYMPL* CALL)
03023  M00S02875.mac1    +++|*
03024  M00S02876.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
03025  M00S02877.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03026  M00S02878.mac1    +++|*
03027  M00S02879.mac1    +++|*         USES   X - 2.
03028  M00S02880.mac1    +++|*                A - 2.
03029  M00S02881.mac1    +++|*                B - 1.
03030  M00S02882.mac1    +++|*
03031  M00S02883.mac1    +++|*         MACROS WRITEF.
03032  M00S02884.mac1    +++|
03033  M00S02885.mac1    +++|
03034  M00S02886.mac1    +++| WRITEF   SUBR               ENTRY/EXIT
03035  M00S02887.mac1    +++|          SB1    1
03036  M00S02888.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
03037  M00S02889.mac1    +++|          SA2    X2
03038  M00S02890.mac1    +++|          NZ     X2,WRT1     IF RECALL REQUESTED
03039  M00S02891.mac1    +++|          WRITEF X1
03040  M00S02892.mac1    +++|          EQ     WRITEFX
03041  M00S02893.mac1    +++|
03042  M00S02894.mac1    +++| WRT1     WRITEF X1,R
03043  M00S02895.mac1    +++|          EQ     WRITEFX
03044  M00S02896.mac1    +++|
03045  M00S02897.mac1    +++|          END
03046  M00S02898.mac1    +++|          IDENT  WRITEH
03047  M00S02899.mac1    +++|          ENTRY  WRITEH
03048  M00S02900.mac1    +++|          SYSCOM B1
03049  M00S02901.mac1    +++|          TITLE  WRITEH - WRITE CODED LINE IN *H* FORMAT.
03050  M00S02902.mac1    +++|*COMMENT   WRITE CODED LINE IN *H* FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
03051  M01S02903.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03052  M01S00067.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03053  M00S02904.mac1    +++| WRITEH   SPACE  4,10
03054  M00S02905.mac1    +++|***       WRITEH - WRITE CODED LINE IN *H* FORMAT.
03055  M00S02906.mac1    +++|*
03056  M00S02907.mac1    +++|*         CALL WRITEH (FILE,BUF,N)
03057  M00S02908.mac1    +++|*
03058  M00S02909.mac1    +++|*         TRANSFERS ONE LINE OF DATA. DELETES TRAILING SPACES.
03059  M00S02910.mac1    +++|*
03060  M00S02911.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03061  M00S02912.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
03062  M00S02913.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
03063  M00S02914.mac1    +++|*
03064  M00S02915.mac1    +++|*         WRITEH(FILE,BUF,N);   (*SYMPL* CALL)
03065  M00S02916.mac1    +++|*
03066  M00S02917.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
03067  M00S02918.mac1    +++|*                BUF, AN ARRAY TO BE USED AS READ BUFFER.
03068  M00S02919.mac1    +++|*                N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
03069  M00S02920.mac1    +++|*                   IN *BUF*.
03070  M00S02921.mac1    +++|*
03071  M00S02922.mac1    +++|*         USES   X - 3, 4.
03072  M00S02923.mac1    +++|*                A - 3, 4.
03073  M00S02924.mac1    +++|*                B - 1.
03074  M00S02925.mac1    +++|*
03075  M00S02926.mac1    +++|*         MACROS WRITEH.
03076  M00S02927.mac1    +++|
03077  M00S02928.mac1    +++|
03078  M00S02929.mac1    +++| WRITEH   SUBR               ENTRY/EXIT
03079  M00S02930.mac1    +++|          SB1    1
03080  M00S02931.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
03081  M00S02932.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
03082  M00S02933.mac1    +++|          SA4    X4          WORD COUNT
03083  M00S02934.mac1    +++|          WRITEH X1,X3,X4
03084  M00S02935.mac1    +++|          EQ     WRITEHX
03085  M00S02936.mac1    +++|
03086  M00S02937.mac1    +++|          END
03087  M00S02938.mac1    +++|          IDENT  WRITEN
03088  M00S02939.mac1    +++|          ENTRY  WRITEN
03089  M00S02940.mac1    +++|          SYSCOM B1
03090  M00S02941.mac1    +++|          TITLE  WRITEN - WRITE FILE NON-STOP FOR TAPES.
03091  M00S02942.mac1    +++|*COMMENT   WRITE FILE NON-STOP FOR TAPES.

Seq #  *Modification Id* Act 
----------------------------+
03092  M01S02943.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03093  M01S00068.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03094  M00S02944.mac1    +++| WRITEN   SPACE  4,10
03095  M00S02945.mac1    +++|***       WRITEN - WRITE FILE NON-STOP FOR TAPES.
03096  M00S02946.mac1    +++|*         MAGNETIC TAPES IN S OR L FORMAT ONLY.
03097  M00S02947.mac1    +++|*
03098  M00S02948.mac1    +++|*         CALL WRITEN (FILE,R)
03099  M00S02949.mac1    +++|*
03100  M00S02950.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03101  M00S02951.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03102  M00S02952.mac1    +++|*
03103  M00S02953.mac1    +++|*         WRITEN(FILE,R);         (*SYMPL* CALL)
03104  M00S02954.mac1    +++|*
03105  M00S02955.mac1    +++|*         ENTRY  FILE, AN ENTRY THAT CONTAINS THE FET.
03106  M00S02956.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03107  M00S02957.mac1    +++|*
03108  M00S02958.mac1    +++|*         USES   X - 2.
03109  M00S02959.mac1    +++|*                A - 2.
03110  M00S02960.mac1    +++|*                B - 1.
03111  M00S02961.mac1    +++|*
03112  M00S02962.mac1    +++|*         MACROS WRITEN.
03113  M00S02963.mac1    +++|
03114  M00S02964.mac1    +++|
03115  M00S02965.mac1    +++| WRITEN   SUBR               ENTRY/EXIT
03116  M00S02966.mac1    +++|          SB1    1
03117  M00S02967.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
03118  M00S02968.mac1    +++|          SA2    X2
03119  M00S02969.mac1    +++|          NZ     X2,WRT1     IF RECALL REQUESTED
03120  M00S02970.mac1    +++|          WRITEN X1
03121  M00S02971.mac1    +++|          EQ     WRITENX
03122  M00S02972.mac1    +++|
03123  M00S02973.mac1    +++| WRT1     WRITEN X1,R
03124  M00S02974.mac1    +++|          EQ     WRITENX
03125  M00S02975.mac1    +++|
03126  M00S02976.mac1    +++|          END
03127  M00S02977.mac1    +++|          IDENT  WRITEO
03128  M00S02978.mac1    +++|          ENTRY  WRITEO
03129  M00S02979.mac1    +++|          SYSCOM B1
03130  M00S02980.mac1    +++|          TITLE  WRITEO - WRITE ONE WORD.
03131  M00S02981.mac1    +++|*COMMENT   WRITE ONE WORD.

Seq #  *Modification Id* Act 
----------------------------+
03132  M01S02982.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03133  M01S00069.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03134  M00S02983.mac1    +++| WRITEO   SPACE  4,10
03135  M00S02984.mac1    +++|***       WRITEO - WRITE ONE WORD.
03136  M00S02985.mac1    +++|*
03137  M00S02986.mac1    +++|*         CALL WRITEO (FILE,WORD)
03138  M00S02987.mac1    +++|*
03139  M00S02988.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03140  M00S02989.mac1    +++|*                (WORD) = WORD TO BE TRANSFERRED.
03141  M00S02990.mac1    +++|*
03142  M00S02991.mac1    +++|*         WRITEO(FILE,WORD);    (*SYMPL* CALL)
03143  M00S02992.mac1    +++|*
03144  M00S02993.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
03145  M00S02994.mac1    +++|*                WORD, ITEM TO BE TRANSFERRED.
03146  M00S02995.mac1    +++|*
03147  M00S02996.mac1    +++|*         USES   X - 3, 6.
03148  M00S02997.mac1    +++|*                A - 3.
03149  M00S02998.mac1    +++|*                B - 1.
03150  M00S02999.mac1    +++|*
03151  M00S03000.mac1    +++|*         MACROS WRITEO.
03152  M00S03001.mac1    +++|
03153  M00S03002.mac1    +++|
03154  M00S03003.mac1    +++| WRITEO   SUBR               ENTRY/EXIT
03155  M00S03004.mac1    +++|          SB1    1
03156  M00S03005.mac1    +++|          SA3    A1+B1       ADDRESS OF WORD
03157  M00S03006.mac1    +++|          SA3    X3          WORD
03158  M00S03007.mac1    +++|          BX6    X3
03159  M00S03008.mac1    +++|          WRITEO X1
03160  M00S03009.mac1    +++|          EQ     WRITEOX
03161  M00S03010.mac1    +++|
03162  M00S03011.mac1    +++|          END
03163  M00S03012.mac1    +++|          IDENT  WRITER
03164  M00S03013.mac1    +++|          ENTRY  WRITER
03165  M00S03014.mac1    +++|          SYSCOM B1
03166  M00S03015.mac1    +++|          TITLE  WRITER - WRITE END OF RECORD.
03167  M00S03016.mac1    +++|*COMMENT   WRITE END OF RECORD.

Seq #  *Modification Id* Act 
----------------------------+
03168  M01S03017.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03169  M01S00070.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03170  M00S03018.mac1    +++| WRITER   SPACE  4,10
03171  M00S03019.mac1    +++|***       WRITER - WRITE END OF RECORD.
03172  M00S03020.mac1    +++|*
03173  M00S03021.mac1    +++|*         CALL WRITER (FILE,R)
03174  M00S03022.mac1    +++|*
03175  M00S03023.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03176  M00S03024.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03177  M00S03025.mac1    +++|*
03178  M00S03026.mac1    +++|*         WRITER(FILE,R);      (*SYMPL* CALL)
03179  M00S03027.mac1    +++|*
03180  M00S03028.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
03181  M00S03029.mac1    +++|*                (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
03182  M00S03030.mac1    +++|*
03183  M00S03031.mac1    +++|*         USES   X - 2.
03184  M00S03032.mac1    +++|*                A - 2.
03185  M00S03033.mac1    +++|*                B - 1.
03186  M00S03034.mac1    +++|*
03187  M00S03035.mac1    +++|*         MACROS WRITER.
03188  M00S03036.mac1    +++|
03189  M00S03037.mac1    +++|
03190  M00S03038.mac1    +++| WRITER   SUBR               ENTRY/EXIT
03191  M00S03039.mac1    +++|          SB1    1
03192  M00S03040.mac1    +++|          SA2    A1+B1       GET RECALL PARAMETER
03193  M00S03041.mac1    +++|          SA2    X2
03194  M00S03042.mac1    +++|          NZ     X2,WRT1     IF RECALL REQUESTED
03195  M00S03043.mac1    +++|          WRITER X1
03196  M00S03044.mac1    +++|          EQ     WRITERX
03197  M00S03045.mac1    +++|
03198  M00S03046.mac1    +++| WRT1     WRITER X1,R
03199  M00S03047.mac1    +++|          EQ     WRITERX
03200  M00S03048.mac1    +++|
03201  M00S03049.mac1    +++|          END
03202  M00S03050.mac1    +++|          IDENT  WRITES
03203  M00S03051.mac1    +++|          ENTRY  WRITES
03204  M00S03052.mac1    +++|          SYSCOM B1
03205  M00S03053.mac1    +++|          TITLE  WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
03206  M00S03054.mac1    +++|*COMMENT   WRITE CODED LINE FROM CHARACTER BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03207  M01S03055.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03208  M01S00071.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03209  M00S03056.mac1    +++| WRITES   SPACE  4,10
03210  M00S03057.mac1    +++|***       WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
03211  M00S03058.mac1    +++|*
03212  M00S03059.mac1    +++|*         CALL WRITES (FILE,BUF,N)
03213  M00S03060.mac1    +++|*
03214  M00S03061.mac1    +++|*         PACKS CHARACTERS FROM THE WORKING BUFFER TEN CHARACTERS/WORD.
03215  M00S03062.mac1    +++|*         DELETES TRAILING SPACE CODES BEFORE PACKING CHARACTERS.
03216  M00S03063.mac1    +++|*
03217  M00S03064.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03218  M00S03065.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
03219  M00S03066.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
03220  M00S03067.mac1    +++|*
03221  M00S03068.mac1    +++|*         WRITES(FILE,BUF,N);   (*SYMPL* CALL)
03222  M00S03069.mac1    +++|*
03223  M00S03070.mac1    +++|*         ENTRY   FILE, AN ARRAY THAT CONTAINS THE FET.
03224  M00S03071.mac1    +++|*                 BUF, AN ARRAY TO BE USED AS READ BUFFER.
03225  M00S03072.mac1    +++|*                 N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
03226  M00S03073.mac1    +++|*
03227  M00S03074.mac1    +++|*         USES   X - 3, 4.
03228  M00S03075.mac1    +++|*                A - 3, 4.
03229  M00S03076.mac1    +++|*                B - 1.
03230  M00S03077.mac1    +++|*
03231  M00S03078.mac1    +++|*         MACROS WRITES.
03232  M00S03079.mac1    +++|
03233  M00S03080.mac1    +++|
03234  M00S03081.mac1    +++| WRITES   SUBR               ENTRY/EXIT
03235  M00S03082.mac1    +++|          SB1    1
03236  M00S03083.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
03237  M00S03084.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
03238  M00S03085.mac1    +++|          SA4    X4          WORD COUNT
03239  M00S03086.mac1    +++|          WRITES X1,X3,X4
03240  M00S03087.mac1    +++|          EQ     WRITESX
03241  M00S03088.mac1    +++|
03242  M00S03089.mac1    +++|          END
03243  M00S03090.mac1    +++|          IDENT  WRITEW
03244  M00S03091.mac1    +++|          ENTRY  WRITEW
03245  M00S03092.mac1    +++|          SYSCOM B1
03246  M00S03093.mac1    +++|          TITLE  WRITEW - WRITE DATA FROM WORKING BUFFER.
03247  M00S03094.mac1    +++|*COMMENT   WRITE DATA FROM WORKING BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03248  M01S03095.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03249  M01S00072.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03250  M00S03096.mac1    +++| WRITEW   SPACE  4,10
03251  M00S03097.mac1    +++|***       WRITEW - WRITE DATA FROM WORKING BUFFER.
03252  M00S03098.mac1    +++|*
03253  M00S03099.mac1    +++|*         CALL WRITEW (FILE,BUF,N,STATUS)
03254  M00S03100.mac1    +++|*
03255  M00S03101.mac1    +++|*         ENTRY  (FILE) = FIRST WORD OF THE FET.
03256  M00S03102.mac1    +++|*                (BUF) = FIRST WORD OF THE WORKING BUFFER.
03257  M00S03103.mac1    +++|*                (N) = WORD COUNT OF THE WORKING BUFFER.
03258  M00S03104.mac1    +++|*                (STATUS) = RETURN STATUS, NE. 0 INDICATES AN ERROR.
03259  M00S03105.mac1    +++|*
03260  M00S03106.mac1    +++|*         WRITEW(FILE,BUF,N,STATUS);   (*SYMPL* CALL)
03261  M00S03107.mac1    +++|*
03262  M00S03108.mac1    +++|*         ENTRY  FILE, AN ARRAY THAT CONTAINS THE FET.
03263  M00S03109.mac1    +++|*                BUF, AN ARRAY TO BE USED AS READ BUFFER.
03264  M00S03110.mac1    +++|*                N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
03265  M00S03111.mac1    +++|*                STATUS, .NE. 0 INDICATES AN ERROR.
03266  M00S03112.mac1    +++|*
03267  M00S03113.mac1    +++|*         USES   X - 3, 4, 5, 6, 7.
03268  M00S03114.mac1    +++|*                A - 3, 4, 5, 6, 7.
03269  M00S03115.mac1    +++|*                B - 1.
03270  M00S03116.mac1    +++|*
03271  M00S03117.mac1    +++|*         MACROS WRITEW.
03272  M00S03118.mac1    +++|
03273  M00S03119.mac1    +++|
03274  M00S03120.mac1    +++| WRITEW   SUBR               ENTRY/EXIT
03275  M00S03121.mac1    +++|          SB1    1
03276  M00S03122.mac1    +++|          SA3    A1+B1       FWA OF WORKING BUFFER
03277  M00S03123.mac1    +++|          SA4    A3+B1       ADDRESS OF WORD COUNT
03278  M00S03124.mac1    +++|          SA5    A4+B1       STATUS RESULT ADDRESS
03279  M00S03125.mac1    +++|          SA4    X4          WORD COUNT
03280  M00S03126.mac1    +++|          WRITEW X1,X3,X4
03281  M00S03127.mac1    +++|          NZ     B7,WRITEW1  IF AN ERROR
03282  M00S03128.mac1    +++|          BX7    X7-X7       CLEAR ERROR STATUS
03283  M00S03129.mac1    +++| WRITEW1  SA7    X5          RETURN ERROR STATUS
03284  M00S03130.mac1    +++|          EQ     WRITEWX
03285  M00S03131.mac1    +++|
03286  M00S03132.mac1    +++|          END
03287  M00S03133.mac1    +++|          IDENT  XARG
03288  M00S03134.mac1    +++|          LDSET  PRESET=ZERO
03289  M00S03135.mac1    +++|          ENTRY  XARG
03290  M00S03136.mac1    +++|          ENTRY  SSJ=
03291  M00S03137.mac1    +++|          SYSCOM B1
03292  M00S03138.mac1    +++|          TITLE  XARG - CRACK CONTROL STATEMENT PARAMETERS.
03293  M00S03139.mac1    +++|*COMMENT  CRACK CONTROL STATEMENT PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
03294  M01S03140.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1980.

Seq #  *Modification Id* Act 
----------------------------+
03295  M01S00073.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03296  M00S03141.mac1    +++|
03297  M00S03142.mac1    +++|*CALL     COMCMAC
03298  M00S03143.mac1    +++|
03299  M00S03144.mac1    +++| SSJ=     EQU    0
03300  M00S03145.mac1    +++| XARG     SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
03301  M01S03146.ns2676  ---|**        XARG - CRACK CONTROL STATEMENT PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
03302  M01S00006.ns2676  +++|***       XARG - CRACK CONTROL STATEMENT PARAMETERS.
03303  M00S03147.mac1    +++|*
03304  M00S03148.mac1    +++|*         XARG(ARGLIST,OPTION,FLAG);  (*SYMPL* CALL)
03305  M00S03149.mac1    +++|*
03306  M00S03150.mac1    +++|*         ENTRY  (ARGLIST) = ADDRESS OF ARGUMENT LIST.
03307  M00S03151.mac1    +++|*                (OPTION)  = OPTION FOR SKIPING OVER PROGRAM NAME.
03308  M00S03152.mac1    +++|*                            0, SKIP OVER PROGRAM NAME.
03309  M00S03153.mac1    +++|*                            ADDR, DO NOT SKIP OVER PROGRAM NAME.
03310  M00S03154.mac1    +++|*                                  *ADDR* IS THE FWA OF THE CONTROL
03311  M00S03155.mac1    +++|*                                  CARD BUFFER.
03312  M00S03156.mac1    +++|*
03313  M00S03157.mac1    +++|*         EXIT   CONTROL STATEMENT CRACKED.
03314  M00S03158.mac1    +++|*                (FLAG) = ERROR STATUS.
03315  M00S03159.mac1    +++|*                          0, NO ERROR.
03316  M00S03160.mac1    +++|*                         -1, ARGUMENT ERROR.
03317  M00S03161.mac1    +++|*
03318  M00S03162.mac1    +++|*         USES   A - 1, 3, 4, 5, 6.
03319  M00S03163.mac1    +++|*                B - 1, 2, 3.
03320  M00S03164.mac1    +++|*                X - 1, 3, 4, 5, 6.
03321  M00S03165.mac1    +++|*
03322  M00S03166.mac1    +++|*         CALLS  ARM, POP, USB.
03323  M00S03167.mac1    +++|
03324  M00S03168.mac1    +++|
03325  M00S03169.mac1    +++| XARG     SUBR               ENTRY/EXIT
03326  M00S03170.mac1    +++|          SB1    1
03327  M00S03171.mac1    +++|          SA3    A1+B1       ADDRESS OF *OPTION*
03328  M00S03172.mac1    +++|          SA5    A3+B1       SAVE ADDRESS OF *FLAG*
03329  M00S03173.mac1    +++|          SB2    X3          SET ADDRESS OF *OPTION*
03330  M00S03174.mac1    +++|          SA3    X3
03331  M00S03175.mac1    +++|          NZ     X3,ARG1     IF OPTION IS *NO SKIP OVER PROGRAM NAME*
03332  M00S03176.mac1    +++|          SB2    CCDR        SET ADDRESS OF CONTROL STATEMENT BUFFER
03333  M00S03177.mac1    +++| ARG1     SA4    X1          ADDRESS OF ARGUMENT LIST
03334  M00S03178.mac1    +++|          RJ     USB         UNPACK CONTROL STATEMENT
03335  M00S03179.mac1    +++|          SA1    A6          ASSURE TERMINATION
03336  M00S03180.mac1    +++|          SX6    1R.
03337  M00S03181.mac1    +++|          SA6    X1+B1
03338  M00S03182.mac1    +++|          NZ     X3,ARG2     IF *DO NOT SKIP OVER PROGRAM NAME*
03339  M00S03183.mac1    +++|          RJ     POP         SKIP OVER PROGRAM NAME
03340  M00S03184.mac1    +++| ARG2     SB3    X4          CRACK THE PARAMETERS
03341  M00S03185.mac1    +++|          RJ     ARM
03342  M00S03186.mac1    +++|          LX6    X1          SET UP ERROR STATUS IN *FLAG*
03343  M00S03187.mac1    +++|          SA6    X5
03344  M00S03188.mac1    +++|          EQ     XARGX      RETURN
03345  M00S03189.mac1    +++|
03346  M00S03190.mac1    +++|*CALL     COMCARM
03347  M00S03191.mac1    +++|*CALL     COMCPOP
03348  M00S03192.mac1    +++|*CALL     COMCUSB
03349  M00S03193.mac1    +++|
03350  M00S03194.mac1    +++|          END
03351  M00S03195.mac1    +++|          IDENT  XCDD
03352  M00S03196.mac1    +++|          ENTRY  XCDD
03353  M00S03197.mac1    +++|          SYSCOM B1
03354  M00S03198.mac1    +++|          TITLE  XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
03355  M00S03199.mac1    +++|*COMMENT   CONVERT INTEGER TO DECIMAL DISPLAY CODE.

Seq #  *Modification Id* Act 
----------------------------+
03356  M01S03200.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03357  M01S00074.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03358  M00S03201.mac1    +++| XCDD     SPACE  4,10
03359  M00S03202.mac1    +++|***       XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
03360  M00S03203.mac1    +++|*
03361  M00S03204.mac1    +++|*         HOLLERITH = XCDD (INTEGER)
03362  M00S03205.mac1    +++|*
03363  M00S03206.mac1    +++|*         XX = XCDD(YY);           (*SYMPL* CALL)
03364  M00S03207.mac1    +++|*
03365  M00S03208.mac1    +++|*         ENTRY  (YY) =  THE INTEGER TO BE CONVERTED.
03366  M00S03209.mac1    +++|*
03367  M00S03210.mac1    +++|*         EXIT   XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
03368  M00S03211.mac1    +++|*
03369  M00S03212.mac1    +++|*         USES   X - 1.
03370  M00S03213.mac1    +++|*                A - 1.
03371  M00S03214.mac1    +++|*                B - 1.
03372  M00S03215.mac1    +++|*
03373  M00S03216.mac1    +++|*         CALLS  COD.
03374  M00S03217.mac1    +++|
03375  M00S03218.mac1    +++|
03376  M00S03219.mac1    +++| XCDD     SUBR               ENTRY/EXIT
03377  M00S03220.mac1    +++|          SB1    1
03378  M00S03221.mac1    +++|          SA1    X1+
03379  M00S03222.mac1    +++|          RJ     CDD
03380  M00S03223.mac1    +++|          EQ     XCDDX       RETURN, RESULT IN X6
03381  M00S03224.mac1    +++|
03382  M00S03225.mac1    +++|*CALL     COMCCDD            CONVERT INTEGER TO DECIMAL DISPLAY CODE.
03383  M00S03226.mac1    +++|
03384  M00S03227.mac1    +++|          END
03385  M00S03228.mac1    +++|          IDENT  XCFD
03386  M00S03229.mac1    +++|          ENTRY  XCFD
03387  M00S03230.mac1    +++|          ENTRY  CFD
03388  M00S03231.mac1    +++|          SYSCOM B1
03389  M00S03232.mac1    +++|          TITLE  XCFD - CONVERT INTEGER TO F10.3 FORMAT.
03390  M00S03233.mac1    +++|*COMMENT   CONVERT INTEGER TO F10.3 FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
03391  M01S03234.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03392  M01S00075.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03393  M00S03235.mac1    +++| XCFD     SPACE  4,10
03394  M00S03236.mac1    +++|***       XVFD - CONVERT INTEGER TO F10.3 FORMAT.
03395  M00S03237.mac1    +++|*
03396  M00S03238.mac1    +++|*         HOLLERITH = XCFD (INTEGER).
03397  M00S03239.mac1    +++|*
03398  M00S03240.mac1    +++|*         XX = XCFD(YY);           (*SYMPL* CALL)
03399  M00S03241.mac1    +++|*
03400  M00S03242.mac1    +++|*         ENTRY  (YY) = THE INTEGER TO BE CONVERTED.
03401  M00S03243.mac1    +++|*
03402  M00S03244.mac1    +++|*         EXIT   XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
03403  M00S03245.mac1    +++|*
03404  M00S03246.mac1    +++|*         USES   X - 1.
03405  M00S03247.mac1    +++|*                A - 1.
03406  M00S03248.mac1    +++|*                B - 1.
03407  M00S03249.mac1    +++|*
03408  M00S03250.mac1    +++|*         CALLS  CFD
03409  M00S03251.mac1    +++|
03410  M00S03252.mac1    +++|
03411  M00S03253.mac1    +++| XCFD     SUBR               ENTRY/EXIT
03412  M00S03254.mac1    +++|          SB1    1
03413  M00S03255.mac1    +++|          SA1    X1+
03414  M00S03256.mac1    +++|          RJ     =XCFD       CONVERT
03415  M00S03257.mac1    +++|          EQ     XCFDX       RETURN, RESULT IN X6
03416  M00S03258.mac1    +++|
03417  M00S03259.mac1    +++|*CALL     COMCCFD            CONVERT INTEGER TO F10.3 FORMAT.
03418  M00S03260.mac1    +++|
03419  M00S03261.mac1    +++|          END
03420  M00S03262.mac1    +++|          IDENT  XCHD
03421  M00S03263.mac1    +++|          ENTRY  XCHD
03422  M00S03264.mac1    +++|          SYSCOM B1
03423  M00S03265.mac1    +++|          TITLE  XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
03424  M00S03266.mac1    +++|*COMMENT  CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.

Seq #  *Modification Id* Act 
----------------------------+
03425  M01S03267.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03426  M01S00076.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03427  M00S03268.mac1    +++|          SPACE  4,10
03428  M00S03269.mac1    +++|***       XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
03429  M00S03270.mac1    +++|*
03430  M00S03271.mac1    +++|*         CONVERT RIGHT MOST 40 BITS OF A BINARY WORD (10/4 BIT
03431  M00S03272.mac1    +++|*         HEX DIGITS) TO 10 HEXIDECIMAL DISPLAY CODE CHARACTERS
03432  M00S03273.mac1    +++|*         (LEFT ZEROES SUPPRESSED).
03433  M00S03274.mac1    +++|*
03434  M00S03275.mac1    +++|*         XX = XCHD(YY);           (*SYMPL* CALL)
03435  M00S03276.mac1    +++|*
03436  M00S03277.mac1    +++|*         ENTRY  XY, AN ITEM CONTAINING THE WORD TO BE CONVERTED.
03437  M00S03278.mac1    +++|*
03438  M00S03279.mac1    +++|*         EXIT   XX, HEX DISPLAY CODE EQUIVILENCE OF THE RIGHT MOST
03439  M00S03280.mac1    +++|*                    10 HEX DIGIT IN YY.
03440  M00S03281.mac1    +++|*
03441  M00S03282.mac1    +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03442  M00S03283.mac1    +++|*                A - 1, 4.
03443  M00S03284.mac1    +++|*                B - 1, 2, 3, 4, 5, 6, 7.
03444  M00S03285.mac1    +++|
03445  M00S03286.mac1    +++|
03446  M00S03287.mac1    +++| XCHD     SUBR               ENTRY/EXIT
03447  M00S03288.mac1    +++|          SB1    1           SYSCOM B1
03448  M00S03289.mac1    +++|          SA4    XCHDA       =1H
03449  M00S03290.mac1    +++|          SA1    X1          (X1) = HEXIDECIMAL INTEGER IN BINARY
03450  M00S03291.mac1    +++|          SB7    1R0         (B7) = CHARACTER ZERO
03451  M00S03292.mac1    +++|          MX2    -4          (X2) = DIGIT MASK
03452  M00S03293.mac1    +++|          SB3    6           (B3) = SHIFT COUNT FOR EACH CHARACTER
03453  M00S03294.mac1    +++|          SB6    1R          (B6) = CHARACTER BLANK
03454  M00S03295.mac1    +++|          SB5    1R9         (B5) = CHARACTER 9
03455  M00S03296.mac1    +++|          SB2    -B3         INITIALIZE SHIFT COUNT
03456  M00S03297.mac1    +++|          SB4    B7-B6       (B4) = CONVERSION VALUE FOR NUMERIC
03457  M00S03298.mac1    +++| XCHD1    BX7    -X2*X1      EXTRACT DIGIT
03458  M00S03299.mac1    +++|          SX5    X7+B7       ADD CHARACTER ZERO TO DIGIT
03459  M00S03300.mac1    +++|          SB2    B2+B3
03460  M00S03301.mac1    +++|          LX4    -6
03461  M00S03302.mac1    +++|          SX3    X7+B4       CONVERT DIGIT (W/BLANK BIAS)
03462  M00S03303.mac1    +++|          AX1    4           SHIFT OFF DIGIT FROM INPUT WORD
03463  M00S03304.mac1    +++|          SX5    X5-1R9      SEE IF CHARACTER GREATER THAT NINE
03464  M00S03305.mac1    +++|          NG     X5,XCHD2    IF LESS THAN NINE
03465  M00S03306.mac1    +++|          ZR     X5,XCHD2    IF EQUAL TO NINE
03466  M00S03307.mac1    +++|          SX3    X5-1R       BIAS DIGIT BY CHARACTER BLANK INVERSE
03467  M00S03308.mac1    +++| XCHD2    IX4    X4+X3       ADD DIGIT TO ASSEMBLY
03468  M00S03309.mac1    +++|          NZ     X1,XCHD1    IF NOT A ZERO DIGIT
03469  M00S03310.mac1    +++|          LX6    X4,B2
03470  M00S03311.mac1    +++|          EQ     XCHDX
03471  M00S03312.mac1    +++|
03472  M00S03313.mac1    +++| XCHDA    CON    1H          BLANK FILLED WORD
03473  M00S03314.mac1    +++|
03474  M00S03315.mac1    +++|          END
03475  M00S03316.mac1    +++|          IDENT  XCOD
03476  M00S03317.mac1    +++|          ENTRY  XCOD
03477  M00S03318.mac1    +++|          SYSCOM B1
03478  M00S03319.mac1    +++|          TITLE  XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
03479  M00S03320.mac1    +++|*COMMENT   CONVERT INTEGER TO OCTAL DISPLAY CODE.

Seq #  *Modification Id* Act 
----------------------------+
03480  M01S03321.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03481  M01S00077.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03482  M00S03322.mac1    +++| XCOD     SPACE  4,10
03483  M00S03323.mac1    +++|***       XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
03484  M00S03324.mac1    +++|*
03485  M00S03325.mac1    +++|*         HOLLERITH = XCOD (INTEGER)
03486  M00S03326.mac1    +++|*
03487  M00S03327.mac1    +++|*         XX = XCOD(YY);           (*SYMPL* CALL)
03488  M00S03328.mac1    +++|*
03489  M00S03329.mac1    +++|*         ENTRY  (YY) = THE INTEGER TO BE CONVERTED.
03490  M00S03330.mac1    +++|*
03491  M00S03331.mac1    +++|*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
03492  M00S03332.mac1    +++|*
03493  M00S03333.mac1    +++|*         USES   X - 1.
03494  M00S03334.mac1    +++|*                A - 1.
03495  M00S03335.mac1    +++|*                B - 1.
03496  M00S03336.mac1    +++|*
03497  M00S03337.mac1    +++|*         CALLS  COD.
03498  M00S03338.mac1    +++|
03499  M00S03339.mac1    +++|
03500  M00S03340.mac1    +++| XCOD     SUBR               ENTRY/EXIT
03501  M00S03341.mac1    +++|          SB1    1
03502  M00S03342.mac1    +++|          SA1    X1+
03503  M00S03343.mac1    +++|          RJ     COD
03504  M00S03344.mac1    +++|          EQ     XCODX       RETURN, RESULT IN X6
03505  M00S03345.mac1    +++|
03506  M00S03346.mac1    +++|*CALL     COMCCOD            CONVERT INTEGER TO OCTAL DISPLAY CODE.
03507  M00S03347.mac1    +++|
03508  M00S03348.mac1    +++|          END
03509  M00S03349.mac1    +++|          IDENT  XDXB
03510  M00S03350.mac1    +++|          ENTRY  XDXB
03511  M00S03351.mac1    +++|          SYSCOM B1

Seq #  *Modification Id* Act 
----------------------------+
03512  M01S00007.ns2676  +++|          TITLE  XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
03513  M00S03352.mac1    +++|*COMMENT CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.

Seq #  *Modification Id* Act 
----------------------------+
03514  M01S03353.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03515  M01S00078.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03516  M00S03354.mac1    +++|          SPACE  4,10
03517  M00S03355.mac1    +++|***       XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
03518  M00S03356.mac1    +++|*
03519  M00S03357.mac1    +++|*         *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD
03520  M00S03358.mac1    +++|*         OF DISPLAY CODE DIGITS INTO BINARY.
03521  M00S03359.mac1    +++|*
03522  M00S03360.mac1    +++|*         STAT = XDXB(OWORD,TYPE,NWORD);    (*SYMPL* CALL)
03523  M00S03361.mac1    +++|*
03524  M00S03362.mac1    +++|*                OWORD - AN ITEM THAT CONTAINS THE WORD
03525  M00S03363.mac1    +++|*                        BE CONVERTED.
03526  M00S03364.mac1    +++|*                TYPE  - CONVERSION TYPE.
03527  M00S03365.mac1    +++|*                      - .GT. 0, CONVERSION IN DECIMAL.
03528  M00S03366.mac1    +++|*                      - = 0, CONVERSION IN OCTAL.
03529  M00S03367.mac1    +++|*                NWORD - AN ITEM TO CONTAIN THE CONVERTED DIGITS.
03530  M00S03368.mac1    +++|*                STAT  - = 0, NO ERROR.
03531  M00S03369.mac1    +++|*                      - NON ZERO, ERROR IN ASSEMBLY.
03532  M00S03370.mac1    +++|*
03533  M00S03371.mac1    +++|*         USES   X - 2, 3, 5, 6.
03534  M00S03372.mac1    +++|*                A - 2, 3, 5, 6.
03535  M00S03373.mac1    +++|*                B - 1, 2, 7.
03536  M00S03374.mac1    +++|*
03537  M00S03375.mac1    +++|*         CALLS  DXB.
03538  M00S03376.mac1    +++|
03539  M00S03377.mac1    +++|
03540  M00S03378.mac1    +++| XDXB     SUBR               ENTRY/EXIT
03541  M00S03379.mac1    +++|          SB1    1
03542  M00S03380.mac1    +++|          SA5    X1          (X5) = WORD
03543  M00S03381.mac1    +++|          SA2    A1+B1       ADDRESS OF TYPE IN X2
03544  M00S03382.mac1    +++|          SA3    X2
03545  M00S03383.mac1    +++|          SB7    X3          (B7) = TYPE
03546  M00S03384.mac1    +++|          SB2    10D         DO TEN CHARACTERS
03547  M00S03385.mac1    +++|          MX6    -6
03548  M00S03386.mac1    +++| DXB1     LX5    6
03549  M00S03387.mac1    +++|          BX2    -X6*X5
03550  M00S03388.mac1    +++|          SX2    X2-1R
03551  M00S03389.mac1    +++|          SB2    B2-B1
03552  M00S03390.mac1    +++|          NZ     X2,DXB2     IF NOT A SPACE CHARACTER
03553  M00S03391.mac1    +++|          MX3    54
03554  M00S03392.mac1    +++|          BX5    X3*X5
03555  M00S03393.mac1    +++| DXB2     NZ     B2,DXB1     IF MORE CHARACTERS
03556  M00S03394.mac1    +++|          RJ     =XDXB
03557  M00S03395.mac1    +++|          SA3    A2+B1
03558  M00S03396.mac1    +++|          SA6    X3          STORE CONVERTED DIGITS
03559  M00S03397.mac1    +++|          BX6    X4          PUT STATUS IN (X6)
03560  M00S03398.mac1    +++|          EQ     XDXBX
03561  M00S03399.mac1    +++|
03562  M00S03400.mac1    +++|*CALL COMCDXB
03563  M00S03401.mac1    +++|
03564  M00S03402.mac1    +++|          END
03565  M00S03403.mac1    +++|          IDENT  XPRC
03566  M00S03404.mac1    +++|          ENTRY  XPRC

Seq #  *Modification Id* Act 
----------------------------+
03567  M01S00008.ns2676  +++|          TITLE  XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE.
03568  M00S03405.mac1    +++|*COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.

Seq #  *Modification Id* Act 
----------------------------+
03569  M01S03406.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03570  M01S00079.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03571  M00S03407.mac1    +++|          SPACE  4,10
03572  M00S03408.mac1    +++|***       XPRC - INTERFACE ROUTINE USED TO CALL A *SYMPL*
03573  M00S03409.mac1    +++|*         PROCEDURE, GIVEN THE ADDRESS OF THE PROCEDURE.
03574  M00S03410.mac1    +++|*
03575  M00S03411.mac1    +++|*         XPRC(PADDR,P1,P2,...,PN);    (*SYMPL* CALL)
03576  M00S03412.mac1    +++|*
03577  M00S03413.mac1    +++|*         PADDR - ADDRESS OF PROCEDURE.
03578  M00S03414.mac1    +++|*         P1    - FIRST PARAMETER TO BE PASSED TO PROCEDURE.
03579  M00S03415.mac1    +++|*         ...
03580  M00S03416.mac1    +++|*         PN    - N-TH PARAMETER TO BE PASSED TO PROCEDURE.
03581  M00S03417.mac1    +++|*
03582  M00S03418.mac1    +++|*         USES   X - 1, 2, 3, 4, 6, 7.
03583  M00S03419.mac1    +++|*                A - 1, 2, 6, 7.
03584  M00S03420.mac1    +++|*                B - 1, 2.
03585  M00S03421.mac1    +++|
03586  M00S03422.mac1    +++| XPRC     SUBR               ENTRY/EXIT
03587  M00S03423.mac1    +++|          SB1    1
03588  M00S03424.mac1    +++|          SA2    X1
03589  M00S03425.mac1    +++|          BX7    X2
03590  M00S03426.mac1    +++|          SA7    PRADR       STORE PROCEDURE ADDRESS
03591  M00S03427.mac1    +++|          SA1    A1+B1
03592  M00S03428.mac1    +++|          MX3    1
03593  M00S03429.mac1    +++|          LX3    57
03594  M00S03430.mac1    +++|          SA2    PRADR
03595  M00S03431.mac1    +++|          SX4    PRC1
03596  M00S03432.mac1    +++|          SB2    X2
03597  M00S03433.mac1    +++|          LX4    30
03598  M00S03434.mac1    +++|          BX6    X3+X4
03599  M00S03435.mac1    +++|          SA6    X2
03600  M00S03436.mac1    +++|          JP     B2+1
03601  M00S03437.mac1    +++| PRC1     EQ     XPRCX
03602  M00S03438.mac1    +++|
03603  M00S03439.mac1    +++| PRADR    BSSZ   1           ADDRESS OF PROCEDURE TO CALL
03604  M00S03440.mac1    +++|
03605  M00S03441.mac1    +++|          END
03606  M00S03442.mac1    +++|          IDENT  XREL
03607  M00S03443.mac1    +++|          ENTRY  XREL=
03608  M00S03444.mac1    +++|          ENTRY  XREL.
03609  M00S03445.mac1    +++|          SYSCOM B1
03610  M00S03446.mac1    +++|          TITLE  XREL - COMMON DECK INTERFACE ROUTINES.
03611  M00S03447.mac1    +++|*COMMENT  COMMON DECK INTERFACE ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
03612  M01S03448.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03613  M01S00080.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03614  M00S03449.mac1    +++| XREL     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03615  M01S03450.ns2676  ---|***       XREL - COMMON DECK INTERFACE ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
03616  M01S00009.ns2676  +++|**        XREL - COMMON DECK INTERFACE ROUTINES.
03617  M00S03451.mac1    +++|*
03618  M00S03452.mac1    +++|*                XREL IS A COLLECTION OF RELOCATABLE MODULES THAT
03619  M00S03453.mac1    +++|*         PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
03620  M00S03454.mac1    +++|*         AND THE STANDARD COMMON DECK ROUTINES THAT ARE NOT CALLED
03621  M00S03455.mac1    +++|*         BY SYSTEM MACROS.
03622  M00S03456.mac1    +++| XREL     SPACE  4,10
03623  M00S03457.mac1    +++| LOCAL    EQU    3
03624  M00S03458.mac1    +++| XREL.    SPACE  4,10
03625  M00S03459.mac1    +++|**        XREL. - UNDEFINED COMMON DECK PROCESSOR.
03626  M00S03460.mac1    +++|*
03627  M00S03461.mac1    +++|*         ENTRY  (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
03628  M00S03462.mac1    +++|*                       LEFT JUSTIFIED.
03629  M00S03463.mac1    +++|*
03630  M00S03464.mac1    +++|*         USES   X - 6.
03631  M00S03465.mac1    +++|*                A - 6.
03632  M00S03466.mac1    +++|*                B - 1.
03633  M00S03467.mac1    +++|*
03634  M00S03468.mac1    +++|*         MACROS ABORT, MESSAGE.
03635  M00S03469.mac1    +++|
03636  M00S03470.mac1    +++|
03637  M00S03471.mac1    +++| XREL.    SUBR               ENTRY/EXIT
03638  M00S03472.mac1    +++|          SB1    1
03639  M00S03473.mac1    +++|          BX6    X1
03640  M00S03474.mac1    +++|          SA6    XREA+3
03641  M00S03475.mac1    +++|          MESSAGE  XREA,LOCAL,R
03642  M00S03476.mac1    +++|          ABORT
03643  M00S03477.mac1    +++|
03644  M00S03478.mac1    +++| XREA     DATA   C* XREL - UNDEFINED ROUTINE -   FILL-IN.*
03645  M00S03479.mac1    +++| XREL=    SPACE  4,10
03646  M00S03480.mac1    +++|**        XREL= - ILLEGAL ARGUMENT PROCESSOR.
03647  M00S03481.mac1    +++|*
03648  M00S03482.mac1    +++|*         ENTRY  (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
03649  M00S03483.mac1    +++|*                       LEFT JUSTIFIED.
03650  M00S03484.mac1    +++|*                (X2) = ILLEGAL ARGUMENT.
03651  M00S03485.mac1    +++|*
03652  M00S03486.mac1    +++|*         USES   X - 0, 1, 2, 6.
03653  M00S03487.mac1    +++|*                A - 6.
03654  M00S03488.mac1    +++|*                B - 1.
03655  M00S03489.mac1    +++|*
03656  M00S03490.mac1    +++|*         CALLS  SFW.
03657  M00S03491.mac1    +++|*
03658  M00S03492.mac1    +++|*         MACROS ABORT, MESSAGE.
03659  M00S03493.mac1    +++|
03660  M00S03494.mac1    +++|
03661  M00S03495.mac1    +++| XREL=    SUBR               ENTRY/EXIT
03662  M00S03496.mac1    +++|          SB1    1
03663  M00S03497.mac1    +++|          BX0    X2          SAVE SECOND ARGUMENT
03664  M00S03498.mac1    +++|          LX1    -6
03665  M00S03499.mac1    +++|          SX2    1R-
03666  M00S03500.mac1    +++|          BX1    X1+X2
03667  M00S03501.mac1    +++|          RJ     =XSFW
03668  M00S03502.mac1    +++|          BX1    X0
03669  M00S03503.mac1    +++|          SA6    XREB
03670  M00S03504.mac1    +++|          RJ     =XSFW
03671  M00S03505.mac1    +++|          SA6    XREB+3
03672  M00S03506.mac1    +++|          MESSAGE  XREB,LOCAL,R
03673  M00S03507.mac1    +++|          ABORT
03674  M00S03508.mac1    +++|
03675  M00S03509.mac1    +++| XREB     DATA   C* FILL-IN - ILLEGAL ARGUMENT  .GT.FILL-IT-IN.LT..*
03676  M00S03510.mac1    +++|
03677  M00S03511.mac1    +++|          END
03678  M00S03512.mac1    +++|          IDENT  XSFN
03679  M00S03513.mac1    +++|          ENTRY  XSFN
03680  M00S03514.mac1    +++|          SYSCOM B1
03681  M00S03515.mac1    +++|          TITLE  XSFN - SPACE FILL NAME.
03682  M00S03516.mac1    +++|*COMMENT   SPACE FILL NAME.

Seq #  *Modification Id* Act 
----------------------------+
03683  M01S03517.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03684  M01S00081.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03685  M00S03518.mac1    +++| XSFN     SPACE  4,10
03686  M00S03519.mac1    +++|***       XSFN - SPACE FILL NAME.
03687  M00S03520.mac1    +++|*
03688  M00S03521.mac1    +++|*         HOLLERITH = XSFN (NAME)
03689  M00S03522.mac1    +++|*
03690  M00S03523.mac1    +++|*         XX = XSFN(NAME);       (*SYMPL* CALL)
03691  M00S03524.mac1    +++|*
03692  M00S03525.mac1    +++|*         ENTRY  NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED,
03693  M00S03526.mac1    +++|*                      ZERO FILLED.
03694  M00S03527.mac1    +++|*
03695  M00S03528.mac1    +++|*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
03696  M00S03529.mac1    +++|*
03697  M00S03530.mac1    +++|*         USES   X - 1.
03698  M00S03531.mac1    +++|*                A - 1.
03699  M00S03532.mac1    +++|*                B - 1.
03700  M00S03533.mac1    +++|*
03701  M00S03534.mac1    +++|*         CALLS  SFN.
03702  M00S03535.mac1    +++|
03703  M00S03536.mac1    +++|
03704  M00S03537.mac1    +++| XSFN     SUBR               ENTRY/EXIT
03705  M00S03538.mac1    +++|          SB1    1
03706  M00S03539.mac1    +++|          SA1    X1+
03707  M00S03540.mac1    +++|          RJ     =XSFN       SPACE FILL NAME
03708  M00S03541.mac1    +++|          EQ     XSFNX       RETURN, RESULT IN X6
03709  M00S03542.mac1    +++|
03710  M00S03543.mac1    +++|          ENTRY  SFN
03711  M00S03544.mac1    +++|*CALL     COMCSFN            SPACE FILL NAME.
03712  M00S03545.mac1    +++|
03713  M00S03546.mac1    +++|          END
03714  M00S03547.mac1    +++|          IDENT  XSFW
03715  M00S03548.mac1    +++|          ENTRY  XSFW
03716  M00S03549.mac1    +++|          SYSCOM B1
03717  M00S03550.mac1    +++|          ENTRY  SFW
03718  M00S03551.mac1    +++|          TITLE  XSFW - SPACE FILL WORD.
03719  M00S03552.mac1    +++|*COMMENT   SPACE FILL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03720  M01S03553.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Seq #  *Modification Id* Act 
----------------------------+
03721  M01S00082.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03722  M00S03554.mac1    +++| XSFW     SPACE  4,10
03723  M00S03555.mac1    +++|***       XSFW - SPACE FILL WORD.
03724  M00S03556.mac1    +++|*
03725  M00S03557.mac1    +++|*         HOLLERITH = XSFW (WORD)
03726  M00S03558.mac1    +++|*
03727  M00S03559.mac1    +++|*         XX = XSFW(WORD);    (*SYMPL* CALL)
03728  M00S03560.mac1    +++|*
03729  M00S03561.mac1    +++|*         ENTRY  WORD, AN ITEM CONTAINING THE WORD TO CHANGE ZEROES TO
03730  M00S03562.mac1    +++|*                      BLANKS.
03731  M00S03563.mac1    +++|*
03732  M00S03564.mac1    +++|*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
03733  M00S03565.mac1    +++|*
03734  M00S03566.mac1    +++|*         USES   X - 1.
03735  M00S03567.mac1    +++|*                A - 1.
03736  M00S03568.mac1    +++|*                B - 1.
03737  M00S03569.mac1    +++|*
03738  M00S03570.mac1    +++|*         CALLS  SFW.
03739  M00S03571.mac1    +++|
03740  M00S03572.mac1    +++|
03741  M00S03573.mac1    +++| XSFW     SUBR               ENTRY/EXIT
03742  M00S03574.mac1    +++|          SB1    1
03743  M00S03575.mac1    +++|          SA1    X1+
03744  M00S03576.mac1    +++|          RJ     =XSFW       SPACE FILL WORD
03745  M00S03577.mac1    +++|          EQ     XSFWX       RETURN, RESULT IN X6
03746  M00S03578.mac1    +++| SFW      SPACE  4,10
03747  M00S03579.mac1    +++|          IF     -DEF,QUAL$,1
03748  M00S03580.mac1    +++|          QUAL   COMCSFW

Seq #  *Modification Id* Act 
----------------------------+
03749  M01S03581.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Seq #  *Modification Id* Act 
----------------------------+
03750  M01S00083.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03751  M00S03582.mac1    +++| SFW      SPACE  4,10
03752  M00S03583.mac1    +++|***       SFW - SPACE FILL WORD.
03753  M00S03584.mac1    +++|*
03754  M00S03585.mac1    +++|*         SFW REPLACES ALL 00 CODES WITH 55 CODES IN A WORD.
03755  M00S03586.mac1    +++|*
03756  M00S03587.mac1    +++|*         ENTRY  (X1) = WORD WITH 00 CODES.
03757  M00S03588.mac1    +++|*                (B1) = 1.
03758  M00S03589.mac1    +++|*
03759  M00S03590.mac1    +++|*         EXIT   (X6) = WORD SPACE FILLED.
03760  M00S03591.mac1    +++|*                (X7) = FINAL CHARACTER MASK.
03761  M00S03592.mac1    +++|*
03762  M00S03593.mac1    +++|*         USES   X - 3, 6, 7.
03763  M00S03594.mac1    +++|*                A - 3.
03764  M00S03595.mac1    +++|
03765  M00S03596.mac1    +++|
03766  M00S03597.mac1    +++| SFW      SUBR               ENTRY/EXIT
03767  M00S03598.mac1    +++|          SA3    SFWA        =37373737373737373737B
03768  M00S03599.mac1    +++|          BX6    X3*X1       EXTRACT UPPER BIT FROM EACH CHARACTER
03769  M00S03600.mac1    +++|          BX7    -X3*X1      EXTRACT LOWER 5 BITS FROM EACH CHARACTER
03770  M00S03601.mac1    +++|          IX6    X6+X3       EACH NON-00 CHARACTER GIVES CARRY
03771  M00S03602.mac1    +++|          BX6    X6+X7
03772  M00S03603.mac1    +++|          BX7    -X3*X6      EACH NON-00 CHARACTER = 40B

Proceed to Part 2