git.ucc.asn.au
/
uccvend-snackrom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleanup and let gcc optimise the cases where row == 0 and row != 0
[uccvend-snackrom.git]
/
ROM2
/
start.s
diff --git
a/ROM2/start.s
b/ROM2/start.s
index
7611f1b
..
c3f8d36
100644
(file)
--- a/
ROM2/start.s
+++ b/
ROM2/start.s
@@
-6,10
+6,6
@@
_start:
ldab #0xfc ; 11111000
stab 0x1001
ldab #0xfc ; 11111000
stab 0x1001
- ;; turn display on
- ldx #0x1000
- bset 00,x #0x80
-
;; start chiming
ldx #0x1000
bset 00,x #0x10
;; start chiming
ldx #0x1000
bset 00,x #0x10
@@
-26,10
+22,6
@@
_start:
ldaa #0x81
staa 0x1026 ;; RTI interval becomes E/2^14 = 6.6ms (or 150 Hz)
ldaa #0x81
staa 0x1026 ;; RTI interval becomes E/2^14 = 6.6ms (or 150 Hz)
- ;; stop chiming
- ldx #0x1000
- bclr 00,x #0x10
-
;; clear ADC register
clra
staa 0x1030
;; clear ADC register
clra
staa 0x1030
@@
-37,30
+29,16
@@
_start:
;; set the stack pointer
lds #_stack
;; set the stack pointer
lds #_stack
- ;; start chiming
- ldx #0x1000
- bset 00,x #0x10
-
;; blank initialised variables - should match memory.x's page0
ldx #0x0000
loop1:
;; blank initialised variables - should match memory.x's page0
ldx #0x0000
loop1:
- cpx #0x0
08
0
+ cpx #0x0
10
0
bcc out1
clr 00,x
inx
bra loop1
out1:
bcc out1
clr 00,x
inx
bra loop1
out1:
- ;; wait a while
- ldx #0x0000
-loop2:
- cpx #0x00ff
- bcc out2
- clr 00,x
- inx
- bra loop2
-out2:
-
;; stop chiming
ldx #0x1000
bclr 00,x #0x10
;; stop chiming
ldx #0x1000
bclr 00,x #0x10
UCC
git Repository :: git.ucc.asn.au