Enable or disable A20 gate through KBC demo code.

bini

反正图方便的，就拿去参照，也是之前遗留的code，整理了一下，好象其中的代码，一位Korea的同学有留下来一段code。

1. ;A200N.ASM
   
2. ;
   0 d, f3 `8 J+ Y3 V
3. ; Trun on the line A20 through the KBC, programming by bini for debug. 2008-07-01
   
4. ;       ml A20ON.asm
   ) r3 L& Z0 P" J9 ^7 O: S7 g
5. ;
   , N) s1 e) \$ o( U1 j
6. .model tiny
   
7. .code
   5 d8 M) l, u, q' t! s
8. .486
   
9. .startup
   0 d+ T( g$ v$ W) t
10. 
    
11.                 mov     dx, offset msg_author
    4 M, \/ u9 y& t3 I) u& U5 N- K- o
12.                 mov     ah, 09h
    
13.                 int     21h
    # C. O, D- F$ _* y0 ~) c
14. 
    
15.                 mov     dx, offset msg_fail
    5 Z' S. q8 t: w( S% H1 c
16.                 call    A20_ENABLE
    
17.                 jz      exit1
    9 s' _0 t$ |& O+ Y+ K4 W
18.                 mov     dx, offset msg_ok
    ' z2 L' ~' \! l3 y2 b% D& H4 b
19. 
    
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    
22.                 mov     ax, 4C00h
    3 x; r3 h/ m7 V2 e6 ]+ i
23.                 int     21h
    ' m8 ~+ X) c/ s2 I
24.                
    % J5 B5 O+ T2 C0 d; h2 j+ o
25. msg_author      db      "Trun on the line A20 tools through the KBC, programmin by bini", 13, 10,
    
26.                         "2008-07-01",13, 10, "$"
    
27. msg_ok          db      "A20 Enable OK", 13, 10, "$"
    0 J5 u4 L- V0 y7 x  ]* t! U$ p5 Y, {
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
      D; j7 Z- v' v( @6 Z3 p
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    
31. A20_ENABLE:
    9 x# N0 Y& M+ z
32.                 call    A20Write
    
33.                 jz      exit_enable
    
34. 
    # x; J( O- }7 `0 |* ]3 q5 I
35.                 cli                             ; Only need for reading value from KBC
    - a% B& f& c; |' j8 u1 |$ I5 E/ M. X
36.                 mov     al, 0D0h
    * o+ g) S. h" T) b& N$ U
37.                 out     64h, al
    . e1 G9 a! \) j; o. F: X" ?
38.                 call    A20Read
    % e0 B- R; [! ?! f# N
39.                 jz      enable_int
    
40. 
    1 |  t$ l. t/ S9 ~5 H# l9 L
41.                 in      al, 60h                 ; Get current status
    
42.                 mov     ah, al
    # T( s- T" _& g0 ^  ~
43.                 call    A20Write
    0 N1 ?" o  ?& x: J/ u
44. enable_int:    sti
    
45.                 jz      exit_enable
    
46. 
    
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    
49.                 call    A20Write
      O0 @" d: e. E3 p2 E; D3 V3 C1 n
50.                 jz      exit_enable
    
51. 
    ; o6 T- J; H/ v' |3 `" ~
52.                 mov     al, ah
    
53.                 or      al, 2                   ; Enable line A20
    , o* m8 L0 j9 m* z7 i* m$ r
54.                 out     60h, al
    * w; c! ~) _! X
55.                 call    A20Write
    
56.                 jz      exit_enable
    ) p) D, }, f: u3 h& y6 [
57. 
    * F% g6 m! Z7 Z0 q
58.                 mov     al, 0FFh                ; NOP
    4 h! q* P- ~* ]" W
59.                 out     64h, al
    & M4 S! r  ]/ g- m) y. ^4 `) h/ @8 e
60.                 call    A20Write
    
61. 
    
62. exit_enable:          ret
    4 r' L2 h' w+ G! J+ W
63. 
    # m1 d$ b0 b1 e. s. m
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    " B8 t! i6 b! Y0 u
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    / K) I; q4 N' @9 H( u6 g* z
67.                 jz      clear
    + ?" R: D9 \6 J5 y; P3 O8 _9 t8 p
68.                 dec     cx
    
69.                 jz      exit_write
    ; P. N8 `) K, B' i- M: B1 G- f3 f
70.                 jmp     short get_wirte
    " N% v/ X* v2 F. V% m1 Z
71. clear:          inc     al                      ; Clear ZR
    
72. exit_write:     ret
    
73. 
    ' G1 _# s, g0 O! v  D3 g
74. 
    
75. A20Read:        xor     cx, cx
    ' A8 C: M6 N2 k( s" ^& S" |
