home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / MISC / RSDir.lzh / SSDCM.A < prev   
Text File  |  1992-01-19  |  720b  |  44 lines
  1.     nam SSDCM
  2.     ttl    Basic09 Subroutine to interface to SS_DCmd
  3.     use    /dd/defs/oskdefs.d
  4.  
  5. *************************************
  6. * Interface to SS_DCmd SetStat call
  7. * from GMX Micro-20 documentation
  8. * 
  9. * DIM path,cmdblk(5),datbuf(bufsiz):BYTE
  10. * RUN SSDCM(path,cmdblk,datbuf)
  11. *
  12. * on entry from Basic09, d0=parm count
  13. *                        d1=addr of 1st parm
  14. *
  15.  
  16.     org 4
  17.  
  18. PLen1    do.l    1
  19. PAdr2    do.l    1
  20. PLen2    do.l    1
  21. PAdr3    do.l    1
  22. PLen3    do.l    1
  23.  
  24.     psect    ssdcm,(Sbrtn<<8)!Objct,(ReEnt<<8)!1,0,0,Start
  25.  
  26. Start
  27.     cmpi.l    #3,d0
  28.     bne.s    ParamErr
  29.     move.l    d1,a0
  30.     move.b    (a0),d0
  31.     cmpi.l    #5,PLen2(a7)
  32.     bne.s    ParamErr
  33.     move.l    PAdr2(a7),a0
  34.     move.l    PAdr3(a7),a1
  35.     moveq    #SS_DCmd,d1
  36.     os9        I$SetStt
  37.     rts
  38.  
  39. ParamErr
  40.     move.w#E$BMode,d1
  41.     ori    #Carry,ccr
  42.     rts
  43.  
  44.