GETWORD

(GIN Macro)

Defined in: MACROS GLJ

Used in: ANTIC867, BEXTSJ84, CAFSPERI867, CHINERR867, CHNUMCON867, CHTAB, CLOSBAC867, CLOSDEL867, COMPRO867, CONTEND867, CORE867, EXINONE867, EXINTO867, FAIL5, GETONA867, GIVE867, IFNUMS867, INKS, IPCOPENA83, LOADFIN860, MONRESUM850, NEXTUNIT867, OLMTB867, OLMTC85, OLMTE85, ONOFFALT60, PERFAIL866, PERION867, PROGISH850, PROSTART867, READSPEC867, RENAMEX867, SAVE864, SAVEDA70, SCEXEND867, SCHDJOBA867, SPERION867, SQOPEN867, STEPBACK1

GETWORD.mac.txt

 2PMS ...[??? GETWORD SECT CENT FGN 18 DOC   
 2PXL    #MAC  GETWORD   
 2QC=          LDX   0  %A   
 2QWW    #SKI  %G
 2RBG          ORX   0  GSIGN
 2RW6          SMO      FX2  
 2S*Q          STO   0  ACOMMUNE1
 2STB    #SKI  %E
 2T*2    #SKI
 2TSL    (   
 2W#=          LDN   0  1
 2WRW          SMO      FX2  
 2X?G          STO   0  ACOMMUNE2           [DEFAULT SIZE OF AREA
 2XR6    )   
 2Y=Q    #SKI  %E
 2YQB    (   
 2^=2          LDX   0  %E   
 2^PL          SMO      FX2  
 329=          STO   0  ACOMMUNE2
 32NW    )   
 338G    #STR  %C,WRITE  
 33N6          DOWN     GETWORD,1           [READ ENTRY  
 347Q    #STR  %C,WRITE  
 34MB    #SKI
 3572          DOWN     GETWORD,2           [WRITE ENTRY 
 35LL    #STR  %F
 366=          BRN      %F   
 36KW    #STR  %F
 375G    #STR
 37K6          NULL  
 384Q    #STR  %D
 38JB    (   
 3942          LDX   0  ACOMMUNE2(2) 
 39HL          STO   0  %D   
 3=3=    )   
 3=GW    #STR  2,%D  
 3?2G          LDX   0  ACOMMUNE1(2) 
 3?G6    #STR  2,%D  
 3?^Q    #SKI
 3#FB    (   
 3#^2          SMO      FX2  
 3*DL          LDX   0  ACOMMUNE1
 3*Y=    )   
 3BCW    #STR  %B,0  
 3BXG          STO   0  %B   
 3CC6    #NOR