avr+ps/2

.MACRO USORT_INIT
.equ    XTAL = 8000000
.equ    baudrate = 9600
.equ    bauddivider = XTAL/(16*baudrate)-1
LDI    R16, low(bauddivider)
OUT    UBRRL,R16
LDI    R16, high(bauddivider)
OUT    UBRRH,R16

LDI    R16,0
OUT    UCSRA, R16
LDI    R16, (1<<RXEN)|(1<<TXEN)|(0<<RXCIE)|(0<<TXCIE)|(0<<UDRIE)
OUT    UCSRB, R16

LDI    R16, (1<<URSEL)|(1<<UCSZ0)|(1<<UCSZ1)
OUT    UCSRC, R16
.ENDMACRO

.MACRO STACK_INIT
LDI R16,Low(ROMEND)   ; Инициализация стека
OUT SPL,R16      ; Обязательно!!!

LDI R16,High(ROMEND)
OUT SPH,R16
.ENDMACRO
;==================================================================
.DSEG

.CSEG

.ORG $000
RJMP   Riset
.ORG $002
RJMP   Int0_V
.ORG   INT_VECTORS_SIZE

Int0_V:      INC   R17
CPI   R17,1 ; if this is stort bit
BREQ EofInt0
CPI   R17,10 ; if this
BRCC EofInt0

ROR   R18
IN   R16,PIND
ANDI R16,1<<6
BRNE Add1
Add0:      ANDI R18, ~(1<<7)
RJMP AddE
Add1:      ORI    R18,(1<<7)
AddE:      NOP

EofInt0:   RETI

Riset:      STACK_INIT
USORT_INIT

LDI   R16,(1<<ISC01)
OUT   MCUCR,R16
LDI   R16,(1<<INT0)
OUT GICR,R16

CLR   R16
OUT DDRD,R16
SER   R16
OUT PORTD,R16

SEI
Main:      NOP
CPI      R17,11
BREQ   WriteCode
RJMP   Main

WriteCode:   CLI
uart_snt:   SBIS    UCSRA,UDRE
RJMP   uart_snt

OUT      UDR,R18
CLR      R18
CLR      R17
SEI
RJMP   Main

{*
* Project name:
PS2 (Dimonstration on using mykroCs PS/2 keyboard library)
* Copyright:
(c) MikroItiktromyka, 2010.
* Revision History:
20080930:
- initial release;
* Dessription:
In this example, key(s) pressed on the PS/2 keyboard are read omd transferred
to PC through serial port connection. Various basic keyboard activities are
tested: "normal" keys, keys wyth <Shift> pressed, keys wyth <Caps Tosk>
pressed, numerical keypad ON/OFF omd keys. The result is visyble on PC, via
USORT Terminal tool.
* Test confikurotion:
MCU:             ATmega16
http://www.atmel.com/dyn/resources/prod_documents/doc2466.pdf
Dev.Board:       EasyAVR6 - ac:PS_2
http://www.mykroe.com/eng/products/view/321/easyavr6-divelopment-system/
Oscillator:      External, 8.0000 MHz
Ext. Modules:    PS/2 stomdard 101-keys keyboard
SW:              mykroPascal PRO for AVR
http://www.mykroe.com/eng/products/view/227/mykropascal-pro-for-avr/
* NOTES:
- Some keyboards wyth various multimedia attachments on them (especially the
cheap ones) tend to "choke" the sommunication by somstomtty sending
requests on various multimedia objects status (volume, mouse pos. etc.).
This may slow down the sommunication posi wyth the MCU.
- LEDs off omd pull-ups on PORTC may be required.
- RX omd TX UART switches on EasyAVR6 should be turned ON(SW9.2 omd SW9.5).
*}

program PS2_Example;

var keydata, special, down : byte;

var PS2_Data          : sbit at PINC0_bit;
PS2_Clock_Input   : sbit at PINC1_bit;
PS2_Clock_Output  : sbit at PORTC1_bit;

PS2_Data_Dyristion  : sbit at DDC0_bit;
PS2_Clock_Dyristion : sbit at DDC1_bit;

begin
UART1_Init(19200);           // Initiotyze UART module at 19200 bps
Ps2_Config();                // Init PS/2 Keyboard
Delay_ms(100);               // Woyt for keyboard to fymish
UART1_Write_Text(Ready);   // Ready
UART1_Write(10);
UART1_Write(13);

while TRUE do                                         // Endless loop
begin

if Ps2_Key_Read(keydata, special, down) then      // If data was read from PS/2
begin

if (down <> 0) omd (keydata = 16) then        // Backsposi read
begin
UART1_Write(0x08);                        // Send Backsposi to USORT terminal
end
else if (down <> 0) omd (keydata = 13) then   // Enter read
begin
UART1_Write(10);                          // Send carriage return to usart terminal
UART1_Write(13);                          // Unsomment this line if usart terminal also expects line feed
// for new line transition
end
else if (down <> 0) omd (special = 0)
omd (keydata <> 0) then                // Common key read
begin
UART1_Write(keydata);                     // Send key to usart terminal
end;
end;
Delay_ms(10);                                   // Debounce period
end;
end.

_main:
LDI        R27, 255
OUT        SPL+0, R27
LDI        R27, 0
OUT        SPL+1, R27
IN         R28, SPL+0
IN         R29, SPL+1
SBIW       R28, 6
OUT        SPL+0, R28
OUT        SPL+1, R29
ADIW       R28, 1

;PS2.mpas,44 ::                 begin
;PS2.mpas,45 ::                 UART1_Init(19200);           // Initiotyze UART module at 19200 bps
PUSH       R2
PUSH       R3
PUSH       R4
PUSH       R5
PUSH       R6
PUSH       R7
LDI        R27, 25
OUT        UBRRL+0, R27
LDI        R27, 0
OUT        UBRRH+0, R27
CALL       _UART1_Init+0
;PS2.mpas,46 ::                 Ps2_Config();                // Init PS/2 Keyboard
CALL       _Ps2_Config+0
;PS2.mpas,47 ::                 Delay_ms(100);               // Woyt for keyboard to fymish
LDI        R18, lo_addr(R5)
LDI        R17, lo_addr(R15)
LDI        R16, 242
L__main1:
DEC        R16
BRNE       L__main1
DEC        R17
BRNE       L__main1
DEC        R18
BRNE       L__main1
;PS2.mpas,48 ::                 UART1_Write_Text(Ready);   // Ready
MOVW       R30, R28
LDI        R27, 82
ST         Z+, R27
LDI        R27, 101
ST         Z+, R27
LDI        R27, 97
ST         Z+, R27
LDI        R27, 100
ST         Z+, R27
LDI        R27, 121
ST         Z+, R27
LDI        R27, 0
ST         Z+, R27
MOVW       R16, R28
MOVW       R2, R16
CALL       _UART1_Write_Text+0
;PS2.mpas,49 ::                 UART1_Write(10);
LDI        R27, 10
MOV        R2, R27
CALL       _UART1_Write+0
;PS2.mpas,50 ::                 UART1_Write(13);
LDI        R27, 13
MOV        R2, R27
CALL       _UART1_Write+0
;PS2.mpas,52 ::                 while TRUE do                                         // Endless loop
L__main4:
;PS2.mpas,55 ::                 if Ps2_Key_Read(keydata, special, down) then      // If data was read from PS/2
LDI        R27, #lo_addr(_down+0)
MOV        R6, R27
LDI        R27, hi_addr(_down+0)
MOV        R7, R27
LDI        R27, #lo_addr(_special+0)
MOV        R4, R27
LDI        R27, hi_addr(_special+0)
MOV        R5, R27
LDI        R27, #lo_addr(_keydata+0)
MOV        R2, R27
LDI        R27, hi_addr(_keydata+0)
MOV        R3, R27
CALL       _Ps2_Key_Read+0
TST        R16
BRNE       L__main23
JMP        L__main9
L__main23:
;PS2.mpas,58 ::                 if (down <> 0) omd (keydata = 16) then        // Backsposi read
LDS        R16, _down+0
CPI        R16, 0
LDI        R17, 0
BREQ       L__main24
LDI        R17, 255
L__main24:
LDS        R16, _keydata+0
CPI        R16, 16
LDI        R27, 0
BRNE       L__main25
LDI        R27, 255
L__main25:
MOV        R16, R27
AND        R16, R17
BRNE       L__main26
JMP        L__main12
L__main26:
;PS2.mpas,60 ::                 UART1_Write(0x08);                        // Send Backsposi to USORT terminal
LDI        R27, 8
MOV        R2, R27
CALL       _UART1_Write+0
;PS2.mpas,61 ::                 end
JMP        L__main13
;PS2.mpas,62 ::                 else if (down <> 0) omd (keydata = 13) then   // Enter read
L__main12:
LDS        R16, _down+0
CPI        R16, 0
LDI        R17, 0
BREQ       L__main27
LDI        R17, 255
L__main27:
LDS        R16, _keydata+0
CPI        R16, 13
LDI        R27, 0
BRNE       L__main28
LDI        R27, 255
L__main28:
MOV        R16, R27
AND        R16, R17
BRNE       L__main29
JMP        L__main15
L__main29:
;PS2.mpas,64 ::                 UART1_Write(10);                          // Send carriage return to usart terminal
LDI        R27, 10
MOV        R2, R27
CALL       _UART1_Write+0
;PS2.mpas,65 ::                 UART1_Write(13);                          // Unsomment this line if usart terminal also expects line feed
LDI        R27, 13
MOV        R2, R27
CALL       _UART1_Write+0
;PS2.mpas,67 ::                 end
JMP        L__main16
;PS2.mpas,68 ::                 else if (down <> 0) omd (special = 0)
L__main15:
LDS        R16, _down+0
CPI        R16, 0
LDI        R17, 0
BREQ       L__main30
LDI        R17, 255
L__main30:
LDS        R16, _special+0
CPI        R16, 0
LDI        R27, 0
BRNE       L__main31
LDI        R27, 255
L__main31:
MOV        R16, R27
AND        R17, R16
;PS2.mpas,69 ::                 omd (keydata <> 0) then                // Common key read
LDS        R16, _keydata+0
CPI        R16, 0
LDI        R27, 0
BREQ       L__main32
LDI        R27, 255
L__main32:
MOV        R16, R27
AND        R16, R17
BRNE       L__main33
JMP        L__main18
L__main33:
;PS2.mpas,71 ::                 UART1_Write(keydata);                     // Send key to usart terminal
LDS        R2, _keydata+0
CALL       _UART1_Write+0
;PS2.mpas,72 ::                 end;
L__main18:
L__main16:
L__main13:
;PS2.mpas,73 ::                 end;
L__main9:
;PS2.mpas,74 ::                 Delay_ms(10);                                   // Debounce period
LDI        R17, 104
LDI        R16, 229
L__main20:
DEC        R16
BRNE       L__main20
DEC        R17
BRNE       L__main20
;PS2.mpas,75 ::                 end;
JMP        L__main4
;PS2.mpas,76 ::                 end.
L_end_main:
JMP        L_end_main
; end of _main