Enable or disable A20 gate through KBC demo code.

bini

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

1. ;A200N.ASM
   : W$ \7 y9 @( Z) y' p) y) |% A
2. ;
   
3. ; Trun on the line A20 through the KBC, programming by bini for debug. 2008-07-01
   
4. ;       ml A20ON.asm
   & C; E8 o' F  o+ w. s4 I3 O
5. ;
   
6. .model tiny
   / a& z  v8 O8 ~* z/ E
7. .code
   ) H1 q3 [% K; H) y6 r/ _2 F
8. .486
   
9. .startup
   ! L/ @  h' }2 Y6 T# R! X
10. 
    ) f8 P& ]% y2 l1 ]  _2 R/ U0 h. R  h
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    
13.                 int     21h
    
14. 
    
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_ENABLE
    
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    
19. 
    ; F4 V3 f" T. R
20. exit1:          mov     ah, 09h
    ' u9 _/ U, w! |9 G8 z* c/ d( a
21.                 int     21h
    9 }5 z( S& J6 ?5 ?& U
22.                 mov     ax, 4C00h
    
23.                 int     21h
    
24.                
    
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, "$"
    ) v/ g: S0 y  P9 P+ G& ^
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
    : l( a: U2 `- i
29. 
    3 f' q0 y1 T0 x2 ~5 X
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    $ k0 L3 ]4 f" Y! v- o
31. A20_ENABLE:
    
32.                 call    A20Write
    ; X8 j! U% q0 |2 s! t; H
33.                 jz      exit_enable
    
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    $ N0 j; F7 Q! s3 H' x
37.                 out     64h, al
    , ^% v4 h" r5 s$ s$ Y
38.                 call    A20Read
    
39.                 jz      enable_int
    
40. 
    
41.                 in      al, 60h                 ; Get current status
    0 K1 b( H$ x; G2 y$ c
42.                 mov     ah, al
    " H8 I- i- c, S+ F
43.                 call    A20Write
    
44. enable_int:    sti
    $ r# F6 g* _7 W' ^" z
45.                 jz      exit_enable
    
46. 
    5 R& z& `% K: Z7 N# m7 z, y
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    / X4 K8 i( l4 E; L& d; N) M/ u
48.                 out     64h, al                 ; Out Put Port next
    
49.                 call    A20Write
    
50.                 jz      exit_enable
    
51. 
    $ v) [! W  M" A' @
52.                 mov     al, ah
    
53.                 or      al, 2                   ; Enable line A20
    , v# H# K/ @. e9 ?
54.                 out     60h, al
    2 }+ G" I8 A& F, W: P; Y
55.                 call    A20Write
    
56.                 jz      exit_enable
    * r8 {6 e( i! Q0 C1 T
57. 
    : ~$ R+ `4 Y  ^% M$ m! H6 W( w
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    % r2 b+ x3 P8 Z1 ]  }' o- H
60.                 call    A20Write
    $ |! w  g+ l/ D
61. 
    
62. exit_enable:          ret
    ; H& W. g4 Y& D
63. 
    
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    2 u! Q, a: [- U
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    0 Q! V; ?4 k- n1 C" z
68.                 dec     cx
    # `* y' B* t- K0 b9 }$ c$ L
69.                 jz      exit_write
    - _9 z$ P! |1 R' K0 B8 ~
70.                 jmp     short get_wirte
    % _9 y; y( b) n9 g3 O
71. clear:          inc     al                      ; Clear ZR
    : `+ l# R. }% h* s3 ]
72. exit_write:     ret
      }# @& m: j& `+ {0 P9 w4 n- H
73. 
    5 s7 O4 G( F" f$ c
74. 
    ( \/ o' Z3 J0 G& T: T. ]) K$ {
75. A20Read:        xor     cx, cx
    ; Y0 V) j5 A9 L7 f# B2 i* H% w
76. get_read:       in      al, 64h
    7 @; J2 A+ Q2 A
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    2 _! @/ l+ m. e/ N5 h1 v
79.                 dec     cx
    2 r0 ~6 H: U- [
80.                 jnz     get_read
      e6 O$ c0 i+ T/ \/ \) B
81. exit4:          ret     
    ( z. d3 `- G  c6 A! Q& q
82.                
    
83. end

复制代码

1. ;A200FF.ASM
   
2. ;
   
3. ; Trun off the line A20 through the KBC, programming by bini for debug. 2008-07-01
   
4. ;       ml A20ON.asm
   
5. ;
   
6. .model tiny
   ' X6 l, A- X8 Q* R
7. .code
   
8. .486
   
9. .startup
   
10. 
    
11.                 mov     dx, offset msg_author
    2 U* S! f1 y2 P) b: F+ q8 A, Y
12.                 mov     ah, 09h
    % n6 |' U2 e8 I& @& S0 M+ o, C
13.                 int     21h
    
14. 
    - |  O2 `1 O# I1 ~+ x
15.                 mov     dx, offset msg_fail
    * r2 G) ^7 i3 K7 z  J
16.                 call    A20_DISABLE
    2 }+ W" m/ ~  Q$ m. X5 i/ E; N, B5 e
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    - q) d# i7 V0 ^8 R- M
19. 
    # h* `/ f8 f: l5 T5 c6 N
20. exit1:          mov     ah, 09h
    " b( _0 t% c5 J7 s5 D
21.                 int     21h
    
22.                 mov     ax, 4C00h
    3 q4 ]2 y. J% Q+ x. L; _
23.                 int     21h
    
24.                
    
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    $ j! S" l) W! ?; w! g
26.                         "2008-07-01",13, 10, "$"
    . A" g; x9 o  o+ n" ~
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
    ( }  ?( A4 T8 V, P5 X% U* E0 W
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    2 d2 R, t! D1 L' A) S$ D$ b
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    - p% R- l! v) B- B, N) v
31. A20_DISABLE:
    7 V# {1 H9 S8 b4 t4 e/ F
