Apologies for the messy code extract...
Code: Select all
const optiondefault as word[optioncount] =
(0,0,0,50,1, 0,1,0,1,0)
dim optionvals as word[optioncount]
implements
dim aa,bb as byte
dim temp as byte
sub procedure default_config
optionvals=optiondefault
end sub
Code: Select all
;fpa084options.pbas,65 :: optionvals=optiondefault
$2C32 $0E42 MOVLW #_optiondefault
$2C34 $6EF6 MOVWF TBLPTRL, 0
$2C36 $0E2F MOVLW @#_optiondefault
$2C38 $6EF7 MOVWF TBLPTRH, 0
$2C3A $0E00 MOVLW @@#_optiondefault
$2C3C $6EF8 MOVWF TBLPTRU, 0
$2C3E $0E38 MOVLW _optionvals
$2C40 $6EE1 MOVWF FSR1L, 0
$2C42 $0E00 MOVLW @_optionvals
$2C44 $6EE2 MOVWF FSR1H, 0
$2C46 $0E0A MOVLW 10
$2C48 $ L_default_config_0:
$2C48 $0009 TBLRD*+
$2C4A $CFF5 FFE6 MOVFF TABLAT, POSTINC1
$2C4E $2EE8 DECFSZ WREG, 1, 0
$2C50 $D7FB BRA L_default_config_0
$2C52 $ fpa084options_L_0:
$2C52 $0012 RETURN
$2D96 $ _toggle_rf_off: