Z80-MBC2 Build Notes

From Land Boards Wiki
Jump to navigation Jump to search

Z80-MBC2 P586-720PX.jpg

Parts

  • On card
    • Z80 CPU CMOS (Z84C00) 8Mhz or greater - I used 20 MHz
    • Atmega32A
    • TC551001-70 (128kB RAM)
    • I used AS6C1008-55PIN since it is available on Mouser and Digikey
    • 74HC00
  • I added the optional MCP23017 for GPIO
  • External cards
  • Bare Board on ebay - $8 shipping included
    • Arrived in a couple of days
  • Kit for sale
  • Enclosure

Reference Docs

Build Notes

DS3231 AT24C32 IIC Precision Real Time Clock RTC-cropped.jpg

Negatives

  • Ref des are not top-bottom or left-right
    • Struggled to find some of the resistors on the PCB
    • PDF Assembly drawing text is not searchable
  • Serial port marking correlated to the FTDI card end not referenced from card internal

RES RefDes.png

Enclosure

Card Set

Z80-MBC2 P589-720px.jpg

Front View

Z80-MBC2 P1613-720px.jpg

Top View

Z80-MBC2 P1616-720px.jpg

Rear View

Z80-MBC2 P1623-720px.jpg

Side/Top View

Z80-MBC2 P1626-720px.jpg

Connectors

  • Triangle/arrow points to pin 1

J1 - I2C Expansion

J1-I2C.jpg

J1-I2C Expamsion.PNG

J2 - Serial

  • Connects to FTDI-49MM card
    • Card does not have DTR line - used for serial download
  • RTS-CTS not currently implemented in the IOS firmware
    • Did wire to FTDI-49MM card in case it gets added in the future

J2-Serial.jpg

J2-Serial.PNG

FTDI-P1746-CROPPED-720PX.jpg

J3 - ICSP

  • Connects to ISP connector on ATProgHead for programming using Arduino as ISP connector and 2x3 jumper

J3-ICSP.jpg

J3-ICSP.PNG

ATProgHead-X2-CCA-640-001.jpg

J4 - AUX PWR

J4-AUX PWR.jpg

J4-AUX PWR.PNG

J5 - RTC

J5-RTC.jpg

J5-RTC.PNG

DS3231 AT24C32 IIC Precision Real Time Clock RTC-cropped.jpg

J6 - SD Card

J6-SD.jpg

J6-SD-Card.PNG

SDCARDX49 P935 cropped-512px.jpg

J7 - GPIO

  • Demo software in Disk Set 1, Drive A:, File: gpeled.bas

J7-GPIO.jpg

J7-GPIO.PNG

DB-25 connector

  • Connect to DB25RIBBON card
    • Use female DB-25 since power is exposed

DB25RIBBONADAPTER-P445-720px.jpg

  • Wiring shown for male DB-25 connector

DB25 Adapter Schematic.PNG

DB-25 Female.gif

DB25 wiring.PNG

Z80-MBC2 to DB25RIBBON Card Wiring
Port J7 Pin DB-25F Pin P1 Pin Color Port J7 Pin DB-25F Pin P1 Pin
GND 20 1 25 Black GND 19 14 24
GPA0 18 2 23 Brown GPB0 3 15 22
GPA1 16 3 21 Orange GPB1 5 16 20
GPA2 14 4 19 Yellow GPB2 7 17 18
GPA3 12 5 17 Green GPB3 9 18 16
GPA4 10 6 15 Blue GPB4 11 19 14
GPA5 8 7 13 Violet GPB5 13 20 12
GPA6 6 8 11 Grey GPB6 15 21 10
GPA7 4 9 9 White GPB7 17 22 8
+5V 2 10 7 Red +5V 1 23 6

Switches

PB SW.jpg

  • Switching between IOS options requires access to Reset and User buttons
  • Pushbutton switches for Reset and User added to Front Panel below SD card mounting
  • Reset pushbutton switch is Blue (red would be better but my only red switch was Normally Closed switch)
  • User pushbutton switch is Black
  • Soldered wires directly to pushbutton switches on the Z80-MBC2 card
    • Used Gerbers to find ground pins
    • Chained grounds on switches

