!	README.GAM
!
!
!
!		PROGRAMS SUPPLIED TO PUBLIC DOMAIN FROM SCGH
!
!		PROGRAMMER	G. GUELFI
!
!		FROM		SIR CHARLES GAIRDNER HOSPITAL
!				VERDUN STREET
!				NEDLANDS W.A. 6009
!				AUSTRALIA
!
!				02 - 3892322
!
!
!
!
!		TO BUILD PROGRAMS USING VIRTUAL ARRAYS CONCURRENTLY WITH 
!		FGAMMA BOTH FGAMMA AND THE FORTRAN OBJECT LIBRARY MUST BE MODIFIED
!		AS SPECIFIED BY B. HUTTON RPAH SYDNEY AUSTRALIA .
!		SEE COMAND FILE	FORPAT.COM FOR PATCH DETAILS
!
!
!		IN THE LINK COMMAND FILES FORTRAN LIBRARY IS CALLED SYSLIB.80K
!		WHICH INCLUDES FORTRAN OBJECT AND THE SYSLIB SUPPORT .
!
!
!		DETAILS OF SUPPLIED PROGRAMS CAN BE OBTAINED FROM QE2MOV.COM
!
!
!		THE FILE QE2DOC.DOC CONTAINS OPERATIONAL DETAILS OF THE SUPPLIED
!		PROGRAMS .
!
!
!
!********************************************************************************
!
!		SPECIAL NOTE FOR THE SUBROUTINES FILERD.FOR AND OPNFIL.FOR
!
!		FILERD
!			EXAMINES THE DEVICE SY1 OR SY0 OR BOTH
!			AND PRODUCES A LIST OF THE FILES OF THE SPECIFIED EXT
!			IN REVERSE ORDER IE LAST ON DISK IS FIRST ON LIST
!			FROM WHICH THE OPERATOR CAN CHOSE THE FILE BY NUMBER .
!
!		OPNFIL
!			CAN ACCEPT THE 39 WORD ARRAY FROM FILERD AND OPEN
!			THE APPROPRIATE FILE . IF NO NUMBER IS CHOOSEN
!			OPNFIL PROMPTS FOR ICSI INPUT AND THE
!			LOOKUP IS PERFORMED ON THE 39 WORD ARRAY .
!
!******************************************************************************
!
!
!
!	ASSIGNMENTS TO RUN PROGRAMS AFTER LINKING
!
!
!
!	ASS ?? HRT	DISK FOR SAV MODULES
!	ASS ?? SVA	DISK FOR GAMMA TO STORE SSAVE AREAS
!	ASS ?? SY0	DISK FOR BGAMMA TO WRITE SAVE AREAS
!	ASS ?? GAM	DISK GAMMA STORES PLAYBACKS
!	ASS ?? 6	HARD COPY DEVICE - IE TT OR LP
!
!
!
!
!************************************************************************************************
!
!	CURVE.SAV
!
!
!
!	7-JUN-84
!
!	MODIFIED CURVE
!
!		(1) PT AND PR PRINT GRAPHS TO REP ( I.E. LOGICAL UNIT 6)
!
!		(2) MC , ME , MR AND MP ALL NOW REFERENCE DEFAULT DISK SY0:
!		    PREVIOUSLY REFERENCE WAS TO DK:
!
!  		    ME NOW PRODUCES BACKUP FILE ?????.BAK .
!
!		(3) ROUTINE SMOOTH.FOR RENAMED TO SMTHCV.FOR - 2 ROUTINES NAMED
!		    SMOOTH.FOR ON DEC DISTRIBUTION DISK .
!
!		(4) MACRO'S IN CURVE NOW SAVE REGISTERS .
!
!		(5) MACRO VSVM AND VSVW TRANSMITTED DATA USING REGISTERS R1 AND R2
!		    NOW "R2" DATA IS STORED IN NPGE AND R1 IS CLEARED ON RETURN
!		    TO VSVM .
!
!		(6) F4ROOT RELOCATED TO ROOT SEGMENT - PREVIOUSLY LOCATED IN 
!		    OVERLAY 1 .
!
!
!
!
!		TO BUILD CURVE
!
!			ASS XXX SRC
!			ASS XXX OBJ
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@SRC:CURBLD
!
!	ALSO SEE
!			CHAPTER 18 GAMMA APPLICATION USER GUIDE VOL 2
!
!
!**************************************************************************************************
!
!
!	GAMKED AND CURKED
!
!
!
!	7-JUN-84
!
!		1) DETECTED ERROR IN RADCO.FOR (QEII PROGRAM ERROR)
!
!		2) TRIM AND SCOPY IN ORGINAL CURKED PRODUCED ARRAY OVERFLOW
!		   AND RANDOM RESULTS IN PROGRAMS EXECUTION .
!
!		3) TEMPORARY FILE IS NOW CALLED GAMKEC.COM OR CURKEC.COM
!		   TO PROTECT BUILD FILE GAMKE1.COM AND CURKE1.COM .
!
!
!	MODIFIED
!
!		(1) BOTH GAMKED AND CURKED HAD A MIXTURE OF REFERENCES
!		    TO SY0: AND DK: . NOW ALL DEFAULT REFERENCES ARE
!		    MADE TO SY0:
!
!		    I.E.   TST   IS EQUIVALENCE TO  SY0:TST.GMC
!
!		    WHILE  DL3:TST.GMC IS ALSO VALID .
!
!
!
!
!
!
!
!		TO BUILD GAMKED AND CURKED
!
!			ASS XXX INP
!			ASS XXX OUP
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@INP:EDTBLD
!
!
!
!************************************************************************************************
!
!
!
!
!	PHASE ANALYSIS
!
!
!	12-JUL-85
!
!		1) MODIFIED TO PROCESS BOTH WORD/BYTE GATED HEART STUDIES
!		PRODUCE VIA COMPRESSING GATED STUDIES . (SEE CMPMOV)
!
!
!
!	7-JUN-84
!
!	     1) TWO VERSIONS OF PHASE ANALYSIS PROGRAMS NOW AVAILABLE
!
!		MR FOUR	STILL RUNS MANUAL PROCESS
!
!		MR FOURS	STORES DATA IN SVAR30 - 59
!
!		MR FOURA	AUTOMATICALLY PROCESSES SVAR30 - 59
!		N.B.		FOURS REQUIRES INCSNM TO BE BUILT
!				AND FOURA REQUIRES FIXN0I TO BE BUILT
!		IE	USE 	INCBLD AND FIXBLD
!
!	     2) THE TEMPORARY FILE PROCES.X00 IS CREATED ONLY IF IT IS NOT ON THE 
!	        WHICH PREVENTS EMPTY SPACES DEVELOPING ON THE DISK .
!
!
!
!	CORRECTED
!		RANDOM ARITHMETIC ERRORS WHICH WERE GENERATED
!		WHEN "CHAINED" DATA WAS OVERWRITTEN ON STACK -
!		WHEN FGAMMA WAS ACTIVE .
!
!	  ALSO - AUTO DROP OFF SELECTION
!		AND PLAYBACK CREATION FOR MR JOIN (P1-P4)
!		COMPILE PROGRAMS SPAMS4 AND PBCRT WITH /D TO
!		CHOOSE SY DEVICE ON WHICH TO CREATE STATIC AND PLAYBACK
!		CREATED STUDIES HAVE TITLES PHASE DP-SMH AND PHASE STATIC
!
COPY SY:DEVPHA.COM DST:*.*
!
!
!	FOUR.GMC
!
!		FOUR MACRO FOR PHASE ANALYSIS
!		PHASE DISPLAYS STATIC AT END OF MR FOUR
!
!
!
!		TO BUILD PHASE PROGRAMS
!
!			ASS XXX IN
!			ASS XXX OUT
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@IN:PHABLD
!
!		THEN	SEE INCBLD AND FIXBLD
!
!
!
!
!**************************************************************************************************
!
!
!
!	7-JUN-84
!
!	FIXSN0!!N
!		USED TO AUTOMATE PLAYBACK PRODUCTION IN GSASMH.GMC AND GSASM3.GMC
!
!		MOVES STUDY IN SVARNN INTO SVAR00 SO GAMMA
!		CAN CONTINUE MACRO ANALYSIS ON NEXT STUDY .
!
!
!	FIXN0I!!N,N+M
!
!			USED IN FOURA TO MOVE SAVE AREA N INTO ZERO AND MOVE
!			ROI'S TO GAMMAM.SYS . SAVE 19 IS USED TO TEST IF
!			LAST STUDY IS REACHED OR PROCESS TO N+M
!
!
!
!
!		TO BUILD FIXSN0!!N AND FIXN0I!!N,N+M
!
!
!
!			ASS XXX SRC
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@SRC:FIXBLD
!
!
!
!******************************************************************************
!
!
!
!
!	GSASMH
!
!	12-JUL-85
!
!		MODIFIED TO SMOOTH WORD/BYTE GATED STUDIES
!
!
!		PERFORMS TEMPORAL SMOOTH ON STUDY ADDRESSED BY SVAR00
!		AND THEN LOADS NEW STUDY TITLE INTO SVAR00 SO GAMMA CAN 
!		CREATE PLAYBACK ON SMOOTHED STUDY
!
!
!
!		TO BUILD GSASMH.SAV
!
!			ASS XXX SRC
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@SRC:GSABLD
!
!
!
!
!	GSA*.GMC , SMH*.GMC
!
!	MACRO FOR PRODUCING TEMPORAL SMOOTHED STUDIES AND P/BACKS P1-P4
!	FOR MR JOIN WHICH PRODUCES GSACOM
!
!		GSASM3	(3 STUDIES LAO RAO LLAT + PHASE IN P1)
!		GSASME  (3 EXERCISE STUDIES)
!		GSASMH  (STUDIES TREATED INDIVIDUALLY UP TO 4)
!
!
!
!
!
!
!*************************************************************************************************
!
!
!
!
!	INCSMN ANS INCSAN
!
!
!		USED IN FOURS TO INCREMENT SAVE AREA NUMBER AFTER
!		ROI'S AFTER BEEN DRAWN .
!
!
!
!
!
!
!		TO BUILD INCSMN AND INCSAN
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:INCBLD
!
!
!
!
!**************************************************************************************************
!
!
!
!
!	SVARJN
!
!
!	   7-JUN-84
!
!		TO CREATE A STATIC FROM 64*64 MATRICES SOTRED IN CONSEQUETIVE
!		SAVE AREAS . THE NUMBER OF SAVE AREAS ARE REQUESTED WHEN
!		PROGRAM IS RUN AND THE HEADER FOR EACH FRAME IS EXTRATCED
!		FROM THE ORGINAL STUDY .
!
!
!
!
!
!
!		TO BUILD SJNBLD
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:SJNBLD
!
!
!
!
!**************************************************************************************************
!
!
!
!	RNMGSA
!		ALLOWS GSACOM.GPB TO BE RENAMED USING ICSI FROM SYSLIB
!		USING ONLY THE FIRST SIX CHARACTERS OF THE FILE SPEC .
!		IE AA0405
!		RENAMED GSACOM.GPB TO AA0405.GPB
!		THIS PROGRAM IS CALLED IN MR JOIN
!		ALSO FULL FILE SPEC IS AVAILABLE
!			IE SY2:P2.GPB=SY0:TESTRT.GPB
!
!
!
!
!		TO BUILD RNMGSA.SAV
!
!			ASS XXX SRC
!			ASS NL  MAP	IF MAP'S NOT REQD
!
!
!		THEN
!			@SRC:RNMBLD
!
!
!
!
!*************************************************************************************************
!
!
!
!
!	CMPRSS
!
!	12-JUL-85
!
!
!		THE COMPRESSION PROGRAM HAS TWO TYPES OF OPERATION .
!
!		1) FIRSTLY , A DISK TO DISK COMPRESSION CAN BE PERFORMED
!		ALL STUDIES ARE TRANSFERRED SEQUENTIALLY AND WHEN A WORD STUDY
!		IS FOUND THAT CAN BE COMPRESSED , IT IS COMPRESSED DURING TRANSFER
!
!		2) THE SAME DISK COMPRESSION PRODUCES A LIST OF STUDIES WHICH
!		CAN BE COMPRESSED WHILE STATICS , LIST AND DYNAMICS
!		WITH ONLY BYTE DATA ARE IGNORED . THIS LIST IS SORTED AND
!		THE SMALLEST STUDIES ARE COMPRESSED FIRST . THE COMPRESSED FILE
!		IS STORED IN A TEMPORARY FILE ON HRT: , THEN THE ORIGINAL
!		FILE IS DELETED FORM THE SOURCE  DISK AND THE THEN COMPRESSED
!		FILE IS COPIED TO SOURCE DISK .
!
!		3) ANOTHER USEFUL FEATURE IS THAT THIS PROGRAM DETECT GAMMA
!		STUDIES IN THE GAMMA MAGTAPE FORMAT ??????.001 , ??????.002
!		, COMPRESS THE STUDY AND PRODUCE THE *.X* FORMAT SO BGAMMA
!		CAN DETECT THE STUDIES .
!
!
!
!
!
!
!
!
!
!
!		TO BUILD CMPRSS
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:CMPBLD
!
!
!
!
!**************************************************************************************************
!
!
!
!	EXP
!
!	12-JUL-85
!
!		SOME ANALYSIS PROGRAMS CAN ONLY READ WORD FORMAT STUDIES .
!		TO COPE WITH THIS SITUATION EXP WAS WRITTEN TO EXPAND BYTE
!		STUDIES STORED IN SAVE AREA ZERO INTO A WORD STUDY AND
!		AUTOMATICALLY LOAD THE NEW STUDY INTO SAVE AREA ZERO , SO WHEN THE MACRO 
!		CONTINUES IT OPERATES ON THE WORD STUDY . TO INDICATE WHICH
!		WORD STUDIES HAVE BEEN CREATED  THE LAST THREE LETTERS IN THE ORGAN FIELD
!		ARE CHANGED TO SPACE EX .
!
!
!
!
!
!
!
!
!		TO BUILD EXP
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:EXPBLD
!
!
!
!
!*************************************************************************************************
!
!
!
!
!	REDUCE
!
!
!	12-JUL-85
!
!		REDUCES WORD STUDY IN SAVE AREA ZERO TO BYTE COLLECTION IF POSSIBLE
!		BUT USES SAME NAME IE NEW STUDY NOT CREATED
!
!
!
!
!
!
!
!
!		TO BUILD REDUCE
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:REDBLD
!
!
!
!
!*************************************************************************************************
!
!
!
!
!	ERRMOV
!
!	12-JUL-85
!
!		A METHOD OF USAGE HAS BEEN DEVELOPED FOR SYSTEM LIBRARY CALLS
!		WHICH CHECKS THE RETURNED FUNCTION CODE , DECIDES WHETHER THE
!		THE CODE IS "FATAL OR NOT" AND THEN GENERATES A TRACE BACK ON 
!		ABORTION IF REQUIRED
!
!		SEE SAVOP.NEW FOR EXAMPLE ON USE
!
!		LOKERR
!		RDERR
!		WRTERR
!		ENTERR
!
!
!
!
!
!
!
!		TO COMPILE SUBROUTINES AND STORE IN GENLIB
!
!
!			ASS XXX SRC
!			ASS NL  MAP		IF MAP'S NOT REQD
!
!		THEN
!
!			@SRC:ERRBLD
!
!
!
!
!**************************************************************************************************
