its
its copied to clipboard
ASSLIS - assemble Maclisp
L; TS ASSLIS
L; ASSLIS 166
@eswenson1, I recall we discussed the difference between LISP and MACLIS. But I don't remember if ASSLIS was involved?
Interesting. I've never used ASSLIS and certainly didn't when I created the LISP we're using in DB. I wonder if I should have. I just assembled the midas code manually. I'll give this a shot and see what it does. I'm not sure, here, if the distinction between Lisp and MacLisp is the same distinction that I was making earlier when I found evidence of a dumped out Lisp with additional "features" calling itself MacLisp.
Hmm.... when I try it, it wants LISP; LISP NNN where NNN is the same as the NNNQIO that you provide it in JCL. However, I'm not sure what that is supposed to be. PI distribution doesn't include a LISP; LISP NNN at all. I tried making a copy of L;*LISP 159 as LISP; LISP 999, and then tried :L;ASSLIS 999QIO and got this:
ITS==1?SFA==1 ^V MIDASN: L; TS ASSLIS - NO SUCH DEVICE :INPUSH
@Paul-Svensson, see in SV: HACK; WISH LIST a comment "ASSLIS: is such a kludge!"
Do you know anything about ASSLIS?
I think we need to get hold of a LISP; LISP NNN file and see what it contains. The latest appears to be LISP; LISP 923, circa 2/11/1980.
The lastest Maclisp version, currently L; *LISP 154, has this.
IF1,[ ;***** CONDITIONAL ASSEMBLY FLAGS AND PARAMETERS *****
;" FOR ASSLIS - DO NOT PUT ANY OTHER DOUBLE QUOTES ON THIS PAGE
ITS==0 ;1 FOR RUNNING UNDER THE ITS MONITOR
TOPS10==0 ;1 FOR RUNNING UNDER DEC TOPS-10 MONITOR
TOPS20==0 ;1 FOR RUNNING UNDER DEC TOPS-20 MONITOR
SAIL==0 ;1 FOR RUNNING UNDER SAIL MONITOR
TENEX==0 ;1 FOR RUNNING UNDER THE TENEX MONITOR
CMU==0 ;1 FOR RUNNING UNDER THE CMU MONITOR
;LATER WE WILL DEFINE D10==TOPS10\SAIL\CMU AND D20==TENEX\TOPS20
ML==1 ;0 SAYS THIS LISP IS FOR THE OLD AI KA (ONLY IF ITS==1)
BIGNUM==1 ;MULTIPLE PRECISION ROUTINES FLAG
Together with this in ASSLIS makes me think it maybe somehow takes the JCL input and applies it to the assembly time switches in Maclisp.
; Do :ASSLIS 259QIO to assemble MacLisp version 2259. The suffix "QIO"
; controls the system assembled for (see next comment). The terminating
; character controls various switches:
;
; Ask? CREF? Master?
; CR no no no
; ^S no no yes
; ^X no yes no
; ^C no yes yes
; ALT yes no
;
; A "_" in the command does something as well, I didn't bother to figure it
; out. -Alan 4/21/86
;Various suffixes:
; <null> QIO for standard ITS assembly, QIO and <null> turn on SFA stuff
; D10 T10 M10 for TOPS-10 assemblies. DT1 sets HISEGMENT==0; DTP sets
; DT1 DTP PAGING==1, forcing HISEGMENT==0. M10 is "minimal" size
; D20 TWX TNX for TOPS-20 and TENEX assemblies
; CMU CM1 CMP for Carnegie-Mellon system - [As of 7/1/79, no longer used]
; SAI SA1 SAP for SAIL system,