Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/old/kc/cc5.fai
There are no other files named cc5.fai in the archive.
	TITLE	cc5
	.LIBRARY C:CLIB
	EXTERN	.START
typesp:
	ADJSP	17,2
	MOVE	3,csymbo
	JUMPE	3,$1
	MOVE	5,csymbo
	MOVE	4,5(5)
	CAIN	4,147
	JRST	$4
	CAIN	4,144
	JRST	$3
	JRST	$5
$3::
	MOVE	7,token
	MOVEM	7,-1(17)
	PUSHJ	17,nextok
	MOVEI	2,types
	MOVE	4,-1(17)
	SUBI	4,40
	IMULI	4,3
	ADD	2,4
	MOVE	0,2
	ADJSP	17,-2
	POPJ	17,
$4::
	PUSHJ	17,strspe
	MOVE	0,0
	ADJSP	17,-2
	POPJ	17,
$5::
	MOVEI	2,1
	MOVE	4,token
	CAIE	4,27
	SETZ	2,
	JUMPE	2,$6
	MOVE	6,csymbo
	MOVE	5,3(6)
	CAIE	5,4
	JRST	$6
	MOVE	11,csymbo
	MOVE	10,5(11)
	MOVEM	10,(17)
	PUSHJ	17,nextok
	MOVE	0,(17)
	ADJSP	17,-2
	POPJ	17,
$6::
$2::
$1::
	MOVE	0,deftyp
	ADJSP	17,-2
	POPJ	17,
	ADJSP	17,-2
	POPJ	17,
declar:
	MOVE	3,-1(17)
	MOVE	2,5(3)
	MOVEM	2,scalar
	PUSH	17,-2(17)
	PUSH	17,-2(17)
	PUSHJ	17,decl0
	ADJSP	17,-2
	MOVE	0,0
	POPJ	17,
	POPJ	17,
extdef:
	ADJSP	17,21
	MOVEI	2,5
	MOVEM	2,scope
	MOVEI	3,147
	MOVEM	3,-1(17)
	MOVE	5,token
	CAIN	5,54
	JRST	$12
	CAIN	5,55
	JRST	$11
	CAIN	5,52
	JRST	$10
	JRST	$7
$10::
	MOVEI	4,5
	MOVEM	4,-1(17)
	PUSHJ	17,nextok
	JRST	$7
$11::
	MOVEI	2,6
	MOVEM	2,-1(17)
	PUSHJ	17,nextok
	JRST	$7
$12::
	MOVEI	2,4
	MOVEM	2,-1(17)
	PUSHJ	17,nextok
$7::
	PUSHJ	17,typesp
	MOVEM	0,-2(17)
	MOVE	3,token
	CAIE	3,22
	JRST	$13
	PUSHJ	17,nextok
	ADJSP	17,-21
	POPJ	17,
$13::
	SETZ	2,
	MOVEI	3,-17(17)
	HRLI	3,331100
	DPB	2,3
	MOVE	5,-1(17)
	MOVEI	4,-17(17)
	MOVEM	5,3(4)
	SETZ	6,
	MOVEI	7,-17(17)
	MOVEM	6,4(7)
	MOVE	11,-2(17)
	MOVEI	10,-17(17)
	MOVEM	11,5(10)
	MOVEI	16,-17(17)
	PUSH	17,16
	MOVEI	16,-12(17)
	PUSH	17,16
	PUSHJ	17,copysy
	ADJSP	17,-2
	SETZ	2,
	PUSH	17,2
	MOVEI	16,-20(17)
	PUSH	17,16
	PUSHJ	17,declar
	ADJSP	17,-2
	MOVEM	0,-20(17)
	JUMPE	0,$14
	MOVE	4,-20(17)
	MOVEM	4,-3(17)
	MOVE	5,-20(17)
	MOVE	3,5(5)
	MOVEM	3,-2(17)
	MOVE	6,@-2(17)
	CAIE	6,126
	JRST	$15
	MOVEI	10,1
	MOVEM	10,(17)
	MOVEI	11,7
	MOVEM	11,scope
