Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:aaml
Deck AAML
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.aaml +++| IDENT AAML 00002 M00S00002.aaml +++| SST 00003 M00S00003.aaml +++| ENTRY CLOSE 00004 M00S00004.aaml +++| ENTRY DBCOMIT 00005 M00S00005.aaml +++| ENTRY DBEGIN 00006 M00S00006.aaml +++| ENTRY DBFREE 00007 M00S00007.aaml +++| ENTRY DBSTAT 00008 M00S00008.aaml +++| ENTRY DELETE 00009 M00S00009.aaml +++| ENTRY LOCK 00010 M00S00010.aaml +++| ENTRY FLOCK 00011 M00S00011.aaml +++| ENTRY OPEN 00012 M00S00012.aaml +++| ENTRY READ 00013 M00S00013.aaml +++| ENTRY READL 00014 M00S00014.aaml +++| ENTRY READM 00015 M00S00015.aaml +++| ENTRY READN 00016 M00S00016.aaml +++| ENTRY READNL 00017 M00S00017.aaml +++| ENTRY REWIND 00018 M00S00018.aaml +++| ENTRY REWRITE 00019 M00S00019.aaml +++| ENTRY SKIPBL 00020 M00S00020.aaml +++| ENTRY SKIPFL 00021 M00S00021.aaml +++| ENTRY START 00022 M00S00022.aaml +++| ENTRY UNLOCK 00023 M00S00023.aaml +++| ENTRY UNFLOCK 00024 M00S00024.aaml +++| ENTRY WRITE 00025 M00S00025.aaml +++| SYSCOM B1 00026 M00S00026.aaml +++| TITLE AAML - ADVANCED ACCESS METHODS LIBRARY.
| Line S00027 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00027.ns2440 ---|*COMMENT ADVANCED ACCESS METHODS LIBRARY.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00028 M01S00001.ns2440 +++|*COMMENT AAML - ADVANCED ACCESS METHODS LIBRARY.
| Line S00028 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00029 M01S00028.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00030 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00031 M00S00029.aaml +++| AAM SPACE 4,10 00032 M00S00030.aaml +++|***** AAM - ADVANCED ACCESS METHODS. 00033 M00S00031.aaml +++|* 00034 M00S00032.aaml +++|* G. W. PROPP. 78/08/07. 00035 M00S00033.aaml +++|* L. E. LOVETT. 80/05/01. 00036 M00S00034.aaml +++|* 00037 M00S00035.aaml +++|* AAM IS AN USER LIBRARY INTERFACE FOR COBOL5 AND FORTRAN TASKS 00038 M00S00036.aaml +++|* MAKING ADVANCED ACCESS METHOD CYBER RECORD MANAGER REQUESTS 00039 M00S00037.aaml +++|* OF THE TRANSACTION FACILITY. DECK *AAML* IS PLACED ON THE 00040 M00S00038.aaml +++|* TRANSACTION USER LIBRARY CALLED *TRANLIB*. THE COBOL5 00041 M00S00039.aaml +++|* *ENTER* VERB AND THE FORTRAN *CALL* STATEMENT INTERFACE USER 00042 M00S00040.aaml +++|* TASKS TO THE TRANSACTION FACILITY. 00043 M00S00041.aaml +++|* 00044 M00S00042.aaml +++|* AAML HAS BEEN MODIFIED TO PROVIDE TASK LEVEL 00045 M00S00043.aaml +++|* INTERFACE TO THE TRANSACTION FACILITY FOR 00046 M00S00044.aaml +++|* DATA BASE RECOVERY CALLS. 00047 M00S00045.aaml +++|* 00048 M00S00046.aaml +++|*** THE REQUESTS FOR *TAF CMR* ARE AS FOLLOWS - 00049 M00S00047.aaml +++|* 00050 M00S00048.aaml +++|* TO CLOSE A FILE FOR A TASK - 00051 M00S00049.aaml +++|* ENTER CLOSE USING FILE,TSTAT,CSTAT. 00052 M00S00050.aaml +++|* CALL CLOSE(FILE,TSTAT,CSTAT). 00053 M00S00051.aaml +++|* 00054 M00S00052.aaml +++|* TO COMMIT AN UPDATE SEQUENCE - 00055 M00S00053.aaml +++|* ENTER DBCOMIT USING TSTAT. 00056 M00S00054.aaml +++|* CALL DBCOMIT(TSTAT) 00057 M00S00055.aaml +++|* 00058 M00S00056.aaml +++|* TO BEGIN AN UPDATE SEQUENCE - 00059 M00S00057.aaml +++|* ENTER DBEGIN USING UBID,TSTAT. 00060 M00S00058.aaml +++|* CALL DBEGIN(UBID,TSTAT) 00061 M00S00059.aaml +++|* 00062 M00S00060.aaml +++|* TO FREE AN UPDATE SEQUENCE - 00063 M00S00061.aaml +++|* ENTER DBFREE USING TSTAT. 00064 M00S00062.aaml +++|* CALL DBFREE(TSTAT) 00065 M00S00063.aaml +++|* 00066 M00S00064.aaml +++|* TO OBTAIN STATUS OF UPDATE SEQUENCE(S) - 00067 M00S00065.aaml +++|* ENTER DBSTAT USING PBID,TSTAT,CBID. 00068 M00S00066.aaml +++|* CALL DBSTAT(PBID,STAT,CBID) 00069 M00S00067.aaml +++|* 00070 M00S00068.aaml +++|* TO DELETE A RECORD - 00071 M00S00069.aaml +++|* ENTER DELETE USING FILE,TSTAT,CSTAT,KEYA,KEYP. 00072 M00S00070.aaml +++|* CALL DELETE(FILE,TSTAT,CSTAT,KEYA,KEYP) 00073 M00S00071.aaml +++|* 00074 M00S00072.aaml +++|* TO LOCK A RECORD - 00075 M00S00073.aaml +++|* ENTER LOCK USING FILE,TSTAT,KEYA,KEYP. 00076 M00S00074.aaml +++|* CALL(FILE,TSTAT,KEYA,KEYP). 00077 M00S00075.aaml +++|* 00078 M00S00076.aaml +++|* TO LOCK A FILE - 00079 M00S00077.aaml +++|* ENTER FLOCK USING FILE,TSTAT. 00080 M00S00078.aaml +++|* CALL FLOCK(FILE,TSTAT). 00081 M00S00079.aaml +++|* 00082 M00S00080.aaml +++|* TO OPEN A FILE FOR A TASK - 00083 M00S00081.aaml +++|* ENTER OPEN USING FILE,TSTAT,CSTAT. 00084 M00S00082.aaml +++|* CALL OPEN(FILE,TSTAT,CSTAT). 00085 M00S00083.aaml +++|* 00086 M00S00084.aaml +++|* TO READ A RECORD BY KEY - 00087 M00S00085.aaml +++|* ENTER READ USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP- 00088 M00S00086.aaml +++|* ,FSTAT,ALTKEY,KEYR,KEYL-. 00089 M00S00087.aaml +++|* CALL READ(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-,FSTAT 00090 M00S00088.aaml +++|* ,ALTKEY,KEYR,KEYL-). 00091 M00S00089.aaml +++|* 00092 M00S00090.aaml +++|* TO READ A RECORD BY KEY WITH LOCK - 00093 M00S00091.aaml +++|* ENTER READL USING FILE TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP- 00094 M00S00092.aaml +++|* ,FSTAT,ALTKEY,KEYR,KEYL-. 00095 M00S00093.aaml +++|* CALL READL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-,FSTAT 00096 M00S00094.aaml +++|* ,ALTKEY,KEYR,KEYL-). 00097 M00S00095.aaml +++|* 00098 M00S00096.aaml +++|* TO READ A RECORD BY MAJOR KEY - 00099 M00S00097.aaml +++|* ENTER READM USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR, 00100 M00S00098.aaml +++|* KEYL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-. 00101 M00S00099.aaml +++|* CALL READM(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR, 00102 M00S00100.aaml +++|* KEYL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-). 00103 M00S00101.aaml +++|* 00104 M00S00102.aaml +++|* TO READ NEXT RECORD - 00105 M00S00103.aaml +++|* ENTER READN USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL- 00106 M00S00104.aaml +++|* ,FSTAT-. 00107 M00S00105.aaml +++|* CALL READN(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-,FSTAT-). 00108 M00S00106.aaml +++|* 00109 M00S00107.aaml +++|* TO READ NEXT RECORD WITH LOCK - 00110 M00S00108.aaml +++|* ENTER READNL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL- 00111 M00S00109.aaml +++|* ,FSTAT-. 00112 M00S00110.aaml +++|* CALL READNL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-,FSTAT-). 00113 M00S00111.aaml +++|* 00114 M00S00112.aaml +++|* TO REWIND A FILE - 00115 M00S00113.aaml +++|* ENTER REWIND USING FILE,TSTAT,CSTAT. 00116 M00S00114.aaml +++|* CALL REWIND(FILE,TSTAT,CSTAT). 00117 M00S00115.aaml +++|* 00118 M00S00116.aaml +++|* TO REWRITE A RECORD - 00119 M00S00117.aaml +++|* ENTER REWRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP. 00120 M00S00118.aaml +++|* CALL REWRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP). 00121 M00S00119.aaml +++|* 00122 M00S00120.aaml +++|* TO SKIP A LOGICAL RECORD BACKWARD - 00123 M00S00121.aaml +++|* ENTER SKIPBL USING FILE,TSTAT,CSTAT,COUNT. 00124 M00S00122.aaml +++|* CALL SKIPBL(FILE,TSTAT,CSTAT,COUNT). 00125 M00S00123.aaml +++|* 00126 M00S00124.aaml +++|* TO SKIP A LOGICAL RECORD FORWARD - 00127 M00S00125.aaml +++|* ENTER SKIPFL USING FILE,TSTAT,CSTAT,COUNT. 00128 M00S00126.aaml +++|* CALL SKIPFL(FILE,TSTAT,CSTAT,COUNT). 00129 M00S00127.aaml +++|* 00130 M00S00128.aaml +++|* TO SET THE STARTING POSITION - 00131 M00S00129.aaml +++|* ENTER START USING FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT 00132 M00S00130.aaml +++|* ,ALTKEY,MKEYL-. 00133 M00S00131.aaml +++|* CALL START(FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT,ALTKEY 00134 M00S00132.aaml +++|* ,MKEYL-). 00135 M00S00133.aaml +++|* 00136 M00S00134.aaml +++|* TO UNLOCK A RECORD - 00137 M00S00135.aaml +++|* ENTER UNLOCK USING FILE,TSTAT,KEYA,KEYP. 00138 M00S00136.aaml +++|* CALL UNLOCK(FILE,TSTAT,KEYA,KEYP). 00139 M00S00137.aaml +++|* 00140 M00S00138.aaml +++|* TO UNLOCK A FILE - 00141 M00S00139.aaml +++|* ENTER UNFLOCK USING FILE,TSTAT. 00142 M00S00140.aaml +++|* CALL UNFLOCK(FILE,TSTAT). 00143 M00S00141.aaml +++|* 00144 M00S00142.aaml +++|* TO WRITE A RECORD - 00145 M00S00143.aaml +++|* ENTER WRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR 00146 M00S00144.aaml +++|* ,KEYL-. 00147 M00S00145.aaml +++|* CALL WRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR,KEYL-). 00148 M00S00146.aaml +++|* 00149 M00S00147.aaml +++|* PARAMETERS ENCLOSED IN - - ARE OPTIONAL. 00150 M00S00148.aaml +++|* 00151 M00S00149.aaml +++|*** THE PARAMETERS FOR *TAF CRM* REQUESTS ARE DEFINED BELOW - 00152 M00S00150.aaml +++|* 00153 M00S00151.aaml +++|* FILE FILE NAME SELECTED BY DATA BASE ADMINISTRATOR. THE 00154 M00S00152.aaml +++|* FILE NAME MUST BEGIN ON A WORD BOUNDARY AND CONSIST OF 00155 M00S00153.aaml +++|* 2-7 CHARACTERS WITH BLANK OR BINARY ZERO FILL. 00156 M00S00154.aaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00157 M00S00155.aaml +++|* FORTRAN - INTEGER. 00158 M00S00156.aaml +++|* 00159 M00S00157.aaml +++|* TSTAT TRANSACTION FACILITY STATUS. SEE DECK *COMKTER* . 00160 M00S00158.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00161 M00S00159.aaml +++|* FORTRAN - INTEGER. 00162 M00S00160.aaml +++|* 00163 M00S00161.aaml +++|* CSTAT *CRM* STATUS. 00164 M00S00162.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00165 M00S00163.aaml +++|* FORTRAN - INTEGER. 00166 M00S00164.aaml +++|* 00167 M00S00165.aaml +++|* WSA WORKING STORAGE AREA LARGE ENOUGH TO CONTAIN RECORD. 00168 M00S00166.aaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00169 M00S00167.aaml +++|* FORTRAN - INTEGER ARRAY. 00170 M00S00168.aaml +++|* 00171 M00S00169.aaml +++|* 00172 M00S00170.aaml +++|* WSAL WORKING STORAGE AREA LENGTH IN CHARACTERS. 00173 M00S00171.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00174 M00S00172.aaml +++|* FORTRAN - INTEGER. 00175 M00S00173.aaml +++|* 00176 M00S00174.aaml +++|* KEYR KEY RETURN AREA LARGE ENOUGH TO CONTAIN PRIMARY KEY 00177 M00S00175.aaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00178 M00S00176.aaml +++|* FORTRAN - INTEGER. 00179 M00S00177.aaml +++|* 00180 M00S00178.aaml +++|* KEYL KEY RETURN AREA LENGTH IN CHARACTERS. 00181 M00S00179.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00182 M00S00180.aaml +++|* FORTRAN - INTEGER. 00183 M00S00181.aaml +++|* 00184 M00S00182.aaml +++|* MKEYL MAJOR KEY LENGTH IN CHARACTERS. 00185 M00S00183.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00186 M00S00184.aaml +++|* FORTRAN - INTEGER. 00187 M00S00185.aaml +++|* 00188 M00S00186.aaml +++|* KEYP KEY CHARACTER POSITION WITH RESPECT TO *KEYA*. *KEYP* 00189 M00S00187.aaml +++|* STARTS AT ONE FOR FIRST CHARACTER OF *KEYA*. 00190 M00S00188.aaml +++|* COBOL5 - 01 COMPUTATIONAL-1 DATA NAME. 00191 M00S00189.aaml +++|* FORTRAN - INTEGER. 00192 M00S00190.aaml +++|* 00193 M00S00191.aaml +++|* KEYA KEY AREA. THIS IS A DATA NAME CONTAINING THE KEY 00194 M00S00192.aaml +++|* VALUE. 00195 M00S00193.aaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00196 M00S00194.aaml +++|* FORTRAN - INTEGER. 00197 M00S00195.aaml +++|* 00198 M00S00196.aaml +++|* RL RECORD LENGTH IN CHARACTERS. ON AN INPUT REQUEST 00199 M00S00197.aaml +++|* THE TRANSACTION FACILITY RETURNS THE LENGTH. ON 00200 M00S00198.aaml +++|* OUTPUT THE TASK MUST SPECIFY THE LENGTH. 00201 M00S00199.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00202 M00S00200.aaml +++|* FORTRAN - INTEGER. 00203 M00S00201.aaml +++|* 00204 M00S00202.aaml +++|* COUNT COUNT OF LOGICAL RECORDS TO SKIP. 00205 M00S00203.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA ANME. 00206 M00S00204.aaml +++|* FORTRAN - INTEGER. 00207 M00S00205.aaml +++|* 00208 M00S00206.aaml +++|* UBID USER SUPPLIED BEGIN IDENTIFIER. 00209 M00S00207.aaml +++|* ON A DBEGIN REQUEST THE USER SUPPLIES A 5 CHARACTER 00210 M00S00208.aaml +++|* BEGIN IDENTIFIER. 00211 M00S00209.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME. 00212 M00S00210.aaml +++|* FORTRAN - INTEGER. 00213 M00S00211.aaml +++|* 00214 M00S00212.aaml +++|* PBID BEGIN IDENTIFIER OF THE (LAST) SUCCESSFULLY 00215 M00S00213.aaml +++|* COMPLETED UPDATE SEQUENCE. ON A DBSTAT REQUEST THE 00216 M00S00214.aaml +++|* TRANSACTION FACILITY WILL RETURN THIS IDENTIFIER 00217 M00S00215.aaml +++|* IN THE UPPER 30 BITS OF THE WORD, THE LOWER 30 BITS 00218 M00S00216.aaml +++|* REMAIN UNCHANGED. 00219 M00S00217.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME. 00220 M00S00218.aaml +++|* FORTRAN - INTEGER. 00221 M00S00219.aaml +++|* 00222 M00S00220.aaml +++|* CBID BEGIN IDENTIFIER OF THE CURRENT UPDATE SEQUENCE. 00223 M00S00221.aaml +++|* ON A DBSTAT REQUEST THE TRANSACTION FACILITY WILL 00224 M00S00222.aaml +++|* RETURN THIS IDENTIFIER IN THE UPPER 30 BITS OF THE 00225 M00S00223.aaml +++|* WORD, THE LOWER 30 BITS REMAIN UNCHANGED. 00226 M00S00224.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME. 00227 M00S00225.aaml +++|* FORTRAN - INTEGER. 00228 M00S00226.aaml +++|* 00229 M00S00227.aaml +++|* REL CODE GOVERNING POSITION RELATIVE TO GIVEN KEY AFTER 00230 M00S00228.aaml +++|* OPERATION. 00231 M00S00229.aaml +++|* VALUES EQ, GE, GT. 00232 M00S00230.aaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00233 M00S00231.aaml +++|* FORTRAN - INTEGER DISPLAY CODE LEFT JUSTIFIED. 00234 M00S00232.aaml +++|* 00235 M00S00233.aaml +++|* FSTAT FILE POSITION INFORMATION. 00236 M00S00234.aaml +++|* RETURNED VALUES 0. 00237 M00S00235.aaml +++|* 1 NOT ON KEY. 00238 M00S00236.aaml +++|* 10B END OF KEY. 00239 M00S00237.aaml +++|* 100B END OF INFORMATION. 00240 M00S00238.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00241 M00S00239.aaml +++|* FORTRAN - INTEGER. 00242 M00S00240.aaml +++|* 00243 M00S00241.aaml +++|* ALTKEY ORDINAL OF ALTERNATE KEY FOR OPERATION 00244 M00S00242.aaml +++|* VALUES -1 NO CHANGE FROM CURRENT. 00245 M00S00243.aaml +++|* 0 PRIMARY KEY. 00246 M00S00244.aaml +++|* N ALTERNATE KEY N. 00247 M00S00245.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00248 M00S00246.aaml +++|* FORTRAN - INTEGER. 00249 M00S00247.aaml +++| SPACE 4,10 00250 M00S00248.aaml +++| 00251 M00S00249.aaml +++| 00252 M00S00250.aaml +++|* COMMON DECKS. 00253 M00S00251.aaml +++| 00254 M00S00252.aaml +++|*CALL COMKTAF 00255 M00S00253.aaml +++|*CALL COMKIPR 00256 M00S00254.aaml +++|*CALL COMKTDM 00257 M00S00255.aaml +++|*CALL COMCMAC 00258 M00S00256.aaml +++|*CALL COMKFLD 00259 M00S00257.aaml +++| BEGINT BSS 0 00260 M00S00258.aaml +++| LIST X 00261 M00S00259.aaml +++|*CALL COMKCRM 00262 M00S00260.aaml +++| SPACE 4,10 00263 M00S00261.aaml +++| ORG BEGINT DO NOT RESERVE SPACE FOR *TAF CRM* TABLES 00264 M00S00262.aaml +++| LIST -X 00265 M00S00263.aaml +++|** RTN - RETURN ADDRESS FOR ENTRY POINTS. 00266 M00S00264.aaml +++|* *RTN* GENERATES RETURN ADDRESS FOR ROUTINE ISSUING 00267 M00S00265.aaml +++|* *CRM* REQUEST. THE MACRO ALSO ENSURES THE RETURN 00268 M00S00266.aaml +++|* ADDRESS IS POSITIONED CORRECTLY IN THE TABLE OF 00269 M00S00267.aaml +++|* RETURN ADDRESSES. 00270 M00S00268.aaml +++|* 00271 M00S00269.aaml +++|* ENTRY CODE = TASK REQUEST CODE. 00272 M00S00270.aaml +++|* RETN = ENTRY POINT TO PROCESS TASK REQUEST. 00273 M00S00271.aaml +++|* (.1) = RETURN ADDRESS TABLE COUNTER. 00274 M00S00272.aaml +++|* 00275 M00S00273.aaml +++|* EXIT RETURN ADDRESS *RETN* IS PLACED IN TABLE. 00276 M00S00274.aaml +++|* (.1) = (.1) + 1. 00277 M00S00275.aaml +++| 00278 M00S00276.aaml +++| 00279 M00S00277.aaml +++| PURGMAC RTN 00280 M00S00278.aaml +++| 00281 M00S00279.aaml +++| RTN MACRO CODE,RETN 00282 M00S00280.aaml +++| ERRNZ .1-CODE IF REQUEST CODE NOT IN ORDER 00283 M00S00281.aaml +++| VFD 12/0,18/RETN 00284 M00S00282.aaml +++| .1 SET .1+1 00285 M00S00283.aaml +++| ENDM 00286 M00S00284.aaml +++| TITLE TASK INTERFACE ROUTINES. 00287 M00S00285.aaml +++| CLOSE SPACE 4,10 00288 M00S00286.aaml +++|** CLOSE - CLOSE FILE. 00289 M00S00287.aaml +++|* 00290 M00S00288.aaml +++|* ENTRY ENTER CLOSE USING FILE,TSTAT,CSTAT. 00291 M00S00289.aaml +++|* CALL CLOSE(FILE,TSTAT,CSTAT). 00292 M00S00290.aaml +++|* 00293 M00S00291.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00294 M00S00292.aaml +++|* 00295 M00S00293.aaml +++|* USES X - 1. 00296 M00S00294.aaml +++| 00297 M00S00295.aaml +++| 00298 M00S00296.aaml +++| VFD 42/0LAAML,18/CLOSE IDENTIFY DECK 00299 M00S00297.aaml +++| CLOSE SUBR ENTRY/EXIT 00300 M00S00298.aaml +++| SX1 TRCL CLOSE FILE FOR TASK 00301 M00S00299.aaml +++| EQ ISR ISSUE REQUEST 00302 M00S00300.aaml +++| SPACE 4,10 00303 M00S00301.aaml +++|** DBCOMIT - DATA BASE COMMIT REQUEST. 00304 M00S00302.aaml +++|* 00305 M00S00303.aaml +++|* ENTRY ENTER DBCOMIT USING TSTAT. 00306 M00S00304.aaml +++|* CALL DBCOMIT(TSTAT) 00307 M00S00305.aaml +++|* 00308 M00S00306.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00309 M00S00307.aaml +++|* 00310 M00S00308.aaml +++|* USES X - 1. 00311 M00S00309.aaml +++| 00312 M00S00310.aaml +++| DBCOMIT SUBR ENTRY/EXIT 00313 M00S00311.aaml +++| SX1 TRDC DATA BASE COMMIT REQUEST 00314 M00S00312.aaml +++| EQ ISR ISSUE REQUEST 00315 M00S00313.aaml +++| SPACE 4,10 00316 M00S00314.aaml +++|** DBEGIN - DATA BASE BEGIN REQUEST. 00317 M00S00315.aaml +++|* 00318 M00S00316.aaml +++|* ENTRY ENTER DBEGIN USING UBID,TSTAT. 00319 M00S00317.aaml +++|* CALL DBEGIN(UBID,TSTAT) 00320 M00S00318.aaml +++|* 00321 M00S00319.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00322 M00S00320.aaml +++|* 00323 M00S00321.aaml +++|* USES X - 1. 00324 M00S00322.aaml +++| 00325 M00S00323.aaml +++| DBEGIN SUBR ENTRY/EXIT 00326 M00S00324.aaml +++| SX1 TRDB DATA BASE BEGIN REQUEST 00327 M00S00325.aaml +++| EQ ISR ISSUE REQUEST 00328 M00S00326.aaml +++| SPACE 4,10 00329 M00S00327.aaml +++|** DBFREE - DATA BASE FREE REQUEST. 00330 M00S00328.aaml +++|* 00331 M00S00329.aaml +++|* ENTRY ENTER DBFREE USING TSTAT. 00332 M00S00330.aaml +++|* CALL DBFREE(TSTAT) 00333 M00S00331.aaml +++|* 00334 M00S00332.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00335 M00S00333.aaml +++|* 00336 M00S00334.aaml +++|* USES X - 1. 00337 M00S00335.aaml +++| 00338 M00S00336.aaml +++| DBFREE SUBR ENTRY/EXIT 00339 M00S00337.aaml +++| SX1 TRDF DATA BASE FREE REQUEST 00340 M00S00338.aaml +++| EQ ISR ISSUE REQUEST 00341 M00S00339.aaml +++| SPACE 4,10 00342 M00S00340.aaml +++|** DBSTAT - DATA BASE STATUS REQUEST. 00343 M00S00341.aaml +++|* 00344 M00S00342.aaml +++|* ENTRY ENTER DBSTAT USING PBID,TSTAT,CBID. 00345 M00S00343.aaml +++|* CALL DBSTST(PBID,TSTAT,CBID) 00346 M00S00344.aaml +++|* 00347 M00S00345.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00348 M00S00346.aaml +++|* 00349 M00S00347.aaml +++|* USES X - 1. 00350 M00S00348.aaml +++| 00351 M00S00349.aaml +++| DBSTAT SUBR ENTRY/EXIT 00352 M00S00350.aaml +++| SX1 TRDS DATA BASE STATUS REQUEST 00353 M00S00351.aaml +++| EQ ISR ISSUE REQUEST 00354 M00S00352.aaml +++| DELETE SPACE 4,10 00355 M00S00353.aaml +++|** DELETE - DELETE RECORD. 00356 M00S00354.aaml +++|* 00357 M00S00355.aaml +++|* ENTRY ENTER DELETE USING FILE,TSTAT,CSTAT,KEYA,KEYP. 00358 M00S00356.aaml +++|* CALL DELETE(FILE,TSTAT,CSTAT,KEYA,KEYP). 00359 M00S00357.aaml +++|* 00360 M00S00358.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00361 M00S00359.aaml +++|* 00362 M00S00360.aaml +++|* USES X - 1. 00363 M00S00361.aaml +++| 00364 M00S00362.aaml +++| 00365 M00S00363.aaml +++| DELETE SUBR ENTRY/EXIT 00366 M00S00364.aaml +++| SX1 TRDE DELETE RECORD 00367 M00S00365.aaml +++| EQ ISR ISSUE REQUEST 00368 M00S00366.aaml +++| LOCK SPACE 4,10 00369 M00S00367.aaml +++| LOCK SPACE 4,10 00370 M00S00368.aaml +++|** LOCK - LOCK RECORD. 00371 M00S00369.aaml +++|* 00372 M00S00370.aaml +++|* ENTRY ENTER LOCK USING FILE,TSTAT,KEYA,KEYP. 00373 M00S00371.aaml +++|* CALL(FILE,TSTAT,KEYA,KEYP). 00374 M00S00372.aaml +++|* 00375 M00S00373.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00376 M00S00374.aaml +++|* 00377 M00S00375.aaml +++|* USES X - 1. 00378 M00S00376.aaml +++| 00379 M00S00377.aaml +++| 00380 M00S00378.aaml +++| LOCK SUBR ENTRY/EXIT 00381 M00S00379.aaml +++| SX1 TRLC LOCK RECORD 00382 M00S00380.aaml +++| EQ ISR ISSUE REQUEST 00383 M00S00381.aaml +++| FLOCK SPACE 4,10 00384 M00S00382.aaml +++|** FLOCK - LOCK FILE. 00385 M00S00383.aaml +++|* 00386 M00S00384.aaml +++|* ENTRY ENTER FLOCK USING FILE,TSTAT. 00387 M00S00385.aaml +++|* CALL FLOCK(FILE,TSTAT). 00388 M00S00386.aaml +++|* 00389 M00S00387.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00390 M00S00388.aaml +++|* 00391 M00S00389.aaml +++|* USES X - 1. 00392 M00S00390.aaml +++| 00393 M00S00391.aaml +++| 00394 M00S00392.aaml +++| FLOCK SUBR ENTRY/EXIT 00395 M00S00393.aaml +++| SX1 TRLF LOCK FILE 00396 M00S00394.aaml +++| EQ ISR ISSUE REQUEST 00397 M00S00395.aaml +++| OPEN SPACE 4,10 00398 M00S00396.aaml +++|** OPEN - OPEN FILE FOR TASK. 00399 M00S00397.aaml +++|* 00400 M00S00398.aaml +++|* ENTRY ENTER OPEN USING FILE,TSTAT,CSTAT. 00401 M00S00399.aaml +++|* CALL OPEN(FILE,TSTAT,CSTAT). 00402 M00S00400.aaml +++|* 00403 M00S00401.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00404 M00S00402.aaml +++|* 00405 M00S00403.aaml +++|* USES X - 1. 00406 M00S00404.aaml +++| 00407 M00S00405.aaml +++| 00408 M00S00406.aaml +++| OPEN SUBR ENTRY/EXIT 00409 M00S00407.aaml +++| SX1 TROP OPEN FILE FOR TASK 00410 M00S00408.aaml +++| EQ ISR ISSUE REQUEST 00411 M00S00409.aaml +++| READ SPACE 4,10 00412 M00S00410.aaml +++|** READ - READ BY KEY. 00413 M00S00411.aaml +++|* 00414 M00S00412.aaml +++|* ENTRY ENTER READ USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA, 00415 M00S00413.aaml +++|* KEYP-,FSTAT,ALTKEY-. 00416 M00S00414.aaml +++|* CALL READ(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-, 00417 M00S00415.aaml +++|* FSTAT,ALTKEY-). 00418 M00S00416.aaml +++|* 00419 M00S00417.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00420 M00S00418.aaml +++|* 00421 M00S00419.aaml +++|* USES X - 1. 00422 M00S00420.aaml +++| 00423 M00S00421.aaml +++| 00424 M00S00422.aaml +++| READ SUBR ENTRY/EXIT 00425 M00S00423.aaml +++| SX1 TRRD READ BY KEY 00426 M00S00424.aaml +++| EQ ISR ISSUE REQUEST 00427 M00S00425.aaml +++| READL SPACE 4,10 00428 M00S00426.aaml +++|** READL - READ BY KEY WITH LOCK. 00429 M00S00427.aaml +++|* 00430 M00S00428.aaml +++|* ENTRY ENTER READL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA, 00431 M00S00429.aaml +++|* KEYP-,FSTAT,ALTKEY-. 00432 M00S00430.aaml +++|* CALL READL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP- 00433 M00S00431.aaml +++|* ,FSTAT,ALTKEY-). 00434 M00S00432.aaml +++|* 00435 M00S00433.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST 00436 M00S00434.aaml +++|* 00437 M00S00435.aaml +++|* USES X - 1. 00438 M00S00436.aaml +++| 00439 M00S00437.aaml +++| 00440 M00S00438.aaml +++| READL SUBR ENTRY/EXIT 00441 M00S00439.aaml +++| SX1 TRRL READ BY KEY WITH LOCK 00442 M00S00440.aaml +++| EQ ISR ISSUE REQUEST 00443 M00S00441.aaml +++| READM SPACE 4,10 00444 M00S00442.aaml +++|** READM - READ BY MAJOR KEY. 00445 M00S00443.aaml +++|* 00446 M00S00444.aaml +++|* ENTRY ENTER READM USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR, 00447 M00S00445.aaml +++|* KEYRL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-. 00448 M00S00446.aaml +++|* CALL READM(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYRL, 00449 M00S00447.aaml +++|* KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-). 00450 M00S00448.aaml +++|* 00451 M00S00449.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00452 M00S00450.aaml +++|* 00453 M00S00451.aaml +++|* USES X - 1. 00454 M00S00452.aaml +++| 00455 M00S00453.aaml +++| 00456 M00S00454.aaml +++| READM SUBR ENTRY/EXIT 00457 M00S00455.aaml +++| SX1 TRRM READ BY MAJOR KEY 00458 M00S00456.aaml +++| EQ ISR ISSUE REQUEST 00459 M00S00457.aaml +++| READN SPACE 4,10 00460 M00S00458.aaml +++|** READN - READ NEXT RECORD. 00461 M00S00459.aaml +++|* 00462 M00S00460.aaml +++|* ENTRY ENTER READN USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR, 00463 M00S00461.aaml +++|* KEYL-,FSTAT-. 00464 M00S00462.aaml +++|* CALL READN(FILE,TSTAT,CSTAT,WSA,RL,KEYR,KEYL-,FSTAT-). 00465 M00S00463.aaml +++|* 00466 M00S00464.aaml +++|* ENIT TO *ISR* TO ISSUE REQUEST. 00467 M00S00465.aaml +++|* 00468 M00S00466.aaml +++|* USES X - 1. 00469 M00S00467.aaml +++| 00470 M00S00468.aaml +++| 00471 M00S00469.aaml +++| READN SUBR ENTRY/EXIT 00472 M00S00470.aaml +++| SX1 TRRN READ NEXT RECORD WITHOUT LOCK 00473 M00S00471.aaml +++| EQ ISR ISSUE REQUEST 00474 M00S00472.aaml +++| READNL SPACE 4,10 00475 M00S00473.aaml +++|** READNL - READ NEXT RECORD WITH LOCK. 00476 M00S00474.aaml +++|* 00477 M00S00475.aaml +++|* ENTRY ENTER READNL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR, 00478 M00S00476.aaml +++|* KEYL-,FSTAT-. 00479 M00S00477.aaml +++|* CALL READNL(FILE,TSTAT,CSTAT,WSA,RL,KEYR,KEYL- 00480 M00S00478.aaml +++|* ,FSTAT-). 00481 M00S00479.aaml +++|* 00482 M00S00480.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00483 M00S00481.aaml +++|* 00484 M00S00482.aaml +++|* USES X - 1. 00485 M00S00483.aaml +++| 00486 M00S00484.aaml +++| 00487 M00S00485.aaml +++| READNL SUBR ENTRY/EXIT 00488 M00S00486.aaml +++| SX1 TRRO READ NEXT RECORD WITH LOCK 00489 M00S00487.aaml +++| EQ ISR ISSUE REQUEST 00490 M00S00488.aaml +++| REWIND SPACE 4,10 00491 M00S00489.aaml +++|** REWIND - REWIND FILE. 00492 M00S00490.aaml +++|* 00493 M00S00491.aaml +++|* ENTRY ENTER REWIND USING FILE,TSTAT,CSTAT. 00494 M00S00492.aaml +++|* CALL REWIND(FILE,TSTAT,CSTAT). 00495 M00S00493.aaml +++|* 00496 M00S00494.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST 00497 M00S00495.aaml +++|* 00498 M00S00496.aaml +++|* USES X - 1. 00499 M00S00497.aaml +++| 00500 M00S00498.aaml +++| 00501 M00S00499.aaml +++| REWIND SUBR ENTRY/EXIT 00502 M00S00500.aaml +++| SX1 TRRP REWIND FILE 00503 M00S00501.aaml +++| EQ ISR ISSUE REQUEST 00504 M00S00502.aaml +++| REWRITE SPACE 4,10 00505 M00S00503.aaml +++|** REWRITE - REWRITE RECORD. 00506 M00S00504.aaml +++|* 00507 M00S00505.aaml +++|* ENTRY ENTER REWRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA, 00508 M00S00506.aaml +++|* KEYP. 00509 M00S00507.aaml +++|* CALL REWRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP). 00510 M00S00508.aaml +++|* 00511 M00S00509.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00512 M00S00510.aaml +++|* 00513 M00S00511.aaml +++|* USES X - 1. 00514 M00S00512.aaml +++| 00515 M00S00513.aaml +++| 00516 M00S00514.aaml +++| REWRITE SUBR ENTRY/EXIT 00517 M00S00515.aaml +++| SX1 TRRW REWRITE RECORD 00518 M00S00516.aaml +++| EQ ISR ISSUE REQUEST 00519 M00S00517.aaml +++| SKIPBL SPACE 4,10 00520 M00S00518.aaml +++|** SKIPBL - SKIP BACKWARD LOGICAL RECORDS. 00521 M00S00519.aaml +++|* 00522 M00S00520.aaml +++|* ENTRY ENTER SKIPBL USING FILE,TSTAT,CSTAT,COUNT. 00523 M00S00521.aaml +++|* CALL SKIPBL(FILE,TSTAT,CSTAT,COUNT). 00524 M00S00522.aaml +++|* 00525 M00S00523.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00526 M00S00524.aaml +++|* 00527 M00S00525.aaml +++|* USES X - 1. 00528 M00S00526.aaml +++| 00529 M00S00527.aaml +++| 00530 M00S00528.aaml +++| SKIPBL SUBR ENTRY/EXIT 00531 M00S00529.aaml +++| SX1 TRSB SKIP LOGICAL RECORDS BACKWARD 00532 M00S00530.aaml +++| EQ ISR ISSUE REQUEST 00533 M00S00531.aaml +++| SKIPFL SPACE 4,10 00534 M00S00532.aaml +++|** SKIPFL - SKIP FORWARD LOGICAL RECORDS. 00535 M00S00533.aaml +++|* 00536 M00S00534.aaml +++|* ENTRY ENTER SKIPFL USING FILE,TSTAT,CSTAT,COUNT. 00537 M00S00535.aaml +++|* CALL SKIPFL(FILE,TSTAT,CSTAT,COUNT). 00538 M00S00536.aaml +++|* 00539 M00S00537.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00540 M00S00538.aaml +++|* 00541 M00S00539.aaml +++|* USES X - 1. 00542 M00S00540.aaml +++| 00543 M00S00541.aaml +++| 00544 M00S00542.aaml +++| SKIPFL SUBR ENTRY/EXIT 00545 M00S00543.aaml +++| SX1 TRSF SKIP FORWARD LOGICAL RECORD 00546 M00S00544.aaml +++| EQ ISR ISSUE REQUEST 00547 M00S00545.aaml +++| UNLOCK SPACE 4,10 00548 M00S00546.aaml +++|** UNLOCK - UNLOCK RECORD. 00549 M00S00547.aaml +++|* 00550 M00S00548.aaml +++|* ENTRY ENTER UNLOCK USING FILE,TSTAT,KEYA,KEYP. 00551 M00S00549.aaml +++|* CALL UNLOCK(FILE,TSTAT,KEYA,KEYP). 00552 M00S00550.aaml +++|* 00553 M00S00551.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00554 M00S00552.aaml +++|* 00555 M00S00553.aaml +++|* USES X - 1. 00556 M00S00554.aaml +++| 00557 M00S00555.aaml +++| 00558 M00S00556.aaml +++| UNLOCK SUBR ENTRY/EXIT 00559 M00S00557.aaml +++| SX1 TRUC UNLOCK RECORD 00560 M00S00558.aaml +++| EQ ISR ISSUE REQUEST 00561 M00S00559.aaml +++| UNFLOCK SPACE 4,10 00562 M00S00560.aaml +++|** UNFLOCK - UNLOCK FILE. 00563 M00S00561.aaml +++|* 00564 M00S00562.aaml +++|* ENTRY ENTER UNFLOCK USING FILE,TSTAT. 00565 M00S00563.aaml +++|* CALL UNFLOCK(FILE,TSTAT). 00566 M00S00564.aaml +++|* 00567 M00S00565.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00568 M00S00566.aaml +++|* 00569 M00S00567.aaml +++|* USES X - 1. 00570 M00S00568.aaml +++| 00571 M00S00569.aaml +++| 00572 M00S00570.aaml +++| UNFLOCK SUBR ENTRY/EXIT 00573 M00S00571.aaml +++| SX1 TRUF UNLOCK FILE 00574 M00S00572.aaml +++| EQ ISR ISSUE REQUEST 00575 M00S00573.aaml +++| WRITE SPACE 4,10 00576 M00S00574.aaml +++|** WRITE - WRITE RECORD BY KEY. 00577 M00S00575.aaml +++|* 00578 M00S00576.aaml +++|* ENTRY ENTER WRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA, 00579 M00S00577.aaml +++|* KEYP-,KEYR,KEYL-. 00580 M00S00578.aaml +++|* CALL WRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR 00581 M00S00579.aaml +++|* ,KEYL-). 00582 M00S00580.aaml +++|* 00583 M00S00581.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00584 M00S00582.aaml +++|* 00585 M00S00583.aaml +++|* USES X - 1. 00586 M00S00584.aaml +++| 00587 M00S00585.aaml +++| 00588 M00S00586.aaml +++| WRITE SUBR ENTRY/EXIT 00589 M00S00587.aaml +++| SX1 TRWR WRITE RECORD BY KEY 00590 M00S00588.aaml +++| EQ ISR ISSUE REQUEST 00591 M00S00589.aaml +++| START SPACE 4,20 00592 M00S00590.aaml +++|** START - SET STARTING POSITION. 00593 M00S00591.aaml +++|* 00594 M00S00592.aaml +++|* ENTRY ENTER START USING FILE,TSTAT,CSTAT,REL,KEYA,KEYP- 00595 M00S00593.aaml +++|* ,FSTAT,ALTKEY,MKEYL-. 00596 M00S00594.aaml +++|* 00597 M00S00595.aaml +++|* CALL START(FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT 00598 M00S00596.aaml +++|* ,ALTKEY,MKEYL-). 00599 M00S00597.aaml +++|* 00600 M00S00598.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST. 00601 M00S00599.aaml +++|* 00602 M00S00600.aaml +++|* USES X - 1. 00603 M00S00601.aaml +++| 00604 M00S00602.aaml +++| START SUBR ENTRY/EXIT 00605 M00S00603.aaml +++| SX1 TRST SET STARTING POSITION 00606 M00S00604.aaml +++| EQ ISR ISSUE REQUEST 00607 M00S00605.aaml +++| TITLE REQUEST ROUTINE. 00608 M00S00606.aaml +++| ISR SPACE 4,10 00609 M00S00607.aaml +++|** ISR - ISSUE REQUEST. 00610 M00S00608.aaml +++|* 00611 M00S00609.aaml +++|* ENTRY (X1) = REQUEST CODE. 00612 M00S00610.aaml +++|* (A1) = ADDRESS OF REQUEST PARAMETERS. 00613 M00S00611.aaml +++|* 00614 M00S00612.aaml +++|* USES X - 0, 1, 2, 6, 7. 00615 M00S00613.aaml +++|* A - 2. 00616 M00S00614.aaml +++|* B - 1, 7. 00617 M00S00615.aaml +++|* 00618 M00S00616.aaml +++|* EXIT (B1) = 1. 00619 M00S00617.aaml +++|* 00620 M00S00618.aaml +++|* CALLS SYS=. 00621 M00S00619.aaml +++| 00622 M00S00620.aaml +++| 00623 M00S00621.aaml +++| ISR SB1 1 00624 M00S00622.aaml +++| 00625 M00S00623.aaml +++|* DETERMINE RETURN ADDRESS OF CALLER. 00626 M00S00624.aaml +++| 00627 M00S00625.aaml +++| SX2 X1 COMPUTE WORD INDEX INTO *TRTN* TABLE 00628 M00S00626.aaml +++| LX1 59-0 DETERMINE LOWER OR UPPER TABLE ENTRY 00629 M00S00627.aaml +++| AX2 1 DIVIDE BY 2 00630 M00S00628.aaml +++| SA2 X2+TRTN 00631 M00S00629.aaml +++| NG X1,ISR1 IF UPPER ENTRY 00632 M00S00630.aaml +++| LX2 30 00633 M00S00631.aaml +++| ISR1 SX0 X2 RETURN ADDRESS 00634 M00S00632.aaml +++| 00635 M00S00633.aaml +++|* SET UP REQUEST. 00636 M00S00634.aaml +++| 00637 M00S00635.aaml +++| SX6 3RAAM 00638 M00S00636.aaml +++| SX7 A1 PARAMETER ADDRESS 00639 M00S00637.aaml +++| LX6 59-17 00640 M00S00638.aaml +++| BX6 X7+X6 00641 M00S00639.aaml +++| LX1 23-5+1 REQUEST CODE 00642 M00S00640.aaml +++| BX6 X6+X1 00643 M00S00641.aaml +++| RJ =XSYS= ISSUE REQUEST 00644 M00S00642.aaml +++| SB7 X0 RETURN ADDRESS 00645 M00S00643.aaml +++| JP B7 RETURN 00646 M00S00644.aaml +++| TRTN SPACE 4,10 00647 M00S00645.aaml +++|** TRTN - TABLE OF RETURN ADDRESS FOR REQUESTS. 00648 M00S00646.aaml +++|* TWO RETURN ADDRESS ARE PACKED PER WORD TO SAVE CORE. 00649 M00S00647.aaml +++|* THE TABLE MUST BE IN ASCENDING ORDER ACCORDING 00650 M00S00648.aaml +++|* TO REQUEST CODE GIVEN IN *COMKCRM*. 00651 M00S00649.aaml +++|* 00652 M00S00650.aaml +++|*T 12/0,18/ RTN1,12/0,18/ RTN2
Figure
00653 M00S00651.aaml +++|* 00654 M00S00652.aaml +++|* RTN1 - ODD REQUEST CODE RETURN ADDRESS. 00655 M00S00653.aaml +++|* RTN2 - EVEN REQUEST CODE RETURN ADDRESS. 00656 M00S00654.aaml +++| 00657 M00S00655.aaml +++| 00658 M00S00656.aaml +++| .1 SET 0 REQUEST CODE SEQUENCE COUNTER 00659 M00S00657.aaml +++| TRTN BSS 0 TABLE OF RETURN ADDRESS FOR REQUESTS 00660 M00S00658.aaml +++| RTN TRCL,CLOSE 00661 M00S00659.aaml +++| RTN TRDE,DELETE 00662 M00S00660.aaml +++| RTN TRLC,LOCK 00663 M00S00661.aaml +++| RTN TRLF,FLOCK 00664 M00S00662.aaml +++| RTN TROP,OPEN 00665 M00S00663.aaml +++| RTN TRRD,READ 00666 M00S00664.aaml +++| RTN TRRL,READL 00667 M00S00665.aaml +++| RTN TRRM,READM 00668 M00S00666.aaml +++| RTN TRRN,READN 00669 M00S00667.aaml +++| RTN TRRO,READNL 00670 M00S00668.aaml +++| RTN TRRP,REWIND 00671 M00S00669.aaml +++| RTN TRRW,REWRITE 00672 M00S00670.aaml +++| RTN TRSB,SKIPBL 00673 M00S00671.aaml +++| RTN TRSF,SKIPFL 00674 M00S00672.aaml +++| RTN TRUC,UNLOCK 00675 M00S00673.aaml +++| RTN TRUF,UNFLOCK 00676 M00S00674.aaml +++| RTN TRWR,WRITE 00677 M00S00675.aaml +++| RTN TRST,START 00678 M00S00676.aaml +++| RTN TRDB,DBEGIN 00679 M00S00677.aaml +++| RTN TRDC,DBCOMIT 00680 M00S00678.aaml +++| RTN TRDF,DBFREE 00681 M00S00679.aaml +++| RTN TRDS,DBSTAT 00682 M00S00680.aaml +++| ERRNZ .1-.TREQL IF ALL TASK REQUESTS NOT IN TABLE 00683 M00S00681.aaml +++| END
cdc/nos2.source/opl.opl871/deck/aaml.txt · Last modified: by 127.0.0.1