19 lines
241 B
Text
19 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
|