REI55  START
       LD    GR1,A      ; Aの値をGR1に入れる
       LD    GR2,A      ; Aの値をGR2に入れる
       SRA   GR2,2      ; GR2の値を1/4倍する
       SUBA  GR1,GR2    ; A-1/4Aの計算
       ST    GR1,KOTAE  ; GR1をKOTAEに入れる
       RET
A      DC    50
KOTAE  DS    1
       END