User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comtda8

Common COMTDA8

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comtda8 +++|          CTEXT  COMTDA8 - DISPLAY CODE TO *ASCII8* CODE.
00002  M00S00002.comtda8 +++|          SPACE  4,10
00003  M00S00003.comtda8 +++|          BASE   O
Line S00004 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comtda8 +++| DA8      SPACE  4,10
00007  M00S00006.comtda8 +++|*         TDA8 - DISPLAY CODE TO *ASCII8* CODE.
00008  M00S00007.comtda8 +++|*         D. R. HILGREN.     79/01/15.
00009  M00S00008.comtda8 +++|          SPACE  4,10
00010  M00S00009.comtda8 +++|**        TABLE FORMAT.
00011  M00S00010.comtda8 +++|*
00012  M00S00011.comtda8 +++|*
00013  M00S00012.comtda8 +++|*         FOR CP CODE -
00014  M00S00013.comtda8 +++|*
00015  M00S00014.comtda8 +++|*T,       1/ E ,41/ 0 ,1/ I ,5/ 0 ,12/ ASCII8
Figure

0111216171829 ASCII8 0 I 0 305859 0 E

00016  M00S00015.comtda8 +++|*
00017  M00S00016.comtda8 +++|*
00018  M00S00017.comtda8 +++|*         FOR PP CODE -
00019  M00S00018.comtda8 +++|*
00020  M00S00019.comtda8 +++|*T,       12/ ASCII8
Figure

011 ASCII8

