JUF     START
        LD    GR0,DAT    ; 学籍番号のロード
        CPL   GR0,CMP1   ;  50 との大小比較
        JMI   UDR50
        SUBL  GR0,CMP1   ; <GR0>−50 → <GR0>
        CPL   GR0,CMP1   ;  50 との大小再比較
        JMI   UDR50
        SUBL  GR0,CMP1   ; <GR0>−50 → <GR0>
UDR50   ST    GR0,RSLT   ; <GR0> → <RSLT>
        RET
DAT     DC    999        ; 自分の学籍番号を10進数で入力
CMP1    DC    50
RSLT    DS    1
        END