initial commit

7 files changed, 483 insertions, 0 deletions

diff --git a/TempCalc/.DS_Store b/TempCalc/.DS_Store
new file mode 100644
index 0000000..0c36b57
--- /dev/null
+++ b/TempCalc/.DS_Store
diff --git a/TempCalc/bin/TempCalc.8xp b/TempCalc/bin/TempCalc.8xp
new file mode 100644
index 0000000..a16814c
--- /dev/null
+++ b/TempCalc/bin/TempCalc.8xp
diff --git a/TempCalc/bin/TempCalc.bin b/TempCalc/bin/TempCalc.bin
new file mode 100644
index 0000000..f0cb013
--- /dev/null
+++ b/TempCalc/bin/TempCalc.bin
diff --git a/TempCalc/makefile b/TempCalc/makefile
new file mode 100755
index 0000000..cfd1ae5
--- /dev/null
+++ b/TempCalc/makefile
@@ -0,0 +1,20 @@
+# ----------------------------
+# Makefile Options
+# ----------------------------
+
+NAME ?= TempCalc
+ICON ?= icon.png
+DESCRIPTION ?= "Temperature Converter"
+COMPRESSED ?= NO
+ARCHIVED ?= NO
+
+CFLAGS ?= -Wall -Wextra -Oz
+CXXFLAGS ?= -Wall -Wextra -Oz
+
+# ----------------------------
+
+ifndef CEDEV
+$(error CEDEV environment path variable is not set)
+endif
+
+include $(CEDEV)/meta/makefile.mk
diff --git a/TempCalc/obj/icon.src b/TempCalc/obj/icon.src
new file mode 100644
index 0000000..a0a6924
--- /dev/null
+++ b/TempCalc/obj/icon.src
@@ -0,0 +1,9 @@
+	section .icon
+
+	jp	___prgm_init
+	db	$02
+
+	public ___description
+___description:
+	db	"Temperature Converter", 0
+___prgm_init:
diff --git a/TempCalc/obj/main.c.src b/TempCalc/obj/main.c.src
new file mode 100644
index 0000000..936f4f7
--- /dev/null
+++ b/TempCalc/obj/main.c.src
@@ -0,0 +1,348 @@
+	section	.text,"ax",@progbits
+	assume	adl = 1
+	section	.text,"ax",@progbits
+	public	_main
+_main:
+BB0_1:
+	ld	iy, -3145600
+	call	_os_ClrLCD
+	call	_os_HomeUp
+	call	_os_DrawStatusBar
+	ld	hl, L_.str
+	push	hl
+	call	_printf_
+	pop	hl
+	call	_os_GetKey
+	ld	e, l
+	ld	d, h
+	ld.sis	bc, 147
+	or	a, a
+	sbc.sis	hl, bc
+	jq	z, BB0_4
+	or	a, a
+	sbc	hl, hl
+	ld	l, e
+	ld	h, d
+	push	hl
+	call	_output
+	pop	hl
+BB0_3:
+	call	_os_GetCSC
+	or	a, a
+	jq	z, BB0_3
+	jq	BB0_1
+BB0_4:
+	ld	iy, -3145600
+	call	_os_ClrLCD
+	call	_os_HomeUp
+	call	_os_DrawStatusBar
+	or	a, a
+	sbc	hl, hl
+	ret
+	section	.text,"ax",@progbits
+
+	section	.text,"ax",@progbits
+	public	_output
+_output:
+	call	__frameset0
+	ld	iy, -3145600
+	call	_os_ClrLCD
+	call	_os_HomeUp
+	call	_os_DrawStatusBar
+	ld	de, 143
+	ld	hl, (ix + 6)
+	or	a, a
+	sbc	hl, de
+	push	hl
+	pop	de
+	ld	bc, 4
+	or	a, a
+	sbc	hl, bc
+	jq	c, BB1_2
+	ld	hl, L_.str.5
+	push	hl
+	call	_printf_
+	pop	hl
+	ld	hl, L_.str.6
+	ld	bc, 0
+	ld	e, 0
+	jq	BB1_8
+BB1_2:
+	ld	hl, LJTI1_0
+	add	hl, de
+	add	hl, de
+	add	hl, de
+	ld	hl, (hl)
+	jp	(hl)
+BB1_3:
+	ld	hl, L_.str.1
+	push	hl
+	call	_printf_
+	pop	hl
+	call	_getInput
+	push	de
+	push	hl
+	call	_fToC
+	jq	BB1_7
+BB1_4:
+	ld	hl, L_.str.3
+	push	hl
+	call	_printf_
+	pop	hl
+	call	_getInput
+	push	de
+	push	hl
+	call	_fToK
+	jq	BB1_7
+BB1_5:
+	ld	hl, L_.str.4
+	push	hl
+	call	_printf_
+	pop	hl
+	call	_getInput
+	push	de
+	push	hl
+	call	_kToF
+	jq	BB1_7
+BB1_6:
+	ld	hl, L_.str.2
+	push	hl
+	call	_printf_
+	pop	hl
+	call	_getInput
+	push	de
+	push	hl
+	call	_cToF
+BB1_7:
+	push	hl
+	pop	bc
+	pop	hl
+	pop	hl
+	ld	hl, L_.str.6
+BB1_8:
+	push	de
+	push	bc
+	push	hl
+	call	_printf_
+	ld	sp, ix
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+	section	.rodata,"a",@progbits
+lJTI1_0:
+	private	LJTI1_0
+LJTI1_0:
+	dl	BB1_3
+	dl	BB1_6
+	dl	BB1_4
+	dl	BB1_5
+
+	section	.text,"ax",@progbits
+	public	_fToC
+_fToC:
+	call	__frameset0
+	ld	bc, (ix + 6)
+	ld	a, (ix + 9)
+	or	a, a
+	sbc	hl, hl
+	ld	e, -62
+	ld	iy, 932068
+	ld	d, 63
+	call	__fadd
+	lea	hl, iy + 0
+	ld	e, d
+	call	__fmul
+	push	bc
+	pop	hl
+	ld	e, a
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+
+	section	.text,"ax",@progbits
+	public	_getInput
+_getInput:
+	ld	hl, -29
+	call	__frameset
+	ld	hl, L_.str.7
+	xor	a, a
+	ld	(ix + -26), a
+	lea	de, ix + -22
+	ld	(ix + -29), de
+	push	hl
+	call	_printf_
+	pop	hl
+BB3_1:
+	call	_os_GetKey
+	ld	a, l
+	sub	a, -116
+	cp	a, 2
+	jq	nc, BB3_2
+	dec	l
+	jq	BB3_4
+BB3_2:
+	ld	a, l
+	cp	a, 5
+	jq	z, BB3_5
+BB3_4:
+	ld	a, l
+	add	a, -94
+	ld	de, 0
+	ld	c, (ix + -26)
+	ld	e, c
+	ld	hl, (ix + -29)
+	add	hl, de
+	ld	(hl), a
+	inc	c
+	ld	(ix + -26), c
+	ld	l, a
+	rlc	l
+	sbc	hl, hl
+	ld	l, a
+	push	hl
+	ld	hl, L_.str.8
+	push	hl
+	call	_printf_
+	pop	hl
+	pop	hl
+	jq	BB3_1
+BB3_5:
+	ld	de, 0
+	ld	a, (ix + -26)
+	ld	e, a
+	ld	bc, (ix + -29)
+	push	bc
+	pop	hl
+	add	hl, de
+	ld	(hl), 0
+	pea	ix + -25
+	push	bc
+	call	_strtod
+	ld	sp, ix
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+
+	section	.text,"ax",@progbits
+	public	_cToF
+_cToF:
+	call	__frameset0
+	ld	bc, (ix + 6)
+	ld	a, (ix + 9)
+	ld	hl, -1677722
+	ld	e, 63
+	ld	iy, 0
+	ld	d, 66
+	call	__fmul
+	lea	hl, iy + 0
+	ld	e, d
+	call	__fadd
+	push	bc
+	pop	hl
+	ld	e, a
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+
+	section	.text,"ax",@progbits
+	public	_fToK
+_fToK:
+	call	__frameset0
+	ld	hl, (ix + 6)
+	ld	a, (ix + 9)
+	ld	e, a
+	push	de
+	push	hl
+	call	_fToC
+	push	hl
+	pop	bc
+	ld	a, e
+	pop	hl
+	pop	hl
+	ld	hl, -7831552
+	ld	e, 67
+	call	__fadd
+	push	bc
+	pop	hl
+	ld	e, a
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+
+	section	.text,"ax",@progbits
+	public	_kToF
+_kToF:
+	call	__frameset0
+	ld	bc, (ix + 6)
+	ld	a, (ix + 9)
+	ld	hl, -7831552
+	ld	e, -61
+	call	__fadd
+	ld	l, a
+	push	hl
+	push	bc
+	call	_cToF
+	ld	sp, ix
+	pop	ix
+	ret
+	section	.text,"ax",@progbits
+
+	section	.rodata,"a",@progbits
+	private	L_.str
+L_.str:
+	db	"TempCalc",012o,"Select:",012o,"1. Fahrenheit to Celsius",012o,"2. Celsius to Fahrenheit",012o,"3. Fahrenheit to Kelvin",012o,"4. Kelvin to Fahrenheit",012o,"5. Exit",000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.1
+L_.str.1:
+	db	"Fahrenheit to Celsius",012o,000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.2
+L_.str.2:
+	db	"Celsius to Fahrenheit ",012o,000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.3
+L_.str.3:
+	db	"Fahrenheit to Kelvin",012o,000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.4
+L_.str.4:
+	db	"Kelvin to Fahrenheit ",012o,000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.5
+L_.str.5:
+	db	"Invalid",000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.6
+L_.str.6:
+	db	"",012o,"Output: %f",000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.7
+L_.str.7:
+	db	"Input: ",000o
+
+	section	.rodata,"a",@progbits
+	private	L_.str.8
+L_.str.8:
+	db	"%c",000o
+
+	ident	"clang version 12.0.0 (https://github.com/jacobly0/llvm-project 170be88120e3aa88c20eea5615ba76b8f1d6c647)"
+	extern	__Unwind_SjLj_Register
+	extern	__frameset
+	extern	__fadd
+	extern	_printf_
+	extern	_os_ClrLCD
+	extern	_os_DrawStatusBar
+	extern	_os_GetKey
+	extern	__fmul
+	extern	__Unwind_SjLj_Unregister
+	extern	_strtod
+	extern	_os_GetCSC
+	extern	__frameset0
+	extern	_os_HomeUp
diff --git a/TempCalc/src/main.c b/TempCalc/src/main.c
new file mode 100644
index 0000000..ff44eca
--- /dev/null
+++ b/TempCalc/src/main.c
@@ -0,0 +1,106 @@
+#include <tice.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#define EnterKey 5
+#define maxline 22
+
+double fToC(double fahr);
+double cToF(double cel);
+double fToK(double fahr);
+double kToF(double kel);
+double getInput(void);
+void output(int operation);
+
+int main(void)
+{
+	while(true) {
+		os_ClrHome();
+
+		printf("TempCalc\nSelect:\n1. Fahrenheit to Celsius\n2. Celsius to Fahrenheit\n3. Fahrenheit to Kelvin\n4. Kelvin to Fahrenheit\n5. Exit");
+		uint16_t key = os_GetKey();
+
+		if(key == 147)
+			break;
+
+		output(key);
+		/* Waits for a key press */
+		while (!os_GetCSC());
+	}
+	os_ClrHome();
+	return 0;
+}
+
+void output(int operation)
+{
+	os_ClrHome();
+	double value = 0.0;
+	switch(operation) {
+		case 143:
+			printf("Fahrenheit to Celsius\n");
+			value = fToC(getInput());
+			break;
+		case 144:
+			printf("Celsius to Fahrenheit \n");
+			value = cToF(getInput());
+			break;
+		case 145:
+			printf("Fahrenheit to Kelvin\n");
+			value = fToK(getInput());
+			break;
+		case 146:
+			printf("Kelvin to Fahrenheit \n");
+			value = kToF(getInput());
+			break;
+		default: printf("Invalid");
+	}
+	printf("\nOutput: %f", value);
+}
+
+double getInput(void)
+{
+	uint8_t key, i = 0;
+	char number[maxline];
+	char *eptr;
+	double value = 0.0;
+
+	printf("Input: ");
+	while((key = os_GetKey()) != EnterKey) {
+		if(key == 141 || key == 140)
+			key--;
+		number[i] = (key - 142) + '0';
+		printf("%c", number[i++]);
+	}
+	number[i] = '\0';
+	value = strtod(number, &eptr);
+	return value;
+}
+
+double fToC(double fahr)
+{
+	double cel = 0;
+	cel = (5.0 / 9.0) * (fahr - 32.0);
+	return cel;
+}
+
+double fToK(double fahr)
+{
+	double kel = 0;
+	kel = fToC(fahr) + 273;
+	return kel;
+}
+
+double cToF(double cel)
+{
+	double fahr = 0;
+	fahr = (cel * (9.0 / 5.0)) + 32.0;
+	return fahr;
+}
+
+double kToF(double kel)
+{
+	double fahr = 0;
+	fahr = cToF(kel - 273);
+	return fahr;
+}