Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/old/kc/cc87.fai
There are no other files named cc87.fai in the archive.
	TITLE	cc87
	.LIBRARY C:CLIB
	EXTERN	.START
code3:
	MOVEI	2,1
	MOVE	4,-1(17)
	CAIE	4,14
	SETZ	2,
	JUMPE	2,$1
	MOVE	5,@previo
	CAIE	5,3
	JRST	$1
	MOVE	10,previo
	MOVE	7,2(10)
	CAME	7,-2(17)
	JRST	$1
	MOVE	12,optimi
	JUMPE	12,$1
	MOVE	3,previo
	MOVE	2,1(3)
	CAIN	2,27
	JRST	$4
	CAIN	2,14
	JRST	$3
	JRST	$2
$3::
$4::
	MOVEI	4,5
	MOVEM	4,@previo
	MOVE	6,previo
	MOVE	5,4(6)
	MOVE	10,previo
	MOVEM	5,4(10)
	MOVE	11,-3(17)
	MOVE	12,previo
	MOVEM	11,3(12)
	SETZ	7,
	MOVE	14,previo
	MOVEM	7,5(14)
	POPJ	17,
$2::
$1::
	MOVE	15,maxcod
	ANDI	15,377
	IMULI	15,6
	ADDI	15,codes
	MOVEM	15,previo
	MOVEI	13,5
	MOVEM	13,@previo
	MOVE	3,-1(17)
	MOVE	4,previo
	MOVEM	3,1(4)
	MOVE	5,-2(17)
	MOVE	6,previo
	MOVEM	5,2(6)
	MOVE	10,-3(17)
	MOVE	11,previo
	MOVEM	10,3(11)
	SETZ	2,
	MOVE	7,previo
	MOVEM	2,4(7)
	SETZ	12,
	MOVE	14,previo
	MOVEM	12,5(14)
	MOVE	15,maxcod
	AOS	maxcod
	POPJ	17,
code4:
	ADJSP	17,6
	MOVEI	2,1
	MOVE	3,@previo
	CAIE	3,3
	SETZ	2,
	JUMPE	2,$5
	MOVE	6,previo
	MOVE	5,2(6)
	CAME	5,-11(17)
	JRST	$5
	MOVE	10,previo
	MOVE	7,1(10)
	CAIN	7,27
	JRST	$10
	CAIN	7,110
	JRST	$7
	JRST	$6
$7::
	MOVE	12,previo
	MOVE	11,4(12)
	MOVN	11,11
	MOVE	14,previo
	MOVEM	11,4(14)
$10::
	MOVEI	13,20
	MOVEM	13,@previo
	MOVE	3,-10(17)
	MOVE	4,previo
	MOVEM	3,2(4)
	MOVE	5,-7(17)
	MOVE	6,previo
	MOVEM	5,1(6)
	PUSH	17,-11(17)
	PUSHJ	17,releas
	ADJSP	17,-7
	POPJ	17,
$6::
$5::
	SETZB	2,-3(17)
	SETZB	3,0(17)
	MOVE	5,previo
	MOVEM	5,-5(17)
$11::
	MOVE	6,-5(17)
	JUMPE	6,$12
	MOVE	10,-5(17)
	MOVE	7,2(10)
	CAME	7,-11(17)
	JRST	$13
	MOVE	12,-5(17)
	MOVE	11,1(12)
	CAIE	11,14
	JRST	$14
	MOVE	14,@-5(17)
	CAIN	14,5
	JRST	$17
	CAIN	14,3
	JRST	$16
	JRST	$15
$16::
	MOVE	2,-5(17)
	MOVE	3,4(2)
	ADDB	3,(17)
	MOVEI	15,1753
	MOVE	5,-5(17)
	MOVEM	15,1(5)
	JRST	$15
$17::
	MOVE	6,-3(17)
	JUMPN	6,$20
	MOVEI	7,1753
	MOVE	12,-5(17)
	MOVEM	7,1(12)
	MOVE	2,-5(17)
	MOVE	10,3(2)
	MOVEM	10,-3(17)
	MOVE	13,-5(17)
	MOVE	11,4(13)
	ADDB	11,(17)
$20::
$15::
	JRST	$21
$14::
	MOVE	3,-5(17)
	MOVE	4,1(3)
	CAIGE	4,1750
	JRST	$12
$21::
$13::
	PUSH	17,-5(17)
	PUSHJ	17,before
	ADJSP	17,-1
	MOVEM	0,-5(17)
	JRST	$11
