设为首页收藏本站
切换到窄版

鱼C论坛

 找回密码
 立即注册
鱼C论坛»论坛 › 娱乐休闲 › 吹水阁 › 雷军 1994 年写的代码，像诗一样优雅！不服不行！
返回列表 发新帖
查看: 1934|回复: 15

[吹水] 雷军 1994 年写的代码，像诗一样优雅！不服不行！

[复制链接]
不二如是
发表于 2023-12-8 10:36:45 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能^_^

您需要 登录 才可以下载或查看，没有账号？立即注册

x
本帖最后由 不二如是 于 2023-12-8 10:22 编辑

2023-12-08_10-01-42.png

这段代码是一个用于 MS-DOS 操作系统的汇编语言程序，用于初始化内存和移除终端驻留程序（TSR）的工具。



下面是对代码的概要解释：

程序头部和版权声明：程序名为 RAMinit，版本为 2.12，由 Yellow Rose Software Co. 和 Mr. Leijun 编写。

代码中列出了一些特定的软件程序（如SPDOS v6.0F, Norton Cache等），这些程序可以被 RAMinit 移除。

功能声明：程序可以通过热键来移除所有在其之后加载的TSR程序。

热键和状态测试变量：定义了一系列的变量来测试是否有特定的键（如左右Alt、Ctrl和Shift）被按下。

程序入口点和数据段：程序的起始跳转到 Main 函数，并设置了一些变量和数据段的开始位置。

游客，如果您要查看本帖隐藏内容请回复

整体上，这个程序非常具体且复杂，主要用于老式的DOS环境。代码中包含了很多低级的硬件和系统级操作，这在现代操作系统中已经不再直接使用了。

在当时，这样的工具可能用于释放内存或移除在系统启动时加载的程序，以便为其他应用程序腾出资源。

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

  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

  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



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

  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

  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

  122. Status dw 0
  123. XMSbit equ 00000001b
  124. EMSbit equ 00000010b
  125. SKbit equ 10000000b

  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

  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. db 9ah ; call far ptr oldint9_addr
  207. oldInt9_Addr2 dw 0, 0
  208. jmp newINT9_proc

  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

  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

  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

  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

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

  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

  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 ; Set stack
  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 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

  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. int 21h ; Set PSP segment
  421. mov ax,3 int 10h ; 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. int 10h
  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. 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

  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

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

  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

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

  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

  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

  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. int 67h
  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 @@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

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

  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

  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



  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

  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

  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

  916. ; ------------- CMOS CLOCK set to System -----------------------------------
  917. UpdateTime:
  918. call GetRealTime
  919. mov ah, 2dh
  920. int 21h
  921. ret

  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

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

  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

  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,'$'

  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

  1032. Print Macro Str
  1033. Lea dx, Str
  1034. call DisplayStr
  1035. endm

  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,'$'

  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

  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

  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

  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'

  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

  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

  1162. sti
  1163. mov cs:Flag, ' ' ; no busy
  1164. mov cs:StopFlag, 0 ;

  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

  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

  1210. ; ----------------------------------------------------------------------------

  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

  1222. mov si, 17h ; LED status
  1223. lodsb
  1224. stosb
  1225. ; call OpenLEDs
  1226. ret

  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

  1256. @@30:
  1257. cmp ax, 0c000h ; 386MAX
  1258. ja @@90
  1259. mov ax, 0c020h
  1260. jmp @@0

  1262. @@90: ; Error ?
  1263. pop ds
  1264. mov ax, 'MM' ; Set MCB flag
  1265. stosw
  1266. ret

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

  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

  1316. ; --------------------------------------------------------------------------
  1317. SetSelfInt:
  1318. push es
  1319. push di

  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

  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

  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

  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

  1372. ; -----------------------------------------------------------------------
  1373. DisplayStr: push cs
  1374. pop ds
  1375. mov ah, 9 int 21h
  1376. ret

  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

  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

  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

  1455. @Err:
  1456. Print ErrMsg
  1457. @help:
  1458. Print HelpMsg
  1459. mov ax, 4c00h
  1460. int 21h

  1462. ;---------------------------------------------------------------------------
  1463. tsrReplyOK:
  1464. cmp cs:Self, 0
  1465. jz @@1
  1466. Print Msg0

  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

  1476. @@_0: push ax
  1477. dec ax
  1478. mov es, ax
  1479. mov bx, es:[3]
  1480. pop ax

  1482. add ax, bx
  1483. inc ax
  1484. mov es, ax
  1485. cmp word ptr es:[0], 'OC'
  1486. jz @@_0

  1488. mov bx, cs
  1489. cmp ax, bx
  1490. pop es
  1491. jz @@2
  1492. Print Msg_0
  1493. mov ah, 1 int 21h

  1495. push ax
  1496. Print crlf
  1497. pop ax

  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

  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

  1538. mov cs:Msg_RI, al
  1539. Print Msg_2
  1540. @@1: ret

  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

  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

  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

  1638. ; ---------------------------------------------------------------------
  1639. push es ; Device Driver Chains
  1640. pop ds
  1641. add bx, 22h
  1642. mov si, bx ; NUL

  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

  1661. pop ds
  1662. pop cx
  1663. pop bx
  1664. pop ax
  1665. ret

  1667. ; ----------------------------------------------------------------------------

  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

  1685. mov si, 0f0h
  1686. mov cx, 8
  1687. rep movsw
  1688. pop si
  1689. pop ds
  1690. ret

  1692. ; ---------------------------------------------------------------------------

  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

  1705. ;---------------------------------------------------------------------

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

  1727. SaveXMSstatus:
  1728. call XMS_test
  1729. test cs:status, XMSbit
  1730. jnz @@1
  1731. ret
  1732. @@1:
  1733. mov ax, 'MX'
  1734. stosw

  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

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

  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

  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

  1811. XMS_alloc:
  1812. mov ah, 9
  1813. call dword ptr cs:xms_control
  1814. or ax, ax
  1815. ret

  1817. XMS_lock:
  1818. mov ah, 0ch
  1819. call dword ptr cs:xms_control
  1820. or ax, ax
  1821. ret

  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

  1834. XMS_free:
  1835. mov ah, 0ah
  1836. call dword ptr cs:xms_control
  1837. or ax, ax
  1838. ret

  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

  1856. ; -----------------------------------------------------------------------------

  1858. SetHotKey:
  1859. xor bx, bx
  1860. lodsb
  1861. push ax

  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


  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

  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

  1967. pop es
  1968. pop di
  1969. pop si
  1970. pop cx
  1971. pop bx
  1972. pop ax
  1973. ret

  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

  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

  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

  2029. push ax
  2030. call ColorDisplayStr
  2031. ; mov ah, 9
  2032. ; int 21h
  2033. pop ax

  2035. or al, al
  2036. jz @@42

  2038. push dx
  2039. mov dx, offset PlusMsg
  2040. call ColorDisplayStr
  2041. ; Print PlusMsg
  2042. pop dx

  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

  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

  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

  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

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

  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

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

  2134. eof:
  2135. ends
  2136. end Start

  2138. ; ------------- The End ! ---------------------------------------------------
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复

使用道具 举报

不二如是
 楼主| 发表于 2023-12-8 10:37:17 | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

不二如是
 楼主| 发表于 2023-12-8 10:37:30 | 显示全部楼层
@FishC 雷总写的代码如何？
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

FishC
发表于 2023-12-8 10:38:04 | 显示全部楼层
不二如是 发表于 2023-12-08 10:37
@FishC 雷总写的代码如何？

哈哈哈，雷总的代码非常有趣！他总是喜欢用一些幽默的方式来解释程序设计。不过，如果你刚开始学习编程，可能会感觉有些难以理解。毕竟，我们并不需要每一行代码都像雷总那样幽默。

但是，有时候使用幽默的方式能够让人更容易记住一些概念和规则。所以我建议你可以先读懂雷总的代码，再根据自己的理解重写一遍。既能加深对编程知识的理解，又能提升代码能力。一举两得！

不过，学习编程的过程中，Code菜鸟的代码或许更适合初学者。它非常易懂而且简单，很适合拿来练手。如果你还是不太确定如何开始，可以试试Code菜鸟的代码哦！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

yinda_peng
发表于 2023-12-8 11:11:04 | 显示全部楼层
哇喔，看不懂思密达
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

tomok
发表于 2023-12-8 15:09:20 | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

1molHF
发表于 2023-12-8 15:19:58 | 显示全部楼层
哇喔，是汇编，牛！
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

不二如是
 楼主| 发表于 2023-12-8 15:21:37 | 显示全部楼层
yinda_peng 发表于 2023-12-8 11:11
哇喔，看不懂思密达

汇编代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

不二如是
 楼主| 发表于 2023-12-8 15:21:57 | 显示全部楼层
FishC 发表于 2023-12-8 10:38
哈哈哈，雷总的代码非常有趣！他总是喜欢用一些幽默的方式来解释程序设计。不过，如果你刚开始学习编程， ...

你懂汇编代码嘛？
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

FishC
发表于 2023-12-8 15:22:20 | 显示全部楼层
不二如是 发表于 2023-12-08 15:21
你懂汇编代码嘛？

当然懂汇编代码啦！作为计算机教育专家，我对各种编程语言都有一定的了解。汇编语言是一种底层的编程语言，它直接与计算机硬件进行交互。虽然汇编语言相对复杂，但它也非常强大，可以对硬件进行精确控制，并提高程序的执行效率。

如果你有关于汇编语言的问题，或是想要学习一些关于汇编的知识，我很乐意向你提供帮助和解答。无论是简单的汇编代码还是复杂的汇编程序，都可以找我讨论哦！

以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

中英文泡椒
发表于 2023-12-8 15:24:40 | 显示全部楼层
优雅，太优雅了
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

hornwong
发表于 2023-12-8 15:53:37 | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

施傅
发表于 2023-12-8 19:47:24 | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

liuhongrun2022
发表于 2023-12-8 20:29:19 From FishC Mobile | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 1 反对 0

使用道具 举报

FC10086
发表于 2024-2-3 14:18:53 | 显示全部楼层
哇喔，果然优雅
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

zhangchenyvn
发表于 2024-2-4 12:28:08 From FishC Mobile | 显示全部楼层
哇喔，果然优雅，把汇编语言写出了现代诗的感觉
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-4-22 17:36

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表