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