$12::
	MOVE	3,(17)
	JUMPN	3,$23
	MOVEI	2,1
	MOVE	5,-3(17)
	CAIN	5,0
	SETZ	2,
	JUMPE	2,$22
$23::
	MOVEI	6,14
	MOVEM	6,-1(17)
	MOVEI	7,1
	MOVE	11,-5(17)
	MOVE	10,1(11)
	CAIE	10,27
	SETZ	7,
	JUMPE	7,$24
	MOVE	14,-5(17)
	MOVE	13,2(14)
	CAME	13,-11(17)
	JRST	$24
	MOVE	3,@-5(17)
	CAIE	3,3
	JRST	$24
	MOVE	15,-5(17)
	MOVE	5,4(15)
	ADDB	5,(17)
	MOVEI	2,1753
	MOVE	7,-5(17)
	MOVEM	2,1(7)
	MOVEI	6,27
	MOVEM	6,-1(17)
$24::
	PUSH	17,-3(17)
	PUSH	17,-12(17)
	PUSH	17,-3(17)
	PUSHJ	17,code3
	ADJSP	17,-3
	MOVE	3,(17)
	MOVE	4,previo
	MOVEM	3,4(4)
$22::
	MOVEI	2,1
	MOVE	6,previo
	MOVEM	6,-5(17)
	CAIN	6,0
	SETZ	2,
	JUMPE	2,$25
	MOVE	10,-5(17)
	MOVE	7,2(10)
	CAME	7,-11(17)
	JRST	$25
	MOVE	12,optimi
	JUMPE	12,$25
	MOVEI	2,1
	MOVE	4,-7(17)
	CAIE	4,27
	SETZ	2,
	JUMPN	2,$27
	MOVEI	5,1
	MOVEI	6,tok
	MOVE	10,-7(17)
	IMULI	10,2
	ADD	6,10
	MOVE	7,(6)
	CAIE	7,10
	SETZ	5,
	JUMPE	5,$26
$27::
	MOVE	12,@-5(17)
	MOVE	13,12
	IDIVI	13,11
	MOVM	14,14
	CAME	12,$36(14)
	JRST	$30
	JRST	@$37(14)
$36::
	-1
	1
	24
	3
	15
	5
	-1
	-1
	-1
$37::
	$30
	$33
	$32
	$35
	$34
	$31
	$30
	$30
	$30
$31::
	MOVE	2,-5(17)
	MOVE	3,1(2)
	CAIN	3,14
	JRST	$42
	CAIN	3,27
	JRST	$41
	JRST	$40
$41::
	MOVE	6,-7(17)
	CAIE	6,24
	JRST	$43
	PUSH	17,-5(17)
	PUSHJ	17,before
	ADJSP	17,-1
	MOVEM	0,-4(17)
	MOVE	3,-4(17)
	MOVE	2,2(3)
	CAME	2,-10(17)
	JRST	$44
	MOVEI	4,1
	MOVE	5,@-4(17)
	CAIE	5,1
	SETZ	4,
	JUMPE	4,$45
	MOVE	10,-4(17)
	MOVE	7,3(10)
	MOVE	12,-5(17)
	MOVE	11,3(12)
	CAME	7,11
	JRST	$45
	MOVE	14,-4(17)
	MOVE	13,1(14)
	MOVEM	13,-1(17)
	MOVEI	15,1
	MOVEI	2,1
	MOVEI	3,1
	MOVE	6,-1(17)
	CAIN	6,14
	JRST	$52
	MOVE	7,-1(17)
	CAIN	7,16
	JRST	$52
	SETZ	3,
$52::
	JUMPN	3,$51
	MOVEI	10,1
	MOVE	12,-1(17)
	CAIE	12,13
	SETZ	10,
	JUMPN	10,$51
	MOVE	5,-1(17)
	CAIN	5,7
	JRST	$51
	SETZ	2,
$51::
	JUMPN	2,$50
	MOVEI	6,1
	MOVE	13,-1(17)
	CAIE	13,34
	SETZ	6,
	JUMPN	6,$50
	MOVE	3,-1(17)
	CAIN	3,32
	JRST	$50
	SETZ	15,
$50::
	JUMPN	15,$47
	MOVEI	5,1
	MOVE	11,-1(17)
	CAIE	11,20
	SETZ	5,
	JUMPE	5,$46
