mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:48:06 +11:00
650481f849
Only its jump at 0x33 remains. I've also fixed a strange offset oddity in 8086's (n) placement. It was off by 2, but strangely, it ran properly. Anyway, now it's fixed.
11 lines
292 B
Plaintext
11 lines
292 B
Plaintext
ORG @ 0xb9 + HERE !
|
|
CODE (n) ( 0xbf, number literal )
|
|
( Literal value to push to stack is next to (n) reference
|
|
in the atom list. That is where IP is currently pointing.
|
|
Read, push, then advance IP. )
|
|
E 0 IY+ LDrIXY,
|
|
D 1 IY+ LDrIXY,
|
|
IY INCd, IY INCd,
|
|
DE PUSH,
|
|
;CODE
|