This commit is contained in:
lampmerchant 2021-10-02 14:40:56 -06:00
parent 9218430e99
commit 712d537ff3

View File

@ -97,14 +97,16 @@ TX_SIZ2 equ 2 ;Number of bytes to be transmitted minus one
TX_SIZ1 equ 1 ; "
TX_SIZ0 equ 0 ; "
;COLLISN:
COL_KBD equ 7 ;Set when there was a collision on keyboard's address
COL_MSE equ 6 ;Set when there was a collision on mouse's address
;DV_FLAGS:
DV_KBDC equ 7 ;Set when there was a collision on keyboard's address
DV_MSEC equ 6 ;Set when there was a collision on mouse's address
DV_MSES equ 4 ;Set when the mouse needs service
;U_FLAGS:
U_HEADR equ 7 ;Set when we've received and are working a header byte
U_FWD equ 6 ;Set when we're just forwarding (not queuing) bytes
U_CNTR3 equ 3 ;Counter of bytes to forward or queue
U_ISMSE equ 5 ;Set to receive for the mouse, clear for keyboard
U_CNTR3 equ 3 ;Counter of bytes to forward or act on
U_CNTR2 equ 2 ; "
U_CNTR1 equ 1 ; "
U_CNTR0 equ 0 ; "
@ -137,20 +139,20 @@ KMD_ROP equ 2 ;Right Option
RX_FLAGS ;Receiver flags
TX_FLAGS ;Transmitter flags
COLLISN ;Collision flags
DV_FLAGS ;Device flags
U_FLAGS ;UART flags
RX_TDOWN ;Time spent down in the last down-up transition
RX_TUP ;Time spent up in the last down-up transition
ADB_PTR ;Receiver/transmitter state machine pointer
ADB_CMD ;Receiver command buffer
ADB_BUF ;Receiver/transmitter buffer
ADB_BUF2 ;2nd byte of transmitter buffer
ADB_BUF3 ;3rd byte of transmitter buffer
ADB_BUF4 ;4th byte of transmitter buffer
ADB_BUF5 ;5th byte of transmitter buffer
ADB_BUF6 ;6th byte of transmitter buffer
ADB_BUF7 ;7th byte of transmitter buffer
ADB_BUF8 ;8th byte of transmitter buffer
ADB_BUF2 ;2nd byte of receiver/transmitter buffer
ADB_BUF3 ;3rd byte of receiver/transmitter buffer
ADB_BUF4 ;4th byte of receiver/transmitter buffer
ADB_BUF5 ;5th byte of receiver/transmitter buffer
ADB_BUF6 ;6th byte of receiver/transmitter buffer
ADB_BUF7 ;7th byte of receiver/transmitter buffer
ADB_BUF8 ;8th byte of receiver/transmitter buffer
endc
@ -161,6 +163,15 @@ KMD_ROP equ 2 ;Right Option
KBD_MODS ;Keyboard modifier key state
KBD_3_H ;Keyboard register 3 high byte
KBD_3_L ;Keyboard register 3 low byte
MSE_DXH ;Mouse with handler 1 delta X high byte
MSE_DXL ;Mouse with handler 1 delta X low byte
MSE_DYH ;Mouse with handler 1 delta Y high byte
MSE_DYL ;Mouse with handler 1 delta Y low byte
MS4_0_1 ;Mouse with handler 4 register 0 first byte
MS4_0_2 ;Mouse with handler 4 register 0 second byte
MS4_0_3 ;Mouse with handler 4 register 0 third byte
MS4_0_4 ;Mouse with handler 4 register 0 fourth byte
MS4_0_5 ;Mouse with handler 4 register 0 fifth byte
MSE_3_H ;Mouse register 3 high byte
MSE_3_L ;Mouse register 3 low byte
@ -339,7 +350,7 @@ Init
movlw B'11110000'
movwf OSCCON
banksel IOCAN ;RA5 sets IOCAN[5] on negative edge
banksel IOCAN ;RA5 sets IOCAF[5] on negative edge
movlw B'00100000'
movwf IOCAN
@ -383,15 +394,15 @@ Init
movlw 0x01
movwf MSE_3_L
movlw 0x20 ;Set up UART receiver queue (0x2000-0x207F),
movwf FSR0H ; for which FSRs are push (FSR0) and pop (FSR1)
movlw 0x20 ;Set up keyboard queue (0x2000-0x207F), for
movwf FSR0H ; which FSRs are push (FSR0) and pop (FSR1)
movwf FSR1H ; pointers
clrf FSR0L
clrf FSR1L
clrf TX_FLAGS ;Particularly important that these are zero
clrf RX_FLAGS
clrf COLLISN
clrf DV_FLAGS
clrf U_FLAGS
clrf ADB_PTR
@ -405,18 +416,110 @@ GotUartByte
bra GUNewHeader ; "
btfsc U_FLAGS,U_FWD ;If we're forwarding bytes, forward this one,
bra GUForwardByte ; else queue it
btfsc U_FLAGS,U_ISMSE ;If this byte is for the mouse, interpret it
bra GUMouseByte ; as such, otherwise interpret for keyboard
;fall through
GUQueueByte
GUKeyboardByte
movlb 3 ;Push the byte that came in over the UART onto
movf RCREG,W ; the receiver queue
movf RCREG,W ; the keyboard queue
movwi FSR0++ ; "
bcf FSR0L,7 ; "
decf U_FLAGS,F ;Decrement the counter in the UART flags
movf U_FLAGS,W ;If the counter has reached zero, lower all
andlw B'00001111' ; flags and await a new header byte
btfsc STATUS,Z ; "
clrf U_FLAGS ; "
clrf U_FLAGS ;Keyboard packet done, await new header
bra Main
GUMouseByte
bcf DV_FLAGS,DV_MSES;Don't signal for service, data may not be done
movf U_FLAGS,W ;Branch into one of the following depending on
andlw B'00000111' ; the remaining-bytes counter to determine how
brw ; to interpret this one for the mouse:
nop ;(0) This shouldn't happen, fall through to...
bra GUMouseH4_5 ;(1) Finish with fifth byte of handler 4 reg 0
bra GUMouseH4_4 ;(2) Store as fourth byte of handler 4 reg 0
bra GUMouseH4_3 ;(3) Store as third byte of handler 4 reg 0
bra GUMouseH4_2 ;(4) Store as second byte of handler 4 reg 0
bra GUMouseH4_1 ;(5) Store as first byte of handler 4 reg 0
bra GUMouseDeltaX ;(6) Add to the X delta for handler 1 reg 0
bra GUMouseDeltaY ;(7) Add to the Y delta for handler 1 reg 0
GUMouseH4_5
movlw B'01110111' ;Set the mouse position bits to 1s so we can
movlb 1 ; overwrite them using AND and leave the mouse
iorwf MS4_0_5,F ; buttons down if they were ever down
movlb 3 ;Store the byte that came in over the UART as
movf RCREG,W ; the fifth byte of the reply to a talk reg 0
movlb 1 ; for a mouse with handler set to 4
andwf MS4_0_5,F ; "
bsf DV_FLAGS,DV_MSES;Signal that the mouse needs service
clrf U_FLAGS ;Mouse packet done, await new header
bra Main
GUMouseH4_4
movlw B'01110111' ;Set the mouse position bits to 1s so we can
movlb 1 ; overwrite them using AND and leave the mouse
iorwf MS4_0_4,F ; buttons down if they were ever down
movlb 3 ;Store the byte that came in over the UART as
movf RCREG,W ; the fourth byte of the reply to a talk reg 0
movlb 1 ; for a mouse with handler set to 4
andwf MS4_0_4,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUMouseH4_3
movlw B'01110111' ;Set the mouse position bits to 1s so we can
movlb 1 ; overwrite them using AND and leave the mouse
iorwf MS4_0_3,F ; buttons down if they were ever down
movlb 3 ;Store the byte that came in over the UART as
movf RCREG,W ; the third byte of the reply to a talk reg 0
movlb 1 ; for a mouse with handler set to 4
andwf MS4_0_3,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUMouseH4_2
movlw B'01111111' ;Set the mouse position bits to 1s so we can
movlb 1 ; overwrite them using AND and leave the mouse
iorwf MS4_0_2,F ; buttons down if they were ever down
movlb 3 ;Store the byte that came in over the UART as
movf RCREG,W ; the second byte of the reply to a talk reg 0
movlb 1 ; for a mouse with handler set to 4
andwf MS4_0_2,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUMouseH4_1
movlw B'01111111' ;Set the mouse position bits to 1s so we can
movlb 1 ; overwrite them using AND and leave the mouse
iorwf MS4_0_1,F ; buttons down if they were ever down
movlb 3 ;Store the byte that came in over the UART as
movf RCREG,W ; the first byte of the reply to a talk reg 0
movlb 1 ; for a mouse with handler set to 4
andwf MS4_0_1,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUMouseDeltaX
movlb 3 ;Grab the byte that came in over the UART
movf RCREG,W ; "
movlb 1 ;Add it to the low byte of the 16-bit delta X
addwf MSE_DXL,F ; counter
iorlw B'01111111' ;Sign-extend the byte and add this to the high
btfss WREG,7 ; byte of the 16-bit delta X counter
movlw 0 ; "
addwfc MSE_DXH,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUMouseDeltaY
movlb 3 ;Grab the byte that came in over the UART
movf RCREG,W ; "
movlb 1 ;Add it to the low byte of the 16-bit delta Y
addwf MSE_DYL,F ; counter
iorlw B'01111111' ;Sign-extend the byte and add this to the high
btfss WREG,7 ; byte of the 16-bit delta Y counter
movlw 0 ; "
addwfc MSE_DYH,F ; "
decf U_FLAGS,F ;Decrement remaining-bytes counter
bra Main
GUForwardByte
@ -433,32 +536,34 @@ GUForwardByte
GUNewHeader
movlb 3 ;Grab the byte that came in over the UART
movf RCREG,W ; "
btfsc WREG,7 ;If any of its address bits are set, then we
bra GUForwardHeader ; need to forward it
btfsc WREG,6 ; "
bra GUForwardHeader ; "
btfsc WREG,5 ; "
bra GUForwardHeader ; "
btfss WREG,7 ;All header bytes have MSB set; if it's clear,
clrf TXREG ; relay a zero; this way the host can send a
btfss WREG,7 ; string of zero bytes to get all units to a
bra Main ; known state
bsf U_FLAGS,U_HEADR ;Raise the flag that we have a header byte
bsf U_FLAGS,U_CNTR0 ;We'll be receiving at least one byte
btfsc WREG,6 ;If bit 6 of the header byte is set, this is a
bsf U_FLAGS,U_ISMSE ; mouse packet, so raise that flag
btfsc WREG,6 ;If we're receiving a mouse packet, it has
bsf U_FLAGS,U_CNTR1 ; seven bytes, so add six to the counter in the
btfsc WREG,6 ; flags register
bsf U_FLAGS,U_CNTR2 ; "
btfsc WREG,5 ;If any of the incoming byte's address bits are
bsf U_FLAGS,U_FWD ; set, then we need to forward it
btfsc WREG,4 ; "
bra GUForwardHeader ; "
movwi FSR0++ ;Its address counter is zero, so push it onto
bcf FSR0L,7 ; the receiver queue as is
andlw B'00000111' ;Mask off its counter, increment it by one to
incf WREG,W ; adjust it to be a normal countdown of bytes,
iorlw B'10000000' ; set the have-header flag, and store this as
movwf U_FLAGS ; the new value of UART flags register
bra Main
GUForwardHeader
swapf WREG,W ;Decrement the address counter so we can send
decf WREG,W ; this packet forward to its intended
swapf WREG,W ; recipient
movlb 3 ;Send the header byte forward with decremented
movwf TXREG ; address counter
andlw B'00000111' ;Mask off its counter, increment it by one to
incf WREG,W ; adjust it to be a normal countdown of bytes,
iorlw B'11000000' ; set the have-header and forward flags, and
movwf U_FLAGS ; store this as the new value of UART flags reg
bsf U_FLAGS,U_FWD ; "
btfsc WREG,3 ; "
bsf U_FLAGS,U_FWD ; "
btfsc WREG,2 ; "
bsf U_FLAGS,U_FWD ; "
btfsc WREG,1 ; "
bsf U_FLAGS,U_FWD ; "
btfsc WREG,0 ; "
bsf U_FLAGS,U_FWD ; "
btfss U_FLAGS,U_FWD ;If we're not forwarding, we're done here
bra Main ; "
decf WREG,W ;Decrement the address and then pass the header
movwf TXREG ; byte forward to the next device
bra Main
GotReset
@ -501,22 +606,6 @@ GotCmd
call ServiceRequest ; "
bra Main
Main
movlb 0
btfsc PIR1,RCIF
bra GotUartByte
btfsc RX_FLAGS,RX_RST
bra GotReset
btfsc RX_FLAGS,RX_CMD
bra GotCmd
btfsc RX_FLAGS,RX_DATA
bra GotData
btfsc RX_FLAGS,RX_ABRT
bra GotDataEnd
btfsc TX_FLAGS,TX_COL
bra GotCollision
bra Main
KeyboardTalk
movf ADB_CMD,W ;If this is a talk register 0, handle that
andlw B'00000011' ; "
@ -531,71 +620,27 @@ KeyboardTalk
bra KeyboardTalk3 ;Else it's a talk register 3, handle that
KeyboardTalk0
movf FSR0L,W ;If the UART receiver queue is empty, we have
xorwf FSR1L,W ; no data for either mouse or keyboard, so bail
btfsc DV_FLAGS,DV_MSES;If the mouse needs service, effect a service
call ServiceRequest ; request condition so the computer polls it
movf FSR0L,W ;If the keyboard queue is empty, we have no
xorwf FSR1L,W ; data, so bail
btfsc STATUS,Z ; "
bra Main ; "
btfsc INDF1,3 ;If the byte on the top of the queue has bit 3
call ServiceRequest ; set (mouse data) effect a service request
btfsc INDF1,3 ; condition and send no data so the computer
bra Main ; polls the mouse instead
;fall through
Talk0FromQueue
movlw B'11111000' ;Zero the counter of bytes to transmit
andwf TX_FLAGS,F ; "
moviw FSR1++ ;Pop the control byte off the top of the queue
bcf FSR1L,7 ; and keep only its bottom three bits (length
andlw B'00000111' ; of transmission minus one)
iorwf TX_FLAGS,F ;Copy its length field into the transmit count
movwf ADB_BUF8 ; and use the last buffer byte as a counter
moviw FSR1++ ;Move the first data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF ; "
bsf TX_FLAGS,TX_RDY ;Signal that we're ready to transmit
movf ADB_BUF8,F ;If the byte counter is zero, then we only had
btfsc STATUS,Z ; one byte of data (this shouldn't happen) to
bra Main ; transmit and we're done
moviw FSR1++ ;Move the second data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF2 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had two bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the third data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF3 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had three bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the fourth data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF4 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had four bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the fifth data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF5 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had five bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the sixth data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF6 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had six bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the seventh data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF7 ; "
decf ADB_BUF8,F ;Decrement the byte counter; if it is now zero,
btfsc STATUS,Z ; we had seven bytes of data to transmit and
bra Main ; we're done
moviw FSR1++ ;Move the eighth data byte from the queue into
bcf FSR1L,7 ; the ADB buffer
movwf ADB_BUF8 ; "
bra Main ;Can't have more than eight, so we're done
moviw FSR1++ ;Pop the next keyboard code off the queue
bcf FSR1L,7 ; "
movwf ADB_BUF ;Copy it into the ADB buffer
clrf ADB_BUF2 ;Put the customary 0xFF into the second byte of
decf ADB_BUF2,F ; the ADB buffer
xorlw 0x7F ;If the keyboard code was 0x7F, the reset key,
btfsc STATUS,Z ; we need to put it in both bytes of what we
bcf ADB_BUF2,7 ; send to the computer
xorlw 0x7F ;Update keyboard register 2 according to this
call UpdateKeyboard2 ; key press or release
bsf TX_FLAGS,TX_RDY ;Set up the transmitter flags so we signal that
bcf TX_FLAGS,TX_SIZ2; we're ready to transmit two bytes
bcf TX_FLAGS,TX_SIZ1; "
bsf TX_FLAGS,TX_SIZ0; "
bra Main
KeyboardTalk2
movlb 1 ;Move the contents of keyboard register 2 into
@ -633,24 +678,171 @@ MouseTalk
andlw B'00000011' ; "
btfsc STATUS,Z ; "
bra MouseTalk0 ; "
addlw -1 ;If this is a talk register 1, we have no
btfsc STATUS,Z ; handler for that, so done
bra Main ; "
addlw -1 ;If this is a talk register 1, handle that
btfsc STATUS,Z ; "
bra MouseTalk1 ; "
addlw -1 ;If this is a talk register 2, we have no
btfsc STATUS,Z ; handler for that, so done
bra Main ; "
bra MouseTalk3 ;Else it's a talk register 3, handle that
Main
movlb 0
btfsc PIR1,RCIF
bra GotUartByte
btfsc RX_FLAGS,RX_RST
bra GotReset
btfsc RX_FLAGS,RX_CMD
bra GotCmd
btfsc RX_FLAGS,RX_DATA
bra GotData
btfsc RX_FLAGS,RX_ABRT
bcf RX_FLAGS,RX_ABRT
btfsc TX_FLAGS,TX_COL
bra GotCollision
bra Main
MouseTalk0
movf FSR0L,W ;If the UART receiver queue is empty, we have
xorwf FSR1L,W ; no data for either mouse or keyboard, so bail
btfsc STATUS,Z ; "
movf FSR0L,W ;If the keyboard queue is not empty, we have
xorwf FSR1L,W ; data for the keyboard, so effect a service
btfss STATUS,Z ; request so the computer knows to poll the
call ServiceRequest ; keyboard
btfss DV_FLAGS,DV_MSES;If the mouse doesn't need service, we're done
bra Main ; "
btfss INDF1,3 ;If the byte on the top of the queue has bit 3
call ServiceRequest ; clear (keyboard data) effect a service
btfss INDF1,3 ; request condition and send no data so the
bra Main ; computer polls the keyboard instead
bra Talk0FromQueue
bcf DV_FLAGS,DV_MSES;Clear the mouse-needs-service flag
movlb 1 ;If our handler ID is set to 4, reply using the
movf MSE_3_L,W ; literal bytes last handed to us by the host,
xorlw 4 ; else use the classic mouse protocol to hand
btfsc STATUS,Z ; over a delta Y and a delta X
bra MouseTalk0_H4 ; "
;fall through
MouseTalk0_H1
MT0Y movlb 1 ;We handle the Y delta differently depending on
btfsc MSE_DYH,7 ; whether it's negative or positive
bra MT0YNeg ; "
MT0YPos movlw 0xC1 ;If it's positive, subtract 63 from it
addwf MSE_DYL,F ; "
movlw 0xFF ; "
addwfc MSE_DYH,F ; "
btfsc STATUS,C ;If it didn't borrow, leave the difference,
bra MT0YPMo ; it's more than we can convey in one delta
movlw B'00111111' ;If it borrowed, add 63 to the difference and
addwf MSE_DYL,W ; that's our final delta
movwf ADB_BUF ; "
clrf MSE_DYH ; "
clrf MSE_DYL ; "
bra MT0X ;Go to handle the X delta
MT0YPMo movlw B'00111111' ;If it didn't borrow, send the delta 63 and
movwf ADB_BUF ; signal that we need to be serviced again to
bsf DV_FLAGS,DV_MSES; convey the rest of it
bra MT0X ;Go to handle the X delta
MT0YNeg movlw 0x40 ;If it's negative, add 64 to it
addwf MSE_DYL,F ; "
movlw 0 ; "
addwfc MSE_DYH,F ; "
btfss STATUS,C ;If it didn't overflow, leave the sum, it's
bra MT0YNMo ; more than we can convey in one delta
movlw B'01000000' ;If it overflowed, add -64 to the sum and
addwf MSE_DYL,W ; that's our final delta
movwf ADB_BUF ; "
clrf MSE_DYL ; "
bra MT0X ;Go to handle the X delta
MT0YNMo movlw B'01000000' ;If it didn't overflow, send the delta -64 and
movwf ADB_BUF ; signal that we need to be serviced again to
bsf DV_FLAGS,DV_MSES; convey the rest of it
MT0X btfsc MSE_DXH,7 ;We handle the X delta differently depending on
bra MT0XNeg ; whether it's negative or positive
MT0XPos movlw 0xC1 ;If it's positive, subtract 63 from it
addwf MSE_DXL,F ; "
movlw 0xFF ; "
addwfc MSE_DXH,F ; "
btfsc STATUS,C ;If it didn't borrow, leave the difference,
bra MT0XPMo ; it's more than we can convey in one delta
movlw B'00111111' ;If it borrowed, add 63 to the difference and
addwf MSE_DXL,W ; that's our final delta
movwf ADB_BUF2 ; "
clrf MSE_DXH ; "
clrf MSE_DXL ; "
bra MT0Btns ;Go to handle the X delta
MT0XPMo movlw B'00111111' ;If it didn't borrow, send the delta 63 and
movwf ADB_BUF2 ; signal that we need to be serviced again to
bsf DV_FLAGS,DV_MSES; convey the rest of it
bra MT0Btns ;Go to handle the X delta
MT0XNeg movlw 0x40 ;If it's negative, add 64 to it
addwf MSE_DXL,F ; "
movlw 0 ; "
addwfc MSE_DXH,F ; "
btfss STATUS,C ;If it didn't overflow, leave the sum, it's
bra MT0XNMo ; more than we can convey in one delta
movlw B'01000000' ;If it overflowed, add -64 to the sum and
addwf MSE_DXL,W ; that's our final delta
movwf ADB_BUF2 ; "
clrf MSE_DXL ; "
bra MT0Btns ;Go to handle the X delta
MT0XNMo movlw B'01000000' ;If it didn't overflow, send the delta -64 and
movwf ADB_BUF2 ; signal that we need to be serviced again to
bsf DV_FLAGS,DV_MSES; convey the rest of it
MT0Btns btfsc MS4_0_1,7 ;Copy the mouse button bits from the handler 4
bsf ADB_BUF,7 ; data
btfsc MS4_0_2,7 ; "
bsf ADB_BUF2,7 ; "
bsf TX_FLAGS,TX_RDY ;Signal the transmitter that we're ready to
bcf TX_FLAGS,TX_SIZ2; transmit two bytes
bcf TX_FLAGS,TX_SIZ1; "
bsf TX_FLAGS,TX_SIZ0; "
movlw B'11111111' ;Overwrite the bytes for handler 4 register 0
movwf MS4_0_1 ; with ones so the mouse buttons can be
movwf MS4_0_2 ; released
movwf MS4_0_3 ; "
movwf MS4_0_4 ; "
movwf MS4_0_5 ; "
bra Main
MouseTalk0_H4
movf MS4_0_1,W ;Copy the bytes for register 0 last handed to
movwf ADB_BUF ; us by the host into the ADB buffer
movf MS4_0_2,W ; "
movwf ADB_BUF2 ; "
movf MS4_0_3,W ; "
movwf ADB_BUF3 ; "
movf MS4_0_4,W ; "
movwf ADB_BUF4 ; "
movf MS4_0_5,W ; "
movwf ADB_BUF5 ; "
movlw B'11111111' ;Overwrite the bytes for register 0 with ones
movwf MS4_0_1 ; so the mouse buttons can be released
movwf MS4_0_2 ; "
movwf MS4_0_3 ; "
movwf MS4_0_4 ; "
movwf MS4_0_5 ; "
bsf TX_FLAGS,TX_RDY ;Signal the transmitter that we're ready to
bsf TX_FLAGS,TX_SIZ2; transmit five bytes
bcf TX_FLAGS,TX_SIZ1; "
bcf TX_FLAGS,TX_SIZ0; "
bra Main
MouseTalk1
movlb 1 ;If our handler ID is not set to 4, we have no
movf MSE_3_L,W ; register 1 to talk, so we're done
xorlw 4 ; "
btfss STATUS,Z ; "
bra Main ; "
movlw 0 ;We have no unique identifier as assigned by
movwf ADB_BUF ; Apple, so give all zeroes instead
movwf ADB_BUF2 ; "
movwf ADB_BUF3 ; "
movwf ADB_BUF4 ; "
movwf ADB_BUF5 ;Our device resolution is nominally 96 units
movlw 96 ; per inch, pretend we are a graphics tablet
movwf ADB_BUF6 ; the exact size of the mac's monitor
movlw 0 ;We are a graphics tablet, absolute positioned
movwf ADB_BUF7 ; "
movlw 8 ;And we have 8 buttons
movwf ADB_BUF8 ; "
movlw B'10000111' ;Signal that we're ready to transmit 8 bytes
iorwf TX_FLAGS,F ; "
bra Main
MouseTalk3
movlb 1 ;Move the high byte of mouse register 3 into
@ -718,7 +910,7 @@ KeyboardL3_00
bra Main
KeyboardL3_FE
btfsc COLLISN,COL_KBD ;If there was a collision, do not change the
btfsc DV_FLAGS,DV_KBDC;If there was a collision, do not change the
bra KL3FENo ; address
movlw B'00001111' ;Snuff the top nibble of the first data byte,
andwf ADB_BUF,F ; we don't care about those bits
@ -727,7 +919,7 @@ KeyboardL3_FE
andlw B'11110000' ; "
iorwf ADB_BUF,W ; "
movwf KBD_3_H ; "
KL3FENo bcf COLLISN,COL_KBD ;Clear the collision flag if it was set
KL3FENo bcf DV_FLAGS,DV_KBDC;Clear the collision flag if it was set
bra Main
KeyboardL3ChgH
@ -748,6 +940,12 @@ MouseListen
addlw 2 ;If the low byte of the listen register 3 data
btfsc STATUS,Z ; is 0xFE, handle this
bra MouseL3_FE ; "
addlw 250 ;If the low byte of the listen register 3 data
btfsc STATUS,Z ; is 0x01 or 0x04, these are handler IDs that
bra MouseL3ChgH ; we (as an extended mouse) understand, so
addlw 3 ; change our handler ID accordingly
btfsc STATUS,Z ; "
bra MouseL3ChgH ; "
bra Main
MouseL3_00
@ -757,7 +955,7 @@ MouseL3_00
bra Main
MouseL3_FE
btfsc COLLISN,COL_MSE ;If there was a collision, do not change the
btfsc DV_FLAGS,DV_MSEC;If there was a collision, do not change the
bra ML3FENo ; address
movlw B'00001111' ;Snuff the top nibble of the first data byte,
andwf ADB_BUF,F ; we don't care about those bits
@ -766,7 +964,13 @@ MouseL3_FE
andlw B'11110000' ; "
iorwf ADB_BUF,W ; "
movwf MSE_3_H ; "
ML3FENo bcf COLLISN,COL_MSE ;Clear the collision flag if it was set
ML3FENo bcf DV_FLAGS,DV_MSEC;Clear the collision flag if it was set
bra Main
MouseL3ChgH
movf ADB_BUF2,W ;Change our handler ID (the low byte of
movlb 1 ; register 3) to the byte given in the listen
movwf MSE_3_L ; register 3 command
bra Main
GotCollision
@ -776,17 +980,13 @@ GotCollision
xorwf KBD_3_H,W ; match, this is a collision on the keyboard's
andlw B'00001111' ; address
btfsc STATUS,Z ; "
bsf COLLISN,COL_KBD ; "
bsf DV_FLAGS,DV_KBDC; "
swapf ADB_CMD,W ;Compare the address of the last command with
xorwf MSE_3_H,W ; the stored address for the mouse; if they
andlw B'00001111' ; match, this is a collision on the mouse's
btfsc STATUS,Z ; address
bsf COLLISN,COL_MSE ; "
bra Main
GotDataEnd
bcf RX_FLAGS,RX_ABRT
bra Main
bsf DV_FLAGS,DV_MSEC; "
goto Main
;;; Subprograms ;;;
@ -803,6 +1003,11 @@ ServiceRequest
andwf TRISA,F ; "
return
UpdateKeyboard2
btfsc WREG,7 ;If MSB is set, a key has been released, else
bra Update2KeyUp ; one has been pressed
;fall through
Update2KeyDown
addlw -51 ;0x33 Delete/Backspace
btfsc STATUS,Z ; if keycode matches,
@ -840,7 +1045,7 @@ Update2KeyDown
addlw -2 ;0x7F Reset
btfsc STATUS,Z ; if keycode matches,
bcf KBD_2_H,K2H_RST ; mark key as down
return
bra Update2Mods
Update2KeyUp
andlw B'01111111' ;Clear MSB so we can check released key's code
@ -880,7 +1085,7 @@ Update2KeyUp
addlw -2 ;0x7F Reset
btfsc STATUS,Z ; if keycode matches,
bsf KBD_2_H,K2H_RST ; mark key as up
return
;fall through
Update2Mods
bsf KBD_2_H,K2H_CTL ;If either control key is down, reflect that in