FlashForth: for PIC and Atmega Wiki
Brought to you by:
oh2aun
I occasionally modify my copy of FlashForth source code.
Of course, Mikael has requested in the source file header:
; Modified versions of FlashForth must be clearly marked as such,
; in the header of this file, and in the identification
; displayed by the word VER.
;**********************************************************************
It is also nice to know exactly which version/subversion of FF is installed in the processor being worked on.
Here are some examples for my copy of FF5.0 PIC18:
;**********************************************************************
; *
; Filename: ff-pic18.asm *
; File Version: 5.01 *
; Date: 5:40 PM 7/28/2014 *
; *
; Based On: ff-pic18.asm *
; Date: 22.05.2014 *
; File Version: 5.0 GIT version *
; Copyright: Mikael Nordman *
; Author: Mikael Nordman *
; *
; Modified: Pete Zawasky *
; 7/28/2014 Added Build Date to VER *
; Changed DUMP to print entire lines *
; Changed WORDS to separate kernel from user words *
; *
;**********************************************************************
VER:
; ppz
rcall XSQUOTE
#ifdef USB_CDC
; 12345678901234567890123456 7 8901234567890
db d'28'," FlashForth 5.01 PIC18 USB\r\n"
#else
; 123456789012345678901234567 8 901234567890
db d'29'," FlashForth 5.01 PIC18 UART\r\n"
#endif
rcall TYPE
rcall XSQUOTE
; 1234567890123456789012345 6 78901234567890
db d'27'," Build: 5:34 PM 7/28/2014\r\n"
goto TYPE
;*******************************************************
L_WORDS:
.
.
.
rcall WDS1
rcall FALSE_
rcall CR
; ppz
rcall CR
rcall LATEST
rcall FETCH_A
WDS1: rcall DUP_A
;*******************************************************
DUMP:
; ppz
rcall LIT_A
dw h'0f'
call PLUS
rcall LIT_A
dw h'10'
call USLASH
.
.
.