PROCEDURE CHAINP,GLOBAL ; This routine will chain onto SUPMAC.SAV from ; SUPDIR.SAV which is the preprocessor for the ; supermac compiler. ISTR contains the name of ; the final output file from supdir. .MCALL .CHAIN LET R1 := #500 ; Set up chain and LET R2 := #PROG ; get device name and program name .REPT 4 LET (1)+ := (2)+ ; Move in device and program name .ENDR PROBE (R5)+ LET R3 := (R5)+ ; Address of input string LET R4 := #BUF REPEAT LETB (4)+ := (3) UNTILB (R3)+ IS #0 ; Shovel over..... LET R4 := #BUF ; Address of device and program name.. LET R2 := #4 ; Counter THRU R2 DO LETB R3 := (4)+ ; Copy over LET R3 := R3 * #50 ; each byte and LETB R0 := (4)+ ; make it in terms LET R3 := R3 + R0 ; of a RADIX LET R3 := R3 * #50 ; storage facility LETB R0 := (4)+ LET R3 := R3 + R0 LET (R1)+ := R3 ; store the result END .CHAIN ; Chain to program PROG: .RAD50 /SY / .RAD50 /TCHAIN/ .RAD50 /SAV/ ; Stuff needed!! BUF: .BLKB 13. .END