CASL2 たらい関数

;
; CASL2 たらい関数
;
TARAI START
      LAD GR1,12
      LAD GR2,6
      LAD GR3,0
      CALL PROC
      DREG MSG
      RET
PROC  CPA GR2,GR1
      JMI NEXT
      RET
NEXT  PUSH 0,GR1  ; x
      PUSH 0,GR2  ; y
      PUSH 0,GR3  ; z
      LAD GR1,-1,GR1
      CALL PROC
      LAD GR4,0,GR2
      POP GR2     ; z
      POP GR1     ; y
      POP GR3     ; x
      PUSH 0,GR4       ; X
      PUSH 0,GR3  ; x
      PUSH 0,GR1  ; y
      PUSH 0,GR2  ; z
      LAD GR1,-1,GR1
      CALL PROC
      LAD GR4,0,GR2
      POP GR1     ; z
      POP GR3     ; y
      POP GR2     ; x
      PUSH 0,GR4       ; Y
      LAD GR1,-1,GR1
      CALL PROC
      LAD GR3,0,GR2    ; Z
      POP GR2     ; Y
      POP GR1     ; X
      CALL PROC
      RET
MSG   DC   'OWARI'
      END