perm filename CYCDRH.LAP[1,LMM] blob
sn#034852 filedate 1973-04-12 generic text, type T, neo UTF8
(LAP FINDNDS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL RA))
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL PATSELECT))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -1 P)
TAG10
TAG1 (PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 (SPECIAL NMX))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVEI 2 (QUOTE (0 . 0)))
(MOVE 1 -1 P)
(CALL 2 (E SETND))
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG5 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 2 (SPECIAL PATSELECT))
(HLRZ@ 1 (SPECIAL LINE))
(CALL 1 (E CAAR))
(CALL 2 (E ASSOC2))
(MOVEM 1 0 P)
(JUMPE 1 TAG16)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 1 (E CADR))
(CALL 2 (E CONS))
(MOVE 2 1)
(HLRZ@ 1 0 P)
(CALL 2 (E SETND))
(JRST 0 TAG15)
TAG16 (MOVEI 2 (QUOTE (15 . 15)))
(HLRZ@ 1 (SPECIAL LINE))
(CALL 1 (E CAAR))
(CALL 2 (E SETND))
TAG17
TAG15 (MOVE 1 (SPECIAL LINE))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE 0))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(MOVEI 3 (QUOTE T))
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL RA))
(CALL 3 (E FINDNDS1))
(JUMPN 1 TAG7)
(MOVE 1 (SPECIAL PATSELECT))
(JUMPE 1 TAG21)
(CLEARB 1 (SPECIAL PATSELECT))
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL RA))
(JRST 0 TAG20)
TAG21 (MOVE 1 (SPECIAL RA))
(CALL 1 (E ADD1))
(MOVEM 1 (SPECIAL RA))
(MOVEI 2 (QUOTE 3))
(CALL 2 (E *GREAT))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -1 P)
TAG22
TAG20 (JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP SETND SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 2)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E NODE))
(POP P 1)
(PUSHJ P NSTR)
(HRRZ@ 1 0 P)
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODE))
(POP P 1)
(PUSHJ P NSTR)
(MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP FINDNDS1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL RA))
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HLRZ@ 1 (SPECIAL LINE))
(MOVEM 1 0 P)
(CALL 1 (E CDAR))
(MOVEM 1 -1 P)
(CALL 1 (E NODE))
(CAIE 1 (QUOTE 0))
(JRST 0 TAG9)
(MOVE 1 -3 P)
(JUMPE 1 TAG11)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E STKNDS))
TAG11 (JRST 0 TAG8)
TAG9 (MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 3 (E RTLIN))
(JUMPE 1 TAG12)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 (SPECIAL LINE))
(MOVE 1 -2 P)
(CALL 3 (E PUSH3))
(JRST 0 TAG3)
TAG12
TAG8
TAG2 (HLRZ@ 1 (SPECIAL STACK))
(HRRZ@ 2 (SPECIAL STACK))
(MOVEM 2 (SPECIAL STACK))
(MOVEM 1 -3 P)
(CALL 2 (E PROG1))
(CALL 1 (E ATOM))
(JUMPN 1 TAG4)
(HLRZ@ 2 -3 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E SETND))
(MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 3 (E RTLIN))
(JUMPE 1 TAG15)
(MOVE 2 (SPECIAL STACK))
(MOVE 1 -2 P)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL STACK))
(MOVE 2 (SPECIAL LINE))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS))
(MOVEM 1 (SPECIAL STACK))
(JRST 0 TAG14)
TAG15 (MOVEI 2 (QUOTE (0 . 0)))
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E SETND))
(JRST 0 TAG2)
TAG16
TAG14
TAG3 (MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E CONS))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE T))
(MOVEM 1 -3 P)
(HRRZ@ 1 (SPECIAL LINE))
(MOVEM 1 (SPECIAL LINE))
(JUMPN 1 TAG1)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG5)
TAG19
TAG4 (HLRZ@ 1 (SPECIAL STACK))
(MOVEM 1 (SPECIAL LINE))
(HRRZ@ 2 (SPECIAL STACK))
(MOVEM 2 (SPECIAL STACK))
(CALL 2 (E PROG1))
(HLRZ@ 1 (SPECIAL STACK))
(HRRZ@ 2 (SPECIAL STACK))
(MOVEM 2 (SPECIAL STACK))
(MOVEM 1 -2 P)
(CALL 2 (E PROG1))
(MOVE 1 (SPECIAL STACK))
(JUMPE 1 TAG6)
(MOVE 1 -3 P)
(JUMPE 1 TAG22)
(MOVEI 2 (QUOTE (0 . 0)))
(CALL 2 (E SETND))
TAG22 (HLRZ@ 1 (SPECIAL STACK))
(CALL 1 (E ATOM))
(JUMPE 1 TAG24)
(HLRZ@ 1 (SPECIAL STACK))
(HRRZ@ 2 (SPECIAL STACK))
(MOVEM 2 (SPECIAL STACK))
(MOVEM 1 -3 P)
(CALL 2 (E PROG1))
(JRST 0 TAG4)
TAG24 (HLRZ@ 1 (SPECIAL STACK))
(CALL 1 (E CADR))
(CALL 1 (E NODE))
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
(CLEARM 1 -3 P)
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
TAG5 (SUB P (C 0 0 5 5))
(JRST 0 SPECSTR)
NIL
(LAP PUSH3 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 1 TAG2)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL STACK))
(PUSH P 1)
(HRRZ@ 1 -3 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 1)
(JRST 0 TAG1)
TAG2 (MOVE 2 -1 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(MOVE 2 (SPECIAL STACK))
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 1)
TAG3
TAG1 (POP P 1)
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL STACK))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP STKNDS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 3 1)
(MOVE 2 (SPECIAL LINE))
(MOVE 1 0 P)
(CALL 3 (E PUSH3))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL PATSELECT))
(JUMPE 1 TAG23)
(MOVE 2 1)
(MOVE 1 -9 P)
(CALL 2 (E ASSOC2))
(MOVEM 1 -1 P)
(JUMPE 1 TAG23)
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E CONS))
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL STACK))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL STACK))
(MOVEI 1 (QUOTE T))
(JRST 0 TAG19)
TAG23
TAG1 (MOVEI 1 (QUOTE 0))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 100))
(MOVEM 1 -3 P)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -4 P)
(MOVEI 1 (QUOTE 100))
(MOVEM 1 -5 P)
(MOVE 1 (SPECIAL STACK))
(CALL 1 (E LENGTH))
(MOVEI 2 (QUOTE 6))
(CALL 2 (E *LESS))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE 16))
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE 15))
(MOVEM 1 -4 P)
TAG26 (MOVE 1 -9 P)
(CALL 1 (E CONN))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -1 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 1)
(MOVEM 1 -3 P)
(CALL 1 (E NODE))
(MOVEM 1 -8 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG5)
(MOVEI 2 (QUOTE 20))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODE))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -9 P)
(MOVE 1 -8 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -4 P)
(CALL 2 (E MAX))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -4 P)
(MOVE 1 -8 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 2 (E MIN))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -5 P)
(MOVE 1 -9 P)
(CALL 2 (E *DIF))
(MOVE 2 1)
(MOVE 1 -6 P)
(CALL 2 (E MAX))
(MOVE 2 (SPECIAL RA))
(MOVEM 1 -6 P)
(MOVE 1 -9 P)
(CALL 2 (E *PLUS))
(MOVE 2 1)
(MOVE 1 -7 P)
(CALL 2 (E MIN))
(MOVEM 1 -7 P)
TAG3
TAG4
TAG5
TAG6 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG7 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG20)
(MOVE 2 -5 P)
(MOVE 1 -4 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG20)
(PUSH P (C 0 0 (QUOTE 1) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG8 (MOVE 2 (SPECIAL NMX))
(MOVE 1 -1 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG11)
(PUSH P (C 0 0 TAG38 0))
(PUSH P -1 P)
(MOVE 1 -3 P)
(CALL 1 (E NODE))
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODE))
(POP P 2)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 14 (E NCONC))
TAG38 (MOVEM 1 0 P)
TAG9
TAG10 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG8)
TAG11 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(CLEARM 1 -1 P)
(MOVEM 1 0 P)
(MOVE 1 -2 P)
(MOVEM 1 -6 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG12 (MOVE 2 -4 P)
(MOVE 1 -7 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG18)
(MOVE 1 -5 P)
(MOVEM 1 -8 P)
TAG13 (MOVE 2 -6 P)
(MOVE 1 -8 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG16)
(MOVE 2 -8 P)
(MOVE 1 -7 P)
(CALL 2 (E CONS))
(MOVE 2 -1 P)
(CALL 2 (E MEMBER))
(JUMPN 1 TAG15)
(MOVEI 1 (QUOTE T))
(MOVE 2 -8 P)
(MOVEM 1 -2 P)
(MOVE 1 -7 P)
(CALL 2 (E CONS))
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL STACK))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL STACK))
TAG14
TAG15 (MOVEI 2 (QUOTE 1))
(MOVE 1 -8 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -8 P)
(JRST 0 TAG13)
TAG16
TAG17 (MOVEI 2 (QUOTE 1))
(MOVE 1 -7 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -7 P)
(JRST 0 TAG12)
TAG18 (MOVE 1 0 P)
(SUB P (C 0 0 1 1))
(MOVE 1 -1 P)
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG19)
TAG20 (MOVEI 1 (QUOTE NIL))
TAG19 (SUB P (C 0 0 10 10))
(POPJ P)
NIL