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

/CCL INTERNAL TABLES FOR KBM V40
/
/
/
/
/
/
/	CCL INTERNAL TABLES FOR KBM V40
/	VERSION=4B

	.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,	EDIT
				/.QUAL	SPACES,B
				/.QUAL	PREDELETE,D
	.ENDQ
	.CMD	FOCAL,FO,4071,	STAR,	,		FOSUB,	DPF
	.QUAL	KFUNKTION,N
	.QUAL	UNGENAU,6
	.QUAL	SCHREIBE,W
	.QUAL	STARTE,G
	.ENDQ
	.CMD	FUTIL,FU,4401,	EXTSV,	,		0,	FUTIL
	.ENDQ
	.CMD	GOTO,G,0,				GTOSUB
	.ENDQ
	.CMD	HELP,H,4001,	STAR,	T,		SETTTY,	HELP
	.ENDQ
	.EXTRA 	INHALT,DI
	.CMD	LAUF,LAU,4000,	EXTBI,	HS,		0,	BATCH,	SUBOPT
	.EXTRA	LADE,LO
	.CMD	LINK,LIN,5023,	EXTLI,	,		LOSUB,	LINK
	.QUAL	STARTE,G	/.QUAL	GO,G
	.QUAL	HALTS,H
				/.QUAL	JUMPS,J
	.QUAL	SPEICHER,K	/.QUAL	MEMORY,K
				/.QUAL	VERSION,V
	.QUAL	START,S
				/.QUAL	JSW,W
				/.QUAL	M,M
	.ENDQ
	.CMD	LIST,LI,4001,	STAR,	U,		SETLPT,	FOTP,	LSTOPT
	.EXTRA	LOESCHE,DEL
	.CMD	LOGIN,LOGI,0,				LGISUB,	BATCH
	.ENDQ
	.CMD	LOGOUT,LOGO,0,				LGOSUB,	BATCH
	.ENDQ
	.CMD	LOAD,LO,5023,	EXTLO,	,		LOSUB,	ABSLDR
	.QUAL	FORTSETZUNG,C
	.QUAL	IMAGE,I
	.QUAL	ALLESYMBOLE,S	/.QUAL	MULTIPLE,S ALSO ALLES
	.QUAL	STARTE,G	/.QUAL	GO,G
/	/8	/9	/START:N	/FIELD:F	/P
	.ENDQ
	.CMD	MAKE,MACE,0,				MAKSUB,	TECO
	.ENDQ
	.EXTRA	MACHE,MACE
	.CMD	MAC,MAC,5013,	EXTMA,	,		EXSUB,	MACREL
	.QUAL	KOPF,B		/.QUAL	BLOCK,B
	.QUAL	CREF,C
	.QUAL	STARTE,G	/.QUAL	GO,G
				/.QUAL	NOCONDITIONALS,J
	.QUAL	LINK,L
	.QUAL	PERMANENT,M
	.QUAL	NLISTEN,N	/.QUAL	NOLIST,N
				/.QUAL	NOMACROS,O
				/.QUAL	RESET,P
	.QUAL	EAE,Q
				/.QUAL	REMOVE,R
				/.QUAL	REDUNDANT,R
	.QUAL	KBATCH,Z	/.QUAL	NOBATCH,Z
	.QUAL	FEHLER,X	/.QUAL	EXTENDED,X
				/.QUAL	K,K
				/.QUAL	P,P
	.ENDQ
	.CMD	MAP,MAP,4001,	EXTBN,	,		SETTTY,	BITMAP
				/.QUAL	MULTIPLE,S
				/.QUAL	INVERT,T
				/FIELD:N
	.ENDQ
	.CMD	MEMORY,ME,0,				DETCOR,	
	.ENDQ
	.CMD	MUNG,MU,0,				MNGSUB,	TECO
	.ENDQ
	.EXTRA	NAME,REN
	.CMD	OCOMP,OC,4001,	STAR,	TH,		0,	OCOMP
	.QUAL	SUCHE,S
	.QUAL	SV,I
	.QUAL	CCB,C
	.ENDQ
	.EXTRA	OEFFNE,OP
	.CMD	OPEN,OP,4004,	STAR,	,		OPNSUB,
	.ENDQ
	.CMD	PAL,PA,5013,	EXTPA,	,		EXSUB,	PAL8
				/.QUAL	SHIFT,B
	.QUAL	CREF,C
	.QUAL	DDT,D
	.QUAL	LGFEHLER,E	/.QUAL	NOLINKS,E
	.QUAL	KFILLER,F	/.QUAL	NOFILL,F
	.QUAL	STARTE,G	/.QUAL	GO,G
	.QUAL	KSEITEN,H	/.QUAL	NONPAGINATED,H
				/.QUAL	NOCONDITIONALS,J
	.QUAL	LADE,L		/.QUAL	LOAD,L
	.QUAL	SYMBOLEN,N	/.QUAL	NOLIST,N
				/.QUAL	NOORIG,O
	.QUAL	KSYMBOLEN,S	/.QUAL	NOSYMTAB,S
	.QUAL	VERGESSE,W	/.QUAL	NOREMEMBERLITERALS,W
	.QUAL	BREIT,7		/.QUAL	WIDE,7
				/.QUAL	W,W
	.ENDQ
/	/K	/T
	.CMD	PIP,PIP,4001,	EXTNUL,	,		0,	PIP
	.ENDQ
	.CMD	PRINT,PR,4000,	STAR,	,		SETLPT,	LPTSPL
	.ENDQ
	.CMD	RENAME,REN,4001,STAR,	LR,		RENRT,	FOTP,	LSTOPT
	.CMD	RTES,RT,5011,	EXTAC,	,		EXSUB,	RTES,	ACOPT
	.EXTRA	SCHLIESSE,CL
	.EXTRA	SENDE,TA
	.CMD	SET,SET,0,				0,	SET
	.ENDQ
	.CMD	SHSAVE,SH,4001,	STAR,	,		0,	SHSAVE
	.ENDQ
	.EXTRA	SPEICHER,ME
	.CMD	SQUISH,SQ,4001,	EXTNUL,	S,		SQSUB,	PIP
	.QUAL	OK,O
	.QUAL	RUHIG,H
	.ENDQ
	.CMD	SUBMIT,SU,4000,	EXTBI,	,		0,	BATCH
	.QUAL	KARTEN,C,SUBOPT	/.QUAL	CARDS,C
	.QUAL	KFEHLER,E	/.QUAL	NONFATAL,E
				/.QUAL	PAPERTAPE,P
				/.QUAL	QUIET,Q
	.QUAL	RUHIG,H		/.QUAL	HUSH,H
	.QUAL	DRUCKER,L
				/.QUAL	TERMINAL,T
	.QUAL	KBEDIENUNG,U	/.QUAL	UNATTENDED,U
	.QUAL	SUBROUTINE,S
				/.QUAL	VERSION,V
	.QUAL	026,6
	.ENDQ
	.CMD	SYSTEM,SY,4001,EXTSY,	,		SETTTY,	RESORC
	.QUAL	ALLES,E		/.QUAL	EXTENDED,E
	.QUAL	KURZ,L		/.QUAL	FAST,F
	.ENDQ
	.CMD	TALK,TA,0,				TLKSUB,
	.ENDQ
	.CMD	TECO,TE,30,				TECSUB,	TECO
	.ENDQ
	.CMD	TYPE,TY,4001,	STAR,	U,		SETTTY,	FOTP,	LSTOPT
	.CMD	UA,UA,40,				USRSUB,	
	.ENDQ
	.CMD	UB,UB,50,				USRSUB,	
	.ENDQ
	.CMD	UC,UC,60,				USRSUB,	
	.ENDQ
	.CMD	UX,UX,0,				USRSUB,
	.ENDQ
	.CMD	USERA,USA,4001,	EXTNUL,	,		0,	USERA
	.ENDQ
	.CMD	USERB,USB,4001,	EXTNUL,	,		0,	USERB
	.ENDQ
	.CMD	USERC,USC,4001,	EXTNUL,	,		0,	USERC
	.ENDQ
	.EXTRA	VERDICHT,SQ
	.EXTRA	VERGLEICH,COMPA
	.CMD	VERSION,VE,0,				VERTN,	
	.ENDQ
	.EXTRA	ZEIGE,TY
	.CMD	ZERO,ZERO,4401,	EXTNUL,	Z,		ZERSUB,	PIP
	.ENDQ
