read.asm

一个锅炉温度控制程序

NAME	READ
;BYTE can_read(BYTE a)

?PR?_CAN_READ?READ SEGMENT CODE
?DT?_CAN_READ?READ SEGMENT DATA OVERLAYABLE

PUBLIC _can_read
RSEG ?DT?_CAN_READ?READ
USING	0
?_can_read?BYTE:
	a?00:	DS	1
RSEG ?PR?_CAN_READ?READ
_can_read:NOP
	MOV a?00,R7
	MOV DPTR,#2000H
	MOV A,DPL
	ADD A,R7
	MOV DPL,A
	MOVX A,@DPTR
	MOV R7,A
	RET

	END