* @GETTCB  MAKPO - úAçPõúéTø B PEçéCTP AäPEC CBOEçO TCB                 TTCB0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 02.03.90   BPEMñ 20.06   *  æOKõC  TTCB0002
*   @GETTCB <PEçéCTP>                                                   TTCB0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    TTCB0004
         MACRO                                                          TTCB0005
&NAME    @GETTCB &R                                                     TTCB0006
&NAME    L     &R,16             LOAD CVT ADDRESS                       TTCB0007
         L     &R,0(&R)          LOAD TCB POINTER ADDRESS               TTCB0008
         L     &R,4(&R)          LOAD TCB ADDRESS                       TTCB0009
         MEND                                                           TTCB0010