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

diff --git a/src/clock1.mac b/src/clock1.mac
index 7c7bcdf..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
@@ -66,7 +65,7 @@ APRPAR: CONSZ PI,600000		;MEM PARITY ERROR OR POWER FAILURE?
 	CONO PI,REQCLK		;REQUEST INTERRUPT ON CLK CHANNEL
 	CONSZ APR,@APRIN1	;IS USER ENABLE FOR ANY FLAGS(INCLUDING CLOCK)
 				; RH ALSO MODIFIED EACH TIME A USER RUNS
-	JRST APRER		;YES, GO PROCESS TRAP
+	JRST APRER1		;YES, GO PROCESS TRAP
 	CONO APR,1000+APRCHN	;NO, CLEAR ONLY THE CLOCK FLAG
 	JEN @APRCHL		;DISMISS INTERRUPT
 
@@ -96,7 +95,6 @@ APRER4:	EXCH JDAT,JOBDAT	;YES, SAVE JDAT, GET CURRENT JOB DATA AREA ADR.
 	EXCH JDAT,JOBDAT	;RESTORE JDAT,JOBDAT
 	CONO APR,440+APRCHN	;DISBALE FOV, AROVF IN CASE ON
 				;SO USER MUST REENABLE WITH SETAPR UUO
-
 APRER3:	TLZ	TAC,440000	;CLEAR FOV (PC CHANGE ON PDP-6) AND AR OVF FLAGS
 				; SO INTERRUPT MAY BE DISMISSED
 	EXCH	TAC,APRCHL	;RESTORE TAC & APRCHL
@@ -141,7 +139,6 @@ IFN FTHALT,<
 ;THEN CALLS SCHEDULER
 ;IF THE CURRENT JOB IS IN EXEC MODE THE ABOVE 4 TASKS ARE
 ;DELAYED UNTIL THE CURRENT JOB ENTERS A STOPPABLE STATE: I.E., UNTIL
-
 ;	1. JOB STARTS TO WAIT FOR A BUSY SHARABLE DEVICE
 ;	2. JOB STARTS TO WAIT FOR A IO TO COMPLETE
 ;	3. CONTROL ABOUT TO RETURN TO USER MODE
@@ -184,10 +181,12 @@ WSCHED:	POP PDP,USRPC		;SAVE PC IN PROTECTED PART OF SYSTEM DATA
 	MOVEI AC3,JOBDAC(JDAT)	;SAVE ACS 0-16 IN DUMP ACS
 	BLT AC3,JOBD16(JDAT)	;IN CURRENT JOB DATA AREA
 	MOVEI PDP,NULPDL	;NULL JOB PD LIST
-	HRLI PDP,MJOBP1		; OTHERWISE GET PD OUF
+	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
@@ -223,7 +222,6 @@ CLKINT:	SKIPN CLKFLG		;CLK INTERRUPT REQUEST?
 	JEN @CLKCHL
 
 SAVPC:	MOVEM 17,USRPC		;SAVE PC IN PROTECTED PART OF SYSTEM DATA
-
 				; STORAGE FOR CURRENT JOB
 CLKERR:	SKIPN 17,JOBDAT		;CURRENT JOB DATA AREA, IS THERE ONE?
 	MOVEI 17,NULDAT		;NO, MUST BE NULL JOB OR CORE 0
@@ -265,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
@@ -295,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
@@ -330,7 +327,8 @@ EXTERNAL JOB,JOBDAT,JOBPRT,USRPRT,USRHCU,JOBJDA
 				; SINCE IT DOES IO INTO AND OUT OF
 				; CHANNEL LOCATIONS (JOBJDA+1..,JOBJDA+17),
 	ADD JA,T1		;RELOCATE TO USER AREA
