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
   4 R! ~; i6 ?, k- K# l* ~8 }
4. ;       ml A20ON.asm
   
5. ;
   5 _" V% Z: Y# ~! w: \5 C; [8 q5 t. k
6. .model tiny
   * j& @' }: B1 |/ r  \5 N5 a
7. .code
   
8. .486
   
9. .startup
   
10. 
    
11.                 mov     dx, offset msg_author
    
12.                 mov     ah, 09h
    ; V" ^( U" f8 Q2 A+ D1 b
13.                 int     21h
    
14. 
    ; A% a- B1 [6 m. e: D  {; h
15.                 mov     dx, offset msg_fail
    2 R' {+ R# l& G( y6 i
16.                 call    A20_ENABLE
    ; S6 c- N& A6 d$ v; v
17.                 jz      exit1
    
18.                 mov     dx, offset msg_ok
    
19. 
    8 q! `' s) c, A- Y
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    
22.                 mov     ax, 4C00h
      e; v* x$ Y% O" {- {" Y, F
23.                 int     21h
    6 J4 r5 _% s* P* S: p% h
24.                
    ; j8 i2 X3 t* Y/ ~6 T; b
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, "$"
    6 g/ q7 k: _( c( S6 W$ p/ R
28. msg_fail        db      "A20 Enable FAIL", 13, 10, "$"
    
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    5 M4 W8 F2 o% [# V6 U3 h" n& S
31. A20_ENABLE:
    $ h5 B( l, b, l1 ^, ~. q
32.                 call    A20Write
    ! z5 V  `& n( d) S, b7 O, a, p
33.                 jz      exit_enable
    
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    ( F) g# a- c. i1 T9 Z( K/ O0 G
36.                 mov     al, 0D0h
    
37.                 out     64h, al
      Z/ S- `# B+ A+ l" H
38.                 call    A20Read
    % |) o& }" ^; c1 @# @' l- _
39.                 jz      enable_int
    
40. 
    ; L8 K7 j. m, f" g, |/ v; f5 Q
41.                 in      al, 60h                 ; Get current status
    ) y+ M% E1 N* d8 y! y# b& ^6 M
42.                 mov     ah, al
    
43.                 call    A20Write
    
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
    2 h3 ]% b8 ~( M/ X% U; S+ u
49.                 call    A20Write
    
50.                 jz      exit_enable
    $ Z: @/ n$ U5 f" b( m/ R  a+ |
51. 
    
52.                 mov     al, ah
    6 `  k/ q* i) V$ `
53.                 or      al, 2                   ; Enable line A20
    - k8 a& [. ^. _5 z0 w: k; D9 h* p: F
54.                 out     60h, al
    $ R: m% [  {. S+ U
55.                 call    A20Write
    
56.                 jz      exit_enable
    8 W# W- G4 C8 J7 z% r
57. 
    . |2 E) |) X* T) C- ^
58.                 mov     al, 0FFh                ; NOP
    % G4 _5 @% C* P( E! q) C+ z* l
59.                 out     64h, al
    
60.                 call    A20Write
    
61. 
    
62. exit_enable:          ret
    . U$ @/ t- j; H2 t0 S
63. 
    
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    / f5 L% g9 d9 F' [
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    , H5 z5 h4 a1 ^) @* r& ~
68.                 dec     cx
    3 n1 \; B5 Z/ s' S: o3 I" q
69.                 jz      exit_write
    ) \& S8 Z" f" e8 Z
70.                 jmp     short get_wirte
    
71. clear:          inc     al                      ; Clear ZR
    / }2 S) j5 Y' a' o
72. exit_write:     ret
    5 j6 U  Q& r( g) `$ A; {+ U4 y
73. 
    
74. 
    / J6 N4 F" |9 A# V) `/ Y) ]+ M
75. A20Read:        xor     cx, cx
    ) N( f/ t; B9 m
76. get_read:       in      al, 64h
    * E, P4 w" ?9 Q8 U1 ]
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    0 N4 |+ _5 H. Q, I7 h
80.                 jnz     get_read
    
81. exit4:          ret     
    
82.                
    # ~2 B2 D9 j+ O. p7 Y
83. end

复制代码

1. ;A200FF.ASM
   
2. ;
   9 S& [$ X1 g1 G% D% m% c2 y. ~
3. ; Trun off the line A20 through the KBC, programming by bini for debug. 2008-07-01
   
4. ;       ml A20ON.asm
   : ]. w* P. X: M7 S. v
5. ;
   
6. .model tiny
   
7. .code
   
8. .486
   8 ], R  t/ ?! l& e. A, z
9. .startup
   $ p2 I+ ~9 }" p
10. 
    
11.                 mov     dx, offset msg_author
    % z5 a/ P% ^7 j% h8 B$ S
12.                 mov     ah, 09h
    5 s$ H" Y! \2 k* F
13.                 int     21h
    
14. 
    
15.                 mov     dx, offset msg_fail
    
16.                 call    A20_DISABLE
    2 z2 N% [2 k8 I) g; Y" y8 b! ~
17.                 jz      exit1
    * D) T% }) X4 q7 r, S: F3 Z
