cdc:nos2.source:opl.opl871:deck:mac1.001
Deck MAC1 Part 001
4 Modifications
Listing Sections
- Deck MAC1 Start
- Deck MAC1 Part 1 (Line 1902)
- Deck MAC1 Part 2 (Line 3773)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S01862 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01940 M01S01862.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S01900 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01979 M01S01900.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02009 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1984.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02010 M01S00041.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
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.
| Line S01930 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02051 M01S01930.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S01974 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02096 M01S01974.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02012 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02135 M01S02012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02051 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02175 M01S02051.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02090 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02215 M01S02090.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02129 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02255 M01S02129.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02159 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02286 M01S02159.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02197 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02325 M01S02197.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02235 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02364 M01S02235.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S02258 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02388 M01S02258.ns22000 ---| SA2 X1+B1 GET RECALL PARAMETER
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
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.
| Line S02273 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02404 M01S02273.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02310 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02442 M01S02310.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02358 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02491 M01S02358.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02399 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02533 M01S02399.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02437 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02572 M01S02437.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02479 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02615 M01S02479.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02522 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02659 M01S02522.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02564 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02702 M01S02564.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02608 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02747 M01S02608.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 02780 M01S00005.ns2676 +++| TITLE UNLOAD - UNLOAD FILE. 02781 M00S02640.mac1 +++|*COMMENT UNLOAD FILE.
| Line S02641 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02782 M01S02641.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02679 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02821 M01S02679.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02715 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02858 M01S02715.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02753 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02897 M01S02753.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02791 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02936 M01S02791.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02826 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02972 M01S02826.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02865 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03012 M01S02865.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02903 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03051 M01S02903.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02943 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03092 M01S02943.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S02982 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03132 M01S02982.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03017 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03168 M01S03017.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03055 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03207 M01S03055.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03095 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03248 M01S03095.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03140 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03294 M01S03140.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S03146 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03301 M01S03146.ns2676 ---|** XARG - CRACK CONTROL STATEMENT PARAMETERS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
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.
| Line S03200 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03356 M01S03200.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03234 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03391 M01S03234.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03267 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03425 M01S03267.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03321 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03480 M01S03321.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
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.
| Line S03353 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03514 M01S03353.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03567 M01S00008.ns2676 +++| TITLE XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE. 03568 M00S03405.mac1 +++|*COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.
| Line S03406 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03569 M01S03406.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03448 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03612 M01S03448.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03613 M01S00080.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03614 M00S03449.mac1 +++| XREL SPACE 4,10
| Line S03450 Modification History | |
|---|---|
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act ----------------------------+ 03615 M01S03450.ns2676 ---|*** XREL - COMMON DECK INTERFACE ROUTINES.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2676 |
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.
| Line S03517 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03683 M01S03517.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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.
| Line S03553 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03720 M01S03553.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
| Line S03581 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03749 M01S03581.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
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
cdc/nos2.source/opl.opl871/deck/mac1.001.txt · Last modified: by 127.0.0.1