.globl	_symbuf
.comm	_symbuf,2
.globl	_freep
.comm	_freep,2
.globl	_slbuf
.comm	_slbuf,2004
.globl	_strbuf
.comm	_strbuf,200
.globl	_ptr
.comm	_ptr,2
.globl	_tptr
.comm	_tptr,2
.globl	_cntr
.comm	_cntr,2
.globl	_iargv
.comm	_iargv,2
.globl	_iargc
.comm	_iargc,2
.globl	_nextch
.comm	_nextch,2
.globl	_errorn
.comm	_errorn,2
.globl	_noargs
.comm	_noargs,2
.globl	_lloop
.comm	_lloop,2
.globl	_lbreak
.comm	_lbreak,2
.globl	_lreturn
.comm	_lreturn,2
.globl	_ldefault
.comm	_ldefault,2
.globl	_nxtlab
.comm	_nxtlab,2
.globl	_cevm
.comm	_cevm,2
.globl	_ctyp
.comm	_ctyp,2
.globl	_sp_inc
.comm	_sp_inc,2
.globl	_lastsp
.comm	_lastsp,2
.globl	_lcloff
.comm	_lcloff,2
.globl	_argoff
.comm	_argoff,2
.globl	_funtyp
.comm	_funtyp,2
.globl	_lastop
.comm	_lastop,2
.globl	_lfmt
.comm	_lfmt,2
.globl	_hfmt
.comm	_hfmt,2
.globl	_indflg
.comm	_indflg,2
.globl	_ptrflg
.comm	_ptrflg,2
.globl	_ldbflg
.comm	_ldbflg,2
.globl	_ldaflg
.comm	_ldaflg,2
.globl	_lbarg
.comm	_lbarg,2
.globl	_hbarg
.comm	_hbarg,2
.globl	_castab
.comm	_castab,620
.globl	_casp
.comm	_casp,2
.globl	_symtab
.comm	_symtab,16040
.globl	_symptr
.comm	_symptr,2
.globl	_symp1
.comm	_symp1,2
.globl	_symp2
.comm	_symp2,2
.globl	_symcntr
.comm	_symcntr,2
.globl	_slp
.comm	_slp,2
.globl	_asp
.comm	_asp,2
.globl	_fd_e
.comm	_fd_e,2
.globl	_rflg
.comm	_rflg,2
.globl	_inclf
.comm	_inclf,2
.globl	_yylval
.comm	_yylval,2
.globl	_yyline
.comm	_yyline,2
.globl	_cout
.comm	_cout,2
.globl	_cin
.comm	_cin,2
.globl	_ldaa
.comm	_ldaa,2
.globl	_ldab
.comm	_ldab,2
.globl	_addb
.comm	_addb,2
.globl	_adca
.comm	_adca,2
.globl	_talloc
.text
_talloc:
~~talloc:
~i=4
~p=r4
jsr	r5,csv
mov	4(r5),(sp)
mov	$1,-(sp)
jsr	pc,*$_calloc
tst	(sp)+
mov	r0,r4
cmp	$-1,r4
jne	L2
mov	$L3,(sp)
mov	_fd_e,-(sp)
jsr	pc,*$_printf
tst	(sp)+
jsr	pc,_abort
jbr	L4
L2:mov	r4,r0
jbr	L1
L4:L1:jmp	cret
.globl	_node
.text
_node:
~~node:
~ap=r3
~tp=177770
~a=4
~n=r2
~p=r4
jsr	r5,csv
tst	-(sp)
jsr	pc,_nargs
mov	r0,r2
mov	r2,(sp)
add	r2,(sp)
jsr	pc,*$_talloc
mov	r0,r4
mov	r4,-10(r5)
mov	r5,r3
add	$4,r3
L6:mov	r2,r0
dec	r2
tst	r0
jeq	L7
mov	(r3)+,(r4)+
jbr	L6
L7:mov	-10(r5),r0
jbr	L5
L5:jmp	cret
.globl	_getlen
.text
_getlen:
~~getlen:
~sp1=r4
~n=6
~t=4
jsr	r5,csv
mov	_symp1,r4
mov	_symp2,r0
clr	14(r0)
L9:tst	r4
jeq	L10
cmpb	$20,21(r4)
jeq	L11
cmpb	$40,21(r4)
jne	L12
tst	6(r5)
jeq	L13
bis	4(r5),16(r4)
mov	_lcloff,12(r4)
mov	r4,(sp)
jsr	pc,*$_length
add	r0,_lcloff
L13:jbr	L14
L12:mov	16(r4),r0
bic	$100,r0
bis	4(r5),r0
mov	r0,16(r4)
mov	$20,r0
movb	21(r4),r1
sub	r0,r1
movb	r1,21(r4)
L14:jbr	L15
L11:tst	6(r5)
jeq	L16
bisb	$2,20(r4)
L16:L15:mov	14(r4),r4
jbr	L9
L10:tst	6(r5)
jeq	L17
clr	_symp1
L17:L8:jmp	cret
.globl	_length
.text
_length:
~~length:
~type=r3
~symn=4
~n=r4
jsr	r5,csv
mov	$1,r4
mov	4(r5),r0
mov	16(r0),r3
bit	$4,r3
jeq	L19
mov	4(r5),r0
tst	10(r0)
jeq	L19
mov	4(r5),r0
mov	10(r0),r4
L19:mov	r3,(sp)
jsr	pc,*$_chartyp
tst	r0
jeq	L20
mov	r4,r0
jbr	L18
L20:mov	r4,r0
add	r4,r0
jbr	L18
L18:jmp	cret
.globl	_chartyp
.text
_chartyp:
~~chartyp:
~t=4
jsr	r5,csv
bit	$200,4(r5)
jeq	L10001
bit	$1,4(r5)
jeq	L10000
L10001:clr	r0
jbr	L10002
L10000:mov	$1,r0
L10002:jbr	L21
L21:jmp	cret
.globl	_arraydec
.text
_arraydec:
~~arraydec:
~sn=4
~dimens=6
jsr	r5,csv
mov	4(r5),(sp)
jsr	pc,*$_chkdecl
tst	r0
jeq	L23
tst	6(r5)
jge	L24
mov	$L25,(sp)
jsr	pc,*$_mcerror
mov	$1,6(r5)
L24:L23:mov	4(r5),r0
mov	6(r5),10(r0)
mov	4(r5),r0
bis	$4,16(r0)
L22:jmp	cret
.globl	_prodec
.text
_prodec:
~~prodec:
~sn=6
~sp=r4
~type=4
~sladr=10
~class=r3
jsr	r5,csv
mov	$470,(sp)
jsr	pc,*$_insert
mov	6(r5),r0
bisb	$2,21(r0)
mov	6(r5),r0
mov	4(r5),r1
bis	$10,r1
bis	r1,16(r0)
mov	10(r5),(sp)
mov	_noargs,-(sp)
mov	_lcloff,-(sp)
mov	$310,-(sp)
jsr	pc,*$_node
add	$6,sp
mov	6(r5),r1
mov	r0,12(r1)
mov	$_symtab,r4
L27:cmp	$16040+_symtab,r4
jlos	L28
tstb	(r4)
jeq	L30
movb	21(r4),r3
tst	r3
jne	L31
bitb	$-11,20(r4)
jne	L31
mov	r4,(sp)
mov	$L32,-(sp)
jsr	pc,*$_mcerror
tst	(sp)+
jbr	L33
L31:cmp	$41,r3
jne	L34
movb	$52,(r4)
jbr	L29
jbr	L35
L34:cmp	$40,r3
jeq	L10003
cmp	$20,r3
jne	L29
L10003:L35:L33:dec	_symcntr
clrb	(r4)
clrb	21(r4)
L30:L29:add	$22,r4
jbr	L27
L28:clr	r0
mov	r0,_noargs
mov	r0,_lcloff
mov	r0,_argoff
mov	r0,_symp1
L26:jmp	cret
.globl	_terror
.text
_terror:
~~terror:
~cs=r4
~n=4
jsr	r5,csv
mov	4(r5),r0
jbr	L38
L39:mov	$L40,r4
jbr	L37
L41:mov	$L42,r4
jbr	L37
L43:mov	$L44,r4
jbr	L37
L38:sub	$1,r0
cmp	r0,$2
jhi	L37
asl	r0
jmp	*L10005(r0)
.data
L10005:L39
L41
L43
.text
L37:mov	r4,(sp)
jsr	pc,*$_mcerror
L36:jmp	cret
.globl	_mcerror
.text
_mcerror:
~~mcerror:
~s=4
~a1=6
~a2=10
~a3=12
jsr	r5,csv
mov	_yyline,(sp)
mov	$L46,-(sp)
mov	_fd_e,-(sp)
jsr	pc,*$_printf
cmp	(sp)+,(sp)+
mov	12(r5),(sp)
mov	10(r5),-(sp)
mov	6(r5),-(sp)
mov	4(r5),-(sp)
mov	_fd_e,-(sp)
jsr	pc,*$_printf
add	$10,sp
mov	_fd_e,(sp)
mov	$12,-(sp)
jsr	pc,*$_cputc
tst	(sp)+
inc	_errorn
L45:jmp	cret
.globl	_getasmbl
.text
_getasmbl:
~~getasmbl:
~cp=r2
~ip=r3
~cp1=177770
~c=r4
~c1=177766
jsr	r5,csv
sub	$4,sp
mov	$_strbuf,r2
mov	r2,r0
add	$176,r0
mov	r0,-10(r5)
mov	$_yylval,r3
clr	r0
mov	r0,(r3)
mov	r0,_cntr
cmp	$-1,_nextch
jeq	L48
cmp	$40,_nextch
jeq	L49
mov	_cin,(sp)
mov	_nextch,-(sp)
jsr	pc,*$_ungetc
tst	(sp)+
L49:mov	$-1,_nextch
L48:L50:mov	_cin,(sp)
jsr	pc,*$_cgetc
mov	r0,r4
cmp	$77,r4
jeq	L51
L52:mov	r4,r0
jbr	L54
L55:mov	$L56,(sp)
jsr	pc,*$_finmsg
L57:inc	_yyline
mov	_cin,(sp)
jsr	pc,*$_cgetc
mov	r0,-12(r5)
cmp	$52,r0
jne	L58
L59:mov	_cin,(sp)
jsr	pc,*$_cgetc
mov	r0,r4
tst	r4
jeq	L60
cmp	$12,r4
jeq	L60
jbr	L59
L60:jbr	L52
L58:mov	_cin,(sp)
mov	-12(r5),-(sp)
jsr	pc,*$_ungetc
tst	(sp)+
jbr	L53
L61:mov	_cin,(sp)
jsr	pc,*$_cgetc
mov	r0,-12(r5)
cmp	$77,r0
jne	L62
mov	-12(r5),r4
jbr	L63
L62:mov	_cin,(sp)
mov	-12(r5),-(sp)
jsr	pc,*$_ungetc
tst	(sp)+
L63:jbr	L53
L54:mov	$L10007,r1
mov	r0,L10008
L10009:cmp	r0,(r1)+
jne	L10009
jmp	*L10008-L10007(r1)
.data
L10007:0
12
134
L10008:..
L55
L57
L61
L53
.text
L53:movb	r4,(r2)+
cmp	-10(r5),r2
jhi	L50
clrb	(r2)+
mov	$202,(sp)
jsr	pc,*$_talloc
mov	r0,(r3)
mov	$_strbuf,r2
mov	r2,(sp)
mov	(r3),-(sp)
jsr	pc,*$_scopy
tst	(sp)+
inc	_cntr
mov	(r3),r3
add	$200,r3
jbr	L50
L51:cmp	$_strbuf,r2
jhis	L64
clrb	(r2)+
mov	r2,(sp)
sub	$_strbuf,(sp)
jsr	pc,*$_talloc
mov	r0,(r3)
mov	$_strbuf,(sp)
mov	(r3),-(sp)
jsr	pc,*$_scopy
tst	(sp)+
inc	_cntr
L64:mov	_yylval,r0
jbr	L47
L47:jmp	cret
.globl	_trytofol
.text
_trytofol:
~~trytofol:
~op=4
~lt=6
~rt=10
jsr	r5,csv
cmp	$316,*6(r5)
jne	L10010
cmp	$316,*10(r5)
jeq	L66
L10010:mov	_yyline,(sp)
mov	10(r5),-(sp)
mov	6(r5),-(sp)
mov	4(r5),-(sp)
jsr	pc,*$_node
add	$6,sp
jbr	L65
L66:mov	_yyline,(sp)
add	$2,10(r5)
mov	*10(r5),-(sp)
add	$2,6(r5)
mov	*6(r5),-(sp)
mov	4(r5),-(sp)
jsr	pc,_fold
add	$6,sp
mov	r0,-(sp)
mov	$316,-(sp)
jsr	pc,*$_node
cmp	(sp)+,(sp)+
jbr	L65
L65:jmp	cret
.globl	_insert
.text
_insert:
~~insert:
~op=4
~p=r4
jsr	r5,csv
mov	4(r5),r0
jbr	L69
L70:mov	$L71,r4
jbr	L68
L72:mov	$L73,r4
jbr	L68
L74:mov	$L75,r4
jbr	L68
L76:mov	$L77,r4
jbr	L68
L78:mov	$L79,r4
jbr	L68
L80:mov	$L81,r4
jbr	L68
L82:mov	$L83,r4
jbr	L68
L84:mov	$L85,(sp)
jsr	pc,*$_finmsg
jbr	L68
L69:sub	$462,r0
cmp	r0,$6
jhi	L84
asl	r0
jmp	*L10012(r0)
.data
L10012:L76
L74
L78
L72
L70
L80
L82
.text
L68:mov	r4,(sp)
mov	_symbuf,-(sp)
jsr	pc,*$_scopy
tst	(sp)+
jsr	pc,_lookup
mov	_symptr,r0
bisb	$2,21(r0)
mov	_symptr,r0
bis	$110,16(r0)
L67:jmp	cret
.globl
.data
L3:.byte 12,117,165,164,40,157,146,40,163,160,141,143,145,12,0
L25:.byte 111,156,143,157,162,162,145,143,164,40,141,162,162,141,171,40,142,157,165,156,144,163,0
L32:.byte 45,163,40,156,157,164,40,144,145,143,154,141,162,145,144,0
L40:.byte 111,156,151,164,151,141,154,151,172,141,164,151,157,156,40,163,171,156,164,141,170,0
L42:.byte 111,144,145,156,164,151,146,151,145,162,40,156,157,164,40,141,156,40,141,162,162,141,171,0
L44:.byte 111,154,154,145,147,141,154,40,151,156,144,151,162,145,143,164,151,157,156,0
L46:.byte 154,151,156,145,40,40,45,144,40,72,11,0
L56:.byte 125,156,145,170,160,145,143,164,145,144,40,105,117,106,0
L71:.byte 141,163,154,61,66,0
L73:.byte 141,163,162,61,66,0
L75:.byte 155,165,154,61,66,0
L77:.byte 144,151,166,61,66,0
L79:.byte 155,157,144,61,66,0
L81:.byte 151,156,144,170,170,0
L83:.byte 162,151,160,170,170,0
L85:.byte 103,157,155,160,151,154,145,162,40,145,162,162,157,162,50,151,156,163,145,162,164,51,0
