izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1532 Commits
4 Branches
13MB
Struktur: fea9beac1e
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „fea9beac1e“
${ noResults }
collapseos/blk/381

381 454B
Originalformat Normale Ansicht Verlauf

xcomp: add XCOMPILE and X[COMPILE] This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer.
vor 4 Jahren
​
Add word ?DUP
vor 4 Jahren
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form.
vor 4 Jahren
Move a bunch of words from XPACKed core to xcomp core
vor 4 Jahren
​
Add word ?DUP
vor 4 Jahren
Add word ERR
vor 4 Jahren
Refer to BOOT and (uflw) by addr in stable ABI Was previously referred to by name+find, which was wasteful.
vor 4 Jahren
cvm: implement stack overflow error condition
vor 3 Jahren
​
 1234567891011 
  1. : EMIT

  2.     ( 0x53==(emit) override )

  3.     0x53 RAM+ @ ?DUP IF EXECUTE ELSE (emit) THEN ;

  4. : (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ;

  5. : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;

  6. : CRLF CR LF ; : SPC 32 EMIT ;

  7. : NL 0x0a RAM+ @ ( NLPTR ) ?DUP IF EXECUTE ELSE CRLF THEN ;

  8. : (uflw) LIT" stack underflow" ERR ;

  9. XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !

  10. : (oflw) LIT" stack overflow" ERR ;

  11. XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + !