{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MODCHANGE)}}
====== MODCHANGE ======
(GIN Macro)

**Defined in:** [[george:source:OPEN-MACROS|OPEN-MACROS]]

**Used in:** 

<code - MODCHANGE.mac.txt>
 =4HD ...[??? MODCHANG SECT FILE FGN 20 DOC  
 =4R=    [   
 =5=W    [   
 =5QG    #     THIS MACRO CHANGES THE MODE OF OPENING OF THE TOP FILE OPEN   
 =6=6    #     FROM GENERAL TO READ MODE. IT DOES NOT GURANTEE THAT THE  
 =6PQ    #     FILE WILL BE LISTFILED IF FROZEN. 
 =79B    #MAC  MODCHANGE                    [CAN'T USE MODECHANGE AS MODE
 =7P2                                       [IS AN INSTRUCTION ('125)
 =88L          TOPFCAB 2,1   
 =8N= ...      MBI      2,BAMAPP,BAMREAD    [SWITCH OPENING MODES
 =97W          LDN   0  1
 =9MG          STO   0  CTOPEN(1)            [1 READER   
 ==76          LDX   0  FWAITCOUNT(1)        [ANY WAITERS?   
 ==LQ          BZE   0  M1MODECHAN   
 =?6B          STOZ     FWAITCOUNT(1)        [ZEROISE
 =?L2          LONGON   6,BACK2(1)           [WAKE WAITERS   
 =#5L    M1MODECHAN  
 =#K=    #NOR
</code>