cdc:nos2.source:opl.opl871:common:comcfld
Common COMCFLD
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcfld +++| CTEXT COMCFLD - FORMAT *L* DISPLAY. 00002 M00S00002.comcfld +++| SPACE 4,10 00003 M00S00003.comcfld +++| IF -DEF,QUAL$ 00004 M00S00004.comcfld +++| QUAL COMCFLD 00005 M00S00005.comcfld +++| QUAL$ ENDIF 00006 M00S00006.comcfld +++| BASE D
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.ns22000 ---|*COMMENT FORMAT *L* DISPLAY.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00001.281l803 ---|* COMMENT COMCFLD - FORMAT *L* DISPLAY.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00009.comcfld +++| SPACE 4,10 00012 M00S00010.comcfld +++|*** COMCFLD - FORMAT *L* DISPLAY. 00013 M00S00011.comcfld +++|* 00014 M00S00012.comcfld +++|* S. P. BOOTH 80/12/31. 00015 M00S00013.comcfld +++|* B. J. OLIPHANT 81/05/18. 00016 M00S00014.comcfld +++| SPACE 4,10 00017 M00S00015.comcfld +++|*** *COMCFLD* WILL FORMAT DATA FOR EITHER THE *L* DISPLAY 00018 M00S00016.comcfld +++|* OR A LINE PRINTER.
| Line S00017 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00019 M01S00017.ns22000 ---|* 00020 M01S00018.ns22000 ---|* REQUIRES PRESENCE OF COMMON DECKS - 00021 M01S00019.ns22000 ---|* *COMCSFN* 00022 M01S00020.ns22000 ---|* *COMCWOD* 00023 M01S00021.ns22000 ---|* *COMCWTC* 00024 M01S00022.ns22000 ---|* *COMCWTO* 00025 M01S00023.ns22000 ---|* *COMCWTW* 00026 M01S00024.ns22000 ---|* *COMCZTB* 00027 M00S00025.comcfld ---| SPACE 4,10 00028 M00S00026.comcfld ---|* WORKING STORAGE. 00029 M00S00027.comcfld ---| 00030 M00S00028.comcfld ---|* GENERAL EQUATES. 00031 M00S00029.comcfld ---| 00032 M00S00030.comcfld ---| NWIS EQU 100B NUMBER OF WORDS IN SECTOR 00033 M00S00031.comcfld ---| 00034 M00S00032.comcfld ---|* CONSTANTS. 00035 M00S00033.comcfld ---| 00036 M00S00034.comcfld ---| LCTR CON 0 LINE COUNTER 00037 M00S00035.comcfld ---| NEJC DATA 10H NO PAGE EJECT 00038 M00S00036.comcfld ---| PEJC DATA 10H1 PAGE EJECT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00047 M02S00009.241l630 ---|* USES X - 4, 6, 7. 00048 M02S00010.241l630 ---|* A - 4, 6, 7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00001.241l630 +++|* USES X - 1, 4, 6, 7. 00050 M01S00002.241l630 +++|* A - 1, 4, 6, 7.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00037.comcfld +++| FLD SPACE 4,20 00092 M00S00038.comcfld +++|** FLD - FORMAT *L* DISPLAY. 00093 M00S00039.comcfld +++|* 00094 M00S00040.comcfld +++|* ENTRY (X1) = FWA OF BUFFER TO MANIPULATE. 00095 M00S00041.comcfld +++|* (X2) = OUTPUT FET ADDRESS, IF FORMATTED FOR PRINTER. 00096 M00S00042.comcfld +++|* .EQ. 0, IF FORMATTING DATA FOR *L* DISPLAY. 00097 M00S00043.comcfld +++|* (X3) = CHARACTER TYPE. 00098 M00S00044.comcfld +++|* .EQ. 0, IF SIMPLE DISPLAY CODE OR BINARY DATA. 00099 M00S00045.comcfld +++|* (OUTPUT WILL BE IN OCTAL DUMP FORMAT) 00100 M00S00046.comcfld +++|* .NE. 0, IF ZERO BYTE TERMINATED LINES. 00101 M00S00047.comcfld +++|* (X6) = LWA OF DATA TO TRANSFER.
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00102 M01S00048.241l630 ---|* (B2) = FWA TO PLACE CONVERTED DATA. 00103 M01S00049.241l630 ---|* (B3) = X COORDINATE OF *L* DISPLAY LINE. 00104 M01S00050.241l630 ---|* (B4) = Y COORDINATE OF *L* DISPLAY LINE. 00105 M01S00051.241l630 ---|* (B6) = LWA+1 OF BUFFER TO RECEIVE CONVERTED DATA.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00052.comcfld +++|* 00114 M00S00053.comcfld +++|* EXIT (B2) = LWA OF STORED DATA.(ZERO WORD) 00115 M00S00054.comcfld +++|* (B4) = NEXT Y COORDINATE. 00116 M00S00055.comcfld +++|* 00117 M00S00056.comcfld +++|* USES X - 1, 2, 3, 4, 6, 7. 00118 M00S00057.comcfld +++|* A - 1, 2, 3, 4, 6, 7. 00119 M00S00058.comcfld +++|* B - 2, 3, 4, 6, 7. 00120 M00S00059.comcfld +++|* 00121 M00S00060.comcfld +++|* CALLS SFN, TOD. 00122 M00S00061.comcfld +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00062.ns22000 ---|* MACROS WRITEC, WRITEO.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00063.comcfld +++|* 00129 M00S00064.comcfld +++|* NOTES FETS MUST BE RECALLED BEFORE ENTERING ROUTINE. 00130 M00S00065.comcfld +++|* BUFFER INTO WHICH FORMATTED DATA IS TO BE PLACED 00131 M00S00066.comcfld +++|* FOR LINE PRINTER MUST BE EMPTY. 00132 M00S00067.comcfld +++| 00133 M00S00068.comcfld +++| 00134 M00S00069.comcfld +++| FLD PS ENTRY/EXIT 00135 M00S00070.comcfld +++| SA6 FLDA SAVE LWA OF DATA TO TRANSFER 00136 M00S00071.comcfld +++| BX6 X1 00137 M00S00072.comcfld +++| BX7 X3 00138 M00S00073.comcfld +++| SA6 FLDB SAVE FWA OF BUFFER TO PROCESS 00139 M00S00074.comcfld +++| SA6 FLDK 00140 M00S00075.comcfld +++| SX6 B2 00141 M00S00076.comcfld +++| SA7 FLDC SAVE CHARACTER TYPE 00142 M00S00077.comcfld +++| SX7 B3 00143 M00S00078.comcfld +++| SA6 FLDD FWA OF BUFFER TO STORE CONVERTED DATA 00144 M00S00079.comcfld +++| SX6 B6 00145 M00S00080.comcfld +++| SA6 FLDL LWA+1 OF BUFFER TO STORE CONVERTED DATA 00146 M00S00081.comcfld +++| SA7 FLDI SAVE X COORDINATE 00147 M00S00082.comcfld +++| SX6 B4 00148 M00S00083.comcfld +++| SA6 FLDJ SAVE Y COORDINATE 00149 M00S00084.comcfld +++| BX6 X2 GET FET ADDRESS
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00150 M01S00051.v23l617 +++| SA6 FLDP FLAG IF FORMATTING DATA FOR *L* DISPLAY 00151 M00S00085.comcfld +++| ZR X2,FLD5 IF NOT FORMATTING FOR PRINTER 00152 M00S00086.comcfld +++| SA6 FLDE SAVE FET ADDRESS
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00087.comcfld +++| NZ X3,FLD2 IF DATA IS IN LINE FORMAT 00158 M00S00088.comcfld +++| SX6 B0+ INITIALIZE LINE COUNTER 00159 M00S00089.comcfld +++| SA3 PEJC GET PAGE EJECT 00160 M00S00090.comcfld +++| SA6 LCTR 00161 M00S00091.comcfld +++| FLD1 BX6 X3 00162 M00S00092.comcfld +++| WRITEO X2 00163 M00S00093.comcfld +++| SA2 FLDB 00164 M00S00094.comcfld +++| SA3 LCTR 00165 M00S00095.comcfld +++| SA1 X2 00166 M00S00096.comcfld +++| SX7 X3+B1 00167 M00S00097.comcfld +++| SX6 A1+B1 00168 M00S00098.comcfld +++| SA7 A3 00169 M00S00099.comcfld +++| SA6 A2+ 00170 M00S00100.comcfld +++| SB2 FLDF 00171 M00S00101.comcfld +++| RJ TOD TRANSLATE WORD TO OCTAL DUMP FORMAT 00172 M00S00102.comcfld +++| SA2 FLDE RESTORE FET ADDRESS 00173 M00S00103.comcfld +++| WRITEC X2,FLDF 00174 M00S00104.comcfld +++| SA1 FLDB 00175 M00S00105.comcfld +++| SA4 LCTR 00176 M00S00106.comcfld +++| SA3 NEJC GET NO PAGE EJECT 00177 M00S00107.comcfld +++| SX6 X4-NWIS 00178 M00S00108.comcfld +++| NG X6,FLD1 IF NOT DONE 00179 M00S00109.comcfld +++| EQ FLD RETURN 00180 M00S00110.comcfld +++| 00181 M00S00111.comcfld +++| FLD2 SA3 PEJC GET PAGE EJECT 00182 M00S00112.comcfld +++| FLD3 BX6 X3 00183 M00S00113.comcfld +++| WRITEO X2 00184 M00S00114.comcfld +++| SA3 X2+2 SAVE LENGTH OF OLD LINE 00185 M00S00115.comcfld +++| SX6 X3+ 00186 M00S00116.comcfld +++| SA1 FLDB 00187 M00S00117.comcfld +++| SA6 FLDF 00188 M00S00118.comcfld +++| WRITEC X2,X1 00189 M00S00119.comcfld +++| SA3 FLDF 00190 M00S00120.comcfld +++| SA4 X2+2 GET NEW LINE LENGTH 00191 M00S00121.comcfld +++| SA1 FLDB GET LAST STARTING POINT 00192 M00S00122.comcfld +++| IX6 X4-X3 CALCULATE NUMBER OF WORDS TRANSFERRED 00193 M00S00123.comcfld +++| SB6 X6 CHECK IF BUFFER HAS BEEN FLUSHED 00194 M00S00124.comcfld +++| GT B6,FLD4 IF BUFFER NOT FLUSHED 00195 M00S00125.comcfld +++| SA3 X2+1 CALCULATE BUFFER LENGTH 00196 M00S00126.comcfld +++| SA4 X2+4 00197 M00S00127.comcfld +++| SX3 X3+ 00198 M00S00128.comcfld +++| SX4 X4+ 00199 M00S00129.comcfld +++| IX3 X4-X3 LIMIT - FIRST 00200 M00S00130.comcfld +++| IX6 X6+X3 ADD IN BUFFER LENGTH 00201 M00S00131.comcfld +++| FLD4 IX7 X1+X6 CALCULATE NEW STARTING POINT 00202 M00S00132.comcfld +++| SA4 FLDA GET LWA 00203 M00S00133.comcfld +++| IX6 X4-X7 00204 M00S00134.comcfld +++| SA3 NEJC GET NO PAGE EJECT 00205 M00S00135.comcfld +++| SA7 A1+ SAVE NEW STARTING POINT 00206 M00S00136.comcfld +++| PL X6,FLD3 IF NOT DONE 00207 M00S00137.comcfld +++| EQ FLD RETURN 00208 M00S00138.comcfld +++| 00209 M00S00139.comcfld +++| 00210 M00S00140.comcfld +++|* FORMAT LINE FOR *L* DISPLAY. 00211 M00S00141.comcfld +++| 00212 M00S00142.comcfld +++| FLD5 SX4 B3+ CALCULATE X/Y COORDINATES 00213 M00S00143.comcfld +++| SX2 FLDG 00214 M00S00144.comcfld +++| SX1 8
| Line S00145 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00215 M01S00145.v23l617 ---| SX3 FLDH
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00052.v23l617 +++| SA3 YBEG GET BEGINNING Y COORDINATE 00217 M00S00146.comcfld +++| IX4 X4*X1
| Line S00147 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00147.v23l617 ---| SX1 10
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00219 M01S00053.v23l617 +++| SA1 YINC GET Y COORDINATE INCREMENT 00220 M00S00148.comcfld +++| IX2 X4+X2 00221 M00S00149.comcfld +++| SX4 B4 00222 M00S00150.comcfld +++| LX2 12-0 00223 M00S00151.comcfld +++| IX4 X4*X1 00224 M00S00152.comcfld +++| IX3 X3-X4 00225 M00S00153.comcfld +++| IX6 X2+X3 00226 M00S00154.comcfld +++| LX6 59-23 LEFT JUSTIFY COORDINATES 00227 M00S00155.comcfld +++| SB4 6 NUMBER OF WORDS PER LINE (64 CHARACTERS) 00228 M00S00156.comcfld +++| SA3 FLDC 00229 M00S00157.comcfld +++| SA6 B2+ 00230 M00S00158.comcfld +++| NZ X3,FLD6 IF DATA IS IN LINE FORMAT 00231 M00S00159.comcfld +++| SA2 FLDB RESET FWA OF UNCONVERTED DATA 00232 M00S00160.comcfld +++| SB2 FLDF 00233 M00S00161.comcfld +++| SX6 B2 00234 M00S00162.comcfld +++| SA1 X2 00235 M00S00163.comcfld +++| SA6 A2+ 00236 M00S00164.comcfld +++| RJ TOD TRANSLATE TO OCTAL DUMP FORMAT 00237 M00S00165.comcfld +++| FLD6 SA1 FLDB GET ADDRESS OF DATA TO BE CONVERTED 00238 M00S00166.comcfld +++| MX2 -12 00239 M00S00167.comcfld +++| SA3 X1 GET DATA 00240 M00S00168.comcfld +++| SA4 FLDD GET ADDRESS OF CONVERTED DATA 00241 M00S00169.comcfld +++| BX6 -X2*X3 00242 M00S00170.comcfld +++| SA4 X4 GET CONVERTED DATA 00243 M00S00171.comcfld +++| SA6 FLDE 00244 M00S00172.comcfld +++| SB3 24 00245 M00S00173.comcfld +++| NZ X6,FLD8 IF TEN CHARACTERS 00246 M00S00174.comcfld +++| LX3 0-12 00247 M00S00175.comcfld +++| BX1 -X2*X3 00248 M00S00176.comcfld +++| ZR X1,FLD7 IF NO CHARACTER OVERFLOW 00249 M00S00177.comcfld +++| BX3 X2*X3 REMOVE EXCESS CHARACTERS 00250 M00S00178.comcfld +++| LX3 -12 REPOSITION CHARACTERS 00251 M00S00179.comcfld +++| BX6 X3+X4 00252 M00S00180.comcfld +++| LX1 -12 CHARACTERS OVERFLOW INTO NEXT WORD 00253 M00S00181.comcfld +++| SA2 FLDB UPDATE UNCONVERTED DATA ADDRESS 00254 M00S00182.comcfld +++| SA6 A4 00255 M00S00183.comcfld +++| SX6 A6+B1 CHECK FOR CONVERTED DATA BUFFER OVERFLOW 00256 M00S00184.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER 00257 M00S00185.comcfld +++| IX3 X3-X6 00258 M00S00186.comcfld +++| ZR X3,FLD13 IF PAST END OF BUFFER 00259 M00S00187.comcfld +++| SX6 X2+B1
| Line S00188 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00260 M01S00188.v23l617 ---| SA6 A2+
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00261 M01S00054.v23l617 +++| SA6 A2
| Line S00189 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00262 M01S00189.v23l617 ---| RJ SFN SPACE FILL NAME
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00263 M01S00055.v23l617 +++| BX6 X1
| Line S00190 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00264 M01S00190.v23l617 ---| SA6 A4+B1
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00191.comcfld +++| SX6 A6+B1 UPDATE CONVERTED DATA ADDRESS 00270 M00S00192.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER 00271 M00S00193.comcfld +++| SB7 X3 00272 M00S00194.comcfld +++| SB6 X6 00273 M00S00195.comcfld +++| EQ B6,B7,FLD13 IF PAST END OF BUFFER 00274 M00S00196.comcfld +++| SA6 FLDD 00275 M00S00197.comcfld +++| EQ FLD11 GET NEXT LINE OF DATA 00276 M00S00198.comcfld +++| 00277 M00S00199.comcfld +++| FLD7 LX3 0-24-0+12 POSITION CHARACTERS
| Line S00200 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00278 M01S00200.v23l617 ---| BX1 X3+X4 00279 M01S00201.v23l617 ---| RJ SFN SPACE FILL NAME
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00060.v23l617 +++| BX6 X3+X4
| Line S00202 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00202.v23l617 ---| SX3 B0+
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00203.comcfld +++| EQ FLD9 UPDATE POINTERS 00288 M00S00204.comcfld +++| 00289 M00S00205.comcfld +++| FLD8 LX6 -B3,X3 00290 M00S00206.comcfld +++| MX2 24 00291 M00S00207.comcfld +++| BX6 -X2*X6 REMOVE POSSIBLE SIGN FILL 00292 M00S00208.comcfld +++| BX6 X4+X6 MERGE IN DATA 00293 M00S00209.comcfld +++| FLD9 SA1 FLDB 00294 M00S00210.comcfld +++| MX2 -24 00295 M00S00211.comcfld +++| SA6 A4 00296 M00S00212.comcfld +++| SX6 X1+B1 UPDATE UNCONVERTED DATA ADDRESS 00297 M00S00213.comcfld +++| BX7 -X2*X3 00298 M00S00214.comcfld +++| SA1 FLDE GET END OF LINE FLAG 00299 M00S00215.comcfld +++| LX7 59-23 POSITION LAST 4 CHARACTERS FOR NEXT WORD 00300 M00S00216.comcfld +++| SA6 FLDB 00301 M00S00217.comcfld +++| SX6 A4+B1 UPDATE CONVERTED DATA ADDRESS 00302 M00S00218.comcfld +++| SA3 FLDL GET LWA+1 OF *L* DISPLAY BUFFER 00303 M00S00219.comcfld +++| SB7 X3 00304 M00S00220.comcfld +++| SB6 X6 00305 M00S00221.comcfld +++| EQ B6,B7,FLD13 IF PAST END OF BUFFER 00306 M00S00222.comcfld +++| SA6 FLDD 00307 M00S00223.comcfld +++| ZR X1,FLD11 IF END OF LINE 00308 M00S00224.comcfld +++| SB4 B4-1 DECREMENT WORDS PER LINE 00309 M00S00225.comcfld +++| ZR B4,FLD10 IF LINE IS FULL 00310 M00S00226.comcfld +++| SA7 X6+ STORE NEXT 4 CHARACTERS 00311 M00S00227.comcfld +++| EQ FLD6 PROCESS NEXT WORD 00312 M00S00228.comcfld +++|
| Line S00229 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00313 M01S00229.v23l617 ---| FLD10 BX1 X7 ADD LAST 4 CHARACTERS
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00230.comcfld +++| RJ SFN SPACE FILL NAME
| Line S00231 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00319 M01S00231.v23l617 ---| SA1 FLDD GET CONVERTED DATA ADDRESS
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00320 M01S00070.v23l617 +++| FLD10.1 SA1 FLDD GET CONVERTED DATA ADDRESS 00321 M00S00232.comcfld +++| SA6 X1+ 00322 M00S00233.comcfld +++| SX6 X1+1 UPDATE CONVERTED DATA ADDRESS 00323 M00S00234.comcfld +++| SA6 A1+ 00324 M00S00235.comcfld +++| FLD11 SA3 FLDC 00325 M00S00236.comcfld +++| SA4 FLDB 00326 M00S00237.comcfld +++| SA1 FLDJ UPDATE Y COORDINATE 00327 M00S00238.comcfld +++| SB6 X4+ 00328 M00S00239.comcfld +++| NZ X3,FLD12 IF IF DATA IS IN LINE FORMAT 00329 M00S00240.comcfld +++| SA3 FLDK UPDATE FWA OF UNCONVERTED DATA 00330 M00S00241.comcfld +++| SX6 X3+B1 00331 M00S00242.comcfld +++| SA6 A4 00332 M00S00243.comcfld +++| SB6 X6 00333 M00S00244.comcfld +++| SA6 A3 00334 M00S00245.comcfld +++| FLD12 SX6 X1+B1 00335 M00S00246.comcfld +++| SA2 FLDI GET X COORDINATE 00336 M00S00247.comcfld +++| SA6 A1 00337 M00S00248.comcfld +++| SA1 FLDA GET LWA TO TRANSFER 00338 M00S00249.comcfld +++| SB4 X6 00339 M00S00250.comcfld +++| SB7 X1 00340 M00S00251.comcfld +++| SA3 FLDD 00341 M00S00252.comcfld +++| SB3 X2 00342 M00S00253.comcfld +++| SB2 X3 RETURN LWA OF CONVERTED DATA 00343 M00S00254.comcfld +++| LE B6,B7,FLD5 IF MORE WORDS TO PROCESS 00344 M00S00255.comcfld +++| SX6 B0 TERMINATE L-DISPLAY BUFFER WITH ZERO WORD 00345 M00S00256.comcfld +++| SA6 X3 00346 M00S00257.comcfld +++| EQ FLD RETURN 00347 M00S00258.comcfld +++| 00348 M00S00259.comcfld +++|* EXIT PROCESSOR FOR *L* DISPLAY BUFFER OVERFLOW CONDITION. 00349 M00S00260.comcfld +++| 00350 M00S00261.comcfld +++| FLD13 SX7 B0 TERMINATE L-DISPLAY BUFFER WITH ZERO WORD 00351 M00S00262.comcfld +++| SA7 X6-1 00352 M00S00263.comcfld +++| SB2 A7 RETURN LWA OF CONVERTED DATA BUFFER 00353 M00S00264.comcfld +++| SA1 FLDJ UPDATE Y COORDINATE 00354 M00S00265.comcfld +++| SX7 X1+B1 00355 M00S00266.comcfld +++| SA7 A1 00356 M00S00267.comcfld +++| EQ FLD RETURN 00357 M00S00268.comcfld +++| 00358 M00S00269.comcfld +++| 00359 M00S00270.comcfld +++| FLDA CON 0 LWA OF DATA TO TRANSFER 00360 M00S00271.comcfld +++| FLDB CON 0 ADDRESS OF DATA TO BE CONVERTED 00361 M00S00272.comcfld +++| FLDC CON 0 DATA TYPE 00362 M00S00273.comcfld +++| FLDD CON 0 ADDRESS OF CONVERTED DATA 00363 M00S00274.comcfld +++| FLDE CON 0 END OF LINE FLAG 00364 M00S00275.comcfld +++| FLDF BSS 5 STORAGE AREA FOR *TOD* DATA 00365 M00S00276.comcfld +++| CON 0 END OF LINE INDICATOR 00366 M00S00277.comcfld +++| FLDG EQU 6000B CONSTANT X COORDINATE IS ADDED TO
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00278.v23l617 ---| FLDH EQU 7756B CONSTANT Y COORDINATE IS SUBTRACTED FROM 00368 M00S00279.comcfld ---| FLDI CON 0 X COORDINATE 00369 M00S00280.comcfld ---| FLDJ CON 0 Y COORDINATE 00370 M00S00281.comcfld ---| FLDK CON 0 UNCONVERTED DATA 00371 M00S00282.comcfld ---| FLDL CON 0 LWA+1 CONVERTED DATA (*L* DISPLAY BUFFER)
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00375 M01S00071.v23l617 +++| FLDP CON 0 FLAG IF DATA FORMATTED FOR *L* DISPLAY 00376 M00S00283.comcfld +++|TOD SPACE 4,15 00377 M00S00284.comcfld +++|** TOD - TRANSLATE WORD TO OCTAL DUMP FORMAT. 00378 M00S00285.comcfld +++|* 00379 M00S00286.comcfld +++|* ENTRY (X1) = WORD OF DATA TO BE CHANGED. 00380 M00S00287.comcfld +++|* (B2) = FWA TO PLACE CONVERTED DATA IN DUMP FORMAT. 00381 M00S00288.comcfld +++|* 00382 M00S00289.comcfld +++|* EXIT WORD STORED. 00383 M00S00290.comcfld +++|* (B2) = LWA+1 OF STORED DATA. 00384 M00S00291.comcfld +++|* 00385 M00S00292.comcfld +++|* USES X - 1, 2, 6, 7. 00386 M00S00293.comcfld +++|* A - 1, 2, 6, 7. 00387 M00S00294.comcfld +++|* B - 2. 00388 M00S00295.comcfld +++|* 00389 M00S00296.comcfld +++|* CALLS WOD, ZTB. 00390 M00S00297.comcfld +++| 00391 M00S00298.comcfld +++| 00392 M00S00299.comcfld +++| TOD PS ENTRY/EXIT 00393 M00S00300.comcfld +++| RJ ZTB CHANGE ZEROES TO BLANKS 00394 M00S00301.comcfld +++| SA6 TODA SAVE RESULTS 00395 M00S00302.comcfld +++| RJ WOD CHANGE WORD TO OCTAL DISPLAY 00396 M00S00303.comcfld +++| SA2 TODB SAVE DATA IN OCTAL DUMP FORMAT 00397 M00S00304.comcfld +++| SA6 B2 00398 M00S00305.comcfld +++| BX6 X2 00399 M00S00306.comcfld +++| SA7 A6+B1 00400 M00S00307.comcfld +++| SA2 TODA 00401 M00S00308.comcfld +++| SA6 A7+B1 00402 M00S00309.comcfld +++| SA1 TODC 00403 M00S00310.comcfld +++| BX7 X2 00404 M00S00311.comcfld +++| BX6 X1 00405 M00S00312.comcfld +++| SA7 A6+B1 00406 M00S00313.comcfld +++| SA6 A7+B1 00407 M00S00314.comcfld +++| SB2 A6+1 00408 M00S00315.comcfld +++| EQ TOD RETURN 00409 M00S00316.comcfld +++| 00410 M00S00317.comcfld +++| TODA CON 0 00411 M00S00318.comcfld +++| TODB DATA 10H 00412 M00S00319.comcfld +++| TODC DATA 1L 00413 M00S00320.comcfld +++| BASE * 00414 M00S00321.comcfld +++| IF -DEF,QUAL$ 00415 M00S00322.comcfld +++| QUAL * 00416 M01S00072.v23l617 +++| FLB EQU /COMCFLD/FLB 00417 M00S00323.comcfld +++| FLD EQU /COMCFLD/FLD 00418 M00S00324.comcfld +++| QUAL$ ENDIF 00419 M00S00325.comcfld +++| ENDX
cdc/nos2.source/opl.opl871/common/comcfld.txt · Last modified: (external edit)