New Micros, Inc - Technical Support on HC12 Forth

View Full Version : Technical Support on HC12 Forth

administrator

02-18-00, 10:06 AM

You can find a FORTH library at the following address: http://www.ee.ualberta.ca/~rchapman/MFwebsite/V50/Alphabetical/Brief/index.html

MLCarter

06-11-00, 12:06 AM

I'm using a NMIT -0020 to control a RAPS power system. Everything is in RAM I would like to move the prog to an external eeprom and have it boot up from there after power up. Can you help me. I can get words on with EEWORD and EEMOVE but how do you restore dictionary pointers ?

nmitech

06-12-00, 11:28 AM

Here is the sample program for the autostart ( APPLICATIONS: - external eeprom autostart. ( - variables stay in ram ( - link all new words on power up. ( HARDWARE CONFIGS: ( - eeprom jumpers from 8000 - 9FFF, 8k-byte ( - ram jumpers from 0000 - 1FFF, 8k-byte HEX0 8000 EEC! ( kill previous autostart if presentCOLD HEX 8080 30 ! ( assume eeprom is available at $8000, U3 socket( assume ram is installed on U2 socket ) 0200 CONSTANT RAM EEWORD 0202 RAM !: RAM-VARIABLE RAM @ CONSTANT 2 RAM +! ; EEWORD : 2RAM-VARIABLE RAM @ CONSTANT 4 RAM +! ; EEWORDRAM-VARIABLE NUM1 EEWORD ( 16-bit variable RAM-VARIABLE NUM2 EEWORD ( 16-bit variable 2RAM-VARIABLE NUM3 EEWORD ( 32-bit variable ( ... more variables here if you wish : INIT-VARIABLES 0 NUM1 ! 0 NUM2 ! 0 NUM3 2! ; EEWORD: NUM1++ NUM1 1+! ; EEWORD: NUM2++ NUM2 1+! ; EEWORD: PRODUCT NUM1 @ NUM2 @ UM* NUM3 2! ; EEWORD: DELAY 2000 0 DO LOOP ; EEWORD: MAIN 8004 6 6A CMOVE ( move all new words to UAREA internal ram on power up ) INIT-VARIABLES CR ." TO QUIT, HIT ANY KEY " BEGIN DECIMAL CR NUM1 @ U. ." x " NUM2 @ U. ." = " PRODUCT NUM3 2@ D. DELAY NUM1++ NUM2++ ?TERMINAL UNTIL ABORT ; EEWORD(save new words in the eeprom so that you can link it back on power up 6 8004 6A EEMOVE161 DP ! ( put DP back in ram so it won't get lock up in eeprom 1F0 AUTOSTART MAIN (just create an autostart pattern in ram, 1F0 8000 4 EEMOVE ( then copy it into eeprom( now recycle the power or reset, it will auto start your program )

kevinr

07-11-00, 10:19 PM

Does anyone have an I/O definitions file? I would like to know what the addresses of the ports are. I have a memory map but it doesn't include enough detail. Are things based at $B000 on the 68HC12 as they are on the 68HC11. I've got that def file to work from but nothing seems to work.

kevinr

07-11-00, 11:03 PM

Could some one give me an example file in Forth or in assembler to output something to Port A on the NMI0912 board? I can write this code on my evaluation board but I can't figure out the memory map I've got for the NMI0912 running MaxForth. If I clear the RAM I kill Forth. Where are the I/O registers redirected in memory so they're available for me to manipulate?

kevinr

07-11-00, 11:31 PM

After many hours of frustration I finally got something to work. PORTA maps to $0000, DDRA maps to $0002. I was successful in getting an LED to turn on and off. It just took trying all possible combinations and writing code to test all of the locations between 0000 and FFFF to see what is changeble. After that it was just a matter of time. I wish this was documented somewhere but I should consider myself lucky for getting it to work. HOORAY!!!

rob

07-11-00, 11:38 PM

This manual is quite large but all the information you require is available in here: http://ebus.mot-sps.com/brdata/PDFDB/MICROCONTROLLERS/16_BIT/M951446360206collateral.pdf Other documents are available at: http://ebus.mot-sps.com/ProdCat/psp/0,1250,68HC912B32~M98637,00.html The register block is mapped to the lowest 256 bytes of memory starting at 0000 at reset and Forth doesn't do any remapping. You found out the hard way.Rob

rob

07-11-00, 11:41 PM

Here's a couple of tools for saving to Flash. The first tool is an easy and automatic way of saving your words to flash. The second tool is used to save linkages and provide autostart. Mix and match these tools to find an optimum solution for you. I've blended them to work together reasonably well but they can still run into each other so use caution. And feel free to modify and tinker but keep one hand on the control-G button and on hand on the serial boot jumper. You could use the second tool all by itself but it'll leave all code in RAM and if you are RAM limited then that is not so good. Rob( Tool1: Automatically ROMs all code into Flash ) HEX ( ==== Find empty space in Flash ROM ==== ) : FLBLANK ( -- a ) F800 F000 8000 DO FF I 10 OVER + SWAP DO I C@ AND LOOP FF = IF DROP I LEAVE THEN 100 +LOOP DUP F800 = IF CR ." Flash is full." CR ELSE DUP U. THEN ;FLBLANK FDP ! FORGET FLBLANK( ==== ROM it all with auto-rom words : ; [COMPILE] ; FLWORD ; IMMEDIATE FLWORD : CONSTANT CONSTANT FLWORD ; : CREATE HERE CONSTANT ; : VARIABLE CREATE 2 ALLOT ; : FL! ( n \ a -- ) OVER >< OVER FLC! 1+ FLC! ; ( Fixed FL! )( Tool2: Image saver and restorer for autobooting Rob Chapman Jul 11, 2000 )( ==== Image and properties ==== ) HERE CONSTANT sys-end R0 CONSTANT sys-start sys-end sys-start - CONSTANT sys-size( 0 Image components and offsets ) ( + 0 A44A - just run and return ( + 2 RESTORE - must point to saved image of restore ( + 4 main startup word stored by INSTALL ( + 6 copy of RAM locations in system ( + 6 + sys-size length of image ( + 8 + sys-size image of code HEX ( ==== Startup services ==== ) ( ==== Find empty space in Flash ROM ==== ) : FLAUTO ( -- a ) 0 F000 FDP @ 3FF + FC00 AND DO I @ FFFF = IF DROP I LEAVE THEN 400 +LOOP DUP 0= IF CR ." Flash is full." CR ELSE DUP U. THEN ;FLAUTO CONSTANT FL-START ( start of flash: where to save to sys-end CONSTANT RAM-START ( where to save from: -AUTOSTART 0 FL-START FLC! ; ( turn off autostart flag ) : FL+ FL-START + ;: RESTORE ( can't call nonexistant words so [ ] LITERAL is used [ 6 FL+ ] LITERAL ( start of system image ) [ sys-start ] LITERAL ( start of system variables ) [ sys-size ] LITERAL CMOVE ( restore system RAM image [ sys-size 8 + FL+ ] LITERAL ( start of dict image ) [ RAM-START ] LITERAL ( start of dict space [ sys-size 6 + FL+ ] LITERAL @ ?DUP IF CMOVE ( restore dictionary image to RAM ) ELSE 2DROP THEN [ 4 FL+ ] LITERAL @ EXECUTE ; ( run main program: SAVE A44A FL-START FL! ( fire once autostart flag for startup ) ['] RESTORE CFA 2 FL+ FL! ( restoration vector ) ['] TASK CFA 4 FL+ FL! ( null vector ) sys-start 6 FL+ sys-size FLMOVE ( save system variables ) RAM-START sys-size 8 + FL+ HERE RAM-START - ( src \ dst \ siz ) DUP sys-size 6 + FL+ FL! ?DUP IF FLMOVE ( save length & dictionary ) ELSE 2DROP THEN ;: INSTALL ( a -- ) SAVE CFA 4 FL+ FL! ;In response to: >I have a very fundamental question regarding the user dictionary. I have a >68HC912 I am using in unexpanded mode with Maxforth Version 5.0L. Because >of limited ram and eeprom I want to use flash to save parts of my code. > >For instance : > >HEX >D6 CONSTANT PORT.S FLWORD > >This properly saves constant PORT.S, that is until I power down or do COLD. > How do I get my linkage back? > >I want to move about 1k of program out of eeprom and ram into the flash.

rob

08-01-00, 05:00 AM

Here's an updated version of the two tools. Code is stored in Flash and the system variables are stored in EEPROM. Use this code at the beginning of the file and then to tie your startup word in, do: ' startupword INSTALLYour code can now be autorun from startup. This code can be recompiled many times before Flash memory fills up and will have to be initialized again by the serial loader.COLD( Tool1: Automatically ROMs all code into Flash ) HEX ( ==== Find empty space in Flash ROM ==== ) : FLBLANK ( -- a ) F800 F000 8000 DO FF I 10 OVER + SWAP DO I C@ AND LOOP FF = IF DROP I LEAVE THEN 100 +LOOP DUP F800 = IF CR ." Flash is full." CR ELSE DUP U. THEN ;FLBLANK FDP ! FORGET FLBLANK ( find blank FLASH area )( ==== ROM it all with auto-rom words : ; [COMPILE] ; FLWORD ; IMMEDIATE FLWORD : CONSTANT CONSTANT FLWORD ; : CREATE HERE CONSTANT ; : VARIABLE CREATE 2 ALLOT ; : FL! ( n \ a -- ) OVER >< OVER FLC! 1+ FLC! ; ( Fixed FL! )( Tool2: Image saver and restorer for autobooting ) HEX ( ==== Image and properties ==== ) ( + 0 A44A - just run and return ( + 2 RESTORE - must point to saved image of restore ( + 4 main startup word stored by INSTALL ( + 6 copy of RAM locations in system( ==== Initialized RAM space ==== ) ( put variables here and they will always get initialized to the same value ) ( variables after "sys-end" will not get initialized )( ==== System boundaries ==== ) HERE CONSTANT sys-end ( end of system variables ) R0 CONSTANT sys-start ( first system variable )sys-end sys-start - CONSTANT sys-size( ==== Startup services ==== ) D00 CONSTANT ROM-START ( start of ROM: where to save to ROM-START 6 + sys-size + EDP ! ( free space: ROM+ ROM-START + ;: RESTORE 6 ROM+ ( start of system image ) sys-start ( start of system variables ) sys-size CMOVE ( restore system RAM image 4 ROM+ @ EXECUTE ; ( run main program: INSTALL ( tick -- ) ( Use: ' Main INSTALL A44A ROM-START EE! ( fire once autostart flag for startup ) ['] RESTORE CFA 2 ROM+ EE! ( restoration vector ) CFA 4 ROM+ EE! ( main vector ) sys-start 6 ROM+ sys-size EEMOVE ; ( save system variables )' TASK INSTALL

tomscott

09-13-00, 10:01 AM

I'm trying to thread to KEVINR's post of 11:31 pm on 7.11.2000 but have not a clue on how to do this ! Forth is supposed to be written such that one can easily find anything (even the startup code s/b written in F' ) to get answers such as where is the register block . I was very impressed when the 1st Forths came out ( 40 years in Tucson, where Chuck wrote F' ) as i could do anything by disassembling that part of F' . If it's F' , then everything must be visible ( structured) . Now i'll contradict myself , as i'm going to write a shell for F' that makes F' intuitive to non proff' programmers (it will look like a pocket calculator language , as all micro's s/b ..... no more stupid assemblers except for occasional inline code ) .