recursivitate.asm

袖珍型的pascal编译器

; factorial code beginning
		ENTER 2, 0
		CHGSFP 1 
		LODA 4 
		RSTSFR
		CHGSFP 1 
		LOD 4 
		RSTSFR
		LODI 1
		ADD
		STO
		LOD -2 
		LODI 1
		EQU
		NFJP ET1
		LODA -3 
		LODI 0
		LODI 1
		SUB
		STO
		UJP ET2
ET1:
		LODA -3 
; Calling: factorial
		LODI 0
		LOD -2 
		LODI 1
		SUB
		CALL factorial
		RED 1 
		LODI 0
		LOD -2 
		SUB
		MUL
		STO
ET2:
		LEAVE
		RET
; recursivitate code beginning
		ENTER 1, 3
		LODA 4 
		LODI 0
		STO
		LODI x
		OUTP
		LODI =
		OUTP
		LODA 2 
		INP 2 
		STO
; Calling: factorial
		LODI 0
		LOD 2 
		CALL factorial
		RED 1 
		OUTP
		LODI 

		OUTP
		LODI 
		OUTP
		LOD 4 
		OUTP
		LODA 3 
		INP 1 
		STO
		LEAVE
		RET
		STOP