JZE     START
        LD     GR0,DAT    ; 学籍番号のロード
        AND    GR0,MSK1   ;  最下位ビットの取り出し
        JZE    EVEN
        LAD    GR0,#FFFF  ; #FFFF → <GR0>
EVEN    ST     GR0,RSLT   ; <GR0> → <RSLT>
        RET
DAT     DC     999        ; 自分の学籍番号を10進数で入力
MSK1    DC         1
RSLT    DS         1
        END