collapseos/blk/307

CODE (s) ( string literal )
PC ORG @ 0x2d + ! ( stable ABI JP )
( Like (n) but instead of being followed by a 2 bytes
  number, it's followed by a string. When called, puts the
  string's address on PS )
    BC PUSH,
    LDA(BC), C ADDr,
    IFC, B INCr, THEN,
    C A LDrr,
    BC INCd,
;CODE
Extract (n) code from stable ABI 2020-07-05 14:13:01 -04:00			`CODE (s) ( string literal )`
			`PC ORG @ 0x2d + ! ( stable ABI JP )`
			`( Like (n) but instead of being followed by a 2 bytes`
			`number, it's followed by a string. When called, puts the`
			`string's address on PS )`
z80: Use BC as IP register instead of IY It's a bit more inconvenient in terms of register protection (BC is much more generally useful than IY), but it makes tight spots such as next and execute much faster, so I think it's worth it. 2020-07-06 23:31:00 -04:00			`BC PUSH,`
			`LDA(BC), C ADDr,`
			`IFC, B INCr, THEN,`
			`C A LDrr,`
			`BC INCd,`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`;CODE`