Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0016/utils.mac
There are 2 other files named utils.mac in the archive. Click here to see a list.
     
00010	
00020	(LAP F1 SUBR) 
00030		(HLRZ@ 1 1)(POPJ P)
00040	NIL 
00050	
00060	
00070	(LAP F2 SUBR) 
00080		(JCALL 1 (E CADR))
00090	NIL 
00100	
00110	
00120	(LAP F3 SUBR) 
00130		(JCALL 1 (E CADDR))
00140	NIL 
00150	
00160	
00170	(LAP F4 SUBR) 
00180		(JCALL 1 (E CADDDR))
00190	NIL 
00200	
     
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