File: CCLERR.MA of Disk: V50/Source/Source-Listing-MAC-1
(Source file text) 

/CCL INTERNAL TABLES FOR KBM V50
/
/
/
/
/
/
/	CCL INTERNAL TABLES FOR KBM V50
/	VERSION=5A

	.NOLIST
	.INCLUDE OUT:CCLDEF
	.LIST

	.LIST MEB
	.GLOBAL GLIN
	.GLOBAL SWTCHS
	.GLOBAL EXTCM
	.GLOBAL YBATCH,YDATE
	.GLOBAL YFRTS,YF4
	.GLOBAL YCCL,FNAME1
	.GLOBAL CORE,CORSIZ
	.GLOBAL LPTDEV,TTYDEV,PTPDEV
	.EXTERNAL NMOVE,DONB,UNKN
	.EXTERNAL SETDEV
	.EXTERNAL SETLPT,SETTTY,SETPTP,COLSET
	.EXTERNAL TECSUB,MAKSUB,MNGSUB,TTSUB
	.EXTERNAL USRSUB
	.EXTERNAL MOVRT,KILRT,RENRT
	.EXTERNAL EXSUB,LOSUB,FOSUB,GTOSUB
	.EXTERNAL BASUB,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB
	.EXTERNAL YAT
	.EXTERNAL CRSUB,EDSUB
	.EXTERNAL TLKSUB,OPNSUB,CLOSUB,LGISUB,LGOSUB

	.DSECT PTBL

	FIELD 0
	.ASECT SWS
	*7360
	.ASECT LONGS
	*5000

/	FORMAT OF CCL TABLE

/ENTRY	PURPOSE

/	TABLE WIDTH=7 (BUT VARIES)

/0	FLAG WORD

	/BIT	MEANING IF ON

	/0	PERFORM CD (IF 0, OMIT ENTRIES 1-6)
	/1	DON'T PERMIT SPOOLING
	/2	ALLOW .LS, .NB, .MP SWITCHES
	/3	ADD _ TO END OF COMMAND STRING
	/4	SET OUTPUT EXTENSION = INPUT EXTENSION (IF BIT 2 ON)
	/5	RESERVED
	/6-8	SPECIFIES AUTOMATIC INPUT REMEMBERING (REM LINE MINUS 1)
	/	0 MEANS NONE.  7 RESERVED FOR SPECIAL USE.
	/9	OPEN/CLOSE SPECIAL (ALLOW NON-EXISTING DEVS)
	/10	CAUSE -L, ETC. TO GO TO 2ND OUTPUT FILE & COPIES NAME
	/11	WANT DEFAULT ALTMODE (COMPL IF AMFLAG=1)

/1	PTR TO DEFAULT EXTENSION LIST FOR INPUT FILES.
/	IF PTS TO 0, NONE.   IF PTS TO 5200, USE SPECIAL MODE.

/2-4	DEFAULT SWITCHES TO BE OR'ED INTO THOSE
/	EXPLICITLY GIVEN.

/5	ADDRESS OF SUBROUTINE TO BE CALLED
/	AFTER C.D. HAS BEEN DONE.  0 IF NONE.

/6	PTR TO FILENAME OF PROGRAM
/	TO BE CHAINED TO.  0 IF NONE.

	.MACRO .BOX COM,SPACES,STARS
	LEN=.NCHARS COM
	.PUSH .LISTWD
	L1=LEN+4
	L2=LEN+2
	;.LIST ME

/	STARS[1:L1]
/	STARS[1]SPACES[1:L2]STARS[1]
/	STARS[1] COM STARS[1]
/	STARS[1]SPACES[1:L2]STARS[1]
/	STARS[1:L1]
	.POP .LISTWD
	.ENDM .BOX

	.MACRO .EXT
	.ENDM

	.MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL
	.BOX	COMAND,"                ","****************"
	..=.
	.DSECT PTBL
	;..
	.SECT *
X'ABBREV,	CODE
	IFNZRO CODE&4000 <
	;EXTEN
	.IF NBL SWITCH[1]<
	XX="SWITCH[1]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
	QQ=1
	.REPT 12.-ZZ&17
	QQ=QQ^2
	.ENDR
	;QQ>
	.IF NBL SWITCH[2]<
	XX="SWITCH[2]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
	QQ=1
	.REPT 12.-ZZ&17
	QQ=QQ^2
	.ENDR
	;QQ>
	;0
	.ASECT SWS
	..=.
	.SECT *
	.IF BL LABEL <;.. >		/REMOVE IF DON'T WANT MULTIPLE CHARACTER SWITCHES
	.IF NB LABEL <;LABEL>
	;SUBR
	.IF NB PROGRM<
	;Y'PROGRM>
	.IF BL PROGRM<
	;0>
	>
	IFZERO CODE&4000 <
	;EXTEN
	.IF NB SWITCH<
	;Y'SWITCH>
	.IF BL SWITCH<
	;0>
	>
	.ENDM


	.MACRO .EXTRA COMAND,ABBREV
	.BOX	COMAND,"                ","##################"
	.DSECT PTBL
	;X'ABBREV
	.SECT *
	.ENDM

	.MACRO .QUAL LONG,SHORT,NAME
	.ASECT LONGS
	..=.
	;TEXT	"LONG[1:6]";"SHORT
	.SECT *
	.ASECT SWS
	.IF NB NAME <NAME=.>
	;..
	.SECT *
	.ENDM


	.MACRO .ENDQ
	.ASECT SWS
	;0
	.SECT *
	.ENDM


	.ASECT TABLES
	FIELD 0
	*6100

	.CMD	EXECUTE,EX,5013,EXTEXE,	G,		EXSUB,	PAL8
