X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM2%2Fstart.s;h=c3f8d36f843ee6ed447d81233b4a60d5f5036ffc;hb=c0863797291ed5ab439e0d213cc26a2c62b00376;hp=7611f1b388ed995df3a145e5f286b69f6be09316;hpb=27fb8a023fa0572ef4171624781460bc59537d49;p=uccvend-snackrom.git diff --git a/ROM2/start.s b/ROM2/start.s index 7611f1b..c3f8d36 100644 --- a/ROM2/start.s +++ b/ROM2/start.s @@ -6,10 +6,6 @@ _start: ldab #0xfc ; 11111000 stab 0x1001 - ;; turn display on - ldx #0x1000 - bset 00,x #0x80 - ;; 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) - ;; stop chiming - ldx #0x1000 - bclr 00,x #0x10 - ;; clear ADC register clra staa 0x1030 @@ -37,30 +29,16 @@ _start: ;; 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