76. get_read:       in      al, 64h
    , {' N' r0 J8 o6 ?9 y+ A; u# A) B
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    ; }9 k  h' o2 R
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    3 [8 ^! Z( x3 m2 m/ U* z  H4 u
80.                 jnz     get_read
    
81. exit4:          ret     
    ) g4 M4 m6 P2 O" C+ c
82.                
    , d9 E# p. |7 n! t
83. end

复制代码

1. ;A200FF.ASM
   
2. ;
   
3. ; Trun off the line A20 through the KBC, programming by bini for debug. 2008-07-01
   - w( x0 ~4 b/ u8 A2 L- t
4. ;       ml A20ON.asm
   ! z7 n+ _" ^8 W% z  S
5. ;
   3 K% A( x) Y, W; n' E
6. .model tiny
   : K- e9 P( P) k( Z4 u" {
7. .code
   
8. .486
   
9. .startup
   
10. 
      b+ b$ ^/ U  x2 M' _( v3 L
11.                 mov     dx, offset msg_author
    1 _7 l3 z) ?: D0 s/ ]9 o
12.                 mov     ah, 09h
    , g# q: t, N4 [: \; z. s( Y
13.                 int     21h
    2 I8 H9 ~6 B3 }! ~' i8 B* i- k6 M
14. 
    & q, y( B% O$ c! Q) Q6 o! y
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_DISABLE
    1 X2 N9 w8 D2 [
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    ( ?! c5 T6 g( ^- G8 D* d; W  f" ^
19. 
    
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    / m" V2 h0 s4 G
22.                 mov     ax, 4C00h
    
23.                 int     21h
    
24.                
    ) }- ]6 a& e5 }4 ^9 Z
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    # R0 n& W" V7 |9 L. o/ @8 F
26.                         "2008-07-01",13, 10, "$"
    
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
      t* |( z% q, y
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    9 T8 s. G7 J; r5 O
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    - L7 {7 y& A- S( \8 J$ r
31. A20_DISABLE:
    8 y# f6 h9 t6 ^5 S& I4 s& Y. q7 W1 _
32.                 call    A20Write
    # d& K0 k3 R" Y7 W0 R2 n
33.                 jz      exit_disable
    
34. 
    4 p6 O' x1 g: }- O
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    8 ~- A, G+ P0 \$ P* R5 b) E
37.                 out     64h, al
    $ H3 Z4 \- D& e; L9 V
38.                 call    A20Read
    6 d: T& R+ u0 R; {$ i5 S. F
39.                 jz      Disable_int
    
40. 
    ! W  F- @7 j' b) a0 y0 z* Z
41.                 in      al, 60h                 ; Get current status
    
42.                 mov     ah, al
    * K4 E, T. H1 |
43.                 call    A20Write
    - X+ A. t' n( ?# M* {" h
44. Disable_int:    sti
    + K9 x4 \4 z, X: b0 E/ w0 {9 E1 p3 e
45.                 jz      exit_disable
    
46. 
    
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    $ p$ \% h2 U: G; H4 v
48.                 out     64h, al                 ; Out Put Port next
    9 {2 g2 T. U1 u0 o8 Z
49.                 call    A20Write
    
50.                 jz      exit_disable
    
51. 
    
52.                 mov     al, ah
    
53.                 and     al, not 2               ; Disable line A20
    
54.                 out     60h, al
    $ F2 n: D* C" l6 u' X% \* D6 n
55.                 call    A20Write
    
56.                 jz      exit_disable
    # G! a- M* Z" ]% g6 W6 E
57. 
    
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    
60.                 call    A20Write
    3 o& L  R, r5 Y1 }7 c* _
61. 
    
62. exit_disable:          ret
    
63. 
    
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    ) t5 i7 }) e! n: ^  Q
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    7 \* k9 ~+ O- C
67.                 jz      clear
    
68.                 dec     cx
    
69.                 jz      exit_write
    : q& ^% W, D6 u& L
70.                 jmp     short get_wirte
    ) z3 J7 R1 e  `' E# E0 ?
71. clear:          inc     al                      ; Clear ZR
    - t6 m. o( A0 T) C# \; t
72. exit_write:     ret
    
73. 
    
74. 
    
75. A20Read:        xor     cx, cx
    0 w9 q. [3 P6 I! r- W* d% V. e
76. get_read:       in      al, 64h
    
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    " ?( B, k9 F$ ?; C
80.                 jnz     get_read
    6 z5 y0 X7 e9 Y" L
81. exit4:          ret     
    8 h2 ^0 h7 T0 n; `0 k
