Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0029/docpgm.lap
There are 2 other files named docpgm.lap in the archive. Click here to see a list.
(LAP ADVANCE SUBR) 
	(HLRZ@ 1 (SPECIAL RULES))(HRRZ@ 1 1)(PUSH P 1)(HLRZ@ 2 (SPECIAL RULES))(HRRZ@ 2 2)
	(HLRZ@ 2 2)(HRRZ@ 2 2)(JUMPN 2 G0003)(HLRZ@ 2 (SPECIAL RULES))(HRRZ@ 2 2)(HRRZ@ 2 2)
	(JRST 0 G0002)
G0003 (HLRZ@ 2 (SPECIAL RULES))(HRRZ@ 2 2)(HLRZ@ 2 2)(HRRZ@ 2 2)
G0002 (HRLM@ 2 0 P)(POP P 1)(POPJ P)
NIL 


(LAP ANALYZE SUBR) 
	(JSP 6 SPECBIND)(0 0 (SPECIAL RULES))(0 0 (SPECIAL PARSELIST))(PUSH P (SPECIAL KEYSTACK))
	(PUSH P (C 0 0 (QUOTE NIL)))(MOVE 1 (SPECIAL FLIPFLOP))(CALL 1 (E MINUS))(MOVEI 2 (QUOTE 2))
	(CALL 2 (E *PLUS))(MOVEM 1 (SPECIAL FLIPFLOP))(CALL 1 (E ZEROP))(JUMPE 1 G0007)(MOVEI 2 (QUOTE MEM))
	(JRST 0 G0006)
G0007 (MOVEI 2 (QUOTE LASTRESORT))
G0006 (MOVEI 1 (QUOTE NONE))(CALL 2 (E GET))(CALL 1 (E NCONS))(MOVE 2 1)(EXCH 1 -1 P)(CALL 2 (E *APPEND))
	(MOVEM 1 (SPECIAL KEYSTACK))
G0001 (MOVEI 2 (QUOTE RULES))(HLRZ@ 1 (SPECIAL KEYSTACK))(CALL 2 (E GET))(MOVEM 1 (SPECIAL RULES))
G0002 (HLRZ@ 1 (SPECIAL RULES))(CALL 1 (E ATOM))(JUMPE 1 G0019)(MOVEI 2 (QUOTE RULES))(HLRZ@ 1 (SPECIAL RULES))
	(CALL 2 (E GET))(MOVEM 1 (SPECIAL RULES))(JRST 0 G0018)
G0019 (MOVE 1 (SPECIAL RULES))
G0018 (CALL 1 (E CAAR))(CLEARM 1 (SPECIAL PARSELIST))(MOVEM 1 0 P)(MOVE 2 (SPECIAL SENTENCE))
	(CALL 2 (E TEST))(JUMPN 1 G0026)(HRRZ@ 1 (SPECIAL RULES))(MOVEM 1 (SPECIAL RULES))
	(JRST 0 G0025)
G0026 (CALL 0 (E ADVANCE))(HLRZ@ 1 1)(MOVEM 1 (SPECIAL RULES))(HLRZ@ 1 1)(CALL 1 (E ATOM))
	(JUMPN 1 G0029)(HLRZ@ 1 (SPECIAL RULES))(HLRZ@ 1 1)(CAIN 1 (QUOTE PRE))(JRST 0 G0029)
	(HLRZ@ 1 (SPECIAL RULES))(CALL 1 (E RECONSTRUCT))(CALL 1 (E SENTPRINT))(JRST 0 G0003)
G0029 (HLRZ@ 1 (SPECIAL RULES))(CALL 1 (E ATOM))(JUMPN 1 G0040)(HLRZ@ 1 (SPECIAL RULES))(CALL 1 (E CADR))
	(CALL 1 (E RECONSTRUCT))(MOVEM 1 (SPECIAL SENTENCE))(HLRZ@ 1 (SPECIAL RULES))(CALL 1 (E CDDR))
	(MOVEM 1 (SPECIAL RULES))(JRST 0 G0025)
G0040 (HLRZ@ 1 (SPECIAL RULES))(CAIE 1 (QUOTE NEWKEY))(JRST 0 G0046)(HRRZ@ 1 (SPECIAL KEYSTACK))
	(JRST 0 (G0001 -1))
G0046 
G0025 (JRST 0 G0002)
G0003 (SUB P (C 0 0 2 2))(JRST 0 SPECSTR)
NIL 


