Enable or disable A20 gate through KBC demo code.

bini

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

1. ;A200N.ASM
   
2. ;
   
3. ; Trun on the line A20 through the KBC, programming by bini for debug. 2008-07-01
   / B6 j/ q. v+ x4 t
4. ;       ml A20ON.asm
   
5. ;
   
6. .model tiny
   + X# b. x0 _. V. ^4 k$ t
7. .code
   
8. .486
   
9. .startup
   : M" K/ I8 L6 n$ a" T
10. 
    
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    ) S0 a0 i* p: {$ Y& y+ J1 z) h
13.                 int     21h
    
14. 
    : o) G/ j3 F' l
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_ENABLE
    
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    
19. 
    
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    " l. a& ?0 O" o5 F' U# o
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,
    5 ~) I0 Q2 A0 s
26.                         "2008-07-01",13, 10, "$"
    # |" t  S2 ?, Z& X$ L
27. msg_ok          db      "A20 Enable OK", 13, 10, "$"
    - y2 _% h% g$ o8 S( U
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
    
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    # l9 V8 d! M* G) U
31. A20_ENABLE:
    ; C& k. h  v1 D& ]4 S  w
32.                 call    A20Write
    ' A, e4 m8 L% `  b' D
33.                 jz      exit_enable
    ) x2 Q! B4 B; s1 k4 J
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    4 A' c& `* X0 B# r4 j) P' Y
36.                 mov     al, 0D0h
      M1 y# v# r2 H* e4 K, ?
37.                 out     64h, al
    
38.                 call    A20Read
    
39.                 jz      enable_int
    
40. 
    " Q/ k4 P, b1 G% C) {& S# Q3 {
41.                 in      al, 60h                 ; Get current status
    
42.                 mov     ah, al
    
43.                 call    A20Write
    
44. enable_int:    sti
    . [9 }: M/ b6 `# q) Y! ]& |
45.                 jz      exit_enable
    ) G9 L# L( y6 f6 g2 X
46. 
    ( W8 c& ?4 X0 d- W% W! S9 s, R
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    & ?% X. Y: s/ A) ^
48.                 out     64h, al                 ; Out Put Port next
    9 Y, g6 ^  K/ Y" [+ r, Y
49.                 call    A20Write
    7 N  r# k; v4 }- Y( `* y5 G
50.                 jz      exit_enable
    $ l: U: e+ b- S' w: M
51. 
    
52.                 mov     al, ah
    
53.                 or      al, 2                   ; Enable line A20
    
54.                 out     60h, al
    
55.                 call    A20Write
    % L. b7 @" y8 b* M/ E1 P' g