SwitchGrounds.PNG

LEDs

  • Diffused LEDs are better than clear LEDs
  • Using 5mm LEDs
  • SWLEDX8 - LEDs mounted to front panel through this card
    • Removed LEDs from SBC-MBC2 and added 2 pin right angle headers
      • Would have been easier if I had planned to have LEDs visible
      • Higher resistor values would be better since the LEDs are pretty bright.
    • D7 = Blue User LED
    • D6 = Green IOS LED
    • D5 = Red HALT LED
    • D4 = White DMA LED
    • D3 = White IOS LED
    • D1 = Orange Power LED
    • SD card LED is on the FTDI-49MM card
  • D2, D0 LED are not installed
  • Resistor installed only for Power LED (Used 1K to reduce the brightness)
    • Other LED resistors are on Z80-MBC2 card
  • No Switches are installed on card
  • Card is sawn off just below switch pins
  • Wired to use LED and Switch pins on Header
  • Header is mounted on the rear of the card

SWLEDX8-I2C-P118-720px.jpg

Programming THE ATMEGA32

  • IOS-LITE build (no SD card support)
  • Full build with SD card
  • Was able to use ATProgHead ICSP 2x3 cable running Arduino as ISP to burn bootloader but not program the code
  • Could not use any of my FTDI cards for serial programming since they have RTS/CTS but not DTR
    • Most programmer setups in Arduino work just fine with RTS since both are usually pulled, but not the MightyCore
    • This is speculation as to why but I am able to program Screwduino cards just fine
  • Used TL866ii to program ATMEGA32 fuses
    • The Fuse bits should be: High Byte 0xD6, Low Byte 0xAF, Lock Byte 0xCF.
    • Reference: Setting AVR Fuse Bits
    • If you use the programmer defaults it sets the clock to 1 MHz which gives a serial port rate of 600 baud (told me I needed to fix the fuses).

Z80-MBC2-TL866II.PNG

  • Found path in dump in Arduino IDE:
Arduino: 1.8.13 (Windows 10), Board: "ATmega32, Yes (UART0), EEPROM retained, Standard pinout, BOD 2.7V, LTO disabled, External 16 MHz"
Sketch uses 28642 bytes (88%) of program storage space. Maximum is 32256 bytes.
Global variables use 1213 bytes (59%) of dynamic memory, leaving 835 bytes for local variables. Maximum is 2048 bytes.
C:\Users\HPz420\AppData\Local\Arduino15\packages\arduino\tools\avrdude\6.3.0-arduino18/bin/avrdude -CC:\Users\HPz420\AppData\Local\Arduino15\packages\MightyCore\hardware\avr\2.1.3/avrdude.conf -v -patmega32 -carduino -PCOM23 -b115200 -D -Uflash:w:C:\Users\HPz420\AppData\Local\Temp\arduino_build_883457/S220618_IOS-LITE-Z80-MBC2.ino.hex:i 

Software

IOS Lite

  • IOS Lite does not include SD or RTC support but is useful in checkout

Z80-MBC2 FigForth.PNG

Boot ("Full" IOS)

  • Includes SD support
Z80-MBC2 - A040618
IOS - I/O Subsystem - S220718-R240620

IOS: Z80 clock set at 8MHz
IOS: Found GPE Option
IOS: CP/M Autoexec is OFF

IOS: Select boot mode or system parameters:

 0: No change (3)
 1: Basic
 2: Forth
 3: Load OS from Disk Set 0 (CP/M 2.2)
 4: Autoboot
 5: iLoad
 6: Change Z80 clock speed (->4MHz)
 7: Toggle CP/M Autoexec (->ON)
 8: Change Disk Set 0 (CP/M 2.2)

Enter your choice >3  Ok
IOS: Current Disk Set 0 (CP/M 2.2)
IOS: Loading boot program (CPM22.BIN)... Done
IOS: Z80 is running from now



Z80-MBC2 CP/M 2.2 BIOS - S030818-R140319
CP/M 2.2 Copyright 1979 (c) by Digital Research

