Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
     
00010	
00020	(LAP &FOR#1 SUBR) 
00030		(MOVE 1 (SPECIAL &CONTVAR))(JCALL 1 (E *EVAL))
00040	NIL 
00050	
00060	
00070	(LAP &FOR SUBR) 
00080		(JSP 6 SPECBIND)(0 1 (SPECIAL &CONTVAR))(PUSH P 2)(PUSH P 3)(PUSH P 4)(PUSH P 5)(PUSH P (C 0 0 (QUOTE NI~
00090	L)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NI~
00100	L)))(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))(JUMPE 1 G0007)(MOVEI 5 (QUOTE T))(MOVEM 5 -2 P)
00110		(JRST 0 G0006)
00120	G0007 (HLRZ@ 1 (SPECIAL &CONTVAR))(MOVEM 1 (SPECIAL &CONTVAR))(MOVEI 1 (QUOTE ((&FOR#1) NIL)))
00130		(CALL 17 (E ERRSET))(MOVEM 1 -1 P)(JUMPE 1 G0013)(HLRZ@ 1 1)(MOVEM 1 -1 P)(JRST 0 G0012)
00140	G0013 (MOVEI 1 (QUOTE T))(MOVEM 1 -3 P)
00150	G0016 
00160	G0012 
00170	G0009 
00180	G0006 (HLRZ@ 1 -11 P)(MOVEM 1 -4 P)(HRRZ@ 1 -11 P)(MOVEM 1 -5 P)
00190	G0002 (MOVE 1 -10 P)(JUMPN 1 G0023)(MOVE 1 -2 P)(JUMPE 1 G0025)(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL &CONTVAR))
00200		(CALL 2 (E SET))(JRST 0 G0024)
00210	G0025 (MOVE 1 -3 P)(JUMPE 1 G0027)(MOVEI 2 (QUOTE VALUE))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E REMPROP))
00220		(JRST 0 G0024)
00230	G0027 (MOVE 2 -1 P)(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
00240	G0029 
00250	G0024 (MOVE 1 0 P)(JRST 0 G0003)
00260	G0023 (PUSH P (SPECIAL &CONTVAR))(MOVE 2 -5 P)(JUMPE 2 G0036)(HLRZ@ 2 -11 P)(JRST 0 G0035)
00270	G0036 (MOVE 2 -11 P)
00280	G0038 
00290	G0035 (POP P 1)(CALL 2 (E SET))(MOVE 1 -5 P)(JUMPE 1 G0043)(MOVE 1 -7 P)(CALL 1 (E *EVAL))
00300		(JRST 0 G0042)
00310	G0043 (MOVE 1 -7 P)(CALL 1 (E *EVAL))(MOVE 2 1)(MOVE 1 0 P)(CALL 2 (E *APPEND))
00320	G0045 
00330	G0042 (MOVEM 1 0 P)(MOVE 1 -6 P)(CALL 1 (E *EVAL))(JUMPE 1 G0051)(MOVE 1 -3 P)(JUMPE 1 G0054)
00340		(MOVEI 2 (QUOTE VALUE))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E REMPROP))(JRST 0 G0053)
00350	G0054 (MOVE 1 -2 P)(JUMPN 1 G0056)(MOVE 2 -1 P)(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
00360	G0056 
00370	G0053 (MOVE 1 0 P)(JRST 0 G0003)
00380	G0051 (HRRZ@ 1 -10 P)(MOVEM 1 -10 P)(JRST 0 G0002)
00390	G0003 (SUB P (C 0 0 12 12))(JRST 0 SPECSTR)
00400	NIL 
00410	
00420	
00430	(LAP &DOUNTIL SUBR) 
00440		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
00450	G0001 (MOVE 1 -2 P)(CALL 1 (E *EVAL))(MOVEM 1 0 P)(MOVE 1 -1 P)(CALL 1 (E *EVAL))(JUMPE 1 G0007)
00460		(MOVE 1 0 P)(JRST 0 G0002)
00470	G0007 (JRST 0 G0001)
00480	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00490	NIL 
00500	
00510	
00520	(LAP &LISTUNTIL SUBR) 
00530		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
00540	G0001 (MOVE 1 -2 P)(CALL 1 (E *EVAL))(MOVE 2 1)(MOVE 1 0 P)(CALL 2 (E *APPEND))(MOVEM 1 0 P)
00550		(MOVE 1 -1 P)(CALL 1 (E *EVAL))(JUMPE 1 G0008)(MOVE 1 0 P)(JRST 0 G0002)
00560	G0008 (JRST 0 G0001)
00570	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00580	NIL 
00590	
00600	
00610	(LAP &WHILEDO SUBR) 
00620		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
00630	G0001 (MOVE 1 -2 P)(CALL 1 (E *EVAL))(JUMPE 1 G0006)(MOVE 1 -1 P)(CALL 1 (E *EVAL))(MOVEM 1 0 P)
00640		(JRST 0 G0005)
00650	G0006 (MOVE 1 0 P)(JRST 0 G0002)
00660	G0009 
00670	G0005 (JRST 0 G0001)
00680	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00690	NIL 
00700	
00710	
00720	(LAP &WHILELIST SUBR) 
00730		(PUSH P 1)(PUSH P 2)(PUSH P (C 0 0 (QUOTE NIL)))
00740	G0001 (MOVE 1 -2 P)(CALL 1 (E *EVAL))(JUMPE 1 G0006)(MOVE 1 -1 P)(CALL 1 (E *EVAL))(MOVE 2 1)
00750		(MOVE 1 0 P)(CALL 2 (E *APPEND))(MOVEM 1 0 P)(JRST 0 G0005)
00760	G0006 (MOVE 1 0 P)(JRST 0 G0002)
00770	G0010 
00780	G0005 (JRST 0 G0001)
00790	G0002 (SUB P (C 0 0 3 3))(POPJ P)
00800	NIL 
00810	
00820	
00830	(LAP &FORLOOP#1 SUBR) 
00840		(MOVE 1 (SPECIAL &CONTVAR))(JCALL 1 (E *EVAL))
00850	NIL 
00860	
00870	
00880	(LAP &FORLOOP SUBR) 
00890		(JSP 6 SPECBIND)(0 1 (SPECIAL &CONTVAR))(PUSH P 2)(PUSH P 3)(PUSH P 4)(PUSH P 5)(PUSH P (C 0 0 (QUOTE NI~
00900	L)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NI~
00910	L)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(CALL 1 (E ATOM))(JUMPE 1 G0007)
00920		(MOVEI 5 (QUOTE T))(MOVEM 5 -5 P)(JRST 0 G0006)
00930	G0007 (HLRZ@ 1 (SPECIAL &CONTVAR))(MOVEM 1 (SPECIAL &CONTVAR))(MOVEI 1 (QUOTE ((&FORLOOP#1) NIL)))
00940		(CALL 17 (E ERRSET))(MOVEM 1 -4 P)(JUMPE 1 G0013)(HLRZ@ 1 1)(MOVEM 1 -4 P)(JRST 0 G0012)
00950	G0013 (MOVEI 1 (QUOTE T))(MOVEM 1 -6 P)
00960	G0016 
00970	G0012 
00980	G0009 
00990	G0006 (HLRZ@ 1 -12 P)(PUSH P (SPECIAL &CONTVAR))(CALL 1 (E *EVAL))(MOVE 2 1)(POP P 1)(CALL 2 (E SET))
01000		(HRRZ@ 1 -12 P)(HLRZ@ 1 1)(CALL 1 (E *EVAL))(MOVEM 1 0 P)(HRRZ@ 1 -12 P)(CALL 1 (E CADR))
01010		(CALL 1 (E *EVAL))(MOVEM 1 -1 P)(CALL 1 (E ZEROP))(JUMPE 1 G0028)(MOVE 2 (SPECIAL &CONTVAR))
01020		(MOVEI 1 (QUOTE "*** RUN ERROR IN FOR-LOOP: ZERO INCREMENT; CONTROL VARIABLE IS "))
01030		(CALL 2 (E CAT))(CALL 1 (E PRINTSTR))(JRST 0 G0003)
01040	G0028 (MOVEI 2 (QUOTE 0))(MOVE 1 -1 P)(CALL 2 (E *GREAT))(JUMPE 1 G0033)(MOVEI 2 (QUOTE T))
01050		(MOVEM 2 -2 P)
01060	G0033 
01070	G0002 (MOVE 1 -2 P)(JUMPE 1 G0037)(MOVE 1 (SPECIAL &CONTVAR))(CALL 1 (E *EVAL))(MOVE 2 0 P)
01080		(CALL 2 (E *GREAT))(JUMPE 1 G0039)(MOVE 1 -5 P)(JUMPE 1 G0043)(MOVEI 2 (QUOTE NIL))
01090		(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))(JRST 0 G0042)
01100	G0043 (MOVE 1 -6 P)(JUMPE 1 G0045)(MOVEI 2 (QUOTE VALUE))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E REMPROP))
01110		(JRST 0 G0042)
01120	G0045 (MOVE 2 -4 P)(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
01130	G0047 
01140	G0042 (MOVE 1 -3 P)(JRST 0 G0003)
01150	G0039 (JRST 0 G0036)
01160	G0037 (MOVE 1 (SPECIAL &CONTVAR))(CALL 1 (E *EVAL))(MOVE 2 0 P)(CALL 2 (E *LESS))(JUMPE 1 G0056)
01170		(MOVE 1 -5 P)(JUMPE 1 G0060)(MOVEI 2 (QUOTE NIL))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
01180		(JRST 0 G0059)
01190	G0060 (MOVE 1 -6 P)(JUMPE 1 G0062)(MOVEI 2 (QUOTE VALUE))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E REMPROP))
01200		(JRST 0 G0059)
01210	G0062 (MOVE 2 -4 P)(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
01220	G0064 
01230	G0059 (MOVE 1 -3 P)(JRST 0 G0003)
01240	G0056 
01250	G0053 
01260	G0036 (MOVE 1 -11 P)(JUMPE 1 G0072)(MOVE 1 -10 P)(CALL 1 (E *EVAL))(JRST 0 G0071)
01270	G0072 (MOVE 1 -10 P)(CALL 1 (E *EVAL))(MOVE 2 1)(MOVE 1 -3 P)(CALL 2 (E *APPEND))
01280	G0074 
01290	G0071 (MOVEM 1 -3 P)(MOVE 1 -7 P)(CALL 1 (E *EVAL))(JUMPE 1 G0080)(MOVE 1 -6 P)(JUMPE 1 G0083)
01300		(MOVEI 2 (QUOTE VALUE))(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E REMPROP))(JRST 0 G0082)
01310	G0083 (MOVE 1 -5 P)(JUMPN 1 G0085)(MOVE 2 -4 P)(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))
01320	G0085 
01330	G0082 (MOVE 1 -3 P)(JRST 0 G0003)
01340	G0080 (MOVE 1 (SPECIAL &CONTVAR))(CALL 1 (E *EVAL))(MOVE 2 -1 P)(CALL 2 (E *PLUS))(MOVE 2 1)
01350		(MOVE 1 (SPECIAL &CONTVAR))(CALL 2 (E SET))(JRST 0 G0002)
01360	G0003 (SUB P (C 0 0 13 13))(JRST 0 SPECSTR)
01370	NIL 
01380	
01390	
01400	(LAP F1 SUBR) 
01410		(HLRZ@ 1 1)(POPJ P)
01420	NIL 
01430	
01440	
01450	(LAP F2 SUBR) 
01460		(JCALL 1 (E CADR))
01470	NIL 
01480	
01490	
01500	(LAP F3 SUBR) 
01510		(JCALL 1 (E CADDR))
01520	NIL 
01530	
01540	
01550	(LAP F4 SUBR) 
01560		(JCALL 1 (E CADDDR))
01570	NIL 
01580	
     
00010	
00020	(LAP F5 SUBR) 
00030		(CALL 1 (E CDDDDR))(HLRZ@ 1 1)(POPJ P)
00040	NIL 
00050	
00060	
00070	(LAP F6 SUBR) 
00080		(CALL 1 (E CDDDDR))(JCALL 1 (E CADR))
00090	NIL 
00100	
00110	
00120	(LAP F7 SUBR) 
00130		(CALL 1 (E CDDDDR))(JCALL 1 (E CADDR))
00140	NIL 
00150	
00160	
00170	(LAP F8 SUBR) 
00180		(CALL 1 (E CDDDDR))(JCALL 1 (E CADDDR))
00190	NIL 
00200	
00210	
00220	(LAP F9 SUBR) 
00230		(CALL 1 (E CDDDDR))(CALL 1 (E CDDDDR))(HLRZ@ 1 1)(POPJ P)
00240	NIL 
00250	
00260	
00270	(LAP STR SUBR) 
00280		(PUSH P (SPECIAL DBQUOTE))(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 (SPECIAL DBQUOTE))
00290		(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))
00300		(JCALL 1 (E READLIST))
00310	NIL 
00320	
00330	
00340	(LAP AT SUBR) 
00350		(CALL 1 (E EXPLODEC))(JCALL 1 (E READLIST))
00360	NIL 
00370	
00380	
00390	(LAP CAT SUBR) 
00400		(PUSH P (SPECIAL DBQUOTE))(PUSH P 2)(CALL 1 (E EXPLODEC))(EXCH 1 0 P)(CALL 1 (E EXPLODEC))
00410		(PUSH P 1)(MOVE 1 (SPECIAL DBQUOTE))(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
00420		(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))(POP P 2)(CALL 2 (E XCONS))(JCALL 1 (E READLIST))
00430	NIL 
00440	
00450	
00460	(LAP SUBSTR SUBR) 
00470		(PUSH P (SPECIAL DBQUOTE))(PUSH P 1)(PUSH P 2)(PUSH P 3)(EXCH 1 3)(CALL 1 (E NUMBERP))
00480		(JUMPE 1 G0002)(EXCH 1 3)(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))
00490		(MOVE 2 1)(POP P 1)(CALL 2 (E SUFLIST))(MOVE 2 0 P)(CALL 2 (E PRELIST))(JRST 0 G0001)
00500	G0002 (MOVE 1 -2 P)(CALL 1 (E EXPLODEC))(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))(MOVE 2 1)
00510		(POP P 1)(CALL 2 (E SUFLIST))
00520	G0008 
00530	G0001 (MOVEM 1 0 P)(MOVE 1 (SPECIAL DBQUOTE))(CALL 1 (E NCONS))(MOVE 2 1)(POP P 1)(CALL 2 (E *APPEND))
00540		(MOVE 2 -2 P)(CALL 2 (E XCONS))(SUB P (C 0 0 3 3))(JCALL 1 (E READLIST))
00550	NIL 
00560	
00570	
00580	(LAP PRELIST SUBR) 
00590		(PUSH P 1)(PUSH P 2)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E EQUAL))(JUMPN 1 G0003)
00600		(MOVE 1 -1 P)(JUMPN 1 G0002)
00610	G0003 (MOVEI 1 (QUOTE NIL))(JRST 0 G0001)
00620	G0002 (HLRZ@ 1 -1 P)(PUSH P 1)(HRRZ@ 1 -2 P)(PUSH P 1)(MOVE 1 -2 P)(CALL 1 (E SUB1))(MOVE 2 1)
00630		(POP P 1)(CALL 2 (E PRELIST))(POP P 2)(CALL 2 (E XCONS))
00640	G0005 
00650	G0001 (SUB P (C 0 0 2 2))(POPJ P)
00660	NIL 
00670	
00680	
00690	(LAP SUFLIST SUBR) 
00700		(PUSH P 1)(PUSH P 2)(MOVEI 2 (QUOTE 0))(MOVE 1 0 P)(CALL 2 (E EQUAL))(JUMPN 1 G0003)
00710		(MOVE 1 -1 P)(JUMPN 1 G0002)
00720	G0003 (MOVE 1 -1 P)(JRST 0 G0001)
00730	G0002 (HRRZ@ 1 -1 P)(PUSH P 1)(MOVE 1 -1 P)(CALL 1 (E SUB1))(MOVE 2 1)(POP P 1)(CALL 2 (E SUFLIST))
00740	G0005 
00750	G0001 (SUB P (C 0 0 2 2))(POPJ P)
00760	NIL 
00770	
00780	
00790	(LAP PRINTSTR SUBR) 
00800		(CALL 1 (E PRINC))(MOVEI 1 (QUOTE NIL))(JCALL 1 (E TERPRI))
00810	NIL 
00820	
00830	
00840	(LAP NEQ SUBR) 
00850		(CAME 1 2)(JRST 0 G0001)(TDZA 1 1)
00860	G0001 (MOVEI 1 T)(POPJ P)
00870	NIL 
00880	
00890	
00900	(LAP NEQUAL SUBR) 
00910		(CALL 2 (E EQUAL))(JUMPE 1 G0001)(TDZA 1 1)
00920	G0001 (MOVEI 1 T)(POPJ P)
00930	NIL 
00940	
00950	
00960	(LAP SEQ SUBR) 
00970		(PUSH P 2)(CALL 1 (E EXPLODE))(EXCH 1 0 P)(CALL 1 (E EXPLODE))(POP P 2)(JCALL 2 (E EQUAL))
00980	NIL 
00990	
     
