! FDTP1.C0M ! RET/WHW/1523/SNLA 15-DEC-80/23-DEC-80 ! RT-11 SOFTWARE DISPATCH SEPTEMBER 1980. ! RT-11 V3B / V4.0 SEQ 4 M. ! FORTRAN/RT-11 EXTENSIONS V2.1 ! FDT.OBJ ! PROBLEM CALLING SUBROUTINES HAVING NO ARGUMENTS (JG) ! ! NOTE THAT THE FOLLOWING ASSIGNMENTS ARE NOW DONE VIA A CALL ! TO THE EDITED VERSION OF PASSGN.COM PRIOR TO RUNNING ! ANY OF THESE PATCHES. ! ! ASS xxx: SYS: ! OPERATING SYSTEM ! ASS www: WRK: ! WORKING DISK ! ASS yyy: DST: ! BASIC BINARY DISTRIBUTION MEDIA ! ASS zzz: PAT: ! PATCH FILE MEDIA ! ! BEGINNING OF PATCH FDTP1 ! SET ERROR WARNING ! ASSEMBLE THE PATCH FILE MACRO PAT:FDTP1.MAC/OBJ:PAT: ! APPLY THE PATCH TO FDT VIA THE PAT UTILITY COPY DST:FDT.OBJ PAT: RUN SYS:PAT PAT:FDT=PAT:FDT/C:5035,FDTP1 ^C ! ! NOTE THAT HAD THIS PATCH BEEN DONE WITH THE VERSION ! OF PAT.SAV DISTRIBUTED WITH RT-11 V3B THEN ! THE COMMAND LINE TO PAT WOULD HAVE READ ! PAT:FDT=PAT:FDT/C:177565,FDTP1 ! ! NOW COPY THE PATCHED VERSION OF FDT BACK ONTO THE ! WORKING DISK AND THE DISTRIBUTION DISK SET ERROR ERROR COPY/PRE PAT:FDT.OBJ DST: COPY/PRE PAT:FDT.OBJ WRK: DEL/NOQ PAT:(FDT,FDTP1).OBJ SQU/NOQ DST: ! END OF FILE.