X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/bb920f47d2b4fd2ac0c46c72df890dfe6931e943..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/core1.mac

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