Edinburgh IMP77 Compiler - Version 8.4
    1 ! reconstituted from intexts
		.Ltext0:
		HEX.6030:
		.LFB190:
    2
    3 %EXTERNALROUTINE RECODE(%INTEGER S, TO, BASE)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1948, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -1928(%ebp)
    4 %CONSTINTEGERARRAY OPCODES(0 : 255) =    %C
				leal	-1052(%ebp), %eax
				leal	.LC0@GOTOFF(%ebx), %edx
				movl	$256, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1888(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-1052(%ebp), %eax
				movl	%eax, -1888(%ebp)
				movl	$4, -1884(%ebp)
    5      0(4),
    6 M'SPM ',M'BALR',M'BCTR',M'BCR ',M'SSK ',M'ISK ',M'SVC ',     0(5),
    7 M'LPR ',
    8 M'LNR ',M'LTR ',M'LCR ',M'NR  ',M'CLR ',M'OR  ',M'XR  ',M'LR  ',
    9 M'CR  ',
   10 M'AR  ',M'SR  ',M'MR  ',M'DR  ',M'ALR ',M'SLR ',M'LPDR',M'LNDR',
   11 M'LTDR',
   12 M'LCDR',M'HDR ',M'LRDR',M'MXR ',M'MXDR',M'LDR ',M'CDR ',M'ADR ',M'SDR ',
   13 M'MDR ',
   14 M'DDR ',M'AWR ',M'SWR ',M'LPER',M'LNER',M'LTER',M'LCER',M'HER ',M'LRER',
   15 M'AXR ',
   16 M'SXR ',M'LER ',M'CER ',M'AER ',M'SER ',M'MER ',M'DER ',M'AUR ',M'SUR ',
   17 M'STH ',
   18 M'LA  ',M'STC ',M'IC  ',M'EX  ',M'BAL ',M'BCT ',M'BC  ',M'LH  ',M'CH  ',
   19 M'AH  ',
   20 M'SH  ',M'MH  ',     0,
   21 M'CVD ',
   22 M'CVB ',M'ST  ',     0(3),M'N   ',M'CL  ',M'O   ',
   23 M'X   ',
   24 M'L   ',M'C   ',M'A   ',M'S   ',M'M   ',M'D   ',M'AL  ',M'SL  ',M'STD ',
   25      0(6),
   26 M'MXD ',
   27 M'LD  ',M'CD  ',M'AD  ',M'SD  ',M'MD  ',M'DD  ',M'AW  ',M'SW  ',
   28 M'STE ',
   29      0(7),
   30 M'LE  ',
   31 M'CE  ',M'AE  ',M'SE  ',M'ME  ',M'DE  ',M'AU  ',M'SU  ',
   32 M'SSM',
   33      0,M'LPSW',M'DIAG',M'WRD ',M'RDD ',M'BXH ',M'BXLE',M'SRL ',M'SLL ',
   34 M'SRA ',
   35 M'SLA ',M'SRDL',M'SLDL',M'SRDA',M'SLDA',M'STM ',M'TM  ',M'MVI ',
   36 M'TS  ',
   37 M'NI  ',M'CLI ',M'OI  ',M'XI  ',M'LM  ',     0(3),
   38 M'SIO ',
   39 M'TIO ',M'HIO ',
   40 M'TCH ',
   41      0(49),
   42 M'MVN ',
   43 M'MVC ',M'MVZ ',M'NC  ',M'CLC ',M'OC  ',M'XC  ',     0(4),
   44 M'TR  ',
   45 M'TRT ',M'ED  ',M'EDMK',     0(17),M'MVO ',M'PACK',M'UNPK',     0(4),
   46 M'ZAP ',
   47 M'CP  ',M'AP  ',M'SP  ',M'MP  ',M'DP  ',     0,     0
   48 %INTEGER J, K, L, M
   49 %INTEGER T
   50 %ROUTINESPEC HEX(%INTEGER N)
   51 %ROUTINESPEC HEX8(%INTEGER N)
   52 %ROUTINESPEC PUT(%INTEGER S, C)
   53
   54 !printstring("RECODE(X'"); HEX8(S)
   55 !printstring("', X'"); HEX8(TO)
   56 !printstring("', X'"); HEX8(BASE)
   57 !printstring("')".snl)
   58           S = S&(\1)
				andl	$-2, 8(%ebp)
   59 BASE = BASE-S
				movl	8(%ebp), %eax
				subl	%eax, 16(%ebp)
		.L10:
		.LBB65:
		.LBB66:
				call	_imp_newline@PLT
		.LBE66:
		.LBE65:
   60 L1:        NEWLINE
   61           NEWLINE %AND %RETURN %IF S >= TO
				movl	8(%ebp), %eax
				cmpl	12(%ebp), %eax
				jl	.L50
		.LBB67:
		.LBB68:
				call	_imp_newline@PLT
		.LBE68:
		.LBE67:
				nop
				nop
		.L12:
		.LBB69:
   62 PRINT STRING("C ")
				leal	-1820(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1564(%ebp), %eax
				leal	-1820(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1308(%ebp), %eax
				leal	-1564(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE69:
		.LBB70:
		.LBB71:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1308(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE71:
		.LBE70:
   63           HEX8(BASE+S)
				movl	16(%ebp), %edx
				movl	8(%ebp), %eax
				addl	%eax, %edx
				subl	$12, %esp
				leal	-1928(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	HEX8.6032
				addl	$16, %esp
				movl	$4, -1900(%ebp)
		.LBB72:
		.LBB73:
				subl	$12, %esp
				pushl	-1900(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE73:
		.LBE72:
   64           SPACES(4)
   65           J = SHORTINTEGER(S);  S = S+2
				movl	8(%ebp), %eax
				movl	%eax, -1904(%ebp)
		.LBB74:
		.LBB75:
				movl	-1904(%ebp), %eax
		.LBE75:
		.LBE74:
				movzwl	(%eax), %eax
				cwtl
				movl	%eax, -1908(%ebp)
				addl	$2, 8(%ebp)
   66           M = J>>8&255
				movl	-1908(%ebp), %eax
				shrl	$8, %eax
				andl	$255, %eax
				movl	%eax, -1916(%ebp)
   67           T = OPCODES(M)
				movl	-1916(%ebp), %eax
				movl	-1052(%ebp,%eax,4), %eax
				movl	%eax, -1912(%ebp)
   68           HEX(J)
				subl	$12, %esp
				leal	-1928(%ebp), %eax
				pushl	-1908(%ebp)
				movl	%eax, %ecx
				call	HEX.6030
				addl	$16, %esp
   69           -> L1 %IF T = 0
				cmpl	$0, -1912(%ebp)
				jne	.L51
				jmp	.L10
		.L51:
				nop
		.L16:
   70           %IF M>>6 = 0 %THEN %START;    ! RR
				movl	-1916(%ebp), %eax
				shrl	$6, %eax
				testl	%eax, %eax
				jne	.L52
				nop
		.L18:
   71              PUT(12,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$12
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
   72              WRITE(J>>4&15,4)
				movl	-1908(%ebp), %eax
				shrl	$4, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1947(%ebp)
		.LBB76:
		.LBB77:
				movsbl	-1947(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE77:
		.LBE76:
   73              print symbol(',')
   74              WRITE(J&15,2)
				movl	-1908(%ebp), %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
   75              -> L1
				jmp	.L10
		.L52:
   76           %FINISH
   77           K = SHORTINTEGER(S);  S = S+2
				movl	8(%ebp), %eax
				movl	%eax, -1896(%ebp)
		.LBB78:
		.LBB79:
				movl	-1896(%ebp), %eax
		.LBE79:
		.LBE78:
				movzwl	(%eax), %eax
				cwtl
				movl	%eax, -1920(%ebp)
				addl	$2, 8(%ebp)
   78           HEX(K)
				subl	$12, %esp
				leal	-1928(%ebp), %eax
				pushl	-1920(%ebp)
				movl	%eax, %ecx
				call	HEX.6030
				addl	$16, %esp
   79           %IF M>>6 = 1 %THEN %START;    !  RX
				movl	-1916(%ebp), %eax
				shrl	$6, %eax
				cmpl	$1, %eax
				jne	.L53
				nop
		.L21:
   80              PUT(8,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$8
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
   81              WRITE(J>>4&15,4);  print symbol(',')
				movl	-1908(%ebp), %eax
				shrl	$4, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1946(%ebp)
		.LBB80:
		.LBB81:
				movsbl	-1946(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE81:
		.LBE80:
   82              WRITE(K&X'FFF',4);  print symbol('(')
				movl	-1920(%ebp), %eax
				andl	$4095, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$40, -1945(%ebp)
		.LBB82:
		.LBB83:
				movsbl	-1945(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE83:
		.LBE82:
   83              WRITE(J&15,2);  print symbol(',')
				movl	-1908(%ebp), %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1944(%ebp)
		.LBB84:
		.LBB85:
				movsbl	-1944(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L22:
		.LBE85:
		.LBE84:
   84 L3:           WRITE(K>>12&15,2);  print symbol(')')
				movl	-1920(%ebp), %eax
				shrl	$12, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$41, -1943(%ebp)
		.LBB86:
		.LBB87:
				movsbl	-1943(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE87:
		.LBE86:
   85              -> L1
				jmp	.L10
		.L53:
   86           %FINISH
   87           %IF M&X'F8' = X'88' %THEN %START
				movl	-1916(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L54
				nop
		.L24:
   88              PUT(8,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$8
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
   89              WRITE(J>>4&15,4);  print symbol(',')
				movl	-1908(%ebp), %eax
				shrl	$4, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1942(%ebp)
		.LBB88:
		.LBB89:
				movsbl	-1942(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L25:
		.LBE89:
		.LBE88:
   90 L2:           WRITE(K&X'FFF',4);  print symbol('(')
				movl	-1920(%ebp), %eax
				andl	$4095, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$40, -1941(%ebp)
		.LBB90:
		.LBB91:
				movsbl	-1941(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE91:
		.LBE90:
   91              -> L3
				jmp	.L22
		.L54:
   92           %FINISH
   93           %IF M > 192 %THEN %START
				cmpl	$192, -1916(%ebp)
				jle	.L55
				nop
		.L27:
   94              L = SHORTINTEGER(S);  S = S+2
				movl	8(%ebp), %eax
				movl	%eax, -1892(%ebp)
		.LBB92:
		.LBB93:
				movl	-1892(%ebp), %eax
		.LBE93:
		.LBE92:
				movzwl	(%eax), %eax
				cwtl
				movl	%eax, -1924(%ebp)
				addl	$2, 8(%ebp)
   95              HEX(L)
				subl	$12, %esp
				leal	-1928(%ebp), %eax
				pushl	-1924(%ebp)
				movl	%eax, %ecx
				call	HEX.6030
				addl	$16, %esp
   96              PUT(4,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$4
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
   97              WRITE(K&X'FFF',5);  print symbol('(')
				movl	-1920(%ebp), %eax
				andl	$4095, %eax
				subl	$8, %esp
				pushl	$5
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$40, -1940(%ebp)
		.LBB94:
		.LBB95:
				movsbl	-1940(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE95:
		.LBE94:
   98              %IF M>>4&15 # 15 %THEN WRITE(J&255+1,2) %C
				movl	-1916(%ebp), %eax
				andl	$16, %eax
				testl	%eax, %eax
				jne	.L56
				movl	-1908(%ebp), %eax
				movzbl	%al, %eax
				addl	$1, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				jmp	.L31
		.L30:
		.L56:
				nop
				movl	-1908(%ebp), %eax
				shrl	$4, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
		.L31:
				movb	$44, -1939(%ebp)
		.LBB96:
		.LBB97:
				movsbl	-1939(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE97:
		.LBE96:
   99                 %ELSE WRITE(J>>4&15,2)
  100              print symbol(',')
  101              WRITE(K>>12&15,2);  print symbol(')');  print symbol(',')
				movl	-1920(%ebp), %eax
				shrl	$12, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$41, -1937(%ebp)
		.LBB98:
		.LBB99:
				movsbl	-1937(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
				movb	$44, -1938(%ebp)
		.LBE99:
		.LBE98:
		.LBB100:
		.LBB101:
				movsbl	-1938(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE101:
		.LBE100:
  102              WRITE(L&X'FFF',4);  print symbol('(')
				movl	-1924(%ebp), %eax
				andl	$4095, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$40, -1936(%ebp)
		.LBB102:
		.LBB103:
				movsbl	-1936(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE103:
		.LBE102:
  103              %IF M>>4&15 = 15 %THEN %START
  104                 WRITE(J&15,2);  print symbol(',')
				movl	-1908(%ebp), %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1935(%ebp)
		.LBB104:
		.LBB105:
				movsbl	-1935(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L32:
		.LBE105:
		.LBE104:
  105              %FINISH
  106              WRITE(L>>12&15,2);  print symbol(')')
				movl	-1924(%ebp), %eax
				shrl	$12, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$41, -1934(%ebp)
		.LBB106:
		.LBB107:
				movsbl	-1934(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE107:
		.LBE106:
  107              -> L1
				jmp	.L10
		.L55:
  108           %FINISH
  109           %IF M = 134 %OR M = 135 %OR M = 144 %OR M = 152 %THEN %START
				cmpl	$134, -1916(%ebp)
				je	.L57
				cmpl	$135, -1916(%ebp)
				je	.L58
				cmpl	$144, -1916(%ebp)
				je	.L59
				cmpl	$152, -1916(%ebp)
				jne	.L60
				jmp	.L34
		.L57:
				nop
				jmp	.L34
		.L58:
				nop
				jmp	.L34
		.L59:
				nop
		.L34:
				nop
		.L37:
  110              PUT(8,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$8
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
  111              WRITE(J>>4&15,4);  print symbol(',')
				movl	-1908(%ebp), %eax
				shrl	$4, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1933(%ebp)
		.LBB108:
		.LBB109:
				movsbl	-1933(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE109:
		.LBE108:
  112              WRITE(J&15,2);  print symbol(',')
				movl	-1908(%ebp), %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$44, -1932(%ebp)
		.LBB110:
		.LBB111:
				movsbl	-1932(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE111:
		.LBE110:
  113              -> L2
				jmp	.L25
		.L60:
  114           %FINISH
  115           PUT(8,T)
				subl	$8, %esp
				leal	-1928(%ebp), %eax
				pushl	-1912(%ebp)
				pushl	$8
				movl	%eax, %ecx
				call	PUT.6035
				addl	$16, %esp
  116           WRITE(K&X'FFF',5);  print symbol('(')
				movl	-1920(%ebp), %eax
				andl	$4095, %eax
				subl	$8, %esp
				pushl	$5
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$40, -1931(%ebp)
		.LBB112:
		.LBB113:
				movsbl	-1931(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE113:
		.LBE112:
  117           WRITE(K>>12&15,2);  print symbol(')')
				movl	-1920(%ebp), %eax
				shrl	$12, %eax
				andl	$15, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$41, -1929(%ebp)
		.LBB114:
		.LBB115:
				movsbl	-1929(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
				movb	$44, -1930(%ebp)
		.LBE115:
		.LBE114:
		.LBB116:
		.LBB117:
				movsbl	-1930(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE117:
		.LBE116:
  118           print symbol(',')
  119           WRITE(J&255,2)
				movl	-1908(%ebp), %eax
				movzbl	%al, %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
  120           -> L1
				jmp	.L10
		.L42:
				call	__stack_chk_fail_local
		.L39:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE189:
		HEX8.6032:
		.LFB191:
  121
  122 %ROUTINE HEX(%INTEGER N)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%ebx
				addl	$-128, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -124(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  123 %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C
				movb	$48, -28(%ebp)
				movb	$49, -27(%ebp)
				movb	$50, -26(%ebp)
				movb	$51, -25(%ebp)
				movb	$52, -24(%ebp)
				movb	$53, -23(%ebp)
				movb	$54, -22(%ebp)
				movb	$55, -21(%ebp)
				movb	$56, -20(%ebp)
				movb	$57, -19(%ebp)
				movb	$65, -18(%ebp)
				movb	$66, -17(%ebp)
				movb	$67, -16(%ebp)
				movb	$68, -15(%ebp)
				movb	$69, -14(%ebp)
				movb	$70, -13(%ebp)
				leal	-96(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-28(%ebp), %eax
				movl	%eax, -96(%ebp)
				movl	$1, -92(%ebp)
  124    '0', '1', '2', '3',
  125    '4', '5', '6', '7',
  126    '8', '9', 'A', 'B',
  127    'C', 'D', 'E', 'F'
  128 %INTEGER J, S
  129           %CYCLE J = 1,1,4; !8
				movl	$0, -104(%ebp)
		.L2:
				cmpl	$4, -104(%ebp)
				je	.L8
				addl	$1, -104(%ebp)
				nop
		.L4:
  130              S = (N>>12)&15; !S = N>>28
				movl	8(%ebp), %eax
				shrl	$12, %eax
				andl	$15, %eax
				movl	%eax, -100(%ebp)
  131              N = N<<4
				sall	$4, 8(%ebp)
  132              PRINTSYMBOL(XSYM(S))
				leal	-28(%ebp), %edx
				movl	-100(%ebp), %eax
				addl	%edx, %eax
				movzbl	(%eax), %eax
				movsbl	%al, %eax
				movb	%al, -105(%ebp)
		.LBB63:
		.LBB64:
				movsbl	-105(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE64:
		.LBE63:
  133           %REPEAT
				jmp	.L2
		.L8:
  134 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L6
				call	__stack_chk_fail_local
		.L6:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%edi
				popl	%ebp
				ret
		.LFE190:
				.section	.rodata
				.align 32
		.LC0:
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1397771552
				.long	1111575634
				.long	1111708754
				.long	1111708192
				.long	1397967648
				.long	1230195488
				.long	1398162208
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1280332320
				.long	1280201248
				.long	1280594464
				.long	1279480352
				.long	1314005024
				.long	1129075232
				.long	1330782240
				.long	1481777184
				.long	1280450592
				.long	1129455648
				.long	1095901216
				.long	1397891104
				.long	1297227808
				.long	1146232864
				.long	1095520800
				.long	1397510688
				.long	1280328786
				.long	1280197714
				.long	1280590930
				.long	1279476818
				.long	1212437024
				.long	1280459858
				.long	1297633824
				.long	1297630290
				.long	1279545888
				.long	1128550944
				.long	1094996512
				.long	1396986400
				.long	1296323104
				.long	1145328160
				.long	1096241696
				.long	1398231584
				.long	1280329042
				.long	1280197970
				.long	1280591186
				.long	1279477074
				.long	1212502560
				.long	1280460114
				.long	1096307232
				.long	1398297120
				.long	1279611424
				.long	1128616480
				.long	1095062048
				.long	1397051936
				.long	1296388640
				.long	1145393696
				.long	1096110624
				.long	1398100512
				.long	1398032416
				.long	1279336480
				.long	1398031136
				.long	1229135904
				.long	1163403296
				.long	1111575584
				.long	1111708704
				.long	1111695392
				.long	1279795232
				.long	1128800288
				.long	1095245856
				.long	1397235744
				.long	1296572448
				.long	0
				.long	1129727008
				.long	1129726496
				.long	1398022176
				.long	0
				.long	0
				.long	0
				.long	1310728224
				.long	1129062432
				.long	1327505440
				.long	1478500384
				.long	1277173792
				.long	1126178848
				.long	1092624416
				.long	1394614304
				.long	1293951008
				.long	1142956064
				.long	1095508000
				.long	1397497888
				.long	1398031392
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1297630240
				.long	1279533088
				.long	1128538144
				.long	1094983712
				.long	1396973600
				.long	1296310304
				.long	1145315360
				.long	1096228896
				.long	1398218784
				.long	1398031648
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1279598624
				.long	1128603680
				.long	1095049248
				.long	1397039136
				.long	1296375840
				.long	1145380896
				.long	1096097824
				.long	1398087712
				.long	5460813
				.long	0
				.long	1280332631
				.long	1145651527
				.long	1465009184
				.long	1380205600
				.long	1113081888
				.long	1113082949
				.long	1397902368
				.long	1397509152
				.long	1397899552
				.long	1397506336
				.long	1397900364
				.long	1397507148
				.long	1397900353
				.long	1397507137
				.long	1398033696
				.long	1414340640
				.long	1297500448
				.long	1414733856
				.long	1313415200
				.long	1129072928
				.long	1330192416
				.long	1481187360
				.long	1280122912
				.long	0
				.long	0
				.long	0
				.long	1397313312
				.long	1414090528
				.long	1212763936
				.long	1413695520
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1297501728
				.long	1297498912
				.long	1297504800
				.long	1313021984
				.long	1129071392
				.long	1329799200
				.long	1480794144
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1414668320
				.long	1414681632
				.long	1162092576
				.long	1162104139
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1297501984
				.long	1346454347
				.long	1431195723
				.long	0
				.long	0
				.long	0
				.long	0
				.long	1514229792
				.long	1129324576
				.long	1095770144
				.long	1397760032
				.long	1297096736
				.long	1146101792
				.long	0
				.long	0
				.align 32
		.LC1:
				.byte	2
				.string	"C "
				.zero	252
				.globl	RECODE
		RECODE:
		.LFB189:
  135
  136 %ROUTINE HEX8(%INTEGER N)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%ebx
				addl	$-128, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -124(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  137 %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C
				movb	$48, -28(%ebp)
				movb	$49, -27(%ebp)
				movb	$50, -26(%ebp)
				movb	$51, -25(%ebp)
				movb	$52, -24(%ebp)
				movb	$53, -23(%ebp)
				movb	$54, -22(%ebp)
				movb	$55, -21(%ebp)
				movb	$56, -20(%ebp)
				movb	$57, -19(%ebp)
				movb	$65, -18(%ebp)
				movb	$66, -17(%ebp)
				movb	$67, -16(%ebp)
				movb	$68, -15(%ebp)
				movb	$69, -14(%ebp)
				movb	$70, -13(%ebp)
				leal	-96(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-28(%ebp), %eax
				movl	%eax, -96(%ebp)
				movl	$1, -92(%ebp)
  138    '0', '1', '2', '3',
  139    '4', '5', '6', '7',
  140    '8', '9', 'A', 'B',
  141    'C', 'D', 'E', 'F'
  142 %INTEGER J, S
  143           %CYCLE J = 1,1,8
				movl	$0, -104(%ebp)
		.L62:
				cmpl	$8, -104(%ebp)
				je	.L68
				addl	$1, -104(%ebp)
				nop
		.L64:
  144              S = (N>>28)&15
				movl	8(%ebp), %eax
				shrl	$28, %eax
				movl	%eax, -100(%ebp)
  145              N = N<<4
				sall	$4, 8(%ebp)
  146              PRINTSYMBOL(XSYM(S))
				leal	-28(%ebp), %edx
				movl	-100(%ebp), %eax
				addl	%edx, %eax
				movzbl	(%eax), %eax
				movsbl	%al, %eax
				movb	%al, -105(%ebp)
		.LBB118:
		.LBB119:
				movsbl	-105(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE119:
		.LBE118:
  147           %REPEAT
				jmp	.L62
		.L68:
  148 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L66
				call	__stack_chk_fail_local
		.L66:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%edi
				popl	%ebp
				ret
		.LFE191:
		PUT.6035:
		.LFB192:
  149
  150 %ROUTINE PUT(%INTEGER SP, SYMS)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -28(%ebp)
				movl	8(%ebp), %eax
				movl	%eax, -12(%ebp)
		.LBB120:
		.LBB121:
				subl	$12, %esp
				pushl	-12(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE121:
		.LBE120:
  151 %INTEGER I
  152          SPACES(SP)
  153          %CYCLE I = 1,1,4
				movl	$0, -16(%ebp)
		.L70:
				cmpl	$4, -16(%ebp)
				je	.L75
				addl	$1, -16(%ebp)
				nop
		.L72:
  154             PRINT SYMBOL(SYMS>>24&127); SYMS = SYMS << 8
				movl	12(%ebp), %eax
				shrl	$24, %eax
				movsbl	%al, %eax
				andl	$127, %eax
				movb	%al, -17(%ebp)
		.LBB122:
		.LBB123:
				movsbl	-17(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE123:
		.LBE122:
				sall	$8, 12(%ebp)
  155          %REPEAT
				jmp	.L70
		.L75:
  156 %END
				nop
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE192:
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB193:
				movl	(%esp), %ebx
				ret
		.LFE193:
		.Letext0:
  157
  158 %END
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L39
				jmp	.L42
		.L50:
  159
  160 %ENDOFFILE
  116 Statements compiled