Enable or disable A20 gate through KBC demo code.

bini

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

1. ;A200N.ASM
   
2. ;
   % {5 s7 Z( G( h
3. ; Trun on the line A20 through the KBC, programming by bini for debug. 2008-07-01
     B( ]4 t) Q: E5 y. S! Z& y
4. ;       ml A20ON.asm
   
5. ;
   
6. .model tiny
   / s; T/ s6 @5 \
7. .code
   " i1 ?  W* V' o1 e
8. .486
   5 g, `1 D7 Z/ {) x
9. .startup
   
10. 
    
11.                 mov     dx, offset msg_author
    , i; ~% \" [$ @- I
12.                 mov     ah, 09h
    : J& B  Y+ d, h7 b' m/ V) K2 H
13.                 int     21h
    0 o6 l" {8 t3 G
14. 
    ! Y! f8 F  b* r# }
15.                 mov     dx, offset msg_fail
    ; e3 J. B, b8 x2 L3 I; h
16.                 call    A20_ENABLE
    
17.                 jz      exit1
    5 B% ^' N% O+ o. l: O3 e. c
18.                 mov     dx, offset msg_ok
    , s2 y" Y  F; [, a* ]4 K# g
19. 
    1 \5 \8 ^2 ]: P! o
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    2 R* i2 F' V2 R/ |
22.                 mov     ax, 4C00h
    
23.                 int     21h
    % t& t) d" {! b; c
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, "$"
    0 `. i8 k/ r" A% w$ A
27. msg_ok          db      "A20 Enable OK", 13, 10, "$"
    % {7 I5 A$ B- w
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
    
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    3 g; v$ J. O+ s' U. X6 b8 V
31. A20_ENABLE:
    * Y" f) b; e% R" S2 P" ~, B. n
32.                 call    A20Write
    
33.                 jz      exit_enable
    5 k! I6 m* J) W
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    / ]9 ]. T" \; q' ], E) e6 ~
37.                 out     64h, al
    ) v: h) J/ U8 h2 \. P3 e. }
38.                 call    A20Read
    5 ]& w+ i' |6 F- U8 ~
39.                 jz      enable_int
    0 ^8 k6 H; ^' B% `5 f6 e# w
40. 
    " ~& u# G! a$ b$ ^
41.                 in      al, 60h                 ; Get current status
    ' r# S( q1 E3 o8 K( s; C$ e( v1 \) g
42.                 mov     ah, al
    ; c- m* ]$ X% x  l; g) ~5 e
43.                 call    A20Write
    
44. enable_int:    sti
      u7 P# E& ^( B8 G; Q- k' m1 |
45.                 jz      exit_enable
    ( o  d! P2 A# u5 l- V- v6 A9 E
46. 
    # U. N# _) U7 w: s
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    ; j+ v4 \( M6 a. U( ]
49.                 call    A20Write
    ; c6 p; i+ P% W0 X) ^' n( ?
50.                 jz      exit_enable
    
51. 
    $ y& I0 d0 |- p$ u. B1 I$ o3 n
52.                 mov     al, ah
    
53.                 or      al, 2                   ; Enable line A20
    
54.                 out     60h, al
    ( \8 ~# G5 a6 s
55.                 call    A20Write
    2 p% K6 E) f) s: b! B0 d
56.                 jz      exit_enable
    " G6 {, y5 T& w8 A
57. 
      q' i% W6 E0 j3 y  k/ C
58.                 mov     al, 0FFh                ; NOP
    9 {, l# P& e3 k0 ^2 x! }
59.                 out     64h, al
    8 Q/ o0 }3 l3 _- t8 ~3 |: ?; o5 b
60.                 call    A20Write
    
61. 
    ! Q; @1 X. F$ c8 s# F* S( @
62. exit_enable:          ret
      q- |% ~- k* F$ ~
