perm filename CYCDRD.LAP[DEN,LMM] blob sn#034870 filedate 1973-04-13 generic text, type T, neo UTF8
(LAP RTLIN 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.)) 
       (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.)) 
       (JUMPN 3. TAG15) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG11) 
 TAG15 (HLRZ@ 1. -11. P) 
       (HLRZ@ 1. 1.) 
       (HLRZ@ 2. -11. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. -4. P) 
       (MOVEM 2. -5. P) 
       (CALL 1. (E NODE) S) 
       (MOVEM 1. 0. P) 
       (MOVE 1. -5. P) 
       (CALL 1. (E NODE) S) 
       (MOVEI 2. (QUOTE 20.)) 
       (MOVEM 1. -1. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (MOVEI 2. (QUOTE 20.)) 
       (MOVEM 1. -2. P) 
       (MOVE 1. -5. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (MOVE 4. 1.) 
       (MOVE 3. -2. P) 
       (MOVE 2. -1. P) 
       (MOVEM 1. -3. P) 
       (MOVE 1. 0. P) 
       (CALL 4. (E SLOPE) S) 
       (MOVE 4. -3. P) 
       (MOVE 3. -2. P) 
       (MOVE 2. -1. P) 
       (MOVEM 1. -7. P) 
       (MOVE 1. 0. P) 
       (CALL 4. (E YINTCP) S) 
       (MOVEM 1. -8. P) 
       (MOVEI D (QUOTE T) S) 
       (PUSH P D) 
       (PUSH P -11. P) 
 TAG1  (MOVE 1. 0. P) 
       (JUMPE 1. TAG10) 
       (HLRZ@ 1. 0. P) 
       (MOVE 2. 1.) 
       (MOVEM 1. -8. P) 
       (MOVE 1. -13. P) 
       (CALL 2. (E CONCT) S) 
       (HLRZ@ 2. -8. P) 
       (HLRZ@ 2. 2.) 
       (HLRZ@ 3. -8. P) 
       (HRRZ@ 3. 3.) 
       (MOVEM 1. -11. P) 
       (MOVEM 2. -6. P) 
       (MOVEM 3. -7. P) 
       (MOVE 1. 2.) 
       (CALL 1. (E NODE) S) 
       (PUSH P 1.) 
       (MOVE 1. -8. P) 
       (CALL 1. (E NODE) S) 
       (MOVEI 2. (QUOTE 20.)) 
       (PUSH P 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (MOVEI 2. (QUOTE 20.)) 
       (PUSH P 1.) 
       (MOVE 1. -10. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (PUSH P 1.) 
       (MOVE 4. 1.) 
       (MOVE 3. -1. P) 
       (MOVE 2. -2. P) 
       (MOVE 1. -3. P) 
       (CALL 4. (E SLOPE) S) 
       (HRRZ@ 2. 1.) 
       (PUSH P 1.) 
       (HLRZ@ 1. -14. P) 
       (CALL 2. (E *TIMES) S) 
       (HRRZ@ 2. -14. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P 1.) 
       (HLRZ@ 1. -3. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVEM 1. 0. P) 
       (CAIN 1. (QUOTE 0.)) 
       (JRST 0. TAG4) 
       (MOVE 1. -18. P) 
       (JUMPE 1. TAG28) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG28 (MOVE 1. -21. P) 
       (JUMPE 1. TAG29) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG29 (MOVE 2. -9. P) 
       (MOVE 1. -10. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -6. P) 
       (PUSH P 1.) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -6. P) 
       (PUSH P 1.) 
       (MOVE 1. -6. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -5. P) 
       (PUSH P 1.) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -12. P) 
       (PUSH P 1.) 
       (MOVE 1. -14. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -15. P) 
       (PUSH P 1.) 
       (MOVE 1. -13. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -13. P) 
       (PUSH P 1.) 
       (MOVE 1. -15. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -7. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (SUB P (C 2. 0. 2. 0.)) 
       (MOVEM 1. 0. P) 
       (MOVE 1. -9. P) 
       (CAMN 1. -10. P) 
       (JRST 0. TAG3) 
       (MOVE 1. -6. P) 
       (CAMN 1. -5. P) 
       (JRST 0. TAG2) 
       (MOVE 3. -5. P) 
       (MOVE 2. -6. P) 
       (MOVE 1. 0. P) 
       (CALL 3. (E CLCINTA) S) 
       (JUMPE 1. TAG37) 
       (MOVE 3. -10. P) 
       (MOVE 2. -9. P) 
       (MOVE 1. 0. P) 
       (CALL 3. (E CLCINTA) S) 
       (JUMPN 1. TAG36) 
 TAG37 (TDZA 1. 1.) 
 TAG36 (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG2  (MOVE 3. -10. P) 
       (MOVE 2. -9. P) 
       (MOVE 1. 0. P) 
       (CALL 3. (E CLCINTA) S) 
       (JUMPE 1. TAG39) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG39 (MOVE 2. -11. P) 
       (MOVE 1. -12. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -4. P) 
       (PUSH P 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -4. P) 
       (PUSH P 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -7. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -14. P) 
       (PUSH P 1.) 
       (MOVE 1. -12. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -13. P) 
       (PUSH P 1.) 
       (MOVE 1. -15. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -11. P) 
       (PUSH P 1.) 
       (MOVE 1. -13. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -9. P) 
       (PUSH P 1.) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (SUB P (C 2. 0. 2. 0.)) 
       (MOVEM 1. 0. P) 
       (MOVE 3. -3. P) 
       (MOVE 2. -4. P) 
       (CALL 3. (E CLCINTA) S) 
       (JRST 0. TAG24) 
 TAG3  (MOVE 3. -5. P) 
       (MOVE 2. -6. P) 
       (MOVE 1. 0. P) 
       (CALL 3. (E CLCINTA) S) 
       (JUMPE 1. TAG44) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG44 (MOVE 2. -11. P) 
       (MOVE 1. -12. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -4. P) 
       (PUSH P 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -4. P) 
       (PUSH P 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -7. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -14. P) 
       (PUSH P 1.) 
       (MOVE 1. -12. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -13. P) 
       (PUSH P 1.) 
       (MOVE 1. -15. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -11. P) 
       (PUSH P 1.) 
       (MOVE 1. -13. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. -9. P) 
       (PUSH P 1.) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *DIF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (SUB P (C 2. 0. 2. 0.)) 
       (MOVEM 1. 0. P) 
       (MOVE 3. -12. P) 
       (MOVE 2. -11. P) 
       (CALL 3. (E CLCINTA) S) 
       (JRST 0. TAG24) 
 TAG4  (MOVE 4. -3. P) 
       (MOVE 3. -4. P) 
       (MOVE 2. -5. P) 
       (MOVE 1. -6. P) 
       (CALL 4. (E YINTCP) S) 
       (HRRZ@ 2. 1.) 
       (MOVEM 1. -1. P) 
       (HLRZ@ 1. -17. P) 
       (CALL 2. (E *TIMES) S) 
       (HRRZ@ 2. -17. P) 
       (PUSH P 1.) 
       (HLRZ@ 1. -2. P) 
       (CALL 2. (E *TIMES) S) 
       (MOVE 2. 1.) 
       (EXCH 1. 0. P) 
       (CALL 2. (E *DIF) S) 
       (SUB P (C 1. 0. 1. 0.)) 
       (MOVEM 1. 0. P) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG51) 
       (HRRZ@ 1. -17. P) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG49) 
       (HRRZ@ 1. -1. P) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG49) 
       (MOVE 1. -9. P) 
       (CAMN 1. -6. P) 
       (JRST 0. TAG49) 
 TAG51 (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG24) 
 TAG49 (MOVE 1. -9. P) 
       (CAME 1. -10. P) 
       (JRST 0. TAG57) 
       (MOVE 2. -12. P) 
       (MOVE 1. -11. P) 
       (CALL 2. (E MIN) S) 
       (MOVE 2. -3. P) 
       (PUSH P 1.) 
       (MOVE 1. -5. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E GEQ) S) 
       (JUMPN 1. TAG58) 
       (MOVE 2. -3. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E MIN) S) 
       (MOVE 2. -12. P) 
       (PUSH P 1.) 
       (MOVE 1. -12. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E GEQ) S) 
       (JUMPN 1. TAG58) 
       (TDZA 1. 1.) 
 TAG58 (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG56) 
 TAG57 (MOVE 2. -10. P) 
       (MOVE 1. -9. P) 
       (CALL 2. (E MIN) S) 
       (MOVE 2. -5. P) 
       (PUSH P 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E GEQ) S) 
       (JUMPN 1. TAG62) 
       (MOVE 2. -5. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E MIN) S) 
       (MOVE 2. -10. P) 
       (PUSH P 1.) 
       (MOVE 1. -10. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E GEQ) S) 
       (JUMPN 1. TAG62) 
       (TDZA 1. 1.) 
 TAG62 (MOVEI 1. (QUOTE T) S) 
 TAG56 
 TAG24 (MOVEM 1. -8. P) 
       (SUB P (C 7. 0. 7. 0.)) 
       (JUMPE 1. TAG18) 
 TAG5 
 TAG6 
 TAG7 
 TAG8 
 TAG9  (HRRZ@ 1. 0. P) 
       (MOVEM 1. 0. P) 
       (JRST 0. TAG1) 
 TAG10 (MOVE 1. -1. P) 
       (JRST 0. TAG17) 
 TAG18 (MOVEI 1. (QUOTE NIL)) 
 TAG17 (SUB P (C 2. 0. 2. 0.)) 
 TAG11 (SUB P (C 13. 0. 13. 0.)) 
       (POPJ P) 
       NIL