X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..d693caac75dd25e668e43e85c29205bfc8dea06e:/src/common.mac diff --git a/src/common.mac b/src/common.mac index a458ba8..5f3ef5c 100644 --- a/src/common.mac +++ b/src/common.mac @@ -1,4 +1,3 @@ - TITLE COMMON - MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION - V437 SUBTTL PART 3 COMMON.MAC - T. HASTINGS/RCC TS 03 JUN 69 XP VCOMMN,437 @@ -382,6 +381,7 @@ JBTADR: BLOCK JOBN+SEGN ;JOB AND HIGH SEG CORE ASSIGNMENT JBTAD1==JBTADR+1 ;ADDRESS OF JOB 1 (USED BY SYSMAK) JBTDAT==JBTADR ;RH==ADDRESS OF JOB DATA AREA ;SAME AS JBTADR (JDAT==PROG) + INTERN JBTSGN JBTSGN: IFG SEGN, < BLOCK JOBN ;RH=SEGMENT NUMBER OF HIGH SEGMENT THIS JOB ; IS USING IN CORE OR ON DISK @@ -920,7 +920,7 @@ K4SWAP: 0 ;(1)K OF DISK WORDS SET ASIDE FOR SWAPPING ; ASSIGNED AT ONCE ONLY REFRESH TIME PROT: EXP ICPROT ;(2) IN-CORE PROTECT TIME PARAMETER TO BE - ; MULTIPLIED BY OF CORE IN JOB. + ; MULTIPLIED BY (K-1) OF CORE IN JOB. PROT0: EXP ICPRT1 ;(3) IN-CORE PROTECT TIME PARAMETER TO ; BE ADDED TO ABOVE RESULT. @@ -1198,7 +1198,7 @@ IFE PDP10N, < ;FOR PDP-6 OPCODES 1-37 JRST UUOSYS ;YES MOVEM TAC,40(17) ;STORE UUO IN USER'S 40 HRRZ TAC,41(17) ;PICK UP ADR OF USER'S JSR - JUMPE TAC,UUOSY2 ;IF ADDRESS=0,ILLEGAL USER UUO****UWA PATCH + JUMPE TAC,UUOSYS ;IF ADDRESS=0,ILLEGAL USER UUO****UWA PATCH HLL TAC,UUO0 ;USER PD FLAGS (RESTORED ON RETURN) MOVEI 17,(TAC) ;17 NOW HAS REL.ADR+1 OF USER JSR CAML 17,USRREL ;IS EFFECTIVE ADDRESS IN BOUNDS ? @@ -1213,7 +1213,7 @@ IFE PDP10N, < ;FOR PDP-6 OPCODES 1-37 JRST 2,@UUO0 ;RETURN TO USER (RESTORING FLAGS) UUOSY0: MOVE 17,JOBADR ;SETUP 17 FOR LOW SEGMENT RELOCATION -UUOSY2: EXCH TAC,FORTY ;RESTORE USERS AC(TAC) AND USER'S UUO (FORTY) +UUOSYS: EXCH TAC,FORTY ;RESTORE USERS AC(TAC) AND USER'S UUO (FORTY) > JRST UUOUSR ;GO SAVE USER'S ACS IN REL. LOCATION 0-17 ; AND DISPATCH ON UUO