M src/assets.tal => src/assets.tal +2 -3
@@ 44,9 44,9 @@
01 ( 2 port-unlocked )
04 ( 3 operator )
03 ( 4 port-locked )
- 0e ( 5 port-output )
+ 0c ( 5 port-output )
01 ( 6 selected )
- 01 ( 7 io )
+ 02 ( 7 comment )
@op-ascii
( 20 _ ) =op-null
@@ 163,7 163,6 @@
0000 0000 0000 3844 9228 1000 0000 0000
@underline-icn
0000 0000 0000 0000 0000 0000 0000 00ff
-
@meter-icn
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 00ff 0000
M src/library.tal => src/library.tal +2 -2
@@ 459,7 459,7 @@ JMP2r
STH2k
( set itself )
- .types/locked STH2kr ;data/types ADD2 STA
+ .types/comment STH2kr ;data/types ADD2 STA
( get edge )
#00 .grid/width LDZ .head/x LDZ SUB ADD2
STH2r INC2
@@ 467,7 467,7 @@ JMP2r
( set lock ) STH2k #01 STH2r ;data/locks ADD2 STA
( set type if unset )
DUP2 ;data/types ADD2 LDA ,&skip JCN
- ( set type ) STH2k .types/locked STH2r ;data/types ADD2 STA
+ ( set type ) STH2k .types/comment STH2r ;data/types ADD2 STA
&skip
( stop at hash ) DUP2 ;data/cells ADD2 LDA LIT "# EQU ,&end JCN
INC2 GTH2k ,&loop JCN
M src/orca.tal => src/orca.tal +4 -3
@@ 24,6 24,7 @@
&pr $1
&output $1
&io $1
+ &comment $1
|0000
@@ 47,9 48,9 @@
;meta #f0 DEO2
( theme )
- #0f55 .System/r DEO2
- #0f5b .System/g DEO2
- #0f5a .System/b DEO2
+ #0f75 .System/r DEO2
+ #0f7b .System/g DEO2
+ #0f7a .System/b DEO2
( init random )
;init-prng JSR2