PropellerClock/main.asm at master · icevin/PropellerClock · GitHub

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
; PROPELLER CLOCK PROJECT
; KEVIN/SAHAR/PARTH/ADRIAN
; 5/28/2017

#include <p16f887.inc>

count EQU 0x20
del1 EQU 0x21
del2 EQU 0x22
count10 EQU 0x23

	ORG 0
	GOTO main
	ORG 4
	GOTO isr

main:
	BANKSEL ANSELH
	CLRF ANSELH
	BANKSEL TRISB
	CLRF TRISB
	BANKSEL PORTB
	MOVLW 0xFF
	MOVWF PORTB
	MOVLW 0x00
	MOVWF count
	MOVLW .10
	MOVWF count10
	CLRW


loop:
	CALL display
	XORLW 0xFF
	MOVWF PORTB
	CALL delay
	INCF count, 1
	MOVF count, 0
	XORLW 0x0C
	BTFSC STATUS, 2
	GOTO endword
	MOVF count, 0
	GOTO loop

display:
	ADDWF PCL, 1
	RETLW B'11111111' ;1
	RETLW B'00000000' ;space
	RETLW B'01111110'
	RETLW B'10000001'
	RETLW B'10000001'
	RETLW B'01111110' ;0
	RETLW B'00000000' ;space
	RETLW B'01111110'
	RETLW B'10000001'
	RETLW B'10000001'
	RETLW B'01111110' ;0
	RETLW B'00000000' ;space

delay:
	MOVLW .250
	MOVWF del1
loop1:
	MOVLW .5
	MOVWF del2
loop2:
	NOP
	DECFSZ del2
	GOTO loop2

	DECFSZ del1
	GOTO loop1
	RETURN

endword:
	CLRW
	CLRF count
	MOVLW .10
	MOVWF count10
delay50ms:
	CALL delay
	DECFSZ count10
	GOTO delay50ms
	GOTO loop

isr:
	NOP
	RETFIE

	END