home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / DVD!OMA2.DMS / in.adf / Examples / CLS.asm next >
Encoding:
Assembly Source File  |  1994-10-13  |  426 b   |  31 lines
  1.  
  2. ; CLS - Lösche ein CLI-Fenster.  Compress-Tab 8.
  3.  
  4.     INCLUDE    "lvo/exec.i"
  5.     INCLUDE    "lvo/dos.i"
  6.  
  7.     lea    DOSName(PC),a1
  8.     moveq    #0,d0
  9.     move.l    4,a6
  10.     jsr    _LVOOpenLibrary(a6)
  11.     tst.l    d0
  12.     beq.s    1$
  13.     move.l    d0,a6
  14.     jsr    _LVOOutput(a6)
  15.     move.l    d0,d1
  16.     lea    CLSText(PC),a0
  17.     move.l    a0,d2
  18.     moveq    #1,d3
  19.     jsr    _LVOWrite(a6)
  20.     move.l    a6,a1
  21.     move.l    4,a6
  22.     jsr    _LVOCloseLibrary(a6)
  23. 1$    moveq    #0,d0
  24.     rts
  25.  
  26. DOSName    dc.b    'dos.library',0
  27. CLSText    dc.b    12
  28.  
  29.     END
  30.  
  31.