
;
; Copyright (c) 1988 Commodore-Amiga, Inc.
;
; Executables based on this information may be used in software
; for Commodore Amiga computers.  All other rights reserved.
;
; This information is provided "as is"; no warranties are made.
; All use is at your own risk, and no liability or responsibility is assumed.
;

		CODE

		INCLUDE	"exec/types.i"
		INCLUDE	"printf.mac"

		DEBUGENABLE

; a simple little program to test if the printf macro works OK
Start		printf <'Starting: d0=%ld a0=$%lx\n'>,d0,a0
		cmpi.w	#1,d0
		bne.s	PrintArgs
		printf <'No arguments given\n'>
		bra.s	AllDone

PrintArgs	printf <'Arg string = '>
		subq.w	#1,d0
ArgLoop		move.b	(a0)+,d1		get next character
		printf <'%c'>,d1		print it out
		dbra	d0,ArgLoop		and loop for next

AllDone		rts

		END

