required first commitHEADmaster

1 files changed, 97 insertions, 0 deletions

diff --git a/CLOCK.sic b/CLOCK.sic
new file mode 100644
index 0000000..2b048ea
--- /dev/null
+++ b/CLOCK.sic
@@ -0,0 +1,97 @@
+CLOCK	START	7EEE	#count backwards from 7FFD after program is finished
+	LDA	TIMER
+	STA	SAVED
+	LDA	ZEROB	#load 1 byte of zero into A
+	STA	HOUR	#store 00 into HOUR and MINUTE
+	STA	MINUTE
+	LDA	SAVED
+	COMP	ZERO
+	JGT	CALC1	#greater than zero means 12 hour format...jump to the calculation
+ADJUST	AND	SEVENF	#Do AND operation with the value in SAVED and 7FFFFF
+CALC2	COMP	HCOUNT	#calculation for 24 hour format
+	JLT	CALC2A
+	SUB	HCOUNT
+	STA	STORE	#add one to HOUR:
+	LDA	HOUR	#load HOUR into A
+	ADD	ONE	#add one
+	STA	HOUR	#store new value in HOUR
+	LDA	STORE	#load the time back into A
+	COMP	HCT2
+	JGT	CALC2
+CALC2A	COMP	MCOUNT
+	JLT	DISP24
+	SUB	MCOUNT
+	STA	STORE	#add one to minute
+	LDA	MINUTE
+	ADD	ONE
+	STA	MINUTE
+	LDA	STORE
+	COMP	MCT2
+	JGT	CALC2A
+	J	DISP24
+CALC1	COMP	HCOUNT	#calculation for 12 hour format
+	JLT	CALC1A
+	SUB	HCOUNT
+	STA	STORE	#add one to hour
+	LDA	HOUR
+	ADD	ONE
+	STA	HOUR
+	LDA	STORE
+	COMP	HCT2
+	JGT	CALC1
+CALC1A	COMP	MCOUNT
+	JLT	DISP12
+	SUB	MCOUNT
+	STA	STORE	#add one to minute
+	LDA	MINUTE
+	ADD	ONE
+	STA	MINUTE
+	LDA	STORE
+	COMP	MCT2
+	JGT	CALC1A
+	J	DISP12
+DISP24	TD	OUTPUT	#test if device is ready to be written to
+	JEQ	DISP24	#loop until the device is ready
+	LDCH	HOUR
+	WD	OUTPUT
+	LDCH	MINUTE
+	WD	OUTPUT
+	J	ENDING
+DISP12	TD	OUTPUT	#test if device is ready to be written to
+	JEQ	DISP24	#loop until device is ready
+	LDA	HOUR
+	COMP	TWELVE
+	JGT	PM
+	LDCH	HOUR
+AM	WD	OUTPUT
+	LDCH	MINUTE
+	WD	OUTPUT
+	LDCH	A
+	WD	OUTPUT
+	J	ENDING	
+PM	SUB	TWELVE
+	LDCH	HOUR
+	WD	OUTPUT
+	LDCH	MINUTE
+	WD	OUTPUT
+	LDCH	P
+	WD	OUTPUT
+	J	ENDING
+A	BYTE	C'A'
+P	BYTE	C'P'
+HCOUNT	BYTE	X'E10'	#3600 in decimal
+HCT2	BYTE	X'E0F'	#3599
+MCOUNT	BYTE	X'3C'	#60 in decimal
+MCT2	BYTE	X'3B'	#59 in decmial
+SEVENF	WORD	7FFFFF
+TWELVE	BYTE	X'C'
+ZERO	WORD	0
+ZEROB	BYTE	X'00'	#one byte of zeros to be placed in HOUR and MINUTE at program start
+ONE	BYTE	X'1'	#representation of the number 1 for incrementing
+HOUR	RESB	1	#1 byte for number of hours max 23
+MINUTE	RESB	1	#1 byte for number of minutes max 59
+STORE	RESW	1	#store value of register A temporarily so another value can be placed for adding
+SAVED	RESW	1	#saving the timer so unexpected changes wont break the program
+OUTPUT	BYTE	X'40'	#output device
+TIMER	RESW	1	#reserve 1 word for the timer. Needs to end up at address 7FFD (last word in mem)
+ENDING	END