PROCEDURE CHAINT,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 .getcor = emt + 366 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.. REPEAT LETB (1)+ := (4) UNTILB (4)+ IS #0 LET R0 := #24. ;ASK FOR 24 KW OF CORE .getcor on.error halt fi .CHAIN ; Chain to program PROG: .RAD50 /SY / .RAD50 /SUPTST/ .RAD50 /SAV/ ; Stuff needed!! BUF: .BLKB 13. .END