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

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

**Used in:** [[george:source:BMPRCHEK860|BMPRCHEK860]]

<code - SWAPPR.mac.txt>
 8P#L ...[??? SWAPPR SECT FILE FGN 36 DOC
 8PS= ...[   
 8Q?W ...[  THIS MACRO SPECIFIES DIRECTORIES TO BE RESTORED  
 8QRG ...[   IN PLACE OF FORBIDDEN ONES  
 8R?6 ...[   
 8RQQ ...#MAC SWAPPR 
 8S=B ...#STR %A 
 8SQ2 ...(   
 8T9L ...#STR %B 
 8TP= ...(   
 8W8W ...#STR %B,*PSEU   
 8WNG ...(   
 8X86 ...#SKI AFORBIDEND-AFORBPTR>7-7
 8XMQ ...#SKI
 8Y7B ...(   
 8YM2 ...#CON SWAPPR USED TOO OFTEN  
 8^6L ...#EXI
 8^L= ...)   
 925W ...#MEN BMPRCHEK   
 92KG ...#TRA AFORBPTR   
 9356 ...      #20000007 
 93JQ ...      12H%A 
 944B ...      12H%B 
 94J2 ...#END
 953L ...#ALT AFORBPTR=AFORBPTR+7
 95H= ...)   
 962W ...#STR %B,*PSEU   
 96GG ...#SKI
 9726 ...(   
 97FQ ...#SKI AFORBIDEND-AFORBPTR>4-4
 97^B ...#SKI
 98F2 ...(   
 98YL ...#CON SWAPPR USER TOO OFTEN  
 99D= ...#EXI
 99XW ...)   
 9=CG ...#MEN BMPRCHEK   
 9=X6 ...#TRA AFORBPTR   
 9?BQ ...      #60000004 
 9?WB ...      12H%A 
 9#B2 ...#END
 9#TL ...#ALT AFORBPTR=AFORBPTR+4
 9**= ...)   
 9*SW ...#MEN BMCNTRL
 9B#G ...#TRA K80BMCNTRL 
 9BS6 ...      NULL  
 9C?Q ...#END
 9CRB ...)   
 9D?2 ...#EXI
 9DQL ...)   
 9F== ...)   
 9FPW ...#CON SWAPPR PARAMETER ERROR 
 9G9G ...#NOR
</code>