Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0135/comp/ioneou.mac
There are 2 other files named ioneou.mac in the archive. Click here to see a list.
00100	COMMENT * ioneou, SIMULA specification;
00200	OPTIONS(/E:QUICK,ioneou);
00300	PROCEDURE ioneou(n); INTEGER n;
00400	COMMENT Performs the IONEOU TTCALL (image mode output of a character).
00500	;
00600	
00700	!*;! MACRO-10 code !*;!
00800	
00900		TITLE	ioneou
01000		ENTRY	ioneou
01100		SUBTTL	SIMULA utility, Lars Enderin Dec 1978
01200	
01300	;!*** Copyright 1978 by the Swedish Defence Research Institute. ***
01400	;!*** Copying is allowed.					***
01500	
01600	
01700	
01800	ioneou:	TTCALL 15,3
01900		POPJ 17,
02000		END;