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