雷军写代码水平如何？ 第1页

下面是雷军的代码完整版，一共2000行，大家自己看看牛不牛！向雷布斯致敬！

       ; ; 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 Version 6.01 ; .......................................................................... ; No cancel softwares: ; Windows 3.1 MSD ; ; No removed TSR softwares: ; MS-DOS fastopen ; Buffers, Files ... (QEMM 6.0) ; QCache (386MAX 6.01) ; .......................................................................... ; COMMENT   V2.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 Buffer V2.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 .code locals @@ org 100h   Start: jmp Main org 103h   True equ 1 False equ 0 MaxHandles equ 100h   INT3 macro out 0ffh,al endm ; ; HotKey Status Test Var ; --------------- --------------- ; ; 7 6 5 4 3 2 1 0 417 418 496 ; . . x . x . . . Left Alt is pressed 8 2 ; x . . . x . . . Right Alt is pressed 8 8 ; . . . x . x . . Left Ctrl is pressed 4 1 ; . x . . . x . . Right Ctrl is pressed 4 4 ; . . . . . . x . Left Shift is pressed 2 ; . . . . . . . x Right Shift is pressed 1 ; LeftAlt equ 00101000b RightAlt equ 10001000b LeftCtrl equ 00010100b RightCtrl equ 01000100b LeftShift equ 00000010b RightShift equ 00000001b HotKey db LeftCtrl or RightCtrl   DataBegin dw 0 NextDataSeg dw 0ffffh oldInt2F_addr dw 0, 0 XMS_control dw 0, 0 Handle_begin dw 0 cvtOfs dw 0 ; DOS 3.0 equ 0 and above DOS 4.0 is 1 org 104h db 0dh db Revision db ??date db 26 org 114h tsrLength dw 0 MachineID db 0FCh ; IBM PC/AT   AuxHotKey db 0 ; 2Dh ; 'X' Scan Code AuxHotKeyName db 'X$ ' Power db True Flag db '!' Kbd102 db 0 NoFlag db 0 StopFlag db 1 DosEnv dw 0 WorkSeg dw 0 PrevDataSeg dw 0 Copies db '1' old_8259 db 0 ; 21h port db 0 ; a1h port   Status dw 0 XMSbit equ 00000001b EMSbit equ 00000010b SKbit equ 10000000b   GoINT1C: db 0eah oldInt1C_addr dw 0, 0 newINT1C: test cs:Status, SKbit jnz GoINT1C cmp 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 ; Set stack 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 vectors list 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 ; ----------------------------------------------------------------------- ; Display string 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, al jz @@2 mov ah, 0eh int 10h jmp short @@1 @@2: mov al, cs:clsStrcolor mov cs:clsStr, al ret ; ----------------------------------------------------------------------- Self dw 0 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,0ah db ' [' 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 + MaxHandles  2 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 Str Lea dx, Str call DisplayStr endm InstMsg 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 0ah db '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: cld Print instMsg call IsWinDos or ax, ax jz @@1 Print WinErr mov ax, 4c00h int 21h @@1: call HotKeyValid mov cs:Status, 0 call EMS_test call CmpDosVer call CmpSideKick call GetMachineID call ModifyHotKeyPrompt mov ax, 0c0d7h int 2fh mov es, ax cmp word ptr es:[101h], 'IE' ; 'LEI' jnz @@0 mov cs:Self, ax @@0: call CmdLine call PrintHotKeyPrompt cmp cs:tsrOK, true jz @@2 call tsrReplyOK @@2: cmp cs:tsrOK, true jnz @@_2 call PrintCopies @@_2: mov word ptr cs:[100h], 'EL' mov byte ptr cs:[102h], 'I' push cs pop es push cs pop ds std mov si, offset eof mov cx, eof - offset Here mov di, tsrLen add di, cx inc cx rep movsb cld mov bx, tsrLen jmp bx Here: mov ax,cs mov es,ax mov di,offset endTSR mov cs:DataBegin, di mov cs:NextDataSeg, -1 mov ax, 'XX' stosw in al, 0a1h mov ah, al in al, 21h push ax mov word ptr cs:old_8259, ax xor ax, ax out 21h,al ; CLI call SaveOthers call SetSelfInt call BackupVecList cmp cs:Power, true jnz @@20 call BackupCVTchain call BackupMemoryManager @@20: call BackupBiosData sti mov cs:Flag, ' ' ; no busy mov cs:StopFlag, 0 ; mov cs:tsrLength, di call SetDosEnvSeg cmp cs:Self, 0 jz @@29 push cs pop ds push cs pop es cld mov cx, cs:tsrLength mov si, cs:DataBegin sub cx, si mov di, 120h mov cs:DataBegin, di rep movsb mov cs:tsrLength, di @@29: pop ax out 21h, al ; STI mov al, ah out 0a1h, al mov dx, cs:tsrLength inc dx int 27h ; ---------------------------------------------------------------------------- SetDosEnvSeg: push ds push es mov ax, cs @@10: mov es, ax mov ax, es:[16h] ; Get father process psp segment or ax, ax jz @@11 mov bx, es cmp ax, bx jnz @@10 @@11: mov es, word ptr es:[2ch] ; Get father process env segment mov cs:DosEnv, es pop es pop ds ret ; ---------------------------------------------------------------------------- SaveOthers: mov ax, cs:[2ch] ; Env Seg stosw call backupMCB ; Current MCB mov ax, 40h ; COM LPT Port mov ds, ax mov si, 0h mov cx, 8 rep movsw mov si, 17h ; LED status lodsb stosb ; call OpenLEDs ret ; -------------------------------------------------------------------------- backupMCB: mov ax, 'ZM' stosw push ds push es mov ah, 52h int 21h ; Get MCB chain head mov ax, es:[bx-2] pop es @@0: mov ds, ax cmp 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 @@10 call SaveFreeMCB @@10: inc ax add ax, ds:[3] jmp @@0 @@20: call SaveFreeMCB cmp ax, 0a000h inc ax jnb @@30 mov ax, 9fffh ; MS-DOS UMB jmp @@0 @@30: cmp ax, 0c000h ; 386MAX ja @@90 mov ax, 0c020h jmp @@0 @@90: ; Error ? pop ds mov ax, 'MM' ; Set MCB flag stosw ret SaveFreeMCB: stosw xor si,si movsb movsw movsw ret ; ; 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 cx xor cx, cx @@21: loop @@21 pop cx loop @@20 pop ax mov ds:[17h], al mov ah, 1 int 16h ret ; -------------------------------------------------------------------------- SetSelfInt: push es push di cmp cs:self, 0 jnz @@1 push cs pop ds mov ax,3509h int 21h mov word ptr cs:oldInt9_addr,bx mov word ptr cs:oldInt9_addr[2],es mov dx,offset NewInt9 mov 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 newInt2F mov 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 newInt1C mov ax,251ch int 21h cli jmp @@2 @@1: mov es, cs:Self inc es:Copies @@_0: cmp es:NextDataSeg, -1 jz @@_1 mov es, es:NextDataSeg jmp @@_0 @@_1: mov es:NextDataSeg, cs @@2: pop di pop es ret ; ----------------------------------------------------------------------- SaveCounter: mov word ptr es:[di], 'EL' mov byte ptr es:[di+2], 'I' mov byte ptr es:[di+3], bl xor bx, bx add di, 4 ret ; ----------------------------------------------------------------------- DisplayStr: push cs pop ds mov ah, 9 int 21h ret ; ----------------------------------------------------------------------- CmdLine: push cs pop ds xor ax, ax mov si, 80h lodsb or al, al jnz @@1 ret @@1: mov cx, ax dec ax push ax push si @@0: lodsb cmp al, ' ' jz @@0 cmp al, '/' jnz @@2 lodsb cmp al, 'S' jz @@_2 cmp al, 's' jnz @@2 @@_2: call SetHotKey Print SetMsg mov ax, 4c00h int 21h @@2: pop si pop ax push ax push si @@_3: lodsb cmp al, 'A' jb @@3 cmp al, 'Z' ja @@3 add byte ptr ds:[si-1],20h ; DownCase @@3: loop @@_3 pop si pop cx add si, cx lodsb cmp al, 's' ; CLS jnz @@5 cmp word ptr ds:[si-3], 'lc' jnz @@5 cmp cs:Self, 0 jz @Err mov ax, 0c0d7h+1 int 2fh @@5: cmp al, 'h' ; HELP jz @help cmp al, '?' jz @help cmp al, 't' ; RET jnz @@6 cmp word ptr ds:[si-3], 'er' jnz @@6 @@7: cmp cs:Self, 0 jz @Err mov ax, 0c0d7h+2 int 2fh @@6: cmp al, 'w' ; NEW jnz @@8 cmp word ptr ds:[si-3], 'en' jnz @@8 mov cs:tsrOK, true ret @@8: cmp al, 'l' ; ALL jnz @@9 cmp word ptr ds:[si-3], 'la' jnz @@9 mov ax, 0c0d7h+3 int 2fh @@9: cmp al, ' ' jnz @Err ret @Err: Print ErrMsg @help: Print HelpMsg mov ax, 4c00h int 21h ;--------------------------------------------------------------------------- tsrReplyOK: cmp cs:Self, 0 jz @@1 Print Msg0 push es mov ax, cs:Self @@_10: mov es, ax mov ax, es:NextDataSeg cmp ax, -1 jnz @@_10 mov ax, es @@_0: push ax dec ax mov es, ax mov bx, es:[3] pop ax add ax, bx inc ax mov es, ax cmp word ptr es:[0], 'OC' jz @@_0 mov bx, cs cmp ax, bx pop es jz @@2 Print Msg_0 mov ah, 1 int 21h push ax Print crlf pop ax cmp al, 'y' jz @@3 cmp al, 'Y' jz @@3 @@2: ; Print Msg_1 mov ax, 4c01h int 21h @@3: @@1: mov cs:tsrOK, true ret PrintCopies: cmp cs:Self, 0 jz @@1 push es ; Added -by- Mr. Lei mov es, cs:Self ; Aug 24, 1993 mov al, es:Copies inc al ; Total RI copies push ax ; Set es = current mcb mov ax, cs dec ax mov es, ax pop ax mov cx, 5 ; Search end of file name mov bx, 8 @@10: inc bx cmp byte ptr es:[bx], 20h jz @@20 cmp byte ptr es:[bx], 0ffh jz @@20 cmp byte ptr es:[bx], 00h jz @@20 loop @@10 @@20: ; Set current RI no mov byte ptr es:[bx], ':' ; "RI:2" mov byte ptr es:[bx+1], al cmp bx, 8+7 jnb @@30 mov 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 ds push cs pop es xor si,si ; Vectors mov ds,si movsw movsw xor bx, bx mov cx,00ffh @@0: lodsw xchg dx, ax lodsw cmp ax, es:[di-2] jnz @@1 cmp dx, es:[di-4] jz @@2 @@1: or bx, bx jz @@3 call SaveCounter @@3: xchg dx, ax stosw xchg dx, ax stosw loop @@0 jmp @@4 @@2: inc bx loop @@0 call SaveCounter @@4: pop ds ret ; ;----------------------------------------------------------------------------- BackupCVTchain: mov ax, 'VC' stosw push ax push bx push cx push ds push es mov ah, 52h int 21h ; ES:BX -- DOS table as described below ; -------------------------------------------------------------------- push es ; DPB chains push bx lds si, es:[bx] push cs pop es mov ax, si stosw mov ax, ds stosw mov bx, cs:cvtOfs xor cx, cx @@1: mov al, ds:[si+1] stosb mov ax, ds:[si+bx+12h] stosw mov ax, ds:[si+bx+14h] stosw inc cx lds si, ds:[si+bx+18h] cmp si, -1 jnz @@1 ; mov ax, 5 ; mul cl ; add ax, 4 ; add cs:tsrLength, ax pop bx pop es ; -------------------------------------------------------------------- push es ; DCB file control blocks push bx les bx, es:[bx+4] @@11: cmp word ptr es:[bx], -1 jz @@10 les bx, es:[bx] jmp @@11 @@10: mov ax, es xchg ax, bx push cs pop es stosw xchg ax, bx stosw pop bx pop es ; add cs:tsrLength, 4 ; --------------------------------------------------------------------- push es ; Device Driver Chains pop ds add bx, 22h mov si, bx ; NUL pop es mov ax, si stosw mov ax, ds stosw xor cx, cx xor bx, bx @@9: push si mov cl, 5 rep movsw inc bx pop si lds si, ds:[si] mov ax, si inc ax jnz @@9 pop ds pop cx pop bx pop ax ret ; ---------------------------------------------------------------------------- BackupBiosData: mov ax, '--' stosw push ds push si mov si, 40h mov ds, si mov si, 10h movsw mov si, 0a8h movsw movsw mov si, 49h mov cx, 1dh rep movsb mov si, 0f0h mov cx, 8 rep movsw pop si pop ds ret ; --------------------------------------------------------------------------- BackupMemoryManager: push cs pop es push ds push es call SaveXMSstatus call SaveEMSstatus pop es pop ds ret ;--------------------------------------------------------------------- SaveEMSstatus: test cs:status, EMSbit jnz @@1 ret @@1: mov ax, 'ME' stosw inc di inc di push di mov ah, 4dh int 67h pop di mov es:[di-2], bx shl bx, 1 shl bx, 1 add di, bx ret ; ------------------------------------------------------------------- SaveXMSstatus: call XMS_test test cs:status, XMSbit jnz @@1 ret @@1: mov ax, 'MX' stosw mov dx, 1 call XMS_alloc jnz @@_1 xor cx, cx ; XMS alloc failure stosw ret @@_1: push dx sub dx, MaxHandles  10 @@2: push dx call XMS_Lock pop dx jnz @@3 cmp bl, 0a2h jnz @@4 add dx, 10 jmp @@2 @@3: push dx call XMS_unlock pop dx @@4: mov cs:handle_begin, dx pop dx push dx call XMS_bstat xor cx, cx mov cl, bl inc cx pop dx call XMS_Free mov dx, cs:Handle_begin push cx push cs pop es mov ax, cx stosw @@5: push dx call XMS_Lock pop dx jnz @@6 cmp bl, 0a2h ; Handle invalid jz @@7 @@6: call XMS_unlock add dx, 10 jmp @@5 @@7: mov ax, dx stosw add dx, 10 loop @@5 pop cx ret ; ------------------------------------------------------------------ XMS_test: push es mov ax, 4300h int 2fh cmp al, 80h jnz @@9 mov 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, 0 call dword ptr cs:xms_control mov hma_exist, dl ret hma_exist db 0 XMS_alloc: mov ah, 9 call dword ptr cs:xms_control or ax, ax ret XMS_lock: mov ah, 0ch call dword ptr cs:xms_control or ax, ax ret XMS_unlock: mov ah, 0dh call dword ptr cs:xms_control or ax, ax ret XMS_bstat: mov ah, 0eh call dword ptr cs:xms_control or ax, ax ret XMS_free: mov ah, 0ah call dword ptr cs:xms_control or ax, ax ret ; ---------------------------------------------------------------------------- EMS_test: push cs pop ds mov dx, offset EMMname mov ax, 3d00h int 21h jc @@2 mov bx, ax mov ah, 3eh int 21h or cs:Status, EMSbit @@2: ret EMMname db 'EMMXXXX0',0 ; ----------------------------------------------------------------------------- SetHotKey: xor bx, bx lodsb push ax @@1: lodsb cmp al, 0dh jz @@9 cmp al, 'C' jnz @@2 or bl, LeftCtrl jmp @@1 @@2: cmp al, 'c' jnz @@3 or bl, RightCtrl jmp @@1 @@3: cmp al, 'A' jnz @@4 or bl, LeftAlt jmp @@1 @@4: cmp al, 'a' jnz @@5 or bl, RightAlt jmp @@1 @@5: cmp al, 'S' jnz @@6 or bl, LeftShift jmp @@1 @@6: cmp al, 's' jnz @@7 or bl, RightShift jmp @@1 @@7: pop ax jmp @Err @@9: mov cs:HotKey, bl pop ax mov cs:AuxHotKey, 2dh ; 'X' scan key cmp al, '1' jz @@29 mov cs:AuxHotKey, 0 @@29: cmp cs:Self, 0 jz @@30 push es mov 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 @@10 push cs pop ds mov bx, ax mov cx, 4 mov dx, 100h mov ah, 40h int 21h jc @@10 mov ax, 4200h xor cx, cx mov dx, 17h int 21h jc @@10 mov cx, 1 mov dx, offset AuxHotKey mov ah, 40h int 21h jc @@10 mov ah, 3eh int 21h @@10: ret ; ----------------------------------------------------------------------- GetRunFileName: ; Return: ; DS:DX Pointer of this run file name ASCIIZ string push ax push bx push cx push si push di push es push cs pop es mov ax, es:[2ch] mov es, ax xor di, di mov cx, 1000h xor al, al @@1: repnz scasb cmp es:[di], al loopnz @@1 mov dx, di add dx, 3 push es pop ds pop es pop di pop si pop cx pop bx pop ax ret ; --------------------------------------------------------------------------- GetMachineID: push es mov KBD102,True mov ax,40h mov es,ax test byte ptr es:[96h], 00010000b jnz @@1 mov Kbd102,False @@1: xor ax,ax dec ax mov es,ax mov al,es:[0eh] mov cs:MachineID, al pop es ret ; --------------------------------------------------------------------------- ModifyHotKeyPrompt: cmp cs:Kbd102, True jz @@9 push cs pop es push cs pop ds mov cx, 124 mov si, offset KMsg2 mov di, offset KMsg1 rep movsb @@9: cmp cs:MachineID, 0fch jna @@10 mov cs:clsStrcolor, 70h ; Mono mov cs:clsStr, 70h @@10: ret ; --------------------------------------------------------------------------- PrintHotKeyPrompt: Print Msg1 mov al, cs:HotKey mov ah, al shr al, 1 shr al, 1 and ax, 33ch or al, ah mov dx, offset KeyMsg @@40: or ax, ax ; Mr. Lei 4/25/1993 jz @@_42 shr al, 1 push ax jnc @@41 push ax call ColorDisplayStr ; mov ah, 9 ; int 21h pop ax or al, al jz @@42 push dx mov dx, offset PlusMsg call ColorDisplayStr ; Print PlusMsg pop dx @@41: add dx, 12 pop ax jmp @@40 @@42: pop ax @@_42: cmp cs:AuxHotKey, 0 jz @@43 cmp cs:HotKey, 0 ; Mr. Lei jz @@_43 mov dx, offset PlusMsg call ColorDisplayStr ; Print PlusMsg @@_43: mov dx, offset AuxHotKeyName call ColorDisplayStr ; Print AuxHotKeyName @@43: Print crlf ret ColorDisplayStr: push bx push cx push dx push si mov bl, 0fh mov si, dx xor bh, bh mov cx, 1 @@1: lodsb cmp al, '$' jz @@2 or al, al jz @@2 push cx mov ah, 09h int 10h mov ah, 3 int 10h inc dl mov ah, 2 int 10h pop cx jmp short @@1 @@2: pop si pop dx pop cx pop bx ret ; --------------------------------------------------------------------------- CmpSideKick: xor ax, ax mov es, ax les bx, es:[20h] cmp word ptr es:[bx-4], 4b53h jnz @@1 cmp word ptr es:[bx-2], 4942h jz @@2 @@1: mov es, ax les bx, es:[94h] cmp word ptr es:[bx-2], 4b53h jz @@2 ret @@2: or cs:Status, SKbit ret ; --------------------------------------------------------------------------- CmpDosVer: mov ah, 30h int 21h cmp al, 3 jb @@1 cmp al, 3 jna @@2 mov cs:cvtOfs, 1 ret @@2: mov cs:cvtOfs, 0 ret @@1: Print DosVerErr mov ax, 4cffh int 21h DosVerErr db 'Sorry, DOS version too lower !',0dh,0ah,'$' HotKeyValid: cmp cs:HotKey, 0 jnz @@_1 cmp cs:AuxHotKey, 0 jnz @@_1 Print HotKeyErr mov ax, 4cfeh int 21h @@_1: ret HotKeyErr db 'Sorry, please setup hotkey again. ',0dh,0ah,'$' eof: ends end Start ; ------------- The End ! ---------------------------------------------------     

