POINTACT [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: POINTACT)}}
====== POINTACT ======
(GIN Macro)

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

**Used in:** [[george:source:IDFENQS867|IDFENQS867]], [[george:source:IDFPER867|IDFPER867]], [[george:source:IDFSCON867|IDFSCON867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:SJOPEN863|SJOPEN863]], [[george:source:WLC867|WLC867]]

<code - POINTACT.mac.txt>
 DNNG ...[??? POINTACT SECT DEVT FGN 2 DOC   
 DT56    #MAC  POINTACT  
 DTJQ    #SKI  G%AACT
 DW4B    #SKI
 DWJ2    (   
 DX3L          BBUS     B%AACT,FLAGACT,M2POINTACT
 DXH=    #STR  %E
 DY2W    #SKI
 DYGG    (   
 D^26          LDX   %B GSIGN
 D^FQ          BRN      M3POINTACT   
 D^^B    )   
 F2F2    #STR  %E
 F2YL    (   
 F3D=          FLIPS    FLAGACT,B%AACT   
 F3XW          BRN      M4POINTACT   
 F4CG    M5POINTACT  
 F4X6          PAIR     %E,%F
 F5BQ    M4POINTACT  
 F5WB          GETACT   %C,%D
 F6B2          LDX   2  BPTR(2)  
 F6TL          LDX   %B 2
 F7*=          LDX   0  M5POINTACT(1)
 F7SW          STO   0  ALINK1(2)
 F8#G          LDX   0  M5POINTACT+1(1)  
 F8S6          STO   0  ALINK2(2)
 F9?Q          FPUT  
 F9RB          BRN      M3POINTACT   
 F=?2    )   
 F=QL    M2POINTACT  
 F?==          FINDACTFB 1,FX2,%C,%D,M6POINTACT,FPTR 
 F?PW          LDX   %B 1
 F#9G          BRN      M3POINTACT   
 F#P6    M6POINTACT  
 F*8Q          GEOERR   1,NOACT  
 F*NB    M3POINTACT  
 FB82          LDX   1  FX1  
 FBML          LDX   2  FX2  
 FC7=    )   
 FCLW    #SKI  G%AACT
 FD6G    (   
 FDL6          LDXC  %B B%AACT   
 FF5Q          BCS      £
 FFKB    #NOR
</code>