ud51lib.h

汇编语言指导手册 （ASM51分册） 张建国 主编 c51工具包

/*	IF YOU WANT TO USE UD51.LIB YOU MUST INCLUDE THIS HEAD FILE AT THE
	BEGINNING IN YOUR SOURCE FILE					*/

DECLARE
	M_MAIN		LITERALLY '0',
	M_CONST 	LITERALLY '1',
	ADDR_FIELD	LITERALLY '0',
	DATA_FIELD	LITERALLY '1',
	BLANK		LITERALLY '1',
	NOBLANK 	LITERALLY '0';


DECLARE
	UD_CHAR BYTE EXTERNAL;	/* KEY VALUE LAST INPUTED */

UD_KB_ESC:
	PROCEDURE EXTERNAL;
	END UD_KB_ESC;

UD_INIT:
/* CALL THIS PROCEDURE BEFORE CALL ANY PROCEDUER OF UD51LIB */
	PROCEDURE EXTERNAL;
	END UD_INIT;

/*DISPLAY PROCEDURE
	THIS ROUTINE DISPLAY THE CONTENTS OF THE ARRAY POINTED TO BY THE FIRST
	PARM TO THE FIELD SPECIFIED BY THE SECOND(ADDR/DATA).THE NUMBER OF
	DECIMAL POINTERS OR PROMPTS IS DETEREMINED B THE THIRD PARAMETER
	THE LAST PARAMETER SPECIFIES THE MEMORY SPACE OF THE ARRAY,
	MTYPE = M_MAIN OR M_CONST    */
UD_DISPLAY: PROCEDURE(PTR,FIELD,PROMPTS,MTYPE) EXTERNAL;
	DECLARE PTR WORD;
	DECLARE MTYPE BIT;
	DECLARE (FIELD,PROMPTS) BYTE;
	END UD_DISPLAY;

/*UD_GET_CHAR:
	IF ANY KEY BE STRIKED RETURN THE VALUE OF THE KEY
	ELSE RETURN 0FFH.
*/
UD_GET_CHAR:	   PROCEDURE BYTE EXTERNAL;
END UD_GET_CHAR;

UD_GET_CHAR_DISP:
/*	GET CHAR WITH DISPLAY UPDATE.
	THIS PROCEDURE WAIT FOR A KEY STRIKING AND RETURN THE VALUE OF THE
	KEY.WHILE WAITTING,UPDATE THE LED DISPLAY */
	PROCEDURE BYTE EXTERNAL;
	END UD_GET_CHAR_DISP;

UD_BLANK_DATA_FIELD:
/*	THIS PROCEDURE CLAER DATA FILED DISPLAY */
	PROCEDURE (PROMPTS) EXTERNAL;
	DECLARE PROMPTS BYTE;
	END UD_BLANK_DATA_FIELD;
UD_BLANK_ADDR_FIELD:
/*	THIS PROCEDURE CLEAR ADDR FILED DISPLAY */
	PROCEDURE (PROMPTS) EXTERNAL;
	DECLARE PROMPTS BYTE;
	END UD_BLANK_ADDR_FIELD;
UD_DISP_BYTE:
/*	B=BYTE DISPLAYED ON DATA FILED WITH LEAD BLANKS
	PROMPTS IS THE NUMBER OF THE DECIMAL POINTERS FOR PROMPTS */
	PROCEDURE (B,PROMPTS) EXTERNAL;
	DECLARE (B,PROMPTS) BYTE;
	END UD_DISP_BYTE;
UD_DISP_WORD:
/*	W IS THE WORD WILL BE DISPLAYED ON THE FIELD SPECIFIED BY FIELD
	PROMPTS IS THE NUMBER OF THE DECIMAL POINTERS FOR PROMPTS
	BLANKING MY BE BLANK OR NOBLANK */

	PROCEDURE (W,FIELD,PROMPTS,BLANKING) EXTERNAL;
	DECLARE W WORD;
	DECLARE BLANKING BIT;
	DECLARE (FIELD,PROMPTS) BYTE;
	END UD_DISP_WORD;

UD_GET_EXPR:
/*	THIS PROCEDURE RETURN A WORD GETTED FROM THE KEYBOARD
	PROMPTS IS THE NUMBER OF THE DECIMAL POINTERS FOR PROMPTS
	BLANKING MY BE BLANK OR NOBLANK
	FIELD = DATA_FIELD OR ADDR_FIELD
	BEFORE CALL THIS PROCEDURE YOU SHOULD CALL GET_CHAR_DISP:
		UD_CHAR=UD_GET_CHAR_DISP;
		W=UD_GET_EXPR;			   */

	PROCEDURE (FIELD,PROMPTS,BLANKING) WORD EXTERNAL;
	DECLARE (FIELD,PROMPTS) BYTE;
	DECLARE BLANKING BIT;
	END UD_GET_EXPR;