commit 7654122

zzo38  ·  2023-06-12 06:51:03 +0000 UTC
parent 8a46c25 
Add prg/filelist.tal
2 files changed,  +24, -1
A prg/filelist.tal
M prg/uhsview.tal
A prg/filelist.tal
+22, -0 
 1@@ -0,0 +1,22 @@
 2+|0100
 3+  LIT2r :buff DUP2rk
 4+  #17 DEI [? INC2r !ready ]@
 5+  [; #10 DEO2 BRK ]@
 6+  #0217 DEI NEQ ?ready
 7+  #12 DEI STH2rk STA INC2r BRK
 8+@ready
 9+  DUP2rk EOR2r SWP2r STA2r
10+  LITr a8 DEO2r
11+  ;bufsiz #aa DEO2
12+[@
13+  STH2rk #ac DEO2
14+  #a2 DEI2 ORAk [? #800f DEO ]@
15+  STH2rk ADD2 STH2rk
16+  [@
17+    LDAk #18 DEO
18+    INC2 NEQ2k
19+  ]?
20+  POP2 POP2
21+]!
22+@buff \_0@-1- \@bufsiz ". 00
23+
M prg/uhsview.tal
+2, -1 
 1@@ -91,10 +91,11 @@
 2 \\ This must end not before 0x0200
 3 \_1@8>/[1E]
 4 
 5-@gonode ( address* -- )
 6+@gonode ( address* -- ) ( no return )
 7   ( clear screen ) DUP2k EOR2 #28 DEO2k INC INC DEO2 #802e DEO
 8   DUP2 .Active STZ2 DUP2 .Scroll STZ2 .Cursor STZ2
 9   showtitle
10+@shownode
11   
12   BRK
13