Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,ZYLEXI);
PROCEDURE exit(n); INTEGER n;
COMMENT
n=0: Exit to monitor immediately (^C interrupt).
n=1: Normal exit from SIMULA program, with closing message.
n=2: Enter debug mode.
Other values of n are reserved for extensions.
;

!*;! MACRO-10 code !*;!

	TITLE	exit
	ENTRY	ZYLEXI
	SUBTTL	SIMULA utility, Lars Enderin Aug 1976

;!*** Copyright 1976 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	n==XWAC1

ZYLEXI:	PROC
	IF	;! n=0
		JUMPN n,FALSE
	THEN	;! Immediate exit (may be continued)
		CALLI	1,12
	ELSE
	IF	;! n=1
		CAIE	n,1
		GOTO	FALSE
	THEN	;! Normal exit
		BRANCH	OCEP
	ELSE
	IF	;! n=2
		CAIE	n,2
		GOTO	FALSE
	THEN	;! Load SIMDDT, enter debug mode
		RTSERR	QDSCON,212
	FI	FI	FI
	RETURN
	EPROC
	LIT
	END;