Форум РадиоКот

Код: Выделить всё

;--Register Definitions--
W	EQU	0x00
F	EQU	0x01

;--Register Files--
INDF		EQU	0x00
TMR0		EQU	0x01
PCL		EQU	0x02
STATUS		EQU	0x03
FSR		EQU	0x04
PORTA		EQU	0x05
PORTB		EQU	0x06
EEDATA		EQU	0x08
EEADR		EQU	0x09
PCLATH		EQU	0x0A
INTCON		EQU	0x0B
OPTION_REG		EQU	0x01
TRISA		EQU	0x05
TRISB		EQU	0x06
EECON1		EQU	0x08
EECON2		EQU	0x09

;--STATUS bits--
C		EQU	0x00
DC		EQU	0x01
Z		EQU	0x02
NOT_PD		EQU	0x03
NOT_TO		EQU	0x04
RP0		EQU	0x05
RP1		EQU	0x06
IRP		EQU	0x07

;--INTCON bits--
RBIF		EQU	0x00
INTF		EQU	0x01
T0IF		EQU	0x02
RBIE		EQU	0x03
INTE		EQU	0x04
T0IE		EQU	0x05
EEIE		EQU	0x06
GIE		EQU	0x07

;--OPTION_REG bits--
PS0		EQU	0x00
PS1		EQU	0x01
PS2		EQU	0x02
PSA		EQU	0x03
T0SE		EQU	0x04
T0CS		EQU	0x05
INTEDG		EQU	0x06
NOT_RBPU		EQU	0x07

;--EECON1 bits--
RD		EQU	0x00
WR		EQU	0x01
WREN		EQU	0x02
WRERR		EQU	0x03
EEIF		EQU	0x04

	__config	0x3ff2


;*** Programm dump ***

	org	0x0000		;Start address

	clrf	PORTA
	clrf	PORTB
	clrf	INTCON
	clrf	TMR0
	clrwdt
	bsf	STATUS,RP0
	movlw	0x00		;b'0000 0000',' ',.00
	movwf	TRISA
	movlw	0x01		;b'0000 0001',' ',.01
	movwf	TRISB
	movlw	0x46		;b'0100 0110','F',.70
	movwf	OPTION_REG
	bcf	STATUS,RP0
	movlw	~0x02		;b'0000 0010',' ',.02
	movwf	0x14
	movlw	~0x42		;b'0100 0010','B',.66
	movwf	0x12
	movlw	~0x02		;b'0000 0010',' ',.02
	movwf	0x11
	movlw	~0xFE		;b'1111 1110','þ',.254
	movwf	0x13
L_0015:
	movlw	0x0A		;b'0000 1010',' ',.10
	movwf	0x0E
	movwf	0x0F
	movwf	0x10
	movlw	0x78		;b'0111 1000','x',.120
	movwf	0x0C
	bcf	INTCON,INTF
L_001C:
	movlw	0x9F		;b'1001 1111','Ÿ',.159
	movwf	TMR0
	bcf	INTCON,T0IF
L_001F:
	btfss	INTCON,INTF
	goto	L_002E
	decfsz	0x0E,F
	goto	L_002D
	movlw	0x0A		;b'0000 1010',' ',.10
	movwf	0x0E
	decfsz	0x0F,F
	goto	L_002D
	movlw	0x0A		;b'0000 1010',' ',.10
	movwf	0x0F
	decfsz	0x10,F
	goto	L_002D
	movlw	0x0A		;b'0000 1010',' ',.10
	movwf	0x10
L_002D:
	bcf	INTCON,INTF
L_002E:
	btfss	INTCON,T0IF
	goto	L_001F
	bcf	STATUS,C
	rrf	0x14,F
	btfss	0x14,0
	goto	L_0038
	movlw	0x08		;b'0000 1000',' ',.08
	movwf	0x14
	movlw	0x14		;b'0001 0100','',.20
	movwf	FSR
L_0038:
	clrf	PORTA
	decf	FSR,F
	movf	INDF,W
	movwf	PORTB
	movf	0x14,W
	movwf	PORTA
	decfsz	0x0C,F
	goto	L_001C
	clrf	0x0D
	movf	0x10,W
	call	L_004C
	movwf	0x12
	movf	0x0F,W
	call	L_004C
	movwf	0x11
	bsf	0x0D,0
	movf	0x0E,W
	call	L_004C
	movwf	0x13
	goto	L_0015
L_004C:
	sublw	0x0A		;b'0000 1010',' ',.10
	btfss	STATUS,Z
	goto	L_0051
	btfss	0x0D,0
	goto	L_0054
L_0051:
	bsf	0x0D,0
	call	L_0056
	return
L_0054:
	movlw	~0xFE		;b'1111 1110','þ',.254
	return
L_0056:
	andlw	0x0F		;b'0000 1111',' ',.15
	addwf	PCL,F
	retlw	~0x02		;b'0000 0010',' ',.02
	retlw	~0x9E		;b'1001 1110','ž',.158
	retlw	~0x24		;b'0010 0100','$',.36
	retlw	~0x0C		;b'0000 1100',' ',.12
	retlw	~0x98		;b'1001 1000','˜',.152
	retlw	~0x48		;b'0100 1000','H',.72
	retlw	~0x40		;b'0100 0000','@',.64
	retlw	~0x1E		;b'0001 1110','',.30
	retlw	~0x00		;b'0000 0000',' ',.00
	retlw	~0x08		;b'0000 1000',' ',.08
	retlw	~0x7E		;b'0111 1110','~',.126
	retlw	~0xBE		;b'1011 1110','¾',.190
	retlw	~0xDE		;b'1101 1110','Þ',.222
	retlw	~0xEE		;b'1110 1110','î',.238
	retlw	~0xF6		;b'1111 0110','ö',.246
	retlw	~0xFA		;b'1111 1010','ú',.250

	END