├── .gitattributes ├── README.md ├── bin ├── STATUS.txt ├── coms.tap ├── ctss.ini ├── ctss.tap ├── dasd │ ├── DISK1.BIN.gz │ ├── DISK2.BIN.gz │ ├── DRUM1.BIN.gz │ └── DRUM2.BIN.gz ├── disk_booting.txt ├── dsetup.tap ├── extract.tap ├── f.tap ├── l.tap ├── links.tap ├── loader.tap ├── loading.txt ├── lod.cmd ├── lod.tap ├── mfd.cmd ├── mit.crd ├── ph14b.crd ├── salv.crd ├── set.tap ├── src.bcd └── stat.crd ├── bootstrap ├── README.txt ├── base_sys.tp ├── dsetup.cmd ├── dsetup.ini ├── dsetup.job ├── end.job ├── grpuni.timacc ├── ibfap.ini ├── ibfap.job ├── ldctss.fap ├── ldctss.ini ├── ldctss.job ├── loadsys.job ├── mkctsstape.c ├── prtygp.timacc ├── setup.ini ├── setup.job ├── srctape3.tp ├── timusd.timacc ├── tssfil.timacc └── uaccnt.timacc ├── extra ├── bcpl │ ├── BASHRC-RUN │ ├── BSS │ │ ├── CAE0.BSS │ │ ├── CAE1.BSS │ │ ├── CAE2.BSS │ │ ├── CAE3.BSS │ │ ├── INPP1.BSS │ │ ├── INPP2.BSS │ │ ├── LB1A.BSS │ │ ├── NCG0.BSS │ │ ├── NCG1.BSS │ │ ├── NCG10.BSS │ │ ├── NCG2.BSS │ │ ├── NCG3.BSS │ │ ├── NCG4.BSS │ │ ├── NCG5.BSS │ │ ├── NCG6.BSS │ │ ├── NCG7.BSS │ │ ├── NCG8.BSS │ │ ├── NCG9.BSS │ │ ├── PLIST.BSS │ │ ├── PREPRO.BSS │ │ ├── T1.BSS │ │ ├── TEST.BSS │ │ ├── TRN0.BSS │ │ ├── TRN1.BSS │ │ ├── TRN2.BSS │ │ ├── TRN3.BSS │ │ ├── TRN4.BSS │ │ ├── TRN5.BSS │ │ ├── TRN6.BSS │ │ └── TRN7.BSS │ ├── CAE0.BCPL │ ├── CAE1.BCPL │ ├── CAE2.BCPL │ ├── CAE3.BCPL │ ├── FAP │ │ ├── CAE0.FAP │ │ ├── CAE1.FAP │ │ ├── CAE2.FAP │ │ ├── CAE3.FAP │ │ ├── INPP1.FAP │ │ ├── INPP2.FAP │ │ ├── LB1A.FAP │ │ ├── NCG0.FAP │ │ ├── NCG1.FAP │ │ ├── NCG10.FAP │ │ ├── NCG2.FAP │ │ ├── NCG3.FAP │ │ ├── NCG4.FAP │ │ ├── NCG5.FAP │ │ ├── NCG6.FAP │ │ ├── NCG7.FAP │ │ ├── NCG8.FAP │ │ ├── NCG9.FAP │ │ ├── PLIST.FAP │ │ ├── PREPRO.FAP │ │ ├── T1.FAP │ │ ├── TEST.FAP │ │ ├── TRN0.FAP │ │ ├── TRN1.FAP │ │ ├── TRN2.FAP │ │ ├── TRN3.FAP │ │ ├── TRN4.FAP │ │ ├── TRN5.FAP │ │ ├── TRN6.FAP │ │ └── TRN7.FAP │ ├── HEAD1.BCPL │ ├── HEAD1A.BCPL │ ├── HEADIN.BCPL │ ├── INPP1.BCPL │ ├── INPP2.BCPL │ ├── LB1A.BCPL │ ├── LBHEAD.BCPL │ ├── Makefile │ ├── NCG0.BCPL │ ├── NCG1.BCPL │ ├── NCG10.BCPL │ ├── NCG2.BCPL │ ├── NCG3.BCPL │ ├── NCG4.BCPL │ ├── NCG5.BCPL │ ├── NCG6.BCPL │ ├── NCG7.BCPL │ ├── NCG8.BCPL │ ├── NCG9.BCPL │ ├── NHEAD2.BCPL │ ├── NHEAD3.BCPL │ ├── OCODE │ ├── PLIST.BCPL │ ├── PREPRO.BCPL │ ├── README │ ├── T1.BCPL │ ├── TEST.BCPL │ ├── TGZDATE │ ├── TRN0.BCPL │ ├── TRN1.BCPL │ ├── TRN2.BCPL │ ├── TRN3.BCPL │ ├── TRN4.BCPL │ ├── TRN5.BCPL │ ├── TRN6.BCPL │ ├── TRN7.BCPL │ ├── bcpl7094 │ │ ├── BASHRC-RUN │ │ ├── Makefile │ │ ├── README │ │ ├── bcpl7094 │ │ ├── bcpl7094.b │ │ ├── convert │ │ ├── convert.b │ │ ├── head1.h │ │ ├── head1a.h │ │ ├── lbhead.h │ │ ├── nhead2.h │ │ ├── nhead3.h │ │ ├── t1.bcpl │ │ └── xrefbcpl7094 │ ├── bctss │ ├── compall │ ├── files │ ├── junk │ └── lb1acomp └── lisp │ ├── adv1fe.fap │ ├── apendf.fap │ ├── appl1f.fap │ ├── aray1f.fap │ ├── aray2f.fap │ ├── arth1f.fap │ ├── arthmf.fap │ ├── atoms.fap │ ├── blckf2.fap │ ├── carxzf.fap │ ├── cnsfwf.fap │ ├── conszf.fap │ ├── deconf.fap │ ├── equlzf.fap │ ├── evqtzf.fap │ ├── exptfe.fap │ ├── fenfen.fap │ ├── fixvlf.fap │ ├── flonmf.fap │ ├── gcolef.fap │ ├── gtgcdf.fap │ ├── iocngf.fap │ ├── iomacs.fap │ ├── lapzfe.fap │ ├── lispset.job │ ├── prntzf.fap │ ├── punchf.fap │ ├── redzif.fap │ ├── setcnf.fap │ ├── substf.fap │ ├── syns.fap │ ├── temlif.fap │ └── zerrrf.fap ├── original ├── README.txt ├── asclib ├── com1 ├── com2 ├── com3 ├── com4 ├── com5 ├── disked ├── fgdaem ├── filsim ├── fsa4d ├── fsb4d ├── ldtss ├── lib1 ├── lib2 ├── lib3 ├── mit8c0 ├── plibe ├── s.util ├── sadaem ├── salall ├── salsim ├── tslib2 ├── util └── xlibe └── src ├── EOF.BIN ├── STATUS.txt ├── arch ├── 6typ.mad ├── EOF.BIN ├── aform.mad ├── apend.runcom ├── apenda.mad ├── append.mad ├── arch.sh ├── archa.mad ├── archiv.mad ├── archiv.runcom ├── asubs.mad ├── asubs.mad_ ├── clrnam.fap ├── combin.mad ├── combin.runcom ├── daytim.fap ├── fix00.fap ├── iocard.mad ├── ioerr.fap ├── lmio6.fap ├── prword.fap ├── rename.fap ├── setup.fap ├── split.mad ├── split.runcom ├── squash.mad ├── squash.runcom ├── wordio.fap ├── xpand.mad └── xpand.runcom ├── asclib ├── EOF.BIN ├── asclib.bss ├── asclib.runcom ├── asclib.sh ├── ascon.mad ├── ascon.mad_ ├── asctyp.mad ├── edval.mad ├── escape.mad ├── getdev.mad ├── ncanno.mad ├── ncanno.mad_ ├── nkedit.mad └── nsctss.fap ├── basic ├── EOF.BIN ├── bas_src.tap ├── basic.sh ├── blip.fap ├── blip.runcom ├── brake.fap ├── call.runcom ├── call1.mad ├── call2.mad ├── call3.fap ├── call4.fap ├── chmde.mad ├── chmode.runcom ├── comfil.runcom ├── comfl.fap ├── copy.fap ├── delete.fap ├── do.fap ├── do.runcom ├── dsker.fap ├── gencom.fap ├── gencom.runcom ├── getmd.fap ├── link.mad ├── link.runcom ├── list1.mad ├── list2.mad ├── list3.mad ├── list4.fap ├── list5.fap ├── listf.runcom ├── macs.fap ├── mount.fap ├── mount.runcom ├── move.fap ├── move.runcom ├── newmod.fap ├── nullb.fap ├── permit.mad ├── permit.runcom ├── prerr.fap ├── printf.fap ├── printf.runcom ├── reprb.fap ├── revok.mad ├── revok.runcom ├── runcom.bck ├── runcom.fap ├── runcom.runcom ├── schain.fap ├── setfil.mad ├── setfil.runcom ├── tapfil.fap ├── tapfil.runcom ├── unique.fap ├── unlink.mad ├── unlink.runcom ├── update.fap ├── update.runcom ├── verify.fap └── verify.runcom ├── daemon ├── EOF.BIN ├── askopr.fap ├── bcmeqa.fap ├── bcmeqf.fap ├── bmcrsc.fap ├── ckdate.mad ├── ckent.mad ├── ckufd.mad ├── com.mad ├── compat.mad ├── core.fap ├── crecap.mad ├── daemon.fap ├── daemon.runcom ├── daemon.sh ├── dcmeqa.fap ├── dcmeqf.fap ├── dcount.mad ├── dcycle.fap ├── ddmapa.fap ├── ddmapb.fap ├── ddpflb.fap ├── decide.mad ├── define.mad ├── deltab.mad ├── derazb.fap ├── dfiomb.fap ├── dgdtma.fap ├── dksta.fap ├── dmcrsa.fap ├── dprt1b.fap ├── dpusrb.fap ├── drstrb.fap ├── dsdump.fap ├── dsdump.runcom ├── dsload.fap ├── dsload.runcom ├── extklu.fap ├── ffsel.fap ├── geta.fap ├── geta1.fap ├── ioa1c.fap ├── iob.fap ├── iohsim.fap ├── key.fap ├── ldfile.mad ├── linttb.fap ├── liorde.fap ├── lrfldc.fap ├── mail.mad ├── mount.fap ├── nlrec.mad ├── ph1.fap ├── phase1.runcom ├── phase2.runcom ├── prcode.fap ├── prim4b.ctssld ├── prime.fap ├── prime.mad ├── primer.runcom ├── psh14b.ctssld ├── psh24b.ctssld ├── putin.fap ├── rcard.fap ├── rdcard.fap ├── recap.mad ├── rlibe.mad ├── s.stup.fap ├── sad.sh ├── sadpmn.fap ├── sadump.runcom ├── sdcyca.fap ├── sdksta.fap ├── sdmp4.ctssld ├── settap.mad ├── settim.mad ├── setup.fap ├── sldtfc.fap ├── sleep.fap ├── smainc.fap ├── strv4a.ctssld ├── strve.runcom ├── swt.fap ├── tdyfil.mad ├── tias.fap ├── tpread.mad ├── tpwait.fap ├── trieve.mad ├── trieve.runcom ├── tsslib.fap ├── unique.fap ├── upd.runcom ├── valid.fap └── xmod.fap ├── debug ├── EOF.BIN ├── addcon.mad ├── addvar.mad ├── argbcd.mad ├── argsl.mad ├── argvar.mad ├── bk.mad ├── brk.mad ├── card.mad ├── con.mad ├── e.mad ├── edit.mad ├── f.mad ├── fov.mad ├── g.mad ├── getsl.mad ├── getvar.mad ├── ins.mad ├── just.mad ├── l.mad ├── line.fap ├── loader.mad ├── madbug.fap ├── madbug.runcom ├── madbug.sh ├── madtab.mad ├── mboot.fap ├── nam.mad ├── num.mad ├── oct.mad ├── org.mad ├── patch.mad ├── ready.mad ├── save.mad ├── space.mad ├── start.mad ├── swork.mad ├── syntax.mad ├── t.mad ├── trans.mad ├── type.mad ├── use.mad ├── var.mad ├── w.mad ├── wget.fap └── xeq.mad ├── disk_booting.txt ├── dskedt ├── 03200.fap ├── EOF.BIN ├── _sw_.mad ├── adjprb.mad ├── bpnch.mad ├── cardrq.fap ├── cddelt.fap ├── chrg.b.fap ├── chrg.s.fap ├── comdsk.mad ├── corea.fap ├── coreb.fap ├── deccnv.fap ├── derbc.fap ├── dpnch.mad ├── dskedt.mad ├── dskedt.runcom ├── dskedt.sh ├── edpv4d.ctssld ├── edtio.fap ├── edtr4d.ctssld ├── err.fap ├── extbkg.fap ├── filsys.fap ├── flip.fap ├── getape.fap ├── gett.fap ├── input.mad ├── iou.fap ├── mfddlt.mad ├── notes.txt ├── output.fap ├── packfp.fap ├── pnch7.mad ├── privl7.fap ├── privlz.fap ├── rcard.fap ├── rquest.mad ├── rquest.runcom ├── scan.fap ├── scnmf1.mad ├── scnmfd.mad ├── setup.fap ├── sprdoc.fap ├── stmarg.fap ├── unpack.fap ├── untab.fap └── upd.runcom ├── edit ├── 0qed.fap ├── 12typ.mad ├── 1qed.fap ├── 2qed.fap ├── 6concd.mad ├── 6typ.mad ├── EOF.BIN ├── _mod_.mad ├── asctss.fap ├── bin.fap ├── bincon.mad ├── binval.mad ├── clrnam.fap ├── cnvtbl.fap ├── devtbl.fap ├── eda.runcom ├── edaval.mad ├── edb.runcom ├── edc.runcom ├── edcard.aed ├── edio.fap ├── edit.runcom ├── edit.sh ├── edit_x.sh ├── editcd.mad ├── editor.mad ├── edl.runcom ├── edlval.mad ├── edut.fap ├── ekedit.fap ├── initdt.fap ├── lmio12.fap ├── lmio6.fap ├── nclib.fap ├── openf.fap ├── openw.fap ├── p.mad ├── p.runcom ├── paknr.fap ├── pntlin.fap ├── prer.fap ├── print.mad ├── print.runcom ├── prnter.fap ├── prnter.runcom ├── prword.fap ├── qed.fap ├── qed.runcom ├── rename.fap ├── reund.mad ├── setops.fap ├── setup.fap ├── typset.runcom ├── typval.mad ├── unpnr.fap ├── wmacs.fap ├── wordio.fap └── zcmd.fap ├── fib ├── EOF.BIN ├── delfib.mad ├── delfib.runcom ├── fib.mad ├── fib.runcom ├── fib.sh ├── fibmon.mad ├── fibmon.runcom ├── prfib.mad ├── prfib.runcom ├── setfib.mad └── setfib.runcom ├── filsim ├── EOF.BIN ├── bprint.fap ├── ddfap.fap ├── ddmad.mad ├── enable.fap ├── exitsm.fap ├── filsim.runcom ├── filsim.sh ├── fprnte.fap ├── fsetup.fap ├── iopac.fap ├── pack.fap ├── prntsm.fap ├── salsim.runcom ├── sldioi.mad ├── ssetup.fap ├── supcal.fap └── trac.fap ├── fsys4d ├── EOF.BIN ├── bucm2e.fap ├── cma.d.fap ├── cmb.c.fap ├── cmm.d.fap ├── cmq.c.fap ├── cmv.c.fap ├── ddap4c.fap ├── ddapb.fap ├── ddst2i.fap ├── fcor2o.fap ├── fsa.runcom ├── fsb.runcom ├── fsb.sh ├── fsys.sh ├── fsys4a.ctssld ├── iocm2e.fap ├── ioequ.fap ├── ioequa.fap ├── ioequb.fap ├── ldtss.ctssld ├── ldtss.runcom ├── ldtss.stomap ├── loadts.fap ├── push2a.fap ├── qman2b.fap ├── qman2c.fap ├── scnd4a.fap ├── sear2b.fap ├── sm1a.i.fap ├── sm1b.g.fap ├── sm1e.d.fap ├── sm1m.c.fap ├── sm1v.f.fap ├── srch2a.fap ├── stik2e.fap ├── stm.mc.fap ├── stmequ.fap ├── stmmac.fap ├── tman4a.fap ├── tpap2h.fap ├── tpapdm.fap ├── tpsm2q.fap ├── tpst2a.fap ├── trac2a.fap ├── tracb.fap ├── tsmequ.fap └── upd.runcom ├── ld_ext1.dat ├── ld_ext2.dat ├── ldtss_ext.dat ├── links.dat ├── loading.txt ├── login ├── EOF.BIN ├── _xor_.mad ├── admin.mad ├── admin.runcom ├── adutil.fap ├── bequ.fap ├── com000.fap ├── common.fap ├── daymon.fap ├── deltem.fap ├── dial.fap ├── dial.runcom ├── equ.fap ├── geta.fap ├── gtpass.fap ├── gtprob.fap ├── hello.fap ├── hello.runcom ├── init.fap ├── init.runcom ├── login.fap ├── login.runcom ├── login.sh ├── loglib.runcom ├── logmai.fap ├── logout.fap ├── logout.runcom ├── logutl.fap ├── macro.fap ├── messg.fap ├── report.fap ├── seterr.fap ├── spy2.mad ├── spylib.fap ├── summary.fap ├── svcpu.fap ├── tempb.fap ├── ttpeek.fap ├── ttpeek.runcom ├── uascan.fap ├── who.runcom └── who1.mad ├── madtrn ├── EOF.BIN ├── iop9.mad ├── madtrn.fap ├── madtrn.runcom ├── madtrn.sh ├── mfns.mad ├── mlib.fap ├── mrrp.mad ├── mtr2.mad ├── mtrn.mad ├── primes.f └── tdfev.mad ├── misc ├── EOF.BIN ├── grpuni.img ├── grpuni.timacc ├── mk.sh ├── prtygp.img ├── prtygp.timacc ├── quotas.img ├── timusd.img ├── timusd.timacc ├── tssfil.img ├── tssfil.timacc ├── uaccnt.img ├── uaccnt.timacc ├── ufd.img └── x ├── miscmd ├── 7750.prog ├── 7750ld.fms ├── 7read.fap ├── 7read.runcom ├── EOF.BIN ├── _abrv.fap ├── _ball.fap ├── _com.fap ├── _ic.fap ├── _main.fap ├── _pri.fap ├── _profl.fap ├── aarchv.mad ├── aarchv.runcom ├── abbr.runcom ├── aform.mad ├── all.fms ├── args.fap ├── asctss.fap ├── asubs.mad ├── b1prt1.fms ├── backup.mad ├── backup.runcom ├── chball.mad ├── chball.runcom ├── comand.fap ├── ddsetp.fms ├── dpatch.fms ├── dsker.fap ├── dump.fms ├── ediprv.fms ├── editor.fms ├── fapcom.mad ├── fapcom.runcom ├── fapmai.fap ├── flsrtn.fap ├── fmstap.fap ├── fmstap.runcom ├── getfil.mad ├── gtprob.fap ├── ipc.6.36 ├── lmsort.fap ├── lmsort.runcom ├── load.fms ├── look.mad ├── look.runcom ├── macs.fap ├── mail.mad ├── mail.runcom ├── main0.fap ├── mergen.fap ├── mis_bcd.src ├── misc.sh ├── mover.mad ├── mover.runcom ├── mrc1a1.fap ├── mrc2a1.fap ├── mrc3a1.fap ├── nocmmd.fap ├── nocmmd.runcom ├── nsort.fap ├── nsort.runcom ├── octdmp.fms ├── option.mad ├── option.runcom ├── phase1.fms ├── phase2.fms ├── pinfo.mad ├── pinfo.runcom ├── prbin.mad ├── prbin.runcom ├── prime.mad ├── primer.fms ├── red.fap ├── remark.runcom ├── remrk.mad ├── sadump.fms ├── salv.fms ├── smail.mad ├── sort.fms ├── stat.fms ├── strve.fms ├── superx.6.36 ├── tsspmt.mad ├── upd.runcom ├── user.profil ├── wrfx.fap ├── write.fap ├── write.runcom ├── zot.fap └── zot.runcom ├── mit8c0 ├── EOF.BIN ├── adpi8a.fap ├── ap758a.fap ├── bksv8c.fap ├── brkp8d.fap ├── chne8a.fap ├── cloc8h.fap ├── com800.fap ├── comc8g.fap ├── common.fap ├── conv8a.fap ├── cpyc8b.fap ├── ctrl8f.fap ├── dump8b.fap ├── edbg8a.fap ├── equ.fap ├── fint8b.fap ├── high8a.fap ├── ibuf8b.fap ├── macro.fap ├── main8c.fap ├── mit.runcom ├── mit.sh ├── mit8c0.ctssld ├── onln8f.fap ├── pdpa8b.fap ├── pmti8a.fap ├── rtrn8e.fap ├── savc8c.fap ├── savr8b.fap ├── scda8c.fap ├── scdb8a.fap ├── scdc8c.fap ├── scdd8a.fap ├── t2char.fap ├── tachar.fap ├── tcor8b.fap ├── tsto8a.fap ├── twchar.fap ├── txchar.fap ├── ulib8h.fap ├── ulod8a.fap ├── unit8b.fap ├── upd.runcom ├── util8c.fap ├── utrp8a.fap ├── wrfl8b.fap └── wrhi8a.fap ├── mksrc.sh ├── plibe ├── EOF.BIN ├── _ops_.mad ├── _xr_.mad ├── axis1.mad ├── cmbplt.mad ├── dxdy1.mad ├── ernote.mad ├── fixup.mad ├── graph.mad ├── graph1.mad ├── minmax.fap ├── mkrun.sh ├── numb.fap ├── nump.fap ├── pictur.mad ├── plib_src.bc ├── plibe.runcom ├── plibe.sh ├── plotr.fap ├── scale1.mad ├── sclgph.mad ├── set.mad └── sym5.fap ├── runoff ├── EOF.BIN ├── _xor_.mad ├── adjust.mad ├── bin.fap ├── frame.fap ├── frame1.mad ├── hdft.mad ├── lmio12.fap ├── numcon.mad ├── nxchar.mad ├── rcom.mad ├── remap.fap ├── rlib.fap ├── rmain.mad ├── rout.fap ├── runoff.mad ├── runoff.runcom ├── runoff.sh ├── settyp.mad ├── symsto.mad ├── tmring.run └── wordio.fap ├── s.util ├── 7750.prog ├── 7750ch.fap ├── 7750ld.ctssld ├── 7750ld.fap ├── 7750ld.runcom ├── 7750rd.fap ├── EOF.BIN ├── b1inp.runcom ├── b1inp1.fap ├── b1main.fap ├── b1prt1.ctssld ├── b1prt1.runcom ├── b1prtb.ctssld ├── bfs.fap ├── cdmp1d.fap ├── cloc1a.ctssld ├── clock.fap ├── clock.runcom ├── cnvt1d.fap ├── cylod.fap ├── cylod.runcom ├── ddio4c.fap ├── ddpac.fap ├── diag.fap ├── dpatch.ctssld ├── dpatch.fap ├── dpatch.runcom ├── dsetup.fap ├── dsetup.runcom ├── dstp4a.ctssld ├── hsdt1a.ctssld ├── hsdt1a.fap ├── hsdt1a.runcom ├── hsdt1a.stomap ├── ioconv.fap ├── iopa2c.fap ├── iopac.runcom ├── iopb2c.fap ├── iopc2c.fap ├── iopd2c.fap ├── iope2c.fap ├── list1d.fap ├── load.fap ├── mdmp2d.fap ├── opcd1d.fap ├── panic.fap ├── panic.runcom ├── prntbk.fap ├── prnter.fap ├── sutl.sh ├── upck2d.fap └── upd.runcom ├── salv4a ├── EOF.BIN ├── _rst.fap ├── cdmp.mad ├── cent4.mad ├── cvdt4.mad ├── dioi.fap ├── diot.fap ├── dump4.mad ├── dump4.runcom ├── indx.fap ├── keys.fap ├── libe.runcom ├── load4.mad ├── load4.runcom ├── mprt.fap ├── pter4.mad ├── rdin.fap ├── rfil4.mad ├── rtut4.mad ├── salequ.mad ├── salv.sh ├── salv4.mad ├── salv4.runcom ├── salv4a.ctssld ├── setp.fap ├── smfd4.mad ├── sort.mad ├── sort4.runcom ├── sort4a.ctssld ├── sortm.mad ├── stat4.mad ├── stat4.runcom ├── stat4a.ctssld ├── stop.fap ├── upd.runcom └── xpnd.fap ├── tools ├── EOF.BIN ├── cksum.fap ├── delete.fap ├── dsker.fap ├── echar.fap ├── extbss.fap ├── extbss.runcom ├── fap.fap ├── fap.runcom ├── fap.tap ├── getbuf.fap ├── hlod.fap ├── l.tap ├── ldabs.runcom ├── ldbs.mad ├── load.fap ├── load.runcom ├── load.tap ├── macs.fap ├── mad.runcom ├── mad.tap ├── mad01.fap ├── mad02.fap ├── mad03.fap ├── main.fap ├── mksrc.sh ├── modlod.fap ├── nlod.fap ├── octdmp.fap ├── pload.mad ├── pload.runcom ├── prbss.fap ├── prbss.runcom ├── prelod.mad ├── prelod.runcom ├── pusav.fap ├── pusav.runcom ├── rdbss.fap ├── scls.fap ├── sd000.mad ├── sdump.fap ├── sdump.runcom ├── sp.fap ├── sp000.mad ├── src_ext.tap ├── stomap.fap ├── stomap.runcom ├── svbss.fap ├── sysl.mad ├── sysl.runcom ├── tiagen.mad ├── tiagen.runcom ├── updbss.fap ├── updbss.runcom └── wrbss.fap ├── tslib1.bss ├── tslib1 ├── 1300.fap ├── 1301.fap ├── 1311.fap ├── 3310.fap ├── acore.fap ├── acos.fap ├── adj0.fap ├── akno.fap ├── appe.fap ├── atan.fap ├── atcn.fap ├── attn.fap ├── bbld.fap ├── bcdc.fap ├── bcoc.fap ├── bfcl.fap ├── brea.fap ├── bsf0.fap ├── bst0.fap ├── btoc.fap ├── bwrt.fap ├── bz57.fap ├── bzel.fap ├── chfl.fap ├── chmd.fap ├── chnc.fap ├── cler.fap ├── cloc.fap ├── cmfl.fap ├── cmlc.fap ├── colt.fap ├── com0.fap ├── coma.fap ├── comf.fap ├── copy.fap ├── cos0.fap ├── cot0.fap ├── csh0.fap ├── defb.fap ├── dele.fap ├── detc.fap ├── dfad.fap ├── dim0.fap ├── dpnb.fap ├── drea.fap ├── dskd.fap ├── dskr.fap ├── dwrt.fap ├── eftm.fap ├── enco.fap ├── eofx.fap ├── erro.fap ├── exit.fap ├── exme.fap ├── exp0.fap ├── exp1.fap ├── exp2.fap ├── exp3.fap ├── fint.fap ├── fpt0.fap ├── free.fap ├── fsta.fap ├── fstt.fap ├── gac0.fap ├── gblp.fap ├── gbuf.fap ├── gclc.fap ├── getc.fap ├── geti.fap ├── getm.fap ├── gett.fap ├── gloc.fap ├── gmem.fap ├── gnam.fap ├── gopt.fap ├── gsys.fap ├── gtcl.fap ├── gtcm.fap ├── gtdy.fap ├── gtlo.fap ├── gtnm.fap ├── gwrd.fap ├── int0.fap ├── iodg.fap ├── ioem.fap ├── ioh0.fap ├── isin.fap ├── ldfl.fap ├── ldum.fap ├── lib1.runcom ├── lib1.sh ├── lib1_bss.tap ├── lib2.runcom ├── lib2.sh ├── lib2_bss.tap ├── lib3.runcom ├── lib3.sh ├── lib3_bss.tap ├── ljus.fap ├── log0.fap ├── macs.fap ├── max0.fap ├── max1.fap ├── min0.fap ├── min1.fap ├── mkrun.sh ├── mod0.fap ├── moun.fap ├── move.fap ├── mtx0.fap ├── ncom.fap ├── nexc.fap ├── ocbc.fap ├── open.fap ├── pack.fap ├── pad0.fap ├── pcmt.fap ├── pmow.fap ├── pr12.fap ├── prdg.fap ├── prer.fap ├── prfl.fap ├── prms.fap ├── prnt.fap ├── prsl.fap ├── rann.fap ├── rbin.fap ├── rdata.fap ├── rdfb.fap ├── rdfl.fap ├── rdms.fap ├── rdtm.fap ├── rdwt.fap ├── reco.fap ├── remn.fap ├── rjus.fap ├── rsbr.fap ├── rstf.fap ├── save.fap ├── sch0.fap ├── schn.fap ├── setc.fap ├── sete.fap ├── setf.fap ├── setp.fap ├── setu.fap ├── simc.fap ├── slee.fap ├── sli0.fap ├── slo0.fap ├── sloc.fap ├── snap.fap ├── sph0.fap ├── spry.fap ├── sqrt.fap ├── srch.fap ├── stb0.fap ├── stfl.fap ├── stom.fap ├── stor.fap ├── sypr.fap ├── tanh.fap ├── timr.fap ├── tlck.fap ├── tran.fap ├── trfl.fap ├── tsh0.fap ├── tslib1.bss ├── tssf.fap ├── updm.fap ├── vrea.fap ├── wait.fap ├── whoa.fap ├── wrfl.fap ├── wrwt.fap ├── xdet.fap ├── xdim.fap ├── xdtr.mad ├── xecm.fap ├── xfix.fap ├── xloc.fap ├── xmax.fap ├── xmin.fap ├── xmod.fap └── zel0.fap ├── tslib2 ├── EOF.BIN ├── dbug.fap ├── fpd0.fap ├── fpm0.fap ├── trac.fap ├── tslib2.bss ├── tslib2.runcom └── tslib2.sh └── xlibe ├── EOF.BIN ├── _fmt.fap ├── absdat.fap ├── abstim.fap ├── acore.fap ├── brake.fap ├── bz57.fap ├── comloc.fap ├── delete.fap ├── dsker.fap ├── exit.fap ├── fix.fap ├── fracbc.fap ├── geta.fap ├── getbuf.fap ├── getim.fap ├── gtch1.fap ├── gtwdb.fap ├── gtwdbx.fap ├── hrmin.fap ├── ioconv.fap ├── mkrun.sh ├── move.fap ├── namask.fap ├── pkwd1.fap ├── prdata.fap ├── prdiag.fap ├── prfull.fap ├── prmess.fap ├── ptias.fap ├── reprob.fap ├── scan.fap ├── snap.fap ├── snooze.fap ├── spray.fap ├── tdec.fap ├── tsk.fap ├── wrflx.fap ├── xlib.runcom ├── xlib.sh ├── xlib_bss.tap ├── xlibe.runcom └── xmacro.fap /.gitattributes: -------------------------------------------------------------------------------- 1 | *.fap linguist-language=Fap 2 | *.mad linguist-language=Mad 3 | *.b linguist-language=Fap 4 | *.tap binary 5 | *.crd binary 6 | *.bcd binary 7 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | Recovered CTSS source. 2 | 3 | See loading.txt in src for instructions on loading the source onto disk. 4 | 5 | See disk_booting.text for instructions on booting CTSS off disk. 6 | 7 | These sources have been cleaned up to match the recovered listings. 8 | -------------------------------------------------------------------------------- /bin/coms.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/coms.tap -------------------------------------------------------------------------------- /bin/ctss.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/ctss.tap -------------------------------------------------------------------------------- /bin/dasd/DISK1.BIN.gz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/dasd/DISK1.BIN.gz -------------------------------------------------------------------------------- /bin/dasd/DISK2.BIN.gz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/dasd/DISK2.BIN.gz -------------------------------------------------------------------------------- /bin/dasd/DRUM1.BIN.gz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/dasd/DRUM1.BIN.gz -------------------------------------------------------------------------------- /bin/dasd/DRUM2.BIN.gz: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/dasd/DRUM2.BIN.gz -------------------------------------------------------------------------------- /bin/disk_booting.txt: -------------------------------------------------------------------------------- 1 | 2 | Note you must have a tape attached to mta2 this will get symbols of disk load. 3 | start sim. 4 | i7090 ctss.ini 5 | sim> att com # Attach com controller. 6 | sim> at cr0 mit.crd System to load command. 7 | sim> bo dk0 Boot LDTSS. 8 | MIT8C0--THE DATE AND TIME ARE 0118712326.2 9 | HALT instruction, IC: 00131 ( 076000000016 LMTM) 10 | sim> dep sw 3 To not start backup and FIB on bootup. 11 | sim> dep sw 0 To start both. 12 | sim> c 13 | 14 | To Shutdown. 15 | ^E 16 | sim> dep keys 40017 this logs everyone off. 17 | sim> c 18 | 19 | ^E after READ KEYS message. 20 | sim> dep keys 0 21 | sim> c 22 | 23 | ^E 24 | sim> dep keys 40032 After all users loged out. 25 | sim> c 26 | KEYS READ. 000000040032 AT 2334.3 27 | CTSS IS FINISHED. YOU MAY NOW CLEAR CORE. 28 | HALT instruction, IC: 02651 ( 000000002651 HTR 02651) 29 | sim> It is safe now to exit sim. 30 | 31 | -------------------------------------------------------------------------------- /bin/dsetup.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/dsetup.tap -------------------------------------------------------------------------------- /bin/extract.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/extract.tap -------------------------------------------------------------------------------- /bin/f.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/f.tap -------------------------------------------------------------------------------- /bin/l.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/l.tap -------------------------------------------------------------------------------- /bin/links.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/links.tap -------------------------------------------------------------------------------- /bin/loader.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/loader.tap -------------------------------------------------------------------------------- /bin/lod.cmd: -------------------------------------------------------------------------------- 1 | * SET UP THE MFD 2 | LOADER 0 3 | -------------------------------------------------------------------------------- /bin/lod.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/lod.tap -------------------------------------------------------------------------------- /bin/mfd.cmd: -------------------------------------------------------------------------------- 1 | * SET UP THE MFD 2 | SETMFD 1 8 3 | QUIT 4 | -------------------------------------------------------------------------------- /bin/mit.crd: -------------------------------------------------------------------------------- 1 | MIT8C0 2 | -------------------------------------------------------------------------------- /bin/ph14b.crd: -------------------------------------------------------------------------------- 1 | PSH14B 2 | -------------------------------------------------------------------------------- /bin/salv.crd: -------------------------------------------------------------------------------- 1 | SALV4A 2 | -------------------------------------------------------------------------------- /bin/set.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/set.tap -------------------------------------------------------------------------------- /bin/src.bcd: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bin/src.bcd -------------------------------------------------------------------------------- /bin/stat.crd: -------------------------------------------------------------------------------- 1 | STAT4A 2 | -------------------------------------------------------------------------------- /bootstrap/README.txt: -------------------------------------------------------------------------------- 1 | Build tools for CTSS. 2 | 3 | Step 1) Build CTSS FAP to run under IBSYS. 4 | 5 | Run ibfap.job with 6 | 7 | i7090 ibfap.ini 8 | 9 | srctape3.tp is the source tape from IBSYS including IBSFAP. 10 | 11 | Result in sysfap.tp an IBSYS system with CTSS FAP. 12 | 13 | Note this assembler does not support INSERT so all included files 14 | must be done manually. 15 | 16 | Step 2) Format disks. 17 | 18 | Run dsetup.job with 19 | 20 | i7090 dsetup.ini 21 | 22 | Needs sysfap.tp to build system. dsetup.cmd defines the system. 23 | 24 | Step 3) Load base system onto disks. 25 | 26 | Run setup.job with 27 | 28 | i7090 setup.job 29 | 30 | The first part of the job assembles the needed programs. These 31 | must be complete in one file. These include LOAD, FAP, LOGIN, INIT, 32 | HELLO. 33 | 34 | Next the setup program is compiled, this program will read from the 35 | source tape and SYSPP2 and place these files on the CTSS system disk. 36 | 37 | Step 4) Load basic system. 38 | 39 | 40 | -------------------------------------------------------------------------------- /bootstrap/base_sys.tp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bootstrap/base_sys.tp -------------------------------------------------------------------------------- /bootstrap/dsetup.cmd: -------------------------------------------------------------------------------- 1 | * JUST FORMAT 2 | DSKFMT 0 1 250 3 | DSKFMT 1 1 250 4 | DSKFMT 2 1 250 5 | DSKFMT 3 1 250 6 | DSKFMT 4 1 250 7 | DSKFMT 5 1 250 8 | DSKFMT 6 1 250 9 | DSKFMT 7 1 250 10 | DRMFMT 8 1 1 11 | DSKREC 0 0 10000 12 | DSKREC 1 0 10000 13 | DSKREC 2 0 10000 14 | DSKREC 3 0 10000 15 | DSKREC 4 0 10000 16 | DSKREC 5 0 10000 17 | DSKREC 6 0 10000 18 | DSKREC 7 0 10000 19 | DRMREC 8 0 400 20 | SETMFD 1 8 21 | * FORMAT DONE 22 | QUIT 23 | ~ 24 | -------------------------------------------------------------------------------- /bootstrap/dsetup.ini: -------------------------------------------------------------------------------- 1 | set cpu 7094 32k ctss 2 | ! ./mkbcdtape -o sysin.tp dsetup.job 3 | set cpu hist=5000 4 | at mta1 sysfap.tp 5 | set mta1 locked 6 | at mta2 sysin.tp 7 | set mta2 locked 8 | at mta3 sysut1.tp 9 | at mtb3 sysut2.tp 10 | at mta4 sysut3.tp 11 | at mtb4 sysut4.tp 12 | at mtb1 sysou1.tp 13 | at mta5 sysck2.tp 14 | at mtb5 sysck1.tp 15 | at mtb2 syspp1.tp 16 | set mtc disable 17 | set cdp1 disable 18 | set cdr1 disable 19 | set lp1 disable 20 | set dk0 format ha2 type=2302 module=0 chan=c ctss 21 | set dk1 format ha2 type=2302 module=4 chan=c 22 | set dk2 format ha2 type=7238 module=2 chan=c 23 | set hd0 units=2 24 | at dk0 dasd/DISK1.BIN 25 | at dk1 dasd/DISK2.BIN 26 | at dk2 dasd/DRUM1.BIN 27 | at hd0 dasd/DRUM2.BIN 28 | at lp0 sys.log 29 | at cdp0 -f bin syspun.crd 30 | at cdr0 end.job 31 | dep sw1 0 32 | bo mta1 33 | at cdr0 -e dsetup.cmd 34 | ;set dk debug=cmd;detail 35 | ;set ch debug=CHANNEL;CMD;DETAIL;EXP;SENSE;trap;DATA;CHC 36 | ;set cdr debug=card 37 | ;set debug dsetup.log 38 | dep sw1 1 39 | c 40 | quit 41 | -------------------------------------------------------------------------------- /bootstrap/end.job: -------------------------------------------------------------------------------- 1 | ~eof 2 | 3 | -------------------------------------------------------------------------------- /bootstrap/grpuni.timacc: -------------------------------------------------------------------------------- 1 | 000001000001 2 | 000001000001000002000003000004 3 | -------------------------------------------------------------------------------- /bootstrap/ibfap.ini: -------------------------------------------------------------------------------- 1 | set cpu 7094 32k ctss 2 | ! ./mkbcdtape -o sysin.tp ibfap.job 3 | set cpu hist=5000 4 | at mta1 base_sys.tp 5 | set mta1 locked 6 | at mta2 sysin.tp 7 | set mta2 locked 8 | ;at mta3 -f p7b sysut1.tp 9 | at mtb3 sysut2.tp 10 | at mta4 sysut3.tp 11 | at mtb4 sysut4.tp 12 | at mtb1 sysou1.tp 13 | at mta3 -r srctape3.tp 14 | at mtb5 sysck1.tp 15 | at mtb2 -f p7b syspp1.tp 16 | set mtc disable 17 | set cdp1 disable 18 | set cdr1 disable 19 | set lp1 disable 20 | at lp0 sys.log 21 | at cdp0 -f bin syspun.crd 22 | at cdr0 end.job 23 | dep sw1 0 24 | bo mta1 25 | det mta3 26 | at mta3 sysfap.tp 27 | sh mta 28 | c 29 | ! ./listtape sysou1.tp >ibfap.lst 30 | quit 31 | -------------------------------------------------------------------------------- /bootstrap/prtygp.timacc: -------------------------------------------------------------------------------- 1 | 000030 NUMBER OF USERS 2 | 000001000030 GROUP NO./PRIME LINES 3 | -------------------------------------------------------------------------------- /bootstrap/setup.ini: -------------------------------------------------------------------------------- 1 | set cpu 7094 32k ctss 2 | ! ./mkbcdtape -o sysin.tp setup.job 3 | set cpu hist=5000 4 | at mta1 sysfap.tp 5 | set mta1 locked 6 | at mta2 sysin.tp 7 | set mta2 locked 8 | at mta3 sysut1.tp 9 | at mtb3 sysut2.tp 10 | at mta4 sysut3.tp 11 | at mtb4 sysut4.tp 12 | at mtb1 sysou1.tp 13 | at mta5 sysck2.tp 14 | at mtb5 sysck1.tp 15 | at mtb2 syspp1.tp 16 | at mtb6 syspp2.tp 17 | set mtc disable 18 | set cdp1 disable 19 | set cdr1 disable 20 | set lp1 disable 21 | set dk0 type=2302 module=0 chan=c ctss 22 | set dk1 type=2302 module=4 chan=c 23 | set dk2 type=7238 module=2 chan=c 24 | set hd0 units=2 25 | ;set dk debug=cmd;detail 26 | ;set ch debug=CHANNEL;CMD;DETAIL;EXP;SENSE;trap 27 | ;set debug stderr 28 | at dk0 dasd/DISK1.BIN 29 | at dk1 dasd/DISK2.BIN 30 | at dk2 dasd/DRUM1.BIN 31 | at hd0 dasd/DRUM2.BIN 32 | at lp0 sys.log 33 | at cdp0 -f bin syspun.crd 34 | at cdr0 end.job 35 | dep sw1 0 36 | bo mta1 37 | ! ./listtape sysou1.tp > setup.lst 38 | quit 39 | -------------------------------------------------------------------------------- /bootstrap/srctape3.tp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/bootstrap/srctape3.tp -------------------------------------------------------------------------------- /bootstrap/timusd.timacc: -------------------------------------------------------------------------------- 1 | C0056 99999DAEMON 000000000000000000000000000000000000000000000000000000000000 2 | C0056 99995FIBMON 000000000000000000000000000000000000000000000000000000000000 3 | M1416 1CMFL02 000000000000000000000000000000000000000000000000000000000000 4 | M1416 2CMFL04 000000000000000000000000000000000000000000000000000000000000 5 | M1416 3ADMIN 000000000000000000000000000000000000000000000000000000000000 6 | M1416 4DAVE PITTS 000000000000000000000000000000000000000000000000000000000000 7 | M1416 5GUEST 000000000000000000000000000000000000000000000000000000000000 8 | -------------------------------------------------------------------------------- /bootstrap/tssfil.timacc: -------------------------------------------------------------------------------- 1 | M1416CMFL01 2 | M1416CMFL02 3 | M1416CMFL03 4 | M1416CMFL04 5 | M1416CMFL05 6 | M1416CMFL06 7 | M1416CMFL07 8 | M1416CMFL08 9 | M1416CMFL09 10 | -------------------------------------------------------------------------------- /extra/bcpl/BASHRC-RUN: -------------------------------------------------------------------------------- 1 | Wed Nov 23 11:32:36 GMT 2016 2 | -------------------------------------------------------------------------------- /extra/bcpl/BSS/NCG7.BSS: -------------------------------------------------------------------------------- 1 | 2 | 3 | 400504000000 000000000000 000000000007 000000076640 4 | 606045232707 000000000000 000000000000 000000000000 5 | 000000000000 000000000000 000000000000 000000000000 6 | 000000000000 000000000000 000000000000 000000000000 7 | 000000000000 000000000000 000000000000 000000000000 8 | 000000000000 000000000000 000000000000 000000000000 9 | 000000000000 000000000000 000000000000 000000000000 10 | 11 | 200507000000 000000000000 222204000000 000000000000 12 | 002000000003 007400276643 007400276643 007400276642 13 | 000000000000 002000000006 075600000000 000000000000 14 | 000000000000 000000000000 000000000000 000000000000 15 | 000000000000 000000000000 000000000000 000000000000 16 | 000000000000 000000000000 000000000000 000000000000 17 | 000000000000 000000000000 000000000000 000000000000 18 | -------------------------------------------------------------------------------- /extra/bcpl/FAP/NCG7.FAP: -------------------------------------------------------------------------------- 1 | # STACK 0 2 | # JUMP L1 3 | TRA L1 4 | # FINISH 5 | TSX 3+G,2 6 | # FINISH 7 | TSX 3+G,2 8 | # LAB L1 9 | 10 | L1 11 | # GLOBAL 0 12 | TSX 2+G,2 13 | VFD 36/0 14 | TRA L1001 15 | # END 16 | 17 | L1001 18 | PCA 0 19 | -------------------------------------------------------------------------------- /extra/bcpl/HEAD1A.BCPL: -------------------------------------------------------------------------------- 1 | // head1a.bcpl 07/26/67 1532.9 Header file for lb1a,bcpl 2 | 3 | global // input output 4 | $( Findinput:10; Createoutput:11; C9to12:12 5 | C12to9:13; IObase:14 6 | Readch:15; Writech:16 7 | Endread:18; Endwrite:19 8 | Endofstream:20; InitializeIO:21 9 | INPUT:25; OUTPUT:26; CONSOLE:27; MONITOR:28 $) 10 | 11 | manifest $( Endofstreamch = 255 $) 12 | 13 | global // BCPL compiler library 14 | $( BCDword:37 15 | WriteO:38; Charcode:39; Formnumber:40; Formdigit:41 16 | Packstring:42; Unpackstring:43; WriteS:44; WriteN:45 17 | Report:46; Reportcount:47; Reportmessage:48; Plist:49 18 | Newvec:50; List1:51; List2:52; List3:53; List4:54; List5:55 19 | FreelistP:56; FreelistT:57 $) 20 | 21 | manifest $( H1 = 0; H2 = 1; H3 = 2; H4 = 3; H5 = 4 $) 22 | 23 | manifest // compiler machine specification 7094 24 | $( Bytebits=9; Bytemax=511; Bytesperword=4 25 | Byte1shift=27; Byte2shift=18; Byte3shift=9; Byte4shift=0 $) 26 | 27 | -------------------------------------------------------------------------------- /extra/bcpl/LBHEAD.BCPL: -------------------------------------------------------------------------------- 1 | // lbhead.bcpl 02/09/68 1305.0 2 | 3 | global $( Wrflx:300; Wrflxa:301; Rdflxa:303 4 | Setful:304; Setbcd:305; Dormnt:306 5 | Rsclck:307; Stopcl:308 6 | Getcom:309; Setcls:310; Nexcom:311; Chncom:312 7 | Getmem:313; Setmem:314 8 | Open:320; Rdwait:321; Wrwait:322; Close:323 9 | Delfil:324; Buffer:325 $) 10 | 11 | global $( Start:1 $) 12 | 13 | -------------------------------------------------------------------------------- /extra/bcpl/NCG7.BCPL: -------------------------------------------------------------------------------- 1 | // NCG7.BCPL 06/14/68 18:22 2 | 3 | finish 4 | -------------------------------------------------------------------------------- /extra/bcpl/T1.BCPL: -------------------------------------------------------------------------------- 1 | 2 | global $( G0:0 $) 3 | 4 | static $( a:123; b:124 $) 5 | 6 | let f(x) = valof 7 | $( static $( c:125 $) 8 | L: if G0=a+b+c goto L 9 | c := 0 10 | resultis 0 11 | $) 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /extra/bcpl/TEST.BCPL: -------------------------------------------------------------------------------- 1 | // test.bcpl 03/07/68 1112.9 2 | 3 | get 'lbhead.bcpl' 4 | 5 | global $( Start:1; f:100; V:101 $) 6 | 7 | Start: 8 | $(1 let f(x, y) = valof 9 | $( let t = V*(0) 10 | V*(x) := V*(x+1) + V*(y) 11 | resultis t $) 12 | let v = vec 20 13 | let s = 'ABCD123456' 14 | V := v+13 15 | //V*(0), V*(1), V*(2) := 0, 1, 0 16 | V*(3) := f(0, 1) 17 | V*(4) := f(1,2) 18 | finish $)1 19 | -------------------------------------------------------------------------------- /extra/bcpl/TGZDATE: -------------------------------------------------------------------------------- 1 | 2 | Distributed from machine: solestreet 3 | Wed Nov 23 15:04:44 GMT 2016 4 | -------------------------------------------------------------------------------- /extra/bcpl/TRN4.BCPL: -------------------------------------------------------------------------------- 1 | // TRN4.BCPL 06/14/68 12:42 2 | 3 | get 'NHEAD2' 4 | 5 | let Transswitch(x) be 6 | $(1 let P, DL = CaseP, Defaultlabel 7 | let L, M = Nextparam(), Nextparam() 8 | 9 | Compjump(L) 10 | Defaultlabel := 0 11 | Trans(H3*(x)) 12 | Compjump(M) 13 | Complab(L) 14 | Load(H2*(x)) 15 | if Defaultlabel=0 do Defaultlabel := M 16 | Out3P(SWITCHON, %(CaseP-P%)/2, Defaultlabel) 17 | $( let i = P 18 | until i=CaseP do $( OutN(Casetable*(i)) 19 | OutL(Casetable*(i+1)) 20 | i := i + 2 $) 21 | SSP := SSP - 1 22 | Complab(M) 23 | CaseP, Defaultlabel := P, DL $)1 24 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/BASHRC-RUN: -------------------------------------------------------------------------------- 1 | Fri Nov 18 18:13:05 GMT 2016 2 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/Makefile: -------------------------------------------------------------------------------- 1 | # This is the Makefile for bcpl7094 and bcplctss. 2 | 3 | # Writen by Martin Richards (c) 31 Oct 2016 4 | 5 | help: 6 | @echo 7 | @echo "make all Compile all the bcplctss sections" 8 | @echo "make bcpl7094 Recompile bcpl7094" 9 | @echo "make lb1a Compile .lb1a to FAP" 10 | @echo "make xref Create xrefbcpl7094" 11 | @echo "make clean Delete all re-makeable files" 12 | @echo 13 | 14 | all: bcpl7094 15 | 16 | bcpl7094: bcpl7094.b lbhead.h head1.h nhead2.h nhead3.h 17 | cintsys64 -c c b64 bcpl7094 18 | 19 | lb1a: 20 | (cd ..; cintsys64 -- bcpl7094/bcpl7094 LB1A BCPL fap FAP/lb1a.fap) 21 | 22 | t1: 23 | (cd ..; cintsys64 -- bcpl7094/bcpl7094 T1 BCPL fap FAP/t1.fap tree) 24 | 25 | test: 26 | (cd ..; cintsys64 -- bcpl7094/bcpl7094 TEST BCPL fap FAP/test.fap) 27 | 28 | xref: 29 | cintsys64 -c c b64 bcpl7094 xref >rawxref 30 | cintsys -c sortxref rawxref to xrefbcpl7094 31 | rm rawxref 32 | 33 | clean: 34 | rm -f bcpl7094 *~ 35 | 36 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/README: -------------------------------------------------------------------------------- 1 | The reconstruction of the BCPL compiler for CTSS is still under 2 | construction. 3 | 4 | This directory will hold a modification of the BCPL compiler as it was 5 | when running under CTSS at Project MAC. The original source listings 6 | have dates between February and June 1968. This modification will be 7 | able to compile the original compiler into FAP assembly language or 8 | BSS. The modified version is designed to run under the current 64-bit 9 | version of Cintcode BCPL. The modified compiler is in bcpl7094.b with 10 | header file: bcpl7094.h. It compiles BCPL programs to either FAP 11 | assembly language or BSS. 12 | 13 | Martin Richards (c) 31 Oct 2016 14 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/head1a.h: -------------------------------------------------------------------------------- 1 | // head1a.b 07/26/67 1532.9 Header file for lb1a.b 2 | 3 | GLOBAL // input output 4 | $( Findinput:210; Findoutput:211; charv:212 5 | Createoutput:213 6 | C9TO12:214; C12TO9:215; IObase:216 7 | Readch:217; Writech:218 8 | Endread:219; Endwrite:220 9 | Endofstream:221; InitializeIO:222 10 | stdin:223; stdout:224 11 | INPUT:225; OUTPUT:226; CONSOLE:227;MONITOR:228 $) 12 | 13 | MANIFEST $( Endofstreamch = 255 $) 14 | 15 | GLOBAL // BCPL compiler library 16 | $( BCDword:237 17 | WriteO:238; Charcode:239; Formnumber:240; Formdigit:241 18 | Packstring:242; Unpackstring:243; WriteS:244; WriteN:245 19 | Report:246; Reportcount:247; Reportmessage:248; Plist:249 20 | Newvec:250; List1:251; List2:252; List3:253; List4:254; List5:255 21 | FreelistP:256; FreelistT:257 $) 22 | 23 | MANIFEST $( H1 = 0; H2 = 1; H3 = 2; H4 = 3; H5 = 4 $) 24 | 25 | MANIFEST // compiler machine specification 7094 26 | $( Bytebits=9; Bytemax=511; Bytesperword=4 27 | byte1shift=27; byte2shift=18; byte3shift=9; byte4shift=0 $) 28 | 29 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/lbhead.h: -------------------------------------------------------------------------------- 1 | // lbhead.h 02/09/68 1305.0 2 | 3 | GLOBAL $( Wrflx:500; Wrflxa:501; Rdflxa:503 4 | Setful:504; Setbcd:505; Dormnt:506 5 | Rsclck:507; Stopcl:508 6 | Getcom:509; Setcls:510; Nexcom:511; Chncom:512 7 | Getmem:513; Setmem:514 8 | Open:520; Rdwait:521; Wrwait:522; Close:523 9 | Delfil:524; Buffer:525 10 | 11 | CTSS2ASCII: 526 12 | ASCII2CTSS: 527 13 | initchartabs: 528 14 | charv: 529 15 | $) 16 | 17 | GLOBAL $( Start:1 $) 18 | 19 | GLOBAL // BCPL compiler options 20 | $( fromname: 700 21 | fromstream: 701 22 | fapname: 702 23 | fapstream: 703 24 | bssname: 704 25 | bssstream: 705 26 | ocodename: 706 27 | ocodestream: 707 28 | 29 | lextracing: 708 30 | tree: 709 31 | listing: 710 32 | ocode: 711 33 | Cgfap: 712 34 | BCD2LINUX: 713 35 | BCD2ASCII: 714 36 | BSSing: 715 37 | Listing: 716 38 | Filing: 717 39 | $) 40 | 41 | 42 | -------------------------------------------------------------------------------- /extra/bcpl/bcpl7094/t1.bcpl: -------------------------------------------------------------------------------- 1 | let 2 | ABCD 3 | + 4 | := 5 | a 6 | Abc 7 | let 8 | 9 | -------------------------------------------------------------------------------- /extra/bcpl/bctss: -------------------------------------------------------------------------------- 1 | #!/home/mr/distribution/BCPL/cintcode/cintsys64 -s 2 | .k file/a,opt 3 | echo "bcpl7094/bcpl7094 fap FAP/.FAP bss BSS/.BSS ocode " 4 | bcpl7094/bcpl7094 fap FAP/.FAP bss BSS/.BSS ocode 5 | -------------------------------------------------------------------------------- /extra/bcpl/compall: -------------------------------------------------------------------------------- 1 | .k arg 2 | 3 | echo "Compiling all sections of the 1968 BCPL compiler for CTSS*n*n" 4 | 5 | #c bctss LB1A "" 6 | #c bctss T1 "" 7 | #c bctss TEST "" 8 | c bctss INPP1 "" 9 | c bctss INPP2 "" 10 | c bctss PREPRO "" 11 | c bctss CAE0 "" 12 | c bctss CAE1 "" 13 | c bctss CAE2 "" 14 | c bctss CAE3 "" 15 | c bctss PLIST "" 16 | c bctss TRN0 "" 17 | c bctss TRN1 "" 18 | c bctss TRN2 "" 19 | c bctss TRN3 "" 20 | c bctss TRN4 "" 21 | c bctss TRN5 "" 22 | c bctss TRN6 "" 23 | c bctss TRN7 "" 24 | c bctss NCG0 "" 25 | c bctss NCG1 "" 26 | c bctss NCG2 "" 27 | c bctss NCG3 "" 28 | c bctss NCG4 "" 29 | c bctss NCG5 "" 30 | c bctss NCG6 "" 31 | c bctss NCG7 "" 32 | c bctss NCG8 "" 33 | c bctss NCG9 "" 34 | c bctss NCG10 "" 35 | 36 | 37 | 38 | 39 | 40 | -------------------------------------------------------------------------------- /extra/bcpl/junk: -------------------------------------------------------------------------------- 1 | bcpl7094 2 | cae0.bcpl 3 | cae1.bcpl 4 | cae2.bcpl 5 | cae3.bcpl 6 | files 7 | head1a.bcpl 8 | head1.bcpl 9 | headin.bcpl 10 | inpp1.bcpl 11 | inpp2.bcpl 12 | junk 13 | lb1a.bcpl 14 | lb1acomp 15 | lbhead.bcpl 16 | Makefile 17 | plist.bcpl 18 | prepro.bcpl 19 | README 20 | TGZDATE 21 | -------------------------------------------------------------------------------- /extra/bcpl/lb1acomp: -------------------------------------------------------------------------------- 1 | r bcpl lb1a 2 | W 1534.9 3 | INPP entered 4 | INPP time 278 centisecs 5 | CAE entered 6 | CAE time 180 centisecs AE tree size = 1168 7 | Trans time 208 centisecs 8 | 9 | LENGTH 674 COMMON BREAK 76640 10 | R 9.433+9.316 11 | -------------------------------------------------------------------------------- /extra/lisp/fenfen.fap: -------------------------------------------------------------------------------- 1 | INSERT $IOMACS TSSX,TSSX1,CALLIO,OPEN 2 | INSERT $IOCNFG FILE ROUTINES 3 | INSERT $ZERRRF 4 | INSERT $SETCNF 5 | INSERT $GCOLEF 6 | INSERT $TEMLIF 7 | INSERT $CUNSZE 8 | INSERT $BLCKF2 9 | INSERT DECONF 10 | INSERT $EQULZF 11 | INSERT $PRNT2F 12 | INSERT $PUNCHF 13 | INSERT $FLONMF 14 | INSERT $REDZIF 15 | INSERT $GTGCDF 16 | INSERT $SUBSTF 17 | INSERT $APENDF 18 | INSERT $EVQTZF 19 | INSERT $CARXZF 20 | INSERT $ADVIFE 21 | INSERT $ARAY1F 22 | INSERT $FIXVLF 23 | INSERT $ARAY2F 24 | INSERT $ARTH1F 25 | INSERT $EXPTFE 26 | INSERT $APPLIF 27 | INSERT $ATOMS 28 | INSERT $SYNS 29 | INSERT $CNSFWF 30 | INSERT $LAPZFE 31 | -------------------------------------------------------------------------------- /extra/lisp/fixvlf.fap: -------------------------------------------------------------------------------- 1 | REM 2 | * FIXVAL 3 | REM 4 | FIXVAL SXA FXVE,2 5 | CLA 0,2 6 | PAX 0,2 7 | TXL FXVE,2,-2 8 | PDX 0,2 9 | ANA $QT1 10 | TZE FXVE 11 | CLA 0,2 12 | TRA 1,4 13 | FXVE AXT **,2 14 | PXD 0,2 15 | ERROR FIXVAL -------------------------------------------------------------------------------- /original/README.txt: -------------------------------------------------------------------------------- 1 | Original CTSS listings from Paul Pierce's web site. 2 | 3 | Currently the source files in source have been rearranged to 4 | make them easier to catagorize. All source will currently build to 5 | produce identical files to these listings. 6 | -------------------------------------------------------------------------------- /src/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/EOF.BIN -------------------------------------------------------------------------------- /src/arch/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/arch/EOF.BIN -------------------------------------------------------------------------------- /src/arch/apend.runcom: -------------------------------------------------------------------------------- 1 | MAD APENDA (LIST) 00010 2 | MAD ARCHA (LIST) 00020 3 | MAD APPEND (LIST) 00030 4 | FAP IOERR (LIST) 00040 5 | FAP DAYTIM (LIST) 00050 6 | NCLOAD APENDA APPEND ARCHA IOERR DAYTIM 00060 7 | SAVE APEND 00070 8 | -------------------------------------------------------------------------------- /src/arch/append.mad: -------------------------------------------------------------------------------- 1 | R APPEND. - APPEND FILE. 2 | R 3 | R CALLING SEQUENCE IS 4 | R APPEND.(NAME1,NAME2,NAME3,NAME4) 5 | R 6 | R APPENDS NAME3 NAME4 TO FILE NAME1 NAME2. 7 | R NAME1 NAME2 IS ASSUMED OPEN FOR WRITING 8 | R AND BUFFERED. 9 | R 10 | EXTERNAL FUNCTION (N1,N2,N3,N4) 11 | N'S INTEGER 12 | D'N BUF(864) 13 | R 14 | ENTRY TO APPEND. 15 | OPEN.($R$,N3,N4,-0,-0) 16 | RD RDWAIT.(N3,N4,0,BUF(864)...864,EOF,CT) 17 | WRWAIT.(N1,N2,0,BUF(864)...864,-0,-0) 18 | T'O RD 19 | EOF W'R CT.NE.0, WRWAIT.(N1,N2,0,BUF(864)...CT,-0,-0) 20 | CLOSE.(N3,N4) 21 | FUNCTION RETURN 22 | R 23 | END OF FUNCTION 24 | -------------------------------------------------------------------------------- /src/arch/archiv.runcom: -------------------------------------------------------------------------------- 1 | MAD ARCHIV (LIST) 00010 2 | NCLOAD ARCHIV (SYS) (LIBE) XLIBE 00020 3 | SAVE ARCHIV 00030 4 | -------------------------------------------------------------------------------- /src/arch/combin.runcom: -------------------------------------------------------------------------------- 1 | MAD COMBIN (LIST) 00010 2 | VLOAD COMBIN 00030 3 | SAVE COMBIN 00040 4 | -------------------------------------------------------------------------------- /src/arch/fix00.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL FILE NAME -- FIX00 FAP 3 | ENTRY FIX 4 | FIX CLA* 1,4 5 | STA B 6 | CLA 2,4 7 | STA A 8 | A TSX **,4 9 | B TXH -- 10 | TSX $DORMNT,4 11 | END 12 | -------------------------------------------------------------------------------- /src/arch/ioerr.fap: -------------------------------------------------------------------------------- 1 | * DUMMY I/O ERROR RETURN - EXITS VIA PRNTER. 2 | PCC ON 3 | NOLNK 4 | ENTRY IOERR 5 | LBL IOCHN 6 | PCC OFF 7 | REM 8 | REM 9 | * 10 | * ERROR RETURN MAY BE SET BY 'FERRTN.(IOERR.)' 11 | * 12 | REM 13 | IOERR TSX CLOSE,4 CLOSE ALL FILES. 14 | TXH =HALL 15 | TXH =-0 16 | REM 17 | CAL =HPRNTER 18 | LDQ =O-71 DON'T WASTE WORDS. 19 | TIA =HNEXCOM GO AWAY QUIETLY. 20 | REM 21 | CLOSE TIA =HCLOSE 22 | END 23 | -------------------------------------------------------------------------------- /src/arch/split.runcom: -------------------------------------------------------------------------------- 1 | MAD SPLIT (LIST) 00010 2 | VLOAD SPLIT 00020 3 | SAVE SPLIT 00030 4 | -------------------------------------------------------------------------------- /src/arch/squash.runcom: -------------------------------------------------------------------------------- 1 | MAD SQUASH (LIST) 00010 2 | MAD IOCARD (LIST) 00020 3 | FAP RENAME (LIST) (FLAG) NO 00030 4 | FAP SETUP (LIST) (FLAG) NO 00040 5 | FAP WORDIO (LIST) (FLAG) NO 00050 6 | FAP CLRNAM (LIST) (FLAG) NO 00060 7 | FAP LMIO6 (LIST) (FLAG) NO 00070 8 | NCLOAD SQUASH SETUP IOCARD WORDIO RENAME CLRNAM LMIO6 00080 9 | SAVE SQUASH 00090 10 | -------------------------------------------------------------------------------- /src/arch/xpand.runcom: -------------------------------------------------------------------------------- 1 | MAD XPAND (LIST) 00010 2 | MAD IOCARD (LIST) 00020 3 | MAD 6TYP (LIST) 00030 4 | FAP RENAME (LIST) (FLAG) NO 00040 5 | FAP SETUP (LIST) (FLAG) NO 00050 6 | FAP WORDIO (LIST) (FLAG) NO 00060 7 | FAP CLRNAM (LIST) (FLAG) NO 00070 8 | FAP PRWORD (LIST) (FLAG) NO 00080 9 | FAP LMIO6 (LIST) (FLAG) NO 00090 10 | NCLOAD XPAND SETUP IOCARD CLRNAM RENAME WORDIO PRWORD 6TYP LMIO6 00100 11 | SAVE XPAND 00110 12 | -------------------------------------------------------------------------------- /src/asclib/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/asclib/EOF.BIN -------------------------------------------------------------------------------- /src/asclib/asclib.bss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/asclib/asclib.bss -------------------------------------------------------------------------------- /src/asclib/asclib.runcom: -------------------------------------------------------------------------------- 1 | MAD NCANNO (LIST) 2 | FAP NSCTSS (LIST) 3 | MAD NKEDIT (LIST) 4 | MAD ASCON (LIST) 5 | MAD ASCTYP (LIST) 6 | MAD EDVAL (LIST) 7 | MAD GETDEV (LIST) 8 | MAD ESCAPE (LIST) 9 | COMBIN * ASCLIB BSS NCANNO NSCTSS NKEDIT ASCON ASCTYP EDVAL 10 | COMBIN * ASCLIB BSS ASCLIB GETDEV ESCAPE 11 | -------------------------------------------------------------------------------- /src/asclib/asclib.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 21' 2 | echo -n > asclib_src.bcd 3 | for i in nsctss.fap ; do 4 | NAME=`basename $i .fap` 5 | obj2img -A -a "$USER" -t -c -f $NAME -e 'FAP' -o tmp.img $i 6 | cat tmp.img >> asclib_src.bcd 7 | done 8 | for i in ascon.mad asctyp.mad edval.mad escape.mad getdev.mad ncanno.mad \ 9 | nkedit.mad ; do 10 | NAME=`basename $i .mad` 11 | obj2img -A -a "$USER" -t -c -f $NAME -e 'MAD' -o tmp.img $i 12 | cat tmp.img >> asclib_src.bcd 13 | done 14 | obj2img -A -a "$USER" -t -f asclib -e 'RUNCOM' -o tmp.img asclib.runcom 15 | cat tmp.img >> asclib_src.bcd 16 | grep '(LIST)' asclib.runcom \ 17 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BCD I'"$USER"'"}' >asc_ext.dat 18 | grep '(LIST)' asclib.runcom \ 19 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BSS B'"$USER"'"}' >asc_bss.dat 20 | #cat EOF.BIN >>asclib_src.bcd 21 | rm tmp.img 22 | -------------------------------------------------------------------------------- /src/asclib/edval.mad: -------------------------------------------------------------------------------- 1 | R.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR 2 | R.. EDITING ASCII FILES. 3 | R 4 | EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 5 | NORMAL MODE IS INTEGER 6 | ENTRY TO GETVAL. 7 | BLANK = 040K 8 | TAB = 011K 9 | DEFALT = $ EPL$ 10 | MCHNG = 056K 11 | REDS = 016K 12 | BLACKS = 017K 13 | FUNCTION RETURN 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/basic/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/basic/EOF.BIN -------------------------------------------------------------------------------- /src/basic/bas_src.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/basic/bas_src.tap -------------------------------------------------------------------------------- /src/basic/blip.runcom: -------------------------------------------------------------------------------- 1 | FAP BLIP (LIST) 2 | NCLOAD (ORG) BLIP BLIP 3 | SAVE BLIP 4 | -------------------------------------------------------------------------------- /src/basic/brake.fap: -------------------------------------------------------------------------------- 1 | * BRAKE 2 | * EXITING PROGRAM. RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 3 | * 4 | * TESTS FOR COMMAND CHAINING AND IF PRESENT WILL TYPE INSTRUCTIONS FOR 5 | * CONTINUING THE CHAIN. IT THEN CALLS DORMNT. TYPING 'START' RETURNS 6 | * TO 1,4. IF NOT COMMAND CHAINING WILL RETURN DIRECTLY TO 1,4. 7 | * 8 | LINK OFF 9 | ENTRY BRAKE 10 | BRAKE SXA XR4,4 11 | TSX $GETCLC,4 12 | TZE XR4 13 | TSX $WRFLX,4 14 | PZE MESS,,4 15 | OUT TSX $DORMNT,4 16 | XR4 AXT **,4 17 | TRA 1,4 18 | MESS BCI 4, TYPE 'START' TO GO ON. 19 | END 20 | -------------------------------------------------------------------------------- /src/basic/call.runcom: -------------------------------------------------------------------------------- 1 | MAD CALL1 (LIST) 2 | MAD CALL2 (LIST) 3 | FAP CALL3 (LIST) 4 | FAP CALL4 (LIST) 5 | NCLOAD CALL1 CALL2 CALL3 CALL4 (SYS) (LIBE) XLIBE 6 | SAVE CALL 7 | -------------------------------------------------------------------------------- /src/basic/call4.fap: -------------------------------------------------------------------------------- 1 | * SUBROUTINES TO REPLACE CRUD IN LIBRARY 2 | TTL D.R. WIDRIG AUGUST 1966 3 | ENTRY .SETUP CALLED BY MAD MAIN PROGS 4 | ENTRY EXIT CALLED BY MAD PROGS 5 | REM 6 | .SETUP TRA 1,4 RETURN 7 | REM 8 | EXIT TIA =HCHNCOM THAT'S ALL 9 | REM 10 | END 11 | -------------------------------------------------------------------------------- /src/basic/chmode.runcom: -------------------------------------------------------------------------------- 1 | MAD CHMDE (LIST) 2 | FAP GETMD (LIST) 3 | FAP DELETE (LIST) 4 | NCLOAD CHMDE GETMD DELETE (SYS) (LIBE) XLIBE 5 | SAVE CHMODE 6 | -------------------------------------------------------------------------------- /src/basic/comfil.runcom: -------------------------------------------------------------------------------- 1 | FAP COMFL (LIST) 2 | NCLOAD COMFL 3 | SAVE COMFIL 4 | -------------------------------------------------------------------------------- /src/basic/comfl.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL FILE NAME -- COMFL FAP 3 | REM 4 | REM COMFIL --- SWITCH USER TO SPECIFIED COMMON FILE 5 | REM 6 | TSX GETCOM,4 GET PARAMETER 7 | PZE 1 FIRST ARGUMENT 8 | REM 9 | ANA =O77 REMOVE ALL BUT FIRST CHARACTER 10 | SLW TEMP .. 11 | SUB =O77 CHECK FOR FENCE 12 | TZE *+2 FENCE = 0 13 | CAL TEMP .. 14 | TSX COMFIL,4 SWITCH DIRECTORY 15 | HTR * (1,4) RETURN NOT USED CURRENTLY 16 | TSX CHNCOM,4 END OF COMMAND 17 | PZE .. 18 | REM 19 | GETCOM TIA =HGETCOM .. 20 | COMFIL TIA =HCOMFIL .. 21 | CHNCOM TIA =HCHNCOM .. 22 | REM 23 | TEMP PZE .. 24 | REM 25 | END 26 | -------------------------------------------------------------------------------- /src/basic/do.runcom: -------------------------------------------------------------------------------- 1 | FAP DO (LIST) 2 | LDABS DO DO 3 | -------------------------------------------------------------------------------- /src/basic/dsker.fap: -------------------------------------------------------------------------------- 1 | * DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 2 | REM REVISED 9/14/65 - NOEL I. MORRIS 3 | REM 4 | UNLIST 5 | INSERT MACS 6 | LIST 7 | REM 8 | ENTRY DSKER 9 | REM 10 | DSKER CAL =HPRNTER 11 | LDQ =O-71 12 | CALL NEXCOM 13 | REM 14 | RMT * REMOTE SEQUENCES 15 | REM 16 | END 17 | -------------------------------------------------------------------------------- /src/basic/gencom.runcom: -------------------------------------------------------------------------------- 1 | FAP GENCOM (LIST) 2 | NCLOAD GENCOM (SYS) (LIBE) XLIBE 3 | SAVE GENCOM 4 | -------------------------------------------------------------------------------- /src/basic/link.runcom: -------------------------------------------------------------------------------- 1 | MAD LINK (LIST) 2 | FAP REPRB (LIST) 3 | NCLOAD LINK REPRB 4 | SAVE LINK 5 | -------------------------------------------------------------------------------- /src/basic/list5.fap: -------------------------------------------------------------------------------- 1 | * S. ROSENBAUM, X6035, M1416-1484, 18 JANUARY 1966 2 | TTL FILE NAME -- LIST5 FAP 3 | * 4 | * DUMMY .SETUP ROUTINE 5 | ENTRY .SETUP 6 | .SETUP TRA 1,4 RETURN TO CALLER 7 | END 8 | -------------------------------------------------------------------------------- /src/basic/listf.runcom: -------------------------------------------------------------------------------- 1 | MAD LIST1 (LIST) 2 | MAD LIST2 (LIST) 3 | MAD LIST3 (LIST) 4 | FAP LIST4 (LIST) 5 | FAP LIST5 (LIST) 6 | FAP NULLB (LIST) 7 | NCLOAD LIST1 LIST2 LIST3 LIST4 LIST5 NULLB (SYS) (LIBE) XLIBE 8 | SAVE LISTF 9 | 10 | -------------------------------------------------------------------------------- /src/basic/mount.runcom: -------------------------------------------------------------------------------- 1 | FAP MOUNT (LIST) 2 | NCLOAD MOUNT 3 | SAVE MOUNT 4 | -------------------------------------------------------------------------------- /src/basic/move.runcom: -------------------------------------------------------------------------------- 1 | FAP MOVE (LIST) 2 | FAP COPY (LIST) 3 | NCLOAD MOVE COPY (SYS) (LIBE) XLIBE 4 | SAVE MOVE 5 | -------------------------------------------------------------------------------- /src/basic/nullb.fap: -------------------------------------------------------------------------------- 1 | * NULLB - CHANGE LEADING BLANKS TO TRAILING NULLS. 2 | PCC ON 3 | NOLNK 4 | ENTRY NULLB 5 | PCC OFF 6 | REM 7 | * 8 | * A = NULLB.(B) 9 | * 10 | REM 11 | NULLB LDQ* 1,4 12 | ZAC 13 | LGL LGL 6 14 | ERA =O60 15 | TNZ OUT 16 | CAL =O57 17 | LGR 6 18 | RQL 6 19 | TRA LGL 20 | OUT ERA =O60 21 | LGR 6 22 | XCL 23 | SSM 24 | PBT 25 | SSP 26 | TRA 2,4 27 | REM 28 | END 29 | -------------------------------------------------------------------------------- /src/basic/permit.runcom: -------------------------------------------------------------------------------- 1 | MAD PERMIT (LIST) 2 | FAP REPRB (LIST) 3 | NCLOAD PERMIT REPRB 4 | SAVE PERMIT 5 | -------------------------------------------------------------------------------- /src/basic/printf.runcom: -------------------------------------------------------------------------------- 1 | FAP PRINTF (LIST) 2 | NCLOAD PRINTF 3 | SAVE PRINTF 4 | -------------------------------------------------------------------------------- /src/basic/revok.runcom: -------------------------------------------------------------------------------- 1 | MAD REVOK (LIST) 2 | FAP REPRB (LIST) 3 | NCLOAD REVOK REPRB 4 | SAVE REVOKE 5 | -------------------------------------------------------------------------------- /src/basic/runcom.runcom: -------------------------------------------------------------------------------- 1 | FAP RUNCOM (LIST) 2 | FAP SCHAIN (LIST) 3 | FAP BRAKE 4 | NCLOAD RUNCOM SCHAIN BRAKE 5 | SAVE RUNCOM 6 | -------------------------------------------------------------------------------- /src/basic/setfil.runcom: -------------------------------------------------------------------------------- 1 | MAD SETFIL (LIST) 2 | NCLOAD SETFIL (SYS) (LIBE) XLIBE 3 | SAVE SETFIL 4 | -------------------------------------------------------------------------------- /src/basic/tapfil.runcom: -------------------------------------------------------------------------------- 1 | FAP TAPFIL (LIST) 2 | NCLOAD TAPFIL 3 | SAVE TAPFIL 4 | -------------------------------------------------------------------------------- /src/basic/unlink.runcom: -------------------------------------------------------------------------------- 1 | MAD UNLINK (LIST) 2 | FAP NEWMOD (LIST) 3 | NCLOAD UNLINK NEWMOD (SYS) (LIBE) XLIBE 4 | SAVE UNLINK 5 | -------------------------------------------------------------------------------- /src/basic/update.runcom: -------------------------------------------------------------------------------- 1 | FAP UPDATE (LIST) 2 | FAP COPY (LIST) 3 | FAP UNIQUE (LIST) 4 | FAP DELETE (LIST) 5 | NCLOAD UPDATE COPY UNIQUE DELETE 6 | SAVE UPDATE 7 | -------------------------------------------------------------------------------- /src/basic/verify.runcom: -------------------------------------------------------------------------------- 1 | FAP VERIFY (LIST) 2 | NCLOAD VERIFY 3 | SAVE VERIFY 4 | -------------------------------------------------------------------------------- /src/daemon/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/daemon/EOF.BIN -------------------------------------------------------------------------------- /src/daemon/core.fap: -------------------------------------------------------------------------------- 1 | * ASSEMBLY FOR I/O IN CORE A 2 | -------------------------------------------------------------------------------- /src/daemon/daemon.runcom: -------------------------------------------------------------------------------- 1 | MOVE BCMEQF FAP BCMEQB 2 | MOVE DCMEQF FAP DCMEQB 3 | FAP DAEMON (LIST) 4 | FAP GETA1 (LIST) 5 | FAP PRCODE (LIST) 6 | FAP PUTIN (LIST) (FLAG) NO 7 | NCLOAD DAEMON GETA1 PRCODE PUTIN 8 | SAVE DAEMON 9 | -------------------------------------------------------------------------------- /src/daemon/dsdump.runcom: -------------------------------------------------------------------------------- 1 | MOVE BCMEQF FAP BCMEQB 2 | MOVE DCMEQF FAP DCMEQB 3 | FAP DSDUMP (LIST) (FLAG) NO 4 | FAP DCYCLE (LIST) (FLAG) NO 5 | FAP DDMAPA (LIST) (FLAG) NO 6 | FAP DDPFLB (LIST) (FLAG) NO 7 | FAP DERAZB (LIST) (FLAG) NO 8 | FAP DFIOMB (LIST) (FLAG) NO 9 | FAP DGDTMA (LIST) (FLAG) NO 10 | FAP DPUSRB (LIST) (FLAG) NO 11 | FAP DKSTA (LIST) (FLAG) NO 12 | FAP DRSTRB (LIST) (FLAG) NO 13 | FAP PUTIN (LIST) (FLAG) NO 14 | MAD NLREC (LIST) 15 | FAP PRCODE (LIST) 16 | MAD SETTIM (LIST) 17 | FAP XMOD (LIST) 18 | NCLOAD DSDUMP DCYCLE DDMAPA DDPFLB DERAZB DFIOMB DGDTMA DPUSRB (MORE) 19 | USE DKSTA DRSTRB PUTIN NLREC PRCODE SETTIM XMOD 20 | SAVE DSDUMP 21 | -------------------------------------------------------------------------------- /src/daemon/dsload.runcom: -------------------------------------------------------------------------------- 1 | MOVE BCMEQF FAP BCMEQB 2 | MOVE DCMEQF FAP DCMEQB 3 | FAP DSLOAD (LIST) (FLAG) NO 4 | FAP SLDTFC (LIST) (FLAG) NO 5 | FAP LIORDE (LIST) (FLAG) NO 6 | FAP LINTTB (LIST) (FLAG) NO 7 | FAP LRFLDC (LIST) (FLAG) NO 8 | FAP ASKOPR (LIST) 9 | FAP GETA1 (LIST) 10 | MAD NLREC (LIST) 11 | FAP PRCODE (LIST) 12 | FAP IOB (LIST) 13 | FAP XMOD (LIST) 14 | MAD CRECAP (LIST) 15 | NCLOAD DSLOAD SLDTFC LIORDE LINTTB LRFLDC ASKOPR GETA1 NLREC (MORE) 16 | USE PRCODE IOB XMOD CRECAP 17 | SAVE DSLOAD 18 | -------------------------------------------------------------------------------- /src/daemon/ffsel.fap: -------------------------------------------------------------------------------- 1 | *IOPAC AND F.S. VERSIONS OF 'SELECT' AND 'CHECK' FOR IOA** AND IOB** 2 | ENTRY SELECT 3 | ENTRY CHECK 4 | REM 5 | SELECT TRA 1,4 6 | REM 7 | CHECK SXA XR4,4 8 | SXA XR2,2 9 | LXA XR4,2 10 | CAL 1,2 11 | SLW *+2 12 | AGAIN TSX $TPWAIT,4 13 | ** 14 | TRA REDUN 15 | TRA EOF 16 | LAC *-3,4 17 | XEC ETTX,4 18 | STL* 4,2 19 | XR4 AXT **,4 20 | XR2 AXT **,2 21 | TRA 5,4 22 | REM 23 | REDUN STL* 2,2 24 | TRA AGAIN 25 | REM 26 | EOF STL* 3,2 27 | TRA AGAIN 28 | REM 29 | ETTX EQU *-1 30 | ETTA 31 | ETTB 32 | REM 33 | END 34 | -------------------------------------------------------------------------------- /src/daemon/geta.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL COMPATIBILITY PACKAGE FOR STAND-ALONE DAAEMON 3 | LBL GETA1,X 4 | LINK ON 5 | ENTRY NGETA 6 | ENTRY GETA 7 | NGETA EQU * 8 | GETA XEC 1,7 EXECUTE INSTRUCTION 9 | TRA 2,7 RETURN 10 | END 11 | -------------------------------------------------------------------------------- /src/daemon/phase1.runcom: -------------------------------------------------------------------------------- 1 | MOVE DCMEQA FAP DCMEQB 2 | MOVE BCMEQA FAP BCMEQB 3 | FAP PH1 (LIST) (FLAG) NO 4 | FAP LIORDE (LIST) (FLAG) NO 5 | FAP LINTTB (LIST) (FLAG) NO 6 | FAP LRFLDC (LIST) (FLAG) NO 7 | FAP ASKOPR (LIST) 8 | FAP GETA (LIST) 9 | FAP SLEEP (LIST) 10 | MAD NLREC (LIST) 11 | FAP PRCODE (LIST) 12 | FAP IOB (LIST) 13 | FAP XMOD (LIST) 14 | FAP DPRT1B (LIST) 15 | FAP IOA1C (LIST) 16 | FAP FFSEL (LIST) 17 | -------------------------------------------------------------------------------- /src/daemon/phase2.runcom: -------------------------------------------------------------------------------- 1 | MOVE DCMEQA FAP DCMEQB 2 | MOVE BCMEQA FAP BCMEQB 3 | FAP SMAINC (LIST) (FLAG) NO 4 | FAP SLDTFC (LIST) (FLAG) NO 5 | FAP LIORDE (LIST) (FLAG) NO 6 | FAP LINTTB (LIST) (FLAG) NO 7 | FAP LRFLDC (LIST) (FLAG) NO 8 | FAP ASKOPR (LIST) 9 | FAP SLEEP (LIST) 10 | FAP GETA (LIST) 11 | MAD NLREC (LIST) 12 | FAP PRCODE (LIST) 13 | FAP IOB (LIST) 14 | FAP XMOD (LIST) 15 | MAD CRECAP (LIST) 16 | -------------------------------------------------------------------------------- /src/daemon/primer.runcom: -------------------------------------------------------------------------------- 1 | MOVE DCMEQA FAP DCMEQB 2 | MOVE BCMEQA FAP BCMEQB 3 | FAP PRIME (LIST) 4 | MAD CKDATE (LIST) 5 | FAP RCARD (LIST) 6 | FAP TPWAIT (LIST) 7 | FAP TIAS (LIST) 8 | FAP EXTKLU (LIST) 9 | -------------------------------------------------------------------------------- /src/daemon/sadump.runcom: -------------------------------------------------------------------------------- 1 | MOVE DCMEQA FAP DCMEQB 2 | MOVE BCMEQA FAP BCMEQB 3 | FAP SADPMN (LIST) (FLAG) NO 4 | FAP SDCYCA (LIST) 5 | FAP DPUSRB (LIST) (FLAG) NO 6 | FAP DDPFLB (LIST) (FLAG) NO 7 | FAP DDMAPB (LIST) (FLAG) NO 8 | FAP DFIOMB (LIST) (FLAG) NO 9 | FAP DERAZB (LIST) 10 | FAP SDKSTA (LIST) (FLAG) NO 11 | FAP DRSTRB (LIST) (FLAG) NO 12 | FAP DGDTMA (LIST) 13 | FAP PRCODE (LIST) 14 | MAD SETTIM (LIST) 15 | MAD NLREC (LIST) 16 | FAP XMOD (LIST) 17 | -------------------------------------------------------------------------------- /src/daemon/sdksta.fap: -------------------------------------------------------------------------------- 1 | * DUMMY REFER TO CORE A AND GET OPERATORS SIGNALS 2 | * 3 | ENTRY GETA 4 | ENTRY NGETA 5 | ENTRY GDSIG 6 | * 7 | * 8 | * 9 | GETA EQU * 10 | NGETA XEC 1,7 11 | TRA 2,7 12 | * 13 | GDSIG TRA 1,4 14 | END 15 | -------------------------------------------------------------------------------- /src/daemon/setup.fap: -------------------------------------------------------------------------------- 1 | TTL WIDRIG VERSION OF .SETUP 2 | LBL .SETUP,X 3 | ENTRY .SETUP 4 | EXTERN GETIME,CDATE 5 | REM 6 | REM THIS ROUTINE IS CALLED IMPLICITLY BY (MAIN) 7 | REM IT'S ONLY FUNCTION IS TO GIVE THE CURRENT DATE 8 | REM TO THE 'RLIBE' MODULE 9 | REM 10 | REM D.R. WIDRIG DEC. 1965 11 | .SETUP SXA IR4,4 SAVE CALLER 12 | TSX GETIME,4 GET CURRENT DATE 13 | STQ DATE SAVE IT 14 | TSX CDATE,4 GIVE DATE TO CONVERSION PACKAGE 15 | PTH DATE 16 | IR4 AXT **,4 RESTORE IR4 17 | TRA 1,4 RETURN TO MAIN PROGRAM 18 | REM 19 | REM 20 | DATE PZE 21 | END 22 | -------------------------------------------------------------------------------- /src/daemon/sleep.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL STAND-ALONE WRITE AROUND FOR SLEEP 3 | LBL SLEEP,X 4 | ENTRY SLEEP 5 | EXTERN GETIME 6 | SLEEP SXA IR4,4 7 | XCA 8 | MPY =60 9 | STQ OUTIME 10 | TSX GETIME,4 11 | ADD OUTIME 12 | STO OUTIME 13 | TEST TSX GETIME,4 14 | CAS OUTIME 15 | TRA SCRAM 16 | TRA SCRAM 17 | TRA TEST 18 | REM 19 | IR4 EQU * 20 | SCRAM AXT **,4 21 | TRA 1,4 22 | REM 23 | OUTIME PZE 24 | END 25 | -------------------------------------------------------------------------------- /src/daemon/strve.runcom: -------------------------------------------------------------------------------- 1 | MOVE DCMEQA FAP DCMEQB 2 | MOVE BCMEQA FAP BCMEQB 3 | MAD TRIEVE (LIST) 4 | MAD CKENT (LIST) 5 | MAD SETTAP (LIST) 6 | MAD DECIDE (LIST) 7 | MAD CKUFD (LIST) 8 | MAD LDFILE (LIST) 9 | MAD TDYFIL (LIST) 10 | MAD DELTAB (LIST) 11 | MAD RECAP (LIST) 12 | MAD TPREAD (LIST) 13 | MAD DCOUNT (LIST) 14 | MAD MAIL (LIST) 15 | MAD RLIBE (LIST) 16 | FAP UNIQUE (LIST) 17 | FAP SWT (LIST) 18 | FAP VALID (LIST) 19 | FAP S.STUP (LIST) 20 | MAD COMPAT (LIST) 21 | FAP TSSLIB (LIST) 22 | FAP IOHSIM (LIST) 23 | FAP RDCARD (LIST) 24 | -------------------------------------------------------------------------------- /src/daemon/swt.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL TEST OF ON-LINE SENSE SWITCHES 3 | LBL SWT,X 4 | ENTRY SWT 5 | REM 6 | REM THIS MODULE TESTS THE SENSE SWITCHES ON THE CONSOLE 7 | REM 8 | REM D.R. WIDRIG DEC. 1965 9 | REM 10 | SWT CAL* 1,4 GET SWITCH NUMBER 11 | ANA =O7 MAKE SURE IT IS NOT TOO BIG 12 | ORA SWT0 BLEND IN OP-CODE 13 | SLW *+1 PLANT IT 14 | *** ** TEST SWITCH 15 | ZAC UP, RETURN ZERO (BOOLEAN 0B) 16 | TRA 2,4 DOWN, RETURN BOOLEAN 1B 17 | REM 18 | SWT0 SWT 0 PROTOTYPE SWITCH TEST INSTRUCTION 19 | END 20 | -------------------------------------------------------------------------------- /src/daemon/tias.fap: -------------------------------------------------------------------------------- 1 | * TIAS USED BY THE DAEMON PRIMER (BACKGROUND VERSION) 2 | * R. A. ROACH 4/16/68 3 | * 4 | ENTRY SETIO 5 | ENTRY ATTACH 6 | ENTRY OPEN 7 | ENTRY BUFFER 8 | ENTRY WRFILE 9 | ENTRY CLOSE 10 | ENTRY CHFILE 11 | ENTRY DELFIL 12 | ENTRY WRFLX 13 | ENTRY PRINT 14 | SETIO XIT 2,4 15 | ATTACH TIA =HATTACH 16 | OPEN TIA =HOPEN 17 | BUFFER TIA =HBUFFER 18 | WRFILE TIA =HWRFILE 19 | CLOSE TIA =HCLOSE 20 | CHFILE TIA =HCHFILE 21 | DELFIL TIA =HDELFIL 22 | WRFLX TIA =HPRINT 23 | PRINT TIA =HPRINT 24 | END 25 | -------------------------------------------------------------------------------- /src/daemon/trieve.runcom: -------------------------------------------------------------------------------- 1 | MOVE BCMEQF FAP BCMEQB 2 | MOVE DCMEQF FAP DCMEQB 3 | MAD TRIEVE (LIST) 4 | MAD CKENT (LIST) 5 | MAD SETTAP (LIST) 6 | MAD DECIDE (LIST) 7 | MAD CKUFD (LIST) 8 | MAD LDFILE (LIST) 9 | MAD TDYFIL (LIST) 10 | MAD DELTAB (LIST) 11 | MAD RECAP (LIST) 12 | MAD TPREAD (LIST) 13 | MAD DCOUNT (LIST) 14 | MAD MAIL (LIST) 15 | MAD RLIBE (LIST) 16 | FAP UNIQUE (LIST) 17 | FAP SWT (LIST) 18 | FAP MOUNT (LIST) 19 | FAP SETUP (LIST) 20 | FAP VALID (LIST) 21 | NCLOAD TRIEVE CKENT SETTAP DECIDE CKUFD LDFILE TDYFIL DELTAB (MORE) 22 | USE RECAP TPREAD DCOUNT MAIL RLIBE UNIQUE SWT MOUNT SETUP VALID 23 | SAVE TREIVE 24 | -------------------------------------------------------------------------------- /src/daemon/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 ASKOPR BSS CKDATE BSS CKENT BSS CKUFD BSS COMPAT BSS 2 | UPDATE 1 CRECAP BSS DCOUNT BSS DDMAPB BSS DDPFLB BSS DECIDE BSS 3 | UPDATE 1 DELTAB BSS DERAZB BSS DFIOMB BSS DGDTMA BSS DPRT1B BSS 4 | UPDATE 1 DPUSRB BSS DRSTRB BSS FFSEL BSS GETA1 BSS IOA1C BSS IOB BSS 5 | UPDATE 1 IOHSIM BSS LDFILE BSS LINTTB BSS LIORDE BSS LRFLDC BSS 6 | UPDATE 1 MAIL BSS NLREC BSS PH1 BSS PRCODE BSS PRIME BSS RDCARD BSS 7 | UPDATE 1 RECAP BSS RLIBE BSS SADPMN BSS SDCYCA BSS SDKSTA BSS 8 | UPDATE 1 SETTAP BSS SETTIM BSS SLDTFC BSS SLEEP BSS SMAINC BSS 9 | UPDATE 1 S.STUP BSS SWT BSS TDYFIL BSS TPREAD BSS TRIEVE BSS TSSLIB BSS 10 | UPDATE 1 UNIQUE BSS VALID BSS XMOD BSS PRIM4B CTSSLD PSH14B CTSSLD 11 | UPDATE 1 PSH24B CTSSLD SDMP4 CTSSLD STRV4A CTSSLD 12 | -------------------------------------------------------------------------------- /src/daemon/xmod.fap: -------------------------------------------------------------------------------- 1 | * XMOD REMAINDERING ARG1(MOD ARG2) 2 | * CALLING SEQUENCE TSX XMOD,4 3 | * TXH ARG1(FIXED) 4 | * TXH ARG2(FIXED) 5 | * 3,4 RETURN 6 | * FUNCTION FIXED 7 | ENTRY XMOD 8 | XMOD CLM 9 | LDQ* 1,4 10 | LLS SIGN OF MQ TO AC 11 | DVP* 2,4 12 | TRA 3,4 13 | REM FUNCTION IN ARITHMETIC AC FIXED 14 | END 15 | -------------------------------------------------------------------------------- /src/debug/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/debug/EOF.BIN -------------------------------------------------------------------------------- /src/debug/addcon.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION(COM) 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84) 4 | R 5 | RADD COMMENT TO OUTPUT LIST 6 | R 7 | ENTRY TO ADDCOM. 8 | COUNT=COM 9 | R 10 | WHENEVER COUNT.L.1.OR.COUNT+LIST.G.83 11 | PRINT.(COM1) 12 | VECTOR VALUES COM1=32,$ADDCOM ERROR. CONSULT LISTINGS$ 13 | READY. 14 | END OF CONDITIONAL 15 | R 16 | THROUGH ADD,FOR WORD=1,1,0B 17 | BCD=COM(WORD) 18 | THROUGH ADD, FOR CHAR=1,1,CHAR.G.6 19 | WHENEVER COUNT.LE.0,FUNCTION RETURN 20 | LIST=LIST+1 21 | LIST(LIST)=BCD.A.77K10.V.$0$ 22 | BCD=BCD.LS.6 23 | ADD COUNT=COUNT-1 24 | END OF FUNCTION 25 | -------------------------------------------------------------------------------- /src/debug/argbcd.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (N) 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84),MAX,FROM(20) 4 | VECTOR VALUES CR=556060606060K 5 | R 6 | RPUTS BCD REQUEST ARGUMENTS IN FROM. 7 | RN IS MAX NUMBER ALLOWED FOR GIVEN REQUEST. 8 | R 9 | ENTRY TO ARGBCD. 10 | OSPACE. 11 | THROUGH GET, FOR MAX=1,1,MAX.G.N 12 | GETBCD.(FROM(MAX)) 13 | SPACE. 14 | GET WHENEVER LIST(LIST).E.CR,FUNCTION RETURN 15 | R 16 | MAX=N 17 | LIST=0 18 | ADDCOM.(COM1) 19 | VECTOR VALUES COM1=5,$ONLY $ 20 | ADDNUM.(N) 21 | ADDCOM.(COM2) 22 | VECTOR VALUES COM2=9,$ ARGUMENT$ 23 | WHENEVER N.NE.1,ADDCOM.(COM3) 24 | VECTOR VALUES COM3=1,$S$ 25 | ADDCOM.(COM4) 26 | VECTOR VALUES COM4=38,$ ALLOWED. THE REST HAVE$, 27 | 1$ BEEN IGNORED.$ 28 | CRTYPE. 29 | FUNCTION RETURN 30 | END OF FUNCTION 31 | -------------------------------------------------------------------------------- /src/debug/e.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84),MAX,FROM(20) 4 | R 5 | REXECUTE A CTSS COMAND 6 | R 7 | ENTRY TO E. 8 | ARGBCD.(19) 9 | R 10 | THROUGH A,FOR I=1,1,I.G.MAX 11 | A RTJUST.(FROM(I)) 12 | R 13 | FROM(MAX+1)=777777777777K 14 | XEQ.(1,FROM(1)) 15 | READY. 16 | R 17 | END OF FUNCTION 18 | -------------------------------------------------------------------------------- /src/debug/f.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84) 4 | R 5 | RTABLES OF PARAMETERS 6 | R 7 | VECTOR VALUES COUNT=3 8 | VECTOR VALUES BCD=$FORMAT$,$PATCH$,$MODE$ 9 | VECTOR VALUES GO=FORMAT.,PATCH.,MODE. 10 | R 11 | RFORCE THE VALUES OF INTERNAL PARAMETERS 12 | R 13 | ENTRY TO F. 14 | SPACE. 15 | GETNAM.(NAME) 16 | THROUGH FIND,FOR I=0,1,I.E.COUNT 17 | FIND WHENEVER NAME.E.BCD(I),GO(I). 18 | LIST=0 19 | ADDNAM.(NAME) 20 | ADDCOM.(COM1) 21 | VECTOR VALUES COM1=40,$ IS NOT A PARAMETER WHIC$, 22 | 1$H CAN BE FORCED.$ 23 | CRTYPE. 24 | READY. 25 | END OF FUNCTION 26 | -------------------------------------------------------------------------------- /src/debug/just.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION(X) 2 | NORMAL MODE IS INTEGER 3 | R 4 | RRIGHT JUSTIFY WORD IN X 5 | R 6 | ENTRY TO RTJUST. 7 | WHENEVER X.E.$ $,FUNCTION RETURN 8 | A WHENEVER X.A.77K.NE.$00000 $,FUNCTION RETURN 9 | X=$ 00000$.V.X.RS.6 10 | TRANSFER TO A 11 | R 12 | RLEFT JUSTIFY WORD IN X 13 | R 14 | ENTRY TO LTJUST. 15 | WHENEVER X.E.$ $,FUNCTION RETURN 16 | B WHENEVER X.RS.30.NE.$00000$,FUNCTION RETURN 17 | X=$00000 $.V.X.LS.6 18 | TRANSFER TO B 19 | END OF FUNCTION 20 | -------------------------------------------------------------------------------- /src/debug/oct.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (NUM) 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84) 4 | R 5 | RADD OCTAL NUMBER TO LIST FOR OUTPUT 6 | R 7 | ENTRY TO ADDOCT. 8 | OCT=NUM 9 | DIGITS=12 10 | R 11 | DROP WHENEVER OCT.RS.33.E.0.AND.DIGITS.G.1 12 | DIGITS=DIGITS-1 13 | OCT=OCT.LS.3 14 | TRANSFER TO DROP 15 | END OF CONDITIONAL 16 | R 17 | ADD DIGITS=DIGITS-1 18 | LIST=LIST+1 19 | LIST(LIST)=((OCT.A.7K11).RS.3).V.$0$ 20 | OCT=OCT.LS.3 21 | WHENEVER DIGITS.G.0,TRANSFER TO ADD 22 | R 23 | FUNCTION RETURN 24 | END OF FUNCTION 25 | -------------------------------------------------------------------------------- /src/debug/patch.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84),MAX,FROM(20),TO(20), 4 | 1FSUB(20),TSUB(20),USES(60),CURCOR,PATCH 5 | VECTOR VALUES PATCH=500 6 | VECTOR VALUES CR=556060606060K 7 | R 8 | RSET SIZE OF PATCH SPACE 9 | R 10 | ENTRY TO PATCH. 11 | SPACE. 12 | GETNUM.(NUM) 13 | SPACE. 14 | WHENEVER LIST(LIST).NE.CR,SYNTAX. 15 | WHENEVER NUM.L.4,NUM=4 16 | PATCH=NUM 17 | READY. 18 | END OF FUNCTION 19 | -------------------------------------------------------------------------------- /src/debug/t.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION 2 | NORMAL MODE IS INTEGER 3 | BOOLEAN CRP 4 | R 5 | RTRANSLATE THE PROGRAM BEING WORKED 6 | R 7 | ENTRY TO T. 8 | SPACE. 9 | WHENEVER .NOT.CRP.(0),SYNTAX. 10 | GWORK.(WORK) 11 | TRANS.(WORK) 12 | PRINT.(0) 13 | READY. 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/debug/w.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION 2 | NORMAL MODE IS INTEGER 3 | PROGRAM COMMON LIST(84),MAX,FROM(20) 4 | R 5 | RSET PROGRAM BEING WORKED 6 | R 7 | ENTRY TO W. 8 | ARGBCD.(1) 9 | SWORK.(FROM(1)) 10 | READY. 11 | END OF FUNCTION 12 | -------------------------------------------------------------------------------- /src/disk_booting.txt: -------------------------------------------------------------------------------- 1 | 2 | Note you must have a tape attached to mta2 this will get symbols of disk load. 3 | start sim. 4 | i7090 ctss.ini 5 | sim> att com # Attach com controller. 6 | sim> at cr0 mit.crd System to load command. 7 | sim> bo dk0 Boot LDTSS. 8 | MIT8C0--THE DATE AND TIME ARE 0118712326.2 9 | HALT instruction, IC: 00131 ( 076000000016 LMTM) 10 | sim> dep sw 3 To not start backup and FIB on bootup. 11 | sim> dep sw 0 To start both. 12 | sim> c 13 | 14 | To Shutdown. 15 | ^E 16 | sim> dep keys 40017 this logs everyone off. 17 | sim> c 18 | 19 | ^E after READ KEYS message. 20 | sim> dep keys 0 21 | sim> c 22 | 23 | ^E 24 | sim> dep keys 40032 After all users loged out. 25 | sim> c 26 | KEYS READ. 000000040032 AT 2334.3 27 | CTSS IS FINISHED. YOU MAY NOW CLEAR CORE. 28 | HALT instruction, IC: 02651 ( 000000002651 HTR 02651) 29 | sim> It is safe now to exit sim. 30 | 31 | -------------------------------------------------------------------------------- /src/dskedt/03200.fap: -------------------------------------------------------------------------------- 1 | * SIMULATE PAUSE FOR THE DISK EDITOR 2 | LINK ON 3 | ENTRY .03200 4 | EXTERN PRINT 5 | .03200 SXA XT,4 6 | STQ MQ 7 | TSX PRINT,4 8 | PZE MESS,,5 9 | LDQ MQ 10 | HTR *+1 STOP FOR THE OPERATOR 11 | XT AXT **,4 12 | TRA 1,4 13 | MQ PZE 14 | MESS BCI 5, PRESS START TO CONTINUE. 15 | END 16 | -------------------------------------------------------------------------------- /src/dskedt/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/dskedt/EOF.BIN -------------------------------------------------------------------------------- /src/dskedt/_sw_.mad: -------------------------------------------------------------------------------- 1 | DEFINE UNARY OPERATOR .SW., PRECEDENCE SAME AS .ABS. 2 | MODE STRUCTURE .SW. 1 TO 2 3 | JMP *+1,AC,*+2 4 | STO T 5 | JMP *+1,MQ,*+2 6 | STQ T 7 | JMP *+1,LA,*+2 8 | SLW T 9 | CAL B 10 | ANA =7 11 | ORA =76000000160K 12 | SLW LOC+2 13 | CLA C1 14 | PZE 15 | PXD 16 | OUT AC 17 | END 18 | R 19 | R 20 | DEFINE BINARY OPERATOR .ACL., PRECEDENCE SAME AS + 21 | MODE STRUCTURE 1 .ACL. 1 TO 1 22 | JMP *+7,AC,*+1 23 | JMP *+1,MQ,*+3 24 | JMP *+9,AT,*+1 25 | JMP *+10,BT,*+13 26 | JMP *+1,LA,*+4 27 | JMP *+4,AT,*+1 28 | JMP *+8,BT,*+12 29 | STO T 30 | CAL A 31 | ACL B 32 | OUT LAC 33 | XCL 34 | JMP *-3 35 | XCL 36 | ACL A 37 | OUT LAC 38 | STQ T 39 | JMP *-9 40 | SLW T 41 | JMP *-11 42 | END 43 | R 44 | R 45 | -------------------------------------------------------------------------------- /src/dskedt/adjprb.mad: -------------------------------------------------------------------------------- 1 | RPROGRAM TO ADJUST PROBNO TO FORM BANNNN 2 | EXTERNAL FUNCTION (A,B) 3 | ENTRY TO ADJPRB. 4 | T'H ADJ, FOR K = 1,1, K .G. MM(2) 5 | T = (A .A. M(K)) .RS. (36 - K*MM(1)) 6 | W'R T .E. 0 .OR. T .E. $00000 $, T'O ADJ 7 | A = T .LS. 24 .V. (A .A. MM(K+1)) .V. MM 8 | F'N A 9 | ADJ CONTINUE 10 | T'O B 11 | N'S INTEGER 12 | STATEMENT LABEL B 13 | V'S M = 0,2,77K8,77K6,77K4,77K2 14 | V'S MM = 60K10,6,5,77777777K,777777K,7777K,77K 15 | V'S T = 0 16 | E'N 17 | -------------------------------------------------------------------------------- /src/dskedt/comdsk.mad: -------------------------------------------------------------------------------- 1 | R...COMMON PACKAGE FOR DISK EDITOR -DSKEDT 2 | PROGRAM COMMON B4SWT,PRIVIL,CARSWT,PRNSWT 3 | PROGRAM COMMON PROB,PROG,FNAM1,FNAM2,MODE,C,ERCOD,DUM 4 | PROGRAM COMMON PROB1, PROG1, DATE,TIME,BUF 5 | FUNCTION NAME CTLF,EXIT 6 | DIMENSION C(14),BUF(864) 7 | V'S ONOFRT = 7 8 | V'S ONRT = 5 9 | V'S OFRT = 3 10 | V'S ONOF = 6 11 | V'S ON = 4 12 | V'S OF = 2 13 | V'S EOFCT = 0 14 | V'S MZE = -0 15 | V'S DSKEDT = $DSKEDT$ 16 | V'S FILE = $.FILE.$ 17 | V'S CRYMAP = $CRYMAP$ 18 | N'S INTEGER 19 | -------------------------------------------------------------------------------- /src/dskedt/corea.fap: -------------------------------------------------------------------------------- 1 | * ASSEMBLY FOR I/O IN CORE A 2 | -------------------------------------------------------------------------------- /src/dskedt/coreb.fap: -------------------------------------------------------------------------------- 1 | * ASSEMBLY FOR I/O IN CORE B 2 | BCORE 3 | -------------------------------------------------------------------------------- /src/dskedt/deccnv.fap: -------------------------------------------------------------------------------- 1 | * BCD TO BINARY CONVERSION WITH ZERO RETURNED IF ANY ALPHA CHARACTER 2 | LINK ON 3 | ENTRY DECCNV 4 | DECCNV SXA X4,4 5 | LDQ* 1,4 BCD RIGHT ADJUSTED 6 | STZ G 7 | AXT 6,4 8 | CNV ZAC 9 | LGL 2 FIND ZONE BITS 10 | TNZ ERRXT RETURN ZERO IF ALPHA 11 | LGL 4 DECIMAL DIGIT 12 | CNV1 ACL G PREVIOUS RESULT 13 | SLW G 14 | TNX X4,4,1 15 | ALS 2 TIMES 4 16 | ACL G TIMES 5 17 | ALS 1 TIMES 10 18 | SLW G SAVE RESULT 19 | TRA CNV 20 | ERRXT ZAC 21 | LGL 4 22 | TZE CNV1 23 | ZAC 24 | X4 AXT **,4 25 | TRA 2,4 26 | G PZE TEMP CELL 27 | END 28 | -------------------------------------------------------------------------------- /src/dskedt/extbkg.fap: -------------------------------------------------------------------------------- 1 | * M1416 3845 PETER R. BOS ..... .SETUP, EXIT FOR BACKGROUND PROGRAMS 2 | PCC ON 3 | NOLNK 4 | ENTRY .SETUP 5 | ENTRY EXIT 6 | LBL BKXT 7 | PCC OFF 8 | REM 9 | EXTERN PRINT 10 | REM 11 | .SETUP LMTM INITIAL ENTRY ROUTINE 12 | HTR *+1 PAUSE FOR OPERATOR 13 | TRA 1,4 RETURN 14 | REM 15 | EXIT TSX GETCOM,4 BACKGROUND COMMAND, GET NAME 16 | PAR 0 .. 17 | SLW MESG PUT INTO MESSAGE 18 | TSX PRINT,4 PRINT IT 19 | PZE MESG,,5 .. 20 | TSX DEAD,4 TERMINATE VIA SUPERVISOR 21 | TRA *-3 .. SHOULD NOT GET HERE 22 | REM 23 | MESG BCI 5,****** FINISHED, EXIT CALLED. 24 | GETCOM TIA =HGETCOM 25 | DEAD TIA =HDEAD 26 | REM 27 | END 28 | 29 | -------------------------------------------------------------------------------- /src/dskedt/getape.fap: -------------------------------------------------------------------------------- 1 | * ROUTINE TO SPACE OVER A 50 FOOT LEADER ON GE TAPE 2 | LINK ON 3 | ENTRY GETAPE 4 | EXTERN SCAN 5 | EXTERN DECCNV 6 | BCORE 7 | GETAPE SXA XT,4 8 | TSX SCAN,4 ARGUMENT FROM CARD OF HOW MANY RECORDS 9 | CLA =H 45 NO ARGUMENT ON CARD 10 | SLW N 11 | TSX DECCNV,4 BCD TO BINARY 12 | PZE N 13 | SLW N 14 | LXA N,4 HOW MANY 15 | RDS A2 16 | TCOA * 17 | NOP 18 | TIX *-3,4,1 19 | REW A2 20 | XT AXT **,4 21 | TRA 1,4 22 | A2 BOOL 1202 23 | N PZE 24 | END 25 | -------------------------------------------------------------------------------- /src/dskedt/iou.fap: -------------------------------------------------------------------------------- 1 | ENTRY (IOU) 2 | PZE PRINT 3 | PZE PUNCH 4 | PZE READ 5 | (IOU) PZE NTAPES 6 | PZE A1 7 | PZE A3 8 | PZE B4 9 | PZE A2 10 | NTAPES EQU *-(IOU)-1 11 | READ BOOL 1321 12 | PUNCH BOOL 1341 13 | PRINT BOOL 1361 14 | A1 BOOL 1201 15 | A2 BOOL 1202 16 | A3 BOOL 1203 17 | B4 BOOL 2204 18 | END 19 | -------------------------------------------------------------------------------- /src/dskedt/notes.txt: -------------------------------------------------------------------------------- 1 | SW 1 = Read Card reader. 2 | SW 2 = quit 3 | SW 3 = Do Daemon requests. 4 | SW 4 = Down read cards. (Tape A2) 5 | SW 6 - Up don't process temp request files, Down process all. 6 | -------------------------------------------------------------------------------- /src/dskedt/privl7.fap: -------------------------------------------------------------------------------- 1 | ENTRY PRIV 2 | PRIV CLA * 3 | TRA 1,4 4 | END 5 | -------------------------------------------------------------------------------- /src/dskedt/privlz.fap: -------------------------------------------------------------------------------- 1 | ENTRY PRIV 2 | PRIV ZAC 3 | TRA 1,4 4 | END 5 | -------------------------------------------------------------------------------- /src/dskedt/rquest.runcom: -------------------------------------------------------------------------------- 1 | MAD RQUEST (LIST) 2 | FAP CARDRQ (LIST) 3 | NCLOAD RQUEST CARDRQ (SYS) (LIBE) XLIBE 4 | SAVE RQUEST 5 | -------------------------------------------------------------------------------- /src/dskedt/setup.fap: -------------------------------------------------------------------------------- 1 | * SETUP ROUTINE FOR STAND-ALONE DISK-EDITOR 2 | TTL D.R. WIDRIG DEC. 1966 3 | REM 4 | ENTRY .SETUP 5 | ENTRY SETUP 6 | REM 7 | .SETUP EQU * 8 | HTR *+1 STOP FOR OPERATOR. 9 | SETUP SCA SX4,4 SAVE LINKAGE 10 | LMTM 7-TAG MODE FOR FILE SYSTEM 11 | TSX $SETIO,4 PREPARE FILE SYSTEM 12 | MZE =0 ZERO AUTHNO 13 | REM 14 | CLA PANIC SETUP FOR PANIC STOP 15 | STO 0 .. 16 | STO 28 (34)8 17 | REM 18 | SX4 AXC **,4 RESTORE LINKAGE 19 | TRA 1,4 20 | TTL PANIC AND EXIT ROUTINES 21 | PANIC TTR $EXIT HERE IN EMERGENCY 22 | REM 23 | END 24 | 25 | -------------------------------------------------------------------------------- /src/dskedt/sprdoc.fap: -------------------------------------------------------------------------------- 1 | * ROUTINE TO CONVERT FROM BIN TO SPREAD OCT AND VISA VERSA 2 | ENTRY SPRDOC 3 | ENTRY SOCTBN 4 | ENTRY LOC 5 | SPRDOC LDQ* 1,4 SPRDOC.(ARG) 6 | LGL 18 RETURN SPREAD OCTAL IN AC 7 | SXA X4,4 8 | AXT 6,4 ARG IS INTEGER 9 | ZAC 10 | ALS 3 11 | LGL 3 12 | TIX *-2,4,1 13 | X4 AXT **,4 14 | TRA 2,4 15 | * 16 | * OCT TO BIN SOCTBN.(ARG) 17 | * RETURN BINARY INTEGER IN AC 18 | SOCTBN SXA XX4,4 19 | CAL* 1,4 20 | AXT 6,4 21 | LGR 3 22 | ARS 3 23 | TIX *-2,4,1 24 | LGL 18 25 | XX4 AXT **,4 26 | TRA 2,4 27 | LOC LDQ 1,4 28 | TRA SPRDOC+1 29 | END 30 | -------------------------------------------------------------------------------- /src/dskedt/stmarg.fap: -------------------------------------------------------------------------------- 1 | *STMARG SUBROUTINE RE-CREATED FROM THE BINARY FOR DISK EDITOR 2 | *JANUARY 1966, L. ODLAND 3 | ENTRY STMARG 4 | STMARG CAL* 1,4 5 | STA TEMP 6 | ARS 18 7 | ANA =O77777 8 | TZE *+2 9 | SUB TEMP 10 | AXT -1,1 11 | TPL *+2 12 | AXT 1,1 13 | ACL =1 14 | ALS 18 15 | ORA TEMP 16 | TRA 2,4 17 | TEMP PZE 18 | END 19 | -------------------------------------------------------------------------------- /src/dskedt/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 DSKEDT BSS EDTBSS BSS EDTIOA BSS FLIPA BSS RCARDA BSS 2 | UPDATE 1 PRIVL7 BSS PRIVLZ BSS SETUP BSS SCNMF1 BSS CHRG.S BSS 3 | UPDATE 1 FILSYS BSS EDTR4D CTSSLD EDPV4D CTSSLD 4 | -------------------------------------------------------------------------------- /src/edit/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/edit/EOF.BIN -------------------------------------------------------------------------------- /src/edit/_mod_.mad: -------------------------------------------------------------------------------- 1 | DEFINE BINARY OPERATOR .MOD., PRECEDENCE SAME AS / 2 | MODE STRUCTURE 1 .MOD. 1 TO 1 3 | JMP *+1,AT,*+3 4 | JMP *+11,AC,*+1 5 | JMP *+12,LA,*+6 6 | JMP *+13,AC,*+1 7 | JMP *+2,MQ,*+1 8 | JMP *+13,LA,*+2 9 | STQ T 10 | LDQ A 11 | PXD 12 | LLS 0 13 | DVP B 14 | OUT AC 15 | XCA 16 | JMP *-5 17 | XCL 18 | JMP *-7 19 | STO T 20 | JMP *-10 21 | SLW T 22 | JMP *-12 23 | END 24 | -------------------------------------------------------------------------------- /src/edit/bin.fap: -------------------------------------------------------------------------------- 1 | * SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. 2 | * 3 | * J. H. SALTZER, MAY, 1966. 4 | LINK ON 5 | ENTRY BIN CONVERTER. 6 | BIN SXA IRR1,1 7 | STZ INT CLEAR RESULT. 8 | AXT 6,1 9 | LDQ* 1,4 GET ARGUMENT. 10 | LOP ZAC 11 | LGL 6 GET NEXT CHARACTER. 12 | LAS =10 SKIP OVER NON-DIGITS. 13 | TRA TIX 14 | TRA TIX 15 | STO DIG NUMBER, SAVE DIGIT. 16 | STQ TEM SAVE MQ FOR MULTIPLIACATION. 17 | LDQ INT GET OLD NUMBER. 18 | MPY =10 SHIFT. 19 | XCA 20 | ADD DIG ADD THIS DIGIT TO RESULT. 21 | STO INT SAVE, FOR NEXT PASS. 22 | LDQ TEM RESTORE MQ. 23 | TIX TIX LOP,1,1 24 | IRR1 AXT --,1 25 | CLA INT RESULT IN AC. 26 | TRA 2,4 27 | * 28 | INT 29 | DIG 30 | TEM 31 | * 32 | END 33 | -------------------------------------------------------------------------------- /src/edit/binval.mad: -------------------------------------------------------------------------------- 1 | R.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR 2 | R.. EDITING ASCII FILES. 3 | R 4 | EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 5 | NORMAL MODE IS INTEGER 6 | ENTRY TO GETVAL. 7 | BLANK = 060K 8 | TAB = 072K 9 | DEFALT = $ SAVED$ 10 | MCHNG = 055K 11 | REDS = 133K 12 | BLACKS = 132K 13 | FUNCTION RETURN 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/edit/eda.runcom: -------------------------------------------------------------------------------- 1 | MAD EDITOR (LIST) 2 | MAD EDAVAL (LIST) 3 | FAP WORDIO (LIST) (FLAG) NO 4 | FAP CLRNAM (LIST) (FLAG) NO 5 | FAP RENAME (LIST) (FLAG) NO 6 | FAP PRWORD (LIST) 7 | FAP BIN (LIST) 8 | FAP SETUP (LIST) 9 | NCLOAD SETUP EDITOR EDAVAL WORDIO CLRNAM RENAME PRWORD (MORE) 10 | USE BIN (SYS) (LIBE) ASCLIB 11 | SAVE EDA 12 | -------------------------------------------------------------------------------- /src/edit/edaval.mad: -------------------------------------------------------------------------------- 1 | R.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR 2 | R.. EDITING ASCII FILES. 3 | R 4 | EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, RED, BLACK) 5 | N'R 6 | E'O GETVAL. 7 | BLANK = 040K 8 | TAB = 011K 9 | DEFALT = $ ASCII$ 10 | MCHNG = 056K 11 | RED = 016K 12 | BLACK = 017K 13 | F'N 14 | E'N 15 | -------------------------------------------------------------------------------- /src/edit/edb.runcom: -------------------------------------------------------------------------------- 1 | MAD EDITOR (LIST) 2 | MAD BINVAL (LIST) 3 | MAD BINCON (LIST) 4 | FAP WORDIO (LIST) (FLAG) NO 5 | FAP CLRNAM (LIST) (FLAG) NO 6 | FAP RENAME (LIST) (FLAG) NO 7 | MAD 6TYP (LIST) 8 | FAP PRWORD (LIST) 9 | FAP BIN (LIST) 10 | FAP SETUP (LIST) 11 | NCLOAD SETUP EDITOR BINVAL BINCON WORDIO CLRNAM RENAME (MORE) 12 | USE 6TYP PRWORD BIN 13 | SAVE EDB 14 | -------------------------------------------------------------------------------- /src/edit/edc.runcom: -------------------------------------------------------------------------------- 1 | MAD EDITCD (LIST) 2 | MAD EDLVAL (LIST) 3 | MAD 6CONCD (LIST) 4 | FAP WORDIO (LIST) (FLAG) NO 5 | FAP CLRNAM (LIST) (FLAG) NO 6 | FAP RENAME (LIST) (FLAG) NO 7 | MAD 6TYP (LIST) 8 | FAP PRWORD (LIST) 9 | FAP BIN (LIST) 10 | FAP SETUP (LIST) 11 | NCLOAD SETUP EDITCD EDLVAL 6CONCD WORDIO CLRNAM RENAME (MORE) 12 | USE 6TYP PRWORD BIN 13 | SAVE EDC 14 | -------------------------------------------------------------------------------- /src/edit/edit_x.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 26' 2 | echo -n > edit_src.bcd 3 | for i in 0qed.fap 1qed.fap 2qed.fap bin.fap clrnam.fap cnvtbl.fap devtbl.fap qed.fap \ 4 | rename.fap setup.fap setops.fap write6.fap prword.fap wrword.fap zcmd.fap \ 5 | initdt.fap writ12.fap ; do 6 | NAME=`basename $i .fap | sed 's/_/./g'` 7 | obj2img -A -a "$USER" -t -f $NAME -e 'FAP' -o tmp.img $i 8 | cat tmp.img >> edit_src.bcd 9 | done 10 | for i in 6concd.mad bincon.mad binval.mad edaval.mad editcd.mad edlval.mad editor.mad \ 11 | _mod_.mad 6typ.mad typval.mad 12typ.mad reund.mad ; do 12 | NAME=`basename $i .mad | sed 's/_/./g'` 13 | obj2img -A -a "$USER" -t -c -f $NAME -e 'MAD' -o tmp.img $i 14 | cat tmp.img >> edit_src.bcd 15 | done 16 | obj2img -A -a "$USER" -t -f edit -e 'RUNCOM' -o tmp.img edit.runcom 17 | cat tmp.img >> edit_src.bcd 18 | awk '{x=" " $1; print substr(x,length(x)-5,6) " BCD I'"$USER"'"}' edit.dat >edt_ext.dat 19 | #cat EOF.BIN >>edit_src.bcd 20 | rm tmp.img 21 | -------------------------------------------------------------------------------- /src/edit/edl.runcom: -------------------------------------------------------------------------------- 1 | MAD EDITOR (LIST) 2 | MAD EDLVAL (LIST) 3 | FAP LMIO6 (LIST) 4 | FAP WORDIO (LIST) (FLAG) NO 5 | FAP CLRNAM (LIST) (FLAG) NO 6 | FAP RENAME (LIST) (FLAG) NO 7 | MAD 6TYP (LIST) 8 | FAP PRWORD (LIST) 9 | FAP BIN (LIST) 10 | FAP SETUP (LIST) 11 | NCLOAD SETUP EDITOR EDLVAL LMIO6 WORDIO CLRNAM RENAME (MORE) 12 | USE 6TYP PRWORD BIN 13 | SAVE EDL 14 | -------------------------------------------------------------------------------- /src/edit/edlval.mad: -------------------------------------------------------------------------------- 1 | R.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR 2 | R.. EDITING ASCII FILES. 3 | R 4 | EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 5 | NORMAL MODE IS INTEGER 6 | ENTRY TO GETVAL. 7 | BLANK = 060K 8 | TAB = 072K 9 | DEFALT = $ MAD$ 10 | MCHNG = 055K 11 | REDS = 133K 12 | BLACKS = 132K 13 | FUNCTION RETURN 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/edit/p.runcom: -------------------------------------------------------------------------------- 1 | MAD P (LIST) 2 | FAP OPENW (LIST) 3 | FAP OPENF (LIST) 4 | FAP ASCTSS (LIST) 5 | FAP PNTLIN (LIST) 6 | NCLOAD P OPENW OPENF ASCTSS PNTLIN (SYS) (LIBE) XLIBE 7 | SAVE P 8 | -------------------------------------------------------------------------------- /src/edit/print.runcom: -------------------------------------------------------------------------------- 1 | MAD PRINT (LIST) 2 | FAP UNPNR (LIST) 3 | FAP PAKNR (LIST) 4 | NCLOAD PRINT UNPNR PAKNR (SYS) (LIBE) XLIBE 5 | SAVE PRINT 6 | -------------------------------------------------------------------------------- /src/edit/prnter.runcom: -------------------------------------------------------------------------------- 1 | FAP PRNTER (LIST) 2 | FAP PRER (LIST) 3 | NCLOAD PRNTER PRER (SYS) (LIBE) XLIBE 4 | SAVE PRNTER 5 | -------------------------------------------------------------------------------- /src/edit/qed.fap: -------------------------------------------------------------------------------- 1 | MAIN TRA* $QED 2 | END 3 | -------------------------------------------------------------------------------- /src/edit/qed.runcom: -------------------------------------------------------------------------------- 1 | FAP QED (LIST) 2 | FAP 0QED (LIST) 3 | FAP SETOPS (LIST) 4 | FAP DEVTBL (LIST) 5 | FAP CNVTBL (LIST) 6 | FAP INITDT (LIST) 7 | FAP ZCMD (LIST) 8 | NCLOAD QED 0QED SETOPS DEVTBL CNVTBL INITDT ZCMD 9 | SAVE QED 10 | -------------------------------------------------------------------------------- /src/edit/typset.runcom: -------------------------------------------------------------------------------- 1 | MAD EDITOR (LIST) 2 | MAD TYPVAL (LIST) 3 | FAP LMIO12 (LIST) 4 | FAP WORDIO (LIST) (FLAG) NO 5 | FAP CLRNAM (LIST) (FLAG) NO 6 | FAP RENAME (LIST) (FLAG) NO 7 | MAD 12TYP (LIST) 8 | MAD REUND (LIST) 9 | FAP PRWORD (LIST) 10 | FAP BIN (LIST) 11 | FAP SETUP (LIST) 12 | NCLOAD SETUP EDITOR TYPVAL LMIO12 WORDIO CLRNAM RENAME (MORE) 13 | USE 12TYP REUND PRWORD BIN 14 | SAVE TYPSET 15 | -------------------------------------------------------------------------------- /src/edit/typval.mad: -------------------------------------------------------------------------------- 1 | R.. ROUTINE TO RETURN INITIAL VALUES TO EDITOR FOR 2 | R.. EDITING ASCII FILES. 3 | R 4 | EXTERNAL FUNCTION(BLANK, TAB, DEFALT, MCHNG, REDS, BLACKS) 5 | NORMAL MODE IS INTEGER 6 | ENTRY TO GETVAL. 7 | BLANK = 060K 8 | TAB = 072K 9 | DEFALT = $(MEMO)$ 10 | MCHNG = 055K 11 | REDS = 133K 12 | BLACKS = 132K 13 | FUNCTION RETURN 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/edit/wmacs.fap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/edit/wmacs.fap -------------------------------------------------------------------------------- /src/fib/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/fib/EOF.BIN -------------------------------------------------------------------------------- /src/fib/delfib.runcom: -------------------------------------------------------------------------------- 1 | MAD DELFIB (LIST) 2 | NCLOAD DELFIB 3 | SAVE DELFIB 4 | -------------------------------------------------------------------------------- /src/fib/fib.runcom: -------------------------------------------------------------------------------- 1 | MAD FIB (LIST) 2 | NCLOAD FIB (SYS) (LIBE) XLIBE 3 | SAVE FIB 4 | -------------------------------------------------------------------------------- /src/fib/fib.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 27' 2 | echo -n > fib_src.bcd 3 | echo -n > fib_ext.dat 4 | for i in delfib.mad fib.mad fibmon.mad prfib.mad setfib.mad ; do 5 | NAME=`basename $i .mad | sed 's/_/./g'` 6 | obj2img -A -a "$USER" -t -c -f $NAME -e 'MAD' -o tmp.img $i 7 | cat tmp.img >> fib_src.bcd 8 | done 9 | for i in delfib.runcom fibmon.runcom fib.runcom prfib.runcom \ 10 | setfib.runcom ; do 11 | NAME=`basename $i .runcom | sed 's/_/./g'` 12 | obj2img -A -a "$USER" -t -f $NAME -e 'RUNCOM' -o tmp.img $i 13 | cat tmp.img >> fib_src.bcd 14 | grep '(LIST)' $i \ 15 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BCD I'"$USER"'"}' >>fib_ext.dat 16 | done 17 | #cat EOF.BIN >>fib_src.bcd 18 | rm tmp.img 19 | -------------------------------------------------------------------------------- /src/fib/fibmon.runcom: -------------------------------------------------------------------------------- 1 | MAD FIBMON (LIST) 2 | NCLOAD FIBMON 3 | SAVE FIBMON 4 | -------------------------------------------------------------------------------- /src/fib/prfib.runcom: -------------------------------------------------------------------------------- 1 | MAD PRFIB (LIST) 2 | NCLOAD PRFIB (SYS) (LIBE) XLIBE 3 | SAVE PRFIB 4 | -------------------------------------------------------------------------------- /src/fib/setfib.runcom: -------------------------------------------------------------------------------- 1 | MAD SETFIB (LIST) 2 | NCLOAD SETFIB 3 | SAVE SETFIB 4 | -------------------------------------------------------------------------------- /src/filsim/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/filsim/EOF.BIN -------------------------------------------------------------------------------- /src/filsim/filsim.runcom: -------------------------------------------------------------------------------- 1 | fap fsetup (LIST) 2 | fap iopac (LIST) 3 | fap enable (LIST) 4 | fap ddfap (LIST) 5 | mad ddmad (LIST) 6 | fap trac (LIST) 7 | fap supcal (LIST) 8 | fap fprnte (LIST) 9 | fap exitsm (LIST) 10 | -------------------------------------------------------------------------------- /src/filsim/filsim.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 28' 2 | echo -n > filsim_src.bcd 3 | for i in bprint.fap ddfap.fap enable.fap exitsm.fap fprnte.fap fsetup.fap iopac.fap \ 4 | pack.fap prntsm.fap ssetup.fap supcal.fap trac.fap ; do 5 | NAME=`basename $i .fap | sed 's/_/./g'` 6 | obj2img -A -a "$USER" -t -f $NAME -e 'FAP' -o tmp.img $i 7 | cat tmp.img >> filsim_src.bcd 8 | done 9 | for i in ddmad.mad sldioi.mad ; do 10 | NAME=`basename $i .mad | sed 's/_/./g'` 11 | obj2img -A -a "$USER" -t -f $NAME -e 'MAD' -o tmp.img $i 12 | cat tmp.img >> filsim_src.bcd 13 | done 14 | obj2img -A -a "$USER" -t -f filsim -e 'RUNCOM' -o tmp.img filsim.runcom 15 | cat tmp.img >> filsim_src.bcd 16 | obj2img -A -a "$USER" -t -f salsim -e 'RUNCOM' -o tmp.img salsim.runcom 17 | cat tmp.img >> filsim_src.bcd 18 | #cat EOF.BIN >>filsim_src.bcd 19 | rm tmp.img 20 | -------------------------------------------------------------------------------- /src/filsim/prntsm.fap: -------------------------------------------------------------------------------- 1 | * PRNTSM - WRITE-AROUND FROM '(PRNT)' TO WRFLX 2 | ENTRY (PRNT) 3 | REM 4 | EXTERN WRFLXA,WRFLX 5 | REM 6 | (PRNT) SXA PX4,4 7 | SXA PX1,1 8 | CAL 1,4 9 | STA PRNT1+1 10 | PDX ,1 11 | TIX PRNT1,1,14 12 | CAL PRNT1+1 13 | PRNT2 STA *+3 14 | SXD *+2,1 15 | TSX WRFLX,4 16 | **,,** 17 | PX1 AXT **,1 18 | PX4 AXT **,4 19 | TRA 2,4 20 | REM 21 | PRNT1 TSX WRFLXA,4 22 | **,,14 23 | CAL PRNT1+1 24 | ADD =14 25 | STA PRNT1+1 26 | TIX PRNT1,1,14 27 | TRA PRNT2 28 | REM 29 | END 30 | -------------------------------------------------------------------------------- /src/filsim/salsim.runcom: -------------------------------------------------------------------------------- 1 | FAP SSETUP (LIST) 2 | MAD SLDIOI (LIST) 3 | MAD DDMAD (LIST) 4 | FAP PACK (LIST) 5 | FAP FPRNTE (LIST) 6 | FAP BPRINT (LIST) 7 | FAP PRNTSM (LIST) 8 | FAP SUPCAL (LIST) 9 | -------------------------------------------------------------------------------- /src/fsys4d/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/fsys4d/EOF.BIN -------------------------------------------------------------------------------- /src/fsys4d/fsa.runcom: -------------------------------------------------------------------------------- 1 | MOVE IOEQUA FAP IOEQU FAP 2 | FAP FCOR2O (LIST) 3 | FAP SEAR2B (LIST) 4 | FAP SRCH2A (LIST) 5 | FAP SCND4A (LIST) 6 | FAP TRAC2A (LIST) 7 | FAP STIK2E (LIST) 8 | FAP PUSH2A (LIST) 9 | FAP BUCM2E (LIST) 10 | FAP IOCM2E (LIST) 11 | FAP QMAN2B (LIST) 12 | FAP DDST2I (LIST) 13 | FAP TMAN4A (LIST) 14 | FAP DDAP4C (LIST) 15 | FAP TPSM2Q (LIST) 16 | FAP TPAP2H (LIST) 17 | -------------------------------------------------------------------------------- /src/fsys4d/fsb.runcom: -------------------------------------------------------------------------------- 1 | MOVE IOEQUB FAP IOEQU FAP 2 | FAP LOADTS (LIST) 3 | FAP FCOR2O (LIST) 4 | FAP SEAR2B (LIST) 5 | FAP SRCH2A (LIST) 6 | FAP SCND4A (LIST) 7 | FAP TRACB (LIST) 8 | FAP STIK2E (LIST) 9 | FAP PUSH2A (LIST) 10 | FAP BUCM2E (LIST) 11 | FAP IOCM2E (LIST) 12 | FAP QMAN2B (LIST) 13 | FAP DDST2I (LIST) 14 | FAP TMAN4A (LIST) 15 | FAP DDAPB (LIST) 16 | FAP TPST2A (LIST) 17 | FAP TPAPDM (LIST) 18 | COMBIN * FSYB4D BSS FCOR2O SEAR2B SRCH2A SCND4A TRACB STIK2E PUSH2A 19 | COMBIN * FSYB4D BSS FSYB4D BUCM2E IOCM2E QMAN2B DDST2I TMAN4A DDAPB 20 | COMBIN * FSYB4D BSS FSYB4D TPST2A TPAPDM 21 | -------------------------------------------------------------------------------- /src/fsys4d/fsb.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416GUEST ' 2 | echo -n > fsb_src.bcd 3 | for i in bucm2e.fap cma.d.fap cmb.c.fap cmm.d.fap cmq.c.fap cmv.c.fap ddap4c.fap \ 4 | ddapb.fap ddst2i.fap fcor2o.fap iocm2e.fap ioequa.fap ioequb.fap loadts.fap \ 5 | push2a.fap qman2b.fap scnd4a.fap sear2b.fap sm1a.i.fap sm1b.g.fap sm1e.d.fap \ 6 | sm1m.c.fap sm1v.f.fap srch2a.fap stik2e.fap stmequ.fap stmmac.fap stm.mc.fap \ 7 | tman4a.fap tpap2h.fap tpapdm.fap tpsm2q.fap tpst2a.fap trac2a.fap tsmequ.fap \ 8 | tracb.fap ; do 9 | NAME=`basename $i .fap | sed 's/_/./g'` 10 | obj2img -A -a "$USER" -t -f $NAME -e 'FAP' -o tmp.img $i 11 | cat tmp.img >> fsb_src.bcd 12 | done 13 | obj2img -A -a "$USER" -t -f fsb -e 'RUNCOM' -o tmp.img fsb.runcom 14 | cat tmp.img >> fsb_src.bcd 15 | obj2img -A -a "$USER" -t -f fsa -e 'RUNCOM' -o tmp.img fsa.runcom 16 | cat tmp.img >> fsb_src.bcd 17 | #cat EOF.BIN >>fsb_src.bcd 18 | rm tmp.img 19 | -------------------------------------------------------------------------------- /src/fsys4d/ioequ.fap: -------------------------------------------------------------------------------- 1 | ioequa.fap -------------------------------------------------------------------------------- /src/fsys4d/ldtss.ctssld: -------------------------------------------------------------------------------- 1 | LOADTS 2 | IOPB2C 3 | IOCONV 4 | PRNTER 5 | FCOR2O 6 | SEAR2B 7 | SRCH2A 8 | SCND4A 9 | TRACB 10 | STIK2E 11 | PUSH2A 12 | BUCM2E 13 | IOCM2E 14 | QMAN2B 15 | DDST2I 16 | TMAN4A 17 | DDAPB 18 | TPST2A 19 | TPAPDM 20 | -------------------------------------------------------------------------------- /src/fsys4d/ldtss.runcom: -------------------------------------------------------------------------------- 1 | NCLOAD LOADTS IOPB2C IOCONV PRNTER FCOR2O SEAR2B SRCH2A SCND4A (MORE) 2 | USE TRACB STIK2E PUSH2A BUCM2E IOCM2E QMAN2B DDST2I TMAN4A DDAPB (MORE) 3 | USE TPST2A TPAPDM (NLIB) 4 | -------------------------------------------------------------------------------- /src/fsys4d/tpapdm.fap: -------------------------------------------------------------------------------- 1 | TTL TPAPDM --- DUMMY TAPE ADAPTER 2 | LINK OFF 3 | ENTRY TRAPA DUMMY ENTRY FOR CHANNEL 'A' TRAPS 4 | ENTRY TRAPB .. CHANNEL 'B' 5 | REM 6 | TRAPA SYN * .. 7 | TRAPB SYN * .. 8 | REM 9 | TRA 3,4 NO ADAPTER, IGNORE CHANNEL A, B TRAPS 10 | REM 11 | END 12 | -------------------------------------------------------------------------------- /src/fsys4d/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 FCOR2O BSS SEAR2B BSS SRCH2A BSS SCND4A BSS TRAC2A BSS 2 | UPDATE 1 STIK2E BSS PUSH2A BSS BUCM2E BSS IOCM2E BSS QMAN2B BSS 3 | UPDATE 1 DDST2I BSS TMAN4A BSS DDAP4C BSS TPSM2Q BSS TPAP2H BSS 4 | UPDATE 1 FSYS4A CTSSLD 5 | -------------------------------------------------------------------------------- /src/ld_ext1.dat: -------------------------------------------------------------------------------- 1 | LOAD BCD I M1416 39 2 | -------------------------------------------------------------------------------- /src/ld_ext2.dat: -------------------------------------------------------------------------------- 1 | LOAD ABS I M1416 39 2 | -------------------------------------------------------------------------------- /src/ldtss_ext.dat: -------------------------------------------------------------------------------- 1 | LOADTS ABS B M1416 29 2 | -------------------------------------------------------------------------------- /src/links.dat: -------------------------------------------------------------------------------- 1 | LOADGOTSSDC. M1416CMFL02 LOADTSSDC. 2 | NCLOADTSSDC. M1416CMFL02 LOADTSSDC. 3 | VLOADTSSDC. M1416CMFL02 LOADTSSDC. 4 | APNDTSSDC. M1416CMFL02 MOVETSSDC. 5 | COPYTSSDC. M1416CMFL02UPDATETSSDC. 6 | CHMODETSSDC. M1416CMFL02UNLINKTSSDC. 7 | DELETETSSDC. M1416CMFL02UNLINKTSSDC. 8 | RENAMETSSDC. M1416CMFL02UNLINKTSSDC. 9 | UMOUNTTSSDC. M1416CMFL02 MOUNTTSSDC. 10 | LABELTSSDC. M1416CMFL02VERIFYTSSDC. 11 | -------------------------------------------------------------------------------- /src/login/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/login/EOF.BIN -------------------------------------------------------------------------------- /src/login/_xor_.mad: -------------------------------------------------------------------------------- 1 | DEFINE BINARY OPERATOR .XOR., PRECEDENCE SAME AS .A. 2 | MODE STRUCTURE 1 .XOR. 1 TO 1 3 | JMP *+1,LA,*+3 4 | JMP *+15,AT,*+1 5 | JMP *+17,BT,*+9 6 | JMP *+1,MQ,*+3 7 | JMP *+9,AT,*+1 8 | JMP *+13,BT,*+4 9 | JMP *+1,AC,*+9 10 | STO T 11 | JMP *+7 12 | STQ T 13 | JMP *+5 14 | SLW T 15 | JMP *+3 16 | XCL 17 | JMP *+2 18 | CAL A 19 | ERA B 20 | OUT LAC 21 | XCL 22 | ERA A 23 | OUT LAC 24 | END 25 | -------------------------------------------------------------------------------- /src/login/admin.runcom: -------------------------------------------------------------------------------- 1 | MAD ADMIN (LIST) 2 | FAP ADUTIL (LIST) 3 | FAP DELTEM (LIST) 4 | LINK TSLIB1 BSS M1416 CMFL04 5 | EXTBSS TSLIB1 PRFULL 6 | NCLOAD ADMIN ADUTIL DELTEM PRFULL (SYS) (LIBE) XLIBE 7 | SAVE ADMIN 8 | UNLINK TSLIB1 BSS 9 | DELETE PRFULL BSS 10 | -------------------------------------------------------------------------------- /src/login/dial.runcom: -------------------------------------------------------------------------------- 1 | FAP DIAL (LIST) 2 | NCLOAD DIAL LOGLIB 3 | SAVE DIAL 4 | -------------------------------------------------------------------------------- /src/login/hello.runcom: -------------------------------------------------------------------------------- 1 | FAP HELLO (LIST) 2 | NCLOAD HELLO LOGLIB (SYS) (LIBE) XLIBE 3 | SAVE HELLO 4 | -------------------------------------------------------------------------------- /src/login/init.runcom: -------------------------------------------------------------------------------- 1 | FAP INIT (LIST) 2 | NCLOAD INIT SETERR SVCPU GETA LOGUTL 3 | SAVE INIT 4 | -------------------------------------------------------------------------------- /src/login/login.runcom: -------------------------------------------------------------------------------- 1 | FAP COM000 (LIST) 2 | FAP LOGIN (LIST) 3 | NCLOAD LOGIN LOGOUT REPORT LOGLIB (SYS) (LIBE) XLIBE 4 | SAVE LOGIN 5 | -------------------------------------------------------------------------------- /src/login/loglib.runcom: -------------------------------------------------------------------------------- 1 | FAP REPORT (LIST) 2 | FAP LOGUTL (LIST) 3 | FAP MESSG (LIST) 4 | FAP DELTEM (LIST) 5 | FAP GTPROB (LIST) 6 | FAP GTPASS (LIST) 7 | FAP GETA (LIST) 8 | FAP SETERR (LIST) 9 | FAP SVCPU (LIST) 10 | COMBIN * LOGLIB BSS MESSG DELTEM GTPROB GTPASS GETA SETERR SVCPU 11 | COMBIN * LOGLIB BSS LOGLIB LOGUTL 12 | -------------------------------------------------------------------------------- /src/login/logout.runcom: -------------------------------------------------------------------------------- 1 | FAP LOGMAI (LIST) 2 | FAP LOGOUT (LIST) 3 | NCLOAD LOGMAI LOGOUT REPORT LOGLIB (SYS) (LIBE) XLIBE 4 | SAVE LOGOUT 5 | -------------------------------------------------------------------------------- /src/login/logutl.fap: -------------------------------------------------------------------------------- 1 | * UTILITY ENTRIES FOR LOGIN/LOGOUT 2 | REM 3 | ENTRY ISIN 4 | ENTRY FINDSB 5 | ENTRY KILL 6 | ENTRY NOTIM 7 | ENTRY LDOPT 8 | ENTRY HNGUSR 9 | ENTRY PRINT 10 | ENTRY SCHEDL 11 | ENTRY WSCOPE 12 | ENTRY CLOCIN 13 | ENTRY VACUUM 14 | ENTRY ENTLIN 15 | REM 16 | ISIN TIA =HISIN 17 | FINDSB TIA =HFINDSB 18 | KILL TIA =HKILL 19 | NOTIM TIA =HNOTIM 20 | LDOPT TIA =HLDOPT 21 | HNGUSR TIA =HHNGUSR 22 | PRINT TIA =HPRINT 23 | SCHEDL TIA =HSCHEDL 24 | WSCOPE TIA =HWSCOPE 25 | CLOCIN TIA =HCLOCIN 26 | VACUUM TIA =HVACUUM 27 | ENTLIN TIA =HENTLIN 28 | END 29 | -------------------------------------------------------------------------------- /src/login/ttpeek.runcom: -------------------------------------------------------------------------------- 1 | FAP TTPEEK (LIST) 2 | NCLOAD TTPEEK 3 | SAVE TTPEEK 4 | -------------------------------------------------------------------------------- /src/login/who.runcom: -------------------------------------------------------------------------------- 1 | MAD WHO1 (LIST) 2 | FAP GTPROB (LIST) 3 | NCLOAD WHO1 LOGLIB (SYS) (LIBE) XLIBE 4 | SAVE WHO 5 | -------------------------------------------------------------------------------- /src/madtrn/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/madtrn/EOF.BIN -------------------------------------------------------------------------------- /src/madtrn/madtrn.fap: -------------------------------------------------------------------------------- 1 | TTL DUMMY ROUTINE FOR MAD PROGRAMS 2 | LBL DUMMY 3 | TSX $MADTRN,4 CALL MAD PROGRAM 4 | PTH 0 PASS ABSOLUTE ZERO 5 | TSX $DORMNT,4 STOP IF RETURN 6 | END 7 | -------------------------------------------------------------------------------- /src/madtrn/madtrn.runcom: -------------------------------------------------------------------------------- 1 | MAD MRRP (LIST) 2 | MAD MFNS (LIST) 3 | MAD IOP9 (LIST) 4 | MAD MTR2 (LIST) 5 | MAD MTRN (LIST) 6 | FAP MLIB (LIST) 7 | FAP MADTRN (LIST) 8 | VLOAD MRRP MADTRN MFNS IOP9 MTR2 MTRN MLIB (SYS) (LIBE) XLIBE 9 | SAVE MADTRN 10 | -------------------------------------------------------------------------------- /src/madtrn/madtrn.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 31' 2 | echo -n > mad_src.bcd 3 | echo -n > mad_ext.dat 4 | for i in mlib.fap madtrn.fap ; do 5 | NAME=`basename $i .fap | sed 's/_/./g'` 6 | obj2img -A -a "$USER" -t -f $NAME -e 'FAP' -o tmp.img $i 7 | cat tmp.img >> mad_src.bcd 8 | done 9 | for i in iop9.mad mfns.mad mrrp.mad mtr2.mad mtrn.mad tdfev.mad ; do 10 | NAME=`basename $i .mad | sed 's/_/./g'` 11 | obj2img -A -a "$USER" -t -c -f $NAME -e 'MAD' -o tmp.img $i 12 | cat tmp.img >> mad_src.bcd 13 | done 14 | for i in primes.f ; do 15 | NAME=`basename $i .f | sed 's/_/./g'` 16 | obj2img -A -a "$USER" -t -f $NAME -e 'MADTRN' -o tmp.img $i 17 | cat tmp.img >> mad_src.bcd 18 | done 19 | for i in madtrn.runcom ; do 20 | NAME=`basename $i .runcom | sed 's/_/./g'` 21 | obj2img -A -a "$USER" -t -f $NAME -e 'RUNCOM' -o tmp.img $i 22 | cat tmp.img >> mad_src.bcd 23 | grep '(LIST)' $i \ 24 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BCD I'"$USER"'"}' >>mad_ext.dat 25 | done 26 | #cat EOF.BIN >>mad_src.bcd 27 | rm tmp.img 28 | -------------------------------------------------------------------------------- /src/madtrn/tdfev.mad: -------------------------------------------------------------------------------- 1 | DEFINE BINARY OPERATOR .EV., PRECEDENCE SAME AS .V. 2 | MODE STRUCTURE 1 .EV. 1 TO 1 3 | JMP *+7,AC,*+1 4 | JMP *+1,MQ,*+3 5 | JMP *+9,AT,*+1 6 | JMP *+10,BT,*+13 7 | JMP *+1,LA,*+4 8 | JMP *+4,AT,*+1 9 | JMP *+8,BT,*+12 10 | STO T 11 | CAL A 12 | ERA B 13 | OUT LAC 14 | XCL 15 | JMP *-3 16 | XCL 17 | ERA A 18 | OUT LAC 19 | STQ T 20 | JMP *-9 21 | SLW T 22 | JMP *-11 23 | END 24 | -------------------------------------------------------------------------------- /src/misc/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/EOF.BIN -------------------------------------------------------------------------------- /src/misc/grpuni.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/grpuni.img -------------------------------------------------------------------------------- /src/misc/grpuni.timacc: -------------------------------------------------------------------------------- 1 | 000001000001 2 | 000001000001000002000003000004 3 | -------------------------------------------------------------------------------- /src/misc/mk.sh: -------------------------------------------------------------------------------- 1 | obj2img -A -u -f UFD -e DATA -o ufd.img ufd.dat 2 | obj2img -A -t -f GRPUNI -e TIMACC -o grpuni.img grpuni.timacc 3 | obj2img -A -t -f PRTYGP -e TIMACC -o prtygp.img prtygp.timacc 4 | obj2img -A -t -f TSSFIL -e TIMACC -o tssfil.img tssfil.timacc 5 | obj2img -A -t -f TIMUSD -e TIMACC -o timusd.img timusd.timacc 6 | obj2img -A -t -f UACCNT -e TIMACC -o uaccnt.img uaccnt.timacc 7 | obj2img -A -q -f QUOTA -e DATA -o quotas.img quotas.dat 8 | cat ufd.img quotas.img grpuni.img prtygp.img tssfil.img timusd.img uaccnt.img EOF.BIN > s.bcd 9 | -------------------------------------------------------------------------------- /src/misc/prtygp.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/prtygp.img -------------------------------------------------------------------------------- /src/misc/prtygp.timacc: -------------------------------------------------------------------------------- 1 | 000030 NUMBER OF USERS 2 | 000001000030 GROUP NO./PRIME LINES 3 | -------------------------------------------------------------------------------- /src/misc/quotas.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/quotas.img -------------------------------------------------------------------------------- /src/misc/timusd.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/timusd.img -------------------------------------------------------------------------------- /src/misc/timusd.timacc: -------------------------------------------------------------------------------- 1 | C0056 99999DAEMON 000000000000000000000000000000000000000000000000000000000000 2 | C0056 99995FIBMON 000000000000000000000000000000000000000000000000000000000000 3 | M1416 1CMFL02 000000000000000000000000000000000000000000000000000000000000 4 | M1416 2CMFL04 000000000000000000000000000000000000000000000000000000000000 5 | M1416 3ADMIN 000000000000000000000000000000000000000000000000000000000000 6 | M1416 4DAVE PITTS 000000000000000000000000000000000000000000000000000000000000 7 | M1416 5GUEST 000000000000000000000000000000000000000000000000000000000000 8 | -------------------------------------------------------------------------------- /src/misc/tssfil.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/tssfil.img -------------------------------------------------------------------------------- /src/misc/tssfil.timacc: -------------------------------------------------------------------------------- 1 | M1416CMFL01 2 | M1416CMFL02 3 | M1416CMFL03 4 | M1416CMFL04 5 | -------------------------------------------------------------------------------- /src/misc/uaccnt.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/uaccnt.img -------------------------------------------------------------------------------- /src/misc/ufd.img: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/misc/ufd.img -------------------------------------------------------------------------------- /src/misc/x: -------------------------------------------------------------------------------- 1 | C0056 99999 2 | C0056 99995 3 | C0033 33 4 | M1416CMFL01 5 | M1416CMFL02 6 | M1416CMFL03 7 | M1416CMFL04 8 | -------------------------------------------------------------------------------- /src/miscmd/7750ld.fms: -------------------------------------------------------------------------------- 1 | *C0059-9993,FMS,RESULT,600,600,1000,1000 7750 LOAD 2 | *C0059-9993,FMS,RESULT,600,600,1000,1000 7750 LOAD 3 | * ********************************************************************** 4 | * ********* 7750 LOAD 7750 LOAD 7750 LOAD 7750 LOAD ********* 5 | * ********* 7750 LOAD 7750 LOAD 7750 LOAD 7750 LOAD ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/7read.runcom: -------------------------------------------------------------------------------- 1 | FAP 7READ (LIST) 2 | FAP DSKER (LIST) 3 | NCLOAD 7READ DSKER 4 | SAVE 7READ 5 | -------------------------------------------------------------------------------- /src/miscmd/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/miscmd/EOF.BIN -------------------------------------------------------------------------------- /src/miscmd/_ball.fap: -------------------------------------------------------------------------------- 1 | * MISSING TYPE BALL FUNCTIONS FOR . 2 | LINK OFF 3 | UNLIST 4 | INSERT MACS 5 | LIST 6 | REM 7 | ENTRY CHBALL 8 | ENTRY STBALL 9 | REM 10 | CHBALL COMENT C1,4,(NO IMPLIMENTED YET.) 11 | XIT* $TRYAG 12 | REM 13 | STBALL TRA 1,4 JUST RETURN FOR NOW. 14 | REM 15 | RMT * REMOTE SEQUENCES. 16 | REM 17 | END 18 | -------------------------------------------------------------------------------- /src/miscmd/aarchv.runcom: -------------------------------------------------------------------------------- 1 | MAD AARCHV (LIST) 2 | FAP ASCTSS 3 | NCLOAD AARCHV ASCTSS (SYS) (LIBE) XLIBE 4 | SAVE AARCHV 5 | -------------------------------------------------------------------------------- /src/miscmd/abbr.runcom: -------------------------------------------------------------------------------- 1 | FAP .MAIN (LIST) 2 | FAP .PROFL (LIST) 3 | FAP .ABRV (LIST) 4 | FAP .PRI (LIST) 5 | FAP .IC (LIST) 6 | FAP .BALL (LIST) 7 | FAP GTPROB (LIST) 8 | NCLOAD .MAIN .PROFL .ABRV .PRI .IC .BALL GTPROB 9 | SAVE . 10 | -------------------------------------------------------------------------------- /src/miscmd/b1prt1.fms: -------------------------------------------------------------------------------- 1 | *C0059-9990,FMS,RESULT,600,600,1000,1000 B1 DUMP INTERPRETER 2 | *C0059-9990,FMS,RESULT,600,600,1000,1000 B1 DUMP INTERPRETER 3 | * ********************************************************************** 4 | * ********* B1 DUMP INTERPRETER B1 DUMP INTERPRETER ********* 5 | * ********* B1 DUMP INTERPRETER B1 DUMP INTERPRETER ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/backup.runcom: -------------------------------------------------------------------------------- 1 | MAD BACKUP (LIST) 2 | NCLOAD BACKUP 3 | SAVE BACKUP 4 | -------------------------------------------------------------------------------- /src/miscmd/chball.runcom: -------------------------------------------------------------------------------- 1 | MAD CHBALL (LIST) 2 | NCLOAD CHBALL 3 | SAVE CHBALL 4 | -------------------------------------------------------------------------------- /src/miscmd/ddsetp.fms: -------------------------------------------------------------------------------- 1 | *C0059-9992,FMS,RESULT,600,600,1000,1000 DISK/DRUM SETUP 2 | *C0059-9992,FMS,RESULT,600,600,1000,1000 DISK/DRUM SETUP 3 | * ********************************************************************** 4 | * ********* DISK/DRUM SETUP DISK/DRUM SETUP ********* 5 | * ********* DISK/DRUM SETUP DISK/DRUM SETUP ********* 6 | * ********************************************************************** 7 | * ***** THIS PROGRAM IS TO BE RUN BY EXPERIENCED PERSONNEL ONLY. ***** 8 | * ********************************************************************** 9 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 10 | * XEQ 11 | -------------------------------------------------------------------------------- /src/miscmd/dpatch.fms: -------------------------------------------------------------------------------- 1 | *C0059-9991,FMS,RESULT,600,600,1000,1000 DISK/DRUM PATCH 2 | *C0059-9991,FMS,RESULT,600,600,1000,1000 DISK/DRUM PATCH 3 | * ********************************************************************** 4 | * ********* DISK/DRUM PATCH DISK/DRUM PATCH ********* 5 | * ********* DISK/DRUM PATCH DISK/DRUM PATCH ********* 6 | * ********************************************************************** 7 | * ***** THIS PROGRAM IS TO BE RUN BY EXPERIENCED PERSONNEL ONLY. ***** 8 | * ********************************************************************** 9 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 10 | * XEQ 11 | -------------------------------------------------------------------------------- /src/miscmd/dsker.fap: -------------------------------------------------------------------------------- 1 | * DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 2 | REM REVISED 9/14/65 - NOEL I. MORRIS 3 | REM 4 | UNLIST 5 | INSERT MACS 6 | LIST 7 | REM 8 | ENTRY DSKER 9 | REM 10 | DSKER CAL =HPRNTER 11 | LDQ =O-71 12 | CALL NEXCOM 13 | REM 14 | RMT * REMOTE SEQUENCES 15 | REM 16 | END 17 | -------------------------------------------------------------------------------- /src/miscmd/dump.fms: -------------------------------------------------------------------------------- 1 | *C0059-9996,FMS,RESULT,600,600,1000,1000 DRUM DUMP 2 | *C0059-9996,FMS,RESULT,600,600,1000,1000 DRUM DUMP 3 | * ********************************************************************** 4 | * ********* DRUM DUMP DRUM DUMP DRUM DUMP DRUM DUMP ********* 5 | * ********* DRUM DUMP DRUM DUMP DRUM DUMP DRUM DUMP ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/ediprv.fms: -------------------------------------------------------------------------------- 1 | *C0059-9999,FMS,RESULT,600,600,1000,1000 PRIVILEGED DISK EDITOR 2 | *C0059-9999,FMS,RESULT,600,600,1000,1000 PRIVILEGED DISK EDITOR 3 | * ********************************************************************** 4 | * ********* PRIVILEGED DISK EDITOR PRIVILEGED DISK EDITOR ********* 5 | * ********* PRIVILEGED DISK EDITOR PRIVILEGED DISK EDITOR ********* 6 | * ********************************************************************** 7 | * ********* TO BE USED BY CTSS PROGRAMMING STAFF ONLY. ********* 8 | * ********************************************************************** 9 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 10 | * XEQ 11 | -------------------------------------------------------------------------------- /src/miscmd/editor.fms: -------------------------------------------------------------------------------- 1 | *C0059-9999,FMS,RESULT,600,600,1000,1000 DISK EDITOR 2 | *C0059-9999,FMS,RESULT,600,600,1000,1000 DISK EDITOR 3 | * ********************************************************************** 4 | * ********* STANDALONE DISK EDITOR STANDALONE DISK EDITOR ********* 5 | * ********* STANDALONE DISK EDITOR STANDALONE DISK EDITOR ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/fapcom.runcom: -------------------------------------------------------------------------------- 1 | FAP FAPMAI (LIST) 2 | MAD FAPCOM (LIST) 3 | FAP RED (LIST) 4 | NCLOAD FAPMAI FAPCOM RED 5 | SAVE FAPCOM 6 | -------------------------------------------------------------------------------- /src/miscmd/fapmai.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | TSX $GETMEM,4 4 | ADD =2160 5 | TSX $SETMEM,4 6 | STA CALL 7 | TSX $FAPCOM,4 8 | CALL PTH 9 | END 10 | -------------------------------------------------------------------------------- /src/miscmd/fmstap.runcom: -------------------------------------------------------------------------------- 1 | FAP FMSTAP (LIST) 2 | FAP COMAND (LIST) 3 | NCLOAD FMSTAP COMAND 4 | SAVE FMSTAP 5 | -------------------------------------------------------------------------------- /src/miscmd/getfil.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (ARG) 2 | E'O GETFIL. 3 | N'R 4 | F'N DERBC.(BCDEC.((ARG.A.777777K)+1)).V.$...000$ 5 | E'N 6 | -------------------------------------------------------------------------------- /src/miscmd/lmsort.runcom: -------------------------------------------------------------------------------- 1 | FAP LMSORT (LIST) 2 | NCLOAD LMSORT 3 | SAVE LMSORT 4 | -------------------------------------------------------------------------------- /src/miscmd/load.fms: -------------------------------------------------------------------------------- 1 | *C0059-9995,FMS,RESULT,600,600,1000,1000 DRUM LOAD 2 | *C0059-9995,FMS,RESULT,600,600,1000,1000 DRUM LOAD 3 | * ********************************************************************** 4 | * ********* DRUM LOAD DRUM LOAD DRUM LOAD DRUM LOAD ********* 5 | * ********* DRUM LOAD DRUM LOAD DRUM LOAD DRUM LOAD ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/look.runcom: -------------------------------------------------------------------------------- 1 | MAD LOOK (LIST) 2 | NCLOAD LOOK (SYS) (LIBE) XLIBE 3 | SAVE LOOK 4 | -------------------------------------------------------------------------------- /src/miscmd/mail.runcom: -------------------------------------------------------------------------------- 1 | MAD MAIL (LIST) 2 | MAD SMAIL (LIST) 3 | NCLOAD MAIL SMAIL (SYS) (LIBE) XLIBE 4 | SAVE MAIL 5 | -------------------------------------------------------------------------------- /src/miscmd/main0.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL FILE NAME -- MAIN0 FAP 3 | LBL DUMMY,X 4 | REM 5 | REM DUMMY ROUTINE FOR MAD PROGRAMS 6 | REM 7 | TSX $FIRST,4 CALL MAD PROGRAM 8 | PTH 0 PASS ABSOLUTE ZERO 9 | TSX $DORMNT,4 STOP IF RETURN 10 | END 11 | -------------------------------------------------------------------------------- /src/miscmd/mis_bcd.src: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/miscmd/mis_bcd.src -------------------------------------------------------------------------------- /src/miscmd/mover.runcom: -------------------------------------------------------------------------------- 1 | MAD MOVER (LIST) 2 | NCLOAD MOVER (SYS) (LIBE) XLIBE 3 | SAVE MOVER 4 | -------------------------------------------------------------------------------- /src/miscmd/nocmmd.fap: -------------------------------------------------------------------------------- 1 | * 2 | TSX $GETCOM,4 3 | PZE 0 GET CURRNT COMMAND NAME 4 | SLW MESS+1 5 | TSX $WRFLX,4 6 | PZE MESS,,9 7 | TIA =HDEAD 8 | MESS BCI 9, THE ****** COMMAND IS NOT CURRENTLY AVAILABLE. 9 | END 10 | -------------------------------------------------------------------------------- /src/miscmd/nocmmd.runcom: -------------------------------------------------------------------------------- 1 | FAP NOCMMD (LIST) 2 | NCLOAD NOCMMD 3 | SAVE NOCMMD 4 | -------------------------------------------------------------------------------- /src/miscmd/nsort.runcom: -------------------------------------------------------------------------------- 1 | FAP NSORT (LIST) 2 | FAP FLSRTN (LIST) 3 | FAP MERGEN (LIST) 4 | FAP ARGS (LIST) 5 | MAD GETFIL (LIST) 6 | NCLOAD NSORT FLSRTN MERGEN ARGS GETFIL 7 | SAVE NSORT 8 | -------------------------------------------------------------------------------- /src/miscmd/octdmp.fms: -------------------------------------------------------------------------------- 1 | *C0059-9992,FMS,RESULT,600,600,1000,1000 OCTAL DRUM DUMP 2 | *C0059-9992,FMS,RESULT,600,600,1000,1000 OCTAL DRUM DUMP 3 | * ********************************************************************** 4 | * ********* OCTAL DRUM DUMP OCTAL DRUM DUMP ********* 5 | * ********* OCTAL DRUM DUMP OCTAL DRUM DUMP ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/option.runcom: -------------------------------------------------------------------------------- 1 | MAD OPTION (LIST) 2 | NCLOAD OPTION 3 | SAVE OPTION 4 | -------------------------------------------------------------------------------- /src/miscmd/phase1.fms: -------------------------------------------------------------------------------- 1 | *C0059-9988,FMS,RESULT,600,600,1000,1000 PHASE 1 RELOAD 2 | *C0059-9988,FMS,RESULT,600,600,1000,1000 PHASE 1 RELOAD 3 | * ********************************************************************** 4 | * ********* PHASE 1 RELOAD PHASE 1 RELOAD ********* 5 | * ********* PHASE 1 RELOAD PHASE 1 RELOAD ********* 6 | * ********************************************************************** 7 | * ********* FOLLOWS COMPLETE DISK/DRUM SETUP ********* 8 | * ********************************************************************** 9 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 10 | * XEQ 11 | -------------------------------------------------------------------------------- /src/miscmd/phase2.fms: -------------------------------------------------------------------------------- 1 | *C0059-9987,FMS,RESULT,600,600,1000,1000 PHASE 2 RELOAD 2 | *C0059-9987,FMS,RESULT,600,600,1000,1000 PHASE 2 RELOAD 3 | * ********************************************************************** 4 | * ********* PHASE 2 RELOAD PHASE 2 RELOAD ********* 5 | * ********* PHASE 2 RELOAD PHASE 2 RELOAD ********* 6 | * ********************************************************************** 7 | * ********* FOLLOWS PHASE 1 OF COMPLETE RELOAD ********* 8 | * ********************************************************************** 9 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 10 | * XEQ 11 | -------------------------------------------------------------------------------- /src/miscmd/pinfo.runcom: -------------------------------------------------------------------------------- 1 | MAD PINFO (LIST) 2 | FAP WRFX (LIST) 3 | NCLOAD PINFO WRFX 4 | SAVE PINFO 5 | -------------------------------------------------------------------------------- /src/miscmd/prbin.runcom: -------------------------------------------------------------------------------- 1 | MAD PRBIN (LIST) 2 | NCLOAD PRBIN (SYS) (LIBE) XLIBE 3 | SAVE PRBIN 4 | -------------------------------------------------------------------------------- /src/miscmd/primer.fms: -------------------------------------------------------------------------------- 1 | *C0059-9989,FMS,RESULT,600,600,1000,1000 DAEMON PRIMER 2 | *C0059-9989,FMS,RESULT,600,600,1000,1000 DAEMON PRIMER 3 | * ********************************************************************** 4 | * ********* DAEMON PRIMER DAEMON PRIMER ********* 5 | * ********* DAEMON PRIMER DAEMON PRIMER ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/red.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK ON 3 | ENTRY RED 4 | ENTRY WRT 5 | ENTRY WRTA 6 | RED SXA RX4,4 7 | CLA 1,4 8 | STA ARG 9 | ARS 18 10 | STA GET 11 | GET LXA --,4 12 | SXD ARG,4 13 | TSX $RDFLX,4 14 | ARG PZE 15 | RX4 AXT ,4 16 | TRA 2,4 17 | * 18 | WRT SXA WX4,4 19 | CLA 1,4 20 | STA WARG 21 | ARS 18 22 | STA WGET 23 | WGET LXA --,4 24 | SXD WARG,4 25 | TSX $WRFLX,4 26 | WARG PZE 27 | WX4 AXT ,4 28 | TRA 2,4 29 | * 30 | WRTA SXA AX4,4 31 | CLA 1,4 32 | STA AARG 33 | ARS 18 34 | STA AGET 35 | AGET LXA --,4 36 | SXD AARG,4 37 | TSX $WRFLXA,4 38 | AARG PZE 39 | AX4 AXT ,4 40 | TRA 1,4 41 | END 42 | -------------------------------------------------------------------------------- /src/miscmd/remark.runcom: -------------------------------------------------------------------------------- 1 | FAP MAIN0 (LIST) 2 | MAD REMRK (LIST) 3 | NCLOAD MAIN0 REMRK 4 | SAVE REMARK 5 | -------------------------------------------------------------------------------- /src/miscmd/sadump.fms: -------------------------------------------------------------------------------- 1 | *C0059-9986,FMS,RESULT,600,600,1000,1000 STANDALONE DAEMON DUMP 2 | *C0059-9986,FMS,RESULT,600,600,1000,1000 STANDALONE DAEMON DUMP 3 | * ********************************************************************** 4 | * ********* STANDALONE COMPLETE DUMP ********* 5 | * ********* STANDALONE COMPLETE DUMP ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/salv.fms: -------------------------------------------------------------------------------- 1 | *C0059-9998,FMS,RESULT,600,600,1000,1000 SALVAGER 2 | *C0059-9998,FMS,RESULT,600,600,1000,1000 SALVAGER 3 | * ********************************************************************** 4 | * ********* SALVAGER SALVAGER SALVAGER SALVAGER ********* 5 | * ********* SALVAGER SALVAGER SALVAGER SALVAGER ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/smail.mad: -------------------------------------------------------------------------------- 1 | R...FUCTION SENDS MAIL TO A USER 2 | R 3 | EXTERNAL FUNCTION(AD1,AD2,BUF,N,N1,N2) 4 | E'O SMAIL. 5 | R 6 | N'R 7 | R 8 | A=4 9 | UNLINK.(T1,T2,S1) 10 | S1 LINK.(T1,T2,AD1,AD2,N1,N2,0,S7) 11 | A=A-1 12 | TILOCK.(S5) 13 | FSTATE.(T1,T2,MODE(1)...2,S2) 14 | W'R MODE .A. 124K .NE. 0, T'O S6 15 | CHFILE.(T1,T2,1,-0,-0,S2) 16 | S2 OPEN.($W$,T1,T2,1,2,S6) 17 | A=A-1 18 | BUFFER.(T1,T2,B1(432)...432) 19 | WRFILE.(T1,T2,0,BUF...N,-0,-0,S3) 20 | S3 CLOSE.(T1,T2,S4) 21 | A=A-1 22 | S4 CHFILE.(T1,T2,0,-0,-0,S5) 23 | S5 A=A-1 24 | S6 UNLINK.(T1,T2,S7) 25 | S7 F'N A 26 | V'S T1=$TEM$ 27 | V'S T2=$BOX$ 28 | D'N B1(432), MODE(1) 29 | E'N 30 | -------------------------------------------------------------------------------- /src/miscmd/sort.fms: -------------------------------------------------------------------------------- 1 | *C0059-9994,FMS,RESULT,600,600,1000,1000 M.F.D. SORT 2 | *C0059-9994,FMS,RESULT,600,600,1000,1000 M.F.D. SORT 3 | * ********************************************************************** 4 | * ********* M.F.D. SORT M.F.D. SORT ********* 5 | * ********* M.F.D. SORT M.F.D. SORT ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/stat.fms: -------------------------------------------------------------------------------- 1 | *C0059-9997,FMS,RESULT,600,600,1000,1000 STATAL 2 | *C0059-9997,FMS,RESULT,600,600,1000,1000 STATAL 3 | * ********************************************************************** 4 | * ********* STATAL STATAL STATAL STATAL ********* 5 | * ********* STATAL STATAL STATAL STATAL ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/strve.fms: -------------------------------------------------------------------------------- 1 | *C0059-9985,FMS,RESULT,600,600,1000,1000 STANDALONE RETRIEVE 2 | *C0059-9985,FMS,RESULT,600,600,1000,1000 STANDALONE RETRIEVE 3 | * ********************************************************************** 4 | * ********* STANDALONE RETRIEVE STANDALONE RETRIEVE ********* 5 | * ********* STANDALONE RETRIEVE STANDALONE RETRIEVE ********* 6 | * ********************************************************************** 7 | * PAUSE(IF THIS IS THE RIGHT FILE, HIT START) 8 | * XEQ 9 | -------------------------------------------------------------------------------- /src/miscmd/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 7750LD FMS 7750 PROG ALL FMS B1PRT1 FMS DDSETP FMS DPATCH FMS 2 | UPDATE 1 DUMP FMS EDIPRV FMS EDITOR FMS IPC 6.36 LOAD FMS OCTDMP FMS 3 | UPDATE 1 PHASE1 FMS PHASE2 FMS PRIMER FMS SADUMP FMS SALV FMS SORT FMS 4 | UPDATE 1 STAT FMS STRVE FMS SUPERX 6.36 USER PROFIL 5 | -------------------------------------------------------------------------------- /src/miscmd/wrfx.fap: -------------------------------------------------------------------------------- 1 | * WRFX., WRFXA., RDFX., RDFXA.- MAD CALLS TO WRFLX, ETC. 2 | TTL PETER R. BOS --- AUGUST 1967 3 | PCC ON 4 | NOLNK 5 | ENTRY WRFX 6 | ENTRY WRFXA 7 | ENTRY RDFX 8 | ENTRY RDFXA 9 | LBL WRFX 10 | PCC OFF 11 | REM 12 | REM 13 | REM ALLOW MAD CALLS FOR CONSOLE I/O. 14 | REM 15 | WRFX CAL $WRFLX 16 | TRA GO 17 | WRFXA CAL $WRFLXA 18 | TRA GO 19 | RDFX CAL $RDFLX 20 | TRA GO 21 | RDFXA CAL $RDFLXA 22 | GO STA TSX 23 | SXA FX4,4 24 | REM 25 | CAL 1,4 PICK UP A(N)...N FROM MAD. 26 | STA WR 27 | PDC 0,4 GET COUNT. 28 | CAL 0,4 .. 29 | PAX 0,4 .. 30 | SXD WR,4 .. 31 | TSX TSX -,4 32 | WR PZE -,0,- 33 | REM 34 | FX4 AXT -,4 35 | TRA 1,4 36 | REM 37 | END 38 | -------------------------------------------------------------------------------- /src/miscmd/write.runcom: -------------------------------------------------------------------------------- 1 | FAP WRITE (LIST) 2 | FAP GTPROB (LIST) 3 | NCLOAD WRITE GTPROB 4 | SAVE WRITE 5 | -------------------------------------------------------------------------------- /src/miscmd/zot.runcom: -------------------------------------------------------------------------------- 1 | FAP ZOT (LIST) 2 | LDABS ZOT ZOT 3 | -------------------------------------------------------------------------------- /src/mit8c0/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/mit8c0/EOF.BIN -------------------------------------------------------------------------------- /src/mit8c0/com800.fap: -------------------------------------------------------------------------------- 1 | * ..... MACRO, EQUIVALENCE AND COMMON INSERTS FOR CTSS ..... COM80001 2 | REM COM80002 3 | INSERT MACRO COM80003 4 | EJECT COM80004 5 | REM COM80005 6 | INSERT EQU COM80006 7 | EJECT COM80007 8 | REM COM80008 9 | INSERT COMMON COM80009 10 | REM COM80010 11 | END COM80011 12 | -------------------------------------------------------------------------------- /src/mit8c0/mit.runcom: -------------------------------------------------------------------------------- 1 | FAP COM800 (LIST) 2 | FAP MAIN8C (LIST) 3 | FAP CLOC8H (LIST) 4 | FAP CTRL8F (LIST) 5 | FAP SAVC8C (LIST) 6 | FAP ULOD8A (LIST) 7 | FAP BRKP8D (LIST) 8 | FAP CPYC8B (LIST) 9 | FAP COMC8G (LIST) 10 | FAP FINT8B (LIST) 11 | FAP DUMP8B (LIST) 12 | FAP TCOR8B (LIST) 13 | FAP IBUF8B (LIST) 14 | FAP SCDA8C (LIST) 15 | FAP SCDB8A (LIST) 16 | FAP SCDC8C (LIST) 17 | FAP SCDD8A (LIST) 18 | FAP UTIL8C (LIST) 19 | FAP PMTI8A (LIST) 20 | FAP ULIB8H (LIST) 21 | FAP BKSV8C (LIST) 22 | FAP RTRN8E (LIST) 23 | FAP SAVR8B (LIST) 24 | FAP UTRP8A (LIST) 25 | FAP WRFL8B (LIST) 26 | FAP CONV8A (LIST) 27 | FAP ONLN8F (LIST) 28 | FAP EDBG8A (LIST) 29 | FAP CHNE8A (LIST) 30 | FAP ADPI8A (LIST) 31 | FAP HIGH8A (LIST) 32 | FAP WRHI8A (LIST) 33 | FAP AP758A (LIST) 34 | FAP TSTO8A (LIST) 35 | FAP UNIT8B (LIST) 36 | FAP PDPA8B (LIST) 37 | -------------------------------------------------------------------------------- /src/mit8c0/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 MAIN8C BSS CLOC8H BSS CTRL8F BSS SAVC8C BSS 2 | UPDATE 1 ULOD8A BSS BRKP8D BSS CPYC8B BSS COMC8G BSS FINT8B BSS 3 | UPDATE 1 DUMP8B BSS TCOR8B BSS IBUF8B BSS SCDA8C BSS SCDB8A BSS 4 | UPDATE 1 SCDC8C BSS SCDD8A BSS UTIL8C BSS PMTI8A BSS ULIB8H BSS 5 | UPDATE 1 BKSV8C BSS RTRN8E BSS SAVR8B BSS UTRP8A BSS WRFL8B BSS 6 | UPDATE 1 CONV8A BSS ONLN8F BSS EDBG8A BSS CHNE8A BSS ADPI8A BSS 7 | UPDATE 1 HIGH8A BSS WRHI8A BSS AP758A BSS TSTO8A BSS UNIT8B BSS 8 | UPDATE 1 PDPA8B BSS MIT8C0 CTSSLD 9 | RENAME COM800 SYMTB COM000 SYMTB 10 | UPDATE 4 COM000 SYMTB 11 | -------------------------------------------------------------------------------- /src/plibe/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/plibe/EOF.BIN -------------------------------------------------------------------------------- /src/plibe/_xr_.mad: -------------------------------------------------------------------------------- 1 | DEFINE UNARY OPERATOR .XR., PRECIDENCE SAME AS - 2 | MODE STRUCTURE .XR.1 TO 1 3 | JMP *+2,MQ,*+1 4 | JMP *+2,AC,*+3 5 | JMP *+7,BT,*+9 6 | JMP *+2,BT,*+10 7 | CLA B 8 | ALS 15 9 | STT LOC+1 10 | PXA 0,0 11 | OUT AC 12 | XCA 13 | JMP *-5 14 | STQ T 15 | JMP *-8 16 | STO T 17 | JMP *-10 18 | END 19 | -------------------------------------------------------------------------------- /src/plibe/fixup.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (OUT) 2 | STATEMENT LABEL OUT 3 | N'R 4 | ENTRY TO FIXUP. 5 | WHOAMI.(A(2)...2) 6 | FSTATE.(A(1),$ SAVED$,T(8)...8,TEST,CODE) 7 | TEST W'R (T(7).G.0.AND.T(7).A.1K.NE.0).OR.CODE.E.3, T'O PROGL 8 | FIX(5)=$..PLOT$ 9 | TAB(1)=$..PLOT$ 10 | GO PRNTP.(FIX) 11 | V'S FIX=$ FIX PROBLEM, THEN TYPE ' R $,$$, 12 | 1 $ ' TO CONTINUE $,777777777777K 13 | SCLS.(TAB,1) 14 | V'S TAB=$ SAVE$,$$,$ T$ 15 | 1 ,777777777777K 16 | SCLC.(1,1) 17 | CHNCOM.(1) 18 | T'O OUT 19 | PROGL FIX(5)=$$ 20 | TAB(1)=A(1) 21 | T'O GO 22 | DIMENSION A(2), T(8) 23 | END OF FUNCTION 24 | -------------------------------------------------------------------------------- /src/plibe/graph.mad: -------------------------------------------------------------------------------- 1 | R GRAPH 2 | EXTERNAL FUNCTION (X,Y,NN,S,LS) 3 | ENTRY TO GRAPH. 4 | INSERT FILE .XR. 5 | EQUIVALENCE (ANN,NNN) 6 | NNN=NN 7 | LLS=LS 8 | R CHECK THAT NUMBER OF ARGUMENTS =5. 9 | EXECUTE NUMP.(-3,N,.XR.4) 10 | WHENEVER N.E.5, TRANSFER TO QQ0005 11 | EXECUTE ERNOTE.(2,QQ0007(1)) 12 | VECTOR VALUES QQ0006=777777777777K,$GRAPH $ 13 | EQUIVALENCE (QQ0006,QQ0007) 14 | DIMENSION QQ0007(1) 15 | R CALL GRAPH1 WITH I=2 TO SIGNAL THAT SCALING IS 16 | R UNNECESSARY. 17 | QQ0005 EXECUTE GRAPH1.(X,Y,NNN,S,LLS,0.,1.,0.,1.,2) 18 | FUNCTION RETURN 19 | INTEGER NNN,NN,LLS,LS,NUMP.,N 20 | END OF FUNCTION 21 | -------------------------------------------------------------------------------- /src/plibe/minmax.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK ON 3 | ENTRY MINMAX 4 | MINMAX SXA X1,1 5 | SXD MINMAX-2,4 6 | CLA 1,4 7 | STA LOOP 8 | CLA* 1,4 9 | STO MAX 10 | STO MIN 11 | CLA* 2,4 12 | PAX ,1 13 | LOOP CLA **,1 14 | CAS MAX 15 | STO MAX 16 | TRA END 17 | CAS MIN 18 | TRA END 19 | TRA END 20 | STO MIN 21 | END TIX LOOP,1,1 22 | CLA MIN 23 | STO* 3,4 24 | CLA MAX 25 | STO* 4,4 26 | X1 AXT **,1 27 | TRA 5,4 28 | REM 29 | REM 30 | MIN PZE 31 | MAX PZE 32 | REM 33 | REM 34 | END 35 | -------------------------------------------------------------------------------- /src/plibe/plib_src.bc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/plibe/plib_src.bc -------------------------------------------------------------------------------- /src/plibe/scale1.mad: -------------------------------------------------------------------------------- 1 | R SCALE1 2 | EXTERNAL FUNCTION (X,N,S,XMIN,DX,ND,K) 3 | INSERT FILE .XR. 4 | ENTRY TO SCALE1. 5 | EQUIVALENCE (NN,AN) 6 | NN=N 7 | NND=ND 8 | KK=K 9 | EXECUTE NUMP.(7,M,.XR.4) 10 | WHENEVER M.E.7, TRANSFER TO QQ0005 11 | EXECUTE ERNOTE.(2,QQ0007(1)) 12 | VECTOR VALUES QQ0006=777777777777K,$SCALE1$ 13 | EQUIVALENCE (QQ0006,QQ0007) 14 | DIMENSION QQ0007(1) 15 | QQ0005 W'R DX.NE.0,T'O QQ0009 16 | EXECUTE DXDY1.(X,NN,S,XMIN,DX,NND,KK) 17 | ND=NND 18 | K=KK 19 | QQ0009 THROUGH QQ0010, FOR I=1,1,I.G.NN 20 | QQ0010 X(I)=(X(I)-XMIN)/DX 21 | FUNCTION RETURN 22 | INTEGER NN,N,NND,ND,KK,K 23 | INTEGER NUMP.,M,I 24 | END OF FUNCTION 25 | -------------------------------------------------------------------------------- /src/plibe/sclgph.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (X,Y,NNN,S,LLS,XMIN,DX,YMIN,DY) 2 | INSERT FILE .XR. 3 | ENTRY TO SCLGPH. 4 | EXECUTE NUMP.(-4,N,.XR.4) 5 | WHENEVER N.E.9, TRANSFER TO QQ0004 6 | EXECUTE ERNOTE.(2,QQ0006(1)) 7 | VECTOR VALUES QQ0005=777777777777K,$SCLGPH$ 8 | EQUIVALENCE (QQ0005,QQ0006) 9 | DIMENSION QQ0006(1) 10 | QQ0004 EXECUTE GRAPH1.(X,Y,NNN,S,LLS,XMIN,DX,YMIN,DY,1) 11 | FUNCTION RETURN 12 | INTEGER NUMP.,N,NNN,LLS 13 | QQ0001 END OF FUNCTION 14 | -------------------------------------------------------------------------------- /src/runoff/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/runoff/EOF.BIN -------------------------------------------------------------------------------- /src/runoff/bin.fap: -------------------------------------------------------------------------------- 1 | * SUBROUTINE TO CONVERT BCD NUMBER TO BINARY. 2 | * 3 | * J. H. SALTZER, MAY, 1966. 4 | LINK ON 5 | ENTRY BIN CONVERTER. 6 | BIN SXA IRR1,1 7 | STZ INT CLEAR RESULT. 8 | AXT 6,1 9 | LDQ* 1,4 GET ARGUMENT. 10 | LOP ZAC 11 | LGL 6 GET NEXT CHARACTER. 12 | LAS =10 SKIP OVER NON-DIGITS. 13 | TRA TIX 14 | TRA TIX 15 | STO DIG NUMBER, SAVE DIGIT. 16 | STQ TEM SAVE MQ FOR MULTIPLIACATION. 17 | LDQ INT GET OLD NUMBER. 18 | MPY =10 SHIFT. 19 | XCA 20 | ADD DIG ADD THIS DIGIT TO RESULT. 21 | STO INT SAVE, FOR NEXT PASS. 22 | LDQ TEM RESTORE MQ. 23 | TIX TIX LOP,1,1 24 | IRR1 AXT --,1 25 | CLA INT RESULT IN AC. 26 | TRA 2,4 27 | * 28 | INT 29 | DIG 30 | TEM 31 | * 32 | END 33 | -------------------------------------------------------------------------------- /src/runoff/runoff.runcom: -------------------------------------------------------------------------------- 1 | MAD RMAIN (LIST) 2 | MAD RUNOFF (LIST) 3 | MAD NXCHAR (LIST) 4 | MAD SETTYP (LIST) 5 | MAD ADJUST (LIST) 6 | MAD HDFT (LIST) 7 | MAD NUMCON (LIST) 8 | MAD FRAME1 (LIST) 9 | MAD SYMSTO (LIST) 10 | FAP ROUT (LIST) 11 | FAP REMAP (LIST) 12 | FAP WORDIO (LIST) (FLAG) NO 13 | FAP LMIO12 (LIST) 14 | FAP BIN (LIST) 15 | FAP FRAME (LIST) 16 | FAP RLIB (LIST) 17 | NCLOAD RMAIN RUNOFF NXCHAR SETTYP ADJUST HDFT NUMCON FRAME1 (MORE) 18 | USE SYMSTO ROUT REMAP WORDIO LMIO12 BIN FRAME RLIB 19 | SAVE RUNOFF 20 | -------------------------------------------------------------------------------- /src/runoff/symsto.mad: -------------------------------------------------------------------------------- 1 | R.. SYMBOL TABLE PACKAGE. 2 | R 3 | R.. J. H. SALTZER, JANUARY, 1965. 4 | R 5 | EXTERNAL FUNCTION(SYMBOL, VALUE) 6 | NORMAL MODE IS INTEGER 7 | DIMENSION SYM(10), VAL(10) 8 | VECTOR VALUES COUNT = 0 9 | R 10 | ENTRY TO SYMSTO. 11 | W'R COUNT .GE. 10 12 | PRINTCOMMENT $0S0Y0M0B0O0L0 0T0A0B0L0E0 0O0V0E0R0F0L0O0W$ 13 | FUNCTION RETURN 14 | END OF CONDITIONAL 15 | COUNT = COUNT + 1 16 | SYM(COUNT) = SYMBOL 17 | VAL(COUNT) = VALUE 18 | FUNCTION RETURN 19 | R 20 | ENTRY TO SYMGET. 21 | THROUGH LOOK, FOR I = 1, 1, I .G. COUNT 22 | LOOK WHENEVER SYM(I) .E. SYMBOL, FUNCTION RETURN VAL(I) 23 | FUNCTION RETURN 0 24 | END OF FUNCTION 25 | -------------------------------------------------------------------------------- /src/s.util/7750ld.runcom: -------------------------------------------------------------------------------- 1 | FAP 7750LD (LIST) 2 | FAP 7750RD (LIST) 3 | FAP 7750CH (LIST) 4 | 5 | -------------------------------------------------------------------------------- /src/s.util/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/s.util/EOF.BIN -------------------------------------------------------------------------------- /src/s.util/b1inp.runcom: -------------------------------------------------------------------------------- 1 | FAP B1INP1 (LIST) 2 | FAP BFS (LIST) 3 | NCLOAD B1INP1 BFS 4 | SAVE B1INP1 5 | -------------------------------------------------------------------------------- /src/s.util/b1prt1.ctssld: -------------------------------------------------------------------------------- 1 | B1MAIN MAIN PROGRAM FOR B-1 DUMP INTERPRETER 2 | MDMP2D MACHINE CONDITION DUMP ROUTINE 3 | CDMP1D CORE DUMP ROUTINE 4 | LIST1D OFF-LINE OUTPUT TAPE LISTING ROUTINE 5 | OPCD1D SYMBOLIC OPCODE LOOKUP ROUTINE 6 | CNVT1D UTILITY OCTAL/DECIMAL TO BCD CONVERSION ROUTINES 7 | UPCK2D UTILITY PACKAGE FOR LIBRARY ROUTINES 8 | -------------------------------------------------------------------------------- /src/s.util/b1prt1.runcom: -------------------------------------------------------------------------------- 1 | FAP B1MAIN (LIST) 2 | FAP MDMP2D (LIST) 3 | FAP CDMP1D (LIST) 4 | FAP LIST1D (LIST) 5 | FAP OPCD1D (LIST) 6 | FAP CNVT1D (LIST) 7 | FAP UPCK2D (LIST) 8 | -------------------------------------------------------------------------------- /src/s.util/b1prtb.ctssld: -------------------------------------------------------------------------------- 1 | B1PRTB BACKUP TO B1PRT1 2 | -------------------------------------------------------------------------------- /src/s.util/cloc1a.ctssld: -------------------------------------------------------------------------------- 1 | CLOCK - MAIN PROGRAM FOR CHRONOLOG CLOCK DIAGNOSTIC PROGRAM 00010 2 | PRNTBK - BACKGROUND ONLINE PRINT 00020 3 | -------------------------------------------------------------------------------- /src/s.util/clock.runcom: -------------------------------------------------------------------------------- 1 | FAP CLOCK (LIST) 2 | FAP PRNTBK (LIST) 3 | -------------------------------------------------------------------------------- /src/s.util/cylod.runcom: -------------------------------------------------------------------------------- 1 | FAP CYLOD (LIST) 2 | -------------------------------------------------------------------------------- /src/s.util/dpatch.ctssld: -------------------------------------------------------------------------------- 1 | DPATCH MAIN PROGRAM FOR DISK/DRUM PATCHER 00010 2 | DDIO4C DISK-DRUM I/O PACKAGE 00020 3 | DDPAC SUBROUTINES FOR DDIOA 00030 4 | -------------------------------------------------------------------------------- /src/s.util/dpatch.runcom: -------------------------------------------------------------------------------- 1 | FAP DPATCH (LIST) 2 | -------------------------------------------------------------------------------- /src/s.util/dsetup.runcom: -------------------------------------------------------------------------------- 1 | FAP DSETUP (LIST) 2 | -------------------------------------------------------------------------------- /src/s.util/dstp4a.ctssld: -------------------------------------------------------------------------------- 1 | DSETUP DISK/DRUM SETUP PROGRAM 00010 2 | DDIO4C DISK/DRUM I/O PACKAGE (DUAL DISK) 00020 3 | DDPAC SUBROUTINE PACKAGE FOR DDIOA 00030 4 | -------------------------------------------------------------------------------- /src/s.util/hsdt1a.ctssld: -------------------------------------------------------------------------------- 1 | HSDT1A HIGH SPEED DRUM TEST - MAIN CONTROL 00010 2 | DIAG I/O SECTION 00020 3 | DDPAC 00030 4 | IOCONV 00040 5 | 6 | -------------------------------------------------------------------------------- /src/s.util/hsdt1a.runcom: -------------------------------------------------------------------------------- 1 | FAP HSDT1A (LIST) 2 | FAP DIAG (LIST) 3 | -------------------------------------------------------------------------------- /src/s.util/iopac.runcom: -------------------------------------------------------------------------------- 1 | FAP IOPA2C (LIST) 2 | FAP IOPB2C (LIST) 3 | FAP IOPC2C (LIST) 4 | FAP IOPD2C (LIST) 5 | FAP IOPE2C (LIST) 6 | FAP DDIO4C (LIST) 7 | FAP DDPAC (LIST) 8 | FAP PRNTER (LIST) 9 | FAP IOCONV (LIST) 10 | -------------------------------------------------------------------------------- /src/s.util/panic.runcom: -------------------------------------------------------------------------------- 1 | FAP PANIC (LIST) 2 | -------------------------------------------------------------------------------- /src/s.util/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 7750LD BSS 7750RD BSS 7750CH BSS B1MAIN BSS MDMP2D BSS 2 | UPDATE 1 CDMP1D BSS LIST1D BSS OPCD1D BSS CNVT1D BSS UPCK2D BSS 3 | UPDATE 1 CLOCK BSS PRNTBK BSS DSETUP BSS DPATCH BSS HSDT1A BSS 4 | UPDATE 1 DIAG BSS IOPA2C BSS IOPB2C BSS IOPC2C BSS IOPD2C BSS 5 | UPDATE 1 IOPE2C BSS DDIO4C BSS DDPAC BSS PRNTER BSS IOCONV BSS 6 | UPDATE 1 B1INP1 BSS BFS BSS 7750LD CTSSLD B1PRT1 CTSSLD 7 | UPDATE 1 B1PRTB CTSSLD CLOC1A CTSSLD DPATCH CTSSLD 8 | UPDATE 1 DSTP4A CTSSLD HSDT1A CTSSLD 9 | -------------------------------------------------------------------------------- /src/salv4a/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/salv4a/EOF.BIN -------------------------------------------------------------------------------- /src/salv4a/_rst.fap: -------------------------------------------------------------------------------- 1 | * FOR SINGLE SAVE RESTOR RETURN (MAD) 2 | ENTRY .RSTRN 3 | ENTRY .SAVRN 4 | .RSTRN CAL TEMP 5 | SLW* 1,4 6 | TRA 3,4 7 | * 8 | .SAVRN CAL* 1,4 9 | SLW TEMP 10 | TRA 3,4 11 | TEMP 12 | END 13 | -------------------------------------------------------------------------------- /src/salv4a/cdmp.mad: -------------------------------------------------------------------------------- 1 | EXTERNAL FUNCTION (T,OLD,NEW) 2 | ENTRY TO CDUMP. 3 | MPRINT.(1,7777777777K,TRKCV.(T)) 4 | T'H CL, FOR I=0,1,I.E.435 5 | OLDW=OLD(1K5-I) 6 | NEWW=NEW(1K5-I) 7 | W'R OLDW.NE.NEWW,MPRINT.(1,DEFBC.(I+1),SP, 8 | 1 OCLBC.(OLDW),OCRBC.(OLDW),SP, 9 | 2 OCLBC.(NEWW),OCRBC.(NEWW)) 10 | CL CONTINUE 11 | FUNCTION RETURN 12 | V'S SP=607777777777K 13 | NORMAL MODE IS INTEGER 14 | END OF FUNCTION 15 | -------------------------------------------------------------------------------- /src/salv4a/dump4.mad: -------------------------------------------------------------------------------- 1 | DINIT. 2 | TINIT. 3 | T'H ML, FOR M=LDMM,1,M.G.HDMM 4 | T'H DL, FOR T=0,1,T.GE.NDMT 5 | IB=DEFBC.((M*10000+T)*10) 6 | DREAD.(CVTRK.(IB),BUF,DER) 7 | DWAIT.(DER,ERCD) 8 | TWRIT.(IB,BUF) 9 | TWAIT.(TER,ERCD) 10 | TWRIT.(IB,BUF) 11 | TWAIT.(TER,ERCD) 12 | DL CONTINUE 13 | ML CONTINUE 14 | TEND. 15 | EXIT. 16 | DER MPRINT.(2,$ERROR READING DRUM TRACK $,IB) 17 | T'O DL 18 | TER MPRINT.(2,$ERROR WRITING TAPE TRACK $,IB) 19 | T'O DL 20 | NORMAL MODE IS INTEGER 21 | DIMENSION B(500) 22 | EQUIVALENCE (BUF,B(500)) 23 | INSERT FILE SALEQU 24 | END OF PROGRAM 25 | -------------------------------------------------------------------------------- /src/salv4a/dump4.runcom: -------------------------------------------------------------------------------- 1 | MAD DUMP4 (LIST) 2 | MAD CVDT4 (LIST) 3 | FAP DIOT (LIST) 4 | FAP DIOI (LIST) 5 | MAD CDMP (LIST) 6 | FAP MPRT (LIST) 7 | FAP SETP (LIST) 8 | FAP .RST (LIST) 9 | -------------------------------------------------------------------------------- /src/salv4a/libe.runcom: -------------------------------------------------------------------------------- 1 | LINK TSLIB1 BSS M1416 CMFL04 2 | EXTBSS TSLIB1 BCDEC 3 | EXTBSS TSLIB1 BZEL 4 | EXTBSS TSLIB1 DEFBC 5 | EXTBSS TSLIB1 OCABC 6 | UNLINK TSLIB1 BSS 7 | COMBIN * LIBE BSS BCDEC BZEL DEFBC OCABC 8 | DELETE BCDEC BSS BZEL BSS DEFBC BSS OCABC BSS 9 | -------------------------------------------------------------------------------- /src/salv4a/load4.runcom: -------------------------------------------------------------------------------- 1 | MAD LOAD4 (LIST) 2 | MAD CVDT4 (LIST) 3 | FAP DIOT (LIST) 4 | FAP KEYS (LIST) 5 | FAP STOP (LIST) 6 | FAP DIOI (LIST) 7 | MAD CDMP (LIST) 8 | FAP MPRT (LIST) 9 | FAP SETP (LIST) 10 | FAP .RST (LIST) 11 | -------------------------------------------------------------------------------- /src/salv4a/rdin.fap: -------------------------------------------------------------------------------- 1 | * 2 | TTL WRITE-AROUND FOR TAPE READ ROUTINE 3 | ENTRY RDIN 4 | REM 5 | REM RDIN.(A(N),N,EOF) 6 | REM READS BCD TAPE A2 INTO A(N)...A(1) 7 | REM TRANSFERS TO EOF ON END-OF-FILE 8 | RDIN SXA XR,4 SAVE RETURN 9 | CAL 1,4 GET BASE OF BUFFER 10 | STA C+1 AND SAVE IT 11 | CAL* 2,4 GET COUNT OF WORDS TO READ 12 | ALS 18 PLANT COUNT IN DECREMENT OF CALL 13 | STD C+1 .. 14 | CAL 3,4 GET EOF RETURN 15 | STA C+2 AND SAVE IT FOR POSSIBLE EOF 16 | REM 17 | C TSX $RTDINP,4 READ TAPE 18 | PTH **,,** BUFF,,'N' 19 | PTH ** EOF RETURN 20 | REM 21 | XR AXT ,4 WORDS READ, RETURN TO CALLER 22 | TRA 1,4 .. 23 | REM 24 | END 25 | -------------------------------------------------------------------------------- /src/salv4a/salv4.runcom: -------------------------------------------------------------------------------- 1 | MAD SALV4 (LIST) 2 | MAD CENT4 (LIST) 3 | MAD RTUT4 (LIST) 4 | MAD SMFD4 (LIST) 5 | MAD RFIL4 (LIST) 6 | MAD PTER4 (LIST) 7 | MAD CVDT4 (LIST) 8 | FAP XPND (LIST) 9 | FAP INDX (LIST) 10 | FAP KEYS (LIST) 11 | FAP STOP (LIST) 12 | FAP DIOI (LIST) 13 | MAD CDMP (LIST) 14 | FAP MPRT (LIST) 15 | FAP SETP (LIST) 16 | FAP .RST (LIST) 17 | -------------------------------------------------------------------------------- /src/salv4a/setp.fap: -------------------------------------------------------------------------------- 1 | * 2 | ENTRY .SETUP 3 | .SETUP SCA XR,4 4 | CAL TRA 5 | SLW 0 6 | HTR *+1 7 | RS LMTM 8 | XR AXC ,4 9 | TRA 1,4 10 | * 11 | TRA TRA RS 12 | END 13 | -------------------------------------------------------------------------------- /src/salv4a/sort4.runcom: -------------------------------------------------------------------------------- 1 | MAD SORTM (LIST) 2 | MAD SORT (LIST) 3 | MAD RTUT4 (LIST) 4 | MAD SMFD4 (LIST) 5 | MAD RFIL4 (LIST) 6 | MAD PTER4 (LIST) 7 | MAD CVDT4 (LIST) 8 | FAP XPND (LIST) 9 | FAP INDX (LIST) 10 | FAP RDIN (LIST) 11 | FAP KEYS (LIST) 12 | FAP STOP (LIST) 13 | FAP DIOI (LIST) 14 | MAD CDMP (LIST) 15 | FAP MPRT (LIST) 16 | FAP SETP (LIST) 17 | FAP .RST (LIST) 18 | -------------------------------------------------------------------------------- /src/salv4a/stat4.runcom: -------------------------------------------------------------------------------- 1 | MAD STAT4 (LIST) 2 | MAD RTUT4 (LIST) 3 | MAD SMFD4 (LIST) 4 | MAD RFIL4 (LIST) 5 | MAD PTER4 (LIST) 6 | MAD CVDT4 (LIST) 7 | FAP XPND (LIST) 8 | FAP INDX (LIST) 9 | FAP KEYS (LIST) 10 | FAP STOP (LIST) 11 | FAP DIOI (LIST) 12 | MAD CDMP (LIST) 13 | FAP MPRT (LIST) 14 | FAP SETP (LIST) 15 | FAP .RST (LIST) 16 | -------------------------------------------------------------------------------- /src/salv4a/stop.fap: -------------------------------------------------------------------------------- 1 | * 2 | ENTRY STOP 3 | STOP SCA XR,4 4 | HTR *+1 5 | XR AXC ,4 6 | TRA 1,4 7 | END 8 | -------------------------------------------------------------------------------- /src/salv4a/upd.runcom: -------------------------------------------------------------------------------- 1 | UPDATE 1 CDMP BSS CENT4 BSS CVDT4 BSS DIOI BSS DIOT BSS DUMP4 BSS 2 | UPDATE 1 INDX BSS KEYS BSS LOAD4 BSS MPRT BSS PTER4 BSS RDIN BSS 3 | UPDATE 1 RFIL4 BSS .RST BSS RTUT4 BSS SALV4 BSS SETP BSS SMFD4 BSS 4 | UPDATE 1 SORT BSS SORTM BSS STAT4 BSS STOP BSS XPND BSS LIBE BSS 5 | UPDATE 1 SALV4A CTSSLD SORT4A CTSSLD STAT4A CTSSLD 6 | -------------------------------------------------------------------------------- /src/tools/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/EOF.BIN -------------------------------------------------------------------------------- /src/tools/cksum.fap: -------------------------------------------------------------------------------- 1 | * CHECKSUM PROGRAM FOR LDABS COMMAND 2 | TITLE 3 | LINK ON 4 | LBL CKSUM 5 | ENTRY CKSUM 6 | CKSUM SXA IR1,1 SAVE IR1 7 | CLA 2,4 GET VECTOR BASE 8 | STA CK SAVE IT 9 | CLA* 3,4 SAVE NEGATIVE OF COUNT 10 | PAX 0,1 .. 11 | SCD TST,1 .. 12 | AXT 0,1 INITIALIZE LOOP COUNT 13 | CAL* 1,4 GET PREFIX WORD 14 | CK ACL **,1 ADD LOGICAL WORD 15 | TXI *+1,1,-1 DECREMENT COUNT 16 | TST TXH CK,1,** TEST FOR COMPLETION 17 | ERA* 4,4 MATCH WITH TEST CHECKSM 18 | IR1 AXT **,1 RESTORE IR1 19 | TRA 5,4 RETURN 20 | END 21 | -------------------------------------------------------------------------------- /src/tools/dsker.fap: -------------------------------------------------------------------------------- 1 | * DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 2 | LINK OFF 3 | REM REVISED 9/14/65 - NOEL I. MORRIS 4 | REM 5 | UNLIST 6 | INSERT MACS 7 | LIST 8 | ENTRY DSKER 9 | REM 10 | DSKER CAL =HPRNTER 11 | LDQ =O-71 12 | CALL NEXCOM 13 | REM 14 | RMT * REMOTE SEQUENCES 15 | REM 16 | END 17 | -------------------------------------------------------------------------------- /src/tools/extbss.runcom: -------------------------------------------------------------------------------- 1 | FAP EXTBSS (LIST) 2 | FAP WRBSS (LIST) 3 | FAP SVBSS (LIST) 4 | FAP RDBSS (LIST) 5 | FAP DELETE (LIST) 6 | FAP DSKER (LIST) 7 | VLOAD EXTBSS WRBSS SVBSS RDBSS DELETE DSKER 8 | SAVE EXTBSS 9 | -------------------------------------------------------------------------------- /src/tools/fap.runcom: -------------------------------------------------------------------------------- 1 | FAP FAP (LIST) 2 | NCLOAD FAP 3 | SAVE FAP 4 | -------------------------------------------------------------------------------- /src/tools/fap.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/fap.tap -------------------------------------------------------------------------------- /src/tools/hlod.fap: -------------------------------------------------------------------------------- 1 | HLOAD 2 | -------------------------------------------------------------------------------- /src/tools/l.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/l.tap -------------------------------------------------------------------------------- /src/tools/ldabs.runcom: -------------------------------------------------------------------------------- 1 | $ THIS PROGRAM WILL GENERATE THE 'LDABS' COMMAND. 2 | $ 3 | $ NOW ASSEMBLING MODULES 4 | $ LDBS MAD 5 | MAD LDBS (LIST) 6 | $ (MAIN) FAP 7 | FAP (MAIN) (LIST) 8 | $ CKSUM FAP 9 | FAP CKSUM (LIST) 10 | RQUEST PRNDEL (MAIN) BCD LDBS BCD CKSUM BCD 11 | $ END OF ASSEMBLIES. NOW LOADING.. 12 | NCLOAD (MAIN) LDBS CKSUM (SYS) (LIBE) XLIBE 13 | SAVE LDABS 14 | $ END OF LOADING. YOU NOW HAVE 'LDABS SAVED'. 15 | -------------------------------------------------------------------------------- /src/tools/load.runcom: -------------------------------------------------------------------------------- 1 | MOVE HLOD FAP MODLOD FAP 2 | FAP LOAD (LIST) (FLAG) NO 3 | NCLOAD LOAD 4 | SAVE L 5 | MOVE NLOD FAP MODLOD FAP 6 | FAP LOAD (LIST) (FLAG) NO 7 | NCLOAD LOAD 8 | SAVE LOAD 9 | -------------------------------------------------------------------------------- /src/tools/load.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/load.tap -------------------------------------------------------------------------------- /src/tools/mad.runcom: -------------------------------------------------------------------------------- 1 | FAP MAD01 (LIST) 2 | FAP MAD02 (LIST) 3 | FAP MAD03 (LIST) 4 | COMBIN * MAD ABS MAD01 MAD02 MAD03 5 | LDABS MAD 6 | SAVE MAD 7 | RENAME MAD SAVED MAD TSSDC. 8 | -------------------------------------------------------------------------------- /src/tools/mad.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/mad.tap -------------------------------------------------------------------------------- /src/tools/main.fap: -------------------------------------------------------------------------------- 1 | TTL DUMMY ROUTINE FOR MAD PROGRAMS 2 | LBL DUMMY 3 | TSX $FIRST,4 CALL MAD PROGRAM 4 | PTH 0 PASS ABSOLUTE ZERO 5 | TSX $DORMNT,4 STOP IF RETURN 6 | END 7 | -------------------------------------------------------------------------------- /src/tools/modlod.fap: -------------------------------------------------------------------------------- 1 | nlod.fap -------------------------------------------------------------------------------- /src/tools/nlod.fap: -------------------------------------------------------------------------------- 1 | LOAD 2 | -------------------------------------------------------------------------------- /src/tools/pload.runcom: -------------------------------------------------------------------------------- 1 | MAD PLOAD (LIST) 2 | NCLOAD PLOAD 3 | SAVE PLOAD 4 | -------------------------------------------------------------------------------- /src/tools/prbss.runcom: -------------------------------------------------------------------------------- 1 | FAP PRBSS (LIST) 2 | FAP RDBSS (LIST) 3 | FAP ECHAR (LIST) 4 | FAP DSKER (LIST) 5 | NCLOAD PRBSS RDBSS ECHAR DSKER 6 | SAVE PRBSS 7 | -------------------------------------------------------------------------------- /src/tools/prelod.runcom: -------------------------------------------------------------------------------- 1 | MAD PRELOD (LIST) 2 | NCLOAD PRELOD 3 | SAVE PRELOD 4 | -------------------------------------------------------------------------------- /src/tools/pusav.runcom: -------------------------------------------------------------------------------- 1 | FAP PUSAV (LIST) 2 | NCLOAD PUSAV 3 | SAVE PUSAV 4 | -------------------------------------------------------------------------------- /src/tools/scls.fap: -------------------------------------------------------------------------------- 1 | * SLIGHTLY MODIFIED FORM OF 'SCLS' AS FOUND IN LIBRARY 2 | TTL D.R. WIDRIG OCTOBER 1966 3 | LINK ON 4 | ENTRY SETC 5 | REM 6 | REM CALL IS SETC.(BUFF(20),N) 7 | REM 8 | SETC SCA SETX4,4 SAVE LINKAGE 9 | CLA 1,4 GET POINTER TO BASE 10 | STA SET SAVE IT 11 | CLA* 2,4 GET COMMAND BUFFER NUMBER 12 | ALS 18 MOVE TO DECREMENT 13 | STD SET AND PLANT IT 14 | TSX $SETCLS,4 CALL UP SUPERVISOR 15 | SET **,,** BUFF,,'N' 16 | REM 17 | SETX4 AXC **,4 RESTORE LINKAGE 18 | TRA 3,4 RETURN TO CALLER 19 | REM 20 | END 21 | -------------------------------------------------------------------------------- /src/tools/sdump.runcom: -------------------------------------------------------------------------------- 1 | FAP SDUMP (LIST) 2 | FAP OCTDMP (LIST) 3 | NCLOAD SDUMP OCTDMP 4 | SAVE SDUMP 5 | -------------------------------------------------------------------------------- /src/tools/sp.fap: -------------------------------------------------------------------------------- 1 | * MAIN PROGRAM FOR SP OR SD COMMAND 2 | * WRITEEN BY ROGER ROACH 9-6-67 3 | TSX $FIRST,4 4 | TIA =HDEAD SHOULD NEVER RETURN 5 | END 6 | -------------------------------------------------------------------------------- /src/tools/src_ext.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tools/src_ext.tap -------------------------------------------------------------------------------- /src/tools/stomap.runcom: -------------------------------------------------------------------------------- 1 | FAP STOMAP (LIST) 2 | NCLOAD STOMAP 3 | SAVE STOMAP 4 | -------------------------------------------------------------------------------- /src/tools/sysl.runcom: -------------------------------------------------------------------------------- 1 | MAD SYSL (LIST) 2 | FAP SCLS (LIST) 3 | FAP GETBUF (LIST) 4 | NCLOAD SYSL SCLS GETBUF 5 | SAVE SYSL 6 | -------------------------------------------------------------------------------- /src/tools/tiagen.runcom: -------------------------------------------------------------------------------- 1 | MAD TIAGEN (LIST) 2 | NCLOAD TIAGEN 3 | SAVE TIAGEN 4 | -------------------------------------------------------------------------------- /src/tools/updbss.runcom: -------------------------------------------------------------------------------- 1 | FAP UPDBSS (LIST) 2 | FAP RDBSS (LIST) 3 | FAP WRBSS (LIST) 4 | FAP SVBSS (LIST) 5 | FAP DELETE (LIST) 6 | FAP DSKER (LIST) 7 | VLOAD UPDBSS RDBSS WRBSS SVBSS DELETE DSKER 8 | SAVE UPDBSS 9 | -------------------------------------------------------------------------------- /src/tslib1.bss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib1.bss -------------------------------------------------------------------------------- /src/tslib1/akno.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * TSSENTRIES * FOREGROUND LIB * L.P. - JULY 63 * 3 | REM SUBROUTINIZED ENTRIES TO TSS ROUTINES 4 | LINK OFF 5 | ENTRY SETBRK 6 | ENTRY SAVBRK 7 | ENTRY GETBRK 8 | SETBRK TIA *+1 9 | BCI 1,SETBRK 10 | SAVBRK TIA *+1 11 | BCI 1,SAVBRK 12 | GETBRK TIA *+1 13 | BCI 1,GETBRK 14 | END 15 | -------------------------------------------------------------------------------- /src/tslib1/atcn.fap: -------------------------------------------------------------------------------- 1 | * SLAVE ENTRIES TO THE CTSS SUPERVISOR. 2 | REM 3 | LINK OFF 4 | ENTRY ATTCON 5 | ENTRY RELEAS 6 | ENTRY SNDLIN 7 | ENTRY SNDLNA 8 | ENTRY REDLIN 9 | ENTRY SLAVE 10 | ENTRY SET6 11 | ENTRY SET12 12 | REM 13 | ATTCON TIA *+1 14 | BCI 1,ATTCON 15 | RELEAS TIA *+1 16 | BCI 1,RELEAS 17 | SNDLIN TIA *+1 18 | BCI 1,SNDLIN 19 | SNDLNA TIA *+1 20 | BCI 1,SNDLNA 21 | REDLIN TIA *+1 22 | BCI 1,REDLIN 23 | SLAVE TIA *+1 24 | BCI 1,SLAVE 25 | SET6 TIA *+1 26 | BCI 1,SET6 27 | SET12 TIA *+1 28 | BCI 1,SET12 29 | REM 30 | REM 31 | END 32 | -------------------------------------------------------------------------------- /src/tslib1/attn.fap: -------------------------------------------------------------------------------- 1 | * 2 | ENTRY ATTNAM 3 | TITLE 4 | LINK OFF 5 | ATTNAM TIA =HATTNAM 6 | END 7 | 8 | -------------------------------------------------------------------------------- /src/tslib1/bcoc.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * BCOCT CONVERTS A BCD OCTAL NUMBER INTO RIGHT JUSTIFIED INTEGER 3 | * ARG1= BCD NUMBER. RETURNS RESULT IN SAC 4 | * CALLING SEQUENCE 5 | * FAP TSX BCOCT,4 6 | * PZE BCD WORD, WITH POSSIBLE LEADING BLANKS 7 | * STO BINARY INTEGER RIGHT JUSTIFIED 8 | * MAD A=BCOCT.(BCD WORD) 9 | *FORTRAN, NO CALL. 10 | * COMPUTATION CENTER LOUIS POUZIN 11 | * OCTOBER 63 12 | LBL BCOCT,X 13 | LINK ON 14 | REM 15 | REM 16 | REM 17 | REM 18 | ENTRY BCOCT 19 | REM 20 | REM 21 | X4 SYN *-2 22 | REM 23 | BCOCT SXD X4,4 24 | CAL* 1,4 25 | AXT 6,4 26 | A LGR 3 27 | ARS 3 28 | TIX A,4,1 29 | LGR 18 30 | XCA 31 | LXD X4,4 32 | TRA 2,4 33 | END 34 | -------------------------------------------------------------------------------- /src/tslib1/bfcl.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK ON 3 | ENTRY BFCLOS 4 | BFCLOS TRA 1,4 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/bsf0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *TPMOV FOR TIME-SHARING MOD XI FOREGROUND LIBRARY JDH DEC 62 3 | LINK ON 4 | ENTRY .BSF 5 | ENTRY .BSR 6 | ENTRY .EFT 7 | ENTRY .RWT 8 | .BSF TXI $(BST),4,-1 9 | REM 10 | .BSR SYN .BSF 11 | REM 12 | .EFT CAL* 1,4 ENTRY TO END FILE TAPE N 13 | ALS 18 TAPE NO. INTO DECREMENT 14 | TXI $(EFT),4,-1 GO TO FORTRAN ROUTINE (EFT) 15 | REM 16 | .RWT CAL* 1,4 ENTRY TO REWIND TAPE N 17 | ALS 18 TAPE NO. INTO DECREMENT 18 | TXI $(RWT),4,-1 GO TO FORTRAN ROUTINE (RWT) 19 | END 20 | -------------------------------------------------------------------------------- /src/tslib1/bz57.fap: -------------------------------------------------------------------------------- 1 | * BZ57 RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 2 | * 3 | * PROGRAM TO PLACE LEADING NULL CHARACTERS IN PLACE OF ZEROS OR 4 | * BLANKS IN A WORD. 5 | * 6 | * CALLING SEQUENCE - 7 | * NEWWD = BZ57.(WORD) 8 | * 9 | LINK OFF 10 | ENTRY BZ57 11 | BZ57 SXA XR4,4 12 | LDQ* 1,4 13 | AXT 0,4 14 | ZAC 15 | LOOP LGL 6 16 | LAS =H00000 TEST FOR A BLANK 17 | TNZ NBLANK NOT A BLANK 18 | TRA *+2 A BLANK, REPLACE BY A NULL 19 | TNZ NBLANK NOT A BLANK NOR A ZERO 20 | CAL =O57 A BLANK OR ZERO GETS REPLACED BY A NULL 21 | LGR 6 22 | RQL 6 23 | TXI *+1,4,6 24 | TXL LOOP,4,24 25 | TRA NBLANK+1 TESTED ALL OF THE WORD 26 | NBLANK LGR 6 27 | RQL 36,4 28 | XR4 AXT **,4 29 | XCA 30 | TRA 2,4 31 | END 32 | -------------------------------------------------------------------------------- /src/tslib1/bzel.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * BZEL BLANKS OUT LEADING ZEROS. YIELDS ZERO IF ALL ZEROS 3 | * CALLING SEQUENCE 4 | * FAP TSX BZEL,4 5 | * PZE WORD LOCATION 6 | * STO RESULT 7 | * MAD A=BZEL.(WORD) 8 | * FORTRAN M=BZEL(WORD) 9 | * COMPUTATION CENTER LOUIS POUZIN 10 | * FEBRUARY 64 11 | LINK ON 12 | LBL BZEL,X 13 | REM 14 | ENTRY BZEL 15 | REM 16 | REM 17 | BZEL SYN * 18 | X4 SYN *-2 19 | SXD X4,4 20 | LDQ* 1,4 21 | AXT 36,4 22 | A ZAC 23 | LGL 6 24 | TZE B 25 | LAS =H00000 26 | TRA *+2 27 | B TIX A,4,6 28 | ORA =H 0 29 | LGR 42,4 30 | XCA 31 | LXD X4,4 32 | TRA 2,4 33 | END 34 | -------------------------------------------------------------------------------- /src/tslib1/chfl.fap: -------------------------------------------------------------------------------- 1 | * 2 | DETAIL 3 | LINK OFF 4 | ENTRY CHFILE 5 | ENTRY DELFIL 6 | CHFILE TIA =HCHFILE 7 | DELFIL TIA =HDELFIL 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/cloc.fap: -------------------------------------------------------------------------------- 1 | * 2 | TITLE 3 | LINK OFF 4 | ENTRY CLOCON 5 | ENTRY CLOCOF 6 | CLOCON TIA =HCLOCON 7 | CLOCOF TIA =HCLOCOF 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/com0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * PERFORMS THE OPERATIONS COM, ANA, AND ORA FOR MAD PROGRAMS 3 | ENTRY COM 4 | ENTRY ORA 5 | ENTRY ANA 6 | COM CAL* 1,4 7 | COM 8 | TXI ANA+2,4,1 INCREASE COMPLEMENT OF RETURN ADDRESS BY 1 9 | ORA CAL* 1,4 10 | ORA* 2,4 11 | TRA ANA+2 12 | ANA CAL* 1,4 13 | ANA* 2,4 14 | XCL 15 | XCA 16 | TRA 3,4 17 | END 18 | -------------------------------------------------------------------------------- /src/tslib1/comf.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * SUBROUTINIZED ENTRIES TO CTSS SUPERVISOR - LP - DEC 63 3 | LINK OFF 4 | ENTRY COMFIL 5 | COMFIL TIA =HCOMFIL 6 | END 7 | -------------------------------------------------------------------------------- /src/tslib1/detc.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * GENERATE CALLING SEQUENCE FOR XDETRM 3 | LINK ON 4 | ENTRY DETCS 5 | DETCS SXA XR4,4 6 | CLA 3,4 7 | SUB =1 8 | STA ARG3 9 | CLA 4,4 10 | STA ARG4 11 | CLA* 1,4 12 | LDQ* 2,4 13 | TRA CALL 14 | ARG3 PZE ** 15 | HPR 16 | ARG4 PZE ** 17 | HPR 18 | HPR 19 | CALL TSX $XDETRM,4 20 | XR4 AXT **,4 21 | STO* 5,4 22 | TRA 6,4 23 | END 24 | -------------------------------------------------------------------------------- /src/tslib1/dim0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *DIM POSITIVE DIFFERENCE,,,FOR USE WITH MAD PROGRAMS 3 | * FLOATING POINT ARGU(MENT AND FLOATING POINT FUNCTION 4 | * SMALLEST POSITIVE DIFFERENCE IS ZERO 5 | ENTRY DIM 6 | * CALLING SEQUENCE EXECUTE DIM.(ARG1,ARG2) 7 | * WHERE 1,4 HAS A TXL IN THE OP CODE FIELD 8 | * RESULT IN ARITHMETIC ACCUMULATOR 9 | LINK ON 10 | DIM CLA* 1,4 11 | FSB* 2,4 12 | TPL *+2 13 | PXD 14 | TRA 3,4 15 | END 16 | -------------------------------------------------------------------------------- /src/tslib1/dskr.fap: -------------------------------------------------------------------------------- 1 | * DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 2 | REM REVISED 9/14/65 - NOEL I. MORRIS 3 | REM 4 | REM 5 | LINK OFF 6 | ENTRY DSKER 7 | REM 8 | DSKER CAL =HPRNTER 9 | LDQ =O-71 10 | TSX $NEXCOM,4 11 | REM 12 | END 13 | -------------------------------------------------------------------------------- /src/tslib1/eftm.fap: -------------------------------------------------------------------------------- 1 | * 2 | TITLE 3 | LINK OFF 4 | ENTRY (EFTM) 5 | ENTRY (LFTM) 6 | (EFTM) TIA =H(EFTM) 7 | (LFTM) TIA =H(LFTM) 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/fstt.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY FSTATE 4 | FSTATE TIA =HFSTATE 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/gblp.fap: -------------------------------------------------------------------------------- 1 | DETAIL 2 | LINK OFF 3 | ENTRY GETBLP 4 | ENTRY SETBLP 5 | GETBLP TIA =HGETBLP 6 | SETBLP TIA =HSETBLP 7 | END 8 | -------------------------------------------------------------------------------- /src/tslib1/geti.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * DUMMY FOR SUPERVISOR ENTRY 3 | * COMPUTATION CENTER LOUIS POUZIN 4 | * JUNE 64 5 | LBL TS18EN,X 6 | LINK OFF 7 | REM 8 | ENTRY GETIME 9 | REM 10 | GETIME TIA =HGETIME 11 | END 12 | -------------------------------------------------------------------------------- /src/tslib1/getm.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * TSS ENTRIES* FOREGROUND LIB* L.P. - JULY 63* 3 | * 4 | REM SUBROUTINIZED ENTRIES TO TSS ROUTINES 5 | LINK OFF 6 | ENTRY GETMEM 7 | ENTRY SETMEM 8 | TSS OPD 010171120000 9 | GETMEM TSS *+1 10 | BCI 1,GETMEM 11 | SETMEM TSS *+1 12 | BCI 1,SETMEM 13 | END 14 | -------------------------------------------------------------------------------- /src/tslib1/gopt.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY GETOPT 3 | ENTRY SETOPT 4 | ENTRY RSOPT 5 | ENTRY LDOPT 6 | GETOPT TIA =HGETOPT 7 | SETOPT TIA =HSETOPT 8 | RSOPT TIA =HRSOPT 9 | LDOPT TIA =HLDOPT 10 | END 11 | -------------------------------------------------------------------------------- /src/tslib1/gsys.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY GETSYS 3 | ENTRY SETSYS 4 | GETSYS TIA =HGETSYS 5 | SETSYS TIA =HSETSYS 6 | END 7 | -------------------------------------------------------------------------------- /src/tslib1/gtcl.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * SUBROUTINIZED ENTRIES TO CTSS SUPERVISOR - LP - DEC 63 3 | LINK OFF 4 | ENTRY GETCLC 5 | ENTRY GETCLS 6 | GETCLC TIA =HGETCLC 7 | GETCLS TIA =HGETCLS 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/gtcm.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY GETCOM 4 | GETCOM TIA =HGETCOM 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/gtdy.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY GTDYTM 4 | GTDYTM TIA =HGTDYTM 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/gtlo.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY GETLOC 4 | ENTRY GETARY 5 | ENTRY SETLOC 6 | GETLOC TIA =HGETLOC 7 | GETARY TIA =HGETARY 8 | SETLOC TIA =HSETLOC 9 | END 10 | -------------------------------------------------------------------------------- /src/tslib1/gwrd.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY GETWRD 3 | ENTRY SETWRD 4 | GETWRD TIA =HGETWRD 5 | SETWRD TIA =HSETWRD 6 | END 7 | -------------------------------------------------------------------------------- /src/tslib1/int0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *INT ARGUEMENTS AND FUNCTION ARE FIXED POINT. 3 | * FOR USE WITH MADTRAN TRANSLATED PROGRAMS 4 | * CALLING SEQUENCE TSX INT,4 5 | * TXH ARGUEMENT 6 | * 2,4 RETURN 7 | * RESULT IN ARITHMETIC ACCUMULATOR 8 | LINK ON 9 | ENTRY INT 10 | INT CLA* 1,4 11 | UFA =O233000000000 12 | FAD =O233000000000 13 | TRA 2,4 14 | END 15 | -------------------------------------------------------------------------------- /src/tslib1/iodg.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY IODIAG 4 | IODIAG TIA =HIODIAG 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/isin.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY ISIN 3 | ISIN TIA =HISIN 4 | END 5 | -------------------------------------------------------------------------------- /src/tslib1/ldum.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *LDMP FOR TIME SHARING MOD XI FOREGROUND LIBRARY JDH DEC 62 3 | LINK ON 4 | ENTRY LDUMP 5 | REM CALLS EXIT FOREVER. 6 | LDUMP TSX $EXIT,4 7 | TRA *-1 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/lib1_bss.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib1/lib1_bss.tap -------------------------------------------------------------------------------- /src/tslib1/lib2_bss.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib1/lib2_bss.tap -------------------------------------------------------------------------------- /src/tslib1/lib3_bss.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib1/lib3_bss.tap -------------------------------------------------------------------------------- /src/tslib1/ljus.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * LJUST(W) LEFT JUSTIFIES A BCD WORD 3 | * KEEPS LEADING ZEROS. SET TRAILING BLANKS 4 | * RETURNS '*' IF WORD IS ALL BLANKS 5 | LBL LJUST,X 6 | LINK ON 7 | REM 8 | REM 9 | ENTRY LJUST 10 | REM 11 | LJUST SYN * 12 | X4 SYN *-2 13 | SXD X4,4 14 | CAL* 1,4 15 | STI B 16 | LDQ =H * 17 | AXT 6,4 18 | A PAI 19 | IIL 600000 20 | LFT 770000 21 | TRA D 22 | LGL 6 23 | TIX A,4,1 24 | D XCL 25 | XCA 26 | LDI B 27 | LXD X4,4 28 | TRA 2,4 29 | B 30 | END 31 | -------------------------------------------------------------------------------- /src/tslib1/max0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *MAX0 FIND MAXIMUM VALUE SUBROUTINE..FINDS LARGEST VALUE OF ARGS 3 | * CALLING SEQUENCE TSX MAX0,4 4 | * AT LEAST 2 ARGS TXH ARG1 (FIXED POINT) 5 | * TXH ARG2 6 | * . . 7 | * . . 8 | * . . 9 | * TXH ARGN 10 | * RESULT IN AC IN FLOATING POINT, USE WITH MAD 11 | * 12 | LINK ON 13 | ENTRY MAX0 14 | MAX0 AXT -1,1 15 | BEGIN CLA 1,4 16 | ANA =O777777700000 17 | SUB =O300000000000 18 | TNZ DONE 19 | TXI *+1,4,-1 20 | TXI BEGIN,1,1 21 | DONE CLA* 0,4 22 | LDQ LDQ* -1,4 23 | TLQ HERE MQ LOW 24 | XCA MQ HIGH 25 | HERE TXI *+1,4,1 26 | TIX LDQ,1,1 27 | ORA =O233000000000 28 | FAD =O233000000000 29 | TRA 1,4 30 | END 31 | -------------------------------------------------------------------------------- /src/tslib1/max1.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *MAX1 FIND MAXIMUM VALUE SUBROUTINE..FIND LARGEST VALUE OF THE ARGS 3 | * CALLING SEQUENCE TSX MAX1,4 OR TSX XMAX0,4 (FIX,FIX) 4 | * TXH ARG1 (FLOATING POINT) 5 | * TXH ARG2 6 | * . 7 | * . 8 | * . 9 | * TXH ARGN 10 | * RESULT IN AC IN FLOATING PT.,FOR USE WITH MAD 11 | LINK ON 12 | ENTRY MAX1 13 | ENTRY XMAX0 14 | MAX1 AXT -1,1 15 | BEGIN CLA 1,4 16 | ANA =O777777700000 17 | SUB =O300000000000 18 | TNZ DONE 19 | TXI *+1,4,-1 20 | TXI BEGIN,1,1 21 | DONE CLA* 0,4 22 | LDQ LDQ* -1,4 23 | TLQ HERE 24 | XCA 25 | HERE TXI *+1,4,1 MQ LOW 26 | TIX LDQ,1,1 MQ HIGH 27 | TRA 1,4 28 | XMAX0 SYN MAX1 29 | END 30 | -------------------------------------------------------------------------------- /src/tslib1/min0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *MIN0 FIXED ARGUEMENT,FLOAT FUNCTION 3 | * FINDING THE MINIMUM VALUE 4 | * MAD CALLING SEQUENCE EXECUTE MIN0.(ARG1,...ARGN) 5 | * WHERE N IS ANY NUMBER 6 | LINK ON 7 | ENTRY MIN0 8 | MIN0 AXT -1,1 9 | BEGIN CLA 1,4 10 | ANA =O777777700000 11 | SUB =O300000000000 12 | TNZ DONE 13 | TXI *+1,4,-1 14 | TXI BEGIN,1,1 15 | DONE CLA* 0,4 16 | LDQ LDQ* -1,4 17 | TLQ *+2 MQ LOW 18 | TRA HERE MQ HIGH 19 | XCA 20 | HERE TXI *+1,4,1 21 | TIX LDQ,1,1 22 | ORA =O233000000000 23 | FAD =O233000000000 24 | TRA 1,4 25 | END 26 | -------------------------------------------------------------------------------- /src/tslib1/min1.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XMINO AND MIN1 NOV 27, 1961 3 | *CALLING SEQUENCE EXECUTE XI 4 | *CALLING SEQUENCE EXECUTE XMIN0.(FIXED1,FIXED2,...FIXEDN) 5 | *RESULT IN AC IN FIXED POINT 6 | * CALLING SEQUENCE EXECUTE MIN1.(FLOATING PT1,FLOAT2,...FLOATN) 7 | *RESULT IN AC IN FLOATING POINT 8 | LINK ON 9 | ENTRY MIN1 10 | ENTRY XMIN0 11 | MIN1 AXT -1,1 12 | BEGIN CLA 1,4 13 | ANA =O777777700000 14 | SUB =O300000000000 TXH INSTRUCTION CODE 15 | TNZ DONE 16 | TXI *+1,4,-1 17 | TXI BEGIN,1,1 18 | DONE CLA* 0,4 19 | LDQ LDQ* -1,4 20 | TLQ *+2 21 | TRA HERE 22 | XCA 23 | HERE TXI *+1,4,1 24 | TIX LDQ,1,1 25 | TRA 1,4 26 | XMIN0 SYN MIN1 27 | END 28 | -------------------------------------------------------------------------------- /src/tslib1/mod0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *MOD REMAINDERING ARG1(MOD ARG2) 3 | * CALLING SEQUENCE TSX MOD,4 4 | * TXH ARG1(FLOATING) 5 | * TXH ARG2(FLOATING) 6 | * 3,4 RETURN FUNCTION FLOATING 7 | LINK ON 8 | ENTRY MOD 9 | MOD CLS* 1,4 10 | FDP* 2,4 11 | XCA 12 | UFA =O233000000000 13 | FAD =O233000000000 14 | XCA 15 | FMP* 2,4 16 | FAD* 1,4 17 | * ANSWER IN ARITHMETIC ACCUMULATOR 18 | TRA 3,4 19 | END 20 | -------------------------------------------------------------------------------- /src/tslib1/moun.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY MOUNT 4 | ENTRY UMOUNT 5 | ENTRY VERIFY 6 | ENTRY LABEL 7 | ENTRY TAPFIL 8 | MOUNT TIA =HMOUNT 9 | UMOUNT TIA =HUMOUNT 10 | VERIFY TIA =HVERIFY 11 | LABEL TIA =HLABEL 12 | TAPFIL TIA =HTAPFIL 13 | END 14 | -------------------------------------------------------------------------------- /src/tslib1/ncom.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * NCOM, CALLS NEXCOM IN SUPERVISOR. 3 | * MAD EXECUTE NEXCOM.(ARG1, ARG2) 4 | * FAP TSX NCOM,4 5 | * PZE ARG1 6 | * PZE ARG2 7 | * FORTRAN CALL NCOM(ARG1, ARG2) 8 | * SEPTEMBER 64 LOUIS POUZIN 9 | * 10 | LBL NCOM,X 11 | LINK ON 12 | REM 13 | REM 14 | ENTRY NCOM 15 | REM 16 | REM 17 | NCOM SYN * 18 | CAL* 1,4 19 | LDQ* 2,4 20 | TXI $NEXCOM,4,-2 21 | END 22 | -------------------------------------------------------------------------------- /src/tslib1/nexc.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * NEXCOM DUMMY ENTRY TO SUPERVISOR 3 | * SEPTEMBER 64 L. POUZIN 4 | * 5 | LBL NEXCOM,X 6 | LINK OFF 7 | ENTRY NEXCOM 8 | NEXCOM TIA =HNEXCOM 9 | END 10 | -------------------------------------------------------------------------------- /src/tslib1/open.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY OPEN 4 | ENTRY FCHECK 5 | ENTRY FWAIT 6 | ENTRY BUFFER 7 | ENTRY CLOSE 8 | ENTRY UPDATE 9 | OPEN TIA =HOPEN 10 | FCHECK TIA =HFCHECK 11 | FWAIT TIA =HFWAIT 12 | BUFFER TIA =HBUFFER 13 | CLOSE TIA =HCLOSE 14 | UPDATE TIA =HUPDATE 15 | END 16 | -------------------------------------------------------------------------------- /src/tslib1/rdms.fap: -------------------------------------------------------------------------------- 1 | * RDMESS/WRMESS/ALLOW/FORBID - INTERCONSOLE SUPERVISOR ENTRIES. 2 | LINK OFF 3 | ENTRY WRMESS 4 | ENTRY RDMESS 5 | ENTRY ALLOW 6 | ENTRY FORBID 7 | REM 8 | REM 9 | WRMESS TIA *+1 10 | BCI 1,WRMESS 11 | RDMESS TIA *+1 12 | BCI 1,RDMESS 13 | ALLOW TIA *+1 14 | BCI 1,ALLOW 15 | FORBID TIA *+1 16 | BCI 1,FORBID 17 | REM 18 | REM 19 | END 20 | -------------------------------------------------------------------------------- /src/tslib1/rdtm.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY RDYTIM 3 | RDYTIM TIA =HRDYTIM 4 | END 5 | -------------------------------------------------------------------------------- /src/tslib1/rdwt.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY RDFILE 4 | ENTRY RDWAIT 5 | RDFILE TIA =HRDFILE 6 | RDWAIT TIA =HRDWAIT 7 | END 8 | -------------------------------------------------------------------------------- /src/tslib1/reco.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *RECP FOR TIME SHARING MOD XI FOREGROUND LIBRARY JDH DEC 62 3 | LINK ON 4 | ENTRY RECOUP 5 | REM CALLS EXIT FOREVER. 6 | RECOUP TSX $EXIT,4 7 | TRA *-1 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/rjus.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * RJUST RIGHT JUSTIFIES A BCD WORD 3 | * INSERTS LEADING BLANKS. KEEPS LEADING ZEROS 4 | REM 5 | REM 6 | LBL RJUST,X 7 | LINK ON 8 | ENTRY RJUST 9 | REM 10 | RJUST SYN * 11 | X4 SYN *-2 12 | SXD X4,4 13 | CAL* 1,4 14 | STI A 15 | AXT 6,4 16 | B PAI 17 | IIR 60 18 | RFT 77 SKIP WHEN BLANK ON RIGHT 19 | TRA C 20 | ARS 6 21 | ORA =H 00000 INSERT LEADING BLANK 22 | TIX B,4,1 23 | CAL =H * ALL BLANK. SET * 24 | C XCL 25 | XCA 26 | LDI A 27 | LXD X4,4 28 | TRA 2,4 29 | A PZE 30 | END 31 | -------------------------------------------------------------------------------- /src/tslib1/rsbr.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY RSSRB 3 | RSSRB TIA =HRSSRB 4 | END 5 | -------------------------------------------------------------------------------- /src/tslib1/rstf.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY RESETF 4 | ENTRY UNLINK 5 | RESETF TIA =HRESETF 6 | UNLINK TIA =HUNLINK 7 | END 8 | -------------------------------------------------------------------------------- /src/tslib1/setc.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * SETCLC, GETCLC. DUMMIES FOR TSS SUPERVISOR ENTRIES. 3 | * AUGUST 64 LOUIS POUZIN 4 | REM 5 | LBL TSEN18,X 6 | LINK OFF 7 | ENTRY SETCLC 8 | ENTRY SETCLS 9 | SETCLC TIA =HSETCLC 10 | SETCLS TIA =HSETCLS 11 | END 12 | -------------------------------------------------------------------------------- /src/tslib1/setp.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY SETPRI 4 | SETPRI TIA =HSETPRI 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/setu.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *SETUP SETUP FOR MOD 14 CTSS * LP - JULY 63 * 3 | LINK ON 4 | ENTRY .SETUP 5 | .SETUP SXD *-2,4 6 | EMTM 7 | CAL $(FPT) SET UP LOCATION 8 8 | SLW 8 TO TRAP TO (FPT) 9 | TSX $(EFTM),4 ENTER FL. TR. MODE 10 | LXD .SETUP-2,4 11 | TRA 1,4 12 | END 13 | -------------------------------------------------------------------------------- /src/tslib1/simc.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * GENERATE CALLING SEQUENCE FOR XSIMEQ 3 | LINK ON 4 | ENTRY SIMCS 5 | SIMCS SXA XR4,4 6 | CLA* 3,4 7 | STO COMMON-2 8 | CLA 4,4 9 | SUB =1 10 | STA ARG4 11 | CLA 5,4 12 | SUB =1 13 | STA ARG5 14 | CLA 6,4 15 | STA ARG6 16 | CLA 7,4 17 | SUB =1 18 | STA ARG7 19 | CLA* 1,4 20 | LDQ* 2,4 21 | TRA CALL 22 | ARG4 PZE ** 23 | HPR 24 | ARG5 PZE ** 25 | HPR 26 | ARG6 PZE ** 27 | HPR 28 | ARG7 PZE ** 29 | HPR 30 | HPR 31 | CALL TSX $XSIMEQ,4 32 | XR4 AXT **,4 33 | STO* 8,4 34 | TRA 9,4 35 | COMMON -206 36 | COMMON COMMON 1 37 | END 38 | -------------------------------------------------------------------------------- /src/tslib1/slee.fap: -------------------------------------------------------------------------------- 1 | * TSS ENTRIES FOREGROUND LIBRARY L. P. JULY 64 2 | LINK OFF 3 | ENTRY SLEEP 4 | SLEEP TIA =HSLEEP 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/sloc.fap: -------------------------------------------------------------------------------- 1 | * SLOC - MAD CALL TO SETLOC. 2 | * REWRITTEN TO USE AN EXTERNAL CALL TO SETLOC ROGER ROACH 2/21/68 3 | * CALLING SEQUENCE - 4 | * SLOC.(WORD,LOC) 5 | * 6 | LINK ON 7 | ENTRY SLOC 8 | SLOC SXD SLOC-2,4 9 | CAL* 2,4 10 | STA A 11 | CAL* 1,4 12 | TSX $SETLOC,4 13 | A PZE ** 14 | LXD SLOC-2,4 15 | TRA 3,4 16 | END 17 | -------------------------------------------------------------------------------- /src/tslib1/stfl.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY SETBCD 4 | ENTRY SETFUL 5 | ENTRY SETNCV 6 | ENTRY SETNBK 7 | ENTRY KILNBK 8 | SETBCD TIA =HSETBCD 9 | SETFUL TIA =HSETFUL 10 | SETNCV TIA =HSETNCV 11 | SETNBK TIA =HSETNBK 12 | KILNBK TIA =HKILNBK 13 | END 14 | -------------------------------------------------------------------------------- /src/tslib1/stor.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY STORGE 4 | STORGE TIA =HSTORGE 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/tlck.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY TILOCK 4 | ENTRY FERRTN 5 | TILOCK TIA =HTILOCK 6 | FERRTN TIA =HFERRTN 7 | END 8 | -------------------------------------------------------------------------------- /src/tslib1/trfl.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY TRFILE 4 | TRFILE TIA =HTRFILE 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/tslib1.bss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib1/tslib1.bss -------------------------------------------------------------------------------- /src/tslib1/tssf.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * SUBROUTINIZED ENTRIES TO CTSS SUPERVISOR - LP - DEC 63 3 | LINK OFF 4 | ENTRY TSSFIL 5 | ENTRY USRFIL 6 | TSSFIL TIA =HTSSFIL 7 | USRFIL TIA =HUSRFIL 8 | END 9 | -------------------------------------------------------------------------------- /src/tslib1/updm.fap: -------------------------------------------------------------------------------- 1 | * PRIVILEGED FILE SYSTEM ENTRIES TO CTSS. 2 | LINK OFF 3 | ENTRY MOVFIL 4 | ENTRY UPDMFD 5 | ENTRY DELMFD 6 | ENTRY ATTACH 7 | ENTRY SETFIL 8 | ENTRY LINK 9 | ENTRY ALLOT 10 | REM 11 | UPDMFD TIA =HUPDMFD 12 | DELMFD TIA =HDELMFD 13 | ATTACH TIA =HATTACH 14 | MOVFIL TIA =HMOVFIL 15 | SETFIL TIA =HSETFIL 16 | LINK TIA =HLINK 17 | ALLOT TIA =HALLOT 18 | REM 19 | END 20 | -------------------------------------------------------------------------------- /src/tslib1/wait.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY WAIT 3 | WAIT TIA =HWAIT 4 | END 5 | -------------------------------------------------------------------------------- /src/tslib1/whoa.fap: -------------------------------------------------------------------------------- 1 | * 2 | LINK OFF 3 | ENTRY WHOAMI 4 | WHOAMI TIA =HWHOAMI 5 | END 6 | -------------------------------------------------------------------------------- /src/tslib1/wrfl.fap: -------------------------------------------------------------------------------- 1 | * CONSOLE INPUT/OUTPUT CALLS TO SUPERVISOR 2 | TTL D.R. WIDRIG NOV. 1966 3 | LINK OFF 4 | ENTRY WRFLX 5 | ENTRY WRFLXA 6 | ENTRY RDFLXA 7 | REM 8 | WRFLX TIA =HWRFLX 9 | WRFLXA TIA =HWRFLXA 10 | RDFLXA TIA =HRDFLXA 11 | REM 12 | END 13 | -------------------------------------------------------------------------------- /src/tslib1/wrwt.fap: -------------------------------------------------------------------------------- 1 | LINK OFF 2 | ENTRY WRFILE 3 | ENTRY WRWAIT 4 | WRFILE TIA =HWRFILE 5 | WRWAIT TIA =HWRWAIT 6 | END 7 | -------------------------------------------------------------------------------- /src/tslib1/xdim.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XDIM ARG1-MIN(ARG1,ARG2) 3 | * CALLING SEQUENCE TSX XDIM,4 4 | * TXH ARG1 5 | * TXH ARG2 6 | * 3,4 RETURN 7 | * ARGUEMENTS AND FUNCTION FIXED 8 | LINK ON 9 | ENTRY XDIM 10 | XDIM CLA* 1,4 11 | SUB* 2,4 12 | TPL *+2 13 | PXD 14 | TRA 3,4 15 | REM FUNCTING IN ARITHMETIC ACCUMULATOR 16 | END 17 | -------------------------------------------------------------------------------- /src/tslib1/xdtr.mad: -------------------------------------------------------------------------------- 1 | R..INTERFACE FOR MAD OR MADTRN CALLS TO XDETRM 2 | EXTERNAL FUNCTION (ARG1, ARG2, ARG3, ARG4) 3 | NORMAL MODE IS INTEGER 4 | FLOATING POINT ARG3, ARG4 5 | ENTRY TO XDTRM. 6 | R..VALUE OF DETERMINANT INVARIANT UNDER TRANSPOSITION 7 | FARG1 = FINT.(ARG1) 8 | FARG2 = FINT.(ARG2) 9 | EXECUTE DETCS.(FARG1, FARG2, ARG3, ARG4, FM) 10 | M = MINT.(FM) 11 | FUNCTION RETURN M 12 | END OF FUNCTION 13 | -------------------------------------------------------------------------------- /src/tslib1/xfix.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XINT TRUNCATION, ARGUEMENT FLOATING, FUNCTION FIXED 3 | * FOR MADTRAN TRANSLATED PROGRAMS 4 | * CALLING SEQU(NCE EXECUTE XINT.(FLOAT ARG) RESULT FIXED PT 5 | * 2,4 RETURN 6 | * RESULT IN ARITHMETIC ACCUM ADDRESS ONLY 7 | LINK ON 8 | ENTRY XFIX 9 | ENTRY XINT 10 | XINT CLA* 1,4 11 | UFA =O233000000000 12 | LRS 0 SIGN OF AC TO MQ 13 | ANA =O377777 14 | LLS 0 SIGN OF MQ TO AC 15 | TRA 2,4 16 | XFIX SYN XINT 17 | END 18 | -------------------------------------------------------------------------------- /src/tslib1/xmax.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XMAX1 FIXED POINT FUNCTION,FLOATING POINT ARGUEMENTS 3 | * FINDING THE MAXIMUM VALUE OF THE ARGUEMENTS 4 | * CALLING SEQUENCE TSX XMAX1,4 5 | * TXH ARGU1 6 | * MAD USE TXH ARGN 7 | * ANY NUMBER OF ARGUEMENT BUT AT LEAST TWO 8 | LINK ON 9 | ENTRY XMAX1 10 | XMAX1 AXT -1,1 11 | BEGIN CLA 1,4 12 | ANA =O777777700000 13 | SUB =O300000000000 14 | TNZ DONE 15 | TXI *+1,4,-1 16 | TXI BEGIN,1,1 17 | DONE CLA* 0,4 18 | LDQ LDQ* -1,4 19 | TLQ HERE MQ LOW 20 | XCA MQ HIGH 21 | HERE TXI *+1,4,1 22 | TIX LDQ,1,1 23 | UFA =O233000000000 24 | ANA =O377777 25 | LLS 0 26 | TRA 1,4 27 | END 28 | -------------------------------------------------------------------------------- /src/tslib1/xmin.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XMIN1 FLOATING POINT ARGUEMENT,FIXED POINT FUNCTION 3 | * FINDING THE MINIMUM VALUE 4 | * MAD CALLING SEQUENCE EXECUTE XMIN1.(ARG1,...ARGN) 5 | * WHERE N IS ANY NUMBER 6 | LINK ON 7 | ENTRY XMIN1 8 | XMIN1 AXT -1,1 9 | BEGIN CLA 1,4 10 | ANA =O777777700000 11 | SUB =O300000000000 12 | TNZ DONE 13 | TXI *+1,4,-1 14 | TXI BEGIN,1,1 15 | DONE CLA* 0,4 16 | LDQ LDQ* -1,4 17 | TLQ *+2 MQ LOW 18 | TRA HERE MQ HIGH 19 | XCA 20 | HERE TXI *+1,4,1 21 | TIX LDQ,1,1 22 | UFA =O233000000000 23 | LRS 0 24 | ANA =O377777 25 | LLS 0 26 | TRA 1,4 27 | END 28 | -------------------------------------------------------------------------------- /src/tslib1/xmod.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | *XMOD REMAINDERING ARG1(MOD ARG2) 3 | * CALLING SEQUENCE TSX XMOD,4 4 | * TXH ARG1(FIXED) 5 | * TXH ARG2(FIXED) 6 | * 3,4 RETURN 7 | * FUNCTION FIXED 8 | LINK ON 9 | ENTRY XMOD 10 | XMOD CLM 11 | LDQ* 1,4 12 | LLS SIGN OF MQ TO AC 13 | DVP* 2,4 14 | TRA 3,4 15 | REM FUNCTION IN ARITHMETIC AC FIXED 16 | END 17 | -------------------------------------------------------------------------------- /src/tslib1/zel0.fap: -------------------------------------------------------------------------------- 1 | * FAP 2 | * ZEL FILLS OUT LEADING BLANKS WITH ZEROS 3 | REM 4 | LBL ZEL,X 5 | LINK ON 6 | ENTRY ZEL 7 | REM 8 | REM 9 | ZEL SYN * 10 | X4 SYN *-2 11 | SXD X4,4 12 | LDQ* 1,4 13 | AXT 36,4 14 | A ZAC 15 | LGL 6 16 | TZE B 17 | LAS =H00000 18 | TRA *+2 19 | B TIX A,4,6 20 | LGR 42,4 21 | XCA 22 | LXD X4,4 23 | TRA 2,4 24 | END 25 | -------------------------------------------------------------------------------- /src/tslib2/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib2/EOF.BIN -------------------------------------------------------------------------------- /src/tslib2/tslib2.bss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/tslib2/tslib2.bss -------------------------------------------------------------------------------- /src/tslib2/tslib2.runcom: -------------------------------------------------------------------------------- 1 | FAP DBUG (LIST) 2 | FAP FPD0 (LIST) 3 | FAP FPM0 (LIST) 4 | FAP TRAC (LIST) 5 | COMBIN * TSLIB2 BSS DBUG FPD0 FPM0 TRAC 6 | APENDA TSLIB2 BCD * DBUG FPD0 FPM0 TRAC 7 | DELETE DBUG BCD FPD0 BCD FPM0 BCD TRAC BCD 8 | DELETE DBUG BSS FPD0 BSS FPM0 BSS TRAC BSS 9 | DELETE DBUG SYMTB FPD0 SYMTB FPM0 SYMTB TRAC SYMTB 10 | -------------------------------------------------------------------------------- /src/tslib2/tslib2.sh: -------------------------------------------------------------------------------- 1 | USER=' M1416 31' 2 | echo -n > tslib2_src.bcd 3 | for i in dbug.fap fpd0.fap fpm0.fap trac.fap ; do 4 | NAME=`basename $i .fap` 5 | obj2img -A -a "$USER" -t -f $NAME -e 'FAP' -o tmp.img $i 6 | cat tmp.img >> tslib2_src.bcd 7 | done 8 | obj2img -A -a "$USER" -t -f tslib2 -e 'RUNCOM' -o tmp.img tslib2.runcom 9 | cat tmp.img >> tslib2_src.bcd 10 | grep '(LIST)' tslib2.runcom \ 11 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BCD I'"$USER"'"}' >tsl2_ext.dat 12 | grep '(LIST)' tslib2.runcom \ 13 | | awk '{x=" " $2; print substr(x,length(x)-5,6) " BSS B'"$USER"'"}' >tsl2_bss.dat 14 | #cat EOF.BIN >>tslib2_src.bcd 15 | rm tmp.img 16 | -------------------------------------------------------------------------------- /src/xlibe/EOF.BIN: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/xlibe/EOF.BIN -------------------------------------------------------------------------------- /src/xlibe/brake.fap: -------------------------------------------------------------------------------- 1 | * BRAKE 2 | * EXITING PROGRAM. RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 3 | * 4 | * TESTS FOR COMMAND CHAINING AND IF PRESENT WILL TYPE INSTRUCTIONS FOR 5 | * CONTINUING THE CHAIN. IT THEN CALLS DORMNT. TYPING 'START' RETURNS 6 | * TO 1,4. IF NOT COMMAND CHAINING WILL RETURN DIRECTLY TO 1,4. 7 | * 8 | LINK OFF 9 | ENTRY BRAKE 10 | BRAKE SXA XR4,4 11 | TSX $GETCLC,4 12 | TZE XR4 13 | TSX $WRFLX,4 14 | PZE MESS,,4 15 | OUT TSX $DORMNT,4 16 | XR4 AXT **,4 17 | TRA 1,4 18 | MESS BCI 4, TYPE 'START' TO GO ON. 19 | END 20 | -------------------------------------------------------------------------------- /src/xlibe/bz57.fap: -------------------------------------------------------------------------------- 1 | * BZ57 RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 2 | * 3 | * PROGRAM TO PLACE LEADING NULL CHARACTERS IN PLACE OF ZEROS OR 4 | * BLANKS IN A WORD. 5 | * 6 | * CALLING SEQUENCE - 7 | * NEWWD = BZ57.(WORD) 8 | * 9 | LINK OFF 10 | ENTRY BZ57 11 | BZ57 SXA XR4,4 12 | LDQ* 1,4 13 | AXT 0,4 14 | ZAC 15 | LOOP LGL 6 16 | LAS =H00000 TEST FOR A BLANK 17 | TNZ NBLANK NOT A BLANK 18 | TRA *+2 A BLANK, REPLACE BY A NULL 19 | TNZ NBLANK NOT A BLANK NOR A ZERO 20 | CAL =O57 A BLANK OR ZERO GETS REPLACED BY A NULL 21 | LGR 6 22 | RQL 6 23 | TXI *+1,4,6 24 | TXL LOOP,4,35 25 | TRA NBLANK+1 TESTED ALL OF THE WORD 26 | NBLANK LGR 6 27 | RQL 36,4 28 | XR4 AXT **,4 29 | XCA 30 | TRA 2,4 31 | END 32 | -------------------------------------------------------------------------------- /src/xlibe/dsker.fap: -------------------------------------------------------------------------------- 1 | * DISK ERROR SUBROUTINE - CALLS PRNTER VIA NEXCOM. 2 | REM 3 | REM REVISED 9/14/65 - NOEL I. MORRIS 4 | REM 5 | LINK OFF 6 | NOCRS 7 | UNLIST 8 | CALL1 MACRO SUBR 9 | TSX SUBR,4 GENERATE SYSTEM INSTRUCTION. 10 | CALL1 END 11 | CALL2 MACRON LIST 12 | IRP LIST 13 | PAR LIST 14 | IRP 15 | CALL2 END 16 | CALL MACRO SUBR,LIST 17 | CALL1 SUBR 18 | CALL2 (LIST) 19 | RMT 20 | IFF SUBR,0,1 IF ARGUMENT IS UNDEFINED, 21 | SUBR TIA =H'SUBR 22 | RMT 23 | CALL END 24 | LIST 25 | REM 26 | REM 27 | ENTRY DSKER 28 | REM 29 | DSKER CAL =HPRNTER 30 | LDQ =O-71 31 | CALL NEXCOM 32 | REM 33 | RMT * REMOTE SEQUENCES 34 | REM 35 | END 36 | -------------------------------------------------------------------------------- /src/xlibe/fix.fap: -------------------------------------------------------------------------------- 1 | * FIX - CONVERT FLOATING POINT TO INTEGER AND FRACTION. 2 | REM 3 | REM 7/19/66 - NOEL I. MORRIS 4 | REM 5 | LINK OFF 6 | ENTRY FIX 7 | REM 8 | REM 9 | FIX CLA* 1,4 PICK UP FLOATING-POINT NUMBER 10 | UFA CF FIX IT 11 | ERA CF .. 12 | LLS 0 PRESERVE THE SIGN 13 | STO* 2,4 RETURN INTEGER PART 14 | LLS 8 LEFT-JUSTIFY FRACTION 15 | STQ* 3,4 AND RETURN 16 | TRA 3,4 AND RETURN 17 | REM 18 | REM 19 | CF VFD O9/233 20 | REM 21 | REM 22 | END 23 | -------------------------------------------------------------------------------- /src/xlibe/fracbc.fap: -------------------------------------------------------------------------------- 1 | * FRACBC - FRACTION TO BCD CONVERSION. 2 | REM 3 | REM 7/19/66 - NOEL I. MORRIS 4 | REM 5 | LINK OFF 6 | ENTRY FRACBC 7 | REM 8 | REM 9 | FRACBC SXA SX4,4 SAVE XR4 10 | STZ FRACT INITIALIZE RESULT 11 | LDQ* 1,4 PICK UP NUMBER 12 | REM 13 | AXT 0,4 CONVERSION AND SHIFT COUNTER 14 | FLOOP MPY =10 DIGIT IN AC 15 | ALS 30,4 SHIFT TO POSITION 16 | ORS FRACT AND OR INTO RESULT 17 | TXI *+1,4,6 .. 18 | TXL FLOOP,4,30 .. 19 | REM 20 | CLA FRACT PICK UP RESULT 21 | SX4 AXT **,4 RESTORE XR4 22 | TRA 2,4 AND RETURN 23 | REM 24 | REM 25 | FRACT PZE 26 | REM 27 | REM 28 | END 29 | -------------------------------------------------------------------------------- /src/xlibe/getim.fap: -------------------------------------------------------------------------------- 1 | * PROGRAM TO RETURN DATE AND TIME FROM GETIME TO MAD PROGRAMS. 2 | * 3 | * RECONSTRUCTED FROM THE BINARY BY ROGER ROACH 8-01-67 4 | * 5 | * CALLING SEQUENCE - 6 | * 7 | * GETIM.(TIME,DATE) THE TIME IS IN 60THS OF A SECOND 8 | * THE DATE IS OF THE FORM MMDDYY 9 | * 10 | LINK OFF 11 | ENTRY GETIM 12 | GETIM SXA XR4,4 13 | TSX $GETIME,4 14 | XR4 AXT **,4 15 | SLW* 1,4 16 | STQ* 2,4 17 | TRA 3,4 18 | END 19 | -------------------------------------------------------------------------------- /src/xlibe/gtch1.fap: -------------------------------------------------------------------------------- 1 | * GET CHARACTER FROM LEFT GTCH1 2 | LINK ON 3 | ENTRY GTCH1 4 | GTCH1 ZAC 5 | LDQ* 1,4 6 | LGL 6 7 | STQ* 1,4 8 | TRA 2,4 9 | END 10 | -------------------------------------------------------------------------------- /src/xlibe/move.fap: -------------------------------------------------------------------------------- 1 | * XLIBE ROUTINE MOVE - RECONSTRUCTED BY R. ROACH 2/22/68 2 | * 3 | * MOVE MOVES A BLOCK OF DATA FROM ONE ARRAY TO ANOTHER. 4 | * 5 | * ITS CALLING SEQUENCE IS 6 | * MOVE.(N,ARRAY1(N),ARRAY2(N)) 7 | * 8 | LINK OFF 9 | ENTRY MOVE 10 | MOVE SXA XR2,2 11 | CAL* 1,4 12 | PAX ,2 13 | TXI *+1,2,-1 14 | CAL 2,4 GET ADDRESS OF FIRST ARRAY 15 | STA LOC 16 | CAL 3,4 AND NOW THE SECOND 17 | STA LOC+1 18 | LOC CAL **,2 GET DATA FROM THE FIRST 19 | SLW **,2 AND STORE IT INTHE SECOND 20 | TXL OUT,2,0 ARE WE DONE 21 | TXI LOC,2,-1 NOPE, GO BACK FOR MORE 22 | OUT SYN * 23 | XR2 AXT **,2 24 | TRA 1,4 GO HOME 25 | END 26 | -------------------------------------------------------------------------------- /src/xlibe/pkwd1.fap: -------------------------------------------------------------------------------- 1 | * PACK WORD FROM RIGHT WITH RIGHT-ADJUSTED CHARS PKWD1 2 | * 3 | * INITIALIZATION ENTRY 4 | LINK ON 5 | ENTRY PKWD1I 6 | * NORMAL ENTRY 7 | ENTRY PKWD1 8 | * 9 | * 10 | PKWD1I CAL =H 11 | SLW* 1,4 12 | TRA 2,4 13 | * 14 | * 15 | PKWD1 CAL* 1,4 16 | ALS 6 17 | ORA* 2,4 18 | SLW* 1,4 19 | TRA 3,4 20 | END 21 | -------------------------------------------------------------------------------- /src/xlibe/prdata.fap: -------------------------------------------------------------------------------- 1 | * PRINT LINE OF CONTIGUOUS SIX-CHAR FIELDS, VAR-LGTH CALL PRDATA 2 | LINK ON 3 | ENTRY PRDATA 4 | EXTERN WRFLX 5 | PRDATA SXA XR1,1 6 | SXA XR2,2 7 | AXT 0,2 8 | CAL* 1,4 9 | PAX ,1 10 | ALS 18 11 | STD ARG 12 | TXL OUT,1,0 13 | LOOP CAL* 2,4 14 | SLW LINE,2 15 | TXI *+1,2,-1 16 | TXI *+1,4,-1 17 | TIX LOOP,1,1 18 | OUT SXA XR4,4 19 | TSX WRFLX,4 20 | ARG PZE LINE,,** 21 | XR4 AXT **,4 22 | XR2 AXT **,2 23 | XR1 AXT **,1 24 | TRA 2,4 25 | LINE BSS 14 26 | END 27 | -------------------------------------------------------------------------------- /src/xlibe/reprob.fap: -------------------------------------------------------------------------------- 1 | * PROGRAM TO REFORMAT THE PROBLEM NUMBER INTO SYSTEM FORMAT. 2 | * WRITTEN BY D. A. ANDERSON 4/11/67 3 | * 4 | * CALLED BY PROBNO = REPROB.(PROBNO) 5 | LINK ON 6 | ENTRY REPROB 7 | ENTRY SPLFN ADD ENTRY FOR THOSE OLD PROGRAMS 8 | REPROB SXA XR1,1 9 | SPLFN SYN REPROB 10 | CAL* 1,4 11 | ERA =H 12 | ANA =O770000000000 13 | TZE *+3 14 | CLA* 1,4 RETURN FULL PROB NO 15 | TRA 2,4 16 | CAL* 1,4 17 | ERA =H 18 | AXT 0,1 19 | TZE *+3 20 | ARS 6 21 | TXI *-2,1,6 22 | LDQ* 1,4 23 | LGL 42,1 24 | ALS 30,1 25 | TXI *+1,1,-6 26 | SXA *+1,1 27 | LGL ** 28 | XCL 29 | XCA 30 | XR1 AXT **,1 31 | TRA 2,4 32 | END 33 | -------------------------------------------------------------------------------- /src/xlibe/xlib_bss.tap: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/rcornwell/ctss/3e834cbfa907cac7351001d29927eb6b2de1ce1d/src/xlibe/xlib_bss.tap --------------------------------------------------------------------------------