* FINDHASP MAKPO - ðOéCK HASP (KPOC)                                    HASP0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 27.04.88   BPEMñ 18.46   *  æOKõC  HASP0002
*    ðAPAMETPOB HE éMEET; BùúùBAETCñ ðPOçPAMMA FINDHASP; BùXOä:         HASP0003
*    R15 - K.BOúBPATA: 0 - HASP (KPOC) HAêäEH , 4 - HE HAêäEH           HASP0004
*    R1  - AäPEC HCT (KCT)      R0  - AäPEC TCB                         HASP0005
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    HASP0006
         MACRO                                                          HASP0007
&NAME    FINDHASP                                                       HASP0008
&NAME    L     15,=V(FINDHASP)                                          HASP0009
         BALR  14,15                                                    HASP0010
         MEND                                                           HASP0011