LOC Data_Segment
            GREG @
            
bufsize     IS 8            
buffer      BYTE "        ",#a,0

newline     BYTE #a,0

            LOC #100
Zahl        IS  $0
Rest        IS  $1
i           IS  $2
adr         IS  $3

Main        SET Zahl,9
            SET i,bufsize
            LDA adr,buffer
loop        SUB i,i,1
            DIV Zahl,Zahl,2
            GET Rest,rR
            ADD Rest,Rest,'0'
            STB Rest,adr,i
            BNZ i,loop
            
loopend     SET $255,adr
            TRAP 0,Fputs,StdOut
            TRAP 0,Halt,0