led.asm

来自「已经测试过的RISC8的verilog源码和说明还包括编译环境和测试程序等」· 汇编 代码 · 共 63 行

LIST p=PIC16C57                          ; THE CORE IS PIC16C57
                 
PORTB   equ     0x06                    ;PORTB
TEMP1	 equ	0x18			;Temp variables
TEMP2   equ     0x19
TEMP3   equ     0x1A

START    CLRW
         TRIS   PORTB                ;PORTB AS OUTPUT
         
         MOVLW  0x01                 ;LIGHT THE FIRST LED
         MOVWF  PORTB
         CALL   DELAY

         MOVLW  0x02                 ;LIGHT THE SECOND LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x04                 ;LIGHT THE THIRD LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x08                 ;LIGHT THE FORTH LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x10                 ;LIGHT THE FIFTH LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x20                 ;LIGHT THE SIXTH LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x40                ;LIGHT THE SEVENTH LED
         MOVWF  PORTB
         CALL   DELAY 
         
         MOVLW  0x80                 ;LIGHT THE EIGHTH LED
         MOVWF  PORTB
         CALL   DELAY 
         GOTO   START

DELAY
	MOVLW	0xFF 
	MOVWF	TEMP1			;TEMP1 = 255
	MOVLW	0xFF
	MOVWF	TEMP2			;TEMP2 = 255
	MOVLW	0x03 
	MOVWF	TEMP3			;TEMP3 = 3
DLOOP
	DECFSZ  TEMP1, F
	GOTO    DLOOP

	DECFSZ  TEMP2, F
	GOTO    DLOOP

	DECFSZ  TEMP3, F
	GOTO    DLOOP

	RETLW	 0x00

	END