how to trigger caps lock from code in gnu-forth ?
currently as a temporary solution I use

如何从GNU-FORDS中的代码触发大写锁定？目前作为临时解决方案，我使用

: caps s" xdotool key Caps_Lock" system ;  

I'm looking for either a full gforth code solution either a abi-code assembly solution

我正在寻找一个完整的gforth代码解决方案或一个abi代码汇编解决方案

I also tried many solutions around external nasm code but xdotool is available, so I preferred using it.

我还尝试了许多关于外部NASM代码的解决方案，但xdotool是可用的，所以我更喜欢使用它。

I tried many thing around https://www.complang.tuwien.ac.at/forth/gforth/Docs-html/386-Assembler.html#g_t386-Assembler documentation without result until now.

我尝试了很多关于https://www.complang.tuwien.ac.at/forth/gforth/Docs-html/386-Assembler.html#g_t386-Assembler文档的东西，直到现在都没有结果。

like

喜欢

abi-code toto                                                                                                                                                                                                                                 
0x3A .b al mov                                                                                                                                                                                                                                
0x02 .b ah mov                                                                                                                                                                                                                                
0x80 int                                                                                                                                                                                                                                      
ret                                                                                                                                                                                                                                           
end-code  

and so on ... without results

以此类推。没有结果

I near solution I think I also tryied to work around asm code below 
  ; Open /dev/port for I/O operations
  mov eax, 5        ; syscall number for sys_open
  mov ebx, dev_port ; pointer to the filename "/dev/port"
  mov ecx, 2        ; O_RDWR mode
  int 0x80          ; Call the kernel

  ; Enable Caps Lock by sending the scancode to the keyboard controller
  mov dx, 0x60      ; Port 0x60 is the keyboard controller data port
  mov al, [capslock_scancode]
  out dx, al

so how to trigger ON caps-lock from the gnuforth code ?

那么如何从GNOUFORTS代码触发大写锁定呢？

For today's need , in fact I can just change the logic of it all from why toupper with accept

对于今天的需要，事实上我可以改变它的逻辑，从为什么Toupper与Accept

'toupper' ( c1 -- c2 ) gforth-0.2 "toupper"
'accept' ( c-addr +n1 -- +n2  ) core "accept"

so I needed a capslock trigger but a better solution is to force convertion making a intermediary word to apply toupper over a ( addr len -- addr len )

所以我需要一个胶囊锁触发器，但更好的解决方案是强制转换，使中间字在(addr len--addr len)上应用Toupper

like calling toupper like

就像这样叫Toupper

: >UPPER  ( addr len -- addr len)
  2DUP bounds do
    I C@ TOUPPER I C! \ convert each char in loop
  loop ; \ over the whole string

so I can use

这样我就可以用

pad dup 16 $INPUT >UPPER  

without need to modify the capslock state neither the tty setup

在不需要修改封装锁定状态的情况下，

therefore I am still interested in capslock trigger for future potential needs

因此，我仍然对用于未来潜在需求的胶囊锁触发器感兴趣