18 lines
241 B
Text
18 lines
241 B
Text
%\0 { 00 }
|
|
%DBG { [ LIT2 01 -System/debug ] DEO }
|
|
|
|
|0e @System/debug
|
|
|
|
|100
|
|
|
|
;array len-arr DBG
|
|
|
|
BRK
|
|
|
|
@len-arr ( {array}* -- length* )
|
|
LDA2k SWP2 INC2 INC2 SUB2 #01 SFT2
|
|
JMP2r
|
|
|
|
@array ={ =apple =orange }
|
|
@apple "apple \0
|
|
@orange "orange \0
|