如何将 ASM 程序包含到我的 Turbo Basic 程序中？

Question

我发现这个 ASM 例程可以按下按键。 ASM routine to get key pressed 现在我想将它包含到 Turbo Basic 例程中，但不知道该怎么做。任何人都可以告诉我它是如何完成的吗？谢谢

编辑：我找到了一种方法：$INLINE，但是如何将我的 asm 代码转换为机器语言，以便我可以将其内联到我的基本程序中？

编辑：我没有成功将这个带有 Asm 代码的 QBASIC 放入 TURBO BASIC 程序中。如果您能提供帮助，我将不胜感激：

DECLARE FUNCTION GetKeyH% ()

CLS
DO
  LOCATE 10, 10
  PRINT "Key = "; HEX$(GetKeyH%); "    "
LOOP UNTIL INKEY$ = CHR$(27)
END

和 ASM 部分：

Dosseg
.model medium, basic
.286
.stack
.code
Even
           public    getkeyh            ; make getkeyh public
getkeyh    proc far basic uses bp dx    ; save registers

           in   al,60h
           xchg dx,ax
           xor  ax,ax                   ; assume no key
           test dl,10000000b
           jnz  short getkeyhD
           mov  al,dl
getkeyhD:  ret
getkeyh    endp                         ; end of procedure
           end                          ; end of assembly code

编辑：非常感谢下面 Michael Petch 先生的回答。此外，我可以看到这个 ASM 例程也是

的解决方案

Answer 1

您可以使用DEBUG.COM输入汇编代码，然后执行十六进制转储以获得机器代码。

看起来像这样：

D:\>DEBUG
-A 100
0ABD:0100 IN AL,60
0ABD:0102 XCHG DX,AX
0ABD:0103 XOR AX,AX
0ABD:0105 TEST DL,80
0ABD:0108 JNZ 10C
0ABD:010A MOV AL,DL
0ABD:010C RET
0ABD:010D
-R CX
CX 0000  :D
-N KEY.COM
-W
Writing 000D bytes
-Q

D:\>HEXDUMP KEY.COM
00000000    E4  60  92  31  C0  F6  C2  80  75  02  88  D0  C3                  .`.1....u....

D:\>

所以现在你可以用 $INLINE.

封装每个机器代码

$INLINE &HE4, &H60, &H92, &H31, &HC0, &HF6, &HC2, &H80, &H75, &H02, &H88, &HD0

根据@Michael Petch 的建议，不要在您的 $INLINE 元语句中包含最后一个机器代码 (&HC3)。

注意：虽然 HEXDUMP.EXE 是我自己的程序，但您可以轻松地在 Internet 上找到任何可用的十六进制编辑器来查看二进制文件的内容。

如何将 ASM 程序包含到我的 Turbo Basic 程序中？

How can I include a ASM program into my Turbo Basic Program?

keyboard

assembly

dos

turbo-basic

x86-16