Blame | Last modification | View Log | Download | RSS feed
MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 1LOC OBJECT CODE LINE SOURCE TEXTVALUE0000100002 list p=18f442000003 #include p18f4420.inc00001 LIST0000200003 ;==========================================================================00004 ; Build date : May 15 201600005 ; MPASM PIC18F4420 processor include00006 ;00007 ; (c) Copyright 1999-2016 Microchip Technology, All rights reserved00008 ;==========================================================================0000901447 LIST00004 #include defs.inc00327 LIST00005 #include equ.inc00145 LIST000060000700008 Startup code 0x0000000000 EF?? F??? 00009 goto Start000004 0000 00010 nop0001100012 HighISR code 0x0008000008 B2F2 00013 btfsc INTCON, INT0IF00000A D??? 00014 rcall KbdInt ; INT0 -> dato da tastiera00000C B2F0 00015 btfsc INTCON3, INT2IF00000E 00FF 00016 reset ; INT2 -> reset000010 92F2 00017 bcf INTCON, INT0IF ; resetta flag INT0000012 0011 00018 retfie FAST0001900020 LowISR code 0x0018000018 A0F0 00021 btfss INTCON3, INT1IF00001A 0010 00022 retfie ; INT non generato da INT1 (linea DRQ)00001C 90F0 00023 bcf INTCON3, INT1IF00001E 8E?? 00024 bsf KFRFlag, KFRFULL ; segnala registri da leggere000020 0010 00025 retfie000260002700028 code00029000000 00030 KbdInt:000000 D??? 00031 rcall RxKeyb ; riceve byte da tastiera00032 SCLOCKL ; disabilita TX da tastiera000002 988A M bcf LATB, KCLKO000004 B0?? 00033 btfsc KStatus, KRESET ; test reset000006 00FF 00034 reset ; ricevuto reset in -> reset000008 B2?? 00035 btfsc KStatus, KTIMEO ; test timeout00000A 0012 00036 return ; scarta dato ricevuto se timeout00000C AE?? 00037 btfss KStatus, KBRX ; test ricezione full00000E 0012 00038 return ; ricezione incompleta -> scarta dato00039 ldw KStatus ; test errore ricezione000010 50?? M movf KStatus, wMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 2LOC OBJECT CODE LINE SOURCE TEXTVALUE000012 0B0C 00040 andlw KBRXERR000014 E0?? 00041 bz KbdInt10 ; dato ricevuto OK000016 0EFE 00042 movlw KBD_RESEND ; richiesta di re-invio alla tastiera000018 D??? 00043 rcall TxKeyb00001A B0?? 00044 btfsc KStatus, KRESET ; test reset00001C 00FF 00045 reset ; ricevuto reset in -> reset00001E 0012 00046 return ; ignora altri errori00047000020 00048 KbdInt10:000020 0E00 00049 movlw 0x00 ; scarta codice 00 (overrun)000022 5C?? 00050 subwf KBuf, W000024 E0?? 00051 bz KbdInt99000026 0EFF 00052 movlw 0xFF ; scarta codice FF (overrun/error)000028 5C?? 00053 subwf KBuf, W00002A E0?? 00054 bz KbdInt9900002C 0EFE 00055 movlw KBD_RESEND ; scarta richiesta resend00002E 5C?? 00056 subwf KBuf, W000030 E0?? 00057 bz KbdInt99000032 0EFA 00058 movlw KBD_ACK ; scarta ACK000034 5C?? 00059 subwf KBuf, W000036 E0?? 00060 bz KbdInt99000038 0EAA 00061 movlw KBD_BAT ; scarta BAT00003A 5C?? 00062 subwf KBuf, W00003C E1?? 00063 bnz KbdInt1100003E 8C?? 00064 bsf KbdFlag, KBBAT000040 88?? 00065 bsf KbdFlag, KBBAT2000042 9E?? 00066 bcf KbdFlag2, KBNOBAT000044 D??? 00067 bra KbdInt9900068000046 00069 KbdInt11:000046 0EFC 00070 movlw KBD_NOBAT ; scarta BAT failure000048 5C?? 00071 subwf KBuf, W00004A E1?? 00072 bnz KbdInt1200004C 9C?? 00073 bcf KbdFlag, KBBAT00004E 98?? 00074 bcf KbdFlag, KBBAT2000050 8E?? 00075 bsf KbdFlag2, KBNOBAT00076000052 00077 KbdInt99:00078 SCLOCKH ; abilita TX da tastiera000052 888A M bsf LATB, KCLKO000054 0012 00079 return00080000056 00081 KbdInt12: ; inserisce byte in coda000056 0EF5 00082 movlw (RXBUFLEN - 9) ; lascia un limite di guardia di 8 bytes000058 5C?? 00083 subwf RxCnt,W ; RxCnt - (RXBUFLEN - 9))00005A B0D8 00084 btfsc STATUS, C ; C = 0 -> OK - spazio disponibile in coda00005C 8E?? 00085 bsf RxFlag, RXOVR ; segnala condizione overrun00086 ldw KBuf ; memorizza byte in coda00005E 50?? M movf KBuf, w000060 6EDE 00087 movwf POSTINC2000062 2A?? 00088 incf RxCnt, f ; incrementa contatore bytes in coda000064 0E3E 00089 movlw LOW(RxBufEnd) ; coda circolare - test puntatore000066 5CD9 00090 subwf FSR2L, W ; FSR2L - LOW(RxBufEnd)MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 3LOC OBJECT CODE LINE SOURCE TEXTVALUE000068 0E01 00091 movlw HIGH(RxBufEnd) ; limite superiore H00006A 58DA 00092 subwfb FSR2H, W ; FSR2H - HIGH(RxBufEnd)00006C B0D8 00093 btfsc STATUS, C ; C = 0 se FSR2 < RxBufEnd00006E EE20 F040 00094 lfsr FSR2, RxBuffer ; reimposta puntatore a inizio buffer00095000072 00096 KbdInt20:000072 AE?? 00097 btfss RxFlag, RXOVR ; se in condizioni di overrun disabilita TX000074 D??? 00098 bra KbdInt99 ; riabilita trasmissione da tastiera000076 0012 00099 return ; esce con CLK OUT LOW00100000078 00101 RxKeyb:000078 6A?? 00102 clrf KStatus ; azzera status00007A 0E08 00103 movlw D'8' ; contatore 8 bit00007C 6E?? 00104 movwf KCnt00007E 0E01 00105 movlw D'1' ; parity bit (odd)000080 6E?? 00106 movwf KPar000082 0E01 00107 movlw TMR0P4 ; TMR0 stop, prescaler = 4000084 6ED5 00108 movwf T0CON ; modo 16 bit000086 94F2 00109 bcf INTCON, TMR0IF ; azzera flag timeout000088 0E9E 00110 movlw HIGH(T20MS) ; imposta timeout00008A 6ED7 00111 movwf TMR0H ; caricare prima TMR0H00008C 6E?? 00112 movwf T0CntH00008E 0E58 00113 movlw LOW(T20MS)000090 6ED6 00114 movwf TMR0L ; carica TMR0L/H000092 6E?? 00115 movwf T0CntL000094 8ED5 00116 bsf T0CON, TMR0ON ; start Timer 000117000096 00118 RxKeyb1: ; attesa CLK IN -> LOW000096 D??? 00119 rcall GetLine000098 E6?? 00120 bmi RxKeyb1 ; CLK IN = HIGH - loop0012100009A 00122 RxKeyb2: ; loop attesa CLK IN -> HIGH00009A D??? 00123 rcall GetLine00009C E7?? 00124 bpl RxKeyb2 ; CLK IN = LOW - loop0012500009E 00126 RxKeyb3: ; loop attesa CLK IN -> LOW00009E D??? 00127 rcall GetLine0000A0 E6?? 00128 bmi RxKeyb3 ; CLK IN = HIGH - loop0000A2 E3?? 00129 bnc RxKeyb4 ; no parity se DATA IN = LOW0000A4 2A?? 00130 incf KPar, f ; incrementa parity0000A6 80D8 00131 bsf STATUS, C ; forza CARRY = 1 (DATA IN = HIGH)001320000A8 00133 RxKeyb4: ; aggiorna KBuf0000A8 32?? 00134 rrcf KBuf, f ; KBuf<7> = CARRY0000AA 2E?? 00135 decfsz KCnt, f ; decrementa contatore 8 bit0000AC D??? 00136 bra RxKeyb2 ; loop 8 bit001370000AE 00138 RxKeyb5: ; attesa CLK IN -> HIGH0000AE D??? 00139 rcall GetLine0000B0 E7?? 00140 bpl RxKeyb5 ; CLK IN = LOW - loop001410000B2 00142 RxKeyb6: ; attesa CLK IN -> LOW0000B2 D??? 00143 rcall GetLineMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 4LOC OBJECT CODE LINE SOURCE TEXTVALUE0000B4 E6?? 00144 bmi RxKeyb6 ; CLK IN = HIGH - loop0000B6 34?? 00145 rlcf KCnt, W ; C = parity bit -> W<0> = parity bit0000B8 1A?? 00146 xorwf KPar, f ; confronto parity ricevuta con parity calcolata0000BA 30?? 00147 rrcf KPar, W ; C = confronto parity0000BC E3?? 00148 bnc RxKeyb7 ; C = 0 -> parity OK0000BE 84?? 00149 bsf KStatus, KPARY ; imposta errore parity001500000C0 00151 RxKeyb7: ; attesa CLK IN -> HIGH0000C0 D??? 00152 rcall GetLine0000C2 E7?? 00153 bpl RxKeyb7 ; CLK IN = LOW - loop001540000C4 00155 RxKeyb8: ; attesa CLK IN -> LOW0000C4 D??? 00156 rcall GetLine0000C6 E6?? 00157 bmi RxKeyb8 ; CLK IN = HIGH - loop0000C8 E2?? 00158 bc RxKeyb9 ; C = 1 -> stop bit OK0000CA 86?? 00159 bsf KStatus, KSTOP ; segnala errore bit stop errato001600000CC 00161 RxKeyb9: ; attesa CLK IN -> HIGH - fine trasmissione0000CC D??? 00162 rcall GetLine0000CE E7?? 00163 bpl RxKeyb9 ; CLK IN = LOW - loop0000D0 8E?? 00164 bsf KStatus, KBRX ; segnala ricezione completata0000D2 9ED5 00165 bcf T0CON, TMR0ON ; stop Timer 00000D4 94F2 00166 bcf INTCON, TMR0IF ; azzera flag timeout0000D6 0012 00167 return001680000D8 00169 GetLine:0000D8 B4F2 00170 btfsc INTCON, TMR0IF ; test timeout0000DA D??? 00171 bra GetLine2 ; timeout00172 ldw PORTB0000DC 5081 M movf PORTB, w0000DE 0B0D 00173 andlw RBMASK ; maschera bit utili0000E0 6E?? 00174 movwf TmpB ; salva temporaneo00175 ldw PORTB0000E2 5081 M movf PORTB, w0000E4 0B0D 00176 andlw RBMASK ; maschera bit utili0000E6 62?? 00177 cpfseq TmpB ; confronta con lettura precedente0000E8 D??? 00178 bra GetLine ; attesa linee stabili o timeout0000EA A4?? 00179 btfss TmpB, RESIN ; test asserzione reset da host0000EC D??? 00180 bra GetLine1 ; reset da host0000EE 98D8 00181 bcf STATUS, N ; N = 0 se CLK IN = LOW0000F0 B6?? 00182 btfsc TmpB, KCLKIN0000F2 88D8 00183 bsf STATUS, N ; N = 1 se CLK IN = HIGH0000F4 90D8 00184 bcf STATUS, C ; C = 0 se DATA IN = LOW0000F6 B0?? 00185 btfsc TmpB, KDATAIN0000F8 80D8 00186 bsf STATUS, C ; C = 1 se DATA IN = HIGH0000FA 0012 00187 return ; C = DATA IN, N = CLK IN001880000FC 00189 GetLine1:0000FC 80?? 00190 bsf KStatus, KRESET ; segnala reset0000FE 0006 00191 pop ; scarta indirizzo di ritorno000100 0012 00192 return ; uscita00193000102 00194 GetLine2:MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 5LOC OBJECT CODE LINE SOURCE TEXTVALUE000102 82?? 00195 bsf KStatus, KTIMEO ; segnala timeout000104 9ED5 00196 bcf T0CON, TMR0ON ; stop Timer 0000106 94F2 00197 bcf INTCON, TMR0IF ; azzera flag timeout000108 0006 00198 pop ; scarta indirizzo di ritorno00010A 0012 00199 return ; uscita002000020100010C 00202 TxKeyb:00010C 6E?? 00203 movwf KBuf ; salva dato da trasmettere00010E 6A?? 00204 clrf KStatus ; azzera status000110 0E08 00205 movlw TMR0P0 ; TMR0 stop, no prescaler, modo 16 bit000112 6ED5 00206 movwf T0CON000114 94F2 00207 bcf INTCON, TMR0IF ; azzera flag timeout000116 0EFE 00208 movlw HIGH(T100US) ; imposta timeout 100us000118 6ED7 00209 movwf TMR0H ; caricare prima TMR0H00011A 0E0C 00210 movlw LOW(T100US)00011C 6ED6 00211 movwf TMR0L ; carica TMR0L/H00011E 0E08 00212 movlw D'8' ; contatore 8 bit000120 6E?? 00213 movwf KCnt000122 0E01 00214 movlw D'1' ; parity bit (odd)000124 6E?? 00215 movwf KPar00216 SCLOCKL ; CLK OUT -> LOW - request to send000126 988A M bcf LATB, KCLKO000128 8ED5 00217 bsf T0CON, TMR0ON ; start Timer 00021800012A 00219 TxKeyb1: ; ritardo 100us00012A A4F2 00220 btfss INTCON, TMR0IF00012C D??? 00221 bra TxKeyb1 ; loop ritardo00222 SDATAL ; DATA OUT -> LOW (start bit)00012E 9A8A M bcf LATB, KDATAO000130 9ED5 00223 bcf T0CON, TMR0ON ; stop Timer 0000132 94F2 00224 bcf INTCON, TMR0IF ; azzera flag timeout000134 0E01 00225 movlw TMR0P4 ; TMR0 stop, prescaler = 4000136 6ED5 00226 movwf T0CON ; modo 16 bit000138 0E9E 00227 movlw HIGH(T20MS) ; imposta timeout00013A 6ED7 00228 movwf TMR0H ; caricare prima TMR0H00013C 0E58 00229 movlw LOW(T20MS)00013E 6ED6 00230 movwf TMR0L ; carica TMR0L/H000140 8ED5 00231 bsf T0CON, TMR0ON ; start Timer 000232 SCLOCKH ; CLK OUT -> HIGH (rilascia clock)000142 888A M bsf LATB, KCLKO00233000144 00234 TxKeyb2: ; attesa CLK IN -> LOW000144 D??? 00235 rcall GetLine000146 E6?? 00236 bmi TxKeyb2 ; CLK IN = HIGH -> loop00237000148 00238 TxKeyb3: ; loop 8 bit000148 32?? 00239 rrcf KBuf ; C = KBuf<0> - bit da inviare00014A E3?? 00240 bnc TxKeyb4 ; C = 0 -> DATA OUT = LOW00014C 2A?? 00241 incf KPar, f ; C = 1 -> aggiorna parity00242 SDATAH ; DATA OUT = HIGH00014E 8A8A M bsf LATB, KDATAO000150 D??? 00243 bra TxKeyb5MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 6LOC OBJECT CODE LINE SOURCE TEXTVALUE00244000152 00245 TxKeyb4:00246 SDATAL ; DATA OUT = LOW000152 9A8A M bcf LATB, KDATAO00247000154 00248 TxKeyb5: ; invia bit000154 D??? 00249 rcall GetLine ; attende CLK IN -> HIGH000156 E7?? 00250 bpl TxKeyb5 ; CLK IN = LOW -> loop00251000158 00252 TxKeyb6:000158 D??? 00253 rcall GetLine ; attende CLK IN -> LOW00015A E6?? 00254 bmi TxKeyb6 ; CLK IN = HIGH -> loop00015C 2E?? 00255 decfsz KCnt, f ; decrementa contatore 8 bit00015E D??? 00256 bra TxKeyb3 ; loop 8 bit000160 32?? 00257 rrcf KPar, f ; C = KPar<0> -> parity bit000162 E3?? 00258 bnc TxKeyb7 ; C = 0 -> DATA OUT = LOW00259 SDATAH ; DATA OUT = HIGH000164 8A8A M bsf LATB, KDATAO000166 D??? 00260 bra TxKeyb800261000168 00262 TxKeyb7:00263 SDATAL ; DATA OUT = LOW000168 9A8A M bcf LATB, KDATAO0026400016A 00265 TxKeyb8:00016A D??? 00266 rcall GetLine ; attende CLK IN -> HIGH00016C E7?? 00267 bpl TxKeyb8 ; CLK IN = LOW -> loop0026800016E 00269 TxKeyb9:00016E D??? 00270 rcall GetLine ; attende CLK IN -> LOW000170 E6?? 00271 bmi TxKeyb9 ; CLK IN = HIGH -> loop00272 SDATAH ; DATA OUT -> HIGH - stop bit000172 8A8A M bsf LATB, KDATAO00273000174 00274 TxKeyb10:000174 D??? 00275 rcall GetLine ; attende CLK IN -> HIGH000176 E7?? 00276 bpl TxKeyb10 ; CLK IN = LOW -> loop00277000178 00278 TxKeyb11:000178 D??? 00279 rcall GetLine ; attende CLK IN -> LOW00017A E6?? 00280 bmi TxKeyb11 ; CLK IN = HIGH -> loop00017C E3?? 00281 bnc TxKeyb12 ; C = 0 -> DATA IN = LOW - ack bit ok00017E 88?? 00282 bsf KStatus, KBACK ; segnala errore ack bit00283000180 00284 TxKeyb12:000180 D??? 00285 rcall GetLine ; attende CLK IN -> HIGH000182 E7?? 00286 bpl TxKeyb12 ; CLK IN = LOW -> loop000184 8C?? 00287 bsf KStatus, KBTX ; segnala trasmissione completata000186 9ED5 00288 bcf T0CON, TMR0ON ; stop Timer 0000188 94F2 00289 bcf INTCON, TMR0IF ; azzera flag timeout00018A 0012 00290 return0029100018C 00292 GetKbd:MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 7LOC OBJECT CODE LINE SOURCE TEXTVALUE00018C EC?? F??? 00293 call RxKeyb ; ricezione entro timeout000190 B0?? 00294 btfsc KStatus, KRESET ; test reset000192 00FF 00295 reset ; ricevuto reset in -> reset000194 B2?? 00296 btfsc KStatus, KTIMEO ; test timeout000196 D??? 00297 bra GetKbd10 ; errore ricezione00298 ldw KStatus ; test errore ricezione000198 50?? M movf KStatus, w00019A 0B0C 00299 andlw KBRXERR00019C E1?? 00300 bnz GetKbd10 ; dato ricevuto errato00019E 90D8 00301 bcf STATUS, C ; C = = -> OK0001A0 0012 00302 return0001A2 00303 GetKbd10:0001A2 80D8 00304 bsf STATUS, C ; C = 1 -> errore0001A4 0012 00305 return003060001A6 00307 SendLed:0001A6 0EED 00308 movlw KBD_SETLED0001A8 D??? 00309 rcall SendKbd0001AA E2?? 00310 bc SendKbd1000311 ldw LedSt0001AC 50?? M movf LedSt, w003120001AE 00313 SendKbd:0001AE D??? 00314 rcall TxKeyb0001B0 B0?? 00315 btfsc KStatus, KRESET ; test reset0001B2 00FF 00316 reset ; ricevuto reset in -> reset0001B4 B2?? 00317 btfsc KStatus, KTIMEO ; test timeout0001B6 D??? 00318 bra SendKbd10 ; errore0001B8 AC?? 00319 btfss KStatus, KBTX ; test trasmissione OK0001BA D??? 00320 bra SendKbd10 ; trasmissione fallita - errore0001BC AC?? 00321 btfss KStatus, KBTX ; test trasmissione OK0001BE D??? 00322 bra SendKbd10 ; trasmissione fallita - errore0001C0 B8?? 00323 btfsc KStatus, KBACK ; test errore ACK0001C2 D??? 00324 bra SendKbd10 ; errore ACK0001C4 D??? 00325 rcall GetKbd ; ricezione da tastiera0001C6 E2?? 00326 bc SendKbd10 ; errore ricezione0001C8 0EFA 00327 movlw KBD_ACK ; test ACK tastiera0001CA 62?? 00328 cpfseq KBuf0001CC D??? 00329 bra SendKbd10 ; errore0001CE 90D8 00330 bcf STATUS, C ; C = = -> OK0001D0 0012 00331 return0001D2 00332 SendKbd10:0001D2 80D8 00333 bsf STATUS, C ; C = 1 -> errore0001D4 0012 00334 return003350001D6 00336 InitIO:0001D6 9CD0 00337 bcf RCON, 60001D8 82D0 00338 bsf RCON, 10001DA 6AF2 00339 clrf INTCON ; disabilita interrupt0001DC 6AF1 00340 clrf INTCON2 ; RB0, RB1, RB2 int su fronte negativo0001DE 6AF0 00341 clrf INTCON30001E0 6A9E 00342 clrf PIR10001E2 6AA1 00343 clrf PIR2MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 8LOC OBJECT CODE LINE SOURCE TEXTVALUE0001E4 6A9D 00344 clrf PIE10001E6 6AA0 00345 clrf PIE20001E8 6AC2 00346 clrf ADCON0 ; disabilita modulo A/D0001EA 6892 00347 setf DDRA ; tutte le porte in input0001EC 6893 00348 setf DDRB0001EE 6894 00349 setf DDRC0001F0 6895 00350 setf DDRD0001F2 6896 00351 setf DDRE0001F4 0E0F 00352 movlw B'00001111' ; tutte le porte I/O sono digitali0001F6 6EC1 00353 movwf ADCON10001F8 6889 00354 setf LATA ; tutte le porte I/O a livello alto0001FA 688A 00355 setf LATB0001FC 688B 00356 setf LATC0001FE 688C 00357 setf LATD000200 6A8D 00358 clrf LATE ; porta RE a livello basso in uscita000202 0EC3 00359 movlw B'11000011' ; RA<0:1> input, le altre output000204 6E92 00360 movwf DDRA000206 0ECF 00361 movlw B'11001111' ; RB<4:5> in output, le altre in input000208 6E93 00362 movwf DDRB00020A 6A94 00363 clrf DDRC ; porta C in uscita00020C 9C8B 00364 bcf LATC, KBVOFF ; resetta alimentazione tastiera00020E 6A96 00365 clrf DDRE ; porta E in uscita000210 6AF8 00366 clrf TBLPTRU ; FLASH solo < 64K000212 D??? 00367 rcall InitData ; inizializza variabili00368000214 00369 Init1: ; attesa linea reset in alta000214 A481 00370 btfss PORTB, RESIN000216 D??? 00371 bra Init100372000218 8ED0 00373 bsf RCON, IPEN ; abilita int. priorizzati00021A 9EF1 00374 bcf INTCON2, RBPU ; disabilita pull-up su porta B00021C 8EF0 00375 bsf INTCON3, INT2IP ; alta priority per INT2 su RB2 (reset in)00021E 9CF0 00376 bcf INTCON3, INT1IP ; bassa priority per INT1 su RB1 (linea DRQ)000220 88F2 00377 bsf INTCON, INT0IE ; abilita INT0 su RB0 high priority (DATA IN)000222 86F0 00378 bsf INTCON3, INT1IE ; abilita INT1 su RB1 (linea DRQ)000224 88F0 00379 bsf INTCON3, INT2IE ; abilita INT2 su RB2 (linea reset in)000226 8C8B 00380 bsf LATC, KBVOFF ; termina impulso negativo VCC tastiera000228 0E0C 00381 movlw LOW(T100US) ; imposta ritardo 100us00022A 6E?? 00382 movwf T0CntL00022C 0EFE 00383 movlw HIGH(T100US)00022E 6E?? 00384 movwf T0CntH000230 D??? 00385 rcall Delay_us ; ritardo 100us000232 9E8B 00386 bcf LATC, KBVON ; attiva alimentazione tastiera000234 0E9C 00387 movlw LOW(T20US) ; imposta ritardo 20us000236 6E?? 00388 movwf T0CntL000238 0EFF 00389 movlw HIGH(T20US)00023A 6E?? 00390 movwf T0CntH00023C D??? 00391 rcall Delay_us ; ritardo 20us00023E 8E8B 00392 bsf LATC, KBVON ; termina impulso negativo000240 0EB0 00393 movlw LOW(T40MS) ; imposta ritardo 40ms per stabilizzare VCC000242 6E?? 00394 movwf T0CntL000244 0E3C 00395 movlw HIGH(T40MS)000246 6E?? 00396 movwf T0CntHMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 9LOC OBJECT CODE LINE SOURCE TEXTVALUE000248 D??? 00397 rcall Delay_ms ; ritardo 40ms00024A 92F2 00398 bcf INTCON, INT0IF ; resetta flag INT0 (eventuali impulsi spuri)00024C 0E07 00399 movlw TMR0P256 ; TMR0 stop, prescaler = 256, modo 16 bit00024E 6ED5 00400 movwf T0CON000250 94F2 00401 bcf INTCON, TMR0IF ; azzera flag timeout000252 0E8D 00402 movlw HIGH(T1500MS) ; imposta timeout 1500ms000254 6ED7 00403 movwf TMR0H ; caricare prima TMR0H000256 0E90 00404 movlw LOW(T1500MS)000258 6ED6 00405 movwf TMR0L ; carica TMR0L/H00025A 8ED5 00406 bsf T0CON, TMR0ON ; start Timer 00040700025C 00408 Init2: ; loop attesa tastiera entro timeout 1500ms00025C B4F2 00409 btfsc INTCON, TMR0IF00025E D??? 00410 bra Init4 ; timeout000260 B2F0 00411 btfsc INTCON3, INT2IF000262 00FF 00412 reset ; INT2 -> reset000264 A2F2 00413 btfss INTCON, INT0IF000266 D??? 00414 bra Init2 ; loop000268 9ED5 00415 bcf T0CON, TMR0ON ; stop Timer 000026A 94F2 00416 bcf INTCON, TMR0IF ; azzera flag timeout00026C EC?? F??? 00417 call RxKeyb ; INT0 -> riceve dato da tastiera000270 B0?? 00418 btfsc KStatus, KRESET ; test reset000272 00FF 00419 reset ; ricevuto reset in -> reset000274 B2?? 00420 btfsc KStatus, KTIMEO ; test timeout000276 D??? 00421 bra Init4 ; scarta dato ricevuto se timeout000278 AE?? 00422 btfss KStatus, KBRX ; test ricezione full00027A D??? 00423 bra Init4 ; ricezione incompleta -> scarta dato00424 ldw KStatus ; test errore ricezione00027C 50?? M movf KStatus, w00027E 0B0C 00425 andlw KBRXERR000280 E1?? 00426 bnz Init4 ; dato ricevuto errato000282 0EAA 00427 movlw KBD_BAT ; test BAT OK000284 62?? 00428 cpfseq KBuf000286 D??? 00429 bra KNoBAT ; no BAT OK !000288 8C?? 00430 bsf KbdFlag, KBBAT ; imposta flag BAT OK00028A 88?? 00431 bsf KbdFlag, KBBAT2 ; imposta flag BAT OK00028C D??? 00432 bra Init30043300028E 00434 KNoBAT:00028E 0EFC 00435 movlw KBD_NOBAT ; test BAT failure000290 62?? 00436 cpfseq KBuf000292 D??? 00437 bra Init3000294 8E?? 00438 bsf KbdFlag2, KBNOBAT ; imposta flag BAT FAILURE00439000296 00440 Init3:000296 8E?? 00441 bsf KbdFlag, KBFND ; imposta flag tastiera presente00442000298 00443 Init4: ; KBFND indica tastiera prsente - se il flag e' resettato00444 ; occorre fare ulteriore verifica della tastiera000298 9ED5 00445 bcf T0CON, TMR0ON ; stop Timer 000029A 94F2 00446 bcf INTCON, TMR0IF ; azzera flag timeout00029C 92F2 00447 bcf INTCON, INT0IF ; resetta flag INT000029E AE?? 00448 btfss KbdFlag, KBFND ; se tastiera presente salta ulteriore verificaMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 10LOC OBJECT CODE LINE SOURCE TEXTVALUE0002A0 D??? 00449 rcall KbVerf ; verifica tastiera0002A2 92F2 00450 bcf INTCON, INT0IF ; resetta flag INT00002A4 AE?? 00451 btfss KbdFlag, KBFND ; se tastiera presente la inizializza0002A6 D??? 00452 bra Init10 ; altrimenti esce0002A8 AC?? 00453 btfss KbdFlag, KBBAT ; tastiera ok ?0002AA D??? 00454 bra Init10 ; no -> esce0045500456 ; a questo punto tastiera presente e funzionante00457 ; si legge ID tastiera0002AC 92F2 00458 bcf INTCON, INT0IF ; resetta flag INT00002AE 0EF2 00459 movlw KBD_GETID0002B0 EC?? F??? 00460 call SendKbd0002B4 E2?? 00461 bc Init6 ; errore0002B6 EC?? F??? 00462 call GetKbd ; riceve ID LOW0002BA E2?? 00463 bc Init6 ; errore00464 ldw KBuf0002BC 50?? M movf KBuf, w0002BE 6E?? 00465 movwf KbdIDL ; salva ID LOW0002C0 EC?? F??? 00466 call GetKbd ; riceve ID LOW0002C4 E2?? 00467 bc Init6 ; errore00468 ldw KBuf0002C6 50?? M movf KBuf, w0002C8 6E?? 00469 movwf KbdIDH ; salva ID HIGH0002CA 0EAB 00470 movlw KBD_IDL ; test ID0002CC 62?? 00471 cpfseq KbdIDL0002CE D??? 00472 bra Init6 ; ID LOW errato0002D0 0E83 00473 movlw KBD_IDH ; test ID0002D2 62?? 00474 cpfseq KbdIDH0002D4 D??? 00475 bra Init6 ; ID HIGH errato0002D6 8A?? 00476 bsf KbdFlag, KBVID ; imposta flag ID valido004770002D8 00478 Init6:0002D8 92F2 00479 bcf INTCON, INT0IF ; resetta flag INT00002DA 0EED 00480 movlw KBD_SETLED ; spegne LED0002DC EC?? F??? 00481 call SendKbd0002E0 E2?? 00482 bc Init610002E2 0E00 00483 movlw 0x000002E4 EC?? F??? 00484 call SendKbd0002E8 E2?? 00485 bc Init610002EA 80?? 00486 bsf KbdFlag, KBLEDOK004870002EC 00488 Init61:0002EC 92F2 00489 bcf INTCON, INT0IF ; resetta flag INT00002EE 0EF0 00490 movlw KBD_SETSC ; imposta scancode 020002F0 EC?? F??? 00491 call SendKbd0002F4 E2?? 00492 bc Init620002F6 0E02 00493 movlw 0x020002F8 EC?? F??? 00494 call SendKbd0002FC E2?? 00495 bc Init620002FE 82?? 00496 bsf KbdFlag, KBSCOK00497000300 00498 Init62:000300 92F2 00499 bcf INTCON, INT0IF ; resetta flag INT0MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 11LOC OBJECT CODE LINE SOURCE TEXTVALUE000302 0EF3 00500 movlw KBD_TYPERATE ; imposta typerate000304 EC?? F??? 00501 call SendKbd000308 E2?? 00502 bc Init6300030A 0E0B 00503 movlw KBD_DEFRATE00030C EC?? F??? 00504 call SendKbd000310 E2?? 00505 bc Init63000312 86?? 00506 bsf KbdFlag, KBRATE00507000314 00508 Init63:000314 92F2 00509 bcf INTCON, INT0IF ; resetta flag INT0000316 0EF4 00510 movlw KBD_ENABLE ; abilita scanning tastiera000318 EC?? F??? 00511 call SendKbd00031C E2?? 00512 bc Init1000031E 84?? 00513 bsf KbdFlag, KBENABLE00514000320 00515 Init10:00516 SCLOCKL ; disabilita TX da tastiera000320 988A M bcf LATB, KCLKO000322 0E03 00517 movlw 0x03 ; registro KFR 3000324 6E8D 00518 movwf LATE00519 ldw KbdFlag000326 50?? M movf KbdFlag, w000328 EC?? F??? 00520 call KFRWrite00032C 92F2 00521 bcf INTCON, INT0IF ; resetta flag INT000032E 90F0 00522 bcf INTCON3, INT1IF ; resetta flag INT1000330 92F0 00523 bcf INTCON3, INT2IF ; resetta flag INT2000332 8EF2 00524 bsf INTCON, GIEH ; abilita INT high priority000334 8CF2 00525 bsf INTCON, GIEL ; abilita INT low priority000336 0012 00526 return00527000338 00528 InitData:000338 EE00 F000 00529 lfsr FSR0, 0x0 ; azzera RAM banco 0, 1 & 200033C 0E03 00530 movlw 0x03 ; banco 3 non esiste !0053100033E 00532 InitData1:00033E 6AEE 00533 clrf POSTINC0000340 62EA 00534 cpfseq FSR0H000342 D??? 00535 bra InitData100536000344 0E04 00537 movlw 0x04 ; contatore registri000346 6E?? 00538 movwf KFRRdCnt000348 6A8D 00539 clrf LATE ; azzera indirizzo KFR00034A 6A95 00540 clrf DDRD ; porta D in uscita00034C 6A8C 00541 clrf LATD ; porta D tutti i bit bassi0054200034E 00543 InitData2:00034E 0000 00544 nop ; scrittura su registro000350 0000 00545 nop000352 928B 00546 bcf LATC, KFRWE ; impulso write000354 0000 00547 nop000356 828B 00548 bsf LATC, KFRWE000358 0000 00549 nop00035A 2A8D 00550 incf LATE,f ; incrementa indirizzoMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 12LOC OBJECT CODE LINE SOURCE TEXTVALUE00035C 2E?? 00551 decfsz KFRRdCnt, f ; loop00035E D??? 00552 bra InitData2000360 EE20 F040 00553 lfsr FSR2, RxBuffer ; imposta puntatore iniziale testa buffer RX000364 EE10 F040 00554 lfsr FSR1, RxBuffer ; imposta puntatore iniziale coda buffer RX000368 0E3E 00555 movlw LOW(TxBuffer) ; imposta puntatore Head, Tail TX a inizio buffer00036A 6E?? 00556 movwf TxHeadL00036C 6E?? 00557 movwf TxTailL00036E 0E01 00558 movlw HIGH(TxBuffer)000370 6E?? 00559 movwf TxHeadH000372 6E?? 00560 movwf TxTailH000374 0012 00561 return00562000376 00563 Delay_ms:000376 0E01 00564 movlw TMR0P4 ; TMR0 stop, prescaler = 4, modo 16 bit000378 D??? 00565 bra Delay_xx0056600037A 00567 Delay_us:00037A 0E08 00568 movlw TMR0P0 ; TMR0 stop, no prescaler, modo 16 bit00037C 00569 Delay_xx:00037C 6ED5 00570 movwf T0CON00037E 94F2 00571 bcf INTCON, TMR0IF ; azzera flag timeout00572 ldw T0CntH ; imposta timeout high000380 50?? M movf T0CntH, w000382 6ED7 00573 movwf TMR0H ; caricare prima TMR0H00574 ldw T0CntL000384 50?? M movf T0CntL, w000386 6ED6 00575 movwf TMR0L ; carica TMR0L/H000388 8ED5 00576 bsf T0CON, TMR0ON ; start Timer 00057700038A 00578 Delay_xx1: ; loop00038A A4F2 00579 btfss INTCON, TMR0IF ; attende flag overflow00038C D??? 00580 bra Delay_xx1 ; loop ritardo00038E 9ED5 00581 bcf T0CON, TMR0ON ; stop Timer 0000390 94F2 00582 bcf INTCON, TMR0IF ; azzera flag timeout000392 0012 00583 return00584000394 00585 KbVerf:000394 0EEE 00586 movlw KBD_ECHO ; test tastiera tramite ECHO000396 EC?? F??? 00587 call TxKeyb00039A B0?? 00588 btfsc KStatus, KRESET ; test reset00039C 00FF 00589 reset ; ricevuto reset in -> reset00039E B2?? 00590 btfsc KStatus, KTIMEO ; test timeout0003A0 0012 00591 return ; tastiera non presente0003A2 AC?? 00592 btfss KStatus, KBTX ; test trasmissione OK0003A4 0012 00593 return ; trasmissione fallita - si assume NO tastiera0003A6 EC?? F??? 00594 call RxKeyb ; ricezione ECHO entro timeout0003AA B0?? 00595 btfsc KStatus, KRESET ; test reset0003AC 00FF 00596 reset ; ricevuto reset in -> reset0003AE B2?? 00597 btfsc KStatus, KTIMEO ; test timeout0003B0 0012 00598 return ; tastiera non presente0003B2 8E?? 00599 bsf KbdFlag, KBFND ; si assume tastiera presente0003B4 AE?? 00600 btfss KStatus, KBRX ; test ricezione full0003B6 0012 00601 return ; ricezione incompleta -> failure tastieraMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 13LOC OBJECT CODE LINE SOURCE TEXTVALUE00602 ldw KStatus ; test errore ricezione0003B8 50?? M movf KStatus, w0003BA 0B0C 00603 andlw KBRXERR0003BC E1?? 00604 bnz KbVerf2 ; dato ricevuto errato -> failure tastiera0003BE 0EEE 00605 movlw KBD_ECHO ; test ECHO0003C0 62?? 00606 cpfseq KBuf0003C2 0012 00607 return ; failure tastiera0003C4 8C?? 00608 bsf KbdFlag, KBBAT ; imposta flag BAT OK0003C6 00609 KbVerf2:0003C6 0012 00610 return006110003C8 00612 KbdProc:0003C8 0E00 00613 movlw 0x00 ; test presenza bytes nella coda di ricezione0003CA 5C?? 00614 subwf RxCnt, W0003CC E1?? 00615 bnz KbdProc0 ; coda non vuota0003CE 9E?? 00616 bcf RxFlag, RXOVR ; rimuove blocco TX (coda vuota)00617 SCLOCKH ; abilita TX da tastiera0003D0 888A M bsf LATB, KCLKO0003D2 0012 00618 return0003D4 00619 KbdProc0:0003D4 BE?? 00620 btfsc TxFlag, TXOVR ; buffer TX pronto ?0003D6 0012 00621 return ; NO - attende posto00622 ldw POSTINC1 ; legge byte da coda -> FSR1 ptr coda di ricezione0003D8 50E6 M movf POSTINC1, w0003DA 6E?? 00623 movwf RxData0003DC 9EF2 00624 bcf INTCON, GIEH ; disabilita INT0003DE 9CF2 00625 bcf INTCON, GIEL0003E0 06?? 00626 decf RxCnt, F ; aggiorna contatore bytes in coda0003E2 9E?? 00627 bcf RxFlag, RXOVR ; rimuove blocco TX (coda vuota)00628 SCLOCKH ; abilita TX da tastiera0003E4 888A M bsf LATB, KCLKO0003E6 8EF2 00629 bsf INTCON, GIEH ; abilita INT0003E8 8CF2 00630 bsf INTCON, GIEL00631 ; si assume che TBLPTR non cambia entro il ciclo0003EA A8?? 00632 btfss RxFlag, RXEXT1 ; sequenza E1 pending ?0003EC D??? 00633 bra KbdProc1 ; NO0003EE 0009 00634 tblrd *+ ; legge byte da memoria ed incrementa ptr00635 ldw TABLAT0003F0 50F5 M movf TABLAT, w0003F2 5C?? 00636 subwf RxData, W ; confronta con dato ricevuto0003F4 A4D8 00637 btfss STATUS, Z ; Z = 1 se coincide0003F6 86?? 00638 bsf RxFlag, RXE1ERR ; segnala errore in sequenza E10003F8 2E?? 00639 decfsz E1Cnt, F ; decrementa contatore0003FA D??? 00640 bra UpdBufPtr0003FC 00641 E1Test:0003FC A6?? 00642 btfss RxFlag, RXE1ERR ; errore nella sequenza E1 ?0003FE D??? 00643 bra PauseKey ; NO - tasto PAUSE premuto000400 00644 ClrRX: ; termina scansione corrente - inizio nuova000400 0E80 00645 movlw RXMASK ; azzera tutti i flag ricezione000402 16?? 00646 andwf RxFlag, F000404 00647 UpdBufPtr:000404 0E3E 00648 movlw LOW(RxBufEnd) ; coda circolare - test puntatoreMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 14LOC OBJECT CODE LINE SOURCE TEXTVALUE000406 5CE1 00649 subwf FSR1L, W ; FSR1L - LOW(RxBufEnd)000408 0E01 00650 movlw HIGH(RxBufEnd) ; FSR1H - HIGH(RxBufEnd)00040A 58E2 00651 subwfb FSR1H, W ; C = 0 se FSR1 < RxBufEnd00040C B0D8 00652 btfsc STATUS, C ; OK00040E EE10 F040 00653 lfsr FSR1, RxBuffer ; reimposta puntatore a inizio buffer000412 0012 00654 return000414 00655 PauseKey:000414 0E09 00656 movlw PAUSECODE ; imposta codice tasto PAUSE000416 6E?? 00657 movwf RxCode000418 D??? 00658 rcall GetKeyTbl00041A D??? 00659 bra KbdProc14 ; gestione tasti toggle00041C 00660 KbdProc1:00041C 0EF0 00661 movlw KBD_BRK ; test break00041E 5C?? 00662 subwf RxData, W000420 E1?? 00663 bnz KbdProc2000422 8C?? 00664 bsf RxFlag, RXBRK ; F0 break pending000424 D??? 00665 bra UpdBufPtr000426 00666 KbdProc2:000426 0EE0 00667 movlw KBD_EXT ; test codice esteso000428 5C?? 00668 subwf RxData, W00042A E1?? 00669 bnz KbdProc300042C 0E80 00670 movlw RXMASK ; azzera tutti i flag ricezione00042E 16?? 00671 andwf RxFlag, F000430 8A?? 00672 bsf RxFlag, RXEXT ; imposta E0 pending000432 D??? 00673 bra UpdBufPtr000434 00674 KbdProc3:000434 0EE1 00675 movlw KBD_EXT1 ; test codice esteso000436 5C?? 00676 subwf RxData, W000438 E1?? 00677 bnz KbdProc400043A 0E80 00678 movlw RXMASK ; azzera tutti i flag ricezione00043C 16?? 00679 andwf RxFlag, F00043E 88?? 00680 bsf RxFlag, RXEXT1 ; imposta E1 pending000440 0E?? 00681 movlw LOW EXT1TBL ; imposta ptr tabella sequenza E1000442 6EF6 00682 movwf TBLPTRL000444 0E?? 00683 movlw HIGH EXT1TBL000446 6EF7 00684 movwf TBLPTRH000448 0E07 00685 movlw E1SEQCNT ; imposta numero bytes sequenza E100044A 6E?? 00686 movwf E1Cnt00044C D??? 00687 bra UpdBufPtr00044E 00688 KbdProc4:00044E AA?? 00689 btfss RxFlag, RXEXT ; codice esteso E0 pending ?000450 D??? 00690 bra KbdProc6 ; NO - codice normale o break000452 0E?? 00691 movlw LOW EXTTBL ; imposta ptr tabella sequenza E0000454 6EF6 00692 movwf TBLPTRL000456 0E?? 00693 movlw HIGH EXTTBL000458 6EF7 00694 movwf TBLPTRH00045A 68?? 00695 setf E1Cnt ; indice tabella E0 (inizializzato a 0xFF)00045C 00696 KbdProc5:00045C 2A?? 00697 incf E1Cnt, F ; update indice00045E 0009 00698 tblrd *+ ; legge byte da memoria ed incrementa ptr000460 0EFF 00699 movlw 0xFF ; test fine tabella000462 5CF5 00700 subwf TABLAT, W000464 E0?? 00701 bz ClrRX ; termina sequenzaMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 15LOC OBJECT CODE LINE SOURCE TEXTVALUE00702 ldw TABLAT000466 50F5 M movf TABLAT, w000468 5C?? 00703 subwf RxData, W ; confronta con dato ricevuto00046A E1?? 00704 bnz KbdProc5 ; loop next00705 ; trovato codice esteso00046C 0E?? 00706 movlw LOW EXTRLTBL ; imposta ptr tabella rilocazione E000046E 24?? 00707 addwf E1Cnt, W ; aggiunge indice000470 6EF6 00708 movwf TBLPTRL000472 0E?? 00709 movlw HIGH EXTRLTBL000474 6EF7 00710 movwf TBLPTRH000476 6AE8 00711 clrf WREG000478 22F7 00712 addwfc TBLPTRH, F00047A 0009 00713 tblrd *+ ; codice rilocato00714 ldw TABLAT00047C 50F5 M movf TABLAT, w00047E D??? 00715 bra KbdProc10000480 00716 KbdProc6: ; codice normale000480 0E?? 00717 movlw LOW DEFTBL ; imposta ptr tabella sequenza normale000482 6EF6 00718 movwf TBLPTRL000484 0E?? 00719 movlw HIGH DEFTBL000486 6EF7 00720 movwf TBLPTRH000488 68?? 00721 setf E1Cnt ; indice tabella (inizializzato a 0xFF)00048A 00722 KbdProc7:00048A 2A?? 00723 incf E1Cnt, F ; update indice00048C 0009 00724 tblrd *+ ; legge byte da memoria ed incrementa ptr00048E 0EFF 00725 movlw 0xFF ; test fine tabella000490 5CF5 00726 subwf TABLAT, W000492 E0?? 00727 bz KbdProc8 ; codice da non rilocare00728 ldw TABLAT000494 50F5 M movf TABLAT, w000496 5C?? 00729 subwf RxData, W ; confronta con dato ricevuto000498 E1?? 00730 bnz KbdProc7 ; loop next00731 ; trovato codice da rilocare00049A 0E?? 00732 movlw LOW DEFRLTBL ; imposta ptr tabella rilocazione00049C 24?? 00733 addwf E1Cnt, W ; aggiunge indice00049E 6EF6 00734 movwf TBLPTRL0004A0 0E?? 00735 movlw HIGH DEFRLTBL0004A2 6EF7 00736 movwf TBLPTRH0004A4 6AE8 00737 clrf WREG0004A6 22F7 00738 addwfc TBLPTRH, F0004A8 0009 00739 tblrd *+ ; codice rilocato00740 ldw TABLAT0004AA 50F5 M movf TABLAT, w0004AC D??? 00741 bra KbdProc100004AE 00742 KbdProc8: ; rilocazione degli scan code 70..7E in 60..6E0004AE 0E70 00743 movlw 0x700004B0 5C?? 00744 subwf RxData, W00745 ldw RxData ; W = codice non rilocato0004B2 50?? M movf RxData, w0004B4 E3?? 00746 bnc KbdProc10 ; OK (< 70)0004B6 0E7F 00747 movlw 0x7F ; max. codice di scansione 0x7E0004B8 5C?? 00748 subwf RxData, W0004BA E2?? 00749 bc ClrRX ; codice non valido (>= 7F) - azzera ed esceMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 16LOC OBJECT CODE LINE SOURCE TEXTVALUE0004BC 0E10 00750 movlw 0x10 ; rilocazione codice in 60..6E0004BE 5C?? 00751 subwf RxData, W ; W = codice rilocato0004C0 00752 KbdProc10: ; IN -> W = codice0004C0 6E?? 00753 movwf E1Cnt ; codice0004C2 0E?? 00754 movlw LOW CVTTBL ; imposta ptr tabella conversione0004C4 24?? 00755 addwf E1Cnt, W ; aggiunge indice0004C6 6EF6 00756 movwf TBLPTRL0004C8 0E?? 00757 movlw HIGH CVTTBL0004CA 6EF7 00758 movwf TBLPTRH0004CC 6AE8 00759 clrf WREG0004CE 22F7 00760 addwfc TBLPTRH, F0004D0 0009 00761 tblrd *+ ; codice rilocato00762 ldw TABLAT0004D2 50F5 M movf TABLAT, w0004D4 6E?? 00763 movwf RxCode ; nuovo codice0004D6 E6?? 00764 bmi ClrRX ; codice non valido - azzera flag ed esce0004D8 0E7B 00765 movlw ('z' + 1) ; massimo codice 7A ('z')0004DA 5C?? 00766 subwf RxCode, W0004DC E2?? 00767 bc ClrRX ; codice non valido0076800769 ; RxCode contiene ora un codice compreso tra 00 e 7A00770 ; codici 00 - 41 utilizzati per accesso tabella KEYTBL00771 ; codici 42 - 56 utilizzati per accesso mappe US/IT00772 ; codici 57 - 60 non validi00773 ; codici 61 - 7A lettere 'a'..'z'00774 ; codici 00 - 05 -> flag shift/alt/ctrl00775 ; codici 06 - 09 -> tasti toggle (LOCK e PAUSE)007760004DE 9C?? 00777 bcf TxFlag, SKPCTLB ; azzera flag skip SHIFT/ALT/CTL0004E0 9A?? 00778 bcf TxFlag, SKPALTB0004E2 98?? 00779 bcf TxFlag, SKPSHFB0004E4 9C?? 00780 bcf MapCfg, MAPALPHA ; tasto non alfabetico0004E6 0E61 00781 movlw 'a' ; test carattere alfabetico0004E8 5C?? 00782 subwf RxCode, W0004EA E3?? 00783 bnc MKeyTst ; no alpha - test codice mappe US/IT0004EC 6A?? 00784 clrf TxData0 ; flag codice ASCII00785 ldw RxCode ; 'a'..'z'0004EE 50?? M movf RxCode, w0004F0 6E?? 00786 movwf TxData1 ; codice ASCII tasto0004F2 0E20 00787 movlw 0x20 ; converte in maiuscolo0004F4 5C?? 00788 subwf RxCode, W ; 'A'..'Z'0004F6 6E?? 00789 movwf Caps0004F8 8C?? 00790 bsf MapCfg, MAPALPHA ; tasto alfabetico0004FA D??? 00791 bra KbdProc40 ; gestione tasto alpha007920004FC 00793 MKeyTst:0004FC 0E42 00794 movlw MAPCODE ; test codice in 42..56 (mappe US/IT)0004FE 5C?? 00795 subwf RxCode, W000500 E3?? 00796 bnc NKeyTst ; CODE < MAPCODE - no tasto mappe US/IT000502 6E?? 00797 movwf RxData ; salva CODE - MAPCODE (indice 0)000504 0E57 00798 movlw (MAPCODEMAX + 1)000506 5C?? 00799 subwf RxCode, W000508 E3?? 00800 bnc MapTst ; CODE < MAPCODEMAX + 1 - tasto mappe US/ITMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 17LOC OBJECT CODE LINE SOURCE TEXTVALUE00050A D??? 00801 bra ClrRX ; codice non valido00050C 00802 MapTst:00803 ; gestione mappe US/IT00050C 90D8 00804 bcf STATUS, C ; azzera carry00050E 36?? 00805 rlcf RxData, f ; * 2000510 88?? 00806 bsf TxFlag, SKPSHFB ; skip test SHIFT000512 BE?? 00807 btfsc MapCfg, MAPITB ; configurazione mappa IT ?000514 D??? 00808 bra ITMap ; SI000516 BE?? 00809 btfsc ShfSt, ASHFB ; SHIFT ?000518 2A?? 00810 incf RxData, F ; SI - incrementa indice00051A 0E?? 00811 movlw LOW USTBL ; imposta ptr tabella conversione mappa US00051C 24?? 00812 addwf RxData, W ; aggiunge indice00051E 6EF6 00813 movwf TBLPTRL000520 0E?? 00814 movlw HIGH USTBL000522 6EF7 00815 movwf TBLPTRH000524 6AE8 00816 clrf WREG000526 22F7 00817 addwfc TBLPTRH, F000528 0008 00818 tblrd * ; codice tasto00819 ldw TABLAT00052A 50F5 M movf TABLAT, w00052C 6E?? 00820 movwf TxData1 ; codice tasto00052E 6A?? 00821 clrf TxData0 ; flag ASCII000530 D??? 00822 bra KbdProc41 ; gestione tasto000532 00823 ITMap:000532 0E00 00824 movlw 0x00000534 6E?? 00825 movwf TxData1000536 6A?? 00826 clrf TxData0000538 D??? 00827 bra KbdProc41 ; gestione tasto0082800053A 00829 NKeyTst:00830 ; gestione tasti NO-REPEAT: PWR, SLEEP, WAKEUP, APP00831 ; L-GUI, R-GUI, ESC, PRINT SCRN00053A 0E18 00832 movlw WAKECODE00053C 5C?? 00833 subwf RxCode, W00053E E3?? 00834 bnc NMITst ; RxCode < WAKECODE000540 6E?? 00835 movwf RxData ; RxData = RxCode - WAKECODE000542 0E20 00836 movlw (ESCCODE + 1)000544 5C?? 00837 subwf RxCode, W000546 E2?? 00838 bc NMITst ; RxCode >= (ESCCODE + 1)000548 0E?? 00839 movlw LOW RPTTBL ; imposta ptr tabella flag RPTTBL00054A 24?? 00840 addwf RxData, W ; aggiunge indice00054C 6EF6 00841 movwf TBLPTRL00054E 0E?? 00842 movlw HIGH RPTTBL000550 6EF7 00843 movwf TBLPTRH000552 6AE8 00844 clrf WREG000554 22F7 00845 addwfc TBLPTRH, F000556 0008 00846 tblrd * ; flag tasto00847 ldw TABLAT000558 50F5 M movf TABLAT, w00055A 6E?? 00848 movwf RxData ; flag00055C BC?? 00849 btfsc RxFlag, RXBRK ; test tasto rilasciato00055E D??? 00850 bra NKeyRls ; SI000560 14?? 00851 andwf RptSt, W ; flag tasto premuto attivo ?MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 18LOC OBJECT CODE LINE SOURCE TEXTVALUE000562 E0?? 00852 bz NKeySet ; NO - prima attivazione000564 D??? 00853 bra ClrRX ; tasto repeat - scarta codice000566 00854 NKeySet:00855 ldw RxData ; set bit in RptSt000566 50?? M movf RxData, w000568 12?? 00856 iorwf RptSt, F00056A E1?? 00857 bnz NMITst00056C 00858 NKeyRls:00056C 1C?? 00859 comf RxData, W ; complementa maschera per azzerare bit00056E 16?? 00860 andwf RptSt, F ; azzera bit00861000570 00862 NMITst:00863 ; CTRL + BREAK, ALT + SYSREQ, WAKE UP, PWR, SLEEP sono tasti NMI00864 ; vengono rilevati solo dopo il loro rilascio000570 D??? 00865 rcall GetKeyTbl000572 52?? 00866 movf TxData1, F ; test se codice = 0000574 E1?? 00867 bnz NMITst1000576 D??? 00868 bra ClrRX ; tasto nullo - scarta codice000578 00869 NMITst1:000578 0EC0 00870 movlw 0xC0 ; test tasto NMI00057A 5C?? 00871 subwf TxData0, W ; flag tasto00057C E1?? 00872 bnz KbdProc12 ; no tasto NMI00057E AC?? 00873 btfss RxFlag, RXBRK ; codice break ?000580 D??? 00874 bra ClrRX ; NO - scarta codice000582 9C?? 00875 bcf RxFlag, RXBRK ; azzera flag000584 D??? 00876 bra KbdProc60 ; gestione tasto NMI00877000586 00878 KbdProc12:00879 ; gestione tasti SHIFT/ALT/CTRL00880 ; TxData0 = flag tasto00881 ; TxData1 = codice tasto000586 0E80 00882 movlw 0x80 ; test invio status flag000588 5C?? 00883 subwf TxData0, W00058A E1?? 00884 bnz KbdProc14 ; no SHIFT/ALT/CTRL00885 ldw CtlSt ; salva flag attuali00058C 50?? M movf CtlSt, w00058E 6E?? 00886 movwf TCtlSt000590 0EC0 00887 movlw (ASHFM | ALTCTLM) ; maschera bit necessari000592 14?? 00888 andwf ShfSt, W000594 6E?? 00889 movwf TShfSt00890 ldw TxData1 ; flag tasto000596 50?? M movf TxData1, w000598 6E?? 00891 movwf RxData ; flag attuale00059A 1C?? 00892 comf RxData, W ; complementa maschera per azzerare bit00059C 16?? 00893 andwf CtlSt, F ; azzera bit00894 ldw RxData ; carica maschera bit attivi00059E 50?? M movf RxData, w0005A0 AC?? 00895 btfss RxFlag, RXBRK ; lascia bit azzerati se tasto rilasciato0005A2 12?? 00896 iorwf CtlSt, F ; tasto premuto: imposta bit0005A4 9E?? 00897 bcf CtlSt, AALTB ; azzera bit di ALT e CTRL0005A6 9C?? 00898 bcf CtlSt, ACTLB0005A8 0E24 00899 movlw ALTKM ; test L-ALT OR R-ALT0005AA 14?? 00900 andwf CtlSt, WMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 19LOC OBJECT CODE LINE SOURCE TEXTVALUE0005AC A4D8 00901 btfss STATUS, Z ; Z = 1 -> no ALT0005AE 8E?? 00902 bsf CtlSt, AALTB ; imposta bit ALT (L o R)0005B0 0E12 00903 movlw CTRLKM ; test L-CTRL OR R-CTRL0005B2 14?? 00904 andwf CtlSt, W0005B4 A4D8 00905 btfss STATUS, Z ; Z = 1 -> no CTRL0005B6 8C?? 00906 bsf CtlSt, ACTLB ; imposta bit CTRL (L o R)0005B8 9E?? 00907 bcf ShfSt, ASHFB ; azzera bit SHIFT0005BA 9C?? 00908 bcf ShfSt, ALTCTLB ; azzera bit ALT OR CTRL0005BC 0E09 00909 movlw SHIFTKM ; test L-SHIFT OR R-SHIFT0005BE 14?? 00910 andwf CtlSt, W0005C0 A4D8 00911 btfss STATUS, Z ; Z = 1 -> no SHIFT0005C2 8E?? 00912 bsf ShfSt, ASHFB ; imposta bit SHIFT (L o R)0005C4 0EC0 00913 movlw ALLALTCTLM ; test ALT OR CTRL0005C6 14?? 00914 andwf CtlSt, W0005C8 A4D8 00915 btfss STATUS, Z ; Z = 1 -> no ALT OR CTRL0005CA 8C?? 00916 bsf ShfSt, ALTCTLB ; imposta bit ALT OR CTRL (L o R)00917 ldw CtlSt ; confronta flag attuali con flag precedenti0005CC 50?? M movf CtlSt, w0005CE 62?? 00918 cpfseq TCtlSt0005D0 D??? 00919 bra KbdProc13 ; flag cambiato0005D2 0EC0 00920 movlw (ASHFM | ALTCTLM)0005D4 14?? 00921 andwf ShfSt, W ; maschera bit necessari0005D6 5C?? 00922 subwf TShfSt, W ; confronta con vecchio flag0005D8 E1?? 00923 bnz KbdProc13 ; flag cambiato0005DA D??? 00924 bra ClrRX ; flag non cambiati -> scarta codice0005DC 00925 KbdProc13: ; invia nuovi flag all' host00926 ; formato -> 100000<76-ShfSt> + CtlSt00927 ldw CtlSt0005DC 50?? M movf CtlSt, w0005DE 6E?? 00928 movwf TxData100929 ldw ShfSt ; trasla bit 7 e 6 in bit 1 e 00005E0 50?? M movf ShfSt, w0005E2 6E?? 00930 movwf RxData0005E4 42?? 00931 rrncf RxData, F ; bit 60005E6 42?? 00932 rrncf RxData, F ; bit 50005E8 42?? 00933 rrncf RxData, F ; bit 40005EA 42?? 00934 rrncf RxData, F ; bit 30005EC 42?? 00935 rrncf RxData, F ; bit 20005EE 40?? 00936 rrncf RxData, W ; bit 1 -> W0005F0 0B03 00937 andlw B'00000011'0005F2 12?? 00938 iorwf TxData0, F009390005F4 00940 PutKey: ; inserisce word codice tasto nella coda TX0005F4 0EE0 00941 movlw (TXMAXCNT - 1) ; test spazio disponibile0005F6 5C?? 00942 subwf TxCnt, W ; W = TxCnt - (TMAXCNT - 1)0005F8 B0D8 00943 btfsc STATUS, C ; W >= 0 -> C = 10005FA 8E?? 00944 bsf TxFlag, TXOVR ; segnala overrun buffer TX00945 ldw TxHeadL ; imposta ptr head al buffer0005FC 50?? M movf TxHeadL, w0005FE 6EE9 00946 movwf FSR0L00947 ldw TxHeadH000600 50?? M movf TxHeadH, w000602 6EEA 00948 movwf FSR0HMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 20LOC OBJECT CODE LINE SOURCE TEXTVALUE00949 ldw TxData0 ; primo byte in coda000604 50?? M movf TxData0, w000606 6EEE 00950 movwf POSTINC000951 ldw TxData1 ; secondo byte in coda000608 50?? M movf TxData1, w00060A 6EEE 00952 movwf POSTINC000060C 2A?? 00953 incf TxCnt, F ; aggiorna contatore word nel buffer TX00954 ldw FSR0L ; aggiorna ptr00060E 50E9 M movf FSR0L, w000610 6E?? 00955 movwf TxHeadL00956 ldw FSR0H000612 50EA M movf FSR0H, w000614 6E?? 00957 movwf TxHeadH000616 0E00 00958 movlw LOW(TxBufEnd) ; coda circolare - test puntatore000618 5C?? 00959 subwf TxHeadL, W ; TxHeadL - LOW(TxBufEnd)00061A 0E03 00960 movlw HIGH(TxBufEnd) ; TxHeadH - HIGH(TxBufEnd)00061C 58?? 00961 subwfb TxHeadH, W ; C = 0 se TxHead < TxBufEnd00061E A0D8 00962 btfss STATUS, C ; test buffer000620 D??? 00963 bra ClrRX ; C = 0 -> OK000622 0E3E 00964 movlw LOW(TxBuffer) ; reimposta puntatore a inizio buffer000624 6E?? 00965 movwf TxHeadL000626 0E01 00966 movlw HIGH(TxBuffer)000628 6E?? 00967 movwf TxHeadH00062A D??? 00968 bra ClrRX ; azzera flag ed esce0096900062C 00970 KbdProc14:00971 ; gestione tasti TOGGLE00062C 0E90 00972 movlw 0x90 ; test invio toggle00062E 5C?? 00973 subwf TxData0, W ; test tasti LOCK o PAUSE000630 E1?? 00974 bnz KbdProc1600975 ldw TglSt ; salva flag toggle attuali000632 50?? M movf TglSt, w000634 6E?? 00976 movwf TTglSt00977 ldw LockSt000636 50?? M movf LockSt, w000638 6E?? 00978 movwf TLockSt00063A 0E09 00979 movlw PAUSECODE ; test PAUSE00063C 5C?? 00980 subwf RxCode, W00063E E1?? 00981 bnz NoPause ; no tasto PAUSE000640 78?? 00982 btg TglSt, PAUSB ; toggle bit ad ogni pressione PAUSE000642 D??? 00983 bra KbdProc15000644 00984 NoPause:000644 BC?? 00985 btfsc RxFlag, RXBRK ; test tasto rilasciato000646 D??? 00986 bra ToggleRls ; SI000648 14?? 00987 andwf LockSt, W ; flag tasto premuto attivo ?00064A E0?? 00988 bz ToggleBit ; NO - prima attivazione00064C D??? 00989 bra ClrRX ; tasto repeat - scarta codice00064E 00990 ToggleBit:00991 ldw TxData1 ; toggle bit in TglSt00064E 50?? M movf TxData1, w000650 1A?? 00992 xorwf TglSt, F000652 12?? 00993 iorwf LockSt, F ; setta bit in LockSt000654 E1?? 00994 bnz TstLockMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 21LOC OBJECT CODE LINE SOURCE TEXTVALUE000656 00995 ToggleRls:000656 1C?? 00996 comf TxData1, W ; complementa maschera per azzerare bit000658 16?? 00997 andwf LockSt, F ; azzera bit00065A 00998 TstLock:00999 ldw TglSt ; confronta con toggle precedente00065A 50?? M movf TglSt, w00065C 5C?? 01000 subwf TTglSt, W00065E E1?? 01001 bnz LedUpd000660 D??? 01002 bra ClrRX ; toggle non modificato - scarta codice000662 01003 LedUpd:000662 EC?? F??? 01004 call SetLed1000666 A0?? 01005 btfss KbdFlag, KBLEDOK ; comando LED riuscito000668 D??? 01006 bra ClrRX ; ignora tasto ed esce00066A 01007 KbdProc15: ; invia toggle ad host01008 ; formato -> 10010000 + TglSt01009 ldw TglSt00066A 50?? M movf TglSt, w00066C 6E?? 01010 movwf TxData100066E D??? 01011 bra PutKey01012000670 01013 KbdProc16:01014 ; gestione tasti tastierino numerico (KP)000670 0E20 01015 movlw KP0CODE000672 5C?? 01016 subwf RxCode, W000674 E3?? 01017 bnc KbdProc20 ; no tasto numerico000676 0E2B 01018 movlw INSCODE000678 5C?? 01019 subwf RxCode, W00067A E2?? 01020 bc KbdProc20 ; no tasto numerico01021 ; se NUM-LOCK OFF i tasti numerici diventano tasti cursore (escluso 5)00067C AC?? 01022 btfss TglSt, NUMLB00067E D??? 01023 bra KbdProc18 ; NUM-LOCK OFF -> converte in codice cursore01024 ; se NUM-LOCK ON e premuto il solo tasto SHIFT converte in codice cursore000680 AE?? 01025 btfss ShfSt, ASHFB000682 D??? 01026 bra KbdProc20 ; no SHIFT -> tasto numerico000684 BC?? 01027 btfsc ShfSt, ALTCTLB ; premuti ALT e/o CTRL ?000686 D??? 01028 bra KbdProc20 ; si - tasto numerico000688 88?? 01029 bsf TxFlag, SKPSHFB ; flag skip test SHIFT00068A 8A?? 01030 bsf TxFlag, SKPALTB ; flag skip test ALT00068C 8C?? 01031 bsf TxFlag, SKPCTLB ; flag skip test CTRL0103200068E 01033 KbdProc18:00068E 0E0B 01034 movlw CRSLEN ; converte in codice tasto cursore000690 26?? 01035 addwf RxCode, F000692 D??? 01036 rcall GetKeyTbl ; legge nuovamente codice/flag tasto000694 52?? 01037 movf TxData1, F ; test se codice tasto = 0000696 E1?? 01038 bnz KbdProc20000698 D??? 01039 bra ClrRX ; scarta codice nullo0104000069A 01041 KbdProc20:01042 ; toggle tasto INSERT - soltanto senza SHIFT/ALT/CTRL00069A 0E2B 01043 movlw INSCODE00069C 5C?? 01044 subwf RxCode, W00069E E1?? 01045 bnz KbdProc22MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 22LOC OBJECT CODE LINE SOURCE TEXTVALUE0006A0 B8?? 01046 btfsc TxFlag, SKPSHFB ; INSERT su tastierino numerico ?0006A2 D??? 01047 bra KbdProc21 ; si - non testa SHIFT0006A4 0EC0 01048 movlw SHFALL0006A6 14?? 01049 andwf ShfSt, W ; test SHIFT/ALT/CTRL0006A8 E1?? 01050 bnz KbdProc22 ; no toggle0006AA 01051 KbdProc21:0006AA BC?? 01052 btfsc RxFlag, RXBRK ; test tasto rilasciato0006AC D??? 01053 bra KbdProc220006AE 74?? 01054 btg TglSt, INSTB ; toggle bit INSERT010550006B0 01056 KbdProc22:01057 ; imposta flag in TglSt per ESC e PRINT SCRN0006B0 0E1E 01058 movlw PRTCODE0006B2 5C?? 01059 subwf RxCode, W0006B4 E0?? 01060 bz KbdProc230006B6 0E1F 01061 movlw ESCCODE0006B8 5C?? 01062 subwf RxCode, W0006BA E1?? 01063 bnz KbdProc240006BC 01064 KbdProc23:0006BC 0E03 01065 movlw ESCPRNM ; imposta flag ESC e PRINT SCRN0006BE 14?? 01066 andwf RptSt, W ; da RptSt a TglSt0006C0 12?? 01067 iorwf TglSt, F010680006C2 01069 KbdProc24:01070 ; gestione tasti CR, TAB, SHIFT-CR, SHIFT-TAB, '<' e '>' mappa IT0006C2 0E0A 01071 movlw CRCODE0006C4 5C?? 01072 subwf RxCode, W0006C6 E3?? 01073 bnc KbdProc26 ; RxCode < CRCODE0006C8 0E10 01074 movlw KPBARCODE0006CA 5C?? 01075 subwf RxCode, W0006CC E2?? 01076 bc KbdProc26 ; RxCode >= KPBARCODE0006CE AE?? 01077 btfss ShfSt, ASHFB ; SHIFT ?0006D0 D??? 01078 bra KbdProc25 ; NO0006D2 BC?? 01079 btfsc ShfSt, ALTCTLB ; CTRL/ALT ?0006D4 D??? 01080 bra KbdProc25 ; SI0006D6 2A?? 01081 incf RxCode, F ; SHIFT -> increnmenta codice0006D8 01082 KbdProc25:0006D8 D??? 01083 rcall GetKeyTbl ; legge nuovamente codice/flag tasto0006DA 52?? 01084 movf TxData1, F ; test se codice tasto = 00006DC E1?? 01085 bnz KbdProc50 ; gestione tasto0006DE D??? 01086 bra ClrRX ; scarta codice nullo010870006E0 01088 KbdProc26:01089 ; tasti funzione - a questo punto CODE < MAPCODE (42)0006E0 0E36 01090 movlw FNCCODE ; range tasti funzione 36..410006E2 5C?? 01091 subwf RxCode, W0006E4 E3?? 01092 bnc KbdProc50 ; gestione tasti per codici < FNCCODE (36)0109301094 ; FX -> A0..AB01095 ; SHIFT + FX -> AC..B701096 ; CTL + FX -> B8..C301097 ; ALT + FX -> C4..CF01098 ; CTL + SHIFT + FX -> D0..DBMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 23LOC OBJECT CODE LINE SOURCE TEXTVALUE01099 ; CTL + ALT + FX -> DC..E701100 ; ALT + SHIFT + FX -> E8..F301101 ; CTL + ALT + SHIFT + FX -> F4..FF011020006E6 AE?? 01103 btfss ShfSt, ASHFB0006E8 D??? 01104 bra FnNoShf0006EA 0E0C 01105 movlw D'12' ; SHIFT + Fx0006EC AC?? 01106 btfss ShfSt, ALTCTLB ; ALT o CTRL ?0006EE D??? 01107 bra FnAdd ; no - SHIFT + FX0006F0 0E30 01108 movlw D'48'0006F2 AE?? 01109 btfss CtlSt, AALTB ; ALT ?0006F4 D??? 01110 bra FnAdd ; no - SHIFT + CTRL + Fx0006F6 0E48 01111 movlw D'72'0006F8 AC?? 01112 btfss CtlSt, ACTLB ; CTRL ?0006FA D??? 01113 bra FnAdd ; no - SHIFT + ALT + Fx0006FC 0E54 01114 movlw D'84' ; SHIFT + ALT + CTRL + Fx0006FE D??? 01115 bra FnAdd000700 01116 FnNoShf:000700 0E00 01117 movlw D'0' ; Fx000702 AC?? 01118 btfss ShfSt, ALTCTLB ; ALT o CTRL ?000704 D??? 01119 bra FnAdd ; no - FX000706 0E18 01120 movlw D'24'000708 AE?? 01121 btfss CtlSt, AALTB ; ALT ?00070A D??? 01122 bra FnAdd ; no - CTRL + Fx00070C 0E24 01123 movlw D'36'00070E AC?? 01124 btfss CtlSt, ACTLB ; CTRL ?000710 D??? 01125 bra FnAdd ; no - ALT + Fx000712 0E3C 01126 movlw D'60' ; ALT + CTRL + Fx000714 01127 FnAdd:000714 26?? 01128 addwf TxData1, F000716 D??? 01129 bra KeySnd ; tasti funzione inviati senza altri test01130000718 01131 KbdProc40: ; gestione tasto alfabetico01132 ldw Caps ; 'A'..'Z'000718 50?? M movf Caps, w00071A 01133 KbdProc41: ; gestione tasto ASCII non-alpha00071A 6E?? 01134 movwf RxData ; codice tasto attuale (TxData1)00071C 0E40 01135 movlw '@'00071E 5C?? 01136 subwf RxData, W000720 E3?? 01137 bnc KbdProc50 ; key < '@' (40)000722 0E60 01138 movlw '`'000724 5C?? 01139 subwf RxData, W000726 E2?? 01140 bc KbdProc50 ; key >= '`' (60)000728 AE?? 01141 btfss CtlSt, AALTB ; ALT ?00072A D??? 01142 bra KbdProc42 ; NO00072C 0E1F 01143 movlw 0x1F00072E 14?? 01144 andwf RxData, W ; converte in 00..1F000730 0F60 01145 addlw 0x60 ; converte in 60..7F000732 6E?? 01146 movwf TxData1 ; codice controllo000734 0EA0 01147 movlw 0xA0 ; flag codice controllo000736 6E?? 01148 movwf TxData0000738 D??? 01149 bra KbdProc5000073A 01150 KbdProc42:MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 24LOC OBJECT CODE LINE SOURCE TEXTVALUE00073A AC?? 01151 btfss CtlSt, ACTLB ; CTRL ?00073C D??? 01152 bra KbdProc43 ; NO00073E 0E1F 01153 movlw 0x1F000740 14?? 01154 andwf RxData, W ; converte in 00..1F000742 6E?? 01155 movwf TxData1 ; codice ASCII000744 6A?? 01156 clrf TxData0 ; flag codice ASCII000746 D??? 01157 bra KbdProc50000748 01158 KbdProc43:01159 ; test SHIFT / CAPS-LOCK per tasti alfabetici000748 AC?? 01160 btfss MapCfg, MAPALPHA00074A D??? 01161 bra KbdProc50 ; no tasto alfabetico01162 ldw ShfSt ; SHIFT00074C 50?? M movf ShfSt, w00074E 18?? 01163 xorwf TglSt, W ; confronta con CAPS LOCK000750 0B80 01164 andlw 0x80 ; interessa bit 7 soltanto000752 E0?? 01165 bz KbdProc50 ; o NO SHIFT oppure CAPS LOCK + SHIFT -> a..z01166 ldw Caps ; o SHIFT oppure CAPS LOCK -> A..Z000754 50?? M movf Caps, w000756 6E?? 01167 movwf TxData101168000758 01169 KbdProc50:01170 ; ALT 0..9 -> 30..3901171 ; CTRL 0..9 -> 40..4901172 ; CTRL + ALT 0..9 -> 50..59000758 BE?? 01173 btfsc TxData0, 700075A D??? 01174 bra Key10 ; codice di controllo00075C 0E30 01175 movlw '0' ; test tasto numerico00075E 5C?? 01176 subwf TxData1, W000760 6E?? 01177 movwf RxData ; 0..9000762 E3?? 01178 bnc Key06000764 0E3A 01179 movlw ('9' + 1)000766 5C?? 01180 subwf TxData1, W000768 E2?? 01181 bc Key0600076A AE?? 01182 btfss CtlSt, AALTB ; ALT ?00076C D??? 01183 bra Key01 ; NO00076E 0E30 01184 movlw ALTKEY0 ; ALT + 0..9000770 BC?? 01185 btfsc CtlSt, ACTLB ; CTRL + ALT ?000772 0E50 01186 movlw ALTCTLKEY0 ; CTRL + ALT + 0..9000774 D??? 01187 bra Key02000776 01188 Key01:000776 AC?? 01189 btfss CtlSt, ACTLB ; CTRL ?000778 D??? 01190 bra KeySnd ; NO - lascia inalterato il tasto00077A 0E40 01191 movlw CTLKEY0 ; CTRL + 0..900077C 01192 Key02:00077C 24?? 01193 addwf RxData, W00077E 6E?? 01194 movwf TxData1 ; codice controllo000780 0EA0 01195 movlw 0xA0 ; flag codice controllo000782 6E?? 01196 movwf TxData0000784 D??? 01197 bra KeySnd ; invia tasto000786 01198 Key06:000786 0E1B 01199 movlw KB_ESCAPE ; ESC, TAB, +, -000788 5C?? 01200 subwf TxData1, W00078A E0?? 01201 bz Key10MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 25LOC OBJECT CODE LINE SOURCE TEXTVALUE00078C 0E09 01202 movlw KB_TAB00078E 5C?? 01203 subwf TxData1, W000790 E0?? 01204 bz Key10000792 0E2B 01205 movlw '+'000794 5C?? 01206 subwf TxData1, W000796 E0?? 01207 bz Key10000798 0E2D 01208 movlw '-'00079A 5C?? 01209 subwf TxData1, W00079C E1?? 01210 bnz KeySnd00079E 01211 Key10:00079E 0E70 01212 movlw SKPALL ; tasti cursore da tastierino numerico0007A0 14?? 01213 andwf TxFlag, W ; non vengono testati per SHIFT/CTRL/ALT0007A2 0870 01214 sublw SKPALL0007A4 E0?? 01215 bz KeySnd0007A6 0E?? 01216 movlw LOW SPCKEY ; imposta ptr tabella tasti speciali0007A8 6EF6 01217 movwf TBLPTRL0007AA 0E?? 01218 movlw HIGH SPCKEY0007AC 6EF7 01219 movwf TBLPTRH0007AE 68?? 01220 setf E1Cnt ; indice tabella (inizializzato a 0xFF)0007B0 01221 Key11:0007B0 2A?? 01222 incf E1Cnt, F ; update indice0007B2 0009 01223 tblrd *+ ; legge byte da memoria ed incrementa ptr0007B4 0EFF 01224 movlw 0xFF ; test fine tabella0007B6 5CF5 01225 subwf TABLAT, W0007B8 E0?? 01226 bz KeySnd ; termina sequenza01227 ldw TxData1 ; confronta con tasto0007BA 50?? M movf TxData1, w0007BC 5CF5 01228 subwf TABLAT, W0007BE E1?? 01229 bnz Key11 ; loop0007C0 0EC0 01230 movlw B'11000000'0007C2 14?? 01231 andwf CtlSt, W ; test ALT e/o CTRL0007C4 E0?? 01232 bz Key13 ; test SHIFT0007C6 08C0 01233 sublw B'11000000' ; CTRL + ALT ?0007C8 E1?? 01234 bnz Key12 ; NO0007CA 0E03 01235 movlw 0x03 ; CTRL + ALT0007CC D??? 01236 bra Key150007CE 01237 Key12:0007CE 0E01 01238 movlw 0x010007D0 BE?? 01239 btfsc CtlSt, AALTB0007D2 D??? 01240 bra Key15 ; ALT0007D4 0E02 01241 movlw 0x020007D6 D??? 01242 bra Key15 ; CTRL0007D8 01243 Key13:0007D8 AE?? 01244 btfss ShfSt, ASHFB0007DA D??? 01245 bra KeySnd ; no SHIFT - non modifica tasto0007DC 0E00 01246 movlw 0x000007DE 01247 Key15:0007DE 90D8 01248 bcf STATUS, C0007E0 36?? 01249 rlcf E1Cnt, F0007E2 36?? 01250 rlcf E1Cnt, F ; * 40007E4 26?? 01251 addwf E1Cnt, F0007E6 0E?? 01252 movlw LOW SPCKEY2 ; imposta ptr tabella SPCKEY20007E8 24?? 01253 addwf E1Cnt, W ; aggiunge indiceMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 26LOC OBJECT CODE LINE SOURCE TEXTVALUE0007EA 6EF6 01254 movwf TBLPTRL0007EC 0E?? 01255 movlw HIGH SPCKEY20007EE 6EF7 01256 movwf TBLPTRH0007F0 6AE8 01257 clrf WREG0007F2 22F7 01258 addwfc TBLPTRH, F0007F4 0009 01259 tblrd *+ ; codice01260 ldw TABLAT0007F6 50F5 M movf TABLAT, w0007F8 E0?? 01261 bz KeySnd ; tasto null0007FA 6E?? 01262 movwf TxData10007FC 0E?? 01263 movlw LOW SPCKEY3 ; imposta ptr tabella SPCKEY30007FE 24?? 01264 addwf E1Cnt, W ; aggiunge indice000800 6EF6 01265 movwf TBLPTRL000802 0E?? 01266 movlw HIGH SPCKEY3000804 6EF7 01267 movwf TBLPTRH000806 6AE8 01268 clrf WREG000808 22F7 01269 addwfc TBLPTRH, F00080A 0009 01270 tblrd *+ ; codice01271 ldw TABLAT00080C 50F5 M movf TABLAT, w00080E 6E?? 01272 movwf TxData0000810 0EC0 01273 movlw 0xC0000812 5C?? 01274 subwf TxData0, W000814 E0?? 01275 bz KbdProc6001276000816 01277 KeySnd:000816 BC?? 01278 btfsc RxFlag, RXBRK ; test tasto rilasciato000818 8C?? 01279 bsf TxData0, KEYRLS ; SI - imposta bit rilascio00081A A8?? 01280 btfss TxData0, KEYTGL ; invia flag toggle low ?00081C D??? 01281 bra PutKey ; NO01282 ldw TglSt00081E 50?? M movf TglSt, w000820 0B0F 01283 andlw B'00001111'000822 12?? 01284 iorwf TxData0, F ; 4 bit bassi corrispondono ai 4 bit di TglSt000824 D??? 01285 bra PutKey01286000826 01287 KbdProc60:01288 ; setta NMI all' host000826 6A?? 01289 clrf Caps ; contatore temporaneo000828 01290 KbdProc61:000828 A280 01291 btfss PORTA, HLNMI ; host busy00082A D??? 01292 bra NMISnd ; NMI non attivo - attiva00082C 3E?? 01293 incfsz Caps, F ; attende host libero00082E D??? 01294 bra KbdProc61000830 EF?? F??? 01295 goto ClrRX ; scarta codice NMI000834 01296 NMISnd:000834 0E02 01297 movlw 0x02 ; porta NMI000836 6E8D 01298 movwf LATE ; indirizzo KFR01299 ldw TxData1 ; codice NMI000838 50?? M movf TxData1, w00083A D??? 01300 rcall KFRWrite ; codice in porta NMI00083C 9882 01301 bcf PORTC, KFRSSN ; attiva NMI host00083E 0000 01302 nopMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 27LOC OBJECT CODE LINE SOURCE TEXTVALUE000840 8882 01303 bsf PORTC, KFRSSN000842 D??? 01304 bra ClrRX01305000844 01306 GetKeyTbl:000844 0E?? 01307 movlw LOW KEYTBL ; imposta ptr tabella conversione KEYTBL000846 24?? 01308 addwf RxCode, W ; aggiunge indice000848 6EF6 01309 movwf TBLPTRL00084A 0E?? 01310 movlw HIGH KEYTBL00084C 6EF7 01311 movwf TBLPTRH00084E 6AE8 01312 clrf WREG000850 22F7 01313 addwfc TBLPTRH, F000852 0008 01314 tblrd * ; codice tasto01315 ldw TABLAT000854 50F5 M movf TABLAT, w000856 6E?? 01316 movwf TxData1 ; codice tasto000858 0E?? 01317 movlw LOW FLGTBL ; imposta ptr tabella conversione FLGTBL00085A 24?? 01318 addwf RxCode, W ; aggiunge indice00085C 6EF6 01319 movwf TBLPTRL00085E 0E?? 01320 movlw HIGH FLGTBL000860 6EF7 01321 movwf TBLPTRH000862 6AE8 01322 clrf WREG000864 22F7 01323 addwfc TBLPTRH, F000866 0008 01324 tblrd * ; flag tasto01325 ldw TABLAT000868 50F5 M movf TABLAT, w00086A 6E?? 01326 movwf TxData0 ; flag tasto00086C 0012 01327 return013280132900086E 01330 KFRWrite:00086E 6E8C 01331 movwf LATD ; byte da scrivere nel registro000870 6A95 01332 clrf DDRD ; porta D in uscita000872 0000 01333 nop000874 0000 01334 nop ; dato stabile000876 928B 01335 bcf LATC, KFRWE ; impulso write000878 0000 01336 nop00087A 828B 01337 bsf LATC, KFRWE00087C 0000 01338 nop00087E 0012 01339 return01340000880 01341 KFRRead:000880 6895 01342 setf DDRD ; Porta D input000882 6A8D 01343 clrf LATE ; indirizzo file reg. = 0000884 0E04 01344 movlw 0x04 ; contatore registri000886 6E?? 01345 movwf KFRRdCnt000888 EE?? F0?? 01346 lfsr FSR0, KFRRd0 ; puntatore registro 000088C 01347 KFRRead1:00088C 908B 01348 bcf LATC, KFRRD ; lettura registro00088E 0000 01349 nop000890 0000 01350 nop000892 01351 KFRRead2:01352 ldw PORTD ; legge porta D000892 5083 M movf PORTD, wMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 28LOC OBJECT CODE LINE SOURCE TEXTVALUE000894 6283 01353 cpfseq PORTD ; attende dato stabile000896 D??? 01354 bra KFRRead2000898 808B 01355 bsf LATC, KFRRD ; linea lettura alta00089A 6EEE 01356 movwf POSTINC0 ; memorizza dato registro00089C 2A8D 01357 incf LATE, f ; incrementa indirizzo00089E 2E?? 01358 decfsz KFRRdCnt, f ; loop0008A0 D??? 01359 bra KFRRead10008A2 6A8D 01360 clrf LATE0008A4 9E?? 01361 bcf KFRFlag, KFRFULL ; azzera flag richiesta servizio0008A6 0EE1 01362 movlw 0xE1 ; set lock led0008A8 5C?? 01363 subwf KFRRd0, W0008AA E1?? 01364 bnz Cmd00008AC D??? 01365 rcall SetLed0008AE 6A?? 01366 clrf KFRRd3 ; errore ?0008B0 B0?? 01367 btfsc KbdFlag, KBLEDOK0008B2 68?? 01368 setf KFRRd30008B4 D??? 01369 bra CmdRsp0008B6 01370 Cmd0:0008B6 0EC1 01371 movlw 0xC1 ; start scanning0008B8 5C?? 01372 subwf KFRRd0, W0008BA E1?? 01373 bnz Cmd101374 SCLOCKH0008BC 888A M bsf LATB, KCLKO0008BE D??? 01375 bra CmdEnd0008C0 01376 Cmd1:0008C0 0EC2 01377 movlw 0xC2 ; RESET0008C2 5C?? 01378 subwf KFRRd0, W0008C4 E1?? 01379 bnz Cmd20008C6 9EF2 01380 bcf INTCON, GIEH ; disabilita INT high priority0008C8 9CF2 01381 bcf INTCON, GIEL ; disabilita INT low priority0008CA 9C8B 01382 bcf LATC, KBVOFF ; impulso negativo VCC tastiera0008CC 0E07 01383 movlw TMR0P256 ; TMR0 stop, prescaler = 256, modo 16 bit0008CE 6ED5 01384 movwf T0CON0008D0 94F2 01385 bcf INTCON, TMR0IF ; azzera flag timeout0008D2 0E8D 01386 movlw HIGH(T1500MS) ; imposta timeout 1500ms0008D4 6ED7 01387 movwf TMR0H ; caricare prima TMR0H0008D6 0E90 01388 movlw LOW(T1500MS)0008D8 6ED6 01389 movwf TMR0L ; carica TMR0L/H0008DA 8ED5 01390 bsf T0CON, TMR0ON ; start Timer 00008DC 01391 Wait1:0008DC A4F2 01392 btfss INTCON, TMR0IF0008DE D??? 01393 bra Wait1 ; timeout0139401395 ;bsf LATC, KBVOFF0008E0 968B 01396 bcf LATC, KFRSRP ; azzera linea DRQ verso host0008E2 0000 01397 nop0008E4 0000 01398 nop0008E6 868B 01399 bsf LATC, KFRSRP0008E8 00FF 01400 reset0008EA 01401 Cmd2:0008EA D??? 01402 bra CmdEnd0008EC 01403 CmdRsp:0008EC 0E03 01404 movlw 0x03MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 29LOC OBJECT CODE LINE SOURCE TEXTVALUE0008EE 6E8D 01405 movwf LATE01406 ldw KFRRd30008F0 50?? M movf KFRRd3, w0008F2 D??? 01407 rcall KFRWrite0008F4 D??? 01408 bra CmdEnd014090008F6 01410 CmdEnd:0008F6 968B 01411 bcf LATC, KFRSRP ; azzera linea DRQ verso host0008F8 0000 01412 nop0008FA 0000 01413 nop0008FC 868B 01414 bsf LATC, KFRSRP0008FE 0012 01415 return01416000900 01417 SetLed:01418 ldw TglSt000900 50?? M movf TglSt, w000902 6E?? 01419 movwf TTglSt01420 ldw KFRRd1000904 50?? M movf KFRRd1, w000906 6E?? 01421 movwf TglSt000908 01422 SetLed1:01423 ldw TglSt000908 50?? M movf TglSt, w00090A 6E?? 01424 movwf LedSt00090C 42?? 01425 rrncf LedSt, F00090E 42?? 01426 rrncf LedSt, F000910 42?? 01427 rrncf LedSt, F000912 42?? 01428 rrncf LedSt, F000914 40?? 01429 rrncf LedSt, W000916 0B07 01430 andlw B'00000111'000918 6E?? 01431 movwf LedSt01432 ldw LATB ; salva porta B00091A 508A M movf LATB, w00091C 6E?? 01433 movwf TPortB01434 SCLOCKL ; inibisce TX da tastiera00091E 988A M bcf LATB, KCLKO000920 9EF2 01435 bcf INTCON, GIEH ; disabilita INT high priority000922 9CF2 01436 bcf INTCON, GIEL ; disabilita INT low priority000924 EC?? F??? 01437 call SendLed000928 A8?? 01438 btfss TPortB, KCLKO ; disabilita TX da tast. se era disabilitato01439 SCLOCKL00092A 988A M bcf LATB, KCLKO00092C 92F2 01440 bcf INTCON, INT0IF ; resetta flag INT000092E 8EF2 01441 bsf INTCON, GIEH ; abilita INT high priority000930 8CF2 01442 bsf INTCON, GIEL ; abilita INT low priority000932 E3?? 01443 bnc SetLed2 ; comando LED riuscito01444 ldw TTglSt ; errore -> ignora tasto000934 50?? M movf TTglSt, w000936 6E?? 01445 movwf TglSt ; reimposta flag toggle precedente01446 ldw TLockSt000938 50?? M movf TLockSt, w00093A 6E?? 01447 movwf LockSt00093C 90?? 01448 bcf KbdFlag, KBLEDOK ; comando LED fallitoMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 30LOC OBJECT CODE LINE SOURCE TEXTVALUE00093E 0012 01449 return ; fail000940 01450 SetLed2:000940 80?? 01451 bsf KbdFlag, KBLEDOK000942 0012 01452 return01453000944 01454 SndProc: ; invia word nella coda TX ad host000944 B080 01455 btfsc PORTA, HLINT ; host busy ?000946 0012 01456 return ; si01457 ldw TxTailL ; imposta ptr head al buffer000948 50?? M movf TxTailL, w00094A 6EE9 01458 movwf FSR0L01459 ldw TxTailH00094C 50?? M movf TxTailH, w00094E 6EEA 01460 movwf FSR0H01461 ldw POSTINC0000950 50EE M movf POSTINC0, w000952 6E?? 01462 movwf TxData001463 ldw POSTINC0000954 50EE M movf POSTINC0, w000956 6E?? 01464 movwf TxData1000958 6A8D 01465 clrf LATE ; indirizzo KFR = 001466 ldw TxData0 ; flag tasto00095A 50?? M movf TxData0, w00095C D??? 01467 rcall KFRWrite00095E 0E01 01468 movlw 0x01 ; indirizzo KFR = 1000960 6E8D 01469 movwf LATE01470 ldw TxData1 ; codice tasto000962 50?? M movf TxData1, w000964 D??? 01471 rcall KFRWrite000966 9A82 01472 bcf PORTC, KFRSSI ; attiva INT host000968 0000 01473 nop00096A 8A82 01474 bsf PORTC, KFRSSI00096C 06?? 01475 decf TxCnt, F ; aggiorna contatore word nel buffer TX01476 ldw FSR0L ; aggiorna ptr00096E 50E9 M movf FSR0L, w000970 6E?? 01477 movwf TxTailL01478 ldw FSR0H000972 50EA M movf FSR0H, w000974 6E?? 01479 movwf TxTailH000976 0E00 01480 movlw LOW(TxBufEnd) ; coda circolare - test puntatore000978 5C?? 01481 subwf TxTailL, W ; TxTailL - LOW(TxBufEnd)00097A 0E03 01482 movlw HIGH(TxBufEnd) ; TxTailH - HIGH(TxBufEnd)00097C 58?? 01483 subwfb TxTailH, W ; C = 0 se TxTail < TxBufEnd00097E A0D8 01484 btfss STATUS, C ; test buffer000980 0012 01485 return ; C = 0 -> OK000982 0E3E 01486 movlw LOW(TxBuffer) ; reimposta puntatore a inizio buffer000984 6E?? 01487 movwf TxTailL000986 0E01 01488 movlw HIGH(TxBuffer)000988 6E?? 01489 movwf TxTailH00098A 0012 01490 return0149100098C 01492 Start:00098C 0100 01493 movlb 0x00MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 31LOC OBJECT CODE LINE SOURCE TEXTVALUE00098E EC?? F??? 01494 call InitIO000992 9A89 01495 bcf LATA, RA5 ; bit READY01496000994 01497 Main:000994 A88A 01498 btfss LATB, KCLKO ; se TX disabilitato salta000996 D??? 01499 bra Main2000998 EC?? F??? 01500 call KbdProc00099C 66?? 01501 tstfsz TxCnt ; coda TX vuota00099E D??? 01502 rcall SndProc ; invia word codice ad host0009A0 01503 Main2:0009A0 BE?? 01504 btfsc KFRFlag, KFRFULL ; host richiede servizio ?0009A2 D??? 01505 rcall KFRRead ; si - lettura registro KFR0009A4 D??? 01506 bra Main0150701508 #include romtbl.inc0000100002 ;NOLIST000030000400005 RomTbl code_pack00006 ; Fill000000 00 00 00 00 00 00007 dw 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x000000 00 00 00 0000 00 00 00 00000000800009 ; mappa codici ASCII tastiera USA000010 00010 USTBL:000010 60 7E 00011 DB "`", "~"000012 31 21 00012 DB "1", "!"000014 32 40 00013 DB "2", "@"000016 34 24 00014 DB "4", "$"000018 33 23 00015 DB "3", "#"00001A 35 25 00016 DB "5", "%"00001C 36 5E 00017 DB "6", "^"00001E 37 26 00018 DB "7", "&"000020 38 2A 00019 DB "8", "*"000022 2C 3C 00020 DB ",", "<"000024 30 29 00021 DB "0", ")"000026 39 28 00022 DB "9", "("000028 2E 3E 00023 DB ".", ">"00002A 2F 3F 00024 DB "/", "?"00002C 3B 3A 00025 DB ";", ":"00002E 2D 5F 00026 DB "-", "_"000030 27 22 00027 DB "'", "\""000032 5B 7B 00028 DB "[", "{"000034 3D 2B 00029 DB "=", "+"000036 5D 7D 00030 DB "]", "}"000038 5C 7C 00031 DB "\\", "|"0003200033 ; tabella tasti speciali SHIFT, ALT, CTRL, CTRL+ALT00003A 00034 SPCKEY2:00003A 01 02 03 04 00035 DB KB_SHIFTPRT, KB_ALTPRT, KB_CTLPRT, KB_ALTCTLPRTMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 32LOC OBJECT CODE LINE SOURCE TEXTVALUE00003E 05 06 07 08 00036 DB KB_SHIFTHOME, KB_ALTHOME, KB_CTLHOME, KB_ALTCTLHOME000042 09 0A 0B 0C 00037 DB KB_SHIFTINS, KB_ALTINS, KB_CTLINS, KB_ALTCTLINS000046 0D 0E 0F 10 00038 DB KB_SHIFTPGUP, KB_ALTPGUP, KB_CTLPGUP, KB_ALTCTLPGUP00004A 11 12 13 14 00039 DB KB_SHIFTPGDWN, KB_ALTPGDWN, KB_CTLPGDWN, KB_ALTCTLPGDWN00004E 15 16 17 80 00040 DB KB_SHIFTEND, KB_ALTEND, KB_CTLEND, KB_ALTCTLEND000052 18 19 1A 81 00041 DB KB_SHIFTDEL, KB_ALTDEL, KB_CTLDEL, KB_ALTCTLDEL000056 1B 1C 1D 82 00042 DB KB_SHIFTBKS, KB_ALTBKS, KB_CTLBKS, KB_ALTCTLBKS00005A 00 1E 1F 88 00043 DB 0x00, KB_ALTESC, KB_CTLESC, KB_ALTCTLESC00005E 00 20 21 22 00044 DB 0x00, KB_ALTTAB, KB_CTLTAB, KB_ALTCTLTAB000062 00 23 24 25 00045 DB 0x00, KB_ALTPLUS, KB_CTLPLUS, KB_ALTCTLPLUS000066 00 26 27 28 00046 DB 0x00, KB_ALTMINUS, KB_CTLMINUS, KB_ALTCTLMINUS0004700048 ; tabella flag tasti speciali SHIFT, ALT, CTRL, CTRL+ALT00006A 00049 SPCKEY3:00006A A0 A0 A0 A0 00050 DB 0xA0, 0xA0, 0xA0, 0xA000006E A0 A0 A0 A0 00051 DB 0xA0, 0xA0, 0xA0, 0xA0000072 A0 A0 A0 A0 00052 DB 0xA0, 0xA0, 0xA0, 0xA0000076 A0 A0 A0 A0 00053 DB 0xA0, 0xA0, 0xA0, 0xA000007A A0 A0 A0 A0 00054 DB 0xA0, 0xA0, 0xA0, 0xA000007E A0 A0 A0 C0 00055 DB 0xA0, 0xA0, 0xA0, 0xC0000082 A0 A0 A0 C0 00056 DB 0xA0, 0xA0, 0xA0, 0xC0000086 A0 A0 A0 C0 00057 DB 0xA0, 0xA0, 0xA0, 0xC000008A A0 A0 A0 C0 00058 DB 0xA0, 0xA0, 0xA0, 0xC000008E A0 A0 A0 A0 00059 DB 0xA0, 0xA0, 0xA0, 0xA0000092 A0 A0 A0 A0 00060 DB 0xA0, 0xA0, 0xA0, 0xA0000096 A0 A0 A0 A0 00061 DB 0xA0, 0xA0, 0xA0, 0xA00006200063 ; tabella tasti speciali00009A 00064 SPCKEY:00009A 83 00065 DB KB_PRTSCN00009B 85 00066 DB KB_HOME00009C 86 00067 DB KB_INSERT00009D 88 00068 DB KB_PGUP00009E 8A 00069 DB KB_PGDOWN00009F 8C 00070 DB KB_END0000A0 8E 00071 DB KB_DELETE0000A1 90 00072 DB KB_BACKSPACE0000A2 1B 00073 DB KB_ESCAPE0000A3 09 00074 DB KB_TAB0000A4 2B 00075 DB '+'0000A5 2D 00076 DB '-'0000A6 FF 00077 DB 0xFF0007800079 ; SEQUENZA E0 12 E0 7C PRTSCR DOWN (SIMULA SHIFT *)00080 ; SEQUENZA E0 F0 7C E0 F0 12 PRTSCR UP00081 ; SEQUENXA E1 14 77 E1 F0 14 F0 77 PAUSE (SIMULA L-CTRL NUMLOCK)00082 ; E1 indica tasti no-repeat0008300084 ; PRIORITA' MODIFICATORI: ALT CTRL SHIFT CAPS/NUMLOCK00085MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 33LOC OBJECT CODE LINE SOURCE TEXTVALUE00086 ; Tabella codici prefissati da E1 - Tasto PAUSE (solo make)00087 ; scan code: E1 14 77 E1 F0 14 F0 77 - di seguito la sequenza aspettata0000A7 00088 EXT1TBL:0000A7 14 77 E1 F0 14 00089 db 0x14, 0x77, 0xE1, 0xF0, 0x14, 0xF0, 0x77F0 770009000091 ; Tabella codici estesi (prefisso E0)00092 ; NOTA: codice make PRNT -> E0 12 E0 7C (simula SHIFT *)00093 ; codice break PRNT -> E0 F0 7C E0 F0 1200094 ; Tutte le sequenze E0 12 / E0 F0 12 / E0 59 / E0 F0 5900095 ; vengono scartate00096 ; Per la combinazione CTRL BREAK (E0 7E E0 F0 7E) viene analizzata00097 ; solo la parte che simula il rilascio (E0 F0 7E)0000AE 00098 EXTTBL:0000AE 7C 00099 DB 0x7C ; PRNT RILOCATO $000000AF 11 00100 DB 0x11 ; R-ALT RILOCATO $100000B0 14 00101 DB 0x14 ; R-CTRL RILOCATO $0F0000B1 70 00102 DB 0x70 ; INS RILOCATO $130000B2 71 00103 DB 0x71 ; DEL RILOCATO $080000B3 6C 00104 DB 0x6C ; HOME RILOCATO $170000B4 69 00105 DB 0x69 ; END RILOCATO $180000B5 7A 00106 DB 0x7A ; PG-DOWN RILOCATO $190000B6 7D 00107 DB 0x7D ; PG-UP RILOCATO $200000B7 75 00108 DB 0x75 ; CSR-UP RILOCATO $280000B8 6B 00109 DB 0x6B ; CSR-LEFT RILOCATO $300000B9 72 00110 DB 0x72 ; CSR-DOWN RILOCATO $380000BA 74 00111 DB 0x74 ; CSR-RIGHT RILOCATO $390000BB 5A 00112 DB 0x5A ; KP-ENTER RILOCATO $5A0000BC 4A 00113 DB 0x4A ; KP / RILOCATO $5F0000BD 1F 00114 DB 0x1F ; L=GUI RILOCATO $1F0000BE 27 00115 DB 0x27 ; R-GUI RILOCATO $270000BF 2F 00116 DB 0x2F ; APPS RILOCATO $2F0000C0 37 00117 DB 0x37 ; PWR RILOCATO $370000C1 3F 00118 DB 0x3F ; SLEEP RILOCATO $3F0000C2 5E 00119 DB 0x5E ; WAKE RILOCATO $5E0000C3 7E 00120 DB 0x7E ; CTRL-BREAK RILOCATO $480000C4 FF 00121 DB 0xFF ; FINE TABELLA0012200123 ; Tabella rilocazione codici estesi (prefisso E0)0000C5 00124 EXTRLTBL:0000C5 00 00125 DB 0x00 ; PRNT RILOCATO $000000C6 10 00126 DB 0x10 ; R-ALT RILOCATO $100000C7 0F 00127 DB 0x0F ; R-CTRL RILOCATO $0F0000C8 13 00128 DB 0x13 ; INS RILOCATO $130000C9 08 00129 DB 0x08 ; DEL RILOCATO $080000CA 17 00130 DB 0x17 ; HOME RILOCATO $170000CB 18 00131 DB 0x18 ; END RILOCATO $180000CC 19 00132 DB 0x19 ; PG-DOWN RILOCATO $190000CD 20 00133 DB 0x20 ; PG-UP RILOCATO $200000CE 28 00134 DB 0x28 ; CSR-UP RILOCATO $280000CF 30 00135 DB 0x30 ; CSR-LEFT RILOCATO $300000D0 38 00136 DB 0x38 ; CSR-DOWN RILOCATO $380000D1 39 00137 DB 0x39 ; CSR-RIGHT RILOCATO $39MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 34LOC OBJECT CODE LINE SOURCE TEXTVALUE0000D2 5A 00138 DB 0x5A ; KP-ENTER RILOCATO $5A0000D3 5F 00139 DB 0x5F ; KP / RILOCATO $5F0000D4 1F 00140 DB 0x1F ; L=GUI RILOCATO $1F0000D5 27 00141 DB 0x27 ; R-GUI RILOCATO $270000D6 2F 00142 DB 0x2F ; APPS RILOCATO $2F0000D7 37 00143 DB 0x37 ; PWR RILOCATO $370000D8 3F 00144 DB 0x3F ; SLEEP RILOCATO $3F0000D9 5E 00145 DB 0x5E ; WAKE RILOCATO $5E0000DA 48 00146 DB 0x48 ; CTRL-BREAK RILOCATO $480014700148 ; Codici normali da rilocare00149 ; I codici da 70 a 7E vanno rilocati in 60 - 6E0000DB 00150 DEFTBL:0000DB 83 00151 DB 0x83 ; F7 RILOCATO $020000DC 84 00152 DB 0x84 ; ALT SYSREQ RILOCATO $400000DD 66 00153 DB 0x66 ; BACKSPACE RILOCATO $470000DE 69 00154 DB 0x69 ; KP 1 RILOCATO $4F0000DF 6B 00155 DB 0x6B ; KP 4 RILOCATO $500000E0 6C 00156 DB 0x6C ; KP 7 RILOCATO $510000E1 61 00157 DB 0x61 ; IT <> RILOCATO $53 (TASTO 45)0000E2 FF 00158 DB 0xFF ; FINE TABELLA0015900160 ; Tabella rilocazione codici normali0000E3 00161 DEFRLTBL:0000E3 02 00162 DB 0x02 ; F7 RILOCATO $020000E4 40 00163 DB 0x40 ; ALT SYSREQ RILOCATO $400000E5 47 00164 DB 0x47 ; BACKSPACE RILOCATO $470000E6 4F 00165 DB 0x4F ; KP 1 RILOCATO $4F0000E7 50 00166 DB 0x50 ; KP 4 RILOCATO $500000E8 51 00167 DB 0x51 ; KP 7 RILOCATO $510000E9 53 00168 DB 0x53 ; IT <> RILOCATO $530016900170 ; seconda tabella di conversione (da codice scansione rilocato a semi ASCII)00171 ; indice accesso da 00 a 6E00172 ; la tabella ritorna un codice tra 00 e 7A esclusi 0B, 0F e range 57..6000173 ; i codici relativi alle lettere a..z vengono restituiti come 'a'..'z'00174 ; i codici 42..56 sono quelli da distinguere tra mappa US e mappa IT00175 ; i valori 0xFF indicano codice non valido0000EA 00176 CVTTBL0000EA 1E 00177 DB PRTCODE ; 00 *PRNT0000EB 3E 00178 DB 0x3E ; 01 F90000EC 3C 00179 DB 0x3C ; 02 *F70000ED 3A 00180 DB 0x3A ; 03 F50000EE 38 00181 DB 0x38 ; 04 F30000EF 36 00182 DB FNCCODE ; 05 F10000F0 37 00183 DB 0x37 ; 06 F20000F1 41 00184 DB 0x41 ; 07 F120000F2 35 00185 DB 0x35 ; 08 *DEL0000F3 3F 00186 DB 0x3F ; 09 F100000F4 3D 00187 DB 0x3D ; 0A F80000F5 3B 00188 DB 0x3B ; 0B F60000F6 39 00189 DB 0x39 ; 0C F40000F7 0E 00190 DB 0x0E ; 0D TABMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 35LOC OBJECT CODE LINE SOURCE TEXTVALUE0000F8 42 00191 DB 0x42 ; 0E `~ IT \|0000F9 04 00192 DB 0x04 ; 0F *R-CTRL0000FA 05 00193 DB 0x05 ; 10 *R-ALT0000FB 02 00194 DB 0x02 ; 11 L- ALT0000FC 00 00195 DB 0x00 ; 12 L-SHIFT0000FD 2B 00196 DB INSCODE ; 13 *INS0000FE 01 00197 DB 0x01 ; 14 L-CTRL0000FF 71 00198 DB 'q' ; 15 qQ000100 43 00199 DB 0x43 ; 16 1! IT 1!000101 32 00200 DB 0x32 ; 17 *HOME000102 2C 00201 DB 0x2C ; 18 *END000103 2E 00202 DB 0x2E ; 19 *PG-DOWN000104 7A 00203 DB 'z' ; 1A zZ000105 73 00204 DB 's' ; 1B sS000106 61 00205 DB 'a' ; 1C aA000107 77 00206 DB 'w' ; 1D wW000108 44 00207 DB 0x44 ; 1E 2@ IT 2"000109 1C 00208 DB 0x1C ; 1F *L-GUI00010A 34 00209 DB 0x34 ; 20 *PG-UP00010B 63 00210 DB 'c' ; 21 cC00010C 78 00211 DB 'x' ; 22 xX00010D 64 00212 DB 'd' ; 23 dD00010E 65 00213 DB 'e' ; 24 eE00010F 45 00214 DB 0x45 ; 25 4$ IT 4$000110 46 00215 DB 0x46 ; 26 3# IT 3 LIRA000111 1B 00216 DB 0x1B ; 27 *R-GUI000112 33 00217 DB 0x33 ; 28 *CSR-UP000113 14 00218 DB 0x14 ; 29 SPACE000114 76 00219 DB 'v' ; 2A vV000115 66 00220 DB 'f' ; 2B fF000116 74 00221 DB 't' ; 2C tT000117 72 00222 DB 'r' ; 2D rR000118 47 00223 DB 0x47 ; 2E 5% IT 5% (EURO)000119 1D 00224 DB 0x1D ; 2F *APPS00011A 2F 00225 DB 0x2F ; 30 *CSR-LEFT00011B 6E 00226 DB 'n' ; 31 nN00011C 62 00227 DB 'b' ; 32 bB00011D 68 00228 DB 'h' ; 33 hH00011E 67 00229 DB 'g' ; 34 gG00011F 79 00230 DB 'y' ; 35 yY000120 48 00231 DB 0x48 ; 36 6^ IT 6&000121 1A 00232 DB 0x1A ; 37 *PWR000122 2D 00233 DB 0x2D ; 38 *CSR-DOWN000123 31 00234 DB 0x31 ; 39 *CSR-RIGHT000124 6D 00235 DB 'm' ; 3A mM000125 6A 00236 DB 'j' ; 3B jJ000126 75 00237 DB 'u' ; 3C uU000127 49 00238 DB 0x49 ; 3D 7& IT 7/000128 4A 00239 DB 0x4A ; 3E 8* IT 8(000129 19 00240 DB 0x19 ; 3F *SLEEP00012A 17 00241 DB SYSCODE ; 40 *ALT SYSREQ00012B 4B 00242 DB 0x4B ; 41 ,< IT ,:00012C 6B 00243 DB 'k' ; 42 kKMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 36LOC OBJECT CODE LINE SOURCE TEXTVALUE00012D 69 00244 DB 'i' ; 43 iI00012E 6F 00245 DB 'o' ; 44 oO00012F 4C 00246 DB 0x4C ; 45 0) IT 0=000130 4D 00247 DB 0x4D ; 46 9( IT 9)000131 15 00248 DB 0x15 ; 47 *BACKSPACE000132 16 00249 DB CBRKCODE ; 48 *CTRL-BREAK000133 4E 00250 DB 0x4E ; 49 .> IT .:000134 4F 00251 DB 0x4F ; 4A /? IT -_000135 6C 00252 DB 'l' ; 4B lL000136 50 00253 DB 0x50 ; 4C ;: IT oc@000137 70 00254 DB 'p' ; 4D pP000138 51 00255 DB 0x51 ; 4E -_ IT '?000139 21 00256 DB 0x21 ; 4F *KP 100013A 24 00257 DB 0x24 ; 50 *KP 400013B 27 00258 DB 0x27 ; 51 *KP 700013C 52 00259 DB 0x52 ; 52 '" IT ao#00013D 0C 00260 DB 0x0C ; 53 *IT <>00013E 53 00261 DB 0x53 ; 54 [{ IT ee[{00013F 54 00262 DB 0x54 ; 55 =+ IT i^000140 FF 00263 DB 0xFF ; 56000141 FF 00264 DB 0xFF ; 57000142 06 00265 DB CAPSCODE ; 58 CAPS LOCK000143 03 00266 DB 0x03 ; 59 R-SHIFT000144 0A 00267 DB CRCODE ; 5A ENTER <*KP ENTER>000145 55 00268 DB 0x55 ; 5B ]} IT +*]}000146 FF 00269 DB 0xFF ; 5C000147 56 00270 DB 0x56 ; 5D \| IT paragrafo u000148 18 00271 DB 0x18 ; 5E *WAKE000149 10 00272 DB KPBARCODE ; 5F *<KP />00014A 20 00273 DB KP0CODE ; 60 *KP 000014B 2A 00274 DB 0x2A ; 61 *KP .00014C 22 00275 DB 0x22 ; 62 *KP 200014D 25 00276 DB 0x25 ; 63 *KP 500014E 26 00277 DB 0x26 ; 64 *KP 600014F 28 00278 DB 0x28 ; 65 *KP 8000150 1F 00279 DB ESCCODE ; 66 *ESC000151 07 00280 DB 0x07 ; 67 *NUM-LOCK000152 40 00281 DB 0x40 ; 68 *F11000153 11 00282 DB 0x11 ; 69 *KP +000154 23 00283 DB 0x23 ; 6A *KP 3000155 12 00284 DB 0x12 ; 6B *KP -000156 13 00285 DB 0x13 ; 6C *KP *000157 29 00286 DB 0x29 ; 6D *KP 9000158 08 00287 DB 0x08 ; 6E *SCROLL-LOCK000159 FF 00288 DB 0xFF0028900290 ; tabella flag RptSt per tasti NO REPEAT00015A 00291 RPTTBL:00015A 20 00292 DB WAKEM ; WAKE UP00015B 40 00293 DB SLEEPM ; SLEEP00015C 80 00294 DB PWRM ; POWER00015D 08 00295 DB RGUIM ; R-GUI00015E 10 00296 DB LGUIM ; L-GUIMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 37LOC OBJECT CODE LINE SOURCE TEXTVALUE00015F 04 00297 DB GUIAPPM ; GUI APP000160 01 00298 DB PRINTM ; PRINT SCRN000161 02 00299 DB ESCAPEM ; ESC0030000301 ; tabella conversione codici restituiti da CVTTBL a tasti effettivi000162 00302 KEYTBL:00303 ; questi indici impostano i flag di CtlSt e ShfSt00304 ; rispecchiano lo stato di pressione/rilascio tasti SHIFT,ALT e CTRL000162 01 00305 DB LSHFM ; 00 L-SHIFT000163 02 00306 DB LCTLM ; 01 L-CTRL000164 04 00307 DB LALTM ; 02 L-ALT000165 08 00308 DB RSHFM ; 03 R-SHIFT000166 10 00309 DB RCTLM ; 04 R-CTRL000167 20 00310 DB RALTM ; 05 R-ALT0031100312 ; questi indici impostano i flag di TglSt00313 ; rispecchiano lo stato dei tasti CAPS-LOCK/NUM-LOCK/SCROLL-LOCK/PAUSE00314 ; NOTA: PAUSE non ha codice di rilascio000168 80 00315 DB CAPSM ; 06 CAPS-LOCK000169 40 00316 DB NUMLM ; 07 NUM-LOCK00016A 20 00317 DB SCRLM ; 08 SCROLL-LOCK00318 ; il tasto PAUSE va trattato come un tasto toggle00016B 10 00319 DB PAUSM ; 09 PAUSE0032000321 ; i tasti seguenti vanno testati con lo shift00016C 0D 00322 DB KB_CR ; 0A ENTER00016D 8D 00323 DB KB_SHCR ; 0B SHIFT ENTER00016E 3C 00324 DB '<' ; 0C IT <00016F 3E 00325 DB '>' ; 0D SHIFT IT >000170 09 00326 DB KB_TAB ; 0E TAB000171 89 00327 DB KB_SHTAB ; 0F SHIFT TAB0032800329 ; questi indici non vanno trattati eccetto ESC/PRINT SCRN00330 ; per il tasto esc va impostato il flag premuto/rilasciato000172 2F 00331 DB '/' ; 10 KP /000173 2B 00332 DB '+' ; 11 KP +000174 2D 00333 DB '-' ; 12 KP -000175 2A 00334 DB '*' ; 13 KP *000176 20 00335 DB ' ' ; 14 SPACE000177 90 00336 DB KB_BACKSPACE ; 15 BACKSPACE000178 83 00337 DB KB_CTRLBREAK ; 16 CTRL BREAK000179 84 00338 DB KB_ALTSYSREQ ; 17 ALT SYS REQ00017A 85 00339 DB KB_WAKE ; 18 WAKE00017B 86 00340 DB KB_SLEEP ; 19 SLEEP00017C 87 00341 DB KB_PWR ; 1A PWR00017D 80 00342 DB KB_RIGHTGUI ; 1B R-GUI00017E 81 00343 DB KB_LEFTGUI ; 1C L-GUI00017F 82 00344 DB KB_GUIMENU ; 1D APPS/MENU000180 83 00345 DB KB_PRTSCN ; 1E PRTSCN/SYSRQ000181 1B 00346 DB KB_ESCAPE ; 1F ESC0034700348 ; tasti numerici vanno trattati specialmente000182 30 00349 DB '0' ; 20 KP 0MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 38LOC OBJECT CODE LINE SOURCE TEXTVALUE000183 31 00350 DB '1' ; 21 KP 1000184 32 00351 DB '2' ; 22 KP 2000185 33 00352 DB '3' ; 23 KP 3000186 34 00353 DB '4' ; 24 KP 4000187 35 00354 DB '5' ; 25 KP 5000188 36 00355 DB '6' ; 26 KP 6000189 37 00356 DB '7' ; 27 KP 700018A 38 00357 DB '8' ; 28 KP 800018B 39 00358 DB '9' ; 29 KP 900018C 2E 00359 DB '.' ; 2A KP .0036000361 ; tasti cursore: INSERT va trattato specialmente (toggle bit)00018D 86 00362 DB KB_INSERT ; 2B INS00018E 8C 00363 DB KB_END ; 2C END00018F 8B 00364 DB KB_CSRDOWN ; 2D CSR DOWN000190 8A 00365 DB KB_PGDOWN ; 2E PG DOWN000191 8F 00366 DB KB_CSRLEFT ; 2F CSR LEFT000192 00 00367 DB 0x00 ; 30 - TASTO NULL000193 87 00368 DB KB_CSRRIGHT ; 31 CSR RIGHT000194 85 00369 DB KB_HOME ; 32 HOME000195 84 00370 DB KB_CSRUP ; 33 CSR UP000196 88 00371 DB KB_PGUP ; 34 PG UP000197 8E 00372 DB KB_DELETE ; 35 DEL0037300374 ; tasti funzione000198 A0 00375 DB KB_F1 ; 36 F1000199 A1 00376 DB KB_F2 ; 37 F200019A A2 00377 DB KB_F3 ; 38 F300019B A3 00378 DB KB_F4 ; 39 F400019C A4 00379 DB KB_F5 ; 3A F500019D A5 00380 DB KB_F6 ; 3B F600019E A6 00381 DB KB_F7 ; 3C F700019F A7 00382 DB KB_F8 ; 3D F80001A0 A8 00383 DB KB_F9 ; 3E F90001A1 A9 00384 DB KB_F10 ; 3F F100001A2 AA 00385 DB KB_F11 ; 40 F110001A3 AB 00386 DB KB_F12 ; 41 F120038700388 ; tabella flag codice corrispondente a KEYTBL00389 ; 0x00 -> codice ASCII00390 ; 0x10 -> codice ASCII + flag toggle 4 bit low00391 ; 0x80 -> invia status shift/alt/ctrl00392 ; 0x90 -> invia status toggle00393 ; 0xA0 -> codice di controllo00394 ; 0xB0 -> codice di controllo + flag toggle 4 bit low00395 ; 0xC0 -> codice tasto NMI0001A4 00396 FLGTBL:00397 ; questi valori non sono usati - il tasto viene trattato a parte0001A4 80 00398 DB 0x80 ; 00 L-SHIFT0001A5 80 00399 DB 0x80 ; 01 L-CTRL0001A6 80 00400 DB 0x80 ; 02 L-ALT0001A7 80 00401 DB 0x80 ; 03 R-SHIFT0001A8 80 00402 DB 0x80 ; 04 R-CTRLMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 39LOC OBJECT CODE LINE SOURCE TEXTVALUE0001A9 80 00403 DB 0x80 ; 05 R-ALT0001AA 90 00404 DB 0x90 ; 06 CAPS-LOCK0001AB 90 00405 DB 0x90 ; 07 NUM-LOCK0001AC 90 00406 DB 0x90 ; 08 SCROLL-LOCK0001AD 90 00407 DB 0x90 ; 09 PAUSE0001AE 00 00408 DB 0x00 ; 0A ENTER0001AF A0 00409 DB 0xA0 ; 0B SHIFT ENTER0001B0 00 00410 DB 0x00 ; 0C IT <0001B1 00 00411 DB 0x00 ; 0D SHIFT IT >0001B2 00 00412 DB 0x00 ; 0E TAB0001B3 A0 00413 DB 0xA0 ; 0F SHIFT TAB0001B4 00 00414 DB 0x00 ; 10 KP /0001B5 00 00415 DB 0x00 ; 11 KP +0001B6 00 00416 DB 0x00 ; 12 KP -0001B7 00 00417 DB 0x00 ; 13 KP *0001B8 00 00418 DB 0x00 ; 14 SPACE0001B9 A0 00419 DB 0xA0 ; 15 BACKSPACE0001BA C0 00420 DB 0xC0 ; 16 CTRL BREAK0001BB C0 00421 DB 0xC0 ; 17 ALT SYS REQ0001BC C0 00422 DB 0xC0 ; 18 WAKE0001BD C0 00423 DB 0xC0 ; 19 SLEEP0001BE C0 00424 DB 0xC0 ; 1A PWR0001BF A0 00425 DB 0xA0 ; 1B R-GUI0001C0 A0 00426 DB 0xA0 ; 1C L-GUI0001C1 A0 00427 DB 0xA0 ; 1D APPS/MENU0001C2 B0 00428 DB 0xB0 ; 1E PRTSCN/SYSRQ0001C3 10 00429 DB 0x10 ; 1F ESC0001C4 00 00430 DB 0x00 ; 20 KP 00001C5 00 00431 DB 0x00 ; 21 KP 10001C6 00 00432 DB 0x00 ; 22 KP 20001C7 00 00433 DB 0x00 ; 23 KP 30001C8 00 00434 DB 0x00 ; 24 KP 40001C9 00 00435 DB 0x00 ; 25 KP 50001CA 00 00436 DB 0x00 ; 26 KP 60001CB 00 00437 DB 0x00 ; 27 KP 70001CC 00 00438 DB 0x00 ; 28 KP 80001CD 00 00439 DB 0x00 ; 29 KP 90001CE 00 00440 DB 0x00 ; 2A KP .0001CF B0 00441 DB 0xB0 ; 2B INS0001D0 A0 00442 DB 0xA0 ; 2C END0001D1 A0 00443 DB 0xA0 ; 2D CSR DOWN0001D2 A0 00444 DB 0xA0 ; 2E PG DOWN0001D3 A0 00445 DB 0xA0 ; 2F CSR LEFT0001D4 A0 00446 DB 0xA0 ; 30 - TASTO NULL0001D5 A0 00447 DB 0xA0 ; 31 CSR RIGHT0001D6 A0 00448 DB 0xA0 ; 32 HOME0001D7 A0 00449 DB 0xA0 ; 33 CSR UP0001D8 A0 00450 DB 0xA0 ; 34 PG UP0001D9 A0 00451 DB 0xA0 ; 35 DEL0001DA A0 00452 DB 0xA0 ; 36 F10001DB A0 00453 DB 0xA0 ; 37 F20001DC A0 00454 DB 0xA0 ; 38 F30001DD A0 00455 DB 0xA0 ; 39 F4MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 40LOC OBJECT CODE LINE SOURCE TEXTVALUE0001DE A0 00456 DB 0xA0 ; 3A F50001DF A0 00457 DB 0xA0 ; 3B F60001E0 A0 00458 DB 0xA0 ; 3C F70001E1 A0 00459 DB 0xA0 ; 3D F80001E2 A0 00460 DB 0xA0 ; 3E F90001E3 A0 00461 DB 0xA0 ; 3F F100001E4 A0 00462 DB 0xA0 ; 40 F110001E5 A0 00463 DB 0xA0 ; 41 F12004640150901510 endMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 41SYMBOL TABLELABEL VALUEA 00000000AALTB 00000007AALTM 00000080ABDEN 00000000ABDOVF 00000007ACCESS 00000000ACKDT 00000005ACKEN 00000004ACKSTAT 00000006ACQT0 00000003ACQT1 00000004ACQT2 00000005ACTLB 00000006ACTLM 00000040ADCON0 00000FC2ADCON1 00000FC1ADCON2 00000FC0ADCS0 00000000ADCS1 00000001ADCS2 00000002ADDEN 00000003ADEN 00000003ADFM 00000007ADIE 00000006ADIF 00000006ADIP 00000006ADMSK1 00000001ADMSK2 00000002ADMSK3 00000003ADMSK4 00000004ADMSK5 00000005ADON 00000000ADRES 00000FC3ADRESH 00000FC4ADRESL 00000FC3ALLALTCTLM 000000C0ALTCTLB 00000006ALTCTLKEY0 00000050ALTCTLM 00000040ALTKEY0 00000030ALTKM 00000024AN0 00000000AN1 00000001AN10 00000001AN11 00000004AN12 00000000AN2 00000002AN3 00000003AN4 00000005AN5 00000000AN6 00000001AN7 00000002AN8 00000002MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 42SYMBOL TABLELABEL VALUEAN9 00000003ASHFB 00000007ASHFM 00000080BANKED 00000001BAUDCON 00000FB8BAUDCTL 00000FB8BCLIE 00000003BCLIF 00000003BCLIP 00000003BF 00000000BGST 00000005BOR 00000000BRG16 00000003BRGH 00000002BSR 00000FE0C 00000000C1INV 00000004C1OUT_CMCON 00000006C1OUT_PORTA 00000004C2INV 00000005C2OUT_CMCON 00000007C2OUT_PORTA 00000005CAPSB 00000007CAPSCODE 00000006CAPSM 00000080CBRKCODE 00000016CCP1 00000002CCP1CON 00000FBDCCP1IE 00000002CCP1IF 00000002CCP1IP 00000002CCP1M0 00000000CCP1M1 00000001CCP1M2 00000002CCP1M3 00000003CCP1X 00000005CCP1Y 00000004CCP2CON 00000FBACCP2IE 00000000CCP2IF 00000000CCP2IP 00000000CCP2M0 00000000CCP2M1 00000001CCP2M2 00000002CCP2M3 00000003CCP2X 00000005CCP2Y 00000004CCP2_PORTB 00000003CCP2_PORTC 00000001CCPR1 00000FBECCPR1H 00000FBFCCPR1L 00000FBECCPR2 00000FBBMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 43SYMBOL TABLELABEL VALUECCPR2H 00000FBCCCPR2L 00000FBBCFGS 00000006CHS0 00000002CHS1 00000003CHS2 00000004CHS3 00000005CIS 00000003CK 00000006CKE 00000006CKP 00000004CLKI 00000007CLKO 00000006CM0 00000000CM1 00000001CM2 00000002CMCON 00000FB4CMIE 00000006CMIF 00000006CMIP 00000006CNTMSTMR0 (0x10000 - ((count * D'625')) / D'32')CNTTMR0 (0x10000 - ((count * D'1250')))CNTUSTMR0 (0x10000 - (count * 5))CRCODE 0000000ACREN 00000004CRSLEN 0000000BCS 00000002CSRC 00000007CTLKEY0 00000040CTRLKM 00000012CVR0 00000000CVR1 00000001CVR2 00000002CVR3 00000003CVRCON 00000FB5CVREF 00000002CVREN 00000007CVROE 00000006CVRR 00000005CVRSS 00000004CVTTBL 000000EACaps 0000002CClrRX 00000400Cmd0 000008B6Cmd1 000008C0Cmd2 000008EACmdEnd 000008F6CmdRsp 000008ECCtlSt 00000022D 00000005DC 00000001DC1B0 00000004DC1B1 00000005MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 44SYMBOL TABLELABEL VALUEDC2B0 00000004DC2B1 00000005DDRA TRISADDRB TRISBDDRC TRISCDDRD TRISDDDRE TRISEDEFRLTBL 000000E3DEFTBL 000000DBDONE 00000001D_A 00000005D_NOT_A 00000005Delay_ms 00000376Delay_us 0000037ADelay_xx 0000037CDelay_xx1 0000038AE1Cnt 0000000AE1PtrH 00000009E1PtrL 00000008E1SEQCNT 00000007E1Test 000003FCECCP1AS 00000FB6ECCP1DEL 00000FB7ECCPAS 00000FB6ECCPAS0 00000004ECCPAS1 00000005ECCPAS2 00000006ECCPASE 00000007EEADR 00000FA9EECON1 00000FA6EECON2 00000FA7EEDATA 00000FA8EEIE 00000004EEIF 00000004EEIP 00000004EEPGD 00000007ESCAPEM 00000002ESCB 00000001ESCCODE 0000001FESCM 00000002ESCPRNM 00000003EXT1TBL 000000A7EXTRLTBL 000000C5EXTTBL 000000AEFAST 00000001FERR 00000002FLGTBL 000001A4FLT0 00000000FLTS 00000002FNCCODE 00000036FREE 00000004FSR0 00000000FSR0H 00000FEAMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 45SYMBOL TABLELABEL VALUEFSR0L 00000FE9FSR1 00000001FSR1H 00000FE2FSR1L 00000FE1FSR2 00000002FSR2H 00000FDAFSR2L 00000FD9FnAdd 00000714FnNoShf 00000700GCEN 00000007GIE 00000007GIEH 00000007GIEL 00000006GIE_GIEH 00000007GO 00000001GO_DONE 00000001GO_NOT_DONE 00000001GUIAPPM 00000004GetKbd 0000018CGetKbd10 000001A2GetKeyTbl 00000844GetLine 000000D8GetLine1 000000FCGetLine2 00000102HDRQIN 00000001HLINT 00000000HLNMI 00000001HLVDCON 00000FD2HLVDEN 00000004HLVDIE 00000002HLVDIF 00000002HLVDIN 00000005HLVDIP 00000002HLVDL0 00000000HLVDL1 00000001HLVDL2 00000002HLVDL3 00000003IBF 00000007IBOV 00000005IDLEN 00000007INDF0 00000FEFINDF1 00000FE7INDF2 00000FDFINSCODE 0000002BINSTB 00000002INSTM 00000004INT0 00000000INT0E 00000004INT0F 00000001INT0IE 00000004INT0IF 00000001INT1 00000001INT1E 00000003MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 46SYMBOL TABLELABEL VALUEINT1F 00000000INT1IE 00000003INT1IF 00000000INT1IP 00000006INT1P 00000006INT2 00000002INT2E 00000004INT2F 00000001INT2IE 00000004INT2IF 00000001INT2IP 00000007INT2P 00000007INTCON 00000FF2INTCON2 00000FF1INTCON3 00000FF0INTEDG0 00000006INTEDG1 00000005INTEDG2 00000004INTSRC 00000007IOFS 00000002IPEN 00000007IPR1 00000F9FIPR2 00000FA2IRCF0 00000004IRCF1 00000005IRCF2 00000006IRVST 00000005ITMap 00000532IVRST 00000005Init1 00000214Init10 00000320Init2 0000025CInit3 00000296Init4 00000298Init6 000002D8Init61 000002ECInit62 00000300Init63 00000314InitData 00000338InitData1 0000033EInitData2 0000034EInitIO 000001D6KBACK 00000004KBBAT 00000006KBBAT2 00000004KBD_ACK 000000FAKBD_BAT 000000AAKBD_BRK 000000F0KBD_DEFRATE 0000000BKBD_DEFRATE2 00000037KBD_ECHO 000000EEKBD_ENABLE 000000F4KBD_EXT 000000E0MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 47SYMBOL TABLELABEL VALUEKBD_EXT1 000000E1KBD_GETID 000000F2KBD_IDH 00000083KBD_IDL 000000ABKBD_NOBAT 000000FCKBD_RESEND 000000FEKBD_RESET 000000FFKBD_SETLED 000000EDKBD_SETSC 000000F0KBD_TYPERATE 000000F3KBENABLE 00000002KBFND 00000007KBI0 00000004KBI1 00000005KBI2 00000006KBI3 00000007KBLEDOK 00000000KBNOBAT 00000007KBRATE 00000003KBRX 00000007KBRXERR 0000000CKBSCOK 00000001KBTX 00000006KBVID 00000005KBVOFF 00000006KBVON 00000007KB_ALTBKS 0000001CKB_ALTCTLBKS 00000082KB_ALTCTLDEL 00000081KB_ALTCTLEND 00000080KB_ALTCTLESC 00000088KB_ALTCTLHOME 00000008KB_ALTCTLINS 0000000CKB_ALTCTLMINUS 00000028KB_ALTCTLPGDWN 00000014KB_ALTCTLPGUP 00000010KB_ALTCTLPLUS 00000025KB_ALTCTLPRT 00000004KB_ALTCTLTAB 00000022KB_ALTDEL 00000019KB_ALTEND 00000016KB_ALTESC 0000001EKB_ALTHOME 00000006KB_ALTINS 0000000AKB_ALTMINUS 00000026KB_ALTPGDWN 00000012KB_ALTPGUP 0000000EKB_ALTPLUS 00000023KB_ALTPRT 00000002KB_ALTSYSREQ 00000084KB_ALTTAB 00000020KB_BACKSPACE 00000090KB_CR 0000000DMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 48SYMBOL TABLELABEL VALUEKB_CSRDOWN 0000008BKB_CSRLEFT 0000008FKB_CSRRIGHT 00000087KB_CSRUP 00000084KB_CTLBKS 0000001DKB_CTLDEL 0000001AKB_CTLEND 00000017KB_CTLESC 0000001FKB_CTLHOME 00000007KB_CTLINS 0000000BKB_CTLMINUS 00000027KB_CTLPGDWN 00000013KB_CTLPGUP 0000000FKB_CTLPLUS 00000024KB_CTLPRT 00000003KB_CTLTAB 00000021KB_CTRLBREAK 00000083KB_DELETE 0000008EKB_END 0000008CKB_ESCAPE 0000001BKB_F1 000000A0KB_F10 000000A9KB_F11 000000AAKB_F12 000000ABKB_F2 000000A1KB_F3 000000A2KB_F4 000000A3KB_F5 000000A4KB_F6 000000A5KB_F7 000000A6KB_F8 000000A7KB_F9 000000A8KB_GUIMENU 00000082KB_HOME 00000085KB_INSERT 00000086KB_LEFTGUI 00000081KB_PGDOWN 0000008AKB_PGUP 00000088KB_PRTSCN 00000083KB_PWR 00000087KB_RIGHTGUI 00000080KB_SHCR 0000008DKB_SHIFTBKS 0000001BKB_SHIFTDEL 00000018KB_SHIFTEND 00000015KB_SHIFTHOME 00000005KB_SHIFTINS 00000009KB_SHIFTPGDWN 00000011KB_SHIFTPGUP 0000000DKB_SHIFTPRT 00000001KB_SHTAB 00000089KB_SLEEP 00000086KB_TAB 00000009MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 49SYMBOL TABLELABEL VALUEKB_WAKE 00000085KBuf 0000001BKCLKIN 00000003KCLKO 00000004KCnt 00000018KDATAIN 00000000KDATAO 00000005KEYCTL 00000007KEYCTL2 00000005KEYRLS 00000006KEYTBL 00000162KEYTGL 00000004KFRFULL 00000007KFRFlag 00000002KFRRD 00000000KFRRd0 00000004KFRRd1 00000005KFRRd2 00000006KFRRd3 00000007KFRRdCnt 00000003KFRRead 00000880KFRRead1 0000088CKFRRead2 00000892KFRSRP 00000003KFRSSI 00000005KFRSSN 00000004KFRWE 00000001KFRWrite 0000086EKNoBAT 0000028EKP0CODE 00000020KPARY 00000002KPBARCODE 00000010KPar 00000019KRESET 00000000KSTOP 00000003KStatus 0000001AKTIMEO 00000001KbVerf 00000394KbVerf2 000003C6KbdFlag 0000001DKbdFlag2 0000001EKbdIDH 00000001KbdIDL 00000000KbdInt 00000000KbdInt10 00000020KbdInt11 00000046KbdInt12 00000056KbdInt20 00000072KbdInt99 00000052KbdProc 000003C8KbdProc0 000003D4KbdProc1 0000041CKbdProc10 000004C0MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 50SYMBOL TABLELABEL VALUEKbdProc12 00000586KbdProc13 000005DCKbdProc14 0000062CKbdProc15 0000066AKbdProc16 00000670KbdProc18 0000068EKbdProc2 00000426KbdProc20 0000069AKbdProc21 000006AAKbdProc22 000006B0KbdProc23 000006BCKbdProc24 000006C2KbdProc25 000006D8KbdProc26 000006E0KbdProc3 00000434KbdProc4 0000044EKbdProc40 00000718KbdProc41 0000071AKbdProc42 0000073AKbdProc43 00000748KbdProc5 0000045CKbdProc50 00000758KbdProc6 00000480KbdProc60 00000826KbdProc61 00000828KbdProc7 0000048AKbdProc8 000004AEKey01 00000776Key02 0000077CKey06 00000786Key10 0000079EKey11 000007B0Key12 000007CEKey13 000007D8Key15 000007DEKeySnd 00000816LALTB 00000002LALTM 00000004LATA 00000F89LATA0 00000000LATA1 00000001LATA2 00000002LATA3 00000003LATA4 00000004LATA5 00000005LATA6 00000006LATA7 00000007LATB 00000F8ALATB0 00000000LATB1 00000001LATB2 00000002LATB3 00000003LATB4 00000004MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 51SYMBOL TABLELABEL VALUELATB5 00000005LATB6 00000006LATB7 00000007LATC 00000F8BLATC0 00000000LATC1 00000001LATC2 00000002LATC3 00000003LATC4 00000004LATC5 00000005LATC6 00000006LATC7 00000007LATD 00000F8CLATD0 00000000LATD1 00000001LATD2 00000002LATD3 00000003LATD4 00000004LATD5 00000005LATD6 00000006LATD7 00000007LATE 00000F8DLATE0 00000000LATE1 00000001LATE2 00000002LCTLB 00000001LCTLM 00000002LGUIM 00000010LSHFB 00000000LSHFM 00000001LVDCON 00000FD2LVDEN 00000004LVDIE 00000002LVDIF 00000002LVDIN 00000005LVDIP 00000002LVDL0 00000000LVDL1 00000001LVDL2 00000002LVDL3 00000003LVV0 00000000LVV1 00000001LVV2 00000002LVV3 00000003LedSt 00000026LedUpd 00000662LockSt 00000025MAPALPHA 00000006MAPCODE 00000042MAPCODEMAX 00000056MAPITB 00000007MCLR 00000003MKeyTst 000004FCMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 52SYMBOL TABLELABEL VALUEMain 00000994Main2 000009A0MapCfg 0000002BMapTst 0000050CN 00000004NKeyRls 0000056CNKeySet 00000566NKeyTst 0000053ANMISnd 00000834NMITst 00000570NMITst1 00000578NOT_A 00000005NOT_ADDRESS 00000005NOT_BOR 00000000NOT_CS 00000002NOT_DONE 00000001NOT_MCLR 00000003NOT_PD 00000002NOT_POR 00000001NOT_RBPU 00000007NOT_RD 00000000NOT_RI 00000004NOT_SS 00000005NOT_T1SYNC 00000002NOT_T3SYNC 00000002NOT_TO 00000003NOT_W 00000002NOT_WR 00000001NOT_WRITE 00000002NUMLB 00000006NUMLM 00000040NVCODE 00000060NoPause 00000644OBF 00000006OERR 00000001OSC1 00000007OSC2 00000006OSCCON 00000FD3OSCFIE 00000007OSCFIF 00000007OSCFIP 00000007OSCTUNE 00000F9BOSTS 00000003OV 00000003P 00000004P1A 00000002P1B 00000005P1C 00000006P1D 00000007P1M0 00000006P1M1 00000007PAUSB 00000004PAUSECODE 00000009MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 53SYMBOL TABLELABEL VALUEPAUSM 00000010PC 00000FF9PCFG0 00000000PCFG1 00000001PCFG2 00000002PCFG3 00000003PCL 00000FF9PCLATH 00000FFAPCLATU 00000FFBPD 00000002PDC0 00000000PDC1 00000001PDC2 00000002PDC3 00000003PDC4 00000004PDC5 00000005PDC6 00000006PEIE 00000006PEIE_GIEL 00000006PEN 00000002PGC 00000006PGD 00000007PGM 00000005PIE1 00000F9DPIE2 00000FA0PIR1 00000F9EPIR2 00000FA1PLLEN 00000006PLUSW0 00000FEBPLUSW1 00000FE3PLUSW2 00000FDBPOR 00000001PORTA 00000F80PORTB 00000F81PORTC 00000F82PORTD 00000F83PORTE 00000F84POSTDEC0 00000FEDPOSTDEC1 00000FE5POSTDEC2 00000FDDPOSTINC0 00000FEEPOSTINC1 00000FE6POSTINC2 00000FDEPR2 00000FCBPREINC0 00000FECPREINC1 00000FE4PREINC2 00000FDCPRINTM 00000001PRNSCB 00000000PRNSCM 00000001PROD 00000FF3PRODH 00000FF4PRODL 00000FF3MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 54SYMBOL TABLELABEL VALUEPRSEN 00000007PRTCODE 0000001EPSA 00000003PSP0 00000000PSP1 00000001PSP2 00000002PSP3 00000003PSP4 00000004PSP5 00000005PSP6 00000006PSP7 00000007PSPIE 00000007PSPIF 00000007PSPIP 00000007PSPMODE 00000004PSSAC0 00000002PSSAC1 00000003PSSBD0 00000000PSSBD1 00000001PWM1CON 00000FB7PWRM 00000080PauseKey 00000414PutKey 000005F4R 00000002RA0 00000000RA1 00000001RA2 00000002RA3 00000003RA4 00000004RA5 00000005RA6 00000006RA7 00000007RALTB 00000005RALTM 00000020RB0 00000000RB1 00000001RB2 00000002RB3 00000003RB4 00000004RB5 00000005RB6 00000006RB7 00000007RBIE 00000003RBIF 00000000RBIP 00000000RBMASK 0000000DRBPU 00000007RC0 00000000RC1 00000001RC2 00000002RC3 00000003RC4 00000004RC5 00000005MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 55SYMBOL TABLELABEL VALUERC6 00000006RC7 00000007RCEN 00000003RCIDL 00000006RCIE 00000005RCIF 00000005RCIP 00000005RCMT 00000006RCON 00000FD0RCREG 00000FAERCSTA 00000FABRCTLB 00000004RCTLM 00000010RD 00000000RD0 00000000RD1 00000001RD16 00000007RD2 00000002RD3 00000003RD4 00000004RD5 00000005RD6 00000006RD7 00000007RE0 00000000RE1 00000001RE2 00000002RE3 00000003RESIN 00000002RGUIM 00000008RI 00000004RPTTBL 0000015ARSEN 00000001RSHFB 00000003RSHFM 00000008RX 00000007RX9 00000006RX9D 00000000RXBRK 00000006RXBUFLEN 000000FERXDTP 00000005RXE1ERR 00000003RXEXT 00000005RXEXT1 00000004RXMASK 00000080RXOVR 00000007R_NOT_W 00000002R_W 00000002RptSt 0000002ARxBufEnd 0000013ERxBuffer 00000040RxCnt 0000000CRxCode 0000001FRxData 0000000BMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 56SYMBOL TABLELABEL VALUERxFlag 0000000DRxKeyb 00000078RxKeyb1 00000096RxKeyb2 0000009ARxKeyb3 0000009ERxKeyb4 000000A8RxKeyb5 000000AERxKeyb6 000000B2RxKeyb7 000000C0RxKeyb8 000000C4RxKeyb9 000000CCS 00000003SBOREN 00000006SCK 00000003SCKP 00000004SCL 00000003SCLOCKHSCLOCKLSCRLB 00000005SCRLM 00000020SCS0 00000000SCS1 00000001SDA 00000004SDATAHSDATALSDI 00000004SDO 00000005SEN 00000000SENDB 00000003SHFALL 000000C0SHIFTKM 00000009SKPALL 00000070SKPALTB 00000005SKPCTLB 00000006SKPSHFB 00000004SLEEPM 00000040SMP 00000007SP0 00000000SP1 00000001SP2 00000002SP3 00000003SP4 00000004SPBRG 00000FAFSPBRGH 00000FB0SPCKEY 0000009ASPCKEY2 0000003ASPCKEY3 0000006ASPEN 00000007SREN 00000005SS 00000005SSPADD 00000FC8SSPBUF 00000FC9SSPCON1 00000FC6MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 57SYMBOL TABLELABEL VALUESSPCON2 00000FC5SSPEN 00000005SSPIE 00000003SSPIF 00000003SSPIP 00000003SSPM0 00000000SSPM1 00000001SSPM2 00000002SSPM3 00000003SSPOV 00000006SSPSTAT 00000FC7STATUS 00000FD8STKFUL 00000007STKOVF 00000007STKPTR 00000FFCSTKUNF 00000006SWDTE 00000000SWDTEN 00000000SYNC 00000004SYSCODE 00000017SendKbd 000001AESendKbd10 000001D2SendLed 000001A6SetLed 00000900SetLed1 00000908SetLed2 00000940ShfSt 00000020SndProc 00000944Start 0000098CT016BIT 00000006T08BIT 00000006T0CKI 00000004T0CON 00000FD5T0CS 00000005T0CntH 00000017T0CntL 00000016T0IE 00000005T0IF 00000002T0PS0 00000000T0PS1 00000001T0PS2 00000002T0PS3 00000003T0SE 00000004T100US 0000FE0CT13CKI 00000000T1500MS 00008D90T1CKI 00000000T1CKPS0 00000004T1CKPS1 00000005T1CON 00000FCDT1OSCEN 00000003T1OSI 00000001T1OSO 00000000MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 58SYMBOL TABLELABEL VALUET1RUN 00000006T1SYNC 00000002T20MS 00009E58T20US 0000FF9CT2CKPS0 00000000T2CKPS1 00000001T2CON 00000FCAT2OUTPS0 00000003T2OUTPS1 00000004T2OUTPS2 00000005T2OUTPS3 00000006T3CCP1 00000003T3CCP2 00000006T3CKPS0 00000004T3CKPS1 00000005T3CON 00000FB1T3SYNC 00000002T40MS 00003CB0TABLAT 00000FF5TBLPTR 00000FF6TBLPTRH 00000FF7TBLPTRL 00000FF6TBLPTRU 00000FF8TCtlSt 00000023TLockSt 00000028TMR0 00000FD6TMR0H 00000FD7TMR0IE 00000005TMR0IF 00000002TMR0IP 00000002TMR0L 00000FD6TMR0ON 00000007TMR0P0 00000008TMR0P256 00000007TMR0P4 00000001TMR1 00000FCETMR1CS 00000001TMR1H 00000FCFTMR1IE 00000000TMR1IF 00000000TMR1IP 00000000TMR1L 00000FCETMR1ON 00000000TMR2 00000FCCTMR2IE 00000001TMR2IF 00000001TMR2IP 00000001TMR2ON 00000002TMR3 00000FB2TMR3CS 00000001TMR3H 00000FB3TMR3IE 00000001TMR3IF 00000001MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 59SYMBOL TABLELABEL VALUETMR3IP 00000001TMR3L 00000FB2TMR3ON 00000000TO 00000003TOPRAM 00000300TOS 00000FFDTOSH 00000FFETOSL 00000FFDTOSU 00000FFFTOUTPS0 00000003TOUTPS1 00000004TOUTPS2 00000005TOUTPS3 00000006TPortB 00000029TRISA 00000F92TRISA0 00000000TRISA1 00000001TRISA2 00000002TRISA3 00000003TRISA4 00000004TRISA5 00000005TRISA6 00000006TRISA7 00000007TRISB 00000F93TRISB0 00000000TRISB1 00000001TRISB2 00000002TRISB3 00000003TRISB4 00000004TRISB5 00000005TRISB6 00000006TRISB7 00000007TRISC 00000F94TRISC0 00000000TRISC1 00000001TRISC2 00000002TRISC3 00000003TRISC4 00000004TRISC5 00000005TRISC6 00000006TRISC7 00000007TRISD 00000F95TRISD0 00000000TRISD1 00000001TRISD2 00000002TRISD3 00000003TRISD4 00000004TRISD5 00000005TRISD6 00000006TRISD7 00000007TRISE 00000F96TRISE0 00000000TRISE1 00000001MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 60SYMBOL TABLELABEL VALUETRISE2 00000002TRMT 00000001TShfSt 00000024TTglSt 00000027TUN0 00000000TUN1 00000001TUN2 00000002TUN3 00000003TUN4 00000004TX 00000006TX9 00000006TX9D 00000000TXBUFLEN 000001C2TXCKP 00000004TXEN 00000005TXIE 00000004TXIF 00000004TXIP 00000004TXMAXCNT 000000E1TXOVR 00000007TXREG 00000FADTXSTA 00000FACTglSt 00000021TmpB 0000001CToggleBit 0000064EToggleRls 00000656TstLock 0000065ATxBufEnd 00000300TxBuffer 0000013ETxCnt 00000013TxData0 00000014TxData1 00000015TxFlag 00000012TxHeadH 0000000FTxHeadL 0000000ETxKeyb 0000010CTxKeyb1 0000012ATxKeyb10 00000174TxKeyb11 00000178TxKeyb12 00000180TxKeyb2 00000144TxKeyb3 00000148TxKeyb4 00000152TxKeyb5 00000154TxKeyb6 00000158TxKeyb7 00000168TxKeyb8 0000016ATxKeyb9 0000016ETxTailH 00000011TxTailL 00000010UA 00000001USTBL 00000010UpdBufPtr 00000404MPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 61SYMBOL TABLELABEL VALUEVCFG0 00000004VCFG1 00000005VDIRMAG 00000007VPP 00000003VREFN 00000002VREFP 00000003W 00000000WAKECODE 00000018WAKEM 00000020WCOL 00000007WDTCON 00000FD1WR 00000001WREG 00000FE8WREN 00000002WRERR 00000003WUE 00000001Wait1 000008DCZ 00000002_BOREN_NOSLP_2L 000000FD_BOREN_OFF_2L 000000F9_BOREN_ON_2L 000000FB_BOREN_SBORDIS_2L 000000FF_BORV_0_2L 000000E7_BORV_1_2L 000000EF_BORV_2_2L 000000F7_BORV_3_2L 000000FF_CCP2MX_PORTBE_3H 000000FE_CCP2MX_PORTC_3H 000000FF_CONFIG1H 00300001_CONFIG2H 00300003_CONFIG2L 00300002_CONFIG3H 00300005_CONFIG4L 00300006_CONFIG5H 00300009_CONFIG5L 00300008_CONFIG6H 0030000B_CONFIG6L 0030000A_CONFIG7H 0030000D_CONFIG7L 0030000C_CP0_OFF_5L 000000FF_CP0_ON_5L 000000FE_CP1_OFF_5L 000000FF_CP1_ON_5L 000000FD_CPB_OFF_5H 000000FF_CPB_ON_5H 000000BF_CPD_OFF_5H 000000FF_CPD_ON_5H 0000007F_DEBUG_OFF_4L 000000FF_DEBUG_ON_4L 0000007F_DEVID1 003FFFFE_DEVID2 003FFFFF_EBTR0_OFF_7L 000000FF_EBTR0_ON_7L 000000FEMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 62SYMBOL TABLELABEL VALUE_EBTR1_OFF_7L 000000FF_EBTR1_ON_7L 000000FD_EBTRB_OFF_7H 000000FF_EBTRB_ON_7H 000000BF_FCMEN_OFF_1H 000000BF_FCMEN_ON_1H 000000FF_IDLOC0 00200000_IDLOC1 00200001_IDLOC2 00200002_IDLOC3 00200003_IDLOC4 00200004_IDLOC5 00200005_IDLOC6 00200006_IDLOC7 00200007_IESO_OFF_1H 0000007F_IESO_ON_1H 000000FF_LPT1OSC_OFF_3H 000000FB_LPT1OSC_ON_3H 000000FF_LVP_OFF_4L 000000FB_LVP_ON_4L 000000FF_MCLRE_OFF_3H 0000007F_MCLRE_ON_3H 000000FF_OSC_ECIO6_1H 000000F5_OSC_EC_1H 000000F4_OSC_HSPLL_1H 000000F6_OSC_HS_1H 000000F2_OSC_INTIO67_1H 000000F8_OSC_INTIO7_1H 000000F9_OSC_LP_1H 000000F0_OSC_RCIO6_1H 000000F7_OSC_RC_1H 000000F3_OSC_XT_1H 000000F1_PBADEN_OFF_3H 000000FD_PBADEN_ON_3H 000000FF_PWRT_OFF_2L 000000FF_PWRT_ON_2L 000000FE_STVREN_OFF_4L 000000FE_STVREN_ON_4L 000000FF_WDTPS_1024_2H 000000F5_WDTPS_128_2H 000000EF_WDTPS_16384_2H 000000FD_WDTPS_16_2H 000000E9_WDTPS_1_2H 000000E1_WDTPS_2048_2H 000000F7_WDTPS_256_2H 000000F1_WDTPS_2_2H 000000E3_WDTPS_32768_2H 000000FF_WDTPS_32_2H 000000EB_WDTPS_4096_2H 000000F9_WDTPS_4_2H 000000E5_WDTPS_512_2H 000000F3_WDTPS_64_2H 000000ED_WDTPS_8192_2H 000000FBMPASM 5.68 MAIN.ASM 9-3-2018 10:12:20 PAGE 63SYMBOL TABLELABEL VALUE_WDTPS_8_2H 000000E7_WDT_OFF_2H 000000FE_WDT_ON_2H 000000FF_WRT0_OFF_6L 000000FF_WRT0_ON_6L 000000FE_WRT1_OFF_6L 000000FF_WRT1_ON_6L 000000FD_WRTB_OFF_6H 000000FF_WRTB_ON_6H 000000BF_WRTC_OFF_6H 000000FF_WRTC_ON_6H 000000DF_WRTD_OFF_6H 000000FF_WRTD_ON_6H 0000007F_XINST_OFF_4L 000000BF_XINST_ON_4L 000000FF__18F4420 00000001bmi bnbpl bnnldwErrors : 0Warnings : 0 reported, 0 suppressedMessages : 0 reported, 0 suppressed