/	.CMD	@,@,0,					YAT,	
/	.ENDQ
	..=.
	0;YAT;0
	.DSECT PTBL
	..
	0;0
	.EXT	ALG=AL
	.EXT	BAK=BK
	.EXT	BAS=BA
	.EXT	BIN=BN
	.EXT	BUG=BG
	.EXT	CMD=CM
	.EXT	COM=CM
	.EXT	CRF=CF
	.EXT	CTL=CM
	.EXT	DAT=DA
	.EXT	DIR=DI
	.EXT	DOC=DC
	.EXT	HLP=HL
	.EXT	INI=IN
	.EXT	LOG=LG
	.EXT	LPT=LP
	.EXT	LST=LS
	.EXT	MAC=MA
	.EXT	MAN=MN
	.EXT	MAP=MP
	.EXT	MEM=ME
	.EXT	OLD=OL
	.EXT	PAL=PA
	.EXT	REL=RL
	.EXT	RIM=RM
	.EXT	RNO=RO
	.EXT	SAV=SV
	.EXT	EXE=SV
	.EXT	SNO=SN
	.EXT	SRC=SR
	.EXT	SYS=SY
	.EXT	TEC=TE
	.EXT	TEM=TM
	.EXT	TMP=TM
	.EXT	TXT=TX
	.EXT	BAT=BI
	.EXT	FOR=FT
	.EXT	RLF=RA
	.EXT	OBJ=RB
	.EXT	SBR=SB
	.EXT	FTN=FT
	.ASECT EXTNS
	FIELD 0
	*6600
STAR,	5200;	0
	0;	0

EXTAC,	'AC;	0
	0;	0

EXTSY,	'SY;	0
	0;	0

EXTBI,	'BI;	0
	0;	0

EXTCF,	'PA;	YPAL8
	0;	YPAL8

EXTMA,	'MA;	YMACREL
	0;	YMACREL

EXTPA,	'PA;	YPAL8
	0;	YPAL8

EXTBN,	'BN;	0
	0;	YABSLDR

EXTNUL,	0;	0

EXTLO,	'BN;	YABSLDR
	'RL;	YLOAD
EXTLI,	'RB;	YLINK
	0;	0

EXTCM,	'CM;	0
	0;	0
EXTSV,	'SV;	0
	'LD;	0
	0;	0

EXTEXE,	'LD;	YFRTS
	'BN;	YABSLDR
	'RL;	YLOAD
	'RB;	YLINK
	'PA;	YPAL8
	'FT;	YF4
	'BA;	YBCOMP
	'MA;	YMACREL
	'RA;	YRALF
	'SB;	YSABR
	'BI;	YBATCH
	0;	0

EXTCOM,	'PA;	YPAL8
	'FT;	YF4
	'BA;	YBCOMP
	'MA;	YMACREL
	'RA;	YRALF
	'SB;	YSABR
	0;	0
	.ASECT FNAMES
	FIELD 0
	*7000
YEDIT,	FILENAME EDIT.SV
	*.-1
YBOOT,	FILENAME BOOT.SV
	*.-1
YBITMAP,FILENAME BITMAP.SV
	*.-1
YSRCCOM,FILENAME SRCCOM.SV
	*.-1
YBCOMP,	FILENAME BCOMP.SV
	*.-1
YPAL8,	FILENAME PAL8.SV
	*.-1
YFOTP,	FILENAME FOTP.SV
	*.-1
YDIRECT,FILENAME DIRECT.SV
	*.-1
YDPF,	FILENAME DPF.SV
	*.-1
YACID,	FILENAME ACID.SV
	*.-1
YRTES,	FILENAME RTES.SV
	*.-1
YFUTIL,	FILENAME FUTIL.SV
	*.-1
YPIP,	FILENAME PIP.SV
	*.-1
YABSLDR,FILENAME ABSLDR.SV
	*.-1
YTECO,	FILENAME TECO.SV
	*.-1
YLPTSPL,FILENAME LPTSPL.SV
	*.-1
YSET,	FILENAME SET.SV
	*.-1
YBASIC,	FILENAME BASIC.SV
	*.-1
YRXCOP,	FILENAME RXCOPY.SV
	*.-1
YRESORC,FILENAME RESORC.SV
	*.-1
YBATCH,	FILENAME BATCH.SV
	*.-1
YRALF,	FILENAME RALF.SV
	*.-1
YSABR,	FILENAME SABR.SV
	*.-1
YHELP,	FILENAME HELP.SV
	*.-1
YMACREL,FILENAME MACREL.SV
	*.-1
YLINK,	FILENAME LINK.SV
	*.-1
YDATE,	FILENAME DATE.SV
	*.-1
YCCL,	FILENAME CCL.SV
	*.-1
YFRTS,	FILENAME FRTS.SV	/**
	*.-1
YF4,	FILENAME F4.SV		/** THESE THREE MUST BE TOGETHER !!!
	*.-1
YLOAD,	FILENAME LOAD.SV	/**
	*.-1
YOCOMP,	FILENAME OCOMP.SV
	*.-1
YSHSAVE,FILENAME SHSAVE.SV
	*.-1
YUSERA,	FILENAME USERA.SV
	*.-1
YUSERB,	FILENAME USERB.SV
	*.-1
YUSERC,	FILENAME USERC.SV
	*.-1
EJECT CCL CORE SIZE
/	VERSION=4A

	.ASECT CORF0
	LXM=6200
	FIELD 0
	*7200
CORLOC,	CORX
CORV,	1400
CORRES,	-7000-1400
CORSIZ,	1

CORE,	0
	TAD T7000	/SETS KT8A IF PRESENT
	LXM		/LXM INSTRUCTION
	CLA IAC		/LXM ACTS AS NOP IF NO KT8A
	DCA CORSIZ	/INITIALIZE CORSIZ TO 1
	TAD CORRES
	DCA CORX	/SET WRAPPER LOC
CORE2,	CDF 0
	TAD CORSIZ	/ADJUST FIELDS FOR CDF
	CLL RTR
	RTR
	BSW
	SZL
	TAD T4
	AND COR174
	TAD COREX
	DCA .+1
COR1,	CDF
	TAD I CORLOC
COR2,	NOP
	DCA COR1
	TAD COR2
	DCA I CORLOC
COR174,	174
	TAD I CORLOC
CORX,	7400
	TAD CORX
	TAD CORV
	SZA CLA
	JMP COREX
	TAD COR1
	DCA I CORLOC
	ISZ CORSIZ
	JMP CORE2
COREX,	CDF 0
	LXM		/NEUTRALIZES KT8A
	TAD CORSIZ
	CLL RTL
	TAD M10
	CIF CDF 10
	JMP I CORE	/RETURN
M10,	-10
T4,	4
T7000,	7000
GLIN,	0		/FOR SEMICOLON LINKAGE
	JMS I	PGLINE
	CIF CDF 10
	JMP I	GLIN
PGLINE,	GLINE

LPTDEV,	DEVICE LPT
TVDEV,	DEVICE TV
TTYDEV,	DEVICE TTY
PTPDEV,	DEVICE PTP
DMPDEV,	DEVICE DBL	/DIABLO PRINTER
NULDEV,	DEVICE NULL
FNAME1,	ZBLOCK 5
EJECT CCL SWITCHES
/	VERSION=4A


SWTCHS,	1423;	P1	/LS
	1602;	P2	/NB
	1520;	P3	/MP
	1400;	P4	/L
	2400;	P5	/T
	2300;	P6	/S
	2000;	P7	/P
	0400;	P8	/D
	1600;	P9	/N
	0000;	P10	/UNKNOWN
P1,	NMOVE
	7605
P2,	DONB
	0
P3,	NMOVE
	7612
P4,	SETDEV
	LPTDEV
P5,	SETDEV
	TTYDEV
P6,	SETDEV
	TVDEV
P7,	SETDEV
	PTPDEV
P8,	SETDEV
	DMPDEV
P9,	SETDEV
	NULDEV
P10,	UNKN
	0