perm filename MILLAP[1,VDS] blob
sn#027386 filedate 1973-04-10 generic text, type T, neo UTF8
(LAP TFX SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL V))
(PUSH P 1)
(MOVEI 2 (QUOTE TF))
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 2 (E GET))
(HLRZ@ 3 (SPECIAL SUBTREE))
(HLRZ@ 2 1)
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E MATCH))
(MOVEM 1 (SPECIAL V))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPE 1 TAG3)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG1)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 (SPECIAL V))
(CALL 2 (E SUBSTITUTE))
(MOVEM 1 0 P)
(CALL 1 (E *EVAL))
(JUMPE 1 TAG3)
TAG1 (HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVE 1 (SPECIAL V))
(CALL 2 (E SUBSTITUTE))
(MOVEM 1 0 P)
(HRLM@ 1 (SPECIAL SUBTREE))
(MOVE 1 (SPECIAL TREE-TRACE))
(JUMPE 1 TAG10)
(MOVE 1 -1 P)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE APPLY))
(CALL 2 (E XCONS))
(CALL 1 (E PRINT))
(MOVE 1 (SPECIAL TREE))
(CALL 1 (E PRINTREE))
(JRST 0 TAG7)
TAG10 (MOVE 1 (SPECIAL TF-TRACE))
(JUMPE 1 TAG11)
(MOVE 1 -1 P)
(CALL 1 (E PRINT))
TAG11
TAG7 (MOVEI 1 (QUOTE T))
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 0 0 3 3))
(JRST 0 SPECSTR)
NIL (LAP SUBSTITUTE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL V))
(0 0 (SPECIAL Y))
(PUSH P 2)
(MOVE 1 2)
(SUB P (C 0 0 1 1))
(CALL 1 (E SUBS))
(JRST 0 SPECSTR)
NIL
(LAP SUBS SUBR)
(PUSH P 1)
(CALL 1 (E NUMBERP))
(JUMPE 1 TAG2)
(MOVE 2 (SPECIAL V))
(MOVE 1 0 P)
(CALL 2 (E ASSOC))
(MOVEM 1 (SPECIAL Y))
(JUMPE 1 TAG4)
(HRRZ@ 1 1)
(JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
TAG5
TAG3 (JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG7)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG7 (HLRZ@ 1 0 P)
(CALL 1 (E SUBS))
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E SUBS))
(POP P 2)
(CALL 2 (E XCONS))
TAG10
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL (LAP MATCH SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL V))
(0 0 (SPECIAL X))
(PUSH P 2)
(PUSH P 3)
(MOVE 2 3)
(MOVE 1 -1 P)
(CALL 2 (E MACH))
(JUMPE 1 TAG4)
(MOVE 1 (SPECIAL V))
(JUMPE 1 TAG5)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE T))
TAG6
TAG4 (SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP MACH SUBR)
(PUSH P 1)
(PUSH P 2)
(CAME 1 2)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG1)
TAG2 (CALL 1 (E NUMBERP))
(JUMPE 1 TAG3)
(MOVE 1 -1 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG5)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG4)
TAG5 (MOVE 2 (SPECIAL V))
(CALL 2 (E ASSOC))
(MOVEM 1 (SPECIAL X))
(JUMPE 1 TAG6)
(MOVE 2 0 P)
(HRRZ@ 1 1)
(CALL 2 (E EQUAL))
(JRST 0 TAG4)
TAG6 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL V))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL V))
(MOVEI 1 (QUOTE T))
TAG7
TAG4 (JRST 0 TAG1)
TAG3 (MOVE 1 -1 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG12 (HLRZ@ 2 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E MACH))
(JUMPE 1 TAG16)
(HRRZ@ 2 0 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E MACH))
(JUMPN 1 TAG15)
TAG16 (TDZA 1 1)
TAG15 (MOVEI 1 (QUOTE T))
TAG13
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL (LAP PARSE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE PRULE))
(MOVE 1 -3 P)
(CALL 2 (E GET))
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(HLRZ@ 1 3)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(HLRZ@ 2 3)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 1 3)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(HRRZ@ 2 3)
(CALL 2 (E CONS))
(HLRZ@ 2 3)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E XCONS))
(EXCH 3 1)
(HRRZ@ 2 0 P)
(MOVE 1 -4 P)
(CALL 3 (E PAR))
(JRST 0 TAG1)
TAG5 (MOVEI 2 (QUOTE SET))
(MOVE 1 -3 P)
(CALL 2 (E GET))
(MOVEM 1 -1 P)
(JUMPE 1 TAG6)
(EXCH 2 1)
(HLRZ@ 1 -4 P)
(CALL 2 (E MEMQ))
(JUMPE 1 TAG10)
(HLRZ@ 1 -4 P)
(CALL 1 (E NCONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(JRST 0 TAG7)
TAG10 (JRST 0 TAG2)
TAG7 (JRST 0 TAG4)
TAG6 (HLRZ@ 1 -4 P)
(CAME 1 -3 P)
(JRST 0 TAG12)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(HLRZ@ 1 3)
(HRRZ@ 1 1)
(POP P 2)
(HRRM@ 2 1)
(JRST 0 TAG4)
TAG12 (JRST 0 TAG2)
TAG4 (HLRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(HRRZ@ 2 -2 P)
(CALL 2 (E CONS))
(MOVE 2 1)
(HRRZ@ 1 -4 P)
(CALL 2 (E NEXT))
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 0 0 5 5))
(POPJ P)
NIL
(LAP PAR SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 2 TAG2)
(TDZA 1 1)
TAG2 (MOVEI 1 (QUOTE T))
(JUMPN 1 TAG1)
(HLRZ@ 1 -1 P)
(JUMPN 1 TAG3)
(CALL 1 (E NCONS))
(PUSH P 1)
(HLRZ@ 1 -1 P)
(POP P 2)
(HRRM@ 2 1)
(HRRZ@ 2 0 P)
(MOVE 1 -2 P)
(CALL 2 (E NEXT))
(JRST 0 TAG1)
TAG3 (HLRZ@ 2 0 P)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(CALL 2 (E CONS))
(MOVE 3 1)
(HLRZ@ 2 -1 P)
(HLRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 3 (E PARSE))
(MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E PAR))
TAG4
TAG1 (SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP NEXT SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 TAG2)
(HRRZ@ 1 2)
(JUMPN 1 TAG2)
(HLRZ@ 3 0 P)
(HRRZ@ 3 3)
(HLRZ@ 3 3)
(MOVEI 2 (QUOTE 0))
(MOVEI 1 (QUOTE 0))
(CALL 3 (E SUBST))
(MOVE 2 (SPECIAL TREE))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL TREE))
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(JUMPE 1 TAG4)
(TDZA 1 1)
TAG4 (MOVEI 1 (QUOTE T))
(JUMPN 1 TAG1)
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPN 1 TAG5)
(HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E NEXT))
(JRST 0 TAG1)
TAG5 (HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(HLRZ@ 1 0 P)
(CALL 1 (E CDAR))
(CALL 2 (E CONS))
(HRRZ@ 2 0 P)
(CALL 2 (E CONS))
(MOVE 3 1)
(HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 3 (E PARSE))
TAG6
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL (LAP FINDNODE1 SUBR)
(PUSH P 1)
(CALL 1 (E ATOM))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E ATOM))
(JUMPE 1 TAG3)
(HRRZ@ 1 0 P)
(CALL 1 (E FINDNODE1))
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAME 1 (SPECIAL N))
(JRST 0 TAG4)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 0 P)
(CALL 1 (E FINDNODE1))
(MOVEM 1 (SPECIAL Y))
(JUMPE 1 TAG5)
(JRST 0 TAG1)
TAG5 (HRRZ@ 1 0 P)
(CALL 1 (E FINDNODE1))
TAG6
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL