csample3.a66

keilc pic的版本 才搞到的 希望对大家有帮助

;  CSAMPLE3.A66:  A166/A167 ASSEMBLER Sample Program
;  Copyright KEIL ELEKTRONIK GmbH, 1992-1997


$SEGMENTED
$CASE

$IF __MOD167__
$INCLUDE (..\..\ASM\REG167.INC)
$ENDIF

PUBLIC serinit
ASSUME	DPP3:SYSTEM

?PR?SERINIT	section	code 'NCODE'

serinit	proc	near

;*******************************
;*** INIT SERIAL INTERFACE 0 ***
;*******************************

	BSET	P3.10		; SET PORT 3.10 OUTPUT LATCH (TXD)
	BSET	DP3.10		; SET PORT 3.10 DIRECTION CONTROL (TXD OUTPUT)
	BCLR	DP3.11		; RESET PORT 3.11 DIRECTION CONTROL (RXD INPUT)
	MOVB	S0TIC,#080H	; SET TRANSMIT INTERRUPT FLAG
	MOVB	S0RIC,#000H	; DELETE RECEIVE INTERRUPT FLAG
	MOV	S0BG ,#0040H	; SET BAUDRATE TO 9600 BAUD
	MOV	S0CON,#8011H	; SET SERIAL MODE
	RET

serinit	endp

?PR?SERINIT	ENDS

	end