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

**Defined in:** [[george:source:MACROS_DTP|MACROS DTP]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:COMPS_EWDAS|COMPS EWDAS]], [[george:source:INKS|INKS]], [[george:source:MESSCB|MESSCB]], [[george:source:PATCH|PATCH]]

<code - PATCH.mac.txt>
 ?24Q    [??? PATCH SECT DIAG FGN 552 DOC
 ?2JB    #MAC  PATCH                        [J.T. WIFFEN 
 ?342    [   
 ?3HL    [   
 ?43=    [     ***********   
 ?4GW    [     *  PATCH  *   
 ?52G    [     ***********   
 ?5G6    [   
 ?5^Q    [   
 ?6FB    #UNS  K%A                          [SKIP IF THE CHAPTER IS NEW  
 ?6^2    (   
 ?7DL    #MEN  PATINF                       [UPDATE PATCH INFORMATION AREA   
 ?7Y=    #ALT  ANGC=ANGC+1                  [INCREMENT NO. OF CHAPTERS STORED
 ?8CW    #TRA  ANGNUM
 ?8XG                   +ANGC
 ?9C6    #TRA  AFPOINT   
 ?9WQ                   12H%A%B             [CHAPTER NAME AND VERSION NUMBER 
 ?=BB                   +K%A                [CHAPTER NUMBER  
 ?=W2    #FID  1,10,L%A                     [LENGTH IN BITS 1 - 10   
 ??*L                   +D%A                [BACKING-STORE START ADDRESS 
 ??T=    #ALT  AFPOINT=AFPOINT+5 
 ?##W    #END
 ?#SG    )   
 ?*#6    #UNS  K%A                          [INCLUDE IF THE CHAPTER IS NEW   
 ?*RQ    #SKI
 ?B?B    (   
 ?BR2          NEWCHENT  %A  
 ?C=L    #DEF  20?=1?                       [REMEMBER THE LISTING LEVEL  
 ?CQ=    #LIS  4 
 ?D9W    #     %A IS A NEW CHAPTER AND CANNOT BE PATCHED:
 ?DPG    #     IT HAS BEEN COMPILED AS A "PERMANENT" CHAPTER 
 ?F96    #LIS  20?   
 ?FNQ    )   
 ?G8B    )   
 ?GN2    )   
 ?H7L    #NOR
</code>