Tags:
view all tags
%DASHBOARD{ section="dashboard_start" }% %DASHBOARD{ section="banner" image="%PUBURLPATH%/Cosmac/RaspiElf/raspi-elfmemcard-s.jpg" title="Forth for the Membership Card" titlestyle="color:#F00000;" }% %DASHBOARD{ section="box_start" title="Intro" width="485" height="200"}% <cite> Computers are machines just like the marionette. They must be told exactly what to do, in specific language. And so we need a language which possesses two seemingly opposite traits: On the one hand, it must be precise in its meaning to the computer, conveying all the information that the computer needs to know to perform the operation. On the other hand, it must be simple and easy-to-use by the programmer. </cite> From chapter "Introduction for Beginners", Leo Brodie, Starting FORTH https://www.forth.com/starting-forth/ %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" title="Contents" width="460" height="200"}% %TOC% %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" width="992" height="600" }% ---+ Rc/Forth and IDIOT Monitor for RaspiElf (Membership Card) Mark Abene made FORTH work on the Membership Card. $ forth.hex: Modified version of Mike Riley's Rc/Forth, ROM version. Changed to work with my modified version of IDIOT. Loads in at 0500h. You can get it from the [[https://groups.yahoo.com/neo/groups/cosmacelf/files/Mark%20Abene/forth.hex][COSMAC ELF yahoo group]]. $ idiot_new.hex: New version of IDIOT with SCRT routines, along with TYPE, MSG, READ, and INPUT routines for basic console I/O. Loads in at 0000h. You can get it from the [[https://groups.yahoo.com/neo/groups/cosmacelf/files/Mark%20Abene/idiot_new.hex][COSMAC ELF yahoo group]]. For details see http://www.retrotechnology.com/memship/mship_idiot.html Concatenated this two files as mc-forth.hex and convert it to a binary file: <pre> pi@cosmac:~/elf/forth $ <b>cat idiot_new_qhi.hex forth.hex > mc-forth.hex</b> pi@cosmac:~/elf/forth $ <b>hex2bin mc-forth.hex</b> hex2bin v2.5, Copyright (C) 2017 Jacques Pelletier & contributors Allocate_Memory_and_Rewind: Lowest address: 00000000 Highest address: 00001633 Starting address: 00000000 Max Length: 5684 Binary file start = 00000000 Records start = 00000000 Highest address = 00001633 Pad Byte = FF pi@cosmac:~/elf/forth $ <b>ls -l</b> insgesamt 40 -rw-r--r-- 1 pi pi 12132 Jan 13 12:36 forth.hex -rw-r--r-- 1 pi pi 2890 Jan 13 12:36 idiot_new.hex -rw-r--r-- 1 pi pi 5684 Jan 13 12:41 mc-forth.bin -rw-r--r-- 1 pi pi 15022 Jan 13 12:36 mc-forth.hex </pre> Now upload and start Rc/Forth (mc-forth.bin): <pre> pi@cosmac:~/elf/forth $ <b>bin2elf -w -r mc-forth.bin</b> 0x1634 bytes written </pre> clear high (8th) bit of input characters <pre> pi@cosmac:~/elf/forth $ <b>stty -F /dev/ttyS0 istrip</b> </pre> and start the terminal emulator (console): <pre> pi@cosmac:~/elf/forth $ <b>microcom -s 600</b> connected to /dev/ttyS0 Escape character: Ctrl-\ Type the escape character followed by c to get to the menu or q to quit <b><i>[CR]</i></b> IDIOT/4 *<b>$P500</b> Rc/Forth 0.1 (c) copyright 2006 by Michael H. Riley ok <b>15 5 + .</b> 20 ok <b>BYE</b> IDIOT/4 * </pre> %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" width="992" height="600" }% ---+ Rc/Forth and Chuck's Super Monitor for RaspiElf (Membership Card) Mark Abene made Rc/Forth also work with Chuck's Super Monitor. I prefer this monitor because of its ability to communicate with 9600 baud. $ mcsmp_rcforth.hex: Mike Riley's Rc/Forth, modified to work with Chuck Yakym's MCSMP20 firmware. You can get it from the [[https://groups.yahoo.com/neo/groups/cosmacelf/files/Mark%20Abene/mcsmp_rcforth.hex][COSMAC ELF yahoo group]]. $ !MCSMP20B.bin: Chuck's Super monitor. Loads in at 0000h. You can get it from the [[http://www.sunrise-ev.com/MembershipCard/MCSMP20B.bin][Lee A. Hart's website The COSMAC ELF Membership Card ]]. Create binary file and load it at 0x8000: <pre> pi@cosmac:~/elf/forth $ <b>hex2bin mcsmp_rcforth.hex</b> hex2bin v2.5, Copyright (C) 2017 Jacques Pelletier & contributors Allocate_Memory_and_Rewind: Lowest address: 00008000 Highest address: 000091DB Starting address: 00008000 Max Length: 4572 Binary file start = 00008000 Records start = 00008000 Highest address = 000091DB Pad Byte = FF pi@cosmac:~/elf/forth $ <b>bin2elf -s 8000 mcsmp_rcforth.bin</b> 0x11dc bytes written </pre> Now upload and start the monitor, start the terminal program with 9600 baud: <pre> pi@cosmac:~/elf/forth $ <b>bin2elf -w -r MCSMP20B.bin</b> 0x8000 bytes written pi@cosmac:~/elf/forth $ <b>microcom -s 9600</b> connected to /dev/ttyS0 Escape character: Ctrl-\ Type the escape character followed by c to get to the menu or q to quit <b><i>[CR]</i></b> Membership Card's Serial Monitor Program Ver. 2.0B Enter "H" for Help. ><b>R8000</b> Currently running your program Rc/Forth 0.1 (c) copyright 2006 by Michael H. Riley ok </pre> %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" width="992" height="450" }% ---+ Night Rider in Rc/Forth See ChaseLighting for an assembler version (much faster of course). Here a small test program for the Rc/Forth. It's a simple night rider chase lighting, but it is using the MC LEDs (of course), the switches for setting the pace and the IN button to terminate the program. Some interactive programming to find out how OUT is working: <pre> ok 1 4 OUT ok 4 1 OUT ok 4 2 OUT ok : LED! 4 SWAP OUT ; ok 4 LED! </pre> The rest of the program, every word can and should be tested interactively (e.g. 1 LEFT): <pre> : SWITCH@ 4 INP ; : DELAY 1 SWITCH@ + 0 DO LOOP ; : LEFT 7 0 DO 2 * DUP LED! DELAY LOOP ; : RIGHT 7 0 DO 2 / DUP LED! DELAY LOOP ; : NIGHTRIDER 1 DUP LED! BEGIN LEFT RIGHT EF 8 <> UNTIL DROP ; </pre> Push the IN button to terminate the program. %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" width="992" height="400" }% ---+ Mass storage Forth without mass storage (blocks, screens) is a not complete. A SD-Card interface could be a reasonable solution but this is an overkill for a small Forth system. ---++ EEPROM Serial Communication Serial Peripheral Interface SPI, MC is the SPI master, the host is the slave. e.g. [[http://ww1.microchip.com/downloads/en/DeviceDoc/Atmel-8832C-SEEPROM-AT25M02-Datasheet.pdf][AT25M02]] SPI EEPROM 2Mbit (256 !KiB, $3) or 25LC512 (64 !KiB, $1.50). DIL8 Package. 256 !KiB seems very small for today's standards where storage is quantified in !GiB, but I think it's more than enough for a small Forth system. <verbatim> CLK MC ->- host MOSI MC ->- host MISO MC -<- host SS MC ->- host or other peripherals (optional) </verbatim> ---+++ Serial EEPROM Connected to Centronics Connector (Switches and LEDs) Sharing the LED and Switch port, you loose two LEDs and one switch. Conflict with the bootstrap loader, some sort of disable EEPROM needed e.g. switch or jumper. | *SPI* | *MC (Master)* | *AT25xxx (Slave)* | *Interface* | | MISO | J2.9 IN7 SWITCH7 | 2 SO | direct | | MOSI | J2.11 O7 LED7 | 5 SI | direct | | CLK | J2.10 O6 LED6 | 6 SCK | direct | | CS | | 1 CS | Pullup 10 k, switch to GND | | | P4.3 VDD | 8 VCC | +5V | | | " | 3 WP | +5V | | | " | 7 HOLD | +5V | | | 21 GND | 4 GND | GND | Raspberry Pi can emulate SPI EEPROM. On RaspiElf the switches/LEDs are already connected to Raspi's GPIOs. No need for additional hardware. But I have to write an SPI server for the Raspberry Pi. ---+++ Serial EEPROM patched on MC PCB SPI Mode 0, data is always latched in on the rising edge of SCK and always output on the falling edge of SCK. | *SPI* | *MC (Master)* | *AT25xxx (Slave)* | *Interface* | | MISO | /EF2 | 2 SO | direct | | MOSI | D0 | 5 SI | direct | | CLK | TPB & N1 (OUT2) | 6 SCK | [[https://en.wikipedia.org/wiki/Wired_logic_connection][wired AND]]; Pullup 10 k, 2 1N4148 | | CS | | 1 /CS | GND | | | | 8 VCC | +5V | | | | 3 /WP | +5V | | | | 7 /HOLD | +5V | | | | 4 GND | GND | ---++ Kermit/ZModem What about using KERMIT or ZMODEM protocol for the file transfer and use the file system on the host? No need to add additional hardware (SD-card is anyway to modern ;-) You could use an old CP/M or even a PDP11 as host. The C-Kermit Local Server mode, e.g. MC can read/write the blocks as files =block.0=, =block.2=, =block.255=. https://github.com/utoh/pygmy-forth/blob/master/extras/kermit/pfkerm.doc %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="box_start" width="992" height="400" }% ---+ Spare Time Gizmos ELF2K ROM for RaspiElf http://www.retrotechnology.com/memship/elf2k_mship.html <pre> pi@cosmac:~/elf/elf2k $ <b>cp v88.hex v88.hex.org</b> pi@cosmac:~/elf/elf2k $ <b>patch v88.hex v88-mc.patch</b> pi@cosmac:~/elf/elf2k $ <b>hex2bin v88.hex</b> hex2bin v2.5, Copyright (C) 2017 Jacques Pelletier & contributors Allocate_Memory_and_Rewind: Lowest address: 00000000 Highest address: 00007FFF Starting address: 00000000 Max Length: 32768 Binary file start = 00000000 Records start = 00000000 Highest address = 00007FFF Pad Byte = FF pi@cosmac:~/elf/elf2k $ <b>bin2elf -s 8000 v88.bin</b> 0x8000 bytes written pi@cosmac:~/elf/elf2k $ <b>bin2elf -w -r LBR_8000.bin</b> 0x0003 bytes written pi@cosmac:~/elf/elf2k $ </pre> But there is "Post Code 97" -> EPROM checksum wrong %DASHBOARD{ section="box_end" }% %DASHBOARD{ section="dashboard_end" }% -- %USERSIG{PeterSchmid - 2019-01-13}% ---++!! Comments
Attachments
Attachments
Topic attachments
I
Attachment
History
Action
Size
Date
Who
Comment
patch
v88-msc.patch
r1
manage
0.5 K
2019-01-13 - 14:53
PeterSchmid
Edit
|
Attach
|
Watch
|
P
rint version
|
H
istory
:
r25
|
r10
<
r9
<
r8
<
r7
|
B
acklinks
|
V
iew topic
|
Raw edit
|
More topic actions...
Topic revision: r8 - 2019-01-17
-
PeterSchmid
Home
Site map
Cosmac web
MRR web
MecrispCube web
SuperRandonnee web
TWiki web
Ursula web
Velo web
Cosmac Web
Create New Topic
Index
Search
Changes
Notifications
RSS Feed
Statistics
Preferences
View
Raw View
Print version
Find backlinks
History
More topic actions
Edit
Raw edit
Attach file or image
Edit topic preference settings
Set new parent
More topic actions
Account
Log In
Edit
Attach
Copyright © 2008-2024 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki?
Send feedback