reciproc.asm

袖珍型的pascal编译器

; altceva code beginning
		ENTER 3, 0
		LOD -2 
		LODI 0
		LODI 5
		SUB
		LES
		NFJP ET1
		LOD -2 
		OUTP
		UJP ET2
ET1:
		LOD -2 
		OUTP
; Calling: ceva
		LOD -2 
		LODI 1
		SUB
		CALL ceva
		RED 1 
ET2:
		LEAVE
		RET
; ceva code beginning
		ENTER 2, 0
; Calling: altceva
		LOD -2 
		LODI 1
		SUB
		CALL altceva
		RED 1 
		LEAVE
		RET
; recreciprocatest code beginning
		ENTER 1, 1
; Calling: ceva
		LODI 10
		CALL ceva
		RED 1 
		LODA 2 
		INP 1 
		STO
		LEAVE
		RET
		STOP