gcd.p

小型C语言编译器,VC条件下运行,最后编译为汇编代码

;------------ Copyright 陆晓春, 2004 ------------
;start of function 'int gcd(...)' declaration
	ent 	gcd
;parameter: 'int v'
;parameter: 'int u'
;start of if statement
;if conditions
	lod 	v
	ldci	0
	equ 	;equal expression
	fjp 	L1
;if statements
;return statement
	lod 	u
	ret
	ujp 	L2
	lab 	L1
;else statements
;return statement
;call 'gcd(...)'
	mst
	lod 	u
	lod 	u
	lod 	v
	dvi 	;integer div
	lod 	v
	mpi 	;integer mul
	sbi 	;integer sub
	lod 	v
	cup 	gcd
;end of call 'gcd(...)'
	ret
	lab 	L2
;end of if statement
	ret
;end of function 'int gcd(...)' declaration
;------------ Copyright 陆晓春, 2004 ------------
;start of function 'void main(...)' declaration
	ent 	main
;declaration: int x
;declaration: int y
;read
	lda 	x
	rdi	;read an integer from terminal
;read
	lda 	y
	rdi	;read an integer from terminal
;write
;call 'gcd(...)'
	mst
	lod 	y
	lod 	x
	cup 	gcd
;end of call 'gcd(...)'
	wri	;output an integer to terminal
	ret
;end of function 'void main(...)' declaration