Code Body

To use this file copy and paste this: // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/stage-4.fth" into BV Terminal 3 or here to download.

// REQUIRES: // #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99 // #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100 // #URL-lib "http://pin1.org/forthlib/flb/General/SPI.flb" sid=101 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/MMC.flb" sid=102 // #URL-lib "http://pin1.org/forthlib/flb/General/rtc.flb" sid=103 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-1.flb" sid=200 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-2.flb" sid=200 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-3.flb" sid=200 // #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-4.flb" sid=200 // // dump is used for debug and so is included in its entirity // #URL-lib "http://pin1.org/forthlib/flb/General/dump.flb" sid=103

Full Contents of File

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// Creating and writing to files
// For this to work there must be files on the card with the same
// names as the ones used in this example
// Because fat-4 shares many words with fat-1,2,3 the SID numbers
// should be made the same, in other words fat-4 is an extension
// of fat-1,2,3
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-lib "http://pin1.org/forthlib/flb/General/SPI.flb" sid=101
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/MMC.flb" sid=102
// #URL-lib "http://pin1.org/forthlib/flb/General/rtc.flb" sid=103
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-1.flb" sid=200
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-2.flb" sid=200
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-3.flb" sid=200
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-4.flb" sid=200
//
// dump is used for debug and so is included in its entirity
// #URL-lib "http://pin1.org/forthlib/flb/General/dump.flb" sid=103

// because f# is a none pulic word
// #CurrentSid sid=200

: start // mounts device 0 csel 3 at 4mhz
4 0 0 0 0 0 0 s p i .s p e e d // 4Mhz card
3 0 m m c .m o u n t
;

// display file directory
: dir f .l s ;

: clr0 0 f .f b 5 1 2 0 f i l l ; // clears buffer to all 0
: clr20 0 f .f b 5 1 2 &2 0 f i l l ; // clears buffer to all spaces

// Use start above to mount card before using any of the following words

// create a file called joe.txt
: s2
s " j o e .t x t " 0 f .c r e a t e -1 <> a b o r t " f i l e c r e a t i o n p r b l e m "
;

: s2a
s " j o e .t x t " 0 f .o p e n -1 <> a b o r t " f i l e c a n t o p e n j o e .t x t "
;

// write random to file and close ** do after s2 or use s2a
: s3
c l r 0
s " T h i s i s t o s e c t o r 0 o f j o e .t x t "
0 f .f b 3 3 m o v e // move string into file buffer
0 0 f .w r a n d o m // write to card
c l r 0
s " T h i s i s t o s e c t o r 5 7 o f j o e .t x t "
0 f .f b 3 3 m o v e
0 5 7 f .w r a n d o m
0 f .c l o s e
;

// look at file
// NOTE as the buffer has been cleared to 0 beforehand then the
// stying will be terminated so stype can be used.
: s4
s " j o e .t x t " 0 f .o p e n
i f
c r ." S E C T O R 0 " c r
0 0 f .r r a n d o m 0 = i f 0 f .f b s t y p e t h e n
c r ." S E C T O R 5 7 " c r
0 5 7 f .r r a n d o m 0 = i f 0 f .f b s t y p e t h e n
e l s e
." c a n t o p e n f i l e "
t h e n
;

// append to file
: s5
s " j o e .t x t " 0 f .o p e n
i f
c l r 0
s " T h i s i s t o s e c t o r 6 4 o f j o e .t x t "
0 f .f b 3 3 m o v e
0 6 4 f .w r a n d o m
0 f .c l o s e
e l s e
." c a n t o p e n f i l e "
t h e n
;

// look again
: s6
s " j o e .t x t " 0 f .o p e n
i f
c r ." S E C T O R 0 " c r
0 0 f .r r a n d o m 0 = i f 0 f .f b s t y p e t h e n
c r ." S E C T O R 5 7 " c r
0 5 7 f .r r a n d o m 0 = i f 0 f .f b s t y p e t h e n
c r ." S E C T O R 5 8 " c r
0 6 4 f .r r a n d o m 0 = i f 0 f .f b s t y p e t h e n
e l s e
." c a n t o p e n f i l e "
t h e n
;

// write 67 sectors to the card
: s8
s " j o e .t x t " 0 f .o p e n 0 = a b o r t " C a n t o p e n f i l e "
6 7
f o r
c l r 0
s " S e c t o r " 0 f .f b 8 m o v e
i <# # # #> 0 f .f b 1 0 + 2 m o v e
0 i f .w r a n d o m
i .
n e x t
0 f .c l o s e
;

// write 67 sectors to the card
: s9
s " j o e .t x t " 0 f .o p e n 0 = a b o r t " C a n t o p e n f i l e "
6 7
f o r
c l r 2 0 // clear buffer by placing spaces
s " S e c t o r " 0 f .f b 6 m o v e
i <# # # #> 0 f .f b 8 + 2 m o v e
1 3 0 f .f b 1 1 + c ! // add cr
1 0 0 f .f b 1 2 + c ! // add lf
0 i f .w r a n d o m
i .
n e x t
0 f .c l o s e
;

// delete file
: s17
s " j o e .t x t " f .d e l
;