1 /* START OF: asc_to_bcd_table.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 dcl asc_to_bcd_table (0:127) bit (6) unaligned 4 internal static 5 options (constant) 6 init ( 7 8 /* 000 NUL SPC */ "20"b3, 9 /* 001 SOH SPC */ "20"b3, 10 /* 002 STX SPC */ "20"b3, 11 /* 003 ETX SPC */ "20"b3, 12 /* 004 EOT SPC */ "20"b3, 13 /* 005 ENQ SPC */ "20"b3, 14 /* 006 ACK SPC */ "20"b3, 15 /* 007 BEL SPC */ "20"b3, 16 /* 010 BSP SPC */ "20"b3, 17 /* 011 HT SPC */ "20"b3, 18 /* 012 LF SPC */ "20"b3, 19 /* 013 VT SPC */ "20"b3, 20 /* 014 FF SPC */ "20"b3, 21 /* 015 CR SPC */ "20"b3, 22 /* 016 SO SPC */ "20"b3, 23 /* 017 SI SPC */ "20"b3, 24 /* 020 DLE SPC */ "20"b3, 25 /* 021 DC1 SPC */ "20"b3, 26 /* 022 DC2 SPC */ "20"b3, 27 /* 023 DC3 SPC */ "20"b3, 28 /* 024 DC4 SPC */ "20"b3, 29 /* 025 NAK SPC */ "20"b3, 30 /* 026 SYN SPC */ "20"b3, 31 /* 027 ETB SPC */ "20"b3, 32 /* 030 CAN SPC */ "20"b3, 33 /* 031 EOM SPC */ "20"b3, 34 /* 032 SUB SPC */ "20"b3, 35 /* 033 ESC SPC */ "20"b3, 36 /* 034 FS SPC */ "20"b3, 37 /* 035 GS SPC */ "20"b3, 38 /* 036 RS SPC */ "20"b3, 39 /* 037 US SPC */ "20"b3, 40 /* 040 SPC SPC */ "20"b3, 41 /* 041 "!" "!" */ "77"b3, 42 /* 042 """ """ */ "76"b3, 43 /* 043 "#" "#" */ "13"b3, 44 /* 044 "$" "$" */ "53"b3, 45 /* 045 "%" "%" */ "74"b3, 46 /* 046 "&" "&" */ "32"b3, 47 /* 047 "'" "'" */ "57"b3, 48 /* 050 "(" "(" */ "35"b3, 49 /* 051 ")" ")" */ "55"b3, 50 /* 052 "*" "*" */ "54"b3, 51 /* 053 "+" "+" */ "60"b3, 52 /* 054 "," "," */ "73"b3, 53 /* 055 "-" "-" */ "52"b3, 54 /* 056 "." "." */ "33"b3, 55 /* 057 "/" "/" */ "61"b3, 56 /* 060 "0" "0" */ "00"b3, 57 /* 061 "1" "1" */ "01"b3, 58 /* 062 "2" "2" */ "02"b3, 59 /* 063 "3" "3" */ "03"b3, 60 /* 064 "4" "4" */ "04"b3, 61 /* 065 "5" "5" */ "05"b3, 62 /* 066 "6" "6" */ "06"b3, 63 /* 067 "7" "7" */ "07"b3, 64 /* 070 "8" "8" */ "10"b3, 65 /* 071 "9" "9" */ "11"b3, 66 /* 072 ":" ":" */ "15"b3, 67 /* 073 ";" ";" */ "56"b3, 68 /* 074 "<" "<" */ "36"b3, 69 /* 075 "=" "=" */ "75"b3, 70 /* 076 ">" ">" */ "16"b3, 71 /* 077 "?" "?" */ "17"b3, 72 /* 100 "@" "@" */ "14"b3, 73 /* 101 "A" "A" */ "21"b3, 74 /* 102 "B" "B" */ "22"b3, 75 /* 103 "C" "C" */ "23"b3, 76 /* 104 "D" "D" */ "24"b3, 77 /* 105 "E" "E" */ "25"b3, 78 /* 106 "F" "F" */ "26"b3, 79 /* 107 "G" "G" */ "27"b3, 80 /* 110 "H" "H" */ "30"b3, 81 /* 111 "I" "I" */ "31"b3, 82 /* 112 "J" "J" */ "41"b3, 83 /* 113 "K" "K" */ "42"b3, 84 /* 114 "L" "L" */ "43"b3, 85 /* 115 "M" "M" */ "44"b3, 86 /* 116 "N" "N" */ "45"b3, 87 /* 117 "O" "O" */ "46"b3, 88 /* 120 "P" "P" */ "47"b3, 89 /* 121 "Q" "Q" */ "50"b3, 90 /* 122 "R" "R" */ "51"b3, 91 /* 123 "S" "S" */ "62"b3, 92 /* 124 "T" "T" */ "63"b3, 93 /* 125 "U" "U" */ "64"b3, 94 /* 126 "V" "V" */ "65"b3, 95 /* 127 "W" "W" */ "66"b3, 96 /* 130 "X" "X" */ "67"b3, 97 /* 131 "Y" "Y" */ "70"b3, 98 /* 132 "Z" "Z" */ "71"b3, 99 /* 133 "[" "[" */ "12"b3, 100 /* 134 "\" "\" */ "37"b3, 101 /* 135 "]" "]" */ "34"b3, 102 /* 136 "^" "^" */ "40"b3, 103 /* 137 "_" "_" */ "72"b3, 104 /* 140 "`" "@" */ "14"b3, 105 /* 141 "a" "A" */ "21"b3, 106 /* 142 "b" "B" */ "22"b3, 107 /* 143 "c" "C" */ "23"b3, 108 /* 144 "d" "D" */ "24"b3, 109 /* 145 "e" "E" */ "25"b3, 110 /* 146 "f" "F" */ "26"b3, 111 /* 147 "g" "G" */ "27"b3, 112 /* 150 "h" "H" */ "30"b3, 113 /* 151 "i" "I" */ "31"b3, 114 /* 152 "j" "J" */ "41"b3, 115 /* 153 "k" "K" */ "42"b3, 116 /* 154 "l" "L" */ "43"b3, 117 /* 155 "m" "M" */ "44"b3, 118 /* 156 "n" "N" */ "45"b3, 119 /* 157 "o" "O" */ "46"b3, 120 /* 160 "p" "P" */ "47"b3, 121 /* 161 "q" "Q" */ "50"b3, 122 /* 162 "r" "R" */ "51"b3, 123 /* 163 "s" "S" */ "62"b3, 124 /* 164 "t" "T" */ "63"b3, 125 /* 165 "u" "U" */ "64"b3, 126 /* 166 "v" "V" */ "65"b3, 127 /* 167 "w" "W" */ "66"b3, 128 /* 170 "x" "X" */ "67"b3, 129 /* 171 "y" "Y" */ "70"b3, 130 /* 172 "z" "Z" */ "71"b3, 131 /* 173 "{" "[" */ "12"b3, 132 /* 174 "|" SPC */ "20"b3, 133 /* 175 "}" "]" */ "34"b3, 134 /* 176 "~" SPC */ "20"b3, 135 /* 177 DEL SPC */ "20"b3 136 137 ); 138 139 /* END OF: asc_to_bcd_table.incl.pl1 * * * * * * * * * * * * * * * * */