mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 15:58:06 +11:00
12 lines
207 B
Plaintext
12 lines
207 B
Plaintext
( Native words )
|
|
CODE EXECUTE
|
|
DE POP,
|
|
chkPS,
|
|
JR, lblexec BWR ( execute-B301 )
|
|
|
|
CODE EXIT
|
|
PC ORG @ 0x0d + ! ( stable ABI JP )
|
|
lblpopRS @ CALL,
|
|
HL PUSH, IY POP, ( --> IP )
|
|
JPNEXT,
|