whiletest.asm

来自「袖珍型的pascal编译器」· 汇编 代码 · 共 28 行

; whiletest code beginning
		ENTER 1, 2
		LODA 3 
		LODI 0
		STO
ET1:
		LOD 3 
		LODI 10
		LES
		NFJP ET2
		LOD 3 
		OUTP
		LODI ,
		OUTP
		LODA 3 
		LOD 3 
		LODI 1
		ADD
		STO
		UJP ET1
ET2:
		LODA 2 
		INP 1 
		STO
		LEAVE
		RET
		STOP