Code Snippets Forth

Short texts Forth 🧑‍💻 Code snippets Forth ✍️ Reading lists Forth 👀

Calling CIRCLE function from FORTH

\ BASIC routines —- decimal 2 capacity 1- thru —- hex 5B11 msxbios (CIRCLE) —- \ just for reference hex code CIRCLE db c, a8 c, \ in a,(#a8) f5 c, \ push af 3e c, f0 c, \ f0 = 11110000 (page 0-0-3-3) d3 c, a8 c, \ out (#a8),a cd c, 11 c, […]

flash memory usage for RP2040

\ Display RP2040’s external flash usage ( used and unused blocks ) \ find block with FFFF, ie. unused flash page \ return address of first block ( 16 bytes ) containing $ff, 0 otherwise : ff? ( addr1 — addr2 ) 2 rshift 2 lshift \ align 4 bytes begin ( addr ) 0 […]