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

diff --git a/src/s.mac b/src/s.mac
index 617380c..022d733 100644
--- a/src/s.mac
+++ b/src/s.mac
@@ -130,6 +130,10 @@ INTERNAL A
 	XP DEVBUF,6		;C(LH)=REL. ADR. OF 3 WORD OUTPUT BUFFER HEADER
 				; C(RH)=REL. ADR. OF 3 WORD INPUT BUFFER HEADER
 	XP DEVIAD,7		;C(LH)=PROG IN INDEX FIELD
+				;BITS 1 AND 2 USED TO KEEP COUNT OF NO. OF USER CHANNELS
+				
+				; INITED ON THIS DEVICE(DECTAPE ONLY)
+				; IADPTR-COMMON BYTE POINTER TO 2 BIT COUNT
 	XP DEVADR,DEVIAD
 				; C(RH)=REL. INPUT BUFFER ADD. SERVICE ROUT. IS FILLING
 	XP DEVOAD,10		;C(LH)=PROG IN INDEX FIELD
@@ -141,7 +145,7 @@ INTERNAL A
 	XP DEVEXT,12		;LH=EXTENSION, RH=UNUSED
 	XP DEVPPN,13		;PROJECT PROGRAMMER NO. (DISK ONLY)
 				; OTHER DEVICES NEED NOT HAVE THIS LOCATION IN THEM.
-; I/0 STATUS WORD ASSIGNMENTS
+; I/O STATUS WORD ASSIGNMENTS
 ;DATA MODES: BITS 32-35(BYTE POINTER=PIOMOD)
 	XP A,0			;ASCII
 	XP AL,1			;ASCII LINE
@@ -526,4 +530,3 @@ DEFINE CODES
 	ASUPPRESS	;ELIMINATE ALL SYMBOLS NOT REFERENCED LATER
 			; FROM THE SYMBOL TABLE LISTING
 	LIST
-