speckey.asm

独孤剑客 ASM Source Code 1998-2001 for DOS

code    segment
        org     100h
        assume  cs:code,ds:code,es:code
Start:  push    cs
        pop     ds
        push    cs
        pop     es
        mov     ah,00h
        mov     al,03h
        int     10h

        mov     ah,06h
        mov     al,0
        mov     bh,1eh
        mov     ch,00h
        mov     cl,00h
        mov     dh,18h
        mov     dl,4fh
        int     10h

        mov     cx,16
        lea     bx,Info_Addr
Show:   mov     dx,[bx]
        mov     ah,09h
        int     21h
        add     bx,2
        loop    Show

Read:   mov     ah,01h
        int     16h
        jnz     Exit
        mov     ah,12h
        int     16h
        cmp     ax,cx
        jz      Read
        mov     cx,ax
        mov     bx,8000h
        mov     lin,0
Show_next:
        push    bx
        push    cx
        push    bp
        test    bx,cx
        jnp     show_info_on
        mov     bp,offset Info_off
        jmp     Show_Info
Show_Info_on:
        mov     bp,offset Info_on
Show_info:
        mov     ah,0fh
        int     10h
        mov     cx,3
        mov     dh,lin
        mov     dl,col
        mov     ah,13h
        mov     al,00h
        mov     bl,1eh
        int     10h
        pop     bp
        pop     cx
        pop     bx
        inc     lin
        ror     bx,1
        jnc     Show_next
        jmp     Read

Exit:   mov     ah,4ch
        int     21h
Info_Addr       dw      offset Info15,offset Info14,offset Info13,offset Info12,offset Info11,offset Info10,offset Info09,offset Info08
                dw      offset Info07,offset Info06,offset Info05,offset Info04,offset Info03,offset Info02,offset Info01,offset Info00
Info00  db      "Right [Shift]",13,10,"$"
Info01  db      "Left  [Shift]",13,10,"$"
Info02  db      "[   CTRL    ]",13,10,"$"
Info03  db      "[    ALT    ]",13,10,"$"
Info04  db      "[Scroll Lock]",13,10,"$"
Info05  db      "[Num    Lock]",13,10,"$"
Info06  db      "[Caps   Lock]",13,10,"$"
Info07  db      "[   Ins     ]",13,10,"$"
Info08  db      "Left   [Ctrl]",13,10,"$"
Info09  db      "Left    [Alt]",13,10,"$"
Info10  db      "Right  [Ctrl]",13,10,"$"
Info11  db      "Right   [ALt]",13,10,"$"
Info12  db      "[Scroll Lock]",13,10,"$"
Info13  db      "[Num    Lock]",13,10,"$"
Info14  db      "[Caps   Lock]",13,10,"$"
Info15  db      "[   SysQe   ]",13,10,"$"
Info_on  db      "ON ",13,10,"$"
Info_off db      "OFF",13,10,"$"
col     db      30
lin     db      0
code    ends
        end     Start