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;