perm filename CYCDR4.LAP[1,LMM] blob
sn#033093 filedate 1973-04-04 generic text, type T, neo UTF8
(LAP CONCT SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E CAAR))
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(CAMN 2 1)
(JRST 0 TAG1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(CAMN 2 1)
(JRST 0 TAG1)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(CAMN 2 1)
(JRST 0 TAG1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(CAMN 2 1)
(JRST 0 TAG1)
(TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP OUTNDS SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL X1))
(CALL 0 (E INITDRAW))
(MOVEI 4 (QUOTE 20))
(MOVEI 3 (QUOTE 10))
(MOVEI 2 (QUOTE 20))
(MOVEI 1 (QUOTE 10))
(CALL 4 (E SETSCALE))
(MOVE 3 (SPECIAL TITLE))
(MOVEI 2 (QUOTE 13))
(MOVEI 1 (QUOTE 13))
(CALL 3 (E POSLABELL))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE 1))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 (SPECIAL NMX))
(MOVE 1 -3 P)
(CALL 2 (E *GREAT))
(JUMPN 1 TAG5)
(MOVE 1 -3 P)
(CALL 1 (E NODEARRAY))
(CAIN 1 (QUOTE 0))
(JRST 0 TAG4)
(MOVE 2 (SPECIAL LABELL))
(MOVE 1 -3 P)
(CALL 2 (E ASSOC))
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVE 1 -3 P)
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(PUSH P 1)
(MOVE 3 -3 P)
(JUMPN 3 TAG23)
(MOVE 3 -5 P)
(JRST 0 TAG22)
TAG23 (MOVE 3 -3 P)
TAG24
TAG22 (POP P 2)
(POP P 1)
(CALL 3 (E POSLABELL))
TAG2
TAG3
TAG4 (MOVEI 2 (QUOTE 1))
(MOVE 1 -3 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(MOVE 1 (SPECIAL STACK))
(CALL 1 (E LAST))
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG6 (MOVE 1 -2 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E CAAR))
(PUSH P (SPECIAL LINE))
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(HLRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(PUSH P 1)
(HLRZ@ 1 -4 P)
(HRRZ@ 1 1)
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(HLRZ@ 1 -5 P)
(HRRZ@ 1 1)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVE 4 1)
(POP P 3)
(POP P 2)
(POP P 1)
(CALLF@ 4 0 P)
(SUB P (C 0 0 1 1))
TAG7
TAG10 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG6)
TAG11 (MOVE 1 0 P)
(SUB P (C 0 0 3 3))
(CALL 0 (E ENDDRAW))
(MOVE 1 0 P)
(CALL 1 (E REVERSE))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP SLOPE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL X1))
(PUSH P 3)
(PUSH P 4)
(CALL 2 (E *DIF))
(POP P 2)
(EXCH 1 0 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 SPECSTR)
NIL
(LAP SUBFUN1DRAW SUBR)
(JCALL 0 (E PAUSE))
NIL
(LAP SUBFUN2DRAW SUBR)
(JCALL 0 (E PAUSE))
NIL
(LAP SUBFUN3DRAW SUBR)
(JCALL 0 (E PAUSE))
NIL
(LAP DRAW SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL O))
(0 0 (SPECIAL CTAB))
(0 0 (SPECIAL TITLE))
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 (QUOTE " "))
(MOVEM 1 (SPECIAL TITLE))
(HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG5)
(MOVE 1 -1 P)
(CALL 1 (E DRAWS))
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG6)
(HLRZ@ 1 -1 P)
(CALL 1 (E DRAWS))
(HRRZ@ 2 -1 P)
(MOVEI 1 (QUOTE SUBFUN1DRAW))
(CALL 2 (E MAPC))
(JRST 0 TAG4)
TAG6 (CAIE 2 (QUOTE T))
(JRST 0 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E PRINRAD))
(JRST 0 TAG4)
TAG7 (CAIE 2 (QUOTE L))
(JRST 0 TAG10)
(HLRZ@ 1 -1 P)
(CALL 1 (E PRINRAD))
(HRRZ@ 2 -1 P)
(MOVEI 1 (QUOTE SUBFUN2DRAW))
(CALL 2 (E MAPC))
(JRST 0 TAG4)
TAG10 (CAIE 2 (QUOTE AL))
(JRST 0 TAG11)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE STRUC))
(JRST 0 TAG13)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE #))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE STRUCTURE))
(CALL 2 (E XCONS))
(MOVE 2 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 2 (E DRAWS))
(JRST 0 TAG12)
TAG13 (HLRZ@ 2 -1 P)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE (STRUCTURE #)))
(CALL 2 (E *APPEND))
(CALL 1 (E NCONS))
(MOVEM 1 (SPECIAL TITLE))
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(CALL 1 (E PRINRAD))
TAG14
TAG12 (HRRZ@ 2 -1 P)
(MOVEI 1 (QUOTE SUBFUN3DRAW))
(CALL 2 (E MAPC))
(JRST 0 TAG4)
TAG11 (MOVEI 1 (QUOTE "BAD STRUCTURE"))
(CALL 1 (E ERROR))
TAG16
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(JRST 0 SPECSTR)
NIL
(LAP DRAWS SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CTAB))
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL CTAB))
(JUMPN 2 TAG15)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(JRST 0 TAG14)
TAG15 (MOVE 1 0 P)
TAG16
TAG14 (PUSH P 1)
(PUSH P (SPECIAL CTAB))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 2 -2 P)
(JUMPN 2 TAG24)
(JRST 0 TAG10)
TAG24 (HLRZ@ 2 -2 P)
(MOVEM 2 -1 P)
(PUSH P (C 0 0 TAG25 0))
(PUSH P -1 P)
(HRRZ@ 1 2)
(HRRZ@ 1 1)
(HLRZ@ 1 1)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 2)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 2 -2 P)
(JUMPN 2 TAG32)
(JRST 0 TAG5)
TAG32 (HLRZ@ 2 -2 P)
(MOVEM 2 -1 P)
(CAIE 2 (QUOTE FV))
(JRST 0 TAG34)
(JRST 0 TAG4)
TAG34 (PUSH P (C 0 0 TAG35 0))
(PUSH P -1 P)
(MOVE 1 -3 P)
(CALL 1 (E NCONS))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG35 (MOVEM 1 0 P)
TAG3
TAG4 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG2)
TAG5 (MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E CONS))
(MOVE 2 -3 P)
(CALL 2 (E XCONS))
(CALL 1 (E NCONS))
(SUB P (C 0 0 5 5))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC))
TAG25 (MOVEM 1 0 P)
TAG6
TAG7 (HRRZ@ 2 -2 P)
(MOVEM 2 -2 P)
(JRST 0 TAG1)
TAG10 (MOVE 2 0 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS))
(CALL 1 (E LAYOUT))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 6 6))
(JRST 0 SPECSTR)
NIL
(LAP PRINRAD SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CTAB))
(PUSH P 1)
(CALL 1 (E NUMNODES))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E *LESS))
(JUMPN 1 TAG4)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS))
(MOVEM 1 0 P)
TAG2
TAG3 (MOVEI 2 (QUOTE -1))
(MOVE 1 -1 P)
(CALL 2 (E *PLUS))
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG4 (MOVE 2 0 P)
(MOVE 3 -2 P)
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E PRINRAD1))
(SUB P (C 0 0 2 2))
(MOVE 2 (SPECIAL CTAB))
(MOVE 1 (SPECIAL TITLE))
(CALL 2 (E CONS))
(CALL 1 (E LAYOUT))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 1 1))
(JRST 0 SPECSTR)
NIL
(LAP PRINENTRY SUBR)
(PUSH P 2)
(MOVE 2 3)
(EXCH 1 0 P)
(CALL 2 (E CONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVE 2 (SPECIAL CTAB))
(CALL 2 (E CONS))
(MOVEM 1 (SPECIAL CTAB))
(POPJ P)
NIL
(LAP XDRAW SUBR)
(PUSH P 2)
(CALL 1 (E SCALX))
(EXCH 1 0 P)
(CALL 1 (E SCALY))
(MOVE 2 1)
(POP P 1)
(JCALL 2 (E AVECT))
NIL
(LAP POSLABELL SUBR)
(PUSH P 3)
(CALL 2 (E POS))
(POP P 1)
(PUSH P (SPECIAL LABELL))
(CALLF@ 1 0 P)
(SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP LINE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL X1))
(PUSH P 3)
(PUSH P 4)
(CALL 2 (E POS))
(POP P 2)
(POP P 1)
(CALL 2 (E XDRAW))
(JRST 0 SPECSTR)
NIL
(LAP SETSCALE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(CALL 1 (E MINUS))
(MOVEM 1 (SPECIAL XBOT))
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(PUSH P (SPECIAL REALWIDTH))
(CALL 2 (E *DIF))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *PLUS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *QUO))
(MOVEM 1 (SPECIAL XSCL))
(MOVE 1 -1 P)
(CALL 1 (E MINUS))
(MOVEM 1 (SPECIAL YBOT))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(PUSH P (SPECIAL REALHEIGHT))
(CALL 2 (E *DIF))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *PLUS))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *QUO))
(MOVEM 1 (SPECIAL YSCL))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 4 4))
(POPJ P)
NIL
(LAP POS SUBR)
(PUSH P 2)
(CALL 1 (E SCALX))
(EXCH 1 0 P)
(CALL 1 (E SCALY))
(MOVE 2 1)
(POP P 1)
(JCALL 2 (E AIVECT))
NIL
(LAP SCALX SUBR)
(MOVE 4 (SPECIAL REALEFT))
(MOVE 3 (SPECIAL XSCL))
(MOVE 2 (SPECIAL XBOT))
(JCALL 4 (E SCALE))
NIL
(LAP SCALY SUBR)
(MOVE 4 (SPECIAL REALBOT))
(MOVE 3 (SPECIAL YSCL))
(MOVE 2 (SPECIAL YBOT))
(JCALL 4 (E SCALE))
NIL
(LAP SCALE SUBR)
(PUSH P 3)
(PUSH P 4)
(CALL 2 (E *PLUS))
(MOVE 2 -1 P)
(CALL 2 (E *TIMES))
(MOVEI 2 (QUOTE 0.5))
(CALL 2 (E *PLUS))
(CALL 1 (E FIX))
(POP P 2)
(SUB P (C 0 0 1 1))
(JCALL 2 (E *PLUS))
NIL
(LAP SETPOS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVEM 1 (SPECIAL XPOS))
(MOVEM 2 (SPECIAL YPOS))
(MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP RECIP SUBR)
(PUSH P 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE 1024))
(JRST 0 TAG1)
TAG2 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 0.99999899))
(CALL 2 (E *QUO))
TAG3
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP LABELL SUBR)
(PUSH P 1)
(CALL 0 (E DTYOS))
(POP P 1)
(CALL 1 (E PRIN1))
(PUSH P 1)
(CALL 0 (E DTYOU))
(POP P 1)
(POPJ P)
NIL
(LAP INITDRAW SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E KILL))
(JCALL 0 (E CLEAR))
NIL
(LAP ENDDRAW SUBR)
(MOVEI 1 (QUOTE 1))
(JCALL 1 (E SHOW))
NIL
(LAP GEQ SUBR)
(CALL 2 (E *LESS))
(JUMPE 1 TAG1)
(TDZA 1 1)
TAG1 (MOVEI 1 (QUOTE T))
(POPJ P)
NIL
(LAP PAUSE SUBR)
(MOVEI 1 (QUOTE "READY?"))
(CALL 1 (E PRINC))
(JCALL 0 (E READ))
NIL
(LAP YINTCP SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL X1))
(PUSH P 2)
(MOVE 1 3)
(PUSH P 4)
(CALL 2 (E *TIMES))
(POP P 2)
(PUSH P 1)
(MOVE 1 (SPECIAL X1))
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVE 2 (SPECIAL X1))
(EXCH 1 0 P)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 SPECSTR)
NIL
(SETQ REALBOT -500)
(SETQ REALWIDTH 1000)
(SETQ REALEFT -500)
(SETQ REALHEIGHT 1000)
(INC (INPUT SYS: (LISPDP . LSP)))
(LOAD T)