.IIF NDF S$$YDF , .NLIST .TITLE RSXMC .IDENT /M3.1/ ; ; COPYRIGHT (C) 1976, 1977 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; VERSION M3.1 ; V$$RSN=31 ;RSX-11M VERSION 3.1 A$$CPS=0 ;ACP SUPPORT M$$FCS=0 ;FCS/FILE SYSTEM SUPPORT F$$LVL=1 ;FILE STRUCTURE LEVEL SUPPORT C$$CKP=0 ;CHECKPOINTING SUPPORT D$$ISK=0 ;NONRESIDENT TASK SUPPORT D$$YNC=0 ;DYNAMIC CHECKPOINT ALLOCATION A$$CHK=0 ;ADDRESS CHECKING I$$RDN=0 ;I/O RUNDOWN M$$MGE=0 ;MEMORY MANAGEMENT D$$YNM=0 ;DYNAMIC MEMORY ALLOCATION SUPPORT A$$CPS=0 ;ACP SUPPORT A$$NSI=0 ;ANSI MAGTAPE SUPPORT A$$TRP=0 ;AST SUPPORT R$$SND=0 ;SEND/RECEIVE DIRECTIVES T$$KMG=0 ;TASK TERM./DEVICE NOT READY MESSAGES P$$RFL=0 ;POWERFAIL RECOVERY G$$TPP=0 ;GET PARTITION PARAMETERS DIRECTIVE G$$TSS=0 ;GET SENSE SWITCHES DIRECTIVE G$$TTK=0 ;GET TASK PARAMETERS DIRECTIVE R$$SND=0 ;RECEIVE/SEND DIRECTIVES A$$PRI=0 ;ALTER PRIORITY DIRECTIVE E$$XPR=0 ;EXTEND PARTITION (TASK) DIRECTIVE Q$$OPT=5. ;PRE-ALLOCATE I/O PACKETS N$$MOV=33. ;SIZE OF BLXIO 'MOV' TABLE I$$RAR=0 ;INSTALL, REQUEST, AND REMOVE ON EXIT L$$ASG=0 ;LOGICAL DEVICE ASSIGNMENT SUPPORT .IIF DF C$$CKP, T$$BUF=0 ;CHECKPOINT DURING TERMINAL INPUT T$$ACR=0 ;AUTOMATIC CR/LF T$$CCO=0 ;WRITE WITH CONTROL-O CANCELLATION T$$BTW=0 ;BREAKTHROUGH WRITE T$$CTR=0 ;CONTROL-R T$$LWC=0 ;SETTABLE CASE CONVERSION (LOWER CASE) T$$RNE=0 ;READ WITH NO ECHO T$$RPR=0 ;READ AFTER PROMPT T$$RUB=0 ;CRT RUBOUT T$$SYN=0 ;TERMINAL-HOST SYNCHRONIZATION T$$TRW=0 ;TRANSPARENT READ/WRITE T$$VBF=0 ;VARIABLE LENGTH INPUT BUFFERING C$$TTY=177564 ;STACK/REGISTER DUMP DEVICE CSR ADDRESS C$$RSH=177564 ;CRASH REPORTING C$$RSH=177564 ;CRASH REPORTING C$$CDA=5 ;CRASH DUMP ROUTINE C$$CSR=0 ;CRASH CSR ASSIGNED BY ADS C$$RUN=0 ;CRASH UNIT ASSIGNED BY ADS C$$ORE=1024. ;SIZE OF DYNAMIC STORAGE REGION S$$YSZ=124.*32. ;SIZE OF PHYS. MEMORY IN 32W BLOCKS H$$RTZ=60. ;LINE FREQUENCY K$$CSR=177546 ;LINE CLOCK CSR ADDRESS K$$CNT=177546 ;COUNT REGISTER ADDRESS K$$TPS=60. ;TICKS PER SECOND K$$LDC=1 ;LOAD COUNT VALUE K$$IEN=115 ;CLOCK INTERRUPT ENABLE (KW11-P AT LINE FREQ) P$$RTY=0 ;PARITY MEMORY C$$R11=1. ;CR11 CARD READERS C$$RTO=15. ;CR11 NOT READY MESSAGE INTERVAL R$$JPO=0 ;OFFSET RECOVERY SUPPORT R$$JP1=1. ;RJ/RWP04-05-06 DISK PACK CONTROLLERS R$$K11=1. ;RK11 CARTRIDGE DISK CONTROLLERS R$$6OF=0 ;RK06 OFFSET RECOVERY SUPPORT R$$611=1. ;RK611 DISK CARTRIDGE CONTROLLERS L$$P11=1. ;LP/LS/LV11/LA180 LINE PRINTERS L$$PTO=15. ;LP: NOT READY MESSAGE INTERVAL T$$J16=1. ;TM02/03 MAGTAPE CONTROLLERS $T$LOG=0 D$$L11=2. ;DL11 A/B/C/D LINE INTERFACES N$$LDV=1 ;NULL DEVICE S$$ECC=0 ;SHARED EXECUTIVE ECC CODE M$$OVR=0 ;OVERLAYED MCR M$$CRX=0 ;EXTERNAL MCR FUNCTIONS V$$CTR=1000 ;ADDRESS OF HIGHEST VECTOR PLUS 4 M$$CRB=84. ;MCR COMMAND BUFFER LENGTH R$$11M=0 ;RSX-11M SYSTEM V$$RSN=31 ;RSX-11M VERSION 3.1 ; ; EXEC MACROS ; ; ASSUME MACRO FOR CHECKING ADJACENCY AND OFFSET VALUE ASSUMPTIONS ; .MACRO ASSUME A,B=0 .IF NE A-B .ERROR ;EXPRESSION(S) NOT EQUAL .ENDC .ENDM ; ; CALL SUBROUTINE ; .MACRO CALL SUBR ARG .IF IDN <$INTSV>, JSR R5,$INTSV .IF DF L$$SI1 .WORD ARG .IFF .WORD ^C&PR7 .ENDC .IFF .IF IDN <$SAVNR>, JSR R5,$SAVNR .IFF .IF IDN <$SWSTK>, EMT 376 .WORD ARG .IFF JSR PC,SUBR .ENDC .ENDC .ENDC .ENDM ; ; CALL AND RETURN FROM SUBROUTINE ; .MACRO CALLR SUBR JMP SUBR .ENDM ; ; CRASH SYSTEM ; .MACRO CRASH IOT .ENDM ; ; DIRECTIVE REGISTER SAVE AND SET PRIORITY ; .MACRO DIRSV$ JSR R5,$DIRSV .ENDM ; ; SET DIRECTIVE STATUS ; .MACRO DRSTS VALUE TRAP VALUE .ENDM ; ; GENERATE INTERRUPT ROUTINE ENTRY POINT LABEL ; .IF DF E$$DVC .MACRO INTLB NUM,NAM $'NAM'NUM'T:: .ENDM .ENDC ; ; INTERRUPT SAVE GENERATION MACRO FOR ERROR LOGGING DEVICES ; .MACRO INTSE$ DEV,PRI,NCTRLR,PSWSV,UCBSV,?LAB .IF DF L$$DRV & LD$'DEV & M$$MGE $'DEV'INT:: .IF NDF E$$DVC .IF EQ NCTRLR-1 CLR R4 .ENDC .ENDC .IFF .IF NDF E$$DVC $'DEV'INT::INTSV$ DEV,PRI,NCTRLR,PSWSV,UCBSV .IF EQ NCTRLR-1 CLR R4 .ENDC .MEXIT .IFF $$$=0 .REPT NCTRLR INTLB \$$$,DEV JSR R5,$INTSE SCBLB \$$$,DEV .IF DF L$$SI1 .WORD PRI .IFF .WORD ^C&PR7 .ENDC .IF GT NCTRLR-$$$-1 BR LAB .ENDC $$$=$$$+1 .ENDR LAB: .ENDC .ENDC GTUCB$ UCBSV,NCTRLR .ENDM ; ; INTERRUPT SAVE GENERATION FOR NON-ERROR LOGGING DEVICES ; .MACRO INTSV$ DEV,PRI,NCTRLR,PSWSV,UCBSV .IF NDF L$$DRV ! M$$MGE ! LD$'DEV .IF GT NCTRLR-1 .IF B MFPS TEMP .IFF MFPS PSWSV .ENDC .IFTF JSR R5,$INTSV .IF DF L$$SI1 .WORD PRI .IFF .WORD ^C&PR7 .ENDC .IFT .IF B MOV TEMP,R4 .IFF MOV PSWSV,R4 .ENDC BIC #177760,R4 ASL R4 .ENDC .ENDC GTUCB$ UCBSV,NCTRLR .ENDM ; ; GENERATE CODE TO LOAD UCB ADDRESS INTO R5 -- CALLED ; ONLY BY INTSE$ AND INTSV$ ; .MACRO GTUCB$ UCBSV,NCTRLR .IF NB .IF GT NCTRLR-1 MOV UCBSV(R4),R5 .IFF MOV UCBSV,R5 .ENDC .IFF .IF GT NCTRLR-1 MOV CNTBL(R4),R5 .IFF MOV CNTBL,R5 .ENDC .ENDC .ENDM ; ; PROCESSOR STATUS READ/WRITE ; .IF NDF L$$SI1 .MACRO MFPS DST MOVB @#PS,DST .ENDM .MACRO MTPS SRC .IF IDN <#0>, CLRB @#PS .IFF MOVB SRC,@#PS .ENDC .ENDM .ENDC ; ; SAVE NONVOLATILE REGISTERS ; .MACRO SAVNR JSR R5,$SAVNR .ENDM ; ; GENERATE STATUS CONTROL BLOCK REFERENCE LABEL ; .IF DF E$$DVC .MACRO SCBLB NUM,NAM .WORD $'NAM'NUM .ENDM .ENDC ; ; RETURN FROM SUBROUTINE ; .MACRO RETURN RTS PC .ENDM ; ; SOB LOOP INSTRUCTION ; .IF NDF R$$EIS .MACRO SOB A,B DEC A BNE B .ENDM .ENDC ; ; STATE SWITCHING MACRO ; .MACRO SWSTK$ ARG CALL $SWSTK,ARG .ENDM .IF DF F$$LPP ; ; LOAD FLOATING DOUBLE ; .MACRO LDD A,B .NTYPE N,A .NTYPE M,B .WORD 172400++N .ENDM ; ; LOAD FLOATING POINT STATUS ; .MACRO LDFPS A .IF IDN ,<@H.FPSA(R2)> .WORD 170100+72 .WORD H.FPSA .IFF .NTYPE N,A .WORD 170100+N .ENDC .ENDM ; ; SET DOUBLE FLOATING MODE ; .MACRO SETD .WORD 170011 .ENDM ; ; STORE FLOATING DOUBLE ; .MACRO STD A,B .NTYPE N,A .NTYPE M,B .WORD 174000++M .ENDM ; ; STORE FLOATING POINT STATUS ; .MACRO STFPS A .NTYPE N,A .WORD 170200+N .ENDM ; ; STORE STATUS ; .MACRO STST A .WORD 170337 .WORD FLSTS .ENDM .ENDC .IIF NDF S$$YDF , .LIST