LOC Data_Segment
            GREG @
gerade      BYTE "0",0
ungerade    BYTE "1",0
newline     BYTE #a,0

            LOC #100
Zahl        IS  $0
Rest        IS  $1

Main        SET Zahl,9
loop        DIV Zahl,Zahl,2
            GET Rest,rR
            BZ  Rest,Lgerade
            
            LDA $255,ungerade
            TRAP 0,Fputs,StdOut
            JMP loopend
            
Lgerade     LDA $255,gerade
            TRAP 0,Fputs,StdOut
loopend     BNZ Zahl,loop
            
            LDA $255,newline
            TRAP 0,Fputs,StdOut
            TRAP 0,Halt,0