org $1000
			
	start:		move.w #5,-(sp)
			pea a
			jsr readarr
			lea a,a1
			moveq #4,d0
	print:		move.w (a1)+,d1
			ext.l d1
			jsr decout
			jsr newline
			dbra d0,print
			jsr newline
			jsr stop

	raddr:		equ 8		
	rcount:		equ 12
	rbytes:		equ 6
	
	readarr:	link a6,#0	
			movem.l d0-d1/a1,-(sp)
			movea.l (raddr,a6),a1
			move.w	(rcount,a6),d0
			
			subq.w #1,d0
	getval:		jsr decin
			move.w d1,(a1)+
			dbra d0,getval
			
			movem.l (sp)+,d0-d1/a1
			unlk a6
			move.l (sp),(rbytes,sp)
			addq.l #rbytes,sp
			rts

			
	
 	stop:		jsr newline
			stop #$2700

 	newline:	movem.l d0-d1,-(sp)
 			clr.l d1
			move #0,d0
			trap #15
			movem.l (sp)+,d0-d1
			rts
	
	charout:	move.l d0,-(sp)
			move #6,d0
			trap #15
			move.l (sp)+,d0
			rts
			
 	charin:		move.l d0,-(sp)
 			move #5,d0
			trap #15
			move.l (sp)+,d0
			rts
			
	decout:		move.l d0,-(sp)
			move #3,d0
			trap #15
			move.l (sp)+,d0
			rts
			
 	decin:		move.l d0,-(sp)
 			move #4,d0
			trap #15
			move.l (sp)+,d0
			rts
			
 	strout: 	move.l d0,-(sp)
 			move.b #1,d0
		 	trap #15
			move.l (sp)+,d0
			rts
			
	strin: 		move.l d0,-(sp)
			move.b #2,d0
			trap #15
			move.l (sp)+,d0
			rts
			
 	stroutendl:	move.l d0,-(sp)
 			move.b #0,d0
			trap #15
			move.l (sp)+,d0
			rts

	a:		ds.w 5	
 		end $1000

    Source: geocities.com/wonlin/Assembly

               ( geocities.com/wonlin)