Edinburgh IMP77 Compiler - Version 8.4
    1 !!!!! 12/1/77
		.Ltext0:
				.globl	next_free_bound_index
				.bss
				.align 4
		next_free_bound_index:
				.zero	4
				.comm	_lb,384,32
				.comm	_ub,384,32
				.section	.rodata
				.align 32
		.LC11:
				.byte	11
				.string	"/dev/stdout"
				.zero	243
		_imp_SETSTREAMS:
		.LFB83:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$556, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ebx, -556(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
		.LBB123:
				leal	-284(%ebp), %eax
				movl	%ebx, -556(%ebp)
				leal	.LC11@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				movl	$2, -544(%ebp)
				leal	-284(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE123:
		.LBB124:
		.LBB125:
				subl	$12, %esp
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %ebx
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%ebx, %edi
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-544(%ebp)
				movl	-556(%ebp), %ebx
				call	_imp_openoutput@PLT
				addl	$272, %esp
		.LBE125:
		.LBE124:
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L2
				call	__stack_chk_fail_local
		.L2:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE83:
		_imp_SELECTINPUT:
		.LFB93:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				cmpl	$0, 8(%ebp)
				js	.L6
				movl	_imp_InStream@GOT(%eax), %edx
				movl	8(%ebp), %ecx
				movl	%ecx, (%edx)
				movl	_imp_infile@GOT(%eax), %ecx
				movl	8(%ebp), %edx
				imull	$276, %edx, %edx
				addl	%ecx, %edx
				addl	$4, %edx
				movl	(%edx), %ecx
				movl	_imp_InFile@GOT(%eax), %edx
				movl	%ecx, (%edx)
				subl	$12, %esp
				leal	__PRETTY_FUNCTION__.5624@GOTOFF(%eax), %edx
				pushl	%edx
				movl	%eax, %ebx
				call	check_instream@PLT
				addl	$16, %esp
				jmp	.L3
		.L6:
				nop
		.L3:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE93:
		_imp_SELECTOUTPUT:
		.LFB94:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				cmpl	$0, 8(%ebp)
				js	.L10
				movl	_imp_OutStream@GOT(%eax), %edx
				movl	8(%ebp), %ecx
				movl	%ecx, (%edx)
				movl	_imp_outfile@GOT(%eax), %ecx
				movl	8(%ebp), %edx
				imull	$276, %edx, %edx
				addl	%ecx, %edx
				addl	$4, %edx
				movl	(%edx), %ecx
				movl	_imp_OutFile@GOT(%eax), %edx
				movl	%ecx, (%edx)
				subl	$12, %esp
				leal	__PRETTY_FUNCTION__.5628@GOTOFF(%eax), %edx
				pushl	%edx
				movl	%eax, %ebx
				call	check_outstream@PLT
				addl	$16, %esp
				jmp	.L7
		.L10:
				nop
		.L7:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE94:
				.section	.rodata
		.LC12:
				.string	"test-in/layout.imp"
				.align 4
		.LC13:
				.string	"->S(%d) out of bounds at %s line %d"
				.align 4
		.LC14:
				.string	"switch jump to undefined label S(%d): at %s line %d"
				.align 32
		.LC1:
				.byte	18
				.string	"test-in/layout.imp"
				.zero	236
		FAULT.6092:
		.LFB190:
    2 ! HAMISH DEWAR'S LAYOUT PROGRAM MODIFIED FOR 7/32 IMP COMPILER
    3 ! AND TO IMPLEMENT SECTION NOS.
    4
    5 !%EXTERNALROUTINESPEC SET STREAMS  {move to perms}
    6 %BEGIN;  !LAYOUT: DOCUMENT LAYOUT PROGRAM
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				pushl	%ecx
				subl	$7768, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				movl	4(%eax), %edx
				movl	%edx, -7772(%ebp)
				movl	%gs:20, %esi
				movl	%esi, -28(%ebp)
				xorl	%esi, %esi
				leal	8(%ebp), %edx
				movl	%edx, -32(%ebp)
				subl	$8, %esp
				pushl	-7772(%ebp)
				pushl	(%eax)
				call	_imp_initialise@PLT
				addl	$16, %esp
    7 !SYMBOLIC CONSTANTS
    8 %CONSTINTEGER SIN=1, REQUEST=0;  !SOURCE INPUT STREAMS
    9 %CONSTINTEGER ERR=0, DOC=1, SOUT=2;  !OUTPUT STREAMS
   10 %CONSTINTEGER LBOUND=200;  !LINE BUFF BOUND
   11 %CONSTINTEGER ABOUND=200;  !ATOM BUFF BOUND
   12 %CONSTINTEGER SBOUND=200;  !SOURCE LINE BUFF BOUND
   13 %CONSTINTEGER VBOUND=25;  !VECTOR (EG TAB) BOUND
   14 %CONSTINTEGER ESCBIT=256, UNDBIT=128, CASEBIT=32
   15 %CONSTINTEGER CHARMASK=255, BASICMASK=127, LETMASK=95
   16 %CONSTINTEGER SENTSP=544;  !512+' '
   17 !LAYOUT PARAMETERS
   18 %OWNINTEGER CHOOSE = -1;! NO USER REQUEST
   19 %OWNINTEGER NEW PAGE=0, NEW SECT = 0
   20 %OWNINTEGER TOP=2, BOTTOM=4, LEFT=0, PAGE=60, LINE=72
   21 %OWNINTEGER SLINE=80, NLS=1, SGAP=2, PGAP=3
   22 %OWNINTEGER INDENT=0, SECTNO=0, PAGENO=0, START=0, FINISH=9999
   23 %OWNINTEGER CAP='@', UND='_', CAPSH='.', UNDSH='%', INVERT=32
   24 %OWNINTEGER CAPO='@', UNDO='_', CAPSHO='.', UNDSHO='%', INVERTO=32
   25 %OWNINTEGER ASCII=1, JUST=0, MARK=0, ESCAPE='$'
   26 %OWNINTEGERARRAY TAB(0:77) = 1,9,17,25,33,41,49,57,65,73,81,
   27     89,97,105,113,121,129,137,145,153,161,169,177,185,193,201,0(52)
   28
   29 %OWNINTEGER XLINES=0, LINECAPIND=0, LINEUNDIND=0, LINEMIDIND=0
   30 %OWNINTEGER INDENTIND=1, ERRIND=0, XPAGE=1
   31 %OWNINTEGER COLS=0;  !COLUMNS USED ON CURRENT LINE
   32 %OWNINTEGER TEXTCOLS;  !LAST COL OCCUPIED
   33 %OWNINTEGER LINES=0;  !LINES PRINTED ON CURRENT PAGE
   34 %OWNINTEGER PAGES=0;  !TOTAL PAGES PRINTED
   35 %OWNINTEGER FIXED=0;  !FIXED COLUMNS
   36 %OWNINTEGER GAPS=0, SGAPS=0;  !TOTAL GAPS, SENTENCE GAPS
   37 %OWNINTEGER SIZE=0;  !SIZE OF CURRENT ATOM
   38 %OWNINTEGER SMAX=0;  !UPDATED SOURCE POINTER
   39 %OWNINTEGER INDENTCOL=1
   40 %OWNINTEGER NEXT=0
   41 %INTEGER DIRECTIVE,RELIND,FREELIST,NUM
   42 %INTEGERARRAY BUFF(1:LBOUND);  !LINE BUFFER
				leal	-7752(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				addl	$4440, %eax
				movl	%eax, -7752(%ebp)
				movl	$4, -7748(%ebp)
				movl	$1, -7744(%ebp)
				movl	$1, -7740(%ebp)
				movl	$200, -7736(%ebp)
   43 %INTEGERARRAY ABUFF(1:ABOUND);  !ATOM BUFFER
				leal	-7692(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				addl	$6040, %eax
				movl	%eax, -7692(%ebp)
				movl	$4, -7688(%ebp)
				movl	$1, -7684(%ebp)
				movl	$1, -7680(%ebp)
				movl	$200, -7676(%ebp)
   44 %INTEGERARRAY SBUFF(1:SBOUND);  !SOURCE LINE (UPDATED)
				leal	-7632(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				addl	$5240, %eax
				movl	%eax, -7632(%ebp)
				movl	$4, -7628(%ebp)
				movl	$1, -7624(%ebp)
				movl	$1, -7620(%ebp)
				movl	$200, -7616(%ebp)
   45 %INTEGERARRAY LINK(1:108), HEAD,TAIL(1:500)
				leal	-7572(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				movl	%eax, -7572(%ebp)
				movl	$4, -7568(%ebp)
				movl	$1, -7564(%ebp)
				movl	$1, -7560(%ebp)
				movl	$108, -7556(%ebp)
				leal	-7512(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				addl	$2432, %eax
				movl	%eax, -7512(%ebp)
				movl	$4, -7508(%ebp)
				movl	$1, -7504(%ebp)
				movl	$1, -7500(%ebp)
				movl	$500, -7496(%ebp)
				leal	-7452(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-6880(%ebp), %eax
				addl	$432, %eax
				movl	%eax, -7452(%ebp)
				movl	$4, -7448(%ebp)
				movl	$1, -7444(%ebp)
				movl	$1, -7440(%ebp)
				movl	$500, -7436(%ebp)
   46
   47 %ROUTINE FAULT(%INTEGER N)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1084, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -1084(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
   48 %SWITCH S(1:9)
   49     SELECT OUTPUT(ERR)
				subl	$12, %esp
				pushl	$0
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
				movb	$42, -1065(%ebp)
		.LBB126:
		.LBB127:
				movsbl	-1065(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE127:
		.LBE126:
   50     PRINT SYMBOL('*')
   51     ->S(N)
				movl	$51, -1064(%ebp)
				leal	.LC12@GOTOFF(%ebx), %eax
				movl	%eax, -1060(%ebp)
				movl	8(%ebp), %eax
				movl	%eax, -1056(%ebp)
				nop
		.L12:
   52 S(1): PRINT STRING("FAULTY FORMAT AT ")
   53     PRINT SYMBOL(NEXT)
   54     ->L9
   55 S(3): PRINT STRING("UNKNOWN NAME");  ->L9
   56 S(4): PRINT STRING("SCALAR/VECTOR MISMATCH");  ->L9
   57 S(5): PRINT STRING("UNKNOWN DIRECTIVE ");  ->L8
   58 S(6): PRINT STRING("SPURIOUS DIRECTIVE ");  ->L8
   59 S(7): PRINT STRING("OUT OF BOUNDS ");  ->L8
   60 S(8): PRINT STRING("OFF PAGE ");  ->L8
   61 S(9): PRINT STRING("OVER TEXT ")
   62 L8:  PRINT SYMBOL(DIRECTIVE)
   63     PRINT SYMBOL(RELIND) %IF RELIND # 0
   64 L9:  ERRIND = 1
   65     NEWLINE
   66 %END
				cmpl	$0, -1056(%ebp)
				jle	.L13
				cmpl	$9, -1056(%ebp)
				jle	.L14
		.L13:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L15
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1088(%ebp)
				jmp	.L16
		.L15:
				movl	$66, -1088(%ebp)
		.L16:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L17
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-540(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L18
		.L17:
		.LBB128:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1052(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE128:
				leal	-540(%ebp), %eax
				leal	-1052(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L18:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC13@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$3
				pushl	$6
				pushl	-1088(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L14:
				nop
		.L20:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L28
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1088(%ebp)
				jmp	.L23
		.L28:
				movl	$66, -1088(%ebp)
		.L23:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L24
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L25
		.L24:
		.LBB129:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE129:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L25:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC14@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$2
				pushl	$8
				pushl	-1088(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L27
				call	__stack_chk_fail_local
		.L27:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE190:
				.section	.rodata
				.align 32
		.LC0:
				.byte	20
				.string	"Sections? (Y or CR) "
				.zero	234
				.globl	main
		main:
		.LFB189:
   67
   68 %ROUTINE READ ATOM OR DIRECTIVE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$96, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%ecx, -92(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
   69 %INTEGER K,C,U,ATOMCAPIND,ATOMUNDIND
   70     %IF NEXT = 0 %THEN READ SYMBOL(K) %ELSE K = NEXT %AND NEXT = 0
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L133
				leal	-76(%ebp), %eax
				movl	%eax, -44(%ebp)
		.LBB141:
		.LBB142:
				subl	$12, %esp
				pushl	-44(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
		.LBE142:
		.LBE141:
				jmp	.L84
		.L133:
				nop
		.L83:
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				movl	%eax, -76(%ebp)
				movl	$0, NEXT.6074@GOTOFF(%ebx)
		.L84:
   71     DIRECTIVE = 0;  SIZE = 0
				movl	$0, %eax
				movl	%eax, 6844(%esi)
				movl	$0, SIZE.6071@GOTOFF(%ebx)
   72     ATOMCAPIND = 0;  ATOMUNDIND = 0
				movl	$0, -64(%ebp)
				movl	$0, -60(%ebp)
   73     ATOMCAPIND = CASEBIT %AND READ SYMBOL(K) %IF K = CAPSH
				movl	-76(%ebp), %edx
				movl	CAPSH.6043@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L134
				movl	$32, -64(%ebp)
				leal	-76(%ebp), %eax
				movl	%eax, -40(%ebp)
		.LBB143:
		.LBB144:
				subl	$12, %esp
				pushl	-40(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
				jmp	.L117
		.L86:
		.L134:
		.LBE144:
		.LBE143:
				nop
		.L87:
		.L117:
   74     %CYCLE
   75        READ SYMBOL(K) %AND K = K+ESCBIT %IF K = ESCAPE
				movl	-76(%ebp), %edx
				movl	ESCAPE.6054@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L135
				leal	-76(%ebp), %eax
				movl	%eax, -36(%ebp)
		.LBB145:
		.LBB146:
				subl	$12, %esp
				pushl	-36(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
		.LBE146:
		.LBE145:
				movl	-76(%ebp), %eax
				addl	$256, %eax
				movl	%eax, -76(%ebp)
				jmp	.L89
		.L135:
				nop
		.L89:
   76        ATOMUNDIND = UNDBIT %AND READ SYMBOL(K) %IF K = UNDSH
				movl	-76(%ebp), %edx
				movl	UNDSH.6044@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L136
				movl	$128, -60(%ebp)
				leal	-76(%ebp), %eax
				movl	%eax, -32(%ebp)
		.LBB147:
		.LBB148:
				subl	$12, %esp
				pushl	-32(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
				jmp	.L91
		.L136:
		.LBE148:
		.LBE147:
				nop
		.L91:
   77        C = LINECAPIND!ATOMCAPIND
				movl	LINECAPIND.6058@GOTOFF(%ebx), %eax
				orl	-64(%ebp), %eax
				movl	%eax, -72(%ebp)
   78        U = LINEUNDIND
				movl	LINEUNDIND.6059@GOTOFF(%ebx), %eax
				movl	%eax, -68(%ebp)
   79        U = U!ATOMUNDIND %UNLESS K = ' '
				movl	-76(%ebp), %eax
				cmpl	$32, %eax
				je	.L137
				movl	-60(%ebp), %eax
				orl	%eax, -68(%ebp)
				jmp	.L93
		.L137:
				nop
		.L93:
   80        U = UNDBIT %AND READ SYMBOL(K) %IF K = UND
				movl	-76(%ebp), %edx
				movl	UND.6042@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L138
				movl	$128, -68(%ebp)
				leal	-76(%ebp), %eax
				movl	%eax, -28(%ebp)
		.LBB149:
		.LBB150:
				subl	$12, %esp
				pushl	-28(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
				jmp	.L95
		.L138:
		.LBE150:
		.LBE149:
				nop
		.L95:
   81        C = CASEBIT %AND READ SYMBOL(K) %IF K = CAP
				movl	-76(%ebp), %edx
				movl	CAP.6041@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L139
				movl	$32, -72(%ebp)
				leal	-76(%ebp), %eax
				movl	%eax, -24(%ebp)
		.LBB151:
		.LBB152:
				subl	$12, %esp
				pushl	-24(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
				jmp	.L98
		.L97:
		.L139:
		.LBE152:
		.LBE151:
				nop
		.L98:
		.LBB153:
   82 TWIT:       K = K!!INVERT %IF 'A' <= K&LETMASK <= 'Z';  !LET
				movl	-76(%ebp), %eax
				andl	$95, %eax
				movl	%eax, -56(%ebp)
				cmpl	$64, -56(%ebp)
				jle	.L140
				cmpl	$90, -56(%ebp)
				jg	.L141
		.LBE153:
				movl	-76(%ebp), %edx
				movl	INVERT.6045@GOTOFF(%ebx), %eax
				xorl	%edx, %eax
				movl	%eax, -76(%ebp)
				jmp	.L100
		.L140:
		.LBB154:
				nop
				jmp	.L100
		.L141:
				nop
		.L100:
		.LBE154:
		.LBB155:
   83        K = K-C %IF 'A' <= K&BASICMASK-CASEBIT <= 'Z';  !LC LET
				movl	-76(%ebp), %eax
				andl	$127, %eax
				subl	$32, %eax
				movl	%eax, -52(%ebp)
				cmpl	$64, -52(%ebp)
				jle	.L142
				cmpl	$90, -52(%ebp)
				jg	.L143
		.LBE155:
				movl	-76(%ebp), %eax
				subl	-72(%ebp), %eax
				movl	%eax, -76(%ebp)
				jmp	.L103
		.L142:
		.LBB156:
				nop
				jmp	.L103
		.L143:
				nop
		.L103:
		.LBE156:
   84        %EXIT %IF K = NL
				movl	-76(%ebp), %eax
				cmpl	$10, %eax
				je	.L144
				nop
		.L106:
				nop
				jmp	.L107
		.L145:
   85        K = K!U
				movl	-76(%ebp), %eax
				orl	-68(%ebp), %eax
				movl	%eax, -76(%ebp)
   86        %EXIT %IF K = ' '
				movl	-76(%ebp), %eax
				cmpl	$32, %eax
				je	.L145
				nop
		.L109:
		.LBB157:
				nop
				jmp	.L107
		.L149:
   87        %IF K&ESCBIT # 0 %AND ('A' <= K&LETMASK <= 'Z'   %C
				movl	-76(%ebp), %eax
				andl	$95, %eax
				movl	%eax, -48(%ebp)
				cmpl	$64, -48(%ebp)
				jle	.L146
				cmpl	$90, -48(%ebp)
				jle	.L147
		.LBE157:
				jmp	.L111
		.L146:
		.LBB158:
				nop
		.L111:
		.LBE158:
				movl	-76(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L148
				jmp	.L112
		.L147:
		.LBB159:
				nop
		.L112:
		.LBE159:
				nop
		.L113:
   88                                      %OR K&LETMASK = NL) %START
   89           %EXIT %IF SIZE # 0
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L149
				nop
		.L115:
				nop
		.L107:
   90           DIRECTIVE = K&LETMASK;  READ SYMBOL(NEXT)
				movl	-76(%ebp), %eax
				andl	$95, %eax
				movl	%eax, 6844(%esi)
				leal	NEXT.6074@GOTOFF(%ebx), %eax
				movl	%eax, -20(%ebp)
		.LBB160:
		.LBB161:
				subl	$12, %esp
				pushl	-20(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
		.LBE161:
		.LBE160:
   91           %RETURN
				jmp	.L81
		.L148:
   92        %FINISH
   93        SIZE = SIZE+1;  ABUFF(SIZE) = K
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, SIZE.6071@GOTOFF(%ebx)
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				leal	-1(%eax), %edx
				movl	-76(%ebp), %eax
				addl	$1508, %edx
				movl	%eax, 8(%esi,%edx,4)
				leal	-76(%ebp), %eax
				movl	%eax, -16(%ebp)
		.LBB162:
		.LBB163:
				subl	$12, %esp
				pushl	-16(%ebp)
				call	_imp_readsymbol@PLT
				addl	$16, %esp
		.LBE163:
		.LBE162:
   94        READ SYMBOL(K)
   95     %REPEAT
				jmp	.L117
		.L144:
   96     NEXT = K
				movl	-76(%ebp), %eax
				movl	%eax, NEXT.6074@GOTOFF(%ebx)
   97     %RETURN %IF ATOMUNDIND = 0 %OR SIZE = 0
				cmpl	$0, -60(%ebp)
				je	.L150
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L151
				jmp	.L119
		.L150:
				nop
		.L119:
				jmp	.L81
		.L151:
				nop
		.L120:
   98     K = ABUFF(SIZE)!!UNDBIT
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				subl	$1, %eax
				addl	$1508, %eax
				movl	8(%esi,%eax,4), %eax
				xorb	$-128, %al
				movl	%eax, -76(%ebp)
   99     ABUFF(SIZE) = K %IF K = '.' %OR K = ',' %OR K = ':' %OR K = ';' %OR K = ')'
				movl	-76(%ebp), %eax
				cmpl	$46, %eax
				je	.L152
				movl	-76(%ebp), %eax
				cmpl	$44, %eax
				je	.L153
				movl	-76(%ebp), %eax
				cmpl	$58, %eax
				je	.L154
				movl	-76(%ebp), %eax
				cmpl	$59, %eax
				je	.L155
				movl	-76(%ebp), %eax
				cmpl	$41, %eax
				jne	.L156
				jmp	.L122
		.L152:
				nop
				jmp	.L122
		.L153:
				nop
				jmp	.L122
		.L154:
				nop
				jmp	.L122
		.L155:
				nop
		.L122:
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				leal	-1(%eax), %edx
				movl	-76(%ebp), %eax
				addl	$1508, %edx
				movl	%eax, 8(%esi,%edx,4)
				nop
		.L126:
  100 %END
				jmp	.L126
		.L156:
				nop
		.L81:
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L128
				call	__stack_chk_fail_local
		.L128:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE191:
		PRINTSOURCELINE.6166:
		.LFB192:
?TWIT unused
  101
  102 %ROUTINE PRINT SOURCE LINE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$32, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  103 %INTEGER I
  104     %IF ERRIND # 0 %START
				movl	ERRIND.6062@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L170
				nop
		.L159:
  105        SELECT OUTPUT(ERR)
				subl	$12, %esp
				pushl	$0
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
  106        I = 0
				movl	$0, -16(%ebp)
		.L160:
  107        I = I+1 %AND PRINT SYMBOL(SBUFF(I)) %WHILE I # SMAX
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				cmpl	%eax, -16(%ebp)
				je	.L171
				addl	$1, -16(%ebp)
				movl	-16(%ebp), %eax
				subl	$1, %eax
				addl	$1308, %eax
				movl	8(%esi,%eax,4), %eax
				movsbl	%al, %eax
				movb	%al, -18(%ebp)
		.LBB164:
		.LBB165:
				movsbl	-18(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE165:
		.LBE164:
				jmp	.L160
		.L171:
				nop
		.L162:
		.LBB166:
		.LBB167:
				call	_imp_newline@PLT
		.LBE167:
		.LBE166:
  108        NEWLINE
  109        ERRIND = 0
				movl	$0, ERRIND.6062@GOTOFF(%ebx)
				jmp	.L159
		.L170:
  110     %FINISH
  111     SELECT OUTPUT(SOUT)
				subl	$12, %esp
				pushl	$2
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
  112     I = 0
				movl	$0, -16(%ebp)
		.L163:
  113     I = I+1 %AND PRINT SYMBOL(SBUFF(I)) %WHILE I # SMAX
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				cmpl	%eax, -16(%ebp)
				je	.L172
				addl	$1, -16(%ebp)
				movl	-16(%ebp), %eax
				subl	$1, %eax
				addl	$1308, %eax
				movl	8(%esi,%eax,4), %eax
				movsbl	%al, %eax
				movb	%al, -17(%ebp)
		.LBB168:
		.LBB169:
				movsbl	-17(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE169:
		.LBE168:
				jmp	.L163
		.L172:
				nop
		.L165:
		.LBB170:
		.LBB171:
				call	_imp_newline@PLT
		.LBE171:
		.LBE170:
  114     NEWLINE;  SMAX = 0
				movl	$0, SMAX.6072@GOTOFF(%ebx)
  115 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L167
				call	__stack_chk_fail_local
		.L167:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE192:
		STORE.6175:
		.LFB193:
  116
  117 %ROUTINE STORE(%INTEGER K)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %ebx
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %ecx
				movl	%ecx, -12(%ebp)
				xorl	%ecx, %ecx
  118     SMAX = SMAX+1;  SBUFF(SMAX) = K
				movl	SMAX.6072@GOTOFF(%eax), %edx
				addl	$1, %edx
				movl	%edx, SMAX.6072@GOTOFF(%eax)
				movl	SMAX.6072@GOTOFF(%eax), %eax
				subl	$1, %eax
				leal	1308(%eax), %edx
				movl	8(%ebp), %eax
				movl	%eax, 8(%ebx,%edx,4)
  119 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L175
				call	__stack_chk_fail_local
		.L175:
				addl	$36, %esp
				popl	%ebx
				popl	%ebp
				ret
		.LFE193:
		TRANSLATEUNDERLINE.6186:
		.LFB195:
  120
  121 %ROUTINE STORE SOURCE ATOM
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1628, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%esi, -1632(%ebp)
				movl	%ecx, -1628(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -1568(%ebp)
				movl	%esi, -1584(%ebp)
  122 %INTEGER I,J,K,ATOMCAPIND,ATOMUNDIND
  123
  124 %ROUTINE TRANSLATE UNDERLINE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %ebx
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %ecx
				movl	%ecx, -12(%ebp)
				xorl	%ecx, %ecx
  125 %INTEGER P,Q
  126     K = K-UNDBIT %AND %RETURN %IF LINEUNDIND # 0
				movl	LINEUNDIND.6059@GOTOFF(%eax), %edx
				testl	%edx, %edx
				je	.L204
				movl	12(%ebx), %eax
				addl	$-128, %eax
				movl	%eax, 12(%ebx)
				jmp	.L176
		.L204:
				nop
		.L178:
  127     ->ONE %IF K&BASICMASK = ' '
				movl	12(%ebx), %edx
				andl	$1, %edx
				testl	%edx, %edx
				je	.L205
				nop
		.L181:
				nop
				jmp	.L182
		.L207:
  128     K = K-UNDBIT %AND %RETURN %IF ATOMUNDIND # 0
				movl	8(%ebx), %edx
				testl	%edx, %edx
				je	.L206
				movl	12(%ebx), %eax
				addl	$-128, %eax
				movl	%eax, 12(%ebx)
				jmp	.L176
		.L206:
				nop
		.L184:
  129     ->ONE %IF UNDSHO = 0
				movl	UNDSHO.6049@GOTOFF(%eax), %edx
				testl	%edx, %edx
				je	.L207
				nop
		.L186:
				nop
		.L182:
  130     P = I
				movl	4(%ebx), %edx
				movl	%edx, -20(%ebp)
		.L187:
  131     %WHILE P # SIZE %CYCLE
				movl	SIZE.6071@GOTOFF(%eax), %edx
				cmpl	%edx, -20(%ebp)
				je	.L208
				nop
		.L189:
  132        P = P+1;  Q = ABUFF(P)
				addl	$1, -20(%ebp)
				movl	-20(%ebp), %edx
				leal	-1(%edx), %ecx
				movl	(%ebx), %edx
				addl	$1508, %ecx
				movl	8(%edx,%ecx,4), %edx
				movl	%edx, -16(%ebp)
  133        ->ONE %IF Q&UNDBIT = 0 %AND (P # SIZE %OR %C
				movl	-16(%ebp), %edx
				andl	$1, %edx
				testl	%edx, %edx
				jne	.L209
				movl	SIZE.6071@GOTOFF(%eax), %edx
				cmpl	%edx, -20(%ebp)
				jne	.L210
				cmpl	$46, -16(%ebp)
				je	.L211
				cmpl	$44, -16(%ebp)
				je	.L212
				cmpl	$58, -16(%ebp)
				je	.L213
				cmpl	$59, -16(%ebp)
				je	.L214
				cmpl	$41, -16(%ebp)
				je	.L215
				jmp	.L193
		.L210:
				nop
		.L193:
				jmp	.L182
		.L209:
				nop
				jmp	.L187
		.L211:
				nop
				jmp	.L187
		.L212:
				nop
				jmp	.L187
		.L213:
				nop
				jmp	.L187
		.L214:
				nop
				jmp	.L187
		.L215:
				nop
		.L191:
  134         (Q # '.' %AND Q # ',' %AND Q # ':' %AND Q # ';' %AND Q # ')'))
  135     %REPEAT
				jmp	.L187
		.L208:
  136     STORE(UNDSHO);  K = K-UNDBIT;  ATOMUNDIND = 1
				movl	UNDSHO.6049@GOTOFF(%eax), %edx
				movl	(%ebx), %eax
				subl	$12, %esp
				pushl	%edx
				movl	%eax, %ecx
				call	STORE.6175
				addl	$16, %esp
				movl	12(%ebx), %eax
				addl	$-128, %eax
				movl	%eax, 12(%ebx)
				movl	$1, %eax
				movl	%eax, 8(%ebx)
  137     %RETURN
				jmp	.L176
		.L205:
  138 ONE:%RETURN %IF UNDO = 0
				movl	UNDO.6047@GOTOFF(%eax), %edx
				testl	%edx, %edx
				je	.L216
				nop
		.L199:
				nop
		.L176:
  139     STORE(UNDO);  K = K-UNDBIT
				movl	UNDO.6047@GOTOFF(%eax), %edx
				movl	(%ebx), %eax
				subl	$12, %esp
				pushl	%edx
				movl	%eax, %ecx
				call	STORE.6175
				addl	$16, %esp
				movl	12(%ebx), %eax
				addl	$-128, %eax
				movl	%eax, 12(%ebx)
  140 %END
				nop
				jmp	.L176
		.L216:
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L200
				call	__stack_chk_fail_local
		.L200:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE195:
				.section	.rodata
		.LC15:
				.string	"Illegal cycle I = 1, 1, SIZE"
		STORESOURCEATOM.6178:
		.LFB194:
  141
  142     ATOMCAPIND = 0;  ATOMUNDIND = 0
				movl	$0, -1624(%ebp)
				movl	$0, %eax
				movl	%eax, -1576(%ebp)
  143     %IF LINECAPIND = 0 %AND CAPSHO # 0 %AND SIZE >= 2 %START
				movl	LINECAPIND.6058@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L271
				movl	CAPSHO.6048@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L272
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				cmpl	$1, %eax
				jle	.L273
		.LBB172:
				nop
				jmp	.L235
		.L272:
				nop
				jmp	.L235
		.L273:
				nop
				jmp	.L235
		.L274:
		.LBB179:
  144        %CYCLE I = 1,1,SIZE
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				movl	%eax, -1620(%ebp)
		.LBB173:
				movl	-1620(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1616(%ebp)
				movl	-1616(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE173:
				testl	%eax, %eax
				je	.L222
				leal	-1052(%ebp), %eax
				subl	$8, %esp
				leal	.LC15@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L223
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1636(%ebp)
				jmp	.L224
		.L223:
				movl	$144, -1636(%ebp)
		.L224:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L225
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-796(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L226
		.L225:
		.LBB174:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1564(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE174:
				leal	-796(%ebp), %eax
				leal	-1564(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L226:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1052(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1636(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-796(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L222:
				movl	$0, %eax
				movl	%eax, -1580(%ebp)
		.L227:
				movl	-1580(%ebp), %eax
				cmpl	-1620(%ebp), %eax
				je	.L274
				movl	-1580(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -1580(%ebp)
				nop
		.L235:
		.LBE179:
  145           K = ABUFF(I)&BASICMASK
				movl	-1580(%ebp), %eax
				subl	$1, %eax
				addl	$1508, %eax
				movl	-1632(%ebp), %edi
				movl	8(%edi,%eax,4), %eax
				andl	$127, %eax
				movl	%eax, -1572(%ebp)
		.LBB175:
  146           ATOMCAPIND = 0 %AND %EXIT %IF 'A' <= K-CASEBIT <= 'Z';  !LC
				movl	-1572(%ebp), %eax
				subl	$32, %eax
				movl	%eax, -1612(%ebp)
				cmpl	$64, -1612(%ebp)
				jle	.L275
				cmpl	$90, -1612(%ebp)
				jg	.L276
		.LBE175:
				movl	$0, -1624(%ebp)
				jmp	.L235
		.L275:
		.LBB176:
				nop
				jmp	.L230
		.L276:
				nop
		.L230:
		.LBE176:
		.LBB177:
  147           ATOMCAPIND = ATOMCAPIND+1 %IF 'A' <= K <= 'Z';  !UC
				movl	-1572(%ebp), %eax
				movl	%eax, -1608(%ebp)
				cmpl	$64, -1608(%ebp)
				jle	.L277
				cmpl	$90, -1608(%ebp)
				jg	.L278
		.LBE177:
				addl	$1, -1624(%ebp)
				jmp	.L227
		.L277:
		.LBB178:
				nop
				jmp	.L227
		.L278:
				nop
		.L233:
		.LBE178:
  148        %REPEAT
				jmp	.L227
		.L219:
		.L271:
		.LBE172:
  149     %FINISH
  150     %IF SMAX # 0 %AND XLINES = 0 %START
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L279
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L280
				nop
				jmp	.L241
		.L280:
				nop
		.L241:
  151        %IF SMAX+SIZE+1 <= SLINE %THEN STORE(' ') %C
				movl	SMAX.6072@GOTOFF(%ebx), %edx
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				leal	1(%eax), %edx
				movl	SLINE.6032@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jg	.L281
				subl	$12, %esp
				pushl	$32
				movl	-1632(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				jmp	.L241
		.L281:
				nop
		.L240:
				movl	-1632(%ebp), %ecx
				call	PRINTSOURCELINE.6166
				jmp	.L241
		.L237:
		.L279:
  152        %ELSE PRINT SOURCE LINE
  153     %FINISH
  154     STORE(CAPSHO) %IF ATOMCAPIND # 0
				cmpl	$0, -1624(%ebp)
				je	.L282
				movl	CAPSHO.6048@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-1632(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				jmp	.L243
		.L282:
				nop
		.L243:
		.LBB180:
  155     %CYCLE I = 1,1,SIZE
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				movl	%eax, -1604(%ebp)
		.LBB181:
				movl	-1604(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1600(%ebp)
				movl	-1600(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE181:
				testl	%eax, %eax
				je	.L244
				leal	-540(%ebp), %eax
				subl	$8, %esp
				leal	.LC15@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L245
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1636(%ebp)
				jmp	.L246
		.L245:
				movl	$155, -1636(%ebp)
		.L246:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L247
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L248
		.L247:
		.LBB182:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1308(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE182:
				leal	-284(%ebp), %eax
				leal	-1308(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L248:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1636(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L244:
				movl	$0, %eax
				movl	%eax, -1580(%ebp)
		.L249:
				movl	-1580(%ebp), %eax
				cmpl	-1604(%ebp), %eax
				je	.L283
				movl	-1580(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -1580(%ebp)
				nop
		.L251:
		.LBE180:
  156        K = ABUFF(I)
				movl	-1580(%ebp), %eax
				subl	$1, %eax
				addl	$1508, %eax
				movl	-1632(%ebp), %edi
				movl	8(%edi,%eax,4), %eax
				movl	%eax, -1572(%ebp)
  157        TRANSLATE UNDERLINE %IF K&UNDBIT # 0
				leal	-1584(%ebp), %eax
				movl	%eax, %ecx
				call	TRANSLATEUNDERLINE.6186
		.L252:
		.LBB183:
  158        K = K+CASEBIT %IF 'A' <= K <= 'Z' %AND (LINECAPIND # 0 %C
				movl	-1572(%ebp), %eax
				movl	%eax, -1596(%ebp)
				cmpl	$64, -1596(%ebp)
				jle	.L284
				cmpl	$90, -1596(%ebp)
				jg	.L285
		.LBE183:
				movl	LINECAPIND.6058@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L286
				cmpl	$0, -1624(%ebp)
				je	.L287
				jmp	.L257
		.L286:
				nop
		.L257:
				movl	-1572(%ebp), %eax
				addl	$32, %eax
				movl	%eax, -1572(%ebp)
				jmp	.L254
		.L284:
		.LBB184:
				nop
				jmp	.L254
		.L285:
				nop
				jmp	.L254
		.L287:
		.LBE184:
				nop
		.L254:
		.LBB185:
  159                             %OR ATOMCAPIND # 0)
  160        STORE(CAPO) %AND K = K+CASEBIT %IF 'A' <= K <= 'Z' %AND CAPO # 0
				movl	-1572(%ebp), %eax
				movl	%eax, -1592(%ebp)
				cmpl	$64, -1592(%ebp)
				jle	.L288
				cmpl	$90, -1592(%ebp)
				jg	.L289
		.LBE185:
				movl	CAPO.6046@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L290
				movl	CAPO.6046@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-1632(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				movl	-1572(%ebp), %eax
				addl	$32, %eax
				movl	%eax, -1572(%ebp)
				jmp	.L259
		.L288:
		.LBB186:
				nop
				jmp	.L259
		.L289:
				nop
				jmp	.L259
		.L290:
		.LBE186:
				nop
		.L259:
		.LBB187:
  161        K = K!!INVERTO %IF 'A' <= K&LETMASK <= 'Z'
				movl	-1572(%ebp), %eax
				andl	$95, %eax
				movl	%eax, -1588(%ebp)
				cmpl	$64, -1588(%ebp)
				jle	.L291
				cmpl	$90, -1588(%ebp)
				jg	.L292
		.LBE187:
				movl	INVERTO.6050@GOTOFF(%ebx), %eax
				movl	-1572(%ebp), %edx
				xorl	%edx, %eax
				movl	%eax, -1572(%ebp)
				jmp	.L268
		.L263:
		.L291:
		.LBB188:
				nop
				jmp	.L268
		.L292:
				nop
		.L268:
		.LBE188:
  162        STORE(ESCAPE) %IF K&ESCBIT # 0
				movl	ESCAPE.6054@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-1632(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
		.L265:
  163        STORE(K&CHARMASK)
				movl	-1572(%ebp), %eax
				movzbl	%al, %eax
				subl	$12, %esp
				pushl	%eax
				movl	-1632(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
  164     %REPEAT
				jmp	.L249
		.L283:
  165 %END
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L267
				call	__stack_chk_fail_local
		.L267:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE194:
		SETCOLUMN.6233:
		.LFB196:
?J unused
  166
  167 %ROUTINE SET COLUMN(%INTEGER M)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %ecx
				movl	%ecx, -12(%ebp)
				xorl	%ecx, %ecx
		.LBB189:
  168     %IF 1 <= M <= LINE %START
				movl	8(%ebp), %edx
				movl	%edx, -16(%ebp)
				cmpl	$0, -16(%ebp)
				jle	.L314
				movl	LINE.6031@GOTOFF(%ebx), %edx
				cmpl	%edx, -16(%ebp)
				jg	.L315
		.LBE189:
				nop
				jmp	.L295
		.L315:
				nop
		.L295:
		.LBE190:
  169        M = M-1
				subl	$1, 8(%ebp)
  170        %IF M > COLS %START
				movl	COLS.6064@GOTOFF(%ebx), %edx
				cmpl	%edx, 8(%ebp)
				jg	.L316
				jmp	.L298
		.L316:
  171           COLS = COLS+1 %AND BUFF(COLS) = ' ' %UNTIL COLS = M
				nop
		.L297:
				movl	COLS.6064@GOTOFF(%ebx), %edx
				addl	$1, %edx
				movl	%edx, COLS.6064@GOTOFF(%ebx)
				movl	COLS.6064@GOTOFF(%ebx), %edx
				subl	$1, %edx
				addl	$1108, %edx
				movl	$32, 8(%eax,%edx,4)
				movl	COLS.6064@GOTOFF(%ebx), %edx
				cmpl	%edx, 8(%ebp)
				je	.L317
				jmp	.L297
		.L317:
				nop
		.L300:
  172        %FINISH %ELSE %START
				jmp	.L306
		.L298:
		.L302:
  173           %WHILE COLS # M %CYCLE
				movl	COLS.6064@GOTOFF(%ebx), %edx
				cmpl	%edx, 8(%ebp)
				je	.L318
				nop
		.L306:
  174              FAULT(9) %AND %EXIT %IF BUFF(COLS) # ' '
				movl	COLS.6064@GOTOFF(%ebx), %edx
				subl	$1, %edx
				addl	$1108, %edx
				movl	8(%eax,%edx,4), %edx
				cmpl	$32, %edx
				je	.L319
				subl	$12, %esp
				pushl	$9
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L306
		.L319:
				nop
		.L305:
  175              COLS = COLS-1
				movl	COLS.6064@GOTOFF(%ebx), %edx
				subl	$1, %edx
				movl	%edx, COLS.6064@GOTOFF(%ebx)
  176           %REPEAT
				jmp	.L298
		.L301:
		.L318:
  177        %FINISH
  178     %FINISH %ELSE %START
				jmp	.L309
		.L314:
		.LBB190:
  179        FAULT(8);  INDENTCOL = 1 %IF INDENTCOL = M
				subl	$12, %esp
				pushl	$8
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				movl	INDENTCOL.6073@GOTOFF(%ebx), %eax
				cmpl	%eax, 8(%ebp)
				jne	.L320
				movl	$1, INDENTCOL.6073@GOTOFF(%ebx)
				jmp	.L309
		.L307:
		.L320:
				nop
		.L309:
  180     %FINISH
  181     FIXED = COLS;  GAPS = 0;  SGAPS = 0
				movl	COLS.6064@GOTOFF(%ebx), %eax
				movl	%eax, FIXED.6068@GOTOFF(%ebx)
				movl	$0, GAPS.6069@GOTOFF(%ebx)
				movl	$0, SGAPS.6070@GOTOFF(%ebx)
  182 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L311
				call	__stack_chk_fail_local
		.L311:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE196:
		MARKDOC.6247:
		.LFB197:
  183
  184 %ROUTINE MARK DOC
				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)
  185     %IF MARK = 1 %START
				movl	MARK.6053@GOTOFF(%ebx), %eax
				cmpl	$1, %eax
				jne	.L327
				movb	$61, -14(%ebp)
		.LBB191:
		.LBB192:
				movsbl	-14(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE192:
		.LBE191:
				nop
		.L323:
				movb	$12, -13(%ebp)
		.LBB199:
		.LBB200:
				movsbl	-13(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L324:
		.LBE200:
		.LBE199:
  186        PRINT SYMBOL('=');  SPACES(LINE-2);  PRINT SYMBOL('=')
				movl	LINE.6031@GOTOFF(%ebx), %eax
				subl	$2, %eax
				movl	%eax, -12(%ebp)
		.LBB193:
		.LBB194:
				subl	$12, %esp
				pushl	-12(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
				movb	$61, -15(%ebp)
		.LBE194:
		.LBE193:
		.LBB195:
		.LBB196:
				movsbl	-15(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE196:
		.LBE195:
		.LBB197:
		.LBB198:
				call	_imp_newline@PLT
		.LBE198:
		.LBE197:
  187        NEWLINE
  188     %FINISH %ELSE %START
				jmp	.L324
		.L327:
  189        PRINT SYMBOL(12);  !FORM FEED
  190     %FINISH
  191 %END
				nop
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE197:
		RESETDOCLINE.6252:
		.LFB198:
  192
  193 %ROUTINE RESET DOC LINE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$20, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %ebx
				movl	%ecx, -12(%ebp)
  194     %IF XLINES # 0 %START
				movl	XLINES.6057@GOTOFF(%eax), %edx
				testl	%edx, %edx
				je	.L336
				nop
				jmp	.L332
		.L337:
  195        XLINES = XLINES-1
				movl	XLINES.6057@GOTOFF(%eax), %edx
				subl	$1, %edx
				movl	%edx, XLINES.6057@GOTOFF(%eax)
  196        %IF XLINES = 0 %START
				movl	XLINES.6057@GOTOFF(%eax), %edx
				testl	%edx, %edx
				jne	.L337
				nop
		.L332:
  197           LINECAPIND = 0;  LINEUNDIND = 0
				movl	$0, LINECAPIND.6058@GOTOFF(%eax)
				movl	$0, LINEUNDIND.6059@GOTOFF(%eax)
  198           LINEMIDIND = 0;  INDENTIND = 1
				movl	$0, LINEMIDIND.6060@GOTOFF(%eax)
				movl	$1, INDENTIND.6061@GOTOFF(%eax)
				jmp	.L332
		.L330:
		.L336:
  199        %FINISH
  200     %FINISH
  201     TEXTCOLS = 0;  COLS = 0;  FIXED = 0;  XPAGE = 0
				movl	$0, TEXTCOLS.6065@GOTOFF(%eax)
				movl	$0, COLS.6064@GOTOFF(%eax)
				movl	$0, FIXED.6068@GOTOFF(%eax)
				movl	$0, XPAGE.6063@GOTOFF(%eax)
  202     SET COLUMN(INDENTCOL) %IF INDENTIND # 0
				movl	INDENTIND.6061@GOTOFF(%eax), %edx
				testl	%edx, %edx
				je	.L338
				movl	INDENTCOL.6073@GOTOFF(%eax), %eax
				subl	$12, %esp
				pushl	%eax
				movl	%ebx, %ecx
				call	SETCOLUMN.6233
				addl	$16, %esp
				nop
		.L334:
  203 %END
				jmp	.L334
		.L338:
				nop
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE198:
				.section	.rodata
				.align 32
		.LC2:
				.byte	8
				.string	"SECTION:"
				.zero	246
		GET.6261:
		.LFB200:
  204
  205 %ROUTINE TURN PAGE
				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	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -16(%ebp)
  206    %ROUTINE GET
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$556, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -556(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
  207       SELECTOUTPUT(0)
				subl	$12, %esp
				pushl	$0
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
		.LBB201:
  208       PRINTSTRING("SECTION:");  PRINTSYMBOL(4)
				leal	-284(%ebp), %eax
				leal	.LC2@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE201:
		.LBB202:
		.LBB203:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
				movb	$4, -549(%ebp)
		.LBE203:
		.LBE202:
		.LBB204:
		.LBB205:
				movsbl	-549(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE205:
		.LBE204:
  209       SELECTOUTPUT(DOC)
				subl	$12, %esp
				pushl	$1
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
		.L340:
		.LBB206:
		.LBB207:
		.LBB208:
				call	_imp_nextsymbol@PLT
		.LBE208:
		.LBE207:
  210       %CYCLE
  211          %EXIT %IF '0' <= NEXTSYMBOL <= '9'
				movl	%eax, -548(%ebp)
				cmpl	$47, -548(%ebp)
				jle	.L358
				cmpl	$57, -548(%ebp)
				jle	.L359
				jmp	.L343
		.L358:
				nop
		.L343:
		.LBE206:
		.LBB209:
		.LBB210:
				call	_imp_skipsymbol@PLT
		.LBE210:
		.LBE209:
				nop
  212          SKIPSYMBOL
  213       %REPEAT
				jmp	.L340
		.L345:
		.L359:
  214       READ(NEW SECT)
				subl	$12, %esp
				leal	NEWSECT.6026@GOTOFF(%ebx), %eax
				pushl	%eax
				call	_imp_readint@PLT
				addl	$16, %esp
  215       NEW PAGE = 0
				movl	$0, NEWPAGE.6025@GOTOFF(%ebx)
		.LBB211:
		.LBB212:
				call	_imp_nextsymbol@PLT
		.LBE212:
		.LBE211:
  216       %RETURN %UNLESS NEXTSYMBOL = '-'
				cmpl	$45, %eax
				jne	.L360
				nop
		.L348:
		.LBB213:
		.LBB214:
				call	_imp_skipsymbol@PLT
		.LBE214:
		.LBE213:
		.LBB215:
		.LBB216:
		.LBB217:
				call	_imp_nextsymbol@PLT
		.LBE217:
		.LBE216:
				nop
		.L339:
  217       SKIPSYMBOL
  218       %RETURN %UNLESS '0' <= NEXTSYMBOL <= '9'
				movl	%eax, -544(%ebp)
				cmpl	$47, -544(%ebp)
				jle	.L361
				cmpl	$57, -544(%ebp)
				jle	.L362
		.LBE215:
				jmp	.L352
		.L361:
		.LBB218:
				nop
		.L352:
		.LBE218:
				jmp	.L339
		.L353:
		.L362:
		.LBB219:
				nop
		.LBE219:
  219       READ(NEW PAGE)
				subl	$12, %esp
				leal	NEWPAGE.6025@GOTOFF(%ebx), %eax
				pushl	%eax
				call	_imp_readint@PLT
				addl	$16, %esp
  220    %END
				nop
				jmp	.L339
		.L360:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L354
				call	__stack_chk_fail_local
		.L354:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE200:
		TURNPAGE.6258:
		.LFB199:
  221    %RETURN %IF CHOOSE < 0
				movl	CHOOSE.6024@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				js	.L386
				nop
		.L365:
				nop
		.L363:
  222    %IF START = 0 %START
				movl	START.6039@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L387
				nop
		.L368:
  223       START = 9999
				movl	$9999, START.6039@GOTOFF(%ebx)
  224    %ELSE
				jmp	.L379
		.L387:
  225       %IF START = 9999 %START
				movl	START.6039@GOTOFF(%ebx), %eax
				cmpl	$9999, %eax
				jne	.L388
				nop
		.L379:
  226          START = START-1
				movl	START.6039@GOTOFF(%ebx), %eax
				subl	$1, %eax
				movl	%eax, START.6039@GOTOFF(%ebx)
  227          SELECTINPUT(REQUEST)
				subl	$12, %esp
				pushl	$0
				call	_imp_SELECTINPUT
				addl	$16, %esp
		.L371:
  228          %CYCLE
  229             GET
				leal	-16(%ebp), %eax
				movl	%eax, %ecx
				call	GET.6261
  230             %EXIT %IF NEWSECT > SECTNO
				movl	NEWSECT.6026@GOTOFF(%ebx), %edx
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jg	.L389
				nop
		.L373:
				nop
		.L374:
  231             %EXIT %IF NEWSECT=SECTNO %AND (NEW PAGE=0 %OR NEWPAGE>=PAGENO)
				movl	NEWSECT.6026@GOTOFF(%ebx), %edx
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L390
				movl	NEWPAGE.6025@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L391
				movl	NEWPAGE.6025@GOTOFF(%ebx), %edx
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L392
				jmp	.L378
		.L391:
				nop
		.L378:
				jmp	.L374
		.L390:
				nop
				jmp	.L371
		.L392:
				nop
		.L376:
  232          %REPEAT
				jmp	.L371
		.L389:
  233          SELECTINPUT(SIN)
				subl	$12, %esp
				pushl	$1
				call	_imp_SELECTINPUT
				addl	$16, %esp
				jmp	.L379
		.L369:
		.L388:
  234       %FINISH
  235    %FINISH
  236    START=0 %IF NEWSECT=SECTNO %AND %C
				movl	NEWSECT.6026@GOTOFF(%ebx), %edx
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L393
				movl	NEWPAGE.6025@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L394
				movl	NEWPAGE.6025@GOTOFF(%ebx), %edx
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L395
				jmp	.L383
		.L394:
				nop
		.L383:
				movl	$0, START.6039@GOTOFF(%ebx)
				nop
				jmp	.L381
		.L395:
				nop
		.L381:
  237                (NEWPAGE=0 %OR NEWPAGE=PAGENO)
  238 %END
				jmp	.L381
		.L393:
				nop
				jmp	.L363
		.L386:
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L384
				call	__stack_chk_fail_local
		.L384:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE199:
				.section	.rodata
		.LC16:
				.string	"Illegal cycle I = 1, 1, COLS"
		.LC17:
				.string	"Illegal cycle J = I, 1, COLS"
		PRINTDOCLINE.6289:
		.LFB201:
  239 %ROUTINE PRINT DOC LINE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1916, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -1920(%ebp)
				movl	%ecx, -1916(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
  240 %OWNINTEGER CR = 13
  241 %INTEGER I,J,K,L,M,U
  242     LINES = LINES+NLS
				movl	LINES.6066@GOTOFF(%ebx), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				movl	%eax, LINES.6066@GOTOFF(%ebx)
  243     %IF PAGES+1 >= START %START
				movl	PAGES.6067@GOTOFF(%ebx), %eax
				leal	1(%eax), %edx
				movl	START.6039@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L444
				nop
				jmp	.L434
		.L452:
  244        SELECT OUTPUT(DOC)
				subl	$12, %esp
				pushl	$1
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
  245        %IF LINES = NLS %START
				movl	LINES.6066@GOTOFF(%ebx), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jne	.L445
				nop
		.L400:
  246           MARK DOC %IF MARK # 0
				movl	MARK.6053@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L446
				movl	-1920(%ebp), %ecx
				call	MARKDOC.6247
				jmp	.L402
		.L446:
				nop
		.L402:
  247           NEWLINES(TOP)
				movl	TOP.6027@GOTOFF(%ebx), %eax
				movl	%eax, -1852(%ebp)
		.LBB220:
		.LBB221:
				subl	$12, %esp
				pushl	-1852(%ebp)
				call	_imp_newlines@PLT
				addl	$16, %esp
				jmp	.L400
		.L445:
		.LBE221:
		.LBE220:
  248        %FINISH
  249        %IF TEXTCOLS # 0 %START
				movl	TEXTCOLS.6065@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L447
				nop
				jmp	.L425
		.L449:
		.LBB242:
  250           L = LEFT
				movl	LEFT.6029@GOTOFF(%ebx), %eax
				movl	%eax, -1880(%ebp)
  251           L = L+(LINE-COLS)//2 %IF LINEMIDIND # 0
				movl	LINEMIDIND.6060@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L448
				movl	LINE.6031@GOTOFF(%ebx), %edx
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, %edx
				shrl	$31, %edx
				addl	%edx, %eax
				sarl	%eax
				addl	%eax, -1880(%ebp)
				jmp	.L406
		.L448:
				nop
		.L406:
				movl	-1880(%ebp), %eax
				movl	%eax, -1848(%ebp)
		.LBB222:
		.LBB223:
				subl	$12, %esp
				pushl	-1848(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE223:
		.LBE222:
  252           SPACES(L);  U = UNDBIT
				movl	$128, -1896(%ebp)
		.LBB224:
  253           %CYCLE I = 1,1,COLS
				movl	COLS.6064@GOTOFF(%ebx), %eax
				movl	%eax, -1876(%ebp)
		.LBB225:
				movl	-1876(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1872(%ebp)
				movl	-1872(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE225:
				testl	%eax, %eax
				je	.L407
				leal	-1052(%ebp), %eax
				subl	$8, %esp
				leal	.LC16@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L408
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1924(%ebp)
				jmp	.L409
		.L408:
				movl	$253, -1924(%ebp)
		.L409:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L410
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-796(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L411
		.L410:
		.LBB226:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1820(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE226:
				leal	-796(%ebp), %eax
				leal	-1820(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L411:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-1052(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1924(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-796(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L407:
				movl	$0, -1888(%ebp)
		.L412:
				movl	-1888(%ebp), %eax
				cmpl	-1876(%ebp), %eax
				je	.L449
				addl	$1, -1888(%ebp)
				nop
		.L425:
		.LBE242:
  254              K = BUFF(I)
				movl	-1888(%ebp), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	-1920(%ebp), %esi
				movl	8(%esi,%eax,4), %eax
				movl	%eax, -1868(%ebp)
  255              %IF K&U # 0 %START
				cmpl	$0, -1896(%ebp)
				sete	%al
				movzbl	%al, %eax
				andl	-1868(%ebp), %eax
				testl	%eax, %eax
				jne	.L450
				nop
		.L415:
  256                 M = I
				movl	-1888(%ebp), %eax
				movl	%eax, -1892(%ebp)
		.LBB227:
  257                 %CYCLE J = I,1,COLS
				movl	-1888(%ebp), %eax
				movl	%eax, -1864(%ebp)
				movl	COLS.6064@GOTOFF(%ebx), %eax
				movl	%eax, -1860(%ebp)
		.LBB228:
				movl	-1860(%ebp), %eax
				subl	-1864(%ebp), %eax
				movl	%eax, -1856(%ebp)
				movl	-1856(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE228:
				testl	%eax, %eax
				je	.L416
				leal	-540(%ebp), %eax
				subl	$8, %esp
				leal	.LC17@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L417
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1924(%ebp)
				jmp	.L418
		.L417:
				movl	$257, -1924(%ebp)
		.L418:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L419
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L420
		.L419:
		.LBB229:
				leal	-1564(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %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
		.LBE229:
				leal	-284(%ebp), %eax
				leal	-1308(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L420:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1924(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L416:
				movl	-1864(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1884(%ebp)
		.L421:
				movl	-1884(%ebp), %eax
				cmpl	-1860(%ebp), %eax
				je	.L451
				addl	$1, -1884(%ebp)
				nop
		.L423:
		.LBE227:
  258                    %IF BUFF(J)&UNDBIT # 0 %START
  259                       SPACES(J-M)
				movl	-1884(%ebp), %eax
				subl	-1892(%ebp), %eax
				movl	%eax, -1844(%ebp)
		.LBB230:
		.LBB231:
				subl	$12, %esp
				pushl	-1844(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
				movb	$95, -1900(%ebp)
		.LBE231:
		.LBE230:
		.LBB232:
		.LBB233:
				movsbl	-1900(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE233:
		.LBE232:
  260                       PRINT SYMBOL('_')
  261                       M = J+1
				movl	-1884(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -1892(%ebp)
		.L424:
  262                    %FINISH
  263                 %REPEAT
				jmp	.L421
		.L451:
  264                 PRINT SYMBOL(CR);  PRINT SYMBOL(CR)
				movl	CR.6291@GOTOFF(%ebx), %eax
				movsbl	%al, %eax
				movb	%al, -1898(%ebp)
		.LBB234:
		.LBB235:
				movsbl	-1898(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE235:
		.LBE234:
				movl	CR.6291@GOTOFF(%ebx), %eax
				movsbl	%al, %eax
				movb	%al, -1899(%ebp)
		.LBB236:
		.LBB237:
				movsbl	-1899(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE237:
		.LBE236:
  265                 SPACES(L+I-1);  U = 0
				movl	-1880(%ebp), %edx
				movl	-1888(%ebp), %eax
				addl	%edx, %eax
				subl	$1, %eax
				movl	%eax, -1840(%ebp)
		.LBB238:
		.LBB239:
				subl	$12, %esp
				pushl	-1840(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE239:
		.LBE238:
				movl	$0, -1896(%ebp)
				jmp	.L415
		.L450:
  266              %FINISH
  267              PRINT SYMBOL(K&BASICMASK)
				movl	-1868(%ebp), %eax
				movsbl	%al, %eax
				andl	$127, %eax
				movb	%al, -1897(%ebp)
		.LBB240:
		.LBB241:
				movsbl	-1897(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE241:
		.LBE240:
  268           %REPEAT
				jmp	.L412
		.L404:
		.L447:
		.LBE224:
  269        %FINISH
  270        NEWLINES(NLS)
				movl	NLS.6033@GOTOFF(%ebx), %eax
				movl	%eax, -1836(%ebp)
		.LBB243:
		.LBB244:
				subl	$12, %esp
				pushl	-1836(%ebp)
				call	_imp_newlines@PLT
				addl	$16, %esp
		.LBE244:
		.LBE243:
  271        %IF LINES >= PAGE %AND BOTTOM # 0 %START
				movl	LINES.6066@GOTOFF(%ebx), %edx
				movl	PAGE.6030@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L452
				movl	BOTTOM.6028@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L453
				nop
				jmp	.L434
		.L453:
				nop
				jmp	.L434
		.L454:
  272           %IF PAGENO = 0 %START
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L454
				nop
		.L429:
  273           %FINISH %ELSE %START
				nop
		.L434:
  274              I = BOTTOM//2
				movl	BOTTOM.6028@GOTOFF(%ebx), %eax
				movl	%eax, %edx
				shrl	$31, %edx
				addl	%edx, %eax
				sarl	%eax
				movl	%eax, -1888(%ebp)
				movl	-1888(%ebp), %eax
				movl	%eax, -1828(%ebp)
		.LBB245:
		.LBB246:
				subl	$12, %esp
				pushl	-1828(%ebp)
				call	_imp_newlines@PLT
				addl	$16, %esp
		.LBE246:
		.LBE245:
  275              NEWLINES(I)
  276             SPACES(LEFT+LINE//2-7)
				movl	LINE.6031@GOTOFF(%ebx), %eax
				movl	%eax, %edx
				shrl	$31, %edx
				addl	%edx, %eax
				sarl	%eax
				movl	%eax, %edx
				movl	LEFT.6029@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				subl	$7, %eax
				movl	%eax, -1832(%ebp)
		.LBB247:
		.LBB248:
				subl	$12, %esp
				pushl	-1832(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE248:
		.LBE247:
  277             %IF SECTNO = 0 %START
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L455
				movl	$2, -1824(%ebp)
		.LBB249:
		.LBB250:
				subl	$12, %esp
				pushl	-1824(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.LBE250:
		.LBE249:
				nop
  278                SPACES(2);  WRITE(PAGENO,1)
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				subl	$8, %esp
				pushl	$1
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
  279             %ELSE
				jmp	.L434
		.L431:
		.L455:
  280                WRITE(SECTNO,2);  WRITE(-PAGENO,1)
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				subl	$8, %esp
				pushl	$2
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				negl	%eax
				subl	$8, %esp
				pushl	$1
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				jmp	.L434
		.L398:
		.L432:
		.L433:
		.L444:
  281             %FINISH
  282           %FINISH
  283        %FINISH
  284     %FINISH
  285     %IF LINES >= PAGE %START
				movl	LINES.6066@GOTOFF(%ebx), %edx
				movl	PAGE.6030@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L456
				nop
		.L436:
  286        LINES = 0;  PAGES = PAGES+1
				movl	$0, LINES.6066@GOTOFF(%ebx)
				movl	PAGES.6067@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, PAGES.6067@GOTOFF(%ebx)
  287        PAGENO = PAGENO+1 %IF PAGENO # 0
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L457
				movl	PAGENO.6038@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, PAGENO.6038@GOTOFF(%ebx)
				jmp	.L438
		.L457:
				nop
		.L438:
  288       TURN PAGE
				movl	-1920(%ebp), %ecx
				call	TURNPAGE.6258
				jmp	.L436
		.L456:
  289     %FINISH
  290     RESET DOC LINE
				movl	-1920(%ebp), %ecx
				call	RESETDOCLINE.6252
  291 %END
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L440
				call	__stack_chk_fail_local
		.L440:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE201:
				.section	.rodata
				.align 4
		.LC18:
				.string	"Illegal cycle I = COLS,  -1, 1"
		JUSTIFY.6328:
		.LFB202:
  292
  293 %ROUTINE JUSTIFY
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$860, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -864(%ebp)
				movl	%ecx, -860(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
  294 %OWNINTEGER FLIP = 0
  295 %INTEGER I,J,K,L,MIN,COUNT,SCOUNT,WAIT,SWAIT
  296     COUNT = LINE-COLS
				movl	LINE.6031@GOTOFF(%ebx), %edx
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, -832(%ebp)
  297     %RETURN %IF COUNT <= 0 %OR GAPS = 0
				cmpl	$0, -832(%ebp)
				jle	.L507
				movl	GAPS.6069@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L508
				jmp	.L460
		.L507:
				nop
		.L460:
				jmp	.L458
		.L508:
				nop
		.L461:
  298     MIN = COUNT//GAPS
				movl	GAPS.6069@GOTOFF(%ebx), %edi
				movl	-832(%ebp), %eax
				cltd
				idivl	%edi
				movl	%eax, -816(%ebp)
  299     COUNT = COUNT-MIN*GAPS
				movl	GAPS.6069@GOTOFF(%ebx), %eax
				imull	-816(%ebp), %eax
				subl	%eax, -832(%ebp)
  300     SCOUNT = SGAPS;  SCOUNT = COUNT %IF COUNT < SGAPS
				movl	SGAPS.6070@GOTOFF(%ebx), %eax
				movl	%eax, -828(%ebp)
				movl	SGAPS.6070@GOTOFF(%ebx), %eax
				cmpl	%eax, -832(%ebp)
				jge	.L509
				movl	-832(%ebp), %eax
				movl	%eax, -828(%ebp)
				jmp	.L464
		.L509:
				nop
		.L464:
  301     COUNT = COUNT-SCOUNT
				movl	-828(%ebp), %eax
				subl	%eax, -832(%ebp)
  302     FLIP = 1-FLIP
				movl	FLIP.6330@GOTOFF(%ebx), %eax
				movl	$1, %edx
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, FLIP.6330@GOTOFF(%ebx)
  303     %IF FLIP # 0 %START
				movl	FLIP.6330@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L510
				nop
		.L466:
  304        WAIT = 0;  SWAIT = 0
				movl	$0, -824(%ebp)
				movl	$0, -820(%ebp)
  305     %FINISH %ELSE %START
				jmp	.L467
		.L510:
  306        WAIT = GAPS-COUNT;  SWAIT = SGAPS-SCOUNT
				movl	GAPS.6069@GOTOFF(%ebx), %eax
				subl	-832(%ebp), %eax
				movl	%eax, -824(%ebp)
				movl	SGAPS.6070@GOTOFF(%ebx), %eax
				subl	-828(%ebp), %eax
				movl	%eax, -820(%ebp)
		.L467:
  307     %FINISH
  308     J = LINE
				movl	LINE.6031@GOTOFF(%ebx), %eax
				movl	%eax, -840(%ebp)
		.LBB251:
  309     %CYCLE I = COLS,-1,1
				movl	COLS.6064@GOTOFF(%ebx), %eax
				movl	%eax, -812(%ebp)
		.LBB252:
				movl	$1, %eax
				subl	-812(%ebp), %eax
				movl	%eax, -808(%ebp)
				movl	-808(%ebp), %eax
				notl	%eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE252:
				testl	%eax, %eax
				je	.L468
				leal	-540(%ebp), %eax
				subl	$8, %esp
				leal	.LC18@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L469
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -868(%ebp)
				jmp	.L470
		.L469:
				movl	$309, -868(%ebp)
		.L470:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L471
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L472
		.L471:
		.LBB253:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE253:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L472:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-868(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L468:
				movl	-812(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -844(%ebp)
		.L473:
				cmpl	$1, -844(%ebp)
				je	.L511
				subl	$1, -844(%ebp)
				nop
		.L475:
				movl	$0, -800(%ebp)
		.LBE251:
		.LBB254:
		.LBB255:
				subl	$12, %esp
				pushl	-800(%ebp)
				call	exit@PLT
		.L458:
		.LBE255:
		.LBE254:
  310        K = BUFF(I)
				movl	-844(%ebp), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	-864(%ebp), %esi
				movl	8(%esi,%eax,4), %eax
				movl	%eax, -804(%ebp)
  311        %IF (K = SENTSP %OR K = ' ') %AND BUFF(I-1) # K %START
				cmpl	$544, -804(%ebp)
				je	.L512
				cmpl	$32, -804(%ebp)
				jne	.L513
				jmp	.L477
		.L512:
				nop
		.L477:
				movl	-844(%ebp), %eax
				subl	$2, %eax
				addl	$1108, %eax
				movl	-864(%ebp), %edi
				movl	8(%edi,%eax,4), %eax
				cmpl	%eax, -804(%ebp)
				je	.L514
				nop
				jmp	.L497
		.L514:
				nop
				jmp	.L497
		.L521:
  312           L = J-MIN
				movl	-840(%ebp), %eax
				subl	-816(%ebp), %eax
				movl	%eax, -836(%ebp)
  313           %IF WAIT = 0 %START
				cmpl	$0, -824(%ebp)
				jne	.L515
				nop
		.L481:
  314              L = L-1 %AND COUNT = COUNT-1 %IF COUNT # 0
				cmpl	$0, -832(%ebp)
				je	.L516
				subl	$1, -836(%ebp)
				subl	$1, -832(%ebp)
				nop
		.L483:
  315           %FINISH %ELSE WAIT = WAIT-1
				jmp	.L484
		.L516:
				jmp	.L484
		.L515:
				subl	$1, -824(%ebp)
		.L484:
  316           %IF K = SENTSP %START
				cmpl	$544, -804(%ebp)
				jne	.L517
				nop
		.L492:
		.L495:
  317              %IF SWAIT = 0 %START
				cmpl	$0, -820(%ebp)
				jne	.L518
				nop
		.L488:
  318                 L = L-1 %AND SCOUNT = SCOUNT-1 %IF SCOUNT # 0
				cmpl	$0, -828(%ebp)
				je	.L519
				subl	$1, -836(%ebp)
				subl	$1, -828(%ebp)
				nop
		.L490:
  319              %FINISH %ELSE SWAIT = SWAIT-1
				jmp	.L495
		.L519:
				jmp	.L495
		.L518:
				subl	$1, -820(%ebp)
				jmp	.L495
		.L486:
		.L491:
		.L517:
  320           %FINISH
  321           BUFF(J) = ' ' %AND J = J-1 %WHILE J # L
				movl	-840(%ebp), %eax
				cmpl	-836(%ebp), %eax
				je	.L520
				movl	-840(%ebp), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	-864(%ebp), %ecx
				movl	$32, 8(%ecx,%eax,4)
				subl	$1, -840(%ebp)
				jmp	.L495
		.L520:
				nop
		.L494:
  322           COLS = LINE %AND %RETURN %IF J = I
				movl	-840(%ebp), %eax
				cmpl	-844(%ebp), %eax
				jne	.L521
				movl	LINE.6031@GOTOFF(%ebx), %eax
				movl	%eax, COLS.6064@GOTOFF(%ebx)
				jmp	.L458
		.L478:
		.L513:
				nop
		.L497:
  323        %FINISH
  324        BUFF(J) = K;  J = J-1
				movl	-840(%ebp), %eax
				subl	$1, %eax
				leal	1108(%eax), %edx
				movl	-804(%ebp), %eax
				movl	-864(%ebp), %esi
				movl	%eax, 8(%esi,%edx,4)
				subl	$1, -840(%ebp)
  325     %REPEAT
				jmp	.L473
		.L511:
  326     %STOP
  327 %END
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L498
				call	__stack_chk_fail_local
		.L498:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE202:
		PLACEATOM.6365:
		.LFB203:
  328
  329 %ROUTINE PLACE ATOM
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$48, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%ecx, -44(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  330 %INTEGER I,L,S
  331     %IF COLS # FIXED %AND XLINES = 0 %START
				movl	COLS.6064@GOTOFF(%ebx), %edx
				movl	FIXED.6068@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				je	.L551
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L552
				nop
				jmp	.L541
		.L552:
				nop
				jmp	.L541
		.L561:
  332        L = COLS+1;  S = ' '
				movl	COLS.6064@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, -24(%ebp)
				movl	$32, -20(%ebp)
  333        %IF (BUFF(COLS) = '.' %OR BUFF(COLS) = '?') %C
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	8(%esi,%eax,4), %eax
				cmpl	$46, %eax
				je	.L553
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	8(%esi,%eax,4), %eax
				cmpl	$63, %eax
				jne	.L554
				jmp	.L527
		.L553:
				nop
		.L527:
		.LBB256:
				movl	6040(%esi), %eax
				movl	%eax, -16(%ebp)
				cmpl	$64, -16(%ebp)
				jle	.L555
				cmpl	$90, -16(%ebp)
				jg	.L556
		.LBE256:
				nop
				jmp	.L528
		.L555:
		.LBB257:
				nop
				jmp	.L528
		.L556:
				nop
		.L528:
		.LBE257:
  334        %AND 'A' <= ABUFF(1) <= 'Z' %START
  335           L = COLS+SGAP;  S = SENTSP
				movl	COLS.6064@GOTOFF(%ebx), %edx
				movl	SGAP.6034@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				movl	%eax, -24(%ebp)
				movl	$544, -20(%ebp)
				jmp	.L528
		.L554:
  336        %FINISH
  337        %IF L+SIZE <= LINE %START
				movl	SIZE.6071@GOTOFF(%ebx), %edx
				movl	-24(%ebp), %eax
				addl	%eax, %edx
				movl	LINE.6031@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jg	.L557
				nop
		.L532:
  338           COLS = COLS+1 %AND BUFF(COLS) = S %WHILE COLS # L
				nop
		.L531:
				movl	COLS.6064@GOTOFF(%ebx), %eax
				cmpl	%eax, -24(%ebp)
				je	.L558
				movl	COLS.6064@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, COLS.6064@GOTOFF(%ebx)
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	$1, %eax
				leal	1108(%eax), %edx
				movl	-20(%ebp), %eax
				movl	%eax, 8(%esi,%edx,4)
				jmp	.L531
		.L558:
				nop
		.L534:
  339           GAPS = GAPS+1;  SGAPS = SGAPS+1 %IF S = SENTSP
				movl	GAPS.6069@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, GAPS.6069@GOTOFF(%ebx)
				cmpl	$544, -20(%ebp)
				jne	.L559
				movl	SGAPS.6070@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, SGAPS.6070@GOTOFF(%ebx)
				nop
		.L536:
  340        %FINISH %ELSE %START
				jmp	.L541
		.L559:
				jmp	.L541
		.L557:
  341           JUSTIFY %IF JUST # 0
				movl	JUST.6052@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L560
				movl	%esi, %ecx
				call	JUSTIFY.6328
				jmp	.L538
		.L560:
				nop
		.L538:
  342           PRINT DOC LINE
				movl	%esi, %ecx
				call	PRINTDOCLINE.6289
  343           PRINT SOURCE LINE %IF SMAX # 0
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L561
				movl	%esi, %ecx
				call	PRINTSOURCELINE.6166
				jmp	.L541
		.L524:
		.L540:
		.L551:
				nop
		.L541:
  344        %FINISH
  345     %FINISH
  346     I = 0
				movl	$0, -28(%ebp)
		.L542:
  347     %WHILE I # SIZE %CYCLE
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				cmpl	%eax, -28(%ebp)
				je	.L562
				nop
		.L544:
  348        COLS = COLS+1;  I = I+1
				movl	COLS.6064@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, COLS.6064@GOTOFF(%ebx)
				addl	$1, -28(%ebp)
  349        BUFF(COLS) = ABUFF(I)
				movl	-28(%ebp), %eax
				leal	-1(%eax), %ecx
				movl	COLS.6064@GOTOFF(%ebx), %eax
				leal	-1(%eax), %edx
				leal	1508(%ecx), %eax
				movl	8(%esi,%eax,4), %eax
				addl	$1108, %edx
				movl	%eax, 8(%esi,%edx,4)
  350     %REPEAT
				jmp	.L542
		.L562:
  351     TEXTCOLS = COLS
				movl	COLS.6064@GOTOFF(%ebx), %eax
				movl	%eax, TEXTCOLS.6065@GOTOFF(%ebx)
  352 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L546
				call	__stack_chk_fail_local
		.L546:
				addl	$48, %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE203:
		SKIP.6422:
		.LFB205:
  353
  354 %ROUTINE PROCESS DIRECTIVE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$604, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %edi
				movl	%edi, -608(%ebp)
				movl	%ecx, -604(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -544(%ebp)
				movl	%edi, -548(%ebp)
  355 %INTEGER D,C,T
  356 %SWITCH S('A':'Z')
  357 %ROUTINESPEC ASSIGN
  358
  359 %ROUTINE SKIP
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$32, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %esi
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %ecx
				movl	%ecx, -12(%ebp)
				xorl	%ecx, %ecx
  360     SMAX = SMAX+1;  SBUFF(SMAX) = NEXT
				movl	SMAX.6072@GOTOFF(%eax), %edx
				addl	$1, %edx
				movl	%edx, SMAX.6072@GOTOFF(%eax)
				movl	SMAX.6072@GOTOFF(%eax), %edx
				leal	-1(%edx), %ebx
				movl	NEXT.6074@GOTOFF(%eax), %ecx
				movl	(%esi), %edx
				addl	$1308, %ebx
				movl	%ecx, 8(%edx,%ebx,4)
				leal	NEXT.6074@GOTOFF(%eax), %edx
				movl	%edx, -16(%ebp)
		.LBB258:
		.LBB259:
				subl	$12, %esp
				pushl	-16(%ebp)
				movl	%eax, %ebx
				call	_imp_readsymbol@PLT
				addl	$16, %esp
		.LBE259:
		.LBE258:
  361     READ SYMBOL(NEXT)
  362 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L565
				call	__stack_chk_fail_local
		.L565:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE205:
		PROCESSDIRECTIVE.6384:
		.LFB204:
  363
  364 %ROUTINE READ NUM
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$32, %esp
				call	__x86.get_pc_thunk.si
				addl	$_GLOBAL_OFFSET_TABLE_, %esi
				movl	%ecx, %ebx
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  365     RELIND = 0;  NUM = 1
				movl	(%ebx), %eax
				movl	$0, %edx
				movl	%edx, 6840(%eax)
				movl	(%ebx), %eax
				movl	$1, %edx
				movl	%edx, 4436(%eax)
  366     RELIND = NEXT %AND SKIP %IF NEXT = '+' %OR NEXT = '-'
				movl	NEXT.6074@GOTOFF(%esi), %eax
				cmpl	$43, %eax
				je	.L814
				movl	NEXT.6074@GOTOFF(%esi), %eax
				cmpl	$45, %eax
				jne	.L815
				jmp	.L801
		.L814:
				nop
		.L801:
				movl	(%ebx), %eax
				movl	NEXT.6074@GOTOFF(%esi), %edx
				movl	%edx, 6840(%eax)
				movl	%ebx, %ecx
				call	SKIP.6422
				jmp	.L802
		.L815:
				nop
		.L802:
		.LBB272:
  367     %IF '0' <= NEXT <= '9' %START
				movl	NEXT.6074@GOTOFF(%esi), %eax
				movl	%eax, -20(%ebp)
				cmpl	$47, -20(%ebp)
				jle	.L816
				cmpl	$57, -20(%ebp)
				jg	.L817
		.LBE272:
				nop
				jmp	.L809
		.L817:
				nop
				jmp	.L809
		.L818:
		.LBE274:
		.LBB275:
  368        NUM = NEXT-'0';  SKIP
				movl	NEXT.6074@GOTOFF(%esi), %eax
				leal	-48(%eax), %edx
				movl	(%ebx), %eax
				movl	%edx, 4436(%eax)
				movl	%ebx, %ecx
				call	SKIP.6422
		.L806:
		.LBB273:
  369        NUM = 10*NUM-'0'+NEXT %AND SKIP %WHILE '0' <= NEXT <= '9'
				movl	NEXT.6074@GOTOFF(%esi), %eax
				movl	%eax, -16(%ebp)
				cmpl	$47, -16(%ebp)
				jle	.L818
				cmpl	$57, -16(%ebp)
				jg	.L819
		.LBE273:
				movl	(%ebx), %eax
				movl	4436(%eax), %edx
				movl	%edx, %eax
				sall	$2, %eax
				addl	%edx, %eax
				addl	%eax, %eax
				leal	-48(%eax), %edx
				movl	NEXT.6074@GOTOFF(%esi), %eax
				addl	%eax, %edx
				movl	(%ebx), %eax
				movl	%edx, 4436(%eax)
				movl	%ebx, %ecx
				call	SKIP.6422
				jmp	.L806
		.L804:
		.L816:
		.LBB274:
				nop
				jmp	.L809
		.L819:
				nop
		.L809:
		.LBE275:
  370     %FINISH
  371     NUM = -NUM %IF RELIND = '-'
				movl	(%ebx), %eax
				movl	6840(%eax), %eax
				cmpl	$45, %eax
				jne	.L820
				movl	(%ebx), %eax
				movl	4436(%eax), %eax
				negl	%eax
				movl	%eax, %edx
				movl	(%ebx), %eax
				movl	%edx, 4436(%eax)
				nop
		.L811:
  372 %END
				jmp	.L811
		.L820:
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L813
				call	__stack_chk_fail_local
		.L813:
				addl	$32, %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE206:
		NEWCELL.6511:
		.LFB207:
  373
  374     D = DIRECTIVE&LETMASK
				movl	6844(%edi), %eax
				andl	$95, %eax
				movl	%eax, -580(%ebp)
  375     %IF XLINES # 0 %START
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L737
				nop
		.L568:
  376        FAULT(6) %IF XLINES > 0 %OR TEXTCOLS # 0
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jg	.L738
				movl	TEXTCOLS.6065@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L739
				jmp	.L570
		.L738:
				nop
		.L570:
				subl	$12, %esp
				pushl	$6
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L571
		.L739:
				nop
		.L571:
  377        XLINES = 1;  RESET DOC LINE
				movl	$1, XLINES.6057@GOTOFF(%ebx)
				movl	-608(%ebp), %ecx
				call	RESETDOCLINE.6252
				jmp	.L568
		.L737:
  378     %FINISH
  379     %IF TEXTCOLS # 0 %AND 'C' # D # 'T' %START
				movl	TEXTCOLS.6065@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L740
		.LBB260:
				movl	-580(%ebp), %eax
				movl	%eax, -576(%ebp)
				cmpl	$67, -576(%ebp)
				je	.L741
				cmpl	$84, -576(%ebp)
				je	.L742
		.LBE260:
				nop
				jmp	.L584
		.L741:
		.LBB261:
				nop
				jmp	.L584
		.L742:
				nop
				jmp	.L584
		.L747:
		.LBE261:
  380       %IF D = NL %START
				cmpl	$10, -580(%ebp)
				jne	.L743
				nop
		.L577:
  381          STORE(' ') %IF SMAX # 0;  STORE(ESCAPE)
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L744
				subl	$12, %esp
				pushl	$32
				movl	-608(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				jmp	.L579
		.L744:
				nop
		.L579:
				movl	ESCAPE.6054@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-608(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				jmp	.L577
		.L743:
  382       %FINISH
  383        JUSTIFY %IF JUST # 0 %AND D = 'J'
				movl	JUST.6052@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L745
				cmpl	$74, -580(%ebp)
				jne	.L746
				movl	-608(%ebp), %ecx
				call	JUSTIFY.6328
				jmp	.L581
		.L745:
				nop
				jmp	.L581
		.L746:
				nop
		.L581:
  384        PRINT DOC LINE
				movl	-608(%ebp), %ecx
				call	PRINTDOCLINE.6289
  385        PRINT SOURCE LINE %IF SMAX # 0
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L747
				movl	-608(%ebp), %ecx
				call	PRINTSOURCELINE.6166
				jmp	.L584
		.L573:
		.L740:
				nop
		.L584:
  386     %FINISH
  387     PRINT SOURCE LINE %IF SMAX+5 > SLINE
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				leal	5(%eax), %edx
				movl	SLINE.6032@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jle	.L748
				movl	-608(%ebp), %ecx
				call	PRINTSOURCELINE.6166
				jmp	.L586
		.L748:
				nop
		.L586:
  388    %RETURN %IF D = NL
				cmpl	$10, -580(%ebp)
				je	.L749
				nop
		.L588:
				nop
				jmp	.L566
		.L776:
  389     STORE(' ') %IF SMAX # 0
				movl	SMAX.6072@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L750
				subl	$12, %esp
				pushl	$32
				movl	-608(%ebp), %ecx
				call	STORE.6175
				addl	$16, %esp
				jmp	.L591
		.L750:
				nop
		.L591:
  390     STORE(ESCAPE);  STORE(DIRECTIVE)
				movl	ESCAPE.6054@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-608(%ebp), %edi
				movl	%edi, %ecx
				call	STORE.6175
				addl	$16, %esp
				movl	%edi, %ecx
				movl	6844(%ecx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	%edi, %ecx
				call	STORE.6175
				addl	$16, %esp
  391     READ NUM
				leal	-548(%ebp), %eax
				movl	%eax, %ecx
				call	READNUM.6425
  392     ->S(D)
				movl	$392, -572(%ebp)
				leal	.LC12@GOTOFF(%ebx), %eax
				movl	%eax, -568(%ebp)
				movl	-580(%ebp), %eax
				movl	%eax, -564(%ebp)
				nop
		.L592:
  393
  394 S('A'):  !ASSIGN
  395     %CYCLE
  396        ASSIGN
				leal	-548(%ebp), %eax
				movl	%eax, %ecx
				call	ASSIGN.6420
		.L595:
  397        SKIP %WHILE NEXT # ';' %AND NEXT # NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$59, %eax
				je	.L751
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				je	.L752
				leal	-548(%ebp), %eax
				movl	%eax, %ecx
				call	SKIP.6422
				jmp	.L595
		.L751:
				nop
				jmp	.L597
		.L752:
				nop
		.L597:
  398        %EXIT %IF NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				je	.L753
				nop
		.L600:
				nop
		.L601:
  399        SKIP
				leal	-548(%ebp), %eax
				movl	%eax, %ecx
				call	SKIP.6422
  400     %REPEAT
				jmp	.L593
		.L753:
  401     PAGE = 999 %IF PAGE <= 0
				movl	PAGE.6030@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jg	.L754
				movl	$999, PAGE.6030@GOTOFF(%ebx)
				jmp	.L603
		.L754:
				nop
		.L603:
  402     INVERT = 32 %IF INVERT # 0;  INVERTO = 32 %IF INVERTO # 0
				movl	INVERT.6045@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L755
				movl	$32, INVERT.6045@GOTOFF(%ebx)
				jmp	.L605
		.L755:
				nop
		.L605:
				movl	INVERTO.6050@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L756
				movl	$32, INVERTO.6050@GOTOFF(%ebx)
				jmp	.L607
		.L756:
				nop
		.L607:
		.LBB262:
  403     FAULT(7) %AND INDENT = 0 %UNLESS 0 <= INDENT <= VBOUND
				movl	INDENT.6036@GOTOFF(%ebx), %eax
				movl	%eax, -552(%ebp)
				cmpl	$0, -552(%ebp)
				js	.L757
				cmpl	$25, -552(%ebp)
				jle	.L758
		.LBE262:
				jmp	.L609
		.L757:
		.LBB263:
				nop
		.L609:
		.LBE263:
				subl	$12, %esp
				pushl	$7
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
				movl	$0, INDENT.6036@GOTOFF(%ebx)
				jmp	.L610
		.L758:
		.LBB264:
				nop
		.L610:
		.LBE264:
  404     INDENTCOL = TAB(INDENT)
				movl	INDENT.6036@GOTOFF(%ebx), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, INDENTCOL.6073@GOTOFF(%ebx)
  405     SET COLUMN(INDENTCOL)
				movl	INDENTCOL.6073@GOTOFF(%ebx), %eax
				subl	$12, %esp
				pushl	%eax
				movl	-608(%ebp), %ecx
				call	SETCOLUMN.6233
				addl	$16, %esp
  406     %RETURN
				jmp	.L566
		.L611:
  407 S('B'):  !BLANKS
  408     %IF LINES # 0 %OR XPAGE # 0 %START
				movl	LINES.6066@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L759
				movl	XPAGE.6063@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L760
				jmp	.L613
		.L759:
				nop
		.L613:
				nop
				jmp	.L566
		.L762:
  409        NUM = NUM*NLS
				movl	-608(%ebp), %edi
				movl	4436(%edi), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				imull	%edx, %eax
				movl	%eax, 4436(%edi)
  410        NUM = PAGE-LINES %IF PAGE-LINES < NUM
				movl	PAGE.6030@GOTOFF(%ebx), %edx
				movl	LINES.6066@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	4436(%edi), %eax
				cmpl	%eax, %edx
				jge	.L761
				movl	PAGE.6030@GOTOFF(%ebx), %edx
				movl	LINES.6066@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	-608(%ebp), %edx
				movl	%eax, 4436(%edx)
				jmp	.L619
		.L616:
		.L761:
				nop
		.L617:
		.L619:
  411        PRINT DOC LINE %AND NUM = NUM-NLS %WHILE NUM > 0
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				testl	%eax, %eax
				jle	.L762
				movl	-608(%ebp), %esi
				movl	%esi, %ecx
				call	PRINTDOCLINE.6289
				movl	4436(%esi), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, 4436(%esi)
				jmp	.L619
		.L614:
		.L760:
				nop
		.L620:
  412     %FINISH
  413     %RETURN
				jmp	.L566
		.L621:
  414 S('C'):  !COL
  415     NUM = COLS+1+NUM %IF RELIND # 0
				movl	-608(%ebp), %eax
				movl	6840(%eax), %eax
				testl	%eax, %eax
				je	.L763
				movl	COLS.6064@GOTOFF(%ebx), %eax
				leal	1(%eax), %edx
				movl	-608(%ebp), %edi
				movl	4436(%edi), %eax
				addl	%edx, %eax
				movl	%eax, 4436(%edi)
				jmp	.L623
		.L763:
				nop
		.L623:
  416     SET COLUMN(NUM)
				movl	-608(%ebp), %ecx
				movl	4436(%ecx), %eax
				subl	$12, %esp
				pushl	%eax
				call	SETCOLUMN.6233
				addl	$16, %esp
  417     %RETURN
				jmp	.L566
		.L624:
		.L625:
  418 S('E'): !END
  419     PRINT DOC LINE %WHILE LINES # 0 %AND PAGE < 999
				movl	LINES.6066@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L764
				movl	PAGE.6030@GOTOFF(%ebx), %eax
				cmpl	$998, %eax
				jg	.L765
				movl	-608(%ebp), %ecx
				call	PRINTDOCLINE.6289
				jmp	.L624
		.L764:
				nop
				jmp	.L627
		.L765:
				nop
		.L627:
  420     FINISH = PAGES;  NEXT = NL
				movl	PAGES.6067@GOTOFF(%ebx), %eax
				movl	%eax, FINISH.6040@GOTOFF(%ebx)
				movl	$10, NEXT.6074@GOTOFF(%ebx)
  421     %RETURN
				jmp	.L566
		.L629:
  422 S('I'):  !INDENT
  423     NUM = INDENT+NUM %IF RELIND # 0
				movl	-608(%ebp), %eax
				movl	6840(%eax), %eax
				testl	%eax, %eax
				je	.L766
				movl	INDENT.6036@GOTOFF(%ebx), %edx
				movl	-608(%ebp), %esi
				movl	4436(%esi), %eax
				addl	%edx, %eax
				movl	%eax, 4436(%esi)
				jmp	.L631
		.L766:
				nop
		.L631:
		.LBB265:
  424     FAULT(7) %AND NUM = 0 %UNLESS 0 <= NUM <= VBOUND
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				movl	%eax, -556(%ebp)
				cmpl	$0, -556(%ebp)
				js	.L767
				cmpl	$25, -556(%ebp)
				jle	.L768
		.LBE265:
				jmp	.L633
		.L767:
		.LBB266:
				nop
		.L633:
		.LBE266:
				subl	$12, %esp
				pushl	$7
				movl	-608(%ebp), %edi
				movl	%edi, %ecx
				call	FAULT.6092
				addl	$16, %esp
				movl	$0, %eax
				movl	%edi, %edx
				movl	%eax, 4436(%edx)
				jmp	.L634
		.L768:
		.LBB267:
				nop
		.L634:
		.LBE267:
  425     NUM = TAB(NUM)
				movl	-608(%ebp), %esi
				movl	4436(%esi), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, 4436(%esi)
  426     SET COLUMN(NUM)
				movl	4436(%esi), %eax
				subl	$12, %esp
				pushl	%eax
				movl	%esi, %ecx
				call	SETCOLUMN.6233
				addl	$16, %esp
  427     %RETURN
				jmp	.L566
		.L635:
  428 S('J'):  !JUSTIFY (DONE)
  429     %RETURN
				jmp	.L566
		.L636:
  430 S('L'):  !LINES
  431     XLINES = NUM;  XLINES = -1 %IF XLINES = 0
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				movl	%eax, XLINES.6057@GOTOFF(%ebx)
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L769
				movl	$-1, XLINES.6057@GOTOFF(%ebx)
				jmp	.L638
		.L769:
				nop
		.L638:
  432     INDENTIND = 0
				movl	$0, INDENTIND.6061@GOTOFF(%ebx)
		.L639:
  433     %WHILE NEXT # NL %CYCLE
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				je	.L770
				nop
		.L641:
  434        LINECAPIND = CASEBIT %IF NEXT&LETMASK = 'C'
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L771
				movl	$32, LINECAPIND.6058@GOTOFF(%ebx)
				jmp	.L643
		.L771:
				nop
		.L643:
  435        LINEUNDIND = UNDBIT %IF NEXT&LETMASK = 'U'
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L772
				movl	$128, LINEUNDIND.6059@GOTOFF(%ebx)
				jmp	.L645
		.L772:
				nop
		.L645:
  436        LINEMIDIND = 1 %IF NEXT&LETMASK = 'M'
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L773
				movl	$1, LINEMIDIND.6060@GOTOFF(%ebx)
				jmp	.L647
		.L773:
				nop
		.L647:
  437        INDENTIND = 1 %IF NEXT&LETMASK = 'I'
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L774
				movl	$1, INDENTIND.6061@GOTOFF(%ebx)
				jmp	.L649
		.L774:
				nop
		.L649:
  438        SKIP
				leal	-548(%ebp), %eax
				movl	%eax, %ecx
				call	SKIP.6422
  439     %REPEAT
				jmp	.L639
		.L770:
  440     COLS = 0 %AND FIXED = 0 %IF INDENTIND = 0
				movl	INDENTIND.6061@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L775
				movl	$0, COLS.6064@GOTOFF(%ebx)
				movl	$0, FIXED.6068@GOTOFF(%ebx)
				nop
		.L651:
  441     %RETURN
				jmp	.L566
		.L775:
				jmp	.L566
		.L652:
		.L653:
  442 S('S'):  !NEW SECTION
  443 S('N'):  !NEWPAGE
  444     %RETURN %IF PAGE >= 999
				movl	PAGE.6030@GOTOFF(%ebx), %eax
				cmpl	$998, %eax
				jg	.L776
				nop
		.L655:
		.L656:
				nop
		.L566:
  445     PRINT DOC LINE %WHILE LINES # 0
				movl	LINES.6066@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L777
				movl	-608(%ebp), %ecx
				call	PRINTDOCLINE.6289
				jmp	.L655
		.L777:
				nop
		.L658:
  446     XPAGE = 1
				movl	$1, XPAGE.6063@GOTOFF(%ebx)
  447     %IF D = 'S' %AND SECTNO # 0 %START
				cmpl	$83, -580(%ebp)
				jne	.L778
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L779
				nop
				jmp	.L566
		.L779:
				nop
		.L660:
  448        SECTNO = SECTNO + 1;  PAGENO = 1
				movl	SECTNO.6037@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, SECTNO.6037@GOTOFF(%ebx)
				movl	$1, PAGENO.6038@GOTOFF(%ebx)
  449       TURN PAGE
				movl	-608(%ebp), %ecx
				call	TURNPAGE.6258
  450     %FINISH
  451     %RETURN
				jmp	.L566
		.L778:
				jmp	.L566
		.L662:
  452 S('P'):  !PARAGRAPH
  453     %IF LINES # 0 %START
				movl	LINES.6066@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L780
				nop
				jmp	.L670
		.L782:
  454        NUM = NUM*NLS
				movl	-608(%ebp), %esi
				movl	4436(%esi), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				imull	%edx, %eax
				movl	%eax, 4436(%esi)
  455        NUM = PAGE-LINES %IF PAGE-LINES < NUM+2
				movl	PAGE.6030@GOTOFF(%ebx), %edx
				movl	LINES.6066@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	4436(%esi), %eax
				addl	$2, %eax
				cmpl	%eax, %edx
				jge	.L781
				movl	PAGE.6030@GOTOFF(%ebx), %edx
				movl	LINES.6066@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	-608(%ebp), %edx
				movl	%eax, 4436(%edx)
				jmp	.L669
		.L666:
		.L781:
				nop
		.L667:
		.L669:
  456        PRINT DOC LINE %AND NUM = NUM-NLS %WHILE NUM > 0
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				testl	%eax, %eax
				jle	.L782
				movl	-608(%ebp), %edi
				movl	%edi, %ecx
				call	PRINTDOCLINE.6289
				movl	4436(%edi), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, 4436(%edi)
				jmp	.L669
		.L664:
		.L780:
				nop
		.L670:
  457     %FINISH
  458     SET COLUMN(COLS+1+PGAP)
				movl	COLS.6064@GOTOFF(%ebx), %eax
				leal	1(%eax), %edx
				movl	PGAP.6035@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				subl	$12, %esp
				pushl	%eax
				movl	-608(%ebp), %ecx
				call	SETCOLUMN.6233
				addl	$16, %esp
  459     %RETURN
				jmp	.L566
		.L671:
  460 S('T'):  !TAB
  461     %IF RELIND # 0 %START
				movl	-608(%ebp), %eax
				movl	6840(%eax), %eax
				testl	%eax, %eax
				je	.L783
				nop
		.L673:
		.LBB268:
  462        T = 0;  C = COLS+1
				movl	$0, -584(%ebp)
				movl	COLS.6064@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, -588(%ebp)
  463        %IF RELIND = '+' %START
				movl	-608(%ebp), %eax
				movl	6840(%eax), %eax
				cmpl	$43, %eax
				je	.L784
				jmp	.L675
		.L784:
  464           %WHILE NUM > 0 %CYCLE
				nop
		.L674:
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				testl	%eax, %eax
				jle	.L785
				nop
		.L677:
  465              T = T+1 %UNTIL T > VBOUND %OR TAB(T) > C
				nop
		.L676:
				addl	$1, -584(%ebp)
				cmpl	$25, -584(%ebp)
				jg	.L786
				movl	-584(%ebp), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				cmpl	%eax, -588(%ebp)
				jl	.L787
				jmp	.L676
		.L786:
				nop
				jmp	.L679
		.L787:
				nop
		.L679:
  466              FAULT(7) %AND %RETURN %IF T > VBOUND
				cmpl	$25, -584(%ebp)
				jle	.L788
				subl	$12, %esp
				pushl	$7
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L566
		.L788:
				nop
		.L682:
  467              C = TAB(T)
				movl	-584(%ebp), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, -588(%ebp)
  468              NUM = NUM-1
				movl	-608(%ebp), %esi
				movl	4436(%esi), %eax
				subl	$1, %eax
				movl	%eax, 4436(%esi)
  469           %REPEAT
				jmp	.L674
		.L785:
  470        %FINISH %ELSE %START
				jmp	.L696
		.L675:
		.L684:
  471           T = T+1 %UNTIL T > VBOUND %OR TAB(T) >= C
				addl	$1, -584(%ebp)
				cmpl	$25, -584(%ebp)
				jg	.L789
				movl	-584(%ebp), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				cmpl	%eax, -588(%ebp)
				jle	.L790
				jmp	.L675
		.L686:
		.L789:
				nop
				jmp	.L695
		.L790:
				nop
		.L688:
		.L695:
  472           %WHILE NUM < 0 %CYCLE
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				testl	%eax, %eax
				jns	.L791
				nop
		.L696:
  473              T = T-1 %UNTIL T < 0 %OR TAB(T) < C
				nop
		.L689:
				subl	$1, -584(%ebp)
				cmpl	$0, -584(%ebp)
				js	.L792
				movl	-584(%ebp), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				cmpl	%eax, -588(%ebp)
				jg	.L793
				jmp	.L689
		.L792:
				nop
				jmp	.L691
		.L793:
				nop
		.L691:
  474              FAULT(7) %AND %RETURN %IF T < 0
				cmpl	$0, -584(%ebp)
				jns	.L794
				subl	$12, %esp
				pushl	$7
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L566
		.L794:
				nop
		.L694:
  475              C = TAB(T)
				movl	-584(%ebp), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, -588(%ebp)
  476              NUM = NUM+1
				movl	-608(%ebp), %edi
				movl	4436(%edi), %eax
				addl	$1, %eax
				movl	%eax, 4436(%edi)
  477           %REPEAT
				jmp	.L695
		.L683:
		.L791:
  478        %FINISH
  479     %FINISH %ELSE %START
				jmp	.L697
		.L783:
  480        FAULT(7) %AND %RETURN %UNLESS 0 <= NUM <= VBOUND
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				movl	%eax, -560(%ebp)
				cmpl	$0, -560(%ebp)
				js	.L795
				cmpl	$25, -560(%ebp)
				jle	.L796
		.LBE268:
				jmp	.L699
		.L795:
		.LBB269:
				nop
		.L699:
		.LBE269:
				subl	$12, %esp
				pushl	$7
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L566
		.L796:
		.LBB270:
				nop
		.L700:
		.LBE270:
  481        C = TAB(NUM)
				movl	-608(%ebp), %eax
				movl	4436(%eax), %eax
				movl	TAB.6055@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, -588(%ebp)
		.L697:
  482     %FINISH
  483     SET COLUMN(C)
				subl	$12, %esp
				pushl	-588(%ebp)
				movl	-608(%ebp), %ecx
				call	SETCOLUMN.6233
				addl	$16, %esp
  484     %RETURN
				jmp	.L566
		.L701:
  485 S('V'):  !VERIFY
  486     %IF PAGE-LINES < NUM*NLS %START
				movl	PAGE.6030@GOTOFF(%ebx), %edx
				movl	LINES.6066@GOTOFF(%ebx), %eax
				movl	%edx, %ecx
				subl	%eax, %ecx
				movl	-608(%ebp), %eax
				movl	4436(%eax), %edx
				movl	NLS.6033@GOTOFF(%ebx), %eax
				imull	%edx, %eax
				cmpl	%eax, %ecx
				jge	.L797
				nop
				jmp	.L566
		.L798:
  487        PRINT DOC LINE %WHILE LINES # 0
				nop
		.L702:
				movl	LINES.6066@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L798
				movl	-608(%ebp), %ecx
				call	PRINTDOCLINE.6289
				jmp	.L702
		.L703:
		.L797:
				nop
		.L705:
  488     %FINISH
  489     %RETURN
				jmp	.L566
		.L706:
				jmp	.L719
		.L707:
				jmp	.L719
		.L708:
				jmp	.L719
		.L709:
				jmp	.L719
		.L710:
				jmp	.L719
		.L711:
				jmp	.L719
		.L712:
				jmp	.L719
		.L713:
				jmp	.L719
		.L714:
				jmp	.L719
		.L715:
				jmp	.L719
		.L716:
				jmp	.L719
		.L717:
				jmp	.L719
		.L718:
		.L719:
  490 S('D'): S('F'): S('G'): S('H'):
  491 S('K'): S('M'): S('O'): S('Q'): S('R'):
  492 S('U'): S('W'): S('X'): S('Y'): S('Z'):
  493     FAULT(5)
				subl	$12, %esp
				pushl	$5
				movl	-608(%ebp), %ecx
				call	FAULT.6092
				addl	$16, %esp
  494     %RETURN
				jmp	.L566
		.L728:
  495
  496
  497 %INTEGERFN NEWCELL(%INTEGER H,T)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.dx
				addl	$_GLOBAL_OFFSET_TABLE_, %edx
				movl	%ecx, %eax
				movl	%ecx, -28(%ebp)
				movl	%gs:20, %ebx
				movl	%ebx, -12(%ebp)
				xorl	%ebx, %ebx
  498 %INTEGER P
  499     %STOP %IF FREELIST = 0
				movl	(%eax), %ecx
				movl	4432(%ecx), %ecx
				testl	%ecx, %ecx
				jne	.L827
				movl	$0, -16(%ebp)
		.LBB276:
		.LBB277:
				subl	$12, %esp
				pushl	-16(%ebp)
				movl	%edx, %ebx
				call	exit@PLT
		.L827:
		.LBE277:
		.LBE276:
				nop
		.L823:
  500     P = FREELIST;  FREELIST = HEAD(FREELIST)
				movl	(%eax), %edx
				movl	4432(%edx), %edx
				movl	%edx, -20(%ebp)
				movl	(%eax), %edx
				movl	4432(%edx), %edx
				leal	-1(%edx), %ebx
				movl	(%eax), %ecx
				movl	(%eax), %edx
				addl	$608, %ebx
				movl	(%ecx,%ebx,4), %ecx
				movl	%ecx, 4432(%edx)
  501     HEAD(P) = H;  TAIL(P) = T
				movl	-20(%ebp), %edx
				leal	-1(%edx), %ecx
				movl	(%eax), %edx
				leal	608(%ecx), %ebx
				movl	8(%ebp), %ecx
				movl	%ecx, (%edx,%ebx,4)
				movl	-20(%ebp), %edx
				subl	$1, %edx
				movl	(%eax), %eax
				leal	108(%edx), %ecx
				movl	12(%ebp), %edx
				movl	%edx, (%eax,%ecx,4)
  502     %RESULT = P
				movl	-20(%ebp), %eax
  503 %END
				movl	-12(%ebp), %ebx
				xorl	%gs:20, %ebx
				je	.L825
				call	__stack_chk_fail_local
		.L825:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE207:
		POP.6516:
		.LFB208:
  504
  505 %ROUTINE POP(%INTEGERNAME L)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	8(%ebp), %eax
				movl	%eax, -28(%ebp)
				movl	%ecx, %eax
				movl	%ecx, -32(%ebp)
				movl	%gs:20, %ebx
				movl	%ebx, -12(%ebp)
				xorl	%ebx, %ebx
  506     HEAD(L) = FREELIST;  FREELIST = L
				movl	-28(%ebp), %edx
				movl	(%edx), %edx
				leal	-1(%edx), %ebx
				movl	(%eax), %edx
				movl	4432(%edx), %ecx
				movl	(%eax), %edx
				addl	$608, %ebx
				movl	%ecx, (%edx,%ebx,4)
				movl	(%eax), %edx
				movl	-28(%ebp), %ecx
				movl	(%ecx), %ecx
				movl	%ecx, 4432(%edx)
  507     L = TAIL(L)
				movl	-28(%ebp), %edx
				movl	(%edx), %edx
				subl	$1, %edx
				movl	(%eax), %eax
				addl	$108, %edx
				movl	(%eax,%edx,4), %edx
				movl	-28(%ebp), %eax
				movl	%edx, (%eax)
  508 %END
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L830
				call	__stack_chk_fail_local
		.L830:
				addl	$36, %esp
				popl	%ebx
				popl	%ebp
				ret
		.LFE208:
		GET.6573:
		.LFB211:
  509
  510 %ROUTINE ASSIGN
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$60, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%ecx, -60(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -32(%ebp)
				movl	%esi, -36(%ebp)
  511 %OWNINTEGER NAMEMAX = 32
  512 %INTEGER I,J,K
  513 %ROUTINESPEC READ NAME(%INTEGERNAME ORDINAL)
  514 %INTEGERMAPSPEC MAP(%INTEGER I)
  515
  516     READ NAME(I);  %RETURN %IF I = 0
				subl	$12, %esp
				leal	-36(%ebp), %eax
				leal	-48(%ebp), %edx
				pushl	%edx
				movl	%eax, %ecx
				call	READNAME.6526
				addl	$16, %esp
				movl	-48(%ebp), %eax
				testl	%eax, %eax
				je	.L942
				nop
		.L877:
		.L879:
				nop
				jmp	.L875
		.L955:
  517     SKIP %WHILE NEXT = ' '
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				jne	.L943
				movl	%esi, %ecx
				call	SKIP.6422
				jmp	.L877
		.L943:
				nop
		.L881:
  518     %IF NEXT = '<' %OR NEXT = '>' %START
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$60, %eax
				je	.L944
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$62, %eax
				jne	.L945
				jmp	.L883
		.L944:
				nop
		.L883:
				nop
				jmp	.L898
		.L951:
  519        J = I
				movl	-48(%ebp), %eax
				movl	%eax, -44(%ebp)
		.L885:
  520        %CYCLE
  521           %IF NEXT = '<' %THEN LINK(J) = NEWCELL(MAP(J),LINK(J)) %C
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$60, %eax
				jne	.L946
				movl	-44(%ebp), %eax
				leal	-1(%eax), %edx
				movl	(%esi), %eax
				movl	(%eax,%edx,4), %edi
				movl	-44(%ebp), %edx
				subl	$12, %esp
				leal	-36(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	MAP.6528
				addl	$16, %esp
				movl	(%eax), %eax
				movl	-44(%ebp), %edx
				leal	-1(%edx), %ecx
				movl	%ecx, -64(%ebp)
				subl	$8, %esp
				pushl	%edi
				pushl	%eax
				movl	%esi, %ecx
				call	NEWCELL.6511
				addl	$16, %esp
				movl	%eax, %edx
				movl	(%esi), %eax
				movl	-64(%ebp), %ecx
				movl	%edx, (%eax,%ecx,4)
				jmp	.L888
		.L946:
				nop
		.L887:
  522           %ELSE %START
  523              MAP(J) = HEAD(LINK(J));  POP(LINK(J))
				movl	-44(%ebp), %eax
				leal	-1(%eax), %edx
				movl	(%esi), %eax
				movl	(%eax,%edx,4), %eax
				leal	-1(%eax), %edi
				movl	-44(%ebp), %edx
				subl	$12, %esp
				leal	-36(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	MAP.6528
				addl	$16, %esp
				movl	%eax, %ecx
				movl	(%esi), %eax
				leal	608(%edi), %edx
				movl	(%eax,%edx,4), %eax
				movl	%eax, (%ecx)
				movl	-44(%ebp), %eax
				leal	-1(%eax), %edx
				movl	(%esi), %eax
				sall	$2, %edx
				addl	%edx, %eax
				subl	$12, %esp
				pushl	%eax
				movl	%esi, %ecx
				call	POP.6516
				addl	$16, %esp
		.L888:
  524           %FINISH
  525           J = J+1
				movl	-44(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -44(%ebp)
  526           %EXIT %IF J < NAMEMAX %OR J = 57
				movl	-44(%ebp), %edx
				movl	NAMEMAX.6521@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L947
				movl	-44(%ebp), %eax
				cmpl	$57, %eax
				jne	.L948
				jmp	.L890
		.L947:
				nop
		.L890:
				jmp	.L892
		.L948:
				nop
		.L891:
  527        %REPEAT
				jmp	.L885
		.L892:
		.L893:
  528        SKIP %UNTIL NEXT # ' '
				movl	%esi, %ecx
				call	SKIP.6422
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				jne	.L949
				jmp	.L892
		.L949:
				nop
		.L895:
  529        %RETURN %IF NEXT = ';' %OR NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$59, %eax
				je	.L950
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				jne	.L951
				jmp	.L897
		.L950:
				nop
		.L897:
				jmp	.L875
		.L884:
		.L945:
				nop
		.L898:
  530     %FINISH
  531     FAULT(1) %AND %RETURN %IF NEXT # '='
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$61, %eax
				jne	.L899
				jmp	.L900
		.L899:
				movl	(%esi), %eax
				subl	$12, %esp
				pushl	$1
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				jmp	.L875
		.L900:
		.L901:
		.L902:
  532     %CYCLE
  533        SKIP %UNTIL NEXT # ' '
				movl	%esi, %ecx
				call	SKIP.6422
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				jne	.L952
				jmp	.L900
		.L952:
				nop
		.L904:
		.LBB285:
  534        %IF 'A' <= NEXT&LETMASK <= 'Z' %START
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				andl	$95, %eax
				movl	%eax, -40(%ebp)
				cmpl	$64, -40(%ebp)
				jle	.L953
				cmpl	$90, -40(%ebp)
				jg	.L954
		.LBE285:
				nop
				jmp	.L906
		.L954:
				nop
		.L906:
		.LBE286:
  535           READ NAME(J);  %RETURN %IF J = 0
				subl	$12, %esp
				leal	-36(%ebp), %eax
				leal	-44(%ebp), %edx
				pushl	%edx
				movl	%eax, %ecx
				call	READNAME.6526
				addl	$16, %esp
				movl	-44(%ebp), %eax
				testl	%eax, %eax
				je	.L955
				nop
		.L909:
				nop
		.L875:
  536        %FINISH %ELSE %START
				jmp	.L924
		.L953:
		.LBB286:
  537           J = 0
				movl	$0, -44(%ebp)
  538           %IF NEXT = '''' %START
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$39, %eax
				jne	.L956
				nop
		.L912:
  539              SKIP;  !QUOTEMARK
				movl	%esi, %ecx
				call	SKIP.6422
  540              NUM = NEXT;  SKIP;  !QUOTED SYMBOL
				movl	NEXT.6074@GOTOFF(%ebx), %edx
				movl	(%esi), %eax
				movl	%edx, 4436(%eax)
				movl	%esi, %ecx
				call	SKIP.6422
  541              SKIP;  !QUOTEMARK (PRESUMABLY)
				movl	%esi, %ecx
				call	SKIP.6422
  542           %FINISH %ELSE %START
				jmp	.L924
		.L956:
  543              READ NUM
				movl	%esi, %ecx
				call	READNUM.6425
  544              NUM = MAP(I)+NUM %IF RELIND # 0
				movl	(%esi), %eax
				movl	6840(%eax), %eax
				testl	%eax, %eax
				je	.L957
				movl	-48(%ebp), %edx
				subl	$12, %esp
				leal	-36(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	MAP.6528
				addl	$16, %esp
				movl	(%eax), %edx
				movl	(%esi), %eax
				movl	4436(%eax), %eax
				addl	%eax, %edx
				movl	(%esi), %eax
				movl	%edx, 4436(%eax)
				jmp	.L924
		.L910:
		.L914:
		.L915:
		.L957:
				nop
		.L916:
		.L924:
  545           %FINISH
  546        %FINISH
  547        %CYCLE
  548           MAP(I) = MAP(J)
				movl	-44(%ebp), %edx
				subl	$12, %esp
				leal	-36(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	MAP.6528
				addl	$16, %esp
				movl	%eax, %edi
				movl	-48(%ebp), %edx
				subl	$12, %esp
				leal	-36(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	MAP.6528
				addl	$16, %esp
				movl	%eax, %edx
				movl	(%edi), %eax
				movl	%eax, (%edx)
  549           I = I+1;  J = J+1
				movl	-48(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -48(%ebp)
				movl	-44(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -44(%ebp)
  550       %EXIT %IF J < NAMEMAX %OR I < NAMEMAX %OR I = 57 %OR I = 83 %OR I = 109
				movl	-44(%ebp), %edx
				movl	NAMEMAX.6521@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L958
				movl	-48(%ebp), %edx
				movl	NAMEMAX.6521@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jl	.L959
				movl	-48(%ebp), %eax
				cmpl	$57, %eax
				je	.L960
				movl	-48(%ebp), %eax
				cmpl	$83, %eax
				je	.L961
				movl	-48(%ebp), %eax
				cmpl	$109, %eax
				jne	.L962
				jmp	.L918
		.L958:
				nop
				jmp	.L918
		.L959:
				nop
				jmp	.L918
		.L960:
				nop
				jmp	.L918
		.L961:
				nop
		.L918:
				nop
		.L923:
				nop
		.L922:
  551        %REPEAT
				jmp	.L924
		.L925:
  552        %EXIT %UNLESS NEXT = ',' %AND I > NAMEMAX
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$44, %eax
				je	.L925
				jmp	.L926
		.L962:
				movl	-48(%ebp), %edx
				movl	NAMEMAX.6521@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jg	.L963
				nop
		.L926:
				nop
		.L928:
				nop
		.L927:
  553     %REPEAT
				jmp	.L900
		.L929:
  554     FAULT(1) %UNLESS NEXT = ';' %OR NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$59, %eax
				jne	.L929
				jmp	.L930
		.L963:
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				je	.L964
				movl	(%esi), %eax
				subl	$12, %esp
				pushl	$1
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				nop
		.L930:
  555
  556 %ROUTINE READ NAME(%INTEGERNAME ORDINAL)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1084, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	8(%ebp), %eax
				movl	%eax, -1084(%ebp)
				movl	%ecx, %esi
				movl	%esi, -1092(%ebp)
				movl	%ecx, -1088(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -1048(%ebp)
				movl	%esi, -1052(%ebp)
  557 %INTEGER N1,N2
  558 %CONSTSHORTINTEGERARRAY NAME1(1:32) = 20976, 2548, 12454, 16423, 12590,
				movw	$20976, -924(%ebp)
				movw	$2548, -922(%ebp)
				movw	$12454, -920(%ebp)
				movw	$16423, -918(%ebp)
				movw	$12590, -916(%ebp)
				movw	$19849, -914(%ebp)
				movw	$14739, -912(%ebp)
				movw	$19681, -910(%ebp)
				movw	$16609, -908(%ebp)
				movw	$9668, -906(%ebp)
				movw	$19619, -904(%ebp)
				movw	$16423, -902(%ebp)
				movw	$3120, -900(%ebp)
				movw	$21956, -898(%ebp)
				movw	$3120, -896(%ebp)
				movw	$21956, -894(%ebp)
				movw	$9686, -892(%ebp)
				movw	$3120, -890(%ebp)
				movw	$21956, -888(%ebp)
				movw	$3120, -886(%ebp)
				movw	$21956, -884(%ebp)
				movw	$9686, -882(%ebp)
				movw	$1635, -880(%ebp)
				movw	$10931, -878(%ebp)
				movw	$13362, -876(%ebp)
				movw	$20097, -874(%ebp)
				movw	$6446, -872(%ebp)
				movw	$5731, -870(%ebp)
				movw	$0, -868(%ebp)
				movw	$0, -866(%ebp)
				movw	$-1, -864(%ebp)
				movw	$20514, -862(%ebp)
				leal	-1044(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-924(%ebp), %eax
				movl	%eax, -1044(%ebp)
				movl	$2, -1040(%ebp)
				movl	$1, -1036(%ebp)
				movl	$1, -1032(%ebp)
				movl	$32, -1028(%ebp)
  559     19849, 14739, 19681, 16609, 9668, 19619, 16423, 3120,
  560     21956, 3120, 21956, 9686, 3120, 21956, 3120, 21956, 9686,
  561     1635, 10931, 13362, 20097, 6446, 5731, 0, 0,
  562     -1, 20514
  563 %CONSTSHORTINTEGERARRAY NAME2(1:32) = 0, 20973, 20480, 5120, 5120,
				movw	$0, -860(%ebp)
				movw	$20973, -858(%ebp)
				movw	$20480, -856(%ebp)
				movw	$5120, -854(%ebp)
				movw	$5120, -852(%ebp)
				movw	$14496, -850(%ebp)
				movw	$0, -848(%ebp)
				movw	$16384, -846(%ebp)
				movw	$16384, -844(%ebp)
				movw	$5588, -842(%ebp)
				movw	$20943, -840(%ebp)
				movw	$5583, -838(%ebp)
				movw	$0, -836(%ebp)
				movw	$0, -834(%ebp)
				movw	$19712, -832(%ebp)
				movw	$19712, -830(%ebp)
				movw	$5716, -828(%ebp)
				movw	$15360, -826(%ebp)
				movw	$15360, -824(%ebp)
				movw	$19727, -822(%ebp)
				movw	$19727, -820(%ebp)
				movw	$15360, -818(%ebp)
				movw	$9504, -816(%ebp)
				movw	$20480, -814(%ebp)
				movw	$11264, -812(%ebp)
				movw	$19072, -810(%ebp)
				movw	$9832, -808(%ebp)
				movw	$1541, -806(%ebp)
				movw	$0, -804(%ebp)
				movw	$0, -802(%ebp)
				movw	$-1, -800(%ebp)
				movw	$0, -798(%ebp)
				leal	-984(%ebp), %edx
				movl	$0, %eax
				movl	$15, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-860(%ebp), %eax
				movl	%eax, -984(%ebp)
				movl	$2, -980(%ebp)
				movl	$1, -976(%ebp)
				movl	$1, -972(%ebp)
				movl	$32, -968(%ebp)
		.L840:
  564     14496, 0, 16384, 16384, 5588, 20943, 5583, 0,
  565     0, 19712, 19712, 5716, 15360, 15360, 19727, 19727, 15360,
  566     9504, 20480, 11264, 19072, 9832, 1541, 0, 0,
  567     -1, 0
  568
  569 %ROUTINE GET(%INTEGERNAME  K);  ! ...USED BY 'GET TRIO'
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %ebx
				movl	%ecx, -28(%ebp)
		.LBB278:
  570    K = 0 %AND %RETURN %UNLESS 'A' <= NEXT&LETMASK <= 'Z'
				movl	NEXT.6074@GOTOFF(%eax), %edx
				andl	$95, %edx
				movl	%edx, -12(%ebp)
				cmpl	$64, -12(%ebp)
				jle	.L837
				cmpl	$90, -12(%ebp)
				jle	.L838
		.LBE278:
				jmp	.L833
		.L837:
		.LBB279:
				nop
		.L833:
		.LBE279:
				movl	8(%ebp), %eax
				movl	$0, (%eax)
				jmp	.L831
		.L838:
		.LBB280:
				nop
		.L834:
		.LBE280:
  571    K = NEXT&31;  SKIP
				movl	NEXT.6074@GOTOFF(%eax), %eax
				andl	$31, %eax
				movl	%eax, %edx
				movl	8(%ebp), %eax
				movl	%edx, (%eax)
				movl	(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, %ecx
				call	SKIP.6422
  572 %END;   ! ...GET
				nop
		.L831:
				addl	$36, %esp
				popl	%ebx
				popl	%ebp
				ret
		.LFE211:
				.section	.rodata
				.align 4
		.LC19:
				.string	"Illegal cycle *ORDINAL = 1, 1, NAMEMAX"
		READNAME.6526:
		.LFB210:
  573
  574 %ROUTINE GET TRIO(%INTEGERNAME T)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$36, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	8(%ebp), %eax
				movl	%eax, -28(%ebp)
				movl	%ecx, %ebx
				movl	%ecx, -32(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
  575 %INTEGER A,B,C
  576     GET(A);  GET(B);  GET(C)
				subl	$12, %esp
				leal	-24(%ebp), %eax
				pushl	%eax
				movl	%ebx, %ecx
				call	GET.6573
				addl	$16, %esp
				subl	$12, %esp
				leal	-20(%ebp), %eax
				pushl	%eax
				movl	%ebx, %ecx
				call	GET.6573
				addl	$16, %esp
				subl	$12, %esp
				leal	-16(%ebp), %eax
				pushl	%eax
				movl	%ebx, %ecx
				call	GET.6573
				addl	$16, %esp
  577     T = (A<<5+B)<<5+C
				movl	-24(%ebp), %eax
				sall	$5, %eax
				movl	%eax, %edx
				movl	-20(%ebp), %eax
				addl	%edx, %eax
				sall	$5, %eax
				movl	%eax, %edx
				movl	-16(%ebp), %eax
				addl	%eax, %edx
				movl	-28(%ebp), %eax
				movl	%edx, (%eax)
  578 %END;  !GET TRIO
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L967
				call	__stack_chk_fail_local
		.L967:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE212:
		MAP.6528:
		.LFB213:
  579     SKIP %WHILE NEXT = ' '
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				jne	.L868
				movl	-1092(%ebp), %eax
				movl	(%eax), %eax
				movl	%eax, %ecx
				call	SKIP.6422
				jmp	.L840
		.L868:
				nop
		.L842:
  580     GET TRIO(N1);  GET TRIO(N2)
				subl	$12, %esp
				leal	-1052(%ebp), %eax
				leal	-1068(%ebp), %edx
				pushl	%edx
				movl	%eax, %ecx
				call	GETTRIO.6579
				addl	$16, %esp
				subl	$12, %esp
				leal	-1052(%ebp), %eax
				leal	-1064(%ebp), %edx
				pushl	%edx
				movl	%eax, %ecx
				call	GETTRIO.6579
				addl	$16, %esp
  581     FAULT(1) %AND ORDINAL = 0 %AND %RETURN %IF N1 = 0
				movl	-1068(%ebp), %eax
				testl	%eax, %eax
				jne	.L869
				movl	-1092(%ebp), %eax
				movl	(%eax), %eax
				movl	(%eax), %eax
				subl	$12, %esp
				pushl	$1
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				movl	-1084(%ebp), %eax
				movl	$0, (%eax)
				jmp	.L839
		.L869:
				nop
		.L844:
  582     %IF N1 = 20653 %START;  !'TEM' (TEMP)
				movl	-1068(%ebp), %eax
				cmpl	$20653, %eax
				jne	.L870
				nop
		.L847:
		.LBB281:
  583        ORDINAL = 58
				movl	-1084(%ebp), %eax
				movl	$58, (%eax)
  584        ORDINAL = 84 %IF N2 = 16448;  !'PB'
				movl	-1064(%ebp), %eax
				cmpl	$16448, %eax
				jne	.L871
				movl	-1084(%ebp), %eax
				movl	$84, (%eax)
				nop
		.L849:
  585        %RETURN
				jmp	.L839
		.L871:
				jmp	.L839
		.L870:
  586     %FINISH
  587     %CYCLE ORDINAL = 1,1,NAMEMAX
				movl	NAMEMAX.6521@GOTOFF(%ebx), %eax
				movl	%eax, -1060(%ebp)
		.LBB282:
				movl	-1060(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -1056(%ebp)
				movl	-1056(%ebp), %eax
				xorl	$1, %eax
				shrl	$31, %eax
				movzbl	%al, %eax
		.LBE282:
				testl	%eax, %eax
				je	.L850
				leal	-540(%ebp), %eax
				subl	$8, %esp
				leal	.LC19@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L851
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1096(%ebp)
				jmp	.L852
		.L851:
				movl	$587, -1096(%ebp)
		.L852:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L853
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L854
		.L853:
		.LBB283:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE283:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L854:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-1096(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L850:
				movl	-1084(%ebp), %eax
				movl	$0, (%eax)
		.L855:
				movl	-1084(%ebp), %eax
				movl	(%eax), %eax
				cmpl	%eax, -1060(%ebp)
				je	.L872
				movl	-1084(%ebp), %eax
				movl	(%eax), %eax
				leal	1(%eax), %edx
				movl	-1084(%ebp), %eax
				movl	%edx, (%eax)
				nop
		.L857:
		.LBE281:
  588        %RETURN %IF NAME1(ORDINAL) = N1 %AND NAME2(ORDINAL) = N2
				movl	-1084(%ebp), %eax
				movl	(%eax), %eax
				subl	$1, %eax
				movzwl	-924(%ebp,%eax,2), %eax
				movswl	%ax, %edx
				movl	-1068(%ebp), %eax
				cmpl	%eax, %edx
				jne	.L873
				movl	-1084(%ebp), %eax
				movl	(%eax), %eax
				subl	$1, %eax
				movzwl	-860(%ebp,%eax,2), %eax
				movswl	%ax, %edx
				movl	-1064(%ebp), %eax
				cmpl	%eax, %edx
				je	.L874
				jmp	.L859
		.L873:
				nop
		.L859:
				nop
		.L839:
		.LBE284:
  589     %REPEAT
				jmp	.L855
		.L872:
  590     FAULT(3);  ORDINAL = 0
				movl	-1092(%ebp), %eax
				movl	(%eax), %eax
				movl	(%eax), %eax
				subl	$12, %esp
				pushl	$3
				movl	%eax, %ecx
				call	FAULT.6092
				addl	$16, %esp
				movl	-1084(%ebp), %eax
				movl	$0, (%eax)
  591 %END;  !READ NAME
				nop
				jmp	.L839
		.L874:
		.LBB284:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L862
				call	__stack_chk_fail_local
		.L862:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE210:
		ASSIGN.6420:
		.LFB209:
  592
  593 %INTEGERMAP MAP(%INTEGER I)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1068, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, -1076(%ebp)
				movl	%ecx, -1068(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
  594 %SWITCH S(0:30)
  595     %RESULT  = = TAB(I-31) %IF I >= 32
				cmpl	$31, 8(%ebp)
				jle	.L1017
				movl	8(%ebp), %eax
				subl	$31, %eax
				leal	0(,%eax,4), %edx
				leal	TAB.6055@GOTOFF(%ebx), %eax
				addl	%edx, %eax
				jmp	.L968
		.L1017:
				nop
		.L970:
  596     ->S(I)
				movl	$596, -1064(%ebp)
				leal	.LC12@GOTOFF(%ebx), %eax
				movl	%eax, -1060(%ebp)
				movl	8(%ebp), %eax
				movl	%eax, -1056(%ebp)
				nop
		.L972:
  597 S(0):  %RESULT  = = NUM
				movl	-1076(%ebp), %eax
				movl	(%eax), %eax
				movl	(%eax), %eax
				addl	$4436, %eax
				jmp	.L968
		.L974:
  598 S(1):  %RESULT  = = TOP
				leal	TOP.6027@GOTOFF(%ebx), %eax
				jmp	.L968
		.L975:
  599 S(2):  %RESULT  = = BOTTOM
				leal	BOTTOM.6028@GOTOFF(%ebx), %eax
				jmp	.L968
		.L976:
  600 S(3):  %RESULT  = = LEFT
				leal	LEFT.6029@GOTOFF(%ebx), %eax
				jmp	.L968
		.L977:
  601 S(4):  %RESULT  = = PAGE
				leal	PAGE.6030@GOTOFF(%ebx), %eax
				jmp	.L968
		.L978:
  602 S(5):  %RESULT  = = LINE
				leal	LINE.6031@GOTOFF(%ebx), %eax
				jmp	.L968
		.L979:
  603 S(6):  %RESULT  = = SLINE
				leal	SLINE.6032@GOTOFF(%ebx), %eax
				jmp	.L968
		.L980:
  604 S(7):  %RESULT  = = NLS
				leal	NLS.6033@GOTOFF(%ebx), %eax
				jmp	.L968
		.L981:
  605 S(8):  %RESULT  = = SGAP
				leal	SGAP.6034@GOTOFF(%ebx), %eax
				jmp	.L968
		.L982:
  606 S(9):  %RESULT  = = PGAP
				leal	PGAP.6035@GOTOFF(%ebx), %eax
				jmp	.L968
		.L983:
  607 S(10): %RESULT  = = INDENT
				leal	INDENT.6036@GOTOFF(%ebx), %eax
				jmp	.L968
		.L984:
  608 S(11): %RESULT  = = SECTNO
				leal	SECTNO.6037@GOTOFF(%ebx), %eax
				jmp	.L968
		.L985:
  609 S(12): %RESULT  = = PAGENO
				leal	PAGENO.6038@GOTOFF(%ebx), %eax
				jmp	.L968
		.L986:
  610 S(13): %RESULT  = = CAP
				leal	CAP.6041@GOTOFF(%ebx), %eax
				jmp	.L968
		.L987:
  611 S(14): %RESULT  = = UND
				leal	UND.6042@GOTOFF(%ebx), %eax
				jmp	.L968
		.L988:
  612 S(15): %RESULT  = = CAPSH
				leal	CAPSH.6043@GOTOFF(%ebx), %eax
				jmp	.L968
		.L989:
  613 S(16): %RESULT  = = UNDSH
				leal	UNDSH.6044@GOTOFF(%ebx), %eax
				jmp	.L968
		.L990:
  614 S(17): %RESULT  = = INVERT
				leal	INVERT.6045@GOTOFF(%ebx), %eax
				jmp	.L968
		.L991:
  615 S(18): %RESULT  = = CAPO
				leal	CAPO.6046@GOTOFF(%ebx), %eax
				jmp	.L968
		.L992:
  616 S(19): %RESULT  = = UNDO
				leal	UNDO.6047@GOTOFF(%ebx), %eax
				jmp	.L968
		.L993:
  617 S(20): %RESULT  = = CAPSHO
				leal	CAPSHO.6048@GOTOFF(%ebx), %eax
				jmp	.L968
		.L994:
  618 S(21): %RESULT  = = UNDSHO
				leal	UNDSHO.6049@GOTOFF(%ebx), %eax
				jmp	.L968
		.L995:
  619 S(22): %RESULT  = = INVERTO
				leal	INVERTO.6050@GOTOFF(%ebx), %eax
				jmp	.L968
		.L996:
  620 S(23): %RESULT  = = ASCII
				leal	ASCII.6051@GOTOFF(%ebx), %eax
				jmp	.L968
		.L997:
  621 S(24): %RESULT  = = JUST
				leal	JUST.6052@GOTOFF(%ebx), %eax
				jmp	.L968
		.L998:
  622 S(25): %RESULT  = = MARK
				leal	MARK.6053@GOTOFF(%ebx), %eax
				jmp	.L968
		.L999:
  623 S(26): %RESULT  = = START
				leal	START.6039@GOTOFF(%ebx), %eax
				jmp	.L968
		.L1000:
  624 S(27): %RESULT  = = FINISH
				leal	FINISH.6040@GOTOFF(%ebx), %eax
				jmp	.L968
		.L1001:
  625 S(28): %RESULT  = = ESCAPE
				leal	ESCAPE.6054@GOTOFF(%ebx), %eax
				jmp	.L968
		.L1016:
  626 %END;  !MAP
				cmpl	$0, -1056(%ebp)
				js	.L1002
				jmp	.L1016
		.L973:
				cmpl	$30, -1056(%ebp)
				jle	.L1003
		.L1002:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L1004
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1072(%ebp)
				jmp	.L1005
		.L1004:
				movl	$626, -1072(%ebp)
		.L1005:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L1006
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-540(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L1007
		.L1006:
		.LBB287:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1052(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE287:
				leal	-540(%ebp), %eax
				leal	-1052(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L1007:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC13@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$3
				pushl	$6
				pushl	-1072(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L1003:
				movl	-1056(%ebp), %eax
				movl	S.6603@GOTOFF(%ebx,%eax,4), %eax
				nop
				jmp	*%eax
		.L1009:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L1010
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1072(%ebp)
				jmp	.L1011
		.L1010:
				movl	$626, -1072(%ebp)
		.L1011:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L1012
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L1013
		.L1012:
		.LBB288:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE288:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L1013:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC14@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$2
				pushl	$8
				pushl	-1072(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L968:
				movl	-28(%ebp), %esi
				xorl	%gs:20, %esi
				je	.L1014
				call	__stack_chk_fail_local
		.L1014:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE213:
				.data
				.align 4
		CHOOSE.6024:
				.long	-1
				.comm	PAGES.6067,4,4
				.align 4
		FINISH.6040:
				.long	9999
				.comm	SIZE.6071,4,4
				.comm	XLINES.6057,4,4
				.comm	NEXT.6074,4,4
				.comm	COLS.6064,4,4
				.comm	MARK.6053,4,4
				.align 4
		INDENTCOL.6073:
				.long	1
				.comm	SMAX.6072,4,4
				.comm	SGAPS.6070,4,4
				.comm	GAPS.6069,4,4
				.comm	FIXED.6068,4,4
				.comm	LINES.6066,4,4
				.comm	TEXTCOLS.6065,4,4
				.align 4
		XPAGE.6063:
				.long	1
				.comm	ERRIND.6062,4,4
				.align 4
		INDENTIND.6061:
				.long	1
				.comm	LINEMIDIND.6060,4,4
				.comm	LINEUNDIND.6059,4,4
				.comm	LINECAPIND.6058,4,4
				.section	.data.rel.local,"aw",@progbits
				.align 32
		TAB_dv.6056:
				.long	TAB.6055
				.long	4
				.long	1
				.long	0
				.long	77
				.zero	40
				.data
				.align 32
		TAB.6055:
				.long	1
				.long	9
				.long	17
				.long	25
				.long	33
				.long	41
				.long	49
				.long	57
				.long	65
				.long	73
				.long	81
				.long	89
				.long	97
				.long	105
				.long	113
				.long	121
				.long	129
				.long	137
				.long	145
				.long	153
				.long	161
				.long	169
				.long	177
				.long	185
				.long	193
				.long	201
				.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	0
				.long	0
				.long	0
				.align 4
		ESCAPE.6054:
				.long	36
				.comm	JUST.6052,4,4
				.align 4
		ASCII.6051:
				.long	1
				.align 4
		INVERTO.6050:
				.long	32
				.align 4
		UNDSHO.6049:
				.long	37
				.align 4
		CAPSHO.6048:
				.long	46
				.align 4
		UNDO.6047:
				.long	95
				.align 4
		CAPO.6046:
				.long	64
				.align 4
		INVERT.6045:
				.long	32
				.align 4
		UNDSH.6044:
				.long	37
				.align 4
		CAPSH.6043:
				.long	46
				.align 4
		UND.6042:
				.long	95
				.align 4
		CAP.6041:
				.long	64
				.comm	START.6039,4,4
				.comm	PAGENO.6038,4,4
				.comm	SECTNO.6037,4,4
				.comm	INDENT.6036,4,4
				.align 4
		PGAP.6035:
				.long	3
				.align 4
		SGAP.6034:
				.long	2
				.align 4
		NLS.6033:
				.long	1
				.align 4
		SLINE.6032:
				.long	80
				.align 4
		LINE.6031:
				.long	72
				.align 4
		PAGE.6030:
				.long	60
				.comm	LEFT.6029,4,4
				.align 4
		BOTTOM.6028:
				.long	4
				.align 4
		TOP.6027:
				.long	2
				.comm	NEWSECT.6026,4,4
				.comm	NEWPAGE.6025,4,4
				.section	.rodata
				.align 4
		__PRETTY_FUNCTION__.5624:
				.string	"_imp_SELECTINPUT"
				.align 4
		__PRETTY_FUNCTION__.5628:
				.string	"_imp_SELECTOUTPUT"
				.section	.data.rel.local
				.align 32
		S.6392:
				.long	.L593
				.long	.L611
				.long	.L621
				.long	.L706
				.long	.L624
				.long	.L707
				.long	.L708
				.long	.L709
				.long	.L629
				.long	.L635
				.long	.L710
				.long	.L636
				.long	.L711
				.long	.L653
				.long	.L712
				.long	.L662
				.long	.L713
				.long	.L714
				.long	.L652
				.long	.L671
				.long	.L715
				.long	.L701
				.long	.L716
				.long	.L717
				.long	.L718
				.long	.L719
				.comm	FLIP.6330,4,4
				.data
				.align 4
		NAMEMAX.6521:
				.long	32
				.section	.data.rel.local
				.align 32
		S.6603:
				.long	.L973
				.long	.L974
				.long	.L975
				.long	.L976
				.long	.L977
				.long	.L978
				.long	.L979
				.long	.L980
				.long	.L981
				.long	.L982
				.long	.L983
				.long	.L984
				.long	.L985
				.long	.L986
				.long	.L987
				.long	.L988
				.long	.L989
				.long	.L990
				.long	.L991
				.long	.L992
				.long	.L993
				.long	.L994
				.long	.L995
				.long	.L996
				.long	.L997
				.long	.L998
				.long	.L999
				.long	.L1000
				.long	.L1001
				.long	.L1009
				.long	.L1009
				.align 32
		S.6097:
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.long	.L20
				.data
				.align 4
		CR.6291:
				.long	13
				.section	.text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat
				.globl	__x86.get_pc_thunk.ax
				.hidden	__x86.get_pc_thunk.ax
		__x86.get_pc_thunk.ax:
		.LFB214:
				movl	(%esp), %eax
				ret
		.LFE214:
				.section	.text.__x86.get_pc_thunk.dx,"axG",@progbits,__x86.get_pc_thunk.dx,comdat
				.globl	__x86.get_pc_thunk.dx
				.hidden	__x86.get_pc_thunk.dx
		__x86.get_pc_thunk.dx:
		.LFB215:
				movl	(%esp), %edx
				ret
		.LFE215:
				.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:
		.LFB216:
				movl	(%esp), %ebx
				ret
		.LFE216:
				.section	.text.__x86.get_pc_thunk.si,"axG",@progbits,__x86.get_pc_thunk.si,comdat
				.globl	__x86.get_pc_thunk.si
				.hidden	__x86.get_pc_thunk.si
		__x86.get_pc_thunk.si:
		.LFB217:
				movl	(%esp), %esi
				ret
		.LFE217:
		.Letext0:
  627
  628 %END;
				jmp	.L930
		.L964:
				nop
				jmp	.L875
		.L942:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L933
				call	__stack_chk_fail_local
		.L933:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE209:
		GETTRIO.6579:
		.LFB212:
?K unused
  629      ;  !ASSIGN
  629
  630 %END;  !PROCESS DIRECTIVE
				cmpl	$64, -564(%ebp)
				jle	.L720
				jmp	.L728
		.L593:
		.L594:
				cmpl	$90, -564(%ebp)
				jle	.L721
		.L720:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L722
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -612(%ebp)
				jmp	.L723
		.L722:
				movl	$630, -612(%ebp)
		.L723:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L724
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L725
		.L724:
		.LBB271:
				leal	-284(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-540(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE271:
				leal	-284(%ebp), %eax
				leal	-540(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L725:
				pushl	-572(%ebp)
				pushl	-568(%ebp)
				pushl	-564(%ebp)
				leal	.LC13@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-564(%ebp)
				pushl	$3
				pushl	$6
				pushl	-612(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L721:
				movl	-564(%ebp), %eax
				subl	$65, %eax
				movl	S.6392@GOTOFF(%ebx,%eax,4), %eax
				nop
				jmp	*%eax
		.L749:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L727
				call	__stack_chk_fail_local
		.L727:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE204:
		READNUM.6425:
		.LFB206:
  631
  632       SET STREAMS;   !OPEN FILES
				call	_imp_SETSTREAMS
  633       SELECTINPUT(REQUEST)
				subl	$12, %esp
				pushl	$0
				call	_imp_SELECTINPUT
				addl	$16, %esp
		.LBB130:
  634       PRINTSTRING("Sections? (Y or CR) ")
				leal	-7136(%ebp), %eax
				leal	.LC0@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-7392(%ebp), %eax
				leal	-7136(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-7136(%ebp), %eax
				leal	-7392(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE130:
		.LBB131:
		.LBB132:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-7136(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE132:
		.LBE131:
		.LBB133:
		.LBB134:
				call	_imp_nextsymbol@PLT
		.LBE134:
		.LBE133:
  635       %IF NEXTSYMBOL='Y' %OR NEXTSYMBOL='y' %THEN CHOOSE=0 %ELSE CHOOSE=-1
				cmpl	$89, %eax
				je	.L68
		.LBB135:
		.LBB136:
				call	_imp_nextsymbol@PLT
		.LBE136:
		.LBE135:
				cmpl	$121, %eax
				jne	.L69
				jmp	.L32
		.L68:
				nop
		.L32:
				movl	$0, CHOOSE.6024@GOTOFF(%ebx)
				jmp	.L35
		.L69:
				nop
		.L34:
				movl	$-1, CHOOSE.6024@GOTOFF(%ebx)
		.L35:
		.LBB137:
		.LBB138:
				call	_imp_skipsymbol@PLT
		.LBE138:
		.LBE137:
  636       SKIPSYMBOL
  637       TURN PAGE
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	TURNPAGE.6258
  638     SELECT INPUT(SIN)
				subl	$12, %esp
				pushl	$1
				call	_imp_SELECTINPUT
				addl	$16, %esp
  639     SELECT OUTPUT(SOUT)
				subl	$12, %esp
				pushl	$2
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
  640     %CYCLE FREELIST = 1,1,108
				movl	$0, %eax
				movl	%eax, -2448(%ebp)
		.L36:
				movl	-2448(%ebp), %eax
				cmpl	$108, %eax
				je	.L70
				movl	-2448(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -2448(%ebp)
				nop
		.L38:
  641        LINK(FREELIST) = 0
				movl	-2448(%ebp), %eax
				subl	$1, %eax
				movl	$0, -6880(%ebp,%eax,4)
  642     %REPEAT
				jmp	.L36
		.L70:
  643     %CYCLE FREELIST = 1,1,500
				movl	$0, %eax
				movl	%eax, -2448(%ebp)
		.L39:
				movl	-2448(%ebp), %eax
				cmpl	$500, %eax
				jne	.L40
				jmp	.L41
		.L40:
				movl	-2448(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -2448(%ebp)
  644        HEAD(FREELIST) = FREELIST-1
				movl	-2448(%ebp), %eax
				leal	-1(%eax), %ecx
				movl	-2448(%ebp), %eax
				leal	-1(%eax), %edx
				leal	608(%ecx), %eax
				movl	%edx, -6880(%ebp,%eax,4)
  645     %REPEAT
				jmp	.L39
		.L41:
		.L42:
  646     %WHILE PAGES < FINISH %CYCLE
				movl	PAGES.6067@GOTOFF(%ebx), %edx
				movl	FINISH.6040@GOTOFF(%ebx), %eax
				cmpl	%eax, %edx
				jge	.L71
				nop
		.L44:
  647        READ ATOM OR DIRECTIVE
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	READATOMORDIRECTIVE.6132
  648        %IF DIRECTIVE # 0 %START
				movl	-36(%ebp), %eax
				testl	%eax, %eax
				je	.L72
				nop
		.L46:
  649           PROCESS DIRECTIVE
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	PROCESSDIRECTIVE.6384
  650        %FINISH %ELSE %START
				jmp	.L55
		.L72:
  651           %IF SIZE # 0 %START
				movl	SIZE.6071@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L73
				nop
		.L49:
  652              PLACE ATOM
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	PLACEATOM.6365
  653              STORE SOURCE ATOM
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	STORESOURCEATOM.6178
				jmp	.L49
		.L73:
  654           %FINISH
  655           %IF XLINES # 0 %START
				movl	XLINES.6057@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L74
				nop
				jmp	.L55
		.L76:
				nop
		.L55:
  656              %IF NEXT = ' ' %START
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				jne	.L75
				nop
		.L52:
  657                 STORE(NEXT)
				movl	NEXT.6074@GOTOFF(%ebx), %edx
				subl	$12, %esp
				leal	-6880(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	STORE.6175
				addl	$16, %esp
  658                 COLS = COLS+1;  BUFF(COLS) = ' '
				movl	COLS.6064@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, COLS.6064@GOTOFF(%ebx)
				movl	COLS.6064@GOTOFF(%ebx), %eax
				subl	$1, %eax
				addl	$1108, %eax
				movl	$32, -6872(%ebp,%eax,4)
				jmp	.L52
		.L75:
  659              %FINISH
  660              PRINT DOC LINE %IF NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				jne	.L76
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	PRINTDOCLINE.6289
				jmp	.L55
		.L47:
		.L54:
		.L74:
  661           %FINISH
  662        %FINISH
  663        PRINT SOURCE LINE %IF NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				jne	.L77
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	PRINTSOURCELINE.6166
				jmp	.L57
		.L77:
				nop
		.L57:
  664        NEXT = 0 %IF NEXT = ' ' %OR NEXT = NL
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$32, %eax
				je	.L78
				movl	NEXT.6074@GOTOFF(%ebx), %eax
				cmpl	$10, %eax
				jne	.L79
				jmp	.L59
		.L78:
				nop
		.L59:
				movl	$0, NEXT.6074@GOTOFF(%ebx)
				jmp	.L41
		.L79:
				nop
		.L60:
  665     %REPEAT
				jmp	.L41
		.L71:
  666     MARK DOC %IF MARK # 0
				movl	MARK.6053@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				je	.L80
				leal	-6880(%ebp), %eax
				movl	%eax, %ecx
				call	MARKDOC.6247
				jmp	.L62
		.L80:
				nop
		.L62:
				movl	$0, -7756(%ebp)
		.LBB139:
		.LBB140:
				subl	$12, %esp
				pushl	-7756(%ebp)
				call	exit@PLT
		.LBE140:
		.LBE139:
		.LFE189:
		READATOMORDIRECTIVE.6132:
		.LFB191:
  667 %ENDOFPROGRAM
  665 Statements compiled