$16::
	MOVE	13,token
	CAIE	13,27
	JRST	$17
	MOVE	3,csymbo
	HRLI	3,331100
	PUSH	17,3
	MOVEI	2,-12(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,symcpy
	ADJSP	17,-2
	MOVE	3,csymbo
	MOVE	2,3(3)
	JUMPN	2,$20
	PUSH	17,csymbo
	PUSHJ	17,freesy
	ADJSP	17,-1
$20::
	MOVEI	2,-11(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,creatl
	ADJSP	17,-1
	MOVEM	0,-20(17)
	MOVEI	2,7
	MOVE	4,-20(17)
	MOVEM	2,3(4)
	MOVE	5,(17)
	AOS	(17)
	MOVE	6,-20(17)
	MOVEM	5,4(6)
	MOVEI	3,types
	MOVE	11,-20(17)
	MOVEM	3,5(11)
	PUSHJ	17,nextok
	MOVE	3,token
	CAIE	3,15
	JRST	$17
	PUSHJ	17,nextok
	JRST	$16
$17::
	PUSH	17,[12]
	PUSHJ	17,expect
	ADJSP	17,-1
	PUSH	17,-3(17)
	PUSHJ	17,funcde
	ADJSP	17,-22
	POPJ	17,
$15::
	MOVE	2,@-2(17)
	CAIE	2,125
	JRST	$21
	MOVEI	4,1
	MOVE	6,token
	CAIN	6,15
	SETZ	4,
	JUMPE	4,$22
	MOVE	10,token
	CAIN	10,22
	JRST	$22
	MOVE	12,token
	CAIN	12,24
	JRST	$22
	PUSH	17,-3(17)
	PUSHJ	17,funcde
	ADJSP	17,-22
	POPJ	17,
$22::
$21::
	MOVE	3,eof
	JUMPN	3,$23
	MOVEI	16,-11(17)
	PUSH	17,16
	PUSH	17,-21(17)
	PUSHJ	17,datade
	ADJSP	17,-2
$23::
$14::
	ADJSP	17,-21
	POPJ	17,
decl0:
	ADJSP	17,4
$24::
	MOVE	3,token
	CAIE	3,13
	JRST	$25
	PUSHJ	17,nextok
	PUSH	17,-6(17)
	PUSH	17,-6(17)
	PUSHJ	17,decl1
	ADJSP	17,-2
	MOVEI	2,106
	MOVEM	2,-3(17)
	MOVEI	3,1
	MOVEI	4,-3(17)
	MOVEM	3,1(4)
	MOVEI	16,-3(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	PUSH	17,0
	PUSH	17,-6(17)
	PUSHJ	17,addtyp
	ADJSP	17,-2
	MOVE	3,token
	CAIN	3,13
	JRST	$26
	MOVE	0,-5(17)
	ADJSP	17,-4
	POPJ	17,
$26::
	JRST	$24
$25::
	PUSH	17,-6(17)
	PUSH	17,-6(17)
	PUSHJ	17,decl1
	ADJSP	17,-2
	MOVE	0,-5(17)
	ADJSP	17,-4
	POPJ	17,
	ADJSP	17,-4
	POPJ	17,
decl1:
	ADJSP	17,5
	MOVE	3,token
	CAIN	3,11
	JRST	$31
	CAIN	3,27
	JRST	$30
	JRST	$32
$30::
	MOVE	4,-6(17)
	HRLI	4,331100
	LDB	2,4
	JUMPE	2,$33
	PUSH	17,[20]
	PUSHJ	17,error
	ADJSP	17,-1
	SETZ	2,
	MOVE	0,2
	ADJSP	17,-5
	POPJ	17,
$33::
	MOVE	4,-7(17)
	CAIE	4,1
	JRST	$34
	MOVE	2,$35
	PUSH	17,2
	MOVE	4,-7(17)
	HRLI	4,331100
	PUSH	17,4
	PUSHJ	17,symcpy
	ADJSP	17,-2
	MOVE	3,csymbo
	HRLI	3,331100
	PUSH	17,3
	MOVE	4,-7(17)
	HRLI	4,331100
	PUSH	17,4
	PUSHJ	17,symapp
	ADJSP	17,-2
	PUSH	17,csymbo
	PUSHJ	17,freesy
	ADJSP	17,-1
	JRST	$36
$34::
	MOVE	3,csymbo
	HRLI	3,331100
	PUSH	17,3
	MOVE	4,-7(17)
	HRLI	4,331100
	PUSH	17,4
	PUSHJ	17,symcpy
	ADJSP	17,-2
$36::
	PUSHJ	17,nextok
	JRST	$27
$31::
	PUSHJ	17,nextok
	PUSH	17,-7(17)
	PUSH	17,-7(17)
	PUSHJ	17,decl0
	ADJSP	17,-2
	PUSH	17,[12]
	PUSHJ	17,expect
	ADJSP	17,-1
	JRST	$27
$32::
	ADJSP	17,-5
	POPJ	17,
$27::
	MOVE	3,token
	CAIN	3,30
	JRST	$41
	CAIN	3,11
	JRST	$40
	JRST	$37
$40::
	PUSHJ	17,nextok
	MOVEI	2,1
	MOVEI	3,-4(17)
	MOVEM	2,1(3)
	MOVE	5,-6(17)
	MOVE	4,5(5)
	MOVEI	6,-4(17)
	MOVEM	4,2(6)
	MOVE	10,token
	CAIE	10,12
	JRST	$42
	PUSHJ	17,nextok
	MOVEI	2,125
	MOVEM	2,-4(17)
	MOVEI	16,-4(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	PUSH	17,0
	PUSH	17,-7(17)
	PUSHJ	17,addtyp
	ADJSP	17,-7
	POPJ	17,
$42::
	MOVE	3,token
	CAIE	3,27
	JRST	$43
	MOVEI	4,126
	MOVEM	4,-4(17)
	MOVEI	16,-4(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	PUSH	17,0
	PUSH	17,-7(17)
	PUSHJ	17,addtyp
	ADJSP	17,-7
	POPJ	17,
$43::
	PUSH	17,[20]
	PUSHJ	17,error
	ADJSP	17,-1
	JRST	$37
$41::
	PUSH	17,-7(17)
	PUSH	17,-7(17)
	PUSHJ	17,decl2
	ADJSP	17,-2
$37::
	ADJSP	17,-5
	POPJ	17,
$35::	POINT	9,.+1,8
	BYTE	(9) 43,0

decl2:
	ADJSP	17,3
	PUSHJ	17,nextok
	MOVE	3,-5(17)
	CAIE	3,2
	JRST	$44
	MOVEI	4,106
	JRST	$45
$44::
	MOVEI	4,127
$45::
	MOVEM	4,-2(17)
	MOVE	7,-4(17)
	MOVE	6,5(7)
	MOVEI	10,-2(17)
	MOVEM	6,2(10)
	MOVE	12,token
	CAIE	12,31
	JRST	$46
	SETZ	13,
	JRST	$47
$46::
	PUSHJ	17,pconst
	MOVE	13,0
$47::
	MOVEI	2,-2(17)
	MOVEM	13,1(2)
	MOVEI	16,-2(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	PUSH	17,0
	PUSH	17,-5(17)
	PUSHJ	17,addtyp
	ADJSP	17,-2
	PUSH	17,[31]
	PUSHJ	17,expect
	ADJSP	17,-1
	MOVE	3,token
	CAIE	3,30
	JRST	$50
	PUSH	17,-4(17)
	PUSHJ	17,decl2
	ADJSP	17,-1
$50::
	ADJSP	17,-3
	POPJ	17,
strspe:
	ADJSP	17,23
	MOVE	3,token
	MOVEM	3,-7(17)
	PUSHJ	17,nextok
	MOVE	3,token
	CAIE	3,27
	JRST	$51
	MOVEI	4,1
	MOVEM	4,-5(17)
	MOVE	2,$52
	PUSH	17,2
	MOVEI	3,-23(17)
	HRLI	3,331100
	PUSH	17,3
	PUSHJ	17,symcpy
	ADJSP	17,-2
	MOVE	3,csymbo
	HRLI	3,331100
	PUSH	17,3
	MOVEI	2,-23(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,symapp
	ADJSP	17,-2
	MOVE	3,csymbo
	HRLI	3,331100
	PUSH	17,3
	MOVEI	2,-4(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,symcpy
	ADJSP	17,-2
	MOVEI	2,-3(17)
	HRLI	2,331100
	MOVEM	2,-4(17)
	PUSH	17,csymbo
	PUSHJ	17,freesy
	ADJSP	17,-1
	PUSHJ	17,nextok
	JRST	$53
$51::
	SETZB	2,-5(17)
	MOVE	2,$54
	PUSH	17,2
	MOVEI	3,-23(17)
	HRLI	3,331100
	PUSH	17,3
	PUSHJ	17,symcpy
	ADJSP	17,-2
	MOVE	2,$55
	MOVEM	2,-4(17)
$53::
	MOVE	4,-5(17)
	JUMPE	4,$56
	MOVE	3,token
	CAIE	3,33
	JRST	$57
	MOVEI	2,-22(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,findsy
	ADJSP	17,-1
	MOVEM	0,-14(17)
	JUMPN	0,$60
	MOVEI	2,-22(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,creats
	ADJSP	17,-1
	MOVEM	0,-14(17)
	JRST	$61
$60::
	MOVE	3,-14(17)
	MOVE	2,3(3)
	JUMPN	2,$62
	MOVEI	5,3
	MOVE	7,-14(17)
	MOVEM	5,3(7)
	JRST	$63
$62::
	MOVE	10,-7(17)
	CAIE	10,44
	JRST	$64
	MOVEI	11,27
	JRST	$65
$64::
	MOVEI	11,30
$65::
	MOVEM	11,-6(17)
	PUSH	17,-4(17)
	PUSH	17,-7(17)
	PUSHJ	17,error
	ADJSP	17,-2
$63::
$61::
	PUSH	17,-7(17)
	PUSHJ	17,sdecll
	ADJSP	17,-1
	MOVEI	2,-13(17)
	MOVEM	0,1(2)
	JRST	$66
$57::
	MOVEI	2,-22(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,findsy
	ADJSP	17,-1
	MOVEM	0,-14(17)
	JUMPN	0,$67
	MOVEI	2,-22(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,creats
	ADJSP	17,-1
	MOVEM	0,-14(17)
	SETZ	2,
	MOVE	4,-14(17)
	MOVEM	2,3(4)
	SETZ	3,
	MOVE	6,-14(17)
	MOVEM	3,4(6)
	SETZ	5,
	MOVE	10,-14(17)
	MOVEM	5,5(10)
	MOVEI	7,types
	ADDI	7,14
	MOVE	0,7
	ADJSP	17,-23
	POPJ	17,
	JRST	$70
$67::
	MOVE	12,-14(17)
	MOVE	11,5(12)
	MOVE	0,11
	ADJSP	17,-23
	POPJ	17,
$70::
$66::
	JRST	$71
$56::
	MOVEI	2,-22(17)
	HRLI	2,331100
	PUSH	17,2
	PUSHJ	17,creats
	ADJSP	17,-1
	MOVEM	0,-14(17)
	MOVE	3,token
	CAIE	3,33
	JRST	$72
	PUSH	17,-7(17)
	PUSHJ	17,sdecll
	ADJSP	17,-1
	MOVEI	2,-13(17)
	MOVEM	0,1(2)
	JRST	$73
$72::
	PUSH	17,[33]
	PUSHJ	17,expect
	ADJSP	17,-1
	PUSH	17,[22]
	PUSHJ	17,recove
	ADJSP	17,-1
$73::
$71::
	MOVEI	2,44
	MOVEM	2,-13(17)
	SETZ	3,
	MOVEI	4,-13(17)
	MOVEM	3,2(4)
	MOVEI	16,-13(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVEM	0,-10(17)
	MOVEI	2,3
	MOVE	4,-14(17)
	MOVEM	2,3(4)
	SETZ	3,
	MOVE	6,-14(17)
	MOVEM	3,4(6)
	MOVE	7,-10(17)
	MOVE	10,-14(17)
	MOVEM	7,5(10)
	MOVE	0,-10(17)
	ADJSP	17,-23
	POPJ	17,
	ADJSP	17,-23
	POPJ	17,
$55::	POINT	9,.+1,8
	BYTE	(9) 125,156,164,141
	BYTE	(9) 147,147,145,144
	BYTE	(9) 40,163,164,162
	BYTE	(9) 165,143,164,0

$54::	POINT	9,.+1,8
	BYTE	(9) 45,45,45,0

$52::	POINT	9,.+1,8
	BYTE	(9) 45,0

sdecll:
	ADJSP	17,3
	SETZB	2,-2(17)
	MOVEM	2,(17)
	PUSH	17,[33]
	PUSHJ	17,expect
	ADJSP	17,-1
$74::
	MOVE	3,token
	CAIN	3,35
	JRST	$75
	MOVE	5,eof
	JUMPE	5,$76
	PUSHJ	17,earlye
$76::
	PUSH	17,-2(17)
	PUSHJ	17,sdecla
	ADJSP	17,-1
	MOVEM	0,-1(17)
	MOVE	3,-4(17)
	CAIE	3,45
	JRST	$77
	SETZB	4,-2(17)
	MOVE	6,-1(17)
	CAMG	6,(17)
	JRST	$100
	MOVE	7,-1(17)
	MOVEM	7,(17)
$100::
	JRST	$101
$77::
	MOVE	10,-1(17)
	ADDB	10,-2(17)
	MOVEM	10,(17)
$101::
	JRST	$74
$75::
	PUSHJ	17,nextok
	MOVE	0,(17)
	ADJSP	17,-3
	POPJ	17,
	ADJSP	17,-3
	POPJ	17,
sdecla:
	ADJSP	17,17
	MOVE	3,-20(17)
	MOVEM	3,-1(17)
	PUSHJ	17,typesp
	MOVEM	0,-16(17)
	SETZ	2,
	MOVEI	3,-15(17)
	HRLI	3,331100
	DPB	2,3
	MOVEI	4,11
	MOVEI	5,-15(17)
	MOVEM	4,3(5)
	SETZ	6,
	MOVEI	7,-15(17)
	MOVEM	6,4(7)
	MOVE	11,-16(17)
	MOVEI	10,-15(17)
	MOVEM	11,5(10)
$102::
	MOVEI	16,-15(17)
	PUSH	17,16
	MOVEI	16,-10(17)
	PUSH	17,16
	PUSHJ	17,copysy
	ADJSP	17,-2
	PUSH	17,-20(17)
	MOVEI	16,-10(17)
	PUSH	17,16
	PUSHJ	17,declst
	ADJSP	17,-2
	MOVEM	0,(17)
	MOVE	3,(17)
	ADDB	3,-20(17)
	MOVE	4,token
	CAIE	4,15
	JRST	$103
	JRST	$102
$103::
	PUSH	17,[22]
	PUSHJ	17,expect
	ADJSP	17,-1
	MOVE	3,-20(17)
	SUB	3,-1(17)
	MOVE	0,3
	ADJSP	17,-17
	POPJ	17,
	ADJSP	17,-17
	POPJ	17,
declst:
	ADJSP	17,2
	PUSH	17,[1]
	PUSH	17,-4(17)
	PUSHJ	17,declar
	ADJSP	17,-2
	MOVEM	0,-1(17)
	MOVE	3,-1(17)
	HRLI	3,331100
	PUSH	17,3
	PUSHJ	17,findsy
	ADJSP	17,-1
	MOVEM	0,(17)
	MOVE	3,(17)
	JUMPN	3,$104
	MOVEI	4,11
	MOVE	6,-1(17)
	MOVEM	4,3(6)
	MOVE	7,-4(17)
	MOVE	10,-1(17)
	MOVEM	7,4(10)
	MOVE	3,-1(17)
	HRLI	3,331100
	PUSH	17,3
	PUSHJ	17,creats
	ADJSP	17,-1
	MOVEM	0,(17)
	PUSH	17,-1(17)
	PUSH	17,-1(17)
	PUSHJ	17,copysy
	ADJSP	17,-2
	JRST	$105
$104::
	MOVE	3,-4(17)
	MOVE	4,(17)
	MOVE	2,4(4)
	CAMN	3,2
	JRST	$106
	PUSH	17,[31]
	PUSHJ	17,error
	ADJSP	17,-1
$106::
$105::
	MOVE	3,(17)
	MOVE	2,5(3)
	PUSH	17,2
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVE	0,0
	ADJSP	17,-2
	POPJ	17,
	ADJSP	17,-2
	POPJ	17,
absdec:
	ADJSP	17,3
	MOVE	3,-4(17)
	JUMPN	3,$107
	SETZ	4,
	MOVE	0,4
	ADJSP	17,-3
	POPJ	17,
$107::
	MOVE	6,token
	CAIN	6,13
	JRST	$112
	CAIN	6,11
	JRST	$111
	JRST	$113
$111::
	PUSHJ	17,nextok
	PUSH	17,-4(17)
	PUSHJ	17,absdec
	ADJSP	17,-1
	MOVEM	0,-4(17)
	PUSH	17,[12]
	PUSHJ	17,expect
	ADJSP	17,-1
	JUMPN	0,$114
	PUSH	17,[20]
	PUSHJ	17,error
	ADJSP	17,-1
	MOVE	0,-4(17)
	ADJSP	17,-3
	POPJ	17,
$114::
	JRST	$110
$112::
$115::
	MOVE	3,token
	CAIE	3,13
	JRST	$116
	PUSHJ	17,nextok
	MOVEI	2,106
	MOVEM	2,-2(17)
	MOVEI	3,1
	MOVEI	4,-2(17)
	MOVEM	3,1(4)
	MOVE	6,-4(17)
	MOVE	5,5(6)
	MOVEI	7,-2(17)
	MOVEM	5,2(7)
	MOVEI	16,-2(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-4(17)
	MOVEM	0,5(3)
	JRST	$115
$116::
	PUSH	17,-4(17)
	PUSHJ	17,absdec
	ADJSP	17,-1
	MOVEM	0,-4(17)
	JRST	$110
$113::
	MOVE	0,-4(17)
	ADJSP	17,-3
	POPJ	17,
$110::
	MOVE	3,token
	CAIN	3,30
	JRST	$121
	CAIN	3,11
	JRST	$120
	JRST	$117
$120::
	PUSHJ	17,nextok
	MOVEI	2,1
	MOVEI	3,-2(17)
	MOVEM	2,1(3)
	MOVE	5,-4(17)
	MOVE	4,5(5)
	MOVEI	6,-2(17)
	MOVEM	4,2(6)
	MOVEI	7,125
	MOVEM	7,-2(17)
	MOVEI	16,-2(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-4(17)
	MOVEM	0,5(3)
	PUSH	17,[12]
	PUSHJ	17,expect
	ADJSP	17,-1
	JRST	$117
$121::
	PUSHJ	17,nextok
	MOVEI	2,127
	MOVEM	2,-2(17)
	MOVE	4,-4(17)
	MOVE	3,5(4)
	MOVEI	5,-2(17)
	MOVEM	3,2(5)
	MOVE	7,token
	CAIE	7,31
	JRST	$122
	SETZ	10,
	JRST	$123
$122::
	PUSHJ	17,pconst
	MOVE	10,0
$123::
	MOVEI	2,-2(17)
	MOVEM	10,1(2)
	MOVEI	16,-2(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-4(17)
	MOVEM	0,5(3)
	PUSH	17,[31]
	PUSHJ	17,expect
	ADJSP	17,-1
	JRST	$117
$117::
	MOVE	0,-4(17)
	ADJSP	17,-3
	POPJ	17,
	ADJSP	17,-3
	POPJ	17,
typena:
	ADJSP	17,7
	SETZ	2,
	MOVEI	3,-6(17)
	HRLI	3,331100
	DPB	2,3
	SETZ	4,
	MOVEI	5,-6(17)
	MOVEM	4,4(5)
	MOVEI	6,-6(17)
	MOVEM	4,3(6)
	PUSHJ	17,typesp
	MOVEI	2,-6(17)
	MOVEM	0,5(2)
	MOVEI	16,-6(17)
	PUSH	17,16
	PUSHJ	17,absdec
	ADJSP	17,-1
	MOVEM	0,(17)
	MOVE	3,(17)
	MOVE	2,5(3)
	MOVE	0,2
	ADJSP	17,-7
	POPJ	17,
	ADJSP	17,-7
	POPJ	17,
funcde:
	ADJSP	17,23
	MOVE	3,-24(17)
	MOVE	2,5(3)
	MOVEM	2,-16(17)
	MOVEI	4,125
	MOVEM	4,-15(17)
	PUSH	17,-16(17)
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVEI	2,-15(17)
	MOVEM	0,1(2)
	MOVE	4,-16(17)
	MOVE	3,2(4)
	MOVEI	5,-15(17)
	MOVEM	3,2(5)
	MOVEI	16,-15(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-24(17)
	MOVEM	0,5(3)
	MOVE	3,-24(17)
	HRLI	3,331100
	MOVEM	3,-17(17)
	PUSH	17,3
	PUSHJ	17,findsy
	ADJSP	17,-1
	MOVEM	0,-7(17)
	JUMPN	0,$124
	PUSH	17,-17(17)
	MOVE	2,$125
	PUSH	17,2
	PUSH	17,stderr
	PUSHJ	17,fprint
	ADJSP	17,-3
	PUSH	17,[1]
	PUSHJ	17,exit
	ADJSP	17,-1
$124::
	MOVE	3,-24(17)
	MOVE	2,3(3)
	CAIE	2,147
	JRST	$126
	MOVEI	5,5
	MOVE	7,-24(17)
	MOVEM	5,3(7)
	MOVEI	6,1
	MOVE	11,-24(17)
	MOVEM	6,4(11)
$126::
	PUSH	17,-24(17)
	PUSH	17,-10(17)
	PUSHJ	17,copysy
	ADJSP	17,-2
	SETZ	2,
	PUSH	17,2
	PUSH	17,[1]
	PUSHJ	17,defnod
	ADJSP	17,-2
	MOVEM	0,-11(17)
	PUSH	17,-7(17)
	SETZ	2,
	PUSH	17,2
	MOVE	5,-11(17)
	MOVE	4,5(5)
	PUSH	17,4
	PUSH	17,[27]
	PUSH	17,[2]
	PUSHJ	17,defnod
	ADJSP	17,-5
	MOVE	3,-11(17)
	MOVEM	0,3(3)
	PUSH	17,-11(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	PUSH	17,[125]
	PUSH	17,[2]
	PUSHJ	17,defnod
	ADJSP	17,-5
	MOVEM	0,-12(17)
	PUSH	17,-17(17)
	MOVE	2,$127
	PUSH	17,2
	PUSH	17,stderr
	PUSHJ	17,fprint
	ADJSP	17,-3
	MOVE	3,token
	CAIN	3,33
	JRST	$130
$131::
	MOVE	5,token
	CAIE	5,53
	JRST	$133
	PUSHJ	17,nextok
$133::
	PUSHJ	17,typesp
	MOVEM	0,-16(17)
$134::
	SETZ	2,
	MOVEI	3,-5(17)
	HRLI	3,331100
	DPB	2,3
	MOVE	5,-16(17)
	MOVEI	4,-5(17)
	MOVEM	5,5(4)
	PUSH	17,[2]
	MOVEI	16,-6(17)
	PUSH	17,16
	PUSHJ	17,declar
	ADJSP	17,-2
	MOVEM	0,-7(17)
	MOVEI	2,1
	PUSH	17,2
	MOVE	4,-10(17)
	HRLI	4,331100
	PUSH	17,4
	PUSHJ	17,findsy
	ADJSP	17,-1
	POP	17,2
	MOVEM	0,-6(17)
	CAIE	0,0
	SETZ	2,
	JUMPN	2,$137
	MOVEI	3,1
	MOVE	5,-6(17)
	MOVE	4,3(5)
	CAIN	4,7
	SETZ	3,
	JUMPE	3,$136
$137::
	PUSH	17,[21]
	PUSHJ	17,error
	ADJSP	17,-1
	JRST	$140
$136::
	MOVE	3,-7(17)
	MOVE	2,5(3)
	MOVE	5,-6(17)
	MOVEM	2,5(5)
$140::
	MOVE	6,token
	CAIE	6,15
	JRST	$135
	PUSHJ	17,nextok
	JRST	$134
$135::
	PUSH	17,[22]
	PUSHJ	17,expect
	ADJSP	17,-1
	JUMPN	0,$141
	PUSH	17,[22]
	PUSHJ	17,recove
	ADJSP	17,-1
$141::
	MOVE	3,token
	CAIN	3,33
	JRST	$132
	JRST	$131
$132::
$130::
	SETZB	4,maxaut
	MOVEM	4,maxini
	MOVE	7,maxtyp
	MOVEM	7,-21(17)
	MOVEI	6,12
	MOVEM	6,scope
	PUSHJ	17,nextok
	PUSHJ	17,declli
	PUSHJ	17,stmtli
	MOVE	3,-12(17)
	MOVEM	0,4(3)
	MOVEM	0,-10(17)
$142::
	MOVE	4,-10(17)
	MOVE	2,3(4)
	JUMPE	2,$143
	MOVE	7,-10(17)
	MOVE	6,3(7)
	MOVEM	6,-10(17)
	JRST	$142
$143::
	PUSH	17,[57]
	PUSH	17,[1]
	PUSHJ	17,defnod
	ADJSP	17,-2
	PUSH	17,0
	SETZ	2,
	PUSH	17,2
	SETZ	3,
	PUSH	17,3
	SETZ	4,
	PUSH	17,4
	PUSH	17,[131]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	3,-10(17)
	MOVEM	0,3(3)
	PUSH	17,-12(17)
	PUSHJ	17,gencod
	ADJSP	17,-1
	PUSH	17,[35]
	PUSHJ	17,expect
	ADJSP	17,-1
	MOVE	3,-21(17)
	MOVEM	3,maxtyp
	PUSH	17,[3777]
	PUSHJ	17,ridaut
	ADJSP	17,-24
	POPJ	17,
$127::	POINT	9,.+1,8
	BYTE	(9) 133,45,163,135
	BYTE	(9) 12,0

$125::	POINT	9,.+1,8
	BYTE	(9) 103,141,156,156
	BYTE	(9) 157,164,40,146
	BYTE	(9) 151,156,144,40
	BYTE	(9) 163,171,155,142
	BYTE	(9) 157,154,40,45
	BYTE	(9) 163,56,12,0

datade:
	ADJSP	17,10
	SETZB	2,0(17)
$144::
	PUSH	17,-11(17)
	PUSHJ	17,izer
	ADJSP	17,-1
	PUSH	17,0
	PUSH	17,-1(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	PUSH	17,[146]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,(17)
	MOVE	3,token
	CAIE	3,15
	JRST	$145
	PUSHJ	17,nextok
	PUSH	17,-12(17)
	MOVEI	16,-7(17)
	PUSH	17,16
	PUSHJ	17,copysy
	ADJSP	17,-2
	SETZ	2,
	PUSH	17,2
	MOVEI	16,-7(17)
	PUSH	17,16
	PUSHJ	17,declar
	ADJSP	17,-2
	MOVEM	0,-11(17)
	JRST	$144
$145::
	PUSH	17,[22]
	PUSHJ	17,expect
	ADJSP	17,-1
	PUSH	17,(17)
	PUSHJ	17,gencod
	ADJSP	17,-11
	POPJ	17,
izer:
	ADJSP	17,12
	SETZB	2,-3(17)
	MOVE	4,token
	CAIE	4,24
	JRST	$146
	PUSHJ	17,nextok
	MOVE	3,-13(17)
	MOVE	2,5(3)
	MOVEM	2,-11(17)
	PUSH	17,-11(17)
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVEM	0,-2(17)
	MOVE	3,token
	CAIE	3,33
	JRST	$147
	PUSH	17,-11(17)
	PUSHJ	17,izer1
	ADJSP	17,-1
	MOVEM	0,-3(17)
	MOVE	3,-2(17)
	JUMPN	3,$150
	MOVE	4,@-11(17)
	MOVEM	4,-10(17)
	MOVE	6,-3(17)
	MOVE	5,2(6)
	MOVEI	7,-10(17)
	MOVEM	5,1(7)
	MOVE	11,-11(17)
	MOVE	10,2(11)
	MOVEI	12,-10(17)
	MOVEM	10,2(12)
	MOVEI	16,-10(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-13(17)
	MOVEM	0,5(3)
$150::
	JRST	$151
$147::
	PUSH	17,-11(17)
	PUSHJ	17,izer0
	ADJSP	17,-1
	MOVEM	0,-3(17)
	MOVE	3,-2(17)
	JUMPN	3,$152
	MOVE	4,@-11(17)
	MOVEM	4,-10(17)
	MOVE	6,-3(17)
	MOVE	5,2(6)
	MOVEI	7,-10(17)
	MOVEM	5,1(7)
	MOVE	11,-11(17)
	MOVE	10,2(11)
	MOVEI	12,-10(17)
	MOVEM	10,2(12)
	MOVEI	16,-10(17)
	PUSH	17,16
	PUSHJ	17,gettyp
	ADJSP	17,-1
	MOVE	3,-13(17)
	MOVEM	0,5(3)
$152::
$151::
$146::
	MOVE	3,-13(17)
	HRLI	3,331100
	MOVEM	3,(17)
	PUSH	17,3
	PUSHJ	17,findsy
	ADJSP	17,-1
	MOVEM	0,-5(17)
	MOVEI	2,1
	MOVE	4,-5(17)
	MOVE	3,3(4)
	CAIE	3,0
	SETZ	2,
	JUMPN	2,$154
	SETZ	6,
	MOVE	10,-13(17)
	MOVE	7,3(10)
	CAIE	7,12
	JRST	$155
	MOVEI	12,1
	MOVE	14,-5(17)
	MOVE	13,3(14)
	CAIE	13,5
	SETZ	12,
	JUMPN	12,$156
	MOVEI	2,1
	MOVE	4,-5(17)
	MOVE	3,3(4)
	CAIE	3,147
	SETZ	2,
	JUMPE	2,$155
$156::
	MOVEI	6,1
$155::
	JUMPE	6,$153
$154::
	MOVE	10,-13(17)
	MOVE	7,3(10)
	CAIN	7,147
	JRST	$161
	CAIN	7,12
	JRST	$160
	JRST	$157
$160::
	MOVE	13,-13(17)
	MOVE	11,5(13)
	MOVEM	11,-11(17)
$162::
	MOVE	14,@-11(17)
	CAIE	14,106
	JRST	$163
	MOVE	3,-11(17)
	MOVE	2,2(3)
	MOVEM	2,-11(17)
	JRST	$162
$163::
	MOVE	4,@-11(17)
	CAIE	4,125
	JRST	$164
	MOVE	12,-5(17)
	MOVE	6,3(12)
	CAIN	6,5
	JRST	$165
	PUSH	17,-5(17)
	PUSHJ	17,freesy
	ADJSP	17,-1
	PUSH	17,(17)
	PUSHJ	17,creats
	ADJSP	17,-1
	SETZ	2,
	MOVE	4,-13(17)
	MOVEM	2,4(4)
	MOVEI	3,5
	MOVE	6,-13(17)
	MOVEM	3,3(6)
$165::
	JRST	$157
$164::
	MOVE	7,-5(17)
	MOVE	5,3(7)
	JUMPN	5,$166
	PUSH	17,-5(17)
	PUSHJ	17,freesy
	ADJSP	17,-1
$166::
	PUSH	17,(17)
	PUSHJ	17,creatl
	ADJSP	17,-1
	MOVEM	0,-5(17)
	MOVE	3,maxaut
	MOVE	4,-13(17)
	MOVEM	3,4(4)
	MOVE	3,-13(17)
	MOVE	2,5(3)
	PUSH	17,2
	PUSHJ	17,tsize
	ADJSP	17,-1
	ADDB	0,maxaut
	JRST	$157
$161::
	MOVEI	2,1
	MOVE	4,-13(17)
	MOVEM	2,4(4)
	MOVEI	3,5
	MOVE	6,-13(17)
	MOVEM	3,3(6)
$157::
	PUSH	17,-13(17)
	PUSH	17,-6(17)
	PUSHJ	17,copysy
	ADJSP	17,-2
	JRST	$167
$153::
	MOVE	3,-13(17)
	MOVE	2,5(3)
	MOVEM	2,-11(17)
$170::
	MOVE	4,@-11(17)
	CAIE	4,106
	JRST	$171
	MOVE	7,-11(17)
	MOVE	6,2(7)
	MOVEM	6,-11(17)
	JRST	$170
$171::
	MOVE	10,@-11(17)
	CAIN	10,125
	JRST	$172
	PUSH	17,(17)
	PUSH	17,[10]
	PUSHJ	17,error
	ADJSP	17,-2
$172::
$167::
	PUSH	17,-5(17)
	SETZ	2,
	PUSH	17,2
	MOVE	5,-7(17)
	MOVE	4,5(5)
	PUSH	17,4
	PUSH	17,[27]
	PUSH	17,[2]
	PUSHJ	17,defnod
	ADJSP	17,-5
	MOVEM	0,-4(17)
	PUSH	17,-3(17)
	PUSH	17,-5(17)
	SETZ	2,
	PUSH	17,2
	SETZ	5,
	PUSH	17,5
	PUSH	17,[143]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	0,0
	ADJSP	17,-12
	POPJ	17,
	ADJSP	17,-12
	POPJ	17,
izer0:
	ADJSP	17,10
	PUSHJ	17,expres
	MOVEM	0,-6(17)
	MOVE	2,@-6(17)
	MOVEM	2,-2(17)
	PUSH	17,-11(17)
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVEM	0,(17)
	MOVEI	2,1
	MOVE	4,-2(17)
	CAIN	4,134
	SETZ	2,
	JUMPE	2,$173
	MOVE	6,-2(17)
	CAIN	6,137
	JRST	$173
	PUSH	17,[2]
	PUSHJ	17,error
	ADJSP	17,-1
	JRST	$174
$173::
	PUSH	17,-11(17)
	PUSHJ	17,charar
	ADJSP	17,-1
	JUMPE	0,$175
	MOVE	3,-2(17)
	CAIE	3,137
	JRST	$176
	MOVE	5,-6(17)
	MOVE	4,3(5)
	MOVEM	4,-3(17)
	SETZB	6,-1(17)
	SETZB	7,-5(17)
	MOVEI	10,types
	ADDI	10,3
	MOVEM	10,-4(17)
$177::
	MOVE	12,-1(17)
	AOS	-1(17)
	SETZ	2,
	PUSH	17,2
	SETZ	3,
	PUSH	17,3
	PUSH	17,-6(17)
	PUSH	17,[134]
	PUSH	17,[2]
	PUSHJ	17,defnod
	ADJSP	17,-5
	MOVEM	0,-7(17)
	LDB	2,-3(17)
	MOVE	5,-7(17)
	MOVEM	2,3(5)
	MOVE	6,-5(17)
	JUMPN	6,$201
	PUSH	17,-7(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,-5(17)
	MOVEM	0,-6(17)
	JRST	$202
$201::
	PUSH	17,-7(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	3,-6(17)
	MOVEM	0,3(3)
	MOVEM	0,-6(17)
$202::
	LDB	2,-3(17)
	IBP	-3(17)
	JUMPN	2,$177
$200::
	MOVE	3,(17)
	JUMPE	3,$203
	MOVE	3,(17)
	MOVE	4,-1(17)
	ADDI	4,3
	IDIVI	4,4
	SUB	3,4
	JRST	$204
$203::
	SETZ	3,
$204::
	MOVEM	3,-1(17)
$176::
	JRST	$205
$175::
	MOVE	7,(17)
	JUMPE	7,$206
	MOVE	3,(17)
	SUBI	3,1
	JRST	$207
$206::
	SETZ	3,
$207::
	MOVEM	3,-1(17)
	MOVE	5,-1(17)
	JUMPG	5,$210
	MOVE	7,-6(17)
	JRST	$211
$210::
	PUSH	17,-6(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,-6(17)
	MOVE	7,0
$211::
	MOVEM	7,-5(17)
$205::
$174::
	MOVE	3,-1(17)
	JUMPLE	3,$212
	PUSH	17,[145]
	PUSH	17,[1]
	PUSHJ	17,defnod
	ADJSP	17,-2
	MOVEM	0,-7(17)
	MOVE	3,-1(17)
	MOVE	4,-7(17)
	MOVEM	3,3(4)
	PUSH	17,-7(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	3,-6(17)
	MOVEM	0,3(3)
	JRST	$213
$212::
	MOVE	4,-1(17)
	JUMPGE	4,$214
	PUSH	17,[32]
	PUSHJ	17,error
	ADJSP	17,-1
$214::
$213::
	MOVE	0,-5(17)
	ADJSP	17,-10
	POPJ	17,
	ADJSP	17,-10
	POPJ	17,
izer1:
	ADJSP	17,5
	PUSHJ	17,nextok
	PUSH	17,-6(17)
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVEM	0,-4(17)
	PUSH	17,-6(17)
	PUSHJ	17,izlist
	ADJSP	17,-1
	MOVEM	0,(17)
	MOVE	3,token
	CAIE	3,15
	JRST	$215
	PUSHJ	17,nextok
$215::
	PUSH	17,[35]
	PUSHJ	17,expect
	ADJSP	17,-1
	MOVE	3,(17)
	MOVEM	3,-1(17)
$216::
	MOVE	4,-1(17)
	MOVE	2,3(4)
	JUMPE	2,$217
	MOVE	7,-1(17)
	MOVE	6,3(7)
	MOVEM	6,-1(17)
	JRST	$216
$217::
	MOVE	11,(17)
	MOVE	10,2(11)
	MOVEM	10,-3(17)
	PUSH	17,-6(17)
	PUSHJ	17,charar
	ADJSP	17,-1
	JUMPE	0,$220
	MOVE	3,-3(17)
	ADDI	3,3
	IDIVI	3,4
	MOVEM	3,-3(17)
$220::
	MOVE	5,-4(17)
	SUB	5,-3(17)
	MOVEM	5,-3(17)
	MOVE	6,-3(17)
	JUMPLE	6,$221
	PUSH	17,[145]
	PUSH	17,[1]
	PUSHJ	17,defnod
	ADJSP	17,-2
	MOVEM	0,-2(17)
	MOVE	3,-3(17)
	MOVE	4,-2(17)
	MOVEM	3,3(4)
	PUSH	17,-2(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	3,-1(17)
	MOVEM	0,3(3)
	MOVE	4,-4(17)
	MOVE	5,(17)
	MOVEM	4,2(5)
	JRST	$222
$221::
	MOVE	6,-4(17)
	JUMPE	6,$223
	MOVE	7,-3(17)
	JUMPGE	7,$223
	PUSH	17,[32]
	PUSHJ	17,error
	ADJSP	17,-1
$223::
$222::
	MOVE	0,(17)
	ADJSP	17,-5
	POPJ	17,
	ADJSP	17,-5
	POPJ	17,
izlist:
	ADJSP	17,7
	SETZB	2,-6(17)
	SETZB	3,0(17)
	MOVEM	3,-1(17)
	MOVE	3,-10(17)
	MOVE	2,2(3)
	MOVEM	2,-3(17)
	PUSH	17,2
	PUSHJ	17,tsize
	ADJSP	17,-1
	MOVEM	0,-5(17)
	PUSH	17,-3(17)
	PUSHJ	17,charpo
	ADJSP	17,-1
	JUMPE	0,$224
	MOVE	3,-3(17)
	JRST	$225
$224::
	SETZ	3,
$225::
	MOVEM	3,-4(17)
$226::
	MOVE	5,token
	CAIE	5,33
	JRST	$230
	PUSH	17,-4(17)
	PUSHJ	17,izer1
	ADJSP	17,-1
	JRST	$231
$230::
	PUSH	17,-4(17)
	PUSHJ	17,izer0
	ADJSP	17,-1
$231::
	MOVEM	0,-2(17)
	MOVE	3,(17)
	JUMPN	3,$232
	PUSH	17,-2(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,(17)
	MOVEM	0,-1(17)
	JRST	$233
$232::
	PUSH	17,-2(17)
	SETZ	2,
	PUSH	17,2
	SETZ	4,
	PUSH	17,4
	SETZ	5,
	PUSH	17,5
	PUSH	17,[144]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVE	3,-1(17)
	MOVEM	0,3(3)
	MOVEM	0,-1(17)
$233::
	MOVE	4,-6(17)
	AOS	-6(17)
	MOVE	5,token
	CAIE	5,15
	JRST	$227
	PUSHJ	17,nextok
	JRST	$226
$227::
	MOVE	3,-6(17)
	MOVE	4,(17)
	MOVEM	3,2(4)
	MOVE	0,(17)
	ADJSP	17,-7
	POPJ	17,
	ADJSP	17,-7
	POPJ	17,
pconst:
	ADJSP	17,1
	PUSHJ	17,expres
	MOVEM	0,(17)
	MOVE	2,@0(17)
	CAIN	2,134
	JRST	$234
	PUSH	17,[2]
	PUSHJ	17,error
	ADJSP	17,-1
	SETZ	2,
	MOVE	0,2
	ADJSP	17,-1
	POPJ	17,
$234::
	MOVE	4,(17)
	MOVE	3,3(4)
	MOVE	0,3
	ADJSP	17,-1
	POPJ	17,
	ADJSP	17,-1
	POPJ	17,
declli:
	ADJSP	17,1
$235::
	MOVE	3,csymbo
	JUMPE	3,$236
	MOVE	5,csymbo
	MOVE	4,3(5)
	MOVEM	4,(17)
	CAIE	4,1
	JRST	$237
	MOVE	10,csymbo
	MOVE	7,5(10)
	MOVEM	7,(17)
	MOVEI	11,1
	MOVE	13,(17)
	CAIN	13,144
	SETZ	11,
	JUMPE	11,$240
	MOVE	15,(17)
	CAIN	15,145
	JRST	$240
	MOVE	3,(17)
	CAIN	3,147
	JRST	$240
	ADJSP	17,-1
	POPJ	17,
$240::
	JRST	$241
$237::
	MOVE	5,(17)
	CAIN	5,4
	JRST	$242
	ADJSP	17,-1
	POPJ	17,
$242::
$241::
	PUSHJ	17,decln
	JRST	$235
$236::
	ADJSP	17,-1
	POPJ	17,
decln:
	ADJSP	17,7
	SETZB	2,-6(17)
	MOVE	3,token
	SUBI	3,51
	JUMPL	3,$251
	CAIL	3,5
	JRST	$251
	JRST	@$252(3)
$252::
	$244
	$246
	$247
	$250
	$245
$244::
	MOVE	5,scope
	MOVEM	5,-6(17)
	JRST	$243
$245::
	MOVEI	4,6
	MOVEM	4,-6(17)
	JRST	$243
$246::
	MOVEI	6,5
	MOVEM	6,-6(17)
	JRST	$243
$247::
	MOVE	10,scope
	MOVEM	10,-6(17)
	JRST	$243
$250::
	MOVEI	7,4
	MOVEM	7,-6(17)
	JRST	$243
$251::
	MOVE	12,scope
	MOVEI	11,-5(17)
	MOVEM	12,3(11)
$243::
	MOVE	14,-6(17)
	JUMPE	14,$253
	PUSHJ	17,nextok
	MOVE	3,-6(17)
	MOVEI	2,-5(17)
	MOVEM	3,3(2)
$253::
	PUSHJ	17,typesp
	MOVEI	2,-5(17)
	MOVEM	0,5(2)
	SETZ	3,
	MOVEI	4,-5(17)
	HRLI	4,331100
	DPB	3,4
	MOVEI	16,-5(17)
	PUSH	17,16
	PUSHJ	17,idecll
	ADJSP	17,-1
	PUSH	17,[22]
	PUSHJ	17,expect
	ADJSP	17,-10
	POPJ	17,
idecll:
	ADJSP	17,12
	SETZB	2,-1(17)
$254::
	PUSH	17,-13(17)
	MOVEI	16,-12(17)
	PUSH	17,16
	PUSHJ	17,copysy
	ADJSP	17,-2
	SETZ	2,
	PUSH	17,2
	MOVEI	16,-12(17)
	PUSH	17,16
	PUSHJ	17,declar
	ADJSP	17,-2
	MOVEM	0,-3(17)
	PUSH	17,-3(17)
	PUSHJ	17,izer
	ADJSP	17,-1
	MOVEM	0,-2(17)
	MOVE	3,scope
	CAIE	3,12
	JRST	$256
	PUSH	17,-2(17)
	PUSH	17,-2(17)
	SETZ	2,
	PUSH	17,2
	SETZ	5,
	PUSH	17,5
	PUSH	17,[146]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,-1(17)
$256::
	MOVE	3,token
	CAIE	3,15
	JRST	$255
	PUSHJ	17,nextok
	JRST	$254
$255::
	MOVE	3,maxnod
	MOVEM	3,(17)
	PUSH	17,-1(17)
	PUSHJ	17,gencod
	ADJSP	17,-1
	MOVE	3,(17)
	MOVEM	3,maxnod
	ADJSP	17,-12
	POPJ	17,
stmtli:
	ADJSP	17,3
	SETZB	2,-2(17)
$257::
	PUSHJ	17,statem
	PUSH	17,0
	SETZ	2,
	PUSH	17,2
	SETZ	3,
	PUSH	17,3
	SETZ	4,
	PUSH	17,4
	PUSH	17,[131]
	PUSH	17,[3]
	PUSHJ	17,defnod
	ADJSP	17,-6
	MOVEM	0,-1(17)
	MOVE	3,-2(17)
	JUMPN	3,$261
	MOVE	5,-1(17)
	MOVEM	5,(17)
	JRST	$262
$261::
	MOVE	5,-1(17)
	MOVE	7,-2(17)
	MOVEM	5,3(7)
$262::
	MOVEM	5,-2(17)
	MOVE	10,token
	CAIE	10,35
	JRST	$263
	MOVE	0,(17)
	ADJSP	17,-3
	POPJ	17,
$263::
	JRST	$257
$260::
	ADJSP	17,-3
	POPJ	17,

	INTERN	typesp,strspe,declar,decl0,extdef,funcde,datade,decl1
	INTERN	decl2,pconst,sdecll,sdecla,declst,absdec,typena,stmtli
	INTERN	declli,izer,izer0,izer1,izlist,decln,idecll

	EXTERN	.iob,stdin,stdout,stderr,libpre,libpst,sprefi,spstfi
	EXTERN	tok,rw,map,errstr,module,input,output,symfna,in,out
	EXTERN	fsym,inc,mac,consta,nodes,csymbo,htable,symbol,isym
	EXTERN	deftyp,charty,deflab,scalar,ttable,types,tstack,line
	EXTERN	page,tline,scope,level,maclev,breakl,contle,eflag
	EXTERN	eof,minsym,maxsym,maxtyp,maxnod,maxlab,maxini,minloc
	EXTERN	maxaut,ncond,nelse,token,toksta,time,optimi,dump
	EXTERN	assemb,delete,vsym,syntax,.cpool,cpool,macptr,ch
	EXTERN	errlin,erptr,nextok,copysy,symcpy,freesy,creatl,expect
	EXTERN	tsize,addtyp,gettyp,error,symapp,creats,recove,earlye
	EXTERN	findsy,fprint,exit,defnod,gencod,ridaut,expres,charar
	EXTERN	charpo,statem

	END