.TITLE	CALLI
	.IDENT	/000007/

; COPYRIGHT (C) 1974, 1975, 1976
; BY	DIGITAL EQUIPMENT CORPORATION
;	146 MAIN STREET
;	MAYNARD, MASS.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ON A  SINGLE
; COMPUTER SYSTEM  AND MAY BE COPIED ONLY  WITH THE  INCLUSION OF
; THE ABOVE COPYRIGHT NOTICE.   THIS SOFTWARE OR ANY OTHER COPIES
; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER  PERSON  EXCEPT FOR  USE ON  SUCH SYSTEM  AND TO  ONE WHO
; AGREES TO THESE LICENSE TERMS.   TITLE TO  AND OWNERSHIP OF THE
; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL'S NAME.
;
; THE INFORMATION IN  THIS DOCUMENT IS  SUBJECT TO CHANGE WITHOUT
; NOTICE AND SHOULD NOT  BE CONSTRUED AS  A COMMITMENT BY DIGITAL
; EQUIPMENT CORPORATION.
;
; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY
; OF ITS  SOFTWARE  ON  EQUIPMENT  WHICH IS NOT  SUPPLIED BY DEC.
;
; WRITTEN BY
;
;
; MODIFIED BY
;
; C.J. DORAN
;	SIRA INSTITUTE LTD., SOUTH HILL, CHISLEHURST, KENT, ENGLAND
;
; 3-AUG-79	ADDITION OF MATPAK ROUTINE REFERENCES
; 9-Jul-82	Addition of SYSPAK routine references
;		Add trace option, calling BOMBDD to report line no
;		if TRACE set (by CALL "TRCON"() or CALL "TRCOFF"()).


	.GLOBL	FTABI,BKGI
	.GLOBL	INPROD,MATADD,MATCON,MATCOP,MATIDN,MATINV	;*CJD*
	.GLOBL	MATMUL,MATSCA,MATSUB,MATTRN,MATZER,MULTRA	;*CJD*
	.GLOBL	TRAMUL,SUM					;*CJD*
	.GLOBL	GETADR,SYSTEM,MCR,DCL,CLI			;*CJD*
FTABI:	.WORD	FTBL

FTBL:	.WORD	INPROD,MATADD,MATCON,MATCOP,MATIDN,MATINV	;*CJD*
	.WORD	MATMUL,MATSCA,MATSUB,MATTRN,MATZER,MULTRA	;*CJD*
	.WORD	TRAMUL,SUM					;*CJD*
	.WORD	GETADR,SYSTEM,MCR,DCL,CLI			;*CJD*
	.WORD	TRCON,TRCOFF					;*CJD*
	.WORD	0						;*CJD*
BKGI:	.WORD	0




	.GLOBL	UACTST
UACTST:
	.IFDF	$CALL
	.GLOBL	HIFSAV
	TST	HIFSAV(R5)	;ATTEMPT TO ALLOCATE ARRAY WHILE HIFREE
				; IS MESSED UP
	BEQ	RET		;NO
	.GLOBL	ERRUAC
ERRUAC:	ERTEXT	"UAC",<UNDIMENSIONED ARRAY IN CALL>
RET:
	.ENDC	;$CALL
	RTS	PC


;THE FOLLOWING ROUTINES ARE CALLED FROM WITHIN THE BASIC-11 INTERPRETER
;AND ARE NOT TO BE CALLED FROM ANYWHERE ELSE.
;RETNTR IS CALLED FROM THE RETURN STATEMENT
;XEQNTR IS CALLED BEFORE THE EXECUTION OF EACH STATEMENT.
;RDYNTR IS CALLED AT THE READY MESSAGE.
;BYENTR IS CALLED FROM THE BYE COMMAND.
;THE ENTRY POINTS ARE MADE AVAILABLE SO THAT REAL TIME OPERATIONS MAY
;BE PERFORMED.  THEY ARE DUMMIED OUT HERE WITH AN RTS PC.
;*********************************************************************
;***************THE FOLLOWING ROUTINES ARE FOR USE BY*****************
;**************THE DEC BASIC-11 DEVELOPMENT GROUP ONLY****************
;*********************************************************************
	.GLOBL	RETNTR,XEQNTR,RDYNTR,BYENTR,BOMBDD
XEQNTR:	TST	TRACE		; Trace mode on?		*CJD*
	BEQ	10$		; No, do nothing		*CJD*
	JMP	BOMBDD		; Yes, return, saying where we are *CJD*
10$:
RETNTR:
RDYNTR:
BYENTR:	RTS	PC

; All following are trace routines, added by CJD.

	HEADER	TRCON,TRONST
	HEADER	TRCOFF,TROFST

TRONST:	MOV	(PC)+,%0	; Set %0 <> 0 for trace on
TROFST:	CLR	%0		; 0 for trace off
	MOV	%0,TRACE	; Set trace flag on/off
	RTS	PC		; and return

TRACE:	.WORD	0		; 0=trace off, <>0 = trace on

	.END