mirror of
https://github.com/PDP-10/its.git
synced 2026-01-19 01:27:05 +00:00
92 lines
5.0 KiB
Plaintext
Executable File
92 lines
5.0 KiB
Plaintext
Executable File
; this is a support file for LISPT and LDDT, normally only used at compile time
|
|
; It may also be useful for other applications where the HUMBLE package is used
|
|
; in hacking jobs inferior to LISP.
|
|
|
|
(DEFUN (*USET MACRO) (X)
|
|
((LAMBDA (NAME)
|
|
((LAMBDA (VAL)
|
|
(OR VAL (ERROR '|INVALID *USET VARIABLE| X 'WRNG-TYPE-ARG))
|
|
(COND ((CDDR X)
|
|
(LIST 'JOB-USET-WRITE VAL (CADDR X)))
|
|
(T (LIST 'JOB-USET-READ VAL))))
|
|
(GET NAME (COND ((CDDR X) 'USET-WRITE)
|
|
(T 'USET-READ)))))
|
|
((LAMBDA (EXP)
|
|
(AND (CDDDR (CDDDR EXP))
|
|
(RPLACD (CDDR (CDDDR EXP)) NIL))
|
|
(IMPLODE EXP))
|
|
(EXPLODEC (CADR X)))))
|
|
|
|
; DEFINE USET SYMBOLS
|
|
|
|
|
|
(DEFPROP *RUPC 0 USET-READ) (DEFPROP *SUPC 400000 USET-WRITE)
|
|
(DEFPROP *RVAL 1 USET-READ) (DEFPROP *SVAL 400001 USET-WRITE)
|
|
(DEFPROP *RTTY 2 USET-READ) (DEFPROP *STTY 400002 USET-WRITE)
|
|
(DEFPROP *RFLS 3 USET-READ) (DEFPROP *SFLS 400003 USET-WRITE)
|
|
(DEFPROP *RUNAM 4 USET-READ) (DEFPROP *SUNAM 400004 USET-WRITE)
|
|
(DEFPROP *RJNAM 5 USET-READ) (DEFPROP *SJNAM 400005 USET-WRITE)
|
|
(DEFPROP *RMASK 6 USET-READ) (DEFPROP *SMASK 400006 USET-WRITE)
|
|
(DEFPROP *RUSTP 7 USET-READ) (DEFPROP *SUSTP 400007 USET-WRITE)
|
|
(DEFPROP *RPIRQ 10 USET-READ) (DEFPROP *SPIRQ 400010 USET-WRITE)
|
|
(DEFPROP *RINTB 11 USET-READ) (DEFPROP *SINTB 400011 USET-WRITE)
|
|
(DEFPROP *RMEMT 12 USET-READ) (DEFPROP *SMEMT 400012 USET-WRITE)
|
|
(DEFPROP *RSV40 13 USET-READ) (DEFPROP *SSV40 400013 USET-WRITE)
|
|
(DEFPROP *RIPIR 14 USET-READ) (DEFPROP *SIPIR 400014 USET-WRITE)
|
|
(DEFPROP *RAPIR 15 USET-READ) (DEFPROP *SAPIR 400015 USET-WRITE)
|
|
(DEFPROP *RSNAM 16 USET-READ) (DEFPROP *SSNAM 400016 USET-WRITE)
|
|
(DEFPROP *RPICL 17 USET-READ) (DEFPROP *SPICL 400017 USET-WRITE)
|
|
(DEFPROP *RMARA 20 USET-READ) (DEFPROP *SMARA 400020 USET-WRITE)
|
|
(DEFPROP *RMARP 21 USET-READ) (DEFPROP *SMARP 400021 USET-WRITE)
|
|
(DEFPROP *RUUOH 22 USET-READ) (DEFPROP *SUUOH 400022 USET-WRITE)
|
|
(DEFPROP *RUIND 23 USET-READ) (DEFPROP *SUIND 400023 USET-WRITE)
|
|
(DEFPROP *RRUNT 24 USET-READ) (DEFPROP *SRUNT 400024 USET-WRITE)
|
|
(DEFPROP *RMSK2 25 USET-READ) (DEFPROP *SMSK2 400025 USET-WRITE)
|
|
(DEFPROP *RIFPI 26 USET-READ) (DEFPROP *SIFPI 400026 USET-WRITE)
|
|
(DEFPROP *RAPRC 27 USET-READ) (DEFPROP *SAPRC 400027 USET-WRITE)
|
|
(DEFPROP *RSV60 30 USET-READ) (DEFPROP *SSV60 400030 USET-WRITE)
|
|
(DEFPROP *RUTRP 31 USET-READ) (DEFPROP *SUTRP 400031 USET-WRITE)
|
|
(DEFPROP *RIIFP 32 USET-READ) (DEFPROP *SIIFP 400032 USET-WRITE)
|
|
(DEFPROP *RAIFP 33 USET-READ) (DEFPROP *SAIFP 400033 USET-WRITE)
|
|
(DEFPROP *RIMAS 34 USET-READ) (DEFPROP *SIMAS 400034 USET-WRITE)
|
|
(DEFPROP *RAMAS 35 USET-READ) (DEFPROP *SAMAS 400035 USET-WRITE)
|
|
(DEFPROP *RIMSK 36 USET-READ) (DEFPROP *SIMSK 400036 USET-WRITE)
|
|
(DEFPROP *RAMSK 37 USET-READ) (DEFPROP *SAMSK 400037 USET-WRITE)
|
|
(DEFPROP *RJPC 40 USET-READ) (DEFPROP *SJPC 400040 USET-WRITE)
|
|
(DEFPROP *ROPC 41 USET-READ) (DEFPROP *SOPC 400041 USET-WRITE)
|
|
(DEFPROP *RRTMR 42 USET-READ) (DEFPROP *SRTMR 400042 USET-WRITE)
|
|
(DEFPROP *RHSNA 43 USET-READ) (DEFPROP *SHSNA 400043 USET-WRITE)
|
|
;;What is this for?!? (-Alan)
|
|
(DEFPROP *R60H 43 USET-READ) (DEFPROP *S60H 400043 USET-WRITE)
|
|
(DEFPROP *RBCHN 44 USET-READ) (DEFPROP *SBCHN 400044 USET-WRITE)
|
|
(DEFPROP *RMPVA 45 USET-READ) (DEFPROP *SMPVA 400045 USET-WRITE)
|
|
(DEFPROP *RIDF1 46 USET-READ) (DEFPROP *SIDF1 400046 USET-WRITE)
|
|
(DEFPROP *RADF1 47 USET-READ) (DEFPROP *SADF1 400047 USET-WRITE)
|
|
(DEFPROP *RIDF2 50 USET-READ) (DEFPROP *SIDF2 400050 USET-WRITE)
|
|
(DEFPROP *RADF2 51 USET-READ) (DEFPROP *SADF2 400051 USET-WRITE)
|
|
(DEFPROP *RDF1 52 USET-READ) (DEFPROP *SDF1 400052 USET-WRITE)
|
|
(DEFPROP *RDF2 53 USET-READ) (DEFPROP *SDF2 400053 USET-WRITE)
|
|
(DEFPROP *ROPTI 54 USET-READ) (DEFPROP *SOPTI 400054 USET-WRITE)
|
|
(DEFPROP *R40AD 55 USET-READ) (DEFPROP *S40AD 400055 USET-WRITE)
|
|
(DEFPROP *RTVCR 56 USET-READ) (DEFPROP *STVCR 400056 USET-WRITE)
|
|
(DEFPROP *RTTST 57 USET-READ) (DEFPROP *STTST 400057 USET-WRITE)
|
|
(DEFPROP *RTTS1 60 USET-READ) (DEFPROP *STTS1 400060 USET-WRITE)
|
|
(DEFPROP *RTTS2 61 USET-READ) (DEFPROP *STTS2 400061 USET-WRITE)
|
|
(DEFPROP *RWHO1 62 USET-READ) (DEFPROP *SWHO1 400062 USET-WRITE)
|
|
(DEFPROP *RWHO2 63 USET-READ) (DEFPROP *SWHO2 400063 USET-WRITE)
|
|
(DEFPROP *RWHO3 64 USET-READ) (DEFPROP *SWHO3 400064 USET-WRITE)
|
|
(DEFPROP *RSUPP 65 USET-READ) (DEFPROP *SSUPP 400065 USET-WRITE)
|
|
(DEFPROP *RTR1I 66 USET-READ) (DEFPROP *STR1I 400066 USET-WRITE)
|
|
(DEFPROP *RTR2I 67 USET-READ) (DEFPROP *STR2I 400067 USET-WRITE)
|
|
(DEFPROP *RMBOX 70 USET-READ) (DEFPROP *SMBOX 400070 USET-WRITE)
|
|
(DEFPROP *RMBO1 71 USET-READ) (DEFPROP *SMBO1 400071 USET-WRITE)
|
|
(DEFPROP *REBOX 72 USET-READ) (DEFPROP *SEBOX 400072 USET-WRITE)
|
|
(DEFPROP *REBO1 73 USET-READ) (DEFPROP *SEBO1 400073 USET-WRITE)
|
|
(DEFPROP *RXUNA 74 USET-READ) (DEFPROP *SXUNA 400074 USET-WRITE)
|
|
(DEFPROP *RXJNA 75 USET-READ) (DEFPROP *SXJNA 400075 USET-WRITE)
|
|
(DEFPROP *RFTL1 76 USET-READ) (DEFPROP *SFTL1 400076 USET-WRITE)
|
|
(DEFPROP *RFTL2 77 USET-READ) (DEFPROP *SFTL2 400077 USET-WRITE)
|
|
(DEFPROP *RIOC 100 USET-READ) (DEFPROP *SIOC 400100 USET-WRITE)
|
|
(DEFPROP *RIOS 120 USET-READ) (DEFPROP *SIOS 400120 USET-WRITE)
|
|
(DEFPROP *RPMAP 200 USET-READ) (DEFPROP *SPMAP 400200 USET-WRITE)
|