Artifact d40386e46d4dd92e072c5c542557d2828e28f72d9b9fd84a949278f38fe0dd2e:
- File
psl-1983/20-util/monsym.red
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 3309) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/3-1/util/20/monsym.red
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 3309) [annotate] [blame] [check-ins using]
% % MONSYM.RED - Support for Dec-20 system LAP code % % Author: Eric Benson % Symbolic Computation Group % Computer Science Dept. % University of Utah % Date: 19 March 1982 % Copyright (c) 1982 University of Utah % CompileTime << macro procedure DefineJSYSRangeFrom X; begin scalar Start, L; Start := Sub1 second X; L := third X; return ('progn . for each Name in second L collect list('progn, list('put, MkQuote Name,'(quote JSYSValue), Start := Add1 Start), list('put,MkQuote Name, '(quote InstructionDepositFunction), '(quote JSYSDeposit)))); end; >>; lisp procedure JSYSDeposit X; << if !*WritingFaslFile then UpdateBitTable(1, 0); DepositAllFields(8#104, 0, get(car X, 'JSYSValue)) >>; flag('(ERJMP ERCAL), 'MC); lisp procedure ERJMP Address; list list('jump, 8#16, Address); lisp procedure ERCAL Address; list list('jump, 8#17, Address); DefineJSYSRangeFrom(1, '( LOGIN CRJOB LGOUT CACCT EFACT SMON TMON GETAB ERSTR GETER GJINF TIME RUNTM SYSGT GNJFN GTJFN OPENF CLOSF RLJFN GTSTS STSTS DELF SFPTR JFNS FFFFP RDDIR CPRTF CLZFF RNAMF SIZEF GACTF STDIR DIRST BKJFN RFPTR CNDIR RFBSZ SFBSZ SWJFN BIN BOUT SIN SOUT RIN ROUT PMAP RPACS SPACS RMAP SACTF GTFDB CHFDB DUMPI DUMPO DELDF ASND RELD CSYNO PBIN PBOUT PSIN PSOUT MTOPR CFIBF CFOBF SIBE SOBE DOBE GTABS STABS RFMOD SFMOD RFPOS RFCOC SFCOC STI DTACH ATACH DVCHR STDEV DEVST MOUNT DSMNT INIDR SIR EIR SKPIR DIR AIC IIC DIC RCM RWM DEBRK ATI DTI CIS SIRCM RIRCM RIR GDSTS SDSTS RESET RPCAP EPCAP CFORK KFORK FFORK RFORK RFSTS SFORK SFACS RFACS HFORK WFORK GFRKH RFRKH GFRKS DISMS HALTF GTRPW GTRPI RTIW STIW SOBF RWSET GETNM GET SFRKV SAVE SSAVE SEVEC GEVEC GPJFN SPJFN SETNM FFUFP DIBE FDFRE GDSKC LITES TLINK STPAR ODTIM IDTIM ODCNV IDCNV NOUT NIN STAD GTAD ODTNC IDTNC FLIN FLOUT DFIN DFOUT )); DefineJSYSRangeFrom(160, '( CRDIR GTDIR DSKOP SPRIW DSKAS SJPRI STO ARCF )); %define(jsASNDP,8%260) # NOT IMPLEMENTED %define(jsRELDP,8%261) # NOT IMPLEMENTED %define(jsASNDC,8%262) # NOT IMPLEMENTED %define(jsRELDC,8%263) # NOT IMPLEMENTED %define(jsSTRDP,8%264) # NOT IMPLEMENTED %define(jsSTPDP,8%265) # NOT IMPLEMENTED %define(jsSTSDP,8%266) # NOT IMPLEMENTED %define(jsRDSDP,8%267) # NOT IMPLEMENTED %define(jsWATDP,8%270) # NOT IMPLEMENTED DefineJSYSRangeFrom(188, '( ATNVT CVSKT CVHST FLHST GCVEC SCVEC STTYP GTTYP BPT GTDAL WAIT HSYS USRIO PEEK MSFRK ESOUT SPLFK ADVIS JOBTM DELNF SWTCH TFORK RTFRK UTFRK )); DefineJSYSRangeFrom(214, '( OPRFN CGRP VACCT GDACC ATGRP GACTJ GPSGN )); DefineJSYSRangeFrom(320, '( RSCAN HPTIM CRLNM INLNM LNMST RDTXT SETSN GETJI MSEND MRECV MUTIL ENQ DEQ ENQC SNOOP SPOOL ALLOC CHKAC TIMER RDTTY TEXTI UFPGS SFPOS SYERR DIAG SINR SOUTR RFTAD SFTAD TBDEL TBADD TBLUK STCMP SETJB GDVEC SDVEC COMND PRARG GACCT LPINI GFUST SFUST ACCES RCDIR RCUSR )); DefineJSYSRangeFrom(488, '( SNDIM RCVIM ASNSQ RELSQ )); DefineJSYSRangeFrom(504, '( THIBR TWAKE MRPAC SETPV MTALN TTMSG )); END;