home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1993 May / SIMTEL_0593.ISO / msdos / sysutl / exec1.asm < prev    next >
Encoding:
Internet Message Format  |  1985-03-19  |  7.2 KB
  1. Date: Friday, 15 March 1985
  2. From: Harald Striepe
  3. Re:   Use of IBM PC-DOS \"EXEC\" function call
  4.  
  5. > Does anyone have any experience with the use of PCDOS functions
  6. > (INT 21H) I have been trying to figure out how to use the "Exec"
  7. > function 4Bh and have been having no success.
  8. > 
  9. > Would someone who has used this function call please let me know what 
  10. > the secret is.  A copy of a simple program using the call would 
  11. > help also.
  12. > 
  13. > Brian
  14.  
  15. The key is to release the memory not used by your calling program.
  16. MS-DOS appears to allocate all memory to the current application until
  17. it is properly notified. Below is an example program.  Note that this
  18. worked on a Rainbow, but should also function on any other PC with
  19. MS-DOS V2 or higher.
  20.  
  21. --------------------------- cut here ---------------------------------
  22.  
  23.  
  24. PAGE    56,132
  25. TITLE   Exec Call Test- Call COMMAND.COM SHELL to do Directory (.EXE file)
  26. NAME    EXEC1
  27.  
  28. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  29. ;                                                                        ;
  30. ;  DOS EXEC-CALL EXAMPLE                                                 ;
  31. ;  Loads COMMAND.COM,  and executes a directory on default drive.        ;
  32. ;                                                                        ;
  33. ;  Based on a shell example by Brian Markey.                             ;
  34. ;  Note: This example does not do any error checking!!!                  ;
  35. ;                                                                        ;
  36. ;  Author: H. Striepe                                            8/84    ;
  37. ;                                                                        ;
  38. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  39.  
  40.  
  41. ; EQUATES
  42.  
  43. MSDOS           EQU  021h       ;MS-DOS interrupt
  44. Print           EQU  009h       ;  func: print string terminated with $
  45. ModMem          EQU  04ah       ;        modify allocated memory
  46. Exec            EQU  04bh       ;        load and execute program
  47. TermProc        EQU  04ch       ;        terminate process
  48.  
  49. Stacklen        EQU  128        ;Size of program stack
  50.  
  51. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  52.  
  53. code    SEGMENT PARA 'codeseg'
  54.  
  55.         ASSUME  CS:code,SS:stack,DS:data,ES:nothing
  56.  
  57. Start:                                          ; Program entry point
  58.  
  59.         MOV     AX,SEG data                     ; load data seg pointer
  60.         MOV     DS,AX                           ;  .
  61.  
  62.         MOV     AH,Print                        ; Print "Before shell"
  63.     MOV    DX,OFFSET mess1            ;  .
  64.     INT    MSDOS                ;  ..
  65.  
  66. ; MS-DOS allocates all available memory to a program upon loading,
  67. ; we first have to deallocate all unused memory using function 4Ah.
  68. ; ES := point to PSB (default after load)
  69. ; BX := current program size in paragraphs
  70. ; Note: If on calling function 4Ah ES: is not equal to the PSB MS-DOS
  71. ;       allocated on loading, an ARENA TRASHED error will result.
  72.  
  73. ; ES: still points to PSB,  calculate memory required for calling 
  74. ; routine:
  75.  
  76.         MOV     BX,OFFSET end+256               ; code space+PSP
  77.         ADD     BX,stacklen                     ; + stackspace
  78.         ADD     BX,OFFSET lastloc+15            ; + data space
  79.         MOV     CX,4                            ;  in
  80.         SHR     BX,CL                           ;  paragraphs
  81.  
  82.  
  83.         XOR     AL,AL                           ; Deallocate unused memory
  84.         MOV     AH,Modmem                       ;  .
  85.         INT     MSDOS                           ;  ..
  86.  
  87. ; In case of error, carry would be set.
  88. ;   Error codes in AX:  7=> arena trashed
  89. ;                       8=> not enough memory
  90. ;                       9=> invalid block
  91.  
  92.         MOV     SI,2CH                          ; Get environment address
  93.         MOV     AX,ES:[SI]                      ;  from PSP+2CH
  94.         MOV     WORD PTR parmblk,AX             ;  .
  95.  
  96.         MOV     DX,OFFSET filenam               ; Set up exec call
  97.         PUSH    DS                              ;  .
  98.         POP     ES                              ;  ..
  99.         MOV     BX,OFFSET parmblk               ;  ...
  100.         XOR     AL,AL                           ;  ....
  101.         MOV     AH,Exec                         ;  .....
  102.  
  103.     PUSH    DS                ; Save machine state
  104.     PUSH    ES                ;  .
  105.         MOV     CS:savess,SS                    ;  ..
  106.         MOV     CS:savesp,SP                    ;  ...
  107.  
  108.     INT    MSDOS                ; Shell to DOS
  109.  
  110. ; In case of error, carry would be set.
  111. ;   Error codes in AX:  1=> invalid function
  112. ;                       2=> file not found
  113. ;                       8=> not enough memory
  114. ;                      10=> bad environment
  115. ;                      11=> bad format
  116.  
  117.         MOV     SP,CS:savesp                    ; Restore machine state
  118.     MOV    SS,CS:savess            ;  .
  119.         POP     ES                              ;  ..
  120.         POP     DS                              ;  ...
  121.  
  122.         MOV     AH,Print                        ; Print "After shell"
  123.     MOV    DX,OFFSET mess2            ;  .
  124.     INT    MSDOS                ;  ..
  125.  
  126.         MOV     AH,TermProc                     ; Terminate process
  127.         XOR     AL,AL                           ;  .  no error...
  128.         INT     MSDOS                           ;  ..
  129.  
  130. savess    DW    ?                ; Holders for SS:SP
  131. savesp  DW      ?                               ;  .
  132.  
  133. end:
  134.  
  135. code    ENDS
  136.  
  137. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  138.  
  139. stack   SEGMENT PARA STACK 'stackseg'
  140.  
  141.         DB      Stacklen DUP (?)                ; Stack
  142. TOS     LABEL   BYTE                            ;  .
  143.  
  144. stack   ENDS
  145.  
  146. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  147.  
  148. data    SEGMENT PARA 'dataseg'
  149.  
  150. mess1    DB    'Before shell',0DH,0AH,'$'    ; Program messages
  151. mess2    DB    'After shell',0DH,0AH,'$'    ;  ..
  152. filenam DB      '\command.com',0                ; Load filename
  153. parmblk    DW    00                ; Parameter block
  154.         DD      comline                         ;  .
  155.         DD      fcb_one                         ;  ..
  156.         DD      fcb_two                         ;  ...
  157.  
  158. comline DB      07H,'/C dir ',0DH               ; Command line
  159.  
  160. ; The following are two full fcb's
  161.  
  162.                 db 0ffh         ;flag byte, extended fcb
  163.                 db 5 dup (0)    ;reserved
  164.                 db (0)          ;attribute
  165. fcb_one         db 0            ;drive number
  166.                 db "        "   ;filename
  167.         db "   "    ;extension
  168.         dw 0        ;current block
  169.         dw 0        ;record size
  170.         dd 0        ;file size
  171.         dw 0        ;date of last write
  172.         dw 0        ;time of last write
  173.         db 8 dup (0)    ;reserved
  174.                 db 0            ;current record
  175.         dd 0        ;relative record
  176.  
  177.                 db 0ffh         ;flag byte, extended fcb
  178.                 db 5 dup (0)    ;reserved
  179.                 db (0)          ;attribute
  180. fcb_two         db 0            ;drive number
  181.                 db "        "   ;filename
  182.         db "   "    ;extension
  183.         dw 0        ;current block
  184.         dw 0        ;record size
  185.         dd 0        ;file size
  186.         dw 0        ;date of last write
  187.         dw 0        ;time of last write
  188.         db 8 dup (0)    ;reserved
  189.                 db 0            ;current record
  190.         dd 0        ;relative record
  191.  
  192. lastloc LABEL   BYTE                            ; End of program
  193.  
  194. data    ENDS
  195.  
  196.         END     start
  197.