Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 43:65d5b0c8da41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New CF48, changed CF15
author heinrichsweikamp
date Thu, 24 Jun 2010 22:12:32 +0200
parents 016a2412d164
children 985607cfb813
comparison
equal deleted inserted replaced
42:da553e5c7a90 43:65d5b0c8da41
3298 bcf leftbind 3298 bcf leftbind
3299 movlw '%' 3299 movlw '%'
3300 movwf POSTINC2 3300 movwf POSTINC2
3301 call word_processor 3301 call word_processor
3302 return 3302 return
3303
3304 PLED_display_cns_surface:
3305 ; Check if CNS should be displayed
3306 movff char_O_CNS_fraction,lo ; copy into bank1
3307 GETCUSTOM8 d'15' ; cns_display_high_surfacemode
3308 subwf lo,W
3309 btfss STATUS,C
3310 return ; Do not show...
3311 ; Show CNS
3312
3313 ostc_debug 'W' ; Sends debug-information to screen if debugmode active
3314
3315 WIN_TOP .175
3316 WIN_LEFT .45
3317 WIN_FONT FT_SMALL
3318 WIN_INVERT .0 ; Init new Wordprocessor
3319 PLED_color_code warn_cns ; Color-code CNS output
3320
3321 lfsr FSR2,letter
3322 movlw 'C'
3323 movwf POSTINC2
3324 movlw 'N'
3325 movwf POSTINC2
3326 movlw 'S'
3327 movwf POSTINC2
3328 movlw ':'
3329 movwf POSTINC2
3330 movff char_O_CNS_fraction,lo
3331 bsf leftbind
3332 output_8
3333 bcf leftbind
3334 movlw '%'
3335 movwf POSTINC2
3336 call word_processor
3337 return
3338
3303 3339
3304 PLED_custom_text: 3340 PLED_custom_text:
3305 read_int_eeprom d'64' 3341 read_int_eeprom d'64'
3306 movlw d'1' 3342 movlw d'1'
3307 cpfseq EEDATA ; Custom text active? 3343 cpfseq EEDATA ; Custom text active?