diff --git a/femto.tal b/femto.tal index a18ccf4..cf2ad92 100644 --- a/femto.tal +++ b/femto.tal @@ -1443,7 +1443,13 @@ &no POP2 POP2 #00 JMP2r @jump-to-pos ( s* -> ) - ;pos-to-row-col JSR2 SWP2 ;move-to-coord JMP2 + ;pos-to-logical-row-col JSR2 SWP2 ;move-to-coord JMP2 + +@pos-to-display-row-col ( s* -> row* col* ) + .config/tab-width LDZ2 ;pos-to-row-col/tab-width STA2 !pos-to-row-col + +@pos-to-logical-row-col ( s* -> row* col* ) + #0001 ;pos-to-row-col/tab-width STA2 ( fall-through ) @pos-to-row-col ( s* -> row* col* ) #0000 ,&row STR2 @@ -1462,7 +1468,7 @@ ,&row LDR2 INC2 ,&row STR2 INC2 ,&loop JMP &tab - .config/tab-width LDZ2 ,&inc JMP + LIT2 [ &tab-width $2 ] ,&inc JMP &done POP2 POP2 ,&row LDR2 ,&col LDR2 JMP2r