1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
list p=16c84
;;
;; mod_test.asm - a simple program to test gpsim's ability to interface
;; to modules
;;
include "p16c84.inc"
cblock 0x0c
pb_shadow
temp
endc
org 0
begin
;; Make all of portb I/O pins inputs
movlw 0xff
bsf STATUS,RP0
movwf TRISB^0x80
bcf STATUS,RP0
movf PORTB,w
movwf pb_shadow
bsf STATUS,RP0
clrf TRISB^0x80
bcf STATUS,RP0
bsf temp,4
l1: incf PORTB,f
decfsz temp,f
goto l1
clrf PORTB
goto begin
end
|
