WARU  START           ;＜WARU.CAS＞
      LAD   GR1,100   ; GR1=100
      LAD   GR2,20    ; GR2=20
      CALL  DIV       ;サブルーチンコール
      LAD   GR1,60    ; GR1=60
      LAD   GR2,7     ; GR2=7
      CALL  DIV       ;サブルーチンコール
      RET             ;終了
      END
DIV   START           ;わり算サブルーチン
      LD    GR3,GR2   ; GR3=GR2
      LD    GR2,GR1   ; GR2=GR1
      LAD   GR1,-1    ; GR1=-1
D1    LAD   GR1,1,GR1 ;インクリメント
      SUBA  GR2,GR3   ; GR2=GR2-GR3
      JPL   D1        ;正ならばD1
      JZE   D1        ;ゼロならばD1
      ADDA  GR2,GR3   ; GR2=GR2+GR3
      RET             ;戻る
      END