Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:comtdp9
Common COMTDP9
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comtdp9 +++| CTEXT COMTDP9 - DISPLAY CODE TO BINARY O29 PUNCH. 00002 M00S00002.comtdp9 +++| BASE D
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00004 M00S00003.comtdp9 +++| BINP SPACE 4 00005 M00S00004.comtdp9 +++|** BINP - FORM BINARY IMAGE OF CARD PUNCHES. 00006 M00S00005.comtdp9 +++|* 00007 M00S00006.comtdp9 +++|* BINP (R1,R2,R3,...) 00008 M00S00007.comtdp9 +++|* 00009 M00S00008.comtdp9 +++|* WHERE RI= ROW TO PUNCH. 00010 M00S00009.comtdp9 +++| 00011 M00S00010.comtdp9 +++| 00012 M00S00011.comtdp9 +++| BINP MACRO R 00013 M00S00012.comtdp9 +++| LOCAL A,B 00014 M00S00013.comtdp9 +++| A IFC NE,*R** 00015 M00S00014.comtdp9 +++| IRP R 00016 M00S00015.comtdp9 +++| B SET R 00017 M00S00016.comtdp9 +++| IFLE B,9D,2 00018 M00S00017.comtdp9 +++| B SET B+2 00019 M00S00018.comtdp9 +++| SKIP 7 00020 M00S00019.comtdp9 +++| IFEQ B,11D,2 00021 M00S00020.comtdp9 +++| B SET 1 00022 M00S00021.comtdp9 +++| SKIP 4 00023 M00S00022.comtdp9 +++| IFEQ B,12D,2 00024 M00S00023.comtdp9 +++| B SET 0 00025 M00S00024.comtdp9 +++| SKIP 1 00026 M00S00025.comtdp9 +++| ERR ILLEGAL ROW - R 00027 M00S00026.comtdp9 +++| POS 12D-B 00028 M00S00027.comtdp9 +++| VFD 1/1 00029 M00S00028.comtdp9 +++| IRP 00030 M00S00029.comtdp9 +++| BSS 0 00031 M00S00030.comtdp9 +++| A ELSE 1 00032 M00S00031.comtdp9 +++| CON 0 00033 M00S00032.comtdp9 +++| ENDM 00034 M00S00033.comtdp9 +++| TDP9 SPACE 4 00035 M00S00034.comtdp9 +++|** TDP9 - DISPLAY CODE TO BINARY O29 PUNCH. 00036 M00S00035.comtdp9 +++|* ONE WORD ENTRY, INDEX BY DISPLAY CODE. 00037 M00S00036.comtdp9 +++| 00038 M00S00037.comtdp9 +++| 00039 M00S00038.comtdp9 +++| TDP9 BSS 0 00040 M00S00039.comtdp9 +++| LOC 0 00041 M00S00040.comtdp9 +++| 00042 M00S00041.comtdp9 +++| BINP (8,2) COLON 00043 M00S00042.comtdp9 +++| BINP (12,1) A 00044 M00S00043.comtdp9 +++| BINP (12,2) B 00045 M00S00044.comtdp9 +++| BINP (12,3) C 00046 M00S00045.comtdp9 +++| BINP (12,4) D 00047 M00S00046.comtdp9 +++| BINP (12,5) E 00048 M00S00047.comtdp9 +++| BINP (12,6) F 00049 M00S00048.comtdp9 +++| BINP (12,7) G 00050 M00S00049.comtdp9 +++| 00051 M00S00050.comtdp9 +++| BINP (12,8) H 00052 M00S00051.comtdp9 +++| BINP (12,9) I 00053 M00S00052.comtdp9 +++| BINP (11,1) J 00054 M00S00053.comtdp9 +++| BINP (11,2) K 00055 M00S00054.comtdp9 +++| BINP (11,3) L 00056 M00S00055.comtdp9 +++| BINP (11,4) M 00057 M00S00056.comtdp9 +++| BINP (11,5) N 00058 M00S00057.comtdp9 +++| BINP (11,6) O 00059 M00S00058.comtdp9 +++| 00060 M00S00059.comtdp9 +++| BINP (11,7) P 00061 M00S00060.comtdp9 +++| BINP (11,8) Q 00062 M00S00061.comtdp9 +++| BINP (11,9) R 00063 M00S00062.comtdp9 +++| BINP (0,2) S 00064 M00S00063.comtdp9 +++| BINP (0,3) T 00065 M00S00064.comtdp9 +++| BINP (0,4) U 00066 M00S00065.comtdp9 +++| BINP (0,5) V 00067 M00S00066.comtdp9 +++| BINP (0,6) W 00068 M00S00067.comtdp9 +++| 00069 M00S00068.comtdp9 +++| BINP (0,7) X 00070 M00S00069.comtdp9 +++| BINP (0,8) Y 00071 M00S00070.comtdp9 +++| BINP (0,9) Z 00072 M00S00071.comtdp9 +++| BINP (0) 0 00073 M00S00072.comtdp9 +++| BINP (1) 1 00074 M00S00073.comtdp9 +++| BINP (2) 2 00075 M00S00074.comtdp9 +++| BINP (3) 3 00076 M00S00075.comtdp9 +++| BINP (4) 4 00077 M00S00076.comtdp9 +++| 00078 M00S00077.comtdp9 +++| BINP (5) 5 00079 M00S00078.comtdp9 +++| BINP (6) 6 00080 M00S00079.comtdp9 +++| BINP (7) 7 00081 M00S00080.comtdp9 +++| BINP (8) 8 00082 M00S00081.comtdp9 +++| BINP (9) 9 00083 M00S00082.comtdp9 +++| BINP (12,8,6) + 00084 M00S00083.comtdp9 +++| BINP (11) - 00085 M00S00084.comtdp9 +++| BINP (11,8,4) * 00086 M00S00085.comtdp9 +++| 00087 M00S00086.comtdp9 +++| BINP (0,1) / 00088 M00S00087.comtdp9 +++| BINP (12,8,5) ( 00089 M00S00088.comtdp9 +++| BINP (11,8,5) ) 00090 M00S00089.comtdp9 +++| BINP (11,8,3) $ 00091 M00S00090.comtdp9 +++| BINP (8,6) = 00092 M00S00091.comtdp9 +++| BINP () BLANK 00093 M00S00092.comtdp9 +++| BINP (0,8,3) , 00094 M00S00093.comtdp9 +++| BINP (12,8,3) . 00095 M00S00094.comtdp9 +++| 00096 M00S00095.comtdp9 +++| BINP (8,3) # 00097 M00S00096.comtdp9 +++| BINP (12,8,2) [ 00098 M00S00097.comtdp9 +++| BINP (11,8,2) ] 00099 M00S00098.comtdp9 +++| BINP (0,8,4) PERCENT 00100 M00S00099.comtdp9 +++| BINP (8,7) .NE. 00101 M00S00100.comtdp9 +++| BINP (0,8,5) _ 00102 M00S00101.comtdp9 +++| BINP (12,8,7) ! 00103 M00S00102.comtdp9 +++| BINP (12) & 00104 M00S00103.comtdp9 +++| 00105 M00S00104.comtdp9 +++| BINP (8,5) ' 00106 M00S00105.comtdp9 +++| BINP (0,8,7) ? 00107 M00S00106.comtdp9 +++| BINP (12,8,4) < 00108 M00S00107.comtdp9 +++| BINP (0,8,6) > 00109 M00S00108.comtdp9 +++| BINP (8,4) 00110 M00S00109.comtdp9 +++| BINP (0,8,2) \ 00111 M00S00110.comtdp9 +++| BINP (11,8,7) 00112 M00S00111.comtdp9 +++| BINP (11,8,6) ; 00113 M00S00112.comtdp9 +++| 00114 M00S00113.comtdp9 +++| LOC *O 00115 M00S00114.comtdp9 +++| BASE * 00116 M00S00115.comtdp9 +++| 00117 M00S00116.comtdp9 +++| ENDX
cdc/nos2.source/opl.opl871/common/comtdp9.txt · Last modified: by 127.0.0.1