cdc:nos2.source:opl.opl871:deck:fotd
Deck FOTD
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.fotd +++| IDENT FOTD,FOT 00002 M00S00002.fotd +++| ABS 00003 M00S00003.fotd +++| SST 00004 M00S00004.fotd +++| ENTRY FOTD 00005 M00S00005.fotd +++| ENTRY RFL= 00006 M00S00006.fotd +++| ENTRY SSJ= 00007 M00S00007.fotd +++| SYSCOM B1 00008 M00S00008.fotd +++| TITLE FOTD - FAMILY ORDINAL TABLE DISPLAY. 00009 M00S00009.fotd +++|*COMMENT FOTD - FAMILY ORDINAL TABLE DISPLAY.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00011.fotd +++| SPACE 4,10 00013 M00S00012.fotd +++|*** FOTD - FAMILY ORDINAL TABLE DISPLAY. 00014 M00S00013.fotd +++|* 00015 M00S00014.fotd +++|* B. J. OLIPHANT 81/03/19. 00016 M00S00015.fotd +++| SPACE 4,10 00017 M00S00016.fotd +++|*** *FOTD* IS A CPU UTILITY USED BY THE OPERATOR TO DISPLAY 00018 M00S00017.fotd +++|* THE FAMILY ORDINAL TABLE ASSIGNMENTS ON THE *L* DISPLAY OR 00019 M00S00018.fotd +++|* TO FORMAT IT FOR A PRINTER. 00020 M00S00019.fotd +++| SPACE 4,20
| Line S00020 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00020.v23l617 ---|*** CONTROL STATEMENT CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00001.v23l617 +++|*** COMMAND FORMAT. 00023 M00S00021.fotd +++|* 00024 M00S00022.fotd +++|* 00025 M00S00023.fotd +++|* FOTD(LFN,OP) ORDER DEPENDENT PARAMETERS. 00026 M00S00024.fotd +++|* OR 00027 M00S00025.fotd +++|* FOTD(L=LFN,LO=OP) ORDER INDEPENDENT (KEYWORD = PARAMETER). 00028 M00S00026.fotd +++|* 00029 M00S00027.fotd +++|* WHERE 00030 M00S00028.fotd +++|* 00031 M00S00029.fotd +++|* OP = *L* FORMAT DATA FOR A LINE PRINTER. 00032 M00S00030.fotd +++|* 00033 M00S00031.fotd +++|* OP = *D* FORMAT DATA FOR *L* DISPLAY (DEFAULT). 00034 M00S00032.fotd +++|* 00035 M00S00033.fotd +++|* LFN LIST OUTPUT FILE NAME (DEFAULT = OUTPUT). 00036 M00S00034.fotd +++|* THIS PARAMETER VALID ONLY WITH (LO=L). 00037 M00S00035.fotd +++|* 00038 M00S00036.fotd +++|* NOTES SPECIAL PRIVILEGES REQUIRED. 00039 M00S00037.fotd +++|* 1. USER MUST BE *SYOT* TO USE *L* DISPLAY (LO=D). 00040 M00S00038.fotd +++|* 2. USER MUST BE *SYOT* OR HAVE SYSTEM ORIGIN 00041 M00S00039.fotd +++|* PRIVILEGES TO GENERATE A LISTING (LO=L). 00042 M00S00040.fotd +++| SPACE 4,15 00043 M00S00041.fotd +++|*** DAYFILE MESSAGES. 00044 M00S00042.fotd +++|* 00045 M00S00043.fotd +++|* THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILES. 00046 M00S00044.fotd +++|* 00047 M00S00045.fotd +++|* *ARGUMENT ERROR.*
| Line S00046 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00046.v23l617 ---|* AN INVALID PARAMETER WAS ENTERED. (FATAL ERROR)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00002.v23l617 +++|* AN INCORRECT PARAMETER WAS ENTERED. (FATAL ERROR) 00050 M00S00047.fotd +++|*
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00051 M01S00048.v23l617 ---|* *INVALID USER ACCESS.*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00052 M01S00003.v23l617 +++|* *USER ACCESS NOT VALID.* 00053 M00S00049.fotd +++|* CALLING JOB WAS NOT SYSTEM ORIGIN. (FATAL ERROR) 00054 M00S00050.fotd +++|* 00055 M00S00051.fotd +++|* *FOTD UTILITY COMPLETE.* 00056 M00S00052.fotd +++|* INDICATES NORMAL COMPLETION OF PROGRAM. 00057 M00S00053.fotd +++| SPACE 4,10 00058 M00S00054.fotd +++|*** DEFINITION COMMON DECKS. 00059 M00S00055.fotd +++|* 00060 M00S00056.fotd +++|*CALL COMCMAC 00061 M00S00057.fotd +++|*CALL COMCCMD
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00004.v23l617 +++|*CALL COMCDCM 00063 M00S00058.fotd +++|*CALL COMSSFM 00064 M00S00059.fotd +++|*CALL COMSSSJ 00065 M00S00060.fotd +++| TITLE ASSEMBLY CONSTANTS. 00066 M00S00061.fotd +++|**** ASSEMBLY CONSTANTS. 00067 M00S00062.fotd +++| 00068 M00S00063.fotd +++| OBUFL EQU 101B OUTPUT BUFFER LENGTH 00069 M00S00064.fotd +++| LBUFL EQU LDSY *L* DISPLAY BUFFER LENGTH 00070 M00S00065.fotd +++| WBUFL EQU 100B*2 LENGTH WORKING BUFFER
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00066.241l630 ---| XCDT EQU 1 X - COORDINATE FOR *L* DISPLAY 00072 M01S00067.241l630 ---| YCDT EQU 7 Y - COORDINATE FOR *L* DISPLAY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00001.241l630 +++| XCDT EQU 4 X - COORDINATE FOR *L* DISPLAY 00074 M01S00002.241l630 +++| YCDT EQU 2 Y - COORDINATE FOR *L* DISPLAY 00075 M00S00068.fotd +++| 00076 M00S00069.fotd +++|**** 00077 M00S00070.fotd +++| TITLE TABLES AND BUFFER DEFINITIONS. 00078 M00S00071.fotd +++| ORG 111B 00079 M00S00072.fotd +++| FOT BSS 0 00080 M00S00073.fotd +++| SPACE 4,10 00081 M00S00074.fotd +++|* DAYFILE MESSAGES. 00082 M00S00075.fotd +++| 00083 M00S00076.fotd +++| DAFC DATA C* FOTD UTILITY COMPLETE.* 00084 M00S00077.fotd +++| ERAR DATA C* ARGUMENT ERROR.*
| Line S00078 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00078.v23l617 ---| ERIU DATA C* INVALID USER ACCESS.*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00005.v23l617 +++| ERIU DATA C* USER ACCESS NOT VALID.* 00087 M00S00079.fotd +++| SPACE 4,10 00088 M00S00080.fotd +++|* FLAG DEFINITIONS. 00089 M00S00081.fotd +++| 00090 M00S00082.fotd +++| LFLG CON 0 *L* DISPLAY FLAG 00091 M00S00083.fotd +++| PFLG CON 0 PRINTER OUTPUT FLAG 00092 M00S00084.fotd +++| SYOF CON 0 SYSTEM ORIGIN FLAG 00093 M00S00085.fotd +++| WCNT BSSZ 1 NUMBER OF WORDS STORED IN WORKING BUFFER 00094 M00S00086.fotd +++| SPACE 4,10 00095 M00S00087.fotd +++|* *L* DISPLAY BUFFER FIRST WORD. 00096 M00S00088.fotd +++|* 00097 M00S00089.fotd +++|* T, 12/ N ,1/ S ,1/ F ,46/ 00098 M00S00090.fotd +++|* 00099 M00S00091.fotd +++|* N SIZE OF DISPLAY BUFFER. 00100 M00S00092.fotd +++|* S CHARACTER SIZE. 00101 M00S00093.fotd +++|* F DATA FORMAT BIT. 00102 M00S00094.fotd +++| 00103 M00S00095.fotd +++| 00104 M00S00096.fotd +++| LDSW VFD 12/LBUFL,1/0,1/0,46/0 00105 M00S00097.fotd +++| SPACE 4,10 00106 M00S00098.fotd +++|** *SETJOB* PARAMETER BLOCK. 00107 M00S00099.fotd +++| 00108 M00S00100.fotd +++| SETB VFD 60/0 00109 M00S00101.fotd +++| VFD 48/0,12/2LDF 00110 M00S00102.fotd +++| SPACE 4,10 00111 M00S00103.fotd +++|** *SFM* PARAMETER BLOCK. 00112 M00S00104.fotd +++| 00113 M00S00105.fotd +++| 00114 M00S00106.fotd +++| SFMB VFD 12/RFDF,12/0,12/WBUFL/2,6/0,18/WBUFA 00115 M00S00107.fotd +++| CON 0 END OF *SFM* PARAMETER BLOCK 00116 M00S00108.fotd +++| SPACE 4,5 00117 M00S00109.fotd +++|* SSJ= PARAMETER BLOCK. 00118 M00S00110.fotd +++| 00119 M00S00111.fotd +++| 00120 M00S00112.fotd +++| SSJ= BSS 0 SSJ= ENTRY POINT 00121 M00S00113.fotd +++| BSSZ SSJL SSJ= PARAMETER BLOCK 00122 M00S00114.fotd +++| FETS SPACE 4,10 00123 M00S00115.fotd +++|* FET DEFINITIONS. 00124 M00S00116.fotd +++| 00125 M00S00117.fotd +++| O BSS 0 PRINTER OUTPUT FILE BUFFER 00126 M00S00118.fotd +++| OUTPUT FILEB OBUF,OBUFL,(FET=6) 00127 M00S00119.fotd +++| FOTD TITLE MAIN PROGRAM. 00128 M00S00120.fotd +++|** FOTD - MAIN PROGRAM. 00129 M00S00121.fotd +++|* 00130 M00S00122.fotd +++|* EXIT *FOTD* PROGRAM COMPLETED. 00131 M00S00123.fotd +++|*
| Line S00124 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00132 M01S00124.241l630 ---|* USES X - 2. 00133 M01S00125.241l630 ---|* A - NONE. 00134 M01S00126.241l630 ---|* B - NONE. 00135 M01S00127.241l630 ---|* 00136 M00S00128.fotd +++|* CALLS PRS, LOP. 00137 M00S00129.fotd +++|*
| Line S00130 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00130.241l630 ---|* MACROS MESSAGE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00003.241l630 +++|* MACROS ENDRUN, MESSAGE. 00140 M00S00131.fotd +++| 00141 M00S00132.fotd +++| 00142 M00S00133.fotd +++| FOTD BSS 0 ENTRY 00143 M00S00134.fotd +++| RJ PRS PRESET ROUTINE 00144 M00S00135.fotd +++| RJ LOP PROCESS LIST OPTIONS 00145 M00S00136.fotd +++| MESSAGE DAFC,0,R * FOTD UTILITY COMPLETE.* 00146 M00S00137.fotd +++| ENDRUN 00147 M00S00138.fotd +++| LOP TITLE LIST OPTION PROCESSOR. 00148 M00S00139.fotd +++|** LOP - LIST OPTION PROCESSOR. 00149 M00S00140.fotd +++|* 00150 M00S00141.fotd +++|* ENTRY USER HAS BEEN VALIDATED (EITHER SYSTEM ORIGIN 00151 M00S00142.fotd +++|* OR SYSTEM ORIGIN PRIVILEDGES). 00152 M00S00143.fotd +++|* 00153 M00S00144.fotd +++|* (PFLG) = 1, IF PRINT FILE REQUESTED. 00154 M00S00145.fotd +++|* (LFLG) = 1, IF *L* DISPLAY REQUESTED. 00155 M00S00146.fotd +++|* 00156 M00S00147.fotd +++|* EXIT (LBUF) = FWA OF FORMATTED *L* DISPLAY BUFFER, 00157 M00S00148.fotd +++|* DISPLAYED ON *L* DISPLAY, IF REQUESTED. 00158 M00S00149.fotd +++|* 00159 M00S00150.fotd +++|* PRINT FILE, IF REQUESTED, LOCAL TO USER JOB. 00160 M00S00151.fotd +++|* 00161 M00S00152.fotd +++|* USES X - 1, 2. 00162 M00S00153.fotd +++|* A - 1, 2. 00163 M00S00154.fotd +++|* B - NONE. 00164 M00S00155.fotd +++|* 00165 M00S00156.fotd +++|* CALLS FDB, RFD. 00166 M00S00157.fotd +++|*
| Line S00158 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00167 M01S00158.241l630 ---|* MACROS DSDOUT, SETFS, WRITER.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00168 M01S00004.241l630 +++|* MACROS DSDOUT, SETFS, SETJOB, WRITER. 00169 M00S00159.fotd +++| 00170 M00S00160.fotd +++| 00171 M00S00161.fotd +++| LOP SUBR ENTRY/EXIT 00172 M00S00162.fotd +++| RJ RFD GET FOT DATA 00173 M00S00163.fotd +++| SA2 PFLG CHECK PRINTER FLAG 00174 M00S00164.fotd +++| ZR X2,LOP1 IF NOT FOR PRINTER 00175 M00S00165.fotd +++| SX2 O SET OUTPUT FET ADDRESS 00176 M00S00166.fotd +++| RJ FDB BUILD PRINT FILE 00177 M00S00167.fotd +++| WRITER O FLUSH OUTPUT BUFFER 00178 M00S00168.fotd +++| SETFS O,0 SAVE OUTPUT AS LOCAL FILE 00179 M00S00169.fotd +++| SETJOB SETB CHANGE JOB DISPOSITION
| Line S00170 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00170.241l630 ---| SX2 B0 ENTRY CONDITION IN *FDB* FOR *L* DISPLAY
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00181 M01S00005.241l630 +++| SX2 B0+ INDICATE *L* DISPLAY FOR *FDB* 00182 M00S00171.fotd +++| LOP1 SA1 LFLG 00183 M00S00172.fotd +++| ZR X1,LOPX IF *L* DISPLAY NOT SELECTED 00184 M00S00173.fotd +++| RJ FDB BUILD DISPLAY BUFFER 00185 M00S00174.fotd +++| DSDOUT LBUF DISPLAY *L* DISPLAY BUFFER 00186 M00S00175.fotd +++| EQ LOPX RETURN 00187 M00S00176.fotd +++| TITLE SUBROUTINES. 00188 M00S00177.fotd +++| ERR SPACE 4,10 00189 M00S00178.fotd +++|** ERR - ERROR PROCESSOR. 00190 M00S00179.fotd +++|* 00191 M00S00180.fotd +++|* ENTRY (X2) = ADDRESS OF ERROR MESSAGE. 00192 M00S00181.fotd +++|* 00193 M00S00182.fotd +++|* EXIT MESSAGE ISSUED IN SYSTEM AND USER DAYFILE. 00194 M00S00183.fotd +++|* 00195 M00S00184.fotd +++|* MACROS ABORT, MESSAGE. 00196 M00S00185.fotd +++| 00197 M00S00186.fotd +++| 00198 M00S00187.fotd +++| ERR BSS 0 ENTRY 00199 M00S00188.fotd +++| MESSAGE X2,0,R 00200 M00S00189.fotd +++| ABORT 00201 M00S00190.fotd +++| FDB SPACE 4,10 00202 M00S00191.fotd +++|** FDB - FORMAT DISPLAY BUFFER. 00203 M00S00192.fotd +++|* 00204 M00S00193.fotd +++|* ENTRY (X2) = 0, IF FORMATTING FOR *L* DISPLAY. 00205 M00S00194.fotd +++|* .EQ. FET ADDRESS OF OUTPUT FILE IF FOR PRINTER. 00206 M00S00195.fotd +++|* 00207 M00S00196.fotd +++|* EXIT (LBUF) = FWA FORMATTED *L* DISPLAY BUFFER. 00208 M00S00197.fotd +++|* 00209 M00S00198.fotd +++|* USES X - 1, 3, 4, 6, 7.
| Line S00199 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00199.241l630 ---|* A - 3, 4, 7.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00211 M01S00006.241l630 +++|* A - 3, 4, 7. 00212 M00S00200.fotd +++|* B - 2, 3, 4, 6. 00213 M00S00201.fotd +++|*
| Line S00202 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00202.241l630 ---|* CALLS FLD.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00215 M01S00007.241l630 +++|* CALLS FLB. 00216 M00S00203.fotd +++| 00217 M00S00204.fotd +++| 00218 M00S00205.fotd +++| FDB SUBR ENTRY/EXIT 00219 M00S00206.fotd +++| 00220 M00S00207.fotd +++|* SET UP PARAMETERS FOR *FLD*. 00221 M00S00208.fotd +++|
| Line S00209 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00209.241l630 ---| SX1 HBUF FWA BUFFER TO REFORMAT 00223 M00S00210.fotd +++| SA3 WCNT GET NUMBER OF WORDS TO REFORMAT 00224 M00S00211.fotd +++| SX6 X3+HBUF-1 LWA OF BUFFER TO REFORMAT 00225 M00S00212.fotd +++| SX3 B1+ *C* DISPLAY FORMAT 00226 M00S00213.fotd +++| SB2 LBUF+1 FWA TO PLACE FORMATTED DATA 00227 M00S00214.fotd +++| SB6 LBUF+LBUFL LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00008.241l630 +++| SX1 PBUF ASSUME FORMATTING FOR PRINTER 00229 M00S00215.fotd +++| NZ X2,FDB1 IF FORMATTING FOR PRINTER 00230 M00S00216.fotd +++| SA4 LDSW INITIALIZE *L* DISPLAY BUFFER 00231 M00S00217.fotd +++| BX7 X4 00232 M00S00218.fotd +++| SA7 B2-B1 00233 M00S00219.fotd +++| SB3 XCDT SET X-COORDINATE FOR *L* DISPLAY 00234 M00S00220.fotd +++| SB4 YCDT SET Y-COORDINATE FOR *L* DISPLAY
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00221.241l630 ---| FDB1 RJ FLD FORMAT DATA TO BE OUTPUT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00009.241l630 +++| SX1 HBUF FWA FOR FORMATTING FOR *L* DISPLAY 00237 M01S00010.241l630 +++| FDB1 RJ FLB FORMAT DATA TO BE OUTPUT 00238 M00S00222.fotd +++| EQ FDBX RETURN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00239 M01S00011.241l630 +++| GNF SPACE 4,15 00240 M01S00012.241l630 +++|** GNF - GET NEXT FAMILY. 00241 M01S00013.241l630 +++|* 00242 M01S00014.241l630 +++|* *GNF* RETURNS THE NEXT FAMILY FROM THE *FOT*. 00243 M01S00015.241l630 +++|* 00244 M01S00016.241l630 +++|* ENTRY (WBUFA) = *FOT* DATA. 00245 M01S00017.241l630 +++|* (B6) = CURRENT FAMILY ORDINAL. 00246 M01S00018.241l630 +++|* 00247 M01S00019.241l630 +++|* EXIT (X1) = FAMILY NAME, LEFT JUSTIFIED. 00248 M01S00020.241l630 +++|* 00249 M01S00021.241l630 +++|* USES X - 0, 1. 00250 M01S00022.241l630 +++|* A - 1. 00251 M01S00023.241l630 +++| 00252 M01S00024.241l630 +++| 00253 M01S00025.241l630 +++| GNF SUBR ENTRY/EXIT 00254 M01S00026.241l630 +++| SA1 WBUFA-1+B6 GET NEXT *FOT* ENTRY 00255 M01S00027.241l630 +++| MX0 42 7 CHARACTER FAMILY MASK 00256 M01S00028.241l630 +++| BX1 X0*X1 RETURN 7 FAMILY CHARACTERS ONLY 00257 M01S00029.241l630 +++| EQ GNFX RETURN 00258 M01S00030.241l630 +++| GNO SPACE 4,15 00259 M01S00031.241l630 +++|** GNO - GET NEXT ORDINAL. 00260 M01S00032.241l630 +++|* 00261 M01S00033.241l630 +++|* *GNO* RETURNS THE DISPLAY CODE ORDINAL NUMBER WITH TRAILING 00262 M01S00034.241l630 +++|* PERIOD. 00263 M01S00035.241l630 +++|* 00264 M01S00036.241l630 +++|* ENTRY (B6) = PREVIOUS FAMILY ORDINAL NUMBER. 00265 M01S00037.241l630 +++|* 00266 M01S00038.241l630 +++|* EXIT (X1) = DISPLAY CODE ORDINAL WITH TRAILING PERIOD. 00267 M01S00039.241l630 +++|* (B6) = NEXT FAMILY ORDINAL. 00268 M01S00040.241l630 +++|* 00269 M01S00041.241l630 +++|* USES X - 0, 1. 00270 M01S00042.241l630 +++|* B - 6. 00271 M01S00043.241l630 +++|* 00272 M01S00044.241l630 +++|* CALLS COD. 00273 M01S00045.241l630 +++| 00274 M01S00046.241l630 +++| 00275 M01S00047.241l630 +++| GNO SUBR ENTRY/EXIT 00276 M01S00048.241l630 +++| SB6 B6+B1 SET CURRENT FAMILY ORDINAL NUMBER 00277 M01S00049.241l630 +++| SX1 B6 ORDINAL NUMBER TO CONVERT 00278 M01S00050.241l630 +++| RJ COD CONVERT OCTAL TO DISPLAY CODE 00279 M01S00051.241l630 +++| MX0 -12 MASK FOR ORDINAL DIGITS 00280 M01S00052.241l630 +++| BX1 -X0*X6 SET ORDINAL NUMBER 00281 M01S00053.241l630 +++| SX0 1R. 00282 M01S00054.241l630 +++| LX1 6 SHIFT FOR PERIOD TERMINATOR 00283 M01S00055.241l630 +++| BX1 X0+X1 ADD PERIOD TERMINATOR 00284 M01S00056.241l630 +++| EQ GNOX RETURN 00285 M00S00223.fotd +++| RFD SPACE 4,15 00286 M00S00224.fotd +++|** RFD - RETURN *FOT* DATA. 00287 M00S00225.fotd +++|* 00288 M00S00226.fotd +++|* ENTRY (SFMB) = *SFM* PARAMETER BLOCK SET UP 00289 M00S00227.fotd +++|* FOR *RFDF* SUBFUNCTION. 00290 M00S00228.fotd +++|* 00291 M00S00229.fotd +++|* EXIT FAMILY ORDINAL TABLE (FOT) STORED. 00292 M00S00230.fotd +++|* (HBUF) = FWA OF FORMATTED *FOT* DATA. 00293 M00S00231.fotd +++|* 00294 M00S00232.fotd +++|* USES X - 0, 1, 2.
| Line S00233 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00295 M01S00233.241l630 ---|* A - 1, 2.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00296 M01S00057.241l630 +++|* A - 2. 00297 M00S00234.fotd +++|* B - NONE. 00298 M00S00235.fotd +++|* 00299 M00S00236.fotd +++|* CALLS WFB. 00300 M00S00237.fotd +++|* 00301 M00S00238.fotd +++|* MACROS SYSTEM. 00302 M00S00239.fotd +++| 00303 M00S00240.fotd +++| 00304 M00S00241.fotd +++| RFD SUBR ENTRY/EXIT 00305 M00S00242.fotd +++| SYSTEM SFM,R,SFMB,RSDF*100B RETURN SYSTEM DATA 00306 M00S00243.fotd +++| SA2 SFMB SAVE INFORMATION FROM PARAMETER WORD 00307 M00S00244.fotd +++| LX2 11-47 GET MAXIMUM NUMBER ORDINALS POSSIBLE 00308 M00S00245.fotd +++| MX0 -12 00309 M00S00246.fotd +++| BX1 -X0*X2 00310 M00S00247.fotd +++| LX2 11-59 GET NUMBER OF ORDINALS CURRENTLY IN USE 00311 M00S00248.fotd +++| BX2 -X0*X2 00312 M00S00249.fotd +++| IX1 X1-X2 NUMBER OF FOT ENTRIES STILL AVAILABLE 00313 M00S00250.fotd +++| RJ WFB WRITE FOT BUFFER 00314 M00S00251.fotd +++| EQ RFDX RETURN 00315 M00S00252.fotd +++| WFB SPACE 4,15 00316 M00S00253.fotd +++|** WFB - WRITE *FOT* BUFFER. 00317 M00S00254.fotd +++|* 00318 M00S00255.fotd +++|* ENTRY (X1) = NUMBER OF FOT ENTRIES STILL AVAILABLE. 00319 M00S00256.fotd +++|* (X2) = NUMBER OF *FOT* ENTRIES RETURNED BY *SFM*. 00320 M00S00257.fotd +++|* (WBUFA) = ADDRESS OF FIRST *FOT ENTRY. 00321 M00S00258.fotd +++|* 00322 M00S00259.fotd +++|* EXIT (HBUF) = FWA OF FORMATTED *FOT* DATA. 00323 M00S00260.fotd +++|* (WCNT) = NUMBER OF WORDS STORED IN (HBUF). 00324 M00S00261.fotd +++|*
| Line S00262 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00325 M01S00262.241l630 ---|* USES X - 0, 1, 2, 4, 6, 7. 00326 M01S00263.241l630 ---|* A - 0, 1, 4, 6, 7. 00327 M01S00264.241l630 ---|* B - 5, 6, 7. 00328 M01S00265.241l630 ---|* 00329 M01S00266.241l630 ---|* CALLS COD, SFN.
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00330 M01S00058.241l630 +++|* USES X - ALL. 00331 M01S00059.241l630 +++|* A - 0, 1, 2, 4, 6, 7. 00332 M01S00060.241l630 +++|* B - 5, 6. 00333 M01S00061.241l630 +++|* 00334 M01S00062.241l630 +++|* CALLS COD, GNF, GNO, SFN, ZTB. 00335 M00S00267.fotd +++| 00336 M00S00268.fotd +++| 00337 M00S00269.fotd +++| WFB SUBR ENTRY/EXIT 00338 M00S00270.fotd +++| SB5 X2 SAVE NUMBER OF FAMILIES
| Line S00271 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00339 M01S00271.241l630 ---| SB6 B1 SET FIRST ORDINAL NUMBER 00340 M01S00272.241l630 ---| RJ COD CONVERT AVAILABLE ENTRIES TO DISPLAY CODE 00341 M01S00273.241l630 ---| SB7 3 NUMBER OF FAMILIES PER LINE OF OUTPUT 00342 M01S00274.241l630 ---| MX0 12 00343 M01S00275.241l630 ---| BX6 X0*X4 REMOVE BLANK CHARACTERS RETURNED BY *COD* 00344 M01S00276.241l630 ---| SA1 HBUFA-1 MERGE INTO HEADER LINE 00345 M01S00277.241l630 ---| BX1 -X0*X1 PRESERVE ORIGINAL LINE
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00346 M01S00063.241l630 +++| SB6 B0 INITIALIZE ORDINAL NUMBER 00347 M01S00064.241l630 +++| RJ COD CONVERT AVAILABLE ENTRIES TO DISPLAY CODE 00348 M01S00065.241l630 +++| SB7 B0+ INDICATE FIRST HALF OF LINE 00349 M01S00066.241l630 +++| MX0 -12 00350 M01S00067.241l630 +++| BX6 -X0*X6 REMOVE BLANK CHARACTERS RETURNED BY *COD* 00351 M01S00068.241l630 +++| SA1 HBUFB-1 MERGE INTO HEADER LINE 00352 M01S00069.241l630 +++| LX6 30 ADJUST RESULT FOR PROPER COLUMNS 00353 M01S00070.241l630 +++| LX0 30 ADJUST MASK FOR PROPER COLUMNS 00354 M01S00071.241l630 +++| BX1 X0*X1 PRESERVE ORIGINAL LINE 00355 M00S00278.fotd +++| BX6 X6+X1 INSERT AVAILABLE ENTRIES
| Line S00279 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00356 M01S00279.241l630 ---| SA6 A1
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00357 M01S00072.241l630 +++| SA6 A1+ 00358 M00S00280.fotd +++| SA4 WBUFA SET FIRST FAMILY = DEFAULT FAMILY 00359 M00S00281.fotd +++| MX0 42 00360 M00S00282.fotd +++| BX1 X0*X4
| Line S00283 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00361 M01S00283.241l630 ---| SA4 HBUFB+2
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00362 M01S00073.241l630 +++| SA4 HBUFA+2 00363 M00S00284.fotd +++| MX0 18
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00074.241l630 +++| LX0 12 ADJUST MASK 00365 M00S00285.fotd +++| RJ SFN SPACE-FILL NAME 00366 M00S00286.fotd +++| BX7 X0*X4
| Line S00287 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00287.241l630 ---| LX6 -18
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00368 M01S00075.241l630 +++| LX6 -6 00369 M00S00288.fotd +++| BX6 -X0*X6 00370 M00S00289.fotd +++| BX7 X6+X7 MERGE FAMILY INTO HEADER LINE
| Line S00290 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00371 M01S00290.241l630 ---| SA7 A4
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00372 M01S00076.241l630 +++| SA7 A4+ 00373 M00S00291.fotd +++| SA0 WBUF FWA TO RETURN REFORMATTED DATA
| Line S00292 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00374 M01S00292.241l630 ---| WFB1 SX1 B6+ GET ORDINAL NUMBER 00375 M01S00293.241l630 ---| RJ COD CONVERT TO DISPLAY CODE 00376 M01S00294.241l630 ---| LX6 12 00377 M01S00295.241l630 ---| SA6 A0+ SET ORDINAL NUMBER 00378 M01S00296.241l630 ---| SA0 A0+B1 INCREMENT FORMATTED BUFFER ADDRESS 00379 M01S00297.241l630 ---| SA1 WBUFA-1+B6 GET FAMILY NAME 00380 M01S00298.241l630 ---| MX0 42 SPACE-FILL SEVEN CHARACTERS ONLY 00381 M01S00299.241l630 ---| BX1 X0*X1 00382 M01S00300.241l630 ---| RJ SFN SPACE-FILL NAME 00383 M01S00301.241l630 ---| BX6 X0*X6 SAVE SEVEN CHARACTERS ONLY 00384 M01S00302.241l630 ---| SX2 1R. ADD A PERIOD 00385 M01S00303.241l630 ---| LX2 12 00386 M01S00304.241l630 ---| IX6 X6+X2 00387 M01S00305.241l630 ---| EQ B6,B5,WFB2 IF PROCESSING LAST FAMILY, NO SPACE FILL 00388 M01S00306.241l630 ---| SB7 B7-1 DECREMENT NUMBER FAMILIES PER LINE 00389 M01S00307.241l630 ---| ZR B7,WFB2 IF END OF LINE, DO NOT SPACE FILL 00390 M01S00308.241l630 ---| SX2 2R SPACE FILL NAME 00391 M01S00309.241l630 ---| BX6 X6+X2 00392 M01S00310.241l630 ---| WFB2 SA6 A0 SET FAMILY NAME 00393 M01S00311.241l630 ---| SA0 A0+B1 INCREMENT FORMATTED BUFFER ADDRESS 00394 M01S00312.241l630 ---| EQ B6,B5,WFB3 IF ALL FAMILIES DONE 00395 M01S00313.241l630 ---| SB6 B6+1 INCREMENT ORDINAL NUMBER 00396 M01S00314.241l630 ---| NZ B7,WFB1 IF NOT AT END OF A LINE 00397 M01S00315.241l630 ---| SB7 3 RESET NUMBER OF FAMILIES PER LINE 00398 M01S00316.241l630 ---| EQ WFB1 GET NEXT ENTRY 00399 M01S00317.241l630 ---| 00400 M01S00318.241l630 ---| WFB3 SX6 A0-HBUF SAVE NUMBER OF WORDS IN FOT BUFFER
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00401 M01S00077.241l630 +++| 00402 M01S00078.241l630 +++|* SET WORD 1 OF CURRENT HALF OF LINE. 00403 M01S00079.241l630 +++| 00404 M01S00080.241l630 +++| WFB1 RJ GNO GET NEXT ORDINAL 00405 M01S00081.241l630 +++| LX1 36 SET INTO PROPER COLUMN 00406 M01S00082.241l630 +++| BX5 X1 00407 M01S00083.241l630 +++| RJ GNF GET NEXT FAMILY 00408 M01S00084.241l630 +++| LX1 -30 PUT INTO PROPER COLUMN 00409 M01S00085.241l630 +++| MX0 -30 00410 M01S00086.241l630 +++| BX2 -X0*X1 LAST PART OF WORD 1 00411 M01S00087.241l630 +++| BX4 X0*X1 FIRST PART OF WORD 2 00412 M01S00088.241l630 +++| BX1 X5+X2 SET WORD 1 00413 M01S00089.241l630 +++| RJ ZTB CONVERT ZEROS TO BLANKS 00414 M01S00090.241l630 +++| SA6 A0+ SET INTO *WBUF* 00415 M01S00091.241l630 +++| SA0 A0+B1 NEXT WORD IN *WBUF* 00416 M01S00092.241l630 +++| 00417 M01S00093.241l630 +++|* SET WORD 2 OF CURRENT HALF OF LINE. 00418 M01S00094.241l630 +++| 00419 M01S00095.241l630 +++| BX5 X4 LAST PORTION OF FAMILY 00420 M01S00096.241l630 +++| EQ B6,B5,WFB4 IF ALL FAMILIES PROCESSED 00421 M01S00097.241l630 +++| RJ GNO GET NEXT ORDINAL 00422 M01S00098.241l630 +++| LX1 6 PUT INTO PROPER COLUMN 00423 M01S00099.241l630 +++| BX1 X5+X1 SET WORD 2 00424 M01S00100.241l630 +++| RJ ZTB CONVERT ZEROS TO BLANKS 00425 M01S00101.241l630 +++| SA6 A0 SET INTO *WBUF* 00426 M01S00102.241l630 +++| SA0 A0+B1 NEXT LOCATION IN *WBUF* 00427 M01S00103.241l630 +++| 00428 M01S00104.241l630 +++|* SET WORD 3 OF CURRENT HALF OF LINE. 00429 M01S00105.241l630 +++| 00430 M01S00106.241l630 +++| RJ GNF GET NEXT FAMILY 00431 M01S00107.241l630 +++| BX5 X1 ADD FAMILY INTO WORD 00432 M01S00108.241l630 +++| EQ B6,B5,WFB4 IF ALL FAMILIES PROCESSED 00433 M01S00109.241l630 +++| RJ ZTB CONVERT ZEROS TO BLANKS 00434 M01S00110.241l630 +++| 00435 M01S00111.241l630 +++|* CHECK IF LINE TERMINATOR NEEDED. 00436 M01S00112.241l630 +++| 00437 M01S00113.241l630 +++| EQ B7,B1,WFB2 IF TERMINATOR NEEDED 00438 M01S00114.241l630 +++| SB7 1 INDICATE LAST HALF OF LINE 00439 M01S00115.241l630 +++| EQ WFB3 SET IN LINE AND CONTINUE 00440 M01S00116.241l630 +++| 00441 M01S00117.241l630 +++| WFB2 MX0 48 LINE TERMINATOR MASK 00442 M01S00118.241l630 +++| BX6 X0*X6 ADD LINE TERMINATOR 00443 M01S00119.241l630 +++| SB7 B0+ INDICATE FIRST HALF OF LINE 00444 M01S00120.241l630 +++| WFB3 SA6 A0 SET WORD 3 00445 M01S00121.241l630 +++| SA0 A0+B1 NEXT LOCATION IN *WBUF* 00446 M01S00122.241l630 +++| EQ WFB1 CONTINUE FORMATTING LINES 00447 M01S00123.241l630 +++| 00448 M01S00124.241l630 +++|* PROCESS END OF FAMILIES. 00449 M01S00125.241l630 +++| 00450 M01S00126.241l630 +++| WFB4 BX1 X5 SET LAST WORD 00451 M01S00127.241l630 +++| RJ ZTB CONVERT ZEROS TO BLANKS 00452 M01S00128.241l630 +++| MX0 48 TERMINATOR MASK 00453 M01S00129.241l630 +++| BX6 X0*X6 ADD LINE TERMINATOR 00454 M01S00130.241l630 +++| SA6 A0+ 00455 M01S00131.241l630 +++| SX6 A0-HBUF+1 SAVE NUMBER OF WORDS IN FOT BUFFER 00456 M00S00319.fotd +++| SA6 WCNT 00457 M00S00320.fotd +++| EQ WFBX RETURN 00458 M00S00321.fotd +++| SPACE 4,5 00459 M00S00322.fotd +++|* COMMON DECKS. 00460 M00S00323.fotd +++| 00461 M00S00324.fotd +++|*CALL COMCCIO 00462 M00S00325.fotd +++|*CALL COMCCOD 00463 M00S00326.fotd +++|*CALL COMCCPM 00464 M00S00327.fotd +++| LIST X 00465 M00S00328.fotd +++|*CALL COMCFLD 00466 M00S00329.fotd +++| LIST * 00467 M00S00330.fotd +++|*CALL COMCLFM 00468 M00S00331.fotd +++|*CALL COMCSFN 00469 M00S00332.fotd +++|*CALL COMCSYS 00470 M00S00333.fotd +++|*CALL COMCWOD 00471 M00S00334.fotd +++|*CALL COMCWTC 00472 M00S00335.fotd +++|*CALL COMCWTO 00473 M00S00336.fotd +++|*CALL COMCWTW 00474 M00S00337.fotd +++|*CALL COMCZTB 00475 M00S00338.fotd +++| TITLE BUFFER AREA. 00476 M00S00339.fotd +++| USE BUFFERS 00477 M00S00340.fotd +++|
| Line S00341 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00478 M01S00341.241l630 ---|* BUFFER AREA. 00479 M01S00342.241l630 ---| 00480 M01S00343.241l630 ---| HBUF BSS 0 HEADER FOR *FOT* DISPLAY 00481 M01S00344.241l630 ---| 00482 M01S00345.241l630 ---| DATA 40H FOTD - FAMILY ORDINAL TABLE DISPLAY. 00483 M01S00346.241l630 ---| HDAT BSSZ 1 00484 M01S00347.241l630 ---| HTIM BSSZ 1 00485 M01S00348.241l630 ---| CON 0 00486 M01S00349.241l630 ---| DATA C* * 00487 M01S00350.241l630 ---| DATA C* FAMILY ORDINAL TABLE. AVAILABLE ENTRIES = B.* 00488 M01S00351.241l630 ---| HBUFA DATA C* * 00489 M01S00352.241l630 ---| HBUFB DATA C* DEFAULT FAMILY = * 00490 M01S00353.241l630 ---| DATA C* * 00491 M01S00354.241l630 ---| DATA C* ORD. FM ORD. FM ORD. FM* 00492 M01S00355.241l630 ---| DATA C* *
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00132.241l630 +++| 00494 M01S00133.241l630 +++|* BUFFER HEADER FOR PRINT OPTION. 00495 M01S00134.241l630 +++| 00496 M01S00135.241l630 +++| PBUF DATA 40H FOTD - FAMILY ORDINAL TABLE DISPLAY. 00497 M01S00136.241l630 +++| PDAT BSSZ 1 DATE STAMP BUFFER 00498 M01S00137.241l630 +++| PTIM BSSZ 1 TIME STAMP BUFFER 00499 M01S00138.241l630 +++| CON 0 END OF LINE 00500 M01S00139.241l630 +++| 00501 M01S00140.241l630 +++|* BUFFER HEADER FOR *L* DISPLAY OPTION. 00502 M01S00141.241l630 +++| 00503 M01S00142.241l630 +++| HBUF DATA C* FAMILY ORDINAL TABLE DISPLAY* 00504 M01S00143.241l630 +++| DATA C* * 00505 M01S00144.241l630 +++| HBUFA DATA 50H DEFAULT FAMILY = AVAILABLE ENTRIES 00506 M01S00145.241l630 +++| DATA 8C = B 00507 M01S00146.241l630 +++| HBUFB DATA C* * 00508 M01S00147.241l630 +++| DATA 50HORD. FAMILY ORD. FAMILY ORD. FAMILY ORD. 00509 M01S00148.241l630 +++| DATA 8CFAMILY 00510 M01S00149.241l630 +++| DATA C* * 00511 M01S00150.241l630 +++| 00512 M00S00356.fotd +++| HBUFL EQU *-HBUF LENGTH OF HEADER BUFFER 00513 M00S00357.fotd +++| 00514 M00S00358.fotd +++| WBUF EQU * WORKING BUFFER 00515 M00S00359.fotd +++| WBUFA EQU WBUF+WBUFL/2 *SFM* RETURNS DATA HERE 00516 M00S00360.fotd +++| 00517 M00S00361.fotd +++| LBUF EQU WBUF+WBUFL *L* DISPLAY BUFFER 00518 M00S00362.fotd +++| LBUFE EQU LBUF+LBUFL END OF *L* DISPLAY BUFFER 00519 M00S00363.fotd +++| 00520 M00S00364.fotd +++| OBUF EQU LBUF OUTPUT FILE BUFFER 00521 M00S00365.fotd +++| OBUFE EQU OBUF+OBUFL END OF OUTPUT BUFFER 00522 M00S00366.fotd +++| PRS TITLE PRESET. 00523 M00S00367.fotd +++|** PRS - PRESET ROUTINE. 00524 M00S00368.fotd +++|*
| Line S00369 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00369.v23l617 ---|* ENTRY CONTROL STATEMENT ARGUMENT LIST AT RA+2 (ARGR)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00526 M01S00006.v23l617 +++|* ENTRY COMMAND ARGUMENT LIST AT RA+2 (ARGR) 00527 M00S00370.fotd +++|* IN OPERATING SYSTEM FORMAT. 00528 M00S00371.fotd +++|* 00529 M00S00372.fotd +++|* EXIT (B1) = 1. 00530 M00S00373.fotd +++|* (PFLG) = 1, IF PRINT FILE REQUESTED. 00531 M00S00374.fotd +++|* (LFLG) = 1, IF *L* DISPLAY REQUESTED. 00532 M00S00375.fotd +++|*
| Line S00376 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00533 M01S00376.v23l617 ---|* ERROR TO *ERR*, IF ARGUMENT ERROR OR INVALID USER ACCESS.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00534 M01S00007.v23l617 +++|* ERROR TO *ERR*, IF ARGUMENT ERROR OR USER ACCESS NOT VALID. 00535 M00S00377.fotd +++|* (X2) = FWA ERROR MESSAGE. 00536 M00S00378.fotd +++| 00537 M00S00379.fotd +++| 00538 M00S00380.fotd +++|* SET DATE AND TIME IN HEADER. 00539 M00S00381.fotd +++|
| Line S00382 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00540 M01S00382.241l630 ---| PRS9 DATE HDAT 00541 M01S00383.241l630 ---| CLOCK HTIM
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00542 M01S00151.241l630 +++| PRS9 DATE PDAT SET DATE IN HEADER 00543 M01S00152.241l630 +++| CLOCK PTIM SET TIME IN HEADER 00544 M00S00384.fotd +++| 00545 M00S00385.fotd +++| PRS SUBR ENTRY/EXIT 00546 M00S00386.fotd +++| SB1 1 B1 = 1. 00547 M00S00387.fotd +++| GETSPS SYOF CHECK FOR SYSTEM ORIGIN PRIVILEGES 00548 M00S00388.fotd +++| SA1 SYOF 00549 M00S00389.fotd +++| ZR X1,PRS1 IF SYSTEM ORIGIN PRIVILEGES
| Line S00390 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00550 M01S00390.v23l617 ---| SX2 ERIU *INVALID USER ACCESS.*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00551 M01S00008.v23l617 +++| SX2 ERIU * USER ACCESS NOT VALID.* 00552 M00S00391.fotd +++| EQ ERR ABORT 00553 M00S00392.fotd +++| 00554 M00S00393.fotd +++|* PROCESS ARGUMENT LIST. 00555 M00S00394.fotd +++|
| Line S00395 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00556 M01S00395.v23l617 ---| PRS1 SB2 CCDR UNPACK CONTROL CARD
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00557 M01S00009.v23l617 +++| PRS1 SB2 CCDR UNPACK COMMAND 00558 M00S00396.fotd +++| RJ USB 00559 M00S00397.fotd +++| SA1 A6 ASSURE TERMINATOR CHARACTER 00560 M00S00398.fotd +++| SX6 1R. 00561 M00S00399.fotd +++| SA6 X1+B1 00562 M00S00400.fotd +++| SA2 PRSB SET SEPARATOR MASK 00563 M00S00401.fotd +++| SB2 60 SET MAXIMUM NON-DELIMITER DISPLAY CODE 00564 M00S00402.fotd +++| SB7 PRS8 SET EXIT FOR TERMINATOR CHARACTER 00565 M00S00403.fotd +++| RJ FNB FIND NON-BLANK CHARACTER 00566 M00S00404.fotd +++| 00567 M00S00405.fotd +++|* SKIP PROGRAM NAME. 00568 M00S00406.fotd +++| 00569 M00S00407.fotd +++| SB7 PRS6 SET EXIT FOR TERMINATOR CHARACTER 00570 M00S00408.fotd +++| PRS4 RJ FNB FIND NON-BLANK CHARACTER 00571 M00S00409.fotd +++| SB4 B5-B2 00572 M00S00410.fotd +++| LX4 X2,B5 00573 M00S00411.fotd +++| PL B4,PRS5 IF SEPARATOR CHARACTER 00574 M00S00412.fotd +++| PL X4,PRS4 IF NOT SEPARATOR CHARACTER 00575 M00S00413.fotd +++| PRS5 SB3 TARG FWA ARGUMENT EQUIVALENCE TABLE 00576 M00S00414.fotd +++| SB2 TARGL LENGTH ARGUMENT TABLE 00577 M00S00415.fotd +++| SB4 PRSA ADDRESS TO PLACE DATA 00578 M00S00416.fotd +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 00579 M00S00417.fotd +++| NG B5,PRS8 IF ARGUMENT ERROR 00580 M00S00418.fotd +++| PL X1,PRS6 IF NO ARGUMENTS PROCESSED
| Line S00419 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00581 M01S00419.241l630 ---| SX6 B5 SET LWA OF ARGUMENTS
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00582 M01S00153.241l630 +++| SX6 B5+ SET LWA OF ARGUMENTS 00583 M00S00420.fotd +++| SA6 USBC 00584 M00S00421.fotd +++| SB6 PRSA FWA OF ARGUMENTS 00585 M00S00422.fotd +++| RJ ARM PROCESS ARGUMENTS 00586 M00S00423.fotd +++| NZ X1,PRS8 IF ERROR 00587 M00S00424.fotd +++| 00588 M00S00425.fotd +++|* DETERMINE LIST OPTIONS. 00589 M00S00426.fotd +++| 00590 M00S00427.fotd +++| PRS6 SA1 LO GET CHARACTER FROM LIST OPTION 00591 M00S00428.fotd +++| SA2 TLOP-1 00592 M00S00429.fotd +++| MX0 6 00593 M00S00430.fotd +++| SB4 A2+ SAVE ADDRESS OF ARGUMENT TABLE 00594 M00S00431.fotd +++| PRS7 BX3 X0*X1 PROCESS NEXT CHARACTER FROM LIST OPTION 00595 M00S00432.fotd +++| ZR X3,PRS9 IF ALL OPTIONS PROCESSED 00596 M00S00433.fotd +++| PRS7.1 SA2 A2+B1 SEARCH ARGUMENT TABLE 00597 M00S00434.fotd +++| ZR X2,PRS8 IF LIST OPTION NOT DEFINED IN TABLE 00598 M00S00435.fotd +++| BX4 X0*X2 00599 M00S00436.fotd +++| BX4 X4-X3 00600 M00S00437.fotd +++| NZ X4,PRS7.1 IF MATCH NOT FOUND 00601 M00S00438.fotd +++| SX6 B1 SET FLAG FOR THIS OPTION 00602 M00S00439.fotd +++| SA6 X2 00603 M00S00440.fotd +++| SX3 A2-TLOP 00604 M00S00441.fotd +++| LX1 6 00605 M00S00442.fotd +++| SA2 B4 INITIALIZE TABLE ADDRESS 00606 M00S00443.fotd +++| NZ X3,PRS7 IF NOT LO=D 00607 M00S00444.fotd +++| MX4 -12 00608 M00S00445.fotd +++| SA3 JOPR CHECK FOR SYSTEM ORIGIN 00609 M00S00446.fotd +++| LX3 0-24 00610 M00S00447.fotd +++| BX3 -X4*X3 00611 M00S00448.fotd +++| SX3 X3-SYOT 00612 M00S00449.fotd +++| ZR X3,PRS7 IF SYSTEM ORIGIN JOB
| Line S00450 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00613 M01S00450.v23l617 ---| SX2 ERIU *INVALID USER ACCESS.*
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00614 M01S00010.v23l617 +++| SX2 ERIU * USER ACCESS NOT VALID.* 00615 M00S00451.fotd +++| EQ ERR ABORT 00616 M00S00452.fotd +++| 00617 M00S00453.fotd +++| PRS8 SX2 ERAR *ARGUMENT ERROR.* 00618 M00S00454.fotd +++| EQ ERR ABORT 00619 M00S00455.fotd +++| 00620 M00S00456.fotd +++| PRSA BSS 100 00621 M00S00457.fotd +++| 00622 M00S00458.fotd +++| PRSB CON 40000000000033127777B SEPARATOR MASK 00623 M00S00459.fotd +++| 00624 M00S00460.fotd +++|** ASSUMED VALUES FOR LIST OPTIONS. 00625 M00S00461.fotd +++| 00626 M00S00462.fotd +++| 00627 M00S00463.fotd +++| LO CON 0LD SELECTED LIST OPTION (DEFAULT = *D*) 00628 M00S00464.fotd +++| SPACE 4,10 00629 M00S00465.fotd +++|** ARGUMENT EQUIVALENCE TABLE. 00630 M00S00466.fotd +++| 00631 M00S00467.fotd +++| 00632 M00S00468.fotd +++| TARG BSS 0 00633 M00S00469.fotd +++| L ARG O,O,0,0 OUTPUT FILE NAME 00634 M00S00470.fotd +++| LO ARG LO,LO,0,0 LIST OPTIONS 00635 M00S00471.fotd +++| ARG END OF ARGUMENT TABLE 00636 M00S00472.fotd +++| TARGL EQU *-TARG-1 LENGTH OF ARGUMENT TABLE 00637 M00S00473.fotd +++| TLOP SPACE 4,15 00638 M00S00474.fotd +++|** TLOP - TABLE OF LIST OPTIONS. 00639 M00S00475.fotd +++|* 00640 M00S00476.fotd +++|*T, 42/ OPTION,18/ ADDR
Figure
00641 M00S00477.fotd +++|* 00642 M00S00478.fotd +++|* (ADDR) WILL BE SET NON-ZERO IN PRS IF OPTION IS SELECTED. 00643 M00S00479.fotd +++| 00644 M00S00480.fotd +++| 00645 M00S00481.fotd +++| TLOP BSS 0 00646 M00S00482.fotd +++| VFD 42/0LD,18/LFLG SELECT *L* DISPLAY 00647 M00S00483.fotd +++| VFD 42/0LL,18/PFLG SELECT LINE PRINTER 00648 M00S00484.fotd +++| CON 0 END OF TABLE 00649 M00S00485.fotd +++| FNB SPACE 4,15 00650 M00S00486.fotd +++|** FNB - FIND NON-BLANK CHARACTER. 00651 M00S00487.fotd +++|* 00652 M00S00488.fotd +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 00653 M00S00489.fotd +++|* (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED. 00654 M00S00490.fotd +++|* 00655 M00S00491.fotd +++|* EXIT (X1) = (B5) = NEXT NON-BLANK CHARACTER. 00656 M00S00492.fotd +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 00657 M00S00493.fotd +++|* EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED. 00658 M00S00494.fotd +++|* 00659 M00S00495.fotd +++|* USES X - 1, 4. 00660 M00S00496.fotd +++|* A - 1. 00661 M00S00497.fotd +++|* B - 5, 6. 00662 M00S00498.fotd +++| 00663 M00S00499.fotd +++| 00664 M00S00500.fotd +++| FNB SUBR ENTRY/EXIT 00665 M00S00501.fotd +++| FNB1 SA1 B6 GET NEXT CHARACTER 00666 M00S00502.fotd +++| SB6 B6+B1 00667 M00S00503.fotd +++| SX4 X1-1R 00668 M00S00504.fotd +++| ZR X4,FNB1 IF BLANK CHARACTER 00669 M00S00505.fotd +++| SB5 X1+ 00670 M00S00506.fotd +++| SX4 X1-1R. 00671 M00S00507.fotd +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 00672 M00S00508.fotd +++| SX4 X1-1R) 00673 M00S00509.fotd +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 00674 M00S00510.fotd +++| FNB2 JP B7 TERMINATOR CHARACTER 00675 M00S00511.fotd +++| TITLE PRESET COMMON DECKS. 00676 M00S00512.fotd +++|*CALL COMCARM 00677 M00S00513.fotd +++|*CALL COMCCPA 00678 M00S00514.fotd +++|*CALL COMCPOP 00679 M00S00515.fotd +++|*CALL COMCUSB 00680 M00S00516.fotd +++| SPACE 4,5 00681 M00S00517.fotd +++| FOTDE EQU * END OF PROGRAM 00682 M00S00518.fotd +++| .RFL= MAX FOTDE,LBUFE,OBUFE 00683 M00S00519.fotd +++| RFL= EQU .RFL= 00684 M00S00520.fotd +++| SPACE 4,5 00685 M00S00521.fotd +++| END
cdc/nos2.source/opl.opl871/deck/fotd.txt · Last modified: (external edit)