izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/143

16 lines
186 B
Plaintext
Raw Normal View History

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-02 10:05:15 +10:00
: ADEVMEM+ 0x5d RAM+ @ + ;
Move AT28 driver to blkfs And adjust rc2014/eeprom recipe
2020-04-27 05:18:28 +10: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-02 10:05:15 +10:00
H@ 0x5d RAM+ !
Move AT28 driver to blkfs And adjust rc2014/eeprom recipe
2020-04-27 05:18:28 +10:00
4 ALLOT
['] C@ A@* !
['] C! A!* !
;
: A@ A@* @ EXECUTE ;
: A! A!* @ EXECUTE ;