( -*- forth -*- ) ( very small experimental stc forth for 14bit archs ) ( note that far jump/call [page1] are not supported yet ) ( loader file for 16f628 ) load arch/16f628.f ( machine constants ) load stc14/stc.f ( shared 14bit stc ) target load arch/16f628.f ( machine macros ) ( processor specifics ) host : bank, r STATUS RP0 r 0x1 and if bsf, else bcf, then STATUS RP1 r> 0x2 and if bsf, else bcf, then ;