A>

SD Card (R240620)

  • Disk Set 0 (CP/M 2.2)
  • Disk Set 1 (QP/M 2.71)
  • Disk Set 2 (CP/M 3.0)
  • Disk Set 3 (UCSD Pascal)
  • Disk Set 4 (Collapse OS)

Disk Set 0 (CP/M 2.2)

F>a:stat
A: R/W, Space: 7908k - CP/M 2.2
B: R/W, Space: 8068k - Turbo Pascal Compiler v3.01A
C: R/W, Space: 7664k - HI-TECH Z80 CP/M C compiler V3.09
D: R/W, Space: 8004k - Microsoft Fortran-80 Compiler v.3.44
E: R/W, Space: 7896k - Microsoft Basic-80 Compiler v.5.30a
F: R/W, Space: 8176k
G: R/W, Space: 8176k
H: R/W, Space: 8176k
I: R/W, Space: 8176k
J: R/W, Space: 8176k
K: R/W, Space: 8176k
L: R/W, Space: 8176k
M: R/W, Space: 8176k
N: R/W, Space: 8176k
O: R/W, Space: 8176k
P: R/W, Space: 8176k

Z80-MBC2 CP/M 2.2 BIOS - S030818-R140319
CP/M 2.2 Copyright 1979 (c) by Digital Research

A>DIR
A: ASCIART  BAS : ASM      COM : AUTOEXEC SUB : AUTOEXEC TXT
A: D        COM : DDT      COM : DUMP     COM : ED       COM
A: GENHEX   COM : GPELED   BAS : GPIO     BAS : HELLO    ASM
A: HELLO    COM : LOAD     COM : MAC      COM : MBASIC   COM
A: MBASIC85 COM : PEG      COM : PIP      COM : RTC      BAS
A: STARTREK BAS : STAT     COM : SUBMIT   COM : TREKINST BAS
A: USERLED  BAS : XMODEM   CFG : XMODEM   COM : XSUB     COM
A: ZDE16    COM : ZDENST16 COM

B>DIR
B: TINST    COM : TURBO    COM : ART      TXT : TINST    DTA
B: TINST    MSG : TURBO    MSG : TURBO    OVR : TURBOMSG OVR
B: SA       PAS : README   TXT

C>DIR
C: $EXEC    COM : ASSERT   H   : C        COM : CGEN     COM
C: CONIO    H   : CPM      H   : CPP      COM : CREF     COM
C: CRTCPM   OBJ : CTYPE    H   : DEBUG    COM : DEHUFF   COM
C: EXEC     H   : FLOAT    H   : HITECH   H   : LIBC     LIB
C: LIBF     LIB : LIBR     COM : LIMITS   H   : LINK     COM
C: MATH     H   : OBJTOHEX COM : OPTIM    COM : OPTIONS
C: P1       COM : README   TXT : RRTCPM   OBJ : SETJMP   H
C: SIGNAL   H   : STAT     H   : STDARG   H   : STDDEF   H
C: STDIO    H   : STDLIB   H   : STRING   H   : SYS      H
C: TIME     H   : UNIXIO   H   : ZAS      COM

D>dir
D: CPMIO    MAC : CRCKLIST CRC : CREF80   COM : DSKDRV   MAC
D: DTBF     MAC : F80      COM : FCHAIN   MAC : FORLIB   REL
D: INIT     MAC : IOINIT   MAC : L80      COM : LIB      COM
D: LPTDRV   MAC : LUNTB    MAC : M80      COM : TTYDRV   MAC
D: README   TXT

E>dir
E: BASCOM   COM : BASCOM   HLP : BASCOM2  HLP : BASLIB   REL
E: BCLOAD       : BRUN     COM : CREF     COM : CREF80   COM
E: README   TXT : L80      COM : LIB80    COM : M80      COM
E: MBASIC   COM : OBSLIB   REL : RANTEST  ASC : RANTEST  BAS
E: RANTEST  COM : RANTEST  REL : SAMPLE   BAS : SAMPLE   COM
E: SAMPLE   REL

Disk Set 1 (QP/M 2.71)

