test2.asm

袖珍型的pascal编译器

; aduna code beginning
		ENTER 2, 0
		LOD -2 
		LOD -4 
		LOD -3 
		ADD
		STO
		LEAVE
		RET
; add code beginning
		ENTER 2, 0
		LODA -4 
		LOD -3 
		LOD -2 
		ADD
		STO
		LEAVE
		RET
; tipareste code beginning
		ENTER 2, 1
		LODA 3 
		LODI 1
		STO
ET1:
		LODA 3 
		USTO
		LOD -2 
		GRT
		FJP ET2
		LOD 3 
		OUTP
		LODA 3 
		COPY
		USTO
		LODI 1
		ADD
		STO
		UJP ET1
ET2:
		LEAVE
		RET
; test2 code beginning
		ENTER 1, 7
		LODI X
		OUTP
		LODI =
		OUTP
		LODA 2 
		INP 2 
		STO
		LODI Y
		OUTP
		LODI =
		OUTP
		LODA 3 
		INP 2 
		STO
; Calling: aduna
		LOD 2 
		LOD 3 
		LODA 4 
		CALL aduna
		RED 3 
		LODI X
		OUTP
		LODI +
		OUTP
		LODI Y
		OUTP
		LODI  
		OUTP
		LODI =
		OUTP
		LODI  
		OUTP
		LOD 4 
		OUTP
		LODA 5 
		INP 1 
		STO
		LODI 

		OUTP
		LODI 
		OUTP
		LODI X
		OUTP
		LODI +
		OUTP
		LODI Y
		OUTP
		LODI  
		OUTP
		LODI =
		OUTP
		LODI  
		OUTP
; Calling: add
		LODI 0
		LOD 2 
		LOD 3 
		CALL add
		RED 2 
		OUTP
; Calling: tipareste
		LODI 10
		CALL tipareste
		RED 1 
		LODA 5 
		INP 1 
		STO
		LEAVE
		RET
		STOP