cdc:nos2.source:opl.opl871:deck:fotd
Deck FOTD
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.fotd +++| IDENT FOTD,FOT 00002 M01S00002.fotd +++| ABS 00003 M01S00003.fotd +++| SST 00004 M01S00004.fotd +++| ENTRY FOTD 00005 M01S00005.fotd +++| ENTRY RFL= 00006 M01S00006.fotd +++| ENTRY SSJ= 00007 M01S00007.fotd +++| SYSCOM B1 00008 M01S00008.fotd +++| TITLE FOTD - FAMILY ORDINAL TABLE DISPLAY. 00009 M01S00009.fotd +++|*COMMENT FOTD - FAMILY ORDINAL TABLE DISPLAY.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1981. 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00011.fotd +++| SPACE 4,10 00013 M01S00012.fotd +++|*** FOTD - FAMILY ORDINAL TABLE DISPLAY. 00014 M01S00013.fotd +++|* 00015 M01S00014.fotd +++|* B. J. OLIPHANT 81/03/19. 00016 M01S00015.fotd +++| SPACE 4,10 00017 M01S00016.fotd +++|*** *FOTD* IS A CPU UTILITY USED BY THE OPERATOR TO DISPLAY 00018 M01S00017.fotd +++|* THE FAMILY ORDINAL TABLE ASSIGNMENTS ON THE *L* DISPLAY OR 00019 M01S00018.fotd +++|* TO FORMAT IT FOR A PRINTER. 00020 M01S00019.fotd +++| SPACE 4,20
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00020.v23l617 ---|*** CONTROL STATEMENT CALL. 00022 M01S00001.v23l617 +++|*** COMMAND FORMAT. 00023 M01S00021.fotd +++|* 00024 M01S00022.fotd +++|* 00025 M01S00023.fotd +++|* FOTD(LFN,OP) ORDER DEPENDENT PARAMETERS. 00026 M01S00024.fotd +++|* OR 00027 M01S00025.fotd +++|* FOTD(L=LFN,LO=OP) ORDER INDEPENDENT (KEYWORD = PARAMETER). 00028 M01S00026.fotd +++|* 00029 M01S00027.fotd +++|* WHERE 00030 M01S00028.fotd +++|* 00031 M01S00029.fotd +++|* OP = *L* FORMAT DATA FOR A LINE PRINTER. 00032 M01S00030.fotd +++|* 00033 M01S00031.fotd +++|* OP = *D* FORMAT DATA FOR *L* DISPLAY (DEFAULT). 00034 M01S00032.fotd +++|* 00035 M01S00033.fotd +++|* LFN LIST OUTPUT FILE NAME (DEFAULT = OUTPUT). 00036 M01S00034.fotd +++|* THIS PARAMETER VALID ONLY WITH (LO=L). 00037 M01S00035.fotd +++|* 00038 M01S00036.fotd +++|* NOTES SPECIAL PRIVILEGES REQUIRED. 00039 M01S00037.fotd +++|* 1. USER MUST BE *SYOT* TO USE *L* DISPLAY (LO=D). 00040 M01S00038.fotd +++|* 2. USER MUST BE *SYOT* OR HAVE SYSTEM ORIGIN 00041 M01S00039.fotd +++|* PRIVILEGES TO GENERATE A LISTING (LO=L). 00042 M01S00040.fotd +++| SPACE 4,15 00043 M01S00041.fotd +++|*** DAYFILE MESSAGES. 00044 M01S00042.fotd +++|* 00045 M01S00043.fotd +++|* THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILES. 00046 M01S00044.fotd +++|* 00047 M01S00045.fotd +++|* *ARGUMENT ERROR.*
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00048 M02S00046.v23l617 ---|* AN INVALID PARAMETER WAS ENTERED. (FATAL ERROR) 00049 M01S00002.v23l617 +++|* AN INCORRECT PARAMETER WAS ENTERED. (FATAL ERROR) 00050 M01S00047.fotd +++|*
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00048.v23l617 ---|* *INVALID USER ACCESS.* 00052 M01S00003.v23l617 +++|* *USER ACCESS NOT VALID.* 00053 M01S00049.fotd +++|* CALLING JOB WAS NOT SYSTEM ORIGIN. (FATAL ERROR) 00054 M01S00050.fotd +++|* 00055 M01S00051.fotd +++|* *FOTD UTILITY COMPLETE.* 00056 M01S00052.fotd +++|* INDICATES NORMAL COMPLETION OF PROGRAM. 00057 M01S00053.fotd +++| SPACE 4,10 00058 M01S00054.fotd +++|*** DEFINITION COMMON DECKS. 00059 M01S00055.fotd +++|* 00060 M01S00056.fotd +++|*CALL COMCMAC 00061 M01S00057.fotd +++|*CALL COMCCMD 00062 M01S00004.v23l617 +++|*CALL COMCDCM 00063 M01S00058.fotd +++|*CALL COMSSFM 00064 M01S00059.fotd +++|*CALL COMSSSJ 00065 M01S00060.fotd +++| TITLE ASSEMBLY CONSTANTS. 00066 M01S00061.fotd +++|**** ASSEMBLY CONSTANTS. 00067 M01S00062.fotd +++| 00068 M01S00063.fotd +++| OBUFL EQU 101B OUTPUT BUFFER LENGTH 00069 M01S00064.fotd +++| LBUFL EQU LDSY *L* DISPLAY BUFFER LENGTH 00070 M01S00065.fotd +++| WBUFL EQU 100B*2 LENGTH WORKING BUFFER
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00071 M02S00066.241l630 ---| XCDT EQU 1 X - COORDINATE FOR *L* DISPLAY
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00072 M02S00067.241l630 ---| YCDT EQU 7 Y - COORDINATE FOR *L* DISPLAY 00073 M01S00001.241l630 +++| XCDT EQU 4 X - COORDINATE FOR *L* DISPLAY 00074 M01S00002.241l630 +++| YCDT EQU 2 Y - COORDINATE FOR *L* DISPLAY 00075 M01S00068.fotd +++| 00076 M01S00069.fotd +++|**** 00077 M01S00070.fotd +++| TITLE TABLES AND BUFFER DEFINITIONS. 00078 M01S00071.fotd +++| ORG 111B 00079 M01S00072.fotd +++| FOT BSS 0 00080 M01S00073.fotd +++| SPACE 4,10 00081 M01S00074.fotd +++|* DAYFILE MESSAGES. 00082 M01S00075.fotd +++| 00083 M01S00076.fotd +++| DAFC DATA C* FOTD UTILITY COMPLETE.* 00084 M01S00077.fotd +++| ERAR DATA C* ARGUMENT ERROR.*
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00085 M02S00078.v23l617 ---| ERIU DATA C* INVALID USER ACCESS.* 00086 M01S00005.v23l617 +++| ERIU DATA C* USER ACCESS NOT VALID.* 00087 M01S00079.fotd +++| SPACE 4,10 00088 M01S00080.fotd +++|* FLAG DEFINITIONS. 00089 M01S00081.fotd +++| 00090 M01S00082.fotd +++| LFLG CON 0 *L* DISPLAY FLAG 00091 M01S00083.fotd +++| PFLG CON 0 PRINTER OUTPUT FLAG 00092 M01S00084.fotd +++| SYOF CON 0 SYSTEM ORIGIN FLAG 00093 M01S00085.fotd +++| WCNT BSSZ 1 NUMBER OF WORDS STORED IN WORKING BUFFER 00094 M01S00086.fotd +++| SPACE 4,10 00095 M01S00087.fotd +++|* *L* DISPLAY BUFFER FIRST WORD. 00096 M01S00088.fotd +++|* 00097 M01S00089.fotd +++|* T, 12/ N ,1/ S ,1/ F ,46/ 00098 M01S00090.fotd +++|* 00099 M01S00091.fotd +++|* N SIZE OF DISPLAY BUFFER. 00100 M01S00092.fotd +++|* S CHARACTER SIZE. 00101 M01S00093.fotd +++|* F DATA FORMAT BIT. 00102 M01S00094.fotd +++| 00103 M01S00095.fotd +++| 00104 M01S00096.fotd +++| LDSW VFD 12/LBUFL,1/0,1/0,46/0 00105 M01S00097.fotd +++| SPACE 4,10 00106 M01S00098.fotd +++|** *SETJOB* PARAMETER BLOCK. 00107 M01S00099.fotd +++| 00108 M01S00100.fotd +++| SETB VFD 60/0 00109 M01S00101.fotd +++| VFD 48/0,12/2LDF 00110 M01S00102.fotd +++| SPACE 4,10 00111 M01S00103.fotd +++|** *SFM* PARAMETER BLOCK. 00112 M01S00104.fotd +++| 00113 M01S00105.fotd +++| 00114 M01S00106.fotd +++| SFMB VFD 12/RFDF,12/0,12/WBUFL/2,6/0,18/WBUFA 00115 M01S00107.fotd +++| CON 0 END OF *SFM* PARAMETER BLOCK 00116 M01S00108.fotd +++| SPACE 4,5 00117 M01S00109.fotd +++|* SSJ= PARAMETER BLOCK. 00118 M01S00110.fotd +++| 00119 M01S00111.fotd +++| 00120 M01S00112.fotd +++| SSJ= BSS 0 SSJ= ENTRY POINT 00121 M01S00113.fotd +++| BSSZ SSJL SSJ= PARAMETER BLOCK 00122 M01S00114.fotd +++| FETS SPACE 4,10 00123 M01S00115.fotd +++|* FET DEFINITIONS. 00124 M01S00116.fotd +++| 00125 M01S00117.fotd +++| O BSS 0 PRINTER OUTPUT FILE BUFFER 00126 M01S00118.fotd +++| OUTPUT FILEB OBUF,OBUFL,(FET=6) 00127 M01S00119.fotd +++| FOTD TITLE MAIN PROGRAM. 00128 M01S00120.fotd +++|** FOTD - MAIN PROGRAM. 00129 M01S00121.fotd +++|* 00130 M01S00122.fotd +++|* EXIT *FOTD* PROGRAM COMPLETED. 00131 M01S00123.fotd +++|*
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00132 M02S00124.241l630 ---|* USES X - 2.
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00125.241l630 ---|* A - NONE.
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00134 M02S00126.241l630 ---|* B - NONE.
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00135 M02S00127.241l630 ---|* 00136 M01S00128.fotd +++|* CALLS PRS, LOP. 00137 M01S00129.fotd +++|*
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00138 M02S00130.241l630 ---|* MACROS MESSAGE. 00139 M01S00003.241l630 +++|* MACROS ENDRUN, MESSAGE. 00140 M01S00131.fotd +++| 00141 M01S00132.fotd +++| 00142 M01S00133.fotd +++| FOTD BSS 0 ENTRY 00143 M01S00134.fotd +++| RJ PRS PRESET ROUTINE 00144 M01S00135.fotd +++| RJ LOP PROCESS LIST OPTIONS 00145 M01S00136.fotd +++| MESSAGE DAFC,0,R * FOTD UTILITY COMPLETE.* 00146 M01S00137.fotd +++| ENDRUN 00147 M01S00138.fotd +++| LOP TITLE LIST OPTION PROCESSOR. 00148 M01S00139.fotd +++|** LOP - LIST OPTION PROCESSOR. 00149 M01S00140.fotd +++|* 00150 M01S00141.fotd +++|* ENTRY USER HAS BEEN VALIDATED (EITHER SYSTEM ORIGIN 00151 M01S00142.fotd +++|* OR SYSTEM ORIGIN PRIVILEDGES). 00152 M01S00143.fotd +++|* 00153 M01S00144.fotd +++|* (PFLG) = 1, IF PRINT FILE REQUESTED. 00154 M01S00145.fotd +++|* (LFLG) = 1, IF *L* DISPLAY REQUESTED. 00155 M01S00146.fotd +++|* 00156 M01S00147.fotd +++|* EXIT (LBUF) = FWA OF FORMATTED *L* DISPLAY BUFFER, 00157 M01S00148.fotd +++|* DISPLAYED ON *L* DISPLAY, IF REQUESTED. 00158 M01S00149.fotd +++|* 00159 M01S00150.fotd +++|* PRINT FILE, IF REQUESTED, LOCAL TO USER JOB. 00160 M01S00151.fotd +++|* 00161 M01S00152.fotd +++|* USES X - 1, 2. 00162 M01S00153.fotd +++|* A - 1, 2. 00163 M01S00154.fotd +++|* B - NONE. 00164 M01S00155.fotd +++|* 00165 M01S00156.fotd +++|* CALLS FDB, RFD. 00166 M01S00157.fotd +++|*
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00167 M02S00158.241l630 ---|* MACROS DSDOUT, SETFS, WRITER. 00168 M01S00004.241l630 +++|* MACROS DSDOUT, SETFS, SETJOB, WRITER. 00169 M01S00159.fotd +++| 00170 M01S00160.fotd +++| 00171 M01S00161.fotd +++| LOP SUBR ENTRY/EXIT 00172 M01S00162.fotd +++| RJ RFD GET FOT DATA 00173 M01S00163.fotd +++| SA2 PFLG CHECK PRINTER FLAG 00174 M01S00164.fotd +++| ZR X2,LOP1 IF NOT FOR PRINTER 00175 M01S00165.fotd +++| SX2 O SET OUTPUT FET ADDRESS 00176 M01S00166.fotd +++| RJ FDB BUILD PRINT FILE 00177 M01S00167.fotd +++| WRITER O FLUSH OUTPUT BUFFER 00178 M01S00168.fotd +++| SETFS O,0 SAVE OUTPUT AS LOCAL FILE 00179 M01S00169.fotd +++| SETJOB SETB CHANGE JOB DISPOSITION
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00170.241l630 ---| SX2 B0 ENTRY CONDITION IN *FDB* FOR *L* DISPLAY 00181 M01S00005.241l630 +++| SX2 B0+ INDICATE *L* DISPLAY FOR *FDB* 00182 M01S00171.fotd +++| LOP1 SA1 LFLG 00183 M01S00172.fotd +++| ZR X1,LOPX IF *L* DISPLAY NOT SELECTED 00184 M01S00173.fotd +++| RJ FDB BUILD DISPLAY BUFFER 00185 M01S00174.fotd +++| DSDOUT LBUF DISPLAY *L* DISPLAY BUFFER 00186 M01S00175.fotd +++| EQ LOPX RETURN 00187 M01S00176.fotd +++| TITLE SUBROUTINES. 00188 M01S00177.fotd +++| ERR SPACE 4,10 00189 M01S00178.fotd +++|** ERR - ERROR PROCESSOR. 00190 M01S00179.fotd +++|* 00191 M01S00180.fotd +++|* ENTRY (X2) = ADDRESS OF ERROR MESSAGE. 00192 M01S00181.fotd +++|* 00193 M01S00182.fotd +++|* EXIT MESSAGE ISSUED IN SYSTEM AND USER DAYFILE. 00194 M01S00183.fotd +++|* 00195 M01S00184.fotd +++|* MACROS ABORT, MESSAGE. 00196 M01S00185.fotd +++| 00197 M01S00186.fotd +++| 00198 M01S00187.fotd +++| ERR BSS 0 ENTRY 00199 M01S00188.fotd +++| MESSAGE X2,0,R 00200 M01S00189.fotd +++| ABORT 00201 M01S00190.fotd +++| FDB SPACE 4,10 00202 M01S00191.fotd +++|** FDB - FORMAT DISPLAY BUFFER. 00203 M01S00192.fotd +++|* 00204 M01S00193.fotd +++|* ENTRY (X2) = 0, IF FORMATTING FOR *L* DISPLAY. 00205 M01S00194.fotd +++|* .EQ. FET ADDRESS OF OUTPUT FILE IF FOR PRINTER. 00206 M01S00195.fotd +++|* 00207 M01S00196.fotd +++|* EXIT (LBUF) = FWA FORMATTED *L* DISPLAY BUFFER. 00208 M01S00197.fotd +++|* 00209 M01S00198.fotd +++|* USES X - 1, 3, 4, 6, 7.
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00210 M02S00199.241l630 ---|* A - 3, 4, 7. 00211 M01S00006.241l630 +++|* A - 3, 4, 7. 00212 M01S00200.fotd +++|* B - 2, 3, 4, 6. 00213 M01S00201.fotd +++|*
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00214 M02S00202.241l630 ---|* CALLS FLD. 00215 M01S00007.241l630 +++|* CALLS FLB. 00216 M01S00203.fotd +++| 00217 M01S00204.fotd +++| 00218 M01S00205.fotd +++| FDB SUBR ENTRY/EXIT 00219 M01S00206.fotd +++| 00220 M01S00207.fotd +++|* SET UP PARAMETERS FOR *FLD*. 00221 M01S00208.fotd +++|
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00222 M02S00209.241l630 ---| SX1 HBUF FWA BUFFER TO REFORMAT 00223 M01S00210.fotd +++| SA3 WCNT GET NUMBER OF WORDS TO REFORMAT 00224 M01S00211.fotd +++| SX6 X3+HBUF-1 LWA OF BUFFER TO REFORMAT 00225 M01S00212.fotd +++| SX3 B1+ *C* DISPLAY FORMAT 00226 M01S00213.fotd +++| SB2 LBUF+1 FWA TO PLACE FORMATTED DATA 00227 M01S00214.fotd +++| SB6 LBUF+LBUFL LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA 00228 M01S00008.241l630 +++| SX1 PBUF ASSUME FORMATTING FOR PRINTER 00229 M01S00215.fotd +++| NZ X2,FDB1 IF FORMATTING FOR PRINTER 00230 M01S00216.fotd +++| SA4 LDSW INITIALIZE *L* DISPLAY BUFFER 00231 M01S00217.fotd +++| BX7 X4 00232 M01S00218.fotd +++| SA7 B2-B1 00233 M01S00219.fotd +++| SB3 XCDT SET X-COORDINATE FOR *L* DISPLAY 00234 M01S00220.fotd +++| SB4 YCDT SET Y-COORDINATE FOR *L* DISPLAY
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00235 M02S00221.241l630 ---| FDB1 RJ FLD FORMAT DATA TO BE OUTPUT 00236 M01S00009.241l630 +++| SX1 HBUF FWA FOR FORMATTING FOR *L* DISPLAY 00237 M01S00010.241l630 +++| FDB1 RJ FLB FORMAT DATA TO BE OUTPUT 00238 M01S00222.fotd +++| EQ FDBX RETURN 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 M01S00223.fotd +++| RFD SPACE 4,15 00286 M01S00224.fotd +++|** RFD - RETURN *FOT* DATA. 00287 M01S00225.fotd +++|* 00288 M01S00226.fotd +++|* ENTRY (SFMB) = *SFM* PARAMETER BLOCK SET UP 00289 M01S00227.fotd +++|* FOR *RFDF* SUBFUNCTION. 00290 M01S00228.fotd +++|* 00291 M01S00229.fotd +++|* EXIT FAMILY ORDINAL TABLE (FOT) STORED. 00292 M01S00230.fotd +++|* (HBUF) = FWA OF FORMATTED *FOT* DATA. 00293 M01S00231.fotd +++|* 00294 M01S00232.fotd +++|* USES X - 0, 1, 2.
| Line S00233 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00295 M02S00233.241l630 ---|* A - 1, 2. 00296 M01S00057.241l630 +++|* A - 2. 00297 M01S00234.fotd +++|* B - NONE. 00298 M01S00235.fotd +++|* 00299 M01S00236.fotd +++|* CALLS WFB. 00300 M01S00237.fotd +++|* 00301 M01S00238.fotd +++|* MACROS SYSTEM. 00302 M01S00239.fotd +++| 00303 M01S00240.fotd +++| 00304 M01S00241.fotd +++| RFD SUBR ENTRY/EXIT 00305 M01S00242.fotd +++| SYSTEM SFM,R,SFMB,RSDF*100B RETURN SYSTEM DATA 00306 M01S00243.fotd +++| SA2 SFMB SAVE INFORMATION FROM PARAMETER WORD 00307 M01S00244.fotd +++| LX2 11-47 GET MAXIMUM NUMBER ORDINALS POSSIBLE 00308 M01S00245.fotd +++| MX0 -12 00309 M01S00246.fotd +++| BX1 -X0*X2 00310 M01S00247.fotd +++| LX2 11-59 GET NUMBER OF ORDINALS CURRENTLY IN USE 00311 M01S00248.fotd +++| BX2 -X0*X2 00312 M01S00249.fotd +++| IX1 X1-X2 NUMBER OF FOT ENTRIES STILL AVAILABLE 00313 M01S00250.fotd +++| RJ WFB WRITE FOT BUFFER 00314 M01S00251.fotd +++| EQ RFDX RETURN 00315 M01S00252.fotd +++| WFB SPACE 4,15 00316 M01S00253.fotd +++|** WFB - WRITE *FOT* BUFFER. 00317 M01S00254.fotd +++|* 00318 M01S00255.fotd +++|* ENTRY (X1) = NUMBER OF FOT ENTRIES STILL AVAILABLE. 00319 M01S00256.fotd +++|* (X2) = NUMBER OF *FOT* ENTRIES RETURNED BY *SFM*. 00320 M01S00257.fotd +++|* (WBUFA) = ADDRESS OF FIRST *FOT ENTRY. 00321 M01S00258.fotd +++|* 00322 M01S00259.fotd +++|* EXIT (HBUF) = FWA OF FORMATTED *FOT* DATA. 00323 M01S00260.fotd +++|* (WCNT) = NUMBER OF WORDS STORED IN (HBUF). 00324 M01S00261.fotd +++|*
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00325 M02S00262.241l630 ---|* USES X - 0, 1, 2, 4, 6, 7.
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00263.241l630 ---|* A - 0, 1, 4, 6, 7.
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00327 M02S00264.241l630 ---|* B - 5, 6, 7.
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00328 M02S00265.241l630 ---|*
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00329 M02S00266.241l630 ---|* CALLS COD, SFN. 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 M01S00267.fotd +++| 00336 M01S00268.fotd +++| 00337 M01S00269.fotd +++| WFB SUBR ENTRY/EXIT 00338 M01S00270.fotd +++| SB5 X2 SAVE NUMBER OF FAMILIES
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00339 M02S00271.241l630 ---| SB6 B1 SET FIRST ORDINAL NUMBER
| Line S00272 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00340 M02S00272.241l630 ---| RJ COD CONVERT AVAILABLE ENTRIES TO DISPLAY CODE
| Line S00273 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00341 M02S00273.241l630 ---| SB7 3 NUMBER OF FAMILIES PER LINE OF OUTPUT
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00342 M02S00274.241l630 ---| MX0 12
| Line S00275 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00343 M02S00275.241l630 ---| BX6 X0*X4 REMOVE BLANK CHARACTERS RETURNED BY *COD*
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00344 M02S00276.241l630 ---| SA1 HBUFA-1 MERGE INTO HEADER LINE
| Line S00277 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00345 M02S00277.241l630 ---| BX1 -X0*X1 PRESERVE ORIGINAL LINE 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 M01S00278.fotd +++| BX6 X6+X1 INSERT AVAILABLE ENTRIES
| Line S00279 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00356 M02S00279.241l630 ---| SA6 A1 00357 M01S00072.241l630 +++| SA6 A1+ 00358 M01S00280.fotd +++| SA4 WBUFA SET FIRST FAMILY = DEFAULT FAMILY 00359 M01S00281.fotd +++| MX0 42 00360 M01S00282.fotd +++| BX1 X0*X4
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00361 M02S00283.241l630 ---| SA4 HBUFB+2 00362 M01S00073.241l630 +++| SA4 HBUFA+2 00363 M01S00284.fotd +++| MX0 18 00364 M01S00074.241l630 +++| LX0 12 ADJUST MASK 00365 M01S00285.fotd +++| RJ SFN SPACE-FILL NAME 00366 M01S00286.fotd +++| BX7 X0*X4
| Line S00287 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00367 M02S00287.241l630 ---| LX6 -18 00368 M01S00075.241l630 +++| LX6 -6 00369 M01S00288.fotd +++| BX6 -X0*X6 00370 M01S00289.fotd +++| BX7 X6+X7 MERGE FAMILY INTO HEADER LINE
| Line S00290 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00371 M02S00290.241l630 ---| SA7 A4 00372 M01S00076.241l630 +++| SA7 A4+ 00373 M01S00291.fotd +++| SA0 WBUF FWA TO RETURN REFORMATTED DATA
| Line S00292 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00374 M02S00292.241l630 ---| WFB1 SX1 B6+ GET ORDINAL NUMBER
| Line S00293 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00375 M02S00293.241l630 ---| RJ COD CONVERT TO DISPLAY CODE
| Line S00294 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00376 M02S00294.241l630 ---| LX6 12
| Line S00295 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00377 M02S00295.241l630 ---| SA6 A0+ SET ORDINAL NUMBER
| Line S00296 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00296.241l630 ---| SA0 A0+B1 INCREMENT FORMATTED BUFFER ADDRESS
| Line S00297 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00379 M02S00297.241l630 ---| SA1 WBUFA-1+B6 GET FAMILY NAME
| Line S00298 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00380 M02S00298.241l630 ---| MX0 42 SPACE-FILL SEVEN CHARACTERS ONLY
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00381 M02S00299.241l630 ---| BX1 X0*X1
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00382 M02S00300.241l630 ---| RJ SFN SPACE-FILL NAME
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00383 M02S00301.241l630 ---| BX6 X0*X6 SAVE SEVEN CHARACTERS ONLY
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00384 M02S00302.241l630 ---| SX2 1R. ADD A PERIOD
| Line S00303 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00303.241l630 ---| LX2 12
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00386 M02S00304.241l630 ---| IX6 X6+X2
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00305.241l630 ---| EQ B6,B5,WFB2 IF PROCESSING LAST FAMILY, NO SPACE FILL
| Line S00306 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00306.241l630 ---| SB7 B7-1 DECREMENT NUMBER FAMILIES PER LINE
| Line S00307 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00389 M02S00307.241l630 ---| ZR B7,WFB2 IF END OF LINE, DO NOT SPACE FILL
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00390 M02S00308.241l630 ---| SX2 2R SPACE FILL NAME
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00309.241l630 ---| BX6 X6+X2
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00392 M02S00310.241l630 ---| WFB2 SA6 A0 SET FAMILY NAME
| Line S00311 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00311.241l630 ---| SA0 A0+B1 INCREMENT FORMATTED BUFFER ADDRESS
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00394 M02S00312.241l630 ---| EQ B6,B5,WFB3 IF ALL FAMILIES DONE
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00395 M02S00313.241l630 ---| SB6 B6+1 INCREMENT ORDINAL NUMBER
| Line S00314 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00396 M02S00314.241l630 ---| NZ B7,WFB1 IF NOT AT END OF A LINE
| Line S00315 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00397 M02S00315.241l630 ---| SB7 3 RESET NUMBER OF FAMILIES PER LINE
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00398 M02S00316.241l630 ---| EQ WFB1 GET NEXT ENTRY
| Line S00317 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00399 M02S00317.241l630 ---|
| Line S00318 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00400 M02S00318.241l630 ---| WFB3 SX6 A0-HBUF SAVE NUMBER OF WORDS IN FOT BUFFER 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 M01S00319.fotd +++| SA6 WCNT 00457 M01S00320.fotd +++| EQ WFBX RETURN 00458 M01S00321.fotd +++| SPACE 4,5 00459 M01S00322.fotd +++|* COMMON DECKS. 00460 M01S00323.fotd +++| 00461 M01S00324.fotd +++|*CALL COMCCIO 00462 M01S00325.fotd +++|*CALL COMCCOD 00463 M01S00326.fotd +++|*CALL COMCCPM 00464 M01S00327.fotd +++| LIST X 00465 M01S00328.fotd +++|*CALL COMCFLD 00466 M01S00329.fotd +++| LIST * 00467 M01S00330.fotd +++|*CALL COMCLFM 00468 M01S00331.fotd +++|*CALL COMCSFN 00469 M01S00332.fotd +++|*CALL COMCSYS 00470 M01S00333.fotd +++|*CALL COMCWOD 00471 M01S00334.fotd +++|*CALL COMCWTC 00472 M01S00335.fotd +++|*CALL COMCWTO 00473 M01S00336.fotd +++|*CALL COMCWTW 00474 M01S00337.fotd +++|*CALL COMCZTB 00475 M01S00338.fotd +++| TITLE BUFFER AREA. 00476 M01S00339.fotd +++| USE BUFFERS 00477 M01S00340.fotd +++|
| Line S00341 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00478 M02S00341.241l630 ---|* BUFFER AREA.
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00479 M02S00342.241l630 ---|
| Line S00343 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00343.241l630 ---| HBUF BSS 0 HEADER FOR *FOT* DISPLAY
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00481 M02S00344.241l630 ---|
| Line S00345 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00345.241l630 ---| DATA 40H FOTD - FAMILY ORDINAL TABLE DISPLAY.
| Line S00346 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00483 M02S00346.241l630 ---| HDAT BSSZ 1
| Line S00347 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00484 M02S00347.241l630 ---| HTIM BSSZ 1
| Line S00348 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00485 M02S00348.241l630 ---| CON 0
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00486 M02S00349.241l630 ---| DATA C* *
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00350.241l630 ---| DATA C* FAMILY ORDINAL TABLE. AVAILABLE ENTRIES = B.*
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00488 M02S00351.241l630 ---| HBUFA DATA C* *
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00489 M02S00352.241l630 ---| HBUFB DATA C* DEFAULT FAMILY = *
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00490 M02S00353.241l630 ---| DATA C* *
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00491 M02S00354.241l630 ---| DATA C* ORD. FM ORD. FM ORD. FM*
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00492 M02S00355.241l630 ---| DATA C* * 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 M01S00356.fotd +++| HBUFL EQU *-HBUF LENGTH OF HEADER BUFFER 00513 M01S00357.fotd +++| 00514 M01S00358.fotd +++| WBUF EQU * WORKING BUFFER 00515 M01S00359.fotd +++| WBUFA EQU WBUF+WBUFL/2 *SFM* RETURNS DATA HERE 00516 M01S00360.fotd +++| 00517 M01S00361.fotd +++| LBUF EQU WBUF+WBUFL *L* DISPLAY BUFFER 00518 M01S00362.fotd +++| LBUFE EQU LBUF+LBUFL END OF *L* DISPLAY BUFFER 00519 M01S00363.fotd +++| 00520 M01S00364.fotd +++| OBUF EQU LBUF OUTPUT FILE BUFFER 00521 M01S00365.fotd +++| OBUFE EQU OBUF+OBUFL END OF OUTPUT BUFFER 00522 M01S00366.fotd +++| PRS TITLE PRESET. 00523 M01S00367.fotd +++|** PRS - PRESET ROUTINE. 00524 M01S00368.fotd +++|*
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00525 M02S00369.v23l617 ---|* ENTRY CONTROL STATEMENT ARGUMENT LIST AT RA+2 (ARGR) 00526 M01S00006.v23l617 +++|* ENTRY COMMAND ARGUMENT LIST AT RA+2 (ARGR) 00527 M01S00370.fotd +++|* IN OPERATING SYSTEM FORMAT. 00528 M01S00371.fotd +++|* 00529 M01S00372.fotd +++|* EXIT (B1) = 1. 00530 M01S00373.fotd +++|* (PFLG) = 1, IF PRINT FILE REQUESTED. 00531 M01S00374.fotd +++|* (LFLG) = 1, IF *L* DISPLAY REQUESTED. 00532 M01S00375.fotd +++|*
| Line S00376 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00533 M02S00376.v23l617 ---|* ERROR TO *ERR*, IF ARGUMENT ERROR OR INVALID USER ACCESS. 00534 M01S00007.v23l617 +++|* ERROR TO *ERR*, IF ARGUMENT ERROR OR USER ACCESS NOT VALID. 00535 M01S00377.fotd +++|* (X2) = FWA ERROR MESSAGE. 00536 M01S00378.fotd +++| 00537 M01S00379.fotd +++| 00538 M01S00380.fotd +++|* SET DATE AND TIME IN HEADER. 00539 M01S00381.fotd +++|
| Line S00382 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00540 M02S00382.241l630 ---| PRS9 DATE HDAT
| Line S00383 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00541 M02S00383.241l630 ---| CLOCK HTIM 00542 M01S00151.241l630 +++| PRS9 DATE PDAT SET DATE IN HEADER 00543 M01S00152.241l630 +++| CLOCK PTIM SET TIME IN HEADER 00544 M01S00384.fotd +++| 00545 M01S00385.fotd +++| PRS SUBR ENTRY/EXIT 00546 M01S00386.fotd +++| SB1 1 B1 = 1. 00547 M01S00387.fotd +++| GETSPS SYOF CHECK FOR SYSTEM ORIGIN PRIVILEGES 00548 M01S00388.fotd +++| SA1 SYOF 00549 M01S00389.fotd +++| ZR X1,PRS1 IF SYSTEM ORIGIN PRIVILEGES
| Line S00390 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00390.v23l617 ---| SX2 ERIU *INVALID USER ACCESS.* 00551 M01S00008.v23l617 +++| SX2 ERIU * USER ACCESS NOT VALID.* 00552 M01S00391.fotd +++| EQ ERR ABORT 00553 M01S00392.fotd +++| 00554 M01S00393.fotd +++|* PROCESS ARGUMENT LIST. 00555 M01S00394.fotd +++|
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00556 M02S00395.v23l617 ---| PRS1 SB2 CCDR UNPACK CONTROL CARD 00557 M01S00009.v23l617 +++| PRS1 SB2 CCDR UNPACK COMMAND 00558 M01S00396.fotd +++| RJ USB 00559 M01S00397.fotd +++| SA1 A6 ASSURE TERMINATOR CHARACTER 00560 M01S00398.fotd +++| SX6 1R. 00561 M01S00399.fotd +++| SA6 X1+B1 00562 M01S00400.fotd +++| SA2 PRSB SET SEPARATOR MASK 00563 M01S00401.fotd +++| SB2 60 SET MAXIMUM NON-DELIMITER DISPLAY CODE 00564 M01S00402.fotd +++| SB7 PRS8 SET EXIT FOR TERMINATOR CHARACTER 00565 M01S00403.fotd +++| RJ FNB FIND NON-BLANK CHARACTER 00566 M01S00404.fotd +++| 00567 M01S00405.fotd +++|* SKIP PROGRAM NAME. 00568 M01S00406.fotd +++| 00569 M01S00407.fotd +++| SB7 PRS6 SET EXIT FOR TERMINATOR CHARACTER 00570 M01S00408.fotd +++| PRS4 RJ FNB FIND NON-BLANK CHARACTER 00571 M01S00409.fotd +++| SB4 B5-B2 00572 M01S00410.fotd +++| LX4 X2,B5 00573 M01S00411.fotd +++| PL B4,PRS5 IF SEPARATOR CHARACTER 00574 M01S00412.fotd +++| PL X4,PRS4 IF NOT SEPARATOR CHARACTER 00575 M01S00413.fotd +++| PRS5 SB3 TARG FWA ARGUMENT EQUIVALENCE TABLE 00576 M01S00414.fotd +++| SB2 TARGL LENGTH ARGUMENT TABLE 00577 M01S00415.fotd +++| SB4 PRSA ADDRESS TO PLACE DATA 00578 M01S00416.fotd +++| RJ CPA CONVERT POSITIONAL ARGUMENTS 00579 M01S00417.fotd +++| NG B5,PRS8 IF ARGUMENT ERROR 00580 M01S00418.fotd +++| PL X1,PRS6 IF NO ARGUMENTS PROCESSED
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00581 M02S00419.241l630 ---| SX6 B5 SET LWA OF ARGUMENTS 00582 M01S00153.241l630 +++| SX6 B5+ SET LWA OF ARGUMENTS 00583 M01S00420.fotd +++| SA6 USBC 00584 M01S00421.fotd +++| SB6 PRSA FWA OF ARGUMENTS 00585 M01S00422.fotd +++| RJ ARM PROCESS ARGUMENTS 00586 M01S00423.fotd +++| NZ X1,PRS8 IF ERROR 00587 M01S00424.fotd +++| 00588 M01S00425.fotd +++|* DETERMINE LIST OPTIONS. 00589 M01S00426.fotd +++| 00590 M01S00427.fotd +++| PRS6 SA1 LO GET CHARACTER FROM LIST OPTION 00591 M01S00428.fotd +++| SA2 TLOP-1 00592 M01S00429.fotd +++| MX0 6 00593 M01S00430.fotd +++| SB4 A2+ SAVE ADDRESS OF ARGUMENT TABLE 00594 M01S00431.fotd +++| PRS7 BX3 X0*X1 PROCESS NEXT CHARACTER FROM LIST OPTION 00595 M01S00432.fotd +++| ZR X3,PRS9 IF ALL OPTIONS PROCESSED 00596 M01S00433.fotd +++| PRS7.1 SA2 A2+B1 SEARCH ARGUMENT TABLE 00597 M01S00434.fotd +++| ZR X2,PRS8 IF LIST OPTION NOT DEFINED IN TABLE 00598 M01S00435.fotd +++| BX4 X0*X2 00599 M01S00436.fotd +++| BX4 X4-X3 00600 M01S00437.fotd +++| NZ X4,PRS7.1 IF MATCH NOT FOUND 00601 M01S00438.fotd +++| SX6 B1 SET FLAG FOR THIS OPTION 00602 M01S00439.fotd +++| SA6 X2 00603 M01S00440.fotd +++| SX3 A2-TLOP 00604 M01S00441.fotd +++| LX1 6 00605 M01S00442.fotd +++| SA2 B4 INITIALIZE TABLE ADDRESS 00606 M01S00443.fotd +++| NZ X3,PRS7 IF NOT LO=D 00607 M01S00444.fotd +++| MX4 -12 00608 M01S00445.fotd +++| SA3 JOPR CHECK FOR SYSTEM ORIGIN 00609 M01S00446.fotd +++| LX3 0-24 00610 M01S00447.fotd +++| BX3 -X4*X3 00611 M01S00448.fotd +++| SX3 X3-SYOT 00612 M01S00449.fotd +++| ZR X3,PRS7 IF SYSTEM ORIGIN JOB
| Line S00450 Modification History | |
|---|---|
M01 (Added by) | fotd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00613 M02S00450.v23l617 ---| SX2 ERIU *INVALID USER ACCESS.* 00614 M01S00010.v23l617 +++| SX2 ERIU * USER ACCESS NOT VALID.* 00615 M01S00451.fotd +++| EQ ERR ABORT 00616 M01S00452.fotd +++| 00617 M01S00453.fotd +++| PRS8 SX2 ERAR *ARGUMENT ERROR.* 00618 M01S00454.fotd +++| EQ ERR ABORT 00619 M01S00455.fotd +++| 00620 M01S00456.fotd +++| PRSA BSS 100 00621 M01S00457.fotd +++| 00622 M01S00458.fotd +++| PRSB CON 40000000000033127777B SEPARATOR MASK 00623 M01S00459.fotd +++| 00624 M01S00460.fotd +++|** ASSUMED VALUES FOR LIST OPTIONS. 00625 M01S00461.fotd +++| 00626 M01S00462.fotd +++| 00627 M01S00463.fotd +++| LO CON 0LD SELECTED LIST OPTION (DEFAULT = *D*) 00628 M01S00464.fotd +++| SPACE 4,10 00629 M01S00465.fotd +++|** ARGUMENT EQUIVALENCE TABLE. 00630 M01S00466.fotd +++| 00631 M01S00467.fotd +++| 00632 M01S00468.fotd +++| TARG BSS 0 00633 M01S00469.fotd +++| L ARG O,O,0,0 OUTPUT FILE NAME 00634 M01S00470.fotd +++| LO ARG LO,LO,0,0 LIST OPTIONS 00635 M01S00471.fotd +++| ARG END OF ARGUMENT TABLE 00636 M01S00472.fotd +++| TARGL EQU *-TARG-1 LENGTH OF ARGUMENT TABLE 00637 M01S00473.fotd +++| TLOP SPACE 4,15 00638 M01S00474.fotd +++|** TLOP - TABLE OF LIST OPTIONS. 00639 M01S00475.fotd +++|* 00640 M01S00476.fotd +++|*T, 42/ OPTION,18/ ADDR
Figure
00641 M01S00477.fotd +++|* 00642 M01S00478.fotd +++|* (ADDR) WILL BE SET NON-ZERO IN PRS IF OPTION IS SELECTED. 00643 M01S00479.fotd +++| 00644 M01S00480.fotd +++| 00645 M01S00481.fotd +++| TLOP BSS 0 00646 M01S00482.fotd +++| VFD 42/0LD,18/LFLG SELECT *L* DISPLAY 00647 M01S00483.fotd +++| VFD 42/0LL,18/PFLG SELECT LINE PRINTER 00648 M01S00484.fotd +++| CON 0 END OF TABLE 00649 M01S00485.fotd +++| FNB SPACE 4,15 00650 M01S00486.fotd +++|** FNB - FIND NON-BLANK CHARACTER. 00651 M01S00487.fotd +++|* 00652 M01S00488.fotd +++|* ENTRY (B6) = NEXT CHARACTER ADDRESS. 00653 M01S00489.fotd +++|* (B7) = EXIT ADDRESS, IF TERMINATOR ENCOUNTERED. 00654 M01S00490.fotd +++|* 00655 M01S00491.fotd +++|* EXIT (X1) = (B5) = NEXT NON-BLANK CHARACTER. 00656 M01S00492.fotd +++|* (B6) = NEXT CHARACTER ADDRESS (UPDATED). 00657 M01S00493.fotd +++|* EXIT IS MADE TO (B7), IF TERMINATOR ENCOUNTERED. 00658 M01S00494.fotd +++|* 00659 M01S00495.fotd +++|* USES X - 1, 4. 00660 M01S00496.fotd +++|* A - 1. 00661 M01S00497.fotd +++|* B - 5, 6. 00662 M01S00498.fotd +++| 00663 M01S00499.fotd +++| 00664 M01S00500.fotd +++| FNB SUBR ENTRY/EXIT 00665 M01S00501.fotd +++| FNB1 SA1 B6 GET NEXT CHARACTER 00666 M01S00502.fotd +++| SB6 B6+B1 00667 M01S00503.fotd +++| SX4 X1-1R 00668 M01S00504.fotd +++| ZR X4,FNB1 IF BLANK CHARACTER 00669 M01S00505.fotd +++| SB5 X1+ 00670 M01S00506.fotd +++| SX4 X1-1R. 00671 M01S00507.fotd +++| ZR X4,FNB2 IF TERMINATOR CHARACTER 00672 M01S00508.fotd +++| SX4 X1-1R) 00673 M01S00509.fotd +++| NZ X4,FNBX IF NOT TERMINATOR CHARACTER, RETURN 00674 M01S00510.fotd +++| FNB2 JP B7 TERMINATOR CHARACTER 00675 M01S00511.fotd +++| TITLE PRESET COMMON DECKS. 00676 M01S00512.fotd +++|*CALL COMCARM 00677 M01S00513.fotd +++|*CALL COMCCPA 00678 M01S00514.fotd +++|*CALL COMCPOP 00679 M01S00515.fotd +++|*CALL COMCUSB 00680 M01S00516.fotd +++| SPACE 4,5 00681 M01S00517.fotd +++| FOTDE EQU * END OF PROGRAM 00682 M01S00518.fotd +++| .RFL= MAX FOTDE,LBUFE,OBUFE 00683 M01S00519.fotd +++| RFL= EQU .RFL= 00684 M01S00520.fotd +++| SPACE 4,5 00685 M01S00521.fotd +++| END
cdc/nos2.source/opl.opl871/deck/fotd.txt · Last modified: by 127.0.0.1