32.                 call    A20Write
    
33.                 jz      exit_disable
    + q8 X! W. ?0 s9 l1 T
34. 
    ! A, k' {, v, l) D
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    
37.                 out     64h, al
    1 ?2 _  X9 z. v9 P" v
38.                 call    A20Read
    
39.                 jz      Disable_int
    ; J1 e9 c" u: d* p2 j) e
40. 
    
41.                 in      al, 60h                 ; Get current status
    " j0 m# C# q0 j* w9 {
42.                 mov     ah, al
    ( ~4 U) h  S% n( C3 l, L* Y0 X
43.                 call    A20Write
    
44. Disable_int:    sti
    ) @& s( e, _' p. F7 q
45.                 jz      exit_disable
    
46. 
    3 f$ c' }# v0 ?& q9 a- D, W2 |  T  Q
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    ! A1 b/ h$ U' E2 E3 ]' p6 _5 y& c
48.                 out     64h, al                 ; Out Put Port next
    ' d, [8 p4 f7 H5 F5 s
49.                 call    A20Write
    3 G8 f$ D7 R: c9 w2 z
50.                 jz      exit_disable
    
51. 
    
52.                 mov     al, ah
    $ W3 K  j' Y4 w/ @: \6 j' `
53.                 and     al, not 2               ; Disable line A20
    % j# d. r1 g' p" l
54.                 out     60h, al
    ) s9 m8 }& K. ]* u4 X; L
55.                 call    A20Write
    
56.                 jz      exit_disable
    
57. 
    / C8 _- [% P: {/ h: ]
58.                 mov     al, 0FFh                ; NOP
    - o. _. Q* [3 ^, z1 N& \2 I) ?! b
59.                 out     64h, al
    6 A+ b% ]& q/ X, ^1 r* n
60.                 call    A20Write
    . d& l7 d3 s  ~0 N! c- B/ O
61. 
    
62. exit_disable:          ret
    ( i, e' g* W  ?1 n/ u. C
63. 
    ! G) G6 f* y  d- o$ u
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    9 |3 Z& f1 Y+ ]$ J% Y: Q
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    ( L& {* Y2 J6 U! G
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    : d' q6 ~( ^9 v- {6 t
67.                 jz      clear
    
68.                 dec     cx
    : |: Z' }  b8 L" u! A! g: j* F0 x
69.                 jz      exit_write
    4 ]8 P0 b# |- i4 k2 U6 ?2 N* ^
70.                 jmp     short get_wirte
    
71. clear:          inc     al                      ; Clear ZR
    - u/ F& e8 l- |) Y0 ^  y" T
72. exit_write:     ret
    
73. 
    4 D/ H" k7 A& U# s) z' ?) [5 ?/ C
74. 
    
75. A20Read:        xor     cx, cx
    8 i; X$ x& i9 c: _
76. get_read:       in      al, 64h
    
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    4 a; T: t' P7 M' i) d' L
78.                 jnz     exit4                   ; ...
    ' k" `% p/ L7 d5 [- c! S
79.                 dec     cx
    
80.                 jnz     get_read
      t2 g' d# W' c9 W+ T1 G
81. exit4:          ret     
    
82.                
    * J8 r7 U: `/ `5 d# _! R5 e+ X2 Q" t
83. end

复制代码

1. ;A20STATE.ASM
   
2. ;
   3 y- e; Z! B) b
3. ; Returns the status of the line A20 through the KBC
   ( ~  m1 _% e4 Q% \
4. ;       programming by bini for debug. 2008-07-01
   
5. ;
   
6. .model tiny
   3 A4 _4 F. B+ l0 H9 W
7. .code
   , d" z9 q6 @9 U* s% X
8. .486
   & S4 H! W. P6 e4 d4 n& {" q8 a( A! X" r
9. .startup
   
10.                 mov     dx, offset msg_fail
    ! H& O2 d- L5 D1 a% h+ K% X
11.                 call    _GET_A20_STATE_
    , B: J/ L* f/ V! R$ {8 O
12.                 jz      exit1                           ;  was a problem
    
13.                 push    ax                              ; Save state, AH
    1 F( a& D* K: M! ]; e) F/ D
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
    
15.                 mov     ah, 09h
    
16.                 int     21h                             ; Print message
    ; |: {: j, k' r1 T/ @. x2 g9 J( g
17.                 pop     ax                              ; retreve state
    
18. 
    0 |0 U" `6 R& ]8 r
19.                 mov     dx, offset msg_dis
    + \) e- h& z1 Q. v* i" C# W
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    ' |0 G% f3 a3 J" m; V
21.                 jz      exit1
    
22.                 mov     dx, offset msg_en
    2 o; C& K" b% C+ O  h$ V! E
23. 
    
24. exit1:          mov     ah, 09h
    
25.                 ; DX already contains address of string
    
26.                 int     21h
    
27. 
      ]& l7 v; P, k) W/ Z
28.                 mov     ax, 4C00h
    
29.                 int     21h
    
30. 
    
31. msg_ok         db      "OK", 13, 10, "A20 $"
    9 v# N1 F* O5 Y
32. msg_fail       db      "FAIL", 13, 10, "$"
    
33. msg_en         db      "ENABLED", 13, 10, "$"
    - ?! U( g4 f/ j& o' H" L
34. msg_dis        db      "DISABLED", 13, 10, "$"
    8 Z' w3 R. O5 g. K
35. 
    0 T, Y3 _, D: E  q
36. 
    
37. _GET_A20_STATE_:
    
38.                 call    A20Write                ; Wait till the input register is empty
    
39.                 jz      exit2+1                 ; Bypas the reset int's
    8 a& S# R/ C3 b  [' [* m8 _6 ~7 O2 [
40.                 cli                             ; Disable ints so we'll get our value
    
41. 
    4 {* z1 Y( o2 O, h- a4 z9 e1 C
42.                 mov     al, 0D0h                ; Send command to the 8042 command register
    ) t2 O; o0 c% C9 Q* ^, N- a) h
43.                 out     64h, al                 ; to tell it we want to Read the Output Port
    
44.                 call    A20Read                 ; Wait till the 8042 output register
    $ [* Z2 y- x+ C4 S$ \" L0 f
45.                 jz      exit2                   ; has something in it's buffer
    
46. 
    4 g( w( R8 H5 [6 }0 R5 }
47.                 in      al, 60h                 ; Get it
    
48.                 mov     ah, al
    / L# D4 {8 Y& j
49.                 call    A20Write                ; Make sure the input register is empty
    : L- d9 t  j4 x' z: J' j- X
50.                 jz      exit2
    
51. 
    1 i8 N' [3 m9 j8 i7 r5 q3 P
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    
53.                 out     64h, al
    0 e, e5 A: q$ Z6 G
54.                 call    A20Write
    1 R% m, c0 S# L* d8 V
55. 
    . d) y6 K$ T1 b/ c! t* T8 ?
56. exit2:          sti
    , J6 I) \6 I1 m% I5 W& |
57.                 ret
    
58. 
    
59. 
    8 w3 d: b' t; X+ |
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    
61. get1:           in      al, 64h                 ; Get KBC read status
    % }- r) M8 U) b% L0 G( U
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    : Y2 Q- x+ k' h4 B! I1 C$ W. V5 @% E
63.                 jz      clear
    
64.                 dec     cx
    
65.                 jz      exit3
    
66.                 jmp     SHORT get1
    
67. clear:          inc     al                      ; Clear ZR
    
68. exit3:          ret
    4 ~7 C2 X3 G7 [2 w- n1 ?) X
69. 
    
70. 
    / T, T/ ]3 ]0 `' Z
71. A20Read:        xor     cx, cx
    
72. get2:           in      al, 64h
    ; Z/ N1 O8 G4 m* r" r( g$ T
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    * }7 P5 M/ i' m2 c% U) }5 B
74.                 jnz     exit4                   ; something for me
    
75.                 dec     cx
    
76.                 jnz     get2
    - d, [! L* \5 @, ~" \
77. exit4:          ret     
    
78.                
    
79. end

复制代码

Tangailiu

void openA20()
2 \+ }8 r- W/ D1 n{        while(inp(0x64) & 2);        outp(0x64,0xd1);
        while(inp(0x64) & 2);        outp(0x60,0xdf);
8 \" x) ?* P0 e9 {        while(inp(0x64) & 2);        outp(0x64,0xff);
! ?3 Z* c+ K  @: a8 s6 k/ R}