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

            LOC #100
Zahl        IS  $1

Main        SET Zahl,5
            PUSHJ $0,dec2bin
            
            SET Zahl,11
            PUSHJ $0,dec2bin
            TRAP 0,Halt,0
            
num         IS  $0
Rest        IS  $1
i           IS  $2
adr         IS  $3            

dec2bin     SET i,bufsize
            LDA adr,buffer
loop        SUB i,i,1
            DIV num,num,2
            GET Rest,rR
            ADD Rest,Rest,'0'
            STB Rest,adr,i
            BNZ i,loop
       
            SET $255,adr
            TRAP 0,Fputs,StdOut
            POP 0,0