*COMDECK,DEFAULT
  
*DEFAULT. THE FOLLOWING OPEN SUBROUTINE SUPPLIES DEFAULT VALUES 
*         (TABLE DEFAULT) TO THE PARAMETER LIST (PARAM) AT RA+70
* 
          SA1    64B
          SB1    X1 
          MX0    42 
GRUNCH    SA1    B1+1 
          BX6    X0*X1
          SA6    A1 
          SB1    B1-1 
          PL     B1,GRUNCH         WIPE OUT ALL GARBAGE 
          SB2    NDFLT             LENGTH, TABLE DEFAULT
          SA1    64B
          SB1    X1                PARAMETER COUNT
DFLT1     GE     B1,B2,DFLT2
          SA2    B1+DEFAULT 
          BX6    X2 
          SA6    B1+PARAM          DEFAULT VALUE TO PARAMETER LIST
          SB1    B1+1 
          EQ     DFLT1
DFLT2     EQ     B2,B0,DFLTOUT
          SB2    B2-1 
          SA1    B2+PARAM 
          NZ     X1,DFLT2          TEST FOR NULL PARAMETER
          SA2    B2+DEFAULT        NULL FOUND 
          BX6    X2 
          SA6    B2+PARAM          DEFAULT VALUE TO PARAMETER LIST
          EQ     DFLT2
DFLTOUT   BSS    0
* 
*DEFAULT. END 
  
