Cleaned up more typos and fixed paging issues.

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

diff --git a/src/clock1.mac b/src/clock1.mac
index 997a4a6..d337313 100644 (file)
--- a/src/clock1.mac
+++ b/src/clock1.mac
@@ -35,7 +35,6 @@ APRCON: 231000                ;MONITOR ENABLED CPU FLAGS
 APRIN1: 0              ;USER ENABLED CPU FLAGS\r
 CLKS17: 0              ;PLACE TO SAVE AC17 ON CLOCK INTERRUPT\r
 DAMESS: ASCIZ /-JAN-/\r
-\r
 CLOCK: POINT 36,CIPWTM,35      ;BYTE POINTER TO CLOCK REQ QUEUE\r
 >\r
 \f      INTERN APRINT\r
@@ -184,8 +183,10 @@ WSCHED:    POP PDP,USRPC           ;SAVE PC IN PROTECTED PART OF SYSTEM DATA
        MOVEI PDP,NULPDL        ;NULL JOB PD LIST\r
        HRLI PDP,MJOBP1         ;USED TO CALL SCHEDULER AND COMMAND DECODE\r
                                ; OTHERWISE GET PD OUF\r
+\r
        JRST RSCHED             ;GO RESCHEDULE\r
 \r
+\r
 ;HERE AT UUO LEVEL WHEN CURRENT JOB RETURNS TO USER MODE\r
 ;FROM A UUO CALL AND EITHER:\r
 ;      1. CURRENT JOB TYPED CONTROL C WHILE IN EXEC MODE\r
@@ -262,7 +263,6 @@ IFN FTKCT,<
        ADDI TAC,1                      ;MAKE IT NO. OF 1K BLOCKS\r
        ADDM TAC,JBTKCT(ITEM)           ;ADD IN ACCUMULATED CORE RUNNING TIME PRODUCT\r
                                ; (KILO-CORE TICKS)\r
-\r
 IFN FT2REL,<\r
        EXTERN CHGHGH\r
        PUSHJ PDP,CHGHGH        ;CHARGE USER FOR HIGH SEGMENT IF HE HAS ONE\r
@@ -292,7 +292,7 @@ CIP4:       CAIN STOR,CIPWTM1       ;END YET?
        MOVE TAC, @CLOCK\r
        SOS CLOCK\r
        MOVEM TAC, (STOR)\r
-       CONI PI,PION\r
+       CONO PI,PION\r
        LDB TAC, [POINT 6, TAC1, 23]    ;GET 6 BIT DATA ITEM\r
        MOVSS TAC1              ;SETUP DISPATCH ADDRESS\r
        PUSH PDP, STOR          ;SAVE ONLY VALUABLE AC\r
@@ -411,7 +411,6 @@ IFN FTCHECK,<EXTERNAL MONPRTR,MONSUM,CHECK
        EXTERN JOB,JBTADR,JOBADR,USRREL,JBTDAT,JOBDAT,JOBREL,KT10A\r
 \r
 SETREL:        MOVE ITEM,JOB           ;CURRENT JOB NUMBER\r
-\r
 SETRL1:        MOVE PROG,JBTADR(ITEM)  ;XWD PROTECTION,RELOCATION FOR LOW SEG\r
        MOVEM PROG,JOBADR       ;SAVE TO MAKE UUO HANDLER FASTER\r
        HLRZM PROG,USRREL       ;SAVE PROTECTION FOR ADDRESS CHECKING\r
@@ -451,6 +450,7 @@ IFE FT2REL,<
        MOVE TAC,JOBENB(JA)     ;USER APR CONSO FLAGS (THE ONES HE WANTS TO HANDLE\r
                                ; FALL INTO SETAPR ROUTINE\r
 \r
+\r
 ;ROUTINE TO ENABLE/DISABLE APR FOR TRAPPING TO USER AND EXEC\r
 ;CALL: MOVE TAC, APR, CONSO FLAGS FOR USER TRAPPING\r
 ;      PUSHJ PDP,SETAPR\r
@@ -546,6 +546,7 @@ HOLD1:      PUSHJ PDP,TTYSTC        ;MAKE SURE TTY STAYS IN MONITOR MODE
 \f\r
 ;ROUTINE TO STOP USER AND FLAG AS ERROR STOP\r
 \r
+\r
 INTERNAL ESTOP,ESTOP1\r
 EXTERNAL JBTSTS,STUSER,STREQ,STAVAL\r
 EXTERNAL SCHEDF,JOB,CPOPJ\r
@@ -626,7 +627,8 @@ IFN FTSWAP,<
 >\r
                POPJ PDP,\r
 \r
-;ROUTINE TO PUT JONB IN NO CORE QUEUE\r
+;ROUTINE TO PUT JOB IN NO CORE QUEUE\r
+\r
 \r
 INTERNAL FTSWAP\r
 IFN FTSWAP,<INTERNAL NOCORQ\r
@@ -652,6 +654,7 @@ MONJOB:     PUSHJ PDP,MSTART        ;START WITH PC IN MONITOR
        JRST SETRUN             ;SET TTY TO START JOB WHEN COMMAND RESPONSE\r
                                ; IS FINISHED AND KEEP TTY IN MONITOR MODE\r
 \r
+\r
 ;ROUTINE TO SETUP ACS FOR MONITOR JOB STARTING AT UUO LEVEL\r
 ;SETS UP ITEM, WITH JOB NO.; PROG WITH RELOCATION, AND PDP\r
 ;WITH PUSH DOWN LIST ADR. IN JOB DATA AREA\r
@@ -775,7 +778,6 @@ SETSLP:     MOVSI TAC,CLKR          ;FLAG THAT A CLOCK REQUEST HAS BEEN PUT IN
 ;JOB NO. IN AC TAC\r
 \r
 INTERNAL WAKE\r
-\r
 EXTERNAL PJBSTS,RNQ,SLPQ\r
 \r
 WAKE:  MOVEI TAC1,RNQ          ;RUN QUEUE CODE\r
@@ -817,7 +819,8 @@ GETWT:      PUSHJ PDP,DVWAT1        ;NOT AVAIL., GO WAIT FOR IT
        SOSL DCREQ              ;NO, REDUCE DATA CONTROL REQUEST\r
        SETOM DCAVAL            ;SET AVAIL., SOME OTHER JOB WAITING FOR IT\r
        JRST GETWT              ;TRY AGAIN\r
-\f;ROUTINE TO WAIT FOR A SHARABLE DEVICE\r
+\f\r
+;ROUTINE TO WAIT FOR A SHARABLE DEVICE\r
 ;CALLED AT UUO LEVEL ONLY BY DEVICE SERVICE ROUTINES\r
 ;CALL: AOSLE XXREQ             ;ADD 1 TO SHARABLE DEVICE REQUEST COUNT\r
 ;                              ;IS DEVICE AVAILABLE?\r
@@ -936,6 +939,7 @@ WAIT1:      MOVE IOS,DEVIOS(DEVDAT)
 ;      RETURN IMMEDIATELY IF DEVICE IS INACTIVE\r
 ;      RETURN WHEN DEVICE FINISHES NEXT BUFFER IF IT IS ACTIVE\r
 \r
+\r
 INTERNAL WSYNC\r
 EXTERNAL IOWQ,TIOWQ,PION,PIOFF\r
 \r