home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol175 / f47-test.a86 < prev    next >
Encoding:
Text File  |  1984-07-15  |  729 b   |  45 lines
  1.     TITLE    'Function 47 Test'
  2. ;
  3. ;A quick test of CP/M-86 BDOS function call 47
  4. ;extracted from a DRI applications note
  5. ;by:
  6. ;    Bill Bolton,
  7. ;    SYSOP,
  8. ;    Software Tools RCPM,
  9. ;    Sydney,
  10. ;    Australia
  11. ;
  12.     CSEG
  13.  
  14. CHAIN    EQU    47        ;BDOS function 47, chain to program
  15. BDOS    EQU    224        ;BDOS interupt entry point
  16.  
  17.     DSEG
  18.  
  19.     ORG    80H
  20.  
  21. DEFAULT_DMA_BUFFER    RB    80H
  22.  
  23. FILE_NAME        DB    'SID',0
  24. ;                ^^^^^^^^^^^^ put your own favourite
  25. ;                CP/M-86 CMD file name and command line
  26. ;                arguments in here
  27. ;
  28.     CSEG    $
  29.  
  30.     CLD
  31.     MOV    SI,Offset FILE_NAME    ;Move file name into buffer
  32.     MOV    DI,Offset DEFAULT_DMA_BUFFER
  33.     MOV    CX,Length FILE_NAME + 1
  34.     PUSH    ES
  35.     MOV    AX,DS
  36.     MOV    ES,AX
  37.  
  38.     REP    MOVSB
  39.  
  40.     POP    ES
  41.     MOV    CL,CHAIN        ;Chain to program
  42.     INT    BDOS            ;We're off to see the wizard!
  43.  
  44.     END
  45.