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
00020 (LAP GRINDEF FSUBR)
00030 (PUSH P 1)(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))(PUSH P (C 0 0 (QUOTE NIL)))
00040 (MOVEI 1 (QUOTE NIL))(MOVEI 2 (QUOTE (EXPR FEXPR VALUE MACRO SPECIAL)))(MOVEM 2 -2 P)
00050 G0001 (MOVE 1 -3 P)(JUMPE 1 G0005)(MOVE 2 -2 P)(MOVEM 2 0 P)(HLRZ@ 1 -3 P)(CALL 1 (E ATOM))
00060 G0002 (HLRZ@ 1 -3 P)(CALL 1 (E ATOM))(JUMPN 1 G0018)(HLRZ@ 1 -3 P)(MOVEM 1 -2 P)(JRST 0 G0003)
00070 G0018 (HLRZ@ 2 0 P)(HLRZ@ 1 -3 P)(CALL 2 (E GET))(MOVEM 1 -1 P)(JUMPE 1 G0023)(CALL 1 (E ATOM))
00080 (JUMPN 1 G0028)(MOVEI 2 (QUOTE VALUE))(MOVEI 1 (QUOTE %%UBD))(CALL 2 (E GET))(HRRZ@ 3 1)
00090 (HRRZ@ 1 -1 P)(CAMN 1 3)(JRST 0 G0023)
00100 G0028 (CALL 0 (E TERPRI))(CALL 0 (E TERPRI))(MOVEI 1 (QUOTE /(DEFPROP/ ))(CALL 1 (E PRINC))
00110 (HLRZ@ 1 -3 P)(CALL 1 (E PRIN1))(MOVEI 1 (QUOTE / ))(CALL 1 (E PRINC))(CALL 0 (E TERPRI))
00120 (MOVEI 3 (QUOTE 0))(MOVEI 2 (QUOTE 2))(MOVE 1 -1 P)(CALL 3 (E SPRINT))(MOVEI 1 (QUOTE / ))
00130 (CALL 1 (E PRINC))(CALL 0 (E TERPRI))(MOVEI 3 (QUOTE 1))(MOVE 2 3)(HLRZ@ 1 0 P)(CALL 3 (E SPRINT))
00140 (MOVEI 1 (QUOTE /)))(CALL 1 (E PRINC))
00150 G0023 (HRRZ@ 1 0 P)(MOVEM 1 0 P)(JUMPN 1 G0002)
00160 G0003 (HRRZ@ 1 -3 P)(MOVEM 1 -3 P)(JRST 0 G0001)
00170 G0005 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 4 4))(POPJ P)
00180 NIL
00190
00200
00210 (LAP SPRINT SUBR)
00220 (PUSH P 1)(PUSH P 2)(PUSH P 3)
00230 G0001 (MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(MOVEI 2 (QUOTE 1))(CALL 2 (E *PLUS))(PUSH P 1)
00240 (CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)(CALL 2 (E *DIF))(MOVE 2 -1 P)(CALL 2 (E *LESS))
00250 (JUMPE 1 G0009)(MOVE 1 -1 P)(CALL 1 (E SUB1))(CALL 1 (E PPOS))(JRST 0 G0001)
00260 G0009 (MOVE 1 -2 P)(CALL 1 (E ATOM))(JUMPN 1 G0019)(MOVE 1 -2 P)(CALL 1 (E FLATSIZE))(MOVE 2 0 P)
00270 (CALL 2 (E *PLUS))(PUSH P 1)(CALL 0 (E CHRCT))(POP P 2)(CALL 2 (E *GREAT))(JUMPE 1 G0018)
00280 G0019 (MOVE 1 -2 P)(CALL 1 (E PRIN1))(JRST 0 G0005)
00290 G0018 (MOVEI 1 (QUOTE /())(CALL 1 (E PRINC))(JUMPE 1 G0027)(MOVE 1 -2 P)(CALL 1 (E LENGTH))
00300 (MOVEI 2 (QUOTE 1))(CALL 2 (E *GREAT))(JUMPE 1 G0027)(MOVE 1 -2 P)(CALL 1 (E FLATSIZE))
00310 (MOVEI 2 (QUOTE 1))(CALL 2 (E *PLUS))(PUSH P 1)(MOVE 1 -3 P)(CALL 1 (E LAST))(CALL 1 (E PANL))
00320 (POP P 2)(CALL 2 (E *PLUS))(PUSH P 1)(MOVE 1 -3 P)(CALL 1 (E LAST))(CALL 1 (E FLATSIZE))
00330 (MOVE 2 1)(POP P 1)(CALL 2 (E *DIF))(PUSH P 1)(CALL 0 (E CHRCT))(POP P 2)(CALL 2 (E *GREAT))
00340 (JUMPE 1 G0027)
00350 G0002 (HLRZ@ 1 -2 P)(CALL 1 (E PRIN1))(MOVEI 1 (QUOTE / ))(CALL 1 (E PRINC))(HRRZ@ 1 -2 P)
00360 (HRRZ@ 2 1)(MOVEM 1 -2 P)(JUMPN 2 G0002)(CALL 0 (E CHRCT))(MOVE 3 1)(MOVE 2 -2 P)
00370 (MOVE 1 0 P)(CALL 3 (E HUNOZ))(MOVEI 1 (QUOTE NIL))(JRST 0 G0008)
00380 G0027 (MOVE 1 -2 P)(CALL 1 (E LENGTH))(MOVEI 2 (QUOTE 2))(CALL 2 (E *GREAT))(JUMPE 1 G0055)
00390 (MOVE 1 -2 P)(CALL 1 (E PANL))(PUSH P 1)(CALL 0 (E CHRCT))(POP P 2)(CALL 2 (E *GREAT))
00400 (JUMPE 1 G0055)(HLRZ@ 1 -2 P)(CALL 1 (E PRIN1))(MOVEI 2 (QUOTE (PROG LAMBDA)))(CALL 2 (E MEMQ))
00410 (PUSH P 1)(HLRZ@ 1 -3 P)(CAIE 1 (QUOTE LAMBDA))(JRST 0 G0069)(MOVEI 1 (QUOTE / ))
00420 (CALL 1 (E PRINC))(MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(MOVEI 2 (QUOTE 6))
00430 (CALL 2 (E *DIF))(JRST 0 G0068)
00440 G0069 (MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(MOVEI 2 (QUOTE 2))(CALL 2 (E *PLUS))
00450 G0068 (PUSH P 1)(CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)(CALL 2 (E *DIF))(MOVEM 1 -2 P)
00460 G0003 (HRRZ@ 1 -3 P)(PUSH P 1)(HLRZ@ 1 1)(CALL 1 (E ATOM))(JUMPE 1 G0083)(MOVEI 1 (QUOTE / ))
00470 (CALL 1 (E PRINC))(JUMPE 1 G0083)(MOVE 2 -1 P)(JUMPE 2 G0083)(HRRZ@ 3 -4 P)(HLRZ@ 3 3)
00480 (JUMPE 3 G0083)(MOVEI 2 (QUOTE -5))(JRST 0 G0082)
00490 G0083 (MOVEI 2 (QUOTE 0))
00500 G0082 (MOVE 1 -3 P)(CALL 2 (E *PLUS))(MOVE 3 1)(POP P 2)(MOVE 1 -1 P)(CALL 3 (E HUNOZ))(JUMPE 1 G0080)
00510 (HRRZ@ 1 -3 P)(HRRZ@ 1 1)(CALL 1 (E PRIN1))(JRST 0 G0062)
00520 G0080 (HRRZ@ 1 -3 P)(HRRZ@ 2 1)(MOVEM 1 -3 P)(JUMPE 2 G0097)(MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))
00530 (MOVEI 2 (QUOTE 1))(CALL 2 (E *PLUS))(PUSH P 1)(CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)
00540 (CALL 2 (E *DIF))(MOVE 2 -2 P)(CALL 2 (E *GREAT))(JUMPE 1 G0101)(CALL 0 (E TERPRI))
00550 G0101 (JRST 0 G0003)
00560 G0097 (MOVEI 1 (QUOTE NIL))
00570 G0062 (SUB P (C 0 0 1 1))(JRST 0 G0008)
00580 G0055 (MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(MOVEI 2 (QUOTE 1))(CALL 2 (E *PLUS))(PUSH P 1)
00590 (CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)(CALL 2 (E *DIF))(MOVEM 1 -1 P)
00600 G0004 (MOVE 3 -1 P)(MOVE 2 -2 P)(MOVE 1 0 P)(CALL 3 (E HUNOZ))(JUMPE 1 G0120)(HRRZ@ 1 -2 P)
00610 (CALL 1 (E PRIN1))(JRST 0 G0112)
00620 G0120 (HRRZ@ 1 -2 P)(MOVEM 1 -2 P)(JUMPE 1 G0127)(CALL 0 (E TERPRI))(JRST 0 G0004)
00630 G0127 (MOVEI 1 (QUOTE NIL))
00640 G0112
00650 G0008 (MOVEI 1 (QUOTE /)))(CALL 1 (E PRINC))(MOVEI 1 (QUOTE NIL))
00660 G0005 (SUB P (C 0 0 3 3))(POPJ P)
00670 NIL
00680
00690
00700 (LAP HUNOZ SUBR)
00710 (PUSH P 2)(PUSH P 1)(HLRZ@ 1 -1 P)(PUSH P 1)(MOVEM 2 -2 P)(PUSH P 3)(HRRZ@ 3 2)(MOVEM 3 -3 P)
00720 (JUMPN 3 G0003)(MOVE 1 -2 P)(CALL 1 (E ADD1))(MOVE 3 1)(JRST 0 G0002)
00730 G0003 (EXCH 1 3)(CALL 1 (E ATOM))(JUMPE 1 G0006)(MOVE 2 -2 P)(MOVEI 1 (QUOTE 4))(CALL 2 (E *PLUS))
00740 (PUSH P 1)(MOVE 1 -4 P)(CALL 1 (E FLATSIZE))(POP P 2)(CALL 2 (E *PLUS))(MOVE 3 1)
00750 (JRST 0 G0002)
00760 G0006 (MOVEI 3 (QUOTE 0))
00770 G0002 (POP P 2)(POP P 1)(CALL 3 (E SPRINT))(MOVE 1 -1 P)(JUMPE 1 G0014)(CALL 1 (E ATOM))(JUMPE 1 G0014)
00780 (MOVEI 1 (QUOTE / /./ ))(CALL 1 (E PRINC))(JRST 0 G0013)
00790 G0014 (MOVEI 1 (QUOTE NIL))
00800 G0013 (SUB P (C 0 0 2 2))(POPJ P)
00810 NIL
00820
00830
00840 (LAP PANL SUBR)
00850 (PUSH P 1)(CALL 1 (E ATOM))(JUMPN 1 G0003)(HRRZ@ 1 0 P)(CALL 1 (E ATOM))(JUMPE 1 G0002)
00860 G0003 (MOVE 1 0 P)(CALL 1 (E FLATSIZE))(MOVEI 2 (QUOTE 15))(CALL 2 (E *PLUS))(JRST 0 G0001)
00870 G0002 (HRRZ@ 1 0 P)(HLRZ@ 1 1)(CALL 1 (E PANL))(MOVEI 2 (QUOTE 2))(CALL 2 (E *PLUS))(PUSH P 1)
00880 (HLRZ@ 1 -1 P)(CALL 1 (E FLATSIZE))(POP P 2)(CALL 2 (E *PLUS))
00890 G0001 (SUB P (C 0 0 1 1))(POPJ P)
00900 NIL
00910
00920
00930 (LAP PPOS SUBR)
00940 (PUSH P 1)(MOVEI 2 (QUOTE 1))(CALL 2 (E *LESS))(JUMPN 1 G0008)(CALL 1 (E LINELENGTH))
00950 (PUSH P 1)(CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)(CALL 2 (E *DIF))(MOVE 2 0 P)(CALL 2 (E *GREAT))
00960 (JUMPE 1 G0007)
00970 G0008 (CALL 0 (E TERPRI))
00980 G0007
00990 G0001 (MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(PUSH P 1)(CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)
01000 (CALL 2 (E *DIF))(MOVEI 2 (QUOTE -7))(CALL 2 (E *DIF))(MOVE 2 0 P)(CALL 2 (E *LESS))
01010 (JUMPE 1 G0017)(MOVEI 1 (QUOTE 11))(CALL 1 (E TYO))(JRST 0 G0001)
01020 G0017 (MOVEI 1 (QUOTE NIL))(CALL 1 (E LINELENGTH))(PUSH P 1)(CALL 0 (E CHRCT))(MOVE 2 1)(POP P 1)
01030 (CALL 2 (E *DIF))(MOVE 2 1)(MOVE 1 0 P)(CALL 2 (E *DIF))(MOVEM 1 0 P)
01040 G0002 (MOVEI 2 (QUOTE 1))(MOVE 1 0 P)(CALL 2 (E *LESS))(JUMPN 1 G0004)(MOVEI 1 (QUOTE 40))
01050 (CALL 1 (E TYO))(MOVE 1 0 P)(CALL 1 (E SUB1))(JRST 0 (G0002 -1))
01060 G0004 (MOVEI 1 (QUOTE NIL))(SUB P (C 0 0 1 1))(POPJ P)
01070 NIL
01080
00010 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) (QUOTE OPR))))
00020 (QUOTE ( (/+ PLUS) (/- DIFFERENCE) (/* TIMES) (// QUOTIENT) (/& AND) (/| OR) (/= EQUAL) (/ NEQUAL)
00030 (/@ APPEND) (/ MEMBER) )))
00040
00050 (MAPCAR (FUNCTION (LAMBDA (X) (MAPCAR (FUNCTION (LAMBDA (Y) (PUTPROP Y T (CDR X)))) (CAR X))))
00060 (QUOTE (((BEGIN NEW SPECIAL END COLLECT UNTIL WHILE DO FOR IF THEN ELSE IN ON BY TO LAMBDA OCTAL) . RW)
00070 ((EXPR FEXPR MACRO LEXPR) . FUNCTYPE)
00080 (( /' ) . QT)
00090 (( /+ /- NOT NULL ATOM NUMBERP) . PREFIX))))
00100
00110 (SETQ IDTYPE 0)
00120 (SETQ STRTYPE 1)
00130 (SETQ NUMTYPE 2)
00140 (SETQ DELIMTYPE 3)
00150
00160 (DEFPROP UNASCII
00170 (LAMBDA (&X) (LSH (EXAMINE (MAKNUM (CAR (GET &X (QUOTE PNAME))) (QUOTE FIXNUM))) -29.))
00180 EXPR)
00190
00200 (DEFPROP SCANNER1INIT
00210 (LAMBDA NIL
00220 (PROG NIL
00230 (SETQ SCNVAL NIL)
00240 (*PUTSYM (QUOTE SCNVAL) (GET (QUOTE SCNVAL) (QUOTE VALUE)))
00250 (LOAD T)))
00260 EXPR)
00270
00280 (DEFPROP SCANNER2INIT
00290 (LAMBDA NIL
00300 (PROG NIL
00310 (GETSYM SUBR SCAN SCANINIT SCANSET SCANRESET LETTER IGNORE UNTYI)
00320 (SCANINIT (UNASCII PERCENT) (UNASCII PERCENT) (UNASCII DBQUOTE) (UNASCII DBQUOTE) (UNASCII (QUOTE ?)))
00330 (LETTER (UNASCII (QUOTE !)))
00340 (LETTER (UNASCII COLON))
00350 (IGNORE (UNASCII BLANK))
00360 (IGNORE (UNASCII CR))
00370 (IGNORE (UNASCII LF))
00380 (IGNORE (UNASCII FF))
00390 (IGNORE (UNASCII TAB))
00400 (IGNORE (UNASCII ALTMODE))
00410 (REMOB UNASCII SCANNER1INIT SCANNER2INIT)))
00420 EXPR)
00430
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