$47::
	MOVEI	12,17
	MOVEM	12,@-4(17)
	MOVE	3,-5(17)
	MOVE	2,4(3)
	MOVE	6,-4(17)
	MOVEM	2,4(6)
	SETZ	4,
	MOVE	13,-4(17)
	MOVEM	4,5(13)
	MOVEI	7,1753
	MOVE	5,-5(17)
	MOVEM	7,1(5)
	MOVE	0,-10(17)
	ADJSP	17,-6
	POPJ	17,
$46::
	JRST	$53
$45::
	MOVEI	10,1
	MOVE	11,@-4(17)
	CAIE	11,11
	SETZ	10,
	JUMPE	10,$54
	MOVE	15,-4(17)
	MOVE	14,1(15)
	CAIE	14,2
	JRST	$54
	MOVEI	3,1753
	MOVE	6,-5(17)
	MOVEM	3,1(6)
	MOVEI	4,17
	MOVEM	4,@-4(17)
	MOVE	7,-5(17)
	MOVE	5,3(7)
	MOVE	11,-4(17)
	MOVEM	5,3(11)
	SETZ	10,
	MOVE	13,-4(17)
	MOVEM	10,5(13)
	MOVE	2,-5(17)
	MOVE	3,4(2)
	MOVE	6,-4(17)
	MOVEM	3,4(6)
	MOVE	0,-10(17)
	ADJSP	17,-6
	POPJ	17,
$54::
$53::
$44::
$43::
	MOVEI	4,1
	MOVEM	4,@-5(17)
	MOVE	14,-11(17)
	CAMN	14,-10(17)
	JRST	$55
	MOVE	12,[-1]
	MOVEI	15,regis
	ADD	15,-11(17)
	MOVEM	12,(15)
$55::
	MOVE	7,-7(17)
	MOVE	10,-5(17)
	MOVEM	7,1(10)
	MOVE	11,-10(17)
	MOVE	13,-5(17)
	MOVEM	11,2(13)
	SETZ	5,
	MOVE	3,-5(17)
	MOVEM	5,5(3)
	ADJSP	17,-6
	POPJ	17,
$42::
	MOVEI	2,16
	MOVEM	2,@-5(17)
	MOVE	6,-7(17)
	MOVE	10,-5(17)
	MOVEM	6,1(10)
	MOVE	12,-10(17)
	MOVE	14,-5(17)
	MOVEM	12,2(14)
	MOVE	15,-11(17)
	MOVE	3,-5(17)
	MOVEM	15,5(3)
	MOVE	5,-7(17)
	CAIE	5,24
	JRST	$56
	PUSH	17,-5(17)
	PUSHJ	17,before
	ADJSP	17,-1
	MOVEM	0,-4(17)
	MOVEI	2,1
	MOVE	3,@-4(17)
	CAIE	3,11
	SETZ	2,
	JUMPE	2,$57
	MOVE	6,-4(17)
	MOVE	5,1(6)
	CAIE	5,2
	JRST	$57
	MOVE	11,-4(17)
	MOVE	10,2(11)
	CAME	10,-10(17)
	JRST	$57
	MOVEI	12,1753
	MOVE	14,-4(17)
	MOVEM	12,1(14)
	MOVEI	13,2
	MOVE	2,-5(17)
	MOVEM	13,1(2)
	MOVEI	3,17
	MOVEM	3,@-5(17)
$57::
$56::
	ADJSP	17,-6
	POPJ	17,
$40::
$32::
	MOVE	6,-5(17)
	MOVE	4,1(6)
	CAIE	4,27
	JRST	$60
	MOVEI	5,15
	MOVEM	5,@-5(17)
	MOVE	10,-11(17)
	CAMN	10,-10(17)
	JRST	$61
	MOVE	7,[-1]
	MOVEI	11,regis
	ADD	11,-11(17)
	MOVEM	7,(11)
$61::
	MOVE	14,-7(17)
	MOVE	2,-5(17)
	MOVEM	14,1(2)
	MOVE	12,-10(17)
	MOVE	13,-5(17)
	MOVEM	12,2(13)
	MOVE	4,-7(17)
	CAIE	4,24
	JRST	$62
	PUSH	17,-5(17)
	PUSHJ	17,before
	ADJSP	17,-1
	MOVEM	0,-4(17)
	MOVEI	2,1
	MOVE	3,@-4(17)
	CAIE	3,11
	SETZ	2,
	JUMPE	2,$63
	MOVE	6,-4(17)
	MOVE	5,1(6)
	CAIE	5,2
	JRST	$63
	MOVE	11,-4(17)
	MOVE	10,2(11)
	CAME	10,-10(17)
	JRST	$63
	MOVEI	12,1753
	MOVE	14,-4(17)
	MOVEM	12,1(14)
	MOVEI	13,2
	MOVE	2,-5(17)
	MOVEM	13,1(2)
	MOVEI	3,17
	MOVEM	3,@-5(17)
$63::
$62::
	ADJSP	17,-6
	POPJ	17,
$60::
	JRST	$30
$33::
$34::
	MOVE	6,-5(17)
	MOVE	4,1(6)
	CAIE	4,27
	JRST	$64
	MOVEI	5,10
	MOVEM	5,@-5(17)
	MOVE	10,-11(17)
	CAMN	10,-10(17)
	JRST	$65
	MOVE	7,[-1]
	MOVEI	11,regis
	ADD	11,-11(17)
	MOVEM	7,(11)
$65::
	MOVE	14,-7(17)
	MOVE	2,-5(17)
	MOVEM	14,1(2)
	MOVE	12,-10(17)
	MOVE	13,-5(17)
	MOVEM	12,2(13)
	ADJSP	17,-6
	POPJ	17,
$64::
	JRST	$30
$35::
	MOVE	4,-5(17)
	MOVE	3,1(4)
	CAIE	3,14
	JRST	$66
	MOVEI	6,15
	MOVEM	6,@-5(17)
	MOVE	15,-11(17)
	CAMN	15,-10(17)
	JRST	$67
	MOVE	2,[-1]
	MOVEI	7,regis
	ADD	7,-11(17)
	MOVEM	2,(7)
$67::
	MOVE	11,-7(17)
	MOVE	12,-5(17)
	MOVEM	11,1(12)
	MOVE	13,-10(17)
	MOVE	14,-5(17)
	MOVEM	13,2(14)
	MOVE	3,-11(17)
	MOVE	5,-5(17)
	MOVEM	3,5(5)
	ADJSP	17,-6
	POPJ	17,
$66::
$30::
	JRST	$70
$26::
	MOVE	6,-5(17)
	MOVE	4,1(6)
	CAIE	4,27
	JRST	$71
	MOVE	2,@-5(17)
	MOVEM	2,-2(17)
	MOVEI	7,1
	MOVE	12,-2(17)
	CAIE	12,1
	SETZ	7,
	JUMPN	7,$73
	MOVEI	15,1
	MOVE	5,-2(17)
	CAIE	5,5
	SETZ	15,
	JUMPE	15,$72
$73::
	MOVE	14,-11(17)
	CAMN	14,-10(17)
	JRST	$74
	MOVE	2,[-1]
	MOVEI	4,regis
	ADD	4,-11(17)
	MOVEM	2,(4)
$74::
	MOVE	10,-2(17)
	CAIE	10,1
	JRST	$75
	MOVEI	11,10
	JRST	$76
$75::
	MOVEI	11,1
$76::
	MOVEM	11,@-5(17)
	MOVE	5,-7(17)
	MOVE	7,-5(17)
	MOVEM	5,1(7)
	MOVE	13,-10(17)
	MOVE	14,-5(17)
	MOVEM	13,2(14)
	SETZ	3,
	MOVE	2,-5(17)
	MOVEM	3,4(2)
	SETZ	4,
	MOVE	10,-5(17)
	MOVEM	4,5(10)
	ADJSP	17,-6
	POPJ	17,
$72::
$71::
$70::
$25::
	MOVE	11,maxcod
	ANDI	11,377
	IMULI	11,6
	ADDI	11,codes
	MOVEM	11,previo
	MOVEI	6,15
	MOVEM	6,@previo
	MOVE	7,-7(17)
	MOVE	11,previo
	MOVEM	7,1(11)
	MOVE	12,-10(17)
	MOVE	13,previo
	MOVEM	12,2(13)
	SETZ	5,
	MOVE	15,previo
	MOVEM	5,4(15)
	MOVE	2,-11(17)
	MOVE	4,previo
	MOVEM	2,5(4)
	MOVE	10,maxcod
	AOS	maxcod
	PUSH	17,-11(17)
	PUSHJ	17,releas
	ADJSP	17,-7
	POPJ	17,

	INTERN	code3,code4

	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,dec20o,codes,previo,litera,maxcod,mincod
	EXTERN	maxlit,stacko,regis,brklab,loopla,before,releas

	END