collapseos/blk/143

: ADEVMEM+ 0x5d RAM+ @ + ;
: A@* 0 ADEVMEM+ ;
: A!* 2 ADEVMEM+ ;

: ADEV$
    H@ 0x5d RAM+ !
    4 ALLOT
    ['] C@ A@* !
    ['] C! A!* !
;

: A@ A@* @ EXECUTE ;
: A! A!* @ EXECUTE ;
Add layer of indirection to EMIT This would allow things like temporary giving control to the CL line on the TRS-80. For example... A very far fetched example. Not at all the only raison d'etre* of the layer... 2020-05-01 20:05:15 -04:00			`: ADEVMEM+ 0x5d RAM+ @ + ;`
Move AT28 driver to blkfs And adjust rc2014/eeprom recipe 2020-04-26 15:18:28 -04:00			`: A@* 0 ADEVMEM+ ;`
			`: A!* 2 ADEVMEM+ ;`

			`: ADEV$`
Add layer of indirection to EMIT This would allow things like temporary giving control to the CL line on the TRS-80. For example... A very far fetched example. Not at all the only raison d'etre* of the layer... 2020-05-01 20:05:15 -04:00			`H@ 0x5d RAM+ !`
Move AT28 driver to blkfs And adjust rc2014/eeprom recipe 2020-04-26 15:18:28 -04:00			`4 ALLOT`
			`['] C@ A@* !`
			`['] C! A!* !`
			`;`

			`: A@ A@* @ EXECUTE ;`
			`: A! A!* @ EXECUTE ;`