Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBTTL	Create SIMDDn.ABS (n = version number)
	SALL
	SEARCH	SIMRPA,SIMMCR,SIMMAC
	RTITLE SUTABS
	MACINIT

	ENTRY	DDTSAV
	.MAIN=:0
	EXTERN	DSSTAR,%DSVER

Comment;	SUTABS is a utility program to save SIMDDT as a data file
		SIMDDn.ABS (n is version number), which is done via the command:
			EXECUTE SIMDDT.REL,SUTABS.REL
		The order is important since both files contain start addresses.
;

DDTSAV:	PROC
	RESET
	L	X2,DSSTAR+1	;Length of SIMDDn.ABS (words)
	ADD	X2,DSSTAR+1(X2)	; including final text record
	LI	177+2*200(X2)	;Account for RIB's, round upwards
	IDIVI	200		;Blocks
	ST	E+.RBEST	;Estimated length

	MOVNI	(X2)
	HRLM	O
	OPEN	1,D
	 HALT
	LDB [POINT 3,E+.RBVER,11]
	IORM E+.RBNAM
	DPB [POINT 3,repmsg+1,27]
	ENTER	1,E
	 HALT
	OUT	1,O
	 GOTO	L2
	HALT
L2():!	CLOSE	1,
	OUTSTR	repmsg
	EXIT

repmsg:	EXP BYTE (7)QCR,QLF,"[","S","I"
	ASCIZ "MDD0.ABS replaced]
"

D:!	16	;DUMP MODE
	SIXBIT	/DSK/
	Z
E:!	EXP	.RBALC	;.RBCNT
	Z		;.RBPPN
	SIXBIT	/SIMDD4/;.RBNAM
	SIXBIT	/ABS/	;.RBEXT
	Z		;.RBPRV
	Z		;.RBSIZ
	EXP	%DSVER	;.RBVER
	Z		;.RBSPL
	BLOCK	1	;.RBEST
	Z		;.RBALC
O:!	IOWD	0,DSSTAR
	Z
	END	DDTSAV