Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 624:7e2c324aa333

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2.50 release
author heinrichsweikamp
date Thu, 09 Aug 2012 09:14:45 +0200
parents 85e8e1501fd8
children 8d2dc109ecfc
comparison
equal deleted inserted replaced
623:3f1a85ce7785 624:7e2c324aa333
1021 DISPLAYTEXT .7 ; Gas Setup 1021 DISPLAYTEXT .7 ; Gas Setup
1022 DISPLAYTEXT .9 ; Reset all 1022 DISPLAYTEXT .9 ; Reset all
1023 DISPLAYTEXT .10 ; Setup... 1023 DISPLAYTEXT .10 ; Setup...
1024 DISPLAYTEXT .142 ; More... 1024 DISPLAYTEXT .142 ; More...
1025 DISPLAYTEXT .11 ; Exit 1025 DISPLAYTEXT .11 ; Exit
1026
1027 ; Write OSTC serial in Main Menu
1028 WIN_TOP .215
1029 WIN_LEFT .47
1030 GETCUSTOM8 d'64' ; Write header in blue when
1031 call PLED_set_color ; compiled in DEBUG mode...
1032 lfsr FSR2,letter
1033 OUTPUTTEXTH d'262' ; "OSTC "
1034 clrf EEADRH
1035 clrf EEADR ; Get Serial number LOW
1036 call read_eeprom ; read byte
1037 movff EEDATA,lo
1038 incf EEADR,F ; Get Serial number HIGH
1039 call read_eeprom ; read byte
1040 movff EEDATA,hi
1041 bsf leftbind
1042 output_16
1043 call word_processor
1044 call PLED_standard_color
1026 return 1045 return
1027 1046
1028 PLED_setup_menu_mask: 1047 PLED_setup_menu_mask:
1029 call PLED_topline_box 1048 call PLED_topline_box
1030 WIN_INVERT .1 ; Init new Wordprocessor 1049 WIN_INVERT .1 ; Init new Wordprocessor