5 files changed, 208 insertions, 0 deletions
diff --git a/fullmonty/digital_io/cylon1.bas b/fullmonty/digital_io/cylon1.bas
new file mode 100644
index 0000000..c768590
--- /dev/null
+++ b/fullmonty/digital_io/cylon1.bas
@@ -0,0 +1,10 @@
+10 FOR F=0 TO 7
+20 OUT 0,2^F
+30 GOSUB 100
+40 NEXT F
+50 FOR F=7 TO 0 STEP -1
+60 OUT 0,2^F
+70 GOSUB 100
+80 NEXT F
+90 GOTO 10
+100 FOR X = 1 TO 150 : NEXT X : RETURN
diff --git a/fullmonty/digital_io/cylon2.bas b/fullmonty/digital_io/cylon2.bas
new file mode 100644
index 0000000..a5d5b7c
--- /dev/null
+++ b/fullmonty/digital_io/cylon2.bas
@@ -0,0 +1,22 @@
+1 REM cylon demo program using RC2014 digital IO board
+2 REM buttons may be pressed to alter speed
+
+5 DL=150
+6 DN=150
+10 FOR F=0 TO 7
+20 OUT 0,2^F
+30 GOSUB 1000
+40 NEXT F
+50 FOR F=7 TO 0 STEP -1
+60 OUT 0,2^F
+70 GOSUB 1000
+80 NEXT F
+90 GOTO 10
+
+1000 X=0
+1010 BU=INP(0)
+1020 IF BU <> 0 THEN DN = BU*5
+1030 IF DN <> DL THEN DL=DN : PRINT DN : RETURN
+1040 IF X > DL THEN RETURN
+1050 X=X+1
+1060 GOTO 1010
diff --git a/sb_rtc/clock.bas b/sb_rtc/clock.bas
new file mode 100644
index 0000000..d9671d7
--- /dev/null
+++ b/sb_rtc/clock.bas
@@ -0,0 +1,53 @@
+1 REM clock.bas
+2 REM by Scott Baker, http://www.smbaker.com/
+3 REM Demonstrates use of BQ4845 RTC on Z80 RC2014 computer
+
+5 REM set 24-hour mode
+6 OUT &HCE, 2
+
+10 LS=999
+20 GOSUB 1000
+30 if (LS = S) GOTO 100
+40 LS = S
+50 GOSUB 2000
+60 print T$
+70 REM for the display board, output seconds on the LEDs
+80 OUT 0, S
+100 GOTO 20
+
+998 REM read the current time from the RTC
+999 REM store it in the variables H, M, S.
+1000 X=inp(&HC0)
+1010 S=(X and 15) + INT(X/16)*10
+1020 X=inp(&HC2)
+1030 M=(X and 15) + INT(X/16)*10
+1040 X=inp(&HC4)
+1050 H=(X and 15) + (INT(X/16) and 3)*10
+1060 RETURN
+
+1999 REM format H, M, S into a string T$
+2000 T$=""
+2010 if (H>9) GOTO 2030
+2020 T$=T$+"0"
+2030 T$=T$+right$(str$(H),len(str$(H))-1)
+2040 T$=T$+":"
+2050 if (M>9) GOTO 2070
+2060 T$=T$+"0"
+2070 T$=T$+right$(str$(M),len(str$(M))-1)
+2080 T$=T$+":"
+2090 if (S>9) GOTO 2110
+2100 T$=T$+"0"
+2110 T$=T$+right$(str$(S),len(str$(S))-1)
+2120 RETURN
+
+2999 REM set the clock using H, M, S
+3000 TS=INT(S/10)
+3010 OS=S-(TS*10)
+3020 OUT &HC0, TS*16 + OS
+3030 TM=INT(M/10)
+3040 OM=M-(TM*10)
+3050 OUT &HC2, TM*16 + OM
+3060 TH=INT(H/10)
+3070 OH=H-(TH*10)
+3080 OUT &HC4, TH*16 + OH
+3090 RETURN
diff --git a/sb_vfd/vfd.bas b/sb_vfd/vfd.bas
new file mode 100644
index 0000000..aed987c
--- /dev/null
+++ b/sb_vfd/vfd.bas
@@ -0,0 +1,35 @@
+10 GOSUB 4000     : REM initialize
+20 GOSUB 4100     : REM cursor off
+30 T$ = "Hello, World"
+40 GOSUB 4500     : REM print string
+
+999 GOTO 999
+
+4000 OUT 0, &H30  : REM function set - 8 bit
+4010 OUT 1, 0     : REM max brightness
+4020 OUT 0, 1     : REM clear display
+4030 OUT 0, &H0F  : REM display on, cursor on, blink on
+4040 RETURN
+
+4099 REM turn cursor off
+4100 OUT 0, &H0C  : REM display on, cursor off
+4110 RETURN
+
+4199 REM turn cursor on
+4200 OUT 0, &H0F  : REM display on, cursor on, blin on
+4210 RETURN
+
+4299 REM clear screen
+4300 OUT 0, 1
+4310 RETURN
+
+4399 REM goto X, Y
+4400 DA = &H80 + (&H40 * Y) + X
+4410 OUT 0, DA
+4420 RETURN
+
+4499 REM print string
+4500 FOR I=1 to LEN(T$)
+4510 OUT 1, ASC(MID$(T$, I, 1))
+4520 NEXT I
+4530 RETURN
diff --git a/sb_vfd/vfd_clock.bas b/sb_vfd/vfd_clock.bas
new file mode 100644
index 0000000..401a4ea
--- /dev/null
+++ b/sb_vfd/vfd_clock.bas
@@ -0,0 +1,88 @@
+1 REM clock.bas
+2 REM by Scott Baker, http://www.smbaker.com/
+3 REM Demonstrates use of BQ4845 RTC on Z80 RC2014 computer
+4 REM with VFD display.
+
+5 REM set 24-hour mode
+6 OUT &HCE, 2
+
+7 GOSUB 4000 : REM initialize VFD
+8 GOSUB 4100 : REM VFD cursor off
+9 T$="RC2014 VFD Clock"
+10 GOSUB 4500 : REM VFD print string
+
+15 LS=999
+20 GOSUB 1000 : REM get time
+
+30 if (LS = S) GOTO 100
+40 LS = S
+50 GOSUB 2000
+60 X=4 : Y=1 : GOSUB 4400 : REM goto line 2
+70 GOSUB 4500
+100 GOTO 20
+
+998 REM read the current time from the RTC
+999 REM store it in the variables H, M, S.
+1000 X=inp(&HC0)
+1010 S=(X and 15) + INT(X/16)*10
+1020 X=inp(&HC2)
+1030 M=(X and 15) + INT(X/16)*10
+1040 X=inp(&HC4)
+1050 H=(X and 15) + (INT(X/16) and 3)*10
+1060 RETURN
+
+1999 REM format H, M, S into a string T$
+2000 T$=""
+2010 if (H>9) GOTO 2030
+2020 T$=T$+"0"
+2030 T$=T$+right$(str$(H),len(str$(H))-1)
+2040 T$=T$+":"
+2050 if (M>9) GOTO 2070
+2060 T$=T$+"0"
+2070 T$=T$+right$(str$(M),len(str$(M))-1)
+2080 T$=T$+":"
+2090 if (S>9) GOTO 2110
+2100 T$=T$+"0"
+2110 T$=T$+right$(str$(S),len(str$(S))-1)
+2120 RETURN
+
+2999 REM set the clock using H, M, S
+3000 TS=INT(S/10)
+3010 OS=S-(TS*10)
+3020 OUT &HC0, TS*16 + OS
+3030 TM=INT(M/10)
+3040 OM=M-(TM*10)
+3050 OUT &HC2, TM*16 + OM
+3060 TH=INT(H/10)
+3070 OH=H-(TH*10)
+3080 OUT &HC4, TH*16 + OH
+3090 RETURN
+
+4000 OUT 0, &H30  : REM function set - 8 bit
+4010 OUT 1, 0     : REM max brightness
+4020 OUT 0, 1     : REM clear display
+4030 OUT 0, &H0F  : REM display on, cursor on, blink on
+4040 RETURN
+
+4099 REM turn cursor off
+4100 OUT 0, &H0C  : REM display on, cursor off
+4110 RETURN
+
+4199 REM turn cursor on
+4200 OUT 0, &H0F  : REM display on, cursor on, blin on
+4210 RETURN
+
+4299 REM clear screen
+4300 OUT 0, 1
+4310 RETURN
+
+4399 REM goto X, Y
+4400 DA = &H80 + (&H40 * Y) + X
+4410 OUT 0, DA
+4420 RETURN
+
+4499 REM print string
+4500 FOR I=1 to LEN(T$)
+4510 OUT 1, ASC(MID$(T$, I, 1))
+4520 NEXT I
+4530 RETURN