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

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

**Used in:** 

<code - UNJAMWRITE.mac.txt>
 #FDB ...[??? UNJAMWRI SECT FILE FGN 9 DOC   
 *NGX ...#   
 *NHD ...#   
 *NH^ ...#MAC  UNJAMWRITE
 *NJG ...      LOCK     3
 *NK3 ...      LDX   1  BACK1(3)            [LFN 
 *NKJ ...      STO   1  AWORK1(2)
 *NL5 ...      FINDBSA 1                    [GET PTR TO BSA IN X2
 *NLL ...      LDX   0  BSFAIL(2)
 *NM# ...      ANDN  0  BKARTWT+CGINPROG    [ARE FAILS OR CARTRIDGE COMMAND IN   
 *NN2 ...      BZE   0  MCB1                [PROGRESS J IF NOT   
 *NNQ ...      UNLOCK   3
 *NP? ...      LDX   4  FPTR(3)  
 *NPS ...      LDX   1  FX1  
 *NQ* ...      LDX   2  FX2  
 *NQW ...      BRN      %A   
 *NRC ...MCB1  NAME     3,ADATA,CORUNJAM 
 *NRY ...      LDX   1  BACK1(3)            [LFN 
 *NS8 ...      LDX   4  BACK2(3) 
 *NSF ...      STOZ     BACK1(3) 
 *NT2 ...      STOZ     BACK2(3) 
 *NTH ...      ADDSKIP  I516A,COREFUWB   
 *NW4 ...      LDN   2  A1(3)
 *NWK ...      BACKWRITE BSET+BLFAIL,ALOGLEN(3),%B,1,EX4,2   
 *NX6 ...      LDX   4  FPTR(3)  
 *NXM ...#NOR
</code>