; SLP @[12,41]MC2MCRMOD.SLP ; MC2 Support & MCR Error message mods. ;============================================================================= OU:[12,11]MCRDIS.MAC;2/AU/-BF=IN:[12,10]MCRDIS.MAC;1 \ -2,2 .IDENT /03.23E/ -10,10 ; VERSION: 03.23E -79 ; SNLL 14-JUL-82 ; SNLL05 -- Add MC2 support to RSX11M V4.0 ; ; These modifications were originated for RSX11M V3.2 ; by Joe Sventek, LBNL, 2-Sep-80. ; ; The mods generated by this correction file fix the following ; MCR features: ; ; a.) One and two character names typed to MCR, as well as names ; with embedded periods and semicolons are not flagged as ; syntax errors, with the result that the catch-all task will ; receive command lines of this type. ; ; b.) Multiple copies of a task can be active at a single terminal, ; and the restriction of ...xxx and xxxtnn has been removed. ; The code currently generates an error when more than eight ; copies of a given task are active. i.e. ...xxx, xxxtnn, xxxunn, ; xxxvnn, xxxwnn, xxxxnn, xxxynn, and xxxznn. ; This could be easily changed in the code, if more are desired. ; ; SNLL 21-JUL-82 ; SNLL08 -- Provide more info for some Error Msg's ; ; 2.2.1.2.M Sep-82 ; JG0014 -- PREVENT SYSTEM CRASH WHEN USING THE DCL ; CATCHALL FACILITY AND HITTING PF KEYS ; ; 2.2.1.6 M Nov-82 ; JG0020 -- TREAT A DOUBLE QUOTE FOLLOWING A ! AS A COMMENT ; % -511,511,/;JG0020/ BEQ 67$ ; No TSTB COMFLG ; Comment in progress? BNE 6$ ; Yes - Skip this character BR 17$ ; No - Copy everything 67$: ; Ref. label -589,589,/;SNLL05/ 44$: CMPB R2,#'. ; SEE IF PERIOD IN TASK NAME BEQ 40$ ; IF EQ, YES - CONTINUE CMPB R2,#'; ; SEE IF SEMIICOLON IN TASK NAME BEQ 40$ ; IF EQ, YES - CONTINUE JMP DISE10 ; SYNTAX ERROR -718,,/;SNLL08/ MOV (R3),$MTSK ; Save Task Name MOV 2(R3),$MTSK+2 -737,738,/;SNLL05/ ; CMP $MUCB,T.UCB(R0) ; YES, IS IT ACTIVE FOR THIS TERMINAL? ; BEQ 14$ ; YES, CAN'T SPAWN ANOTHER TASK -751,752,/;SNLL05/ -754,,/;SNLL05/ 175$: MOV #UNIT,R0 ; POINT TO ASCII TERMINAL NUMBER CALL $CAT5 ; CONVERT TO RAD50 MOV #$MPARS,R3 ; POINT TO TASK NAME -755,,/;SNLL08/ MOV (R3),$MTSK ; Save Task Name MOV 2(R3),$MTSK+2 -767,767,/;SNLL05/ -771,771,/;SNLL05/ BEQ 195$ ; YES, Error CLR R5 ; Assume no parent -773,773,/;SNLL05/ 18$: CLR R5 ; Assume no parent -,,/; MF205/ CMP #$MLINE,$MBUF ; IS COMMAND GOINT TO ALTERNATE CLI -779,,/;SNLL05/ 195$: INCB UNIT ; BUMP CHARACTER BY ONE CMPB UNIT,#'Z ; SEE IF STILL VALID BLE 175$ ; YES, GO TRY AGAIN BR 14$ ; ERROR - CANNOT SPIN OFF ANY MORE COPIES -1166,,/;JG0014/ MOV #$MLINE,$MBUF ; Have $MBUF point to internal MCR buffer ; for error handling. / ;============================================================================= OU:[12,11]FIXOV.MAC;2/AU/-BF=IN:[12,10]FIXOV.MAC;1 \ -2,2 .IDENT /4.4E/ -10,10 ; VERSION: 4.4E -36 ; SNLL 29-JUN-82 ; SNLL05 -- Add MC2 support ; % -197,197,/;SNLL05/ BIT #T3.REM!2,T.ST3(R1) ; RUN and REMOVE? / ;============================================================================= OU:[12,10]SPSOV.MAC;2/AU/-BF=IN:[12,10]SPSOV.MAC;1 \ -4,4 .IDENT /1.07HE/ -6,6 .IDENT /1.07FE/ -59 ; SNLL 14-JUL-82 ; SNLL07 -- Change syntax on SET command to 'SET [/]KEYWORD' ; ; This modification originated with Greg Thompson, ; (DEC SWS) NASA/Ames for RSX11M V3.2 12/30/79 ; and was included in NASA/Ames BAYLUG DECUS tape. ; % -866,,/;SNLL007/ DEC R0 ; No, It is part of Keyword. BR 40$ ; Go process Keyword / ;=========================================================================== OU:[12,11]ST1OV.MAC;2/AU/-BF=IN:[12,10]ST1OV.MAC;1 \ -2,2 .IDENT /1.04E2/ -43 ; SNLL 14-JUL-82 ; SNLL06 -- Don't change U.LUIC on SET /UIC so 'WHO' will always ; indicate the correct User-ID ; SNLL07 -- Change syntax on SET command to 'SET [/]KEYWORD' ; ; These modifications originated with Greg Thompson, ; (DEC SWS) NASA/Ames for RSX11M V3.2 12/30/79 ; and were included in NASA/Ames BAYLUG DECUS tape. ; ; SNLL 21-JUL-82 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -193,197,/;SNLL006/ 36$: ; Ref label -269,269,/;SNLL008/ BNE 2$ .IFTF ;JRK238 JMP SETE62 ; Feature not supported .IFT 2$: ; Ref label -355,,/;SNLL008/ MOV CLINAM,$MTSK ; Setup TASK name for error msg MOV CLINAM+2,$MTSK+2 -363,365,/;SNLL008/ -531,,/;SNLL007/ CMPB -1(R0),#40 ; Space may also delimit Keyword BEQ 7$ ; If EQ, Yes -567,567,/;SNLL008/ 206$: MOV #^RCOT,$MTSK ; Setup TASK name for error msg MOV #^R...,$MTSK+2 JMP SETER6 ; COT... not Installed / ;=========================================================================== ; MCR Error message mods. ;============================================================================= OU:[12,11]MCROOT.MAC;2/AU/-BF=IN:[12,10]MCROOT.MAC;1 \ -2,2 .IDENT /2.02E/ -37 ; SNLL 21-JUL-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -93,,/;SNLL08/ $MTSK:: .RAD50 %......% ; Save Task Name / ;============================================================================= OU:[12,11]SYSROT.MAC;2/AU/-BF=IN:[12,10]SYSROT.MAC;1 \ -2,2 .IDENT /1.1E/ -39 ; SNLL 21-JUL-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -94,,/;SNLL08/ $MTSK:: .RAD50 %......% ; Save Task Name / ;============================================================================= OU:[12,11]ERROV.MAC;2/AU/-BF=IN:[12,10]ERROV.MAC;1 \ -2,2 .IDENT /4.1E/ -24 ; SNLL 21-JUL-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -74,,/;SNLL08/ .ENABL LC TSKXXX: .ASCIZ /xxxxxx/ .BYTE 0 .DSABL LC -117,118,/;SNLL08/ MOV (SP),R1 ; Restore start of conversion text CALL LWCNV ; Convert ASCII text to lower case MOV (SP)+,R1 ; Restore start of conversion text CALL TKINS ; Insert Task name -163,,/;SNLL08/ ;+ ; TKINS - Insert Task Name where appropriate (wherever XXXXXX was) ;- TKINS: MOV R0,-(SP) ; Save R0 10$: MOV R1,-(SP) ; Save the place to put the name MOV #TSKXXX,R2 ; Check for "xxxxxx" CALL CHKWD2 ; Does it match? BCC 40$ ; YES; Go process it. 30$: CMPB #SPA,(R1) ; NO; Skip the word. BEQ 50$ TSTB (R1) ; EOL? BEQ 50$ ; YES; Leave. INC R1 ; Point to next character BR 30$ ; and continue 40$: MOV (SP),R0 ; Get the spot for the name MOV R1,-(SP) ; Save the current position MOV $MTSK,R1 ; Insert the task name. CALL $C5TA MOV $MTSK+2,R1 ; Now the second half. CALL $C5TA MOV (SP)+,R1 ; Restore the current position 50$: TST (SP)+ ; POP the old address from the stack. CALL GNXBLK ; Skip the blanks. BCC 10$ ; Process the next word if one exists, 60$: MOV (SP)+,R0 ; else restore R0 RETURN ; and leave. -194,194,/;SNLL08/ CHKWD2: MOV R1,-(SP) ; Save beginning of word / ;============================================================================= OU:[12,11]ERRMSG.MAC;2/AU/-BF=IN:[12,10]ERRMSG.MAC;1 \ -2,2 .IDENT /3.13E2/ -47 ; SNLL 21-JUL-82 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -84,84,/;SNLL08/ .ERR 6, -88,95,/;SNLL08/ .ERR 10, .ERR 11, .ERR 12, .ERR 13, .ERR 14, .ERR 15, .ERR 16, .ERR 17, -97,97,/;SNLL08/ .ERR 19, -139,139,/;SNLL08/ .ERR 60, -149,149,/;SNLL08/ .ERR 70, -154,158,/;SNLL08/ .ERR 75, .ERR 76, .ERR 77, .ERR 78, .ERR 79, -160,160,/;SNLL08/ .ERR 81, / ;=========================================================================== OU:[12,11]PR1OV.MAC;2/AU/-BF=IN:[12,10]PR1OV.MAC;1 \ -2,2 .IDENT /2.3E/ -31 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -114,,/;SNLL008/ CLR $MTSK ; Clear TASK name for error msg CLR $MTSK+2 -119,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -123,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]ALTOV.MAC;2/AU/-BF=IN:[12,10]ALTOV.MAC;1 \ -2,2 .IDENT /4.2E/ -25 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -106,,/;SNLL008/ CLR $MTSK+2 ; Clear last half of saved TASK name -108,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -114,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]ATLOV.MAC;2/AU/-BF=IN:[12,10]ATLOV.MAC;1 \ -2,2 .IDENT /04.03E/ -44 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -240,,/;SNLL008/ CLR $MTSK+2 ; Clear last half of error msg TASK name -243,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -247,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]CLIOV.MAC;2/AU/-BF=IN:[12,10]CLIOV.MAC;1 \ -2,2 .IDENT /1.04E/ -38 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -221,,/;SNLL008/ MOV $MPARS,$MTSK ; Save TASK name for error msg MOV $MPARS+2,$MTSK+2 / ;============================================================================= OU:[12,11]LUNOV.MAC;2/AU/-BF=IN:[12,10]LUNOV.MAC;1 \ -2,2 .IDENT /3.1E/ -22 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -205,,/;SNLL008/ MOV $MPARS,$MTSK ; Save TASK name for error msg MOV $MPARS+2,$MTSK+2 / ;============================================================================= OU:[12,11]OPEOV.MAC;2/AU/-BF=IN:[12,10]OPEOV.MAC;1 \ -2,2 .IDENT /4.3E/ -21 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -1027,,/;SNLL008/ CLR $MTSK+2 ; Clear last half of error msg TASK name -1029,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -1032,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]RAPOV.MAC;2/AU/-BF=IN:[12,10]RAPOV.MAC;1 \ -2,2 .IDENT /03.2E/ -36 ; SNLL 21-JUL-82 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -122,,/;SNLL008/ CLR $MTSK+2 ; Clear last half of error msg TASK name -126,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -130,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]RPSOV.MAC;2/AU/-BF=IN:[12,10]RPSOV.MAC;1 \ -2,2 .IDENT /4.5E/ -36 ; SNLL 21-JUL-82 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -167,,/;SNLL008/ CLR $MTSK+2 ; Clear last half of error msg TASK name -169,,/;SNLL008/ MOV R1,$MTSK ; Save TASK name for error msg -172,,/;SNLL008/ MOV R1,$MTSK+2 ; Save TASK name for error msg / ;============================================================================= OU:[12,11]RUNOV.MAC;2/AU/-BF=IN:[12,10]RUNOV.MAC;1 \ -2,2 .IDENT /03.3E/ -38 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -261,,/;SNLL008/ MOV $MPARS,$MTSK ; Save TASK name for error msg MOV $MPARS+2,$MTSK+2 / ;============================================================================= OU:[12,11]TASOV.MAC;2/AU/-BF=IN:[12,10]TASOV.MAC;1 \ -2,2 .IDENT /03.8E/ -29 ; SNLL 18-NOV-82 ; SNLL08 -- Provide more info for some Error Msg's ; % -178,,/;SNLL008/ MOV TSKNAM,$MTSK ; Save TASK name for error msg MOV TSKNAM+2,$MTSK+2 / ;=============================================================================