Fixed typos.

[retro-software/dec/tops10/v4.5.git] / src / common.mac

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