FINMOVEZ [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FINMOVEZ)}}
====== FINMOVEZ ======
(GIN Macro)

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

**Used in:** 

<code - FINMOVEZ.mac.txt>
 773= ...#MAC  FINMOVEZ [J.S.RAYNER         GEORGE 4 ONLY
 77GW ...      OPTMOD   %H,FX2,SBX %B %E+1   
 782G ...#STR  %I
 78G6 ...(   
 78^Q ...      LDX   0  %B   
 79FB ...      SLC   0  2
 79^2 ...      TXL   0  BIT11
 7=DL ...      BCS      MFINMOVEZ5          [J IF SOME OF AREA IN FIRST PAGE 
 7=Y= ...      SBN   %B 1024 
 7?CW ...      OPTMOD   %H,FX2,ADX %B %E+3   
 7?XG ...      LDX   0  %D   
 7#C6 ...      BRN      MFINMOVEZ4   
 7#WQ ...)   
 7*BB ...MFINMOVEZ5  
 7*W2 ...      OPTMOD   %H,FX2,ADX %B %E+2   
 7B*L ...#STR  MOVE,%G   
 7BT= ...(   
 7C#W ...      NGX   0  %B   
 7CSG ...      ANDN  0  #1777
 7D#6 ...      BNZ   0  MFINMOVEZ1   
 7DRQ ...      LDN   0  1024                [NO OF WORDS IN FIRST PAGE   
 7F?B ...MFINMOVEZ1  
 7FR2 ...)   
 7G=L ...#STR  MVCH,%G   
 7GQ= ...(   
 7H9W ...#STR  %I
 7HPG ...#SKIP   
 7J96 ...(   
 7JNQ ...      LDX   0  %B   
 7K8B ...      SLC   0  2
 7KN2 ...)   
 7L7L ...      ANDN  0  #7777
 7LM= ...      SBX   0  BIT11
 7M6W ...      NGX   0  0                   [NO OF CHARS IN FIRST PAGE   
 7MLG ...)   
 7N66 ...      TXL   0  %D                  [NO OF WORDS/CHARS IN FIRST MOVE 
 7NKQ ...      BCS      MFINMOVEZ2   
 7P5B ...      LDX   0  %D   
 7PK2 ...MFINMOVEZ2  
 7Q4L ...#STR  %J
 7QJ= ...(   
 7R3W ...#STR  MVCH,%G   
 7RHG ...      REMOVE %B,%C,0,MVCH   
 7S36 ...#STR  MOVE,%G   
 7SGQ ...      REMOVE %B,%C,0,,,N,N  
 7T2B ...      SBX   0  %D   
 7TG2 ...      BZE   0  MFINMOVEZ3   
 7T^L ...      NGX   0  0                   [WORDS/CHARS LEFT TO MOVE
 7WF= ...      OPTMOD   %H,FX2,LDX %B %E+3   
 7WYW ...MFINMOVEZ4  
 7XDG ...#STR  MVCH,%G   
 7XY6 ...      REMOVE %B,%C,0,MVCH   
 7YCQ ...#STR  MOVE,%G   
 7YXB ...      REMOVE %B,%C,0
 7^C2 ...MFINMOVEZ3  
 7^WL ...#EXI                           [FINISHED IF %J PRESENT  
 82B= ...)   
 82TW ...      SMO      0
 83*G ...#STR  MOVE,%G   
 83T6 ...(   
 84#Q ...#STR  IN,%F 
 84SB ...      MOVE  %C 0
 85#2 ...#STR  OUT,%F
 85RL ...      MOVE  %B 0
 86?= ...      ADX   %C 0
 86QW ...)   
 87=G ...#STR  MVCH,%G   
 87Q6 ...(   
 889Q ...#STR  IN,%F 
 88PB ...      MVCH  %C 0
 8992 ...#STR  OUT,%F
 89NL ...      MVCH  %B 0
 8=8= ...)   
 8=MW ...      SBX   0  %D   
 8?7G ...      BZE   0  MFINMOVEZ3   
 8?M6 ...      NGX   0  0                   [WORDS/CHARS LEFT TO MOVE
 8#6Q ...      OPTMOD   %H,FX2,LDX %B %E+3   
 8#LB ...MFINMOVEZ4  
 8*62 ...      SMO      0
 8*KL ...#STR  MOVE,%G   
 8B5= ...(   
 8BJW ...#STR  IN,%F 
 8C4G ...      MOVE  %C 0
 8CJ6 ...#STR  OUT,%F
 8D3Q ...      MOVE  %B 0
 8DHB ...)   
 8F32 ...#STR  MVCH,%G   
 8FGL ...(   
 8G2= ...#STR  IN,%F 
 8GFW ...      MVCH  %C 0
 8G^G ...#STR  OUT,%F
 8HF6 ...      MVCH  %B 0
 8HYQ ...)   
 8JDB ...MFINMOVEZ3  
 8JY2 ...#NOR
</code>