63. 
    1 y( u3 r* s3 K, q' ?1 K# T
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    0 l  s: R. S- p
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    4 n0 E5 H; F. c! v
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    ! u$ e5 u- ^4 {
67.                 jz      clear
    / X$ C5 `! c: D# B% o3 [
68.                 dec     cx
    
69.                 jz      exit_write
    % `( j- {6 l% @$ e
70.                 jmp     short get_wirte
    ( h" G' M! ?9 P  ?! s9 E
71. clear:          inc     al                      ; Clear ZR
    # \& ?; M; n" Z$ R  i$ y% a
72. exit_write:     ret
    
73. 
    8 C$ x% N& M  E4 q3 K' j* `7 O
74. 
    % h' C! V" E0 F, g
75. A20Read:        xor     cx, cx
    9 X( p6 }3 Y; c/ ]' H, \+ `5 n: f
76. get_read:       in      al, 64h
    
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    % K+ {- `9 `" R/ I
79.                 dec     cx
    
80.                 jnz     get_read
    
81. exit4:          ret     
    6 v* {% G& ~% N- C
82.                
    " M3 D$ R8 ]7 E1 r) }+ `' [  F
83. end

复制代码

1. ;A200FF.ASM
   
2. ;
   , ?7 D4 X" I0 ]6 c* v2 b0 o
3. ; Trun off the line A20 through the KBC, programming by bini for debug. 2008-07-01
   7 y+ x2 e2 Y: }% A
4. ;       ml A20ON.asm
   
5. ;
   
6. .model tiny
   * ]' @6 h$ h! X' g( T% k( N
7. .code
   2 q( M; ^" W( z  ]& \6 f
8. .486
   
9. .startup
   : F0 `) J6 X) x0 f
10. 
    ( J0 `/ D( p5 `: B& t3 i
11.                 mov     dx, offset msg_author
    # ~9 D1 [2 |- n
12.                 mov     ah, 09h
    
13.                 int     21h
    
14. 
    
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_DISABLE
    
17.                 jz      exit1
    0 e5 |# F- O2 z; G% \8 D# u- s
18.                 mov     dx, offset msg_ok
    
19. 
    4 f+ W3 ?! i1 @
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    * E' G; r: _8 x. h
22.                 mov     ax, 4C00h
      V; f9 k$ i  }$ p+ ~
23.                 int     21h
    - f8 z. j5 c* T1 K' F8 s" v. a
24.                
    
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    
26.                         "2008-07-01",13, 10, "$"
    9 A. W& z' L8 T/ f+ D- Y% l$ S) }
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
    / y% s  m  N# Y! _  a, t, q
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    
31. A20_DISABLE:
    
32.                 call    A20Write
    $ w: l7 Y: T, P; n4 a: E* H
33.                 jz      exit_disable
    
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    
37.                 out     64h, al
      y1 r8 d$ c( s# \$ L2 p
38.                 call    A20Read
    
39.                 jz      Disable_int
      a6 K* X# q$ m4 H/ @
40. 
    
41.                 in      al, 60h                 ; Get current status
    # C; J# g& _7 r; I. s; e1 |  m' n' j
42.                 mov     ah, al
    ( L/ a' w4 l. B  ^. q( w
43.                 call    A20Write
    * o/ m$ C9 Y6 C
44. Disable_int:    sti
    
45.                 jz      exit_disable
    % Z9 A% e( A( f8 C
46. 
    
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    8 ?9 m3 k. {2 J; X# g
49.                 call    A20Write
    
50.                 jz      exit_disable
    
51. 
    6 Y1 w6 ~% ?4 z" Q8 C& q! N% X
52.                 mov     al, ah
    ( c! N; Y5 L$ m7 _. ]
53.                 and     al, not 2               ; Disable line A20
    6 U# _% |7 E/ o* \
54.                 out     60h, al
    
55.                 call    A20Write
    
56.                 jz      exit_disable
    
57. 
    
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    ! r  d0 P+ Q: R6 C
60.                 call    A20Write
    
61. 
    # t$ S9 c$ _8 l) I7 F: `
62. exit_disable:          ret
    
63. 
    4 v2 s6 V- M( H$ x2 d5 |+ B
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    # ~) }1 s  T% A: Y6 i" }
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    - E0 [; G: m0 E8 C& K
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    # G0 f, |. y' T; {: Y: j1 ~
67.                 jz      clear
    ! I: |0 v1 y! e- }
68.                 dec     cx
    0 j0 c: g9 ~1 A" F& Y8 F2 c
69.                 jz      exit_write
    
70.                 jmp     short get_wirte
    0 v  o& b$ H! J! c- g
71. clear:          inc     al                      ; Clear ZR
    
72. exit_write:     ret
    
73. 
    
74. 
    1 K8 Y; V7 C# b4 `
75. A20Read:        xor     cx, cx
    : N7 |7 ~& ?9 l8 X
76. get_read:       in      al, 64h
    4 z$ r3 y9 h: u0 n
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    3 d/ @) e0 H; n( Q
80.                 jnz     get_read
    
81. exit4:          ret     
    
82.                
    9 V1 k6 `/ @# m' o
83. end

复制代码

1. ;A20STATE.ASM
   4 h  i6 j0 L  ]1 F: S0 I
2. ;
   
3. ; Returns the status of the line A20 through the KBC
   5 t8 p9 B, F# D8 J) j2 p
4. ;       programming by bini for debug. 2008-07-01
   , N* x/ k2 |. _) i" p3 o. m
5. ;
   # n7 n& X% p3 D5 G
6. .model tiny
   
7. .code
   
8. .486
   9 Y3 D" S5 [1 ?
9. .startup
   
10.                 mov     dx, offset msg_fail
    2 K, B9 g2 b0 S( _
11.                 call    _GET_A20_STATE_
    
12.                 jz      exit1                           ;  was a problem
    
13.                 push    ax                              ; Save state, AH
    
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
    * u, c$ L) U: d! a- X& E' U0 v
15.                 mov     ah, 09h
    9 Y# o0 {& l% ?) y' j( G0 Z
16.                 int     21h                             ; Print message
    : i+ w1 e: Y. l# Y
17.                 pop     ax                              ; retreve state
    
18. 
    
19.                 mov     dx, offset msg_dis
    
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    & g  h6 A9 w: G( d- G2 Z
21.                 jz      exit1
    4 r5 _0 ^* T- |' v/ r1 ~
22.                 mov     dx, offset msg_en
    3 K, f- L  n! r0 \7 o8 f0 g/ i- R
23. 
    3 g' y  M4 P6 ~! b
24. exit1:          mov     ah, 09h
    
25.                 ; DX already contains address of string
    
26.                 int     21h
    - X! S& _  u( P  ~
27. 
    & Y1 J4 d9 s2 g. S, W2 G
28.                 mov     ax, 4C00h
    . f" v1 a5 ^. d( B4 @) w7 [- U
29.                 int     21h
    
30. 
    # _4 u& |* w: o) V# T
31. msg_ok         db      "OK", 13, 10, "A20 $"
    
32. msg_fail       db      "FAIL", 13, 10, "$"
    + P' t6 N7 w8 O/ b) \9 \
33. msg_en         db      "ENABLED", 13, 10, "$"
    * O: a2 i6 o" r) S" {
34. msg_dis        db      "DISABLED", 13, 10, "$"
    4 X5 }1 N& U" k3 m' H
35. 
    
36. 
    6 J# |# }1 P' U7 Q( g
37. _GET_A20_STATE_:
    
38.                 call    A20Write                ; Wait till the input register is empty
    
39.                 jz      exit2+1                 ; Bypas the reset int's
    3 t7 t/ t  m: r6 U" c
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
    
44.                 call    A20Read                 ; Wait till the 8042 output register
      M0 `' ?9 N) D8 B6 i6 ^
45.                 jz      exit2                   ; has something in it's buffer
    7 F; [5 H7 d% }' Y
46. 
    - p! a9 t0 b1 r# n0 ]! }
47.                 in      al, 60h                 ; Get it
    3 X- T" F4 H4 G+ g% s% m; [
48.                 mov     ah, al
    
49.                 call    A20Write                ; Make sure the input register is empty
    + d3 m3 }* i( I  e1 |
50.                 jz      exit2
    # _2 |" `7 z+ m/ m8 C+ k
51. 
    
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    
53.                 out     64h, al
    . o) j5 c3 q: y; p
54.                 call    A20Write
    
55. 
    
56. exit2:          sti
    
57.                 ret
    % {1 g3 {8 S1 a0 G# j" A
58. 
    0 J, _4 Y" A0 B) X
59. 
    ; R  k/ c, L% t7 p
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    1 r0 \' i1 f3 u- C4 z
61. get1:           in      al, 64h                 ; Get KBC read status
    ) S, m) [2 t, J8 t+ H+ l+ k
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
      O, m% c; V* u2 }# u' h
63.                 jz      clear
    
64.                 dec     cx
    
65.                 jz      exit3
    ! S6 q9 n3 v& X( m* v2 s6 n+ E8 p
66.                 jmp     SHORT get1
    
67. clear:          inc     al                      ; Clear ZR
    
68. exit3:          ret
    
69. 
    
70. 
    
71. A20Read:        xor     cx, cx
    6 B: ^" t; o: x0 t
72. get2:           in      al, 64h
    
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    
74.                 jnz     exit4                   ; something for me
    $ u! A! }, Q/ T& e/ E
75.                 dec     cx
    5 n4 P7 X7 x2 n- i$ L' w* D
76.                 jnz     get2
    * K, I! o6 z5 t3 e. m% E
77. exit4:          ret     
    
78.                
    0 w& d, y  i1 ]) ?/ |9 L! {& i
79. end

复制代码

Tangailiu

void openA20()
{        while(inp(0x64) & 2);        outp(0x64,0xd1);
        while(inp(0x64) & 2);        outp(0x60,0xdf);
        while(inp(0x64) & 2);        outp(0x64,0xff);
}