Cleaned up more typos and fixed paging issues.

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

diff --git a/src/core1.mac b/src/core1.mac
index c369d22..5e81986 100644 (file)
--- a/src/core1.mac
+++ b/src/core1.mac
@@ -5,8 +5,8 @@ XP VCORE1,414
 \r
        ENTRY CORE1     ;ALWAYS LOAD CORE1(FOR LIB SEARCH)\r
 \r
-;CORE ALLOCATION IS DONE ON A 1K BLOCK BASIS\r
 \r
+;CORE ALLOCATION IS DONE ON A 1K BLOCK BASIS\r
 ;USING A USE BIT TABLE(CORTAB) WHICH HAS A 1\r
 ;FOR EVERY BLOCK WHICH IS NOT AVAILABLE BECAUSE:\r
 ; 1.IN USE BY MONITOR\r
@@ -185,6 +185,7 @@ IFN FTSWAP,<
 \r
        INTERN ANYACT,ANYDEV\r
        EXTERN JOBMAX\r
+\r
 ANYACT:\r
 IFN FTSWAP,<\r
        INTERN ANYDEV\r
@@ -224,7 +225,8 @@ ANY2:       SOJGE T1,ANY            ;NO, KEEP LOOKING
 ; UNTIL A MORE FAVORABLE ITME\r
 ;CALL: MOVE ITEM,HIGH RO LOW SEG NUMBER\r
 ;      PUSHJ PDP,TRYSWP\r
-;      RETURN1 - JOB MUST REMAIN RUNABLE(NSHF,NSWP SET OR SAVE,GET IN PROGRESS);       RETURN2  - OK TO SWAP HIGH OR LOW SEG\r
+;      RETURN1 - JOB MUST REMAIN RUNABLE(NSHF,NSWP SET OR SAVE,GET IN PROGRESS)\r
+;      RETURN2  - OK TO SWAP HIGH OR LOW SEG\r
 \r
 IFN FTSWAP,<\r
        INTERN TRYSWP\r
@@ -261,7 +263,6 @@ SCORE1:     SOS(PDP)                ;CORE1 WILL ALWAYS SKIP RETURN
 \r
 \r
 ;CORE0 IS CALLED BY THE CORE MONITOR COMMAND AND THE CORE SHUFFLER\r
-\r
 ;AND RUN COMMAND\r
 ;BOTH LOGICAL AND PHYSICAL CORE ASSIGNMENT ARE AFFECTED\r
 \r
@@ -523,6 +524,7 @@ IFN FT2REL,<
        PUSHJ PDP,CURHGH        ;CHECK TO SEE IF THIS CORE ASSIGNMENT IS FOR\r
                                ; HIGH SEG WHICH CURRENT USER MAY ALSO BE USING\r
                                ; IF YES, RESET HARDWARE AND SOFTWARE RELOC INFO.\r
+                               ; RETURN WITH ITEM PRESERVED,PROG SET TO RELOC\r
                                ; OF SEG WHICH HAS JUST HAD CORE REASSIGNED\r
 \r
 >\r
@@ -576,7 +578,7 @@ IFN FTSWAP,<
                                ; AND RETURN\r
 \f;ROUTINE TO SET AND CLEAR CORE USE TABLE\r
 ;CALL: MOVEI T,1       ;TO SET TABLE\r
-       MOVEI T,0       ;TO CLEAR TABLE\r
+;      MOVEI T,0       ;TO CLEAR TABLE\r
 ;      MOVE BLK,HIGHEST REL. LOC. IN USER AREA\r
 ;      MOVE LOC,ADDRESS OF FIRST BLOCK TO SET CLEAR\r
 \r
@@ -593,7 +595,6 @@ CORSTG:     PUSH PDP,TAC            ;SAVE HIGHEST LOC. BEING REQUESTED
        ASH TAC,-12             ;FORM BYTE POINTER TO BIT-1\r
        IDIVI TAC,^D36          ;TAC=WORD,TAC1=BIT\r
        ADD TAC,CORE2P          ;FORM BYTE POINTER\r
-\r
        MOVNS TAC1\r
        ADDI TAC1,^D36\r
        DPB TAC1,[POINT 6,TAC,5]\r