! ==================================================
! For immediate attention of METROPOLIS users
! of RFMT.SBR with [673-703-243-454] hash code.
! ==================================================
!
!Author.........: Jalal Raissi
!Date...........: 05/14/89
!Purpose........: Another solution to *.RFD problem via allocating it
! with 100 blocks before running FMT or RPT programs.
!
!Another solution: A direct patch to RFMT.SBR solves the problem by
! allocating JOBNAM.RFD as 100 blocks. It is listed
! on AMUS bulletin board under CATEGORY=ALPHABASE.
! Here is a copy:
!
! PATCH FILE: ;PATFMT.M68[12,0]
! COPY PATCH
! OHASH 673,703,243,454
! NHASH 051,732,002,136
!
! .=500
!
! MOV #144,40(A5)
!
! END
!
! AMOS COMMAND: .PATCH FMT.SBR WITH PATFMT
!
XCALL GETJOB,JOBNAM,JOBNUM ! ALPHA BASE SUBROUTINE
FOR I=1 TO 6 ! GETJOB DOES NOT STRIP
IF JOBNAM[I;1]=" ": L=I-1: I=6 ! JOBNAM HENCE WE HAVE
NEXT I ! TO DO THIS. NOTICE
! STRIP.SBR WILL ALSO
! DO THE JOB AS FOLLOWS:
! XCALL STRIP,JOBNAM
! RFD=JOBNAM+".RFD"
RFD=JOBNAM[1,L]+".RFD" ! ALPHA BASE TEMP FILE
LOOKUP RFD,FOUND ! IS IT THERE?
IF FOUND#0 KILL RFD ! IF IT EXISTS ERASE IT
ALLOCATE RFD,100 ! ALLOCATE IT 100 BLOCKS
END ! END OF THIS PROGRAM
------------------------------------------------------------------------
end of ALCRFD program
________________________________________________________________________
Additional notes:
You need to take the following Alpha Base (Metropolis) DO files and insert
a line immediately before RUN DSK0:FMT[12,0] or RUN DSK0:RPT[12,0]!
The following is an example of how this insertion is done to ABSC.DO file:
;ABSC.DO
:S
l ,10
XY L25
:< F O R M A T S C R E E N G E N E R A T O R
>
:<
>
:R
:< loading Modules >
:S
del *
FETCH DSK0:FFBUF.SBR[12,1]
FETCH DSK0:FMT.SBR[12,1]
FETCH DSK0:FMTA.SBR[12,1]
FETCH DSK0:FLDDIC.SBR[11,1]
:R
RUN ALCRFD ; <---- I N S E R T I O N ----
RUN DSK0:FMT[12,0]
$0
0
:S
DEL FLDDIC.SBR
:R
RUN DSK0:FMT2[12,0]
:R
DEL *