56.                 jz      exit_enable
    ( u, r  B% ?2 D( p
57. 
    " V; l$ f* x& O! m1 e
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    
60.                 call    A20Write
    $ [+ f' z$ w! {
61. 
    
62. exit_enable:          ret
    
63. 
    4 ^1 T1 g- J# g3 y/ S
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    , v# q. k8 e& |' }# s. Y; d% B
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    8 m- U8 ~& |* \# _
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    & t2 {+ i/ r6 G  c+ q. b5 g, _
68.                 dec     cx
    
69.                 jz      exit_write
    
70.                 jmp     short get_wirte
    ' R- d, b( F1 @/ @$ J
71. clear:          inc     al                      ; Clear ZR
    
72. exit_write:     ret
    
73. 
    9 p$ {3 U% R7 F  i( x0 m% b
74. 
    7 k% E7 D7 j4 M7 q, v& R
75. A20Read:        xor     cx, cx
    / l* d" U! K1 a; ^1 z0 F- |/ {: F2 j
76. get_read:       in      al, 64h
    0 e5 w1 c* z" ]4 K
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    , K+ R( v9 S4 B% I5 t: y
78.                 jnz     exit4                   ; ...
    + S+ r# ~9 ?& ~$ Q+ A4 a
79.                 dec     cx
    
80.                 jnz     get_read
    
81. exit4:          ret     
    - r' x3 ?2 s* P5 @2 _4 b7 a
82.                
    % m9 \! @9 C! g. M
83. end

复制代码

1. ;A200FF.ASM
   / ?, S' s- m& t2 N# j7 L
2. ;
   
3. ; Trun off the line A20 through the KBC, programming by bini for debug. 2008-07-01
   0 P' o8 K) V& @- t' B8 J
4. ;       ml A20ON.asm
   ; ]4 J% g0 {1 H
5. ;
   ; e& V: l& j4 b: y+ s
6. .model tiny
   
7. .code
   - ]3 k* F  R; C: I0 Z/ ~0 p5 _
8. .486
   
9. .startup
   ' k; T0 ]* }! I% z1 S# \) f2 J! p. M
10. 
    
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    
13.                 int     21h
    
14. 
    
15.                 mov     dx, offset msg_fail
    ! o" R: [1 w2 q6 G; t
16.                 call    A20_DISABLE
    8 H5 i7 Z. x$ ^4 J) K
17.                 jz      exit1
    # q' k+ R8 {/ G- k& ]2 P
18.                 mov     dx, offset msg_ok
    ) n, Y0 n7 g8 d2 S/ v, H
19. 
    
20. exit1:          mov     ah, 09h
    5 N* z9 l/ V  N& f; ]
21.                 int     21h
    - r/ o7 Z0 ^7 f: a. e' D* p
22.                 mov     ax, 4C00h
    : M; }! Q& U3 G' ~6 h, z) t' I  x
23.                 int     21h
    
24.                
    7 ]* e: k8 _; O/ V* @* Y
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    
26.                         "2008-07-01",13, 10, "$"
      l' p, d4 H0 r7 X8 n
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
    9 w4 F+ w. v6 e/ I( T8 K2 M9 O6 {
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    & }" @1 s. o" j1 l" W. e
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    
31. A20_DISABLE:
    6 Q- Q6 b( r* k& S
32.                 call    A20Write
    " m  v) Y& c2 _& ]" `$ U, d
33.                 jz      exit_disable
    5 X  |9 @0 r1 X4 G4 u1 H- n9 L1 ^
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    : T1 S  R0 H7 i
36.                 mov     al, 0D0h
    4 ?; X6 G' t/ ]& |( \2 q/ ]" {
37.                 out     64h, al
    ) ^4 `+ L5 G) B0 c% t
38.                 call    A20Read
    
39.                 jz      Disable_int
      Z0 v& J: @& I; R  }
40. 
    
41.                 in      al, 60h                 ; Get current status
    
42.                 mov     ah, al
    $ _: J: s' k2 a$ T4 a5 i  R3 n
43.                 call    A20Write
    
44. Disable_int:    sti
    ( Q, b2 ^1 H9 _; e' E
45.                 jz      exit_disable
    
46. 
    ) |% O( L6 k/ i8 ]6 A$ q! A- e, ]! F
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    # j$ a  h5 C  h  w$ m( z; h
49.                 call    A20Write
    
50.                 jz      exit_disable
    . C9 G- w( _, u, p' ^
51. 
    
52.                 mov     al, ah
    
53.                 and     al, not 2               ; Disable line A20
    
54.                 out     60h, al
    4 _2 R# I9 I4 M
55.                 call    A20Write
    , f. _3 n8 d4 C4 @9 o* w$ h4 R
56.                 jz      exit_disable
    0 D* P) v% r" L3 q5 }* E/ s% O4 N
57. 
    ) {: w$ T( Q% w& P' S7 W
58.                 mov     al, 0FFh                ; NOP
    7 D2 F. X/ F3 I( ]) W
59.                 out     64h, al
    - c" \; L$ z! h' [( z0 p. ]/ Q" A
60.                 call    A20Write
    " T; D* m) M) w5 C
61. 
    ; f: N7 B9 q8 ~' n
62. exit_disable:          ret
    * y, C+ t7 ]6 j9 w" \4 A
63. 
    
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    ! R" S% ]- M8 a2 |# r
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    7 l) z) k& o& R# M' }4 N% f. l7 n9 A
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    ! Y9 H' ~8 l0 k0 D4 R" x  n* E+ y, p  G
67.                 jz      clear
    ) ~0 k% |, j) \& f' x- c" u
68.                 dec     cx
    " p9 y# r6 m* O+ |) T/ E
69.                 jz      exit_write
    
70.                 jmp     short get_wirte
    
