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