perm filename PARSE.COM[S,AIL] blob sn#069776 filedate 1973-11-10 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00004 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002
 00003 00003		1) PARSE vs. 2) PARSE[S,AIL]	SRCCOM	11-10-73	13:33	PAGES 1,1
 00006 00004		1) PARSE vs. 2) PARSE[S,AIL]	SRCCOM	11-10-73	13:33	PAGES 21,21
 00008 ENDMK
⊗;
	1) PARSE vs. 2) PARSE[S,AIL]	SRCCOM	11-10-73	13:33	PAGES 1,1

******** PARSE **** PAGE 1
1)	COMMENT ⊗   VALID 00022 PAGES VERSION 17-1(2)
1)	RECORD PAGE   DESCRIPTION
*** PARSE[S,AIL] *** PAGE 1
2)	COMMENT ⊗   VALID 00022 PAGES VERSION 17-1(4)
2)	RECORD PAGE   DESCRIPTION


******** PARSE **** PAGE 2
1)	021  102100000002  ⊗;
1)	COMMENT ⊗
1)	VERSION 17-1(2) 8-1-73 
1)	VERSION 17-1(1) 7-26-73 BY RHT  JUST CHECKING
*** PARSE[S,AIL] *** PAGE 2
2)	021  102100000004  ⊗;
2)	COMMENT ⊗
2)	VERSION 17-1(4) 9-19-73 BY HJS ADD EVALREDFINE AND CVPS
2)	VERSION 17-1(3) 8-27-73 BY JRL INCREASE SIZE OF DDFPDP FOR DEBUGGER
2)	VERSION 17-1(2) 8-27-73 BY JRL FORCE DDFIND TO SAVE LPSA,TEMP,USER
2)	VERSION 17-1(1) 7-26-73 BY RHT  JUST CHECKING


******** PARSE **** PAGE 5
1)	↑PARSE:				;THIS IS THE PARSER !
*** PARSE[S,AIL] *** PAGE 5
2)			ERF		; PRODUCTION TO START EVALREDEFINE 
2)	↑PARSE:				;THIS IS THE PARSER !


******** PARSE **** PAGE 13
1)	↓DDFPDL: BLOCK	11	;SPECIAL PDP
1)	↑↑DDRES: 0		;RESULT IF FOUND
*** PARSE[S,AIL] *** PAGE 13
2)	↓DDFPDL: BLOCK	13	;SPECIAL PDP
2)	↑↑DDRES: 0		;RESULT IF FOUND


******** PARSE **** PAGE 13
1)	↓DDFPDP: IOWD	10,DDFPDL	;PDP FOR DDFPDL (SEE DDRES)
1)	;OBUF -- Output buffer for TTYUUO'S to type stack info
*** PARSE[S,AIL] *** PAGE 13
2)	↓DDFPDP: IOWD	12,DDFPDL	;PDP FOR DDFPDL (SEE DDRES)
2)	;OBUF -- Output buffer for TTYUUO'S to type stack info


******** PARSE **** PAGE 21
1)		SETZM	DDFBUF
*** PARSE[S,AIL] *** PAGE 21
	1) PARSE vs. 2) PARSE[S,AIL]	SRCCOM	11-10-73	13:33	PAGES 21,21

2)	;; JRL- DDFIND SHOULDN'T DESTROY TEMP,LPSA, OR USER EITHER
2)		PUSH	P,TEMP
2)		PUSH	P,LPSA
2)		PUSH	P,USER
2)	;;
2)		SETZM	DDFBUF


******** PARSE **** PAGE 21
1)		MOVEI	LPSA,0
*** PARSE[S,AIL] *** PAGE 21
2)	;; -RESTORE WHAT WE SAVED
2)		POP	P,USER
2)		POP	P,LPSA
2)		POP	P,TEMP
2)	;;
2)		MOVEI	LPSA,0


******** PARSE **** PAGE 22
1)	↑↑PRINSYM:	
*** PARSE[S,AIL] *** PAGE 22
2)	↑↑PRINSYM: