mirror of https://github.com/hsoft/collapseos.git
14 lines
348 B
Plaintext
14 lines
348 B
Plaintext
CODE (loop) ( 0x80 )
|
|
[BP] 0 INC[w]+, ( I++ )
|
|
( Jump if I <> I' )
|
|
AX [BP] 0 MOVx[]+, AX [BP] -2 CMPx[]+,
|
|
JNZ, L2 @ RPCs, ( branch )
|
|
( don't branch )
|
|
BP 4 SUBxi, JMPs, L1 @ RPCs,
|
|
ORG @ 0xb9 + HERE !
|
|
CODE (n) ( 0xbf, number literal )
|
|
DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,
|
|
DX INCx, DX INCx,
|
|
;CODE
|
|
( END OF STABLE ABI )
|