IOS: Current Disk Set 1 (QP/M 2.71)
IOS: Loading boot program (QPMLDR.BIN)... Done
IOS: Z80 is running from now

Z80-MBC2 QP/M 2.71 Cold Loader - S160918
Loading... done

Z80-MBC2 QP/M 2.71 BIOS - S150918
QP/M 2.71 Copyright 1985 (c) by MICROCode Consulting

A>dir
AUTOEXEC.QSB : D       .COM : DHORIZ  .COM : HELLO   .QPM
QBACKUP .COM : QINSTALL.COM : QPATCH  .COM : QPIP    .COM
QPMCLK  .MAC : QPMCMDS .TXT : QPMUTILS.TXT : QSTAMP  .COM
QSTAMPV .COM : QSTAMPX .COM : QSTAT   .COM : QSUB    .COM
QSWEEP  .COM : AUTOEXEC.TXT : TDCNFG  .COM : ZDE16   .COM
ZDENST16.COM : SYSGENQ .COM : ASCIART .BAS : ASM     .COM
DDT     .COM : DUMP    .COM : GENHEX  .COM : GPELED  .BAS
GPIO    .BAS : HELLO   .ASM : HELLO   .COM : LOAD    .COM
MAC     .COM : MBASIC  .COM : PEG     .COM : RTC     .BAS
STARTREK.BAS : TREKINST.BAS : USERLED .BAS : MBASIC85.COM
SETDATE .QSB

A>b:
B>dir
TINST   .COM : TURBO   .COM : ART     .TXT : TINST   .DTA
TINST   .MSG : TURBO   .MSG : TURBO   .OVR : TURBOMSG.OVR
SA      .PAS : README  .TXT : D       .COM

C>dir
$EXEC   .COM : ASSERT  .H   : C       .COM : CGEN    .COM
CONIO   .H   : CPM     .H   : CPP     .COM : CREF    .COM
CRTCPM  .OBJ : CTYPE   .H   : DEBUG   .COM : DEHUFF  .COM
EXEC    .H   : FLOAT   .H   : HITECH  .H   : LIBC    .LIB
LIBF    .LIB : LIBR    .COM : LIMITS  .H   : LINK    .COM
MATH    .H   : OBJTOHEX.COM : OPTIM   .COM : OPTIONS .
P1      .COM : README  .TXT : RRTCPM  .OBJ : SETJMP  .H
SIGNAL  .H   : STAT    .H   : STDARG  .H   : STDDEF  .H
STDIO   .H   : STDLIB  .H   : STRING  .H   : SYS     .H
TIME    .H   : UNIXIO  .H   : ZAS     .COM : D       .COM

D>dir
CPMIO   .MAC : CRCKLIST.CRC : CREF80  .COM : DSKDRV  .MAC
DTBF    .MAC : F80     .COM : FCHAIN  .MAC : FORLIB  .REL
INIT    .MAC : IOINIT  .MAC : L80     .COM : LIB     .COM
LPTDRV  .MAC : LUNTB   .MAC : M80     .COM : TTYDRV  .MAC
README  .TXT : D       .COM

E>dir
BASCOM  .COM : BASCOM  .HLP : BASCOM2 .HLP : BASLIB  .REL
BCLOAD  .    : BRUN    .COM : CREF    .COM : CREF80  .COM
README  .TXT : L80     .COM : LIB80   .COM : M80     .COM
MBASIC  .COM : OBSLIB  .REL : RANTEST .ASC : RANTEST .BAS
RANTEST .COM : RANTEST .REL : SAMPLE  .BAS : SAMPLE  .COM
SAMPLE  .REL : D       .COM

Disk Set 2 (CP/M 3.0)

>Disk Set 2 (CP/M 3.0)

IOS: Current Disk Set 2 (CP/M 3.0)
IOS: Loading boot program (CPMLDR.COM)... Done
IOS: Z80 is running from now

Z80-MBC2 CPMLDR BIOS - S180918

CP/M V3.0 Loader
Copyright (C) 1982, Digital Research

 BNKBIOS3 SPR  F600  0600
 BNKBIOS3 SPR  5300  2D00
 RESBDOS3 SPR  F000  0600
 BNKBDOS3 SPR  2500  2E00

 60K TPA

