mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
463 lines
22 KiB
Plaintext
Executable File
463 lines
22 KiB
Plaintext
Executable File
|
||
ITS MacLISP 2122 Functions and Other Features
|
||
This file was created by JONL on Wednesday, March 10, 1982 at 2:38 PM
|
||
|
||
|
||
User SUBRs:
|
||
|
||
*-READ-EVAL-PRINT CONS NOINTERRUPT
|
||
*BREAK COPYSYMBOL NORET
|
||
*DEPOSIT-BYTE COS NOT
|
||
*DIF CXR NOUUO
|
||
*DPB DEFAULTF NRECONC
|
||
*LDB DELETEF NREVERSE
|
||
*LOAD-BYTE DEPOSIT NTH
|
||
*NOPOINT DEPOSIT-BYTE NTHCDR
|
||
*QUO DISPLACE NULL
|
||
*READ DPB NUMBERP
|
||
*READCH EQ ODDP
|
||
*RSET EQUAL OUT
|
||
*THROW ERRFRAME PAIRP
|
||
*TYI EVALFRAME PLIST
|
||
+TYI EXAMINE PLUSP
|
||
+TYO EXP PNGET
|
||
1+ EXPLODE PNPUT
|
||
1+$ EXPLODEC PROBEF
|
||
1- EXPLODEN PUREP
|
||
1-$ EXPT PUTPROP
|
||
< FASLP QMARK
|
||
= FBOUNDP READ-*-EVAL-PRINT
|
||
> FILEP READ-EVAL-*-PRINT
|
||
ABS FILLARRAY READ-EVAL-PRINT-*
|
||
ADD1 FIX READLIST
|
||
ALARMCLOCK FIXNUM-IDENTITY RECLAIM
|
||
ALLOC FIXP REMAINDER
|
||
ALPHALESSP FLATC REMOB
|
||
ARG FLATSIZE REMPROP
|
||
ARRAY-#-DIMS FLOAT RENAMEF
|
||
ARRAY-DIMENSION-N FLOATP RETURN
|
||
ARRAY-TYPE FLONUM-IDENTITY REVERSE
|
||
ARRAYDIMS FORCE-OUTPUT ROT
|
||
ASCII FRETRY RPLACA
|
||
ASH FRETURN RPLACD
|
||
ASSOC FSC RPLACX
|
||
ASSQ GC RUNTIME
|
||
ATAN GCD SAMEPNAMEP
|
||
ATOM GET SASSOC
|
||
BIGP GETCHAR SASSQ
|
||
BOUNDP GETCHARN SET
|
||
CAAAAR GETL SETARG
|
||
CAAADR HAIPART SETPLIST
|
||
CAAAR HAULONG SETSYNTAX
|
||
CAADAR HUNKP SFA-CALL
|
||
CAADDR HUNKSIZE SFA-CREATE
|
||
CAADR IFIX SFA-GET
|
||
CAAR IMPLODE SFA-STORE
|
||
CADAAR IN SFAP
|
||
CADADR INCLUDEF SHORTNAMESTRING
|
||
CADAR INPUSH SIN
|
||
CADDAR INTERN SLEEP
|
||
CADDDR LAST SQRT
|
||
CADDR LDB SUB1
|
||
CADR LENGTH SUBLIS
|
||
CAR LENGTHF SUBR
|
||
CDAAAR LISTIFY SUBST
|
||
CDAADR LOAD SXHASH
|
||
CDAAR LOAD-BYTE SYMBOLP
|
||
CDADAR LOG SYMEVAL
|
||
CDADDR LSH SYSP
|
||
CDADR MAKE-LIST TIME
|
||
CDAR MAKHUNK TRUENAME
|
||
CDDAAR MAKNAM TYPEP
|
||
CDDADR MAKNUM UNTYI
|
||
CDDAR MAKUNBOUND VALUE-CELL-LOCATION
|
||
CDDDAR MEMBER WRITEABLEP
|
||
CDDDDR MEMQ XCONS
|
||
CDDDR MERGEF ZEROP
|
||
CDDR MINUS \
|
||
CDR MINUSP \\
|
||
CLEAR-INPUT MUNKAM ^
|
||
CLEAR-OUTPUT NAMELIST ^$
|
||
CLOSE NAMESTRING ^G
|
||
CNAMEF NCONS
|
||
|
||
|
||
User FSUBRs:
|
||
|
||
*CATCH DECLARE LSUBRCALL SUBRCALL
|
||
*FUNCTION DEFPROP OR UAPPEND
|
||
AND DEFUN POP UCLOSE
|
||
ARRAY DO PROG UFILE
|
||
ARRAYCALL ERR PROGV UKILL
|
||
BREAK ERRSET PUSH UNWIND-PROTECT
|
||
CASEQ EVAL-WHEN QUOTE UPROBE
|
||
CATCH-BARRIER FASLOAD SETQ UREAD
|
||
CATCHALL FUNCTION SIGNP UWRITE
|
||
COMMENT GCTWA SSTATUS
|
||
COND GO STATUS
|
||
CRUNIT INCLUDE STORE
|
||
|
||
|
||
User LSUBRs:
|
||
|
||
* DELQ LIST* PRINT-OBJECT
|
||
*$ DIFFERENCE LISTARRAY PROG1
|
||
*ARRAY ENDPAGEFN LISTEN PROG2
|
||
*REARRAY EOFFN MAP PROGN
|
||
+ ERROR MAPATOMS QUIT
|
||
+$ ERRPRINT MAPC QUOTIENT
|
||
- EVAL MAPCAN RANDOM
|
||
-$ EVALHOOK MAPCAR READ
|
||
/ FILEPOS MAPCON READCH
|
||
/$ FLATSIZE-OBJECT MAPLIST READLINE
|
||
APPEND FUNCALL MAX RUBOUT
|
||
APPLY GENSYM MIN SUSPEND
|
||
ARGS GETSP NCONC SYSCALL
|
||
BAKLIST GREATERP OPEN TERPRI
|
||
BAKTRACE HUNK PAGEL TIMES
|
||
BOOLE LESSP PAGENUM TYI
|
||
CHARPOS LEXPR-FUNCALL PLUS TYIPEEK
|
||
CURSORPOS LINEL PRIN1 TYO
|
||
DELASSQ LINENUM PRINC VALRET
|
||
DELETE LIST PRINT
|
||
|
||
|
||
STATUS options (* = can use with SSTATUS too):
|
||
|
||
* + * GCMAX * PDLMAX * TTYCONS
|
||
* ABBREVIATE * GCMIN PDLNAMES TTYIF ?
|
||
ARRAY * GCSIZE PDLROOOM * TTYINT
|
||
BPSH * GCTIME PDLSIZE TTYOF ?
|
||
BPSL * GCWHO * PUNT * TTYREAD
|
||
* BREAK HACTRN PURSIZE * TTYSCAN
|
||
* CALLI ? HOMEDIR PURSPACENAMES TTYSIZE
|
||
* CHTRAN HSNAM * RANDOM TTYTYPE
|
||
* CLI ITS SEGLOG UDIR
|
||
* CRFIL JCL * SENDI ? UNAME
|
||
* CRUNIT JNAME SITE * UREAD
|
||
DATE JNUMBER SPCNAMES USERI
|
||
DAYTIME * LINMODE SPCSIZE * USRHU ?
|
||
* DIVOV LISPVERSION SPDL * UUOLINKS
|
||
DOW * LOSEF SSTATUS * UWRITE
|
||
* EVALHOOK * MACRO STATUS * VECTO ?
|
||
FASLN ? * MAR SUBSYS * WHO1
|
||
FASLOAD MEMFREE * SXHAS ? * WHO2
|
||
* FEATURE NEWLINE * SYNTAX * WHO3
|
||
FILEMODE * NOFEATURE SYSTEM XUNAM
|
||
FILES ? * NOINT ? TABSIZE * _
|
||
FLPDL OPSYS ? * TERPRI
|
||
* FLUSH OSPEED * TOPLEVEL
|
||
FXPDL PDL * TTY
|
||
|
||
|
||
Initial arrays:
|
||
|
||
OBARRAY READTABLE STR:ARRAY
|
||
|
||
|
||
Initial User AUTOLOAD properties:
|
||
|
||
NAME OF ATOM INITIAL VALUE
|
||
|
||
**CLASS-SELF-EVAL** ((LISP) EXTEND FASL)
|
||
**SELF-EVAL** ((LISP) EXTSTR FASL)
|
||
*:FIXNUM-TO-CHARACTER ((LISP) STRING FASL)
|
||
<= ((LISP) MLSUB FASL)
|
||
>= ((LISP) MLSUB FASL)
|
||
ADD-METHOD ((LISP) EXTEND FASL)
|
||
ALLFILES ((LISP) ALLFILES FASL)
|
||
BLTARRAY ((LISP) BLTARRAY FASL)
|
||
CATCH ((LISP) MLMAC FASL)
|
||
CERROR ((LISP) CERROR FASL)
|
||
CGOL ((LISP) CGOL FASL)
|
||
CGOLREAD ((LISP) CGOL FASL)
|
||
CHECK-SUBSEQUENCE ((LISP) ERRCK FASL)
|
||
CHECK-TYPE ((LISP) ERRCK FASL)
|
||
CLASS-OF ((LISP) EXTEND FASL)
|
||
CLASSP ((LISP) EXTEND FASL)
|
||
CREATE-JOB ((LISP) HUMBLE FASL)
|
||
DEFBOTHMACRO ((LISP) MACAID FASL)
|
||
DEFCLASS* ((LISP) EXTMAC FASL)
|
||
DEFCOMPLRMAC ((LISP) MACAID FASL)
|
||
DEFCONST ((LISP) MLMAC FASL)
|
||
DEFINE-LOOP-PATH ((LISP) LOOP FASL)
|
||
DEFMACRO ((LISP) DEFMACRO FASL)
|
||
DEFMACRO-DISPLACE ((LISP) DEFMACRO FASL)
|
||
DEFMETHOD* ((LISP) EXTMAC FASL)
|
||
DEFSHARP ((LISP) SHARPM FASL)
|
||
DEFSIMPLEMAC ((LISP) MACAID FASL)
|
||
DEFUN& ((LISP) DEFMACRO FASL)
|
||
DEFVAR ((LISP) MLMAC FASL)
|
||
DEFVST ((LISP) DEFVST FASL)
|
||
DESCRIBE ((LISP) DESCRIBE FASL)
|
||
DESETQ ((LISP) LET FASL)
|
||
DESETQ-EXPANDER-1 ((LISP) LET FASL)
|
||
DIRECTORY ((LISP) ALLFILES FASL)
|
||
DUMPARRAYS ((LISP) DUMPARRAYS FASL)
|
||
EDIT ((LISP) EDIT FASL)
|
||
ERROR-RESTART ((LISP) CERROR FASL)
|
||
EVENP ((LISP) MLSUB FASL)
|
||
EXTENDP ((LISP) EXTEND FASL)
|
||
FERROR ((LISP) CERROR FASL)
|
||
FIND-METHOD ((LISP) EXTEND FASL)
|
||
FIXNUMP ((LISP) MLSUB FASL)
|
||
FLATTEN-SYMS ((LISP) MACAID FASL)
|
||
FLONUMP ((LISP) MLSUB FASL)
|
||
FLUSH-MACROMEMOS ((LISP) DEFMAX FASL)
|
||
FORMAT ((LISP) FORMAT FASL)
|
||
GETMIDASOP ((LISP) GETMIDASOP FASL)
|
||
GRIND ((LISP) GRIND FASL)
|
||
GRIND0 ((LISP) GRIND FASL)
|
||
GRINDEF ((LISP) GRINDEF FASL)
|
||
HERALD ((LISP) MLMAC FASL)
|
||
IF ((LISP) MLMAC FASL)
|
||
INF-EDIT ((LISP) LISPT FASL)
|
||
LAP ((LISP) LAP FASL)
|
||
LAP-A-LIST ((LISP) LAP FASL)
|
||
LEDIT ((LISP) LEDIT FASL)
|
||
LET ((LISP) LET FASL)
|
||
LET* ((LISP) LET FASL)
|
||
LET*-EXPANDER-1 ((LISP) LET FASL)
|
||
LET-EXPANDER-1 ((LISP) LET FASL)
|
||
LISPT ((LISP) LISPT FASL)
|
||
LISTP ((LISP) MLSUB FASL)
|
||
LOADARRAYS ((LISP) DUMPARRAYS FASL)
|
||
LOGAND ((LISP) MLSUB FASL)
|
||
LOGIOR ((LISP) MLSUB FASL)
|
||
LOGNOT ((LISP) MLSUB FASL)
|
||
LOGXOR ((LISP) MLSUB FASL)
|
||
LOOP ((LISP) LOOP FASL)
|
||
MACRO ((LISP) DEFMACRO FASL)
|
||
MACROEXPAND ((LISP) DEFMAX FASL)
|
||
MACROEXPAND-1 ((LISP) DEFMAX FASL)
|
||
MACROEXPAND-1* ((LISP) DEFMAX FASL)
|
||
MACROEXPAND-1*M ((LISP) DEFMAX FASL)
|
||
MACROEXPANDED ((LISP) DEFMAX FASL)
|
||
MACROFETCH ((LISP) DEFMAX FASL)
|
||
MACROMEMO ((LISP) DEFMAX FASL)
|
||
MAKE-STRING ((LISP) STRING FASL)
|
||
MAPALLFILES ((LISP) ALLFILES FASL)
|
||
MAPDIRECTORY ((LISP) ALLFILES FASL)
|
||
MULTIPLE-VALUE ((LISP) MLMAC FASL)
|
||
MULTIPLE-VALUE-BIND ((LISP) MLMAC FASL)
|
||
MULTIPLE-VALUE-LIST ((LISP) MLMAC FASL)
|
||
PSETQ ((LISP) MLMAC FASL)
|
||
PTR-TYPEP ((LISP) EXTEND FASL)
|
||
READMACROINVERSE ((LISP) GRINDEF FASL)
|
||
REPLACE ((LISP) SUBSEQ FASL)
|
||
SELECTQ ((LISP) MLMAC FASL)
|
||
SEND ((LISP) EXTEND FASL)
|
||
SETF ((LISP) SETF FASL)
|
||
SETQ-IF-UNBOUND ((LISP) MLMAC FASL)
|
||
SETSYNTAX-SHARP-MACRO ((LISP) SHARPM FASL)
|
||
SETVST ((LISP) DEFVSX FASL)
|
||
SFA-UNCLAIMED-MESSAGE ((LISP) EXTSFA FASL)
|
||
SI:CHECK-MULTIPLICITIES ((LISP) MLSUB FASL)
|
||
SI:CHECK-SUBSEQUENCER ((LISP) ERRCK FASL)
|
||
SI:CHECK-TYPER ((LISP) ERRCK FASL)
|
||
SI:DEFCLASS*-1 ((LISP) EXTEND FASL)
|
||
SI:DEFCLASS*-2 ((LISP) EXTSTR FASL)
|
||
SI:EXTEND ((LISP) EXTBAS FASL)
|
||
SI:EXTEND-LENGTH ((LISP) EXTBAS FASL)
|
||
SI:EXTENDP ((LISP) EXTEND FASL)
|
||
SI:MAKE-EXTEND ((LISP) EXTBAS FASL)
|
||
SI:XREF ((LISP) EXTBAS FASL)
|
||
SI:XSET ((LISP) EXTBAS FASL)
|
||
SORT ((LISP) SORT FASL)
|
||
SORTCAR ((LISP) SORT FASL)
|
||
SPRIN1 ((LISP) GRINDEF FASL)
|
||
SPRINTER ((LISP) GRINDEF FASL)
|
||
STRING-PNPUT ((LISP) STRING FASL)
|
||
STRUCT-TYPEP ((LISP) DEFVSY FASL)
|
||
SUBSEQ ((LISP) SUBSEQ FASL)
|
||
SYMBOLCONC ((LISP) MACAID FASL)
|
||
THROW ((LISP) MLMAC FASL)
|
||
TO-BITS ((LISP) SUBSEQ FASL)
|
||
TO-LIST ((LISP) SUBSEQ FASL)
|
||
TO-STRING ((LISP) SUBSEQ FASL)
|
||
TO-VECTOR ((LISP) SUBSEQ FASL)
|
||
TRACE ((LISP) TRACE FASL)
|
||
VALUES ((LISP) MLMAC FASL)
|
||
VALUES-LIST ((LISP) MLSUB FASL)
|
||
WHICH-OPERATIONS ((LISP) DESCRIBE FASL)
|
||
WITH-INTERRUPTS ((LISP) MLMAC FASL)
|
||
WITHOUT-INTERRUPTS ((LISP) MLMAC FASL)
|
||
WITHOUT-TTY-INTERRUPTS ((LISP) MLMAC FASL)
|
||
Y-OR-N-P ((LISP) YESNOP FASL)
|
||
YES-OR-NO-P ((LISP) YESNOP FASL)
|
||
|
||
|
||
LAP and FASLOAD functions:
|
||
|
||
*APPEND *NCONC *TYO PURCOPY
|
||
*APPLY *PLUS FASLAPSETUP| PURIFY
|
||
*DELETE *PRIN1 GCPROTECT PUTDDTSYM
|
||
*DELQ *PRINC GETDDTSYM TTSR|
|
||
*EVAL *PRINT LAPSETUP|
|
||
*GREAT *TERPRI LH|
|
||
*LESS *TIMES PAGEBPORG
|
||
|
||
|
||
Internal system functions:
|
||
|
||
+INTERNAL-"-MACRO +INTERNAL-SET-STRING-WORD-N
|
||
+INTERNAL-'-MACRO +INTERNAL-STRING-WORD-N
|
||
+INTERNAL-*RSET-BREAK +INTERNAL-TTY-ENDPAGEFN
|
||
+INTERNAL-;-MACRO +INTERNAL-TTYSCAN-SUBR
|
||
+INTERNAL-AUTOLOAD +INTERNAL-UBV-BREAK
|
||
+INTERNAL-CARCDRP +INTERNAL-UDF-BREAK
|
||
+INTERNAL-CHAR-N +INTERNAL-UGT-BREAK
|
||
+INTERNAL-FAC-BREAK +INTERNAL-UREAD-EOFFN
|
||
+INTERNAL-GCL-BREAK +INTERNAL-WNA-BREAK
|
||
+INTERNAL-GCO-BREAK +INTERNAL-WTA-BREAK
|
||
+INTERNAL-INCLUDE-EOFFN +INTERNAL-^B-BREAK
|
||
+INTERNAL-IOL-BREAK +INTERNAL-^Q-MACRO
|
||
+INTERNAL-PDL-BREAK +INTERNAL-^S-MACRO
|
||
+INTERNAL-RPLACHAR-N +INTERNAL-|-MACRO
|
||
|
||
|
||
Internal system AUTOLOAD properties:
|
||
|
||
NAME OF ATOM INITIAL VALUE
|
||
|
||
|&r-l/|| ((LISP) DEFMACRO FASL)
|
||
+INTERNAL-/#-MACRO ((LISP) SHARPM FASL)
|
||
|+INTERNAL-,-macro/|| ((LISP) BACKQ FASL)
|
||
+INTERNAL-DUP-P ((LISP) MACAID FASL)
|
||
+INTERNAL-LOSSAGE ((LISP) CERROR FASL)
|
||
+INTERNAL-POP-X ((LISP) SETF FASL)
|
||
+INTERNAL-PUSH-X ((LISP) SETF FASL)
|
||
+INTERNAL-SETF-X ((LISP) SETF FASL)
|
||
+INTERNAL-TRY-AUTOLOADP ((LISP) DEFMAX FASL)
|
||
|+INTERNAL-`-macro/|| ((LISP) BACKQ FASL)
|
||
MULTIPLE-VALUE-LIST/| ((LISP) MLSUB FASL)
|
||
|`-expander/|| ((LISP) BACKQ FASL)
|
||
|carcdrp/|| ((LISP) MACAID FASL)
|
||
|constant-p/|| ((LISP) MACAID FASL)
|
||
|defmacro-1/|| ((LISP) DEFMACRO FASL)
|
||
|defvst-construction-1/|| ((LISP) DEFVSX FASL)
|
||
|defvst-construction/|| ((LISP) DEFVSX FASL)
|
||
|defvst-initialize/|| ((LISP) DEFVSY FASL)
|
||
|defvst-selection-1/|| ((LISP) DEFVSX FASL)
|
||
|defvst-typchk/|| ((LISP) DEFVSY FASL)
|
||
|defvst-xref/|| ((LISP) DEFVSX FASL)
|
||
|forget-macromemos/|| ((LISP) DEFMAX FASL)
|
||
|no-funp/|| ((LISP) MACAID FASL)
|
||
|side-effectsp/|| ((LISP) MACAID FASL)
|
||
|
||
|
||
System variables:
|
||
|
||
NAME OF ATOM INITIAL VALUE
|
||
|
||
P P
|
||
/#-MACRO-DATALIST NIL
|
||
|&r-l/|| UNBOUND
|
||
* *
|
||
*-READ-EVAL-PRINT NIL
|
||
*:TRUTH T
|
||
*NOPOINT NIL
|
||
*RSET T
|
||
*RSET-TRAP +INTERNAL-*RSET-BREAK
|
||
+ +
|
||
+INTERNAL-INTERRUPT-BOUND-VARIABLES NIL
|
||
- -
|
||
// NIL
|
||
ALARMCLOCK NIL
|
||
ARGS NIL
|
||
AUTOLOAD +INTERNAL-AUTOLOAD
|
||
BACKQUOTE-EXPAND-WHEN EVAL
|
||
BASE 10
|
||
CAR NIL
|
||
CDR NIL
|
||
CLI-MESSAGE NIL
|
||
COMPILER-STATE NIL
|
||
DEFAULTF ((DSK LOSER) @ @)
|
||
DEFMACRO-CHECK-ARGS T
|
||
DEFMACRO-DISPLACE-CALL T
|
||
DEFMACRO-FOR-COMPILING T
|
||
DEFUN NIL
|
||
DEFUN& NIL
|
||
ECHOFILES NIL
|
||
EDIT NIL
|
||
ERRLIST NIL
|
||
ERROR-BREAK-ENVIRONMENT (#OBARRAY-1200-70004 . #READTABLE-0-70006)
|
||
ERRSET NIL
|
||
EVAL NIL
|
||
EVALHOOK NIL
|
||
FAIL-ACT +INTERNAL-FAC-BREAK
|
||
FASLOAD (SUBR FSUBR LSUBR)
|
||
FILE-EXIT-FUNCTIONS NIL
|
||
FILE-EXIT-FUNCTIONS-DEFAULT NIL
|
||
GC-DAEMON NIL
|
||
GC-LOSSAGE +INTERNAL-GCL-BREAK
|
||
GC-OVERFLOW +INTERNAL-GCO-BREAK
|
||
GCTWA NIL
|
||
GRINDEF NIL
|
||
HUNKP T
|
||
IBASE 10
|
||
INFILE T
|
||
INSTACK NIL
|
||
IO-LOSSAGE +INTERNAL-IOL-BREAK
|
||
MACHINE-ERROR NIL
|
||
MACRO-EXPANSION-USE MACROEXPANDED
|
||
MACROEXPANDED NIL
|
||
MACROMEMO NIL
|
||
MAKHUNK T
|
||
MAR-BREAK NIL
|
||
MSGFILES (T)
|
||
NIL NIL
|
||
NORET NIL
|
||
NOUUO NIL
|
||
OBARRAY #OBARRAY-1200-70004
|
||
OUTFILES NIL
|
||
PDL-OVERFLOW +INTERNAL-PDL-BREAK
|
||
PRIN1 NIL
|
||
PRINLENGTH NIL
|
||
PRINLEVEL NIL
|
||
PURCOPY NIL
|
||
READ NIL
|
||
READ-*-EVAL-PRINT NIL
|
||
READ-EVAL-*-PRINT NIL
|
||
READ-EVAL-PRINT-* NIL
|
||
READTABLE #READTABLE-0-70006
|
||
SYMBOLS NIL
|
||
SYS-DEATH NIL
|
||
T T
|
||
TERPRI T
|
||
TTY 11
|
||
TTY-RETURN NIL
|
||
TTYSCAN-STRINGERS/| ((73 . 15) (174 . 174) (42 . 42))
|
||
TYI #FILE-IN-|TTY:* *|-70012
|
||
TYO #FILE-OUT-|TTY:* *|-70014
|
||
UNBND-VRBL +INTERNAL-UBV-BREAK
|
||
UNDF-FNCTN +INTERNAL-UDF-BREAK
|
||
UNSEEN-GO-TAG +INTERNAL-UGT-BREAK
|
||
UREAD NIL
|
||
UWRITE NIL
|
||
WRNG-NO-ARGS +INTERNAL-WNA-BREAK
|
||
WRNG-TYPE-ARG +INTERNAL-WTA-BREAK
|
||
ZFUZZ NIL
|
||
ZUNDERFLOW NIL
|
||
^A NIL
|
||
^D NIL
|
||
^Q NIL
|
||
^R NIL
|
||
^W NIL
|
||
|carcdrp/|| T
|
||
|
||
|
||
LAP and FASLOAD variables:
|
||
|
||
NAME OF ATOM INITIAL VALUE
|
||
|
||
*PURE NIL
|
||
BPEND 136223
|
||
BPORG 126164
|
||
GCPROTECT NIL
|
||
LAPSETUP/| NIL
|
||
PURCLOBRL NIL
|
||
PURE 1
|
||
PUTPROP (+INTERNAL-STRING-MARKER SUBR FSUBR LSUBR)
|
||
TTSR/| 12657
|