File PARAM.PA (PAL assembler source file)

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

/PARAMETERS FOR RTS-8 TASKS
	XLIST	0	/CHANGE 0 TO 1 TO PREVENT LISTING
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1974 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/

/RTS8 EXEC PARAMETERS - EDITED BY USER PDP8E= /1 IF PDP 8/E EAE= /1 IF SYSTEM SHOULD SAVE MQ PWRFAL= /1 IF POWER FAIL/RESTART ENABLED IN HARDWARE HGHFLD= /HIGHEST FIELD USED (EG 30 FOR A 16K MACHINE) NTASKS= /NUMBER OF TASKS IN SYSTEM /COMMON TASK NUMBERS - EDITED BY USER /IT IS ADVISABLE TO DEFINE ALL TASKS HERE. NAMES GIVEN BELOW /ARE USED BY SOME SYSTEM TASKS AND SHOULD BE DELETED FROM THIS /LIST IF THE CORRESPONDING TASK IS NOT INCLUDED IN THE SYSTEM CLOCK= /CLOCK HANDLER - SHOULD BE HIGH PRIORITY PWRF= /POWER FAIL HANDLING TASK TTY= /TELETYPE DRIVER TASK LPT= /LINE PRINTER DRIVER TASK MCR= /MONITOR CONSOLE ROUTINE DTA= /DECTAPE DRIVER TASK RK8= /RK8 OR RK8E DISK DRIVER TASK RF08= /RF08 DISK DRIVER TASK DF32= /DF32 DISK DRIVER TASK CSA= /CASSETTE DRIVER TASK CSAF= /CASSETTE FILE SUPPORT TASK UDC= /UNIVERSAL DIGITAL CONTROLLER TASK OS8= NTASKS /OS/8 SUPPORT - NORMALLY LOWEST PRIORITY OS8F= /OS/8 FILE SUPPORT /SOFTWARE PARAMETERS - EDITED BY USER IFDEF OS8 < OSFLDS= /NUMBER OF FIELDS TO ALLOCATE TO OS/8 (EG 2) OSKBDV= /OS/8 KEYBOARD DEVICE CODE (EG 03 = CONSOLE) OSTTDV= /OS/8 TELEPRINTER DEVICE CODE (EG 04) OSSYSD= /OS/8 SYSTEM DEVICE DRIVER TASK (E.G. RK8) OSFILL= /# FILLS NEEDED AFTER LINE FEED > /(EG 4 FOR 2400 BAUD VT05) IFDEF MCR < MCRSYS= /1 IF MCR SYSTAT FACILITY DESIRED > IFDEF CLOCK < CLKTYP= /0(DK8EA/DK8EC) OR 1(KW12) OR 2(VT8E) OR 3(DK8EP) CLKQLN= /MINIMUM NUMBER OF ENTRIES ON THE CLOCK QUEUE DECIMAL HERTZ= /NUMBER OF HARDWARE TICKS PER SECOND SHERTZ= /NUMBER OF SYSTEM TICKS PER SECOND OCTAL >
/EQUIVALENCES: AC7776= CLL STA RAL AC7775= CLL STA RTL AC4000= CLA STL RAR AC3777= CLL STA RAR AC2000= CLA STL RTR AC0002= CLA STL RTL /MONITOR CALL VALUES: CAL= JMS 20 /CALL THE EXECUTIVE POSTDS= JMP I 24 /DISMISS AN INTERRUPT WAITM= JMS I 25 /WAIT FOR MULTIPLE EVENTS 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 IFDEF UDC <AO=0;DO=1;DI=2;GC=3;EC=4;RC=5 DC=6;ECT=7;CS=10;DCT=11;AI=12> /TASK STATUS FLAGS: MSGWT= 4000 /MESSAGE 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 DNEWT= 0001 /DOES NOT EXIST WAIT /SYSTEM LOCATIONS: MSGTBL= 1200-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 /TASK STATUS FLAGS TSWFLG= 35 /TASK SW INHIBIT FLAG IN FIELD 0 TODL= 36 / LOW ORDER TIME OF DAY IN FIELD 0 TODH= 37 /HIGH ORDER TIME OF DAY IN FIELD 0 DATE= 40 /DATE IN OS8 FORMAT IN FIELD 0 MCREF= 41 /MCR START EVENT FLAG IN FIELD 0 XLIST 1 /FORCE LISTING OFF IFDEF TASK < XLIST
/TASK TABLE SETUP - "TASK", "CUR","INIWT", AND "START" /MUST BE DEFINED BY TASK: *TASK^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER INITIALLY CLEAR *TASK^4+TSTABL CUR%10+CUR /INITIAL FLAGS START 0 /INITIAL AC 0 *TASK+TFTABL INIWT XLIST > IFDEF TASK2 < XLIST *TASK2^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER INITIALLY CLEAR *TASK2^4+TSTABL CUR2%10+CUR2 /INITIAL FLAGS2 START2 0 /INITIAL AC 0 *TASK2+TFTABL INIWT2 XLIST > IFDEF TASK3 < XLIST *TASK3^2+MSGTBL ZBLOCK 2 /MESSAGE BUFFER INITIALLY CLEAR *TASK3^4+TSTABL CUR3%10+CUR3 /INITIAL FLAGS3 START3 0 /INITIAL AC 0 *TASK3+TFTABL INIWT3 XLIST > XLIST 0 /FORCE LISTING ON



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