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
0 17 18 29 ADDR OPTION 30 59 OPTION
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