home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / mdbscl01.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  2.2 KB  |  108 lines
  1.     TITLE    'MDBS CALL INTERFACE TYPE 01 PROGRAM'
  2. ;PROGRAM
  3. ;        MDBS CALL INTERFACE TYPE 01 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 IS THE HL PARM.
  14. ;REMARKS
  15. ;        THIS MODULE CONTAINS SEVERAL ENTRY POINTS
  16. ;        WHICH CORRESPOND THE TO THE MDBS FUNCTION
  17. ;        NAME BEING CALLED.
  18.  
  19. ;        DO INITIALIZATION.
  20.     NAME    'MDBS01'
  21. MDBS01:    CSEG
  22.  
  23. ;        FFM - FIND FIRST MEMBER
  24. FFM:    DS    0
  25.     PUBLIC    FFM
  26.     MVI    A,12        ;GET FUNCTION CODE.
  27.     JMP    MAIN        ;PROCESS CALL.
  28.  
  29. ;        FLM - FIND LAST MEMBER.
  30. FLM:    DS    0
  31.     PUBLIC    FLM
  32.     MVI    A,16        ;GET FUNCTION CODE.
  33.     JMP    MAIN        ;PROCESS CALL.
  34.  
  35. ;        FLO - FIND LAST OWNER.
  36. FLO:    DS    0
  37.     PUBLIC    FLO
  38.     MVI    A,17        ;GET FUNCTION CODE.
  39.     JMP    MAIN        ;PROCESS CALL.
  40.  
  41. ;        FNM - FIND NEXT MEMBER
  42. FNM:    DS    0
  43.     PUBLIC    FNM
  44.     MVI    A,19        ;GET FUNCTION CODE.
  45.     JMP    MAIN        ;PROCESS CALL.
  46.  
  47. ;        FNO - FIND NEXT OWNER.
  48. FNO:    DS    0
  49.     PUBLIC    FNO
  50.     MVI    A,20        ;GET FUNCTION CODE.
  51.     JMP    MAIN        ;PROCESS CALL.
  52.  
  53. ;        FPM - FIND PREVIOUS MEMBER.
  54. FPM:    DS    0
  55.     PUBLIC    FPM
  56.     MVI    A,22        ;GET FUNCTION CODE.
  57.     JMP    MAIN        ;PROCESS CALL.
  58.  
  59. ;        FPO - FIND PREVIOUS OWNER.
  60. FPO:    DS    0
  61.     PUBLIC    FPO
  62.     MVI    A,23        ;GET FUNCTION CODE.
  63.     JMP    MAIN        ;PROCESS CALL.
  64.  
  65. ;        SAVE THE FUNCTION CODE.
  66. MAIN:
  67.     STA    FUNC
  68.  
  69. ;        MOVE INPUT PARMS INTO OUTPUT PARM LIST.
  70.     MOV    E,M        ;GET FIRST PARM.
  71.     INX    H
  72.     MOV    D,M
  73.     INX    H
  74.     XCHG            ;SAVE IT.
  75.     SHLD    PRM4
  76.     XCHG
  77.     MOV    E,M        ;GET SECOND PARM.
  78.     INX    H
  79.     MOV    D,M
  80.     INX    H
  81.     XCHG            ;SAVE IT.
  82.     SHLD    PRM5
  83.  
  84. ;        CALL THE MDBS CALL INTERFACE.
  85.     LXI    H,PRMLST    ;POINT TO PARAMETER LIST.
  86.     JMP    MDBSCL        ;GO PERFORM THE FUNCTION.
  87.     EXTRN    MDBSCL
  88.     PAGE
  89. ;****************************************************************
  90. ;*            PROGRAM CONSTANTS            *
  91. ;****************************************************************
  92.  
  93. ;        INPUT PARM.
  94.     DSEG
  95. PRMLST:                ;PL/1 PARAMETER LIST
  96. PRM1:    DW    FUNC            ;FUNCTION CODE
  97. PRM2:    DW    NULCL8            ;BC PARM
  98. PRM3:    DW    NULCL8            ;DE PARM
  99. PRM4:    DW    0            ;HL PARM
  100. PRM5:    DW    0            ;RETURN CODE
  101. PRM6:    DW    NULPTR            ;BLOCK PTR
  102. PRM7:    DW    NULB15            ;BLOCK LENGTH
  103. FUNC:    DB    0
  104. NULCL8:    DB    '        '
  105. NULPTR:    DW    0
  106. NULB15:    DW    0
  107.     END
  108.