最后，推荐一本阿里P8大佬撰写的算法笔记，刷完应该是超过雷军了

我是@袁吴范，一个教你如何提升认知、快速晋升的90后技术总监。

雷军22年前写的汇编代码，大家看看牛不牛：

电脑和编程是雷军人生中最大的兴趣，关于电脑和编程，雷军是这么说的：

程序员活在自己想象的王国里！
我刚接触电脑就发现电脑的妙处，电脑远没有人那么复杂。
如果你的程序写得好，你就可以和电脑处好关系，就可以指挥电脑干你想干的事。
这个时候你是十足的主宰。
每每你坐在电脑面前，你就是在你的王国里巡行，这样的日子简直就是天堂般的日子。
电脑里的世界很大，编程人是活在自己想象的王国里。
你可以想象到电脑里细微到每一个字节、每一个比特的东西。
我爱编程这个工作，可以肯定我会干上一辈子

正是因为热爱，所以雷军一干就是10多年。

雷军认为编程是技术，也是一种艺术，程序员需要有类似艺术家对艺术一般的追求，才能真正打造出好的产品！

雷军的技术为什么这么牛逼？他在一次采访中说过一段话：我尤其喜欢阅读计算机经典书籍，那是一种如饥似渴的感觉！

另外我把大学和工作中用的经典电子书库（包含数据结构、操作系统、C++/C、网络经典、前端编程经典、Java相关、程序员认知、职场发展）、面试找工作的资料汇总都打包放在这了，这套资源可不是一般那种网上找的资源，是伴随我从学生一路成长为腾讯高级开发工程师，360技术经理、360技术总监、中小公司CTO的打包全套，非常宝贵！点击下方链接直达获取：

点击下方链接直接获取：

雷军20年前写过一篇文章：《我会当一辈子程序员》。

看完你会知道，编程在雷军的眼里是什么样子。

有的人学习编程技术，是把高级程序员做为追求的目标，甚至是终身的奋斗目标。
后来参与了真正的商品化软件开发后，反而困惑了，茫然了。
一个人只要有韧性和灵性，有机会接触并学习电脑的编程技术，就会成为一个不错的程序员。
刚开始写程序，这时候学得多的人写的好，到了后来，大家都上了一个层次。
谁写的好只取决于这个人是否细心、有韧性、有灵性。掌握多一点或少一点，很快就能补上。
成为一个高级程序员并不是件困难的事。
当我上学的时候，高级程序员也曾是我的目标，我希望我的技术能得到别人的承认。
后来发现无论多么高级的程序员都没用。
关键是你是否能够出想法出产品，你的劳动是否能被社会承认，能为社会创造财富。
成为高级程序员绝对不是追求的目标。
编程不仅仅是技术，还是艺术。
有人认为编程是一种熟练工种，也有人把编程说成是艺术创作。这两种意见争论比较激烈。
我们换个工种来看，石匠应该是熟练工种，属于工人，更和艺术似乎沾不上边。
但正是这些石匠，给我们留下多少文物古迹，如乐山大佛、莫高窟等等。
应该说这些石匠给我们留下了无穷的文化财产。
现代软件工业已具相当规模，很多软件的完成需要的是大兵团作战。
一名普通程序员接受编写某一模块的任务后，往往只是写代码，发挥的余地很小。
在大项目中，很多程序员只能了解到和自己所编模块相关的很局部的细节。
另外还受到开发环境的限制，真的很难体会到自己在从事”艺术”创造，更多的时候是感到自己在从事重体力劳动。
有的时候还担心自己苦苦参与的这个项目究竟有没有意义，是不是在同类产品中有竞争力，会不会开发出来以后就因为硬件的发展，操作系统的换代而过时……
我认为编程的工作和石匠比较相似，有技术活，更多的是体力活。
不管怎么说，写出一个好软件不是一件容易的事。
这两种想法都有片面性，编程应该说两种属性都有。
编程不仅仅是技术，也还是艺术。编程是技术活，才有可能大规模进行，才会有软件工程和软件工厂。
也正是编程是艺术，才会有如此多的好产品，让大家如痴如醉。

关于雷军的代码水平，他自己也说过：

另外，程序员多刷算法题好处多多，想要跟雷军一样长期在编程世界里遨游，先精通算法简直是必须的，算法厉害的人进大厂非常容易，再次推荐这本阿里P8大佬撰写的Leetcode刷题笔记，它帮助我身边不少朋友加入大厂：

祝大家前程似锦，在编码的道路上一马平川。

看看这本书的目录和排版！相当经典！

PS:感谢大家的阅读，觉得不错双击点赞下呀，这里也送大家一套我花1个月时间整理的超级硬核书单，总计200本书籍，希望对大家有用:

点个赞，一键三连呗，硬核码字不易。

雷军的优秀是毋庸置疑的，在武汉大学，他两年学完计算机系四年的课程，大二就完成了毕业设计，汇编语言更是武大三十年以来仅有两个满分之一，大三就开始写加密软件、杀毒软件、财务软件、CAD软件等。至于老雷的代码水平，大家看看吧，

1. ;
2. ; RI.ASM Revision 2.12 [ July 12, 1994 ]
3. Revision equ 'V2.12 '
4. ;
5. ;
6. ;
7. ; RAMinit Release 2.0
8. ; Copyright (c) 1989-1994 by Yellow Rose Software Co.
9. ; Written by Mr. Leijun
10. ;
11. ; Function:
12. ; Press HotKey to remove all TSR program after this program
13. ;
14. ;
15. 
    
16. ; ..........................................................................
17. ; Removed Softwares by RI:
18. ; SPDOS v6.0F, WPS v3.0F
19. ; Game Busters III, IV
20. ; NETX ( Novell 3.11 )
21. ; PC-CACHE
22. ; Norton Cache
23. ; Microsoft SmartDrv
24. ; SideKick 1.56A
25. ; MOUSE Driver
26. ; Crazy (Monochrome simulate CGA program)
27. ; RAMBIOS v2.0
28. ; 386MAX Version 6.01
29. ; ..........................................................................
30. ; No cancel softwares:
31. ; Windows 3.1 MSD
32. ;
33. ; No removed TSR softwares:
34. ; MS-DOS fastopen
35. ; Buffers, Files ... (QEMM 6.0)
36. ; QCache (386MAX 6.01)
37. ; ..........................................................................
38. ;
39. COMMENT
40. 
    
41. V2.04 Use mouse driver software reset function to initiation mouse
42. 2/17/1993 by Mr. Lei and Mr. Feng
43. V2.05 RI cannot work in Windows DOS prompt
44. 3/9/1993 by Mr. Lei
45. V2.06 1. When XMS cannot allocate 1K memory, RI halts.
46. 2. RI repeat deallocates EMS memory.
47. V2.07 HotKey Setup Error
48. 4/25/1993 by Mr. Lei
49. V2.08 KB Buffer
50. V2.10 1. Release high memory blocks (EMM386 QEMM386 S-ICE 386MAX)
51. 2. RI copies flag
52. V2.12 1. Exists a critical error in Init 8259 procedure
53. 2. Save [40:F0--FF] user data area
54. 
    
55. 
    
56. 
    
57. dosseg
58. .model tiny
59. .code
60. locals @@
61. org 100h
62. 
    
63. Start: jmp Main
64. org 103h
65. 
    
66. True equ 1
67. False equ 0
68. MaxHandles equ 100h
69. 
    
70. INT3 macro
71. out 0ffh,al
72. endm
73. ;
74. ; HotKey Status Test Var
75. ; --------------- ---------------
76. ;
77. ; 7 6 5 4 3 2 1 0 417 418 496
78. ; . . x . x . . . Left Alt is pressed 8 2
79. ; x . . . x . . . Right Alt is pressed 8 8
80. ; . . . x . x . . Left Ctrl is pressed 4 1
81. ; . x . . . x . . Right Ctrl is pressed 4 4
82. ; . . . . . . x . Left Shift is pressed 2
83. ; . . . . . . . x Right Shift is pressed 1
84. ;
85. LeftAlt equ 00101000b
86. RightAlt equ 10001000b
87. LeftCtrl equ 00010100b
88. RightCtrl equ 01000100b
89. LeftShift equ 00000010b
90. RightShift equ 00000001b
91. HotKey db LeftCtrl or RightCtrl
92. 
    
93. DataBegin dw 0
94. NextDataSeg dw 0ffffh
95. oldInt2F_addr dw 0, 0
96. XMS_control dw 0, 0
97. Handle_begin dw 0
98. cvtOfs dw 0 ; DOS 3.0 equ 0 and above DOS 4.0 is 1
99. org 104h
100. db 0dh
101. db Revision
102. db ??date
103. db 26
104. org 114h
105. tsrLength dw 0
106. MachineID db 0FCh ; IBM PC/AT
107. 
     
108. AuxHotKey db 0 ; 2Dh ; 'X' Scan Code
109. AuxHotKeyName db 'X$ '
110. Power db True
111. Flag db '!'
112. Kbd102 db 0
113. NoFlag db 0
114. StopFlag db 1
115. DosEnv dw 0
116. WorkSeg dw 0
117. PrevDataSeg dw 0
118. Copies db '1'
119. old_8259 db 0 ; 21h port
120. db 0 ; a1h port
121. 
     
122. Status dw 0
123. XMSbit equ 00000001b
124. EMSbit equ 00000010b
125. SKbit equ 10000000b
126. 
     
127. GoINT1C: db 0eah
128. oldInt1C_addr dw 0, 0
129. newINT1C:
130. test cs:Status, SKbit
131. jnz GoINT1C
132. cmp cs:StopFlag, 0
133. jz @@0
134. ;
135. ; Mr. Lei 2/8/1993
136. ; Problem: if WPS quit and reenter, old RI cann't control keyboard. ;
137. push ds
138. push ax
139. xor ax, ax
140. mov ds, ax
141. mov ax, ds:[94]
142. cmp ax, offset NewInt9
143. pop ax
144. pop ds
145. jnz GoINT1C
146. mov cs:StopFlag, 0
147. 
     
148. @@0: push ax
149. push ds
150. push es
151. xor ax, ax
152. mov ds, ax
153. mov es, ds:[94+2]
154. cmp word ptr es:[101h], 'IE' ; 'LEI'
155. jz @@1
156. cli
157. mov cs:StopFlag, 1
158. mov ax, ds:[94]
159. mov cs:oldINT9_addr2, ax
160. mov ax, ds:[94+2]
161. mov cs:oldINT9_addr2[2], ax
162. mov ds:[94], offset newINT9_2
163. mov ds:[94+2], cs
164. sti
165. @@1: pop es
166. pop ds
167. pop ax
168. jmp GoINT1C
169. 
     
170. ; ----------------------------------------------------------------------
171. ; INT2F Func
172. ;
173. ; AX = C0D7h Return RI segment in AX
174. ; AX = C0D8h Removes all TSR programs after RI
175. ; AX = C0D9h Removes all TSR programs include RI
176. ; AX = C0DAh Removes all RI copies
177. ; ----------------------------------------------------------------------
178. 
     
179. newINT2F:
180. cmp ax, 0c0d7h ; LEI Hanzi GB Code
181. jnz @@1
182. push cs
183. pop ax
184. iret
185. @@1: cmp ax, 0c0d7h+1
186. jnz @@2
187. jmp KeepSelf
188. @@2: cmp ax, 0c0d7h+2
189. jnz @@3
190. jmp NoKeepSelf
191. @@3: cmp ax, 0c0d7h+3
192. jnz @@9
193. mov cs:NextDataSeg, -1
194. mov cs:Copies, '1'
195. jmp NoKeepSelf
196. @@9: jmp dword ptr cs:oldInt2F_addr
197. 
     
198. 
     
199. CallInt9:
200. ret
201. 
     
202. 
     
203. newINT9_2:
204. mov cs:NoFlag, 1
205. pushf
206. db 9ah ; call far ptr oldint9_addr
207. oldInt9_Addr2 dw 0, 0
208. jmp newINT9_proc
209. 
     
210. newINT9:
211. pushf
212. db 9ah ; call far ptr oldint9_addr
213. oldInt9_Addr dw 0, 0 cmp cs:NoFlag, 0
214. jz newINT9_proc
215. mov cs:NoFlag, 0
216. iret
217. newINT9_proc:
218. cmp cs:Flag, '!' ; busy ?
219. jnz @@0
220. iret
221. @@0:
222. mov cs:Flag, '!' ; set busy flag
223. push ax ; cmp hot key
224. push bx
225. push es
226. mov ax,40h
227. mov es,ax
228. 
     
