Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/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;