MPASM 02.15 Released EXPT8A.ASM 3-3-2002 18:06:31 PAGE 1 LOC OBJECT CODE LINE SOURCE TEXT VALUE 00001 ;Expt8a.asm 00002 ;Project: Resistance Scale:0-9 00003 ;List P = 16F84 00004 ;#include 00005 ;__CONFIG 1Bh    ;_CP_OFF & _PWRTE_ON & _WDT_OFF & _RC_OSC 00006 00007 0000 00008 ORG 0 ;This is the start of memory for the program. 0000 1683 00009 SETUP BSF 03,5 ;Go to Bank 1 0001 0186 00010 CLRF 06 ;Make all port B output 0002 301F 00011 MOVLW 1F 0003 0085 00012 MOVWF 05 ;Make port A input 0004 1283 00013 BCF 03,5 ;Go to Bank 0 - the program memory area. 0005 0186 00014 CLRF 06 ;Clear display 0006 282D 00015 GOTO MAIN 00016 0007 0782 00017 TABLE ADDWF 02H,1 ;Add W to the Program Counter to create a jump. 0008 343F 00018 RETLW 3FH ;0    format= gfedcba 0009 3406 00019 RETLW 06H ;1    If any table value has a leading letter, it must be 000A 345B 00020 RETLW 5BH ;2 preceded with a "0." E.g: 0A3h, 0FFh, 0CCh 000B 344F 00021 RETLW 4FH ;3 000C 3466 00022 RETLW 66H ;4 000D 346D 00023 RETLW 6DH ;5 000E 347D 00024 RETLW 7DH ;6 000F 3407 00025 RETLW 07H ;7 0010 347F 00026 RETLW 7FH ;8 0011 346F 00027 RETLW 6FH ;9 0012 3440 00028 RETLW 40H ;"-" overflow 00029 0013 3080 00030 DELAY MOVLW 80H ;Create 100mS delay 0014 009B 00031 MOVWF 1B 0015 0B9A 00032 DELAYA DECFSZ 1A,1 0016 2815 00033 GOTO DELAYA 0017 0B9B 00034 DECFSZ 1B,1 0018 2815 00035 GOTO DELAYA 0019 0008 00036 RETURN 00037 001A 3020 00038 DELAY2 MOVLW 20H ;Create "Look" delay 001B 009A 00039 MOVWF 1A 001C 0B9A 00040 DELAYB DECFSZ 1A,1 001D 281C 00041 GOTO DELAYB 001E 0008 00042 RETURN 00043 001F 018C 00044 LOOK CLRF 0C ;Count-down file 0020 1786 00045 BSF 06,7 ;Take cap HIGH 0021 201A 00046 LOOK2 CALL DELAY2 0022 1E05 00047 BTFSS 05,4 ;Is input LOW? 0023 2826 00048 GOTO LOOK3 0024 0A8C 00049 INCF 0C,1 0025 2821 00050 GOTO LOOK2 0026 080C 00051 LOOK3 MOVF 0C,0 ;Put file 0C into W 0027 2007 00052 CALL TABLE 0028 0086 00053 MOVWF 06 ;Output to 7-Segment display MPASM 02.15 Released EXPT8A.ASM 3-3-2002 18:06:31 PAGE 2 LOC OBJECT CODE LINE SOURCE TEXT VALUE 0029 2013 00054 CALL DELAY 002A 1386 00055 BCF 06,7 ;Take cap low 002B 2013 00056 CALL DELAY ;100mS delay 002C 0008 00057 RETURN 00058 002D 201F 00059 MAIN CALL LOOK 002E 282D 00060 GOTO MAIN 00061 00062 00063 END ;Tells assembler end of program MPASM 02.15 Released EXPT8A.ASM 3-3-2002 18:06:31 PAGE 3 SYMBOL TABLE LABEL VALUE DELAY 00000013 DELAY2 0000001A DELAYA 00000015 DELAYB 0000001C LOOK 0000001F LOOK2 00000021 LOOK3 00000026 MAIN 0000002D SETUP 00000000 TABLE 00000007 __16F84 00000001 MEMORY USAGE MAP ('X' = Used, '-' = Unused) 0000 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX- ---------------- All other memory blocks unused. Program Memory Words Used: 47 Program Memory Words Free: 977 Errors : 0 Warnings : 0 reported, 0 suppressed Messages : 0 reported, 0 suppressed