229. cmp cs:AuxHotKey, 0
230. jz @@_1
231. mov bx, es:[1ah]
232. cmp bx, es:[1ch]
233. jz @@10
234. push bx
235. mov bl, es:[bx+1]
236. cmp bl, cs:AuxHotKey
237. pop bx
238. jnz @@10
239. @@_1:
240. mov ah,es:[17h] ; test CTRL SHIFT ALT
241. mov al,cs:HotKey
242. push ax
243. and ax,0f0fh
244. cmp al,ah
245. pop ax
246. jnz @@10 cmp cs:Kbd102, True
247. jnz @@1
248. shr al, 1
249. shr al, 1
250. shr al, 1
251. shr al, 1
252. push ax
253. mov ah, es:[18h]
254. and ax, 303h
255. cmp al, ah
256. pop ax
257. jnz @@10
258. mov ah, es:[96h]
259. shr ax, 1
260. shr ax, 1
261. and ax, 303h
262. cmp al, ah
263. jnz @@10 cmp cs:AuxHotKey, 0
264. jz @@_3
265. inc bx
266. inc bx
267. cmp bx, 3eh
268. jb @@_2
269. mov bx, 1eh
270. @@_2:
271. mov es:[1ah], bx
272. @@_3:
273. call IsWinDos
274. or ax, ax
275. jz @@1
276. call Beep
277. @@10:
278. sti
279. pop es
280. pop bx
281. pop ax
282. mov cs:Flag, ' ' ; no busy
283. iret
284. @@1: ; OK
285. pop es
286. pop bx
287. pop ax
288. 
     
289. KeepSelf:
290. call RemoveTSR
291. push es
292. mov es,cs:WorkSeg
293. mov dx,es:tsrLength
294. mov di,dx
295. mov al,0h ; Aug 24, 1993
296. mov cx,100h
297. rep stosb
298. pop es
299. int 27h
300. 
     
301. NoKeepSelf:
302. mov ax,0e07h
303. int 10h
304. mov cs:clsStr, 47h ; Color (White in Red)
305. call RemoveTSR
306. dec cs:Copies
307. call RestoreSelfIntVec
308. push es
309. cmp cs:PrevDataSeg, 0
310. jz @@1
311. mov es, cs:PrevDataSeg
312. mov es:NextDataSeg, -1
313. @@1: pop es
314. mov ax, 4c00h
315. int 21h
316. 
     
317. ; ---------------------------------------------------------------------------
318. 
     
319. IsWinDOS:
320. mov ax, 1600h
321. int 2fh
322. cmp al, 01h
323. jz @@9 cmp al, 0ffh
324. jz @@9 ; Windows/386 Version 2.X
325. cmp al, 00h
326. jz @@1 cmp al, 80h
327. jnz @@9 ; Windows 3 in enhanced mode
328. ; Version number in AL/AH
329. @@1:
330. mov ax, 4680h
331. int 2fh
332. cmp al, 80h
333. jnz @@9
334. xor ax, ax
335. jmp @@10
336. @@9: mov ax, 1
337. @@10: ret
338. 
     
339. ; -----------------------------------------------------------------------
340. RestoreSelfIntVec:
341. cmp Copies, '0'
342. jz @@0
343. ret
344. @@0:
345. cli
346. push cs
347. pop ds
348. xor ax, ax
349. mov es, ax
350. mov si, offset oldInt9_Addr
351. mov di, 94
352. movsw
353. movsw
354. mov si, offset oldInt2F_Addr
355. mov di, 2Fh4
356. movsw
357. movsw
358. mov si, offset oldInt1C_Addr
359. mov di, 1Ch4
360. movsw
361. movsw
362. sti
363. ret
364. 
     
365. ; ------------- KERNEL PROGRAM ----------------------------------------------
366. RemoveTSR:
367. pop ax
368. cli ; Set stack
369. mov sp, cs
370. mov ss, sp
371. mov sp, 100h
372. sti
373. push ax
374. 
     
375. cmp cs:Power, True
376. jnz @@1
377. call Init8259
378. @@1:
379. push cs
380. pop ds
381. @@_0:
382. mov ax,ds:NextDataSeg
383. cmp ax, -1
384. jz @@_1
385. mov cs:PrevDataSeg, ds
386. mov ds, ax
387. jmp @@_0
388. @@_1: mov si,ds:DataBegin
389. mov cs:WorkSeg, ds
390. lodsw
391. cmp ax, 'XX'
392. jz @@_2
393. call Beep
394. ret
395. @@_2:
396. call RestoreEnvStr
397. call RestoreMCB ; restore current mcb
398. call CloseFiles
399. call RestorePort
400. call RestoreLEDs
401. call RestoreVecList ; Restore vectors list
402. call RestoreFloppyParam
403. cmp cs:Power, True
404. jnz @@2
405. call RestoreCVTchain ; Restore cvt chain
406. call RestoreMemoryManager
407. @@2:
408. call RestoreBiosData
409. call Enable8259
410. mov ah, 1 int 16h
411. 
     
412. call RestoreClockSpeed
413. call CloseSpeaker
414. call ResetDisk
415. call UpdateTime
416. 
     
417. call ClosePRN
418. mov bx,cs:WorkSeg
419. mov ah,50h
420. int 21h ; Set PSP segment
421. mov ax,3 int 10h ; Set display mode
422. 
     
423. call InitPRN
424. call InitMouse
425. mov al, cs:Copies
426. cmp al, '1'
427. ja @@_sh1
428. mov cs:ShowCopies, ''
429. jmp @@_sh2
430. @@_sh1: mov cs:ShowCopies, al
431. @@_sh2:
432. mov si, offset clsStr
433. call ColorPrintStr
434. mov cs:Flag, ' ' ; no busy
435. cmp Copies, '1'
436. jnz @@_end
437. mov cs:StopFlag, 0
438. @@_end:
439. call ClearKB_buffer
440. ret
441. 
     
442. Beep:
443. mov ax,0e07h
444. int 10h
445. ret
446. 
     
447. ; #########################################################################
448. 
     
449. ClearKB_Buffer:
450. push es
451. push bx
452. mov bx, 0040h
453. mov es, bx
454. cli
455. mov bx, es:[1ah]
456. mov es:[1ch], bx
457. sti
458. pop bx
459. pop es
460. ret
461. 
     
462. 
     
463. Init8259:
464. ; cmp cs:Copies, '1'
465. ; jz @@1
466. ; ret
467. @@1:
468. cmp cs:MachineID, 0fch
469. ja @@pc_xt
470. @@AT:
471. mov bx,870h ;
472. mov al,0 ;
473. out 0F1h,al ;
474. jcxz $+2
475. jcxz $+2
476. mov al,11h ; ICW1
477. out 0A0h,al
478. jcxz $+2
479. jcxz $+2
480. out 20h,al
481. jcxz $+2
482. jcxz $+2
483. mov al,bl ; ICW2
484. out 0A1h,al
485. jcxz $+2
486. jcxz $+2
487. mov al,bh
488. out 21h,al
489. jcxz $+2
490. jcxz $+2
491. mov al,2 ; ICW3
492. out 0A1h,al
493. jcxz $+2
494. jcxz $+2
495. mov al,4
496. out 21h,al
497. jcxz $+2
498. jcxz $+2
499. mov al,1 ; ICW4
500. out 0A1h,al
501. jcxz $+2
502. jcxz $+2
503. out 21h,al
504. jcxz $+2
505. jcxz $+2
506. mov al,0FFh ; OCW1
507. out 0A1h,al
508. jcxz $+2
509. jcxz $+2
510. out 21h,al
511. ret
512. @@PC_XT:
513. mov al,13h ; ICW1
514. out 20h,al
515. jcxz $+2
516. jcxz $+2
517. mov al,8 ; ICW2
518. out 21h,al
519. jcxz $+2
520. jcxz $+2
521. mov al,9 ; ICW4
522. out 21h,al
523. jcxz $+2
524. jcxz $+2
525. mov al,0FFh ; OCW1
526. out 21h,al
527. ret
528. 
     
529. Enable8259:
530. mov ax, word ptr cs:old_8259
531. out 021h,al
532. jcxz $+2
533. jcxz $+2
534. mov al,ah
535. out 0a1h,al ; DEC PC Bus Mouse
536. ret ; July 1994 by Mr. Lei
537. 
     
538. ; -------------------------------------------------------------------------
539. 
     
540. RestoreBiosData:
541. lodsw
542. cmp ax, '--'
543. jz @@1
544. call Beep
545. ret
546. @@1: push es
547. push di
548. mov di, 40h
549. mov es, di
550. 
     
551. mov di, 10h
552. movsw
553. mov di, 0a8h ; [40h:a8h]
554. movsw
555. movsw
556. mov di, 49h
557. mov cx, 1dh
558. rep movsb
559. 
     
560. mov di, 0f0h ; User data
561. mov cx, 8
562. rep movsw
563. 
     
564. pop di
565. pop es
566. ret
567. 
     
568. ; -------------------------------------------------------------------------
569. 
     
570. RestoreMCB:
571. push ds
572. push es
573. lodsw ; 'MZ'
574. @@0: lodsw
575. cmp ax, 'MM'
576. jz @@1
577. mov es,ax
578. xor di,di
579. movsb
580. movsw
581. movsw
582. inc ax
583. mov bx, ds
584. cmp ax, bx
585. jz @@10
586. mov byte ptr es:[8], 0 ; Aug 24, 1993
587. @@10: cmp byte ptr es:[0], 'Z'
588. jnz @@0
589. mov byte ptr es:[10h], 0
590. jmp @@0
591. @@1:
592. pop es
593. pop ds
594. ret
595. 
     
596. ; -------------------------------------------------------------------------
597. CloseFiles:
598. mov ax, 5 ; Begin handle
599. push ds
600. push si
601. mov cx, 15 ; Max handle
602. sub cx, ax
603. inc cx
604. mov bx, ax
605. @@1: push bx
606. push cx
607. mov ah, 3eh
608. int 21h
609. pop cx
610. pop bx
611. inc bx
612. loop @@1
613. pop si
614. pop ds
615. ret
616. 
     
617. ; -------------------------------------------------------------------------
618. RestorePort:
619. mov di, 40h ; restore port
620. mov es, di
621. xor di, di
622. mov cx, 8
623. rep movsw
624. ret
625. 
     
626. ; -------------------------------------------------------------------------
627. RestoreLEDs:
628. lodsb
629. and al, 11110000b ; LED status
630. mov ah, es:[17h]
631. and ah, 00001111b
632. or ah, al
633. and ah, 0f0h ; Clear CTRL ALT SHIFT
634. mov es:[17h], ah
635. ret
636. 
     
637. ; -------------------------------------------------------------------------
638. RestoreEnvStr:
639. lodsw
640. push si
641. push di
642. push ds
643. push es
644. mov es, cs:DosEnv
645. mov ds, ax
646. xor si, si
647. mov di, si
648. @@0: lodsb
649. or al, al
650. jnz @@1 cmp byte ptr ds:[si], 0
651. jz @@2
652. @@1: stosb
653. jmp @@0
654. @@2: stosb
655. stosb
656. pop es
657. pop ds
658. pop di
659. pop si
660. ret
661. 
     
