home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / DVD!OMA2.DMS / in.adf / Examples / Startup / test.asm < prev    next >
Encoding:
Assembly Source File  |  1994-10-13  |  477 b   |  34 lines
  1.  
  2. ; Drucke die CLI-Parameter.  Compress-Tab 8.
  3.  
  4.     INCLUDE    "LVO.i"
  5.  
  6.     XDEF    _main
  7.     XREF    _DOSBase,_stdout
  8.  
  9. _main    move.l    d0,d7
  10.     move.l    a0,a5
  11.     move.l    _DOSBase,a6
  12.     bra.s    1$
  13.  
  14. 2$    move.l    (a5)+,a0
  15.     lea    string(PC),a1
  16.     move.l    a1,d2            ; Pufferzeiger
  17.     move.b    #'<',(a1)+
  18. 3$    move.b    (a0)+,(a1)+
  19.     bne.s    3$
  20.     move.b    #'>',-1(a1)
  21.     move.b    #10,(a1)+
  22.     move.l    a1,d3
  23.     sub.l    d2,d3            ; Länge
  24.     move.l    _stdout,d1        ; File
  25.     jsr    _LVOWrite(a6)
  26. 1$    dbra    d7,2$
  27.     moveq    #0,d0            ; Returncode
  28.     rts
  29.  
  30. string    ds.b    256
  31.  
  32.     END
  33.  
  34.