🚀 go-pugleaf

  In article <67bcn3$ee3$1@news.twin.ne.jp>, son-yt@po.twin.ne.jp says...
   MAIN    START
   NEXT    PUSH    IN1            ；入力結果を入れてもらう番地
              CALL     INPUT 
              POP      GR0　　　　　；スタックのゴミ掃除　　　　　
              LEA       GR1,0
              CPA      GR1,IN1
              JZE       FIN　　　　　　；最初の入力が０なら終了
             PUSH     IN2　　　　　　；入力結果を入れてもらう番地
             CALL     INPUT
             POP      GR0　　　　　；スタックのゴミ掃除　　　　　　
             LD         GR1,IN1
             PUSH     0,GR1　　　　；被乗数をスタックへ
             LD         GR1,IN2　　　
             PUSH     0,GR1　　　　；乗数をスタックへ
             PUSH     PROD　　　　；乗算結果を格納してもらう番地
             CALL     MULT
             POP       GR0　　　　　；スタックのゴミ掃除　　　　　　　　
             POP       GR0　　　　　；スタックのゴミ掃除　　　　　
             POP       GR0　　　　　；スタックのゴミ掃除　　　　　
             LD         GR1,PROD
             PUSH     0,GR1　　　　；出力するデータをスタックへ
             CALL     OUTPUT
             POP      GR0　　　　　　；スタックのゴミ掃除　　　　　
             JMP      NEXT
   FIN      EXIT
   IN1       DS        1
   IN2       DS        1
   PROD   DS        1
             END

不勉強で、申し訳ありませんが、これって、ＰＡＳＣＡＬ？