82.                
    6 p$ n( q7 ^  k1 ~8 w  c
83. end

复制代码

1. ;A20STATE.ASM
   % T( g6 l) c% W- e
2. ;
   ! V: b( {4 K/ ^$ [: T  V9 r
3. ; Returns the status of the line A20 through the KBC
   
4. ;       programming by bini for debug. 2008-07-01
   ' n$ s) J+ g  o/ D, M1 e3 ~, h
5. ;
   + `7 b! Q5 E* E, _
6. .model tiny
   ; A9 j$ H: A5 o: R5 L
7. .code
   : {1 Y0 e% F' H4 a
8. .486
   
9. .startup
   0 z% P2 f1 W' ~( a8 r
10.                 mov     dx, offset msg_fail
    
11.                 call    _GET_A20_STATE_
    ! \0 o6 L& a5 Y5 X0 L
12.                 jz      exit1                           ;  was a problem
    / m, m, j1 y* X7 ~% r: D3 x
13.                 push    ax                              ; Save state, AH
    + }! s* `. R) u+ E
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
      X3 }6 C1 q( M# r  c
15.                 mov     ah, 09h
    
16.                 int     21h                             ; Print message
    
17.                 pop     ax                              ; retreve state
    2 Y; L2 r" X$ D- \8 s* o
18. 
    
19.                 mov     dx, offset msg_dis
    : G2 P6 N) G7 ?) O5 f
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    
21.                 jz      exit1
    
22.                 mov     dx, offset msg_en
    
23. 
    * A1 s5 f1 T- a9 d# k
24. exit1:          mov     ah, 09h
    
25.                 ; DX already contains address of string
    
26.                 int     21h
    
27. 
    6 R1 H0 L. ~9 i! |( q5 R- A$ j
28.                 mov     ax, 4C00h
    
29.                 int     21h
    
30. 
    ' z% ^3 K; `. q) d
31. msg_ok         db      "OK", 13, 10, "A20 $"
    
32. msg_fail       db      "FAIL", 13, 10, "$"
    % D# x& [& @+ O2 C
33. msg_en         db      "ENABLED", 13, 10, "$"
    
34. msg_dis        db      "DISABLED", 13, 10, "$"
    
35. 
    
36. 
    
37. _GET_A20_STATE_:
    1 e' G7 @) L* s% C. u  V
38.                 call    A20Write                ; Wait till the input register is empty
    ( \4 \) s3 k1 i" H" g
39.                 jz      exit2+1                 ; Bypas the reset int's
    5 N7 i1 V/ u! }- _/ M3 G
40.                 cli                             ; Disable ints so we'll get our value
    
41. 
    
42.                 mov     al, 0D0h                ; Send command to the 8042 command register
    
43.                 out     64h, al                 ; to tell it we want to Read the Output Port
    ) \( C5 R* |/ Y% ]. p* I
44.                 call    A20Read                 ; Wait till the 8042 output register
    . ?& ~: P2 r* K1 T% F6 y
45.                 jz      exit2                   ; has something in it's buffer
    
46. 
    
47.                 in      al, 60h                 ; Get it
      k9 ^$ C( o5 t# ?2 V. f0 k
48.                 mov     ah, al
    + `. ~) O) b& [+ z
49.                 call    A20Write                ; Make sure the input register is empty
    
50.                 jz      exit2
    
51. 
    
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    : i% w: K0 O/ Z8 J# K! }$ J
53.                 out     64h, al
    ' ?/ O* a+ r9 O8 N. P
54.                 call    A20Write
    ; m3 S$ k5 q! t1 k7 m
55. 
    3 x/ ]/ O0 ~! B& T8 m4 F
56. exit2:          sti
    
57.                 ret
    ( i# d# @+ d5 t% n
58. 
    * G" i- u" ^. H  C% K2 |
59. 
    & {1 D3 S2 ?1 [6 U$ z6 a+ b
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    
61. get1:           in      al, 64h                 ; Get KBC read status
    & Y$ h0 f0 |  ]0 e# E/ {
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    ! h# e  s. a# x, d7 P( a
63.                 jz      clear
    ; N: _$ @0 o' Y. T* s% d
64.                 dec     cx
    
65.                 jz      exit3
    , E6 y, X+ y* E# r1 i
66.                 jmp     SHORT get1
    
67. clear:          inc     al                      ; Clear ZR
    9 K7 u' W' K; h9 Z, I
68. exit3:          ret
    9 l8 `5 h0 j0 c7 C2 B; h
69. 
    ( v; I2 h3 K/ P- b
70. 
    . d" z; L$ j0 Z- g' C- z% R9 L  d! w
71. A20Read:        xor     cx, cx
    5 I5 ]+ T! Y$ ~/ e% z
72. get2:           in      al, 64h
    
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    
74.                 jnz     exit4                   ; something for me
    . e# p) }" p9 P" l" ~4 ?  w) N
75.                 dec     cx
    
76.                 jnz     get2
    ; E4 b! I' {; [" n7 E0 }$ o
77. exit4:          ret     
    3 f4 F, t2 F( Z( P) w
78.                
    
79. end

复制代码

Tangailiu

void openA20()
{        while(inp(0x64) & 2);        outp(0x64,0xd1);
2 [5 c4 P) y8 H9 i$ d) _! E& r        while(inp(0x64) & 2);        outp(0x60,0xdf);
/ O8 _# f, R+ ?/ ?. ]        while(inp(0x64) & 2);        outp(0x64,0xff);
}