home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTH / 4THPROG.ZIP / DOSFN.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-06-13  |  1.0 KB  |  41 lines
  1. NAME    DAVID
  2.  
  3. ;    DAVID'S MS-FORTRAN Runtime DOS INTERFACE.
  4.  
  5. ;       DGROUP, DATA   segment    class DATA
  6. ;
  7. DATA    SEGMENT PUBLIC 'DATA'
  8. DATA    ENDS
  9.  
  10. DGROUP  GROUP  DATA
  11. CODE    SEGMENT 'CODE'
  12.         ASSUME  CS:CODE,DS:DGROUP,SS:DGROUP
  13. PUBLIC  DOSFN
  14.  
  15. ;DOSFN:  Call DOS Operating System
  16. ;
  17. DOSFN   PROC    FAR
  18.         POP     SI
  19.         POP     DI
  20.         POP     BX
  21.         POP     ES             ;ES,BX := addr of 2nd param
  22.         MOV     DX,ES:[BX]
  23.         POP     BX
  24.         POP     ES
  25.         MOV     AX,ES:[BX]
  26.         MOV     AH,AL          ;must be in high half
  27.         PUSH    DI
  28.         PUSH    SI
  29.         PUSH    BP             ;have to save this one
  30.         INT     33             ;onward to DOS
  31.         ;
  32.         ; Carry will be set if dos error.
  33.         ;
  34.         AND     AX,00FFH
  35.         POP     BP             ;restore frame pointer
  36.         RET                    ;return (DOS ret in AX)
  37.         DOSFN   ENDP
  38.         CODE    ENDS
  39.  
  40. END
  41.