雷军1994年写的老代码曝光，被称像诗一样优雅（附完整代码）

看图说话

↓↓↓

有些网友在评论中质疑，说雷军代码不会是「屎」一样优雅吧。说这话的网友，也许是开玩笑的，也许是真没看过雷军写过的代码。

在 2011 年的时候，微博有转发过雷军在 1994 年写的一段完整的汇编代码。雷军这段汇编代码，有程序员评价「如今能写出这么高质量的代码的程序员恐怕也不多」。

后来雷军在转发微博时还补充说：「这个程序第一个版本是我 1989 年写的，怀念当初写程序的快乐时光。」

前方高能……

;
; RI.ASM Revision 2.12 [ July 12, 1994 ]
Revision equ'V2.12 '
;;;; RAMinit Release 2.0
; Copyright (c) 1989-1994 by Yellow Rose Software Co.
; Written by Mr. Leijun;; Function:
; Press HotKey to remove all TSR program after this program;;; ..........................................................................; Removed Softwares by RI:
; SPDOS v6.0F, WPS v3.0F
; Game Busters III, IV; NETX ( Novell 3.11 )
; PC-CACHE; Norton Cache; Microsoft SmartDrv; SideKick 1.56A
; MOUSE Driver; Crazy (Monochrome simulate CGA program); RAMBIOS v2.0
; 386MAX Version6.01
; ..........................................................................; No cancel softwares:
; Windows 3.1 MSD
;; No removed TSR softwares:
; MS-DOS fastopen; Buffers, Files ... (QEMM 6.0)
; QCache (386MAX 6.01)
; ..........................................................................;COMMENTV2.04 Use mouse driver software reset function to initiation mouse
2/17/1993 by Mr. Lei and Mr. Feng
V2.05 RI cannot work in Windows DOS prompt
3/9/1993 by Mr. Lei
V2.06 1. When XMS cannot allocate 1K memory, RI halts.
2. RI repeat deallocates EMS memory.
V2.07 HotKey Setup Error
4/25/1993 by Mr. Lei
V2.08 KB BufferV2.10 1. Release high memory blocks (EMM386 QEMM386 S-ICE 386MAX)
2. RI copies flag
V2.12 1. Exists a critical error in Init 8259 procedure
2. Save [40:F0--FF] user data area
dosseg.model tiny.codelocals @@org 100h
Start: jmp Main
org 103h
True equ 1
False equ 0MaxHandles equ 100h
INT3 macroout 0ffh,alendm;; HotKey Status Test Var; --------------- ---------------;; 7 6 5 4 3 2 1 0 417 418496
; . . x . x . . . Left Alt is pressed 82
; x . . . x . . . Right Alt is pressed 88
; . . . x . x . . Left Ctrl is pressed 41
; . x . . . x . . Right Ctrl is pressed 44
; . . . . . . x . Left Shift is pressed2
; . . . . . . . x Right Shift is pressed1
;LeftAlt equ00101000b
RightAlt equ10001000b
LeftCtrl equ00010100b
RightCtrl equ01000100b
LeftShift equ00000010b
RightShift equ00000001b
HotKey db LeftCtrl or RightCtrl
DataBegin dw0
NextDataSeg dw 0ffffholdInt2F_addr dw 0,0
XMS_control dw 0,0
Handle_begin dw0
cvtOfs dw 0 ; DOS 3.0 equ 0 and above DOS 4.0 is1
org 104h
db 0dhdb Revisiondb ??date
db26
org 114h
tsrLength dw0
MachineID db 0FCh ; IBM PC/ATAuxHotKey db 0 ; 2Dh ; 'X' Scan Code
AuxHotKeyName db'X$ '
Power db TrueFlag db'!'
Kbd102 db0
NoFlag db0
StopFlag db1
DosEnv dw0
WorkSeg dw0
PrevDataSeg dw0
Copies db'1'
old_8259 db 0 ; 21h port
db 0 ; a1h port
Status dw0
XMSbit equ00000001b
EMSbit equ00000010b
SKbit equ10000000b
GoINT1C: db 0eah
oldInt1C_addr dw 0,0
newINT1C:
test cs:Status, SKbit
jnz GoINT1Ccmp cs:StopFlag,0
jz @@0
;; Mr. Lei 2/8/1993
; Problem: if WPS quit and reenter, old RI cann't control keyboard. ;
push ds
push ax
xor ax, ax
mov ds, ax
mov ax, ds:[94]
cmp ax, offset NewInt9
pop ax
pop ds
jnz GoINT1C
mov cs:StopFlag,0
@@0: push ax
push ds
push es
xor ax, ax
mov ds, ax
mov es, ds:[94+2]
cmp word ptr es:[101h], 'IE' ;'LEI'
jz @@1
cli
mov cs:StopFlag,1
mov ax, ds:[94]
mov cs:oldINT9_addr2, ax
mov ax, ds:[94+2]
mov cs:oldINT9_addr2[2], ax
mov ds:[94], offset newINT9_2
mov ds:[94+2], cs
sti
@@1: pop es
pop ds
pop ax
jmp GoINT1C
; ----------------------------------------------------------------------
; INT2F Func
;
; AX = C0D7h Return RI segment in AX
; AX = C0D8h Removes all TSR programs after RI
; AX = C0D9h Removes all TSR programs include RI
; AX = C0DAh Removes all RI copies
; ----------------------------------------------------------------------
newINT2F:
cmp ax, 0c0d7h ; LEI Hanzi GB Code
jnz @@1
push cs
pop ax
iret
@@1: cmp ax, 0c0d7h+1
jnz @@2
jmp KeepSelf
@@2: cmp ax, 0c0d7h+2
jnz @@3
jmp NoKeepSelf
@@3: cmp ax, 0c0d7h+3
jnz @@9
mov cs:NextDataSeg,-1
mov cs:Copies,'1'
jmp NoKeepSelf
@@9: jmp dword ptr cs:oldInt2F_addr
CallInt9:
ret
newINT9_2:
mov cs:NoFlag,1
pushf
db 9ah ; call far ptr oldint9_addr
oldInt9_Addr2 dw 0,0
jmp newINT9_proc
newINT9:
pushf
db 9ah ; call far ptr oldint9_addr
oldInt9_Addr dw 0, 0 cmp cs:NoFlag,0
jz newINT9_proc
mov cs:NoFlag,0
iret
newINT9_proc:
cmp cs:Flag, '!' ; busy ?
jnz @@0
iret
@@0:
mov cs:Flag, '!' ; set busy flag
push ax ; cmp hot key
push bx
push es
mov ax,40h
mov es,ax
cmp cs:AuxHotKey,0
jz @@_1
mov bx, es:[1ah]
cmp bx, es:[1ch]
jz @@10
push bx
mov bl, es:[bx+1]
cmp bl, cs:AuxHotKey
pop bx
jnz @@10
@@_1:
mov ah,es:[17h] ; test CTRL SHIFT ALT
mov al,cs:HotKey
push ax
and ax,0f0fh
cmp al,ah
pop ax
jnz @@10 cmp cs:Kbd102, True
jnz @@1
shr al,1
shr al,1
shr al,1
shr al,1
push ax
mov ah, es:[18h]
and ax, 303h
cmp al, ah
pop ax
jnz @@10
mov ah, es:[96h]
shr ax,1
shr ax,1
and ax, 303h
cmp al, ah
jnz @@10 cmp cs:AuxHotKey,0
jz @@_3
inc bx
inc bx
cmp bx, 3eh
jb @@_2
mov bx, 1eh
@@_2:
mov es:[1ah], bx
@@_3:
call IsWinDos
or ax, ax
jz @@1
call Beep
@@10:
sti
pop es
pop bx
pop ax
mov cs:Flag, ' ' ; no busy
iret
@@1: ; OK
pop es
pop bx
pop ax
KeepSelf:
call RemoveTSR
push es
mov es,cs:WorkSeg
mov dx,es:tsrLength
mov di,dx
mov al,0h ; Aug 24,1993
mov cx,100h
rep stosb
pop es
int 27h
NoKeepSelf:
mov ax,0e07h
int 10h
mov cs:clsStr, 47h ; Color (White in Red)
call RemoveTSR
dec cs:Copies
call RestoreSelfIntVec
push es
cmp cs:PrevDataSeg,0
jz @@1
mov es, cs:PrevDataSeg
mov es:NextDataSeg,-1
@@1: pop es
mov ax, 4c00h
int 21h
; ---------------------------------------------------------------------------
IsWinDOS:
mov ax, 1600h
int 2fh
cmp al, 01h
jz @@9 cmp al, 0ffh
jz @@9 ; Windows/386 Version 2.X
cmp al, 00h
jz @@1 cmp al, 80h
jnz @@9 ; Windows 3 in enhanced mode
; Version number in AL/AH
@@1:
mov ax, 4680h
int 2fh
cmp al, 80h
jnz @@9
xor ax, ax
jmp @@10
@@9: mov ax,1
@@10: ret
; -----------------------------------------------------------------------
RestoreSelfIntVec:
cmp Copies,'0'
jz @@0
ret
@@0:
cli
push cs
pop ds
xor ax, ax
mov es, ax
mov si, offset oldInt9_Addr
mov di,94
movsw
movsw
mov si, offset oldInt2F_Addr
mov di, 2Fh4
movsw
movsw
mov si, offset oldInt1C_Addr
mov di, 1Ch4
movsw
movsw
sti
ret
; ------------- KERNEL PROGRAM ----------------------------------------------
RemoveTSR:
pop ax
cli ; Setstack
mov sp, cs
mov ss, sp
mov sp, 100h
sti
push ax
cmp cs:Power, True
jnz @@1
call Init8259
@@1:
push cs
pop ds
@@_0:
mov ax,ds:NextDataSeg
cmp ax,-1
jz @@_1
mov cs:PrevDataSeg, ds
mov ds, ax
jmp @@_0
@@_1: mov si,ds:DataBegin
mov cs:WorkSeg, ds
lodsw
cmp ax,'XX'
jz @@_2
call Beep
ret
@@_2:
call RestoreEnvStr
call RestoreMCB ; restore current mcb
call CloseFiles
call RestorePort
call RestoreLEDs
call RestoreVecList ; Restore vectorslist
call RestoreFloppyParam
cmp cs:Power, True
jnz @@2
call RestoreCVTchain ; Restore cvt chain
call RestoreMemoryManager
@@2:
call RestoreBiosData
call Enable8259
mov ah, 1 int 16h
call RestoreClockSpeed
call CloseSpeaker
call ResetDisk
call UpdateTime
call ClosePRN
mov bx,cs:WorkSeg
mov ah,50h
int 21h ; Set PSP segment
mov ax,3 int 10h ; Set display mode
call InitPRN
call InitMouse
mov al, cs:Copies
cmp al,'1'
ja @@_sh1
mov cs:ShowCopies, ''
jmp @@_sh2
@@_sh1: mov cs:ShowCopies, al
@@_sh2:
mov si, offset clsStr
call ColorPrintStr
mov cs:Flag, ' ' ; no busy
cmp Copies, '1'
jnz @@_end
mov cs:StopFlag,0
@@_end:
call ClearKB_buffer
ret
Beep:
mov ax,0e07h
int 10h
ret
; #########################################################################
ClearKB_Buffer:
push es
push bx
mov bx, 0040h
mov es, bx
cli
mov bx, es:[1ah]
mov es:[1ch], bx
sti
pop bx
pop es
ret
Init8259:
; cmp cs:Copies,'1'
; jz @@1
; ret
@@1:
cmp cs:MachineID, 0fch
ja @@pc_xt
@@AT:
mov bx,870h ;
mov al,0 ;
out 0F1h,al ;
jcxz $+2
jcxz $+2
mov al,11h ; ICW1
out 0A0h,al
jcxz $+2
jcxz $+2
out 20h,al
jcxz $+2
jcxz $+2
mov al,bl ; ICW2
out 0A1h,al
jcxz $+2
jcxz $+2
mov al,bh
out 21h,al
jcxz $+2
jcxz $+2
mov al,2 ; ICW3
out 0A1h,al
jcxz $+2
jcxz $+2
mov al,4
out 21h,al
jcxz $+2
jcxz $+2
mov al,1 ; ICW4
out 0A1h,al
jcxz $+2
jcxz $+2
out 21h,al
jcxz $+2
jcxz $+2
mov al,0FFh ; OCW1
out 0A1h,al
jcxz $+2
jcxz $+2
out 21h,al
ret
@@PC_XT:
mov al,13h ; ICW1
out 20h,al
jcxz $+2
jcxz $+2
mov al,8 ; ICW2
out 21h,al
jcxz $+2
jcxz $+2
mov al,9 ; ICW4
out 21h,al
jcxz $+2
jcxz $+2
mov al,0FFh ; OCW1
out 21h,al
ret
Enable8259:
mov ax, word ptr cs:old_8259
out 021h,al
jcxz $+2
jcxz $+2
mov al,ah
out 0a1h,al ; DEC PC Bus Mouse
ret ; July 1994 by Mr. Lei
; -------------------------------------------------------------------------
RestoreBiosData:
lodsw
cmp ax,'--'
jz @@1
call Beep
ret
@@1: push es
push di
mov di, 40h
mov es, di
mov di, 10h
movsw
mov di, 0a8h ; [40h:a8h]
movsw
movsw
mov di, 49h
mov cx, 1dh
rep movsb
mov di, 0f0h ; User data
mov cx,8
rep movsw
pop di
pop es
ret
; -------------------------------------------------------------------------
RestoreMCB:
push ds
push es
lodsw ;'MZ'
@@0: lodsw
cmp ax,'MM'
jz @@1
mov es,ax
xor di,di
movsb
movsw
movsw
inc ax
mov bx, ds
cmp ax, bx
jz @@10
mov byte ptr es:[8], 0 ; Aug 24,1993
@@10: cmp byte ptr es:[0],'Z'
jnz @@0
mov byte ptr es:[10h],0
jmp @@0
@@1:
pop es
pop ds
ret
; -------------------------------------------------------------------------
CloseFiles:
mov ax, 5 ; Begin handle
push ds
push si
mov cx, 15 ; Max handle
sub cx, ax
inc cx
mov bx, ax
@@1: push bx
push cx
mov ah, 3eh
int 21h
pop cx
pop bx
inc bx
loop @@1
pop si
pop ds
ret
; -------------------------------------------------------------------------
RestorePort:
mov di, 40h ; restore port
mov es, di
xor di, di
mov cx,8
rep movsw
ret
; -------------------------------------------------------------------------
RestoreLEDs:
lodsb
and al, 11110000b ; LED status
mov ah, es:[17h]
and ah,00001111b
or ah, al
and ah, 0f0h ; Clear CTRL ALT SHIFT
mov es:[17h], ah
ret
; -------------------------------------------------------------------------
RestoreEnvStr:
lodsw
push si
push di
push ds
push es
mov es, cs:DosEnv
mov ds, ax
xor si, si
mov di, si
@@0: lodsb
or al, al
jnz @@1 cmp byte ptr ds:[si],0
jz @@2
@@1: stosb
jmp @@0
@@2: stosb
stosb
pop es
pop ds
pop di
pop si
ret
; -----------------------------------------------------------------------
RestoreVecList:
xor ax,ax
mov di,ax
mov es,ax
mov cx,100h
@@0: lodsw
xchg dx, ax
lodsw
cmp dx,'EL'
jnz @@1 cmp al,'I'
jnz @@1
sub cl, ah
push cx
mov cl, ah
mov ax, es:[di-4]
mov dx, es:[di-2]
@@a: stosw
xchg ax, dx
stosw
xchg ax, dx
loop @@a
pop cx
or cx, cx
jz @@9
jmp @@0
@@1:
xchg ax, dx
stosw
xchg ax, dx
stosw
loop @@0
@@9:
ret
;----------------------------------------------------------------------------
RestoreFloppyParam: ; Mr. Lei 2/10/1992
push es
push ax
xor ax, ax
mov es, ax
mov byte ptr es:[525h],2
pop ax
pop es
ret
;---------------------------------------------------------------------------
RestoreCVTchain:
lodsw
cmp ax,'VC'
jz @@_0
call Beep
ret
@@_0:
push ax
push cx
push es
; -----------------------------------------------------------------
lodsw ; DPB
mov di, ax
lodsw
mov es, ax
@@1: lodsb
inc di
stosb
add di, cs:cvtOfs
add di, 10h
movsw
movsw
les di, es:[di+2]
cmp di,-1
jnz @@1
; -----------------------------------------------------------------
lodsw ; DCB
mov di, ax
lodsw
mov es, ax
xor ax, ax
dec ax
stosw
; -----------------------------------------------------------------
lodsw ; Device Driver Chain
mov di, ax
lodsw
mov es, ax
xor cx, cx
@@9: push di
mov cl,5
rep movsw
pop di
les di, es:[di]
mov ax, di
inc ax
jnz @@9
pop es
pop cx
pop ax
ret
; ----------------------------------------------------------------------------
RestoreMemoryManager:
test cs:Status, XMSbit
jz @@1
call LoadXMSstatus
@@1:
test cs:Status, EMSbit
jz @@2
call LoadEMSstatus
@@2:
ret
LoadEMSstatus:
lodsw
cmp ax,'ME'
jz @@_0
call Beep
ret
@@_0:
lodsw
mov cx, ax
xor dx, dx
@@_1: push ds
push si
push dx
push cx
@@0: cmp dx, ds:[si]
jz @@1
add si,4
loop @@0
push cx
mov cx,5
@@0: mov ah, 45h ; Deallocate Handle and Memory
int 67h
or ah, ah
jz @@1
loop @@0
@@1: pop cx
@@1:
pop cx
pop dx
pop si
pop ds
inc dx
cmp dx, 100h
jb @@_1
shl cx,1
shl cx,1
add si, cx
ret
LoadXMSstatus:
lodsw
cmp ax,'MX'
jz @@_0
call Beep
ret
@@_0:
lodsw
mov cx, ax
jcxz @@5
@@1:
lodsw
mov dx, ax
@@2: push dx
mov ah, 0ah ;free
call dword ptr cs:xms_control
or ax, ax
pop dx
jnz @@4 cmp bl, 0abh
jnz @@4
push dx
mov ah, 0dh ; unlock
call dword ptr cs:xms_control
or ax, ax
pop dx
jmp @@2
@@4: loop @@1
@@5: ret
endp
; -----------------------------------------------------------------------
CloseSpeaker:
in al, 61h
and al, 0fch
out 61h, al
ret
; -----------------------------------------------------------------------
RestoreClockSpeed:
mov al,00110110b
out 43h, al
xor ax, ax
out 40h, al
out 40h, al
ret
; -----------------------------------------------------------------------
ResetDisk:
xor ax, ax
xor dx, dx
int 13h ; Restore A
inc dx
int 13h ; Restore B
mov dl, 80h
int 13h ; Restore C
ret
; --------------------------------------------------------------------------
ClosePRN:
mov ah, 51h ; Get PSP seg
int 21h
mov es, bx
mov ax, es:[16h] ; Prev PSP seg
cmp ax, bx
jnz @@9
mov ax, 3e00h ; COMMAND
mov bx, 4 int 21h
@@9:
ret
InitPRN:
mov ax, 3e00h
mov bx, 4 ; PRN
int 21h
mov ax, 3d01h
mov dx, offset PRNname
push cs
pop ds
int 21h
ret
PRNname db 'PRN',0
InitMouse: ; 2/16/1993 by Mr. Lei
push es
xor ax, ax
mov es, ax
cmp word ptr es:[33h4+2],0
jz @@0 cmp word ptr es:[33h4],0
jz @@0
mov ax, 21h
int 33h ; Hook Mouse Interrupt
@@0: pop es
ret
; ------------- CMOS CLOCK set to System -----------------------------------
UpdateTime:
call GetRealTime
mov ah, 2dh
int 21h
ret
GetRealTime:
mov ah,2 int 1Ah
mov al,ch
call bcdxchg
mov ch,al
mov al,cl
call bcdxchg
mov cl,al
mov al,dh
call bcdxchg
mov dh,al
mov dl,0
ret
BCDxchg:
push ax
push cx
mov cl,4
shr al,cl
pop cx
mov bl,0Ah
mul bl
pop bx
and bl,0Fh
add al,bl
ret
; -----------------------------------------------------------------------
; Displaystring
ColorPrintStr:
lodsb
mov bh, al ; color
xor cx, cx
mov dx, 014fh
mov ax, 0600h
int 10h
mov ah, 02 ; GotoXY (0, 0)
xor dx, dx
mov bh, 0 int 10h
PrintStr:
push cs
pop ds
xor bx, bx
@@1: lodsb
cmp al,'$'
jz @@2
or al, aljz @@2
mov ah, 0ehint 10h
jmp short @@1
@@2: mov al, cs:clsStrcolor
mov cs:clsStr, al
ret; -----------------------------------------------------------------------Self dw0
clsStrcolor db 17h
clsStr db 17h ; Color (White in Blue)
db' RAMinit Version 2.12 (c) 1989-1994 by KingSoft Ltd. Mr. Leijun'
db 0dh,0ahdb' ['
ShowCopies db ''
db '] Activate...',0ah,0dh,'$'
endTSR equ $mcbList equ offset endTSR + 2 +2
vecList equ mcbList + 710 + 2 + 10h + 1 + 400h
devLink equ vecList + 4 + 5 26 + 4 + 10 30h +4
xmsList equ devLink + 2 + MaxHandles2
emsList equ xmsList + 4 +1024
crtMode equ emsList + 2 + 1Dh + 4 + 10h
tsrLen equ crtMode +1
;; DOS Environment Reserved by RI; --------------------------------------------------; Flag 'XX' 2 bytes
; Environment Segment 1 word
; Free MCBs <=710 bytes
; MCB segment 1 word
; MCB 5 bytes
; End flag 'MM' 1 word
; COM LPT ports 10h bytes
; LEDs status 1 bytes
; Packed vectors list <=400h bytes
; Flag 'CV' 2 bytes
; CVT First DPB pointer 4 bytes
; DPBs data <=526 bytes
; First DCB pointer 4 bytes
; Pointer to NUL 4 bytes
; All device driver datas <=30h10 bytes
; Flag 'XM' 2 bytes
; XMS free handle counter 2 bytes
; EMS free handle list <=100h4 bytes
; Flag 'EM' 2 bytes
; EMS free handle counter 2 bytes
; EMS free handle list <=1024 bytes
; EMS handle 1 word
; Number of pages 1 word
; Flag '--' 1 word
; Equipment List 1 word
; CRT 40:49h-66h 1dh bytes
; 40:A8h 1 dword
; BIOS User Data Area 40:F0--FF 10h bytes
; **;main: jmp main0
Print Macro StrLea dx, Strcall DisplayStrendmInstMsg db 'RAMinit Version 2.12 '
db 'Copyright (c) 1989-1994 by KingSoft Ltd. ',0dh,0ah,'$'
Msg0 db 'Already installed !',0dh,0ah,0ah
db 'For Help, type "RI /?". ',0dh,0ah,'$'
Msg_0 db 0ah,'Residents a new RAMinit copy [y/n] ? $'
Msg_2 db 'OK, RI No.'
Msg_RI db '2'
db ' residents successful !', 0dh,0ah,'$'
Msg1 db 'Activate with: $'
KeyMsg db 'Right_Shift$'
db 'Left_Shift$ '
KMsg1 db 'Left_Ctrl$ '
db 'Left_Alt$ '
db 'Right_Ctrl$ '
db 'Right_Alt$ '
KMsg2 db 'Ctrl$ '
db 'Alt$ '
db 'Ctrl$ '
db 'Alt$ '
PlusMsg db ' + $'
crlf db 0dh,0ah,'$'
HelpMsg db 'Programmed by Mr. Leijun Dec 1992', 0dh,0ah,0ah
db 'Usage: RI [options]',0dh,0ah,0ah
db '/H,/? Display this screen',0dh,0ah
db '/CLS Removes all TSR programs after current RI',0dh,0ah
db '/RET Removes TSR programs include current RI',0dh,0ah
db '/NEW Residents a new data copy of current environment',0dh,0ah
db '/ALL Removes all RI copies and all other tsr programs',0dh,0ah
db '/Sxyy.. Define Hotkey x=AuxHotkey yy..=shift status',0dh,0ah
db ' x=auxiliary hotkey (default is "X") ',0dh,0ah
db ' x equ "1" means need AuxHotkey',0dh,0ah
db ' yy..=shift status [CAScas]',0dh,0ah
db ' C: Left Ctrl A: Left Alt S: Left Shift',0dh,0ah
db ' c: Right Ctrl a: Right Alt s: Right Shift',0dh,0ah,0ah
db 'Example: "RI /S1c" means Hotkey is Right_Ctrl+X',0dh,0ah
db ' "RI /S0Cc" means HotKey is Left_Ctrl+Right_Ctrl',0dh,0ah
db ' "RI /CLS" equals simply press hotkey',0dh,0ah
db ' "RI /RET" Removes all TSRs after current RI and this RI',0dh,0ah
db 0ahdb 'Contact me for RAMinit problems: (01)2561155 Call 1997',0dh,0ah
db '$'
ErrMsg db 'ERROR: Invalid options !',0dh,0ah,0ah,'$'
WinErr db 7, 'Sorry, I cannot work in Windows DOS environment.',0dh,0ah,'$'
SetMsg db 7, 'Defines new Hotkey successful !',0dh,0ah,0ah,'$'
tsrOK db False
Main0:
cldPrint instMsgcall IsWinDosor ax, axjz @@1Print WinErrmov ax, 4c00h
int 21h
@@1:
call HotKeyValid
mov cs:Status, 0
call EMS_testcall CmpDosVercall CmpSideKickcall GetMachineIDcall ModifyHotKeyPromptmov ax, 0c0d7hint 2fh
mov es, axcmp word ptr es:[101h], 'IE' ; 'LEI'
jnz @@0mov cs:Self, ax
@@0:
call CmdLine
call PrintHotKeyPromptcmp cs:tsrOK,true
jz @@2call tsrReplyOK@@2: cmp cs:tsrOK,true
jnz @@_2call PrintCopies@@_2:
mov word ptr cs:[100h], 'EL'
mov byte ptr cs:[102h], 'I'
push cspop espush cspop dsstd
mov si, offset eofmov cx, eof - offset Heremov di, tsrLenadd di, cxinc cxrep movsbcldmov bx, tsrLenjmp bx
Here:
mov ax,csmov es,axmov di,offset endTSRmov cs:DataBegin, di
mov cs:NextDataSeg, -1
mov ax, 'XX'
stoswin al, 0a1hmov ah, alin al, 21h
push axmov word ptr cs:old_8259, ax
xor ax, axout 21h,al ; CLI
call SaveOtherscall SetSelfIntcall BackupVecListcmp cs:Power,true
jnz @@20call BackupCVTchaincall BackupMemoryManager@@20:
call BackupBiosData
stimov cs:Flag, ' ' ; no busy
mov cs:StopFlag, 0 ;
mov cs:tsrLength, di
call SetDosEnvSegcmp cs:Self, 0
jz @@29push cspop dspush cspop escldmov cx, cs:tsrLength
mov si, cs:DataBegin
sub cx, simov di, 120h
mov cs:DataBegin, di
rep movsbmov cs:tsrLength, di
@@29:
pop ax
out 21h, al ; STI
mov al, ahout 0a1h, almov dx, cs:tsrLength
inc dxint 27h
; ----------------------------------------------------------------------------SetDosEnvSeg:
push dspush esmov ax, cs@@10: mov es, axmov ax, es:[16h] ; Get father process psp segment
or ax, axjz @@11mov bx, escmp ax, bxjnz @@10@@11:
mov es, word ptr es:[2ch] ; Get father process env segment
mov cs:DosEnv, es
pop espop dsret; ----------------------------------------------------------------------------SaveOthers:
mov ax, cs:[2ch] ; Env Seg
stoswcall backupMCB ; Current MCBmov ax, 40h ; COM LPT Port
mov ds, axmov si, 0hmov cx, 8
rep movswmov si, 17h ; LED status
lodsbstosb; call OpenLEDsret; --------------------------------------------------------------------------backupMCB:
mov ax, 'ZM'
stoswpush dspush esmov ah, 52h
int 21h ; Get MCB chain head
mov ax, es:[bx-2]
pop es@@0: mov ds, axcmp byte ptr ds:[0], 'Z' ; End ?
jz @@20 cmp byte ptr ds:[0], 'M' ; Memory control block
jnz @@30 cmp word ptr ds:[3], 0 ; Nul mcb
jz @@10 cmp word ptr ds:[1], 0 ; Free MCB
jnz @@10call SaveFreeMCB@@10: inc axadd ax, ds:[3]
jmp @@0@@20:
call SaveFreeMCB
cmp ax, 0a000hinc axjnb @@30mov ax, 9fffh ; MS-DOS UMB
jmp @@0@@30:
cmp ax, 0c000h ; 386MAX
ja @@90mov ax, 0c020hjmp @@0@@90: ; Error ?pop dsmov ax, 'MM' ; Set MCB flag
stosw
ret
SaveFreeMCB:
stoswxor si,simovsbmovswmovswret;; push ax; stosw; xor si,si; movsb; movsw; movsw; pop ax; cmp ax, 09fffh; jnb @@3; push ax; push ds; mov ds,ax; cmp byte ptr ds:[0], 'M'
; pop ds; pop ax; jnz @@4; mov ax, 09fffh ; MS-DOS UMB; jmp @@0; @@4: cmp ax, 0c000h; ja @@3; mov ax, 0c020h ; 386MAX
; jmp @@0;; --------------------------------------------------------------------------OpenLEDs: push ax ; Open all LEDs
or al, 070h
mov ds:[17h], al
mov ah, 1 int 16h
mov cx, 4 ; Delay
@@20: push cxxor cx, cx@@21: loop @@21pop cxloop @@20pop axmov ds:[17h], al
mov ah, 1 int 16h
ret; --------------------------------------------------------------------------SetSelfInt:
push espush dicmp cs:self, 0
jnz @@1push cspop dsmov ax,3509h
int 21h
mov word ptr cs:oldInt9_addr,bx
mov word ptr cs:oldInt9_addr[2],es
mov dx,offset NewInt9mov ax,2509h
int 21h
mov ax,352Fh
int 21h
mov word ptr cs:oldInt2F_addr,bx
mov word ptr cs:oldInt2F_addr[2],es
mov dx,offset newInt2Fmov ax,252Fh
int 21h
mov ax,351Ch
int 21h
mov word ptr cs:oldInt1C_addr,bx
mov word ptr cs:oldInt1C_addr[2],es
mov dx,offset newInt1Cmov ax,251ch
int 21h
clijmp @@2@@1:
mov es, cs:Self
inc es:Copies
@@_0: cmp es:NextDataSeg, -1
jz @@_1mov es, es:NextDataSeg
jmp @@_0@@_1: mov es:NextDataSeg, cs
@@2:
pop di
pop esret; -----------------------------------------------------------------------SaveCounter:
mov word ptr es:[di], 'EL'
mov byte ptr es:[di+2], 'I'
mov byte ptr es:[di+3], bl
xor bx, bxadd di, 4
ret; -----------------------------------------------------------------------DisplayStr: push cs
pop dsmov ah, 9 int 21h
ret; -----------------------------------------------------------------------CmdLine:
push cspop dsxor ax, axmov si, 80h
lodsbor al, aljnz @@1ret@@1:
mov cx, ax
dec axpush axpush si@@0: lodsbcmp al, ' '
jz @@0 cmp al, '/'
jnz @@2lodsbcmp al, 'S'
jz @@_2cmp al, 's'
jnz @@2@@_2:
call SetHotKey
Print SetMsgmov ax, 4c00h
int 21h
@@2:
pop si
pop axpush axpush si@@_3: lodsbcmp al, 'A'
jb @@3 cmp al, 'Z'
ja @@3add byte ptr ds:[si-1],20h ; DownCase
@@3: loop @@_3pop sipop cxadd si, cxlodsbcmp al, 's' ; CLS
jnz @@5 cmp word ptr ds:[si-3], 'lc'
jnz @@5 cmp cs:Self, 0
jz @Errmov ax, 0c0d7h+1 int 2fh
@@5: cmp al, 'h' ; HELP
jz @helpcmp al, '?'
jz @helpcmp al, 't' ; RET
jnz @@6 cmp word ptr ds:[si-3], 'er'
jnz @@6@@7:
cmp cs:Self, 0
jz @Errmov ax, 0c0d7h+2 int 2fh
@@6: cmp al, 'w' ; NEW
jnz @@8 cmp word ptr ds:[si-3], 'en'
jnz @@8mov cs:tsrOK,true
ret@@8:
cmp al, 'l' ; ALL
jnz @@9 cmp word ptr ds:[si-3], 'la'
jnz @@9mov ax, 0c0d7h+3 int 2fh
@@9:
cmp al, ' '
jnz @Errret@Err:
Print ErrMsg
@help:
Print HelpMsg
mov ax, 4c00h
int 21h
;---------------------------------------------------------------------------tsrReplyOK:
cmp cs:Self, 0
jz @@1Print Msg0push esmov ax, cs:Self
@@_10: mov es, axmov ax, es:NextDataSeg
cmp ax, -1
jnz @@_10mov ax, es@@_0: push axdec axmov es, axmov bx, es:[3]
pop axadd ax, bxinc axmov es, axcmp word ptr es:[0], 'OC'
jz @@_0mov bx, cscmp ax, bxpop esjz @@2Print Msg_0mov ah, 1 int 21h
push axPrint crlfpop axcmp al, 'y'
jz @@3 cmp al, 'Y'
jz @@3@@2: ; Print Msg_1mov ax, 4c01h
int 21h
@@3:
@@1: mov cs:tsrOK,true
ret
PrintCopies:
cmp cs:Self, 0
jz @@1push es ; Added -by- Mr. Leimov es, cs:Self ; Aug 24, 1993
mov al, es:Copies
inc al ; Total RI copiespush ax ; Set es = current mcbmov ax, csdec axmov es, axpop axmov cx, 5 ; Search end of file name
mov bx, 8
@@10: inc bxcmp byte ptr es:[bx], 20h
jz @@20 cmp byte ptr es:[bx], 0ffh
jz @@20 cmp byte ptr es:[bx], 00h
jz @@20loop @@10@@20: ; Set current RI nomov byte ptr es:[bx], ':' ; "RI:2"
mov byte ptr es:[bx+1], al
cmp bx, 8+7
jnb @@30mov byte ptr es:[bx+2], 0
@@30:
pop es
mov cs:Msg_RI, al
Print Msg_2@@1: ret;---------------------------------------------------------------------------; Backup Interrupt Vector List;BackupVecList:
push dspush cspop esxor si,si ; Vectorsmov ds,simovswmovswxor bx, bxmov cx,00ffh
@@0: lodswxchg dx, axlodswcmp ax, es:[di-2]
jnz @@1 cmp dx, es:[di-4]
jz @@2@@1: or bx, bx
jz @@3call SaveCounter@@3: xchg dx, axstoswxchg dx, axstoswloop @@0jmp @@4@@2: inc bxloop @@0call SaveCounter@@4:
pop ds
ret;;-----------------------------------------------------------------------------BackupCVTchain:
mov ax, 'VC'
stoswpush axpush bxpush cxpush dspush esmov ah, 52h
int 21h ; ES:BX -- DOS table as described below
; --------------------------------------------------------------------push es ; DPB chainspush bxlds si, es:[bx]
push cspop esmov ax, sistoswmov ax, dsstoswmov bx, cs:cvtOfs
xor cx, cx@@1: mov al, ds:[si+1]
stosbmov ax, ds:[si+bx+12h]
stoswmov ax, ds:[si+bx+14h]
stoswinc cxlds si, ds:[si+bx+18h]
cmp si, -1
jnz @@1; mov ax, 5
; mul cl; add ax, 4
; add cs:tsrLength, ax
pop bxpop es; --------------------------------------------------------------------push es ; DCB file control blockspush bxles bx, es:[bx+4]
@@11: cmp word ptr es:[bx], -1
jz @@10les bx, es:[bx]
jmp @@11@@10:
mov ax, es
xchg ax, bxpush cspop esstoswxchg ax, bxstoswpop bxpop es; add cs:tsrLength, 4
; ---------------------------------------------------------------------push es ; Device Driver Chainspop dsadd bx, 22h
mov si, bx ; NULpop esmov ax, sistoswmov ax, dsstoswxor cx, cxxor bx, bx@@9: push simov cl, 5
rep movswinc bxpop silds si, ds:[si]
mov ax, siinc axjnz @@9pop dspop cxpop bxpop axret; ----------------------------------------------------------------------------BackupBiosData:
mov ax, '--'
stoswpush dspush simov si, 40h
mov ds, simov si, 10h
movswmov si, 0a8hmovswmovswmov si, 49h
mov cx, 1dh
rep movsbmov si, 0f0hmov cx, 8
rep movswpop sipop dsret; ---------------------------------------------------------------------------BackupMemoryManager:
push cspop espush dspush escall SaveXMSstatuscall SaveEMSstatuspop espop dsret;---------------------------------------------------------------------SaveEMSstatus:
test cs:status, EMSbit
jnz @@1ret@@1:
mov ax, 'ME'
stoswinc diinc dipush dimov ah, 4dh
int 67h
pop dimov es:[di-2], bx
shl bx, 1
shl bx, 1
add di, bxret; -------------------------------------------------------------------SaveXMSstatus:
call XMS_testtest cs:status, XMSbit
jnz @@1ret@@1:
mov ax, 'MX'
stoswmov dx, 1
call XMS_allocjnz @@_1xor cx, cx ; XMS alloc failurestoswret@@_1:
push dx
sub dx, MaxHandles 10
@@2:
push dx
call XMS_Lockpop dxjnz @@3 cmp bl, 0a2hjnz @@4add dx, 10
jmp @@2@@3: push dxcall XMS_unlockpop dx@@4:
mov cs:handle_begin, dx
pop dxpush dxcall XMS_bstatxor cx, cxmov cl, blinc cxpop dxcall XMS_Freemov dx, cs:Handle_begin
push cxpush cspop esmov ax, cxstosw@@5: push dxcall XMS_Lockpop dxjnz @@6 cmp bl, 0a2h ; Handle invalidjz @@7@@6: call XMS_unlockadd dx, 10
jmp @@5@@7: mov ax, dxstoswadd dx, 10
loop @@5pop cxret; ------------------------------------------------------------------XMS_test:
push esmov ax, 4300h
int 2fh
cmp al, 80h
jnz @@9mov ax, 4310h
int 2fh
mov cs:XMS_control, bx
mov cs:XMS_control[2], es
or cs:Status, XMSbit
@@9:
pop es
ret
XMS_stat:
mov ah, 0call dword ptr cs:xms_control
mov hma_exist, dlrethma_exist db 0XMS_alloc:
mov ah, 9
call dword ptr cs:xms_control
or ax, ax
ret
XMS_lock:
mov ah, 0chcall dword ptr cs:xms_control
or ax, ax
ret
XMS_unlock:
mov ah, 0dhcall dword ptr cs:xms_control
or ax, ax
ret
XMS_bstat:
mov ah, 0ehcall dword ptr cs:xms_control
or ax, ax
ret
XMS_free:
mov ah, 0ahcall dword ptr cs:xms_control
or ax, axret; ----------------------------------------------------------------------------EMS_test:
push cspop dsmov dx, offset EMMnamemov ax, 3d00h
int 21h
jc @@2mov bx, axmov ah, 3eh
int 21h
or cs:Status, EMSbit
@@2:
ret
EMMname db 'EMMXXXX0',0
; -----------------------------------------------------------------------------SetHotKey:
xor bx, bxlodsbpush ax@@1: lodsbcmp al, 0dhjz @@9 cmp al, 'C'
jnz @@2or bl, LeftCtrljmp @@1@@2:
cmp al, 'c'
jnz @@3or bl, RightCtrljmp @@1@@3:
cmp al, 'A'
jnz @@4or bl, LeftAltjmp @@1@@4:
cmp al, 'a'
jnz @@5or bl, RightAltjmp @@1@@5:
cmp al, 'S'
jnz @@6or bl, LeftShiftjmp @@1@@6:
cmp al, 's'
jnz @@7or bl, RightShiftjmp @@1@@7: pop axjmp @Err@@9:
mov cs:HotKey, bl
pop axmov cs:AuxHotKey, 2dh ; 'X' scan key
cmp al, '1'
jz @@29mov cs:AuxHotKey, 0
@@29:
cmp cs:Self, 0
jz @@30push esmov es, cs:Self
mov es:HotKey, bl
mov bl, cs:AuxHotKey
mov es:AuxHotKey, bl
pop es@@30:
call GetRunFileName
mov ax, 3d02h
int 21h
jc @@10push cspop dsmov bx, axmov cx, 4
mov dx, 100h
mov ah, 40h
int 21h
jc @@10mov ax, 4200h
xor cx, cxmov dx, 17h
int 21h
jc @@10mov cx, 1
mov dx, offset AuxHotKeymov ah, 40h
int 21h
jc @@10mov ah, 3eh
int 21h
@@10:
ret
; -----------------------------------------------------------------------GetRunFileName:
; Return:
; DS:DX Pointer of this run file name ASCIIZstring
push axpush bxpush cxpush sipush dipush espush cspop esmov ax, es:[2ch]
mov es, axxor di, dimov cx, 1000h
xor al, al@@1: repnz scasbcmp es:[di], al
loopnz @@1mov dx, diadd dx, 3
push espop dspop espop dipop sipop cxpop bxpop axret; ---------------------------------------------------------------------------GetMachineID:
push esmov KBD102,Truemov ax,40h
mov es,axtest byte ptr es:[96h], 00010000b
jnz @@1mov Kbd102,False@@1:
xor ax,ax
dec axmov es,axmov al,es:[0eh]
mov cs:MachineID, al
pop esret; ---------------------------------------------------------------------------ModifyHotKeyPrompt:
cmp cs:Kbd102, True
jz @@9push cspop espush cspop dsmov cx, 124
mov si, offset KMsg2mov di, offset KMsg1rep movsb@@9: cmp cs:MachineID, 0fch
jna @@10mov cs:clsStrcolor, 70h ; Mono
mov cs:clsStr, 70h
@@10:
ret
; ---------------------------------------------------------------------------PrintHotKeyPrompt:
Print Msg1mov al, cs:HotKey
mov ah, alshr al, 1
shr al, 1
and ax, 33ch
or al, ahmov dx, offset KeyMsg@@40:
or ax, ax ; Mr. Lei 4/25/1993
jz @@_42shr al, 1
push axjnc @@41push axcall ColorDisplayStr; mov ah, 9
; int 21h
pop axor al, aljz @@42push dxmov dx, offset PlusMsgcall ColorDisplayStr; Print PlusMsgpop dx@@41: add dx, 12
pop axjmp @@40@@42: pop ax@@_42: cmp cs:AuxHotKey, 0
jz @@43 cmp cs:HotKey, 0 ; Mr. Lei
jz @@_43mov dx, offset PlusMsgcall ColorDisplayStr; Print PlusMsg@@_43: mov dx, offset AuxHotKeyNamecall ColorDisplayStr; Print AuxHotKeyName@@43:
Print crlf
ret
ColorDisplayStr:
push bxpush cxpush dxpush simov bl, 0fhmov si, dxxor bh, bhmov cx, 1
@@1: lodsbcmp al, '$'
jz @@2or al, aljz @@2push cxmov ah, 09hint 10h
mov ah, 3 int 10h
inc dlmov ah, 2 int 10h
pop cxjmp short @@1@@2:
pop si
pop dxpop cxpop bxret; ---------------------------------------------------------------------------CmpSideKick:
xor ax, axmov es, axles bx, es:[20h]
cmp word ptr es:[bx-4], 4b53h
jnz @@1 cmp word ptr es:[bx-2], 4942h
jz @@2@@1: mov es, axles bx, es:[94h]
cmp word ptr es:[bx-2], 4b53h
jz @@2ret@@2: or cs:Status, SKbit
ret; ---------------------------------------------------------------------------CmpDosVer: mov ah, 30h
int 21h
cmp al, 3
jb @@1 cmp al, 3
jna @@2mov cs:cvtOfs, 1
ret@@2: mov cs:cvtOfs, 0
ret@@1: Print DosVerErrmov ax, 4cffh
int 21h
DosVerErr db 'Sorry, DOS version too lower !',0dh,0ah,'$'
HotKeyValid:
cmp cs:HotKey, 0
jnz @@_1cmp cs:AuxHotKey, 0
jnz @@_1Print HotKeyErrmov ax, 4cfeh
int 21h
@@_1: retHotKeyErr db 'Sorry, please setup hotkey again. ',0dh,0ah,'$'
eof:
endsend Start; ------------- The End ! ---------------------------------------------------

所以小伙伴们，你还记得自己写的第一行代码是什么吗？