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: