PLATO/CYBIS

SPECIAL NOTE: ALL CODE HAS BEEN MADE AVAILABLE FOR NON-COMMERCIAL PURPOSES through the generosity of BT Federal, Nat Kannan, Paul Koning, Mike Cochran and Tom Hunter
Module Contents
ACCOUNT
426 Lines
compass
  • [00005] LESSON USAGE ACCOUNTING
  • [00015] COMMENTS
  • [00043] -ACCIN- INITIALIZE LESSON USE INFO
  • [00143] -ACCOUT- OUTPUT LESSON USE INFO
  • [00299] -ACCINC- ALTER ACCOUNT USER COUNT
  • [00362] -ACCUSE- OUTPUT -USE- FILE ACCOUNTING
ACCPRT
646 Lines
compass
  • [00221] SUBROUTINES FOR ACCOUNT FILES PRINTER
  • [00222] DEFINITIONS
  • [00274] MACROS
  • [00290] -SETUP- LOAD TIME INITIALIZATIONS
  • [00376] SYSTEXT
  • [00385] *MASTOR* REQUEST/COMMUNICATION ROUTINES
  • [00392] RETURN PROPER FILE TYPE
  • [00438] -NOTYPES- ARGUMENT ERROR IN CONTROL CARD
  • [00447] SHIFTS
  • [00475] ZERO TO BLANK ROUTINE
  • [00519] ATTACH PLATO FILE
  • [00556] BOMBOFF IF NOT AN ACCOUNT
  • [00574] DETACH PLATO FILE
  • [00587] READ BLOCK FROM PLATO DISK FILE
  • [00621] STORAGE
ACPAGE
785 Lines
compass
AIST2
7,596 Lines
compass
AIST2R
1,768 Lines
compass
  • [00008] ASCII IST2 ROM PROGRAM
  • [00027] I/O
  • [00077] EQUATE TABLES
  • [00223] INITIALIZE ROM PROGRAM
  • [00285] COMM SET
  • [00335] LOAD FILE
  • [00356] ASCII LOAD
  • [00378] LOAD SEQUENCE
  • [00558] LOAD DATA TO RAM
  • [00711] LOAD REQUEST
  • [00749] INPUT DATA
  • [00804] OUTPUT DATA
  • [00836] CRC GENERATOR
  • [00883] GET LOAD FILE NUMBER
  • [00950] PRESET HOST MESSAGES
  • [00999] LOADER MESSAGE DISPLAY
  • [01138] DISK LOADER
  • [01246] DIAGNOSTIC TESTS
AIST3
9,239 Lines
compass
ALLOT
1,895 Lines
compass
  • [00005] ECS ALLOCATION
  • [00018] DEFINITIONS
  • [00055] -SSIGNI-
  • [00332] -SSIGNO-
  • [00385] -CSIGNO-
  • [00413] -RSIGNO-
  • [00453] -RLESO-
  • [00510] -ALLOT-
  • [00549] -ALLOTI-
  • [00574] -ALLOTR-
  • [00608] -ACHARGE-
  • [00801] -ARELEAS-
  • [00997] -AUTHC-
  • [01069] -READSIT-
  • [01125] -TSTSITE-
  • [01183] -SSENTER-
  • [01219] -SSEXIT-
  • [01238] -CHKECS-
  • [01284] -SSDELET-
  • [01359] -CLEAREC-
  • [01601] SITE USER COUNT MANIPULATION
  • [01688] BIT TABLE MANIPULATION
ANS1
1,900 Lines
compass
  • [00008] -ANS1-
  • [00032] OPEN
  • [00075] CONCEPT EXECUTION
  • [00805] -CLOSE-
  • [00867] -LOADA-
  • [00941] ANSV/WRONGV (AND ANSU/WRONGU)
  • [01098] STOREN (STORE NUMERIC)
  • [01197] SPECS EXECUTION
  • [01281] CANONICAL FORM
  • [01501] NO CANONICAL FORM
  • [01549] GETWORD
  • [01664] GETMARK
  • [01747] GETLOC
ANSIN
1,701 Lines
compass
  • [00052] VOCABULARY READ-IN
  • [00806] SHOW VOCABULARY ERRORS
  • [00854] ENDINGS
  • [00997] ENDGSIN READIN FOR ENDINGS COMMAND
  • [01072] CONCEPT ANSWER READ-IN
  • [01646] -SPECS-
ANSW1
2,358 Lines
compass
  • [00008] -ANSW1-
  • [00041] ANSWER/WRONG COMMAND EXECUTION ROUTINE
  • [00988] ANSWERA/WRONGA COMMAND EXECUTION
  • [01262] -ANSWERA-/-WRONGA- ERRORS
  • [01305] AUNAM – FIND LIST IN UNIT TABLE
  • [01392] MATCH JUDGING ROUTINE
  • [01747] ANSWER MARKUP ROUTINES
  • [02011] OFFMARK,MARKUP
  • [02195] COMPARE
ANSWER
1,095 Lines
compass
  • [00005] ANSWER ROUTINES
  • [00048] ANS-EXTERNALS
  • [00102] EXACT
  • [00206] EXACTV
  • [00245] ANSKEY MACHINERY
  • [00274] ANSV/WRONGV
  • [00297] OK (NO, IGNORE, REGSTATE)
  • [00340] WORDGET
  • [00435] GETJSYM
  • [00470] ANSEND
  • [00547] ANSMARK
  • [00643] AEND
  • [00775] WORD-CHECK
  • [01050] OVERLAYS
ANSWIN
1,035 Lines
compass
  • [00088] LISTIN
  • [00216] ANSWER COMMAND
  • [00496] MATCH
  • [00679] ANSWERC
  • [00758] AUNAM
  • [00829] -OR-
  • [00936] -ANSWERA-/-WRONGA-
APRT
1,011 Lines
compass
  • [00496] SUBROUTINES FOR LOG PRINTER
  • [00497] DEFFINITIONS
  • [00542] MACROS
  • [00561] -SETUP- LOAD TIME INITIALIZATIONS
  • [00601] SYSTEXT
  • [00623] -GETLINE- GET NEXT DATA RECORD
  • [00721] -ISTLIN- INITIALIZATIONS
  • [00751] -DATER- UNPACK HOLLERITH DATE
  • [00788] -DATEFIX- PUT YEAR FIRST, MONTH NEXT
  • [00823] ATTACH FILE
  • [00850] DETACH PLATO FILE
  • [00863] READ BLOCK FROM PLATO DISK FILE
  • [00897] SHIFTS
  • [00925] ZERO TO BLANK ROUTINE
  • [00989] STORAGE
ASC1RAM
4,833 Lines
compass
  • [00005] INTERACTIVE GRAPHICS
ASC1ROM
3,658 Lines
compass
ASM1
62 Lines
compass
AUTLOAD
1,066 Lines
compass
  • [00005] AUTOLOAD
  • [00020] -CSINIT- INITIALIZATIONS
  • [00073] -CSLOAD- LOAD RVARS,LVARS,NCVARS,JBUFFS
  • [00136] -LOADCS- LOAD COMMON/STORAGE
  • [00434] ECSERRS
  • [00476] RLOAD
  • [00540] -CSULOAD- UNLOAD RVARS,LVARS,NCVARS,JBUFFS
  • [00581] -ULOADCS- UNLOAD COMMON AND STORAGE
  • [00812] LESADD
  • [00833] -RESVREL-
  • [00895] NOJBUF
  • [00919] GJBUF - ALLOCATE A JUDGE BUFFER
  • [00995] RJBUF - RETURN JUDGE BUFFER TO POOL
  • [01055] NJBMSG - ISSUE ERROR MESSAGE AND ABORT.
BACKCPY
707 Lines
compass
  • [00010] COPY NOS VERSION OF DUMP DIRECTORY TO PLATO
  • [00079] COMMON DATA
  • [00114] MAIN PROGRAM.
  • [00126] SUBROUTINES
  • [00128] ATTFILE - ATTACH PERMANENT FILES
  • [00157] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00179] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00192] DMPI - INCREMENT DUMP DIR. RECORD NUMBER/DATASET
  • [00201] DMPX - INCREMENT DUMP DIRECTORY
  • [00229] INIT - INITIALIZE PARAMETERS
  • [00253] INTD - INITIALIZE DUMP DIRECTORY POINTERS
  • [00267] RDPARAM - READ PARAMETER BLOCK
  • [00277] TRIPMSG - WRITE A MESSAGE TO THE DAYFILE 3 TIMES
  • [00429] ZPARAM - ZERO PARAMETER BLOCK
  • [00441] PLATO DATASET ATTACH, READ WRITE ROUTINES
  • [00442] DSET - ATTACH DATASET
  • [00486] DOUT - DATAOUT ROUTINES
  • [00510] DDET - DETACH DATASET
  • [00523] DPAR - STORE PARAMETERS
  • [00538] BDIS - SENT MESSAGE TO THE B DISPLAY ONLY
  • [00551] DMAM - OUTPUT DATASET NAME INTO DAYFILE
  • [00561] DMEM - OUTPUT ERROR STATUS INTO DAYFILE
  • [00571] DBGM - OUTPUT BEGIN RECORD INTO DAYFILE
  • [00581] DNRM - OUTPUT NUMBER OF RECORDS INTO DAYFILE
  • [00643] ATTA - ATTACH AUDIT TRAIL DATASET (S0BACKA)
  • [00652] DATT - ATTACH BACKUPS DATASET (S0BACKC)
  • [00661] END - END PROGRAM.
BACKLIB
395 Lines
compass
  • [00010] PRODUCE BACKUP LIBRARY PRINTOUT
  • [00012] PRODUCE BACKUP LIBRARY PRINTOUT
  • [00055] COMMON DATA
  • [00088] MAIN PROGRAM.
  • [00103] SUBROUTINES
  • [00105] BUILDO - BUILD OUTPUT LINE
  • [00204] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00226] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00238] INIT - INITIALIZE
  • [00274] GETAUT - GET AUDIT TRAIL
  • [00309] GETSL - GET SLOT ENTRY
  • [00335] RDSLOT - READ PARAMETER AND SLOT TABLES
  • [00344] END PROGRAM
  • [00346] END - END PROGRAM.
BACKLST
543 Lines
compass
  • [00010] PRODUCE BACKUP LIBRARY PRINTOUT
  • [00012] PRODUCE BACKUP LIBRARY PRINTOUT
  • [00054] COMMON DATA
  • [00081] MAIN PROGRAM.
  • [00092] SUBROUTINES
  • [00094] BUILDO - BUILD OUTPUT LINE
  • [00141] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00163] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00175] GTW - GET WORD
  • [00224] INIT - INITIALIZE
  • [00277] PRA - EXTRACT PARAMETERS BEYOND PERIOD
  • [00329] READDMP - READ DUMP DIRECTORY
  • [00365] WRITEO - WRITE OUTPUT
  • [00382] ZERO - ZERO BUFFER
