CAL   START
        :
      
      
      LAD  GR1,DAT   ;  SUB1の入力
                     ; （GR1＝e）の準備
      CALL   SUB1    ; ループカウンタを
                     ; <N>＝4 に初期化
      
      
    （LAD  GR1,DAT）  ; 必要なら
        :
DAT   DS  4