strpgm.inc

一个微型操作系统源码

%macro		REPEAT	0
			%push	REPEAT
			%$BEGIN:
%endmacro	

%macro		UNTIL	1
			J%-1	%$BEGIN
			%pop	
%endmacro				



%macro		IF	1
			%push if
			j%-1 %$ifnot
%endmacro

%macro		ELSE	0
			%ifctx if
				%repl	ELSE
				jmp	%$ifend			
				%$ifnot:
			%else
				%error "expected 'if' before 'else'"
			%endif
%endmacro

%macro		ENDIF	0
			%ifctx if
				%$ifnot:
				%pop
			%elifctx	ELSE
				%$ifend:
				%pop
			%else
				%error "expected 'if' or 'else' before 'endif'"
			%endif	
%endmacro			

%macro		BEGSR	1
	%1:		
%endmacro

%macro		ENDSR	0
			ret
%endmacro

%macro		EXSR	1
			call	%1
%endmacro	

%macro		SAVREG 	1-*
		%rep	%0
		push	%1
		%rotate	1
		%endrep

%endmacro

%macro		RSTREG 	1-*
		%rep %0
		%rotate -1
		pop	%1
		%endrep
%endmacro