PROGRAM ALCRFD, 7.0C(25)

!			==================================================
!			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
!

MAP1 JOBNAM,S,6
MAP1 JOBNUM,B,1
MAP1 RFD,S,10
MAP1 FOUND,F
MAP1 I,F
MAP1 L,F,6,6

	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]!


			DSK0:ABSC.DO[2,2]
			DSK0:ABSCB.DO[2,2]
			DSK0:ABUSC.DO[2,2]
			DSK0:ABRC.DO[2,2]
			DSK0:ABRCB.DO[2,2]
			DSK0:ABURP.DO[2,2]


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 *