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

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