home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / mdbscl02.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  3.3 KB  |  157 lines
  1.     TITLE    'MDBS CALL INTERFACE TYPE 02 PROGRAM'
  2. ;PROGRAM
  3. ;        MDBS CALL INTERFACE TYPE 02 PROGRAM
  4. ;PROGRAMMER
  5. ;        ROBERT M. WHITE
  6. ;DATE WRITTEN
  7. ;        AUGUST 27, 1980
  8. ;(C)COPYRIGHT    1980,H & W COMPUTER SYSTEMS, INC.
  9. ;PURPOSE
  10. ;        THIS ROUTINE INTERFACES FOR ALL MDBS CALLS THAT
  11. ;        LOOK LIKE THE FOLLOWING IN PLI:
  12. ;            CALL XXX(PARM1,RTNCODE);
  13. ;        WHERE PARM1 GOES INTO THE DE PARAMETER.
  14. ;        
  15. ;REMARKS
  16. ;        THIS MODULE CONTAINS SEVERAL ENTRY POINTS
  17. ;        WHICH CORRESPOND THE TO THE MDBS FUNCTION
  18. ;        NAME BEING CALLED.
  19.  
  20. ;        DO INITIALIZATION.
  21.     NAME    'MDBS02'
  22. MDBS02:    CSEG
  23.  
  24. ;        ACS - ADD CURRENT OF RUN UNIT TO SET
  25. ACS:    DS    0
  26.     PUBLIC    ACS
  27.     MVI    A,00        ;GET FUNCTION CODE.
  28.     JMP    MAIN        ;PROCESS CALL.
  29.  
  30. ;        CCT - CHECK CURRENT OF RUN UNIT TYPE.
  31. CCT:    DS    0
  32.     PUBLIC    CCT
  33.     MVI    A,02        ;GET FUNCTION CODE.
  34.     JMP    MAIN        ;PROCESS CALL.
  35.  
  36. ;        CR - CREATE RECORD.
  37. CR:    DS    0
  38.     PUBLIC    CR
  39.     MVI    A,06        ;GET FUNCTION CODE.
  40.     JMP    MAIN        ;PROCESS CALL.
  41.  
  42. ;        DRM - DELETE RECORD BASED ON CURRENT MEMBER.
  43. DRM:    DS    0
  44.     PUBLIC    DRM
  45.     MVI    A,09        ;GET FUNCTION CODE.
  46.     JMP    MAIN        ;PROCESS CALL.
  47.  
  48. ;        DRO - DELETE RECORD BASED ON CURRENT OWNER.
  49. DRO:    DS    0
  50.     PUBLIC    DRO
  51.     MVI    A,10        ;GET FUNCTION CODE.
  52.     JMP    MAIN        ;PROCESS CALL.
  53.  
  54. ;        DRR - DELETE RECORD BASED ON CURRENT RECORD.
  55. DRR:    DS    0
  56.     PUBLIC    DRR
  57.     MVI    A,11        ;GET FUNCTION CODE.
  58.     JMP    MAIN        ;PROCESS CALL.
  59.  
  60. ;        RMS - REMOVE CURRENT MEMBER FROM SET
  61. RMS:    DS    0
  62.     PUBLIC    RMS
  63.     MVI    A,42        ;GET FUNCTION CODE.
  64.     JMP    MAIN        ;PROCESS CALL.
  65.  
  66. ;        RSM - REMOVE ALL SET MEMBERS.
  67. RSM:    DS    0
  68.     PUBLIC    RSM
  69.     MVI    A,43        ;GET FUNCTION CODE.
  70.     JMP    MAIN        ;PROCESS CALL.
  71.  
  72. ;        SCM - SET CURRENT OF RUN UNIT BASED ON MEMBER
  73. SCM:    DS    0
  74.     PUBLIC    SCM
  75.     MVI    A,44        ;GET FUNCTION CODE.
  76.     JMP    MAIN        ;PROCESS CALL.
  77.  
  78. ;        SCO - SET CURRENT OF RUN UNIT BASED ON OWNER
  79. SCO:    DS    0
  80.     PUBLIC    SCO
  81.     MVI    A,45        ;GET FUNCTION CODE.
  82.     JMP    MAIN        ;PROCESS CALL.
  83.  
  84. ;        SCR - SET CURRENT OF RUN UNIT BASED ON CURRENT RECORD.
  85. SCR:    DS    0
  86.     PUBLIC    SCR
  87.     MVI    A,46        ;GET FUNCTION CODE.
  88.     JMP    MAIN        ;PROCESS CALL.
  89.  
  90. ;        SMC - SET MEMBER BASED ON CURRENT OF RUN UNIT
  91. SMC:    DS    0
  92.     PUBLIC    SMC
  93.     MVI    A,51        ;GET FUNCTION CODE.
  94.     JMP    MAIN        ;PROCESS CALL.
  95.  
  96. ;        SOC - SET OWNER BASED ON CURRENT OF RUN UNIT
  97. SOC:    DS    0
  98.     PUBLIC    SOC
  99.     MVI    A,55        ;GET FUNCTION CODE.
  100.     JMP    MAIN        ;PROCESS CALL.
  101.  
  102. ;        SRM - SET CURRENT RECORD BASED ON MEMBER
  103. SRM:    DS    0
  104.     PUBLIC    SRM
  105.     MVI    A,60        ;GET FUNCTION CODE.
  106.     JMP    MAIN        ;PROCESS CALL.
  107.  
  108. ;        SRO - SET CURRENT RECORD BASED ON OWNER
  109. SRO:    DS    0
  110.     PUBLIC    SRO
  111.     MVI    A,61        ;GET FUNCTION CODE.
  112.     JMP    MAIN        ;PROCESS CALL.
  113.  
  114. ;        SAVE THE FUNCTION CODE.
  115. MAIN:
  116.     STA    FUNC
  117.  
  118. ;        MOVE INPUT PARMS INTO OUTPUT PARM LIST.
  119.     MOV    E,M        ;GET FIRST PARM.
  120.     INX    H
  121.     MOV    D,M
  122.     INX    H
  123.     XCHG            ;SAVE IT.
  124.     SHLD    PRM3
  125.     XCHG
  126.     MOV    E,M        ;GET SECOND PARM.
  127.     INX    H
  128.     MOV    D,M
  129.     INX    H
  130.     XCHG            ;SAVE IT.
  131.     SHLD    PRM5
  132.  
  133. ;        CALL THE MDBS CALL INTERFACE.
  134.     LXI    H,PRMLST    ;POINT TO PARAMETER LIST.
  135.     JMP    MDBSCL        ;GO PERFORM THE FUNCTION.
  136.     EXTRN    MDBSCL
  137.     PAGE
  138. ;****************************************************************
  139. ;*            PROGRAM CONSTANTS            *
  140. ;****************************************************************
  141.  
  142. ;        INPUT PARM.
  143.     DSEG
  144. PRMLST:                ;PL/1 PARAMETER LIST
  145. PRM1:    DW    FUNC            ;FUNCTION CODE
  146. PRM2:    DW    NULCL8            ;BC PARM
  147. PRM3:    DW    0            ;DE PARM
  148. PRM4:    DW    NULCL8            ;HL PARM
  149. PRM5:    DW    0            ;RETURN CODE
  150. PRM6:    DW    NULPTR            ;BLOCK PTR
  151. PRM7:    DW    NULB15            ;BLOCK LENGTH
  152. FUNC:    DB    0
  153. NULCL8:    DB    '        '
  154. NULPTR:    DW    0
  155. NULB15:    DW    0
  156.     END
  157.