BACKMOD
1,447 Lines
compass
  • [00010] MODIFY BACKUP FILES FROM CONSOLE
  • [00122] MAIN LOOP
  • [00133] SUBROUTINES
  • [00135] ATTFILE - ATTACH PERMANENT FILES
  • [00164] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00186] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00199] GTW - GET WORD
  • [00249] INIT - INITIALIZE
  • [00289] INITPAR - INITIALIZE PARAMETER BLOCK
  • [00322] MVEB - MOVE BITES INTO A BUFFER
  • [00354] MVEW - MOVE BITS IN ONE WORD
  • [00390] PRA - EXTRACT PARAMETERS BEYOND PERIOD
  • [00445] RDPARAM - READ PARAMETER BLOCK AND REST OF S0BACKC
  • [00457] SETSLOT - SETUP SLOT TABLE
  • [00496] TRIPMSG - WRITE A MESSAGE TO THE DAYFILE 3 TIMES
  • [00512] WRPARAM - WRITE PARAMETER BLOCK AND REST OF S0BACKC
  • [00522] ZERO - ZERO BUFFER
  • [00544] K-DISPLAY ROUTINES
  • [00546] BLANK - MOVE BLANK LINE TO K DISPLAY
  • [00554] BLDRP - BUILD REQUIRED PACK ENTRY FOR K DISPLAY
  • [00573] BLDSL - BUILD SLOT TABLE ENTRY FOR K DISPLAY
  • [00608] BLDVS - BUILD VSN ENTRY FOR K DISPLAY
  • [00686] BUILDO - BUILD OUTPUT LINE
  • [00753] GENINFO - GENERAL INFOMATION PAGE
  • [00951] MOVEL - MOVE CODED LINE TO LEFT SCREEN BUFFER
  • [01023] OUTBLK - OUTPUT BLANKS
  • [01034] OUTDIV - OUTPUT DIVIDE SIGN (/)
  • [01044] OUTPER - OUTPUT PERIOD
  • [01054] OUT2 - OUTPUT 2 CHARACTERS
  • [01066] OUT3 - OUTPUT 3 CHARACTERS
  • [01078] OUT4 - OUTPUT 4 CHARACTERS
  • [01090] SETBUF - SET UP BUFFER
  • [01114] SETK - SET UP K-DISPLAY PARAMETERS
  • [01181] SETPAR - SETUP PARAMETERS
  • [01251] WAINP - WAIT FOR KEYBOARD INPUT
  • [01267] TERMINATION PROGRAMS
  • [01281] MESSAGES, BUFFERS, DATA AREAS AND COM DECKS
BACKONE
781 Lines
compass
  • [00010] BACKUPS DATA CRUNCH - PHASE ONE
  • [00012] BACKUPS DATA CRUNCH - PHASE ONE
  • [00093] COMMON DATA
  • [00135] MAIN PROGRAM.
  • [00288] SUBROUTINES
  • [00290] BUILDO - BUILD OUTPUT LINE
  • [00391] BUILDA - BUILT AUDIT ENTRY
  • [00414] CKALL - CHECK TO SEE IF ALL REQUIRED PACKS DUMPED
  • [00450] CKREQ - CHECK REQUIRED PACK TABLE
  • [00474] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00496] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00508] INIT - INITIALIZE
  • [00556] CLRVSN - CLEAR VSN TABLE
  • [00581] GETAUT - GET AUDIT TRAIL
  • [00614] GETSL - GET SLOT ENTRY
  • [00638] RDSLOT - READ PARAMETER, SLOT AND VSN TABLES
  • [00648] WRAUDIT - REWRITE AUDIT TRAIL
  • [00687] WRPARAM - WRITE PARAMETER BLOCK AND REST OF S0BACKC
  • [00700] END PROGRAM
  • [00702] END - END PROGRAM.
BACKTWO
884 Lines
compass
  • [00010] BACKUPS DATA CRUNCH - PHASE TWO
  • [00012] BACKUPS DATA CRUNCH PHASE TWO
  • [00110] COMMON DATA
  • [00163] MAIN PROGRAM.
  • [00267] SUBROUTINES.
  • [00269] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00292] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00304] CLRS - CLEAR SLOT ENTRY
  • [00311] CREM - CREATE NEW ENTRY
  • [00335] INIT - INITIALIZE PARAMETERS
  • [00373] INSM - INSERT SLOT INFO.
  • [00393] INTS - INITIATE SLOT
  • [00422] MVEI - MOVE OLD ENTRY
  • [00437] RDIN - READ INPUT FILE
  • [00509] RDMR - READ MERGE FILE
  • [00563] SETLA - SET LOOK ASIDE BUFFER TO ZERO
  • [00577] RDSLOT - READ PARAMETER, SLOT AND VSN TABLES
  • [00586] WRDMP - REWRITE DUMP DIRECTORY
  • [00625] WRPARAM - WRITE PARAMETER BLOCK AND REST OF S0BACKC
  • [00636] WRTO - WRITE OUTPUT
  • [00684] OUTPUT ERROR MESSAGES
  • [00686] NEWIOUT - OUTPUT NEW ACCOUNT, FILE, AND FIW
  • [00702] OLDIOUT - OUTPUT OLD ACCOUNT, FILE, AND FIW
  • [00718] NEWMOUT - OUTPUT NEW ACCOUNT, FILE, AND FIW
  • [00734] OLDMOUT - OUTPUT OLD ACCOUNT, FILE, AND FIW
  • [00763] END PROGRAM - MESSAGES - COMDECKS - BUFFERS
  • [00765] END - END PROGRAM.
BCUSE
126 Lines
compass
BINARYX
1,313 Lines
compass
  • [00005] LESSON BINARY SUBROUTINES
  • [00040] -TESTBIN- COMMAND
  • [00078] TESTBIN CHECK IF BINARY SHOULD EXIST
  • [00166] NVERSC N-VERSION CONVERSION
  • [00167] NVERSC CHECK FOR N-VERSION SUBSTITUTION
  • [00168] NVERSC - N-VERSION SUBSTITUTION CHECKS
  • [00275] -BINSUM- SUM-CHECK FOR BINARY
  • [00330] -LOADBIN- LOAD BINARY FROM DISK
  • [00802] MAKEBIN CREATE A BINARY FILE
  • [01016] -DELBIN- DESTROY BINARY FILE
  • [01052] -DESTROY- DESTROY A FILE
  • [01091] PACKWRT WRITE PACK DIRECTORY TO DISK
  • [01253] PCHOOSE CHOOSE PACK TO PUT BINARY ON
CALCS
1,862 Lines
compass
  • [00005] CALC / BRANCH / DOTO
  • [00030] -CALC- COMMAND READIN
  • [00113] -BRANCH- COMMAND READIN
  • [00285] -IF- COMMAND READIN
  • [00336] -ELSE- AND -ELSEIF- COMMAND READIN
  • [00409] -ENDIF- COMMAND READIN
  • [00445] -LOOP- COMMAND READIN
  • [00484] -RELOOP-/-OUTLOOP- COMMAND READIN
  • [00530] -ENDDO- COMMAND READIN
  • [00582] -DOTO- COMMAND READIN
  • [00801] CHECK IF COMMAND IS STATEMENT LABEL
  • [00863] ENDDOTO – INSERT COMPILED CODE FOR END OF -DOTO- LOOP
  • [00950] ERROR EXITS
  • [01012] INITCAL – INITIALIZATIONS FOR FIRST CALC-TYPE COMMAND
  • [01041] ENDCALC – TERMINATE CALC AND PROCESS TEMPORARY TABLE
  • [01094] GETSYM – GET NEXT LABEL FOR -BRANCH- OR -DOTO-
  • [01129] ITFFTI
  • [01166] PROCESS DEFERRED GLOBAL SYMBOL REFERENCES
  • [01225] CHKIND – CHECK IF INDENTING IS CORRECT
  • [01295] POPTOP – REMOVE TOP STACK ELEMENT
  • [01355] LABJUMP – COMPILE BRANCH TO SPECIFIED STATEMENT LABEL
  • [01450] LABFIND – RETURN INTERNAL NAME FOR LABEL HOLERITH
  • [01489] LABDEF – DEFINE LABEL FOR UNIT
  • [01565] LABRF – PROCESS LABEL REFERENCE
  • [01714] CLABREF – SAVE LABEL REFERENCE IN TEMPORARY TABLE
  • [01751] TEMPREF – PROCESS THE TEMPORARY TABLE
  • [01791] JPB3 – COMPUTE POSITION OF NEXT INSTRUCTION
  • [01825] SA5JPB5 – OLD WAY OF HANDLING DEFERRED REFERENCES
CALLCP
149 Lines
compass
  • [00009] CALL PLATO CPU COMMON DECKS.
  • [00086] REQUIRED EQUIVALENCES
CALLPP
87 Lines
compass
  • [00010] CALL PLATO PPU COMMON DECKS.
  • [00041] REQUIRED EQUIVALENCES
CALLPS
11 Lines
compass
  • [00009] CALLPS - CALL PLATO COMMON DECKS.
CIPHER
1,259 Lines
compass
  • [00005] CIPHER - ENCRYPT/DECRYPT A FILE.
  • [00012] ENCRYPT/DECRYPT A FILE.
  • [00033] ASSEMBLY CONSTANTS.
  • [00066] FETS.
  • [00102] DATA STORAGE.
  • [00140] TECA - TABLE OF ERROR COUNT ADDRESSES.
  • [00159] ABT - ABORT ROUTINE.
  • [00208] DRN - DISPLAY RECORD NAME.
  • [00257] END - END ROUTINE.
  • [00316] IES - ISSUE ERROR SUMMARY MESSAGES.
  • [00350] INM - INSERT NUMBER IN MESSAGE.
  • [00375] PDE - PROCESS DATA BLOCK ERROR.
  • [00459] PEF - PROCESS END OF FILE.
  • [00578] CIPHER - MAIN LOOP.
  • [00580] MAIN LOOP - COPY ALL RECORDS FROM ONE
  • [00620] RECORD COPY ROUTINES.
  • [00622] CPR - COPY RECORD.
  • [00672] CRYPT - ENCRYPT/DECRYPT A BUFFER.
  • [00779] PRESET.
  • [00780] PRS - PRESET FOR EXECUTION.
  • [00938] CDT - CHECK DEVICE TYPE.
  • [01041] CFN - CHECK FILE NAMES.
  • [01087] CIC - CHECK FOR INDETERMINATE COPY.
  • [01133] GPS - GET PRU SIZES.
  • [01156] PER - PRESET ERROR PROCESSOR.
  • [01192] SFM - SET FILE MODE.
CLD
3,544 Lines
compass
  • [00006] CLD–PLATO IV COMMUNICATION LINK DRIVER
  • [00033] DIRECT CELL ASSIGNMENTS
  • [00149] MAIN PROCESSING LOOP
  • [00191] PROCESS REQUEST
  • [00241] RESERVE LINK
  • [00283] RESERVE LOCAL EQUIPMENT AND CHANNEL
  • [00335] RELEASE LOCAL EQUIPMENT AND CHANNEL
  • [00374] REMOTE STARTUP
  • [00426] SEND AND RECEIVE A MESSAGE
  • [00452] DE-ESTABLISH LINK
  • [00542] SPECIAL ROUTINES
  • [00554] LOOPBACK TEST
  • [00619] LOCAL TERMINAL MODE DRIVER
  • [00662] TERMINAL MODE IO
  • [00720] GET KEY FROM ECS KEY BUFFER
  • [00793] SEND FRAME TO PLATO
  • [00869] MOVE FRAME
  • [00913] REMOTE TERMINAL MODE DRIVER
  • [00972] TERMINAL MODE IO
  • [01013] SEND KEY TO PLATO
  • [01153] GET FRAMES FROM ECS
  • [01239] MOVE KEY
  • [01360] TERMINAL MODE INPUT-OUTPUT
  • [01478] READ ECS
  • [01568] WRITE ECS
  • [01664] CLOCK
  • [01715] READ AND CLEAR PPU COMMUNICATIONS SWITCH
  • [01757] WRITE TO CM BUFFER.
  • [01798] CHARACTER I/O
  • [01930] WAIT CHARACTER READY OR REQUEST
  • [01986] ODD CHANNEL STATUS/PUT CHARACTER
  • [02039] GETCHR
  • [02100] PACK DATA
  • [02155] UNPACK
  • [02207] DATAIN
  • [02311] DATAOUT
  • [02366] SEND MESSAGE
  • [02419] RECEIVE A MESSAGE
  • [02475] SELECT 6681 DATA CONVERTER
  • [02566] SYNCHRONIZATION ESTABLISH
  • [02621] DIVIDE BY 5
  • [02648] INCREMENT 5 BYTE COUNTER
  • [02684] PARITY GENERATION
  • [02738] PAUSE–CHECK FOR STORAGE MOVE OR ERROR CONDITIONS
  • [02829] SOFTWARE AND HARDWARE ERROR ROUTINES
  • [02876] EXIT ROUTINES
  • [02899] SEND END LINK
  • [02946] TERMINAL MODE TERMINATION
  • [02991] SEND PLATO REQUEST
  • [03035] PROCESS 3266 INPUT
  • [03064] WAIT ON LINKCTL
  • [03088] EQUATES
  • [03131] STORAGE DEFINITIONS
  • [03208] COMMUNICATION BUFFERS
  • [03306] COMMUNICATION BUFFERS
  • [03343] ERROR CODES
  • [03372] COMMAND CODES AND CONTROL CHARACTERS
  • [03419] 6681 AND 311-B CODES
  • [03459] INITIALIZATIONS
CMDMP
320 Lines
compass
  • [00016] CMDMP - CONTROL POINT CM DUMP (PLATO).
  • [00018] CONTROL POINT CM DUMP (PLATO).
  • [00033] LOCAL SYMBOLS / FETS / GLOBAL STORAGE.
  • [00067] PRESET.
  • [00147] MAIN LOOP.
CMPI11
22 Lines
compass
  • [00007] CENTRAL MICRO PLATO (1,1) OVERLAY.
CMPIEND
16 Lines
compass
  • [00007] CENTRAL MICRO PLATO END.
CMPIENT
96 Lines
compass
  • [00007] CENTRAL MICRO PLATO ENTRY.
CMPIERR
134 Lines
compass
  • [00007] CMP CONDENSE ERROR ROUTINE.
  • [00023] CMP ERROR REPORTING.
CMPILXO
271 Lines
compass
  • [00007] CMP OVERLAY LOADER AND EXECUTOR.
  • [00020] CMPOV - CENTRAL MICRO PLATO SUBOVERLAY.
  • [00054] LOAD AND EXECUTE OVERLAY.
CMPIPIO
906 Lines
compass
  • [00007] CMP PLATO I/O.
  • [00376] GLI - GETLINE INITIALIZATIONS.
  • [00431] IFD - INITIALIZE FILE DIRECTORY.
  • [00483] IIF - INITIALIZE THE INPUT FILE.
  • [00530] IOF - INITIALIZE THE OUTPUT FILE.
  • [00612] MAS - MASTOR REQUEST.
  • [00656] OIF - OPEN INPUT FILE.
  • [00693] OOF - OPEN OUTPUT FILE.
  • [00756] RFD - READ FILE DIRECTORY.
  • [00782] WFD - WRITE FILE DIRECTORY.
  • [00809] WPF - WRITE PLATO FILE.
  • [00837] WSB - WRITE SOURCE BLOCK.
CMPIXFR
13 Lines
compass
  • [00007] SET CMP OVERLAY TRANSFER ADDRESS.
CMPMAIN
5 Lines
compass
CMPOACI
9 Lines
compass
CMPOALL
9 Lines
compass
CMPOANC
9 Lines
compass
CMPOANS
9 Lines
compass
CMPOARR
9 Lines
compass
CMPOATT
9 Lines
compass
CMPOBLK
9 Lines
compass
CMPOCHA
9 Lines
compass
CMPOCHG
9 Lines
compass
CMPOCHR
9 Lines
compass
CMPOCLR
9 Lines
compass
CMPOCPU
9 Lines
compass
CMPOCPY
9 Lines
compass
CMPOCST
9 Lines
compass
CMPOCVE
11 Lines
compass
CMPODAR
9 Lines
compass
CMPODEF
9 Lines
compass
CMPODIN
9 Lines
compass
CMPODOT
9 Lines
compass
CMPOENA
9 Lines
compass
CMPOERR
9 Lines
compass
CMPOERX
9 Lines
compass
CMPOEVL
11 Lines
compass
CMPOEXW
9 Lines
compass
CMPOFND
9 Lines
compass
CMPOGFL
9 Lines
compass
CMPOGLM
9 Lines
compass
CMPOIFL
9 Lines
compass
CMPOIFM
9 Lines
compass
CMPOIHB
9 Lines
compass
CMPOJDG
9 Lines
compass
CMPOJKY
9 Lines
compass
CMPOJPN
9 Lines
compass
CMPOJPO
9 Lines
compass
CMPOKYW
9 Lines
compass
CMPOLBA
9 Lines
compass
CMPOLBL
9 Lines
compass
CMPOMKL
11 Lines
compass
CMPOMTU
9 Lines
compass
CMPONAA
9 Lines
compass
CMPONIA
9 Lines
compass
CMPONOA
9 Lines
compass
CMPONOM
9 Lines
compass
CMPONOW
9 Lines
compass
CMPOOKA
9 Lines
compass
CMPOOKN
11 Lines
compass
CMPOOKW
9 Lines
compass
CMPOORA
9 Lines
compass
CMPOOTD
11 Lines
compass
CMPOPAI
9 Lines
compass
CMPOPAK
9 Lines
compass
CMPOPCK
9 Lines
compass
CMPOPIO
12 Lines
compass
CMPOPJB
11 Lines
compass
CMPOPOL
11 Lines
compass
CMPOPRA
9 Lines
compass
CMPOPTD
9 Lines
compass
CMPORAN
9 Lines
compass
CMPOROT
9 Lines
compass
CMPOSET
9 Lines
compass
CMPOSHA
9 Lines
compass
CMPOSHB
9 Lines
compass
CMPOSHT
9 Lines
compass
CMPOSHW
9 Lines
compass
CMPOSIZ
9 Lines
compass
CMPOSKE
9 Lines
compass
CMPOSKP
9 Lines
compass
CMPOSPC
9 Lines
compass
CMPOSRC
9 Lines
compass
CMPOSRF
9 Lines
compass
CMPOSTP
9 Lines
compass
CMPOTRW
11 Lines
compass
CMPOTXN
9 Lines
compass
CMPOTXT
9 Lines
compass
CMPOUJB
11 Lines
compass
CMPOUMJ
9 Lines
compass
CMPOUNE
9 Lines
compass
CMPOUNT
9 Lines
compass
CMPOUOL
11 Lines
compass
CMPOWRL
11 Lines
compass
CMPOWRT
9 Lines
compass
CMPOWTC
9 Lines
compass
CMPOXIO
9 Lines
compass
CMPOZER
9 Lines
compass
COMPILE
6,186 Lines
compass
  • [00005] COMPILE TUTOR CALC COMPILER
  • [00082] COMMENTS
  • [00239] COMPCOM – ENTRY POINT FOR -COMPUTE-
  • [00279] CONTCOM – ENTRY POINT FOR CONTINUED CALCS
  • [00295] COMPNAM – ALLOW UNDEFINED SYMBOLS
  • [00309] COMPSYM – ALLOW SPECIAL DEFINED SYMBOLS
  • [00332] PUTCOMP – GENERATE CODE TO STORE VALUE
  • [00351] PCOMP1 – FORCE COMPILED CODE FOR PUTCOMP
  • [00372] GCOMP – ENTRY POINT FOR -GOTO- AND -DO-
  • [00409] QUIKCMP – ENTRY POINT FOR LIKELY LITERALS
  • [00500] COMPILU – ENTRY POINT FOR -ANSU- ARGUMENT
  • [00527] COMPILE – MAIN ENTRY POINT TO COMPILER
  • [00628] COMPNAM
  • [00717] COMPIL – MAIN LOOP FOR COMPILER
  • [00837] NEED PARENTHESES
  • [00929] MINUS, PLUS, ISDEGR, ISPI, ENDINST
  • [01027] SEGMENT AND ARRAY
  • [01221] ISEOL, ADS, UNITS, FORCE, OPJUMP
  • [01429] OPJUMP
  • [01522] ADD, SUB, MULT, DIVIDE
  • [01794] ARRAY MULTIPLICATION
  • [02035] ENDLINE – END OF EXPRESSION PROCESSING
  • [02231] COMPILE LOGICAL EXPRESSIONS
  • [02290] FUNCTIONS AND SYSTEM VARIABLES
  • [02711] INDEXED VARIABLES
  • [02933] SEGMENT INDEXING
  • [03054] GENERATE CODE FOR CONSTANT INDEX CASE
  • [03152] GENERATE CODE TO LOAD VERTICAL SEGMENT
  • [03184] GENERATE CODE FOR CONSTANT VERTICAL SEGMENT
  • [03242] SEGPUT
  • [03259] ARRAY/COMPLEX INDEXING
  • [03287] ARRAY PROCESSING
  • [03363] ARRAY PROCESSING
  • [03436] UNARY OPS
  • [03513] EXPONENTIATION
  • [03713] ASSIGNMENT OPERATION
  • [03966] ARRAY ASSIGNMENT OPERATION
  • [04105] PREBIN – DETERMINE TYPES OF OPERANDS
  • [04142] FLTBOTH – FLOAT BOTH OPERANDS
  • [04163] BINARY – PLACE 2 OPERANDS IN REGISTERS
  • [04277] TMPAD – FORMS ARRAYWORD/AD FOR *TMPARY*
  • [04314] SIZCHK – CHECKS ARRAYS FOR CONFORMALITY
  • [04341] GETARAD
  • [04360] LDAINTR – CODE TO TEST FOR ARRAY INTERRUPT
  • [04383] ARYPREP
  • [04408] LDAINIT
  • [04424] LDASUB
  • [04437] CALCTMP
  • [04503] STORTMP
  • [04545] SVAOPAD
  • [04559] LDARRAY – LOAD ARRAY/SCALAR OPERANDS
  • [04603] LBINARY – PREPARE ARGUMENTS FOR SHIFTING
  • [04794] MATVS
  • [04831] GETINDX – GET INTEGER INDEX
  • [04857] LOADIND – LOAD INDEX TO X(B1)
  • [04877] POPNADS – BACKUP NADS POINTER
  • [04894] ROW/COLUMN BOUNDS CHECKING
  • [04950] FCCHK – CHECK TYPE OF GETVAR CODE
  • [04987] FUNCTIONS (FROM GETVAR)
  • [05108] GENERATE A READ INSTRUCTION
  • [05267] VREAD – CODE TO READ VERTICAL SEGMENTS
  • [05319] VSTORE
  • [05363] VSINDX – CODE TO LOAD SEGMENT INFO WORD
  • [05463] LDLITAD – CODE TO GET ADDRESS OF INFO WORD
  • [05483] GENFCT – GENERATE CODE TO CALL FUNCTION
  • [05528] SETAD – MARK *ADS* ENTRY NOW IN REGISTER
  • [05545] FLOATIT – SET UP FLOAT INSTRUCTIONS
  • [05568] INDXFLT – GENERATE CODE TO ROUND INDEX
  • [05602] FORCEX – READ ADTYPE TO SPECIFIED REGISTER
  • [05654] CHEKRR – CHECK READ REGISTER AVAILABLE
  • [05700] PICKX – PICK A RESULT REGISTER
  • [05737] CHOOSEX – CHOOSE A VACANT REGISTER
  • [05778] STR7TMP – CODE TO STORE X7 IN TEMPORARY
  • [05812] RLLIT – RETRIEVE LONG LITERAL
  • [05863] SLLIT – STORE LONG LITERAL
  • [05893] FREEX – FREE UP A REGISTER
  • [05907] LSEEK – SEARCH FOR EXISTING LITERALS
  • [05953] MOVE CODE
  • [05993] PAD OUT INSTRUCTION WORD WITH NO-OPS
  • [06032] ADD SHORT INSTRUCTION TO STREAM
  • [06101] ADD LONG INSTRUCTION TO STREAM
  • [06136] STORAGE DEFINITIONS
COMPRT
503 Lines
compass
COMPUT
280 Lines
compass
  • [00008] EXECUTION OF COMPUTE COMMAND
COND
2,424 Lines
compass
  • [00010] NON-OVERLAYABLE ROUTINES
  • [00044] CMPGO - CENTRAL MICRO PLATO INITIATION.
  • [00206] ROD - RESTORE ORIGINAL DIRECTORY.
  • [00253] SOD - SAVE ORIGINAL DIRECTORY.
  • [00365] -ABORTC- ABORT CONDENSE
  • [00417] DISK I/O ROUTINES
  • [00432] CPF - CLOSE PLATO FILE
  • [00452] -MASREQ- ISSUE / WAIT FOR *MASTOR*.
  • [00537] CONDENSOR SUBROUTINES
  • [00539] -UNNAM- GET CURRENT UNIT NAME
  • [00599] -LJUST- LEFT JUSTIFY NAME
  • [00650] BIT TABLE MANIPULATION
  • [00684] RCTOXY
  • [00823] KEY LIST
  • [01203] EBH - ERROR BUFFER HEADER.
  • [01242] OVERLAY LOADING SUBROUTINES.
  • [01244] LLD - LOAD A LEVEL FROM DISK.
  • [01329] IOL - INITIALIZE FOR OVERLAY LOADING.
  • [01464] RMS - READ MASS STORAGE.
  • [01626] BLV - BEGIN LEVEL.
  • [01699] PCS - PROCESS CMP SUBOVERLAYS.
  • [01808] WCS - WRITE CMP SUBOVERLAYS TO EM.
  • [01895] PSO - PROCESS SUBOVERLAYS.
  • [02003] WSE - WRITE SUBOVERLAYS TO EM.
  • [02078] ELV - END LEVEL.
  • [02210] INITIALIZE COMINFO (THE HASH INFO TABLE)
  • [02371] ZEROSAV - SAVE REGISTERS USED BY *ZERO* MACRO
  • [02394] ZERORST - RESTORE REGISTERS USED BY *ZERO* MACRO
CONDC
3,742 Lines
compass
  • [00023] CONDC1 CPU-TUTOR CONDENSOR
  • [00024] ENTRY
  • [00090] EXT
  • [00108] -NXTLINE- MAIN LOOP
  • [00221] STANDARD COMMAND WORD STORAGE EXITS
  • [00290] NO ARGUMENT STANDARD READIN
  • [00322] ONE ARGUMENT STANDARD READINS
  • [00383] TWO ARGUMENT STANDARD READINS
  • [00441] ONE OR TWO ARGUMENT STANDARD READINS
  • [00559] THREE ARGUMENT STANDARD READINS
  • [00606] READIN OF SYSTEM COMMANDS
  • [00676] SCANNER ROUTINE
  • [00752] CASE-SENSITIVE SCANNER ROUTINE
  • [00833] -DEBLANK- STRIP LEADING SPACES
  • [00860] CHECK FOR EXACT TAG MATCH
  • [00889] -COLONCK- CHECK FOR COLON AS NEXT SEPARATOR
  • [00926] CONDENS
  • [01017] -AT- COMMAND
  • [01117] UNAMX
  • [01239] -SLIDE- AND -ALTFONT-
  • [01289] FINIS
  • [01324] CHAR, END, AND MODE
  • [01364] -BACKGND- -FOREGND-
  • [01435] SHOWA, SHOWO, AND SHOWH CONDENSE
  • [01486] TEMPORARY KLUDGE FORM OF -GROUP-
  • [01543] -ANSV- COMMAND READ-IN
  • [01571] PUTV
  • [01599] OK,NO,IGNORE,STORAGE,GETCHAR
  • [01637] CHARSET LINESET MICRO
  • [01724] PPTMESS - ISSUE *PPT* ERROR MESSAGE.
  • [01772] CONDENSOR OVERLAY CALLS
  • [01820] -NXTNAM-
  • [01923] -ACCFILE- GET ACCOUNT AND FILE NAMES
  • [02197] TERM
  • [02263] GENERAL SUBROUTINES FOR PROCESSING VARIABLES
  • [02678] ABORTCON–ABORT CONDENSE
  • [02743] TUTOR COMMAND STATISTICS
  • [02794] WRITECS - WRITE NEXT BLOCK OF BINARY TO ECS
  • [03234] -APACK-
  • [03291] -GETARGS-
  • [03372] -DUMP- COMMAND
  • [03403] TABC
  • [03404] CENTRAL SUBOV TABLE
  • [03507] CENTRAL CONDENSE COMMAND NAME TABLE
  • [03658] READ-IN JUMP TABLE
CONDEN
412 Lines
compass
  • [00005] TUTOR LESSON CONDENSOR
  • [00035] COMMENTS
  • [00051] CONDENSOR MAIN LOOP
  • [00131] -DIE- KILL CONDENSOR
  • [00206] ROLL-OUT
  • [00217] CRO - CONDENSOR ROLLOUT.
  • [00311] ROLL-IN
  • [00322] CRI - CONDENSOR ROLLIN.
CONDI
635 Lines
compass
  • [00014] CONDENSOR INITIALIZATIONS.
  • [00025] INIT - INITIALIZATIONS.
  • [00362] OVERLAY LOADING SUBROUTINES.
  • [00364] CCC - COMPUTE CMP SUBOVERLAY CM.
  • [00401] CSC - COMPUTE SUBOVERLAY CM.
  • [00458] CSE - COMPUTE SUBOVERLAY EM.
  • [00496] REM - REQUEST EXTENDED MEMORY.
  • [00547] GETPR - GET CPU PRIORITY PASSED ON '7CONDEN'7
CONNC
290 Lines
compass
  • [00007] CONDENSOR OVERLAY FOR -CONNECT- COMMAND
CONSUB
108 Lines
compass
  • [00007] CONDENSE ERROR SUBROUTINES
CONTEN
1,386 Lines
compass
  • [00028] CONTENT
  • [00552] NUMBERS
  • [00635] NUMBER BUILDER
  • [00826] EXPONENTIATION ROUTINE
  • [01070] CHARACTER DEFINITION TABLE
CONVRT1
87 Lines
compass
CONVRT2
103 Lines
compass
COPYMF
1,185 Lines
compass
  • [00015] COPY MASTER FILES
  • [00220] SUBROUTINES
  • [00222] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00241] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00252] INIT - INITIALIZE
  • [00296] SETEPR - SET ERROR PROCESSING BIT IN THE FET
  • [00308] FINFO - GET FILE INFO
  • [00321] GETPACK - GET PACK NAME FOR FILE
  • [00367] GETPN - DEFINE FILE ON PACK *PN*
  • [00383] INITPT - INITIALIZE POINTERS
  • [00407] INITCB - INITIAL READ OF COM BUFFER
  • [00452] RSB - READ SUBSYSTEM PROGRAM BLOCK
  • [00487] RTF - REQUEST TAPE FILE
  • [00660] SETEB - SETUP EXTENDED LABEL BUFFER
  • [00684] PROCESS MF DATA
  • [00931] ALL DONE - WRITE COM. BUFF.
  • [01023] DEBUG - USE IF NECESSARY.
COPYPF
2,070 Lines
compass
  • [00010] COPY PLATO FILES FROM DUMPS
  • [00196] ATTAUD - ATTACH AUDIT TRAIL FILE
  • [00211] SUBROUTINES
  • [00213] CKSTATS - CHECK FILE STATUS FOR BUSY
  • [00235] CLREPR - CLEAR ERROR PROCESSING BIT IN THE FET
  • [00248] GETPN - ATTACH FILE ON PACK *PN*
  • [00268] GTW - GET WORD
  • [00319] INIT - INITIALIZE
  • [00370] INITFIL - INITIALIZE FOR FILE RECOVERY
  • [00403] INITPCK - INITIALIZE PACKNAME/VSN FOR MASTER FILE
  • [00437] INITPT - INITIALIZE POINTERS
  • [00458] PRA - EXTRACT PARAMETERS BEYOND PERIOD
  • [00510] RTF - REQUEST TAPE FILE
  • [00634] SETEB - SETUP EXTENDED LABEL BUFFER
  • [00659] SETEPR - SET ERROR PROCESSING BIT IN THE FET
  • [00671] ZERO - ZERO BUFFER
  • [00693] PROCESS MF DATA
  • [01050] PLATO FILE ATTACH, READ WRITE ROUTINES
  • [01051] SETF - ATTACH FILE
  • [01095] DRD - DATAIN ROUTINES
  • [01115] DWR - DWRITE ROUTINES
  • [01132] DDET - DETACH FILE
  • [01143] DPAR - STORE PARAMETERS
  • [01158] BDIS - SENT MESSAGE TO THE B DISPLAY ONLY
  • [01171] DMAM - OUTPUT FILE NAME INTO DAYFILE
  • [01181] DMEM - OUTPUT ERROR STATUS INTO DAYFILE
  • [01191] DBGM - OUTPUT BEGIN RECORD INTO DAYFILE
  • [01201] DNRM - OUTPUT NUMBER OF RECORDS INTO DAYFILE
  • [01263] K-DISPLAY ROUTINES
  • [01265] BUILDO - BUILD OUTPUT LINE
  • [01479] MOVEL - MOVE CODED LINE TO LEFT SCREEN BUFFER
  • [01554] SETBUF - SET UP BUFFER
  • [01577] SETK - SET UP K-DISPLAY PARAMETERS
  • [01649] SETPAR - SETUP PARAMETERS
  • [01683] SETSTK - SET PARAMETERS IN STACK
  • [01705] WAINP - WAIT FOR KEYBOARD INPUT
  • [01892] MESSAGES, BUFFERS, DATA AREAS AND COM DECKS
COVLAY1
2,984 Lines
compass
  • [00007] OVERLAYS FOR COMMAND READINS
  • [00038] -ENABLE/DISABLE-
  • [00061] GROUP/PAUSE/KEYTYPE COMMAND READ-INS
  • [00075] SYSTEM DEFINED GROUPS
  • [00173] -KEYLIST- COMMAND READIN
  • [00292] -PAUSE- COMMAND READIN
  • [00463] -KEYTYPE- COMMAND READIN
  • [00630] -TCHVARS-
  • [00672] -ARGSCAN-
  • [00750] -LOADG- LOAD GROUP NAME TABLE
  • [00770] -NXT- OBTAIN NEXT KEY/GROUP ENTRY
  • [00953] STORAGE
  • [00975] -DIN- / -DOUT- COMMANDS
  • [01005] CONDFIN
  • [01624] -JUMPOUT-, -FROM-, -ARGS- COMMANDS
  • [01853] -JOPARSE-
  • [02047] -JLITEST-
  • [02091] -ARGS- COMMAND
  • [02135] OVERLAY FOR VARIOUS DATA COMMANDS
  • [02157] -DATAON- AND -DATAOFF- COMMANDS
  • [02242] AREA
  • [02258] OUTPUT
  • [02407] OUTPUTL
  • [02450] READSET
  • [02479] -READD- COMMAND READ DATA FROM DATAFILE
  • [02523] NOTES COMMAND
  • [02621] -INTLOK- AND -INTCLR- COMMANDS
  • [02687] -ATTACH- COMMAND CONDENSE ROUTINE
  • [02781] -IOSPECS- CONDENSE ROUTINE
  • [02813] -GETLINE- COMMAND CONDENSE ROUTINE
  • [02836] KERMIT COMMAND
COVLAY2
2,857 Lines
compass
  • [00007] ASSORTED OVERLAYS FOR CONDENSOR
  • [00052] LIBCALL AND CALL COMMANDS
  • [00144] EXACTC
  • [00326] INITIALIZATIONS
  • [00855] -FCOMPAR- COMPARE FILE NAMES
  • [00931] -LESLIST- ORIENTED COMMANDS
  • [01006] CHANGE
  • [01131] CHANGE SYMBOL X TO Y
  • [01384] CHANGE COMMANDS TO LANGUAGEX
  • [01452] CHANGE COMMANDS TO LANGUAGEX
  • [01497] CONDENSE DRAW COMMANDS
  • [01770] PUT AND PUTD COMMANDS
  • [01927] COMMON, STORAGE, ROUTVAR
  • [01943] COMMON
  • [02169] -SYSCOMX- COMMAND
  • [02205] -COMMONX- CONDENSE ROUTINE
  • [02409] -SORT- / -SORTA- COMMAND READ-INS
  • [02621] -TALKREQ- READIN
  • [02747] FONT COMMAND
COVLAY3
3,785 Lines
compass
  • [00007] OVERLAYS FOR COMMAND READINS
  • [00037] PACK COMMANDS
  • [00638] -SETDAT- COMMAND
  • [00689] -SUBMITM- / -SUBMITX- COMMANDS
  • [00753] -FINDS-/-FINDSA- COMMAND READINS
  • [00942] -INSERTS- COMMAND
  • [00998] -DELETES- COMMAND
  • [01057] -INSERTS- ROUTINES
  • [01253] COVL3 COMMAND READ-INS
  • [01281] -INHIBIT- COMMAND READ-IN
  • [01375] -RANDU- COMMAND READ-IN
  • [01419] -ANSV- COMMAND READIN
  • [01479] -RESTART- COMMAND READ-IN
  • [01516] -STATS- COMMAND READ-IN
  • [01540] -EXCHANG- COMMAND READ-IN
  • [01566] -GETWORD- COMMAND READ-IN
  • [01599] -GETLOC- COMMAND READ-IN
  • [01638] -SEARCH- COMMAND READ-IN
  • [01679] -COMPUTE- COMMAND READ-IN
  • [01737] -CALCS- COMMAND READ-IN
  • [01801] -GETBARG- GET POSSIBLY BLANK ARGUMENT
  • [01841] -CTIME- COMMAND READIN
  • [01888] -COLOR- COMMAND READIN
  • [02069] -TSLINK- COMMAND READIN
  • [02398] NAMESET COMMAND READINS
  • [02593] -SETSYS- COMMAND
  • [02667] -FILENAM- COMMAND
  • [02721] -NVERS- COMMAND
  • [02758] NETWORK I/O COMMAND - NETIO
  • [02829] OTOA/HTOA
  • [02859] DREAD, DWRITE
  • [02897] DATAIOC
  • [03033] -READECS-
  • [03077] -SIZE- COMMAND.
  • [03078] SIZEC - SIZE COMMAND CONDENSE ROUTINE.
  • [03109] TEXTN COMMAND READIN
  • [03133] -TRANSFR-
  • [03252] KEYWORD COMMAND OVERLAY
  • [03574] KEYWORD PROCESSING ROUTINES
COVLAY4
3,310 Lines
compass
  • [00007] OVERLAYS FOR COMMAND READINS
  • [00038] -COV4- COMMAND OVERLAY
  • [00076] -STOLOAD- AND -COMLOAD-
  • [00139] -ABORT- COMMAND
  • [00200] -SEND-
  • [00333] MSRQKEY - TABLE OF -MASREQ- KEYWORDS.
  • [00369] MASREQC - PROCESS -MASREQ- COMMAND.
  • [00452] -RESERVE- / -RELEASE- COMMANDS
  • [00576] READ-IN FOR -SYSDATA- COMMAND
  • [00625] READ-IN FOR -FBIT- COMMAND
  • [00649] -TESTBIN-
  • [00667] ADD1, SUB1, ZERO AND ZERO* COMMANDS
  • [00729] -ALLOW-
  • [00764] -PERMIT-
  • [00792] -STEP-
  • [00805] -LESSIN- COMMAND
  • [00829] -INDENT- COMMAND READIN
  • [00878] -TEKTRON-
  • [00903] -REPLACE- COMMAND READIN
  • [00980] -SET- COMMAND
  • [01133] -COV4A- VARIOUS COMMAND READINS
  • [01151] -COPY-
  • [01216] STOREU
  • [01255] -BUMP-
  • [01283] MOVE
  • [01314] CIRCLE
  • [01340] -EXTOUT-
  • [01363] STOREA
  • [01394] ACCESS, SYSACC COMMAND READINS
  • [01440] ACCESS COMMAND.
  • [01557] -JOIN-, -JUMP-, -DO- COMMANDS
  • [01589] -JUMPIN-
  • [01768] -GOTO- COMMAND
  • [01918] -DO- COMMAND
  • [02217] UNIT
  • [02395] -UWRITE-
  • [02501] -UNAMA-
  • [02519] -UNAM1-
  • [02608] -UNAM2-
  • [02686] FINIS
  • [02742] COMPLETE PREVIOUS CPU UNIT
  • [02792] ENTRY
  • [02845] -INITIAL- COMMAND
  • [02889] -ROUTE-
  • [02985] TIMER, TIMEL
  • [03140] ARROW
  • [03195] EXACT
  • [03248] -FIND-
  • [03278] -FINDALL-
CPMASC
9,056 Lines
compass
CSYS
445 Lines
compass
  • [00005] CONDENSOR SYSTEM INTERFACE
  • [00006] SYMBOL DEFFINITIONS
  • [00067] SYSTEM INTERFACE ROUTINES
  • [00391] S=SETR - SET ADDRESS OF MASTOR REQUEST BUFFER
CWRITE
1,254 Lines
compass
  • [00007] OVERLAYS FOR COMMAND READINS
  • [00008] CWRITE
DATAX
1,574 Lines
compass
  • [00005] STUDENT DATA ROUTINES
  • [00006] COMMENTS
  • [00018] COMMENTS
  • [00062] DEFINITIONS
  • [00111] -INITDAT- INITIALIZE FOR DATA COLLECTION
  • [00143] -DATAFIN- TERMINATE DATA COLLECTION
  • [00162] -DATAOUT- OUTPUT TO ECS DATA BUFFER
  • [00242] -DATAOUT- OUTPUT TO DATA FILE
  • [00280] -DATDATE- FORM DATE/TIME FOR DIRECTORY
  • [00319] DISKXJ PERFORM DISK I/O EXCHANGE
  • [00385] POSTXJ CHECK DISK I/O COMPLETION
  • [00416] -OUTPUT- COMMAND
  • [00475] -OUTPUTL- COMMAND
  • [00510] -OUTPUTT- COMMAND
  • [00538] -AREA- COMMAND
  • [00610] -AREAINC-
  • [00638] -ANSDAT- OUTPUT STUDENTS ANSWER
  • [00670] -AREAOUT- OUTPUT -AREA- COMMAND DATA
  • [00699] -HELPOUT- OUTPUT -HELP- KEY DATA
  • [00736] -TERMOUT- OUTPUT -TERM- DATA
  • [00771] -FINDAT- OUTPUT TIME IN LESSON DATA
  • [00890] -SYSDATA- TURN DATA ON FOR SPECIFIED FILE
  • [00915] -SYSDATA- CHECKPOINT DATA FILE
  • [01060] READSET
  • [01361] -READD- COMMAND (READ DATA FROM DATAFILE)
  • [01424] -RECORD- READ NEXT DATA RECORD
  • [01541] STORAGE DEFINITIONS
DATESCN
63 Lines
compass
DATIME
16 Lines
compass
  • [00005] /DATIME/
DBOOT
2,093 Lines
compass
  • [00008] COMMON DISK BOOT LOADER
  • [00065] LOADER EQUATES
  • [00083] IST TERMINAL EQUATES
  • [00157] VIKING X TERMINAL EQUATES
  • [00179] CTC DEFINITIONS
  • [00233] 5037 CRT CONTROLLER
  • [00257] 8250 KEYBOARD UART DEFINITIONS
  • [00335] 8255 I/O PORT DEFINITIONS
  • [00382] 8250 COMM LINE UART DEFINITIONS
  • [00454] LED LATCH DEFINITIONS
  • [00471] BANK SELECT DEFINITIONS
  • [00498] 8250 PORT A AND B DEFINITIONS
  • [00554] PARALLEL I/O CHANNEL DEFINITIONS
  • [00855] START
  • [00872] BEGIN
  • [01161] LOADER EXEC
  • [01273] RETRY ROUTINE
  • [01340] LOAD FILE FROM DISK
  • [01399] LOADER SUBROUTINE
  • [01503] SUBROUTINES
  • [01566] CHECKSUM ROUTINES
  • [01699] SECURITY MESSAGE
  • [01715] MESSAGE DISPLAY ROUTINES
  • [01774] MESSAGES
  • [01809] IST CHARACTER SET
  • [01910] MESSAGES
  • [02053] LOADER VARIABLES
DBOOT02
2,159 Lines
compass
  • [00009] COMMON DISK BOOT LOADER
  • [00066] LOADER EQUATES
  • [00084] IST TERMINAL EQUATES
  • [00158] VIKING X TERMINAL EQUATES
  • [00180] CTC DEFINITIONS
  • [00234] 5037 CRT CONTROLLER
  • [00258] 8250 KEYBOARD UART DEFINITIONS
  • [00336] 8255 I/O PORT DEFINITIONS
  • [00383] 8250 COMM LINE UART DEFINITIONS
  • [00455] LED LATCH DEFINITIONS
  • [00472] BANK SELECT DEFINITIONS
  • [00499] 8250 PORT A AND B DEFINITIONS
  • [00555] PARALLEL I/O CHANNEL DEFINITIONS
  • [00856] START
  • [00874] BEGIN
  • [01163] LOADER EXEC
  • [01275] RETRY ROUTINE
  • [01342] LOAD FILE FROM DISK
  • [01402] LOADER SUBROUTINE
  • [01510] SUBROUTINES
  • [01574] CHECKSUM ROUTINES
  • [01707] SECURITY MESSAGE
  • [01768] MESSAGE DISPLAY ROUTINES
  • [01827] MESSAGES
  • [01875] IST CHARACTER SET
  • [01976] MESSAGES
  • [02119] LOADER VARIABLES
DBOOT03
2,184 Lines
compass
  • [00009] COMMON DISK BOOT LOADER
  • [00073] LOADER EQUATES
  • [00091] IST TERMINAL EQUATES
  • [00165] VIKING X TERMINAL EQUATES
  • [00187] CTC DEFINITIONS
  • [00241] 5037 CRT CONTROLLER
  • [00265] 8250 KEYBOARD UART DEFINITIONS
  • [00343] 8255 I/O PORT DEFINITIONS
  • [00390] 8250 COMM LINE UART DEFINITIONS
  • [00462] LED LATCH DEFINITIONS
  • [00479] BANK SELECT DEFINITIONS
  • [00506] 8250 PORT A AND B DEFINITIONS
  • [00562] PARALLEL I/O CHANNEL DEFINITIONS
  • [00863] START
  • [00897] BEGIN
  • [01184] LOADER EXEC
  • [01300] RETRY ROUTINE
  • [01367] LOAD FILE FROM DISK
  • [01426] LOADER SUBROUTINE
  • [01534] SUBROUTINES
  • [01599] CHECKSUM ROUTINES
  • [01732] SECURITY MESSAGE
  • [01793] MESSAGE DISPLAY ROUTINES
  • [01852] MESSAGES
  • [01900] IST CHARACTER SET
  • [02001] MESSAGES
  • [02144] LOADER VARIABLES
DD60
1,751 Lines
compass
  • [00923] DISPLAY DRIVER FOR X.CONSOLE
  • [00951] DISPLA - DISPLAY DATA
  • [00987] DIRECT CELL ASSIGNMENTS
  • [01028] MAIN LOOP
  • [01516] CHECK AND PROCESS ERROR FLAG
DDPT
1,830 Lines
compass
  • [00006] DDPT – CPU BABYSITTER FOR DDP EXERCISER
  • [00098] MASTOR INTERFACE ROUTINES
  • [00178] SYSTEM INTERFACE ROUTINES
  • [00288] PROCESS ARGUMENTS
  • [00340] STORAGE DEFINITIONS
  • [00396] DDP EXERCISER
  • [00440] MAIN PROCESSING LOOPS
  • [00527] CHECK – CHECK EM ADDRESSES VALID
  • [00631] GETPATT – PREPARE NEXT PATTERN
  • [00722] DESTROY – DESTROY PATTERNS IN PP MEMORY
  • [00743] VERIFY – CHECK DATA READ BACK CORRECTLY
  • [00793] PAUSE – CHECK FOR STORAGE MOVE OR CP ERROR
  • [00856] DROP PPU
  • [00896] RSVDDP – RESERVE DDP PORT
  • [00938] RELDDP – RELEASE DDP PORT RESERVATION
  • [00960] READECS – READ EM VIA DDP
  • [01040] WRITECS – WRITE EM VIA DDP
  • [01115] WAITREC – WAIT FOR AUTO-RECALL
  • [01154] LIMITS – ERROR LIMIT CHECKS
  • [01175] ROUTINES TO FORMAT DAYFILE MESSAGES
  • [01495] STORAGE DEFINITIONS
  • [01555] INITIALIZATIONS
DEFCCOM
74 Lines
compass
  • [00005] ROLLAD END OF CONDENSOR LOW CORE
  • [00015] DEFCCOM CONDENSOR SYMBOL DEFINITIONS
DEFINE
2,524 Lines
compass
  • [00007] -DEFINE- COMMAND
  • [00028] READIN FOR -DEFINE- COMMAND
  • [00042] ADTYPES REQUIRE TWO 12 BIT BYTES - THE FIRST
  • [01660] SEGMENT/ARRAY/UNITS
  • [01690] READ-IN FOR -SEGMENT- COMMAND
  • [01981] ARRAY DEFINE
  • [02448] READ-IN FOR -UNITS- COMMAND
DEFLEX
1,487 Lines
compass
  • [00006] INTERPRETATION OF DEFINE
  • [00034] DEFNLEX
  • [00079] PROCESS PRIMITIVE DEFINE
  • [00276] PROCESS NORMAL DEFINE
  • [00418] PROCESS FUNCTION DEFINE
  • [00759] DEFINE INFO STORAGE / RETRIEVAL
  • [01150] -VSEEK- IDENTIFY DEFINED NAME
DEFSUB
187 Lines
compass
  • [00005] SUBROUTINES USED BY -DEFINE- OVERLAY
  • [00013] DEFINE/SEGMENT/UNITS OVERLAY CALLS
  • [00045] -GETNAME-
  • [00124] -SYMCHK-
DISKFIO
1,658 Lines
compass
  • [00005] VARIOUS DISK FILE I/O COMMANDS
  • [00117] VARIOUS DATA NEEDED FOR DISKFIO ROUTINES
  • [00155] -ACTF- ACTIVATE FILE IF IN INACTIVE TABLE
  • [00228] -NEWACTF- ASSIGN NEW FILE AS ACTIVE FILE
  • [00331] -CLSACTF- CLOSE CURRENTLY ACTIVE FILE
  • [00442] -COPIACT- REACTIVATE LAST INACTIVE FILE
  • [00489] -CLSALLF- CLOSE ALL ACTIVE/INACTIVE FILES
  • [00522] -TDSINIT- INITIALIZE DATA/NAMESET INFO
  • [00545] -FILTYPE- GET FILETYPE TO B1
  • [00604] -READTF- READ TUTOR FILE NODE
  • [00665] -NAMBIAS- CALCULATE NAME BIASES
  • [00767] -GENCOMP- GENERIC COMPARISON OF TWO WORDS
  • [00801] NAMREC CONVERT RELATIVE RECORD TO ABSOLUTE
  • [00844] NXTLINK
  • [00884] READDS
  • [00937] SETFIO SET FILE I/O ACTIVITY
  • [00995] CLRFIO CLEAR FILE I/O ACTIVITY
  • [01057] READFTB
  • [01101] READNAM – READ CURRENT USER NAME
  • [01103] READNAM - READ CURRENT NAME ENTRY
  • [01234] NAMESET BINARY/GENERIC SEARCH
  • [01421] FINDRES – SEARCH SIGNON RESERVATION TABLE
  • [01506] LJUSTC LEFT JUSTIFY CODEWORD
  • [01541] MASTERFILE FUNCTIONS
  • [01543] RMFSIZE - READ MASTERFILE DIRECTORY SIZE.
  • [01605] S“MF$” - RETURN *MF$* FOR A SPECIFIC MASTERFILE.
DOCPRT
1,136 Lines
compass
  • [00076] LOGIC -
  • [00978] CONCAT - CONCATENATE STRING
DPRT
1,334 Lines
compass
  • [00551] -SETUP-
  • [00559] LOAD TIME INITIALIZATIONS
  • [00642] READ DATA FILE
  • [00648] -GETLINE- GET NEXT DATA RECORD
  • [00743] -ISTLIN- INITIALIZATIONS
  • [00777] -DISKIN-
  • [00783] ATTACH FILE
  • [00811] DETACH PLATO FILE
  • [00824] READ BLOCK FROM PLATO DISK FILE
  • [00876] OUTPUT FORMATTING
  • [00881] -ANSFORM-
  • [00958] -OUTFORM-
  • [01152] OCTAL TO ALPHA CONVERSION
  • [01186] -VFORM-
  • [01199] -FILL- FILL -OUTBUF-
  • [01234] ZERO TO BLANK ROUTINE
  • [01300] FIND END OF LINE
DRAWS
1,231 Lines
compass
  • [00008] DRAWS OVERLAYS FOR COMMAND EXECUTION
  • [00027] DRAWOV -DRAW- -RDRAW- -GDRAW-
  • [00358] -RORIGIN-
  • [00418] -RAT- -RATNM- -RDOT-
  • [00546] CIRCLE ROUTINE
DSN
3,949 Lines
compass
  • [00008] DSN - DRIVER FOR DATA SERVICES NETWORK.
  • [00014] DRIVER FOR DATA SERVICES NETWORK.
  • [00137] NWC - NETWORK CHARACTER
  • [00161] OVERLAY - DEFINE AN OVERLAY
  • [00400] MAI - MAIN PROCESSING LOOP
  • [00463] TER - TERMINATION PROCESS
  • [00481] UCS - UPDATE CM STATISTICS.
  • [00529] PLATO INTERFACE ROUTINES.
  • [00531] ABO - ABORT OUTPUT TO TERMINAL
  • [00560] BOD - BUILD OUTPUT DATA BLOCKS FOR NETWORK
  • [00680] BFO - WRITE DATA TO CIRCULAR BUFFER
  • [00791] LOT - LOG OFF TERMINALS
  • [00833] RTT - RETURN TERMINAL TYPE
  • [00875] SKY - SEND KEY TO KEY BUFFER
  • [00942] SBT - SET BIT FOR STATION
  • [01017] SPK - STORE PLATO KEY IN KEY BUFFER
  • [01079] SSL - SINGLE STATION LOGOFF.
  • [01092] UPD - UPDATE IN/OUT POINTERS
  • [01208] NETWORK PROCESSING ROUTINES.
  • [01210] BRH - BUILD ROUTING HEADER.
  • [01239] BTH - BUILD TERMINAL HEADER.
  • [01276] COD - CHECK OUTPUT DELAYS
  • [01396] INV - INVERT A CHARACTER
  • [01439] PIB - PROCESS INPUT BUFFER
  • [01535] PIC - PROCESS INPUT CHARACTER
  • [01656] SNP - SWITCH TO NEXT NPU
  • [01722] SSM - PROCESS SUPER SYSTEM MESSAGE
  • [01739] SYS - PROCESS SYSTEM MESSAGE
  • [01765] ASO - APPLICATION SYSTEM SIGNON
  • [01787] CEM - PROCESS CCP ERROR/STATISTIC MESSAGES
  • [01800] CSS - CHANGE IN SWITCH STATUS
  • [01812] DSM - DISPLAY SYSTEM MESSAGE
  • [01825] SBG - SIGN-ON TO BACKGROUND SYSTEM
  • [01840] TCD - PROCESS TERMINAL COMMAND BLOCK
  • [01906] FOB - FLUSH OUTPUT BUFFER.
  • [01941] NKT - LOAD NEW KEY TRANSLATION TABLE.
  • [01958] OKT - LOAD OLD KEY TRANSLATION TABLE.
  • [01978] LGO - LOGOUT USER
  • [01998] SNK - SWITCH TO NEW KEY TRANSLATION TABLE.
  • [02012] PLM - PROCESS LOGIN / LOGOUT MESSAGE
  • [02086] SRM - SEND ROUTING MESSAGE.
  • [02142] STC - SEND TERMINAL COMMAND.
  • [02174] VBL - VERIFY OUTPUT BUFFER LENGTH
  • [02193] 2250 DATA TRANSFER ROUTINES.
  • [02195] RID - READ INPUT DATA.
  • [02249] SOD - SEND OUTPUT DATA
  • [02322] FNC - FUNCTION THE CHANNEL. TRANSFER ONE DATA WORD
  • [02353] FUL - TEST IF CHANNEL FULL
  • [02364] IJM - WAIT FOR CHANNEL INACTIVE
  • [02377] STS - GET 2550 STATUS
  • [02421] ECS TRANSFER ROUTINES.
  • [02423] RECS - ECS TO PPU TRANSFER VIA DDP.
  • [02487] WECS - PPU TO ECS TRANSFER VIA DDP.
  • [02563] GENERAL PURPOSE SUBROUTINES.
  • [02565] C2X - CONVERT BINARY TO HEXADECIMAL.
  • [02591] STX - STORE TEXT IN THE MESSAGE BUFFER.
  • [02626] NUL - RETURN TO CALLER.
  • [02633] ICH - INSERT CHANNEL NUMBERS INTO I/O INSTRUCTIONS
  • [02664] PSE - PAUSE FOR STORAGE RELOCATION
  • [02687] MES - ISSUE FORMATTED DAYFILE MESSAGE
  • [02737] DBG - WRITE DATA TO CM BUFFER
  • [02772] BUF - MACRO TO DEFINE A BUFFER
  • [02960] PRS - INITIALIZE PROCESSING.
  • [03082] IFE - INITIALIZE FRONT END.
  • [03151] SET - SET 2550 STORE ADDRESS
  • [03171] WTB - WRITE BUFFER TO 2550 AND VERIFY IT.
  • [03238] OVERLAYED INITIALIZATION ROUTINES.
  • [03242] CEA - CONVERT ECS ADDRESS
  • [03258] FLF - FIND LOAD FILE
  • [03332] ICP - INITIALIZE CONTROL POINT
  • [03453] IFC - INITIALIZE FRAMAT COMMUNICATION
  • [03810] INI - INITIALIZE FL AND OTHER PPS
  • [03871] IRL - INITIALIZE RE-LOAD OF A 2550
  • [03907] RFL - REQUEST FIELD LENGTH
DSN1
3,809 Lines
compass
  • [00006] ASO - APPLICATION SYSTEM SIGNON
  • [00095] DTS - DETERMINE TERMINAL SPEED
  • [00145] DTT - DETERMINE TERMINAL TYPE
  • [00286] BFI - READ NEXT BLOCK FROM CIRCULAR BUFFER
  • [00455] CSS - CHANGE IN SWITCH STATUS
  • [00524] DSM - DISPLAY SYSTEM MESSAGE
  • [00567] CPR - PRESET FOR CCP ERROR MESSAGE
  • [00626] C2O - CONVERT AND STORE TWO OCTAL DIGITS.
  • [00646] ST2 - STORE TWO TEXT CHARACTERS.
  • [00670] CD1 - CONVERT/DISPLAY $CD (LINK/STAT) MESSAGE - 1
  • [00732] ST2 - STORE TWO TEXT CHARACTERS.
  • [00750] SHX - STORE HEX CHARACTERS INTO THE MESSAGE BUFFER.
  • [00783] CD2 - CONVERT/DISPLAY $CD (LINK/STAT) MESSAGE - 2
  • [00846] SHX - STORE HEX CHARACTERS INTO THE MESSAGE BUFFER.
  • [00873] ST2 - STORE TWO TEXT CHARACTERS.
  • [00891] SND - SEND MESSAGE IN BUFFER TO THE ERROR LOG, SET TERMNATOR.
  • [00909] C2O - CONVERT AND STORE TWO OCTAL DIGITS.
  • [00935] CE1 - CONVERT/DISPLAY $CE (CE ERROR) MESSAGES
  • [01060] SHX - STORE HEX CHARACTERS INTO THE MESSAGE BUFFER.
  • [01089] ST2 - STORE TWO TEXT CHARACTERS.
  • [01107] SND - SEND MESSAGE IN BUFFER TO THE ERROR LOG, SET TERMNATOR.
  • [01211] SHX - STORE HEX CHARACTERS INTO THE MESSAGE BUFFER.
  • [01240] ST2 - STORE TWO TEXT CHARACTERS.
  • [01260] SND - SEND MESSAGE IN BUFFER TO THE ERROR LOG, SET TERMNATOR.
  • [01279] COR - CONVERT ERROR ORDINAL INTO REAL ERROR CODE.
  • [01349] DIB - DUMP INPUT BLOCK TO ERROR LOG.
  • [01410] EM7 - EM ACCESS FOR 700 SERIES.
  • [01458] RECS - READ ECS VIA MONITOR FUNCTION.
  • [01548] WECS - WRITE ECS VIA MONITOR FUNCTION.
  • [01636] EM8 - EM ACCESS ROUTINES FOR 800 SERIES.
  • [01667] RECS - READ UEM VIA DIRECT ACCESS.
  • [01732] WECS - WRITE UEM VIA DIRECT ACCESS.
  • [01801] GPS - GET PRIMARY SWITCH NUMBER
  • [01895] IDP - INITIALIZE ESM ACCESS
  • [02108] KYO - PROCESS KEY BUFFER OVERFLOW PROBLEMS
  • [02206] LPG - LOAD PROGRAM INTO 2550
  • [02271] CNP - MASTER CLEAR 2550
  • [02283] GTW - MOVE WORDS FROM DISK BUFFER TO 2550 BUFFER
  • [02320] RDB - READ DISK BUFFER
  • [02348] MXE - PROCESS 2550 CHANNEL ERRORS
  • [02716] DXB - CONVERT NUMBER FROM DISPLAY CODE
  • [02894] PSM - PROCESS SYSTEM MESSAGE
  • [02963] RFE - RESERVE FRONT END.
  • [03124] RTT - RETURN TERMINAL TYPE
  • [03193] SSM - PROCESS SUPER SYSTEM MESSAGE
  • [03240] TER - TERMINATION OVERLAY
  • [03380] UMT - UPDATE MAXIMUM TERMINAL NUMBER IN USE
  • [03468] KEYS - CONVERSION FROM ASCII TO PLATO KEYS
  • [03473] KEY - MACRO TO CREATE KEY CONVERSION TABLE
  • [03655] NKY - CONVERSION FROM ASCII TO PLATO KEYS
ECDMP
258 Lines
compass
  • [00003] ECDMP - ECS DUMPER FOR PLATO.
  • [00038] MAIN LOOP
  • [00104] ECSERR – REPORT ECS ERRORS
ECPRT
508 Lines
compass
  • [00003] ECPRT ECS DUMP INTERPRETER
  • [00004] DEFINITIONS
  • [00039] LOCAL MACROS
  • [00077] INITIALIZATIONS
  • [00200] FORMAT AND PRINT ECS DUMP
  • [00389] OUTPUT ROUTINES
  • [00456] COMMON DECKS
  • [00471] STORAGE DEFINITIONS
ECSERR
502 Lines
compass
  • [00005] ECSERR ECS ERROR PROCCESSING
  • [00006] ECSERR
  • [00103] ECSERRX
  • [00361] SAVE REGISTERS
  • [00414] RESTORE REGISTERS
  • [00480] -EINIT- INITIALIZE -A- REGISTERS
ECSMGR
940 Lines
compass
  • [00005] ECSMGR ECS LESSON BUFFER MANAGEMENT
  • [00025] ENTRY
  • [00074] SEARCH FOR ADEQUATE FREE SPACE
  • [00192] DELETE UNUSED LESSONS
  • [00390] COLLECT FREE SPACE
  • [00712] EMSET - SET UP INTERLOCKS / VARIABLES
  • [00726] EMCLR - CLEAR INTERLOCKS / SAVE VARIABLES
  • [00741] -GETECS- OBTAIN ECS FROM LESSON BUFFER
  • [00765] -GETECS1- OBTAIN ECS FROM LESSON BUFFER
ECSTST
539 Lines
compass
  • [00003] ECSTST ECS TEST ROUTINE
  • [00004] DEFINITIONS
  • [00036] INITIALIZATIONS
  • [00050] ECSTST
  • [00102] GENERATE TEST PATTERN
  • [00182] ROUTINES
  • [00324] ECS PARITY ERROR PROCESSING
  • [00520] STORAGE DEFINITIONS
EFORMAT
498 Lines
compass
  • [00005] OUTPUT FORMATTING
  • [00019] -EFORMAT- OUTPUT TO ECS FORMAT BUFFER
  • [00181] -WFORMAT- WAIT FOR FORMAT INITIALIZATION
  • [00200] -FORMREQ- PROCESS FORMATTER REQUESTS
  • [00275] RXCB/WXCB READ/WRITE ECS CIRCULAR BUFFER
EFRDMP
472 Lines
compass
  • [00017] EFRDMP - DUMP EXTENDED ESM FLAG REGISTERS.
  • [00022] DUMP EXTENDED ESM FLAG REGISTERS.
  • [00091] EXTENDED FLAG REGISTER DUMP
  • [00124] CMM - CHECK MEMORY MODE
  • [00153] EFR - EVALUATE FLAG REGISTER
  • [00212] GPM - GET PARAMETERS
  • [00305] PER - PRINT EXTENDED REGISTERS
EMBED
468 Lines
compass
  • [00019] EMBED –EMBEDS COMMANDS IN TEXT
  • [00188] COMMAND SCANNING ROUTINE FOR EMBED
  • [00294] NXTNAMR
  • [00334] SHOW –READIN FOR SHOW, SHOWT, SHOWE
  • [00402] READIN FOR -COLOR-
EMDMP
257 Lines
compass
  • [00005] EMDMP - CONTROL POINT EM DUMP (PLATO).
  • [00041] MAIN LOOP
  • [00108] ECSERR – REPORT EM ERRORS
  • [00183] COMMON DECKS / FETS / ETC.
  • [00202] PRESET
EPE
1,262 Lines
compass
  • [00012] EPE - PROCESS EM PARITY ERRORS.
  • [00014] PROCESS EM PARITY ERRORS.
  • [00053] MACREF - GENERATE MACRO SYMBOLIC REFERENCE LISTING.
  • [00119] MAIN PROCESSING LOOP
  • [00325] SUBROUTINES.
  • [00327] C18 - CONVERT 18 BITS TO DISPLAY CODE
  • [00351] C24 - CONVERT 24 BITS TO DISPLAY CODE
  • [00375] C60 - CONVERT 60 BITS TO DISPLAY CODE
  • [00400] IDM - ISSUE DAYFILE MESSAGES
  • [00608] MEL - MONITOR ESM ERROR LOG
  • [00640] RDW - READ WORD FROM EM
  • [00685] REQ - REQUEST CPU ACTION
  • [00734] SCR - SET JOB CONTROL REGISTERS
  • [00780] SFW - SEARCH FOR FAILING WORD
  • [00805] STA - SET TRANSFER ADDRESS
  • [00964] WTW - WRITE WORD TO EM
  • [00991] PRESET.
  • [00993] PRS - PRESET PROGRAM
  • [01102] BXP - BUILD EXCHANGE PACKAGE
ESMCP
2,278 Lines
compass
  • [00009] ESM - CONTROL EXTENDED SEMI-CONDUCTOR MEMORY.
  • [00117] MAIN PROGRAM.
  • [00253] PKD - PROCESS *K* DISPLAY.
  • [00331] FUNCTION PROCESSORS.
  • [00345] CON - CONFIGURE ESM.
  • [00909] SUBROUTINES.
  • [01159] SYN - GENERATE SYNDROME TO BIT CONVERSION
  • [01653] FRM - FORM RELOCATION MEMORY
  • [01717] MAS - CALL PP PROGRAM *MAS*.
  • [01739] ROL - ROLLOUT FOR A WHILE
  • [01752] RSP - ASSIGN SIDE-DOOR PORT.
  • [01864] UEL - UNPACK ERROR LOG
  • [01927] WEM - WRITE ERROR MESSAGE
  • [02129] DATA STORAGE.
ESMPP
779 Lines
compass
  • [00012] ESM - CONTROL EXTENDED SEMI-CONDUCTOR MEMORY
  • [00076] MAIN PROGRAM.
  • [00748] ICH - INSERT CHANNEL NUMBERS INTO I/O INSTRUCTIONS
EXEC1
4,580 Lines
compass
  • [00005] EXEC1 – EXECUTION-INTERPRETER
  • [00016] PLATO EXECUTION REGISTER CONVENTIONS
  • [00043] ENTRY POINTS
  • [00075] EXTERNAL SYMBOL DEFINITIONS
  • [00234] JUMP TABLE
  • [00336] RETPROC – RELOAD UNIT AFTER I/O COMMAND
  • [00362] CKPROC – RETURN FROM INTERRUPT COMMANDS
  • [00428] RETPRO – RELOAD UNIT AND CONTINUE
  • [00463] PROCESS – CHECK IF TIMESLICE OVER
  • [00480] PROC – EXECUTE NEXT COMMAND
  • [00535] PROCO – RETURN FROM OUTPUT COMMANDS
  • [00595] PROCOV – LOAD COMMAND OVERLAY AND EXECUTE
  • [00621] XXSLICE – END TIME SLICE
  • [00643] PRE-CHECK FOR OUTPUT COMMANDS
  • [00669] COMMAND JUMP TABLE
  • [00712] SECONDARY BRANCHING
  • [00876] GENERAL TWO AND MULTI-VARIABLE PROCESSORS
  • [00980] CHKSET – SET RECORD CHECKPOINTING STATUS
  • [01007] CHKDEF – REVERT TO DEFAULT CHECKPT STATUS
  • [01041] WHERE, WHERE(F)
  • [01124] UNIT
  • [01307] WRITE AND CALC
  • [01336] -CUNIT-
  • [01393] JLPACK
  • [01408] UNJOIN
  • [01446] STORE (AND STOREU)
  • [01627] ARROW AND ARROW(F)
  • [01898] JARROW
  • [01990] ENDARROW
  • [02007] CIA - CHECK INHIBIT ARETURN.
  • [02038] EAE - END ARROW EXECUTION.
  • [02076] -LONG-
  • [02152] -LOCK-
  • [02171] CALCC AND CALCS
  • [02302] ERASE
  • [02441] PLOT AND CHAR
  • [02496] -END- -MODE-
  • [02557] INHIBIT
  • [02594] STOREA
  • [02648] SHOWA
  • [03097] -TEXT- COMMAND
  • [03363] TXMIN - INIT FOR OUTPUT.
  • [03382] TXMOUT - COMPLETE OUTPUT.
  • [03510] BOUNDS CHECKERS
  • [03634] JUDGE AND JUDGE*
  • [03795] LANG
  • [03853] NEXTNOW
  • [03886] KEY BRANCHING COMMANDS
  • [04045] ANSWERC/WRONGC
  • [04289] PLATO PROGRAMMABLE TERMINAL COMMANDS
  • [04354] LIBCALL/LIBRET EXECUTION.
  • [04369] LOADMX - LOAD ORIENTAL MODULE TO TERMINAL.
  • [04370] LOADMX - LOAD ORIENTAL MODULE INTO TERMINAL.
  • [04519] SEND EXT CODES TO CLIENT SOFTWARE
  • [04554] MACRO ROUTINES
EXEC10
528 Lines
compass
  • [00006] EXEC10 OVERLAYS FOR COMMAND EXECUTION
  • [00239] RBR - RESTORE B REGISTERS
  • [00261] PLC - CYBIL ASCII CODES TO PLATO OUTPUT
  • [00278] PLV - GENERATE VALUE FOR PLATO CODES
  • [00351] -NAPLPS- COMMAND EXECUTION
EXEC2
2,293 Lines
compass
  • [00005] TUTOR EXECUTION-INTERPRETER
  • [00013] ENTRY/EXTERNAL
  • [00055] -DRAW- COMMAND
  • [00233] WINDBUF - OUTPUT WINDOWED LINES
  • [00323] SINCOS
  • [00354] -RDRAW- / -GDRAW- COMMANDS
  • [00377] BLOCK
  • [00428] ZERO, ADD1, SUB1
  • [00456] CODEOUT, WINDOW
  • [00467] -BREAK-
  • [00482] -TABSET- COMMAND
  • [00492] -COPY-
  • [00517] -JKEY- COMMAND
  • [00532] BUMP
  • [00585] -EDIT-
  • [00606] -DATE-
  • [00621] -CLOCK- COMMAND
  • [00636] -DAY- COMMAND
  • [00682] -PLAY- -RECORD-
  • [00721] -ENABLE- -DISABLE-
  • [00765] DELAY
  • [00809] -ALTFONT-
  • [00836] -CODE- AND -CHECK-
  • [00908] CHECK EDITING CODE
  • [00985] -SYSCOR- CHECK FOR SPECIAL GROUP
  • [01038] -NAME- AND -GROUP- COMMANDS
  • [01068] MODESET AND BITSOUT
  • [01100] ASCII
  • [01123] SYSLESS
  • [01145] SYSTEM LESSON LIST SEARCHES
  • [01201] STOPCHK - CHECK FOR SPECIAL STOP1 PROCESSING
  • [01262] SYSLES - CHECK FOR NON-DELETABLE SYSTEM LESSONS
  • [01313] SYSLES1 - CHECK DELETION PROTECTION AND ECS CHARGE
  • [01375] SAVE0167 - SAVE A0, A1, A6, A7, X0, X1, X6, X7
  • [01421] REST0167 - RESTORE A0, A1, A6, A7, X0, X1, X6, X7
  • [01486] PROSRCH - SPECIAL SEARCH LESSON DESCRIPTOR TABLE
  • [01675] -ZFILL- COMMAND
  • [01689] -CPULIM- COMMAND
  • [01727] SHOWT
  • [02122] SHOW
  • [02192] SHOWZ
  • [02250] ZEROSAV - SAVE REGISTERS *X4* AND *A4*
  • [02270] ZERORST - RESTORE *X4* AND *A4* AFTER -ZERO-
EXEC3
2,636 Lines
compass
  • [00005] TUTOR EXECUTION-INTERPRETER
  • [00012] EXTERNALS
  • [00047] -JOIN- AND -JOIN*- COMMANDS
  • [00137] -IEUEND- COMMAND
  • [00154] CHANGE LOCAL VAR STACK POINTER
  • [00191] -JUMP- AND -JUMP*- COMMANDS
  • [00232] GOTO AND GOTO*
  • [00296] CONDITIONAL -GOTO- COMMAND
  • [00348] DO, DO(L), DO*, AND DO*(L)
  • [00642] -ARGS- COMMAND
  • [00837] -PREARGS-
  • [00892] -ARGCODE-
  • [00946] WRITE COMMAND INTERRUPT
  • [01066] -STEP- SINGLE COMMAND EXECUTION
  • [01223] -STEP- COMMAND
  • [01328] OKWORD AND NOWORD
  • [01360] -SCORE- AND -STATUS- COMMANDS
  • [01396] VARIOUS GRAPHING SUBROUTINES
  • [01540] GRAFS SUBROUTINES
  • [01625] -SET- COMMAND EXECUTION ROUTINE
  • [01775] -LESSON- COMMAND
  • [01814] TRANSFR EXECUTION
  • [02037] MOVE
  • [02398] -COLOR- COMMAND EXECUTION
  • [02569] -FONT- COMMAND EXECUTION
EXEC4
6,054 Lines
compass
  • [00008] EXEC4 OVERLAYS FOR COMMAND EXECUTION
  • [00040] MACROS
  • [00093] -STATS- COMMAND (CODE = 202)
  • [00431] EXSTATV - TURN LESSON EXECUTION STATS ON/OFF
  • [00453] ONOFF - TURN EXECUTION STATISTICS ON OR OFF
  • [00514] DRPEXEC - CLEAR STATS BUFFER WHEN EXECUTOR DROPS
  • [00527] CLEARBUF - ZERO LESSON EXECUTION STATISTICS BUFFER
  • [00569] ALLOCOV ALLOCATE DISK SPACE
  • [00934] DEALLOV RELEASE DISK SPACE
  • [01100] RENAMOV CHANGE NAME OF DISK FILE
  • [01359] RETYPE - CHANGE FILE TYPE
  • [01454] DIOGOV DISK I/O PROCESSING
  • [01593] FBIT COMMAND
  • [01682] -TERMSET-
  • [01718] LOCATE
  • [01833] -ATTACHF- AND -FILEF-
  • [02098] -DETACHF-
  • [02317] -READF-/-WRITEF-
  • [02615] -FILENAM- COMMAND
  • [02707] -NVERS- COMMAND
  • [02751] -SYSFILE- EXECUTION OVERLAY
  • [03424] NEWSRCH - SEARCH NEW DISK SYSTEM FOR FILE
  • [03748] SYSFRST - RESTORE OVDATAS FOR -SYSFILE-
  • [03787] SYSFSAV - SAVE OVDATAS FOR -SYSFILE-
  • [04051] SETPF - SET TO PLATO PACK AND FILE
  • [04104] SETPACK - IMITATION -SETPACK- COMMAND
  • [04862] FIP CONVERSIONS
  • [04865] FIELD - MOVE BIT FIELD BETWEEN REGISTERS
  • [04904] NEWFIPV - CONVERT OLD FORMAT FIP TO NEW FORMAT
  • [04966] OLDFIPV - CONVERT NEW FORMAT FIP TO OLD FORMAT
  • [05020] -SYSLOC- COMMAND EXECUTION OVERLAY
  • [05084] DISK COMMANDS
  • [05100] -RENAMEF- AND -RETYPEF- TUTOR COMMANDS
  • [05225] PLATO NETWORK REQUEST PROCESSING
  • [05622] NETIOF - TEMPORARY NETIO ROUTINE.
  • [05733] NETIOT - TEMPORARY NETIO ROUTINE.
  • [05813] NETIOR - RELEASE FIXED -NETIO- BUFFER.
  • [05844] PUT PLF REQUEST
  • [05992] DROP LINK
EXEC5
4,924 Lines
compass
  • [00008] EXEC5 OVERLAYS FOR COMMAND EXECUTION
  • [00032] HISTORY
  • [00047] NOTES
  • [00104] CHARACTER STRING SEARCH ROUTINE
  • [00639] REVERSE SEARCH LOOP
  • [00972] -ABORT- COMMAND
  • [01058] -CHECKPT- COMMAND
  • [01109] -STOLOAD- COMMAND
  • [01162] -COMLOAD- COMMAND
  • [01222] -LOADSET-
  • [01357] TIMING COMMANDS
  • [01444] -TIMEL-
  • [01520] -TIMER-
  • [01608] -READECS/WRITECS-
  • [01672] -SBREAD/SBWRITE-
  • [01831] -SBCHANG- / -STCHANG-
  • [01833] SBCHANG - CHANGE A WORD IN A STUDENT BANK
  • [01998] -USERLOC- (CODE = 150)
  • [02143] -READTCM- READ TUTOR CENTRAL MEMORY
  • [02209] -HIDDEN- COMMAND
  • [02428] -SEND- COMMAND EXECUTION OVERLAY
  • [02860] -BEEP-
  • [02878] -ACCESS- AND -SYSACC- COMMAND EXECUTION.
  • [03234] GETACN - GET USERS ACCESS LIST NAME.
  • [03310] PUTACC - RETURN ACCESS BITS TO USER.
  • [03377] GETACC - GET ACCESS ACCESS BITS FOR USER.
  • [03919] ACHECK - CHECK USERS ACCESS
  • [04108] DIRCHK - CHECK TO SEE IF THIS USER IS OWNER
  • [04156] STATE - STATE TABLES TO DEFINE NEXT SEARCH.
  • [04341] EBCHOP - ECS BINARY CHOP.
  • [04479] GBA - GET JUDGE BUFFER ADDRESS
  • [04568] -REPLACE- COMMAND EXECUTION
EXEC6
5,732 Lines
compass