CASLⅡで再帰を実行する

CASLⅡにおける再帰の例を挙げる。

'Hi!'と3回繰り返す。

; 'Hi!'と3回表示する
MAIN	START
		LAD  GR0,3
		CALL HI
		RET
;		
;GR0回、'Hi!'と表示する
HI		START   
		LD GR0,GR0
		JZE FIN
;
		OUT  HIMSG,LEN
		SUBA GR0,=1
		CALL HI
FIN		RET 
;
HIMSG   DC   'Hi! '
LEN     DC   4
		END

フィボナッチ数列をGR1とGR2に求める

; フィボナッチ数列をGR1とGR2に求める
; 0, 1, 1, 2, 3, 5 ……
MAIN	START
		LAD  GR0,4		; GR1=0, GR2=1から数えて、4回目のGR1=3,GR2=5を求める
		LAD  GR1,0
		LAD  GR2,1 
		CALL FIB
		RET
;
FIB		START  
		LD GR0,GR0
		JZE FIN
;
		XOR   GR1,GR2	; GR1とGR2を交換する
		XOR   GR2,GR1
		XOR   GR1,GR2
;
		ADDA  GR2,GR1
;
		SUBA GR0,=1
		CALL FIB
FIN  	RET 
;
		END