commit e543d15

zzo38  ·  2025-10-24 02:49:16 +0000 UTC
parent eba16a9
Add prg/ndjson.tal
1 files changed,  +22, -0
+22, -0
 1@@ -0,0 +1,22 @@
 2+|100
 3+  [& #5b NEQ ?brk LIT2r =normal ]@
 4+  DUP2k EOR2 [; #10 DEO2 @brk BRK ]@ #12 DEI JMP2rk
 5+@string
 6+  DUP #18 DEO
 7+  #22 OVR EQU JMP DUP2r POP2r
 8+  #5c NEQ ?brk brk
 9+@escape
10+  #18 DEO POP2r BRK
11+@normal
12+  DUP #2c NEQ [? ROTk NIP ORA ?send POP #0a18 DEO BRK ]@
13+  LIT2r =string #22 OVR EQU JMP POP2r
14+  DUP #1f AND
15+  DUP #1b EQU ?open #1d EQU ?close
16+@send
17+  #18 DEO BRK
18+@open
19+  POP #18 DEO INC2 BRK
20+@close
21+  ROTk NIP ORA [? #0a18 DEO #800f DEO ]@
22+  #18 DEOk
23+  EQU INCk SUB2 BRK