home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / mdbscl03.asm < prev    next >
Assembly Source File  |  1984-04-29  |  3KB  |  140 lines
  1.     TITLE    'MDBS CALL INTERFACE TYPE 03 PROGRAM'
  2. ;PROGRAM
  3. ;        MDBS CALL INTERFACE TYPE 03 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,PARM2,RTNCODE);
  13. ;        WHERE PARM1 GOES INTO THE DE PARAMETER AND PARM2
  14. ;        GOES INTO THE HL PARAMETER.
  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. ;        AMS - ADD MEMBER TO SET
  25. AMS:    DS    0
  26.     PUBLIC    AMS
  27.     MVI    A,01        ;GET FUNCTION CODE.
  28.     JMP    MAIN        ;PROCESS CALL.
  29.  
  30. ;        CMT - CHECK CURRENT MEMBER TYPE.
  31. CMT:    DS    0
  32.     PUBLIC    CMT
  33.     MVI    A,04        ;GET FUNCTION CODE.
  34.     JMP    MAIN        ;PROCESS CALL.
  35.  
  36. ;        COT - CHECK CURRENT OWNER TYPE.
  37. COT:    DS    0
  38.     PUBLIC    COT
  39.     MVI    A,05        ;GET FUNCTION CODE.
  40.     JMP    MAIN        ;PROCESS CALL.
  41.  
  42. ;        SMM - SET CURRENT MEMBER BASED ON CURRENT MEMBER
  43. SMM:    DS    0
  44.     PUBLIC    SMM
  45.     MVI    A,52        ;GET FUNCTION CODE.
  46.     JMP    MAIN        ;PROCESS CALL.
  47.  
  48. ;        SMO - SET CURRENT MEMBER BASED ON CURRENT OWNER
  49. SMO:    DS    0
  50.     PUBLIC    SMO
  51.     MVI    A,53        ;GET FUNCTION CODE.
  52.     JMP    MAIN        ;PROCESS CALL.
  53.  
  54. ;        SMR - SET CURRENT MEMBER BASED ON CURRENT RECORD.
  55. SMR:    DS    0
  56.     PUBLIC    SMR
  57.     MVI    A,54        ;GET FUNCTION CODE.
  58.     JMP    MAIN        ;PROCESS CALL.
  59.  
  60. ;        SOM - SET CURRENT OWNER BASED ON CURRENT MEMBER
  61. SOM:    DS    0
  62.     PUBLIC    SOM
  63.     MVI    A,56        ;GET FUNCTION CODE.
  64.     JMP    MAIN        ;PROCESS CALL.
  65.  
  66. ;        SOO - SET CURRENT OWNER BASED ON CURRENT OWNER.
  67. SOO:    DS    0
  68.     PUBLIC    SOO
  69.     MVI    A,57        ;GET FUNCTION CODE.
  70.     JMP    MAIN        ;PROCESS CALL.
  71.  
  72. ;        SOR - SET CURRENT OWNER BASED ON CURRENT RECORD.
  73. SOR:    DS    0
  74.     PUBLIC    SOR
  75.     MVI    A,58        ;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. ;        SAVE THE FUNCTION CODE.
  91. MAIN:
  92.     STA    FUNC
  93.  
  94. ;        MOVE INPUT PARMS INTO OUTPUT PARM LIST.
  95.     MOV    E,M        ;GET FIRST PARM.
  96.     INX    H
  97.     MOV    D,M
  98.     INX    H
  99.     XCHG            ;SAVE IT.
  100.     SHLD    PRM3
  101.     XCHG
  102.     MOV    E,M        ;GET SECOND PARM.
  103.     INX    H
  104.     MOV    D,M
  105.     INX    H
  106.     XCHG            ;SAVE IT.
  107.     SHLD    PRM4
  108.     XCHG
  109.     MOV    E,M        ;GET RETURN CODE.
  110.     INX    H
  111.     MOV    D,M
  112.     INX    H
  113.     XCHG            ;SAVE IT.
  114.     SHLD    PRM5
  115.  
  116. ;        CALL THE MDBS CALL INTERFACE.
  117.     LXI    H,PRMLST    ;POINT TO PARAMETER LIST.
  118.     JMP    MDBSCL        ;GO PERFORM THE FUNCTION.
  119.     EXTRN    MDBSCL
  120.     PAGE
  121. ;****************************************************************
  122. ;*            PROGRAM CONSTANTS            *
  123. ;****************************************************************
  124.  
  125. ;        INPUT PARM.
  126.     DSEG
  127. PRMLST:                ;PL/1 PARAMETER LIST
  128. PRM1:    DW    FUNC            ;FUNCTION CODE
  129. PRM2:    DW    NULCL8            ;BC PARM
  130. PRM3:    DW    0            ;DE PARM
  131. PRM4:    DW    0            ;HL PARM
  132. PRM5:    DW    0            ;RETURN CODE
  133. PRM6:    DW    NULPTR            ;BLOCK PTR
  134. PRM7:    DW    NULB15            ;BLOCK LENGTH
  135. FUNC:    DB    0
  136. NULCL8:    DB    '        '
  137. NULPTR:    DW    0
  138. NULB15:    DW    0
  139.     END
  140.