-	BLT T,JOBJDA(JA)	; STOP WITH USER CHANNEL 0-1+C(USRHCU)
+	BLT T,JOBJDA(JA)	;MOVE TO USER JOB DATA AREA
+				; STOP WITH USER CHANNEL 0-1+C(USRHCU)
 ;RESTORE SOFTWARE STATE OF NEW JOB,THEN HARDWARE STATE
 
 INTERNAL NULJOB,NULADR
@@ -350,7 +348,6 @@ IFN FTHALT,<
 	MOVEI T,USRPRT		;NO, DEST,#PROTECTED AREA IN MONITOR
 	HRLI T,JOBPRT(JA)	;SOURCE#FIRST PROTECT LOC. IN JB  DATA AREA
 	SKIPL T1,JOBHCU(JA)	;MOVE NO. OF USER IO CHAN. IN USE
-	
 	CAILE T1,17		;MUST BE 17 OR LESS(IO MIGHT CLOBBER
 				; IF ADRRESS CHECKING MISSES
 	MOVEI T1,0		;MOVEJUST CHAN 0 IF NEG. OR GREATER THAN 17
@@ -414,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
@@ -454,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
@@ -509,6 +506,7 @@ KSTOP:	MOVSI TAC,JNA+JLOG+JACCT	;CLEAR JOB NUMBER ASSIGNED AND LOGGED IN BITS
 	ANDCAM TAC,JBTSTS(ITEM)
 IFN FTLOGIN,<
 EXTERN PRJPRG
+
 	SETZM PRJPRG(ITEM)	;CLEAR PROJECT-PROGRAMMER NUMBER WHEN JOB LOGS OUT
 >
 			; IF THIS IS THE LARGEST JOB IN USE,FIND NEXT
@@ -548,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
@@ -600,6 +599,7 @@ IFE FTSWAP,<
 IFN FTSWAP,<
 	JRST REQUE		;SET REQUE JOB FLAG
 >
+
 	SKIPL TAC,JBTSTS(ITEM)	;RUN FLAG OFF?
 	TLNN	TAC,JERR	;YES, ERROR FLAG ON?
 	JRST 	STOP2		;NO
@@ -610,7 +610,7 @@ IFN FTSWAP,<
 ;OR IS IN CORE AND HAS ACTIVE DEVICES.
 ;CALLED FROM COMMAND DECODER
 ;CALL:	MOVE ITEM,JOB NO.
-	PUSHJ PDP,DLYCOM
+;	PUSHJ PDP,DLYCOM
 
 INTERNAL DLYCOM
 
@@ -627,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
@@ -653,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
@@ -693,7 +695,6 @@ EXTERNAL JOBPC,JOBDAC,JOBD17,TTYSET,JOBOPC,JOBPD1
 USTART:	MOVE TAC,JOBPC(JDAT)	;GET OLD PC
 	TLNE TAC,USRMOD		;IS IT IN USER MODE TOO?
 	JRST USTRT1		;YES, DUMP ACS AND PC FLAGS ARE ALREADY HIS
-
 	MOVEI TAC,JOBDAC(JDAT)	;NO. MOVE USERS(UUO) ACS TO DUMP ACS
 	HRL TAC,JDAT		;SOURCE=REL, 0,DEST,=JOBDAC IN JOB DATA AREA
 	BLT TAC,JOBD17(JDAT)	;MOVE ALL ACS
@@ -709,13 +710,14 @@ USTRT1:	MOVEM TAC,JOBOPC(JDAT)	;STORE OLD PC FOR USER TO LOOK AT
 MSTART:	MOVEM TAC1,JOBPC(JDAT)	;STORE NEW PC
 	MOVSI TAC,JERR+WTMASK
 	ANDCAM TAC,JBTSTS(ITEM)	;CLEAR ERROR AND WAIT STATUS BITS
-				;SET TTY STATE TO INITAL COND.
+	JRST TTYSET		;SET TTY STATE TO INITAL COND.
 				; TTYUSR OR TTYURC SHOULD BE CALLED
 				; TO INDICATE WHETHER TTY TO USER OR EXEC MODE
 				; AND THAT JOB IS TO RUN(RUN BIT =1) WHEN
 				; MONITOR COMMAND RESPONSE FINISHES.
 				; SEE SETRUN BELOW
 
+
 ;ROUTINE TO SET JOB STATUS RUN BIT(RUN)
 ;CALLED BY SCANNER SERVICE WHEN TTY MONITOR COMMAND
 ;RESPONSE FINISHES,  THIS ACTION IS ENABLED BY CALLING
@@ -776,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
@@ -818,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?
@@ -836,7 +838,6 @@ INTERNAL MTWAIT,STWAIT,DTWAIT,DCWAIT,DAWAIT,MQWAIT,AUWAIT
 EXTERNAL JOB,REQTAB
 
 MTWAIT:DTWAIT:DCWAIT:STWAIT:DAWAIT:MQWAIT:AUWAIT:
-
 DVWAIT:	MOVE AC1,(PDP)		;GET ADR. OF CALLER
 	MOVE AC1,-2(AC1)	;GEET AOSLE XXREQ INSTRUCTION
 	JRST .+2
@@ -870,6 +871,7 @@ EXTERNAL WSQ,WSAVAL,TSQ,TSAVAL,JOB,PJOBN
 
 PJBS2:	POINT JWSIZ,JBTSTS(TAC),JWPOS	;BYTE POINTER TO JOB STATUS
 				; WORD QUEUE CODE
+
 STTIOD: MOVEI TAC1,TSQ		;SET TTY IO WAIT SATISFIED QUEUE CODE
 	AOS TSAVAL
 	JRST SETIO1
@@ -877,6 +879,7 @@ SETIOD:	MOVEI TAC1,WSQ		;REQUE TO WAIT SATISFIED Q
 	AOS WSAVAL		;INCR, NO, OF JOBS WITH IO WAIT
 				; SATISFIED, NON-ZERO WSAVAL WILL
 				; CAUSE SCHED, TO SCAN FOR IO
+				; SATISFIED JOB.
 SETIO1:	LDB TAC,PJOBN
 	DPB TAC1,PJBS2		;IN JOB STATUS WORD
 
@@ -927,7 +930,8 @@ WAIT1:	MOVE IOS,DEVIOS(DEVDAT)
 	POPJ PDP,		;RETURN
 	PUSHJ PDP,WSYNC		;WAIT
 	JRST WAIT1
-;WSYNC IS CALLED TO WAIT UNTIL SETIOD IS CALLED BY INTERRUPT SERVICE ROUTINE
+
+;WSYNC IS CALLED TO WAIT UNTIL SETIOD IS CALLED BY INTERRUPT SERVICE ROUTINE
 ;IE  UNTIL CURRENT BUFFER ACTIVITY IS COMPLETE
 ;CALLED ONLY FROM UUO LEVEL
 ;CALL:	MOVE DEVDAT,ADR. OF DEVICE DATA BLOCK
@@ -935,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
 
@@ -944,7 +949,6 @@ WSYNC:	MOVSI IOS,IOW		;SETUP DEVICE IO WAIT BIT
 	TLNE AC3,DVTTY		;IS THIS DEVICE A TTY?
 	MOVEI AC1,TIOWQ		;YES, SET TTY WAIT STATE CODE
 	MOVE AC3,JOB		;CURRENT JOB NO.
-
 	MOVEI AC2,IOACT		;DEVICE ACTIVE BIT
 	CONO PI, PIOFF		;TURN PI OFF
 	TDNN AC2,DEVIOS(DEVDAT)	;IS THE DEVICE ACTIVE?
@@ -962,4 +966,5 @@ WSYNC1:	CONO PI, PION
 	ANDCAB IOS, DEVIOS(DEVDAT)	;CLEAR DEVIVCE IO-WAIT BIT
 	POPJ PDP,
 
+
 CLKEND:	END