662. ; -----------------------------------------------------------------------
663. RestoreVecList:
664. xor ax,ax
665. mov di,ax
666. mov es,ax
667. mov cx,100h
668. @@0: lodsw
669. xchg dx, ax
670. lodsw
671. cmp dx, 'EL'
672. jnz @@1 cmp al, 'I'
673. jnz @@1
674. sub cl, ah
675. push cx
676. mov cl, ah
677. mov ax, es:[di-4]
678. mov dx, es:[di-2]
679. @@a: stosw
680. xchg ax, dx
681. stosw
682. xchg ax, dx
683. loop @@a
684. pop cx
685. or cx, cx
686. jz @@9
687. jmp @@0
688. @@1:
689. xchg ax, dx
690. stosw
691. xchg ax, dx
692. stosw
693. loop @@0
694. @@9:
695. ret
696. 
     
697. ;----------------------------------------------------------------------------
698. RestoreFloppyParam: ; Mr. Lei 2/10/1992
699. push es
700. push ax
701. xor ax, ax
702. mov es, ax
703. mov byte ptr es:[525h], 2
704. pop ax
705. pop es
706. ret
707. 
     
708. ;---------------------------------------------------------------------------
709. RestoreCVTchain:
710. lodsw
711. cmp ax, 'VC'
712. jz @@_0
713. call Beep
714. ret
715. @@_0:
716. push ax
717. push cx
718. push es
719. 
     
720. ; -----------------------------------------------------------------
721. lodsw ; DPB
722. mov di, ax
723. lodsw
724. mov es, ax
725. @@1: lodsb
726. inc di
727. stosb
728. add di, cs:cvtOfs
729. add di, 10h
730. movsw
731. movsw
732. les di, es:[di+2]
733. cmp di, -1
734. jnz @@1
735. 
     
736. ; -----------------------------------------------------------------
737. lodsw ; DCB
738. mov di, ax
739. lodsw
740. mov es, ax
741. xor ax, ax
742. dec ax
743. stosw
744. 
     
745. ; -----------------------------------------------------------------
746. lodsw ; Device Driver Chain
747. mov di, ax
748. lodsw
749. mov es, ax
750. xor cx, cx
751. @@9: push di
752. mov cl, 5
753. rep movsw
754. pop di
755. les di, es:[di]
756. mov ax, di
757. inc ax
758. jnz @@9
759. pop es
760. pop cx
761. pop ax
762. ret
763. 
     
764. ; ----------------------------------------------------------------------------
765. RestoreMemoryManager:
766. test cs:Status, XMSbit
767. jz @@1
768. call LoadXMSstatus
769. @@1:
770. test cs:Status, EMSbit
771. jz @@2
772. call LoadEMSstatus
773. @@2:
774. ret
775. 
     
776. 
     
777. LoadEMSstatus:
778. lodsw
779. cmp ax, 'ME'
780. jz @@_0
781. call Beep
782. ret
783. @@_0:
784. lodsw
785. mov cx, ax
786. xor dx, dx
787. @@_1: push ds
788. push si
789. push dx
790. push cx
791. 
     
792. @@0: cmp dx, ds:[si]
793. jz @@1
794. add si, 4
795. loop @@0
796. 
     
797. push cx
798. mov cx, 5
799. @@0: mov ah, 45h ; Deallocate Handle and Memory
800. int 67h
801. or ah, ah
802. jz @@1
803. loop @@0
804. @@1: pop cx
805. 
     
806. @@1:
807. pop cx
808. pop dx
809. pop si
810. pop ds
811. inc dx
812. cmp dx, 100h
813. jb @@_1
814. shl cx, 1
815. shl cx, 1
816. add si, cx
817. ret
818. 
     
819. 
     
820. LoadXMSstatus:
821. lodsw
822. cmp ax, 'MX'
823. jz @@_0
824. call Beep
825. ret
826. @@_0:
827. lodsw
828. mov cx, ax
829. jcxz @@5
830. @@1:
831. lodsw
832. mov dx, ax
833. @@2: push dx
834. mov ah, 0ah ; free
835. call dword ptr cs:xms_control
836. or ax, ax
837. pop dx
838. jnz @@4 cmp bl, 0abh
839. jnz @@4
840. push dx
841. mov ah, 0dh ; unlock
842. call dword ptr cs:xms_control
843. or ax, ax
844. pop dx
845. jmp @@2
846. @@4: loop @@1
847. @@5: ret
848. endp
849. 
     
850. ; -----------------------------------------------------------------------
851. CloseSpeaker:
852. in al, 61h
853. and al, 0fch
854. out 61h, al
855. ret
856. 
     
857. ; -----------------------------------------------------------------------
858. RestoreClockSpeed:
859. mov al, 00110110b
860. out 43h, al
861. xor ax, ax
862. out 40h, al
863. out 40h, al
864. ret
865. 
     
866. ; -----------------------------------------------------------------------
867. ResetDisk:
868. xor ax, ax
869. xor dx, dx
870. int 13h ; Restore A
871. inc dx
872. int 13h ; Restore B
873. mov dl, 80h
874. int 13h ; Restore C
875. ret
876. 
     
877. 
     
878. 
     
879. ; --------------------------------------------------------------------------
880. ClosePRN:
881. mov ah, 51h ; Get PSP seg
882. int 21h
883. mov es, bx
884. mov ax, es:[16h] ; Prev PSP seg
885. cmp ax, bx
886. jnz @@9
887. mov ax, 3e00h ; COMMAND
888. mov bx, 4 int 21h
889. @@9:
890. ret
891. 
     
892. InitPRN:
893. mov ax, 3e00h
894. mov bx, 4 ; PRN
895. int 21h
896. mov ax, 3d01h
897. mov dx, offset PRNname
898. push cs
899. pop ds
900. int 21h
901. ret
902. PRNname db 'PRN',0
903. 
     
904. InitMouse: ; 2/16/1993 by Mr. Lei
905. push es
906. xor ax, ax
907. mov es, ax
908. cmp word ptr es:[33h4+2], 0
909. jz @@0 cmp word ptr es:[33h4], 0
910. jz @@0
911. mov ax, 21h
912. int 33h ; Hook Mouse Interrupt
913. @@0: pop es
914. ret
915. 
     
916. ; ------------- CMOS CLOCK set to System -----------------------------------
917. UpdateTime:
918. call GetRealTime
919. mov ah, 2dh
920. int 21h
921. ret
922. 
     
923. GetRealTime:
924. mov ah,2 int 1Ah
925. mov al,ch
926. call bcdxchg
927. mov ch,al
928. mov al,cl
929. call bcdxchg
930. mov cl,al
931. mov al,dh
932. call bcdxchg
933. mov dh,al
934. mov dl,0
935. ret
936. 
     
937. BCDxchg:
938. push ax
939. push cx
940. mov cl,4
941. shr al,cl
942. pop cx
943. mov bl,0Ah
944. mul bl
945. pop bx
946. and bl,0Fh
947. add al,bl
948. ret
949. 
     
950. ; -----------------------------------------------------------------------
951. ; Display string
952. ColorPrintStr:
953. lodsb
954. mov bh, al ; color
955. xor cx, cx
956. mov dx, 014fh
957. mov ax, 0600h
958. int 10h
959. 
     
960. mov ah, 02 ; GotoXY (0, 0)
961. xor dx, dx
962. mov bh, 0 int 10h
963. PrintStr:
964. push cs
965. pop ds
966. xor bx, bx
967. @@1: lodsb
968. cmp al, '$'
969. jz @@2
970. or al, al
971. jz @@2
972. mov ah, 0eh
973. int 10h
974. jmp short @@1
975. @@2: mov al, cs:clsStrcolor
976. mov cs:clsStr, al
977. ret
978. 
     
979. ; -----------------------------------------------------------------------
980. Self dw 0
981. clsStrcolor db 17h
982. clsStr db 17h ; Color (White in Blue)
983. db ' RAMinit Version 2.12 (c) 1989-1994 by KingSoft Ltd. Mr. Leijun'
984. db 0dh,0ah
985. db ' ['
986. ShowCopies db ''
987. db '] Activate...',0ah,0dh,'$'
988. 
     
989. endTSR equ $
990. mcbList equ offset endTSR + 2 + 2
991. vecList equ mcbList + 710 + 2 + 10h + 1 + 400h
992. devLink equ vecList + 4 + 5 26 + 4 + 10 30h + 4
993. xmsList equ devLink + 2 + MaxHandles 2
994. emsList equ xmsList + 4 + 1024
995. crtMode equ emsList + 2 + 1Dh + 4 + 10h
996. tsrLen equ crtMode + 1
997. ;
998. ; DOS Environment Reserved by RI
999. ; --------------------------------------------------
1000. ; Flag 'XX' 2 bytes
1001. ; Environment Segment 1 word
1002. ; Free MCBs <=710 bytes
1003. ; MCB segment 1 word
1004. ; MCB 5 bytes
1005. ; End flag 'MM' 1 word
1006. ; COM LPT ports 10h bytes
1007. ; LEDs status 1 bytes
1008. ; Packed vectors list <=400h bytes
1009. ; Flag 'CV' 2 bytes
1010. ; CVT First DPB pointer 4 bytes
1011. ; DPBs data <=526 bytes
1012. ; First DCB pointer 4 bytes
1013. ; Pointer to NUL 4 bytes
1014. ; All device driver datas <=30h10 bytes
1015. ; Flag 'XM' 2 bytes
1016. ; XMS free handle counter 2 bytes
1017. ; EMS free handle list <=100h4 bytes
1018. ; Flag 'EM' 2 bytes
1019. ; EMS free handle counter 2 bytes
1020. ; EMS free handle list <=1024 bytes
1021. ; EMS handle 1 word
1022. ; Number of pages 1 word
1023. ; Flag '--' 1 word
1024. ; Equipment List 1 word
1025. ; CRT 40:49h-66h 1dh bytes
1026. ; 40:A8h 1 dword
1027. ; BIOS User Data Area 40:F0--FF 10h bytes
1028. ; **
1029. ;
1030. main: jmp main0
1031. 
      
1032. Print Macro Str
1033. Lea dx, Str
1034. call DisplayStr
1035. endm
1036. 
      
1037. InstMsg db 'RAMinit Version 2.12 '
1038. db 'Copyright (c) 1989-1994 by KingSoft Ltd. ',0dh,0ah,'$'
1039. Msg0 db 'Already installed !',0dh,0ah,0ah
1040. db 'For Help, type "RI /?". ',0dh,0ah,'$'
1041. Msg_0 db 0ah,'Residents a new RAMinit copy [y/n] ? $'
1042. Msg_2 db 'OK, RI No.'
1043. Msg_RI db '2'
1044. db ' residents successful !', 0dh,0ah,'$'
1045. Msg1 db 'Activate with: $'
1046. KeyMsg db 'Right_Shift$'
1047. db 'Left_Shift$ '
1048. KMsg1 db 'Left_Ctrl$ '
1049. db 'Left_Alt$ '
1050. db 'Right_Ctrl$ '
1051. db 'Right_Alt$ '
1052. KMsg2 db 'Ctrl$ '
1053. db 'Alt$ '
1054. db 'Ctrl$ '
1055. db 'Alt$ '
1056. PlusMsg db ' + $'
1057. crlf db 0dh,0ah,'$'
1058. 
      
