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

View File

@ -89,11 +89,9 @@
;on-key .Controller/vect DEO2 ( set up keyboard )
;on-read .Console/vect DEO2 ( set up stdin )
( set up debug log )
( ( set up debug log )
;debug .File/name DEO2
#01 .File/append DEO
( #9999 #010e DEO )
#01 .File/append DEO )
BRK
@ -247,7 +245,7 @@
@end-arg-priv ( c^ -> )
;on-read .Console/vect DEO2
DUP ,debug-priv JSR
( DUP ,debug-priv JSR )
( TODO: handle these )
POP BRK
@ -266,7 +264,7 @@
@end-arg ( c^ -> )
;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 "h EQU ;exec-noop JCN2 ( enable line wrap )
DUP LIT "l EQU ;exec-noop JCN2 ( disable line wrap )
@ -404,7 +402,7 @@
@on-read-esc ( -> )
.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 JMP2
@ -557,7 +555,7 @@
@next-arg ( c^ -> )
POP
( 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^ -> )
LIT "0 SUB LITr 00 STH ( [digit*] )