2017-05-10 12:00:41 +02:00
|
|
|
|
00001 ;TPicSim5
|
|
|
|
|
|
00002 ;Programm zum Test des 16F84-Simulators.
|
|
|
|
|
|
00003 ;Es werden die Befehle BCF, BSF, BTFSC und BTFSS gepr<70>ft
|
|
|
|
|
|
00004 ;(c) St. Lehmann
|
|
|
|
|
|
00005 ;Ersterstellung: 23.03.2016
|
|
|
|
|
|
00006 ;
|
|
|
|
|
|
00007 list c=132 ;Zeilenl<6E>nge im LST auf 132 Zeichen setzen
|
|
|
|
|
|
00008
|
|
|
|
|
|
00009 ;Definition einiger Symbole
|
|
|
|
|
|
00010 ;zuerst Hardware-Register
|
|
|
|
|
|
00011 status equ 03h
|
|
|
|
|
|
00012 ra equ 05h
|
|
|
|
|
|
00013 rb equ 06h
|
|
|
|
|
|
00014
|
|
|
|
|
|
00015 ;f<>r den Benutzer frei verwendbare Register
|
|
|
|
|
|
00016 wert1 equ 0ch ;Variable Nr.1
|
|
|
|
|
|
00017 wert2 equ 0dh ;Variable Nr.2
|
|
|
|
|
|
00018 ergeb equ 0eh ;Variable Nr.3
|
|
|
|
|
|
00019
|
|
|
|
|
|
00020 ;Definition des Prozessors
|
|
|
|
|
|
00021 device 16F84
|
|
|
|
|
|
00022
|
|
|
|
|
|
00023 ;Festlegen des Codebeginns
|
|
|
|
|
|
00024 org 0
|
|
|
|
|
|
00025 loop
|
|
|
|
|
|
0000 3011 00026 movlw 11h ;in W steht nun 11h, DC=?, C=?, Z=?
|
|
|
|
|
|
0001 008C 00027 movwf wert1 ;diesen Wert abspeichern, DC=?, C=?, Z=?
|
|
|
|
|
|
0002 018D 00028 clrf wert2 ;W=11h, wert1=11h, wert2=00h, DC=?, C=?, Z=1
|
|
|
|
|
|
0003 178C 00029 bsf wert1,7 ;W=11h, wert1=91h, wert2=00h, DC=?, C=?, Z=1
|
|
|
|
|
|
0004 158C 00030 bsf wert1,3 ;W=11h, wert1=99h, wert2=00h, DC=?, C=?, Z=1
|
|
|
|
|
|
0005 120C 00031 bcf wert1,4 ;W=11h, wert1=89h, wert2=00h, DC=?, C=?, Z=1
|
|
|
|
|
|
0006 100C 00032 bcf wert1,0 ;W=11h, wert1=88h, wert2=00h, DC=?, C=?, Z=1
|
|
|
|
|
|
00033
|
|
|
|
|
|
0007 180C 00034 btfsc wert1,0
|
|
|
|
|
|
0008 0A8D 00035 incf wert2
|
|
|
|
|
|
0009 0A8D 00036 incf wert2
|
|
|
|
|
|
000A 198C 00037 btfsc wert1,3
|
|
|
|
|
|
000B 0A8D 00038 incf wert2
|
|
|
|
|
|
000C 0A8D 00039 incf wert2
|
|
|
|
|
|
000D 1D0C 00040 btfss wert1,2
|
|
|
|
|
|
000E 0A8D 00041 incf wert2
|
|
|
|
|
|
000F 0A8D 00042 incf wert2
|
|
|
|
|
|
0010 1F8C 00043 btfss wert1,7
|
|
|
|
|
|
0011 0A8D 00044 incf wert2
|
|
|
|
|
|
0012 038D 00045 decf wert2 ;in wert2 muss 04h stehen
|
|
|
|
|
|
00046
|
|
|
|
|
|
00047 ende
|
|
|
|
|
|
0013 2813 00048 goto ende ;Endlosschleife, verhindert Nirwana
|
|
|
|
|
|
00049
|
|
|
|
|
|
00050
|
