E 000                 push    bp
seg002:005F 002                 mov     bp, sp
seg002:0061 002                 push    cx
seg002:0062 004                 cli                     ; Clear Interrupt Flag
seg002:0063 004                 sub     cx, cx          ; Integer Subtraction
seg002:0065     
seg002:0065     loop:                                   ; CODE XREF: sub_1642E+Bj
seg002:0065 004                 in      al, 64h         ; Read keyboard status byte.
seg002:0067 004                 test    al, 3           ; Logical Compare
seg002:0069 004                 loopne  loop            ; Loop while CX != 0 and ZF=0
seg002:006B 004                 mov     ax, [bp+arg_0]
seg002:006E 004                 out     60h, al         ; AT Keyboard controller 8042.
seg002:0070 004                 sti                     ; Set Interrupt Flag
seg002:0071 004                 pop     cx
seg002:0072 002                 pop     bp
seg002:0073 000                 retn    2               ; Return Near from Procedure
seg002:0073     sub_1642E       endp