1059. HelpMsg db 'Programmed by Mr. Leijun Dec 1992', 0dh,0ah,0ah
1060. db 'Usage: RI [options]',0dh,0ah,0ah
1061. db '/H,/? Display this screen',0dh,0ah
1062. db '/CLS Removes all TSR programs after current RI',0dh,0ah
1063. db '/RET Removes TSR programs include current RI',0dh,0ah
1064. db '/NEW Residents a new data copy of current environment',0dh,0ah
1065. db '/ALL Removes all RI copies and all other tsr programs',0dh,0ah
1066. db '/Sxyy.. Define Hotkey x=AuxHotkey yy..=shift status',0dh,0ah
1067. db ' x=auxiliary hotkey (default is "X") ',0dh,0ah
1068. db ' x equ "1" means need AuxHotkey',0dh,0ah
1069. db ' yy..=shift status [CAScas]',0dh,0ah
1070. db ' C: Left Ctrl A: Left Alt S: Left Shift',0dh,0ah
1071. db ' c: Right Ctrl a: Right Alt s: Right Shift',0dh,0ah,0ah
1072. db 'Example: "RI /S1c" means Hotkey is Right_Ctrl+X',0dh,0ah
1073. db ' "RI /S0Cc" means HotKey is Left_Ctrl+Right_Ctrl',0dh,0ah
1074. db ' "RI /CLS" equals simply press hotkey',0dh,0ah
1075. db ' "RI /RET" Removes all TSRs after current RI and this RI',0dh,0ah
1076. db 0ah
1077. db 'Contact me for RAMinit problems: (01)2561155 Call 1997',0dh,0ah
1078. db '$'
1079. ErrMsg db 'ERROR: Invalid options !',0dh,0ah,0ah,'$'
1080. WinErr db 7, 'Sorry, I cannot work in Windows DOS environment.',0dh,0ah,'$'
1081. SetMsg db 7, 'Defines new Hotkey successful !',0dh,0ah,0ah,'$'
1082. tsrOK db False
1083. 
      
1084. Main0:
1085. cld
1086. Print instMsg
1087. call IsWinDos
1088. or ax, ax
1089. jz @@1
1090. Print WinErr
1091. mov ax, 4c00h
1092. int 21h
1093. @@1:
1094. call HotKeyValid
1095. mov cs:Status, 0
1096. call EMS_test
1097. call CmpDosVer
1098. call CmpSideKick
1099. call GetMachineID
1100. call ModifyHotKeyPrompt
1101. 
      
1102. mov ax, 0c0d7h
1103. int 2fh
1104. mov es, ax
1105. cmp word ptr es:[101h], 'IE' ; 'LEI'
1106. jnz @@0
1107. mov cs:Self, ax
1108. @@0:
1109. call CmdLine
1110. call PrintHotKeyPrompt
1111. 
      
1112. cmp cs:tsrOK, true
1113. jz @@2
1114. call tsrReplyOK
1115. @@2: cmp cs:tsrOK, true
1116. jnz @@_2
1117. call PrintCopies
1118. @@_2:
1119. mov word ptr cs:[100h], 'EL'
1120. mov byte ptr cs:[102h], 'I'
1121. 
      
1122. push cs
1123. pop es
1124. push cs
1125. pop ds
1126. std
1127. mov si, offset eof
1128. mov cx, eof - offset Here
1129. mov di, tsrLen
1130. add di, cx
1131. inc cx
1132. rep movsb
1133. cld
1134. mov bx, tsrLen
1135. jmp bx
1136. 
      
1137. Here:
1138. mov ax,cs
1139. mov es,ax
1140. mov di,offset endTSR
1141. mov cs:DataBegin, di
1142. mov cs:NextDataSeg, -1
1143. mov ax, 'XX'
1144. stosw
1145. in al, 0a1h
1146. mov ah, al
1147. in al, 21h
1148. push ax
1149. mov word ptr cs:old_8259, ax
1150. xor ax, ax
1151. out 21h,al ; CLI
1152. call SaveOthers
1153. call SetSelfInt
1154. call BackupVecList
1155. cmp cs:Power, true
1156. jnz @@20
1157. call BackupCVTchain
1158. call BackupMemoryManager
1159. @@20:
1160. call BackupBiosData
1161. 
      
1162. sti
1163. mov cs:Flag, ' ' ; no busy
1164. mov cs:StopFlag, 0 ;
1165. 
      
1166. mov cs:tsrLength, di
1167. call SetDosEnvSeg
1168. cmp cs:Self, 0
1169. jz @@29
1170. push cs
1171. pop ds
1172. push cs
1173. pop es
1174. cld
1175. mov cx, cs:tsrLength
1176. mov si, cs:DataBegin
1177. sub cx, si
1178. mov di, 120h
1179. mov cs:DataBegin, di
1180. rep movsb
1181. mov cs:tsrLength, di
1182. @@29:
1183. pop ax
1184. out 21h, al ; STI
1185. mov al, ah
1186. out 0a1h, al
1187. mov dx, cs:tsrLength
1188. inc dx
1189. int 27h
1190. 
      
1191. ; ----------------------------------------------------------------------------
1192. SetDosEnvSeg:
1193. push ds
1194. push es
1195. mov ax, cs
1196. @@10: mov es, ax
1197. mov ax, es:[16h] ; Get father process psp segment
1198. or ax, ax
1199. jz @@11
1200. mov bx, es
1201. cmp ax, bx
1202. jnz @@10
1203. @@11:
1204. mov es, word ptr es:[2ch] ; Get father process env segment
1205. mov cs:DosEnv, es
1206. pop es
1207. pop ds
1208. ret
1209. 
      
1210. ; ----------------------------------------------------------------------------
1211. 
      
1212. SaveOthers:
1213. mov ax, cs:[2ch] ; Env Seg
1214. stosw
1215. call backupMCB ; Current MCB
1216. mov ax, 40h ; COM LPT Port
1217. mov ds, ax
1218. mov si, 0h
1219. mov cx, 8
1220. rep movsw
1221. 
      
1222. mov si, 17h ; LED status
1223. lodsb
1224. stosb
1225. ; call OpenLEDs
1226. ret
1227. 
      
1228. ; --------------------------------------------------------------------------
1229. backupMCB:
1230. mov ax, 'ZM'
1231. stosw
1232. push ds
1233. push es
1234. mov ah, 52h
1235. int 21h ; Get MCB chain head
1236. mov ax, es:[bx-2]
1237. pop es
1238. @@0: mov ds, ax
1239. cmp byte ptr ds:[0], 'Z' ; End ?
1240. jz @@20 cmp byte ptr ds:[0], 'M' ; Memory control block
1241. jnz @@30 cmp word ptr ds:[3], 0 ; Nul mcb
1242. jz @@10 cmp word ptr ds:[1], 0 ; Free MCB
1243. jnz @@10
1244. call SaveFreeMCB
1245. @@10: inc ax
1246. add ax, ds:[3]
1247. jmp @@0
1248. @@20:
1249. call SaveFreeMCB
1250. cmp ax, 0a000h
1251. inc ax
1252. jnb @@30
1253. mov ax, 9fffh ; MS-DOS UMB
1254. jmp @@0
1255. 
      
1256. @@30:
1257. cmp ax, 0c000h ; 386MAX
1258. ja @@90
1259. mov ax, 0c020h
1260. jmp @@0
1261. 
      
1262. @@90: ; Error ?
1263. pop ds
1264. mov ax, 'MM' ; Set MCB flag
1265. stosw
1266. ret
1267. 
      
1268. SaveFreeMCB:
1269. stosw
1270. xor si,si
1271. movsb
1272. movsw
1273. movsw
1274. ret
1275. ;
1276. ; push ax
1277. ; stosw
1278. ; xor si,si
1279. ; movsb
1280. ; movsw
1281. ; movsw
1282. ; pop ax
1283. ; cmp ax, 09fffh
1284. ; jnb @@3
1285. ; push ax
1286. ; push ds
1287. ; mov ds,ax
1288. ; cmp byte ptr ds:[0], 'M'
1289. ; pop ds
1290. ; pop ax
1291. ; jnz @@4
1292. ; mov ax, 09fffh ; MS-DOS UMB
1293. ; jmp @@0
1294. ; @@4: cmp ax, 0c000h
1295. ; ja @@3
1296. ; mov ax, 0c020h ; 386MAX
1297. ; jmp @@0
1298. ;
1299. ; --------------------------------------------------------------------------
1300. 
      
1301. OpenLEDs: push ax ; Open all LEDs
1302. or al, 070h
1303. mov ds:[17h], al
1304. mov ah, 1 int 16h
1305. mov cx, 4 ; Delay
1306. @@20: push cx
1307. xor cx, cx
1308. @@21: loop @@21
1309. pop cx
1310. loop @@20
1311. pop ax
1312. mov ds:[17h], al
1313. mov ah, 1 int 16h
1314. ret
1315. 
      
1316. ; --------------------------------------------------------------------------
1317. SetSelfInt:
1318. push es
1319. push di
1320. 
      
1321. cmp cs:self, 0
1322. jnz @@1
1323. push cs
1324. pop ds
1325. mov ax,3509h
1326. int 21h
1327. mov word ptr cs:oldInt9_addr,bx
1328. mov word ptr cs:oldInt9_addr[2],es
1329. mov dx,offset NewInt9
1330. mov ax,2509h
1331. int 21h
1332. 
      
1333. mov ax,352Fh
1334. int 21h
1335. mov word ptr cs:oldInt2F_addr,bx
1336. mov word ptr cs:oldInt2F_addr[2],es
1337. mov dx,offset newInt2F
1338. mov ax,252Fh
1339. int 21h
1340. 
      
1341. mov ax,351Ch
1342. int 21h
1343. mov word ptr cs:oldInt1C_addr,bx
1344. mov word ptr cs:oldInt1C_addr[2],es
1345. mov dx,offset newInt1C
1346. mov ax,251ch
1347. int 21h
1348. cli
1349. jmp @@2
1350. @@1:
1351. mov es, cs:Self
1352. inc es:Copies
1353. @@_0: cmp es:NextDataSeg, -1
1354. jz @@_1
1355. mov es, es:NextDataSeg
1356. jmp @@_0
1357. @@_1: mov es:NextDataSeg, cs
1358. @@2:
1359. pop di
1360. pop es
1361. ret
1362. 
      
1363. ; -----------------------------------------------------------------------
1364. SaveCounter:
1365. mov word ptr es:[di], 'EL'
1366. mov byte ptr es:[di+2], 'I'
1367. mov byte ptr es:[di+3], bl
1368. xor bx, bx
1369. add di, 4
1370. ret
1371. 
      
1372. ; -----------------------------------------------------------------------
1373. DisplayStr: push cs
1374. pop ds
1375. mov ah, 9 int 21h
1376. ret
1377. 
      
1378. ; -----------------------------------------------------------------------
1379. CmdLine:
1380. push cs
1381. pop ds
1382. xor ax, ax
1383. mov si, 80h
1384. lodsb
1385. or al, al
1386. jnz @@1
1387. ret
1388. @@1:
1389. mov cx, ax
1390. dec ax
1391. push ax
1392. push si
1393. @@0: lodsb
1394. cmp al, ' '
1395. jz @@0 cmp al, '/'
1396. jnz @@2
1397. lodsb
1398. cmp al, 'S'
1399. jz @@_2
1400. cmp al, 's'
1401. jnz @@2
1402. @@_2:
1403. call SetHotKey
1404. Print SetMsg
1405. mov ax, 4c00h
1406. int 21h
1407. @@2:
1408. pop si
1409. pop ax
1410. push ax
1411. push si
1412. @@_3: lodsb
1413. cmp al, 'A'
1414. jb @@3 cmp al, 'Z'
1415. ja @@3
1416. add byte ptr ds:[si-1],20h ; DownCase
1417. @@3: loop @@_3
1418. pop si
1419. pop cx
1420. 
      
1421. add si, cx
1422. lodsb
1423. cmp al, 's' ; CLS
1424. jnz @@5 cmp word ptr ds:[si-3], 'lc'
1425. jnz @@5 cmp cs:Self, 0
1426. jz @Err
1427. mov ax, 0c0d7h+1 int 2fh
1428. 
      
1429. @@5: cmp al, 'h' ; HELP
1430. jz @help
1431. cmp al, '?'
1432. jz @help
1433. cmp al, 't' ; RET
1434. jnz @@6 cmp word ptr ds:[si-3], 'er'
1435. jnz @@6
1436. @@7:
1437. cmp cs:Self, 0
1438. jz @Err
1439. mov ax, 0c0d7h+2 int 2fh
1440. @@6: cmp al, 'w' ; NEW
1441. jnz @@8 cmp word ptr ds:[si-3], 'en'
1442. jnz @@8
1443. mov cs:tsrOK, true
1444. ret
1445. @@8:
1446. cmp al, 'l' ; ALL
1447. jnz @@9 cmp word ptr ds:[si-3], 'la'
1448. jnz @@9
1449. mov ax, 0c0d7h+3 int 2fh
1450. @@9:
1451. cmp al, ' '
1452. jnz @Err
1453. ret
1454. 
      
1455. @Err:
1456. Print ErrMsg
1457. @help:
1458. Print HelpMsg
1459. mov ax, 4c00h
1460. int 21h
1461. 
      
1462. ;---------------------------------------------------------------------------
1463. tsrReplyOK:
1464. cmp cs:Self, 0
1465. jz @@1
1466. Print Msg0
1467. 
      
1468. push es
1469. mov ax, cs:Self
1470. @@_10: mov es, ax
1471. mov ax, es:NextDataSeg
1472. cmp ax, -1
1473. jnz @@_10
1474. mov ax, es
1475. 
      
1476. @@_0: push ax
1477. dec ax
1478. mov es, ax
1479. mov bx, es:[3]
1480. pop ax
1481. 
      
1482. add ax, bx
1483. inc ax
1484. mov es, ax
1485. cmp word ptr es:[0], 'OC'
1486. jz @@_0
1487. 
      
1488. mov bx, cs
1489. cmp ax, bx
1490. pop es
1491. jz @@2
1492. Print Msg_0
1493. mov ah, 1 int 21h
1494. 
      
1495. push ax
1496. Print crlf
1497. pop ax
1498. 
      
1499. cmp al, 'y'
1500. jz @@3 cmp al, 'Y'
1501. jz @@3
1502. @@2: ; Print Msg_1
1503. mov ax, 4c01h
1504. int 21h
1505. @@3:
1506. @@1: mov cs:tsrOK, true
1507. ret
1508. 
      
1509. PrintCopies:
1510. cmp cs:Self, 0
1511. jz @@1
1512. push es ; Added -by- Mr. Lei
1513. mov es, cs:Self ; Aug 24, 1993
1514. mov al, es:Copies
1515. inc al ; Total RI copies
1516. push ax ; Set es = current mcb
1517. mov ax, cs
1518. dec ax
1519. mov es, ax
1520. pop ax
1521. mov cx, 5 ; Search end of file name
1522. mov bx, 8
1523. @@10: inc bx
1524. cmp byte ptr es:[bx], 20h
1525. jz @@20 cmp byte ptr es:[bx], 0ffh
1526. jz @@20 cmp byte ptr es:[bx], 00h
1527. jz @@20
1528. loop @@10
1529. @@20: ; Set current RI no
1530. mov byte ptr es:[bx], ':' ; "RI:2"
1531. mov byte ptr es:[bx+1], al
1532. cmp bx, 8+7
1533. jnb @@30
1534. mov byte ptr es:[bx+2], 0
1535. @@30:
1536. pop es
1537. 
      
1538. mov cs:Msg_RI, al
1539. Print Msg_2
1540. @@1: ret
1541. 
      
1542. ;---------------------------------------------------------------------------
1543. ; Backup Interrupt Vector List
1544. ;
1545. BackupVecList:
1546. push ds
1547. push cs
1548. pop es
1549. xor si,si ; Vectors
1550. mov ds,si
1551. movsw
1552. movsw
1553. xor bx, bx
1554. mov cx,00ffh
1555. @@0: lodsw
1556. xchg dx, ax
1557. lodsw
1558. cmp ax, es:[di-2]
1559. jnz @@1 cmp dx, es:[di-4]
1560. jz @@2
1561. @@1: or bx, bx
1562. jz @@3
1563. call SaveCounter
1564. @@3: xchg dx, ax
1565. stosw
1566. xchg dx, ax
1567. stosw
1568. loop @@0
1569. jmp @@4
1570. @@2: inc bx
1571. loop @@0
1572. call SaveCounter
1573. @@4:
1574. pop ds
1575. ret
1576. ;
1577. ;-----------------------------------------------------------------------------
1578. BackupCVTchain:
1579. mov ax, 'VC'
1580. stosw
1581. push ax
1582. push bx
1583. push cx
1584. push ds
1585. push es
1586. mov ah, 52h
1587. int 21h ; ES:BX -- DOS table as described below
1588. 
      
1589. ; --------------------------------------------------------------------
1590. push es ; DPB chains
1591. push bx
1592. lds si, es:[bx]
1593. push cs
1594. pop es
1595. mov ax, si
1596. stosw
1597. mov ax, ds
1598. stosw
1599. mov bx, cs:cvtOfs
1600. xor cx, cx
1601. @@1: mov al, ds:[si+1]
1602. stosb
1603. mov ax, ds:[si+bx+12h]
1604. stosw
1605. mov ax, ds:[si+bx+14h]
1606. stosw
1607. inc cx
1608. lds si, ds:[si+bx+18h]
1609. cmp si, -1
1610. jnz @@1
1611. ; mov ax, 5
1612. ; mul cl
1613. ; add ax, 4
1614. ; add cs:tsrLength, ax
1615. pop bx
1616. pop es
1617. 
      
1618. ; --------------------------------------------------------------------
1619. push es ; DCB file control blocks
1620. push bx
1621. les bx, es:[bx+4]
1622. @@11: cmp word ptr es:[bx], -1
1623. jz @@10
1624. les bx, es:[bx]
1625. jmp @@11
1626. @@10:
1627. mov ax, es
1628. xchg ax, bx
1629. push cs
1630. pop es
1631. stosw
1632. xchg ax, bx
1633. stosw
1634. pop bx
1635. pop es
1636. ; add cs:tsrLength, 4
1637. 
      
1638. ; ---------------------------------------------------------------------
1639. push es ; Device Driver Chains
1640. pop ds
1641. add bx, 22h
1642. mov si, bx ; NUL
1643. 
      
1644. pop es
1645. mov ax, si
1646. stosw
1647. mov ax, ds
1648. stosw
1649. xor cx, cx
1650. xor bx, bx
1651. @@9: push si
1652. mov cl, 5
1653. rep movsw
1654. inc bx
1655. pop si
1656. lds si, ds:[si]
1657. mov ax, si
1658. inc ax
1659. jnz @@9
1660. 
      
1661. pop ds
1662. pop cx
1663. pop bx
1664. pop ax
1665. ret
1666. 
      
1667. ; ----------------------------------------------------------------------------
1668. 
      
1669. BackupBiosData:
1670. mov ax, '--'
1671. stosw
1672. push ds
1673. push si
1674. mov si, 40h
1675. mov ds, si
1676. mov si, 10h
1677. movsw
1678. mov si, 0a8h
1679. movsw
1680. movsw
1681. mov si, 49h
1682. mov cx, 1dh
1683. rep movsb
1684. 
      
1685. mov si, 0f0h
1686. mov cx, 8
1687. rep movsw
1688. pop si
1689. pop ds
1690. ret
1691. 
      
1692. ; ---------------------------------------------------------------------------
1693. 
      
1694. BackupMemoryManager:
1695. push cs
1696. pop es
1697. push ds
1698. push es
1699. call SaveXMSstatus
1700. call SaveEMSstatus
1701. pop es
1702. pop ds
1703. ret
1704. 
      
1705. ;---------------------------------------------------------------------
1706. 
      
1707. SaveEMSstatus:
1708. test cs:status, EMSbit
1709. jnz @@1
1710. ret
1711. @@1:
1712. mov ax, 'ME'
1713. stosw
1714. inc di
1715. inc di
1716. push di
1717. mov ah, 4dh
1718. int 67h
1719. pop di
1720. mov es:[di-2], bx
1721. shl bx, 1
1722. shl bx, 1
1723. add di, bx
1724. ret
1725. ; -------------------------------------------------------------------
1726. 
      
1727. SaveXMSstatus:
1728. call XMS_test
1729. test cs:status, XMSbit
1730. jnz @@1
1731. ret
1732. @@1:
1733. mov ax, 'MX'
1734. stosw
1735. 
      
1736. mov dx, 1
1737. call XMS_alloc
1738. jnz @@_1
1739. xor cx, cx ; XMS alloc failure
1740. stosw
1741. ret
1742. @@_1:
1743. push dx
1744. sub dx, MaxHandles 10
1745. @@2:
1746. push dx
1747. call XMS_Lock
1748. pop dx
1749. jnz @@3 cmp bl, 0a2h
1750. jnz @@4
1751. add dx, 10
1752. jmp @@2
1753. @@3: push dx
1754. call XMS_unlock
1755. pop dx
1756. @@4:
1757. mov cs:handle_begin, dx
1758. pop dx
1759. push dx
1760. call XMS_bstat
1761. xor cx, cx
1762. mov cl, bl
1763. inc cx
1764. pop dx
1765. call XMS_Free
1766. mov dx, cs:Handle_begin
1767. 
      
1768. push cx
1769. push cs
1770. pop es
1771. mov ax, cx
1772. stosw
1773. @@5: push dx
1774. call XMS_Lock
1775. pop dx
1776. jnz @@6 cmp bl, 0a2h ; Handle invalid
1777. jz @@7
1778. @@6: call XMS_unlock
1779. add dx, 10
1780. jmp @@5
1781. @@7: mov ax, dx
1782. stosw
1783. add dx, 10
1784. loop @@5
1785. pop cx
1786. ret
1787. ; ------------------------------------------------------------------
1788. 
      
1789. XMS_test:
1790. push es
1791. mov ax, 4300h
1792. int 2fh
1793. cmp al, 80h
1794. jnz @@9
1795. mov ax, 4310h
1796. int 2fh
1797. mov cs:XMS_control, bx
1798. mov cs:XMS_control[2], es
1799. or cs:Status, XMSbit
1800. @@9:
1801. pop es
1802. ret
1803. 
      
1804. XMS_stat:
1805. mov ah, 0
1806. call dword ptr cs:xms_control
1807. mov hma_exist, dl
1808. ret
1809. hma_exist db 0
1810. 
      
1811. XMS_alloc:
1812. mov ah, 9
1813. call dword ptr cs:xms_control
1814. or ax, ax
1815. ret
1816. 
      
1817. XMS_lock:
1818. mov ah, 0ch
1819. call dword ptr cs:xms_control
1820. or ax, ax
1821. ret
1822. 
      
1823. XMS_unlock:
1824. mov ah, 0dh
1825. call dword ptr cs:xms_control
1826. or ax, ax
1827. ret
1828. XMS_bstat:
1829. mov ah, 0eh
1830. call dword ptr cs:xms_control
1831. or ax, ax
1832. ret
1833. 
      
1834. XMS_free:
1835. mov ah, 0ah
1836. call dword ptr cs:xms_control
1837. or ax, ax
1838. ret
1839. 
      
1840. ; ----------------------------------------------------------------------------
1841. EMS_test:
1842. push cs
1843. pop ds
1844. mov dx, offset EMMname
1845. mov ax, 3d00h
1846. int 21h
1847. jc @@2
1848. mov bx, ax
1849. mov ah, 3eh
1850. int 21h
1851. or cs:Status, EMSbit
1852. @@2:
1853. ret
1854. EMMname db 'EMMXXXX0',0
1855. 
      
1856. ; -----------------------------------------------------------------------------
1857. 
      
1858. SetHotKey:
1859. xor bx, bx
1860. lodsb
1861. push ax
1862. 
      
1863. @@1: lodsb
1864. cmp al, 0dh
1865. jz @@9 cmp al, 'C'
1866. jnz @@2
1867. or bl, LeftCtrl
1868. jmp @@1
1869. @@2:
1870. cmp al, 'c'
1871. jnz @@3
1872. or bl, RightCtrl
1873. jmp @@1
1874. @@3:
1875. cmp al, 'A'
1876. jnz @@4
1877. or bl, LeftAlt
1878. jmp @@1
1879. @@4:
1880. cmp al, 'a'
1881. jnz @@5
1882. or bl, RightAlt
1883. jmp @@1
1884. @@5:
1885. cmp al, 'S'
1886. jnz @@6
1887. or bl, LeftShift
1888. jmp @@1
1889. @@6:
1890. cmp al, 's'
1891. jnz @@7
1892. or bl, RightShift
1893. jmp @@1
1894. @@7: pop ax
1895. jmp @Err
1896. @@9:
1897. mov cs:HotKey, bl
1898. pop ax
1899. mov cs:AuxHotKey, 2dh ; 'X' scan key
1900. cmp al, '1'
1901. jz @@29
1902. mov cs:AuxHotKey, 0
1903. @@29:
1904. cmp cs:Self, 0
1905. jz @@30
1906. push es
1907. mov es, cs:Self
1908. mov es:HotKey, bl
1909. mov bl, cs:AuxHotKey
1910. mov es:AuxHotKey, bl
1911. pop es
1912. @@30:
1913. call GetRunFileName
1914. mov ax, 3d02h
1915. int 21h
1916. jc @@10
1917. push cs
1918. pop ds
1919. mov bx, ax
1920. mov cx, 4
1921. mov dx, 100h
1922. mov ah, 40h
1923. int 21h
1924. jc @@10
1925. mov ax, 4200h
1926. xor cx, cx
1927. mov dx, 17h
1928. int 21h
1929. jc @@10
1930. mov cx, 1
1931. mov dx, offset AuxHotKey
1932. mov ah, 40h
1933. int 21h
1934. jc @@10
1935. mov ah, 3eh
1936. int 21h
1937. @@10:
1938. ret
1939. 
      
1940. 
      
1941. ; -----------------------------------------------------------------------
1942. GetRunFileName:
1943. ; Return:
1944. ; DS:DX Pointer of this run file name ASCIIZ string
1945. push ax
1946. push bx
1947. push cx
1948. push si
1949. push di
1950. push es
1951. 
      
1952. push cs
1953. pop es
1954. mov ax, es:[2ch]
1955. mov es, ax
1956. xor di, di
1957. mov cx, 1000h
1958. xor al, al
1959. @@1: repnz scasb
1960. cmp es:[di], al
1961. loopnz @@1
1962. mov dx, di
1963. add dx, 3
1964. push es
1965. pop ds
1966. 
      
1967. pop es
1968. pop di
1969. pop si
1970. pop cx
1971. pop bx
1972. pop ax
1973. ret
1974. 
      
1975. ; ---------------------------------------------------------------------------
1976. GetMachineID:
1977. push es
1978. mov KBD102,True
1979. mov ax,40h
1980. mov es,ax
1981. test byte ptr es:[96h], 00010000b
1982. jnz @@1
1983. mov Kbd102,False
1984. @@1:
1985. xor ax,ax
1986. dec ax
1987. mov es,ax
1988. mov al,es:[0eh]
1989. mov cs:MachineID, al
1990. pop es
1991. ret
1992. 
      
1993. ; ---------------------------------------------------------------------------
1994. ModifyHotKeyPrompt:
1995. cmp cs:Kbd102, True
1996. jz @@9
1997. push cs
1998. pop es
1999. push cs
2000. pop ds
2001. mov cx, 124
2002. mov si, offset KMsg2
2003. mov di, offset KMsg1
2004. rep movsb
2005. @@9: cmp cs:MachineID, 0fch
2006. jna @@10
2007. mov cs:clsStrcolor, 70h ; Mono
2008. mov cs:clsStr, 70h
2009. @@10:
2010. ret
2011. 
      
2012. ; ---------------------------------------------------------------------------
2013. PrintHotKeyPrompt:
2014. Print Msg1
2015. mov al, cs:HotKey
2016. mov ah, al
2017. shr al, 1
2018. shr al, 1
2019. and ax, 33ch
2020. or al, ah
2021. mov dx, offset KeyMsg
2022. @@40:
2023. or ax, ax ; Mr. Lei 4/25/1993
2024. jz @@_42
2025. shr al, 1
2026. push ax
2027. jnc @@41
2028. 
      
2029. push ax
2030. call ColorDisplayStr
2031. ; mov ah, 9
2032. ; int 21h
2033. pop ax
2034. 
      
2035. or al, al
2036. jz @@42
2037. 
      
2038. push dx
2039. mov dx, offset PlusMsg
2040. call ColorDisplayStr
2041. ; Print PlusMsg
2042. pop dx
2043. 
      
2044. @@41: add dx, 12
2045. pop ax
2046. jmp @@40
2047. @@42: pop ax
2048. @@_42: cmp cs:AuxHotKey, 0
2049. jz @@43 cmp cs:HotKey, 0 ; Mr. Lei
2050. jz @@_43
2051. mov dx, offset PlusMsg
2052. call ColorDisplayStr
2053. ; Print PlusMsg
2054. @@_43: mov dx, offset AuxHotKeyName
2055. call ColorDisplayStr
2056. ; Print AuxHotKeyName
2057. @@43:
2058. Print crlf
2059. ret
2060. 
      
2061. ColorDisplayStr:
2062. push bx
2063. push cx
2064. push dx
2065. push si
2066. mov bl, 0fh
2067. mov si, dx
2068. xor bh, bh
2069. mov cx, 1
2070. @@1: lodsb
2071. cmp al, '$'
2072. jz @@2
2073. or al, al
2074. jz @@2
2075. push cx
2076. mov ah, 09h
2077. int 10h
2078. mov ah, 3 int 10h
2079. inc dl
2080. mov ah, 2 int 10h
2081. pop cx
2082. jmp short @@1
2083. @@2:
2084. pop si
2085. pop dx
2086. pop cx
2087. pop bx
2088. ret
2089. 
      
2090. ; ---------------------------------------------------------------------------
2091. CmpSideKick:
2092. xor ax, ax
2093. mov es, ax
2094. les bx, es:[20h]
2095. cmp word ptr es:[bx-4], 4b53h
2096. jnz @@1 cmp word ptr es:[bx-2], 4942h
2097. jz @@2
2098. @@1: mov es, ax
2099. les bx, es:[94h]
2100. cmp word ptr es:[bx-2], 4b53h
2101. jz @@2
2102. ret
2103. @@2: or cs:Status, SKbit
2104. ret
2105. 
      
2106. ; ---------------------------------------------------------------------------
2107. CmpDosVer: mov ah, 30h
2108. int 21h
2109. cmp al, 3
2110. jb @@1 cmp al, 3
2111. jna @@2
2112. mov cs:cvtOfs, 1
2113. ret
2114. @@2: mov cs:cvtOfs, 0
2115. ret
2116. @@1: Print DosVerErr
2117. mov ax, 4cffh
2118. int 21h
2119. 
      
2120. DosVerErr db 'Sorry, DOS version too lower !',0dh,0ah,'$'
2121. 
      
2122. HotKeyValid:
2123. cmp cs:HotKey, 0
2124. jnz @@_1
2125. cmp cs:AuxHotKey, 0
2126. jnz @@_1
2127. Print HotKeyErr
2128. mov ax, 4cfeh
2129. int 21h
2130. @@_1: ret
2131. 
      
2132. HotKeyErr db 'Sorry, please setup hotkey again. ',0dh,0ah,'$'
2133. 
      
2134. eof:
2135. ends
2136. end Start
2137. 
      
2138. ; ------------- The End ! ---------------------------------------------------

反正我这个菜鸡是编不出来啊，大兄弟你们怎么样;

雷军当年可是黄玫瑰工作室的创始人呀，90年代左右，满大街的盗版工具软件光盘里面都是他们软件工作室开发的那些解密软件，我们当时用的很多正版软件都是用他们编的解密软件破壳的哦。

其实很多IT名人现在看起来好像只负责管理，不懂技术，其实他们中的不少人也是程序高手，除了雷军之外，还有他的老对头周鸿祎，当年可是中国第一个Windows平台上的电子邮件客户端的开发者哦，再往远处说，当年新浪创始人王志东，也是当年名满Windows 3.1的中文平台，中文之星的开发者。

所以说，不要以为他们只是通过管人管事而出名，他们自己本身也是实力超强的技术高手，才能看准技术的潮流呀。