ldab #0xfc ; 11111000
stab 0x1001
- ;; turn display on
- ldx #0x1000
- bset 00,x #0x80
-
;; start chiming
ldx #0x1000
bset 00,x #0x10
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
;; 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:
- cpx #0x0080
+ cpx #0x0100
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