00010	(SETQ F NIL)
00020	(SETQ BLANK (QUOTE / ))
00030	(SETQ LPAR (QUOTE /())
00040	(SETQ RPAR (QUOTE /)))
00050	(SETQ DOLLAR (QUOTE /$))
00060	(SETQ SLASH (QUOTE //))
00070	(SETQ EQSIGN (QUOTE /=))
00080	(SETQ STAR (QUOTE /*))
00090	(SETQ COLON (QUOTE /:))
00100	(SETQ PLUSS (QUOTE /+))
00110	(SETQ DASH (QUOTE /-))
00120	(SETQ COMMA (QUOTE /,))
00130	(SETQ PERIOD (QUOTE /.))
00140	(SETQ PERCENT (QUOTE /%))
00150	(SETQ DBQUOTE (QUOTE /"))
00160	(SETQ LARROW (QUOTE /_))
00170	(SETQ TAB (INTERN (ASCII 11)))
00180	(SETQ LF (INTERN (ASCII 12)))
00190	(SETQ FF (INTERN (ASCII 14)))
00200	(SETQ CR (INTERN (ASCII 15)))
00210	(SETQ ALTMODE (INTERN (ASCII 175)))
00220	(SETQ BASE (SETQ IBASE 10.))
00230	(SETQ *NOPOINT T)
00240	(NOUUO NIL)
00250