cdc:nos2.source:opl.opl871:deck:crmtask
Deck CRMTASK
5 Modifications
Listing Sections
- Deck CRMTASK Start
- Deck CRMTASK Part 1 (Line 1338)
- Deck CRMTASK Part 2 (Line 2364)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.crmtask +++| IDENT CRMTASK 00002 M01S00002.crmtask +++| ENTRY CRMTASK 00003 M01S00003.crmtask +++| LCC OVERLAY(CRMTASK,0,0)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.253l688 ---| SST BEGN 00005 M01S00001.253l688 +++| SST BEGN,CMBL 00006 M01S00005.crmtask +++| SYSCOM B1 00007 M01S00006.crmtask +++|*COMMENT CRMTASK - TAF/CRM STATUS AND DISPLAY TASK.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00008.crmtask +++|*IFCALL NAM,COMKTAF 00011 M01S00009.crmtask +++|*NIFCALL NAM,COMKTRN 00012 M01S00010.crmtask +++| SPACE 4,10 00013 M01S00011.crmtask +++|*** CRMTASK - TAF/CRM STATUS COMMAND AND DISPLAY TASK. 00014 M01S00012.crmtask +++|* 00015 M01S00013.crmtask +++|* R. G. PARKHOUSE. 80/05/23. 00016 M01S00014.crmtask +++|* A. SROKA. 80/07/25. 00017 M01S00001.241l630 +++|* T. E. SCHULL. 84/11/02. 00018 M01S00015.crmtask +++| SPACE 4,90 00019 M01S00016.crmtask +++|*** *CRMTASK* PERFORMS FUNCTIONS FOR *TAF/CRM* AND FORMATS *CRM* 00020 M01S00017.crmtask +++|* STATUS DISPLAYS FOR THE OPERATOR OR AN ANALYST. 00021 M01S00018.crmtask +++|* *CRMTASK* IS INITIALLY SCHEDULED WHEN - 00022 M01S00019.crmtask +++|* 00023 M01S00020.crmtask +++|* 1) ONE OF THE FOLLOWING *K-DISPLAY* COMMANDS IS ENTERED. 00024 M01S00021.crmtask +++|* 00025 M01S00022.crmtask +++|* CRMSTAT. DISPLAY GENERAL *CRM* STATUS. 00026 M01S00023.crmtask +++|* CRMSTAT,DB. DISPLAY STATUS OF DATA BASE. 00027 M01S00024.crmtask +++|* CRMSTAT,DBPFNXX. DISPLAY STATUS OF DATA BASE FILE. 00028 M01S00025.crmtask +++|* DBUP,DB. UP THE DATA BASE. 00029 M01S00026.crmtask +++|* DBUP,DBPFNXX. UP THE DATA BASE FILE. 00030 M01S00027.crmtask +++|* DBDOWN,DB. DOWN THE DATA BASE. 00031 M01S00028.crmtask +++|* DBDOWN,DBPFNXX. DOWN THE DATA BASE FILE. 00032 M01S00029.crmtask +++|* MENU. DISPLAY COMMAND REPERTOIRE. 00033 M01S00030.crmtask +++|* 00034 M01S00031.crmtask +++|* IF *CRMTASK* IS INVOKED FROM THE *K-DISPLAY* AND 00035 M01S00032.crmtask +++|* NO COMMAND IS ENTERED, THEN THE MENU OF VALID 00036 M01S00033.crmtask +++|* COMMANDS IS DISPLAYED. 00037 M01S00034.crmtask +++|* 00038 M01S00035.crmtask +++|* 2) *TAF* RECEIVES A *SIC* REQUEST FROM THE *CRM* BATCH 00039 M01S00036.crmtask +++|* RECOVERY PROGRAM. *CRMTASK* FORMATS A PARAMETER BLOCK 00040 M01S00037.crmtask +++|* AND ISSUES A *CRMSIC* REQUEST TO *AAMI*. 00041 M01S00038.crmtask +++|* 00042 M01S00039.crmtask +++|* 3) A TERMINAL OPERATOR INVOKES *CRMTASK* DIRECTLY OR VIA 00043 M01S00040.crmtask +++|* *CALLTSK* REQUEST. IN EITHER CASE THE COMMUNICATION 00044 M01S00041.crmtask +++|* BLOCK MUST BE FORMATTED EXACTLY THE SAME WAY - AS IF 00045 M01S00042.crmtask +++|* THE MESSAGE CAME DIRECTLY FROM THE TERMINAL. 00046 M01S00043.crmtask +++|* 00047 M01S00044.crmtask +++|* TERMINAL OPERATOR CANNOT REQUEST ANY FUNCTIONS OTHER 00048 M01S00045.crmtask +++|* THAN *CRMSTAT*, AND THAT IS RESTRICTED TO HIS/HER OWN 00049 M01S00046.crmtask +++|* DATA BASE. 00050 M01S00047.crmtask +++|* THE HOOKS HAVE BEEN LEFT IN THE CODE TO ENLARGE 00051 M01S00048.crmtask +++|* THE TERMINAL OPERATOR-S COMMAND REPERTOIRE. 00052 M01S00049.crmtask +++|* 00053 M01S00050.crmtask +++|* VALID COMMANDS FROM THE TERMINAL ARE - 00054 M01S00051.crmtask +++|* 00055 M01S00052.crmtask +++|* CRMSTAT,DB. 00056 M01S00053.crmtask +++|* CRMSTAT,DBPFN. 00057 M01S00054.crmtask +++|* 00058 M01S00055.crmtask +++|* 00059 M01S00056.crmtask +++|* IF *CRMTASK* IS INITIATED FROM THE OPERATOR CONSOLE TO 00060 M01S00057.crmtask +++|* PROCESS ANY ONE OF THE *CRMSTAT* REQUESTS, SUBSEQUENT 00061 M01S00058.crmtask +++|* *K-DISPLAY* COMMANDS ARE PASSED TO *CRMTASK* RATHER THAN
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00059.crmta1 ---|* BEING PROCESSED BY *TAF*. IN THIS CASE, ADDITIONAL
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00063 M02S00060.crmta1 ---|* VALID COMMANDS ARE - 00064 M01S00001.crmta1 +++|* BEING PROCESSED BY *TAF*. SIMILARLY, WHEN *CRMTASK* IS 00065 M01S00002.crmta1 +++|* INITIATED FROM A TERMINAL TO PROCESS ANY OF THE *CRMSTAT* 00066 M01S00003.crmta1 +++|* REQUESTS, THE DISPLAY IS SENT TO THE TERMINAL AND SUBSEQUENT 00067 M01S00004.crmta1 +++|* REQUESTS WILL BE ACCEPTED FROM THE TERMINAL. IN EITHER CASE, 00068 M01S00005.crmta1 +++|* ADDITIONAL VALID COMMANDS ARE - 00069 M01S00061.crmtask +++|* 00070 M01S00062.crmtask +++|* END. END DISPLAY AND CEASE. 00071 M01S00063.crmtask +++|* +. DISPLAY NEXT SCREEN IF MORE. 00072 M01S00064.crmtask +++|* -. DISPLAY FIRST SCREEN. 00073 M01S00065.crmtask +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00066.crmta1 ---|* SIMILARLY, WHEN *CRMTASK* IS INITIATED FROM A TERMINAL
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00075 M02S00067.crmta1 ---|* TO PROCESS ANY OF THE *CRMSTAT* REQUESTS, THE DISPLAY
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00076 M02S00068.crmta1 ---|* IS SENT TO THE TERMINAL AND SUBSEQUENT REQUESTS WILL BE
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00077 M02S00069.crmta1 ---|* ACCEPTED FROM THE TERMINAL.
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00070.crmta1 ---|*
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00071.crmta1 ---|* ALL OTHER COMMANDS WILL RESULT IN AN ERROR MESSAGE.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | crmta1 |
Seq # *Modification Id* Act ----------------------------+ 00080 M02S00072.crmta1 ---|* 00081 M01S00073.crmtask +++|* IN CASE OF *SIC* REQUEST ERRORS, THE FOLLOWING MESSAGES, 00082 M01S00074.crmtask +++|* ALONG WITH THE FIRST 4 WORDS OF MESSAGE IN THE COMMUNICA- 00083 M01S00075.crmtask +++|* TION BLOCK, WILL BE WRITTEN IN *JOUR0* - 00084 M01S00076.crmtask +++|*
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00085 M02S00077.v23l617 ---|* CRMTASK- INVALID REQUEST. 00086 M01S00001.v23l617 +++|* CRMTASK- INCORRECT REQUEST. 00087 M01S00078.crmtask +++|* CRMTASK- DATA BASE/FILE NAME UNKNOWN.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00088 M02S00079.v23l617 ---|* CRMTASK- INVALID TT SEQUENCE NUMBER. 00089 M01S00002.v23l617 +++|* CRMTASK- INCORRECT TT SEQUENCE NUMBER. 00090 M01S00080.crmtask +++|* CRMTASK- DATA BASE DOWNED BY OPERATOR. 00091 M01S00081.crmtask +++|* CRMTASK- NOT ALL DATA BASE FILES UPPED. 00092 M01S00082.crmtask +++|* CRMTASK- DATA BASE/FILE CANNOT BE UPPED. 00093 M01S00083.crmtask +++|* CRMTASK- DATA BASE/FILE BEING IDLED.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00084.v23l617 ---|* CRMTASK- INVALID REQUEST FORMAT. 00095 M01S00003.v23l617 +++|* CRMTASK- INCORRECT REQUEST FORMAT. 00096 M01S00085.crmtask +++|* 00097 M01S00086.crmtask +++|* THE FOLLOWING INFORMATIVE OR ERROR MESSAGES WILL APPEAR 00098 M01S00087.crmtask +++|* ON A *K-DISPLAY* AS A RESULT OF OPERATOR COMMANDS - 00099 M01S00088.crmtask +++|* 00100 M01S00089.crmtask +++|* DATA BASE/FILE NAME UNKNOWN. 00101 M01S00090.crmtask +++|* DATA BASE/FILE CANNOT BE UPPED. 00102 M01S00091.crmtask +++|* DATA BASE/FILE ALREADY DOWN OR IDLE. 00103 M01S00092.crmtask +++|* INCORRECT PAGING COMMAND. 00104 M01S00093.crmtask +++|* INSUFFICIENT FIELD LENGTH FOR THIS COMMAND.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00094.v23l617 ---|* INVALID COMMAND. 00106 M01S00004.v23l617 +++|* INCORRECT COMMAND. 00107 M01S00095.crmtask +++|* NOT ALL DATA BASE FILES UPPED. 00108 M01S00096.crmtask +++|* REQUEST COMPLETE. 00109 M01S00097.crmtask +++|* 00110 M01S00098.crmtask +++|* THE TERMINAL WILL ALSO RECEIVE ALL OF THE ABOVE MESSAGES 00111 M01S00099.crmtask +++|* AND, IN ADDITION MAY RECEIVE THE FOLLOWING - 00112 M01S00100.crmtask +++|* 00113 M01S00101.crmtask +++|* ENTER NEXT COMMAND... 00114 M01S00102.crmtask +++|* CRMTASK TIMEOUT. 00115 M01S00103.crmtask +++|* CRMTASK COMPLETE. 00116 M01S00104.crmtask +++|* 00117 M01S00105.crmtask +++| SPACE 4,10 00118 M01S00106.crmtask +++|*** COMMON DECKS. 00119 M01S00107.crmtask +++| 00120 M01S00108.crmtask +++| 00121 M01S00109.crmtask +++| BEGN BSS 0 00122 M01S00110.crmtask +++|*CALL COMCMAC 00123 M01S00005.v23l617 +++|*CALL COMCDCM 00124 M01S00002.241l630 +++|*CALL COMCDCP 00125 M01S00111.crmtask +++|*CALL COMKIPR
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00112.241l630 ---| CMAXNF EQU 20 TEMPORARY 00127 M01S00113.crmtask +++|*CALL COMKMAC 00128 M01S00114.crmtask +++|*CALL COMKFLD 00129 M01S00115.crmtask +++|*CALL COMKTDM 00130 M01S00116.crmtask +++|*CALL COMKCRM 00131 M01S00117.crmtask +++|*CALL COMKCBD 00132 M01S00118.crmtask +++|*CALL COMKTER 00133 M01S00119.crmtask +++| ORG BEGN 00134 M01S00006.v23l617 +++| SPACE 4,10 00135 M01S00007.v23l617 +++|**** ASSEMBLY CONSTANTS. 00136 M01S00008.v23l617 +++| 00137 M01S00009.v23l617 +++| 00138 M01S00003.241l630 +++| CMAXNF EQU 100D MAXIMUM NUMBER OF DISPLAYABLE DBPFNS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00139 M02S00010.241l630 ---| KFNL EQU 21 NUMBER OF FILE NAME LINES IN K-DISPLAY 00140 M01S00004.241l630 +++| KFNL EQU 20 NUMBER OF LINES BEFORE *MORE* LINE 00141 M01S00011.v23l617 +++|**** 00142 M01S00120.crmtask +++| CMB SPACE 4,10 00143 M01S00121.crmtask +++|* COMMUNICATION BLOCK. 00144 M01S00122.crmtask +++| 00145 M01S00123.crmtask +++| CMBK BSS CMBL 00146 M01S00124.crmtask +++| VFD 60/0L. MESSAGE TERMINATOR 00147 M01S00125.crmtask +++| SPACE 4,10 00148 M01S00126.crmtask +++|* GLOBAL VARIABLES. 00149 M01S00127.crmtask +++| 00150 M01S00128.crmtask +++| DBNM CON 0 DATA BASE NAME 00151 M01S00129.crmtask +++| ORIG CON 0 TASK ORIGIN (0=TAF, 1=TERMINAL)
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00152 M02S00130.241l630 ---| MORE DATA 8L- MORE - 00153 M01S00005.241l630 +++| MORE DATA 10HMORE
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00154 M02S00131.241l630 ---| PAGE CON 0 PROCESSOR RE-ENTRY ADDRESS
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00132.241l630 ---| FPAG CON 0 PROCESSOR ENTRY ADDRESS 00156 M01S00006.241l630 +++| PAGE CON DMU PROCESSOR RE-ENTRY ADDRESS 00157 M01S00007.241l630 +++| FPAG CON DMU PROCESSOR ENTRY ADDRESS 00158 M01S00133.crmtask +++| NPAG CON 0 BUFFER ADDRESS FOR NEXT PAGE OF DATA 00159 M01S00134.crmtask +++| BLNK DATA 10H
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00160 M02S00135.241l630 ---| CWKD CON KDD *K-DISPLAY* CONTROL WORD 00161 M01S00008.241l630 +++| CWKD CON KDE *K-DISPLAY* CONTROL WORD
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00162 M02S00136.241l630 ---| EAKD CON 0 *K-DISPLAY* ERROR MESSAGE ADDRESS 00163 M01S00009.241l630 +++| EAKD CON KDEA *K-DISPLAY* ERROR MESSAGE ADDRESS 00164 M01S00010.241l630 +++| IAKD CON 0 *K-DISPLAY* INPUT MESSAGE ADDRESS 00165 M01S00137.crmtask +++| DSTP CON 0 *K-DISPLAY* (0=FORMATTED , 1=-C- FORMAT) 00166 M01S00138.crmtask +++| RFRS CON 0 REFRESH *K-DISPLAY* SWITCH 00167 M01S00139.crmtask +++| CPAR CON 0 *CRMSTAT* PARAMETER FOR SCREEN REFRESH
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00168 M02S00140.v23l617 ---| IOLN CON 377777B RA+1 CALL LIMIT 00169 M01S00012.v23l617 +++| IOLN CON 377777B SYSTEM REQUEST CALL LIMIT 00170 M01S00141.crmtask +++| TILN CON 7777B TASK TIME LIMIT 00171 M01S00142.crmtask +++| PADR BSSZ 5 PARAMETER BLOCK FOR *AAMI* REQUEST 00172 M01S00143.crmtask +++| 00173 M01S00144.crmtask +++|* *AAMI* CALLING SEUQUENCE FOR *CRMSTAT*. 00174 M01S00145.crmtask +++| 00175 M01S00146.crmtask +++| CSQ1 CON PADR 00176 M01S00147.crmtask +++| CON PADR+1 00177 M01S00148.crmtask +++| CON 0 00178 M01S00149.crmtask +++| CON PADR+2 00179 M01S00150.crmtask +++| CON 0 00180 M01S00151.crmtask +++| 00181 M01S00152.crmtask +++|* *AAMI* CALLING SEQUENCE FOR *DBUP* AND *DBDOWN*. 00182 M01S00153.crmtask +++| 00183 M01S00154.crmtask +++| CSQ2 CON PADR 00184 M01S00155.crmtask +++| CON PADR+1 00185 M01S00156.crmtask +++| CON 0 00186 M01S00157.crmtask +++| 00187 M01S00158.crmtask +++|* *AAMI* CALLING SEQUENCE FOR *CRMSIC*. 00188 M01S00159.crmtask +++| 00189 M01S00160.crmtask +++| CSQ3 CON PADR 00190 M01S00161.crmtask +++| CON PADR+1 00191 M01S00162.crmtask +++| CON PADR+2 00192 M01S00163.crmtask +++| CON PADR+3 00193 M01S00164.crmtask +++| CON 0 00194 M01S00165.crmtask +++| CRMTASK SPACE 4,25 00195 M01S00166.crmtask +++|** CRMTASK - INITIALIZATION. 00196 M01S00167.crmtask +++|* 00197 M01S00168.crmtask +++|* THIS SUBROUTINE DETERMINES THE TRANSACTION ORIGIN. 00198 M01S00169.crmtask +++|* THEN, IF *SIC* COMMAND PROCESSING, IT VALIDATES THE 00199 M01S00170.crmtask +++|* COMMAND AND JUMPS TO THE *SIC* PROCESSOR. IF COM- 00200 M01S00171.crmtask +++|* MAND ORIGINATES FROM A TERMINAL, THE PARAMETERS ARE 00201 M01S00172.crmtask +++|* UNPACKED INTO RA+2 AND THEN MOVED BACK TO *TMSW*. 00202 M01S00173.crmtask +++|* 00203 M01S00174.crmtask +++|* ENTRY COMMUNICATION BLOCK LOADED. 00204 M01S00175.crmtask +++|* 00205 M01S00176.crmtask +++|* EXIT TO *CVL*, IF *TAF* OR TERMINAL ORIGIN. 00206 M01S00177.crmtask +++|* (B3) = FWA OF VALID COMMAND TABLE. 00207 M01S00178.crmtask +++|*
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00208 M02S00179.v23l617 ---|* ERROR TO *IBR*, IF INVALID *SIC* COMMAND. 00209 M01S00013.v23l617 +++|* ERROR TO *IBR*, IF INCORRECT *SIC* COMMAND. 00210 M01S00180.crmtask +++|* (X3) = ERROR CODE.
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00211 M02S00181.v23l617 ---|* TO *TTE*, IF INVALID TERMINAL COMMAND. 00212 M01S00014.v23l617 +++|* TO *TTE*, IF INCORRECT TERMINAL COMMAND. 00213 M01S00182.crmtask +++|* (B2) = ERROR CODE. 00214 M01S00183.crmtask +++|* 00215 M01S00184.crmtask +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00185.241l630 ---|* A - 1, 2, 5, 6. 00217 M01S00011.241l630 +++|* A - 1, 2, 5, 6, 7. 00218 M01S00186.crmtask +++|* B - 1, 3. 00219 M01S00187.crmtask +++|*
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00220 M02S00188.241l630 ---|* CALLS ITU. 00221 M01S00012.241l630 +++|* CALLS ITU, PRK. 00222 M01S00013.241l630 +++|* 00223 M01S00014.241l630 +++|* MACROS IIO, ITL. 00224 M01S00189.crmtask +++| 00225 M01S00190.crmtask +++| 00226 M01S00191.crmtask +++| 00227 M01S00192.crmtask +++| CRMTASK BSS 0 ENTRY 00228 M01S00193.crmtask +++| SB1 1
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00229 M02S00194.v23l617 ---| IIO IOLN INCREASE TASK-S RA+1 CALL LIMIT 00230 M01S00015.v23l617 +++| IIO IOLN INCREASE TASK-S SYSTEM REQUEST CALL LIMIT 00231 M01S00195.crmtask +++| ITL TILN INCREASE TASK-S TIME LIMIT 00232 M01S00015.241l630 +++| SX3 KBLG 00233 M01S00016.241l630 +++| RJ PRK PRESET *K-DISPLAY* BUFFER 00234 M01S00196.crmtask +++| SA1 TRSQ 00235 M01S00197.crmtask +++| MX0 12 00236 M01S00198.crmtask +++| BX6 X0*X1 EXTRACT DATA BASE FROM C.B. 00237 M01S00199.crmtask +++| SA6 DBNM 00238 M01S00200.crmtask +++| SX6 B0+ 00239 M01S00201.crmtask +++| SA1 CBSYW 00240 M01S00202.crmtask +++| LX1 59-CBSYS 00241 M01S00203.crmtask +++| NG X1,CRM1 IF SYSTEM ORIGIN TASK 00242 M01S00204.crmtask +++| SX6 B1 TERMINAL ORIGIN 00243 M01S00205.crmtask +++| MX0 36 00244 M01S00206.crmtask +++| SA1 TMSW 00245 M01S00207.crmtask +++| SA2 CRMA 00246 M01S00208.crmtask +++| SX3 IER0 IN CASE ATTEMPTED *SIC* REQUEST 00247 M01S00209.crmtask +++| BX1 X1-X2 00248 M01S00210.crmtask +++| ZR X1,IBR IF *SIC* FROM TERMINAL 00249 M01S00211.crmtask +++| CRM1 SA6 ORIG SAVE TASK ORIGIN 00250 M01S00017.241l630 +++| SX7 KDEB+1 *K-DISPLAY* INPUT LINE 00251 M01S00018.241l630 +++| SA7 IAKD 00252 M01S00212.crmtask +++| SB3 CVLA FWA OF COMMAND TABLE 00253 M01S00213.crmtask +++| ZR X6,CVL IF *TAF* ORIGIN 00254 M01S00214.crmtask +++| RJ ITU INSERT TERMINATOR AND UNPACK MESSAGE 00255 M01S00215.crmtask +++| SA1 2 00256 M01S00216.crmtask +++| SA2 A1+1 00257 M01S00217.crmtask +++| SA5 CRMB 00258 M01S00218.crmtask +++| BX6 X1 00259 M01S00219.crmtask +++| BX5 X5-X1 00260 M01S00220.crmtask +++| NZ X5,TTE IF REQUEST OTHER THAN *CRMSTAT* 00261 M01S00221.crmtask +++| SA6 TMSW 00262 M01S00222.crmtask +++| BX7 X2 00263 M01S00223.crmtask +++| SB3 CVLA FWA OF COMMAND TABLE 00264 M01S00224.crmtask +++| SA7 A6+B1 00265 M01S00225.crmtask +++| EQ CVL SEARCH FOR THE PROCESSOR 00266 M01S00226.crmtask +++| 00267 M01S00227.crmtask +++| CRMA DATA 0LCRMSIC 00268 M01S00228.crmtask +++| CRMB DATA 0LCRMSTAT 00269 M01S00229.crmtask +++| CVL SPACE 4,25 00270 M01S00230.crmtask +++|** CVL - COMMAND VALIDATION. 00271 M01S00231.crmtask +++|* 00272 M01S00232.crmtask +++|* CVL VALIDATES THE COMMAND AND JUMPS TO THE RELEVANT COMMAND 00273 M01S00233.crmtask +++|* PROCESSOR. 00274 M01S00234.crmtask +++|* 00275 M01S00235.crmtask +++|* ENTRY (B3) = FWA OF VALID COMMAND TABLE. 00276 M01S00019.241l630 +++|* (IAKD) = *K-DISPLAY* INPUT MESSAGE ADDRESS. 00277 M01S00236.crmtask +++|* FIRST WORD OF DATA AREA OF COMMUNICATION BLOCK HAS THE 00278 M01S00237.crmtask +++|* COMMAND. 00279 M01S00238.crmtask +++|* 00280 M01S00239.crmtask +++|* EXIT TO RELEVANT COMMAND PROCESSOR. 00281 M01S00240.crmtask +++|* 00282 M01S00241.crmtask +++|* ERROR TO *TPA* (*TAF* ORIGIN). 00283 M01S00242.crmtask +++|* TO *TTE* (TERMINAL ORIGIN). 00284 M01S00243.crmtask +++|* (B2) = ERROR CODE. 00285 M01S00244.crmtask +++|* 00286 M01S00245.crmtask +++|* USES X - 0, 1, 2, 3, 4, 7. 00287 M01S00246.crmtask +++|* A - 1, 2, 3, 7. 00288 M01S00247.crmtask +++|* B - 2, 3. 00289 M01S00248.crmtask +++|* 00290 M01S00249.crmtask +++|* CALLS SEM. 00291 M01S00250.crmtask +++|* 00292 M01S00251.crmtask +++|* MACROS MOVE. 00293 M01S00252.crmtask +++| 00294 M01S00253.crmtask +++| 00295 M01S00254.crmtask +++| CVL BSS 0 ENTRY
| Line S00255 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00296 M02S00255.241l630 ---| MOVE KBLCL,KBLC,KDBF BLANK ERROR MESSAGE LINES 00297 M01S00020.241l630 +++| MOVE KBLCL,KBLC,KDBD BLANK ERROR MESSAGE LINES
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00298 M02S00256.241l630 ---| MOVE KBLCL,KBLC,KDCO 00299 M01S00021.241l630 +++| MOVE KBLCL,KBLC,KDCM 00300 M01S00257.crmtask +++| MOVE KBLFL,KBLF,KDAF 00301 M01S00258.crmtask +++| MOVE KBLFL,KBLF,KDEA
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00302 M02S00259.241l630 ---| MOVE KBLFL,KBLF,KDDA 00303 M01S00260.crmtask +++| SA1 TRSQ 00304 M01S00261.crmtask +++| SA2 TMSW+1 PARAMETER 00305 M01S00262.crmtask +++| MX0 12 00306 M01S00263.crmtask +++| BX4 X1-X2 00307 M01S00264.crmtask +++| SA3 ORIG 00308 M01S00265.crmtask +++| BX4 X0*X4 00309 M01S00266.crmtask +++| MX0 42 00310 M01S00267.crmtask +++| SX7 B0+ 00311 M01S00268.crmtask +++| SA1 TMSW 00312 M01S00269.crmtask +++| SA7 RFRS RESET SCREEN REFRESH SWITCH 00313 M01S00270.crmtask +++| ZR X3,CVL1 IF *TAF* ORIGIN 00314 M01S00271.crmtask +++| ZR X2,CVL1 IF NO PARAMETER 00315 M01S00272.crmtask +++| NZ X4,CVL2 IF NOT TERMINAL OWN DATA BASE 00316 M01S00273.crmtask +++| CVL1 SA2 B3 NEXT COMMAND FROM LIST 00317 M01S00274.crmtask +++| ZR X2,CVL2 IF END OF LIST 00318 M01S00275.crmtask +++| SB3 B3+B1 00319 M01S00276.crmtask +++| BX3 X0*X2 00320 M01S00277.crmtask +++| BX3 X3-X1 00321 M01S00278.crmtask +++| NZ X3,CVL1 IF NO MATCH 00322 M01S00279.crmtask +++| SB3 X2+ COMMAND PROCESSOR ADDRESS 00323 M01S00280.crmtask +++| JP B3 PROCESS COMMAND 00324 M01S00281.crmtask +++| 00325 M01S00282.crmtask +++| CVL2 SA3 ORIG ORIGIN
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00283.v23l617 ---| SB2 ER5 *INVALID COMMAND.* 00327 M01S00016.v23l617 +++| SB2 ER5 *INCORRECT COMMAND.* 00328 M01S00284.crmtask +++| NZ X3,TTE IF TERMINAL ORIGIN 00329 M01S00285.crmtask +++| RJ SEM SET ERROR MESSAGE 00330 M01S00286.crmtask +++| EQ TPA DISPLAY ERROR MESSAGE 00331 M01S00287.crmtask +++| 00332 M01S00288.crmtask +++| 00333 M01S00289.crmtask +++|* VALID COMMAND TABLE FIRST TIME THROUGH. 00334 M01S00290.crmtask +++| 00335 M01S00291.crmtask +++| CVLA BSS 0 00336 M01S00292.crmtask +++| VFD 42/0,18/DMU 00337 M01S00293.crmtask +++| VFD 42/0LMENU,18/DMU 00338 M01S00294.crmtask +++| VFD 42/0LCRMSTAT,18/CRS 00339 M01S00295.crmtask +++| VFD 42/0LDBUP,18/DBU 00340 M01S00296.crmtask +++| VFD 42/0LDBDOWN,18/DBD 00341 M01S00297.crmtask +++| VFD 42/0LCRMSIC,18/SIC 00342 M01S00298.crmtask +++| CON 0 TABLE TERMINATOR 00343 M01S00299.crmtask +++| 00344 M01S00300.crmtask +++|* VALID COMMAND TABLE WHILE RUNNING. 00345 M01S00301.crmtask +++| 00346 M01S00302.crmtask +++| CVLB VFD 42/0LCRMSTAT,18/CRS 00347 M01S00303.crmtask +++| VFD 42/0LDBUP,18/DBU 00348 M01S00304.crmtask +++| VFD 42/0LDBDOWN,18/DBD 00349 M01S00305.crmtask +++| VFD 42/0LMENU,18/DMU 00350 M01S00306.crmtask +++| VFD 42/0LEND,18/TPD 00351 M01S00307.crmtask +++| VFD 42/1C+,18/PFP 00352 M01S00308.crmtask +++| VFD 42/1C-,18/PBP 00353 M01S00309.crmtask +++| CON 0 TABLE TERMINATOR 00354 M01S00310.crmtask +++| CRS SPACE 4,25 00355 M01S00311.crmtask +++|** CRS - CRMSTAT PROCESSOR. 00356 M01S00312.crmtask +++|* 00357 M01S00313.crmtask +++|* CRS VALIDATES THE PARAMETER AND IF VALID ISSUES A *CRMSTAT* 00358 M01S00314.crmtask +++|* REQUEST TO *AAMI* TO GET STATUS INFORMATION. 00359 M01S00315.crmtask +++|* 00360 M01S00316.crmtask +++|* ENTRY SECOND WORD OF DATA AREA OF COMMUNICATION BLOCK 00361 M01S00317.crmtask +++|* CONTAINS THE PARAMETER. 00362 M01S00318.crmtask +++|* 00363 M01S00319.crmtask +++|* EXIT TO *FCD* IF CRM STATUS REQUEST. 00364 M01S00320.crmtask +++|* TO *FDD* IF DATA BASE STATUS REQUEST. 00365 M01S00321.crmtask +++|* TO *FFD* IF FILE STATUS REQUEST. 00366 M01S00322.crmtask +++|* 00367 M01S00323.crmtask +++|* ERROR TO *TPA*. (TAF ORIGIN). 00368 M01S00324.crmtask +++|* (X1) = ADDRESS OF K-DISPLAY CONTROL WORD. 00369 M01S00325.crmtask +++|* TO *TTE*. (TERMINAL ORIGIN). 00370 M01S00326.crmtask +++|* (B2) = ERROR CODE. 00371 M01S00327.crmtask +++|* 00372 M01S00328.crmtask +++|* USES X - ALL. 00373 M01S00329.crmtask +++|* A - 1, 3, 4, 7. 00374 M01S00330.crmtask +++|* B - 2. 00375 M01S00331.crmtask +++|* 00376 M01S00332.crmtask +++|* CALLS CST, SEM. 00377 M01S00333.crmtask +++| 00378 M01S00334.crmtask +++| 00379 M01S00335.crmtask +++| CRS BSS 0 ENTRY 00380 M01S00336.crmtask +++| SX7 B0+ 00381 M01S00337.crmtask +++| SB2 BUFSIZE 00382 M01S00338.crmtask +++| CRS1 SB2 B2-1 CLEAR BUFFER 00383 M01S00339.crmtask +++| SA7 BADR+B2 00384 M01S00340.crmtask +++| PL B2,CRS1 IF NOT ENTIRE BUFFER SET TO ZEROS 00385 M01S00341.crmtask +++| SA4 ORIG ORIGIN 00386 M01S00342.crmtask +++| SA1 TMSW+1 PARAMETER 00387 M01S00343.crmtask +++| SX6 B1 00388 M01S00344.crmtask +++| BX7 X1 00389 M01S00345.crmtask +++| SA6 RFRS SET SWITCH TO REFRESH *K-DISPLAY* 00390 M01S00346.crmtask +++| SA7 CPAR SAVE *CRMSTAT* PARAMETER 00391 M01S00347.crmtask +++| ZR X1,CRS3 IF NO PARAMETER 00392 M01S00348.crmtask +++| MX0 12 00393 M01S00349.crmtask +++| BX2 -X0*X1 00394 M01S00350.crmtask +++| SA3 DBNM 00395 M01S00351.crmtask +++| ZR X4,CRS2 IF SYSTEM ORIGIN 00396 M01S00352.crmtask +++| BX3 X1-X3 00397 M01S00353.crmtask +++| BX3 X0*X3
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00398 M02S00354.v23l617 ---| SB2 ER5 *INVALID REQUEST* 00399 M01S00017.v23l617 +++| SB2 ER5 *INCORRECT REQUEST* 00400 M01S00355.crmtask +++| NZ X3,TTE IF TERMINAL DID NOT REQUEST OWN DATA BASE 00401 M01S00356.crmtask +++| CRS2 NZ X2,CRS5 IF FILE STATUS REQUEST 00402 M01S00357.crmtask +++| EQ CRS4 PROCESS DATA BASE STATUS REQUEST 00403 M01S00358.crmtask +++| 00404 M01S00359.crmtask +++|* CRM STATUS REQUEST. 00405 M01S00360.crmtask +++| 00406 M01S00361.crmtask +++| CRS3 SX5 B0+ FUNCTION CODE - *CRM* STATUS
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00407 M02S00362.v23l617 ---| SB2 ER5 *INVALID COMMAND* 00408 M01S00018.v23l617 +++| SB2 ER5 *INCORRECT COMMAND* 00409 M01S00363.crmtask +++| NZ X4,TTE IF REQUEST FROM TERMINAL 00410 M01S00364.crmtask +++| SX6 BADR FWA OF BUFFER TO RECEIVE STATUS 00411 M01S00365.crmtask +++| SX7 CST1L LENGTH OF BUFFER 00412 M01S00366.crmtask +++| RJ CST ISSUE *CRMSTAT* REQUEST 00413 M01S00367.crmtask +++| SB2 ER4 *INSUFICIENT FIELD LENGTH.* 00414 M01S00368.crmtask +++| NZ X2,CRS6 IF BUFFER TOO SMALL 00415 M01S00369.crmtask +++| SX5 B1+ FUNCTION CODE - REQUEST ALL *TDRF-S* 00416 M01S00370.crmtask +++| SX6 BADR+CST1L FWA OF BUFFER TO RECEIVE STATUS 00417 M01S00371.crmtask +++| SX7 CST2L LENGTH OF BUFFER 00418 M01S00372.crmtask +++| RJ CST ISSUE *CRMSTAT* FUNCTION 00419 M01S00373.crmtask +++| NZ X2,CRS6 IF BUFFER TOO SMALL 00420 M01S00374.crmtask +++| EQ FCD FORMAT DISPLAY 00421 M01S00375.crmtask +++| 00422 M01S00376.crmtask +++|* DATA BASE STATUS REQUEST. 00423 M01S00377.crmtask +++| 00424 M01S00378.crmtask +++| CRS4 SX5 B1+B1 FUNCTION CODE - DATA BASE STATUS 00425 M01S00379.crmtask +++| BX5 X1+X5 DATA BASE NAME + FUNCTION CODE 00426 M01S00380.crmtask +++| SX6 BADR FWA OF BUFFER TO RECEIVE STATUS 00427 M01S00381.crmtask +++| SX7 DST1L LENGTH OF BUFFER 00428 M01S00382.crmtask +++| RJ CST ISSUE *CRMSTAT* REQUEST 00429 M01S00383.crmtask +++| SX2 X2-1 00430 M01S00384.crmtask +++| SB2 ER0 *DATA BASE/FILE NAME UNKNOWN.* 00431 M01S00385.crmtask +++| ZR X2,CRS6 IF DATA BASE UNKNOWN 00432 M01S00386.crmtask +++| SB2 ER4 *INSUFICIENT FIELD LENGTH.* 00433 M01S00387.crmtask +++| PL X2,CRS6 IF BUFFER TOO SMALL 00434 M01S00388.crmtask +++| SA1 TMSW+1 DATA BASE NAME 00435 M01S00389.crmtask +++| SX5 3 FUNCTION CODE - REQUEST ALL *TLNT-S* 00436 M01S00390.crmtask +++| BX5 X1+X5 00437 M01S00391.crmtask +++| SX6 BADR+DST1L FWA OF BUFFER TO RECEIVE STATUS 00438 M01S00392.crmtask +++| SX7 DST2L LENGTH OF BUFFER 00439 M01S00393.crmtask +++| RJ CST ISSUE *CRMSTAT* REQUEST 00440 M01S00394.crmtask +++| SB2 ER4 *INSUFICIENT FIELD LENGTH.* 00441 M01S00395.crmtask +++| NZ X2,CRS6 IF BUFFER TOO SMALL 00442 M01S00396.crmtask +++| EQ FDD FORMAT DISPLAY 00443 M01S00397.crmtask +++| 00444 M01S00398.crmtask +++|* FILE STATUS REQUEST. 00445 M01S00399.crmtask +++| 00446 M01S00400.crmtask +++| CRS5 SX5 4 FUNCTION CODE - FILE STATUS 00447 M01S00401.crmtask +++| BX5 X1+X5 FILE NAME + FUNCTION CODE 00448 M01S00402.crmtask +++| SX6 BADR FWA OF BUFFER TO RECEIVE STATUS 00449 M01S00403.crmtask +++| SX7 FSTBL LENGTH OF BUFFER 00450 M01S00404.crmtask +++| RJ CST ISSUE *CRMSTAT* REQUEST 00451 M01S00405.crmtask +++| SX2 X2-1 00452 M01S00406.crmtask +++| SB2 ER0 *DATA BASE/FILE NAME UNKNOWN.* 00453 M01S00407.crmtask +++| ZR X2,CRS6 IF FILE NAME UNKNOWN 00454 M01S00408.crmtask +++| SB2 ER4 *INSUFICIENT FIELD LENGTH.* 00455 M01S00409.crmtask +++| PL X2,CRS6 IF BUFFER TOO SMALL 00456 M01S00410.crmtask +++| EQ FFD FORMAT DISPLAY 00457 M01S00411.crmtask +++| 00458 M01S00412.crmtask +++|* PROCESS ERRORS. 00459 M01S00413.crmtask +++| 00460 M01S00414.crmtask +++| CRS6 NZ X4,TTE IF TERMINAL ORIGIN 00461 M01S00415.crmtask +++| RJ SEM SET ERROR MESSAGE 00462 M01S00416.crmtask +++| EQ TPA DISPLAY ERROR MESSAGE 00463 M01S00417.crmtask +++| DBD SPACE 4,25 00464 M01S00418.crmtask +++|** DBD - DATA BASE DOWN. 00465 M01S00419.crmtask +++|* 00466 M01S00420.crmtask +++|* DBD ISSUES A REQUEST TO *AAMI* TO DOWN A DATA BASE OR DATA 00467 M01S00421.crmtask +++|* BASE FILE. 00468 M01S00422.crmtask +++|* 00469 M01S00423.crmtask +++|* ENTRY SECOND WORD OF DATA AREA OF COMMUNICATION BLOCK 00470 M01S00424.crmtask +++|* CONTAINS DATA BASE OR FILE NAME. 00471 M01S00425.crmtask +++|* 00472 M01S00426.crmtask +++|* EXIT TO *TPA*. (TAF ORIGIN). 00473 M01S00427.crmtask +++|* (X1) = ADDRESS OF *K-DISPLAY* CONTROL WORD. 00474 M01S00428.crmtask +++|* TO *TPD*. (TERMINAL ORIGIN). 00475 M01S00429.crmtask +++|* 00476 M01S00430.crmtask +++|* ERROR TO *TPA*. (TAF ORIGIN). 00477 M01S00431.crmtask +++|* (X1) = ADDRESS OF *K-DISPLAY* CONTROL WORD. 00478 M01S00432.crmtask +++|* TO *TTE*. (TERMINAL ORIGIN). 00479 M01S00433.crmtask +++|* (B2) = ERROR CODE. 00480 M01S00434.crmtask +++|* 00481 M01S00435.crmtask +++|* USES X - 1, 2, 6, 7. 00482 M01S00436.crmtask +++|* A - 1, 2, 6, 7. 00483 M01S00437.crmtask +++|* B - 2. 00484 M01S00438.crmtask +++|* 00485 M01S00439.crmtask +++|* CALLS SEM. 00486 M01S00440.crmtask +++|* 00487 M01S00441.crmtask +++|* MACROS DBDOWN. 00488 M01S00442.crmtask +++| 00489 M01S00443.crmtask +++| 00490 M01S00444.crmtask +++| DBD BSS 0 ENTRY 00491 M01S00022.241l630 +++| SX6 DMU 00492 M01S00023.241l630 +++| SA6 FPAG SET PROCESSOR ADDRESS 00493 M01S00024.241l630 +++| SA6 PAGE
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00494 M02S00445.241l630 ---| SX6 KDD *K-DISPLAY* CONTROL WORD
| Line S00446 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00495 M02S00446.241l630 ---| SX7 KDDA *K-DISPLAY* ERROR LINE 00496 M01S00025.241l630 +++| SX6 KDE *K-DISPLAY* CONTROL WORD 00497 M01S00026.241l630 +++| SX7 KDEA *K-DISPLAY* ERROR LINE 00498 M01S00447.crmtask +++| SA6 CWKD 00499 M01S00448.crmtask +++| SA7 EAKD 00500 M01S00027.241l630 +++| SX6 KDEB+1 *K-DISPLAY* INPUT LINE 00501 M01S00028.241l630 +++| SA6 IAKD 00502 M01S00449.crmtask +++| SX6 B0+ FORMATTED *K-DISPLAY* 00503 M01S00450.crmtask +++| SA6 DSTP 00504 M01S00451.crmtask +++| SA1 TMSW+1 DATA BASE OR FILE NAME 00505 M01S00452.crmtask +++| BX6 X1 00506 M01S00453.crmtask +++| BX7 X7-X7 00507 M01S00454.crmtask +++| SA6 PADR 00508 M01S00455.crmtask +++| SA7 A6+B1 CLEAR STATUS WORD 00509 M01S00456.crmtask +++| SA7 A7+B1 PARAMETER LIST TERMINATOR 00510 M01S00457.crmtask +++| DBDOWN CSQ2 ISSUE *AAMI* REQUEST 00511 M01S00458.crmtask +++| SA1 PADR+1 STATUS 00512 M01S00459.crmtask +++| SA2 ORIG 00513 M01S00460.crmtask +++| NZ X1,DBD1 IF ERROR 00514 M01S00461.crmtask +++| SB2 ER7 *REQUEST COMPLETE.* 00515 M01S00462.crmtask +++| NZ X2,TPD IF TERMINAL ORIGIN 00516 M01S00463.crmtask +++| RJ SEM 00517 M01S00464.crmtask +++| EQ TPA COMPLETE PROCESSING 00518 M01S00465.crmtask +++| 00519 M01S00466.crmtask +++| DBD1 SX6 X1-TERB 00520 M01S00467.crmtask +++| SB2 ER0 *DATA BASE/FILE NAME UNKNOWN.* 00521 M01S00468.crmtask +++| ZR X6,DBD2 IF NO FILE OR DATA BASE 00522 M01S00469.crmtask +++| SB2 ER3 *DATA BASE/FILE ALREADY DOWN OR IDLE.* 00523 M01S00470.crmtask +++| DBD2 NZ X2,TTE IF TERMINAL ORIGIN 00524 M01S00471.crmtask +++| RJ SEM SET ERROR MESSAGE 00525 M01S00472.crmtask +++| EQ TPA DISPLAY ERROR MESSAGE 00526 M01S00473.crmtask +++| DBU SPACE 4,25 00527 M01S00474.crmtask +++|** DBU - DATA BASE UP. 00528 M01S00475.crmtask +++|* 00529 M01S00476.crmtask +++|* DBU ISSUES A REQUEST TO *AAMI* TO UP A DATA BASE OR DATA BASE 00530 M01S00477.crmtask +++|* FILE. 00531 M01S00478.crmtask +++|* 00532 M01S00479.crmtask +++|* ENTRY SECOND WORD OF DATA AREA OF COMMUNICATION BLOCK 00533 M01S00480.crmtask +++|* CONTAINS DATA BASE OR FILE NAME. 00534 M01S00481.crmtask +++|* 00535 M01S00482.crmtask +++|* EXIT TO *TPA*. (TAF ORIGIN). 00536 M01S00483.crmtask +++|* (X1) = ADDRESS OF *K-DISPLAY* CONTROL WORD. 00537 M01S00484.crmtask +++|* TO *TPD*. (TERMINAL ORIGIN). 00538 M01S00485.crmtask +++|* 00539 M01S00486.crmtask +++|* ERROR TO *TPA*. (TAF ORIGIN). 00540 M01S00487.crmtask +++|* (X1) = ADDRESS OF *K-DISPLAY* CONTROL WORD. 00541 M01S00488.crmtask +++|* TO *TTE*. (TERMINAL ORIGIN). 00542 M01S00489.crmtask +++|* (B2) = ERROR CODE. 00543 M01S00490.crmtask +++|* 00544 M01S00491.crmtask +++|* USES X - 1, 2, 6, 7. 00545 M01S00492.crmtask +++|* A - 1, 2, 6, 7. 00546 M01S00493.crmtask +++|* B - 2. 00547 M01S00494.crmtask +++|* 00548 M01S00495.crmtask +++|* CALLS SEM. 00549 M01S00496.crmtask +++|* 00550 M01S00497.crmtask +++|* MACROS DBUP. 00551 M01S00498.crmtask +++| 00552 M01S00499.crmtask +++| 00553 M01S00500.crmtask +++| DBU BSS 0 ENTRY 00554 M01S00029.241l630 +++| SX6 DMU 00555 M01S00030.241l630 +++| SA6 FPAG SET PROCESSOR ADDRESS 00556 M01S00031.241l630 +++| SA6 PAGE
| Line S00501 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00557 M02S00501.241l630 ---| SX6 KDD *K-DISPLAY* CONTROL WORD
| Line S00502 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00558 M02S00502.241l630 ---| SX7 KDDA *K-DISPLAY* ERROR LINE 00559 M01S00032.241l630 +++| SX6 KDE *K-DISPLAY* CONTROL WORD 00560 M01S00033.241l630 +++| SX7 KDEA *K-DISPLAY* ERROR LINE 00561 M01S00503.crmtask +++| SA6 CWKD 00562 M01S00504.crmtask +++| SA7 EAKD 00563 M01S00034.241l630 +++| SX6 KDEB+1 *K-DISPLAY* INPUT LINE 00564 M01S00035.241l630 +++| SA6 IAKD 00565 M01S00505.crmtask +++| SX6 B0+ FORMATTED *K-DISPLAY* 00566 M01S00506.crmtask +++| SA6 DSTP 00567 M01S00507.crmtask +++| SA1 TMSW+1 DATA BASE OR FILE NAME 00568 M01S00508.crmtask +++| BX6 X1 00569 M01S00509.crmtask +++| BX7 X7-X7 00570 M01S00510.crmtask +++| SA6 PADR 00571 M01S00511.crmtask +++| SA7 A6+B1 CLEAR STATUS WORD 00572 M01S00512.crmtask +++| SA7 A7+B1 PARAMETER LIST TERMINATOR 00573 M01S00513.crmtask +++| DBUP CSQ2 ISSUE *AAMI* REQUEST 00574 M01S00514.crmtask +++| SA1 PADR+1 STATUS 00575 M01S00515.crmtask +++| SA2 ORIG 00576 M01S00516.crmtask +++| NZ X1,DBU1 IF ERROR 00577 M01S00517.crmtask +++| SB2 ER7 *REQUEST COMPLETE.* 00578 M01S00518.crmtask +++| NZ X2,TPD IF TERMINAL ORIGIN 00579 M01S00519.crmtask +++| RJ SEM 00580 M01S00520.crmtask +++| EQ TPA COMPLETE PROCESSING 00581 M01S00521.crmtask +++| 00582 M01S00522.crmtask +++| DBU1 SX6 X1-TERB 00583 M01S00523.crmtask +++| SB2 ER0 *DATA BASE/FILE NAME UNKNOWN.* 00584 M01S00524.crmtask +++| ZR X6,DBU2 IF NO FILE OR DATA BASE 00585 M01S00525.crmtask +++| SB2 ER1 *NOT ALL DATA BASE FILES UPPED.* 00586 M01S00526.crmtask +++| SX6 X1-TERAL 00587 M01S00527.crmtask +++| ZR X6,DBU2 IF NOT ALL FILES UP 00588 M01S00528.crmtask +++| SB2 ER2 *DATA BASE/FILE CANNOT BE UPPED.* 00589 M01S00529.crmtask +++| DBU2 NZ X2,TTE IF TERMINAL ORIGIN 00590 M01S00530.crmtask +++| RJ SEM SET ERROR MESSAGE 00591 M01S00531.crmtask +++| EQ TPA DISPLAY ERROR MESSAGE 00592 M01S00532.crmtask +++| DMU SPACE 4,25 00593 M01S00533.crmtask +++|** DMU - DISPLAY MENU. 00594 M01S00534.crmtask +++|* 00595 M01S00535.crmtask +++|* THIS SUBROUTINE DISPLAYS THE MENU OF *CRMTASK* 00596 M01S00536.crmtask +++|* COMMANDS UPON THE *K-DISPLAY*. IT CAN ONLY BE 00597 M01S00537.crmtask +++|* INVOKED BY *K-DISPLAY* COMMAND. NO PROVISIONS ARE 00598 M01S00538.crmtask +++|* MADE TO DISPLAY MENU AT THE TERMINAL. 00599 M01S00539.crmtask +++|* 00600 M01S00540.crmtask +++|* ENTRY NONE. 00601 M01S00541.crmtask +++|*
| Line S00542 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00602 M02S00542.241l630 ---|* EXIT TO *CVL*.
| Line S00543 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00603 M02S00543.241l630 ---|* (B3) = FWA OF VALID COMMAND TABLE. 00604 M01S00036.241l630 +++|* EXIT TO *TPA*. 00605 M01S00037.241l630 +++|* (X1) = *K-DISPLAY* CONTROL WORD. 00606 M01S00544.crmtask +++|* 00607 M01S00545.crmtask +++|* ERROR TO *TTE*, IF TERMINAL ORIGIN. 00608 M01S00546.crmtask +++|* (B2) =ERROR CODE. 00609 M01S00547.crmtask +++|* TO *IBR*, IF *SIC* REQUEST. 00610 M01S00548.crmtask +++|* (X3) = ERROR CODE. 00611 M01S00549.crmtask +++|*
| Line S00550 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00612 M02S00550.241l630 ---|* USES X - 1, 3, 6, 7. 00613 M01S00038.241l630 +++|* USES X - 1, 3, 4, 6, 7. 00614 M01S00551.crmtask +++|* A - 1, 6, 7. 00615 M01S00552.crmtask +++|* B - 2, 3. 00616 M01S00553.crmtask +++|* 00617 M01S00554.crmtask +++|* MACROS SYSTEM. 00618 M01S00555.crmtask +++| 00619 M01S00556.crmtask +++| 00620 M01S00557.crmtask +++| DMU BSS 0 ENTRY 00621 M01S00039.241l630 +++| SX6 DMU 00622 M01S00040.241l630 +++| SA6 FPAG SET PROCESSOR ADDRESS 00623 M01S00041.241l630 +++| SA6 PAGE 00624 M01S00558.crmtask +++| SX6 KDE *K-DISPLAY* CONTROL WORD 00625 M01S00559.crmtask +++| SX7 KDEA *K-DISPLAY* ERROR LINE 00626 M01S00560.crmtask +++| SA6 CWKD 00627 M01S00561.crmtask +++| SA7 EAKD 00628 M01S00042.241l630 +++| SX6 KDEB+1 *K-DISPLAY* INPUT LINE 00629 M01S00043.241l630 +++| SA6 IAKD 00630 M01S00562.crmtask +++| SX6 B0+ FORMATTED *K-DISPLAY* 00631 M01S00563.crmtask +++| SA6 DSTP 00632 M01S00564.crmtask +++| SA1 ORIG
| Line S00565 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00633 M02S00565.v23l617 ---| SB2 ER5 *INVALID COMMAND.* 00634 M01S00019.v23l617 +++| SB2 ER5 *INCORRECT COMMAND.* 00635 M01S00566.crmtask +++| SX1 X1-1 00636 M01S00567.crmtask +++| ZR X1,TTE IF TERMINAL ORIGIN
| Line S00568 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00637 M02S00568.v23l617 ---| SX3 B0+ *INVALID SIC REQUEST.* 00638 M01S00020.v23l617 +++| SX3 B0+ *INCORRECT SIC REQUEST.* 00639 M01S00569.crmtask +++| PL X1,IBR IF *BTRAN* REQUEST
| Line S00570 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00640 M02S00570.241l630 ---| SYSTEM CTI,,KDE,8
| Line S00571 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00641 M02S00571.241l630 ---| SB3 CVLB
| Line S00572 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00642 M02S00572.241l630 ---| EQ CVL WAIT FOR NEXT COMMAND 00643 M01S00044.241l630 +++| SX1 KDE *K-DISPLAY* CONTROL WORD 00644 M01S00045.241l630 +++| EQ TPA DISPLAY THE MENU 00645 M01S00573.crmtask +++| PBP SPACE 4,20 00646 M01S00574.crmtask +++|** PBP - PAGE BACKWARD PROCESSOR. 00647 M01S00575.crmtask +++|* 00648 M01S00576.crmtask +++|* PBP REPROCESSES THE *CRMSTAT* INFORMATION AGAIN. 00649 M01S00577.crmtask +++|* IT GETS THE FWA OF THE BUFFER AND ENTERS THE AP- 00650 M01S00578.crmtask +++|* PROPRIATE DISPLAY PROCESSOR. 00651 M01S00579.crmtask +++|* 00652 M01S00580.crmtask +++|* ENTRY (FPAG) = PROCESSOR ADDRESS. 00653 M01S00581.crmtask +++|* (BADR) = CONTAINS DATA RECEIVED FROM *AAMI*. 00654 M01S00582.crmtask +++|* 00655 M01S00583.crmtask +++|* EXIT TO (PAGE). 00656 M01S00584.crmtask +++|*
| Line S00585 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00657 M02S00585.241l630 ---|* ERROR TO *PSE*, IF (FPAG) = 0.
| Line S00586 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00658 M02S00586.241l630 ---|*
| Line S00587 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00659 M02S00587.241l630 ---|* 00660 M01S00588.crmtask +++|* USES X - 2. 00661 M01S00589.crmtask +++|* A - 2. 00662 M01S00590.crmtask +++|* B - 3. 00663 M01S00591.crmtask +++| 00664 M01S00592.crmtask +++| 00665 M01S00593.crmtask +++| PBP BSS 0 ENTRY 00666 M01S00594.crmtask +++| SA2 FPAG
| Line S00595 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00667 M02S00595.241l630 ---| ZR X2,PSE IF NO PROCESSOR ADDRESS 00668 M01S00596.crmtask +++| SB3 X2+ 00669 M01S00597.crmtask +++| JP B3 ENTER PROCESSOR 00670 M01S00598.crmtask +++| PFP SPACE 4,20 00671 M01S00599.crmtask +++|** PFP - PAGE FORWARD PROCESSOR. 00672 M01S00600.crmtask +++|* 00673 M01S00601.crmtask +++|* PFP GETS THE BUFFER ADDRESS FROM WHICH TO CONSTRUCT THE NEXT 00674 M01S00602.crmtask +++|* PAGE OF THE DISPLAY, AND RE-ENTERS THE DISPLAY PROCESSOR. 00675 M01S00603.crmtask +++|* 00676 M01S00604.crmtask +++|* ENTRY (PAGE) = PROCESSOR ADDRESS FOR REENTRY. 00677 M01S00605.crmtask +++|* (NPAG) = BUFFER ADDRESS OF DATA FOR DISPLAY. 00678 M01S00606.crmtask +++|* 00679 M01S00607.crmtask +++|* EXIT TO DISPLAY PROCESSOR WHOSE ADDRESS IS IN *PAGE*. 00680 M01S00608.crmtask +++|* (A5) = FWA OF BUFFER OF DISPLAY DATA. 00681 M01S00609.crmtask +++|* (X5) = CONTENTS OF A WORD AT (A5). 00682 M01S00610.crmtask +++|*
| Line S00611 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00683 M02S00611.241l630 ---|* ERROR TO *PSE* IF (PAGE) OR (NPAG) = 0.
| Line S00612 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00684 M02S00612.241l630 ---|* 00685 M01S00613.crmtask +++|* USES X - 1, 2, 5. 00686 M01S00614.crmtask +++|* A - 1, 2, 5. 00687 M01S00615.crmtask +++|* B - 3. 00688 M01S00616.crmtask +++| 00689 M01S00617.crmtask +++| 00690 M01S00618.crmtask +++| PFP BSS 0 ENTRY 00691 M01S00619.crmtask +++| SA1 NPAG 00692 M01S00620.crmtask +++| SA2 PAGE
| Line S00621 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00693 M02S00621.241l630 ---| ZR X2,PSE IF NO RE-ENTRY ADDRESS
| Line S00622 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00694 M02S00622.241l630 ---| ZR X1,PSE IF NO DATA TO PAGE FORWARD TO 00695 M01S00623.crmtask +++| SB3 X2 00696 M01S00624.crmtask +++| SA5 X1 00697 M01S00625.crmtask +++| JP B3 REENTER DISPLAY PROCESSOR 00698 M01S00626.crmtask +++| SIC SPACE 4,20 00699 M01S00627.crmtask +++|** SIC - PROCESS *CRMSIC* REQUEST. 00700 M01S00628.crmtask +++|* 00701 M01S00629.crmtask +++|* SIC REFORMATS THE INFORMATION FROM THE COMMUNICATION BLOCK 00702 M01S00630.crmtask +++|* INTO A PARAMETER BLOCK, AND ISSUES A *CRMSIC* REQUEST TO 00703 M01S00631.crmtask +++|* *AAMI*. 00704 M01S00632.crmtask +++|* 00705 M01S00633.crmtask +++|* ENTRY FIRST FOUR WORDS OF DATA AREA OF COMMUNICATION BLOCK 00706 M01S00634.crmtask +++|* CONTAIN INFORMATION TO BE STORED IN PARAMETER BLOCK. 00707 M01S00635.crmtask +++|* 00708 M01S00636.crmtask +++|* EXIT TO *TPD*. 00709 M01S00637.crmtask +++|* 00710 M01S00638.crmtask +++|* ERROR TO *IBR*. 00711 M01S00639.crmtask +++|* (X3) = ERROR CODE. 00712 M01S00640.crmtask +++|* 00713 M01S00641.crmtask +++|* USES X - 0, 1, 3, 6, 7. 00714 M01S00642.crmtask +++|* A - 1, 3, 6, 7. 00715 M01S00643.crmtask +++|* 00716 M01S00644.crmtask +++|* MACROS CRMSIC. 00717 M01S00645.crmtask +++| 00718 M01S00646.crmtask +++| 00719 M01S00647.crmtask +++| SIC BSS 0 ENTRY 00720 M01S00648.crmtask +++| SA1 TMSW+1 00721 M01S00649.crmtask +++| MX0 42 00722 M01S00650.crmtask +++| BX6 X0*X1 DATA BASE/FILE NAME 00723 M01S00651.crmtask +++| SA6 PADR 00724 M01S00652.crmtask +++| SX7 B0 00725 M01S00653.crmtask +++| SA7 A6+B1 CLEAR STATUS WORD 00726 M01S00654.crmtask +++| BX6 -X0*X1 BATCH JOB SEQUENCE NUMBER 00727 M01S00655.crmtask +++| SA6 A7+B1 00728 M01S00656.crmtask +++| SA1 A1+B1 FUNCTION CODE 00729 M01S00657.crmtask +++| BX6 X1 00730 M01S00658.crmtask +++| SA6 A6+B1 00731 M01S00659.crmtask +++| SA7 A6+B1 PARAMETER LIST TERMINATOR 00732 M01S00660.crmtask +++| CRMSIC CSQ3 ISSUE *AAMI* REQUEST 00733 M01S00661.crmtask +++| SA3 PADR+1 STATUS 00734 M01S00662.crmtask +++| ZR X3,TPD IF NO ERROR 00735 M01S00663.crmtask +++| SX6 X1-TERB 00736 M01S00664.crmtask +++| SX3 IER1 00737 M01S00665.crmtask +++| ZR X6,IBR IF UNKNOWN DATA BASE 00738 M01S00666.crmtask +++| SX3 IER2 00739 M01S00667.crmtask +++| SX6 X1-TERAD
| Line S00668 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00740 M02S00668.v23l617 ---| ZR X6,IBR IF INVALID TT NUMBER 00741 M01S00021.v23l617 +++| ZR X6,IBR IF INCORRECT TT NUMBER 00742 M01S00669.crmtask +++| SX3 IER3 00743 M01S00670.crmtask +++| SX6 X1-TERAK 00744 M01S00671.crmtask +++| ZR X6,IBR IF DATA BASE DOWNED BY OPERATOR 00745 M01S00672.crmtask +++| SX3 IER4 00746 M01S00673.crmtask +++| SX6 X1-TERAL 00747 M01S00674.crmtask +++| ZR X6,IBR IF NOT ALL FILE UP 00748 M01S00675.crmtask +++| SX3 IER5 00749 M01S00676.crmtask +++| SX6 X1-TERAM 00750 M01S00677.crmtask +++| ZR X6,IBR IF DATA BASE CANNOT BE UPPED 00751 M01S00678.crmtask +++| SX3 IER6 00752 M01S00679.crmtask +++| SX6 X1-TERAG 00753 M01S00680.crmtask +++| ZR X6,IBR IF DATA BASE IDLING DOWN 00754 M01S00681.crmtask +++| SX3 IER7 00755 M01S00682.crmtask +++| EQ IBR JOURNAL MESSAGE AND QUIT 00756 M01S00683.crmtask +++| CST SPACE 4,45 00757 M01S00684.crmtask +++|** CST - ISSUE *CRMSTAT* REQUEST. 00758 M01S00685.crmtask +++|* 00759 M01S00686.crmtask +++|* THIS SUBROUTINE REQUESTS *AAMI* STATUS. FUNCTION CODE IN X5 00760 M01S00687.crmtask +++|* DETERMINES WHAT IS RETURNED BY *AAMI*. 00761 M01S00688.crmtask +++|* 00762 M01S00689.crmtask +++|* FC = 0, *AAMI* RETURNS *TSEQ* TABLE, 00763 M01S00690.crmtask +++|* A WORD OF BINARY ZEROS, 00764 M01S00691.crmtask +++|* INPUT QUEUE FET, 00765 M01S00692.crmtask +++|* INPUT QUEUE, 00766 M01S00693.crmtask +++|* OUTPUT QUEUE FET, 00767 M01S00694.crmtask +++|* OUTPUT QUEUE, 00768 M01S00695.crmtask +++|* A WORD OF BINARY ZEROS. 00769 M01S00696.crmtask +++|* = 1, *AAMI* RETURNS ALL *TDRF* TABLES, 00770 M01S00697.crmtask +++|* A WORD OF BINARY ZEROS. 00771 M01S00698.crmtask +++|* = 2, *AAMI* RETURNS *TDRF* TABLE, 00772 M01S00699.crmtask +++|* A WORD OF BINARY ZEROS, 00773 M01S00700.crmtask +++|* *TARF* TABLE, 00774 M01S00701.crmtask +++|* A WORD OF BINARY ZEROS, 00775 M01S00702.crmtask +++|* ALL *TQRF* TABLES FOR 00776 M01S00703.crmtask +++|* THE SPECFIED DATA BASE, 00777 M01S00704.crmtask +++|* A WORD OF BINARY ZEROS. 00778 M01S00705.crmtask +++|* = 3, *AAMI* RETURNS ALL *TLNT* TABLES FOR 00779 M01S00706.crmtask +++|* THE SPECFIED DATA BASE, 00780 M01S00707.crmtask +++|* A WORD OF BINARY ZEROS. 00781 M01S00708.crmtask +++|* = 4, *AAMI* RETURNS *TLNT* TABLE, 00782 M01S00709.crmtask +++|* A WORD OF BINARY ZEROS, 00783 M01S00710.crmtask +++|* NUMBER OF ACTIVE USERS, 00784 M01S00711.crmtask +++|* NUMBER OF LOCKED RECORDS FOR 00785 M01S00712.crmtask +++|* THE SPECFIED DATA BASE FILE, 00786 M01S00713.crmtask +++|* A WORD OF BINARY ZEROS. 00787 M01S00714.crmtask +++|* 00788 M01S00715.crmtask +++|* ENTRY (X5) = FUNCTION CODE 00789 M01S00716.crmtask +++|* (X6) = FWA OF BUFFER 00790 M01S00717.crmtask +++|* (X7) = LENGTH OF BUFFER 00791 M01S00718.crmtask +++|* 00792 M01S00719.crmtask +++|* EXIT (X2) = STATUS REPLY 00793 M01S00720.crmtask +++|* 00794 M01S00721.crmtask +++|* USES X - 2, 6, 7. 00795 M01S00722.crmtask +++|* A - 2, 6, 7. 00796 M01S00723.crmtask +++|* 00797 M01S00724.crmtask +++|* MACROS CRMSTAT. 00798 M01S00725.crmtask +++| 00799 M01S00726.crmtask +++| 00800 M01S00727.crmtask +++| CST SUBR ENTRY/EXIT 00801 M01S00728.crmtask +++| SA7 PADR+2 00802 M01S00729.crmtask +++| SA6 CSQ1+2 00803 M01S00730.crmtask +++| BX6 X6-X6 00804 M01S00731.crmtask +++| SA6 A7-B1 00805 M01S00732.crmtask +++| BX6 X5 00806 M01S00733.crmtask +++| SA6 A6-B1 00807 M01S00734.crmtask +++| BX7 X7-X7 00808 M01S00735.crmtask +++| SA7 A7+B1 PARAMETER LIST TERMINATOR 00809 M01S00736.crmtask +++| CRMSTAT CSQ1 ISSUE *AAMI* REQUEST 00810 M01S00737.crmtask +++| SA2 PADR+1 STATUS WORD 00811 M01S00738.crmtask +++| EQ CSTX RETURN 00812 M01S00739.crmtask +++| FCD SPACE 4,20 00813 M01S00740.crmtask +++|** FCD - FORMAT CRMSTAT DISPLAY. 00814 M01S00741.crmtask +++|* 00815 M01S00742.crmtask +++|* FCD EXTRACTS RAW DATA FROM THE *TSEQ*, *AMIQ*, *AMOQ*, *TDRF* 00816 M01S00743.crmtask +++|* TABLES AND FORMATS A *K-DISPLAY*. 00817 M01S00744.crmtask +++|* 00818 M01S00745.crmtask +++|* ENTRY BADR = FWA OF TABLES. 00819 M01S00746.crmtask +++|* 00820 M01S00747.crmtask +++|* REENTRY AT *FCD5*. 00821 M01S00748.crmtask +++|* (A5) = FWA OF NEXT *TDRF*. 00822 M01S00749.crmtask +++|* (X5) = FIRST WORD OF *TDRF*. 00823 M01S00750.crmtask +++|* 00824 M01S00751.crmtask +++|* EXIT TO *TPA*. 00825 M01S00752.crmtask +++|* 00826 M01S00753.crmtask +++|* USES X - ALL. 00827 M01S00754.crmtask +++|* A - 1, 2, 3, 4, 5, 6, 7. 00828 M01S00755.crmtask +++|* B - 2, 3, 4, 6. 00829 M01S00756.crmtask +++|* 00830 M01S00757.crmtask +++|* CALLS CDD. 00831 M01S00758.crmtask +++| 00832 M01S00759.crmtask +++| 00833 M01S00760.crmtask +++| FCD BSS 0 ENTRY 00834 M01S00761.crmtask +++| SX6 FCD 00835 M01S00762.crmtask +++| SA6 FPAG SET PROCESSOR ADDRESS 00836 M01S00046.241l630 +++| SA6 PAGE 00837 M01S00763.crmtask +++| SX6 KDA *K-DISPLAY* CONTROL WORD 00838 M01S00764.crmtask +++| SX7 KDAF *K-DISPLAY* ERROR LINE 00839 M01S00765.crmtask +++| SA6 CWKD 00840 M01S00766.crmtask +++| SA7 EAKD 00841 M01S00047.241l630 +++| SX6 KDAG+1 *K-DISPLAY* INPUT LINE 00842 M01S00048.241l630 +++| SA6 IAKD
| Line S00767 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00843 M02S00767.241l630 ---| SX6 B0+ FORMATTED *K-DISPLAY* 00844 M01S00049.241l630 +++| SX6 B0 FORMATTED *K-DISPLAY* 00845 M01S00050.241l630 +++| SX1 B0 INITIALIZE COUNT OF ACTIVE TRANSACTIONS 00846 M01S00768.crmtask +++| SA6 DSTP 00847 M01S00769.crmtask +++| SB2 TSEQE LENGTH OF *TSEQ* TABLE ENTRY
| Line S00770 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00848 M02S00770.241l630 ---| SX1 B0+ INITIALIZE COUNT OF ACTIVE TRANSACTIONS 00849 M01S00771.crmtask +++| SB3 CMDM*RMDM+1 NO OF ENTRIES 00850 M01S00772.crmtask +++| SA5 BADR-TSEQE 00851 M01S00773.crmtask +++| FCD1 SB3 B3-B1 00852 M01S00774.crmtask +++| LT B3,FCD2 IF ALL ENTRIES CHECKED 00853 M01S00775.crmtask +++| SA5 A5+B2 NEXT ENTRY 00854 M01S00776.crmtask +++| ZR X5,FCD1 IF EMPTY 00855 M01S00777.crmtask +++| SX1 X1+1 INCREMENT ACTIVE COUNT 00856 M01S00778.crmtask +++| EQ FCD1 NEXT ENTRY 00857 M01S00779.crmtask +++| 00858 M01S00780.crmtask +++| FCD2 RJ CDD CONVERT TO DECIMAL DISPLAY
| Line S00781 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00859 M02S00781.241l630 ---| SA1 KDAB
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00860 M02S00782.241l630 ---| MX0 24
| Line S00783 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00861 M02S00783.241l630 ---| BX2 X0*X1 RETAIN *DSD* COORDINATES
| Line S00784 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00862 M02S00784.241l630 ---| BX6 -X0*X6 REMOVE LEADING 4 BLANKS FROM COUNT
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00863 M02S00785.241l630 ---| BX6 X2+X6
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00864 M02S00786.241l630 ---| SA6 A1+ STORE IN DISPLAY BUFFER 00865 M01S00051.241l630 +++| SA6 KDAB+1 STORE IN DISPLAY BUFFER 00866 M01S00787.crmtask +++| SA5 A5+TSEQE+1 SKIP LAST ENTRY AND THE ZERO WORD 00867 M01S00788.crmtask +++| SA1 A5+B1 GET *AMIQ* FET POINTERS 00868 M01S00789.crmtask +++| SX1 X1 FIRST 00869 M01S00790.crmtask +++| SA2 A1+B1 IN 00870 M01S00791.crmtask +++| SA3 A2+B1 OUT 00871 M01S00792.crmtask +++| SA4 A3+1 00872 M01S00793.crmtask +++| SX4 X4 LIMIT 00873 M01S00794.crmtask +++| IX6 X2-X3 IN-OUT 00874 M01S00795.crmtask +++| PL X6,FCD3 IF IN .GE. OUT 00875 M01S00796.crmtask +++| IX3 X4-X3 LIMIT-OUT 00876 M01S00797.crmtask +++| IX2 X2-X1 IN-FIRST 00877 M01S00798.crmtask +++| IX6 X2+X3 REQUESTS IN *AMIQ* 00878 M01S00799.crmtask +++| FCD3 BX1 X6 00879 M01S00052.241l630 +++| MX0 24 00880 M01S00800.crmtask +++| RJ CDD CONVERT TO DECIMAL DISPLAY
| Line S00801 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00881 M02S00801.241l630 ---| SA1 KDAA
| Line S00802 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00882 M02S00802.241l630 ---| BX2 X0*X1 RETAIN *DSD* CO-ORDINATES
| Line S00803 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00883 M02S00803.241l630 ---| BX6 -X0*X6 REMOVE LEADING 4 BLANKS FROM COUNT 00884 M01S00053.241l630 +++| SA1 KDAA NUMBER OF TRANSACTIONS IN INPUT QUEUE 00885 M01S00054.241l630 +++| BX2 X0*X1 EXTRACT *KDL* COORDINATES 00886 M01S00055.241l630 +++| BX6 -X0*X6 00887 M01S00804.crmtask +++| BX6 X2+X6
| Line S00805 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00888 M02S00805.241l630 ---| SA6 A1 STORE IN DISPLAY BUFFER 00889 M01S00056.241l630 +++| SA6 A1 STORE IN DISPLAY BUFFER 00890 M01S00806.crmtask +++| SA5 A5+AAMQFL+AIBFL GET *AMOQ* FET POINTERS
| Line S00807 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00891 M02S00807.241l630 ---| SA2 A5+1 00892 M01S00057.241l630 +++| SA2 A5+B1 00893 M01S00808.crmtask +++| SX2 X2 FIRST 00894 M01S00809.crmtask +++| SA3 A2+B1 IN
| Line S00810 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00895 M02S00810.241l630 ---| SA4 A3+1 OUT
| Line S00811 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00896 M02S00811.241l630 ---| SA1 A4+1 00897 M01S00058.241l630 +++| SA4 A3+B1 OUT 00898 M01S00059.241l630 +++| SA1 A4+B1 00899 M01S00812.crmtask +++| SX1 X1 LIMIT 00900 M01S00813.crmtask +++| IX6 X3-X4 00901 M01S00060.241l630 +++| IX4 X1-X4 LIMIT-OUT 00902 M01S00814.crmtask +++| PL X6,FCD4 IF IN .GE. OUT
| Line S00815 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00815.241l630 ---| IX4 X1-X4 LIMIT-OUT 00904 M01S00816.crmtask +++| IX3 X3-X2 IN - FIRST 00905 M01S00817.crmtask +++| IX6 X3+X4 REQUESTS IN *AMOQ* 00906 M01S00818.crmtask +++| FCD4 BX1 X6 00907 M01S00819.crmtask +++| RJ CDD CONVERT TO DECIMAL DISPLAY
| Line S00820 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00908 M02S00820.241l630 ---| SA1 KDAC
| Line S00821 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00909 M02S00821.241l630 ---| BX2 X0*X1 RETAIN *DSD* CO-ORDINATES
| Line S00822 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00910 M02S00822.241l630 ---| BX6 -X0*X6 REMOVE LEADING 4 BLANKS FROM COUNT 00911 M01S00061.241l630 +++| SA1 KDAC NUMBER OF TRANSACTIONS IN OUTPUT QUEUE 00912 M01S00062.241l630 +++| BX2 X0*X1 EXTRACT *KDL* COORDINATES 00913 M01S00063.241l630 +++| BX6 -X0*X6 00914 M01S00823.crmtask +++| BX6 X2+X6 00915 M01S00824.crmtask +++| SA6 A1 STORE IN DISPLAY 00916 M01S00825.crmtask +++| SA5 A5+AAMQFL+AOBFL+1 POSITION TO FIRST *TDRF* 00917 M01S00826.crmtask +++| 00918 M01S00827.crmtask +++|* REENTRY POINT. 00919 M01S00828.crmtask +++|* 00920 M01S00829.crmtask +++|* ENTRY (A5) = ADDRESS OF THE NEXT *TDRF* TO DISPLAY. 00921 M01S00830.crmtask +++|* (X5) = FIRST WORD OF THE NEXT *TDRF* TO DISPLAY. 00922 M01S00831.crmtask +++| 00923 M01S00832.crmtask +++| FCD5 SB3 3 DATA BASES PER DISPLAY LINE 00924 M01S00833.crmtask +++| SA4 KDAD-2
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00925 M02S00834.241l630 ---| SB4 23 NUMBER OF LINES PER DISPLAY 00926 M01S00064.241l630 +++| SB4 10 NUMBER OF LINES PER DISPLAY 00927 M01S00835.crmtask +++| SA3 A4+1 *KDAD*-1 00928 M01S00836.crmtask +++| BX6 X3 00929 M01S00837.crmtask +++| MX0 TDIDN 00930 M01S00838.crmtask +++| SA6 A3+ IN CASE OF NO DATA BASES 00931 M01S00839.crmtask +++| FCD6 ZR X5,FCD9 IF NO DATA BASES 00932 M01S00840.crmtask +++| SA3 A5+TDODW 00933 M01S00841.crmtask +++| SA4 A4+2 ADDRESS IN DISPLAY BUFFER 00934 M01S00842.crmtask +++| SA2 A5+TDIDW 00935 M01S00843.crmtask +++| BX6 X0*X2
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00936 M02S00844.241l630 ---| LX4 59-23 00937 M01S00065.241l630 +++| LX4 59-35 00938 M01S00845.crmtask +++| SA1 A5+TDSDW 00939 M01S00846.crmtask +++| BX4 -X0*X4 00940 M01S00847.crmtask +++| BX6 X4+X6 INSERT DATA BASE NAME INTO THE LINE
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00848.241l630 ---| LX6 23-59 00942 M01S00066.241l630 +++| LX6 35-59 00943 M01S00849.crmtask +++| SA6 A4 00944 M01S00850.crmtask +++| LX3 59-TDODS 00945 M01S00851.crmtask +++| SB6 B0 INITIALIZE STATUS = UP 00946 M01S00852.crmtask +++| NG X1,FCD7 IF DATA BASE DOWN 00947 M01S00853.crmtask +++| LX1 TDSDS-TDSIS 00948 M01S00854.crmtask +++| PL X1,FCD8 IF NOT IDLE 00949 M01S00855.crmtask +++| SB6 B1 STATUS = IDLE 00950 M01S00856.crmtask +++| EQ FCD8 SET STATUS IN DISPLAY 00951 M01S00857.crmtask +++| 00952 M01S00858.crmtask +++| FCD7 SB6 B1+B1 STATUS = DOWN 00953 M01S00859.crmtask +++| PL X3,FCD8 IF NOT OPERATOR DOWN 00954 M01S00860.crmtask +++| SB6 B6+B1 STATUS = OPERATOR DOWN 00955 M01S00861.crmtask +++| FCD8 SA3 FCDA+B6 GET STATUS 00956 M01S00862.crmtask +++| BX6 X3 00957 M01S00863.crmtask +++| SA6 A6+B1 STORE IN DISPLAY BUFFER 00958 M01S00864.crmtask +++| SB3 B3-1 00959 M01S00865.crmtask +++| SA5 A5+TDRFE NEXT *TDRF* 00960 M01S00866.crmtask +++| NE B3,FCD6 IF MORE TO GO IN THIS LINE 00961 M01S00867.crmtask +++| SB3 3 00962 M01S00868.crmtask +++| SB4 B4-1 DECREMENT LINE COUNT 00963 M01S00869.crmtask +++| NE B4,FCD6 IF DISPLAY NOT FULL
| Line S00870 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00964 M02S00870.241l630 ---| SB3 6 DATA WORDS PER DISPLAY LINE 00965 M01S00871.crmtask +++| ZR X5,FCD9 IF ALL DATA BASES DISPLAYED 00966 M01S00872.crmtask +++| SA2 MORE 00967 M01S00873.crmtask +++| BX6 X2 00968 M01S00874.crmtask +++| SX7 A5 00969 M01S00875.crmtask +++| SA6 KDAE+1 INDICATE MORE TO BE DISPLAYED 00970 M01S00876.crmtask +++| SA7 NPAG SAVE FWA FOR NEXT PAGE 00971 M01S00877.crmtask +++| SX7 FCD5 00972 M01S00878.crmtask +++| SA7 PAGE SAVE RESTART ADDRESS FOR PAGING 00973 M01S00879.crmtask +++| SX1 KDA ADDRESS OF K-DISPLAY CONTROL WORD 00974 M01S00880.crmtask +++| EQ TPA GO TO TERMINATION PROCESSOR 00975 M01S00881.crmtask +++| 00976 M01S00882.crmtask +++| FCD9 SA2 BLNK BLANK OUT UNUSED PART OF DISPLAY
| Line S00883 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00977 M02S00883.241l630 ---| BX7 X7-X7 00978 M01S00067.241l630 +++| SX7 FCD 00979 M01S00068.241l630 +++| SA7 PAGE ALLOW FORWARD PAGING TO ROLL BACK 00980 M01S00069.241l630 +++| SX4 B3+ 00981 M01S00884.crmtask +++| MX0 24
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00982 M02S00885.241l630 ---| SX4 B3
| Line S00886 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00983 M02S00886.241l630 ---| SA7 NPAG SET NO FORWARD PAGING 00984 M01S00887.crmtask +++| LX4 1 CONVERT DATA BASES/LINE TO WORDS/LINE 00985 M01S00888.crmtask +++| SX1 KDA *K-DISPLAY* CONTROL WORD 00986 M01S00889.crmtask +++| SB3 X4+ 00987 M01S00070.241l630 +++| SB4 B4+1 BLANK OUT *MORE* LINE 00988 M01S00890.crmtask +++| FCD10 EQ B4,TPA IF ALL LINES BLANKED 00989 M01S00891.crmtask +++| SB6 B3-6 00990 M01S00892.crmtask +++| NE B6,FCD11 IF NOT FIRST WORD OF DISPLAY LINE 00991 M01S00893.crmtask +++| SA4 A6+B1 00992 M01S00894.crmtask +++| BX6 X0*X4 RETAIN *DSD* CO-ORDINATES 00993 M01S00895.crmtask +++| BX3 -X0*X2 00994 M01S00896.crmtask +++| BX6 X6+X3 00995 M01S00897.crmtask +++| SA6 A4+ 00996 M01S00898.crmtask +++| EQ FCD12 CONTINUE WITH THE NEXT WORD 00997 M01S00899.crmtask +++| 00998 M01S00900.crmtask +++| FCD11 BX6 X2 00999 M01S00901.crmtask +++| SA6 A6+1 01000 M01S00902.crmtask +++| FCD12 SB3 B3-B1 01001 M01S00903.crmtask +++| NE B3,FCD10 IF MORE WORDS IN LINE 01002 M01S00904.crmtask +++| SB4 B4-B1 DECREMENT LINE COUNT 01003 M01S00905.crmtask +++| SB3 6 WORDS PER DISPLAY LINE 01004 M01S00906.crmtask +++| EQ FCD10 BLANK NEXT WORD 01005 M01S00907.crmtask +++| 01006 M01S00908.crmtask +++|* TABLE OF DATA BASE STATUSES. 01007 M01S00909.crmtask +++| 01008 M01S00910.crmtask +++| FCDA BSS 0 01009 M01S00911.crmtask +++| LOC 0
| Line S00912 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01010 M02S00912.241l630 ---| DATA 10H UP
| Line S00913 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01011 M02S00913.241l630 ---| DATA 10H IDLE
| Line S00914 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01012 M02S00914.241l630 ---| DATA 10H DOWN
| Line S00915 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01013 M02S00915.241l630 ---| DATA 10H OP-DOWN 01014 M01S00071.241l630 +++| DATA 10H UP 01015 M01S00072.241l630 +++| DATA 10H IDLE 01016 M01S00073.241l630 +++| DATA 10H DOWN 01017 M01S00074.241l630 +++| DATA 10H OP-DOWN 01018 M01S00916.crmtask +++| LOC *O 01019 M01S00917.crmtask +++| FDD SPACE 4,30
| Line S00918 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01020 M02S00918.241l630 ---|** FDD - FORMAT DATA BASE DISPLAY 01021 M01S00075.241l630 +++|** FDD - FORMAT DATA BASE DISPLAY. 01022 M01S00919.crmtask +++|* 01023 M01S00920.crmtask +++|* FDD EXTRACTS RAW DATA FROM THE *TDRF*, *TARF*, *TQRF* TABLES 01024 M01S00921.crmtask +++|* AND FORMATS A DATA BASE STATUS DISPLAY SUITABLE FOR THE 01025 M01S00922.crmtask +++|* OPERATOR CONSOLE OR USER TERMINAL. IF THE DISPLAY IS TO 01026 M01S00923.crmtask +++|* BE SENT TO A TERMINAL, DISPLAY LINES MAY ROLL OFF 01027 M01S00924.crmtask +++|* THE TOP OF THE SCREEN. DUE TO THE LARGE NUMBER OF 01028 M01S00925.crmtask +++|* TERMINAL TYPES, NO ATTEMPT IS MADE TO PREVENT THIS. 01029 M01S00926.crmtask +++|* 01030 M01S00927.crmtask +++|* ENTRY BADR = FWA OF TABLES. 01031 M01S00928.crmtask +++|*
| Line S00929 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01032 M02S00929.241l630 ---|* REENTRY AT *FDD9*. 01033 M01S00076.241l630 +++|* RE-ENTRY AT *FDD4*, *FDD14*, AND *FDD15*. 01034 M01S00930.crmtask +++|* (A5) = FWA OF NEXT *TLNT*. 01035 M01S00931.crmtask +++|* (X5) = FIRST WORD OF *TLNT*. 01036 M01S00932.crmtask +++|* 01037 M01S00933.crmtask +++|* EXIT TO *TPA* IF TAF ORIGIN. 01038 M01S00934.crmtask +++|* (X1) = ADDRESS OF K-DISPLAY CONTROL WORD. 01039 M01S00935.crmtask +++|* TO *TPB* IF TERMINAL ORIGIN. 01040 M01S00936.crmtask +++|* (X1) = FWA OF SEND BUFFER. 01041 M01S00937.crmtask +++|* (X5) = NUMBER OF WORDS TO SEND. 01042 M01S00938.crmtask +++|* 01043 M01S00939.crmtask +++|* USES X - ALL.
| Line S00940 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01044 M02S00940.241l630 ---|* A - 1, 2, 3, 5, 6, 7.
| Line S00941 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01045 M02S00941.241l630 ---|* B - 3, 4, 5, 6. 01046 M01S00077.241l630 +++|* A - ALL. 01047 M01S00078.241l630 +++|* B - ALL. 01048 M01S00942.crmtask +++|* 01049 M01S00943.crmtask +++|* CALLS CDD, SFN. 01050 M01S00944.crmtask +++|* 01051 M01S00945.crmtask +++|* MACROS MOVE. 01052 M01S00946.crmtask +++| 01053 M01S00947.crmtask +++| 01054 M01S00948.crmtask +++| FDD BSS 0 ENTRY 01055 M01S00949.crmtask +++| SX6 FDD 01056 M01S00950.crmtask +++| SA6 FPAG SET PROCESSOR ADDRESS 01057 M01S00079.241l630 +++| SA6 PAGE 01058 M01S00951.crmtask +++| SX6 KDB *K-DISPLAY* CONTROL WORD
| Line S00952 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01059 M02S00952.241l630 ---| SX7 KDBF *K-DISPLAY* ERROR LINE 01060 M01S00080.241l630 +++| SX7 KDBD *K-DISPLAY* ERROR LINE 01061 M01S00953.crmtask +++| SA6 CWKD 01062 M01S00954.crmtask +++| SA7 EAKD 01063 M01S00081.241l630 +++| SX6 KDBE *K-DISPLAY* INPUT LINE 01064 M01S00082.241l630 +++| SA6 IAKD 01065 M01S00083.241l630 +++| SX6 B1+ -C- FORMAT DISPLAY
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01066 M02S00955.241l630 ---| SX6 B1+ -C- FORMAT DISPLAY 01067 M01S00956.crmtask +++| SA6 DSTP 01068 M01S00957.crmtask +++| SA1 BADR+TDSDW 01069 M01S00958.crmtask +++| SA2 BADR+TDIDW 01070 M01S00959.crmtask +++| MX0 12 01071 M01S00960.crmtask +++| BX4 X0*X2 DATA BASE NAME 01072 M01S00961.crmtask +++| LX4 -12 01073 M01S00962.crmtask +++| LX0 -12
| Line S00963 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01074 M02S00963.241l630 ---| SA3 KDBB+1 01075 M01S00084.241l630 +++| SA3 KDBG+2 01076 M01S00964.crmtask +++| BX6 -X0*X3 MASK OUT ANY PREVIOUS NAME 01077 M01S00965.crmtask +++| BX6 X6+X4 MERGE IN CURRENT NAME
| Line S00966 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01078 M02S00966.241l630 ---| SA6 A3 STORE IN DISPLAY BUFFER 01079 M01S00085.241l630 +++| SA6 A3 STORE IN DATA BASE STATUS HEADING 01080 M01S00967.crmtask +++| SB6 B0 PRESET STATUS = UP 01081 M01S00968.crmtask +++| NG X1,FDD1 IF FILE DOWN 01082 M01S00969.crmtask +++| LX1 TDSDS-TDSIS 01083 M01S00970.crmtask +++| PL X1,FDD2 IF NOT IDLE
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01084 M02S00971.241l630 ---| SB6 B1 SET STATUS = IDLE 01085 M01S00086.241l630 +++| SB6 B1+ SET STATUS = IDLE 01086 M01S00972.crmtask +++| EQ FDD2 STORE STATUS 01087 M01S00973.crmtask +++| 01088 M01S00974.crmtask +++| FDD1 SA2 BADR+TDODW OPERATOR DOWN INDICATOR 01089 M01S00975.crmtask +++| SB6 B1+B1 01090 M01S00976.crmtask +++| LX2 59-TDODS 01091 M01S00977.crmtask +++| PL X2,FDD2 IF NOT OPERATOR DOWN 01092 M01S00978.crmtask +++| SB6 3 01093 M01S00979.crmtask +++| FDD2 SA3 FDDE+B6 GET STATUS MESSAGE
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01094 M02S00980.241l630 ---| BX6 X3
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01095 M02S00981.241l630 ---| SA6 KDBB+5 STORE IN DISPLAY BUFFER 01096 M01S00087.241l630 +++| LX3 6 01097 M01S00088.241l630 +++| SX6 1R=&1R 01098 M01S00089.241l630 +++| LX6 54 01099 M01S00090.241l630 +++| BX6 X6-X3 01100 M01S00091.241l630 +++| SA6 KDBH+2 STORE IN DATA BASE STATUS HEADING 01101 M01S00982.crmtask +++| SA1 BADR+TDRFE+1
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01102 M02S00983.241l630 ---| NZ X1,FDD3 IF LONG RECOVERY FILE EXISTS 01103 M01S00092.241l630 +++| NZ X1,FDD3 IF AFTER IMAGE RECOVERY FILE EXISTS 01104 M01S00984.crmtask +++| SA2 BLNK 01105 M01S00985.crmtask +++| SA1 A1+B1 FWA OF FIRST *TLNT* 01106 M01S00986.crmtask +++| BX6 X2
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01107 M02S00987.241l630 ---| SA6 KDBC+2 BLANK OUT LONG RECOVERY FILE NAME
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S00988.241l630 ---| SA6 KDBC+5 AND PRU-S REMAINING 01109 M01S00093.241l630 +++| SA6 KDBG+5 BLANK OUT AFTER IMAGE RECOVERY FILE NAME 01110 M01S00094.241l630 +++| SA6 KDBH+5 AND PRU-S REMAINING 01111 M01S00095.241l630 +++| MOVE KDBFW,KDBF,KDBA STORE DATA BASE STATUS HEADING 01112 M01S00989.crmtask +++| SA5 BADR+DST1L+TLFNW FWA OF 1ST *TLNT* FILE NAME
| Line S00990 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01113 M02S00990.241l630 ---| EQ FDD9 FORMAT FILE LIST 01114 M01S00096.241l630 +++| EQ FDD13 FORMAT FILE LIST 01115 M01S00991.crmtask +++| 01116 M01S00992.crmtask +++| FDD3 SA1 A1+TAFFW 01117 M01S00993.crmtask +++| MX0 42
| Line S00994 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01118 M02S00994.241l630 ---| BX1 X0*X1 LONG RECOVERY FILE NAME 01119 M01S00097.241l630 +++| BX1 X0*X1 AFTER IMAGE RECOVERY FILE NAME 01120 M01S00995.crmtask +++| SA2 FDDD 01121 M01S00996.crmtask +++| BX6 X1+X2 PAD NAME WITH BLANKS 01122 M01S00997.crmtask +++| LX6 -6 01123 M01S00998.crmtask +++| MX0 TACPN
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01124 M02S00999.241l630 ---| SA6 KDBC+2 STORE IN DISPLAY BUFFER 01125 M01S00098.241l630 +++| SA6 KDBG+5 STORE IN DATA BASE STATUS HEADING 01126 M01S01000.crmtask +++| SA1 BADR+TDRFE+1+TACPW 01127 M01S01001.crmtask +++| LX1 59-TACPS 01128 M01S01002.crmtask +++| BX1 X0*X1 01129 M01S01003.crmtask +++| LX1 TACPN 01130 M01S01004.crmtask +++| RJ CDD CONVERT UNUSED PRU COUNT 01131 M01S01005.crmtask +++| BX6 X4 01132 M01S00099.241l630 +++| LX6 -6 01133 M01S01006.crmtask +++| MX0 TQFFN
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01134 M02S01007.241l630 ---| SA6 KDBC+5 STORE IN DISPLAY BUFFER 01135 M01S00100.241l630 +++| SA6 KDBH+5 STORE IN DATA BASE STATUS HEADING 01136 M01S00101.241l630 +++| MOVE KDBFW,KDBF,KDBA STORE DATA BASE STATUS HEADING 01137 M01S00102.241l630 +++| MOVE KDBIW,KDBI,KDBB STORE BEFORE IMAGE FILE HEADER
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01138 M02S01008.241l630 ---| SA1 A1+TARFE-TACPW+1 01139 M01S00103.241l630 +++| SA5 A1+TARFE-TACPW+1
| Line S01009 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01140 M02S01009.241l630 ---| SB3 6 NUMBER OF FILES PER DISPLAY LINE
| Line S01010 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01141 M03S01010.241l630 ---| SB4 19 NUMBER OF DISPLAY LINES
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01142 M02S00022.241l630 ---| SB4 KFNL-3 NUMBER OF DISPLAY LINES
| Line S01011 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01143 M02S01011.241l630 ---| SX6 1R 01144 M01S00104.241l630 +++| SB4 KFNL-KDBFL-KDBIL NUMBER OF DISPLAY LINES 01145 M01S00105.241l630 +++| SX6 1R
| Line S01012 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01146 M02S01012.241l630 ---| LX6 54 01147 M01S00106.241l630 +++| LX6 59-5
| Line S01013 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01148 M02S01013.241l630 ---| SA6 KDBD 01149 M01S00107.241l630 +++| SA6 KDBB+KDBIW-1 01150 M01S00108.241l630 +++| EQ FDD5 DISPLAY *BRF-S* 01151 M01S00109.241l630 +++| 01152 M01S00110.241l630 +++|* RE-ENTRY POINT. 01153 M01S00111.241l630 +++|* 01154 M01S00112.241l630 +++|* ENTRY (A5) = ADDRESS OF THE NEXT *TLNT* TO DISPLAY. 01155 M01S00113.241l630 +++|* (X5) = FIRST WORD OF THE NEXT *TLNT* TO DISPLAY. 01156 M01S00114.241l630 +++| 01157 M01S00115.241l630 +++| FDD4 MOVE KDBKW,KDBK,KDBA STORE FILE AND STATUS SUB-HEADING 01158 M01S00116.241l630 +++| SX6 1R 01159 M01S00117.241l630 +++| LX6 59-5 01160 M01S00118.241l630 +++| SA6 KDBA+KDBKW-1 01161 M01S00119.241l630 +++| SB4 KFNL-KDBKL NUMBER OF DISPLAY LINES
| Line S01014 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01162 M02S01014.241l630 ---| FDD4 SA1 A1+TQSTW *QRF* STATUS WORD
| Line S01015 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S01015.241l630 ---| SA2 A1+TQFFW-TQSTW *QRF* FILE NAME 01164 M01S00120.241l630 +++| FDD5 SB3 6 NUMBER OF WORDS PER DISPLAY LINE 01165 M01S00121.241l630 +++| FDD6 SA5 A5+TQSTW *BRF* STATUS WORD 01166 M01S00122.241l630 +++| SA2 A5+TQFFW-TQSTW *BRF* FILE NAME 01167 M01S00123.241l630 +++| MX0 TQFFN
| Line S01016 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01168 M02S01016.241l630 ---| BX2 X0*X2 01169 M01S00124.241l630 +++| BX1 X0*X2 01170 M01S00125.241l630 +++| RJ SFN 01171 M01S00126.241l630 +++| LX6 41-59 01172 M01S00127.241l630 +++| SA6 A6+B1 STORE *BRF* FILE NAME 01173 M01S01017.crmtask +++| SA3 FDDA STATUS = UP
| Line S01018 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01174 M02S01018.241l630 ---| PL X1,FDD5 IF *QRF* UP 01175 M01S00128.241l630 +++| PL X5,FDD7 IF *BRF* UP 01176 M01S01019.crmtask +++| SA3 FDDB STATUS = DOWN
| Line S01020 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01177 M02S01020.241l630 ---| FDD5 BX6 X2+X3
| Line S01021 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01178 M02S01021.241l630 ---| SA6 A6+B1 STORE IN DISPLAY 01179 M01S00129.241l630 +++| FDD7 BX6 X3 01180 M01S00130.241l630 +++| SA6 A6+B1 STORE STATUS
| Line S01022 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01181 M02S01022.241l630 ---| SB3 B3-1 DECREMENT COUNT 01182 M01S00131.241l630 +++| SB3 B3-2 DECREMENT COUNT
| Line S01023 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01183 M02S01023.241l630 ---| SA1 A1+TQRFE-TQSTW NEXT *QRF*
| Line S01024 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01184 M02S01024.241l630 ---| ZR X1,FDD6 IF NO MORE *QRF-S*
| Line S01025 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01185 M02S01025.241l630 ---| NE B3,FDD4 IF MORE *QRF-S* THIS DISPLAY LINE 01186 M01S00132.241l630 +++| SA5 A5+TQRFE-TQSTW NEXT *BRF* 01187 M01S00133.241l630 +++| ZR X5,FDD8 IF NO MORE *BRF-S* 01188 M01S00134.241l630 +++| NE B3,FDD6 IF MORE *BRF-S* THIS DISPLAY LINE
| Line S01026 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01189 M02S01026.241l630 ---| SB3 6 RE-INITIALIZE COUNT 01190 M01S01027.crmtask +++| SB4 B4-1 DECREMENT THE LINE COUNT 01191 M01S00135.241l630 +++| SX6 1R 01192 M01S00136.241l630 +++| LX6 59-5 01193 M01S00137.241l630 +++| SA6 A6+B1 SKIP OVER END OF LINE
| Line S01028 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01194 M02S01028.241l630 ---| EQ FDD4 DISPLAY NEXT *QRF* 01195 M01S00138.241l630 +++| NE B4,FDD5 IF DISPLAY NOT FULL 01196 M01S00139.241l630 +++| SX6 FDD4 RE-ENTRY ADDRESS 01197 M01S00140.241l630 +++| EQ FDD20 PROCESS NEXT PAGE 01198 M01S00141.241l630 +++| 01199 M01S00142.241l630 +++|* DISPLAY *AFTER IMAGE RECOVERY FILES*. 01200 M01S00143.241l630 +++|
| Line S01029 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01201 M02S01029.241l630 ---|
| Line S01030 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01202 M02S01030.241l630 ---| FDD6 SB4 B4-1 DECREMENT DISPLAY LINE COUNT 01203 M01S00144.241l630 +++| FDD8 SB4 B4-B1 DECREMENT DISPLAY LINE COUNT 01204 M01S01031.crmtask +++| SA2 BLNK 01205 M01S01032.crmtask +++| BX6 X2
| Line S01033 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01206 M02S01033.241l630 ---| ZR B3,FDD8 IF DISPLAY LINE FULL
| Line S01034 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01207 M02S01034.241l630 ---| FDD7 SA6 A6+B1 BLANK OUT REST OF LINE
| Line S01035 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01208 M02S01035.241l630 ---| SB3 B3-B1 01209 M01S00145.241l630 +++| ZR B3,FDD10 IF DISPLAY LINE FULL 01210 M01S00146.241l630 +++| FDD9 SA6 A6+1 BLANK OUT REST OF LINE 01211 M01S00147.241l630 +++| SA6 A6+1 01212 M01S00148.241l630 +++| SB3 B3-2
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01213 M02S01036.241l630 ---| NE B3,FDD7 IF MORE TO BLANK 01214 M01S00149.241l630 +++| NE B3,FDD9 IF MORE TO BLANK 01215 M01S00150.241l630 +++| FDD10 SB5 6 01216 M01S00151.241l630 +++| LT B4,B5,FDD11 IF NOT ENOUGH ROOM ON CURRENT PAGE 01217 M01S00152.241l630 +++| SX5 A6+2 SKIP OVER END OF LINE 01218 M01S00153.241l630 +++| MOVE KDBJW,KDBJ,X5 MOVE FILE HEADING TO DISPLAY 01219 M01S00154.241l630 +++| SB4 B4-KDBJL DECREMENT LINE COUNT 01220 M01S00155.241l630 +++| SB5 X5+KDBJW FWA TO STORE FILE NAMES 01221 M01S00156.241l630 +++| SA5 BADR+DST1L+TLFNW FWA OF FIRST *TLNT* FILE NAME
| Line S01037 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01222 M02S01037.241l630 ---| FDD8 SX5 A6+1
| Line S01038 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01223 M02S01038.241l630 ---| MOVE KDBHL,KDBH,X5 MOVE FILE HEADING TO DISPLAY
| Line S01039 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01224 M02S01039.241l630 ---| SB5 X5+KDBHL FWA TO STORE FILE NAMES
| Line S01040 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S01040.241l630 ---| SA5 BADR+DST1L+TLFNW FWA OF 1ST *TLNT* FILE NAME
| Line S01041 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01226 M02S01041.241l630 ---| EQ FDD10 FORMAT FILE LIST 01227 M01S00157.241l630 +++| EQ FDD16 FORMAT FILE LIST 01228 M01S01042.crmtask +++|
| Line S01043 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01229 M02S01043.241l630 ---|* REENTRY POINT. 01230 M01S00158.241l630 +++| FDD11 ZR B4,FDD12 IF ALL LINES PROCESSED 01231 M01S00159.241l630 +++| SX6 1R 01232 M01S00160.241l630 +++| LX6 59-5 01233 M01S00161.241l630 +++| SA6 A6+B1 END OF LINE 01234 M01S00162.241l630 +++| SB3 6 RE-INITIALIZE COUNT 01235 M01S00163.241l630 +++| EQ FDD8 BLANK OUT NEXT LINE 01236 M01S00164.241l630 +++| 01237 M01S00165.241l630 +++| FDD12 SX6 FDD15 RE-ENTRY ADDRESS 01238 M01S00166.241l630 +++| SA5 BADR+DST1L+TLFNW FWA OF FIRST *TLNT* FILE NAME 01239 M01S00167.241l630 +++| EQ FDD20 PROCESS NEXT PAGE 01240 M01S00168.241l630 +++| 01241 M01S00169.241l630 +++| FDD13 MOVE KDBJW,KDBJ,KDBB STORE DATA BASE FILE HEADER 01242 M01S00170.241l630 +++| SB5 KDBB+KDBJW FWA TO STORE FILE NAMES 01243 M01S00171.241l630 +++| SB4 KFNL-KDBFL-KDBJL NUMBER OF DISPLAY LINES 01244 M01S00172.241l630 +++| EQ FDD16 DISPLAY DATA BASE FILES 01245 M01S00173.241l630 +++| 01246 M01S00174.241l630 +++|* RE-ENTRY POINTS. 01247 M01S01044.crmtask +++|* 01248 M01S01045.crmtask +++|* ENTRY (A5) = ADDRESS OF THE NEXT *TLNT* TO DISPLAY. 01249 M01S01046.crmtask +++|* (X5) = FIRST WORD OF THE NEXT *TLNT* TO DISPLAY. 01250 M01S00175.241l630 +++| 01251 M01S00176.241l630 +++| FDD14 MOVE KDBKW,KDBK,KDBA STORE FILE AND STATUS SUB-HEADING 01252 M01S00177.241l630 +++| SB5 KDBA+KDBKW FWA TO STORE FILE NAMES 01253 M01S00178.241l630 +++| SB4 KFNL-KDBKL NUMBER OF DISPLAY LINES 01254 M01S00179.241l630 +++| EQ FDD16 DISPLAY DATA BASE FILES
| Line S01047 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01255 M02S01047.241l630 ---|
| Line S01048 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01256 M02S01048.241l630 ---| FDD9 MOVE KDBHL,KDBH,KDBD
| Line S01049 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01257 M02S01049.241l630 ---| SB5 KDBD+KDBHL
| Line S01050 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01258 M03S01050.241l630 ---| SB4 16 NUMBER OF DISPLAY LINES
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01259 M02S00023.241l630 ---| SB4 KFNL-6 NUMBER OF DISPLAY LINES 01260 M01S00180.241l630 +++| 01261 M01S00181.241l630 +++| FDD15 MOVE KDBJW,KDBJ,KDBA STORE DATA BASE FILE HEADER 01262 M01S00182.241l630 +++| SB5 KDBA+KDBJW FWA TO STORE FILE NAMES 01263 M01S00183.241l630 +++| SB4 KFNL-KDBJL NUMBER OF DISPLAY LINES
| Line S01051 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01264 M02S01051.241l630 ---| FDD10 MX0 TLFNN 01265 M01S00184.241l630 +++| FDD16 MX0 TLFNN 01266 M01S01052.crmtask +++| SB3 6 WORDS PER DISPLAY LINE
| Line S01053 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01267 M02S01053.241l630 ---| FDD11 BX1 X0*X5 01268 M01S00185.241l630 +++| FDD17 BX1 X0*X5 01269 M01S01054.crmtask +++| RJ SFN
| Line S01055 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01270 M02S01055.241l630 ---| LX6 -12 01271 M01S00186.241l630 +++| LX6 41-59 01272 M01S01056.crmtask +++| SA2 A5+TLFDW-TLFNW STATUS WORD 01273 M01S01057.crmtask +++| LX2 59-TLFDS 01274 M01S01058.crmtask +++| SB6 B0+ STATUS = UP
| Line S01059 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S01059.241l630 ---| NG X2,FDD12 IF FILE DOWN 01276 M01S00187.241l630 +++| NG X2,FDD18 IF FILE DOWN 01277 M01S01060.crmtask +++| LX2 TLFDS-TLFIS
| Line S01061 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01278 M02S01061.241l630 ---| PL X2,FDD13 IF FILE NOT IDLE 01279 M01S00188.241l630 +++| PL X2,FDD19 IF FILE NOT IDLE 01280 M01S01062.crmtask +++| SB6 B1 STATUS = IDLE
| Line S01063 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01281 M02S01063.241l630 ---| EQ FDD13 GET STATUS 01282 M01S00189.241l630 +++| EQ FDD19 GET STATUS 01283 M01S01064.crmtask +++|
| Line S01065 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01284 M02S01065.241l630 ---| FDD12 LX2 TLFDS-TLFES 01285 M01S00190.241l630 +++| FDD18 LX2 TLFDS-TLFES 01286 M01S01066.crmtask +++| SB6 2 STATUS = DOWN
| Line S01067 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S01067.241l630 ---| PL X2,FDD13 IF NOT DUE TO *CRM* ERROR 01288 M01S00191.241l630 +++| PL X2,FDD19 IF NOT DUE TO *CRM* ERROR 01289 M01S01068.crmtask +++| SB6 B6+2 STATUS=*CRM* ERROR
| Line S01069 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01290 M02S01069.241l630 ---| FDD13 SA3 FDDE+B6 GET STATUS 01291 M01S00192.241l630 +++| FDD19 SA3 FDDE+B6 GET STATUS 01292 M01S01070.crmtask +++| BX7 X3 01293 M01S01071.crmtask +++| SA6 B5 STORE FILE NAME
| Line S01072 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01072.241l630 ---| LX7 -6
| Line S01073 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01295 M02S01073.241l630 ---| SA7 A6+B1 01296 M01S00193.241l630 +++| SA7 A6+1 01297 M01S01074.crmtask +++| SB3 B3-2 01298 M01S01075.crmtask +++| SB5 B5+2 ADDRESS FOR NEXT FILE NAME 01299 M01S01076.crmtask +++| SA5 A5+TLNTE-TLFNW NEXT *TLNT*
| Line S01077 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01300 M02S01077.241l630 ---| ZR X5,FDD14 IF END
| Line S01078 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01301 M02S01078.241l630 ---| NE B3,FDD11 IF MORE FILES THIS DISPLAY LINE 01302 M01S00194.241l630 +++| ZR X5,FDD21 IF END 01303 M01S00195.241l630 +++| NE B3,FDD17 IF MORE FILES THIS DISPLAY LINE 01304 M01S01079.crmtask +++| SB3 6 01305 M01S01080.crmtask +++| SB4 B4-B1 DECREMENT LINE COUNT 01306 M01S01081.crmtask +++| SB5 B5+B1 ADDRESS OF NEXT DISPLAY LINE
| Line S01082 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01307 M02S01082.241l630 ---| NE B4,FDD11 IF DISPLAY NOT FULL 01308 M01S00196.241l630 +++| NE B4,FDD17 IF DISPLAY NOT FULL 01309 M01S00197.241l630 +++| SX6 FDD14 RE-ENTRY ADDRESS 01310 M01S00198.241l630 +++| 01311 M01S00199.241l630 +++|* PROCESS NEXT PAGE. 01312 M01S00200.241l630 +++| 01313 M01S00201.241l630 +++| FDD20 SA6 PAGE 01314 M01S01083.crmtask +++| SA2 MORE 01315 M01S01084.crmtask +++| BX6 X2 01316 M01S01085.crmtask +++| SX7 A5 01317 M01S01086.crmtask +++| SX1 KDB *K-DISPLAY* CONTROL WORD
| Line S01087 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S01087.241l630 ---| SA6 KDBE INDICATE MORE FILES
| Line S01088 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01319 M02S01088.241l630 ---| SX6 FDD9 RE-ENTRY ADDRESS 01320 M01S00202.241l630 +++| SA6 KDBC+1 INDICATE MORE FILES
| Line S01089 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01321 M02S01089.241l630 ---| SA6 PAGE 01322 M01S01090.crmtask +++| SA7 NPAG NEXT ADDRESS IN THE BUFFER 01323 M01S01091.crmtask +++| SA2 ORIG 01324 M01S01092.crmtask +++| ZR X2,TPA IF *TAF* ORIGIN
| Line S01093 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01325 M02S01093.241l630 ---| SX1 KDBA FWA OF SEND BUFFER
| Line S01094 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01326 M02S01094.241l630 ---| SX5 KDBE-KDBA+1 WORDS TO SEND TO TERMINAL 01327 M01S00203.241l630 +++| SX1 KDBA FWA OF SEND BUFFER 01328 M01S00204.241l630 +++| SX5 KDBC-KDBA+2 WORDS TO SEND TO TERMINAL 01329 M01S01095.crmtask +++| EQ TPB SEND DISPLAY TO TERMINAL 01330 M01S01096.crmtask +++| 01331 M01S00205.241l630 +++|* BLANK OUT UNUSED PART OF LAST PAGE. 01332 M01S00206.241l630 +++|
| Line S01097 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01333 M02S01097.241l630 ---| FDD14 SA2 BLNK BLANK OUT UNUSED PART OF DISPLAY 01334 M01S00207.241l630 +++| FDD21 SA2 BLNK BLANK OUT UNUSED PART OF DISPLAY 01335 M01S01098.crmtask +++| BX6 X2
| Line S01099 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01336 M02S01099.241l630 ---| SX7 B0
| Line S01100 Modification History | |
|---|---|
M01 (Added by) | crmtask |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01337 M02S01100.241l630 ---| SA7 NPAG SET NO FORWARD PAGING
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/crmtask.txt · Last modified: by 127.0.0.1