71. clear:          inc     al                      ; Clear ZR
    7 @& |% l& N/ `% \, y! J
72. exit_write:     ret
    
73. 
    
74. 
    . Q) t) L0 C1 S5 Z& b& h
75. A20Read:        xor     cx, cx
    . [: V' t/ @2 E% I, e: S& q
76. get_read:       in      al, 64h
    
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    ) V. ?8 i( C5 Y4 f: w
79.                 dec     cx
    " m) d+ D7 b& c2 u, v' c% m
80.                 jnz     get_read
    
81. exit4:          ret     
    $ p$ l- K0 d3 s/ G# T* b, d
82.                
    " |7 N+ H! x% \9 d( V) R
83. end

复制代码

1. ;A20STATE.ASM
   ! ]$ r. H8 W& t
2. ;
   6 r7 B; e8 {% n
3. ; Returns the status of the line A20 through the KBC
   & L. J  d; I0 ~2 ?
4. ;       programming by bini for debug. 2008-07-01
   
5. ;
   % Q3 A) K* I- B. }/ V: q. s
6. .model tiny
   
7. .code
   + B# Q1 v1 a; Z! w+ X0 Z( a
8. .486
   % L. d8 v8 ]; v2 D3 d' F, Z
9. .startup
   ; r5 ?" N+ k  |5 y6 {' d
10.                 mov     dx, offset msg_fail
    
11.                 call    _GET_A20_STATE_
    
12.                 jz      exit1                           ;  was a problem
    * \/ j7 o9 w! v, w
13.                 push    ax                              ; Save state, AH
    
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
      x& U$ U; t+ X' t: [
15.                 mov     ah, 09h
    ! N" J& I: j& k( j4 t
16.                 int     21h                             ; Print message
    
17.                 pop     ax                              ; retreve state
    
18. 
    
19.                 mov     dx, offset msg_dis
    
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    
21.                 jz      exit1
    6 U, ?* b9 X6 m" y1 X% z2 b
22.                 mov     dx, offset msg_en
    
23. 
    ! @: K5 N/ u1 \, p& M+ t7 L: d6 ~) z
24. exit1:          mov     ah, 09h
    
25.                 ; DX already contains address of string
    3 o2 W: z& S' t% z
26.                 int     21h
    
27. 
    
28.                 mov     ax, 4C00h
    
29.                 int     21h
    5 _' j3 i, C6 ~% X# g) Q$ }6 J  L
30. 
    6 d& r0 V% n& F2 |% X
31. msg_ok         db      "OK", 13, 10, "A20 $"
    ( h4 _  G& f: E) T- B
32. msg_fail       db      "FAIL", 13, 10, "$"
    6 v5 i6 f: ?* D$ R/ q- Q2 H
33. msg_en         db      "ENABLED", 13, 10, "$"
    
34. msg_dis        db      "DISABLED", 13, 10, "$"
    0 _0 a; U& h, |  |( B5 ~4 d
35. 
    ! y, C  B( a0 T# y3 x# G" W1 t
36. 
    ( z+ x! z0 }  G& t
37. _GET_A20_STATE_:
    $ m9 v3 P2 G* s' A
38.                 call    A20Write                ; Wait till the input register is empty
    
39.                 jz      exit2+1                 ; Bypas the reset int's
    
40.                 cli                             ; Disable ints so we'll get our value
    
41. 
    
42.                 mov     al, 0D0h                ; Send command to the 8042 command register
    " {3 v3 S$ p$ C; q' K
43.                 out     64h, al                 ; to tell it we want to Read the Output Port
    
44.                 call    A20Read                 ; Wait till the 8042 output register
    + U* l7 }- b$ r. U# W* `+ z
45.                 jz      exit2                   ; has something in it's buffer
    ' T3 }6 ^4 j  v
46. 
    ) T7 l" _5 J3 `3 }: W8 P3 a8 L
47.                 in      al, 60h                 ; Get it
    
48.                 mov     ah, al
    8 _4 i5 ?1 J5 V
49.                 call    A20Write                ; Make sure the input register is empty
    
50.                 jz      exit2
    3 h! @& l  M7 e: A; n
51. 
    , N( y: I: a' W( V+ t3 m' i
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    
53.                 out     64h, al
    
54.                 call    A20Write
    ' J: J0 ~& S4 I1 I
55. 
    
56. exit2:          sti
    
57.                 ret
    
58. 
      D& X2 P( i) L, M7 y
59. 
    
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    + s% Z8 B; `# o9 j: [8 t5 q4 @
61. get1:           in      al, 64h                 ; Get KBC read status
    
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
63.                 jz      clear
    * @' S( U8 i5 @" f
64.                 dec     cx
    
65.                 jz      exit3
    ( w, F+ M1 z6 [2 s2 s7 @
66.                 jmp     SHORT get1
    ! K1 l9 m9 {  Y, Y
67. clear:          inc     al                      ; Clear ZR
    
68. exit3:          ret
    
69. 
    / e- L7 j* l$ }, A
70. 
    5 o* c0 e/ P  K! G
71. A20Read:        xor     cx, cx
    
72. get2:           in      al, 64h
      e2 G& }1 k- s6 i3 b8 H
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    
74.                 jnz     exit4                   ; something for me
    & B5 }! i- @: o
75.                 dec     cx
    ! U2 G( y0 k  {# Q
76.                 jnz     get2
    
77. exit4:          ret     
    
78.                
    
79. end

复制代码

Tangailiu

void openA20()
  u0 Q6 A+ T0 a5 f$ c% l{        while(inp(0x64) & 2);        outp(0x64,0xd1);
        while(inp(0x64) & 2);        outp(0x60,0xdf);
  l/ }$ p) q  v# K+ A        while(inp(0x64) & 2);        outp(0x64,0xff);
5 R- @- Z6 f% U, C' `& W}