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
            
            ???
            
            TRAP 0,Halt,0