LOC Data_Segment
            GREG @
            
buffer      BYTE 0,0
newline     BYTE #a,0

            LOC #100
Zahl        IS  $1

Main        SET Zahl,64
            PUSHJ $0,dec2bin
            
            LDA $255,newline
            TRAP 0,Fputs,StdOut
            TRAP 0,Halt,0
            
num         IS  $0
adr_rJ      IS  $1
Rest        IS  $2
tmp         IS  $4

dec2bin     GET adr_rJ,rJ
            DIV num,num,2
            GET Rest,rR
            BZ num,anker
            SET tmp,num
            PUSHJ $3,dec2bin
anker       ADD Rest,Rest,'0'
            
            STB Rest,buffer
            LDA $255,buffer
            TRAP 0,Fputs,StdOut
            PUT rJ,adr_rJ
            POP 0,0