10 ; ODDEVEN.SRC›20 ; ODD OR EVEN?›30 ;›40 VALUE1=$C0›50 VALUE2=$C1›60 FLGADR=$C2›70 ;›80  *=$0600›90 ;›0100  LDA #7; (ODD)›0110  STA VALUE1›0120  LDA #0›0130  STA FLGADR; CLEARING FLGADR›0140 ;›0150  LDA VALUE1›0160  LSR A; PERFORM THE DIVISION›0170  STA VALUE2; DONE›0180 ;›0190  BCS FLAG›0200  RTS; END ROUTINE IF CARRY CLEAR›0210 ;›0220 FLAG NOP;›0230  LDA #$FF; OTHERWISE,SET FLAG›0240  STA FLGADR›0250  RTS; ... AND END PROGRAM››