(George Source)
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