opt	 l-
* dec1
        include  OpenDos.i

CONOUT  macro
        movem.l d0-d3/a6,-(sp)
	jsr	_LVOOutput(a6)		;Hole Output-Handle
	move.l	d0,d1			;Ausgabe-Handle
	move.l	\1,d2    		;Address Text
	move.l	#1,d3			;Laenge Text
	jsr	_LVOWrite(a6)		;Funktion "Schreiben"
        movem.l (sp)+,d0-d3/a6
	endm

        move     #62345,d2    ;Testzahl

        and.l    #$FFFF,d2    ;Begrenze auf Wort
        divs     #10000,d2    ;10000er Stelle
        bsr      out          ;ausgeben

        swap     d2           ;Divisionsrest nach d2.w
        and.l    #$FFFF,d2    ;wieder auf Wort bringen
        divs     #1000,d2     ;nun die 1000er Stelle
        bsr      out

        swap     d2           ;wie vor, die 100er
        and.l    #$FFFF,d2
        divs     #100,d2
        bsr      out

        swap     d2           ;nun die 10er           
        and.l    #$FFFF,d2
        divs     #10,d2
        bsr      out

        swap     d2           ;und die 1er
        bsr      out

	move.b	#10,buffer
        CONOUT  #buffer

        move.l  a6,a1                   ;DOS-Lib-Basis
	move.l  _SysBase,a6		;Basis Exec
        jsr     _LVOCloseLibrary(a6)	;Funktion "Schliessen"

fini	rts				;Return zum CLI


out     add.b   #'0',d2 		;in ASCII wandeln
        move.b  d2,buffer
	CONOUT	#buffer 		;1 Zeichen ausgeben
	rts

* Datenbereich:

dosname	 dc.b	'dos.library',0
	 cnop	0,2

buffer   ds.b   80