d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

attributes are working

This commit is contained in:
~d6 2023-01-25 12:40:46 -05:00
parent 761bfc336b
commit d4b625df9f
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
term.tal
View File

@ -89,11 +89,9 @@
;on-key .Controller/vect DEO2 ( set up keyboard ) ;on-key .Controller/vect DEO2 ( set up keyboard )
;on-read .Console/vect DEO2 ( set up stdin ) ;on-read .Console/vect DEO2 ( set up stdin )
( set up debug log ) ( ( set up debug log )
;debug .File/name DEO2 ;debug .File/name DEO2
#01 .File/append DEO #01 .File/append DEO )
( #9999 #010e DEO )
BRK BRK
@ -247,7 +245,7 @@
@end-arg-priv ( c^ -> ) @end-arg-priv ( c^ -> )
;on-read .Console/vect DEO2 ;on-read .Console/vect DEO2
DUP ,debug-priv JSR ( DUP ,debug-priv JSR )
( TODO: handle these ) ( TODO: handle these )
POP BRK POP BRK
@ -266,7 +264,7 @@
@end-arg ( c^ -> ) @end-arg ( c^ -> )
;on-read .Console/vect DEO2 ;on-read .Console/vect DEO2
DUP ,debug-csi JSR ( DUP ,debug-csi JSR )
DUP LIT "d EQU ;exec-move-row JCN2 ( move cursor to row ) DUP LIT "d EQU ;exec-move-row JCN2 ( move cursor to row )
DUP LIT "h EQU ;exec-noop JCN2 ( enable line wrap ) DUP LIT "h EQU ;exec-noop JCN2 ( enable line wrap )
DUP LIT "l EQU ;exec-noop JCN2 ( disable line wrap ) DUP LIT "l EQU ;exec-noop JCN2 ( disable line wrap )
@ -404,7 +402,7 @@
@on-read-esc ( -> ) @on-read-esc ( -> )
.Console/r DEI LIT "[ EQU ;start-csi JCN2 .Console/r DEI LIT "[ EQU ;start-csi JCN2
.Console/r DEI ,debug-esc JSR ( .Console/r DEI ,debug-esc JSR )
;on-read .Console/vect DEO2 ;on-read .Console/vect DEO2
;on-read JMP2 ;on-read JMP2
@ -557,7 +555,7 @@
@next-arg ( c^ -> ) @next-arg ( c^ -> )
POP POP
( TODO: check if we already have max args ) ( TODO: check if we already have max args )
;args/pos LDA2k INC2 INC2 STA2 BRK ;args/pos LDA2k INC2 INC2 SWP2 STA2 BRK
@add-to-arg ( c^ -> ) @add-to-arg ( c^ -> )
LIT "0 SUB LITr 00 STH ( [digit*] ) LIT "0 SUB LITr 00 STH ( [digit*] )