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

diff --git a/src/comcon.mac b/src/comcon.mac
index 464d953..d51df4f 100644
--- a/src/comcon.mac
+++ b/src/comcon.mac
@@ -1,13 +1,13 @@
 TITLE COMCON - COMMAND DECODER AND SAVEGET ROUTINES - V433
 SUBTTL /RCC 03 JUN 69
 XP VCOMCN,433
+
 				;THIS MACRO PUTS VERSION NO. IN STORAGE MAP AND GLOB
 
 	ENTRY COMCON	;ALWAYS LOAD COMCON IF LIBRARY SEARCH
 COMCON:
 
 ;CALLED FROM CLOCK ROUTINE WHEN 'COMCNT' IS GREATER THAN 0
-
 ;AS SET BY TTY SERVICE ROUTINE
 ;ALL AC'S HAVE BEEN SAVED BY CLOCK CHANNEL
 ;THE COMMAND DECODER CALLS TTYCOM WHICH SCANS FOR TTY WHICH TYPED
@@ -87,7 +87,8 @@ IFN FTLOGIN,<
 		JRST CHKNO		;YES
 		JSP TAC,COMER		;NO, TYPE "LOGIN PLEASE"
 		ASCIZ /LOGIN PLEASE
-/>
+/
+>
 CHKNO:	JUMPN ITEM,CHKRUN	;JOB NUMBER ALREADY ASSIGNED?
 	TLNE TAC1,NOJOBN	;NO, DOES THIS COMMAND NEED A JOB NUMBER?
 	JRST COMGO		;NO
@@ -101,9 +102,11 @@ NUMLOP:	MOVE T,JBTSTS(ITEM)	;SCAN FOR FREE JOB NO.
 	JSP TAC,COMER		;YES, NONE LEFT, PRINT "JOB CAPACITY EXCEEDED"
 	ASCIZ /JOB CAPACITY EXCEEDED
 /
+
 				; EVEN THROUGH THIS IS A NEW JOB NUMBER
 				; IT MAY HAVE CORE ASSIGNED NOW BECAUSE IT WAS DELAYED
 				; UNTIL IT COULD BE SWAPPED IN(LOGIN WITH CORE FULL)
+
 NEWJOB:	MOVEI T1,ASSCON		;SET ASSIGNED BY CONSOLE BIT FOR TTY
 	IORM T1,DEVMOD(DEVDAT)	;SO OTHER JOBS CAN NOT USE
 	SETZM DEVLOG(DEVDAT)	;SET LOGICAL NAME TO ZERO
@@ -184,6 +187,7 @@ COMGO:	MOVSI	IOS,CMWRQ
 	ANDCAM	IOS,(PDP)	;NO, CLEAR REQUEU BIT IN DISP. FLAGS
 	MOVEM	T,JBTSTS(ITEM)
 
+
 COMDIS:	MOVEI IOS,0		;CLEAR IOS FOR SETTING DISPATCH ADDRESSES
 	PUSHJ PDP,(TAC1)	;DISPATCH TO COMMAND SETUP ROUTINE.
 ;RETURN FROM COMMAND SETUP ROUTINE
@@ -245,7 +249,6 @@ IFN	FTSWAP, <
 	LDB	ITEM,PJOBN	;GET JOB NUMBER FROM TTY DEVICE DATA BLOCK
 	JUMPE	ITEM,CPOPJ	
 	TLNE	T1,CMWRQ	;REQUEUE JOB AFTER COMMAND WAIT OR ERROR?
-
 	JRST	REQUE		;YES
 >
 	POPJ PDP,
@@ -300,7 +303,8 @@ TTYRNC=20	;KEEP TTY IN COMMAND MODE AND START JOB
 		; WHEN COMMAND RESPONSE STOPS TYPING
 NOMESS=10	;NO COMMAND RESPONSE EVER, DO NOT CALL TTYSTR
 
-		;T TAKEN ABOVE BY 'PLSXPN' BIT
+		;4 TAKEN ABOVE BY 'PLSXPN' BIT
+
 
 ERRFLG=1	;COMMAND ERROR
 DEFINE NAMES<
@@ -380,7 +384,9 @@ IFN FTCCL,<
 DEFINE C(A,B,D) <
 	<SIXBIT /A/>
 >
+
 COMTAB:	NAMES
+	XWD NOCORE+NOJOBN+NOLOGIN+NOINCK,NOCOM
 DISPL=.-COMTAB	;LENGTH OF TABLE
 ;GENERATE THE DISPATCH TABLE PLUS SPECIAL BITS
 
@@ -388,7 +394,8 @@ DEFINE C(A,B,D) <
 Z	B	(D)
 >
 DISP:	NAMES
-;CALLED FROM COMMAND DECODER WHICH IS CALLED FROM CLOCK ROUTINE
+
+;CALLED FROM COMMAND DECODER WHICH IS CALLED FROM CLOCK ROUTINE
 ;WITH FOLLOWING AC'S SET:
 ;TAC= BYTE POINTER TO COMMAND STRING(SPACE OR CR AFTER COMMAND NAME)
 ;ITEM = JOB NUMBER
@@ -480,8 +487,10 @@ IFE 	FTLOGIN, <
 	PUSHJ PDP,TTYKIL	;RETURN TTY TO VIRGIN STATE
 	JRST KSTOP		;CLEAR JOB STATUS WORD AND STOP JOB
 
+
 ;ERROR IN COMMAND
 
+
 CERR:	JRST ERRMES
 
 JOBKB:	SETZM	-1(PDP)		;CLEAR NOJOBN SO COMRET WILL PRINT ERROR MSG.
@@ -598,7 +607,6 @@ IFN FTSWAP,<
 				; IF ASKING FOR 0 CORE
 >
 	LSH TAC1,12		;CONVERT 1K BLOCKS TO WORDS
-	
 	MOVEI TAC,-1(TAC1)	;HIGHEST RELATIVE ADDRESS=LENGTH-1 OF LOW SEG
 	PUSHJ PDP,CORE0		;TRY TO ASSIGN CORE
 	JRST COR2		;CORE NOT AVAILABLE. GO PRINT MESSAGE
@@ -733,6 +741,7 @@ IFN FTCCL,<
 
 CCLRUN:	MOVE	TAC,[SIXBIT /COMPIL/]	;CUSP NAME
 	JRST	ARCOM	;RUN IT
+
 >
 ;"LOGIN" - LOGIN COMMAND
 
@@ -1958,7 +1967,7 @@ OCT0:	CAIGE TEM,175		;ALTMODES(175 OR 176)?
 				; BEFORE [P,P] IN ATT AND GET COMMANDS.
 	JRST	CPOPJ2	;YES. SKIP RETURN
 	CAIE TEM,"-"	;DASH?
-	CAIG	TEM,400	;SPACE OR CONTROL CHAR?
+	CAIG	TEM,40	;SPACE OR CONTROL CHAR?
 	JRST CPOPJ2		;YES, ONLY LEGAL TERMINATORS
 	CAIE TEM,","		;COMMA?
 	CAIN TEM,"]"		;RIGHT BRACKET?