Z80-MBC2 128KB (Banked) CP/M V3.0
Z80-MBC2 BIOS Modules: S200918, S210918-R170319, S220918-R180319, S290918,
 S170319

A>dir
A: ASCIART  BAS : AUTOEXEC COM : AUTOEXEC TXT : BDOS3    SPR : BNKBDOS3 SPR
A: CCP      COM : COPYSYS  COM : CPM3     SYS : CPM3-128 SYS : CPM3-64  SYS
A: CPMLDR   COM : CPMLDR   REL : CPM-Y2K  TXT : CRCK     COM : DATE     COM
A: DEVICE   COM : DIR      COM : DUMP     COM : ED       COM : ERASE    COM
A: GENCOM   COM : GENCPM   COM : GENHEX   COM : GET      COM : GPELED   BAS
A: GPIO     BAS : HELLO    ASM : HELLO    COM : HELP     COM : HELP     HLP
A: HEXCOM   COM : INITDIR  COM : LIB      COM : LINK     COM : LOAD     COM
A: MAC      COM : MBASIC   COM : MBASIC85 COM : PATCH    COM : PEG      COM
A: PIP      COM : PROFILE  SU  : PUT      COM : README   1ST : RENAME   COM
A: RESBDOS3 SPR : RMAC     COM : RTC      BAS : SAVE     COM : SET      COM
A: SETDEF   COM : SHOW     COM : SID      COM : STARTREK BAS : SUBMIT   COM
A: SYS128   SUB : SYS64    SUB : TREKINST BAS : TYPE     COM : USERLED  BAS
A: XMODEM   CFG : XMODEM   COM : XREF     COM : ZDE16    COM : ZDENST16 COM
A: ZSID     COM : CATCHUM  COM : CATCHUM  DAT : CATCONF  COM : GORILLA  COM
A: LADCONF  COM : LADDER   COM : LADDER   DAT

B>dir
B: ART      TXT : SA       PAS : TINST    COM : TINST    DTA : TINST    MSG
B: TURBO    COM : TURBO    MSG : TURBO    OVR : TURBOMSG OVR : USERLED  PAS

C>dir
C: $EXEC    COM : ASSERT   H   : C        COM : CGEN     COM : CONIO    H
C: CPM      H   : CPP      COM : CREF     COM : CRTCPM   OBJ : CTYPE    H
C: DEBUG    COM : DEHUFF   COM : EXEC     H   : FLOAT    H   : HITECH   H
C: LIBC     LIB : LIBF     LIB : LIBR     COM : LIMITS   H   : LINK     COM
C: MATH     H   : OBJTOHEX COM : OPTIM    COM : P1       COM : README   TXT
C: RRTCPM   OBJ : SETJMP   H   : SIGNAL   H   : STAT     H   : STDARG   H
C: STDDEF   H   : STDIO    H   : STDLIB   H   : STRING   H   : SYS      H
C: TIME     H   : UNIXIO   H   : ZAS      COM

D>dir
D: CPMIO    MAC : CRCKLIST CRC : CREF80   COM : DSKDRV   MAC : DTBF     MAC
D: F80      COM : FCHAIN   MAC : FORLIB   REL : INIT     MAC : IOINIT   MAC
D: L80      COM : LIB      COM : LPTDRV   MAC : LUNTB    MAC : M80      COM
D: README   TXT : TTYDRV   MAC

E>dir
E: INSTALL  COM : MAILMRGE OVR : MERGPRIN OVR : WIMSGS   OVR : WS       COM
E: WS       OVR : WSCHANGE COM : WSCHANGE OVR : WSCHHELP OVR : WSHELP   OVR
E: WSMSGS   OVR : WSOVLY1  OVR : WSPRINT  OVR : WSSHORT  OVR : WSU      COM

