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


<code - MACS OPER.txt>22FL    [??? KEEPPAGE SECT COMM FGN 1 DOC   
22^=    [   
23DW    #MAC  KEEPPAGES 
23YG    [     ========= 
24D6    [   
24XQ    [ THIS MACRO SETS THE NUMBER OF PAGES OF OPER   
25CB    [ LOG RETAINED IN THE RECALL FILE   
25X2    [   
26BL    [ %A - NUMBER OF PAGES -  20 ASSUMED IF %A MISSING  
26W=    [                      -   2 ASSUMED IF %A ZERO 
27*W    [                      - 510 ASSUMED IF %A -VE OR OVER 510  
27TG    [   
28*6    [ ASSUMES 2 BLOCKLETS TO THE PAGE - SEE SEGMENT OPER
28SQ    [         EVEN NUMBER OF PAGES - HENCE WHOLE B/S BLOCKS 
29#B    [   
29S2    #UNS  ENHOPER   
2=?L    (   
2=R=    #STR  %A
2?=W    #DEF  20?=%A > 2 < 510 + 1 / 2  [SIZE IN BLOCKS 
2?QG    #STR  %A
2#=6    #SKI
2#PQ    #DEF  20?=20 / 2
2*9B    #MEN  OPER  
2*P2    #TRA  K90OPER   
2B8L          +20? * 4                  ['OPER' NEEDS BLOCKLETS 
2BN=    #END
2C7W    #MEN  OPERA 
2CMG    #TRA  K90OPERA  
2D76          +20? * 4                  [AS DOES 'OPERA'
2DLQ    #END
2F6B    #MEN  CONSET
2FL2    #TRA  K90CONSET 
2G5L          +20?                      ['CONSET' NEEDS BLOCKS  
2GK=    #END
2H4W    )   
2HJG    #NOR
2J46    [   
2JHQ    [   
2K3B    [??? OPERTIME SECT COMM FGN 1 DOC   
2KH2    [   
2L2L    #MAC  OPERTIME  
2LG=    [     ========  
2L^W    [   
2MFG    [ THIS MACRO SWITCHES ON OR OFF THE TIME/DATE MESSAGES  
2M^6    [ BEING OUTPUT TO THE OPER LOG  
2NDQ    [   
2NYB    [ %A MAY BE 'ON' OR 'OFF' - DEFAULT IS 'OFF'
2PD2    [   
2PXL    #UNS  ENHOPER   
2QC=    (   
2QWW    #STR  %A
2RBG    #SKI
2RW6    (   
2S*Q          OPERTIME OFF  
2STB    #EXI
2T*2    )   
2TSL    #MEN  CONSOLE   
2W#=    #TRA  K91CONSOLE
2WRW    #STR  ON,%A 
2X?G    #SKI
2XR6          +1
2Y=Q    #STR  OFF,%A
2YQB    #SKI
2^=2          +0
2^PL    #END
329=    )   
32NW    #NOR
^^^^ ...222503600002
</code>