Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50463/05/vdccou.mac
There are 2 other files named vdccou.mac in the archive. Click here to see a list.
00100	COMMENT * VDCCOUT, SIMULA specification;
00200	OPTIONS(/E:QUICK,VDCCOUT);
00300	PROCEDURE VDCCOUT;
00400	COMMENT Restores TRMOP settings recorded by latest VDCCIN call.  Code
00500	is  located  in  VDCCIN.MAC  - this module contains the data area and
00600	must be loaded in the low segment, whereas VDCCIN can  be  loaded  in
00700	the high segment.
00800	;
00900	
01000	!*;! MACRO-10 code !*;!
01100	
01200		TITLE	VDCCOUT
01300		ENTRY	VDCCOUT, .VDCCI
01400		SUBTTL	SIMULA utility, Lars Enderin Feb 1979
01500	
01600	;!*** Copyright 1979 by the Swedish Defence Research Institute. ***
01700	;!*** Copying is allowed.					***
01800	
01900	
02000		EXTERN VDCC.O	;! Code found there
02100	
02200	VDCCOUT=VDCC.O	;! Code for procedure is found in VDCCIN.MAC
02300	
02400	.VDCCI: BLOCK 1	;! Saves TRMOP values
02500		BLOCK 4	;! ^C intercept block
02600		BLOCK 3 ;! Arg block for TRMOP.
02700		END;