home *** CD-ROM | disk | FTP | other *** search
- ; REGRS.SUB ... Compile, link and go for REGRS1 and REGRS2
- A:F80 =B:REGRS1
- A:F80 =B:MATSUB
- A:F80 =B:PRBSUB
- A:F80 =B:REGRS2
- A:L80 B:REGRS1,B:MATSUB,B:PRBSUB,A:FORLIB/S,B:REG1/N/E
- A:L80 B:REGRS2,A:FORLIB/S,B:REG2/N/E
- XSUB
- B:
- ERA FORT10.DAT
- ; Execute REG1 & REG2 for B:TEST1.DAT
- A:PIP FORT06.DAT=TEST1.DAT
- REG1
- 6
- REG2
-