(LAP BREAKANALYZE SUBR) 
	(MOVEI 1 (QUOTE 15))(PUSH P (SPECIAL LETTER))(CALL 1 (E ASCII))(CALL 1 (E INTERN))
	(POP P 2)(CAME 1 2)(JRST 0 G0002)(MOVE 3 (SPECIAL TERMINAL))(MOVEM 3 (SPECIAL FLAG))
	(MOVEI 1 (QUOTE T))(MOVEM 1 (SPECIAL TERMINAL))(JRST 0 G0001)
G0002 (MOVEI 2 (QUOTE PUNCTUATION))(MOVE 1 (SPECIAL LETTER))(CALL 2 (E GET))(MOVEM 1 (SPECIAL FLAG))
	(JUMPE 1 G0005)(MOVE 1 (SPECIAL KEYSTACK))(JUMPE 1 G0005)(CALL 0 (E GOBBLE))(JRST 0 G0001)
G0005 (MOVE 1 (SPECIAL FLAG))(JUMPE 1 G0009)(CLEARB 1 (SPECIAL FLAG))(MOVEM 1 (SPECIAL SENTENCE))
	(JRST 0 G0001)
G0009 (MOVEI 1 (QUOTE 12))(PUSH P (SPECIAL LETTER))(CALL 1 (E ASCII))(CALL 1 (E INTERN))(POP P 2)
	(CAMN 1 2)(JRST 0 G0010)(CLEARB 1 (SPECIAL TERMINAL))(JRST 0 G0001)
G0010 (MOVEI 1 (QUOTE NIL))
G0001 (POPJ P)
NIL 


(LAP CLEANUP SUBR) 
	(PUSH P (SPECIAL OBLIST))
G0001 (HLRZ@ 1 (SPECIAL SOBLIST))(HRLM@ 1 0 P)(HRRZ@ 1 0 P)(MOVEM 1 0 P)(JUMPE 1 G0007)(HRRZ@ 1 (SPECIAL SOBLIST
))(MOVEM 1 (SPECIAL SOBLIST))(JRST 0 G0001)
G0007 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
NIL 


(LAP GOBBLE SUBR) 
	
G0001 (CALL 0 (E READCH))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE //))(CALL 2 (E XCONS))(CALL 1 (E READLIST))
	(MOVEM 1 (SPECIAL LETTER))(CALL 0 (E BREAKANALYZE))(MOVE 1 (SPECIAL FLAG))(JUMPE 1 G0001)
	(MOVEI 1 (QUOTE NIL))(POPJ P)
NIL 


(LAP INITIALIZE SUBR) 
	(CLEARB 2 (SPECIAL KEYSTACK))(MOVEM 2 (SPECIAL SENTENCE))(MOVE 1 (SPECIAL OBLIST))
	(CALL 2 (E *APPEND))(MOVEM 1 (SPECIAL SOBLIST))(POPJ P)
NIL 


(LAP MAKESENTENCE SUBR) 
	(MOVEI 2 (QUOTE TRANSLATION))(MOVE 1 (SPECIAL WORD))(CALL 2 (E GET))(MOVEM 1 (SPECIAL FLAG))
	(JUMPE 1 G0002)(JRST 0 G0001)
G0002 (MOVE 1 (SPECIAL WORD))
G0001 (MOVE 2 (SPECIAL SENTENCE))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL SENTENCE))(POPJ P)
NIL 