18.                 mov     dx, offset msg_ok
    1 W- E1 D5 w% G5 ^* J2 Z
19. 
    
20. exit1:          mov     ah, 09h
    
21.                 int     21h
    5 g! U+ x" N! T. _& m$ n. d9 b
22.                 mov     ax, 4C00h
    " Z  v2 C) i6 K% ~" m. Q8 T- h
23.                 int     21h
    
24.                
    ; N: T+ F! N0 D
25. msg_author      db      "Trun off the line A20 tools through the KBC, programmin by bini", 13, 10,
    & n- [- B0 L6 ~5 Z3 x) X1 J
26.                         "2008-07-01",13, 10, "$"
    
27. msg_ok          db      "A20 Disable OK", 13, 10, "$"
    0 \. q8 ^- M9 U* x6 K. Y# ~) y' @) i
28. msg_fail        db      "A20 Disable FAIL", 13, 10, "$"
    
29. 
    
30. ;------------------------ follow code maybe make to lib, if you want...-------------------------------
    $ X9 ^% b1 R* y" o4 [9 P
31. A20_DISABLE:
    1 k2 ^; y$ _) X
32.                 call    A20Write
    * J+ a4 F2 ~4 t% U
33.                 jz      exit_disable
    ! e1 B1 X6 Y0 H  q3 `7 A
34. 
    
35.                 cli                             ; Only need for reading value from KBC
    
36.                 mov     al, 0D0h
    ! G  v+ t& r7 _* O8 B
37.                 out     64h, al
    
38.                 call    A20Read
    . A& q, h: P" x4 E
39.                 jz      Disable_int
    
40. 
    - p* a* `- }/ Z& ]& J* x
