.TITLE DLBCOM DSKLIB COMMAND STRING PASSER ;Copyright (C) 1979, Berez Associates ; ; Modified by RWB to be more modern. ; 18-July-1986 .ENABL LC .MCALL .CHAIN,.GTLIN START: MOV #PRGNAM,R0 MOV #500,R1 MOV #4,R2 1$: MOV (R0)+,(R1)+ SOB R2,1$ ; .GTLIN #510,#PSTRNG .CHAIN PSTRNG: .ASCII /DSKLIB command string: / .BYTE 200 .EVEN ; PRGNAM: .RAD50 /SY DSKLIBSAV/ ;CHANGE IF DSKLIB NAME DIFFERENT .END START