ASSEMBLY LISTING OF SEGMENT >dumps>old>recomp>ibm3270_translate_.alm ASSEMBLED ON: 11/15/82 1753.4 mst Mon OPTIONS USED: list ASSEMBLED BY: ALM Version 6.4 April 1981 ASSEMBLER CREATED: 11/03/82 1423.6 mst Wed  1 " ***********************************************************  2 " * *  3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *  4 " * *  5 " * Copyright (c) 1972 by Massachusetts Institute of *  6 " * Technology and Honeywell Information Systems, Inc. *  7 " * *  8 " ***********************************************************  9  10  11  12 " Procedures to do translation for ibm3270_ I/O module. 13 " Written January 1978 by Larry Johnson 14  15  16 " dcl ibm3270_translate_$ascii_to_ebcdic entry (ptr, fixed bin);  17 " dcl ibm3270_translate_$ebcdic_to_ascii entry (ptr, fixed bin);  18  19 " call ibm3270_translate_$ebcdic_to_ascii (stringp, stringl);  20  21  000000 22 name ibm3270_translate_  23  000000 24 segdef ascii_to_ebcdic 000011 25 segdef ebcdic_to_ascii 26  000000 27 ascii_to_ebcdic:  000000 aa 0 00002 3515 20 28 epp1 ap|2,* pointer to first arg  000001 aa 1 00000 3515 20 29 epp1 1|0,* pointer to character string  000002 aa 0 00004 2351 20 30 lda ap|4,* string length  000003 aa 000000 0110 03 31 even  000004 aa 0 40140 1605 40 32 mvt (pr,rl),(pr,rl),fill(040)  000005 aa 100000 000005 33 desc9a 1|0,al  000006 aa 100000 000005 34 desc9a 1|0,al  000007 0a 000021 0000 00 35 arg ae_table  000010 aa 7 00044 7101 20 36 short_return  37  000011 38 ebcdic_to_ascii:  000011 aa 0 00002 3515 20 39 epp1 ap|2,* pointer to first arg  000012 aa 1 00000 3515 20 40 epp1 1|0,* pointer to character string  000013 aa 0 00004 2351 20 41 lda ap|4,* string length  42 even  000014 aa 0 40140 1605 40 43 mvt (pr,rl),(pr,rl),fill(040)  000015 aa 100000 000005 44 desc9a 1|0,al  000016 aa 100000 000005 45 desc9a 1|0,al  000017 0a 000061 0000 00 46 arg ea_table  000020 aa 7 00044 7101 20 47 short_return  48  49 " EBCDIC OUTPUT EBCDIC GRAPHIC HEXADECIMAL  000021 aa 000001 002003 50 ae_table: oct 000001002003 NUL,SOH,STX,ETX 00,01,02,03 000022 aa 067055 056057 51 oct 067055056057 EOT,ENQ,ACK,BEL 37,2D,2E,2F  000023 aa 026005 025013 52 oct 026005025013 BS,HT,NL,VT 16,05,15,0B  000024 aa 014015 016017 53 oct 014015016017 NP,CR,SO,SI 0C,0D,0E,0F  000025 aa 020021 022023 54 oct 020021022023 DLE,DC1,DC2,TM 10,11,12,13  000026 aa 074075 062046 55 oct 074075062046 DC4,NAK,SYN,ETB 3C,3D,32,26  000027 aa 030031 077047 56 oct 030031077047 CAN,EM,SUB,ESC 18,19,3F,27  000030 aa 034035 036037 57 oct 034035036037 IFS,IGS,IRS,IUS 1C,1D,1E,1F  000031 aa 100132 177173 58 oct 100132177173 space,!,",# 40,5A,7F,7B  000032 aa 133154 120175 59 oct 133154120175 $,%,&,apostrophe 5B,6C,50,7D 000033 aa 115135 134116 60 oct 115135134116 (,),*,+ 4D,5D,5C,4E 000034 aa 153140 113141 61 oct 153140113141 ",",-,.,/ 6B,60,4B,61  000035 aa 360361 362363 62 oct 360361362363 0,1,2,3 F0,F1,F2,F3 000036 aa 364365 366367 63 oct 364365366367 4,5,6,7 F4,F5,F6,F7 000037 aa 370371 172136 64 oct 370371172136 8,9,:,";" F8,F9,7A,5E  000040 aa 114176 156157 65 oct 114176156157 <,=,>,? 4C,7E,6E,6F 000041 aa 174301 302303 66 oct 174301302303 @,A,B,C 7C,C1,C2,C3 000042 aa 304305 306307 67 oct 304305306307 D,E,F,G C4,C5,C6,C7 000043 aa 310311 321322 68 oct 310311321322 H,I,J,K C8,C9,D1,D2 000044 aa 323324 325326 69 oct 323324325326 L,M,N,O D3,D4,D5,D6 000045 aa 327330 331342 70 oct 327330331342 P,Q,R,S D7,D8,D9,E2 000046 aa 343344 345346 71 oct 343344345346 T,U,V,W E3,E4,E5,E6 000047 aa 347350 351255 72 oct 347350351255 X,Y,Z,[ E7,E8,E9,AD 000050 aa 340275 137155 73 oct 340275137155 \,],^,_ E0,BD,5F,6D 000051 aa 171201 202203 74 oct 171201202203 `,a,b,c 79,81,82,83 000052 aa 204205 206207 75 oct 204205206207 d,e,f,g 84,85,86,87 000053 aa 210211 221222 76 oct 210211221222 h,i,j,k 88,89,91,92 000054 aa 223224 225226 77 oct 223224225226 l,m,n,o 93,94,95,96 000055 aa 227230 231242 78 oct 227230231242 p,q,r,s 97,98,99,A2 000056 aa 243244 245246 79 oct 243244245246 t,u,v,w A3,A4,A5,A6 000057 aa 247250 251300 80 oct 247250251300 x,y,z,{ A7,A8,A9,C0 000060 aa 117320 241007 81 oct 117320241007 solid bar,},~,DEL 4F,D0,A1,07  82  83 " ASCII OUTPUT ASCII GRAPHIC EBCDIC INPUT 000061 aa 000001 002003 84 ea_table: oct 000001002003 NUL,SOH,STX,ETX 00-3  000062 aa 032011 032177 85 oct 032011032177 -,HT,-,DEL 04-7  000063 aa 032032 032013 86 oct 032032032013 -,-,-,VT 08-B  000064 aa 014015 016017 87 oct 014015016017 FF,CR,SO,SI 0C-F 000065 aa 020021 022023 88 oct 020021022023 DLE,DC1,DC2,DC3 10-3 000066 aa 032032 010032 89 oct 032032010032 -,-,BS,- 14-7  000067 aa 030031 032032 90 oct 030031032032 CAN,EM,-,- 18-B  000070 aa 034035 036037 91 oct 034035036037 FS,GS,RS,US 1C-F 000071 aa 032032 032032 92 oct 032032032032 -,-,-,- 20-3  000072 aa 032012 027033 93 oct 032012027033 -,LF,ETB,ESC 24-7  000073 aa 032032 032032 94 oct 032032032032 -,-,-,- 28-B  000074 aa 032005 006007 95 oct 032005006007 -,ENQ,ACK,BEL 2C-F  000075 aa 032032 026032 96 oct 032032026032 -,-,SYN,- 30-3  000076 aa 032032 032004 97 oct 032032032004 -,-,-,EOT 34-7  000077 aa 032032 032032 98 oct 032032032032 -,-,-,- 38-B  000100 aa 024025 032032 99 oct 024025032032 DC4,NAK,-,SUB 3C-F  000101 aa 040032 032032 100 oct 040032032032 (space),-,-,- 40-3  000102 aa 032012 032032 101 oct 032012032032 -,NL,-,- 44-7  000103 aa 032032 032056 102 oct 032032032056 -,-,-,. 48-B  000104 aa 074050 053174 103 oct 074050053174 <,(,+,| 4C|F  000105 aa 046032 032032 104 oct 046032032032 &,-,-,- 50-3  000106 aa 032032 032032 105 oct 032032032032 -,-,-,- 54-7  000107 aa 032032 041044 106 oct 032032041044 -,-,!,$ 58-B  000110 aa 052051 073136 107 oct 052051073136 *,),";",^ 5C-F  000111 aa 055057 032032 108 oct 055057032032 "-",/,-,- 60-3  000112 aa 032032 032032 109 oct 032032032032 -,-,-,- 64-7  000113 aa 032032 032054 110 oct 032032032054 -,-,-,"," 68-B  000114 aa 045137 076077 111 oct 045137076077 %,_,>,? 6C-F  000115 aa 032032 032032 112 oct 032032032032 -,-,-,- 70-3  000116 aa 032032 032032 113 oct 032032032032 -,-,-,- 74-7  000117 aa 032140 072043 114 oct 032140072043 -,`,:,# 78-B  000120 aa 100047 075042 115 oct 100047075042 @,',=," 7C-F  000121 aa 032141 142143 116 oct 032141142143 -,a,b,c 80-3  000122 aa 144145 146147 117 oct 144145146147 d,e,f,g 84-7  000123 aa 150151 032032 118 oct 150151032032 h,i,-,- 88-B  000124 aa 032032 032032 119 oct 032032032032 -,-,-,- 8C-F  000125 aa 032152 153154 120 oct 032152153154 -,j,k,l 90-3  000126 aa 155156 157160 121 oct 155156157160 m,n,o,p 94-7  000127 aa 161162 032032 122 oct 161162032032 q,r,-,- 98-B  000130 aa 032032 032032 123 oct 032032032032 -,-,-,- 9C-F  000131 aa 032176 163164 124 oct 032176163164 -,~,s,t A0-3  000132 aa 165166 167170 125 oct 165166167170 u,v,w,x A4-7  000133 aa 171172 032032 126 oct 171172032032 y,z,-,- A8-B  000134 aa 032133 032032 127 oct 032133032032 -,[,-,- AC-F  000135 aa 032032 032032 128 oct 032032032032 -,-,-,- B0-3  000136 aa 032032 032032 129 oct 032032032032 -,-,-,- B4-7  000137 aa 032032 032032 130 oct 032032032032 -,-,-,- B8-B  000140 aa 032135 032032 131 oct 032135032032 -,],-,- BC-F  000141 aa 173101 102103 132 oct 173101102103 {,A,B,C C0-3  000142 aa 104105 106107 133 oct 104105106107 D,E,F,G C4-7  000143 aa 110111 032032 134 oct 110111032032 H,I,-,- C8-B  000144 aa 032032 032032 135 oct 032032032032 -,-,-,- CC-F  000145 aa 175112 113114 136 oct 175112113114 },J,K,L D0-3  000146 aa 115116 117120 137 oct 115116117120 M,N,O,P D4-7  000147 aa 121122 032032 138 oct 121122032032 Q,R,-,- D8-B  000150 aa 032032 032032 139 oct 032032032032 -,-,-,- DC-F  000151 aa 134032 123124 140 oct 134032123124 \,-,S,T E0-3  000152 aa 125126 127130 141 oct 125126127130 U,V,W,X E4-7  000153 aa 131132 032032 142 oct 131132032032 Y,Z,-,- E8-B  000154 aa 032032 032032 143 oct 032032032032 -,-,-,- EC-F  000155 aa 060061 062063 144 oct 060061062063 0,1,2,3 F0-3  000156 aa 064065 066067 145 oct 064065066067 4,5,6,7 F4-7  000157 aa 070071 032032 146 oct 070071032032 8,9,-,- F8-B  000160 aa 032032 032032 147 oct 032032032032 -,-,-,- FC-F  148  149 end  NO LITERALS  NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 000162 5a 000003 000000 000163 5a 000040 600000 000164 aa 000000 000000 000165 55 000013 000002 000166 5a 000002 400003 000167 55 000006 000013 000170 aa 022 151 142 155 000171 aa 063 062 067 060 000172 aa 137 164 162 141 000173 aa 156 163 154 141 000174 aa 164 145 137 000 000175 55 000022 000003 000176 0a 000011 400000 000177 55 000016 000003 000200 aa 017 145 142 143 ebcdic_to_ascii 000201 aa 144 151 143 137 000202 aa 164 157 137 141 000203 aa 163 143 151 151 000204 55 000031 000013 000205 0a 000000 400000 000206 55 000025 000003 000207 aa 017 141 163 143 ascii_to_ebcdic 000210 aa 151 151 137 164 000211 aa 157 137 145 142 000212 aa 143 144 151 143 000213 55 000002 000022 000214 6a 000000 400002 000215 55 000034 000003 000216 aa 014 163 171 155 symbol_table  000217 aa 142 157 154 137 000220 aa 164 141 142 154 000221 aa 145 000 000 000 DEFINITIONS HASH TABLE  000222 aa 000000 000015 000223 aa 000000 000000 000224 aa 000000 000000 000225 aa 000000 000000 000226 aa 000000 000000 000227 aa 000000 000000 000230 aa 000000 000000 000231 5a 000031 000000 000232 aa 000000 000000 000233 5a 000022 000000 000234 aa 000000 000000 000235 5a 000013 000000 000236 aa 000000 000000 000237 aa 000000 000000 NO EXTERNAL NAMES  NO TRAP POINTER WORDS  TYPE PAIR BLOCKS  000240 aa 000001 000000 000241 aa 000000 000000 INTERNAL EXPRESSION WORDS LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 000162 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000010 000010 000007 a2 000000 000000 SYMBOL INFORMATION SYMBOL TABLE HEADER  000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000004 000004 aa 000000 111316 000005 aa 510113 575622 000006 aa 000000 111335 000007 aa 722542 547710 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000126 000020 aa 000000 000104 000021 aa 000000 000115 000022 aa 000120 000104 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 040066 056064 000030 aa 040040 101160 000031 aa 162151 154040 000032 aa 061071 070061 000033 aa 040040 040040 000034 aa 110157 154155 000035 aa 163164 145144 000036 aa 164056 123171 000037 aa 163115 141151 000040 aa 156164 056155 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 154151 163164 000045 aa 040040 040040 000046 aa 040040 040040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040040 040040 000057 aa 040040 040040 000060 aa 040040 040040 000061 aa 040040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000001 000066 aa 000072 000050 000067 aa 113331 136616 000070 aa 000000 111335 000071 aa 624067 200000 000072 aa 076144 165155 >dumps>old>recomp>ibm3270_translate_.alm  000073 aa 160163 076157 000074 aa 154144 076162 000075 aa 145143 157155 000076 aa 160076 151142 000077 aa 155063 062067 000100 aa 060137 164162 000101 aa 141156 163154 000102 aa 141164 145137 000103 aa 056141 154155 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number  21 ae_table ibm3270_translate_: 35, 50.  0 ascii_to_ebcdic ibm3270_translate_: 24, 27.  61 ea_table ibm3270_translate_: 46, 84.  11 ebcdic_to_ascii ibm3270_translate_: 25, 38.  NO FATAL ERRORS  ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved