File MSTPAR.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file

/ PARAMETERS FOR   M A S T     (V2B-B)          1-SEP-91
	XLIST 1
	IFNDEF	LSTFLG	<LSTFLG=1>
	XLIST LSTFLG
/
/
/
/	M   M   SSSS  TTTTT  PPPP    AAA   RRRR
/	MM MM  S        T    P   P  A   A  R   R
/	M M M  S        T    P   P  A   A  R   R
/	M   M   SSS     T    PPPP   A   A  RRRR
/	M   M      S    T    P      AAAAA  R R
/	M   M      S    T    P      A   A  R  R
/	M   M  SSSS     T    P      A   A  R   R
/
/
/
/	VERS=	4

/
/EDIT HISTORY:
/
/12-JUN-91	(LHN)		START OF VERSION 4A
/	1)  DELETED SELFCK, LIST AND SLFRST TASKS
/	2)  DELETED SHEARC AND SISRLF
/	3)  DELETED TTYST TASK
/	4)  ADDED DIRTAL TASK
/	5)  MOVED TASKS AROUND A BIT
/	6)  DELETED CH1 AND CH3 TASKS
/	7)  ADDED SPESAM FOR SPECIAL SAMPLING
/	8)  ADDED CRLMGF AND CRLDSP FOR CURL SAMPLES
/	9)  DELETED CURCUT FROM FIELD 3 COMMON
/	10) ADDED DATA IN F5 COMMON FOR GATEWY
/	11) ADDED VTDINP TASK FOR OPERATOR DATA
/	12) CHANGED TASK PRIORITIES
/
/30-JUL-91	(LHN)
/	1)  ADDED KERDEV TASK TO TURN OFF KERMIT BOARD
/
/7-AUG-91	(LHN)
/	1)  DELETED SHUTDY FROM FIELD 1 COMMON.
/	2)  DELETED INSINL FOR INSPECTOR INTERLOCK.
/
/
/22-AUG-91	(LHN)		FOR VERSION 4B
/	1)  ADDED MOPM24 FOR GATEWAY COMM FAILURE.
/	2)  RESET STARTUP DEFAULT CHOP SIZE TO 298.
/	3)  LENGTHENED CLOCK QUE TO 50.
/
/30-AUG-91	(LHN)
/	1)  MOVED TTYM TO F5, TO LET CRT GROW.	
/
/1-SEP-91	(LHN)
/	1)  ADDED CONBUF DEFINITIONS.
/

/RTS/8 V2B EXEC PARAMETERS - EDITED BY USER PDP8A= 0 /1 IF PDP-8/A, ELSE 0 PDP8E= 1 /1 IF PDP-8/E, ELSE 0 PDP12= 0 /1 IF PDP-12, ELSE 0 MQ= 1 /1 FOR SYSTEM TO SAVE MQ REGISTER, ELSE 0 EAE= 0 /1 FOR SYSTEM TO SAVE STEP COUNTER, ELSE 0 FULEAE= 0 /1 TO SAVE ALL EAE STATUS ON POWERFAIL. PWRFAL= 1 /1 IF POWER FAIL/AUTO RESTART ENABLED IN / THE HARDWARE, ELSE 0 KL8A= 0 /1, 2 OR 3 IF KL8A SUPPORT ROUTINES SHOULD / BE LOADED, ELSE 0. THE 1, 2 OR 3 IS THE / NUMBER OF KL8A INTERFACES TO BE SUPPORTED. HGHFLD= 70 /HIGHEST FIELD USED BY RTS-8 (EG 30 FOR A / 16K MACHINE) NTASKS= 70 /NUMBER OF TASKS IN THE SYSTEM CHECKP= 0 /1 IF ANY NON-RESIDENT TASK IS CHECK- / POINTABLE, ELSE 0 PARTNS= 0 /NUMBER OF MEMORY PARTITIONS DEFINED (THE N / PARTITIONS ARE NUMBERED FROM 0 TO N-1)
/ / / TASK NAMES IN ORDER OF PRIORITY / / /TASK TASK TASK FUNCTION /NAME NUMBER / MEMORY= 1 /MOTION PULSE PROCESSOR CLOCK= 2 /REAL TIME CLOCK HANDLER PWRF= 3 /POWER FAIL - AUTO RESTART INLOCK= 4 /OPEN MACHINE INTERLOCKS LINESP= 5 /COMPUTE GATE TIMING DELAY CH2DEF= 6 /CHANNEL 2 DEFECT ROUTINE CH1SPL= 7 /CHANNEL 1 SPLICE ROUTINE SMGATE= 10 /SAMPLE TRAY GATE HANDLER RAGATE= 11 /REJECT A TRAY GATE HANDLER RBGATE= 12 /REJECT B TRAY GATE HANDLER PAGATE= 13 /PRODUCT A TRAY GATE HANDLER PBGATE= 14 /PRODUCT B TRAY GATE HANDLER PCGATE= 15 /PRODUCT C TRAY GATE HANDLER SMARKR= 16 /FIRE THE SAMPLE MARKER CHOP= 17 /CHOP TIME PROCESSOR SAMPLE= 20 /SAMPLING CONTROL TALLEY= 21 /GENERATE THE SAMPLE TALLEY SMARKQ= 22 /LOAD THE SAMPLE MARKER QUEUE DIRTAL= 23 /DIRECT SAMPLE TALLEY OUTPUT GATEWY= 24 /COMMUNICATE WITH SICK GATEWAY VTDINP= 25 /VT220 OPERATOR DATA INPUT / 26 TRAYCK= 27 /STACKER TRAY CHECK MISC1= 30 /MISC PROCESS TASK CRTMSG= 31 /CRT MESSAGE OUTPUT CRTCTR= 32 /INCREMENT THE DATA COUNTERS CRT= 33 /CRT HANDLER FORMAT= 34 /TEXT FORMATTER ENDROL= 35 /END OF ROLL PROCESSOR EORSUM= 36 /END OF ROLL SUMMARY LPT= 37 /LINE PRINTER HANDLER MRESET= 40 /CRT OPERATOR MESSAGE RESET
/ / / TASK NAMES IN ORDER OF PRIORITY - CONTINUED / / /TASK TASK TASK FUNCTION /NAME NUMBER / / MOPDEC= 41 /MOP PUSHBUTTON DECODE RT01= 42 /RT01 INTERRUPT TASK ROLLDT= 43 /ROLL DATA DECODE TASK DIGINP= 44 /DIGITAL INPUT PROCESSOR BELL= 45 /RING ALERT ALARM LOGNAM= 46 /LOG PROGRAM NAME AND VERSION / 47 TTY= 50 /CONSOLE TERMINAL HANDLER MCR= 51 /MONITOR CONSOLE ROUTINE USERCD= 52 /USER COMMAND DECODE / 53 RFRESH= 54 /CRT DISPLAY REFRESH KERDEV= 55 /TURN OFF KERMIT BOARD BUILD= 56 /SET UP MEMORY DISPATCH TABLE PRESF2= 57 /PRESET FIELD 2 PRESF3= 60 /PRESET FIELD 3 PRESF4= 61 /PRESET FIELD 4 PRESF5= 62 /PRESET FIELD 5 ODT= 63 /DEBUGGER TASK INITZE= 64 /SYSTEM INITIALIZE SCREEN= 65 /REFRESH CRT ROLL DATA AREAES EXIT= 66 /EXIT TO OS/8 LNTEST= 67 /FOR TEST TASKS / 70 /WAS SELF CHECK TASK NULL= NTASKS+1 /NULL TASK AND MQ DISPLAY MSTVERSION= "4&77^100+"B-300 /SOFTWARE VERSION LEVEL /EPLTEST=1 /GENERATES EPL TEST CODE IF DEFINED. IFDEF EPLTEST <HGHFLD=60> /FOR ODT
/ / / RTS-8 SYSTEM TASK ASSEMBLY PARAMETERS. / / THE FOLLOWING PARAMETERS CONTROL THE MEMORY FIELD / AND CORE ORIGIN OF THE RTS-8 SYSTEM TASKS. AN / ORIGIN FOR PAGE ZERO VARIABLES AND PARAMETERS FOR / NON-RESIDENT TASKS ARE ALSO INCLUDED WHEN NEEDED. / / THE DEFINITION FORMAT IS: (.... IS THE TASK NAME) / / ....FLD MEMORY FIELD FOR THE TASK. / ....LOC CORE ORIGIN FOR THE TASK. / ....PGZ ORIGIN FOR PAGE ZERO VARIABLES. / ....PRT PARTITION NUMBER FOR THE TASK. / / IFDEF CLOCK < CLKTYP= 0 /0(DK8EA/DK8EC) OR 1(KW12) OR 2(PDP8/A) OR /3(DK8EP) CLKQLN= 50 /MINIMUM NUMBER OF ENTRY SLOTS IN THE CLOCK /QUEUE. MAY BE CHANGED BY USER. DECIMAL HERTZ= 100 /NUMBER OF HARDWARE TICKS PER SECOND SHERTZ= HERTZ /NUMBER OF SYSTEM TICKS PER SECOND IFNZRO CLKTYP&1 <HERTZ=1750> /FORCE DK8EP,KW12 TO 1 KHZ OCTAL > IFDEF PWRF < /POWERFAIL - AUTO RESTART PWRFFLD= 00 PWRFLOC= 3400 /1 OR 2 PAGES PWRCLR= EFWT!EORMWT!RUNWT /WHICH BITS TO CLEAR ON RESTART > IFDEF TTY < /CONSOLE TERMINAL HANDLER TTYFLD= 50 TTYLOC= 200 /2 OR 3 PAGES TTDEV= 04 /PRINTER DEVICE CODE - DEFAULT IS 04. KBDEV= 03 /KEYBOARD DEVICE CODE - DEFAULT IS TTDEV-1. >
/ IFDEF NULL < /NULL TASK NULLFLD= 00 NULLLOC= 4000 > IFDEF MCR < /MONITOR CONTROL ROUTINE MCRFLD= 00 MCRLOC= 4400 /5 TO 12. PAGES MCRPGZ= 150 /15. LONG MCRCLK= 1 /1 FOR MCR CLOCK RELATED FEATURES MCRSYS= 1 /1 IF MCR SYSTAT FACILITY IS DESIRED MCR6CN= 1 /1 FOR MCR TO USE 6 CHARACTER TASK NAMES MCRDMP= 1 /1 IF MCR DUMP OPTION IS DESIRED MCRCDV= TTY /CONSOLE TO BE USED BY MCR, TTY IS DEFAULT MCRTTY= 1 /1 FOR MESSAGE DRIVEN MCR > IFDEF ODT < /ODT DEBUGGING TASK ODTFLD=70 ODTLOC=200 / XX PAGES > IFDEF LPT < /LINE PRINTER HANDLER LPTFLD= 40 LPTLOC= 3400 /1 PAGE >
/ / / USER TASK ORIGINS - EDITED BY THE USER / / THE FOLLOWING PARAMETERS SPECIFY THE MEMORY FIELD / AND THE CORE ORIGIN FOR THE USER TASKS. AN ORIGIN / FOR PAGE ZERO STORAGE IS ALSO INCLUDED WHEN NEEDED. / / / FIELD 1 / MEMRYFLD= 10 /MOTION PULSE PROCESSOR MEMRYLOC= 1200 LINEFLD= 10 /COMPUTE LINE SPEED LINELOC= 2600 DEF2FLD= 10 /CHANNEL 2 DEFECT ROUTINE DEF2LOC= 3000 / AND SPLICE ROUTINE SGATEFLD= 10 /SAMPLE TRAY GATE HANDLER SGATELOC= 3400 RGATEFLD= 10 /REJECT TRAY GATE HANDLERS RGATELOC= 3600 PGATEFLD= 10 /PRODUCT TRAY GATE HANDLERS PGATELOC= 4000 TRYCKFLD= 10 /TRAY CHECK TRYCKLOC= 4400 DIGINFLD= 10 /DIGITAL INUT PROCESSOR DIGINLOC= 4600 BLDFLD= 10 /MEMORY DISPATCH TABLE SETUP BLDLOC= 6400
/ / / FIELD 2 / / TALLYFLD= 20 /SAMPLE TALLEY TALLYLOC= 200 TALLYPGZ= 170 SAMPLFLD= 20 /SAMPLE SAMPLLOC= 2400 EORSMFLD= 20 /END OF ROLL SUMMARY CONTROL EORSMLOC= 3400 PREF2FLD= 20 /PRESET FIELD 2 PREF2LOC= 3600 LPTXFLD= 20 /LPT TEXT AREA LPTXLOC= 4000 / / / FIELD 3 / / ROLDTFLD= 30 /ROLL DATA DECODE ROLDTLOC= 400 ROLLPGZ= 140 CRTCTFLD= 30 /UPDATE THE CRT DATA COUNTERS CRTCTLOC= 3200 MARKFLD= 30 /SAMPLE MARKER MARKLOC= 3600 MISC1FLD= 30 /MISC CRT MESSAGE MISC1LOC= 4000 KERMFLD= 30 /CLEAN UP KERMIT DEVICE /KERMLOC= / (IN MISC1) ENDRLFLD= 30 /RUNNING END OF ROLL SUMMARY ENDRLLOC= 4400 PREF3FLD= 30 /PRESET FIELD 3 PREF3LOC= 5200 CRTXFLD= 30 /CRT TEXT AREA CRTXTLOC= 5400
/ / / FIELD 4 / / RT01FLD= 40 /RT01 DATA TERMINAL HANDLER RT01LOC= 3200 CRTFLD= 40 /CRT DISPLAY AND MESSAGE TASK CRTLOC= 200 STUF1FLD= 40 /STUFF #1 PACKAGE STUF1LOC= 3600 MOPFLD= 40 /PROCESS MOP PUSHBUTTONS MOPLOC= 4200 USERFLD= 40 /USER COMMAND DECODE USERLOC= 4600 FRMFLD= 40 /TEXT FORMATTER FRMLOC= 5600 FRMNUL= "& /NULL CHARACTER DEFINE DIRTFLD= 40 /DIRECT SAMPLE TALLEY OUTPUT DIRTLOC= 7200 PRES4FLD= 40 /FIELD 4 PRESET TASK PRES4LOC= 7600 / / / FIELD 5 / / PRES5FLD= 50 /FIELD 5 PRESET TASK PRES5LOC= 1400 GATEWFLD= 50 /COMMUNICATE WITH SICK GATEWAY GATEWLOC= 1600
/ / / USER TASK G L O B A L C O M M O N DEFINITIONS / / FIELD 1 *50 CHOPSV, 0 /DETAILS OF CURRENT CHOP CTHOLD, 0 /COUNT/HOLD FLAG CTSAVE, 0 /COUNT/HOLD PRODUCT COUNT SAVER MANRJF, 0 /MANUAL REJECT REQUEST FLAG MANSMF, 0 /MANUAL SAMPLE REQUEST FLAG MCHECK, 0 /MACHINE CHECK FLAG MEMPTR, 0 /CURRENT DEFECT MEMORY POINTER PROCNT, 0 /PRODUCT TRAY SHEET COUNTER PROFLG, 0 /ACTIVE PRODUCT TRAY PUTUP1, -175 /THE CURRENT PUTUP. RAGEJC, 0 /REJECT A TRAY EJECT DELAY RBGEJC, 0 /REJECT B TRAY EJECT DELAY REJCNT, 0 /REJECT TRAY SHEET COUNTER SMGEJC, 0 /SAMPLE TRAY EJECT DELAY SMRLOC, 0 /SAMPLE MARKER LOCATION SMSTOP, 0 /STOP MACHINE FOR SAMPLE TRAY FLAG SMTLKD, 0 /SAMPLE TRAY UNLOCK DELAY SMTLKF, 0 /SAMPLE TRAY LOCK SPLFLG, 0 /SPLICE DETECTED MESSAGE SRODNF, 0 /STACKER RUN OUT COMPLETED FLAG SROFLG, 0 /STACKER RUNOUT FLAG STAKFG, 0 /STACKER MAINTENANCE TEST FLAG STAKWD, 0 /STACKER TRAY DESTINATION WORD. SWPPRO, 0 /SWAP PRODUCT TRAYS FLAG SWPREJ, 0 /SWAP REJECT TRAYS FLAG
/ FIELD 2 *50 CHOPFG, 0 /CHOP OCCURRED FLAG CRLMGF, 0 /CURL SAMPLE(S) MESSAGE FLAG CRTDEF, 0 /CRT DATA INCREMENT EVENT FLAG DWLINE, 0 /TALLEY LINE COUNTER EMFMGF, 0 /EMULSION MISS MESSAGE FLAG EORSFG, 0 /END OF ROLL SUMMARY FLAG MCKMGF, 0 /MACHINE CHECK MESSAGE FLAG MROLLF, 0 /MOVE NEXT ROLL HEADING FLAG MEORLN, -25 /- # OF SHEETS TO WAIT BEFORE STARTING / END OF ROLL SAMPLES MEORRJ, -17 /- # OF REJECTS AT START/END OF ROLL MEORSM, -2 /- # OF SAMPLES AT START/END OF ROLL MINRRJ, -4 /- # OF REJECTS AROUND INROLL SPLICE MINRSM, -2 /- # OF SAMPLES AROUND INROLL SPLICE NEWBOX, 0 /NEW BOX FLAG NPCODE, 0 /PUTUP CODE NSCODE, 0 /NEW SAMPLE CODE PATCON, 1 /# OF BOXES BETWEEN SAMPLES SPESAM, 0 /SPECIAL ("EXTRA") SAMPLING FLAG PTRCH3, 0 /CHANNEL 3 RELATIVE LOCATION (BUILD) SAMTYP, 0 /SAMPLE TYPE SAMNAD, 0 /ADDRESS OF THE SAMPLE NUMBER (LEFT BY / TALLEY FOR SMARKQ) SMGADR, 0 /ADDRESS OF CRT MESSAGE TEXT - SAYS WHY / THE MACHINE STOPPED (FROM INLOCK) SMTOUT, 0 /SAMPLE TRAY OUT WHEN NEEDED FOR A / SAMPLE SHEET (FOR TALLEY) STPMGF, 0 /MACHINE STOP MESSAGE FLAG / / / BINARY PRODUCT COUNTERS / / THIS ORDER IS IMPORTANT !! / / BINSAM, 0 /BINARY SAMPLE COUNTER 0 BINBOX, 1 /BINARY BOX COUNTER 0 BINSHT, 0 /BINARY SHEETS IN BOX COUNTER BINCHP, 0 /BINARY CHOP COUNTER 0 BINREJ, 0 /BINARY REJECT COUNTER 0 BINMTR, 0 /BINARY METER COUNTER 0 BINSHR, 0 /BINARY SHIFT ROLL BINSSM, 0 /BINARY SPLICE SAMPLE COUNTER 0
/ FIELD 3 *50 CHOPC, 5 /THE CURRENT CHOP LENGTH SLITC, 0 /THE CURRENT SLIT WIDTH NCHOPC, 0 /NEXT ROLL CHOP LENGTH CODE NEWRNF, 0 /NEW ROLL NUMBER ENTERED FLAG NSLITC, 0 /NEXT ROLL SLIT WIDTH INCRMC, 0 /INCREMENT FOR MACHINE CHECK INCRSR, 0 /INCREMENT FOR THE CRT SHIFT ROLL COUNTER INCRST, 0 /INCREMENT FOR THE CRT SHEETS COUNTER INCRTB, 0 /INCREMENT FOR THE CRT BOX COUNTER INCRTC, 0 /INCREMENT FOR THE CRT CHOP COUNTER INCRTM, 0 /INCREMENT FOR THE CRT METERS COUNTER INCRTR, 0 /INCREMENT FOR THE CRT REJECT COUNTER INCRTS, 0 /INCREMENT FOR THE CRT SAMPLE COUNTER INCRSS, 0 /INCREMENT SPLICE SAMPLE COUNTER CRLDSP, 0 /CURL SAMPLE MESSAGE DISPLAY MCKDSP, 0 /MACHINE CHECK MESSAGE DISPLAY PARBMG, 0 /PARTIAL BOX MESSAGE SHFTRL, 0 /NEW SHIFT FLAG FIELD 4 *50 CONBIN, CONBUF /BUFFER INPUT POINTER. CONBOT, CONBUF /BUFFER OUTPUT POINTER. CONNUM, 0 /BUFFER CHARACTER COUNTER. CONEVF, 0 /TASK LEVEL EVENT FLAG. CONACT, 0 /CONCRT DISPLAY ACTIVE FLAG. CONSTT, 0 /CONCRT STATE FLAG. *60 CONBUF, ZBLOCK 20 /CHARACTER RING BUFFER. FIELD 5 *50 GATWUP, 0 /SET TO SAY GATEWAY IS UP AND / TALKING TO US.
/ / / USER TASK COMMON EQUATES / / MOPNUM= 31 /NUMBER (OCTAL) OF CRT MESSAGES MEMTBL= 400 /MEMORY TABLE LOCATION / / / CRT MESSAGE TEXT PARAMETERS / / MOPM01= 1 /MAST IN TEST MODE MOPM02= 2 /RT01 INPUT DATA ERROR MOPM03= 3 /PRINTER PAPER LOW MOPM04= 4 /STACKER TRAY IS OUT MOPM05= 5 /EMULSION FAULT MOPM06= 6 /STACKER IS CLEAR MOPM07= 7 /CLEAR STACKER MOPM08= 10 /ENTER ROLL DATA MOPM09= 11 /SPEED LIMIT MOPM10= 12 /PRINTER FAILURE MOPM11= 13 /PARTIAL BOX MOPM12= 14 /EMPTY SAMPLE TRAY MOPM13= 15 /SAMPLE TRAY OUT MOPM14= 16 /SICK INSPECTION FAILURE MOPM15= 17 /MOTION PULSE MISSING MOPM16= 20 /CHOP PULSE MISSING MOPM17= 21 /EOR SUMMARY REQUESTED MOPM18= 22 /STACKER TEST COMPLETED MOPM19= 23 /NORMAL STOP MOPM20= 24 /EMERGENCY STOP MOPM21= 25 /EOR SPLICE IN INSPECTOR MOPM22= 26 /STACKER CLUTCH DISENGAGED MOPM23= 27 /STACKER CLUTCH ENGAGED MOPM24= 30 /GATEWAY COMMUNICATION FAILURE MOPM25= 31 /BUILD PRESET TABLE ERROR / / / INTERLOCK BIT PARAMETER DEFINITIONS / / MSTINL= 2000 /MAST MONITOR INTERLOCK TRYINL= 400 /TRAY OUT INTERLOCK JOGINL= 200 /JOG STOP INTERLOCK
/ / /%RX DR8-EA DIGITAL I/O REGISTER COMMANDS / / DBDI50= 6500 /DISABLE INTERRUPT ON INPUT DBEI50= 6501 /ENABLE INTERRUPT ON INPUT DBSK50= 6502 /SKIP ON INPUT FLAG DBCI50= 6503 /CLEAR SELECTED BITS IN THE INPUT REGISTER DBRI50= 6504 /CLEAR AC TRANSFER INPUT REGISTER TO THE AC DBCO50= 6505 /CLEAR SELECTED BITS IN THE OUTPUT REGISTER DBSO50= 6506 /SET SELECTED BITS IN THE OUTPUT REGISTER DBRO50= 6507 /JAM TRANSFER OUTPUT REGISTER TO THE AC DBDI51= 6510 DBEI51= 6511 DBSK51= 6512 DBCI51= 6513 DBRI51= 6514 DBCO51= 6515 DBSO51= 6516 DBRO51= 6517 DBDI52= 6520 DBEI52= 6521 DBSK52= 6522 DBCI52= 6523 DBRI52= 6524 DBCO52= 6525 DBSO52= 6526 DBRO52= 6527 DBDI54= 6540 DBEI54= 6541 DBSK54= 6542 DBCI54= 6543 DBRI54= 6544 DBCO54= 6545 DBSO54= 6546 DBRO54= 6547 DBDI55= 6550 DBEI55= 6551 DBSK55= 6552 DBCI55= 6553 DBRI55= 6554 DBCO55= 6555 DBSO55= 6556 DBRO55= 6557
/ DBDI56= 6560 DBEI56= 6561 DBSK56= 6562 DBCI56= 6563 DBRI56= 6564 DBCO56= 6565 DBSO56= 6566 DBRO56= 6567 NOPACK= 4000 /TEXT IS NOT PACKED IN 6-BIT NOCRLF= 2000 /OUTPUT SHOULD NOT BE FOLLOWED BY CR/LF IND= 1000 /OUTTXT PTS TO FIRST WORD OF TEXT NOLINE= 400 /INPUT IS IN CHARACTER MODE ASSGN= 200 /ASSIGNS DEVICE KL8ALINE=100 /USED TO SPECIFY A LINE OF A KL8A / SOME USEFUL EQUATES FOR STANDARD CLOCK MESSAGES: MARKTIME= 0 /POST EVENT FLAG AFTER SPECIFIED / INTERVAL SCHEDULE= 1000 /RUN TASK AFTER SPECIFIED INTERVAL TIMOUT= 2000 /DERAIL TASK AFTER SPECIFIED / INTERVAL PERIODICALLY= 2000 /USED AS MODIFIER TO 'SCHEDULE' /RE-QUEUES RUN REQUEST AFTER / SPECIFIED INTERVAL. /E.G. 'SCHEDULE FOO PERIODICALLY' CANCEL= 7000 /DELETE ALL REQUESTS FROM SPECIFIED / TASK FROM QUEUE / MORE USEFUL EQUIVALENCES: AC7777= CLL CLA CMA AC7776= CLL STA RAL AC7775= CLL STA RTL AC4000= CLA STL RAR AC2000= CLA STL RTR AC3777= CLL STA RAR AC5777= CLL STA RTR AC0002= CLA STL RTL AC0001= CLA CLL IAC CDI= CDF CIF CLB= CLL CLA IFNZRO PDP8E+PDP8A < ACL= 7701 CAM= 7621 >
/ MONITOR CALL VALUES: CAL= JMS 20 /CALL THE EXECUTIVE POSTDS= JMP I 24 /DISMISS AN INTERRUPT WAITM= JMS I 25 /WAIT FOR MULTIPLE EVENTS CALODT= JMS 33 /PUT THE TASK IN DEBUG WAIT AND /RUN THE ODT DEBUGGING TASK / NOTE: "**" MEANS CRITICAL VALUE MAY NOT BE / CHANGED WITHOUT MODIFYING SYSTEM CODE!! SEND= 0 /SEND MESSAGE RECEIV= 1 /RECEIVE MESSAGE WAITE= 2 /WAIT FOR EVENT FLAG RUN= 3 /CONTINUE TASK EXECUTION SUSPND= 4 /SUSPEND TASK EXECUTION POST= 5 /POST AN EVENT FLAG SKPINS= 6 /INSERT CODE INTO INTERRUPT SKIP CHAIN DERAIL= 7 /INITIATE END-ACTION BLKARG= 10 /BLOCK TASK FOR REASON SPECIFIED IN ARG SENDW= 11 /SEND MESSAGE AND WAIT UNBARG= 12 /UNBLOCK TASK FOR REASON SPECIFIED IN ARG RESCHD= 13 /FORCE A TASK RESCHEDULE NOW WAITX= 14 /WAIT FOR EXACTLY THIS EVENT FLAG DEBUG= 15 /DEBUGGER WAIT FREE= 4000 /**FREE PARTITION / TASK STATUS FLAGS: NONRWT= 4000 /**NONRESIDENT TASK WAIT EFWT= 2000 /EVENT FLAG WAIT RUNWT= 1000 /SCHEDULE WAIT SWPWT= 0400 /**SWAPPER WAIT EORMWT= 0200 /EVENT FLAG OR MESSAGE WAIT USERWT= 0100 /USER SPECIFIED WAIT ENABWT= 0040 /ENABLE WAIT MSGWT= 0020 /MESSAGE WAIT NETWT= 0010 /NETWORK WAIT (RESERVED FOR FUTURE USE) DEBWT= 0004 /DEBUG WAIT DNEWT= 0001 /**DOES NOT EXIST WAIT
/ SYSTEM LOCATIONS: MSGTBL= 1400-2 /TASK MESSAGE TABLE TSTABL= NTASKS+2^2+MSGTBL-4 /TASK STATE TABLE - HOLDS /TASK LINK,UM,DF,IF,PC,AC,MQ TFTABL= NTASKS+2^4+TSTABL-1 /TASK FLAGS TABLE - HOLDS /THE TASK STATUS FLAGS TSWFLG= 44 /TASK SW INHIBIT FLAG IN FIELD 0 TODL= 45 /LOW ORDER TIME OF DAY IN FIELD 0 TODH= 46 /HIGH ORDER TIME OF DAY IN FIELD 0 DATE= 47 /DATE IN OS8 FORMAT IN FIELD 0 YEAR= 50 /YEAR-1970 IN BINARY IN FIELD 0 COMMAND=51 /SWAPPER COMMAND BUFFER IN FIELD 0 / FLAGS USED TO CONNECT SYSTEM TASKS MCREF= 70 /MCR START EVENT FLAG IN FIELD 0 OS8HPR= 71 /TABLE OF DEVICES FOR IN FIELD 0 / OS/8 SUPPLIED BY RTS/8 ODTBKF= 72 /ODT BREAKPOINT FLAG IN FIELD 0 OWNTTY= 73 /CONSOLE OWNERSHIP FLAG IN FIELD 0 FIMQDY= 74 /CDF FOR MQ DISPLAY IN FIELD 0 IFDEF CUR <IFNZRO HGHFLD-CUR&4000 <CURBIG,_ERROR->> IFNZRO EAE <IFNZRO PDP8A <8AEAE,_ERROR->> IFNDEF INIWT <INIWT= 0> IFNDEF INIWT2 <INIWT2=0> IFNDEF INIWT3 <INIWT3=0> IFNDEF INIWT4 <INIWT4=0>
/ FIELD 0 /FOLLOWING MUST LOAD IN FIELD 0 !! XLIST 0 /FORCE LISTING ON /TASK TABLE SETUP - "TASK", "CUR", "INIWT", AND "START" / MUST BE DEFINED BY TASK. XLIST 1 /FORCE LISTING OFF IFDEF TASK < XLIST *TASK^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER IS INITIALLY CLEAR XLIST 1 IFZERO EAE < XLIST *TASK^4+TSTABL CUR%10+CUR /INITIAL FLAGS #1 START /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS /INITIAL MQ IS THE VERSION NUMBER XLIST > IFNZRO EAE < XLIST *TASK^5+TSTABL CUR%10+CUR /INITIAL FLAGS #1 START /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS /INITIAL MQ IS THE VERSION NUMBER 0 /INITIAL STEP COUNTER IS 0 XLIST > XLIST 0 *TASK+TFTABL INIWT /INITIAL BLOCKING BITS XLIST > / / TASK 2 / IFDEF TASK2 < XLIST *TASK2^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER IS INITIALLY CLEAR XLIST 1 IFZERO EAE < XLIST *TASK2^4+TSTABL CUR2%10+CUR2 /INITIAL FLAGS #2 START2 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS2 /INITIAL MQ IS THE VERSION NUMBER XLIST > IFNZRO EAE < XLIST *TASK2^5+TSTABL CUR2%10+CUR2 /INITIAL FLAGS #2 START2 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS2 /INITIAL MQ IS THE VERSION NUMBER 0 /INITIAL STEP COUNTER IS 0 XLIST > XLIST 0 *TASK2+TFTABL INIWT2 /INITIAL BLOCKING BITS XLIST > / / TASK 3 / IFDEF TASK3 < XLIST *TASK3^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER IS INITIALLY CLEAR XLIST 1 IFZERO EAE < XLIST *TASK3^4+TSTABL CUR3%10+CUR3 /INITIAL FLAGS #3 START3 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS3 /INITIAL MQ IS THE VERSION NUMBER XLIST > IFNZRO EAE < XLIST *TASK3^5+TSTABL CUR3%10+CUR3 /INITIAL FLAGS #3 START3 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS3 /INITIAL MQ IS THE VERSION NUMBER 0 /INITIAL STEP COUNTER IS 0 XLIST > XLIST 0 *TASK3+TFTABL INIWT3 /INITIAL BLOCKING BITS XLIST > / / TASK 4 / IFDEF TASK4 < XLIST *TASK4^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER IS INITIALLY CLEAR XLIST 1 IFZERO EAE < XLIST *TASK4^4+TSTABL CUR4%10+CUR4 /INITIAL FLAGS #4 START4 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS4 /INITIAL MQ IS THE VERSION NUMBER XLIST > IFNZRO EAE < XLIST *TASK4^5+TSTABL CUR4%10+CUR4 /INITIAL FLAGS #4 START4 /INITIAL STARTING ADDRESS 0 /INITIAL AC IS 0 VERS4 /INITIAL MQ IS THE VERSION NUMBER 0 /INITIAL STEP COUNTER IS 0 XLIST > XLIST 0 *TASK4+TFTABL INIWT4 /INITIAL BLOCKING BITS XLIST > XLIST 0 /TURN LISTING BACK ON FOR TASK CODE.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search