Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/exit.mac
There is 1 other file named exit.mac in the archive. Click here to see a list.
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;