00021  M00S00020.comtda8 +++|*
00022  M00S00021.comtda8 +++|*
00023  M00S00022.comtda8 +++|*         E = 1, IF ESCAPE CODED CHARACTER (IF SO,
00024  M00S00023.comtda8 +++|*                ASCII8 = FWA OF ESCAPE CODE PART OF TABLE).
00025  M00S00024.comtda8 +++|*         I = 1, IF CODE IS AN ILLEGAL CODE.  SUCH A CODE IS
00026  M00S00025.comtda8 +++|*                CONVERTED TO AN *ASCII8* NULL.
00027  M00S00026.comtda8 +++|*         ASCII8 = 12-BIT ASCII CODE.
00028  M00S00027.comtda8 +++|          SPACE  4,10
00029  M00S00028.comtda8 +++| TDA8     BSS    0
00030  M00S00029.comtda8 +++|          LOC    0
00031  M00S00030.comtda8 +++|
00032  M00S00031.comtda8 +++|          CODE   A
00033  M00S00032.comtda8 +++|
00034  M00S00033.comtda8 +++|          CON    72          00    COLON
00035  M00S00034.comtda8 +++|          CON    1RA+40B     01    UPPER CASE A
00036  M00S00035.comtda8 +++|          CON    1RB+40B     02    UPPER CASE B
00037  M00S00036.comtda8 +++|          CON    1RC+40B     03    UPPER CASE C
00038  M00S00037.comtda8 +++|          CON    1RD+40B     04    UPPER CASE D
00039  M00S00038.comtda8 +++|          CON    1RE+40B     05    UPPER CASE E
00040  M00S00039.comtda8 +++|          CON    1RF+40B     06    UPPER CASE F
00041  M00S00040.comtda8 +++|          CON    1RG+40B     07    UPPER CASE G
00042  M00S00041.comtda8 +++|*
00043  M00S00042.comtda8 +++|          CON    1RH+40B     10    UPPER CASE H
00044  M00S00043.comtda8 +++|          CON    1RI+40B     11    UPPER CASE I
00045  M00S00044.comtda8 +++|          CON    1RJ+40B     12    UPPER CASE J
00046  M00S00045.comtda8 +++|          CON    1RK+40B     13    UPPER CASE K
00047  M00S00046.comtda8 +++|          CON    1RL+40B     14    UPPER CASE L
00048  M00S00047.comtda8 +++|          CON    1RM+40B     15    UPPER CASE M
00049  M00S00048.comtda8 +++|          CON    1RN+40B     16    UPPER CASE N
00050  M00S00049.comtda8 +++|          CON    1RO+40B     17    UPPER CASE O
00051  M00S00050.comtda8 +++|*
00052  M00S00051.comtda8 +++|          CON    1RP+40B     20    UPPER CASE P
00053  M00S00052.comtda8 +++|          CON    1RQ+40B     21    UPPER CASE Q
00054  M00S00053.comtda8 +++|          CON    1RR+40B     22    UPPER CASE R
00055  M00S00054.comtda8 +++|          CON    1RS+40B     23    UPPER CASE S
00056  M00S00055.comtda8 +++|          CON    1RT+40B     24    UPPER CASE T
00057  M00S00056.comtda8 +++|          CON    1RU+40B     25    UPPER CASE U
00058  M00S00057.comtda8 +++|          CON    1RV+40B     26    UPPER CASE V
00059  M00S00058.comtda8 +++|          CON    1RW+40B     27    UPPER CASE W
00060  M00S00059.comtda8 +++|*
00061  M00S00060.comtda8 +++|          CON    1RX+40B     30    UPPER CASE X
00062  M00S00061.comtda8 +++|          CON    1RY+40B     31    UPPER CASE Y
00063  M00S00062.comtda8 +++|          CON    1RZ+40B     32    UPPER CASE Z
00064  M00S00063.comtda8 +++|          CON    1R0+40B     33    0
00065  M00S00064.comtda8 +++|          CON    1R1+40B     34    1
00066  M00S00065.comtda8 +++|          CON    1R2+40B     35    2
00067  M00S00066.comtda8 +++|          CON    1R3+40B     36    3
00068  M00S00067.comtda8 +++|          CON    1R4+40B     37    4
00069  M00S00068.comtda8 +++|*
00070  M00S00069.comtda8 +++|          CON    1R5+40B     40    5
00071  M00S00070.comtda8 +++|          CON    1R6+40B     41    6
00072  M00S00071.comtda8 +++|          CON    1R7+40B     42    7
00073  M00S00072.comtda8 +++|          CON    1R8+40B     43    8
00074  M00S00073.comtda8 +++|          CON    1R9+40B     44    9
00075  M00S00074.comtda8 +++|          CON    1R++40B     45    PLUS
00076  M00S00075.comtda8 +++|          CON    1R-+40B     46    MINUS (HYPHEN)
00077  M00S00076.comtda8 +++|          CON    1R*+40B     47    ASTERISK
00078  M00S00077.comtda8 +++|*
00079  M00S00078.comtda8 +++|          CON    1R/+40B     50    SLASH (DIVISION)
00080  M00S00079.comtda8 +++|          CON    1R(+40B     51    OPEN PARENTHESIS
00081  M00S00080.comtda8 +++|          CON    1R)+40B     52    CLOSED PARENTHESIS
00082  M00S00081.comtda8 +++|          CON    1R$+40B     53    DOLLAR SIGN
00083  M00S00082.comtda8 +++|          CON    1R=+40B     54    EQUAL SIGN
00084  M00S00083.comtda8 +++|          CON    1R +40B     55    SPACE
00085  M00S00084.comtda8 +++|          CON    1R,+40B     56    COMMA
00086  M00S00085.comtda8 +++|          CON    1R.+40B     57    PERIOD (DECIMAL POINT)
00087  M00S00086.comtda8 +++|*
00088  M00S00087.comtda8 +++|          CON    1R#+40B     60    POUND SIGN
00089  M00S00088.comtda8 +++|          CON    1R[+40B     61    OPEN BRACKET
00090  M00S00089.comtda8 +++|          CON    1R]+40B     62    CLOSED BRACKET
00091  M00S00090.comtda8 +++|          CON    45          63    PERCENT
00092  M00S00091.comtda8 +++|          CON    1R"+40B     64    QUOTE
00093  M00S00092.comtda8 +++|          CON    137         65    CONCANTENATION (UNDERLINE)
00094  M00S00093.comtda8 +++|          CON    1R!+40B     66    EXCLAMATION
00095  M00S00094.comtda8 +++|          CON    1R&+40B     67    AMPERSAND
00096  M00S00095.comtda8 +++|*
00097  M00S00096.comtda8 +++|          CON    1R'+40B     70    APOSTROPHE
00098  M00S00097.comtda8 +++|          CON    1R?+40B     71    QUESTION MARK
00099  M00S00098.comtda8 +++|          CON    1R<+40B     72    LESS THAN
00100  M00S00099.comtda8 +++|          CON    1R>+40B     73    GREATER THAN
00101  M00S00100.comtda8 +++|          IFPP   2
00102  M00S00101.comtda8 +++|          CON    1R;40B     74    AT
00103  M00S00102.comtda8 +++|          IFCP   1
00104  M00S00103.comtda8 +++|          VFD    1/1,51B/0,22B/T.ESC74
00105  M00S00104.comtda8 +++|          CON    1R\+40B     75    BACK SLASH
00106  M00S00105.comtda8 +++|          IFPP   2
00107  M00S00106.comtda8 +++|          CON    1R;40B     76    CIRCUMFLEX
00108  M00S00107.comtda8 +++|          IFCP   1
00109  M00S00108.comtda8 +++|          VFD    1/1,51B/0,22B/T.ESC76
00110  M00S00109.comtda8 +++|          CON    1R;+40B     77    SEMICOLON
00111  M00S00110.comtda8 +++|
00112  M00S00111.comtda8 +++|          IFCP
00113  M00S00112.comtda8 +++|
00114  M00S00113.comtda8 +++|          BASE   D
00115  M00S00114.comtda8 +++|
00116  M00S00115.comtda8 +++|*         TABLE FOR ESCAPE CODE 74B.
00117  M00S00116.comtda8 +++|
00118  M00S00117.comtda8 +++| T.ESC74  BSS    0
00119  M00S00118.comtda8 +++|          VFD    42/0,1/1,17/4000B  7400    NULL
00120  M00S00119.comtda8 +++|          VFD    60/100B            7401    AT
00121  M00S00120.comtda8 +++|          VFD    60/136B            7402    CIRCUMFLEX (UP ARROW)
00122  M00S00121.comtda8 +++|          VFD    60/045B            7403    PERCENT
00123  M00S00122.comtda8 +++|          VFD    60/072B            7404    COLON
00124  M00S00123.comtda8 +++|          VFD    42/0,1/1,17/4000B  7405    NULL
00125  M00S00124.comtda8 +++|          VFD    42/0,1/1,17/4000B  7406    NULL
00126  M00S00125.comtda8 +++|          VFD    60/140B            7407    GRAVE
00127  M00S00126.comtda8 +++|*
00128  M00S00127.comtda8 +++|          DUP    56,1
00129  M00S00128.comtda8 +++|          VFD    42/0,1/1,17/4000B  7477    NULL
00130  M00S00129.comtda8 +++|
00131  M00S00130.comtda8 +++|*         TABLE FOR ESCAPE CODE 76B.
00132  M00S00131.comtda8 +++|
00133  M00S00132.comtda8 +++| T.ESC76  BSS    0
00134  M00S00133.comtda8 +++|          VFD    42/0,1/1,17/4000B  7600    NULL
00135  M00S00134.comtda8 +++|          VFD    60/141B     7601    LOWER CASE A
00136  M00S00135.comtda8 +++|          VFD    60/142B     7602    LOWER CASE B
00137  M00S00136.comtda8 +++|          VFD    60/143B     7603    LOWER CASE C
00138  M00S00137.comtda8 +++|          VFD    60/144B     7604    LOWER CASE D
00139  M00S00138.comtda8 +++|          VFD    60/145B     7605    LOWER CASE E
00140  M00S00139.comtda8 +++|          VFD    60/146B     7606    LOWER CASE F
00141  M00S00140.comtda8 +++|          VFD    60/147B     7607    LOWER CASE G
00142  M00S00141.comtda8 +++|*
00143  M00S00142.comtda8 +++|          VFD    60/150B     7610    LOWER CASE H
00144  M00S00143.comtda8 +++|          VFD    60/151B     7611    LOWER CASE I
00145  M00S00144.comtda8 +++|          VFD    60/152B     7612    LOWER CASE J
00146  M00S00145.comtda8 +++|          VFD    60/153B     7613    LOWER CASE K
00147  M00S00146.comtda8 +++|          VFD    60/154B     7614    LOWER CASE L
00148  M00S00147.comtda8 +++|          VFD    60/155B     7615    LOWER CASE M
00149  M00S00148.comtda8 +++|          VFD    60/156B     7616    LOWER CASE N
00150  M00S00149.comtda8 +++|          VFD    60/157B     7617    LOWER CASE O
00151  M00S00150.comtda8 +++|*
00152  M00S00151.comtda8 +++|          VFD    60/160B     7620    LOWER CASE P
00153  M00S00152.comtda8 +++|          VFD    60/161B     7621    LOWER CASE Q
00154  M00S00153.comtda8 +++|          VFD    60/162B     7622    LOWER CASE R
00155  M00S00154.comtda8 +++|          VFD    60/163B     7623    LOWER CASE S
00156  M00S00155.comtda8 +++|          VFD    60/164B     7624    LOWER CASE T
00157  M00S00156.comtda8 +++|          VFD    60/165B     7625    LOWER CASE U
00158  M00S00157.comtda8 +++|          VFD    60/166B     7626    LOWER CASE V
00159  M00S00158.comtda8 +++|          VFD    60/167B     7627    LOWER CASE W
00160  M00S00159.comtda8 +++|*
00161  M00S00160.comtda8 +++|          VFD    60/170B     7630    LOWER CASE X
00162  M00S00161.comtda8 +++|          VFD    60/171B     7631    LOWER CASE Y
00163  M00S00162.comtda8 +++|          VFD    60/172B     7632    LOWER CASE Z
00164  M00S00163.comtda8 +++|          VFD    60/173B     7633    LEFT BRACE
00165  M00S00164.comtda8 +++|          VFD    60/174B     7634    VERTICAL BAR
00166  M00S00165.comtda8 +++|          VFD    60/175B     7635    RIGHT BRACE
00167  M00S00166.comtda8 +++|          VFD    60/176B     7636    TILDE
00168  M00S00167.comtda8 +++|          VFD    60/177B     7637    DEL (DELETE)
00169  M00S00168.comtda8 +++|*
00170  M00S00169.comtda8 +++|          VFD    42/0,1/0,17/4000B  7640    NUL  (NULL)
00171  M00S00170.comtda8 +++|          VFD    60/001B     7641    SOH  (START OF HEADING)
00172  M00S00171.comtda8 +++|          VFD    60/002B     7642    STX  (START OF TEXT)
00173  M00S00172.comtda8 +++|          VFD    60/003B     7643    ETX  (END OF TEXT)
00174  M00S00173.comtda8 +++|          VFD    60/004B     7644    EOT  (END OF TRANSMISSION)
00175  M00S00174.comtda8 +++|          VFD    60/005B     7645    ENQ  (ENQUIRY)
00176  M00S00175.comtda8 +++|          VFD    60/006B     7646    ACK  (ACKNOWLEDGE)
00177  M00S00176.comtda8 +++|          VFD    60/007B     7647    BEL  (BELL)
00178  M00S00177.comtda8 +++|*
00179  M00S00178.comtda8 +++|          VFD    60/010B     7650    BS  (BACKSPACE)
00180  M00S00179.comtda8 +++|          VFD    60/011B     7651    HT  (HORIZONTAL TAB)
00181  M00S00180.comtda8 +++|          VFD    60/012B     7652    LF  (LINE FEED)
00182  M00S00181.comtda8 +++|          VFD    60/013B     7653    VT  (VERTICAL TAB)
00183  M00S00182.comtda8 +++|          VFD    60/014B     7654    FF  (FORM FEED)
00184  M00S00183.comtda8 +++|          VFD    60/015B     7655    CR  (CARRIAGE RETURN)
00185  M00S00184.comtda8 +++|          VFD    60/016B     7656    SO  (SHIFT OUT)
00186  M00S00185.comtda8 +++|          VFD    60/017B     7657    SI  (SHIFT IN)
00187  M00S00186.comtda8 +++|*
00188  M00S00187.comtda8 +++|          VFD    60/020B     7660    DLE  (DATA LINK ESCAPE)
00189  M00S00188.comtda8 +++|          VFD    60/021B     7661    DC1  (DEVICE CONTROL 1 (X-ON))
00190  M00S00189.comtda8 +++|          VFD    60/022B     7662    DC2  (DEVICE CONTROL 2)
00191  M00S00190.comtda8 +++|          VFD    60/023B     7663    DC3  (DEVICE CONTROL 3 (X-OFF))
00192  M00S00191.comtda8 +++|          VFD    60/024B     7664    DC4  (DEVICE CONTROL 4 (STOP))
00193  M00S00192.comtda8 +++|          VFD    60/025B     7665    NAK  (NEGATIVE ACKNOWLEDGE)
00194  M00S00193.comtda8 +++|          VFD    60/026B     7666    SYN  (SYNCHRONOUS IDLE)
00195  M00S00194.comtda8 +++|          VFD    60/027B     7667    ETB  (END OF TRANSMISSION BLOCK)
00196  M00S00195.comtda8 +++|*
00197  M00S00196.comtda8 +++|          VFD    60/030B     7670    CAN  (CANCEL)
00198  M00S00197.comtda8 +++|          VFD    60/031B     7671    EM  (END OF MEDIUM)
00199  M00S00198.comtda8 +++|          VFD    60/032B     7672    SUB  (SUBSTITUTE)
00200  M00S00199.comtda8 +++|          VFD    60/033B     7673    ESC  (ESCAPE)
00201  M00S00200.comtda8 +++|          VFD    60/034B     7674    FS  (FILE SEPARATOR)
00202  M00S00201.comtda8 +++|          VFD    60/035B     7675    GS  (GROUP SEPARATOR)
00203  M00S00202.comtda8 +++|          VFD    60/036B     7676    RS
00204  M00S00203.comtda8 +++|          VFD    60/037B     7677    US  (UNIT SEPARATOR)
00205  M00S00204.comtda8 +++|
00206  M00S00205.comtda8 +++|          BASE   *
00207  M00S00206.comtda8 +++|          ENDIF
00208  M00S00207.comtda8 +++|
00209  M00S00208.comtda8 +++|          CODE   *
00210  M00S00209.comtda8 +++|          LOC    *O
00211  M00S00210.comtda8 +++|          BASE   *
00212  M00S00211.comtda8 +++|          ENDX
cdc/nos2.source/opl.opl871/common/comtda8.txt ยท Last modified: (external edit)