Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/divemode.asm @ 68:d0b677e1e9a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new decoplan (GF mode) debuged
author heinrichsweikamp
date Wed, 13 Oct 2010 13:02:20 +0200
parents e8756eba54ee
children df2d3b28947f
comparison
equal deleted inserted replaced
67:73b9719a40ec 68:d0b677e1e9a5
448 ostc_debug 'C' ; Sends debug-information to screen if debugmode active 448 ostc_debug 'C' ; Sends debug-information to screen if debugmode active
449 449
450 movff char_O_deco_status,deco_status ; 450 movff char_O_deco_status,deco_status ;
451 tstfsz deco_status ; deco_status=0 if decompression calculation done 451 tstfsz deco_status ; deco_status=0 if decompression calculation done
452 return ; calculation not yet finished! 452 return ; calculation not yet finished!
453 453
454 ;copy gf_decolist (0x250:.32) to gf_decolist_copy (0x0E0:.32)
455 lfsr FSR0,0x250 ; Source
456 lfsr FSR1,0x0E0 ; Target
457 movlw d'32'
458 movwf wait_temp ; Counter
459 copy_gf_deco_list:
460 movff POSTINC0,POSTINC1 ; Copy Source to Target
461 decfsz wait_temp,F ; All done?
462 bra copy_gf_deco_list ; No, continue!
463
454 movff char_O_array_decodepth+0,wait_temp ; copy ceiling to temp register 464 movff char_O_array_decodepth+0,wait_temp ; copy ceiling to temp register
455 tstfsz wait_temp ; Ceiling<0m? 465 tstfsz wait_temp ; Ceiling<0m?
456 bra calc_deko_divemode3 ; Yes! 466 bra calc_deko_divemode3 ; Yes!
457 467
458 btfsc dekostop_active 468 btfsc dekostop_active