snap.asm

来自「这是一些例程」· 汇编 代码 · 共 24 行

        .MODEL  small, pascal
        .DOSSEG
        INCLUDE ..\demos\demo.inc
        INCLUDE tsr.inc

        .STACK
        .DATA

DEFAULT_COLR    EQU     1Eh             ; Default = white on blue (color)
DEFAULT_MONO    EQU     70h             ; Default = reverse video (mono)

; Set ALT+LEFT SHIFT+S as hot key combination. To set multiple shift
; keys, OR the appropriate values together for the shift value (HOT_SHIFT).

HOT_SCAN        EQU     1Fh             ; Hot key scan code (S)
HOT_SHIFT       EQU     shAlt OR shLeft ; Shift value (ALT+LEFT SHIFT)
HOT_MASK        EQU     (shIns OR shCaps OR shNum OR shScroll) XOR 0FFh

ROW1            EQU     9               ; Query box begins on row 9
ROW2            EQU     14              ;   and ends on row 14
HEIGHT          EQU     ROW2 - ROW1 + 1 ; Number of rows in query box

Box     BYTE    '谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪目', 0
        BYTE    '