home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / print.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  231 b   |  13 lines
  1. print:                ;dos lib must be open
  2.     clr.l    d3        ;dosbase = dosbase
  3.     move.l    a0,a1        ;a0 = txt adr
  4. loop:    cmp.b    #0,(a1)+    ;d1 = handle#
  5.     beq    utskr
  6.     add.l    #1,d3
  7.     jmp    loop
  8. utskr:    move.l    a0,d2
  9.     move.l    dosbase,a6
  10.     jsr    write(a6)
  11.     beq    error
  12.     rts
  13.