home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / miscutil / driver.lzh / DRIVER / TESTDEV.ASM < prev   
Encoding:
Assembly Source File  |  1991-11-01  |  2.0 KB  |  121 lines
  1.  
  2. *************************************************************************
  3. *                                    *
  4. *    Copyright (C) 1985, Commodore Amiga Inc.  All rights reserved.    *
  5. *    Permission granted for non-commercial use            *                                *
  6. *                                    *
  7. ************************************************************************/
  8.  
  9.  
  10. *************************************************************************
  11. *
  12. * testdev.asm -- test the mylib.asm code
  13. *
  14. * Source Control
  15. * ------ -------
  16. * 
  17. * $Header: amain.asm,v 31.3 85/10/18 19:04:04 neil Exp $
  18. *
  19. * $Locker: neil $
  20. *
  21. * $Log:    amain.asm,v $
  22. *
  23. ************************************************************************/
  24.  
  25.     INCLUDE    'exec/types.i'
  26.     INCLUDE    'exec/libraries.i'
  27.     INCLUDE    'exec/devices.i'
  28.     INCLUDE    'exec/io.i'
  29.     INCLUDE    'exec/tasks.i'
  30.     INCLUDE    'exec/interrupts.i'
  31.  
  32.     INCLUDE    'asmsupp.i'
  33.     INCLUDE    'mydev.i'
  34.  
  35.  
  36.  
  37.     XDEF    _main
  38.  
  39.     XREF    _printf
  40.     XREF    _AbsExecBase
  41.     XREF    _CreatePort
  42.     XREF    _DeletePort
  43.     XREF    _CreateStdIO
  44.     XREF    _DeleteStdIO
  45.  
  46.     XLIB    OpenDevice
  47.     XLIB    CloseDevice
  48.  
  49.  
  50. _main:
  51.     move.l    _AbsExecBase,a6
  52.  
  53.     ;------ make a reply port
  54.     pea    0
  55.     pea    myName
  56.     jsr    _CreatePort
  57.     addq.l    #8,sp
  58.  
  59.     move.l    d0,Port
  60.     beq.s    main_end
  61.  
  62.     ;------ get an io request
  63.     move.l    d0,-(sp)
  64.     jsr    _CreateStdIO
  65.     addq.l    #4,sp
  66.  
  67.     move.l    d0,Iob
  68.     beq    main_DeletePort
  69.  
  70.     move.l    d0,a1
  71.     move.l    #myName,LN_NAME(a1)
  72.  
  73.     ;------ open the test device: this will bring it in from disk
  74.     lea    myDevName(pc),a0
  75.     moveq.l    #1,d0
  76.     moveq.l    #0,d1
  77.     CALLSYS    OpenDevice
  78.  
  79.     tst.l    d0
  80.     beq.s    1$
  81.  
  82.     ;------ couldn't find the library
  83.     pea    0
  84.     move.l    d0,a0
  85.     move.b    IO_ERROR(a0),3(sp)
  86.     pea    myDevName(pc)
  87.     pea    nodevmsg(pc)
  88.     jsr    _printf
  89.     addq.l    #8,sp
  90.  
  91.     bra    main_DeleteIob
  92.  
  93. 1$:
  94.  
  95.     ;------ close the device
  96.     move.l    Iob,a1
  97.     CALLSYS    CloseDevice
  98.  
  99. main_DeleteIob:
  100.     move.l    Iob,-(sp)
  101.     jsr    _DeleteStdIO
  102.     addq.l    #4,sp
  103.  
  104. main_DeletePort
  105.     move.l    Port,-(sp)
  106.     jsr    _DeletePort
  107.     addq.l    #4,sp
  108.  
  109. main_end:
  110.     rts
  111.  
  112. myDevName:    MYDEVNAME
  113. myName:        dc.b    'testdev',0
  114. nodevmsg:    dc.b    'can not open device "%s": error %ld',10,0
  115. testmsg:    dc.b    'function MYFUNC%ld returned %ld',10,0
  116.  
  117. Port:    dc.l    0
  118. Iob:    dc.l    0
  119.  
  120.     END
  121.