ADD FILES USING CPMTOOLSGUI

  • The Z80-MBC2 maps any disk like A: B: C: etc. into an image file on SD card with this file name: DSxNyy.DSK;
    • where x (from 0 to 9) is OS:
      • 0 = CP/M 2.2
      • 1 = QP/M 2.71
      • 2 = CP/M 3
    • and yy (from 00 to 15) is the disk (00 = A: 01 = B: etc.).
  • You can download CpmtoolsGUI (English Windows version) from here.
  • Extract the file CpmtoolsGUI.exe in a new folder and add/overwrite the file diskdefs copying it from the folder cpmtools inside the SD.

STEP 1

  • Select in the upper left window (Image File) of the CpmtoolsGUI tool the virtual disk where you want to add files.
    • For CP/M 2.2 and QP/M 2.71: select "z80mbc2-d0" only for disk 0 or "z80mbc2-d1" for the others (disk 1 - 15) in the bottom left window (Format) of CpmtoolsGUI.
      • In the following image is selected (Image File) the disk DS0N02.DSK that corresponds to the disk C: (yy = disk = 02) of the CP/M 2.2 OS (x = 0):
        • In the center window you can see all the files inside the selected virtual disk (disk 0 - 15).
        • Please note that if you choose an empty disk (like P:) you won't see any file name in the center window of the CpmtoolsGUI tool.
    • For CP/M 3: select in the bottom left window (Format) of CpmtoolsGUI "z80mbc2-cpm3" for any disk.
      • In the following image is selected (Image File) the disk DS2N00.DSK that corresponds to the disk A: (yy = disk = 00) of the CP/M 3 OS (x = 2):

https://cdn.hackaday.io/images/8548631539243636227.jpg

STEP 2

  • To add one or more files to the selected virtual disk you have simply point the upper right selection window to the folder where the new files are stored in your PC, select them using the bottom right selection window and press the "<- P" button.
  • After the add you'll see the added file names in the center window (together with the others file previously present).

STEP 3

  • Exit from the the CpmtoolsGUI tool pressing the eXit button.

More info here and here.

I/O Programming

  • User Pushbutton
  • User LED
  • 16-bit GPIO
  • Real-Time Clock

User LED and Pushbutton

userled.bas

01 REM ****************************************
02 REM
03 REM Z80-MBC2 USER led blink demo:
04 REM
05 REM Blink USER led until USER key is pressed
06 REM
07 REM ****************************************
08 REM
13 PRINT "Press USER key to exit"
14 LEDUSER = 0 : REM USER LED write Opcode (0x00)
15 KEYUSER = 128 : REM USER KEY read Opcode (0x80)
16 PRINT "Now blinking..."
18 OUT 1,LEDUSER : REM Write the USER LED write Opcode
20 OUT 0,1 : REM Turn USER LED on
30 GOSUB 505 : REM Delay sub
40 OUT 1,LEDUSER : REM Write the USER LED write Opcode
45 OUT 0,0 : REM Turn USER LED off
50 GOSUB 505 : REM Delay
60 GOTO 18
490 REM
500 REM * * * * * DELAY SUB
501 REM
505 FOR J=0 TO 150
506 OUT 1,KEYUSER : REM Write the USER KEY read Opcode
507 IF INP(0)=1 THEN GOTO 700 : REM Exit if USER key is pressed
510 NEXT J
520 RETURN
690 REM
691 REM * * * * * PROGRAM END
692 REM
700 OUT 1,LEDUSER : REM Write the USER LED write Opcode
710 OUT 0,0 : REM Turn USER LED off
720 PRINT "Terminated by USER Key"

GPIO

gpio.bas

