Enable or disable A20 gate through KBC demo code.

bini

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

1. ;A200N.ASM
   - w( G: O/ S8 T: ~. ~
2. ;
   
3. ; Trun on the line A20 through the KBC, programming by bini for debug. 2008-07-01
   
4. ;       ml A20ON.asm
   : |) b4 k) g+ w7 R" M! d) |/ z
5. ;
   
6. .model tiny
   # `2 T' n7 `" T  D+ c, K& M- h
7. .code
   
8. .486
   + y+ P& V+ f* f4 d
9. .startup
   5 R2 h. T  l) _
10. 
    2 z! j$ e6 w, }2 F
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    . D. j$ C4 A5 o4 S5 W
13.                 int     21h
    * ~: c6 N5 v- U& H' D) V, Q
14. 
    
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_ENABLE
    1 M5 O0 g5 t$ ?
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    
19. 
    
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    
22.                 mov     ax, 4C00h
    
23.                 int     21h
    5 `9 g/ w$ t1 r$ a
24.                
    - x5 W) z+ M  n- R- [" K
25. msg_author      db      "Trun on the line A20 tools through the KBC, programmin by bini", 13, 10,
    & R( V2 H  }0 P* |) i$ L0 y
26.                         "2008-07-01",13, 10, "$"
    
27. msg_ok          db      "A20 Enable OK", 13, 10, "$"
    
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
    ; j% ]% ~# j- W6 U+ l" P9 v8 ^
29. 
    2 M; l" I2 Z* j2 }
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    
31. A20_ENABLE:
    
32.                 call    A20Write
    & {0 ^( @1 x4 ]" Y3 D, }
33.                 jz      exit_enable
    
34. 
    ) G# Z8 J$ H1 r6 h
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    0 T2 n+ n. \, Y: O& z
37.                 out     64h, al
    8 Y* \7 T: u2 C" d& o2 L
38.                 call    A20Read
    
39.                 jz      enable_int
    
40. 
    
41.                 in      al, 60h                 ; Get current status
    
42.                 mov     ah, al
    / e( e! m& W: E: b. O/ }; z
43.                 call    A20Write
    # I* E2 ~$ @* o. {2 K! C
44. enable_int:    sti
    . i/ x- X  E/ t+ g1 d
45.                 jz      exit_enable
    
46. 
    + i8 r$ j" n# {6 m5 R( I; e3 Z. r  R& {
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    
49.                 call    A20Write
    ! l5 E! p9 s4 s, T
50.                 jz      exit_enable
    ! x' G: l( L& _: j6 a) H" G
51. 
    
52.                 mov     al, ah
    " Q4 m2 \5 |! y6 j9 f
53.                 or      al, 2                   ; Enable line A20
    4 R; n" Y, \. `
54.                 out     60h, al
    
55.                 call    A20Write
    
56.                 jz      exit_enable
    6 Q3 U4 C' \# d3 H, Q# U
57. 
    
58.                 mov     al, 0FFh                ; NOP
    5 d9 p# W7 D6 m! a4 D: `8 Q( }
59.                 out     64h, al
    4 ^6 E: H9 @% @4 K
60.                 call    A20Write
    ' U% ^- c' J0 I3 R7 f
61. 
    0 l1 Q% u, i# h1 G5 f4 U* Y8 Q( Q
62. exit_enable:          ret
    
63. 
    2 L0 M4 A# i+ f& t# J9 m1 T" t
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    , y7 E/ K' u, d3 g; ?6 _2 G
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    7 C$ S9 T' E: h9 C
68.                 dec     cx
    
