Cleaned up more typos and fixed paging issues.

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

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