X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/d693caac75dd25e668e43e85c29205bfc8dea06e..571bd6213fa4aed12085cb3172d1615ce0209b98:/src/s.mac

diff --git a/src/s.mac b/src/s.mac
index 022d733..54c6868 100644
--- a/src/s.mac
+++ b/src/s.mac
@@ -131,7 +131,6 @@ INTERNAL A
 				; C(RH)=REL. ADR. OF 3 WORD INPUT BUFFER HEADER
 	XP DEVIAD,7		;C(LH)=PROG IN INDEX FIELD
 				;BITS 1 AND 2 USED TO KEEP COUNT OF NO. OF USER CHANNELS
-				
 				; INITED ON THIS DEVICE(DECTAPE ONLY)
 				; IADPTR-COMMON BYTE POINTER TO 2 BIT COUNT
 	XP DEVADR,DEVIAD
@@ -185,6 +184,7 @@ INTERNAL A
 ;REST OF BITS IN LH ARE DEVICE DEPENDENT EXCEPT BIT 14(XP 10) WHICK IS KEPT AS A SPARE
 
 
+
 ;COMMAND DECODER USE OF AC IOS:
 
 ;RH=DISPATCH ADDRESS - SAVJOB,GETJOB,RUNJOB
@@ -257,8 +257,6 @@ INTERNAL A
 				; BITS 1-17=BUFFER SIZE
 				; BITS 18-35=NEXT BUFFER ADDRESS
 ;JOB STATUS WORD(JBTSTS TABLE), ONE WORD FOR EACH JOB(SOME BITS ALSO APPEAR IN HIGH SEG STATUS WORD)
-
-
 	XP RUN,400000		;USER WANTS JOB TO RUN(MUST BE SIGN BIT)
 	XP SNA,400000		;HIGH SEG NUMBER ASSIGNED (ANALOGOUS TO JNA EXCEPT
 				; MUST BE SIGN BIT)
@@ -287,7 +285,6 @@ INTERNAL A
 				; IF JOB ONLY HAS LOW SEG
 	XP SWP,2000		;0 IF JOB IN CORE, 1 IF SWAPPED OUT OR ON WAY
 				; IN OR OUT
-
 				; SAME FOR LOW AND HIGH SEGMENTS
 	XP NSHF,1000		;JOB IS NOT SHUFFLABLE
 				; OR HIGH SEGMENT HAS ACTIVE SAVE IO
@@ -379,12 +376,10 @@ DEFINE SCHEDULE
 ;A ROUTINE SETS UP AN ABSOLUTE USER ADDRESS IN AN AC
 ;OTHER THAN PDP,PROG, OR JDAT. THE MAIN EXAMPLE IS A BLT
 ;FROM EXEC TO USER OR USER TO EXEC.
-
 DEFINE NOSHUFF
 <>
 
 ;MACRO TO ALLOW SHUFFLING ONCE MORE
-
 DEFINE SHUFFLE
 <>
 
@@ -405,7 +400,6 @@ DEFINE ENABLE(A)
 >
 
 
-
 ;MACRO TO START A DEVICE FROM UUO LEVEL
 ;TAC:=XWD DEVINT FLAGS,CONO ARGUMENTS
 
@@ -416,7 +410,8 @@ DEFINE STARTDV(A)
 	HLRM TAC,A'CON
 	CONO PI,PION
 >
-;LIST OF INDEPENDENT MONITOR COMMAND FEATURES
+
+;LIST OF INDEPENDENT MONITOR COMMAND FEATURES
 ;THESE FEATURES CAN BE ELIMINATED FROM A SYSTEM BY
 ;SETTING THE APPROPRIATE FTXXXX SYMBOL BELOW TO 0
 ;AND REASSEMBLING THOSE ROUTINES IN WHICH CODE FOR THE
@@ -487,12 +482,15 @@ FT2REL=-1	;SUBROUTINE CALLS TO SEGCON FOR TWO RELOCATION REGISTER CAPABILITY
 
 		; APPEARS IN FIRST,ONCE,APRSR,SCHED
 
+
 FTKCT=-1	;ACCUMULATE CORE*RUNNING TIME FOR CHARGING FOR EACH USER
 
 FTPRV=-1	;PRIVILEGE BITS FOR EACH USER
 
 FTGETTABL=-1	;GETTAB UUO - RETURN CONTENTS OF MONITOR  JOBTABLES
 
+
+
 FTRA10=0	;NO RA-10 DISK CONTROLLER (BRYANT DISK)
 		;TEMPORARILY USED IN DSKSER
 ;DEFINE THE QUEUES, QUANTUM RUNNING TIME IN JIFFIES, AND PRIORITY
@@ -514,6 +512,7 @@ DEFINE QUEUES
 >
 
 
+
 ;JOB STATUS CODES WHICH HAVE NO CORRESPONDING QUEUES
 ;JOBS ARE UNRUNABLE WHEN IN THESE STATES
 
@@ -526,7 +525,6 @@ DEFINE CODES
 >
 	XP STTYBF,20	;SIZE OF TTY BUFFER
 	XP STTYB1,STTYBF+1	;LENGTH+1
-
 	ASUPPRESS	;ELIMINATE ALL SYMBOLS NOT REFERENCED LATER
 			; FROM THE SYMBOL TABLE LISTING
 	LIST