Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comcfld +++| CTEXT COMCFLD - FORMAT *L* DISPLAY.
00002 M01S00002.comcfld +++| SPACE 4,10
00003 M01S00003.comcfld +++| IF -DEF,QUAL$
00004 M01S00004.comcfld +++| QUAL COMCFLD
00005 M01S00005.comcfld +++| QUAL$ ENDIF
00006 M01S00006.comcfld +++| BASE D
| Line S00007 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.ns22000 ---|*COMMENT FORMAT *L* DISPLAY.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M02S00001.281l803 ---|* COMMENT COMCFLD - FORMAT *L* DISPLAY.
| Line S00008 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
00010 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M01S00009.comcfld +++| SPACE 4,10
00012 M01S00010.comcfld +++|*** COMCFLD - FORMAT *L* DISPLAY.
00013 M01S00011.comcfld +++|*
00014 M01S00012.comcfld +++|* S. P. BOOTH 80/12/31.
00015 M01S00013.comcfld +++|* B. J. OLIPHANT 81/05/18.
00016 M01S00014.comcfld +++| SPACE 4,10
00017 M01S00015.comcfld +++|*** *COMCFLD* WILL FORMAT DATA FOR EITHER THE *L* DISPLAY
00018 M01S00016.comcfld +++|* OR A LINE PRINTER.
| Line S00017 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00019 M02S00017.ns22000 ---|*
| Line S00018 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00020 M02S00018.ns22000 ---|* REQUIRES PRESENCE OF COMMON DECKS -
| Line S00019 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00021 M02S00019.ns22000 ---|* *COMCSFN*
| Line S00020 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00022 M02S00020.ns22000 ---|* *COMCWOD*
| Line S00021 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00023 M02S00021.ns22000 ---|* *COMCWTC*
| Line S00022 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00024 M02S00022.ns22000 ---|* *COMCWTO*
| Line S00023 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00025 M02S00023.ns22000 ---|* *COMCWTW*
| Line S00024 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00026 M02S00024.ns22000 ---|* *COMCZTB*
00027 M01S00025.comcfld +++| SPACE 4,10
00028 M01S00026.comcfld +++|* WORKING STORAGE.
00029 M01S00027.comcfld +++|
00030 M01S00028.comcfld +++|* GENERAL EQUATES.
00031 M01S00029.comcfld +++|
00032 M01S00030.comcfld +++| NWIS EQU 100B NUMBER OF WORDS IN SECTOR
00033 M01S00031.comcfld +++|
00034 M01S00032.comcfld +++|* CONSTANTS.
00035 M01S00033.comcfld +++|
00036 M01S00034.comcfld +++| LCTR CON 0 LINE COUNTER
00037 M01S00035.comcfld +++| NEJC DATA 10H NO PAGE EJECT
00038 M01S00036.comcfld +++| PEJC DATA 10H1 PAGE EJECT
00039 M01S00001.v23l617 +++| YBEG CON 7756B BEGINNING Y COORDINATE
00040 M01S00002.v23l617 +++| YINC CON 10 LINE INCREMENT
00041 M01S00003.v23l617 +++| FLB SPACE 4,10
00042 M01S00004.v23l617 +++|** FLB - FORMAT *L* DISPLAY.
00043 M01S00005.v23l617 +++|*
00044 M01S00006.v23l617 +++|* *FLB* IS USED TO FORMAT L-DISPLAYS WITH
00045 M01S00007.v23l617 +++|* THE APPROPRIATE SPACING FOR THE CONSOLE TYPE.
00046 M01S00008.v23l617 +++|*
| Line S00009 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00047 M02S00009.241l630 ---|* USES X - 4, 6, 7.
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00048 M02S00010.241l630 ---|* A - 4, 6, 7.
00049 M01S00001.241l630 +++|* USES X - 1, 4, 6, 7.
00050 M01S00002.241l630 +++|* A - 1, 4, 6, 7.
00051 M01S00011.v23l617 +++|*
00052 M01S00012.v23l617 +++|* ENTRY SAME CONDITIONS AS FOR *FLD*.
00053 M01S00013.v23l617 +++|*
00054 M01S00014.v23l617 +++|* EXIT SAME CONDITIONS AS FOR *FLD*.
00055 M01S00015.v23l617 +++|*
00056 M01S00016.v23l617 +++|* CALLS FLD.
00057 M01S00017.v23l617 +++|*
00058 M01S00018.v23l617 +++|* MACROS CSTATUS.
00059 M01S00019.v23l617 +++|
00060 M01S00020.v23l617 +++|
00061 M01S00021.v23l617 +++| FLB SUBR ENTRY/EXIT
00062 M01S00022.v23l617 +++| SA6 FLBC SAVE REGISTERS
00063 M01S00023.v23l617 +++| BX6 X1
00064 M01S00024.v23l617 +++| SA6 FLBA
00065 M01S00025.v23l617 +++| BX6 X2
00066 M01S00026.v23l617 +++| SA6 FLBB
00067 M01S00027.v23l617 +++| CSTATUS FLBD
00068 M01S00028.v23l617 +++| SA1 FLBC RESTORE REGISTERS
00069 M01S00029.v23l617 +++| BX6 X1
00070 M01S00030.v23l617 +++| SA1 FLBA
00071 M01S00031.v23l617 +++| SA2 FLBB
00072 M01S00032.v23l617 +++| SX7 FLBG RESET BEGINNING Y COORDINATE
00073 M01S00033.v23l617 +++| SA7 YBEG
00074 M01S00034.v23l617 +++| SA4 FLBD
00075 M01S00035.v23l617 +++| NZ X4,FLB1 IF CDC 721 CONSOLE
00076 M01S00036.v23l617 +++| SX7 FLBE RESET BEGINNING Y COORDINATE
00077 M01S00037.v23l617 +++| SA7 YBEG
00078 M01S00038.v23l617 +++| SX7 FLBF RESET Y COORDINATE INCREMENT
00079 M01S00039.v23l617 +++| SA7 YINC
00080 M01S00040.v23l617 +++| FLB1 RJ FLD FORMAT *L* DISPLAY
00081 M01S00041.v23l617 +++| EQ FLBX RETURN
00082 M01S00042.v23l617 +++|
00083 M01S00043.v23l617 +++|
00084 M01S00044.v23l617 +++| FLBA CON 0 STORAGE FOR REGISTER
00085 M01S00045.v23l617 +++| FLBB CON 0 STORAGE FOR REGISTER
00086 M01S00046.v23l617 +++| FLBC CON 0 STORAGE FOR REGISTER
00087 M01S00047.v23l617 +++| FLBD CON 0 PARAMETER FOR *CSTATUS* MACRO
00088 M01S00048.v23l617 +++| FLBE EQU 7707B CC545 BEGINNING Y COORDINATE
00089 M01S00049.v23l617 +++| FLBF EQU 15 CC545 Y COORDINATE INCREMENT
00090 M01S00050.v23l617 +++| FLBG EQU 7726B 721 BEGINNING Y COORDINATE
00091 M01S00037.comcfld +++| FLD SPACE 4,20
00092 M01S00038.comcfld +++|** FLD - FORMAT *L* DISPLAY.
00093 M01S00039.comcfld +++|*
00094 M01S00040.comcfld +++|* ENTRY (X1) = FWA OF BUFFER TO MANIPULATE.
00095 M01S00041.comcfld +++|* (X2) = OUTPUT FET ADDRESS, IF FORMATTED FOR PRINTER.
00096 M01S00042.comcfld +++|* .EQ. 0, IF FORMATTING DATA FOR *L* DISPLAY.
00097 M01S00043.comcfld +++|* (X3) = CHARACTER TYPE.
00098 M01S00044.comcfld +++|* .EQ. 0, IF SIMPLE DISPLAY CODE OR BINARY DATA.
00099 M01S00045.comcfld +++|* (OUTPUT WILL BE IN OCTAL DUMP FORMAT)
00100 M01S00046.comcfld +++|* .NE. 0, IF ZERO BYTE TERMINATED LINES.
00101 M01S00047.comcfld +++|* (X6) = LWA OF DATA TO TRANSFER.
| Line S00048 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00102 M02S00048.241l630 ---|* (B2) = FWA TO PLACE CONVERTED DATA.
| Line S00049 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00103 M02S00049.241l630 ---|* (B3) = X COORDINATE OF *L* DISPLAY LINE.
| Line S00050 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00104 M02S00050.241l630 ---|* (B4) = Y COORDINATE OF *L* DISPLAY LINE.
| Line S00051 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00105 M02S00051.241l630 ---|* (B6) = LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA.
00106 M01S00003.241l630 +++|* (B2) = FWA TO PLACE CONVERTED DATA, IF *L* DISPLAY.
00107 M01S00004.241l630 +++|* (B3) = X COORDINATE OF *L* DISPLAY LINE, IF *L*
00108 M01S00005.241l630 +++|* DISPLAY.
00109 M01S00006.241l630 +++|* (B4) = Y COORDINATE OF *L* DISPLAY LINE, IF *L*
00110 M01S00007.241l630 +++|* DISPLAY.
00111 M01S00008.241l630 +++|* (B6) = LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA, IF
00112 M01S00009.241l630 +++|* *L* DISPLAY.
00113 M01S00052.comcfld +++|*
00114 M01S00053.comcfld +++|* EXIT (B2) = LWA OF STORED DATA.(ZERO WORD)
00115 M01S00054.comcfld +++|* (B4) = NEXT Y COORDINATE.
00116 M01S00055.comcfld +++|*
00117 M01S00056.comcfld +++|* USES X - 1, 2, 3, 4, 6, 7.
00118 M01S00057.comcfld +++|* A - 1, 2, 3, 4, 6, 7.
00119 M01S00058.comcfld +++|* B - 2, 3, 4, 6, 7.
00120 M01S00059.comcfld +++|*
00121 M01S00060.comcfld +++|* CALLS SFN, TOD.
00122 M01S00061.comcfld +++|*
| Line S00062 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00123 M02S00062.ns22000 ---|* MACROS WRITEC, WRITEO.
00124 M01S00002.ns22000 +++|* XREF COMCCPM, COMCCMD, COMCSFN, COMCWOD, COMCWTC, COMCWTO,
00125 M01S00003.ns22000 +++|* COMCWTW, COMCZTB.
00126 M01S00004.ns22000 +++|*
00127 M01S00005.ns22000 +++|* MACROS GETPP, WRITEC, WRITEO, WRITEW.
00128 M01S00063.comcfld +++|*
00129 M01S00064.comcfld +++|* NOTES FETS MUST BE RECALLED BEFORE ENTERING ROUTINE.
00130 M01S00065.comcfld +++|* BUFFER INTO WHICH FORMATTED DATA IS TO BE PLACED
00131 M01S00066.comcfld +++|* FOR LINE PRINTER MUST BE EMPTY.
00132 M01S00067.comcfld +++|
00133 M01S00068.comcfld +++|
00134 M01S00069.comcfld +++| FLD PS ENTRY/EXIT
00135 M01S00070.comcfld +++| SA6 FLDA SAVE LWA OF DATA TO TRANSFER
00136 M01S00071.comcfld +++| BX6 X1
00137 M01S00072.comcfld +++| BX7 X3
00138 M01S00073.comcfld +++| SA6 FLDB SAVE FWA OF BUFFER TO PROCESS
00139 M01S00074.comcfld +++| SA6 FLDK
00140 M01S00075.comcfld +++| SX6 B2
00141 M01S00076.comcfld +++| SA7 FLDC SAVE CHARACTER TYPE
00142 M01S00077.comcfld +++| SX7 B3
00143 M01S00078.comcfld +++| SA6 FLDD FWA OF BUFFER TO STORE CONVERTED DATA
00144 M01S00079.comcfld +++| SX6 B6
00145 M01S00080.comcfld +++| SA6 FLDL LWA+1 OF BUFFER TO STORE CONVERTED DATA
00146 M01S00081.comcfld +++| SA7 FLDI SAVE X COORDINATE
00147 M01S00082.comcfld +++| SX6 B4
00148 M01S00083.comcfld +++| SA6 FLDJ SAVE Y COORDINATE
00149 M01S00084.comcfld +++| BX6 X2 GET FET ADDRESS
00150 M01S00051.v23l617 +++| SA6 FLDP FLAG IF FORMATTING DATA FOR *L* DISPLAY
00151 M01S00085.comcfld +++| ZR X2,FLD5 IF NOT FORMATTING FOR PRINTER
00152 M01S00086.comcfld +++| SA6 FLDE SAVE FET ADDRESS
00153 M01S00006.ns22000 +++| GETPP FLDM,FLDN,FLDO GET PAGE PARAMETERS
00154 M01S00007.ns22000 +++| SA2 FLDE GET FET POINTER
00155 M01S00008.ns22000 +++| WRITEW X2,FLDO,B1 WRITE PRINT DENSITY
00156 M01S00009.ns22000 +++| SA3 FLDC RESTORE CHARACTER TYPE
00157 M01S00087.comcfld +++| NZ X3,FLD2 IF DATA IS IN LINE FORMAT
00158 M01S00088.comcfld +++| SX6 B0+ INITIALIZE LINE COUNTER
00159 M01S00089.comcfld +++| SA3 PEJC GET PAGE EJECT
00160 M01S00090.comcfld +++| SA6 LCTR
00161 M01S00091.comcfld +++| FLD1 BX6 X3
00162 M01S00092.comcfld +++| WRITEO X2
00163 M01S00093.comcfld +++| SA2 FLDB
00164 M01S00094.comcfld +++| SA3 LCTR
00165 M01S00095.comcfld +++| SA1 X2
00166 M01S00096.comcfld +++| SX7 X3+B1
00167 M01S00097.comcfld +++| SX6 A1+B1
00168 M01S00098.comcfld +++| SA7 A3
00169 M01S00099.comcfld +++| SA6 A2+
00170 M01S00100.comcfld +++| SB2 FLDF
00171 M01S00101.comcfld +++| RJ TOD TRANSLATE WORD TO OCTAL DUMP FORMAT
00172 M01S00102.comcfld +++| SA2 FLDE RESTORE FET ADDRESS
00173 M01S00103.comcfld +++| WRITEC X2,FLDF
00174 M01S00104.comcfld +++| SA1 FLDB
00175 M01S00105.comcfld +++| SA4 LCTR
00176 M01S00106.comcfld +++| SA3 NEJC GET NO PAGE EJECT
00177 M01S00107.comcfld +++| SX6 X4-NWIS
00178 M01S00108.comcfld +++| NG X6,FLD1 IF NOT DONE
00179 M01S00109.comcfld +++| EQ FLD RETURN
00180 M01S00110.comcfld +++|
00181 M01S00111.comcfld +++| FLD2 SA3 PEJC GET PAGE EJECT
00182 M01S00112.comcfld +++| FLD3 BX6 X3
00183 M01S00113.comcfld +++| WRITEO X2
00184 M01S00114.comcfld +++| SA3 X2+2 SAVE LENGTH OF OLD LINE
00185 M01S00115.comcfld +++| SX6 X3+
00186 M01S00116.comcfld +++| SA1 FLDB
00187 M01S00117.comcfld +++| SA6 FLDF
00188 M01S00118.comcfld +++| WRITEC X2,X1
00189 M01S00119.comcfld +++| SA3 FLDF
00190 M01S00120.comcfld +++| SA4 X2+2 GET NEW LINE LENGTH
00191 M01S00121.comcfld +++| SA1 FLDB GET LAST STARTING POINT
00192 M01S00122.comcfld +++| IX6 X4-X3 CALCULATE NUMBER OF WORDS TRANSFERRED
00193 M01S00123.comcfld +++| SB6 X6 CHECK IF BUFFER HAS BEEN FLUSHED
00194 M01S00124.comcfld +++| GT B6,FLD4 IF BUFFER NOT FLUSHED
00195 M01S00125.comcfld +++| SA3 X2+1 CALCULATE BUFFER LENGTH
00196 M01S00126.comcfld +++| SA4 X2+4
00197 M01S00127.comcfld +++| SX3 X3+
00198 M01S00128.comcfld +++| SX4 X4+
00199 M01S00129.comcfld +++| IX3 X4-X3 LIMIT - FIRST
00200 M01S00130.comcfld +++| IX6 X6+X3 ADD IN BUFFER LENGTH
00201 M01S00131.comcfld +++| FLD4 IX7 X1+X6 CALCULATE NEW STARTING POINT
00202 M01S00132.comcfld +++| SA4 FLDA GET LWA
00203 M01S00133.comcfld +++| IX6 X4-X7
00204 M01S00134.comcfld +++| SA3 NEJC GET NO PAGE EJECT
00205 M01S00135.comcfld +++| SA7 A1+ SAVE NEW STARTING POINT
00206 M01S00136.comcfld +++| PL X6,FLD3 IF NOT DONE
00207 M01S00137.comcfld +++| EQ FLD RETURN
00208 M01S00138.comcfld +++|
00209 M01S00139.comcfld +++|
00210 M01S00140.comcfld +++|* FORMAT LINE FOR *L* DISPLAY.
00211 M01S00141.comcfld +++|
00212 M01S00142.comcfld +++| FLD5 SX4 B3+ CALCULATE X/Y COORDINATES
00213 M01S00143.comcfld +++| SX2 FLDG
00214 M01S00144.comcfld +++| SX1 8
| Line S00145 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00215 M02S00145.v23l617 ---| SX3 FLDH
00216 M01S00052.v23l617 +++| SA3 YBEG GET BEGINNING Y COORDINATE
00217 M01S00146.comcfld +++| IX4 X4*X1
| Line S00147 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00218 M02S00147.v23l617 ---| SX1 10
00219 M01S00053.v23l617 +++| SA1 YINC GET Y COORDINATE INCREMENT
00220 M01S00148.comcfld +++| IX2 X4+X2
00221 M01S00149.comcfld +++| SX4 B4
00222 M01S00150.comcfld +++| LX2 12-0
00223 M01S00151.comcfld +++| IX4 X4*X1
00224 M01S00152.comcfld +++| IX3 X3-X4
00225 M01S00153.comcfld +++| IX6 X2+X3
00226 M01S00154.comcfld +++| LX6 59-23 LEFT JUSTIFY COORDINATES
00227 M01S00155.comcfld +++| SB4 6 NUMBER OF WORDS PER LINE (64 CHARACTERS)
00228 M01S00156.comcfld +++| SA3 FLDC
00229 M01S00157.comcfld +++| SA6 B2+
00230 M01S00158.comcfld +++| NZ X3,FLD6 IF DATA IS IN LINE FORMAT
00231 M01S00159.comcfld +++| SA2 FLDB RESET FWA OF UNCONVERTED DATA
00232 M01S00160.comcfld +++| SB2 FLDF
00233 M01S00161.comcfld +++| SX6 B2
00234 M01S00162.comcfld +++| SA1 X2
00235 M01S00163.comcfld +++| SA6 A2+
00236 M01S00164.comcfld +++| RJ TOD TRANSLATE TO OCTAL DUMP FORMAT
00237 M01S00165.comcfld +++| FLD6 SA1 FLDB GET ADDRESS OF DATA TO BE CONVERTED
00238 M01S00166.comcfld +++| MX2 -12
00239 M01S00167.comcfld +++| SA3 X1 GET DATA
00240 M01S00168.comcfld +++| SA4 FLDD GET ADDRESS OF CONVERTED DATA
00241 M01S00169.comcfld +++| BX6 -X2*X3
00242 M01S00170.comcfld +++| SA4 X4 GET CONVERTED DATA
00243 M01S00171.comcfld +++| SA6 FLDE
00244 M01S00172.comcfld +++| SB3 24
00245 M01S00173.comcfld +++| NZ X6,FLD8 IF TEN CHARACTERS
00246 M01S00174.comcfld +++| LX3 0-12
00247 M01S00175.comcfld +++| BX1 -X2*X3
00248 M01S00176.comcfld +++| ZR X1,FLD7 IF NO CHARACTER OVERFLOW
00249 M01S00177.comcfld +++| BX3 X2*X3 REMOVE EXCESS CHARACTERS
00250 M01S00178.comcfld +++| LX3 -12 REPOSITION CHARACTERS
00251 M01S00179.comcfld +++| BX6 X3+X4
00252 M01S00180.comcfld +++| LX1 -12 CHARACTERS OVERFLOW INTO NEXT WORD
00253 M01S00181.comcfld +++| SA2 FLDB UPDATE UNCONVERTED DATA ADDRESS
00254 M01S00182.comcfld +++| SA6 A4
00255 M01S00183.comcfld +++| SX6 A6+B1 CHECK FOR CONVERTED DATA BUFFER OVERFLOW
00256 M01S00184.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER
00257 M01S00185.comcfld +++| IX3 X3-X6
00258 M01S00186.comcfld +++| ZR X3,FLD13 IF PAST END OF BUFFER
00259 M01S00187.comcfld +++| SX6 X2+B1
| Line S00188 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00260 M02S00188.v23l617 ---| SA6 A2+
00261 M01S00054.v23l617 +++| SA6 A2
| Line S00189 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00262 M02S00189.v23l617 ---| RJ SFN SPACE FILL NAME
00263 M01S00055.v23l617 +++| BX6 X1
| Line S00190 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00264 M02S00190.v23l617 ---| SA6 A4+B1
00265 M01S00056.v23l617 +++| SA2 FLDP
00266 M01S00057.v23l617 +++| ZR X2,FLD6.1 IF DATA FORMATTED FOR *L* DISPLAY
00267 M01S00058.v23l617 +++| RJ SFN SPACE FILL NAME
00268 M01S00059.v23l617 +++| FLD6.1 SA6 A4+B1
00269 M01S00191.comcfld +++| SX6 A6+B1 UPDATE CONVERTED DATA ADDRESS
00270 M01S00192.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER
00271 M01S00193.comcfld +++| SB7 X3
00272 M01S00194.comcfld +++| SB6 X6
00273 M01S00195.comcfld +++| EQ B6,B7,FLD13 IF PAST END OF BUFFER
00274 M01S00196.comcfld +++| SA6 FLDD
00275 M01S00197.comcfld +++| EQ FLD11 GET NEXT LINE OF DATA
00276 M01S00198.comcfld +++|
00277 M01S00199.comcfld +++| FLD7 LX3 0-24-0+12 POSITION CHARACTERS
| Line S00200 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00278 M02S00200.v23l617 ---| BX1 X3+X4
| Line S00201 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00279 M02S00201.v23l617 ---| RJ SFN SPACE FILL NAME
00280 M01S00060.v23l617 +++| BX6 X3+X4
| Line S00202 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00281 M02S00202.v23l617 ---| SX3 B0+
00282 M01S00061.v23l617 +++| SA2 FLDP
00283 M01S00062.v23l617 +++| ZR X2,FLD7.1 IF FORMATTING DATA FOR *L* DISPLAY
00284 M01S00063.v23l617 +++| BX1 X6
00285 M01S00064.v23l617 +++| RJ SFN SPACE FILL NAME
00286 M01S00065.v23l617 +++| FLD7.1 SX3 B0+
00287 M01S00203.comcfld +++| EQ FLD9 UPDATE POINTERS
00288 M01S00204.comcfld +++|
00289 M01S00205.comcfld +++| FLD8 LX6 -B3,X3
00290 M01S00206.comcfld +++| MX2 24
00291 M01S00207.comcfld +++| BX6 -X2*X6 REMOVE POSSIBLE SIGN FILL
00292 M01S00208.comcfld +++| BX6 X4+X6 MERGE IN DATA
00293 M01S00209.comcfld +++| FLD9 SA1 FLDB
00294 M01S00210.comcfld +++| MX2 -24
00295 M01S00211.comcfld +++| SA6 A4
00296 M01S00212.comcfld +++| SX6 X1+B1 UPDATE UNCONVERTED DATA ADDRESS
00297 M01S00213.comcfld +++| BX7 -X2*X3
00298 M01S00214.comcfld +++| SA1 FLDE GET END OF LINE FLAG
00299 M01S00215.comcfld +++| LX7 59-23 POSITION LAST 4 CHARACTERS FOR NEXT WORD
00300 M01S00216.comcfld +++| SA6 FLDB
00301 M01S00217.comcfld +++| SX6 A4+B1 UPDATE CONVERTED DATA ADDRESS
00302 M01S00218.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER
00303 M01S00219.comcfld +++| SB7 X3
00304 M01S00220.comcfld +++| SB6 X6
00305 M01S00221.comcfld +++| EQ B6,B7,FLD13 IF PAST END OF BUFFER
00306 M01S00222.comcfld +++| SA6 FLDD
00307 M01S00223.comcfld +++| ZR X1,FLD11 IF END OF LINE
00308 M01S00224.comcfld +++| SB4 B4-1 DECREMENT WORDS PER LINE
00309 M01S00225.comcfld +++| ZR B4,FLD10 IF LINE IS FULL
00310 M01S00226.comcfld +++| SA7 X6+ STORE NEXT 4 CHARACTERS
00311 M01S00227.comcfld +++| EQ FLD6 PROCESS NEXT WORD
00312 M01S00228.comcfld +++|
| Line S00229 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00313 M02S00229.v23l617 ---| FLD10 BX1 X7 ADD LAST 4 CHARACTERS
00314 M01S00066.v23l617 +++| FLD10 BX6 X7 ADD LAST 4 CHARACTERS
00315 M01S00067.v23l617 +++| SA2 FLDP
00316 M01S00068.v23l617 +++| ZR X2,FLD10.1 IF FORMATTING DATA FOR *L* DISPLAY
00317 M01S00069.v23l617 +++| BX1 X6
00318 M01S00230.comcfld +++| RJ SFN SPACE FILL NAME
| Line S00231 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00319 M02S00231.v23l617 ---| SA1 FLDD GET CONVERTED DATA ADDRESS
00320 M01S00070.v23l617 +++| FLD10.1 SA1 FLDD GET CONVERTED DATA ADDRESS
00321 M01S00232.comcfld +++| SA6 X1+
00322 M01S00233.comcfld +++| SX6 X1+1 UPDATE CONVERTED DATA ADDRESS
00323 M01S00234.comcfld +++| SA6 A1+
00324 M01S00235.comcfld +++| FLD11 SA3 FLDC
00325 M01S00236.comcfld +++| SA4 FLDB
00326 M01S00237.comcfld +++| SA1 FLDJ UPDATE Y COORDINATE
00327 M01S00238.comcfld +++| SB6 X4+
00328 M01S00239.comcfld +++| NZ X3,FLD12 IF IF DATA IS IN LINE FORMAT
00329 M01S00240.comcfld +++| SA3 FLDK UPDATE FWA OF UNCONVERTED DATA
00330 M01S00241.comcfld +++| SX6 X3+B1
00331 M01S00242.comcfld +++| SA6 A4
00332 M01S00243.comcfld +++| SB6 X6
00333 M01S00244.comcfld +++| SA6 A3
00334 M01S00245.comcfld +++| FLD12 SX6 X1+B1
00335 M01S00246.comcfld +++| SA2 FLDI GET X COORDINATE
00336 M01S00247.comcfld +++| SA6 A1
00337 M01S00248.comcfld +++| SA1 FLDA GET LWA TO TRANSFER
00338 M01S00249.comcfld +++| SB4 X6
00339 M01S00250.comcfld +++| SB7 X1
00340 M01S00251.comcfld +++| SA3 FLDD
00341 M01S00252.comcfld +++| SB3 X2
00342 M01S00253.comcfld +++| SB2 X3 RETURN LWA OF CONVERTED DATA
00343 M01S00254.comcfld +++| LE B6,B7,FLD5 IF MORE WORDS TO PROCESS
00344 M01S00255.comcfld +++| SX6 B0 TERMINATE L-DISPLAY BUFFER WITH ZERO WORD
00345 M01S00256.comcfld +++| SA6 X3
00346 M01S00257.comcfld +++| EQ FLD RETURN
00347 M01S00258.comcfld +++|
00348 M01S00259.comcfld +++|* EXIT PROCESSOR FOR *L* DISPLAY BUFFER OVERFLOW CONDITION.
00349 M01S00260.comcfld +++|
00350 M01S00261.comcfld +++| FLD13 SX7 B0 TERMINATE L-DISPLAY BUFFER WITH ZERO WORD
00351 M01S00262.comcfld +++| SA7 X6-1
00352 M01S00263.comcfld +++| SB2 A7 RETURN LWA OF CONVERTED DATA BUFFER
00353 M01S00264.comcfld +++| SA1 FLDJ UPDATE Y COORDINATE
00354 M01S00265.comcfld +++| SX7 X1+B1
00355 M01S00266.comcfld +++| SA7 A1
00356 M01S00267.comcfld +++| EQ FLD RETURN
00357 M01S00268.comcfld +++|
00358 M01S00269.comcfld +++|
00359 M01S00270.comcfld +++| FLDA CON 0 LWA OF DATA TO TRANSFER
00360 M01S00271.comcfld +++| FLDB CON 0 ADDRESS OF DATA TO BE CONVERTED
00361 M01S00272.comcfld +++| FLDC CON 0 DATA TYPE
00362 M01S00273.comcfld +++| FLDD CON 0 ADDRESS OF CONVERTED DATA
00363 M01S00274.comcfld +++| FLDE CON 0 END OF LINE FLAG
00364 M01S00275.comcfld +++| FLDF BSS 5 STORAGE AREA FOR *TOD* DATA
00365 M01S00276.comcfld +++| CON 0 END OF LINE INDICATOR
00366 M01S00277.comcfld +++| FLDG EQU 6000B CONSTANT X COORDINATE IS ADDED TO
| Line S00278 Modification History |
M01 (Added by) | comcfld |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00367 M02S00278.v23l617 ---| FLDH EQU 7756B CONSTANT Y COORDINATE IS SUBTRACTED FROM
00368 M01S00279.comcfld +++| FLDI CON 0 X COORDINATE
00369 M01S00280.comcfld +++| FLDJ CON 0 Y COORDINATE
00370 M01S00281.comcfld +++| FLDK CON 0 UNCONVERTED DATA
00371 M01S00282.comcfld +++| FLDL CON 0 LWA+1 CONVERTED DATA (*L* DISPLAY BUFFER)
00372 M01S00010.ns22000 +++| FLDM BSSZ 2 *GETPP* RESPONSE BLOCK
00373 M01S00011.ns22000 +++| FLDN CON 0 PAGE SIZE
00374 M01S00012.ns22000 +++| FLDO CON 0 PRINT DENSITY
00375 M01S00071.v23l617 +++| FLDP CON 0 FLAG IF DATA FORMATTED FOR *L* DISPLAY
00376 M01S00283.comcfld +++|TOD SPACE 4,15
00377 M01S00284.comcfld +++|** TOD - TRANSLATE WORD TO OCTAL DUMP FORMAT.
00378 M01S00285.comcfld +++|*
00379 M01S00286.comcfld +++|* ENTRY (X1) = WORD OF DATA TO BE CHANGED.
00380 M01S00287.comcfld +++|* (B2) = FWA TO PLACE CONVERTED DATA IN DUMP FORMAT.
00381 M01S00288.comcfld +++|*
00382 M01S00289.comcfld +++|* EXIT WORD STORED.
00383 M01S00290.comcfld +++|* (B2) = LWA+1 OF STORED DATA.
00384 M01S00291.comcfld +++|*
00385 M01S00292.comcfld +++|* USES X - 1, 2, 6, 7.
00386 M01S00293.comcfld +++|* A - 1, 2, 6, 7.
00387 M01S00294.comcfld +++|* B - 2.
00388 M01S00295.comcfld +++|*
00389 M01S00296.comcfld +++|* CALLS WOD, ZTB.
00390 M01S00297.comcfld +++|
00391 M01S00298.comcfld +++|
00392 M01S00299.comcfld +++| TOD PS ENTRY/EXIT
00393 M01S00300.comcfld +++| RJ ZTB CHANGE ZEROES TO BLANKS
00394 M01S00301.comcfld +++| SA6 TODA SAVE RESULTS
00395 M01S00302.comcfld +++| RJ WOD CHANGE WORD TO OCTAL DISPLAY
00396 M01S00303.comcfld +++| SA2 TODB SAVE DATA IN OCTAL DUMP FORMAT
00397 M01S00304.comcfld +++| SA6 B2
00398 M01S00305.comcfld +++| BX6 X2
00399 M01S00306.comcfld +++| SA7 A6+B1
00400 M01S00307.comcfld +++| SA2 TODA
00401 M01S00308.comcfld +++| SA6 A7+B1
00402 M01S00309.comcfld +++| SA1 TODC
00403 M01S00310.comcfld +++| BX7 X2
00404 M01S00311.comcfld +++| BX6 X1
00405 M01S00312.comcfld +++| SA7 A6+B1
00406 M01S00313.comcfld +++| SA6 A7+B1
00407 M01S00314.comcfld +++| SB2 A6+1
00408 M01S00315.comcfld +++| EQ TOD RETURN
00409 M01S00316.comcfld +++|
00410 M01S00317.comcfld +++| TODA CON 0
00411 M01S00318.comcfld +++| TODB DATA 10H
00412 M01S00319.comcfld +++| TODC DATA 1L
00413 M01S00320.comcfld +++| BASE *
00414 M01S00321.comcfld +++| IF -DEF,QUAL$
00415 M01S00322.comcfld +++| QUAL *
00416 M01S00072.v23l617 +++| FLB EQU /COMCFLD/FLB
00417 M01S00323.comcfld +++| FLD EQU /COMCFLD/FLD
00418 M01S00324.comcfld +++| QUAL$ ENDIF
00419 M01S00325.comcfld +++| ENDX