chiark / gitweb /
replace many call with rcall; goto with bra
authorian <ian>
Tue, 22 Nov 2005 23:03:53 +0000 (23:03 +0000)
committerian <ian>
Tue, 22 Nov 2005 23:03:53 +0000 (23:03 +0000)
detpic/panic.asm

index 3678ac1f994805431c6ee7aeb51c6ed7ce39eedd..6e9c62b962b1244a3b6db11cd21a5b4708673fa9 100644 (file)
@@ -77,15 +77,15 @@ panic_loop
        swap_f  panic_regs      ; panic_regs now contains # registers to read
 
        call    led_black
-       call    waiting16
-       call    morsemsg        ; transmit morse in red
+       rcall   waiting16
+       rcall   morsemsg        ; transmit morse in red
        call    led_black
-       call    waiting8
-       call    waiting4
-       call    registermsg     ; transmit contents of registers in 
+       rcall   waiting8
+       rcall   waiting4
+       rcall   registermsg     ; transmit contents of registers in 
                                ; red(=low) and blue(=high)
-       call    waiting16
-        goto    panic_loop
+       rcall   waiting16
+        bra    panic_loop
 
 ;****************************************************************************
 ; PANIC SUBROUTINES
@@ -103,9 +103,9 @@ morse_loop
 
        tblrd           *+
        mov_ff          TABLAT,flash_pattern
-       call            morse_readout
+       rcall           morse_readout
        inc_f           morse_counter
-       goto            morse_loop
+       bra             morse_loop
 
 
 ;--------------------------
@@ -142,7 +142,7 @@ morse_readout_if_led_1
        call            led_red
 
 morse_readout_endif_led
-       call            waiting
+       rcall           waiting
        bra             morse_readout_loop
 
 ;--------------------------
@@ -171,12 +171,12 @@ register_loop
        clr_f           FSR0H           ; for insns using Access Bank)
 
        mov_ff          INDF0,flash_pattern
-       call            register_readout
+       rcall           register_readout
 
        inc_f           register_counter        ;increment loop counter
 
-       call            waiting8
-       goto            register_loop
+       rcall           waiting8
+       bra             register_loop
 
 ;--------------------------
 
@@ -206,8 +206,8 @@ register_readout_loop
         mov_lw         4
         cmp_fw_ifne    bit_counter     ; if loop counter !=4 (nybble length), 
                                        ; skip insertion of extra black space
-       goto            not_nybble_boundary
-       call            waiting4
+       bra             not_nybble_boundary
+       rcall           waiting4
 
 not_nybble_boundary
         rl_f           flash_pattern           ; top bit goes into N flag, 
@@ -223,9 +223,9 @@ register_readout_if_led_1
 
 register_readout_endif_led
         inc_f          bit_counter       ; increment loop counter
-        call           waiting
+        rcall          waiting
         call           led_black
-        call           waiting
+        rcall          waiting
         bra            register_readout_loop