CONSOLE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CONSOLE)}}
====== CONSOLE ======
(GIN Macro)

**Defined in:** [[george:source:MACS_PW|MACS PW]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:INKS|INKS]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSBB|MESSBB]], [[george:source:MESSBD|MESSBD]], [[george:source:MESSBF|MESSBF]], [[george:source:MESSBG|MESSBG]], [[george:source:MESSBI|MESSBI]], [[george:source:MESSBJ|MESSBJ]], [[george:source:MESSC|MESSC]], [[george:source:MESSCA|MESSCA]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCH|MESSCH]], [[george:source:MESSDJ|MESSDJ]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:PMBDTS863|PMBDTS863]], [[george:source:READOPLN867|READOPLN867]], [[george:source:WTSTAT867|WTSTAT867]]

<code - CONSOLE.mac.txt>
 3H4#    [??? CONSOLE SECT COMM FGN 9 DOC
 3H#6    #   
 3HRQ    #   
 3J?B    #   
 3JR2    # DISTRIBUTE CONSOLE MESSA7ES   
 3K=L    #   
 3KQ=    #MAC  CONSOLE   
 3L9W          LDX   0  %B   
 3LPG          ANDN  0  4
 3M96          BZE   0  MLAB1               [BR IF NOT QU,AN, OR DP  
 3MNQ          SBN   %B 5
 3N8B          BNG   %B MEND                [BR IF NO CONSOLE OUTPUT 
 3NN2    MLAB1   
 3P7L          SMO      FX2  
 3PM=          STO   %B ACOMMUNE1
 3Q6W          SBN   %B 1
 3QLG          BZE   %B MRENAME             [BR IF CENTRAL ONLY  
 3R66          LDX   2  FX2  
 3RKQ          LDCH  0  ATYPE(2) 
 3S5B          SBN   0  CONSA/64 
 3SK2          BNZ   0  MTRM1               [BR IF NOT CONSA ACTIVITY
 3T4L          MHUNTW   2,GMON,AOUT  
 3TJ=          LDCT  0  #400                [CONSA   
 3W3W          ORS   0  A1+1(2)             [SET RETAIN BLFCK BRT
 3WHG          BRN      MEND                [AND EXIT
 3X36    MTRM1   
 3XGQ          DOWN     CONSROOT,1   
 3Y2B          BRN      MEND2
 3YG2    #SKI  %A
 3Y^L    MRENAME 
 3^F=          HUNTW    1,GMON,AOUT  
 3^YW    #SKI  %A<1$1
 42DG          BRN      MCONSOLE 
 42Y6    #SKI  %A
 43CQ    #SKI
 43XB    MRENAME 
 44C2    #SKI  %A
 44WL    (   
 45B=    #SKI  %A<1$1
 45TW          LDX   1  %A   
 46*G    )   
 46T6    MCONSOLE
 47#Q          LDXC  3  A1(1)
 47SB          BCS      MEND                [IGNORE IF CD SET
 48#2          SBN   3  1
 48RL          SETUPCOR 3,2,CONBUFF,COUT    [CORE FOR OUTPUT BLOCK   
 49?=          STO   3  AREC(2)             [STORE RECORD HEADER 
 49QW          HUNTW    1,GMON,AOUT  
 4==G          SBN   3  1
 4=Q6          BNZ   3  MTRM2
 4?9Q          LDX   0  A1+3(1)  
 4?PB          STO   0  ATEXT(2) 
 4#92          BRN      MTRM3
 4#NL    MTRM2   
 4*8=          ADN   1  A1+2 
 4*MW          ADN   2  ATEXT
 4B7G          SMO      3
 4BM6          MOVE  1  0
 4C6Q          SBN   2  ATEXT
 4CLB    MTRM3   
 4D62          CONSOUT  2                   [OUTPUT TO CENTRAL OPERATOR  
 4D?8    #SKI
 4DDB    (   
 4DKL    #SKI  EMSJNL
 4F5=    (   
 4FJW          BSOFF    EMSBIT,MEND2 
 4G4G          COOR3    #53            [EMS  
 4GJ6    )   
 4GRY    )   
 4H3Q    MEND
 4HHB          LDX   1  FX1  
 4J32          LDX   2  FX2  
 4JGL    MEND2   
 4K2=    #NOR
</code>