Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50075/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