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