Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 758:3096294bb06e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show the bailout list in surfacemode (CC Modes)
author heinrichsweikamp
date Tue, 26 Nov 2013 12:11:23 +0100
parents a98365da41d3
children ae830d5e63ef
comparison
equal deleted inserted replaced
757:50ed645c251d 758:3096294bb06e
1390 DISP_grey_gas: 1390 DISP_grey_gas:
1391 DISP_grey: 1391 DISP_grey:
1392 GETCUSTOM8 d'64' ;movlw color_grey 1392 GETCUSTOM8 d'64' ;movlw color_grey
1393 goto DISP_set_color ; grey out inactive gases! 1393 goto DISP_set_color ; grey out inactive gases!
1394 ; return 1394 ; return
1395
1396 DISP_bailoutgas: ; Show the first bailout gas
1397 WIN_TOP .25
1398 WIN_LEFT .90
1399 WIN_FONT FT_SMALL
1400 WIN_INVERT .0 ; Init new Wordprocessor
1401 call DISP_standard_color
1402 lfsr FSR2,letter
1403 OUTPUTTEXT .137 ; Bailout
1404 call word_processor
1405 WIN_TOP .50
1406 WIN_LEFT .90
1407 bsf leftbind
1408 lfsr FSR2,letter
1409 STRCAT TXT_G1_3
1410 movlw .6 ; Gas #1: %O2 - Set address in internal EEPROM
1411 movwf EEADR
1412 call read_eeprom ; get byte (stored in EEDATA)
1413 movff EEDATA,lo ; copy to lo
1414 output_8 ; outputs into Postinc2!
1415 PUTC '/'
1416 movlw .7 ; Gas #1: %He - Set address in internal EEPROM
1417 movwf EEADR
1418 call read_eeprom ; get byte (stored in EEDATA)
1419 movff EEDATA,lo ; copy to lo
1420 output_8 ; outputs into Postinc2!
1421 bcf leftbind
1422 call word_processor
1423 return
1424
1425 DISP_bailoutlist: ; Show the bailout list:
1426 bra DISP_pre_dive_screen2
1395 1427
1396 ;----------------------------------------------------------------------------- 1428 ;-----------------------------------------------------------------------------
1397 ; Display Pre-Dive Screen 1429 ; Display Pre-Dive Screen
1398 1430
1399 DISP_pre_dive_screen: 1431 DISP_pre_dive_screen: