LOC Data_Segment
            GREG @
gerade      BYTE "Zahl ist gerade",#a,0
ungerade    BYTE "Zahl ist ungerade",#a,0

            LOC #100
Zahl        IS  $0
Rest        IS  $1
tmp         IS  $2

Main        SET Zahl,91
            DIV tmp,Zahl,2
            GET Rest,rR
            BZ  Rest,Lgerade
            
            LDA $255,ungerade
            TRAP 0,Fputs,StdOut
            JMP end
            
Lgerade     LDA $255,gerade
            TRAP 0,Fputs,StdOut
            
end         TRAP 0,Halt,0