Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/maint/sutabs.mac
There are 2 other files named sutabs.mac in the archive. Click here to see a list.
00100		SUBTTL	Create SIMDDn.ABS (n = version number)
00200		SALL
00300		SEARCH	SIMRPA,SIMMCR,SIMMAC
00400		RTITLE SUTABS
00500		MACINIT
00600	
00700		ENTRY	DDTSAV
00800		.MAIN=:0
00900		EXTERN	DSSTAR,%DSVER
01000	
01100	Comment;	SUTABS is a utility program to save SIMDDT as a data file
01200			SIMDDn.ABS (n is version number), which is done via the command:
01300				EXECUTE SIMDDT.REL,SUTABS.REL
01400			The order is important since both files contain start addresses.
01500	;
01600	
01700	DDTSAV:	PROC
01800		RESET
01900		L	X2,DSSTAR+1	;Length of SIMDDn.ABS (words)
02000		ADD	X2,DSSTAR+1(X2)	; including final text record
02100		LI	177+2*200(X2)	;Account for RIB's, round upwards
02200		IDIVI	200		;Blocks
02300		ST	E+.RBEST	;Estimated length
02400	
02500		MOVNI	(X2)
02600		HRLM	O
02700		OPEN	1,D
02800		 HALT
02900		LDB [POINT 3,E+.RBVER,11]
03000		IORM E+.RBNAM
03100		DPB [POINT 3,repmsg+1,27]
03200		ENTER	1,E
03300		 HALT
03400		OUT	1,O
03500		 GOTO	L2
03600		HALT
03700	L2():!	CLOSE	1,
03800		OUTSTR	repmsg
03900		EXIT
04000	
04100	repmsg:	EXP BYTE (7)QCR,QLF,"[","S","I"
04200		ASCIZ "MDD0.ABS replaced]
04300	"
04400	
04500	D:!	16	;DUMP MODE
04600		SIXBIT	/DSK/
04700		Z
04800	E:!	EXP	.RBALC	;.RBCNT
04900		Z		;.RBPPN
05000		SIXBIT	/SIMDD0/;.RBNAM
05100		SIXBIT	/ABS/	;.RBEXT
05200		Z		;.RBPRV
05300		Z		;.RBSIZ
05400		EXP	%DSVER	;.RBVER
05500		Z		;.RBSPL
05600		BLOCK	1	;.RBEST
05700		Z		;.RBALC
05800	O:!	IOWD	0,DSSTAR
05900		Z
06000		END	DDTSAV