From 442b88a5b418a7cb7bec780800f9635e0c731cba Mon Sep 17 00:00:00 2001
From: William Harrington <kb0iic@berzerkula.org>
Date: Wed, 21 Aug 2019 03:07:37 -0500
Subject: Okay then

---
 build/default/production/lcd.p1 | 381 +++++++++++++++++++++-------------------
 1 file changed, 201 insertions(+), 180 deletions(-)

(limited to 'build/default/production/lcd.p1')

diff --git a/build/default/production/lcd.p1 b/build/default/production/lcd.p1
index cd257aa..b709bc2 100755
--- a/build/default/production/lcd.p1
+++ b/build/default/production/lcd.p1
@@ -17,10 +17,13 @@ Version 4.0 HI-TECH Software Intermediate Code
 "2758
 [; ;C:\Program Files (x86)\Microchip\xc8\v2.05\pic\include\pic16f877a.h: 2758: extern volatile __bit RD3 __attribute__((address(0x43)));
 [v _RD3 `Vb ~T0 @X0 0 e@67 ]
-[v F859 `(v ~T0 @X0 1 tf1`ul ]
+[v F842 `(v ~T0 @X0 1 tf1`ul ]
 "92 C:\Program Files (x86)\Microchip\xc8\v2.05\pic\include\pic.h
-[v __delay `JF859 ~T0 @X0 0 e ]
+[v __delay `JF842 ~T0 @X0 0 e ]
 [p i __delay ]
+"15 ./lcd.h
+[; ;./lcd.h: 15: void Vfd_Set_Brightness(int);
+[v _Vfd_Set_Brightness `(v ~T0 @X0 0 ef1`i ]
 "54 C:\Program Files (x86)\Microchip\xc8\v2.05\pic\include\pic16f877a.h
 [; ;C:\Program Files (x86)\Microchip\xc8\v2.05\pic\include\pic16f877a.h: 54: __asm("INDF equ 00h");
 [; <" INDF equ 00h ;# ">
@@ -217,346 +220,364 @@ Version 4.0 HI-TECH Software Intermediate Code
 [p x WRT = OFF ]
 "11
 [p x CP = OFF ]
-"6 lcd.c
-[; ;lcd.c: 6: void Lcd_Port(char a) {
+"5 lcd.c
+[; ;lcd.c: 5: void Lcd_Port(char a) {
 [v _Lcd_Port `(v ~T0 @X0 1 ef1`uc ]
 {
 [e :U _Lcd_Port ]
 [v _a `uc ~T0 @X0 1 r1 ]
 [f ]
-"7
-[; ;lcd.c: 7:     if (a & 1)
+"6
+[; ;lcd.c: 6:     if (a & 1)
 [e $ ! != & -> _a `i -> 1 `i -> 0 `i 96  ]
-"8
-[; ;lcd.c: 8:         RD4 = 1;
+"7
+[; ;lcd.c: 7:         RD4 = 1;
 [e = _RD4 -> -> 1 `i `b ]
 [e $U 97  ]
-"9
-[; ;lcd.c: 9:     else
+"8
+[; ;lcd.c: 8:     else
 [e :U 96 ]
-"10
-[; ;lcd.c: 10:         RD4 = 0;
+"9
+[; ;lcd.c: 9:         RD4 = 0;
 [e = _RD4 -> -> 0 `i `b ]
 [e :U 97 ]
-"12
-[; ;lcd.c: 12:     if (a & 2)
+"11
+[; ;lcd.c: 11:     if (a & 2)
 [e $ ! != & -> _a `i -> 2 `i -> 0 `i 98  ]
-"13
-[; ;lcd.c: 13:         RD5 = 1;
+"12
+[; ;lcd.c: 12:         RD5 = 1;
 [e = _RD5 -> -> 1 `i `b ]
 [e $U 99  ]
-"14
-[; ;lcd.c: 14:     else
+"13
+[; ;lcd.c: 13:     else
 [e :U 98 ]
-"15
-[; ;lcd.c: 15:         RD5 = 0;
+"14
+[; ;lcd.c: 14:         RD5 = 0;
 [e = _RD5 -> -> 0 `i `b ]
 [e :U 99 ]
-"17
-[; ;lcd.c: 17:     if (a & 4)
+"16
+[; ;lcd.c: 16:     if (a & 4)
 [e $ ! != & -> _a `i -> 4 `i -> 0 `i 100  ]
-"18
-[; ;lcd.c: 18:         RD6 = 1;
+"17
+[; ;lcd.c: 17:         RD6 = 1;
 [e = _RD6 -> -> 1 `i `b ]
 [e $U 101  ]
-"19
-[; ;lcd.c: 19:     else
+"18
+[; ;lcd.c: 18:     else
 [e :U 100 ]
-"20
-[; ;lcd.c: 20:         RD6 = 0;
+"19
+[; ;lcd.c: 19:         RD6 = 0;
 [e = _RD6 -> -> 0 `i `b ]
 [e :U 101 ]
-"22
-[; ;lcd.c: 22:     if (a & 8)
+"21
+[; ;lcd.c: 21:     if (a & 8)
 [e $ ! != & -> _a `i -> 8 `i -> 0 `i 102  ]
-"23
-[; ;lcd.c: 23:         RD7 = 1;
+"22
+[; ;lcd.c: 22:         RD7 = 1;
 [e = _RD7 -> -> 1 `i `b ]
 [e $U 103  ]
-"24
-[; ;lcd.c: 24:     else
+"23
+[; ;lcd.c: 23:     else
 [e :U 102 ]
-"25
-[; ;lcd.c: 25:         RD7 = 0;
+"24
+[; ;lcd.c: 24:         RD7 = 0;
 [e = _RD7 -> -> 0 `i `b ]
 [e :U 103 ]
-"26
-[; ;lcd.c: 26: }
+"25
+[; ;lcd.c: 25: }
 [e :UE 95 ]
 }
-"28
-[; ;lcd.c: 28: void Lcd_Cmd(char a) {
+"27
+[; ;lcd.c: 27: void Lcd_Cmd(char a) {
 [v _Lcd_Cmd `(v ~T0 @X0 1 ef1`uc ]
 {
 [e :U _Lcd_Cmd ]
 [v _a `uc ~T0 @X0 1 r1 ]
 [f ]
-"29
-[; ;lcd.c: 29:     RD2 = 0;
+"28
+[; ;lcd.c: 28:     RD2 = 0;
 [e = _RD2 -> -> 0 `i `b ]
-"30
-[; ;lcd.c: 30:     Lcd_Port(a);
+"29
+[; ;lcd.c: 29:     Lcd_Port(a);
 [e ( _Lcd_Port (1 _a ]
-"31
-[; ;lcd.c: 31:     RD3 = 1;
+"30
+[; ;lcd.c: 30:     RD3 = 1;
 [e = _RD3 -> -> 1 `i `b ]
-"32
-[; ;lcd.c: 32:     _delay((unsigned long)((4)*(20000000/4000.0)));
+"31
+[; ;lcd.c: 31:     _delay((unsigned long)((4)*(20000000/4000.0)));
 [e ( __delay (1 -> * -> -> 4 `i `d / -> -> 20000000 `l `d .4000.0 `ul ]
-"33
-[; ;lcd.c: 33:     RD3 = 0;
+"32
+[; ;lcd.c: 32:     RD3 = 0;
 [e = _RD3 -> -> 0 `i `b ]
-"34
-[; ;lcd.c: 34: }
+"33
+[; ;lcd.c: 33: }
 [e :UE 104 ]
 }
-"36
-[; ;lcd.c: 36: void Lcd_Clear() {
+"35
+[; ;lcd.c: 35: void Lcd_Clear(void) {
 [v _Lcd_Clear `(v ~T0 @X0 1 ef ]
 {
 [e :U _Lcd_Clear ]
 [f ]
-"37
-[; ;lcd.c: 37:     Lcd_Cmd(0);
+"36
+[; ;lcd.c: 36:     Lcd_Cmd(0);
 [e ( _Lcd_Cmd (1 -> -> 0 `i `uc ]
-"38
-[; ;lcd.c: 38:     Lcd_Cmd(1);
+"37
+[; ;lcd.c: 37:     Lcd_Cmd(1);
 [e ( _Lcd_Cmd (1 -> -> 1 `i `uc ]
-"39
-[; ;lcd.c: 39: }
+"38
+[; ;lcd.c: 38: }
 [e :UE 105 ]
 }
-"41
-[; ;lcd.c: 41: void Lcd_Set_Cursor(char a, char b) {
+"40
+[; ;lcd.c: 40: void Lcd_Set_Cursor(char a, char b) {
 [v _Lcd_Set_Cursor `(v ~T0 @X0 1 ef2`uc`uc ]
 {
 [e :U _Lcd_Set_Cursor ]
 [v _a `uc ~T0 @X0 1 r1 ]
 [v _b `uc ~T0 @X0 1 r2 ]
 [f ]
-"42
-[; ;lcd.c: 42:     char temp, z, y;
+"41
+[; ;lcd.c: 41:     char temp, z, y;
 [v _temp `uc ~T0 @X0 1 a ]
 [v _z `uc ~T0 @X0 1 a ]
 [v _y `uc ~T0 @X0 1 a ]
-"43
-[; ;lcd.c: 43:     if (a == 1) {
+"42
+[; ;lcd.c: 42:     if (a == 1) {
 [e $ ! == -> _a `i -> 1 `i 107  ]
 {
-"44
-[; ;lcd.c: 44:         temp = 0x80 + b - 1;
+"43
+[; ;lcd.c: 43:         temp = 0x80 + b - 1;
 [e = _temp -> - + -> 128 `i -> _b `i -> 1 `i `uc ]
-"45
-[; ;lcd.c: 45:         z = temp >> 4;
+"44
+[; ;lcd.c: 44:         z = temp >> 4;
 [e = _z -> >> -> _temp `i -> 4 `i `uc ]
-"46
-[; ;lcd.c: 46:         y = temp & 0x0F;
+"45
+[; ;lcd.c: 45:         y = temp & 0x0F;
 [e = _y -> & -> _temp `i -> 15 `i `uc ]
-"47
-[; ;lcd.c: 47:         Lcd_Cmd(z);
+"46
+[; ;lcd.c: 46:         Lcd_Cmd(z);
 [e ( _Lcd_Cmd (1 _z ]
-"48
-[; ;lcd.c: 48:         Lcd_Cmd(y);
+"47
+[; ;lcd.c: 47:         Lcd_Cmd(y);
 [e ( _Lcd_Cmd (1 _y ]
-"49
-[; ;lcd.c: 49:     } else if (a == 2) {
+"48
+[; ;lcd.c: 48:     } else if (a == 2) {
 }
 [e $U 108  ]
 [e :U 107 ]
 [e $ ! == -> _a `i -> 2 `i 109  ]
 {
-"50
-[; ;lcd.c: 50:         temp = 0xC0 + b - 1;
+"49
+[; ;lcd.c: 49:         temp = 0xC0 + b - 1;
 [e = _temp -> - + -> 192 `i -> _b `i -> 1 `i `uc ]
-"51
-[; ;lcd.c: 51:         z = temp >> 4;
+"50
+[; ;lcd.c: 50:         z = temp >> 4;
 [e = _z -> >> -> _temp `i -> 4 `i `uc ]
-"52
-[; ;lcd.c: 52:         y = temp & 0x0F;
+"51
+[; ;lcd.c: 51:         y = temp & 0x0F;
 [e = _y -> & -> _temp `i -> 15 `i `uc ]
-"53
-[; ;lcd.c: 53:         Lcd_Cmd(z);
+"52
+[; ;lcd.c: 52:         Lcd_Cmd(z);
 [e ( _Lcd_Cmd (1 _z ]
-"54
-[; ;lcd.c: 54:         Lcd_Cmd(y);
+"53
+[; ;lcd.c: 53:         Lcd_Cmd(y);
 [e ( _Lcd_Cmd (1 _y ]
-"55
-[; ;lcd.c: 55:     }
+"54
+[; ;lcd.c: 54:     }
 }
 [e :U 109 ]
 [e :U 108 ]
-"56
-[; ;lcd.c: 56: }
+"55
+[; ;lcd.c: 55: }
 [e :UE 106 ]
 }
-"58
-[; ;lcd.c: 58: void Lcd_Init() {
+"57
+[; ;lcd.c: 57: void Lcd_Init(void) {
 [v _Lcd_Init `(v ~T0 @X0 1 ef ]
 {
 [e :U _Lcd_Init ]
 [f ]
-"59
-[; ;lcd.c: 59:     Lcd_Port(0x00);
+"58
+[; ;lcd.c: 58:     Lcd_Port(0x00);
 [e ( _Lcd_Port (1 -> -> 0 `i `uc ]
-"60
-[; ;lcd.c: 60:     _delay((unsigned long)((20)*(20000000/4000.0)));
+"59
+[; ;lcd.c: 59:     _delay((unsigned long)((20)*(20000000/4000.0)));
 [e ( __delay (1 -> * -> -> 20 `i `d / -> -> 20000000 `l `d .4000.0 `ul ]
-"61
-[; ;lcd.c: 61:     Lcd_Cmd(0x03);
+"60
+[; ;lcd.c: 60:     Lcd_Cmd(0x03);
 [e ( _Lcd_Cmd (1 -> -> 3 `i `uc ]
-"62
-[; ;lcd.c: 62:     _delay((unsigned long)((5)*(20000000/4000.0)));
+"61
+[; ;lcd.c: 61:     _delay((unsigned long)((5)*(20000000/4000.0)));
 [e ( __delay (1 -> * -> -> 5 `i `d / -> -> 20000000 `l `d .4000.0 `ul ]
-"63
-[; ;lcd.c: 63:     Lcd_Cmd(0x03);
+"62
+[; ;lcd.c: 62:     Lcd_Cmd(0x03);
 [e ( _Lcd_Cmd (1 -> -> 3 `i `uc ]
-"64
-[; ;lcd.c: 64:     _delay((unsigned long)((11)*(20000000/4000.0)));
+"63
+[; ;lcd.c: 63:     _delay((unsigned long)((11)*(20000000/4000.0)));
 [e ( __delay (1 -> * -> -> 11 `i `d / -> -> 20000000 `l `d .4000.0 `ul ]
-"65
-[; ;lcd.c: 65:     Lcd_Cmd(0x03);
+"64
+[; ;lcd.c: 64:     Lcd_Cmd(0x03);
 [e ( _Lcd_Cmd (1 -> -> 3 `i `uc ]
-"67
-[; ;lcd.c: 67:     Lcd_Cmd(0x02);
+"66
+[; ;lcd.c: 66:     Lcd_Cmd(0x02);
 [e ( _Lcd_Cmd (1 -> -> 2 `i `uc ]
 "68
-[; ;lcd.c: 68:     Lcd_Cmd(0x02);
-[e ( _Lcd_Cmd (1 -> -> 2 `i `uc ]
-"69
-[; ;lcd.c: 69:     Lcd_Cmd(0x08);
-[e ( _Lcd_Cmd (1 -> -> 8 `i `uc ]
+[; ;lcd.c: 68:     Vfd_Set_Brightness(0);
+[e ( _Vfd_Set_Brightness (1 -> 0 `i ]
 "70
-[; ;lcd.c: 70:     Lcd_Cmd(0x00);
-[e ( _Lcd_Cmd (1 -> -> 0 `i `uc ]
+[; ;lcd.c: 70:     Lcd_Cmd(0x02);
+[e ( _Lcd_Cmd (1 -> -> 2 `i `uc ]
 "71
-[; ;lcd.c: 71:     Lcd_Cmd(0x0C);
-[e ( _Lcd_Cmd (1 -> -> 12 `i `uc ]
+[; ;lcd.c: 71:     Lcd_Cmd(0x08);
+[e ( _Lcd_Cmd (1 -> -> 8 `i `uc ]
 "72
 [; ;lcd.c: 72:     Lcd_Cmd(0x00);
 [e ( _Lcd_Cmd (1 -> -> 0 `i `uc ]
 "73
-[; ;lcd.c: 73:     Lcd_Cmd(0x06);
-[e ( _Lcd_Cmd (1 -> -> 6 `i `uc ]
+[; ;lcd.c: 73:     Lcd_Cmd(0x0C);
+[e ( _Lcd_Cmd (1 -> -> 12 `i `uc ]
 "74
-[; ;lcd.c: 74: }
+[; ;lcd.c: 74:     Lcd_Cmd(0x00);
+[e ( _Lcd_Cmd (1 -> -> 0 `i `uc ]
+"75
+[; ;lcd.c: 75:     Lcd_Cmd(0x06);
+[e ( _Lcd_Cmd (1 -> -> 6 `i `uc ]
+"76
+[; ;lcd.c: 76: }
 [e :UE 110 ]
 }
-"76
-[; ;lcd.c: 76: void Lcd_Write_Char(char a) {
+"78
+[; ;lcd.c: 78: void Lcd_Write_Char(char a) {
 [v _Lcd_Write_Char `(v ~T0 @X0 1 ef1`uc ]
 {
 [e :U _Lcd_Write_Char ]
 [v _a `uc ~T0 @X0 1 r1 ]
 [f ]
-"77
-[; ;lcd.c: 77:     char temp, y;
+"79
+[; ;lcd.c: 79:     char temp, y;
 [v _temp `uc ~T0 @X0 1 a ]
 [v _y `uc ~T0 @X0 1 a ]
-"78
-[; ;lcd.c: 78:     temp = a & 0x0F;
+"80
+[; ;lcd.c: 80:     temp = a & 0x0F;
 [e = _temp -> & -> _a `i -> 15 `i `uc ]
-"79
-[; ;lcd.c: 79:     y = a & 0xF0;
+"81
+[; ;lcd.c: 81:     y = a & 0xF0;
 [e = _y -> & -> _a `i -> 240 `i `uc ]
-"80
-[; ;lcd.c: 80:     RD2 = 1;
+"82
+[; ;lcd.c: 82:     RD2 = 1;
 [e = _RD2 -> -> 1 `i `b ]
-"81
-[; ;lcd.c: 81:     Lcd_Port(y >> 4);
+"83
+[; ;lcd.c: 83:     Lcd_Port(y >> 4);
 [e ( _Lcd_Port (1 -> >> -> _y `i -> 4 `i `uc ]
-"82
-[; ;lcd.c: 82:     RD3 = 1;
+"84
+[; ;lcd.c: 84:     RD3 = 1;
 [e = _RD3 -> -> 1 `i `b ]
-"83
-[; ;lcd.c: 83:     _delay((unsigned long)((40)*(20000000/4000000.0)));
+"85
+[; ;lcd.c: 85:     _delay((unsigned long)((40)*(20000000/4000000.0)));
 [e ( __delay (1 -> * -> -> 40 `i `d / -> -> 20000000 `l `d .4000000.0 `ul ]
-"84
-[; ;lcd.c: 84:     RD3 = 0;
+"86
+[; ;lcd.c: 86:     RD3 = 0;
 [e = _RD3 -> -> 0 `i `b ]
-"85
-[; ;lcd.c: 85:     Lcd_Port(temp);
+"87
+[; ;lcd.c: 87:     Lcd_Port(temp);
 [e ( _Lcd_Port (1 _temp ]
-"86
-[; ;lcd.c: 86:     RD3 = 1;
+"88
+[; ;lcd.c: 88:     RD3 = 1;
 [e = _RD3 -> -> 1 `i `b ]
-"87
-[; ;lcd.c: 87:     _delay((unsigned long)((40)*(20000000/4000000.0)));
+"89
+[; ;lcd.c: 89:     _delay((unsigned long)((40)*(20000000/4000000.0)));
 [e ( __delay (1 -> * -> -> 40 `i `d / -> -> 20000000 `l `d .4000000.0 `ul ]
-"88
-[; ;lcd.c: 88:     RD3 = 0;
+"90
+[; ;lcd.c: 90:     RD3 = 0;
 [e = _RD3 -> -> 0 `i `b ]
-"89
-[; ;lcd.c: 89: }
+"91
+[; ;lcd.c: 91: }
 [e :UE 111 ]
 }
-"91
-[; ;lcd.c: 91: void Lcd_Write_String(char *a) {
+"93
+[; ;lcd.c: 93: void Lcd_Write_String(char *a) {
 [v _Lcd_Write_String `(v ~T0 @X0 1 ef1`*uc ]
 {
 [e :U _Lcd_Write_String ]
 [v _a `*uc ~T0 @X0 1 r1 ]
 [f ]
-"92
-[; ;lcd.c: 92:     int i;
+"94
+[; ;lcd.c: 94:     int i;
 [v _i `i ~T0 @X0 1 a ]
-"93
-[; ;lcd.c: 93:     for (i = 0; a[i] != '\0'; i++)
+"95
+[; ;lcd.c: 95:     for (i = 0; a[i] != '\0'; i++)
 {
 [e = _i -> 0 `i ]
 [e $U 116  ]
 [e :U 113 ]
-"94
-[; ;lcd.c: 94:         Lcd_Write_Char(a[i]);
+"96
+[; ;lcd.c: 96:         Lcd_Write_Char(a[i]);
 [e ( _Lcd_Write_Char (1 *U + _a * -> _i `x -> -> # *U _a `i `x ]
 [e ++ _i -> 1 `i ]
 [e :U 116 ]
 [e $ != -> *U + _a * -> _i `x -> -> # *U _a `i `x `ui -> 0 `ui 113  ]
 [e :U 114 ]
 }
-"95
-[; ;lcd.c: 95: }
+"97
+[; ;lcd.c: 97: }
 [e :UE 112 ]
 }
-"97
-[; ;lcd.c: 97: void Lcd_Shift_Right() {
+"99
+[; ;lcd.c: 99: void Lcd_Shift_Right(void) {
 [v _Lcd_Shift_Right `(v ~T0 @X0 1 ef ]
 {
 [e :U _Lcd_Shift_Right ]
 [f ]
-"98
-[; ;lcd.c: 98:     Lcd_Cmd(0x01);
+"100
+[; ;lcd.c: 100:     Lcd_Cmd(0x01);
 [e ( _Lcd_Cmd (1 -> -> 1 `i `uc ]
-"99
-[; ;lcd.c: 99:     Lcd_Cmd(0x0C);
+"101
+[; ;lcd.c: 101:     Lcd_Cmd(0x0C);
 [e ( _Lcd_Cmd (1 -> -> 12 `i `uc ]
-"100
-[; ;lcd.c: 100: }
+"102
+[; ;lcd.c: 102: }
 [e :UE 117 ]
 }
-"102
-[; ;lcd.c: 102: void Lcd_Shift_Left() {
+"104
+[; ;lcd.c: 104: void Lcd_Shift_Left(void) {
 [v _Lcd_Shift_Left `(v ~T0 @X0 1 ef ]
 {
 [e :U _Lcd_Shift_Left ]
 [f ]
-"103
-[; ;lcd.c: 103:     Lcd_Cmd(0x01);
+"105
+[; ;lcd.c: 105:     Lcd_Cmd(0x01);
 [e ( _Lcd_Cmd (1 -> -> 1 `i `uc ]
-"104
-[; ;lcd.c: 104:     Lcd_Cmd(0x08);
+"106
+[; ;lcd.c: 106:     Lcd_Cmd(0x08);
 [e ( _Lcd_Cmd (1 -> -> 8 `i `uc ]
-"105
-[; ;lcd.c: 105: }
+"107
+[; ;lcd.c: 107: }
 [e :UE 118 ]
 }
-"108
-[; ;lcd.c: 108: void Vfd_Set_Brightness(int level) {
+"111
+[; ;lcd.c: 111: void Vfd_Set_Brightness(int level) {
 [v _Vfd_Set_Brightness `(v ~T0 @X0 1 ef1`i ]
 {
 [e :U _Vfd_Set_Brightness ]
 [v _level `i ~T0 @X0 1 r1 ]
 [f ]
-"110
-[; ;lcd.c: 110: }
+"112
+[; ;lcd.c: 112:     Lcd_Cmd(0x03);
+[e ( _Lcd_Cmd (1 -> -> 3 `i `uc ]
+"113
+[; ;lcd.c: 113:     _delay((unsigned long)((11)*(20000000/4000.0)));
+[e ( __delay (1 -> * -> -> 11 `i `d / -> -> 20000000 `l `d .4000.0 `ul ]
+"114
+[; ;lcd.c: 114:     Lcd_Cmd(0x03);
+[e ( _Lcd_Cmd (1 -> -> 3 `i `uc ]
+"116
+[; ;lcd.c: 116:     Lcd_Cmd(0x02);
+[e ( _Lcd_Cmd (1 -> -> 2 `i `uc ]
+"117
+[; ;lcd.c: 117:     Lcd_Write_Char(level);
+[e ( _Lcd_Write_Char (1 -> _level `uc ]
+"118
+[; ;lcd.c: 118: }
 [e :UE 119 ]
 }
-- 
cgit v1.2.3-54-g00ecf