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

	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