cdc:nos2.source:opl.opl871:common:comcrda
Common COMCRDA
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcrda +++| CTEXT COMCRDA - READ CODED LINE TO 6/12 STRING BUFFER. 00002 M01S00002.comcrda +++| RDA SPACE 4 00003 M01S00003.comcrda +++| IF -DEF,QUAL$,1 00004 M01S00004.comcrda +++| QUAL COMCRDA 00005 M01S00005.comcrda +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | comcrda |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comcrda +++| RDA SPACE 4 00009 M01S00008.comcrda +++|*** RDA - READ CODED LINE TO 6/12 ASCII STRING BUFFER. 00010 M01S00009.comcrda +++|* R. S. HORECK. 71/05/19. 00011 M01S00010.comcrda +++|* S. R. MCPHERSON. 74/09/30. 00012 M01S00011.comcrda +++|* A. F. SKJOLDEBRAND 84/08/09. ( ADAPTION FROM COMCRDS ) 00013 M01S00012.comcrda +++| RDA SPACE 4 00014 M01S00013.comcrda +++|*** RDA READS 1 CODED LINE FROM A CIO BUFFER TO A WORKING 00015 M01S00014.comcrda +++|* BUFFER, ONE 6 OR 12 BIT CHARACTER/WORD. 00016 M01S00015.comcrda +++|* WORDS IN THE CIRCULAR BUFFER ARE UNPACKED AND STORED 1 00017 M01S00016.comcrda +++|* CHARACTER/WORD IN THE WORKING BUFFER UNTIL END OF LINE 00018 M01S00017.comcrda +++|* (0000) BYTE IS DETECTED. IF THE CODED LINE TERMINATES BEFORE 00019 M01S00018.comcrda +++|* THE WORKING BUFFER IS FILLED, THE WORKING BUFFER IS PADDED 00020 M01S00019.comcrda +++|* WITH SPACE CODES UNLESS UPON ENTRY THE COMPLEMENT OF THE 00021 M01S00020.comcrda +++|* WORD COUNT OF THE WORKING BUFFER IS USED. IN THIS CASE, 00022 M01S00021.comcrda +++|* THE REMAINDER OF THE WORKING BUFFER IS NOT SPACE FILLED. 00023 M01S00022.comcrda +++|* IF THE CODED LINE EXCEEDS THE SIZE OF THE 00024 M01S00023.comcrda +++|* WORKING BUFFER THE EXCESS CHARACTERS ARE IGNORED. 00025 M01S00024.comcrda +++|* 00026 M01S00025.comcrda +++|* 00027 M01S00026.comcrda +++|* ENTRY (X2) = ADDRESS OF FET FOR FILE. 00028 M01S00027.comcrda +++|* (B6) = FWA WORKING BUFFER. 00029 M01S00028.comcrda +++|* (B7) = WORD COUNT OF WORKING BUFFER. 00030 M01S00029.comcrda +++|* IF (B7) .LT. 0, IT IS THE COMPLEMENT OF THE 00031 M01S00030.comcrda +++|* BUFFER LENGTH AND THE STRING BUFFER WILL 00032 M01S00031.comcrda +++|* NOT BE SPACE FILLED. 00033 M01S00032.comcrda +++|* 00034 M01S00033.comcrda +++|* EXIT (X1) = 0 FOR TRANSFER COMPLETE. 00035 M01S00034.comcrda +++|* (X1) = -1 IF EOF DETECTED ON FILE. 00036 M01S00035.comcrda +++|* (X1) = -2 IF EOI DETECTED ON FILE. 00037 M01S00036.comcrda +++|* (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE 00038 M01S00037.comcrda +++|* TRANSFER WAS COMPLETED. 00039 M01S00038.comcrda +++|* (B6) = ADDRESS PLUS ONE OF LAST CHARACTER FROM CODED 00040 M01S00039.comcrda +++|* LINE IN WORKING BUFFER. 00041 M01S00040.comcrda +++|* (X2) = ADDRESS OF FET FOR FILE. 00042 M01S00041.comcrda +++|* 00043 M01S00042.comcrda +++|* USES X - 1, 2, 3, 4, 6, 7. 00044 M01S00043.comcrda +++|* B - 1, 2, 3, 4, 5, 6, 7. 00045 M01S00044.comcrda +++|* A - 1, 2, 3, 4, 6, 7. 00046 M01S00045.comcrda +++|* 00047 M01S00046.comcrda +++|* CALLS LCB=, RDX=. 00048 M01S00047.comcrda +++| 00049 M01S00048.comcrda +++| 00050 M01S00049.comcrda +++| + EQ RDA2 ENTRY FROM LCB= ON A CONTINUATION READ 00051 M01S00050.comcrda +++| 00052 M01S00051.comcrda +++|* SPACE FILL REMAINDER OF BUFFER. 00053 M01S00052.comcrda +++| 00054 M01S00053.comcrda +++| RDA18 EQ B6,B7,RDA= IF WORKING BUFFER FULL 00055 M01S00054.comcrda +++| SX6 1R * * 00056 M01S00055.comcrda +++| SX4 B7-B6 (X4) = COUNT OF WORDA REMAINING IN BUFFER 00057 M01S00056.comcrda +++| MX3 59 (X3) = -1 00058 M01S00057.comcrda +++| SA6 B6 INITIALIZE (A6) 00059 M01S00058.comcrda +++| SB2 X4 00060 M01S00059.comcrda +++| LX7 X6 (X7) = * * 00061 M01S00060.comcrda +++| EQ B2,B1,RDA= IF ONLY 1 WORD REMAINING 00062 M01S00061.comcrda +++| BX2 -X3*X4 (X2) = 0 IF EVEN WORD COUNT 00063 M01S00062.comcrda +++| AX4 1 COUNT/2 00064 M01S00063.comcrda +++| NZ X2,RDA19 IF ODD WORD COUNT 00065 M01S00064.comcrda +++| SA6 A6+B1 STORE NEXT WORD 00066 M01S00065.comcrda +++| IX4 X4+X3 DECREMENT LOOP COUNT 00067 M01S00066.comcrda +++| SX2 A3-B1 RESET FET ADDRESS 00068 M01S00067.comcrda +++| ZR X4,RDA= IF WORD COUNT = 2 00069 M01S00068.comcrda +++| 00070 M01S00069.comcrda +++| RDA19 IX4 X4+X3 DECREMENT LOOP COUNT 00071 M01S00070.comcrda +++| SA7 A6+1 00072 M01S00071.comcrda +++| SA6 A7+B1 00073 M01S00072.comcrda +++| NZ X4,RDA19 LOOP TO END OF BUFFER 00074 M01S00073.comcrda +++| SX2 A3-1 RESET FET ADDRESS 00075 M01S00074.comcrda +++| EQ RDA= EXIT 00076 M01S00075.comcrda +++| 00077 M01S00076.comcrda +++| + EQ RDA2 ENTRY FROM LCB= ON A CONTINUATION READ 00078 M01S00077.comcrda +++| 00079 M01S00078.comcrda +++| RDA= PS ENTRY/EXIT 00080 M01S00079.comcrda +++| SA4 RDA18 SET RETURN ADDRESS 00081 M01S00080.comcrda +++| 00082 M01S00081.comcrda +++| IF -DEF,B1=1,1 00083 M01S00082.comcrda +++| SB1 1 00084 M01S00083.comcrda +++| 00085 M01S00084.comcrda +++| SA1 X2+4 (B5) = LIMIT 00086 M01S00085.comcrda +++| PL B7,RDA1 IF BUFFER TO BE SPACE FILLED 00087 M01S00086.comcrda +++| SA4 RDA= SKIP SPACE FILLING THE BUFFER 00088 M01S00087.comcrda +++| SB7 -B7 00089 M01S00088.comcrda +++| RDA1 SA3 X2+B1 (X3) = FIRST, (A3) = ADDRESS OF FIRST 00090 M01S00089.comcrda +++| SB7 B6+B7 (B7) = LWA+1 00091 M01S00090.comcrda +++| SX7 0 00092 M01S00091.comcrda +++| SX4 B6 (X4) = FWA WORKING STORAGE 00093 M01S00092.comcrda +++| SB5 X1 00094 M01S00093.comcrda +++| SA7 RDAA CLEAR ESCAPE CODE 00095 M01S00094.comcrda +++| 00096 M01S00095.comcrda +++|* INITIALIZE REGISTERS FOR TRANSFER. 00097 M01S00096.comcrda +++| 00098 M01S00097.comcrda +++| RDA2 SA1 A3+B1 IN 00099 M01S00098.comcrda +++| SA2 A1+B1 (B4) = OUT 00100 M01S00099.comcrda +++| SB4 X2 00101 M01S00100.comcrda +++| IX6 X1-X2 IN - OUT 00102 M01S00101.comcrda +++| SX1 B5 LIMIT 00103 M01S00102.comcrda +++| PL X6,RDA3 IF IN \ OUT 00104 M01S00103.comcrda +++| IX6 X1-X2 LIMIT - OUT 00105 M01S00104.comcrda +++| RDA3 ZR X6,=XLCB= IF NO FREE BUFFER SPACE 00106 M01S00105.comcrda +++| MX2 -6 (X2) = CHARACTER MASK 00107 M01S00106.comcrda +++| SB3 X6 (B3) = FREE BUFFER SPACE 00108 M01S00107.comcrda +++| 00109 M01S00108.comcrda +++| 00110 M01S00109.comcrda +++| RDA4 NE B4,B5,RDA5 IF OUT .NE. LIMIT 00111 M01S00110.comcrda +++| SA1 A3 00112 M01S00111.comcrda +++| SB4 X1 OUT = FIRST 00113 M01S00112.comcrda +++| RDA5 SX6 B4 RESET OUT 00114 M01S00113.comcrda +++| SA6 A2 00115 M01S00114.comcrda +++| ZR B3,RDA2 IF FREE BUFFER SPACE EXHAUSTED 00116 M01S00115.comcrda +++| 00117 M01S00116.comcrda +++|* READ WORD FROM BUFFER. 00118 M01S00117.comcrda +++| 00119 M01S00118.comcrda +++| SA1 RDAA 00120 M01S00119.comcrda +++| BX7 X1 (X7) = PREVIOUS ESCAPE CODE 00121 M01S00120.comcrda +++| SA1 B4 00122 M01S00121.comcrda +++| SB4 B4+B1 00123 M01S00122.comcrda +++| EQ B7,B6,RDA15 IF MAXIMUM CHARACTERS PROCESSED 00124 M01S00123.comcrda +++| SB2 B0+ INITIALIZE CHARACTER COUNT 00125 M01S00124.comcrda +++| NG X1,RDA6 IF POSSIBLY 10 SEMI-COLONS 00126 M01S00125.comcrda +++| ZR X1,RDA13 IF ZERO WORD SKIP UNPACKING 00127 M01S00126.comcrda +++| 00128 M01S00127.comcrda +++|* UNPACK WORD TO WORKING BUFFER 00129 M01S00128.comcrda +++| 00130 M01S00129.comcrda +++| RDA6 LX1 6 00131 M01S00130.comcrda +++| SB2 B2+B1 BUMP CHARACTER COUNT 00132 M01S00131.comcrda +++| BX6 -X2*X1 PICK UP CHARACTER 00133 M01S00132.comcrda +++| BX1 X2*X1 ERASE CHARACTER 00134 M01S00133.comcrda +++| LX7 6 00135 M01S00134.comcrda +++| BX6 X7+X6 00136 M01S00135.comcrda +++| NZ X7,RDA7 IF ESCAPE CODE PRESENT 00137 M01S00136.comcrda +++| SX7 X6-76B 00138 M01S00137.comcrda +++| ZR X7,RDA8 IF ESCAPE 76 IS PRESENT 00139 M01S00138.comcrda +++| SX7 X6-74B 00140 M01S00139.comcrda +++| ZR X7,RDA8 IF ESCAPE 74 IS PRESENT 00141 M01S00140.comcrda +++| RDA7 SA6 B6+ 00142 M01S00141.comcrda +++| SB6 B6+1 00143 M01S00142.comcrda +++| EQ B6,B7,RDA15 IF MAXIMUM CHARACTERS PROCESSED 00144 M01S00143.comcrda +++| SX6 0 CLEAR ESCAPE CHARACTER 00145 M01S00144.comcrda +++| RDA8 BX7 X6 USE NEW ESCAPE CODE 00146 M01S00145.comcrda +++| NZ X1,RDA6 IF MORE CHARACTERS IN THIS WORD 00147 M01S00146.comcrda +++| SA7 RDAA SAVE ESCAPE CODE FOR NEXT WORD 00148 M01S00147.comcrda +++| SX6 B2-9 00149 M01S00148.comcrda +++| EQ RDA10 00150 M01S00149.comcrda +++| 00151 M01S00150.comcrda +++| RDA9 SA6 B6 00152 M01S00151.comcrda +++| SB6 B6+B1 00153 M01S00152.comcrda +++| EQ B6,B7,RDA15 IF MAXIMUM CHARACTERS PROCESSED 00154 M01S00153.comcrda +++| NZ X1,RDA6 IF MORE CHARACTERS THIS WORD 00155 M01S00154.comcrda +++| SX6 B2-9 00156 M01S00155.comcrda +++| RDA10 SB2 B0 RESET CHARACTER COUNT 00157 M01S00156.comcrda +++| SB3 B3-B1 DECREMENT FREE BUFFER SPACE 00158 M01S00157.comcrda +++| NG X6,RDA15 IF END OF LINE 00159 M01S00158.comcrda +++| ZR B3,RDA12 IF FREE BUFFER SPACE EXHAUSTED 00160 M01S00159.comcrda +++| SA1 B4 GET NEXT WORD TO BE UNPACKED 00161 M01S00160.comcrda +++| SB4 B4+B1 00162 M01S00161.comcrda +++| NG X1,RDA11 IF POSSIBLY 10 SEMI-COLONS 00163 M01S00162.comcrda +++| ZR X1,RDA15 IF ZERO WORD, END OF LINE 00164 M01S00163.comcrda +++| RDA11 NZ X6,RDA6 IF WORD COMPLETLY PROCESSED 00165 M01S00164.comcrda +++| EQ RDA9 PROCESS LAST CHARACTER 00166 M01S00165.comcrda +++| 00167 M01S00166.comcrda +++| RDA12 NZ X6,RDA4 IF LAST CHARACTER PROCESSED 00168 M01S00167.comcrda +++| SA6 B6 PROCESS LAST CHARACTER 00169 M01S00168.comcrda +++| SB6 B6+B1 00170 M01S00169.comcrda +++| EQ RDA4 00171 M01S00170.comcrda +++| 00172 M01S00171.comcrda +++| RDA13 SB2 X4 00173 M01S00172.comcrda +++| NE B6,B2,RDA14 IF AT LEAST 1 CHARACTER IN WORKING BUFFER 00174 M01S00173.comcrda +++| SX6 1R ASSURE 1 BLANK IN STRING BUFFER 00175 M01S00174.comcrda +++| SB6 B2+B1 00176 M01S00175.comcrda +++| SA6 B2 00177 M01S00176.comcrda +++| RDA14 SA1 B6-B1 CHECK LAST CHARACTER IN BUFFER 00178 M01S00177.comcrda +++| NZ X1,RDA15 IF NOT BEGINNING OF END OF LINE 00179 M01S00178.comcrda +++| SB6 B6-1 ERASE CHARACTER 00180 M01S00179.comcrda +++| 00181 M01S00180.comcrda +++|* SEARCH FOR END OF LINE 00182 M01S00181.comcrda +++| 00183 M01S00182.comcrda +++| RDA15 SA1 B4-1 READ LAST WORD PROCESSED 00184 M01S00183.comcrda +++| MX7 -12 00185 M01S00184.comcrda +++| BX7 -X7*X1 CHECK FOR END OF LINE 00186 M01S00185.comcrda +++| SB3 B3-1 DECREMENT FREE BUFFER SPACE 00187 M01S00186.comcrda +++| NZ X7,RDA4 IF END OF LINE NOT FOUND 00188 M01S00187.comcrda +++| NE B4,B5,RDA16 IF OUT .NE. LIMIT 00189 M01S00188.comcrda +++| SB4 X3+ OUT .EQ. FIRST 00190 M01S00189.comcrda +++| RDA16 SA1 A3+B1 RESET IN 00191 M01S00190.comcrda +++| SB2 X4 FWA WORKING BUFFER 00192 M01S00191.comcrda +++| SB3 X1+ (B3) = IN 00193 M01S00192.comcrda +++| GE B6,B2,=XRDX= 00194 M01S00193.comcrda +++| SB6 B2+ 00195 M01S00194.comcrda +++| EQ =XRDX= EXIT 00196 M01S00195.comcrda +++| 00197 M01S00196.comcrda +++| RDAA DATA 0 ESCAPE CODE TEMPORARY STORAGE 00198 M01S00197.comcrda +++| 00199 M01S00198.comcrda +++| SPACE 4 00200 M01S00199.comcrda +++| BASE * 00201 M01S00200.comcrda +++| QUAL$ IF -DEF,QUAL$ 00202 M01S00201.comcrda +++| QUAL * 00203 M01S00202.comcrda +++| RDA= EQU /COMCRDA/RDA= 00204 M01S00203.comcrda +++| QUAL$ ENDIF 00205 M01S00204.comcrda +++| ENDX
cdc/nos2.source/opl.opl871/common/comcrda.txt · Last modified: by 127.0.0.1