1 REM * * * GPIO EXPANSION MODULE (A080117) DEMO  * * *
2 REM
3 REM (USER Key -> slow led, GPIO-A(9) Key -> fast led)
4 REM --------------------------------------------------
5 REM Demo HW wiring (see A080117 schematic):
6 REM
7 REM   GPIO-B
8 REM    (J3)
9 REM   +----+   LED
10 REM  | 2  |--->|---+
11 REM  | 3  |--->|---+      RESISTOR
12 REM  | 4  |--->|---+        680
13 REM  | 5  |--->|---+-------/\/\/-----o GND
14 REM  | 6  |--->|---+
15 REM  | 7  |--->|---+
16 REM  | 8  |--->|---+
17 REM  | 9  |--->|---+
18 REM  +----+        |
19 REM                |
20 REM                |
21 REM  GPIO-A        |
22 REM   (J4)         |
23 REM  +----+   LED  |
24 REM  | 2  |--->|---+
25 REM  | 3  |--->|---+
26 REM  | 4  |x
27 REM  | 5  |x
28 REM  | 6  |x
29 REM  | 7  |x     PUSH BUTTON            RESISTOR
30 REM  | 8  |x        ---                   1K
31 REM  | 9  |---------o o------------------/\/\/-----o GND
32 REM  +----+
33 REM
34 REM
35 REM
36 REM --------------------------------------------------
37 REM
38 REM Set MCP23017 GPIOB all pins as output (IODIRB=0x00)
39 OUT 6, 0
40 REM Set MCP23017 GPIOA 0-1 as output, others as input (IODIRA=0xFC)
41 OUT 5, 252
42 REM Set MCP23017 GPIOA 2-7 pull-up resistor on (GPPUA=0xFC)
43 OUT 7, 252
45 REM Left Shift user funcion definition
50 DEF FNLSH(X)=((X*2) AND 255)
55 REM Init GPIO output ports
60 OUT 3, 0 : REM Clear MCP23017 GPIOA port
62 OUT 4, 0 : REM Clear MCP23017 GPIOB port
64 GOSUB 700 : REM Set slow shift
68 REM Main
70 A=1
80 FOR I=0 TO 7
90 OUT 4, A : REM Write to MCP23017 GPIOB port
100 GOSUB 500
110 A=FNLSH(A)
120 NEXT I
130 OUT 4, 0 : REM Clear MCP23017 GPIOB port
135 A=1
140 FOR I=0 TO 1
150 OUT 3, A : REM Write to MCP23017 GPIOA port
160 GOSUB 500
170 A=FNLSH(A)
190 NEXT I
200 OUT 3, 0 : REM Clear MCP23017 GPIOA port
210 GOTO 70 : REM Play it again, Sam...
220 REM
500 REM * * * * * DELAY SUB
505 FOR J=0 TO K
507 IF INP(0)=1 THEN GOSUB 700 : REM Read USER key
508 IF (INP(3) AND 128)=0 THEN GOSUB 600 : REM Read MCP23017 GPIOA 7 key
510 NEXT J
520 RETURN
530 REM
600 REM * * * * * SET FAST SHIFT SUB
610 K=1
620 OUT 0, 1 : REM USER led ON
630 RETURN
640 REM
700 REM * * * * * SET SLOW SHIFT SUB
710 K=30
720 OUT 0, 0 : REM USER led OFF
730 RETURN

Real-Time Clock

  • Write 1 to Port 132
  • Read 0 eepeatedly
    • SEC
    • MINUTES
    • HOURS
    • DAY
    • MONTH
    • YEAR
    • TEMP

rtc.bas

15 OUT 1,132 : REM Write the DATETIME read Opcode
20 SEC = INP(0) : REM Read a RTC parameter
30 MINUTES = INP(0) : REM Read a RTC parameter
40 HOURS = INP(0) : REM Read a RTC parameter
50 DAY = INP(0) : REM Read a RTC parameter
60 MNTH = INP(0) : REM Read a RTC parameter
70 YEAR = INP(0) : REM Read a RTC parameter
80 TEMP = INP(0) : REM Read a RTC parameter
83 IF TEMP < 128 THEN 90 : REM Two complement correction
85 TEMP = TEMP - 256
90 PRINT
100 PRINT "THE TIME IS: ";
110 PRINT HOURS; : PRINT ":"; : PRINT MINUTES; : PRINT ":"; : PRINT SEC
120 PRINT "THE DATE IS: ";
125 YEAR= YEAR+ 2000
130 PRINT DAY; : PRINT "/"; : PRINT MNTH; : PRINT "/"; : PRINT YEAR
135 PRINT "THE TEMPERATURE IS: ";
140 PRINT TEMP; : PRINT "C"
145 PRINT

Videos