Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

x

(
4@P C3$\W P$Alt==$bsym(N.,A)
t==$bsyE=W (&$Not==0
 H$Col==0
 $Beg==0h
 $Rsy==0
 $Sem==NIL
 $Alt==NIL(
 $Suc==NIL
 $NHum==A
$bsym(N.,hA):	; here goes node 'Num.

es G>eI1 F$Col==1
K:$ #h$printx
 i$f2	<printx [SXMEN$(D Finished proces$Hsing .SYN file.]>
 end

file.]>K:%kr `	exp	$Not,( $Col, $Beg, $RsyH
	exp	$Sem
	exph	$Alt, $Suc
	exp	$Typ
	exp	$Wht

yp
	exp	$Whth
%Count==0
 Settab:
 repea (t %Tokmax,
      H   <%Count==%Coun ht+1
	 Word	(%S1,!\%Count)
	 Word	!((%S2,\%Count)
	>

,\%Count)
	>Q&uy 
Q'] 
Q'%z` "h%Tokmax==A
%Tokmax==Sd[S (,radix	10
Hife	A,		<$len==0h>
ifle	A-6, <ifn A,	<$len==6>>
ifle	A-12, <ifgH A-6,	<$len==12>h>
ifg	A-12,	<$len==12
		if1, <
		printx %SYMTLIH Requested A sighnificant characters for ID''s.
		(printx [SXMASM AsHsuming maximum of 12.]
		>>

of\vI9P \YP \]P 
\$\VP 
]lP sall
if1	(<printx [SXMNP1 PHass one for syntahx A.]>
if2	<printx [SXMNP2 Pass (two for syntax AH.]>
request	synih,\$len
request	syne,\$len
reques(t	lexi,\$len	
reHquest	sym,\$len,ch

twoseg	^o4000	00	

title	SA 	(-- Table for SYNI	H parser table A.	h
intern	SA
ext
ern	LA		

relo
(c	^o000000	
SA:
H	
.dfa:	exp	LA	
h	
.start:	exp	StartNode	
.sets:	(exp	SetTable	

H.curno:	exp	0		
h.nextn:	exp	0		


.curto:	exp	0, 0	

(	
	ifge	<$len-12

H>,	<
	exp	0		
>

h

.prost:	exp	0
.prosi:	exp	0
.propt:	exp	0
.okptr:	exp	0

.recst:	exp	0		
.recsi:	exp(	0		
.recpt:	expH	0		
.recno:	exph	0		

.argst:	exp	0		
.argsi:	e(xp	0		
.argpt:	eHxp	0		

.semqu:h	exp	0		
.semsi:	exp	0		
.sempt:(	exp	0		
.sem:	eHxp	0		

.ok:	exhp	0		
.match:	exp	0		
.seman:	ex(p	0		
.noalt:	exHp	0		
.overr:	exhp	0		
.recov:	exp	0		
.retur:	ex(p	0		

reloc	^o400000	

loc	^o]&`P ]>$\` hStartNode:

StartNode:]>vI9 H>$Wht==$bsyhm(N.,A)
 $typ==N$nterm

$typ==]?%kr 0$Not==1
aJ|M1 (.printx	[SXHMPRO Now assemblihng production A.]

oduction A.e$YT (D$Wht==A
H $Typ==N$redef

$Typ==N$redef
eY9 
H.request d
hskc:ABC[^o103,^o307]
C[^o103,eQ J$Rsy==1
glZ L$Sem==A
g  Hzifndef	%S1hB, <%S1B==0>
 ifndef %S2B, <%S(2B==0>
 ifl	<AH-^d36>,	<%S1B==%hS1B!<1b<A>>>
 ifge	<A-^d36>,	<(%S2B==%S2B!<1b<A-^d36>>>

1b<g%yZ 8$Wht==A
 $Typ==N$set


g&0 HhSetTable:
 printx [SXMSET Building set table.]

g set tablgR- H$Beg==1
gV99 HT$Suc==$bsym(N.,A)
c==$bsyiZ7 H4$Wht==A
 $Typ==N$term

o?@ !hifdef	AB",	<exp AB>
 if"(ndef	AB,	<exp 0>

AB,	<exp 0	  ,AB
S@P 
>}{woP