Menu

Modifying your own version of FF Log in to Edit

Pete Zawasky

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
        .
        .
        .

Related

Wiki: Home