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

            ???
            
            TRAP 0,Halt,0