list	p=16f877a			; PIC16F877A用のプログラムであることを宣言
	#include p16f877a.inc		; PIC16F877A用のヘッダ・ファイルを読み込む

CHR_0	equ	0x20
CHR_1	equ	0x21
CHR_2	equ	0x22

		movlw	D'0'
		call	CHR_PIC
		movwf	CHR_0
	
		movlw	D'1'
		call	CHR_PIC
		movwf	CHR_1

		movlw	D'2'
		call	CHR_PIC
		movwf	CHR_2

		goto	$

		org		0x200
CHR_PIC
		bsf		PCLATH, 1
		addwf	PCL, f
		retlw	'P'
		retlw	'I'
		retlw	'C'

		end				; プログラムの最後には必ず書く

リスト3-13     Copyright 2005 Noriaki Mitsunaga