SCFDESC

(GIN Macro)

Defined in: SCFMACROS

Used in:

SCFDESC.mac.txt

 0000    [??? SCFDESC SECT FILE FGN 15 DOC   
 2?QG    #MAC SCFDESC
 2#=6    [     DEFINE THE SCF
 2#PQ    [     %A = NAME 
 2*9B    [     %B = TYPE (6,9,13,25) 
 2*P2    [     %C = CSN OF DISC IF GIVEN 
 2B8L    #FRL
 2BN=    #DEF 19?+2=1?   
 2C7W    #LIS 0  
 2CMG    #DEF 19?+1=0
 2D76    #DEF 19?+3=33?  
 2DBY ...#ALT  K98BRADDATA=K96BRADDATA   
 2DLQ    #MEN BRADSPLT   
 2F6B    #STR %A 
 2FL2    (   
 2G5L    #TRA K98BRADSPLT
 2GK=                  12H%A             [SET THE FILE NAME  
 2J46    #TRA K98BRADSPLT+4  
 2J?Y ...#STR  %C
 2JHQ                  #%C               [SET THE DISC CSN IF GIVEN  
 2JRJ ...#STR  %C
 2K3B ...#SKI
 2K?8 ...      +0
 2KH2    #STR 6,%B   
 2L2L    #SKI
 2LG=    (   
 2L^W    #TRA K98BRADSPLT+3  
 2MFG                   +0   
 2M^6    #FID 0,5,%B                     [SET TYPE 6 
 2NDQ    #END
 2NYB    #MEN BRADDATA   
 2PD2    #EXI
 2PXL    )   
 2QC=    #STR 9,%B   
 2QWW    #SKI
 2RBG    (   
 2RW6    #TRA K98BRADSPLT+3  
 2S*Q                  +0
 2STB    #FID 0,5,%B                     [SET TYPE 9 
 2T*2    #END
 2TSL    #MEN BRADDATA   
 2W#=    #EXI
 2WRW    )   
 2X?G    #STR 13,%B  
 2XR6    #SKI
 2Y=Q    (   
 2YQB    #TRA K98BRADSPLT+3  
 2^=2                  +0
 2^PL    #FID 0,5,%B                     [SET TYPE 13
 329=    #END
 32NW    #MEN BRADDATA   
 338G    #EXI
 33N6    )   
 347Q    #STR 25,%B  
 34MB    #SKI
 3572    (   
 35LL    #TRA K98BRADSPLT+3  
 366=                  +0
 36KW    #FID 0,5,%B                     [SET TYPE 26
 375G    #END
 37K6    #MEN BRADDATA   
 384Q    #EXI
 38JB    )   
 3942    ! INVALID DEVICE TYPE ! 
 39HL    #END
 3=3=    #MEN BRADDATA   
 3=GW    #EXI
 3?2G    )   
 3?G6    #END
 3?^Q    #MEN BRADDATA   
 3#FB    #NOR