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

Show the bailout list in surfacemode (CC Modes)
author heinrichsweikamp
date Tue, 26 Nov 2013 12:11:23 +0100
parents a98365da41d3
children ae830d5e63ef
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/outputs.asm	Sun Nov 03 13:37:04 2013 +0100
+++ b/code_part1/OSTC_code_asm_part1/outputs.asm	Tue Nov 26 12:11:23 2013 +0100
@@ -1393,6 +1393,38 @@
 	goto	DISP_set_color	            ; grey out inactive gases!
     ; return
 
+DISP_bailoutgas:        ; Show the first bailout gas
+	WIN_TOP		.25
+	WIN_LEFT	.90
+	WIN_FONT 	FT_SMALL
+	WIN_INVERT	.0					; Init new Wordprocessor
+	call	DISP_standard_color
+    lfsr	FSR2,letter
+	OUTPUTTEXT	.137			; Bailout
+    call	word_processor
+	WIN_TOP		.50
+	WIN_LEFT	.90
+    bsf		leftbind
+    lfsr	FSR2,letter
+	STRCAT  TXT_G1_3
+	movlw   .6              ; Gas #1: %O2 - Set address in internal EEPROM
+    movwf   EEADR
+	call	read_eeprom		; get byte (stored in EEDATA)
+	movff	EEDATA,lo		; copy to lo
+	output_8				; outputs into Postinc2!
+	PUTC    '/'
+	movlw   .7              ; Gas #1: %He - Set address in internal EEPROM
+    movwf   EEADR
+	call	read_eeprom		; get byte (stored in EEDATA)
+	movff	EEDATA,lo		; copy to lo
+	output_8				; outputs into Postinc2!
+    bcf		leftbind
+    call	word_processor
+    return
+
+DISP_bailoutlist:       ; Show the bailout list:
+    bra     DISP_pre_dive_screen2
+
 ;-----------------------------------------------------------------------------
 ; Display Pre-Dive Screen