8月9日，雷军在其个人微博发文称，将举办年度演讲，主题是“成长”。雷军表示，“这是我的第4次年度演讲，想和大家聊聊，过去30多年几次关键成长的经历和感悟。”值得注意的是，今天雷军发布的官宣海报上有个彩蛋，是雷军30多年前写过的一段汇编语言。
图片.png
这段代码早前也曾曝光。各位来审判一下。

2011 年的时候，@程序员的那些事在微博转过雷军在 1994 年写的一段完整的汇编代码。后来雷军在转发上条微博时还补充说：「这个程序第一个版本是我 1989 年写的，怀念当初写程序的快乐时光。」
↓↓↓
  1. ;
  2. ; RI.ASM Revision2.12[ July12,1994]
  3. Revision equ'V2.12 '
  4. ;
  5. ;
  6. ;
  7. ; RAMinit Release2.0
  8. ; Copyright (c)1989-1994by Yellow Rose Software Co.
  9. ; Written by Mr. Leijun
  10. ;
  11. ; Function:
  12. ; Press HotKey to remove all TSR program afterthisprogram
  13. ;
  14. ;

  16. ; ..........................................................................
  17. ; Removed Softwares by RI:
  18. ; SPDOS v6.0F, WPS v3.0F
  19. ; Game Busters III, IV
  20. ; NETX ( Novell3.11)
  21. ; PC-CACHE
  22. ; Norton Cache
  23. ; Microsoft SmartDrv
  24. ; SideKick1.56A
  25. ; MOUSE Driver
  26. ; Crazy (Monochrome simulate CGA program)
  27. ; RAMBIOS v2.0
  28. ;386MAX Version6.01
  29. ; ..........................................................................
  30. ; No cancel softwares:
  31. ; Windows3.1MSD
  32. ;
  33. ; No removed TSR softwares:
  34. ; MS-DOS fastopen
  35. ; Buffers, Files ... (QEMM6.0)
  36. ; QCache (386MAX6.01)
  37. ; ..........................................................................
  38. ;
  39. COMMENT

  41. V2.04Use mouse driver software reset function to initiation mouse
  42. 2/17/1993by Mr. Lei and Mr. Feng
  43. V2.05RI cannot work in Windows DOS prompt
  44. 3/9/1993by Mr. Lei
  45. V2.061.When XMS cannot allocate1K memory, RI halts.
  46. 2.RI repeat deallocates EMS memory.
  47. V2.07HotKey Setup Error
  48. 4/25/1993by Mr. Lei
  49. V2.08KB Buffer
  50. V2.101.Release high memoryblocks(EMM386 QEMM386 S-ICE386MAX)
  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



  57. dosseg
  58. .model tiny
  59. .code
  60. locals @@
  61. org 100h

  63. Start: jmp Main
  64. org 103h

  66. True equ 1
  67. False equ 0
  68. MaxHandles equ 100h

  70. INT3 macro
  71. out 0ffh,al
  72. endm
  73. ;
  74. ; HotKey Status Test Var
  75. ; --------------- ---------------
  76. ;
  77. ;76543210417418496
  78. ; . . x . x . . . Left Alt is pressed82
  79. ; x . . . x . . . Right Alt is pressed88
  80. ; . . . x . x . . Left Ctrl is pressed41
  81. ; . x . . . x . . Right Ctrl is pressed44
  82. ; . . . . . . x . Left Shift is pressed2
  83. ; . . . . . . . x Right Shift is pressed1
  84. ;
  85. LeftAlt equ00101000b
  86. RightAlt equ10001000b
  87. LeftCtrl equ00010100b
  88. RightCtrl equ01000100b
  89. LeftShift equ00000010b
  90. RightShift equ00000001b
  91. HotKey db LeftCtrl or RightCtrl

  93. DataBegin dw0
  94. NextDataSeg dw0ffffh
  95. oldInt2F_addr dw0,0
  96. XMS_control dw0,0
  97. Handle_begin dw0
  98. cvtOfs dw0; DOS3.0equ0and above DOS4.0is1
  99. org104h
  100. db0dh
  101. db Revision
  102. db ??date
  103. db26
  104. org114h
  105. tsrLength dw0
  106. MachineID db0FCh ; IBM PC/AT

  108. AuxHotKey db0;2Dh ;'X'Scan Code
  109. AuxHotKeyName db'X$ '
  110. Power db True
  111. Flag db'!'
  112. Kbd102 db0
  113. NoFlag db0
  114. StopFlag db1
  115. DosEnv dw0
  116. WorkSeg dw0
  117. PrevDataSeg dw0
  118. Copies db'1'
  119. old_8259 db0;21h port
  120. db0; a1h port

  122. Status dw0
  123. XMSbit equ00000001b
  124. EMSbit equ00000010b
  125. SKbit equ10000000b

  127. GoINT1C: db0eah
  128. oldInt1C_addr dw0,0
  129. newINT1C:
  130. test cs:Status, SKbit
  131. jnz GoINT1C
  132. cmp cs:StopFlag,0
  133. jz @@0
  134. ;
  135. ; Mr. Lei2/8/1993
  136. ; Problem:ifWPS 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

  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

  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. ; ----------------------------------------------------------------------

  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


  199. CallInt9:
  200. ret


  203. newINT9_2:
  204. mov cs:NoFlag,1
  205. pushf
  206. db9ah ; call far ptr oldint9_addr
  207. oldInt9_Addr2 dw0,0
  208. jmp newINT9_proc

  210. newINT9:
  211. pushf
  212. db9ah ; call far ptr oldint9_addr
  213. oldInt9_Addr dw0,0cmp 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,'!';setbusy flag
  223. push ax ; cmp hot key
  224. push bx
  225. push es
  226. mov ax,40h
  227. mov es,ax

  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 @@10cmp 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 @@10cmp 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

  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 ; Aug24,1993
  296. mov cx,100h
  297. rep stosb
  298. pop es
  299. int27h

  301. NoKeepSelf:
  302. mov ax,0e07h
  303. int10h
  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. int21h

  317. ; ---------------------------------------------------------------------------

  319. IsWinDOS:
  320. mov ax,1600h
  321. int2fh
  322. cmp al,01h
  323. jz @@9cmp al,0ffh
  324. jz @@9; Windows/386Version2.X
  325. cmp al,00h
  326. jz @@1cmp al,80h
  327. jnz @@9; Windows3in enhanced mode
  328. ; Version number in AL/AH
  329. @@1:
  330. mov ax,4680h
  331. int2fh
  332. cmp al,80h
  333. jnz @@9
  334. xor ax, ax
  335. jmp @@10
  336. @@9: mov ax,1
  337. @@10: ret

  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

  365. ; ------------- KERNEL PROGRAM ----------------------------------------------
  366. RemoveTSR:
  367. pop ax
  368. cli ; Setstack
  369. mov sp, cs
  370. mov ss, sp
  371. mov sp,100h
  372. sti
  373. push ax

  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 vectorslist
  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,1int16h

  412. call RestoreClockSpeed
  413. call CloseSpeaker
  414. call ResetDisk
  415. call UpdateTime

  417. call ClosePRN
  418. mov bx,cs:WorkSeg
  419. mov ah,50h
  420. int21h ; Set PSP segment
  421. mov ax,3int10h ; Set display mode

  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

  442. Beep:
  443. mov ax,0e07h
  444. int10h
  445. ret

  447. ; #########################################################################

  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


  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. out0F1h,al ;
  474. jcxz $+2
  475. jcxz $+2
  476. mov al,11h ; ICW1
  477. out0A0h,al
  478. jcxz $+2
  479. jcxz $+2
  480. out20h,al
  481. jcxz $+2
  482. jcxz $+2
  483. mov al,bl ; ICW2
  484. out0A1h,al
  485. jcxz $+2
  486. jcxz $+2
  487. mov al,bh
  488. out21h,al
  489. jcxz $+2
  490. jcxz $+2
  491. mov al,2; ICW3
  492. out0A1h,al
  493. jcxz $+2
  494. jcxz $+2
  495. mov al,4
  496. out21h,al
  497. jcxz $+2
  498. jcxz $+2
  499. mov al,1; ICW4
  500. out0A1h,al
  501. jcxz $+2
  502. jcxz $+2
  503. out21h,al
  504. jcxz $+2
  505. jcxz $+2
  506. mov al,0FFh ; OCW1
  507. out0A1h,al
  508. jcxz $+2
  509. jcxz $+2
  510. out21h,al
  511. ret
  512. @@PC_XT:
  513. mov al,13h ; ICW1
  514. out20h,al
  515. jcxz $+2
  516. jcxz $+2
  517. mov al,8; ICW2
  518. out21h,al
  519. jcxz $+2
  520. jcxz $+2
  521. mov al,9; ICW4
  522. out21h,al
  523. jcxz $+2
  524. jcxz $+2
  525. mov al,0FFh ; OCW1
  526. out21h,al
  527. ret

  529. Enable8259:
  530. mov ax, word ptr cs:old_8259
  531. out021h,al
  532. jcxz $+2
  533. jcxz $+2
  534. mov al,ah
  535. out0a1h,al ; DEC PC Bus Mouse
  536. ret ; July1994by Mr. Lei

  538. ; -------------------------------------------------------------------------

  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

  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

  560. mov di,0f0h ; User data
  561. mov cx,8
  562. rep movsw

  564. pop di
  565. pop es
  566. ret

  568. ; -------------------------------------------------------------------------

  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; Aug24,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

  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. int21h
  609. pop cx
  610. pop bx
  611. inc bx
  612. loop @@1
  613. pop si
  614. pop ds
  615. ret

  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

  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

  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 @@1cmp 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

  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 @@1cmp 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

  697. ;----------------------------------------------------------------------------
  698. RestoreFloppyParam: ; Mr. Lei2/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

  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

  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

  736. ; -----------------------------------------------------------------
  737. lodsw ; DCB
  738. mov di, ax
  739. lodsw
  740. mov es, ax
  741. xor ax, ax
  742. dec ax
  743. stosw

  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

  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


  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

  792. @@0: cmp dx, ds:[si]
  793. jz @@1
  794. add si,4
  795. loop @@0

  797. push cx
  798. mov cx,5
  799. @@0: mov ah,45h ; Deallocate Handle and Memory
  800. int67h
  801. or ah, ah
  802. jz @@1
  803. loop @@0
  804. @@1: pop cx

  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


  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 @@4cmp 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

  850. ; -----------------------------------------------------------------------
  851. CloseSpeaker:
  852. in al,61h
  853. and al,0fch
  854. out61h, al
  855. ret

  857. ; -----------------------------------------------------------------------
  858. RestoreClockSpeed:
  859. mov al,00110110b
  860. out43h, al
  861. xor ax, ax
  862. out40h, al
  863. out40h, al
  864. ret

  866. ; -----------------------------------------------------------------------
  867. ResetDisk:
  868. xor ax, ax
  869. xor dx, dx
  870. int13h ; Restore A
  871. inc dx
  872. int13h ; Restore B
  873. mov dl,80h
  874. int13h ; Restore C
  875. ret



  879. ; --------------------------------------------------------------------------
  880. ClosePRN:
  881. mov ah,51h ; Get PSP seg
  882. int21h
  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,4int21h
  889. @@9:
  890. ret

  892. InitPRN:
  893. mov ax,3e00h
  894. mov bx,4; PRN
  895. int21h
  896. mov ax,3d01h
  897. mov dx, offset PRNname
  898. push cs
  899. pop ds
  900. int21h
  901. ret
  902. PRNname db'PRN',0

  904. InitMouse: ;2/16/1993by Mr. Lei
  905. push es
  906. xor ax, ax
  907. mov es, ax
  908. cmp word ptr es:[33h4+2],0
  909. jz @@0cmp word ptr es:[33h4],0
  910. jz @@0
  911. mov ax,21h
  912. int33h ; Hook Mouse Interrupt
  913. @@0: pop es
  914. ret

  916. ; ------------- CMOS CLOCKsetto System -----------------------------------
  917. UpdateTime:
  918. call GetRealTime
  919. mov ah,2dh
  920. int21h
  921. ret

  923. GetRealTime:
  924. mov ah,2int1Ah
  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

  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

  950. ; -----------------------------------------------------------------------
  951. ; Displaystring
  952. ColorPrintStr:
  953. lodsb
  954. mov bh, al ; color
  955. xor cx, cx
  956. mov dx,014fh
  957. mov ax,0600h
  958. int10h

  960. mov ah,02; GotoXY (0,0)
  961. xor dx, dx
  962. mov bh,0int10h
  963. PrintStr:
  964. push cs
  965. pop ds
  966. xor bx, bx
  967. @@1: lodsb
  968. cmp al,'

  970. jz @@2
  971. or al, al
  972. jz @@2
  973. mov ah,0eh
  974. int10h
  975. jmpshort@@1
  976. @@2: mov al, cs:clsStrcolor
  977. mov cs:clsStr, al
  978. ret

  980. ; -----------------------------------------------------------------------
  981. Self dw0
  982. clsStrcolor db17h
  983. clsStr db17h ; Color (White in Blue)
  984. db' RAMinit Version 2.12 (c) 1989-1994 by KingSoft Ltd. Mr. Leijun'
  985. db0dh,0ah
  986. db' ['
  987. ShowCopies db''
  988. db '] Activate...',0ah,0dh,'


  991. endTSR equ $
  992. mcbList equ offset endTSR +2+2
  993. vecList equ mcbList +710+2+10h +1+400h
  994. devLink equ vecList +4+526+4+1030h +4
  995. xmsList equ devLink +2+ MaxHandles 2
  996. emsList equ xmsList +4+1024
  997. crtMode equ emsList +2+1Dh +4+10h
  998. tsrLen equ crtMode +1
  999. ;
  1000. ; DOS Environment Reserved by RI
  1001. ; --------------------------------------------------
  1002. ; Flag'XX'2bytes
  1003. ; Environment Segment1word
  1004. ; Free MCBs <=710bytes
  1005. ; MCB segment1word
  1006. ; MCB5bytes
  1007. ; End flag'MM'1word
  1008. ; COM LPT ports10h bytes
  1009. ; LEDs status1bytes
  1010. ; Packed vectorslist<=400h bytes
  1011. ; Flag 'CV' 2 bytes
  1012. ; CVT First DPB pointer 4 bytes
  1013. ; DPBs data <=526 bytes
  1014. ; First DCB pointer 4 bytes
  1015. ; Pointer to NUL 4 bytes
  1016. ; All device driver datas <=30h10 bytes
  1017. ; Flag 'XM' 2 bytes
  1018. ; XMSfreehandle counter 2 bytes
  1019. ; EMSfreehandlelist<=100h4 bytes
  1020. ; Flag 'EM' 2 bytes
  1021. ; EMSfreehandle counter 2 bytes
  1022. ; EMSfreehandlelist<=1024 bytes
  1023. ; EMS handle 1 word
  1024. ; Number of pages 1 word
  1025. ; Flag '--' 1 word
  1026. ; Equipment List 1 word
  1027. ; CRT 40:49h-66h 1dh bytes
  1028. ; 40:A8h 1 dword
  1029. ; BIOS User Data Area 40:F0--FF 10h bytes
  1030. ; **
  1031. ;
  1032. main: jmp main0

  1034. Print Macro Str
  1035. Lea dx, Str
  1036. call DisplayStr
  1037. endm

  1039. InstMsg db 'RAMinit Version 2.12 '
  1040. db 'Copyright (c) 1989-1994 by KingSoft Ltd. ',0dh,0ah,'

  1042. Msg0 db 'Already installed !',0dh,0ah,0ah
  1043. db 'For Help, type "RI /?". ',0dh,0ah,'

  1045. Msg_0 db 0ah,'Residents anewRAMinit copy [y/n] ?

  1047. Msg_2 db 'OK, RI No.'
  1048. Msg_RI db '2'
  1049. db ' residents successful !', 0dh,0ah,'

  1051. Msg1 db 'Activate with:

  1053. KeyMsg db 'Right_Shift

  1055. db 'Left_Shift$ '
  1056. KMsg1 db 'Left_Ctrl$ '
  1057. db 'Left_Alt$ '
  1058. db 'Right_Ctrl$ '
  1059. db 'Right_Alt$ '
  1060. KMsg2 db 'Ctrl$ '
  1061. db 'Alt$ '
  1062. db 'Ctrl$ '
  1063. db 'Alt$ '
  1064. PlusMsg db ' +

  1066. crlf db 0dh,0ah,'


  1069. HelpMsg db 'Programmed by Mr. Leijun Dec 1992', 0dh,0ah,0ah
  1070. db 'Usage: RI [options]',0dh,0ah,0ah
  1071. db '/H,/? Displaythisscreen',0dh,0ah
  1072. db '/CLS Removes all TSR programs after current RI',0dh,0ah
  1073. db '/RET Removes TSR programs include current RI',0dh,0ah
  1074. db '/NEW Residents anewdata copy of current environment',0dh,0ah
  1075. db '/ALL Removes all RI copies and all other tsr programs',0dh,0ah
  1076. db '/Sxyy.. Define Hotkey x=AuxHotkey yy..=shift status',0dh,0ah
  1077. db ' x=auxiliary hotkey (defaultis "X") ',0dh,0ah
  1078. db ' x equ "1" means need AuxHotkey',0dh,0ah
  1079. db ' yy..=shift status [CAScas]',0dh,0ah
  1080. db ' C: Left Ctrl A: Left Alt S: Left Shift',0dh,0ah
  1081. db ' c: Right Ctrl a: Right Alt s: Right Shift',0dh,0ah,0ah
  1082. db 'Example: "RI /S1c" means Hotkey is Right_Ctrl+X',0dh,0ah
  1083. db ' "RI /S0Cc" means HotKey is Left_Ctrl+Right_Ctrl',0dh,0ah
  1084. db ' "RI /CLS" equals simply press hotkey',0dh,0ah
  1085. db ' "RI /RET" Removes all TSRs after current RI andthisRI',0dh,0ah
  1086. db 0ah
  1087. db 'Contact meforRAMinit problems: (01)2561155 Call 1997',0dh,0ah
  1088. db '

  1090. ErrMsg db 'ERROR: Invalid options !',0dh,0ah,0ah,'

  1092. WinErr db 7, 'Sorry, I cannot work in Windows DOS environment.',0dh,0ah,'

  1094. SetMsg db 7, 'DefinesnewHotkey successful !',0dh,0ah,0ah,'

  1096. tsrOK db False

  1098. Main0:
  1099. cld
  1100. Print instMsg
  1101. call IsWinDos
  1102. or ax, ax
  1103. jz @@1
  1104. Print WinErr
  1105. mov ax, 4c00h
  1106. int21h
  1107. @@1:
  1108. call HotKeyValid
  1109. mov cs:Status, 0
  1110. call EMS_test
  1111. call CmpDosVer
  1112. call CmpSideKick
  1113. call GetMachineID
  1114. call ModifyHotKeyPrompt

  1116. mov ax, 0c0d7h
  1117. int2fh
  1118. mov es, ax
  1119. cmp word ptr es:[101h], 'IE' ; 'LEI'
  1120. jnz @@0
  1121. mov cs:Self, ax
  1122. @@0:
  1123. call CmdLine
  1124. call PrintHotKeyPrompt

  1126. cmp cs:tsrOK,true
  1127. jz @@2
  1128. call tsrReplyOK
  1129. @@2: cmp cs:tsrOK,true
  1130. jnz @@_2
  1131. call PrintCopies
  1132. @@_2:
  1133. mov word ptr cs:[100h], 'EL'
  1134. mov byte ptr cs:[102h], 'I'

  1136. push cs
  1137. pop es
  1138. push cs
  1139. pop ds
  1140. std
  1141. mov si, offset eof
  1142. mov cx, eof - offset Here
  1143. mov di, tsrLen
  1144. add di, cx
  1145. inc cx
  1146. rep movsb
  1147. cld
  1148. mov bx, tsrLen
  1149. jmp bx

  1151. Here:
  1152. mov ax,cs
  1153. mov es,ax
  1154. mov di,offset endTSR
  1155. mov cs:DataBegin, di
  1156. mov cs:NextDataSeg, -1
  1157. mov ax, 'XX'
  1158. stosw
  1159. in al, 0a1h
  1160. mov ah, al
  1161. in al, 21h
  1162. push ax
  1163. mov word ptr cs:old_8259, ax
  1164. xor ax, ax
  1165. out 21h,al ; CLI
  1166. call SaveOthers
  1167. call SetSelfInt
  1168. call BackupVecList
  1169. cmp cs:Power,true
  1170. jnz @@20
  1171. call BackupCVTchain
  1172. call BackupMemoryManager
  1173. @@20:
  1174. call BackupBiosData

  1176. sti
  1177. mov cs:Flag, ' ' ; no busy
  1178. mov cs:StopFlag, 0 ;

  1180. mov cs:tsrLength, di
  1181. call SetDosEnvSeg
  1182. cmp cs:Self, 0
  1183. jz @@29
  1184. push cs
  1185. pop ds
  1186. push cs
  1187. pop es
  1188. cld
  1189. mov cx, cs:tsrLength
  1190. mov si, cs:DataBegin
  1191. sub cx, si
  1192. mov di, 120h
  1193. mov cs:DataBegin, di
  1194. rep movsb
  1195. mov cs:tsrLength, di
  1196. @@29:
  1197. pop ax
  1198. out 21h, al ; STI
  1199. mov al, ah
  1200. out 0a1h, al
  1201. mov dx, cs:tsrLength
  1202. inc dx
  1203. int27h

  1205. ; ----------------------------------------------------------------------------
  1206. SetDosEnvSeg:
  1207. push ds
  1208. push es
  1209. mov ax, cs
  1210. @@10: mov es, ax
  1211. mov ax, es:[16h] ; Get father process psp segment
  1212. or ax, ax
  1213. jz @@11
  1214. mov bx, es
  1215. cmp ax, bx
  1216. jnz @@10
  1217. @@11:
  1218. mov es, word ptr es:[2ch] ; Get father process env segment
  1219. mov cs:DosEnv, es
  1220. pop es
  1221. pop ds
  1222. ret

  1224. ; ----------------------------------------------------------------------------

  1226. SaveOthers:
  1227. mov ax, cs:[2ch] ; Env Seg
  1228. stosw
  1229. call backupMCB ; Current MCB
  1230. mov ax, 40h ; COM LPT Port
  1231. mov ds, ax
  1232. mov si, 0h
  1233. mov cx, 8
  1234. rep movsw

  1236. mov si, 17h ; LED status
  1237. lodsb
  1238. stosb
  1239. ; call OpenLEDs
  1240. ret

  1242. ; --------------------------------------------------------------------------
  1243. backupMCB:
  1244. mov ax, 'ZM'
  1245. stosw
  1246. push ds
  1247. push es
  1248. mov ah, 52h
  1249. int21h ; Get MCB chain head
  1250. mov ax, es:[bx-2]
  1251. pop es
  1252. @@0: mov ds, ax
  1253. cmp byte ptr ds:[0], 'Z' ; End ?
  1254. jz @@20 cmp byte ptr ds:[0], 'M' ; Memory control block
  1255. jnz @@30 cmp word ptr ds:[3], 0 ; Nul mcb
  1256. jz @@10 cmp word ptr ds:[1], 0 ; Free MCB
  1257. jnz @@10
  1258. call SaveFreeMCB
  1259. @@10: inc ax
  1260. add ax, ds:[3]
  1261. jmp @@0
  1262. @@20:
  1263. call SaveFreeMCB
  1264. cmp ax, 0a000h
  1265. inc ax
  1266. jnb @@30
  1267. mov ax, 9fffh ; MS-DOS UMB
  1268. jmp @@0

  1270. @@30:
  1271. cmp ax, 0c000h ; 386MAX
  1272. ja @@90
  1273. mov ax, 0c020h
  1274. jmp @@0

  1276. @@90: ; Error ?
  1277. pop ds
  1278. mov ax, 'MM' ; Set MCB flag
  1279. stosw
  1280. ret

  1282. SaveFreeMCB:
  1283. stosw
  1284. xor si,si
  1285. movsb
  1286. movsw
  1287. movsw
  1288. ret
  1289. ;
  1290. ; push ax
  1291. ; stosw
  1292. ; xor si,si
  1293. ; movsb
  1294. ; movsw
  1295. ; movsw
  1296. ; pop ax
  1297. ; cmp ax, 09fffh
  1298. ; jnb @@3
  1299. ; push ax
  1300. ; push ds
  1301. ; mov ds,ax
  1302. ; cmp byte ptr ds:[0], 'M'
  1303. ; pop ds
  1304. ; pop ax
  1305. ; jnz @@4
  1306. ; mov ax, 09fffh ; MS-DOS UMB
  1307. ; jmp @@0
  1308. ; @@4: cmp ax, 0c000h
  1309. ; ja @@3
  1310. ; mov ax, 0c020h ; 386MAX
  1311. ; jmp @@0
  1312. ;
  1313. ; --------------------------------------------------------------------------

  1315. OpenLEDs: push ax ; Open all LEDs
  1316. or al, 070h
  1317. mov ds:[17h], al
  1318. mov ah, 1int16h
  1319. mov cx, 4 ; Delay
  1320. @@20: push cx
  1321. xor cx, cx
  1322. @@21: loop @@21
  1323. pop cx
  1324. loop @@20
  1325. pop ax
  1326. mov ds:[17h], al
  1327. mov ah, 1int16h
  1328. ret

  1330. ; --------------------------------------------------------------------------
  1331. SetSelfInt:
  1332. push es
  1333. push di

  1335. cmp cs:self, 0
  1336. jnz @@1
  1337. push cs
  1338. pop ds
  1339. mov ax,3509h
  1340. int21h
  1341. mov word ptr cs:oldInt9_addr,bx
  1342. mov word ptr cs:oldInt9_addr[2],es
  1343. mov dx,offset NewInt9
  1344. mov ax,2509h
  1345. int21h

  1347. mov ax,352Fh
  1348. int21h
  1349. mov word ptr cs:oldInt2F_addr,bx
  1350. mov word ptr cs:oldInt2F_addr[2],es
  1351. mov dx,offset newInt2F
  1352. mov ax,252Fh
  1353. int21h

  1355. mov ax,351Ch
  1356. int21h
  1357. mov word ptr cs:oldInt1C_addr,bx
  1358. mov word ptr cs:oldInt1C_addr[2],es
  1359. mov dx,offset newInt1C
  1360. mov ax,251ch
  1361. int21h
  1362. cli
  1363. jmp @@2
  1364. @@1:
  1365. mov es, cs:Self
  1366. inc es:Copies
  1367. @@_0: cmp es:NextDataSeg, -1
  1368. jz @@_1
  1369. mov es, es:NextDataSeg
  1370. jmp @@_0
  1371. @@_1: mov es:NextDataSeg, cs
  1372. @@2:
  1373. pop di
  1374. pop es
  1375. ret

  1377. ; -----------------------------------------------------------------------
  1378. SaveCounter:
  1379. mov word ptr es:[di], 'EL'
  1380. mov byte ptr es:[di+2], 'I'
  1381. mov byte ptr es:[di+3], bl
  1382. xor bx, bx
  1383. add di, 4
  1384. ret

  1386. ; -----------------------------------------------------------------------
  1387. DisplayStr: push cs
  1388. pop ds
  1389. mov ah, 9int21h
  1390. ret

  1392. ; -----------------------------------------------------------------------
  1393. CmdLine:
  1394. push cs
  1395. pop ds
  1396. xor ax, ax
  1397. mov si, 80h
  1398. lodsb
  1399. or al, al
  1400. jnz @@1
  1401. ret
  1402. @@1:
  1403. mov cx, ax
  1404. dec ax
  1405. push ax
  1406. push si
  1407. @@0: lodsb
  1408. cmp al, ' '
  1409. jz @@0 cmp al, '/'
  1410. jnz @@2
  1411. lodsb
  1412. cmp al, 'S'
  1413. jz @@_2
  1414. cmp al, 's'
  1415. jnz @@2
  1416. @@_2:
  1417. call SetHotKey
  1418. Print SetMsg
  1419. mov ax, 4c00h
  1420. int21h
  1421. @@2:
  1422. pop si
  1423. pop ax
  1424. push ax
  1425. push si
  1426. @@_3: lodsb
  1427. cmp al, 'A'
  1428. jb @@3 cmp al, 'Z'
  1429. ja @@3
  1430. add byte ptr ds:[si-1],20h ; DownCase
  1431. @@3: loop @@_3
  1432. pop si
  1433. pop cx

  1435. add si, cx
  1436. lodsb
  1437. cmp al, 's' ; CLS
  1438. jnz @@5 cmp word ptr ds:[si-3], 'lc'
  1439. jnz @@5 cmp cs:Self, 0
  1440. jz @Err
  1441. mov ax, 0c0d7h+1int2fh

  1443. @@5: cmp al, 'h' ; HELP
  1444. jz @help
  1445. cmp al, '?'
  1446. jz @help
  1447. cmp al, 't' ; RET
  1448. jnz @@6 cmp word ptr ds:[si-3], 'er'
  1449. jnz @@6
  1450. @@7:
  1451. cmp cs:Self, 0
  1452. jz @Err
  1453. mov ax, 0c0d7h+2int2fh
  1454. @@6: cmp al, 'w' ; NEW
  1455. jnz @@8 cmp word ptr ds:[si-3], 'en'
  1456. jnz @@8
  1457. mov cs:tsrOK,true
  1458. ret
  1459. @@8:
  1460. cmp al, 'l' ; ALL
  1461. jnz @@9 cmp word ptr ds:[si-3], 'la'
  1462. jnz @@9
  1463. mov ax, 0c0d7h+3int2fh
  1464. @@9:
  1465. cmp al, ' '
  1466. jnz @Err
  1467. ret

  1469. @Err:
  1470. Print ErrMsg
  1471. @help:
  1472. Print HelpMsg
  1473. mov ax, 4c00h
  1474. int21h

  1476. ;---------------------------------------------------------------------------
  1477. tsrReplyOK:
  1478. cmp cs:Self, 0
  1479. jz @@1
  1480. Print Msg0

  1482. push es
  1483. mov ax, cs:Self
  1484. @@_10: mov es, ax
  1485. mov ax, es:NextDataSeg
  1486. cmp ax, -1
  1487. jnz @@_10
  1488. mov ax, es

  1490. @@_0: push ax
  1491. dec ax
  1492. mov es, ax
  1493. mov bx, es:[3]
  1494. pop ax

  1496. add ax, bx
  1497. inc ax
  1498. mov es, ax
  1499. cmp word ptr es:[0], 'OC'
  1500. jz @@_0

  1502. mov bx, cs
  1503. cmp ax, bx
  1504. pop es
  1505. jz @@2
  1506. Print Msg_0
  1507. mov ah, 1int21h

  1509. push ax
  1510. Print crlf
  1511. pop ax

  1513. cmp al, 'y'
  1514. jz @@3 cmp al, 'Y'
  1515. jz @@3
  1516. @@2: ; Print Msg_1
  1517. mov ax, 4c01h
  1518. int21h
  1519. @@3:
  1520. @@1: mov cs:tsrOK,true
  1521. ret

  1523. PrintCopies:
  1524. cmp cs:Self, 0
  1525. jz @@1
  1526. push es ; Added -by- Mr. Lei
  1527. mov es, cs:Self ; Aug 24, 1993
  1528. mov al, es:Copies
  1529. inc al ; Total RI copies
  1530. push ax ; Set es = current mcb
  1531. mov ax, cs
  1532. dec ax
  1533. mov es, ax
  1534. pop ax
  1535. mov cx, 5 ; Search end of file name
  1536. mov bx, 8
  1537. @@10: inc bx
  1538. cmp byte ptr es:[bx], 20h
  1539. jz @@20 cmp byte ptr es:[bx], 0ffh
  1540. jz @@20 cmp byte ptr es:[bx], 00h
  1541. jz @@20
  1542. loop @@10
  1543. @@20: ; Set current RI no
  1544. mov byte ptr es:[bx], ':' ; "RI:2"
  1545. mov byte ptr es:[bx+1], al
  1546. cmp bx, 8+7
  1547. jnb @@30
  1548. mov byte ptr es:[bx+2], 0
  1549. @@30:
  1550. pop es

  1552. mov cs:Msg_RI, al
  1553. Print Msg_2
  1554. @@1: ret

  1556. ;---------------------------------------------------------------------------
  1557. ; Backup Interrupt Vector List
  1558. ;
  1559. BackupVecList:
  1560. push ds
  1561. push cs
  1562. pop es
  1563. xor si,si ; Vectors
  1564. mov ds,si
  1565. movsw
  1566. movsw
  1567. xor bx, bx
  1568. mov cx,00ffh
  1569. @@0: lodsw
  1570. xchg dx, ax
  1571. lodsw
  1572. cmp ax, es:[di-2]
  1573. jnz @@1 cmp dx, es:[di-4]
  1574. jz @@2
  1575. @@1: or bx, bx
  1576. jz @@3
  1577. call SaveCounter
  1578. @@3: xchg dx, ax
  1579. stosw
  1580. xchg dx, ax
  1581. stosw
  1582. loop @@0
  1583. jmp @@4
  1584. @@2: inc bx
  1585. loop @@0
  1586. call SaveCounter
  1587. @@4:
  1588. pop ds
  1589. ret
  1590. ;
  1591. ;-----------------------------------------------------------------------------
  1592. BackupCVTchain:
  1593. mov ax, 'VC'
  1594. stosw
  1595. push ax
  1596. push bx
  1597. push cx
  1598. push ds
  1599. push es
  1600. mov ah, 52h
  1601. int21h ; ES:BX -- DOS table as described below

  1603. ; --------------------------------------------------------------------
  1604. push es ; DPB chains
  1605. push bx
  1606. lds si, es:[bx]
  1607. push cs
  1608. pop es
  1609. mov ax, si
  1610. stosw
  1611. mov ax, ds
  1612. stosw
  1613. mov bx, cs:cvtOfs
  1614. xor cx, cx
  1615. @@1: mov al, ds:[si+1]
  1616. stosb
  1617. mov ax, ds:[si+bx+12h]
  1618. stosw
  1619. mov ax, ds:[si+bx+14h]
  1620. stosw
  1621. inc cx
  1622. lds si, ds:[si+bx+18h]
  1623. cmp si, -1
  1624. jnz @@1
  1625. ; mov ax, 5
  1626. ; mul cl
  1627. ; add ax, 4
  1628. ; add cs:tsrLength, ax
  1629. pop bx
  1630. pop es

  1632. ; --------------------------------------------------------------------
  1633. push es ; DCB file control blocks
  1634. push bx
  1635. les bx, es:[bx+4]
  1636. @@11: cmp word ptr es:[bx], -1
  1637. jz @@10
  1638. les bx, es:[bx]
  1639. jmp @@11
  1640. @@10:
  1641. mov ax, es
  1642. xchg ax, bx
  1643. push cs
  1644. pop es
  1645. stosw
  1646. xchg ax, bx
  1647. stosw
  1648. pop bx
  1649. pop es
  1650. ; add cs:tsrLength, 4

  1652. ; ---------------------------------------------------------------------
  1653. push es ; Device Driver Chains
  1654. pop ds
  1655. add bx, 22h
  1656. mov si, bx ; NUL

  1658. pop es
  1659. mov ax, si
  1660. stosw
  1661. mov ax, ds
  1662. stosw
  1663. xor cx, cx
  1664. xor bx, bx
  1665. @@9: push si
  1666. mov cl, 5
  1667. rep movsw
  1668. inc bx
  1669. pop si
  1670. lds si, ds:[si]
  1671. mov ax, si
  1672. inc ax
  1673. jnz @@9

  1675. pop ds
  1676. pop cx
  1677. pop bx
  1678. pop ax
  1679. ret

  1681. ; ----------------------------------------------------------------------------

  1683. BackupBiosData:
  1684. mov ax, '--'
  1685. stosw
  1686. push ds
  1687. push si
  1688. mov si, 40h
  1689. mov ds, si
  1690. mov si, 10h
  1691. movsw
  1692. mov si, 0a8h
  1693. movsw
  1694. movsw
  1695. mov si, 49h
  1696. mov cx, 1dh
  1697. rep movsb

  1699. mov si, 0f0h
  1700. mov cx, 8
  1701. rep movsw
  1702. pop si
  1703. pop ds
  1704. ret

  1706. ; ---------------------------------------------------------------------------

  1708. BackupMemoryManager:
  1709. push cs
  1710. pop es
  1711. push ds
  1712. push es
  1713. call SaveXMSstatus
  1714. call SaveEMSstatus
  1715. pop es
  1716. pop ds
  1717. ret

  1719. ;---------------------------------------------------------------------

  1721. SaveEMSstatus:
  1722. test cs:status, EMSbit
  1723. jnz @@1
  1724. ret
  1725. @@1:
  1726. mov ax, 'ME'
  1727. stosw
  1728. inc di
  1729. inc di
  1730. push di
  1731. mov ah, 4dh
  1732. int67h
  1733. pop di
  1734. mov es:[di-2], bx
  1735. shl bx, 1
  1736. shl bx, 1
  1737. add di, bx
  1738. ret
  1739. ; -------------------------------------------------------------------

  1741. SaveXMSstatus:
  1742. call XMS_test
  1743. test cs:status, XMSbit
  1744. jnz @@1
  1745. ret
  1746. @@1:
  1747. mov ax, 'MX'
  1748. stosw

  1750. mov dx, 1
  1751. call XMS_alloc
  1752. jnz @@_1
  1753. xor cx, cx ; XMS alloc failure
  1754. stosw
  1755. ret
  1756. @@_1:
  1757. push dx
  1758. sub dx, MaxHandles 10
  1759. @@2:
  1760. push dx
  1761. call XMS_Lock
  1762. pop dx
  1763. jnz @@3 cmp bl, 0a2h
  1764. jnz @@4
  1765. add dx, 10
  1766. jmp @@2
  1767. @@3: push dx
  1768. call XMS_unlock
  1769. pop dx
  1770. @@4:
  1771. mov cs:handle_begin, dx
  1772. pop dx
  1773. push dx
  1774. call XMS_bstat
  1775. xor cx, cx
  1776. mov cl, bl
  1777. inc cx
  1778. pop dx
  1779. call XMS_Free
  1780. mov dx, cs:Handle_begin

  1782. push cx
  1783. push cs
  1784. pop es
  1785. mov ax, cx
  1786. stosw
  1787. @@5: push dx
  1788. call XMS_Lock
  1789. pop dx
  1790. jnz @@6 cmp bl, 0a2h ; Handle invalid
  1791. jz @@7
  1792. @@6: call XMS_unlock
  1793. add dx, 10
  1794. jmp @@5
  1795. @@7: mov ax, dx
  1796. stosw
  1797. add dx, 10
  1798. loop @@5
  1799. pop cx
  1800. ret
  1801. ; ------------------------------------------------------------------

  1803. XMS_test:
  1804. push es
  1805. mov ax, 4300h
  1806. int2fh
  1807. cmp al, 80h
  1808. jnz @@9
  1809. mov ax, 4310h
  1810. int2fh
  1811. mov cs:XMS_control, bx
  1812. mov cs:XMS_control[2], es
  1813. or cs:Status, XMSbit
  1814. @@9:
  1815. pop es
  1816. ret

  1818. XMS_stat:
  1819. mov ah, 0
  1820. call dword ptr cs:xms_control
  1821. mov hma_exist, dl
  1822. ret
  1823. hma_exist db 0

  1825. XMS_alloc:
  1826. mov ah, 9
  1827. call dword ptr cs:xms_control
  1828. or ax, ax
  1829. ret

  1831. XMS_lock:
  1832. mov ah, 0ch
  1833. call dword ptr cs:xms_control
  1834. or ax, ax
  1835. ret

  1837. XMS_unlock:
  1838. mov ah, 0dh
  1839. call dword ptr cs:xms_control
  1840. or ax, ax
  1841. ret
  1842. XMS_bstat:
  1843. mov ah, 0eh
  1844. call dword ptr cs:xms_control
  1845. or ax, ax
  1846. ret

  1848. XMS_free:
  1849. mov ah, 0ah
  1850. call dword ptr cs:xms_control
  1851. or ax, ax
  1852. ret

  1854. ; ----------------------------------------------------------------------------
  1855. EMS_test:
  1856. push cs
  1857. pop ds
  1858. mov dx, offset EMMname
  1859. mov ax, 3d00h
  1860. int21h
  1861. jc @@2
  1862. mov bx, ax
  1863. mov ah, 3eh
  1864. int21h
  1865. or cs:Status, EMSbit
  1866. @@2:
  1867. ret
  1868. EMMname db 'EMMXXXX0',0

  1870. ; -----------------------------------------------------------------------------

  1872. SetHotKey:
  1873. xor bx, bx
  1874. lodsb
  1875. push ax

  1877. @@1: lodsb
  1878. cmp al, 0dh
  1879. jz @@9 cmp al, 'C'
  1880. jnz @@2
  1881. or bl, LeftCtrl
  1882. jmp @@1
  1883. @@2:
  1884. cmp al, 'c'
  1885. jnz @@3
  1886. or bl, RightCtrl
  1887. jmp @@1
  1888. @@3:
  1889. cmp al, 'A'
  1890. jnz @@4
  1891. or bl, LeftAlt
  1892. jmp @@1
  1893. @@4:
  1894. cmp al, 'a'
  1895. jnz @@5
  1896. or bl, RightAlt
  1897. jmp @@1
  1898. @@5:
  1899. cmp al, 'S'
  1900. jnz @@6
  1901. or bl, LeftShift
  1902. jmp @@1
  1903. @@6:
  1904. cmp al, 's'
  1905. jnz @@7
  1906. or bl, RightShift
  1907. jmp @@1
  1908. @@7: pop ax
  1909. jmp @Err
  1910. @@9:
  1911. mov cs:HotKey, bl
  1912. pop ax
  1913. mov cs:AuxHotKey, 2dh ; 'X' scan key
  1914. cmp al, '1'
  1915. jz @@29
  1916. mov cs:AuxHotKey, 0
  1917. @@29:
  1918. cmp cs:Self, 0
  1919. jz @@30
  1920. push es
  1921. mov es, cs:Self
  1922. mov es:HotKey, bl
  1923. mov bl, cs:AuxHotKey
  1924. mov es:AuxHotKey, bl
  1925. pop es
  1926. @@30:
  1927. call GetRunFileName
  1928. mov ax, 3d02h
  1929. int21h
  1930. jc @@10
  1931. push cs
  1932. pop ds
  1933. mov bx, ax
  1934. mov cx, 4
  1935. mov dx, 100h
  1936. mov ah, 40h
  1937. int21h
  1938. jc @@10
  1939. mov ax, 4200h
  1940. xor cx, cx
  1941. mov dx, 17h
  1942. int21h
  1943. jc @@10
  1944. mov cx, 1
  1945. mov dx, offset AuxHotKey
  1946. mov ah, 40h
  1947. int21h
  1948. jc @@10
  1949. mov ah, 3eh
  1950. int21h
  1951. @@10:
  1952. ret


  1955. ; -----------------------------------------------------------------------
  1956. GetRunFileName:
  1957. ; Return:
  1958. ; DS:DX Pointer ofthisrun file name ASCIIZstring
  1959. push ax
  1960. push bx
  1961. push cx
  1962. push si
  1963. push di
  1964. push es

  1966. push cs
  1967. pop es
  1968. mov ax, es:[2ch]
  1969. mov es, ax
  1970. xor di, di
  1971. mov cx, 1000h
  1972. xor al, al
  1973. @@1: repnz scasb
  1974. cmp es:[di], al
  1975. loopnz @@1
  1976. mov dx, di
  1977. add dx, 3
  1978. push es
  1979. pop ds

  1981. pop es
  1982. pop di
  1983. pop si
  1984. pop cx
  1985. pop bx
  1986. pop ax
  1987. ret

  1989. ; ---------------------------------------------------------------------------
  1990. GetMachineID:
  1991. push es
  1992. mov KBD102,True
  1993. mov ax,40h
  1994. mov es,ax
  1995. test byte ptr es:[96h], 00010000b
  1996. jnz @@1
  1997. mov Kbd102,False
  1998. @@1:
  1999. xor ax,ax
  2000. dec ax
  2001. mov es,ax
  2002. mov al,es:[0eh]
  2003. mov cs:MachineID, al
  2004. pop es
  2005. ret

  2007. ; ---------------------------------------------------------------------------
  2008. ModifyHotKeyPrompt:
  2009. cmp cs:Kbd102, True
  2010. jz @@9
  2011. push cs
  2012. pop es
  2013. push cs
  2014. pop ds
  2015. mov cx, 124
  2016. mov si, offset KMsg2
  2017. mov di, offset KMsg1
  2018. rep movsb
  2019. @@9: cmp cs:MachineID, 0fch
  2020. jna @@10
  2021. mov cs:clsStrcolor, 70h ; Mono
  2022. mov cs:clsStr, 70h
  2023. @@10:
  2024. ret

  2026. ; ---------------------------------------------------------------------------
  2027. PrintHotKeyPrompt:
  2028. Print Msg1
  2029. mov al, cs:HotKey
  2030. mov ah, al
  2031. shr al, 1
  2032. shr al, 1
  2033. and ax, 33ch
  2034. or al, ah
  2035. mov dx, offset KeyMsg
  2036. @@40:
  2037. or ax, ax ; Mr. Lei 4/25/1993
  2038. jz @@_42
  2039. shr al, 1
  2040. push ax
  2041. jnc @@41

  2043. push ax
  2044. call ColorDisplayStr
  2045. ; mov ah, 9
  2046. ;int21h
  2047. pop ax

  2049. or al, al
  2050. jz @@42

  2052. push dx
  2053. mov dx, offset PlusMsg
  2054. call ColorDisplayStr
  2055. ; Print PlusMsg
  2056. pop dx

  2058. @@41: add dx, 12
  2059. pop ax
  2060. jmp @@40
  2061. @@42: pop ax
  2062. @@_42: cmp cs:AuxHotKey, 0
  2063. jz @@43 cmp cs:HotKey, 0 ; Mr. Lei
  2064. jz @@_43
  2065. mov dx, offset PlusMsg
  2066. call ColorDisplayStr
  2067. ; Print PlusMsg
  2068. @@_43: mov dx, offset AuxHotKeyName
  2069. call ColorDisplayStr
  2070. ; Print AuxHotKeyName
  2071. @@43:
  2072. Print crlf
  2073. ret

  2075. ColorDisplayStr:
  2076. push bx
  2077. push cx
  2078. push dx
  2079. push si
  2080. mov bl, 0fh
  2081. mov si, dx
  2082. xor bh, bh
  2083. mov cx, 1
  2084. @@1: lodsb
  2085. cmp al, '

  2087. jz @@2
  2088. or al, al
  2089. jz @@2
  2090. push cx
  2091. mov ah, 09h
  2092. int10h
  2093. mov ah, 3int10h
  2094. inc dl
  2095. mov ah, 2int10h
  2096. pop cx
  2097. jmpshort@@1
  2098. @@2:
  2099. pop si
  2100. pop dx
  2101. pop cx
  2102. pop bx
  2103. ret

  2105. ; ---------------------------------------------------------------------------
  2106. CmpSideKick:
  2107. xor ax, ax
  2108. mov es, ax
  2109. les bx, es:[20h]
  2110. cmp word ptr es:[bx-4], 4b53h
  2111. jnz @@1 cmp word ptr es:[bx-2], 4942h
  2112. jz @@2
  2113. @@1: mov es, ax
  2114. les bx, es:[94h]
  2115. cmp word ptr es:[bx-2], 4b53h
  2116. jz @@2
  2117. ret
  2118. @@2: or cs:Status, SKbit
  2119. ret

  2121. ; ---------------------------------------------------------------------------
  2122. CmpDosVer: mov ah, 30h
  2123. int21h
  2124. cmp al, 3
  2125. jb @@1 cmp al, 3
  2126. jna @@2
  2127. mov cs:cvtOfs, 1
  2128. ret
  2129. @@2: mov cs:cvtOfs, 0
  2130. ret
  2131. @@1: Print DosVerErr
  2132. mov ax, 4cffh
  2133. int21h

  2135. DosVerErr db 'Sorry, DOS version too lower !',0dh,0ah,'


  2138. HotKeyValid:
  2139. cmp cs:HotKey, 0
  2140. jnz @@_1
  2141. cmp cs:AuxHotKey, 0
  2142. jnz @@_1
  2143. Print HotKeyErr
  2144. mov ax, 4cfeh
  2145. int21h
  2146. @@_1: ret

  2148. HotKeyErr db 'Sorry, please setup hotkey again. ',0dh,0ah,'


  2151. eof:
  2152. ends
  2153. end Start

  2155. ; ------------- The End !---------------------------------------------------