. THIS PROCEDURE PRINTS THE NAME OF A CONSTANT FOLLOWED BY ITS            44190
.  CURRENT VALUE)  LIMIT SIX PER LINE.                                    44200
. THE LAST LIST MUST END WITH A PERIOD.                                   44210
. EACH LIST HAS AN ALFABETIC LITERAL AND ITS REFERENCE.                   44220
PALFA*  PROC    0,1 .
        +P(L,1),P(L,2)
        END                                                               44260
P*      PROC    .                                                         442700
PALF*   NAME   1  .
PBLF*   NAME    2  .                                                      442700
        LMJ     B11,N3FX01         . CALL FORTRAN INTERFACE ROUTINE.
        DO      P(0,0)=1 , +(('   ',P-1))    . SINGLE SPACE
        DO      P(0,0)=2 , +(('0  ',P-1))    . DOUBLE SPACE.
        +(($(3)))                  . POINT AT TRUE ARG LIST.
        +0                         . FAKE WALKBACK.
        LMJ     B11,N3FXRS         . RESTORE VOLATILE REGISTERS.
$(3).                              . PLANT TRUE ARG LIST
L       DO      P-1 , PALFA        . (WHICH IS HERE.)
$(1).
        END                                                               44310
XPB*    PROC    1.                                                        44350
.       PARAMETER 1 NAME OF TABLE                                         44360
.       PARAMETER 2 NUMBER OF COLUMN                                      44370
XPBA*   NAME    0                                                         44380
XPBB*   NAME    1                                                         44390
        DO      XPB(0,0)=1 , LA A0,XPB(1,1),0,M                           44400
        DO      XPB(0,0)=1 , AA A0,DUMPI                                  44410
        DO      XPB(0,0)=1 , SA A0,DUMPL                                  44420
        LMJ     B11,N3FX03         . SAVE & LINK TO N3XPB.
        DO      XPB(0,0)=1 , (XPB(1,2),DUMPL)   . (LNG,TAG)
        DO      XPB(0,0)=0 , (XPB(1,2),DUMPI)
        (DUMPI,(XPB(1,1)))     .    INDEX,(BASE))
        +0
        LMJ     B11,N3FXRS         . RESTORE.
        END                                                               44490
XPH2*   PROC    1.                                                        44500
.       PARAMETER 1 NAME OF TABLE BEING DUMPED                            44510
.       PARAMETER 2 LOCATION OF ALFANUMERIC NAME                          44520
        LA,M    A0,XPH2(1,1)                                              44530
        SA      A0,DUMPL                                                  44540
        LMJ     B11,N3FX05         . SAVE & LINK TO N3XPH2.
                (XPH2(1,2),DUMPL)  . NAME,LOC
        +0
        LMJ     B11,N3FXRS         . RESTORE.
        END                                                               44590
XPH1*   PROC    1.                                                        44600
.       PARAMETER 1 LOCATION OF ALFANUMERIC CONSTANT                      44610
        LMJ     B11,N3FX04         . SAVE & LINK TO N3XPH1.
        DO      XPH1(1)=2 , (XPH1(1,2),XPH1(1,1))  . (LNG,LOC)
        DO      XPH1(1)=1 , (2,XPH1(1,1))
        +0
        LMJ     B11,N3FXRS         . RESTORE.
        END                                                               44660
.       THIS PROCEDURE IS TO DETERMINE THE END OF THE DUMPS IN THE ERR    44670
.       ROUTINE                                                           44680
XPT*    PROC    1.                                                        44690
.       PARAMETER 1 LOCATION TO COMPARE AGAINST                           44700
.       PARAMETER 2 AMOUNT TO INCREMENT WITH                              44710
.       PARAMETER 3 EXIT LOCATION                                         44720
.       PARAMETER 4 CONTINUE LOCATION                                     44730
        DO      XPT(1)=5 , LA A1,XPT(1,1),0,H2                            44740
        DO      XPT(1)=5 , TG A1,XPT(1,5),0,M                             44750
        DO      XPT(1)=5 , J *XPT(1,3)                                    44760
        LA      A0,DUMPI                                                  44770
        TG,H2   A0,XPT(1,1)                                               44790
        J       XPT(1,3)                                                  44800
        AA,M    A0,XPT(1,2)  .                                            448010
        SA      A0,DUMPI                                                  44810
        J       XPT(1,4)                                                  44820
        END                                                               44830
. THIS PROCEDURE IS USED TO GENERATE THE TEST INSTRUCTIONS THAT           44840
. ARE PART OF EACH DUMP ROUTINE IN ERR                                    44850
. PARAMETER 1                                                             44860
XDT*    PROC    1.                                                        44870
        J       0                                                         44880
        END                                                               44890
.       THIS PROCEDURE SETS UP THE LINKAGE WITH PSXX                      702500
PSX*    PROC    1,4  .                                                    702600
        LMJ     B11,N3FX02         . CALL FORT INTERFACE ROUTINE.
        +       N3FXAR             . ARG PTR PTR
        LA      A0,PSX(1,1)        . (W.B.) TO BE EXECUTE'D.
        LMJ     B11,N3FXRS         . RESTORE VOLATILES.
        END                                                               703100
.
.       GENERATE A REGISTER SAVE SEQUENCE FOR FORTRAN INTERFACES.
.
FORSV*  PROC    0,3  .
        DS      A0,N3FXSV          . SAVE.
        DS      A2,N3FXSV+2
        DS      A4,N3FXSV+4
        END
. THIS PROCEDURE PRINTS F30, F40 OR F50 BY PRINTING THE
. CONTENTS OF THE BUFFER JUST BEFORE IT GOES/COME TO/FROM DRUM
XPFX*   PROC    .
          L,H2     A0,XPFX(1,1)+6
          A,M      A0,1
        SA      A0,DUMPI
        LA      A0,XPFX(1,4)  .  LAST LOCATION IN BUFFER
        SA      A0,DUMPN  .
XPFXA   LMJ     B11,N3FX03         . SAVE AND LINKL TO N3XPB.
                (6,XPFX(1,2))      . LNG, TAG.
                (DUMPI,(2))        . INDEX, OFFSET.
        +0                         . FAKE WALKBACK.
        LMJ     B11,N3FXRS         . RESTORE.
        LA      A0,DUMPI
        AA,M    A0,6
        SA      A0,DUMPI
        TG,H2   A0,DUMPN
        J       *XPFX(1,3)
        LA      A0,XPFX(1,2)
        A,M     A0,6
        SA      A0,XPFX(1,2)
        J       XPFXA
        END