File: CCLSB3.MA of Tape: OS8/OS8-V40/v40-6

(Source file text) 

---

/CCL SUBROUTINES 3 FOR KBM V40
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
/		 AND 1979 BY DATAPLAN GMBH
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/

/	CCL SUBROUTINES PART 3
/	VERSION=4A

	.ENTRY OPNSUB,CLOSUB,LGISUB,LGOSUB
	.EXTERNAL LOOK,CHAIN,ERROR,PRINT,LEAVE

	.NOLIST
	.INCLUDE OUT:CCLDEF.MA
	.LIST

	.RSECT CCLSB3
	FIELD 1

OPNSUB,	0
	JMS	M8CHK
	JMP I	OPNSUB

CLOSUB,	0
	JMS	M8CHK
	JMP I	CLOSUB

LGISUB,	0
	JMS	M8CHK
	JMP I	LGISUB

LGOSUB,	0
	JMS	M8CHK
	JMP I	LGOSUB

M8CHK,	0
	SM8		/IS MULTI8 ENABLED?
	JMS I	(ERROR
	27.
	CLA
	JMP I	M8CHK

	PAGE

---