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

/CCL ERROR MESSAGES FOR KBM V40
/
/
/
/
/
/	CCL ERROR MESSAGES AND SUCH
/	VERSION=4B

	.NOLIST
	.INCLUDE OUT:CCLDEF.MA
	.LIST

	.ENTRY LISPRT

	.GLOBAL ERRLST,WEEKLST,MONLST,MSGLST
	.GLOBAL VMES,MMES	/** CALL LISPRT!
	
	.EXTERNAL PRINT

	.RSECT CCLERR
	FIELD 1

LISPRT,	0
	CDF 10
	DCA	LISNUM	/AC CARRIES ENTRY IN LIST
	TAD I	LISPRT	/WHICH LIST?
	ISZ	LISPRT
	SNA
	JMP I	LISPRT	/ARG=0 IS FOR LOADING OVERLAY
	TAD	LISNUM	/STARTS AT 0
	DCA	LISNUM	/POINTS TO ADDRESS
	TAD I	LISNUM
	DCA	LISNUM	/IS ADDRESS
	JMS I	PPRINT	/PRINT IT
LISNUM,	0
	JMP I	LISPRT
PPRINT,	PRINT
ERRLST,	SYSER		/0
	BADNUM		/1
	BADSTR		/2
	TOOMAN		/3
	SWNF		/4
	BADOPT		/5
	NF		/6
	DNE		/7
	CONTRA		/8
	BADSYN		/9
	BADSW		/10
	BADSW2		/11
	BADX		/12
	BADEV		/13
	AMBIGY		/14
	OVFLOW		/15
	ATIO		/16
	SEMSG1		/17
	SEMSG3		/18
	SEMSG4		/19
	NONE		/20
	REMBAD		/21
	BADREM		/22
	BADMON		/23
	ERRCMD		/24
	TOOLNG		/25
	VMES		/26
	M8MES		/27
	CHANER		/28
MONLST,	MON0
	MON1
	MON2
	MON3
	MON4
	MON5
	MON6
	MON7
	MON8
	MON9
	MON10
	MON11
	MON12
	MON0
	MON0
	MON0

WEEKLST,DAY1
	DAY2
	DAY3
	DAY4
	DAY5
	DAY6
	DAY7

MSGLST,	BADVMS		/0
	LOVMES		/1
	SUP		/2
	SQWARN		/3
	RENMES		/4
	MOVMES		/5
	KILMES		/6
	.NOLIST BE
	.ENABLE ASCII
.IF NDF GERMAN <
SYSER,	TEXT	\#I/O Error on SYS:\
BADNUM,	TEXT	/#Bad number/
BADSTR,	TEXT	/#Illegal * or ?/
TOOMAN,	TEXT	/#Too many files/
SWNF,	TEXT	/ Option is unknown/
BADOPT,	TEXT	/#Illegal Switch option/
NF,	TEXT	/ not found/
DNE,	TEXT	/ does not exist/
CONTRA,	TEXT	/#Contradictory Switches/
BADSYN,	TEXT	/#Illegal syntax/
BADSW,	TEXT	/#Switch not allowed here/
BADSW2,	TEXT	/#Illegal CCL Switch/
BADX,	TEXT	/#Illegal extension/
BADEV,	TEXT	/#Bad device name/
AMBIGY,	TEXT	/ Option ambiguous/
OVFLOW,	TEXT	/#Command line overflow/
ATIO,	TEXT	/#Bad filename or error reading indirect file/
SEMSG1,	TEXT	/#CCBTCH Enter error/
SEMSG3,	TEXT	/#Device full/
SEMSG4,	TEXT	/#CCBTCH Close error/
NONE,	TEXT	/ Undefined Date/
REMBAD,	TEXT	\#I/O error trying to recall\
BADREM,	TEXT	/#No recollection/
BADMON,	TEXT	/#Bad Monitor/
ERRCMD,	TEXT	/#Error in command/
TOOLNG,	TEXT	/#Command is too long/
VMES,	TEXT	\OS/8 Monitor V40 - CCL V4A \
	LOC78=VMES+2
	VLOC=VMES+16
	*.-4
	CCLNUM
	CCLVER
	CCLTAB
MULSWI,	*.+1
MMES,	TEXT	\- Multi-8 V7A - Terminal :X / Background :X\
	MULLOC=MMES+13
	TERLOC=MMES+32
	BACLOC=MMES+52
M8MES,	TEXT	\#Only under Multi8\
CHANER,	TEXT	/#All channels used/
	>
.IF DF GERMAN <
SYSER,	TEXT	\#L/S-Fehler auf SYS:\
BADNUM,	TEXT	/#Schlechte Zahl/
BADSTR,	TEXT	/# * oder ? unzulaessig/
TOOMAN,	TEXT	/#Zu viele Dateien/
SWNF,	TEXT	/ Auswahl ist unbekannt/
BADOPT,	TEXT	/#Auswahl ist falsch/
NF,	TEXT	/ nicht gefunden/
DNE,	TEXT	/: gibt es nicht/
CONTRA,	TEXT	/#Widersprechende Auswahl/
BADSYN,	TEXT	/#Was soll das ??/
BADSW,	TEXT	/#CCL-Auswahl missbraucht/
BADSW2,	TEXT	/#Unerlaubte CCL-Auswahl/
BADX,	TEXT	/#Zusatz ist falsch/
BADEV,	TEXT	/#Geraetename ist falsch/
AMBIGY,	TEXT	/ Auswahl ist mehrdeutig/
OVFLOW,	TEXT	/#Befehlszeile ist voll/
ATIO,	TEXT	/#Fehler im indirekten @-Befehl/
SEMSG1,	TEXT	/#CCBTCH Enter-Fehler/
SEMSG3,	TEXT	/#Geraet ist voll/
SEMSG4,	TEXT	/#CCBTCH Eintragunsfehler/
NONE,	TEXT	/%Kein Datum!!/
REMBAD,	TEXT	\#Erinnerungs-L/S-Fehler\
BADREM,	TEXT	/#Keine Erinnerung/
BADMON,	TEXT	/#Schlechter Monitor/
ERRCMD,	TEXT	/#Befehlsfehler/
TOOLNG,	TEXT	/#Zu langer Befehl/
VMES,	TEXT	\OS/8 Monitor V40 - CCL V4A \
	LOC78=VMES+2
	VLOC=VMES+16
	*.-4
	CCLNUM
	CCLVER
	CCLTAB
MULSWI,	*.+1
MMES,	TEXT	\- Multi-8 V7A - Terminal :X  /  Bereich  :X\
	MULLOC=MMES+13
	TERLOC=MMES+32
	BACLOC=MMES+52
M8MES,	TEXT	\#Nur fuer Multi8\
CHANER,	TEXT	/#Alle Kanaele besetzt/
	>
.IF NDF GERMAN <
BADVMS,	TEXT	/ overlay and CCL incompatible/
LOVMES,	TEXT	/not WAR?/
SUP,	TEXT	/%Superseding/
SQWARN,	TEXT	/%Batch squishing SYS:!/
RENMES,	TEXT	/Files renamed:/
MOVMES,	TEXT	/Files copied:/
KILMES,	TEXT	/Files deleted:/
	>
.IF DF GERMAN <
BADVMS,	TEXT	/ overlay und CCL nicht kompatibel/
LOVMES,	TEXT	/not WAR?/
SUP,	TEXT	/%Datei ueberschreiben?/
SQWARN,	TEXT	/%Batch verdichtet SYS:!/
RENMES,	TEXT	/Umbenannte Dateien:/
MOVMES,	TEXT	/Kopierte Dateien:/
KILMES,	TEXT	/Geloeschte Dateien:/
	>
	.DISABLE FILL
.IF NDF GERMAN <
MON0,	TEXT	/Quintilis_/
MON1,	TEXT	/January_/
MON2,	TEXT	/February_/
MON3,	TEXT	/March_/
MON4,	TEXT	/April_/
MON5,	TEXT	/May_/
MON6,	TEXT	/June_/
MON7,	TEXT	/July_/
MON8,	TEXT	/August_/
MON9,	TEXT	/September_/
MON10,	TEXT	/October_/
MON11,	TEXT	/November_/
MON12,	TEXT	/December_/

DAY1,	TEXT	/Saturday_/
DAY2,	TEXT	/Sunday_/
DAY3,	TEXT	/Monday_/
DAY4,	TEXT	/Tuesday_/
DAY5,	TEXT	/Wednesday_/
DAY6,	TEXT	/Thursday_/
DAY7,	TEXT	/Friday_/
	>
.IF DF GERMAN <
MON0,	TEXT	/Quintilis_/
MON1,	TEXT	/Januar_/
MON2,	TEXT	/Februar_/
MON3,	TEXT	/Maerz_/
MON4,	TEXT	/April_/
MON5,	TEXT	/Mai_/
MON6,	TEXT	/Juni_/
MON7,	TEXT	/Juli_/
MON8,	TEXT	/August_/
MON9,	TEXT	/September_/
MON10,	TEXT	/Oktober_/
MON11,	TEXT	/November_/
MON12,	TEXT	/Dezember_/

DAY1,	TEXT	/Samstag_/
DAY2,	TEXT	/Sonntag_/
DAY3,	TEXT	/Montag_/
DAY4,	TEXT	/Dienstag_/
DAY5,	TEXT	/Mittwoch_/
DAY6,	TEXT	/Donnerstag_/
DAY7,	TEXT	/Freitag_/
	>
	.ENABLE FILL