Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:compups
Common COMPUPS
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compups +++| CTEXT COMPUPS - UNPACK STATEMENT. 00002 M00S00002.compups +++| UPS SPACE 4 00003 M00S00003.compups +++| IF -DEF,QUAL$,1 00004 M00S00004.compups +++| QUAL COMPUPS
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M00S00006.compups +++| UPS SPACE 4 00008 M00S00007.compups +++|*** UPS - UNPACK STATEMENT. 00009 M00S00008.compups +++|* G. R. MANSFIELD. 70/10/18. 00010 M00S00009.compups +++|* D. A. HIVELEY. 73/12/07. 00011 M00S00010.compups +++|* R. A. LARSEN. 76/05/20. 00012 M00S00011.compups +++| UPS SPACE 4 00013 M00S00012.compups +++|*** UPS UNPACKS A STATEMENT FROM A WORD BUFFER TO A 00014 M00S00013.compups +++|* CHARACTER BUFFER. 00015 M00S00014.compups +++|* 00016 M00S00015.compups +++|* CHARACTER PROCESSING WITHOUT LITERALS - 00017 M00S00016.compups +++|* IMBEDDED SPACES ARE DELETED. 00018 M00S00017.compups +++|* THE STRING TERMINATES WITH A BYTE OF 0000. 00019 M00S00018.compups +++|* THE TERMINATION CONDITION IS A *.* OR *)*. 00020 M00S00019.compups +++|* 00021 M00S00020.compups +++|* CHARACTER PROCESSING WITH LITERALS - 00022 M00S00021.compups +++|* LITERALS ARE DELIMITED BY A *$*. 00023 M00S00022.compups +++|* A *$$* IS VALID WITHIN A LITERAL AND IS NOT CONSIDERED 00024 M00S00023.compups +++|* A DELIMITER. 00025 M00S00024.compups +++|* A *.*, *)*, OR * * WITHIN A LITERAL HAS NO SPECIAL 00026 M00S00025.compups +++|* MEANING. 00027 M00S00026.compups +++|* OUTSIDE THE LITERAL IMBEDDED SPACES ARE DELETED. 00028 M00S00027.compups +++|* THE STRING TERMINATES WITH A BYTE OF 0000. 00029 M00S00028.compups +++|* 00030 M00S00029.compups +++|* ERROR CONDITIONS - 00031 M00S00030.compups +++|* NO TERMINATOR FOUND. 00032 M00S00031.compups +++|* BYTE VALUE = 0 (DOUBLE COLON). 00033 M00S00032.compups +++|* UNDELIMITED LITERAL. 00034 M00S00033.compups +++|* 00035 M00S00034.compups +++|* ENTRY (STMT - STMT+N) = STATEMENT TERMINATED WITH A 0 WORD. 00036 M00S00035.compups +++|* 00037 M00S00036.compups +++|* EXIT (A) = 0, IF N0 ERROR FOUND. 00038 M00S00037.compups +++|* (T1) = ADDRESS OF LAST BYTE GOTTEN FROM (STMT). 00039 M00S00038.compups +++|* (T2) = ADDRESS OF LAST CHARACTER STORED IN (CHAR). 00040 M00S00039.compups +++|* (T3) = CHARACTER POSITION INDICATOR 00041 M00S00040.compups +++|* (1 = UPPER, 0 = LOWER). 00042 M00S00041.compups +++|* (CHAR - CHAR+N) = UNPACKED STATEMENT. 00043 M00S00042.compups +++|* 00044 M00S00043.compups +++|* USES T1 - T3. 00045 M00S00044.compups +++|* 00046 M00S00045.compups +++|* CALLS GNC. 00047 M00S00046.compups +++| 00048 M00S00047.compups +++| 00049 M00S00048.compups +++| UPS SUBR ENTRY/EXIT 00050 M00S00049.compups +++| LDN 0 CLEAR CHARACTER POSITION INDICATOR 00051 M00S00050.compups +++| STD T3 00052 M00S00051.compups +++| LDC STMT-1 SET STATEMENT ADDRESS 00053 M00S00052.compups +++| STD T1 00054 M00S00053.compups +++| LDC CHAR SET CHARACTER ADDRESS 00055 M00S00054.compups +++| STD T2 00056 M00S00055.compups +++| 00057 M00S00056.compups +++|* CHECK FIRST CHARACTER, DELETING IMBEDDED BLANKS. 00058 M00S00057.compups +++| 00059 M00S00058.compups +++| UPS1 RJM GNC GET NEXT CHARACTER 00060 M00S00059.compups +++| ZJN UPS7 IF COLON 00061 M00S00060.compups +++| SBN 1R$ 00062 M00S00061.compups +++| ZJN UPS8 IF *$* 00063 M00S00062.compups +++| SBN 1R -1R$ 00064 M00S00063.compups +++| ZJN UPS1 IF BLANK 00065 M00S00064.compups +++| ADN -1RZ-1+1R 00066 M00S00065.compups +++| MJN UPS8 IF ALPHABETIC 00067 M00S00066.compups +++| SBN 1R9+1-1RZ-1 00068 M00S00067.compups +++| PJN UPS7 IF NON-NUMERIC 00069 M00S00068.compups +++| 00070 M00S00069.compups +++|* SKIP SEQUENCE NUMBER, DELETING IMBEDDED BLANKS. 00071 M00S00070.compups +++| 00072 M00S00071.compups +++| UPS2 AOD T2 ADVANCE CHARACTER ADDRESS 00073 M00S00072.compups +++| UPS3 RJM GNC GET NEXT CHARACTER 00074 M00S00073.compups +++| ZJN UPS5 IF COLON 00075 M00S00074.compups +++| SBN 1R9+1 00076 M00S00075.compups +++| MJN UPS2 IF ALPHANUMERIC 00077 M00S00076.compups +++| SBN 1R)-1R9-1 00078 M00S00077.compups +++| ZJN UPS4 IF *)* 00079 M00S00078.compups +++| SBN 1R -1R) 00080 M00S00079.compups +++| ZJN UPS3 IF BLANK 00081 M00S00080.compups +++| SBN 1R.-1R 00082 M00S00081.compups +++| NJN UPS5 IF NOT *.* 00083 M00S00082.compups +++| UPS4 STI T2 TERMINATE BUFFER 00084 M00S00083.compups +++| LJM UPSX RETURN 00085 M00S00084.compups +++| 00086 M00S00085.compups +++|* CHECK FIRST CHARACTER AFTER SEQUENCE NUMBER TERMINATOR. 00087 M00S00086.compups +++| 00088 M00S00087.compups +++| UPS5 AOD T2 ADVANCE CHARACTER ADDRESS 00089 M00S00088.compups +++| UPS6 RJM GNC GET NEXT CHARACTER 00090 M00S00089.compups +++| LMN 1R 00091 M00S00090.compups +++| ZJN UPS6 IF BLANK 00092 M00S00091.compups +++| LMN 1R$&1R 00093 M00S00092.compups +++| ZJN UPS8 IF *$* 00094 M00S00093.compups +++| UPS7 LDI T2 GET CURRENT CHARACTER 00095 M00S00094.compups +++| UJN UPS10 SEARCH FOR TERMINATOR 00096 M00S00095.compups +++| 00097 M00S00096.compups +++|* SEARCH FOR TERMINATOR, DELETING IMBEDDED BLANKS. 00098 M00S00097.compups +++| 00099 M00S00098.compups +++| UPS8 AOD T2 ADVANCE CHARACTER ADDRESS 00100 M00S00099.compups +++| UPS9 RJM GNC GET NEXT CHARACTER 00101 M00S00100.compups +++| UPS10 LMN 1R 00102 M00S00101.compups +++| ZJN UPS9 IF BLANK 00103 M00S00102.compups +++| LMN 1R.&1R 00104 M00S00103.compups +++| ZJN UPS4 IF *.* 00105 M00S00104.compups +++| LMN 1R)&1R. 00106 M00S00105.compups +++| ZJN UPS4 IF *)* 00107 M00S00106.compups +++| LMN 1R$&1R) 00108 M00S00107.compups +++| NJN UPS8 IF NOT *$* 00109 M00S00108.compups +++| 00110 M00S00109.compups +++|* PROCESS LITERAL CHARACTER STRING. 00111 M00S00110.compups +++| 00112 M00S00111.compups +++| UPS11 AOD T2 ADVANCE CHARACTER ADDRESS 00113 M00S00112.compups +++| RJM GNC GET NEXT CHARACTER 00114 M00S00113.compups +++| LMN 1R$ 00115 M00S00114.compups +++| NJN UPS11 IF NOT *$* 00116 M00S00115.compups +++| AOD T2 ADVANCE CHARACTER ADDRESS 00117 M00S00116.compups +++| RJM GNC GET NEXT CHARACTER 00118 M00S00117.compups +++| LMN 1R$ 00119 M00S00118.compups +++| ZJN UPS11 IF *$$* 00120 M00S00119.compups +++| UJN UPS7 END OF LITERAL STRING 00121 M00S00120.compups +++| GNC SPACE 4,15 00122 M00S00121.compups +++|** GNC - GET NEXT CHARACTER. 00123 M00S00122.compups +++|* 00124 M00S00123.compups +++|* ENTRY (T1) = ADDRESS OF NEXT BYTE OF CONTROL CARD - 1. 00125 M00S00124.compups +++|* (T2) = ADDRESS TO STORE NEXT CHARACTER. 00126 M00S00125.compups +++|* (T3) = NEXT CHARACTER INDICATOR. 00127 M00S00126.compups +++|* 00128 M00S00127.compups +++|* EXIT (A) = NEXT CHARACTER. 00129 M00S00128.compups +++|* (T1) ADVANCED IF NEW BYTE NEEDED. 00130 M00S00129.compups +++|* ((T2)) = NEXT CHARACTER. 00131 M00S00130.compups +++|* (T3) = TOGGLED TO INDICATE NEXT CHARACTER. 00132 M00S00131.compups +++|* TO *UPSX* IF ERROR ENCOUNTERED. 00133 M00S00132.compups +++|* 00134 M00S00133.compups +++|* USES T1, T2, T3. 00135 M00S00134.compups +++| 00136 M00S00135.compups +++| 00137 M00S00136.compups +++| GNC2 SHN -6 POSITION UPPER CHARACTER 00138 M00S00137.compups +++| UJN GNC4 STORE CHARACTER 00139 M00S00138.compups +++| 00140 M00S00139.compups +++| GNC3 LDI T1 GET LOWER CHARACTER 00141 M00S00140.compups +++| LPN 77 00142 M00S00141.compups +++| GNC4 STI T2 STORE CHARACTER 00143 M00S00142.compups +++| 00144 M00S00143.compups +++| GNC SUBR ENTRY/EXIT 00145 M00S00144.compups +++| LDD T3 DETERMINE UPPER/LOWER CHARACTER 00146 M00S00145.compups +++| LMN 1 00147 M00S00146.compups +++| STD T3 00148 M00S00147.compups +++| ZJN GNC3 IF LOWER CHARACER 00149 M00S00148.compups +++| AOD T1 ADVANCE STATEMENT ADDRESS 00150 M00S00149.compups +++| LMC STMT+9D*5 00151 M00S00150.compups +++| ZJN GNC1 IF END OF STATEMENT 00152 M00S00151.compups +++| LDI T1 GET NEXT WORD OF STATEMENT 00153 M00S00152.compups +++| NJN GNC2 IF NOT DOUBLE COLON OR END OF STATEMENT 00154 M00S00153.compups +++| GNC1 STI T2 TERMINATE STRING BUFFER 00155 M00S00154.compups +++| LDN 1 INDICATE ERROR 00156 M00S00155.compups +++| LJM UPSX RETURN 00157 M00S00156.compups +++| SPACE 4 00158 M00S00157.compups +++| QUAL$ IF -DEF,QUAL$ 00159 M00S00158.compups +++| QUAL * 00160 M00S00159.compups +++| UPS EQU /COMPUPS/UPS 00161 M00S00160.compups +++| QUAL$ ENDIF 00162 M00S00161.compups +++| ENDX
cdc/nos2.source/opl.opl871/common/compups.txt · Last modified: by 127.0.0.1