MPASM 02.13 Released           EXPT5B.ASM   9-19-1981  23:19:50         PAGE  1


LOC  OBJECT CODE     LINE SOURCE TEXT
  VALUE

                    00001           ;Experiment-5B for "5x7 Video Screen" Project      
                    00002              ;PIC16F84 and only F84 chip         
                    00003              ;Toggling a LED (with de-bounce) 
                    00004 
0000                00005 START   ORG 0X00
0000 1683           00006         BSF 03,5        ;Go to page1 for setting-up the ports
0001 3004           00007         MOVLW 04H       ;Load W with 04           
0002 0085           00008         MOVWF 05H       ;Make RA2 input for button A    
0003 3000           00009         MOVLW 00H       ;Put 00 into W      
0004 0086           00010         MOVWF 06H       ;Make all RB lines output
0005 1283           00011         BCF 03,5        ;Go to Page0 for programming
                    00012 
0006 3002           00013         MOVLW 02H       ;Put 02 into W to
0007 0085           00014         MOVWF 05H       ;    Reset the 4017
0008 3000           00015         MOVLW 00
0009 0086           00016         MOVWF 06H       ;Zero the output port
000A 281E           00017         GOTO MAIN
                    00018 
000B 1D05           00019 SWITCH  BTFSS 05,2      ;Is switch A pushed?
000C 2815           00020         GOTO SWITCH2    ;YES.
000D 081D           00021         MOVF 1DH,0      ;NO. Copy 1Dh into W
000E 3A00           00022         XORLW 00        ;XOR W with 00
000F 1D03           00023         BTFSS 03,2      ;Is file 1Dh=0?
0010 2812           00024         GOTO SWITCH1    ;NO.
0011 0008           00025         RETURN          ;YES.
0012 0B9D           00026 SWITCH1 DECFSZ 1DH,1    ;Decrement the debounce file
0013 0000           00027         NOP
0014 0008           00028         RETURN
0015 081D           00029 SWITCH2 MOVF 1DH,0      ;1Dh is the debounce file
0016 3A00           00030         XORLW 00        ;
0017 1D03           00031         BTFSS 03,2      ;Is file 1Dh=0?
0018 0008           00032         RETURN          ;NO.
0019 3001           00033         MOVLW 01        ;YES. LED is on line0 of port6
001A 0686           00034         XORWF 06,1      ;Toggle the LED 
001B 3080           00035         MOVLW 80H       ;Load W with 80h loops
001C 009D           00036         MOVWF 1DH       ;Put 80h into debounce file
001D 0008           00037         RETURN
                    00038 
001E 0000           00039 MAIN    NOP
001F 200B           00040         CALL SWITCH
0020 0000           00041         NOP
0021 0000           00042         NOP
0022 281E           00043         GOTO MAIN
                    00044 
                    00045         END
MPASM 02.13 Released           EXPT5B.ASM   9-19-1981  23:19:50         PAGE  2


SYMBOL TABLE
  LABEL                             VALUE 

MAIN                              0000001E
START                             00000000
SWITCH                            0000000B
SWITCH1                           00000012
SWITCH2                           00000015
__16F84                           00000001


MEMORY USAGE MAP ('X' = Used,  '-' = Unused)

0000 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXX------------- ----------------

All other memory blocks unused.

Program Memory Words Used:    35
Program Memory Words Free:   989


Errors   :     0
Warnings :     0 reported,     0 suppressed
Messages :     0 reported,     0 suppressed