SSEARCH

(GIN Macro)

Used in: CLOSEMT867, DEAD867, DIRENT867, DUMP860, FHOBJIND860, INCOBS867, LABEL866, LIBINSEC864, LIBLOAD867, LIBMANY867, LIBQUERY, LIBREQC867, LIBREQCA867, LIBSEC867, LIBTSN867, NEWA867, NEWOWN865, NEWPW867, RENAMAG864, RENAMDIR, RENAMEMT867, RESTEND850, RETURN867, RETURNA867, RETURNIT867, SCHEDMTA860, SETPF867, SETPR867, TAPERING867, TAPEWAIT65, XENON

SSEARCH.mac.txt

 8C## ...[??? SSEARCH SECT FILE FGN 4 DOC
 8CJ6    #     MACRO TO FIND AN ENTRY IN :SYSTEM.SERIAL  
 8D3Q    #MAC  SSEARCH   
 8DHB    #ACC  %B
 8F32    (   
 8FGL          LDX   0  %B   
 8G2=          LDX   2  FX2  
 8GFW          STO   0  ACOMMUNE7(2) 
 8G^G    )   
 8HF6    #ACC  %B
 8HYQ    #SKI
 8JDB    (   
 8JY2          SMO      FX2  
 8KCL          STO   %B ACOMMUNE7
 8KX=          LDX   2  FX2  
 8LBW    )   
 8LWG    #STR  %C
 8MB6    (   
 8MTQ    #SKI  %C>511-511
 8N*B    (   
 8NT2          LDCT  0  %C   
 8P#L          SRA   0  15   
 8PS=    )   
 8Q?W    #SKI  %C<512$512
 8QRG          LDN   0  %C   
 8R?6          STO   0  ACOMMUNE9(2) 
 8RQQ    )   
 8S=B    #STR  %C
 8SQ2    #SKI
 8T9L          STOZ     ACOMMUNE9(2) 
 8TP=          DOWN     LOCATE,3 
 8W8W    #STR  %A
 8WNG          TESTREP2 NOFILE,%A
 8X86    #STR  %A
 8XMQ    #SKI
 8Y7B    (   
 8YM2          TESTREP2 OK,M1SS  
 8^6L          GEOERR   1,NOSYSER
 8^L=    M1SS
 925W    )   
 92KG          STEPAGAIN %C  
 9356    #NOR