16c5x/7x Cross-Assembler V4.11 Released  Sat Feb 11 04:49:49 1995  Page 1

Line   PC    Opcode

0001               ;************************************************
0002               ;*    AN EXPERIENCE TO TURN 8 LED ONE BY ONE	*
0003               ;*    FILE NAME: 8LED.ASM			*
0004               ;************************************************
0005               
0006         0003  STATUS  equ     3h		;STATUS REGISTER
0007         0006  PORT_B  equ     6h		;PORT B ADDRESS
0008         0006  TRISB   equ     06H		;PORT B DATA CONTROL BYTE
0009               
0010         0000  	ORG     0		;PROGRAM START HERE
0011   0000  1683  MAIN    BSF     STATUS,5        ;SET PAGE 1
0012   0001  0186  	CLRF    TRISB           ;SET PORT B ALL OUTPUT
0013   0002  1283  	BCF     STATUS,5        ;BACK TO PAGE 0
0014   0003  1003  	BCF	STATUS,0	;CLEAR CARRY
0015   0004  3001  	MOVLW   1               ;START WITH 1 LED ON
0016   0005  008C  	MOVWF   0CH             ;SAVE IT TO BUFFER
0017   0006  080C  LOOP    MOVF	0CH,0           ;LOOP, LOAD FROM BUFFER TO W
                       ORK'G REG.
0018   0007  0086  	MOVWF   PORT_B          ;SEND DATA TO PORT B
0019   0008  200B  	CALL    DELAY           ;CALL SUBROUTINE, DELAY A MOMENT
                       
0020   0009  0D8C  	RLF	0CH,1           ;LEFT SHIFT BUFFER REG.
0021   000A  2806  	GOTO    LOOP            ;JUMP TO LOOP
0022               
0023               DELAY
0024   000B  30FF  	MOVLW   255             ;LOAD WORK'G REG. WITH VALUE 255
                       
0025   000C  008D  	MOVWF   0DH             ;TRANSFER WORK'G REG. TO RAM f0D
                       
0026   000D  30FF  DLY1    MOVLW   255             ;WORK'G REG. = 255
0027   000E  008E  	MOVWF   0EH             ;TRANSFER WORK'G REG. TO RAM f0E
                       
0028   000F  0B8E  DLY2    DECFSZ  0EH             ;[f0E] - 1 = 0 ?
0029   0010  280F  	GOTO    DLY2            ;NO, GO BACK TO DLY2 UNTIL 0 COU
                       NT
0030   0011  0B8D  	DECFSZ  0DH             ;[f0D] - 1 = 0 ?
0031   0012  280D  	GOTO    DLY1            ;NO, GO BACK TO DLY1 UNTIL 0 COU
                       NT
0032   0013  0008  	RETURN                  ;RETURN TO MAIN PROGRAM
16c5x/7x Cross-Assembler V4.11 Released  Sat Feb 11 04:49:49 1995  Page 2



Cross-Reference Listing
LABEL        VALUE        DEFN        REFERENCES
DELAY        11           23          19     23     
DLY1         13           26          26     31     
DLY2         15           28          28     29     
LOOP         6            17          17     21     
MAIN         0            11          11     
PORT_B       6            7           7      18     
STATUS       3            6           6      11     13     14     
TRISB        6            8           8      12