home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / driver / show / amiga / newclia.asm < prev    next >
Encoding:
Assembly Source File  |  1990-09-19  |  681 b   |  62 lines
  1.  
  2.     include "exec/types.i"
  3.     include "libraries/dosextens.i"
  4.     
  5.  
  6.  
  7. G_LOADDEVICE    equ    112
  8. G_FINDDEVICE    equ    124
  9.  
  10. CALL_GV    macro
  11.     moveq    #\1,d0
  12.     jsr    -28(a6)
  13.     endm
  14.  
  15.  
  16.     xdef    _NewConsole
  17.  
  18.  
  19.     section "text",code
  20.  
  21. _NewConsole
  22.     movem.l    d2/a2/a6,-(sp)
  23.  
  24.     move.l    16(sp),d2
  25.     movea.l    20(sp),a6
  26.  
  27.     lea    newName(pc),a0
  28.     bsr.s    2$
  29.     tst.l    d0
  30.     bne.s    1$
  31.     lea    conName(pc),a0
  32.     bsr.s    2$
  33.  
  34. 1$    movem.l    (sp)+,d2/a2/a6
  35.     rts
  36.  
  37. 2$    move.l    a0,d1
  38.     lsr.l    #2,d1
  39.     CALL_GV    G_FINDDEVICE
  40.     tst.l    d0
  41.     beq.s    3$
  42.  
  43.     movea.l    d0,a2
  44.     adda.l    a2,a2
  45.     adda.l    a2,a2
  46.  
  47.     move.l    d0,d1
  48.     moveq    #-1,d0
  49.     move.l    d0,dvi_Startup(a2)
  50.     CALL_GV    G_LOADDEVICE
  51.     clr.l    dvi_Startup(a2)
  52.  
  53. 3$    rts
  54.  
  55.  
  56.     cnop    0,4
  57. newName    dc.b    6,'NEWCON'
  58.     cnop    0,4
  59. conName    dc.b    3,'CON'
  60.  
  61.     end
  62.