41.                 in      al, 60h                 ; Get current status
    9 E- f( Q3 ^. Y7 r1 ^8 J
42.                 mov     ah, al
    ! \0 O/ v' B+ Q  y' C7 B  ^
43.                 call    A20Write
    
44. Disable_int:    sti
    4 z9 G* C8 X. c
45.                 jz      exit_disable
    * [* E; e0 J6 j% O6 A
46. 
    0 o* ?8 Q! ~# r6 i
47.                 mov     al, 0D1h                ; Tell the KBC , want to write to the
    
48.                 out     64h, al                 ; Out Put Port next
    $ b- [: m" k. {) l
49.                 call    A20Write
    ( }& j) g. X1 B+ L
50.                 jz      exit_disable
      t3 s& q1 s. G' b
51. 
    ; K" d! W* B9 f* r8 j" E! u5 [
52.                 mov     al, ah
    
53.                 and     al, not 2               ; Disable line A20
    
54.                 out     60h, al
    
55.                 call    A20Write
    # S2 U5 M4 t9 Y7 g) E2 Q
56.                 jz      exit_disable
    ) C. b% r( t8 {4 q
57. 
    % [; h- S/ n8 ^0 _) Y0 l
58.                 mov     al, 0FFh                ; NOP
    
59.                 out     64h, al
    $ B5 B! B3 K; z2 x$ [' q
60.                 call    A20Write
    
61. 
    ; u- p% e3 P% j6 p4 X' U
62. exit_disable:          ret
    
63. 
    ) a- m( i" I( x# f$ K
64. A20Write:       xor     cx, cx                  ; Reasonable wait
    
65. get_wirte:      in      al, 64h                 ; Get KBC read status
    ; k% a6 A: R+ }* C, O. h! A) U
66.                 test    al, 02                  ; See if buffer empty, bit 1 clear
    
67.                 jz      clear
    & \+ R5 ~- s$ t% R4 ~
68.                 dec     cx
    
69.                 jz      exit_write
    ! a& Q6 F# d- q" A" C* s
70.                 jmp     short get_wirte
    4 t' |0 Q  _4 g
71. clear:          inc     al                      ; Clear ZR
    1 b. Z9 T& w" @2 T& {, U; g5 U) w
72. exit_write:     ret
    
73. 
    
74. 
    
75. A20Read:        xor     cx, cx
    ( j0 H5 q# @+ i" Q
76. get_read:       in      al, 64h
    2 L$ H3 `0 r2 z
77.                 test    al, 01                  ; If the 'output buffer' is full, has
    & n- \, ^5 s4 G# l. k' |) y& @
78.                 jnz     exit4                   ; ...
    
79.                 dec     cx
    , X1 d; L4 v2 F, C, z* N5 D0 O6 j
80.                 jnz     get_read
    
81. exit4:          ret     
      P. W$ Z: E$ ~% Y4 y* t
82.                
    & m' }( v8 E+ P* O: z6 t
83. end

复制代码

1. ;A20STATE.ASM
   5 G/ O& r7 w# r$ I6 x6 H/ j7 Y: |
2. ;
   ( i1 A# d1 _* X: i
3. ; Returns the status of the line A20 through the KBC
   
4. ;       programming by bini for debug. 2008-07-01
   
5. ;
   
6. .model tiny
   9 S8 ^0 z% ?+ @2 I3 M1 |  i0 [! t
7. .code
   3 ]* A+ \( S$ v) |
8. .486
   
9. .startup
   
10.                 mov     dx, offset msg_fail
    1 U; S2 z& X* f5 g. X( z
11.                 call    _GET_A20_STATE_
    ( q- f% K4 l8 ~, @  s, z) M
12.                 jz      exit1                           ;  was a problem
    / I, }4 x1 z0 M! M$ K0 ~. Z* e
13.                 push    ax                              ; Save state, AH
    
14.                 mov     dx, offset msg_ok                      ; There wasn't a problem
    
15.                 mov     ah, 09h
    * Q- k% _/ V3 `1 B  w
16.                 int     21h                             ; Print message
    
17.                 pop     ax                              ; retreve state
    
18. 
    + t+ C0 ^" G1 B2 e1 z
19.                 mov     dx, offset msg_dis
    $ o. B: w. U" c0 e
20.                 and     ah, 00000010b                   ; bit 1, 2h, indicates state
    2 S4 K* R' h+ ^- o; w
21.                 jz      exit1
    / }4 S5 G* b1 O* H
22.                 mov     dx, offset msg_en
    + v' h4 ]/ g9 m3 ?5 J* j
23. 
    
24. exit1:          mov     ah, 09h
      g8 R* b/ L7 P; q9 P
25.                 ; DX already contains address of string
    3 {9 R9 v2 R" e0 G# k& [- q$ f+ A# B
26.                 int     21h
    
27. 
    
28.                 mov     ax, 4C00h
    
29.                 int     21h
    
30. 
    
31. msg_ok         db      "OK", 13, 10, "A20 $"
    % n3 h8 q- U0 z  p
32. msg_fail       db      "FAIL", 13, 10, "$"
    % k! D  C9 X3 p8 @
33. msg_en         db      "ENABLED", 13, 10, "$"
    
34. msg_dis        db      "DISABLED", 13, 10, "$"
    
35. 
    1 |0 J/ `3 `% k/ J- |8 T
36. 
    
37. _GET_A20_STATE_:
    
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
    % p- l0 C" q: i) m
41. 
    $ x# v1 [* I$ k$ E4 u8 W9 G, e
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
    ' _1 n7 x" X; ?) h; U
44.                 call    A20Read                 ; Wait till the 8042 output register
    
45.                 jz      exit2                   ; has something in it's buffer
    
46. 
    
47.                 in      al, 60h                 ; Get it
    
48.                 mov     ah, al
    
49.                 call    A20Write                ; Make sure the input register is empty
    ( J+ h# Y: H5 e9 z: G0 r
50.                 jz      exit2
    ' u5 C0 r/ e: t: w2 r- O1 x1 f9 J
51. 
    3 n6 D1 E5 H9 }# \6 ^" X) w
52.                 mov     al, 0FFh                ; KBC NOP command, does nothing
    1 N. V' h- d* `5 a
53.                 out     64h, al
    1 \" o( d) i( G# U
54.                 call    A20Write
    
55. 
    3 ^1 L6 [$ J- f" v
56. exit2:          sti
    
57.                 ret
    ( P9 d% N. C8 _% s5 U8 C5 V5 [
58. 
    . k9 j' h: I0 D) f
59. 
    7 h2 t$ h/ Z" L$ q) R* w8 S6 q. ~, a+ E
60. A20Write:       xor     cx, cx                  ; Reasonable wait
    ' C9 Z9 U# [5 O. a
61. get1:           in      al, 64h                 ; Get KBC read status
    
62.                 test    al, 02                  ; See if buffer empty, bit 1 clear
      G0 d7 {: i3 _, Y0 [& k. s4 B0 A9 w
63.                 jz      clear
    
64.                 dec     cx
      d2 J* G$ M0 Z" ^
65.                 jz      exit3
    & P, j, r" M; Q
66.                 jmp     SHORT get1
      n8 |* v* w) `- ^
67. clear:          inc     al                      ; Clear ZR
    5 d) E# O' P! f4 h/ n9 m2 Q
68. exit3:          ret
    
69. 
    
70. 
    # S; H" j/ _/ l& x1 ^+ C0 b
71. A20Read:        xor     cx, cx
    / v9 h$ O( q+ L4 y$ q1 o! o/ ?
72. get2:           in      al, 64h
    
73.                 test    al, 01                  ; If the 'output buffer' is full, has
    8 S' N5 H" ^$ d1 T' e
74.                 jnz     exit4                   ; something for me
    
75.                 dec     cx
    5 t) k, {; I& g1 D/ X! x& ?
76.                 jnz     get2
    & @- t5 }  ?4 c4 }2 N6 E- B! `+ o" m
77. exit4:          ret     
    1 Q6 }1 h) e% g3 |0 e- ]; O
78.                
    
79. end

复制代码

Tangailiu

void openA20()
{        while(inp(0x64) & 2);        outp(0x64,0xd1);
3 y: \& {: D- W( P5 n; o6 O        while(inp(0x64) & 2);        outp(0x60,0xdf);
! r$ T, r3 m3 x" H  Y        while(inp(0x64) & 2);        outp(0x64,0xff);
}