Renamed var
This commit is contained in:
parent
57ae0709eb
commit
6b7842b0db
|
@ -35,11 +35,11 @@ BRK
|
|||
(
|
||||
@|core )
|
||||
|
||||
@append ( c -- )
|
||||
,&chr STR
|
||||
@append ( byte -- )
|
||||
,&buf STR
|
||||
#0800
|
||||
&l
|
||||
[ LIT &chr $1 ] OVR #07 SWP SUB SFT #01 AND
|
||||
[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
|
||||
[ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
|
||||
( bit id -- )
|
||||
SWP .queue LDZ ORA DUP ADD .queue STZ
|
||||
|
|
Loading…
Reference in New Issue