diff --git a/term.tal b/term.tal index 4cb31c6..c970847 100644 --- a/term.tal +++ b/term.tal @@ -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*] )