Commit ee90dfb6 authored by Jan Wagemakers's avatar Jan Wagemakers

flag symbol / init date-time

parent 1f3f0fb3
......@@ -128,11 +128,6 @@ WAITms MACRO TIME
;
btCounter
;
metar1 ; E ; location weather information
metar2 ; B
metar3 ; A
metar4 ; W
;
YY
YY1
;
......@@ -147,11 +142,11 @@ WAITms MACRO TIME
;
mm
mm1
btIN ; 0 : S S P O O
btIN1 ; 1 : P P V P T
btIN2 ; 2 : = ? ? ? =
btIN3 ; 3 : 2 -
btIN4 ; 4 : 0 1
btIN ; 0 : S S P O O Y M D h m
btIN1 ; 1 : P P V P T Y M D h m
btIN2 ; 2 : = ? ? ? = = = = = =
btIN3 ; 3 : 2 - 1 0 1 2 4
btIN4 ; 4 : 0 1 9 2 1 1 7
btIN5 ; 5 : . 0
btIN6 ; 6 : 7 .
btIN7 ; 0
......@@ -194,8 +189,19 @@ start
movwf FILTER_COUNTER
movwf thermowait
movwf thermowait2
; movwf thermowait3
movlw "?" ; init date/time display
movwf YY
movwf YY1
movwf MM
movwf MM1
movwf DD
movwf DD1
movwf hh
movwf hh1
movwf mm
movwf mm1
call Wacht1s
call initlcd ; setup LCD display
......@@ -288,6 +294,23 @@ start
movlw D'0'
call SendCHAR
movlw D'31' ; 5 : flag
call SendCHAR
movlw D'31'
call SendCHAR
movlw D'31'
call SendCHAR
movlw D'31'
call SendCHAR
movlw D'16'
call SendCHAR
movlw D'16'
call SendCHAR
movlw D'16'
call SendCHAR
movlw D'16'
call SendCHAR
movlw H'80' ; goto line 1
call SendINS
PRINT jan ; PRINT jan
......@@ -532,27 +555,10 @@ equal2:
call SendINS
PRINT spc20 ; clear line 3
movlw "E" ; metar weather hardcoded ATM
movwf metar1
movlw "B"
movwf metar2 ; Europe Belgium AntWerp
movlw "A"
movwf metar3
movlw "W"
movwf metar4
movlw H'94' ; goto line 3 of LCD
call SendINS
movf metar1, W
movlw D'5' ; flag symbol
call SendCHAR
movf metar2, W
call SendCHAR
movf metar3, W
call SendCHAR
movf metar4, W
call SendCHAR
clrw
call SendCHAR ; thermometer symbol
lfsr 0, btIN3
OT:
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment