cdc:nos2.source:opl.opl871:common:comcupc
Common COMCUPC
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcupc +++| CTEXT COMCUPC - UNPACK CONTROL CARD. 00002 M01S00002.comcupc +++| UPC SPACE 4 00003 M01S00003.comcupc +++| IF -DEF,QUAL$,1 00004 M01S00004.comcupc +++| QUAL COMCUPC 00005 M01S00005.comcupc +++| BASE D
Line S00006 Modification History | |
---|---|
M01 (Added by) | comcupc |
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.comcupc +++| UPC SPACE 4 00009 M01S00008.comcupc +++|*** UPC - UNPACK CONTROL CARD. 00010 M01S00009.comcupc +++|* G. R. MANSFIELD. 70/12/12. 00011 M01S00010.comcupc +++| UPC SPACE 4 00012 M01S00011.comcupc +++|*** UPC UNPACKS A CONTROL CARD TO INDIVIDUAL PARAMETERS. 00013 M01S00012.comcupc +++|* THE FOLLOWING CONDITIONS ARE NOTED. 00014 M01S00013.comcupc +++|* (1.) IMBEDDED SPACES ARE IGNORED. 00015 M01S00014.comcupc +++|* (2.) THE CHARACTERS +-/=,($ ARE CONSIDERED AS PARAMETER 00016 M01S00015.comcupc +++|* SEPARATORS. 00017 M01S00016.comcupc +++|* (3.) THE CHARACTERS ). ARE CONSIDERED AS THE TERMINATION OF 00018 M01S00017.comcupc +++|* THE CONTROL CARD. 00019 M01S00018.comcupc +++|* (4.) CHARACTERS WITH DISPLAY CODE VALUES 0, OR 60B - 77B 00020 M01S00019.comcupc +++|* ARE ILLEGAL BEFORE THE TERMINATOR. 00021 M01S00020.comcupc +++|* (5.) THE PARAMETER MUST CONTAIN 7 OR LESS CHARACTERS. 00022 M01S00021.comcupc +++|* (6.) THE PARAMETERS ARE STORED LEFT JUSTIFIED WITH ZERO 00023 M01S00022.comcupc +++|* FILL. 00024 M01S00023.comcupc +++|* (7.) THE CHARACTER , WILL NOT BE PLACED IN THE LOWER 00025 M01S00024.comcupc +++|* 18 BITS OF THE KEYWORD PARAMETER. 00026 M01S00025.comcupc +++|* (8.) TWO SUCCESSIVE SEPARATORS OR A SEPARATOR FOLLOWED BY 00027 M01S00026.comcupc +++|* A TERMINATOR RESULTS IN A PARAMETER OF ALL ZERO. 00028 M01S00027.comcupc +++|* 00029 M01S00028.comcupc +++|* ENTRY (X5) = FIRST WORD OF CONTROL CARD. 00030 M01S00029.comcupc +++|* (A5) = ADDRESS OF FIRST WORD. 00031 M01S00030.comcupc +++|* (B7) = ADDRESS FOR FIRST PARAMETER. 00032 M01S00031.comcupc +++|* (B1) = 1. 00033 M01S00032.comcupc +++|* 00034 M01S00033.comcupc +++|* EXIT (X6) = 0 IF NO ERROR DURING UNPACK. 00035 M01S00034.comcupc +++|* (B6) = PARAMETER COUNT. 00036 M01S00035.comcupc +++|* 00037 M01S00036.comcupc +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 00038 M01S00037.comcupc +++|* B - 2, 3, 4, 5, 6. 00039 M01S00038.comcupc +++|* A - 1, 2, 5, 6, 7. 00040 M01S00039.comcupc +++|* 00041 M01S00040.comcupc +++|* CALLS NONE. 00042 M01S00041.comcupc +++| 00043 M01S00042.comcupc +++| 00044 M01S00043.comcupc +++| UPC PS ENTRY/EXIT 00045 M01S00044.comcupc +++| SX3 4100B (X3) = MASK FOR TERMINATORS 00046 M01S00045.comcupc +++| SB5 60 (B5) = CONSTANT 60 00047 M01S00046.comcupc +++| MX0 -6 (X0) = CHARACTER MASK 00048 M01S00047.comcupc +++| BX6 X6-X6 CLEAR ASSEMBLY 00049 M01S00048.comcupc +++| SB2 B5 CLEAR CHARACTER COUNT 00050 M01S00049.comcupc +++| MX2 18 (X2) = EXCESS CHARACTER MASK 00051 M01S00050.comcupc +++| MX4 1 (X4) = CHARACTER COUNTER 00052 M01S00051.comcupc +++| SB6 B0 (B6) = ASSEMBLY INDEX 00053 M01S00052.comcupc +++| EQ UPC2 ENTER LOOP 00054 M01S00053.comcupc +++| 00055 M01S00054.comcupc +++| UPC1 LX6 6 ADVANCE ASSEMBLY 00056 M01S00055.comcupc +++| SB2 B2-6 00057 M01S00056.comcupc +++| BX6 X6+X7 00058 M01S00057.comcupc +++| UPC2 LX5 6 NEXT CHARACTER 00059 M01S00058.comcupc +++| BX7 -X0*X5 00060 M01S00059.comcupc +++| SB3 X7-1R9 CHECK CHARACTER 00061 M01S00060.comcupc +++| LX4 6 ADVANCE DISASSEMBLY 00062 M01S00061.comcupc +++| PL X4,UPC3 00063 M01S00062.comcupc +++| SA5 A5+B1 00064 M01S00063.comcupc +++| UPC3 ZR X7,UPC5 IF CHARACTER = 00 00065 M01S00064.comcupc +++| LT B3,B1,UPC1 IF ALPHA/NUMERIC 00066 M01S00065.comcupc +++| 00067 M01S00066.comcupc +++| SB4 X7-1R* 00068 M01S00067.comcupc +++| ZR B4,UPC1 IF CHARACTER = * 00069 M01S00068.comcupc +++| SB4 X7-1R CHECK CHARACTER 00070 M01S00069.comcupc +++| ZR B4,UPC2 IF CHARACTER = * * 00071 M01S00070.comcupc +++| BX1 X2*X6 CHECK ASSEMBLY 00072 M01S00071.comcupc +++| LX6 X6,B2 LEFT JUSTIFY ASSEMBLY 00073 M01S00072.comcupc +++| NZ X1,UPC5 IF > 7 CHARACTERS ASSEMBLED 00074 M01S00073.comcupc +++| AX1 X3,B3 CHECK FOR TERMINATOR 00075 M01S00074.comcupc +++| EQ B4,B1,UPC4 IF SEPARATOR = *,* 00076 M01S00075.comcupc +++| BX6 X6+X7 INSERT SEPARATOR 00077 M01S00076.comcupc +++| UPC4 SA6 B7+B6 STORE ASSEMBLY 00078 M01S00077.comcupc +++| SB2 B5 RESET ASSEMBLY 00079 M01S00078.comcupc +++| BX6 X6-X6 00080 M01S00079.comcupc +++| LX1 59 00081 M01S00080.comcupc +++| SB6 B6+B1 00082 M01S00081.comcupc +++| SA6 A6+B1 CLEAR LAST + 1 00083 M01S00082.comcupc +++| PL X1,UPC2 LOOP IF NOT TERMINATRO 00084 M01S00083.comcupc +++| SA2 A6-1 CLEAR TERMINATOR 00085 M01S00084.comcupc +++| MX3 42 00086 M01S00085.comcupc +++| BX7 X3*X2 00087 M01S00086.comcupc +++| SA7 A2 00088 M01S00087.comcupc +++| EQ UPC RETURN 00089 M01S00088.comcupc +++| 00090 M01S00089.comcupc +++| UPC5 SX6 B1 RETURN ERROR 00091 M01S00090.comcupc +++| SB6 B0 00092 M01S00091.comcupc +++| EQ UPC 00093 M01S00092.comcupc +++| SPACE 4 00094 M01S00093.comcupc +++| BASE * 00095 M01S00094.comcupc +++| QUAL$ IF -DEF,QUAL$ 00096 M01S00095.comcupc +++| QUAL * 00097 M01S00096.comcupc +++| UPC EQU /COMCUPC/UPC 00098 M01S00097.comcupc +++| QUAL$ ENDIF 00099 M01S00098.comcupc +++| ENDX
cdc/nos2.source/opl.opl871/common/comcupc.txt ยท Last modified: by 127.0.0.1