{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS SJ)}}
====== COMPS SJ ======
(George Source)

**Macros used:** [[george:macro:BITDEFS|BITDEFS]]

<code - COMPS SJ.txt>22FL    #              COMPS SJ MIKE PUTNAM FILESTORE   
22^=    #OPT           JNLOK=0  
23DW    #OPT           JNLOK1=0 
23YG    #OPT           BILASJ=JNLOK1
24D6
24XQ    #OPT           JOURMIN=16   
25CB    #OPT           JSJSIZE=50   
25X2
26BL    #OPT           BFSJ=JNLOK   
26W=    #OPT           BFSJ1=JNLOK  
27*W    #OPT           INCSJ=JNLOK  
27TG    #OPT           JNLCH=BFSJ^INCSJ 
28*6
28SQ    #OPT           BMJ=JNLOK           [BACMAP SJ CODE  
29#B    #OPT           BMSJ=JNLOK          [BM SJ MESSAGES  
29S2    #OPT           JNLPM=JNLOK         [D. RUSBRIDGE
2=?L    #OPT           JNLPM1=JNLOK1
2=R=    #OPT           JNL=JNLOK
2?=W    #OPT           JNL1=JNLOK   
2?QG    #OPT           JNLPACK=JNLOK
2#=6    #OPT           JNLSTART=JNLOK1  
2#PQ    #OPT EMSJNL=0                      [CENTRALISATION OF EMS MESSAGES  
2*9B    #OPT           JNLMS2=JNLOK1
2*P2    #OPT  ARETLO=0  
2B8L    #OPT           JNLPER=JNLOK1
2BN=    #OPT           ALFSJ=JNLOK1 
2C7W    #OPT           JNLENG=JNLOK1
2CMG
2D76    #                                  L BASU   
2DLQ    #              IDENTIFIERS  FOR THE NEW BUDGET EXTRACODES   
2F6B    #OPT           JOURNAL=JNLOK1   
2FL2    #SKI  JOURNAL   
2G5L    (   
2GK=    #OPT  K0BEXTSJ=0
2H4W    #OPT  K6BEXTSJ=K6ALLGEO 
2HJG    )   
2J46    #                                  L BASU   
2JHQ    #              IDENTIFIERS  FOR SJMESS AND EXTRACODES   
2K3B    #OPT           JNLMEXT=JNLOK1   
2KH2    #SKI  JNLMEXT   
2L2L    (   
2LG=    #OPT  K0SJMESS=0
2L^W    #OPT  K0MEXTSJ=0
2MFG    #OPT  K0MEXTSJ=0
2M^6    #OPT  K6SJMESS=K6ALLGEO 
2NDQ    #OPT  K6MEXTSJ=K6ALLGEO 
2NYB    )   
2PD2
2PXL    #              DEFS FOR GMON/JRNAL BLOCK
2QC=    #DEF           JWAITER=A1   
2QWW    #DEF           JRECHEAD1=JWAITER+1  
2RBG    #DEF           JRECHEAD2=JRECHEAD1+1
2RW6    #DEF           JCATS=JRECHEAD2+1
2S*Q    #DEF           JJOBNO=JCATS+1   
2STB    #DEF           JPACKORG=JJOBNO+1
2T*2    #DEF           JMESSAGE=JPACKORG+1  
2TSL
2W#=    #  BIT IDENTIFIERS FOR JSWITCH1 WORD IN JOUNAL ACT BLOCK
2WRW    #   
2X?G ... BITDEFS JSWITCH1,0,BJFILOPEN,BJFILINIT,BJFILREADY,BJFILSWITCH  
2XR6
^^^^ ...22022562002100000000
</code>