69.                 jz      exit_write
    : d) {$ u% R' v" m" `, m
70.                 jmp     short get_wirte
    
71. clear:          inc     al                      ; Clear ZR
    
72. exit_write:     ret
    , Y/ U* a, O- b$ K! [- W1 e/ Z
73. 
    
74. 
    2 l9 r6 V# _9 d+ y. r: ?$ o$ Y" ^1 i
75. A20Read:        xor     cx, cx
    ' W' h% B/ L8 x% g
76. get_read:       in      al, 64h
    - b) K+ g" V& g  S+ l
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    ' M1 m5 \$ G# y# P2 v8 L# U
80.                 jnz     get_read
    
81. exit4:          ret     
    0 p9 Q8 u2 T0 p( f  |& H
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
   3 _8 Q: z. o: a4 K6 O
7. .code
   $ i6 p$ B2 s0 M/ A) P$ b5 q: c
8. .486
   8 S6 s! u* e( X# \9 q) Y9 W; J5 L9 S
9. .startup
   ! G. c2 O+ @6 J: ~; H
10. 
    
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    ! B5 l0 w7 J2 C1 u$ U
13.                 int     21h
    
14. 
    , N! Y, w. e2 [, ^0 N# N& y5 m; @
15.                 mov     dx, offset msg_fail
    7 e( [$ C0 }- O# i6 Z* I
16.                 call    A20_DISABLE
    
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    
19. 
    ' o$ g# E1 ?- R& F0 W+ s- t
20. exit1:          mov     ah, 09h
    * r. u; ?. }) Z  g) j  m
21.                 int     21h
    
22.                 mov     ax, 4C00h
    
23.                 int     21h
    
24.                
    
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    ; j  d% r  l* A4 C% M
26.                         "2008-07-01",13, 10, "$"
    
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
    
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    ' e8 L7 I. M0 j3 L
29. 
    2 T  v( h3 p' F1 J
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    
31. A20_DISABLE:
    
32.                 call    A20Write
    ; b0 A$ v6 l/ b
33.                 jz      exit_disable
    0 \! U1 i! h2 M) D" A( c
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    ' v( @9 h2 R' W6 e: l
36.                 mov     al, 0D0h
    
37.                 out     64h, al
    
38.                 call    A20Read
    
39.                 jz      Disable_int
    
40. 
    
41.                 in      al, 60h                 ; Get current status
    + H# h+ A" |% V3 O1 j
42.                 mov     ah, al
    & F$ U0 h2 _% K/ m: e+ G5 ^. M3 d
43.                 call    A20Write
    
44. Disable_int:    sti
    
45.                 jz      exit_disable
    ! E, p; A% f/ }- S, G; E7 O$ W! q
46. 
    
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    ( Z; i# E8 |# Z5 E' U- q& @
49.                 call    A20Write
    8 K4 E; x$ ^8 a, c  ?0 a* u# i
50.                 jz      exit_disable
    . Y5 t) V& |2 `& Y
51. 
    ! }( U; T$ z2 E$ h8 d
52.                 mov     al, ah
    + G$ h" }# E1 E, Y
53.                 and     al, not 2               ; Disable line A20
    
54.                 out     60h, al
    " t1 G8 r# q0 h1 g3 r
55.                 call    A20Write
    + p4 X9 W# B, u( j
56.                 jz      exit_disable
    - b' Q  j8 G8 N) M( {  |' I2 }6 R
57. 
    # N/ X9 ^  ~/ A4 A6 l9 }! G! P
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    / y7 I& ^- U' U
60.                 call    A20Write
    
61. 
    8 T" j: Y! t# Z0 u5 l
62. exit_disable:          ret
    
63. 
    ) i# ^& s6 n/ q. \6 }" \
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    ( H3 j" v# C  P7 k! Y" I
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    7 o+ R/ f+ O) K7 b
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    
68.                 dec     cx
    8 P! N6 Z" q: d+ [. F7 C8 w" d
69.                 jz      exit_write
    
70.                 jmp     short get_wirte
    
71. clear:          inc     al                      ; Clear ZR
    4 e) h0 W/ o6 p% v* P1 @! `. s
72. exit_write:     ret
    ' ]4 l" |5 p3 B# s  y2 K4 H0 g
73. 
    / i; M) e% |$ R* b& u& Q
74. 
    
75. A20Read:        xor     cx, cx
    , ^8 D1 `* p+ y2 y# m" ]
76. get_read:       in      al, 64h
    
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    ! E; p" D. K  k! k
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    
80.                 jnz     get_read
    
81. exit4:          ret     
    
82.                
    
83. end

复制代码

1. ;A20STATE.ASM
   / K% {1 p9 h( w/ }: k6 n" D
2. ;
   2 n5 x# r4 a7 j+ {2 F) [# ^( t" k
3. ; Returns the status of the line A20 through the KBC
   
4. ;       programming by bini for debug. 2008-07-01
   
5. ;
   
6. .model tiny
   
7. .code
   
8. .486
   
9. .startup
   
10.                 mov     dx, offset msg_fail
    7 w$ N! F3 _1 v" C$ E5 F: H
11.                 call    _GET_A20_STATE_
    
12.                 jz      exit1                           ;  was a problem
      j9 v) i2 S* k2 \' k* `
13.                 push    ax                              ; Save state, AH
    ( |* r3 y# W) P' ]2 d, q; N. h
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
    
15.                 mov     ah, 09h
    
16.                 int     21h                             ; Print message
    
17.                 pop     ax                              ; retreve state
    
18. 
    
19.                 mov     dx, offset msg_dis
    1 k* a1 N4 H6 q6 |
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    
21.                 jz      exit1
    
22.                 mov     dx, offset msg_en
    
23. 
    1 Y' m/ W  L# Q4 z$ F' E
24. exit1:          mov     ah, 09h
    # t2 [' h/ t. F$ o
25.                 ; DX already contains address of string
    
26.                 int     21h
    $ _3 O. K" F/ ?
27. 
    
28.                 mov     ax, 4C00h
    
29.                 int     21h
    ) s, K) I0 {/ S2 L
30. 
    
31. msg_ok         db      "OK", 13, 10, "A20 $"
    
32. msg_fail       db      "FAIL", 13, 10, "$"
    ' Z, G; [5 s# f
33. msg_en         db      "ENABLED", 13, 10, "$"
    ; ~3 y6 x1 [5 e; `4 f
34. msg_dis        db      "DISABLED", 13, 10, "$"
    
35. 
    
36. 
    
37. _GET_A20_STATE_:
    8 e) h2 k$ |/ |- G$ c" y
38.                 call    A20Write                ; Wait till the input register is empty
    . e* c; z) c: t2 S# J! d
39.                 jz      exit2+1                 ; Bypas the reset int's
    6 C! C4 @' H) T& Y
40.                 cli                             ; Disable ints so we'll get our value
    2 g3 ]# l6 u6 ]% _1 r5 w: @! T) {% [
41. 
    ; x& X' r8 o6 s' E( M8 n
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
    
45.                 jz      exit2                   ; has something in it's buffer
    3 |3 s( ?4 x5 {9 j- z! U1 b
46. 
    2 E# r+ k: [  F9 P+ n3 F
47.                 in      al, 60h                 ; Get it
    
48.                 mov     ah, al
    $ S$ ]6 I' e- E. @' c- V& D
49.                 call    A20Write                ; Make sure the input register is empty
    
50.                 jz      exit2
      d4 I2 _  ]& R
51. 
      }  D3 G5 W$ r4 v- c% q
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    
53.                 out     64h, al
    
54.                 call    A20Write
    
55. 
    
56. exit2:          sti
    & r( L/ \% u* e2 J$ o9 h7 a% c
57.                 ret
    
58. 
    4 N! g) q5 }4 m# L$ }5 n/ k+ _9 S
59. 
    
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    
61. get1:           in      al, 64h                 ; Get KBC read status
    
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    % I2 s- V* _1 r. M' T
63.                 jz      clear
    5 [9 j" `( Q# ^5 S) ~) i( C
64.                 dec     cx
    . \, C8 Q% u8 f4 P% s% U' F
65.                 jz      exit3
    % k* [4 s. F8 {5 G# w* y
66.                 jmp     SHORT get1
    
67. clear:          inc     al                      ; Clear ZR
    
68. exit3:          ret
    1 ~( M4 H! q( q/ p1 z0 a6 [
69. 
    ! O9 \. T7 G- f
70. 
    
71. A20Read:        xor     cx, cx
    / H4 }8 D) w9 ~! S. n
72. get2:           in      al, 64h
    2 P+ p' X) f& B( z1 S2 v7 u3 _* H
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    
74.                 jnz     exit4                   ; something for me
    5 Y4 F" K) ?) V5 _0 l3 ?( g2 o
75.                 dec     cx
    
76.                 jnz     get2
    " }# {2 \9 l) ]8 a* K& w2 \* d
77. exit4:          ret     
    5 X& ?) v. g+ y0 K4 e0 x
78.                
    
79. end

复制代码

Tangailiu

void openA20()
{        while(inp(0x64) & 2);        outp(0x64,0xd1);
        while(inp(0x64) & 2);        outp(0x60,0xdf);
: t. C* s0 y+ k1 X0 b! [& H- g        while(inp(0x64) & 2);        outp(0x64,0xff);
+ d* L1 q+ ^3 Z" c# F% }* ~* L}