2017-05-10 12:00:41 +02:00
|
|
|
|
00001 ;TPicSim1
|
|
|
|
|
|
00002 ;Programm zum Test des 16F84-Simulators.
|
|
|
|
|
|
00003 ;Es werden alle Literal-Befehle 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 count equ 0ch
|
|
|
|
|
|
00017
|
|
|
|
|
|
00018 ;Definition des Prozessors
|
|
|
|
|
|
00019 device 16F84
|
|
|
|
|
|
00020
|
|
|
|
|
|
00021 ;Festlegen des Codebeginns
|
|
|
|
|
|
00022 org 0
|
|
|
|
|
|
00023 start
|
|
|
|
|
|
0000 3011 00024 movlw 11h ;in W steht nun 11h, Statusreg. unver<65>ndert
|
|
|
|
|
|
0001 3930 00025 andlw 30h ;W = 10h, C=x, DC=x, Z=0
|
|
|
|
|
|
0002 380D 00026 iorlw 0Dh ;W = 1Dh, C=x, DC=x, Z=0
|
|
|
|
|
|
0003 3C3D 00027 sublw 3Dh ;W = 20h, C=1, DC=1, Z=0
|
|
|
|
|
|
0004 3A20 00028 xorlw 20h ;W = 00h, C=1, DC=1, Z=1
|
|
|
|
|
|
0005 3E25 00029 addlw 25h ;W = 25h, C=0, DC=0, Z=0
|
|
|
|
|
|
00030
|
|
|
|
|
|
00031
|
|
|
|
|
|
00032 ende
|
|
|
|
|
|
0006 2806 00033 goto ende ;Endlosschleife, verhindert Nirwana
|
|
|
|
|
|
00034
|
|
|
|
|
|
00035
|
