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
tblrd *+
mov_ff TABLAT,flash_pattern
- call morse_readout
+ rcall morse_readout
inc_f morse_counter
- goto morse_loop
+ bra morse_loop
;--------------------------
call led_red
morse_readout_endif_led
- call waiting
+ rcall waiting
bra morse_readout_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
;--------------------------
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,
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