(LAP MEMORY SUBR) 
	(JSP 6 SPECBIND)(0 0 (SPECIAL PARSELIST))(PUSH P (C 0 0 (QUOTE NIL)))(MOVEI 2 (QUOTE MEMR))
	(HLRZ@ 1 (SPECIAL KEYSTACK))(CALL 2 (E GET))(MOVEM 1 (SPECIAL RULES))(JUMPE 1 G0005)
	(MOVE 2 (SPECIAL SENTENCE))(CALL 1 (E CAAR))(CALL 2 (E TEST))(JUMPE 1 G0005)(MOVEI 2 (QUOTE MEM))
	(MOVEI 1 (QUOTE NONE))(CALL 2 (E GET))(MOVEI 2 (QUOTE RULES))(CALL 2 (E GET))(CALL 1 (E CDAR))
	(MOVEM 1 0 P)(HLRZ@ 1 1)(PUSH P 1)(CALL 0 (E ADVANCE))(CALL 1 (E CAAR))(CALL 1 (E RECONSTRUCT))
	(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(HRLM@ 1 0 P)
G0005 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(JRST 0 SPECSTR)
NIL 


(LAP PRIN2 SUBR) 
	(MOVEI 2 (QUOTE 13))(MOVEM 2 (SPECIAL OBASE))(PUSH P 1)
G0001 (MOVE 1 0 P)(JUMPN 1 G0006)(MOVEI 1 (QUOTE 12))(MOVEM 1 (SPECIAL OBASE))(JRST 0 G0002)
G0006 (HLRZ@ 1 1)(CAIE 1 (QUOTE //))(JRST 0 G0008)(HRRZ@ 1 0 P)(HLRZ@ 1 1)(CALL 1 (E PRINC))
	(HRRZ@ 1 0 P)(HRRZ@ 1 1)(MOVEM 1 0 P)(JRST 0 G0005)
G0008 (CALL 1 (E PRIN1))(JUMPE 1 G0013)(HRRZ@ 1 0 P)(MOVEM 1 0 P)
G0013 
G0005 (JRST 0 G0001)
G0002 (SUB P (C 0 0 1 1))(POPJ P)
NIL 


(LAP READIN SUBR) 
	(JSP 6 SPECBIND)(0 0 (SPECIAL WORD))(0 0 (SPECIAL LETTER))(0 0 (SPECIAL FLAG))(0 0 (SPECIAL TERMINAL))
G0001 (CALL 0 (E READWORD))(JUMPE 1 G0002)(CALL 0 (E MAKESENTENCE))(CALL 0 (E SETKEYSTACK))
G0002 (CALL 0 (E BREAKANALYZE))(MOVE 1 (SPECIAL FLAG))(JUMPE 1 G0001)(MOVE 1 (SPECIAL SENTENCE))
	(CALL 1 (E REVERSE))(MOVEM 1 (SPECIAL SENTENCE))(MOVEI 1 (QUOTE NIL))(JRST 0 SPECSTR)
NIL 


(LAP READWORD SUBR) 
	(CLEARM 1 (SPECIAL WORD))
G0001 (CALL 0 (E READCH))(CALL 1 (E NCONS))(MOVEI 2 (QUOTE //))(CALL 2 (E XCONS))(CALL 1 (E READLIST))
	(MOVEM 1 (SPECIAL LETTER))(MOVEI 2 (QUOTE BREAK))(CALL 2 (E GET))(MOVEM 1 (SPECIAL FLAG))
	(JUMPE 1 G0006)(MOVE 1 (SPECIAL WORD))(JUMPE 1 G0013)(CALL 1 (E REVERSE))(MOVEI 2 (QUOTE //))
	(CALL 2 (E XCONS))(CALL 1 (E READLIST))(MOVEM 1 (SPECIAL WORD))
G0013 (JRST 0 G0002)
G0006 (MOVE 2 (SPECIAL WORD))(MOVE 1 (SPECIAL LETTER))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL WORD))
	(JRST 0 G0001)
G0002 (POPJ P)
NIL 


(LAP RECONSTRUCT SUBR) 
	(PUSH P 1)(JUMPE 1 G0001)(HLRZ@ 1 1)(CALL 1 (E NUMBERP))(JUMPE 1 G0002)(MOVE 2 (SPECIAL PARSELIST))
	(HLRZ@ 1 0 P)(CALL 2 (E RECO1))(PUSH P 1)(HRRZ@ 1 -1 P)(CALL 1 (E RECONSTRUCT))(MOVE 2 1)
	(POP P 1)(CALL 2 (E *APPEND))(JRST 0 G0001)
G0002 (HLRZ@ 1 0 P)(PUSH P 1)(HRRZ@ 1 -1 P)(CALL 1 (E RECONSTRUCT))(POP P 2)(CALL 2 (E XCONS))
G0001 (SUB P (C 0 0 1 1))(POPJ P)
NIL 


(LAP RECO1 SUBR) 
	(PUSH P 1)(PUSH P 2)(MOVEI 2 (QUOTE 1))(CALL 2 (E *GREAT))(JUMPE 1 G0002)(MOVE 1 -1 P)
	(CALL 1 (E SUB1))(HRRZ@ 2 0 P)(CALL 2 (E RECO1))(JRST 0 G0001)
G0002 (HLRZ@ 1 0 P)
G0001 (SUB P (C 0 0 2 2))(POPJ P)
NIL 


(LAP SENTPRINT SUBR) 
	(PUSH P 1)
G0001 (HLRZ@ 1 0 P)(CALL 1 (E EXPLODE))(CALL 1 (E PRIN2))(HRRZ@ 1 0 P)(MOVEM 1 0 P)(JUMPE 1 G0009)
	(HLRZ@ 1 1)(CALL 1 (E FLATSIZE))(PUSH P 1)(CALL 0 (E CHRCT))(CALL 1 (E SUB1))(POP P 2)
	(CALL 2 (E *LESS))(JUMPE 1 G0012)(CALL 0 (E TERPRI))(JRST 0 G0011)
G0012 (MOVEI 1 (QUOTE / ))(CALL 1 (E PRINC))
G0011 (JRST 0 G0001)
G0009 (CALL 0 (E MEMORY))(MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
NIL 


(LAP SETKEYSTACK SUBR) 
	(MOVEI 2 (QUOTE PRIORITY))(MOVE 1 (SPECIAL WORD))(CALL 2 (E GET))(MOVEM 1 (SPECIAL FLAG))
	(JUMPE 1 G0002)(MOVE 1 (SPECIAL KEYSTACK))(JUMPE 1 G0002)(HLRZ@ 1 1)(CALL 2 (E GET))
	(MOVE 2 (SPECIAL FLAG))(CALL 2 (E *LESS))(JUMPE 1 G0002)(MOVE 2 (SPECIAL KEYSTACK))
	(MOVE 1 (SPECIAL WORD))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL KEYSTACK))(JRST 0 G0001)
G0002 (MOVE 1 (SPECIAL FLAG))(JUMPE 1 G0009)(MOVE 1 (SPECIAL WORD))(CALL 1 (E NCONS))(MOVE 2 1)
	(MOVE 1 (SPECIAL KEYSTACK))(CALL 2 (E *APPEND))(MOVEM 1 (SPECIAL KEYSTACK))
G0009 
G0001 (POPJ P)
NIL 


(LAP TEST SUBR) 
	(JSP 6 SPECBIND)(0 1 (SPECIAL D))(0 2 (SPECIAL S))
G0001 (MOVE 1 (SPECIAL D))(JUMPN 1 G0006)(MOVE 1 (SPECIAL S))(JUMPN 1 G0008)(MOVE 1 (SPECIAL PARSELIST))
	(CALL 1 (E REVERSE))(MOVEM 1 (SPECIAL PARSELIST))(JRST 0 G0007)
G0008 (MOVEI 1 (QUOTE NIL))
G0007 (JRST 0 G0002)
G0006 (HLRZ@ 1 1)(CALL 1 (E NUMBERP))(JUMPE 1 G0013)(HLRZ@ 1 (SPECIAL D))(CALL 1 (E ZEROP))
	(JUMPE 1 G0017)(CALL 0 (E TEST5))(JRST 0 G0016)
G0017 (MOVE 2 1)(HLRZ@ 1 (SPECIAL D))(CALL 2 (E TEST3))
G0016 (JRST 0 G0012)
G0013 (HLRZ@ 1 (SPECIAL D))(CALL 1 (E TEST4))(JUMPE 1 G0024)(CALL 0 (E TEST2))
G0024 
G0012 (JUMPE 1 G0003)(HRRZ@ 1 (SPECIAL D))(MOVEM 1 (SPECIAL D))(JRST 0 G0001)
G0003 (MOVEI 1 (QUOTE NIL))
G0002 (JRST 0 SPECSTR)
NIL 


(LAP TEST1 SUBR) 
	(PUSH P 1)(PUSH P 2)(JUMPE 1 G0001)(HLRZ@ 2 1)(MOVE 1 0 P)(CALL 2 (E GET))(JUMPE 1 G0002)
	(MOVEI 1 (QUOTE T))(JRST 0 G0001)
G0002 (MOVE 2 0 P)(HRRZ@ 1 -1 P)(CALL 2 (E TEST1))
G0001 (SUB P (C 0 0 2 2))(POPJ P)
NIL 


(LAP TEST2 SUBR) 
	(HLRZ@ 1 (SPECIAL S))(CALL 1 (E NCONS))(MOVE 2 (SPECIAL PARSELIST))(CALL 2 (E CONS))
	(MOVEM 1 (SPECIAL PARSELIST))(HRRZ@ 1 (SPECIAL S))(MOVEM 1 (SPECIAL S))(MOVEI 1 (QUOTE T))
	(POPJ P)
NIL 


(LAP TEST3 SUBR) 
	(PUSH P 1)(PUSH P 2)(CALL 1 (E ZEROP))(JUMPE 1 G0002)(MOVE 1 0 P)(CALL 1 (E REVERSE))
	(MOVE 2 (SPECIAL PARSELIST))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL PARSELIST))(JRST 0 G0001)
G0002 (MOVE 1 (SPECIAL S))(JUMPE 1 G0006)(MOVE 1 -1 P)(CALL 1 (E SUB1))(HRRZ@ 2 (SPECIAL S))
	(PUSH P (SPECIAL S))(MOVEM 2 (SPECIAL S))(MOVE 2 -1 P)(PUSH P 1)(HLRZ@ 1 -1 P)(CALL 2 (E CONS))
	(MOVE 2 1)(POP P 1)(CALL 2 (E TEST3))(SUB P (C 0 0 1 1))
G0006 
G0001 (SUB P (C 0 0 2 2))(POPJ P)
NIL 


(LAP TEST4 SUBR) 
	(JSP 6 SPECBIND)(0 1 (SPECIAL D))(MOVE 1 (SPECIAL S))(JUMPE 1 G0001)(MOVE 1 (SPECIAL D))
	(CALL 1 (E ATOM))(JUMPE 1 G0002)(HLRZ@ 1 (SPECIAL S))(CAME 1 (SPECIAL D))(TDZA 1 1)
	(MOVEI 1 T)(JRST 0 G0001)
G0002 (HLRZ@ 2 (SPECIAL D))(JUMPE 2 G0006)(MOVE 2 (SPECIAL D))(HLRZ@ 1 (SPECIAL S))(CALL 2 (E MEMBER))
	(JRST 0 G0001)
G0006 (HLRZ@ 2 (SPECIAL S))(HRRZ@ 1 (SPECIAL D))(CALL 2 (E TEST1))
G0001 (JRST 0 SPECSTR)
NIL 


(LAP TEST5 SUBR) 
	(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(HRRZ@ 1 (SPECIAL D))(JUMPN 1 G0006)
	(MOVE 2 (SPECIAL PARSELIST))(MOVE 1 (SPECIAL S))(CALL 2 (E CONS))(MOVEM 1 (SPECIAL PARSELIST))
	(CLEARB 1 (SPECIAL S))(JUMPE 1 G0009)(TDZA 1 1)
G0009 (MOVEI 1 T)(JRST 0 G0002)
G0006 
G0001 (JSP 6 SPECBIND)(0 0 (SPECIAL PARSELIST))(MOVE 2 (SPECIAL S))(HRRZ@ 1 (SPECIAL D))(CALL 2 (E TEST))
	(PUSHJ P SPECSTR)(MOVEM 1 -1 P)(JUMPE 1 G0014)(CLEARB 1 (SPECIAL S))(CALL 1 (E NCONS))
	(MOVEM 1 (SPECIAL D))(PUSH P (C 0 0 G0022))(MOVE 1 -1 P)(CALL 1 (E REVERSE))(MOVE 2 -2 P)
	(CALL 2 (E CONS))(CALL 1 (E REVERSE))(PUSH P 1)(PUSH P (SPECIAL PARSELIST))(MOVNI 6 2)
	(JCALL 16 (E NCONC))
G0022 (MOVEM 1 (SPECIAL PARSELIST))(JRST 0 G0002)
G0014 (MOVE 2 0 P)(HLRZ@ 1 (SPECIAL S))(CALL 2 (E CONS))(MOVEM 1 0 P)(JUMPE 1 G0028)(HRRZ@ 1 (SPECIAL S))
	(MOVEM 1 (SPECIAL S))(JUMPN 1 G0001)
G0028 (MOVEI 1 (QUOTE NIL))
G0002 (SUB P (C 0 0 2 2))(POPJ P)
NIL 


(LAP WORKER SUBR) 
	(JSP 6 SPECBIND)(0 0 (SPECIAL SENTENCE))(0 0 (SPECIAL SOBLIST))(0 0 (SPECIAL KEYSTACK))
G0001 (CALL 0 (E INITIALIZE))(CALL 0 (E READIN))(CALL 0 (E ANALYZE))(CALL 0 (E TERPRI))(CALL 0 (E TERPRI))
	(CALL 0 (E CLEANUP))(JRST 0 G0001)(JRST 0 SPECSTR)
NIL