Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/boksta.mac
There is 1 other file named boksta.mac in the archive. Click here to see a list.
COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,bokstav);
BOOLEAN PROCEDURE bokstav(c); CHARACTER c;
COMMENT Corresponds to Letter for Swedish letters, i e a-z, },{,`, A-Z, $,#,@.
;

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

	TITLE	bokstav
	ENTRY	bokstav
	SUBTTL	SIMULA utility, Lars Enderin Feb 1977

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


	sall
	search	simmac,simmcr,simrpa
	macinit

bokstav:PROC
	L	(XTAC)
	SETZ	X1,
	IF	;! Possible lower case letter
		CAIGE	"`"
		GOTO	FALSE
	THEN	;! Check other end and }, {
		CAIG	"z"
		SOJA	X1,L9
		CAIE	"}"
		CAIN	"{"
		SOJA	X1,L9
	ELSE	;! Check for upper case
		CAILE	"Z"
		GOTO	L9
		CAIL	"@"
		SOJA	X1,L9
		CAIE	"#"
		CAIN	"$"
		SOJA	X1,L9
	FI
L9():!	ST	X1,(XTAC)
	RETURN
	EPROC
	LIT
	END;