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