!With this in buffer, do M..O to create LISP;TAPE10 CTL and LISP;TAPE20 CTL for SUBMITting on TWENEX dumpers, and LISP;TAPE10 BYTPAK and LISP;TAPE20 BYTPAK for use by BYTPAK on ITS. _____________________________________________________________________________!! @ACCESS SS: @CONNECT @DEFINE EXPORT: (AS) MTA0: @DEFINE SU: (AS) SRC: @DEFINE SSM: SS: @ASSIGN EXPORT: @DUMPER *NO INTERCHANGE *TAPE EXPORT: *REWIND &&10*DENSITY 800 &&20*DENSITY 1600 &&20*SET BLOCKING-FACTOR 8 *FILES *SSNAME BASIC LISP INTERPRETER AND DOCUMENTATION *SAVE THIS.NOTE |LISP; THIS NOTE &&20 TAPE20.CTL ||its- &&10 TAPE10.CTL ||its- &&20 | TAPE20 BYTPAK ||its+ &&10 | TAPE10 BYTPAK ||its+ &&20 QIOORD.DOC |LISP20; QIOORD DOC20 &&10 QIOORD.DOC-TOPS-10 |DECSYS; QIOORD DOC10 EDIT.DOC |.INFO.; LISP EDIT EXTEND.DOC | LISP EXTEND DEFVST.DOC | DEFVST DOC FORMAT.DOC | FORMAT INFO NEWIO.DOC | LISP NEWIO SEND.DOC | LISP SEND SFA.DOC | LISP SFA LOOP.DOC | LISP LOOP LISP.NEWS |LSPMAI; LISP NEWS &&10 SSM:LISP.REL-TOPS-10 |LISP; RELD10 > &&20 LISP.EXE |LISP20; TWXEXE > &&20 LISP.SYMBOLS | SYMBOL > &&20 JSYS-TBL.LSP | JSYS-T > &&20 COMPLR.EXE | CLEXE > &&20 NILAID.EXE | NLEXE > &&20 NACOMPLR.EXE ||its- &&20 MACLISPBOOT.EXE |LISP20; MLBOOT EXE &&20 COMPLRBOOT.EXE |LISP20; CLBOOT EXE &&20 OMACLISPBOOT.EXE |LISP20; OMLBOO EXE &&20 OCOMPLRBOOT.EXE |LISP20; OCLBOO EXE *SSNAME "AUTOLOAD" PACKAGES, PART 1: FILES MUST BE ON "LISP" DEVICE OR DIRECTORY *SAVE BACKQ.FASL |LISP; BACKQ FASL BITS.FASL | BITS FASL CERROR.FASL | CERROR FASL CGOL.FASL | CGOL FASL CGPRIN.FASL | CGPRIN FASL DEFMACRO.FASL | DEFMAC FASL DEFMAX.FASL | DEFMAX FASL DEFVST.FASL | DEFVST FASL DEFVSX.FASL | DEFVSX FASL DEFSETF.FASL | DEFSET FASL DUMPARRAYS.FASL | DUMPAR FASL EDIT.FASL | EDIT FASL ERRCK.FASL | ERRCK FASL EVONCE.FASL | EVONCE FASL EXTEND.FASL | EXTEND FASL EXTMAC.FASL | EXTMAC FASL FORMAT.FASL | FORMAT FASL FORMAT.HAIR | FORMAT HAIR FORMAT.EXTEND | FORMAT EXTEND FORMAT.ITER | FORMAT ITER FLRMAT.FASL | FLRMAT FASL &&10 GETMID.FAS-TOPS-10 |DECSYS; GETMID FAS &&20 GETMIDASOP.FASL |LISP20; GETMID FASL GCDEMN.FASL |LISP; GCDEMN FASL GRINDEF.FASL | GRINDE FASL GRIND.FASL | GRIND FASL *SSNAME "AUTOLOAD" PACKAGES, PART 2: FILES MUST BE ON "LISP" DEVICE OR DIRECTORY *SAVE LAP.FASL |LISP; LAP FASL &&20 LEDIT.FASL |LISP20; LEDTI FASL &&20 LEDIT.:EJ | LEDTI :EJ LET.FASL |LISP; LET FASL LDBHLP.FASL | LDBHLP FASL LODBYT.FASL | LODBYT FASL LOOP.FASL | LOOP FASL LSETS.FASL | LSETS FASL MACAID.FASL | MACAID FASL MLMAC.FASL | MLMAC FASL SENDI.FASL | SENDI FASL NADEFVST.FASL | NADEFV FASL NALET.FASL | NALET FASL SETF.FASL | SETF FASL SHARPM.FASL | SHARPM FASL SORT.FASL | SORT FASL STRAUX.FASL | STRAUX FASL STRING.FASL | STRING FASL &&20 SUBFORK.FASL |LISP20; SUBFOR FASL SUBSEQ.FASL |LISP; SUBSEQ FASL TRACE.FASL | TRACE FASL VECTOR.FASL | VECTOR FASL YESNOP.FASL | YESNOP FASL *SSNAME AUXILLIARY HELPFUL FILES OF COMPILED LISP *SAVE APROPOS.FASL |LIBLSP; APROPO FASL ARYFIL.FASL | ARYFIL FASL BBOOLE.FASL | BBOOLE FASL BS.FASL | BS FASL CARCDR.FASL | CARCDR FASL DEBUG.FASL | DEBUG FASL DOW.FASL | DOW FASL DRAMMP.FASL |LISP; DRAMMP FASL FFORMA.FASL |LIBLSP; FFORMA FASL GENFNS.FASL |COMLAP; GENFNS FASL IOTA.FASL |LIBLSP; IOTA FASL LINERE.FASL | LINERE FASL NILAID.FASL |LISP; NILAID FASL PRIVOB.FASL |LIBLSP; PRIVOB FASL SETS.FASL | SETS FASL STEP.FASL | STEP FASL STEPMM.FASL | STEPMM FASL SUN.FASL | SUN FASL *SSNAME FILES FOR MAKING A COMPILER: FASL AND CCLOAD.INI *SAVE CCLOAD.INI |COMLAP; CCLOAD > CDMACS.FASL | CDMACS FASL COMAUX.FASL | COMAUX FASL COMPLR.FASL | COMPLR FASL FASLAP.FASL | FASLAP FASL INITIA.FASL | INITIA FASL MAKLAP.FASL | MAKLAP FASL PHAS1.FASL | PHAS1 FASL *SSNAME SOURCE FILES AND DOCUMENTATION FOR "AUTOLOAD" PACKAGES, PART 1 *SAVE BACKQ.LSP |NILCOM; BACKQ > BITS.LSP |COMLAP; BITS > CERROR.LSP |LSPSRC; CERROR LSP CGOL.CGL |PRATT; CGOL CGL CGOL.DOC | CGOL DOC CGPRIN.CGL | CGPRIN CGL DEFMACRO.LSP |NILCOM; DEFMAC > DEFMAX.LSP | DEFMAX > DEFSETF.LSP | DEFSET > DEFVST.LSP | DEFVST > DEFVSX.LSP | DEFVSX > DUMPARRAYS.LSP |L; DUMPAR > EDIT.MID | EDIT > ERRCK.LSP |NILCOM; ERRCK > EVONCE.LSP | EVONCE > EXTEND.LSP |LSPSRC; EXTEND > EXTMAC.LSP | EXTMAC > GETMIDASOP.MID |L; GETMID > GCDEMN.LSP |LIBDOC; GCDEMN > GRINDEF.LSP |COMLAP; GRINDE > GRIND.LSP | GRIND > *SSNAME SOURCE FILES FOR "AUTOLOAD" PACKAGES, PART 2 *SAVE LAP.LSP |COMLAP; LAP > &&20 LEDIT.LSP |LISP20; LEDIT > &&20 LEDIT.EMACS | LEDIT EMACS LET.LSP |NILCOM; LET > LDBHLP.LSP |LSPSRC; LDBHLP > LODBYT.LSP |NILCOM; LODBYT > LOOP.LSP | LOOP > LSETS.LSP | LSETS > MACAID.LSP | MACAID > MLMAC.LSP |LSPSRC; MLMAC > SENDI.MID | SENDI > SETF.LSP |NILCOM; SETF > SHARPM.LSP | SHARPM > SORT.MID |L; SORT > STRAUX.MID |L; STRAUX > STRING.LSP |NILCOM; STRING > &&20 SUBFORK.LSP |LISP20; SUBFOR > SUBSEQ.LSP |NILCOM; SUBSEQ > TRACE.LSP |COMLAP; TRACE > VECTOR.LSP |LSPSRC; VECTOR > YESNOP.LSP | YESNOP > *SSNAME SOURCE FILES AND DOCUMENTATION FOR AUXILLIARIES *SAVE APROPOS.LSP |LIBDOC; APROPO > ARYFIL.LSP | ARYFIL > BBOOLE.LSP | BBOOLE > BS.LSP | BS > CARCDR.LSP | CARCDR > DEBUG.LSP | DEBUG > DOW.LSP | DOW > DRAMMP.LSP |NILCOM; DRAMMP > FFORMA.LSP |LIBDOC; FFORMA > GENFNS.LSP |COMLAP; GENFNS > IOTA.LSP |LIBDOC; IOTA > LINERE.LSP | LINERE > NILAID.INI |LSPSRC; NALOAD > NILAID.LSP | NILAID > PRIVOB.LSP |LIBDOC; PRIVOB > SETS.LSP | SETS > STEP.LSP | STEP > STEP.DOC | STEP INFO STEPMM.LSP | STEPMM > STEPMM.DOC | STEPMM INFO SUN.LSP | SUN > *SSNAME SOURCE FILES FOR COMPILER *SAVE CDMACS.LSP |COMLAP; CDMACS > COMAUX.LSP | COMAUX > COMPLR.LSP | COMPLR > FASLAP.LSP | FASLAP > INITIA.LSP | INITIA > MAKLAP.LSP | MAKLAP > PHAS1.LSP | PHAS1 > *SSNAME MIDAS ASSEMBLER AND AULILLIARIES *SAVE SU:MIDAS.MID.0 |MIDAS; MIDAS > PS:MIDAS.INFO.0 | MIDAS DOC &&20 SYS:MIDAS.EXE.0 ||its- &&10 SSM:MIDAS.REL-TOPS-10.0 |MIDAS; MIDAS REL &&10 SU:DECBTS.MID.0 |SYS; DECBTS > &&10 SU:DECDFS.MID.0 | DECDFS > SU:FASDFS.MID.0 |SYS; FASDFS > SU:TSRTNS.MID.0 |MIDAS; TSRTNS > &&20 SU:TNXDFS.MID.0 |SYS; TNXDFS > &&20 SU:TWXBTS.MID.0 | TWXBTS > &&20 SU:XJSYS.MID |MIDAS; XJSYS > *SSNAME MACLISP - ASSEMBLER SOURCE CODE, AND CHS. 1-3 OF MANUAL *SAVE SSM:LISP.MID.0 |L; *LISP > SSM:MACS.MID.0 | MACS > SSM:ERROR.MID.0 | ERROR > SSM:STATUS.MID.0 | STATUS > SSM:PRINT.MID.0 | PRINT > SSM:ULAP.MID.0 | ULAP > SSM:ARITH.MID.0 | ARITH > SSM:BIGNUM.MID.0 | BIGNUM > SSM:GCBIB.MID.0 | GCBIB > SSM:READER.MID.0 | READER > SSM:ARRAY.MID.0 | ARRAY > SSM:FASLOAD.MID.0 | FASLOAD > SSM:QIO.MID.0 | QIO > SSM:STRUCT.MID.0 | STRUCT > SSM:ALLOC.MID.0 | ALLOC > SSM:LISP.DOC |LSPMAN; MANUAL ASCII *SSNAME ATSIGN CROSS-LISTER *SAVE SU:ATSIGN.MID.0 |MIDAS; ATSIGN > PS:ATSIGN.INFO.0 | ATSIGN DOC &&20 SYS:ATSIGN.EXE.0 ||its- &&10 SSM:ATSIGN.REL-TOPS-10.0 | ATSIGN REL *REWIND *CHECK-NSS *EXIT @UNLOAD EXPORT: @DEASSIGN EXPORT: ! M.Vsub routine M.Vpack it M.Vflush amps [0[1[2[C[S[T[sub routine[pack it[flush amps HX2JS________L .,(S -L .)X1 !* GET TABULAR DATA IN 1, BUFFER IN 2! ZJ-S________ L !* LOAD UP MACROS FROM HERE! S;BEGIN!L.,(S;END! 0L.)Xsub routine S;BEGIN!L.,(S;END! 0L.)Xflush amps S;BEGIN!L.,(S;END! 0L.)Xpack it :M(@:I*@ !* RUN IT! :IS20 HKG1Msub routine !* S gets 10 OR 20, AND T IS + OR -! !* HKG1JMpack it ! :IS10 HKG1Msub routine HKG1JMpack it HKG2J @) _______________________________________________________________________________ !sub routine;BEGIN! :IT- Mflush amps J F=S10"E !* IF THIS IS FOR A BOTTOMS-10! :SNO INTERCHANGE"N !* and there is a NO INTERCHANGE line! -14C 3D ' ' !* then turn it into INTERCHANGE! 0UC J<:SSAVE;-CKI  %C 1A-9"N :I*Bad lineFSERR ' < <1A-9"E D OTG ' 1A-32"E D OTG ' 0; !TG! > S  î -C .U0 :L .-Q0"N Q0,.K ' L 1A-9"N 0; ' -L:LKI, > > JSCHECK-NSS-4DI 0L1X01K QC EWDSK:LISP;PW EFTAPES CTL FS D FILE [F @FTWritten: F 0fsecho active !sub routine;END! !flush amps;BEGIN! J<:S||itsT;.U0 -S||its.,Q0K > !* ANY CONDITIONALS FOR THIS ONE?! J<:S||its;0LK> !* ANY CONDITIONAL AT ALL! J<:S&&S;.U0 0L .,Q0K > !* ANY CONDITIONALS FOR THIS ONE?! J<:S&&;0LK> !* ANY CONDITIONAL AT ALL! !flush amps;END! !pack it;BEGIN! :IT+ Mflush amps JI JS <.-Z; 1A-9 "N K OEOL ' :S|î; 0A-13 "E -C OEOL ' .U0 0L .,Q0K L !EOL! > JI@@TBSIZE 36. @@FBSIZE 36. @@DENSITY 800. #MC:  <:Sî;-C !* FLUSH SPACE, TAB FROM END OF LINE! <0A-32 "E OONM ' 0A-9 "E OONM ' 0; !ONM! -D > L > EWDSK:LISP;PW EFTAPES BYTPAK FS D FILE [F @FTWritten: F 0fsecho active !pack it;END!