/EXECUTE MUST BE FIRST FOR TECO EG
	.ENDQ
	.CMD	ACID,AC,5011,	EXTAC,	,		EXSUB,	ACID
	.QUAL	KINHALT,N,ACOPT
	.QUAL	TRENNUNG,L
	.ENDQ
	.CMD	BASIC,BA,0,				BASUB,	BASIC
	.ENDQ
	.CMD	BOOT,BO,0,				0,	BOOT
	.ENDQ
	.CMD	TTL,TT,0,				TTSUB,	TECO
	.ENDQ
	.CMD	CLOSE,CL,4004,	STAR,	,		CLOSUB,
	.ENDQ
	.CMD	COMPARE,COMPA,4001,	EXTNUL,	,	SETTTY,	SRCCOM
	.QUAL	NKOMMENTAR,C	/.QUAL	NOCOMMENTS,C
	.QUAL	TEXT,S		/.QUAL	NOSPACES,S
				/.QUAL	TABS,T
				/.QUAL	BLANKS,B
				/.QUAL	NOPRINTCOMMENTS,X
	.ENDQ
	.CMD	COM,COM,5013,	EXTCOM,	,		EXSUB,	PAL8
	.QUAL	KISN,N		/.QUAL	NOISN,N
	.QUAL	OPTIMIZE,Q
	.QUAL	STARTE,G	/.QUAL	GO,G
	.ENDQ
	.CMD	COPY,COP,4001,	STAR,	L,		MOVRT,	FOTP
	.QUAL	LOESCHE,D	/.QUAL	NOCOPY,D
	.QUAL	SICHER,N	/.QUAL	NOPREDELETE,N
				/.QUAL	RENAME,R
	.QUAL	FORTSETZUNG,F	/.QUAL	FAILSAFE,F
	.QUAL	HEUTE,C,LSTOPT	/.QUAL	CURRENT,C,LSTOPT
	.QUAL	NHEUTE,O	/.QUAL	OTHER,O
	.QUAL	FRAGE,Q		/.QUAL	QUERY,Q
	.QUAL	DATUM,T		/.QUAL	TODAY,T
	.QUAL	REIHENFOLGE,U	/.QUAL	UGLY,U
	.QUAL	ANDERE,V	/.QUAL	INVERT,V
				/.QUAL	VERSION,W
	.QUAL	RUHIG,H
	.ENDQ
	.CMD	CREF,CREF,4002,	EXTCF,	C,		0,	PAL8
				/.QUAL	NOLIST,P
	.QUAL	CREF,U		/.QUAL	NOSYMTAB,U
	.QUAL	RALF,R
				/.QUAL	SABR,S
	.QUAL	KLITERALS,X	/.QUAL	NOLITERALS,X
	.QUAL	GROSS,M		/.QUAL	MAMMOTH,M
	.ENDQ
	.CMD	CREATE,CRE,4400,EXTNUL,	,		CRSUB,	EDIT
				/.QUAL	SPACES,B
	.ENDQ
	.CMD	DATE,DA,0,				DATE,	
	.ENDQ
	.CMD	DEASSIGN,DEA,0,				DEASSIG,
	.ENDQ
	.CMD	DELETE,DEL,4001,STAR,	LD,		KILRT,	FOTP,	LSTOPT
	.CMD	DIRECT,DI,4001,	STAR,	,		COLSET,	DIRECT
	.QUAL	ALPHAB,A
	.QUAL	BLOECKE,B	/.QUAL	BLOCKS,B
	.QUAL	HEUTE,C		/.QUAL	CURRENT,C
	.QUAL	DATUM,D
	.QUAL	VOLLSTA,E	/.QUAL	EXTENDED,E
	.QUAL	KURZ,F		/.QUAL	FAST,F
				/.QUAL	ADDITIONAL,I
	.QUAL	LOECHER,M	/.QUAL	EMPTIES,M
	.QUAL	NHEUTE,O	/.QUAL	OTHER,O
	.QUAL	SEITE,P
	.QUAL	REST,R		/.QUAL	REMAINDER,R
	.QUAL	NEUE,T
				/.QUAL	UGLY,U
	.QUAL	ANDERE,V	/.QUAL	INVERT,V
				/.QUAL	VERSION,W
				/.QUAL	V,V
				/.QUAL	COLUMNS,Z	/DUMMY
	.QUAL	ZUSATZ,X
	.ENDQ
	.EXTRA	DRUCKEN,LI
	.CMD	DUPLIC,DU,4001,	STAR,	,		0,	RXCOP
	.QUAL	NKOPIEREN,M	/.QUAL	NOCOPY,M
				/.QUAL	NOMATCH,N
	.QUAL	PAUSE,P
	.QUAL	LESEN,R		/.QUAL	READONLY,R
				/.QUAL	VERSION,V
	.ENDQ
	.CMD	EDIT,ED,5230,	EXTNUL,	,		EDSUB,