#PIC V1.0 (c)1997 J.Petroglou LIST FILE #file: dh2:IDE/APICforAMINET/APIC/examples/IBMKEY25.ASM #date: Sun Dec 14 20:43:20 1997 #pic : PIC16C84 ADDR CODE SRCLINE SOURCECODE 0000 000001 ;KEY.ASM 0000 000002 ; IBM keyboard to Amiga Converter 0000 000003 ; 0000 000004 ; 0000 000005 ; list p=16c84, f=inhx8m ;Enter device name 0000 000006 ; include "p16c84.inc" 0000 000007 0000 000008 0000 000009 0000 000010 0000 000011 0000 000012 0000 000013 ;*******************following lines added************************************** 0000 000014 ; 0000 000015 ;The original source is Copyright © 1997 Stephen Marsden, taken from 0000 000016 ;EPic12.lha, this changes are made to assemble MPASM source on Amiga 0000 000017 ;with PICAsm. 0000 000018 ; 0000 000019 ; 0000 000020 ;Dirk Düsterberg 0000 000021 ; 0000 000022 ; [InterNet] duesterb@unixserv.rz.fh-hannover.de 0000 000023 ; [Homepage] http://linux.rz.fh-hannover.de/~duesterb/ 0000 000024 ; 0000 000025 0000 000026 0000 000027 0000 000028 list p=16c84 ;Enter device name #include 'includes:p16cxx.inc' start 0000 000001 LIST 0000 000002 ; P16CXX.INC Standard PICAsm Header File 0000 000070 LIST #include end. 0000 000030 0000 000031 ;16c84 spezial register (EECON1) assigns: 0000 000032 0000 000033 CBLOCK 0 0000 000034 RD 0000 000035 WR 0000 000036 WREN 0000 000037 WRERR 0000 000038 EEIF 0000 000039 ENDC 0000 000040 0000 000041 ;****************************************************************************** 0000 000042 0000 000043 0000 000044 0000 000045 0000 000046 0000 000047 #DEFINE PAGE0 bcf STATUS,RP0 0000 000048 #DEFINE PAGE1 bsf STATUS,RP0 0000 000049 0000 000050 ; 0000 000051 ;------------------------------------------------------ 0000 000052 ;Please define ScratchPadRam here: 0000 000053 ;If you are using PIC16C5X define "ScratchPadRam equ 0x10" 0000 000054 ;else define "ScratchPadRam equ 0x20" 0000 000055 ;------------------------------------------------------- 0000 000056 ; 0000 000057 ScrollLock equ 0x0 0000 000058 NumLock equ 0x1 0000 000059 CapsLock equ 0x2 0000 000060 Kclk equ 0x1 0000 000061 Kdat equ 0x0 0000 000062 Aclk equ 0x4 0000 000063 Adat equ 0x3 0000 000064 Arst equ 0x2 0000 000065 Ctrlbit equ 0x0 0000 000066 RAmigabit equ 0x1 0000 000067 LAmigabit equ 0x2 0000 000068 Keytype equ 0x0 0000 000069 Resetype equ 0x1 0000 000070 ; 0000 000071 ; 0000 000072 ScratchPadRam equ 0x0C 0000 000073 ; 0000 000074 Capbit equ ScratchPadRam+0x0 0000 000075 Capdown equ ScratchPadRam+0x1 0000 000076 CtrlDown equ ScratchPadRam+0x2 0000 000077 RESET equ ScratchPadRam+0x3 0000 000078 Lights equ ScratchPadRam+0x4 0000 000079 Count3 equ ScratchPadRam+0x5 0000 000080 ATparity equ ScratchPadRam+0x6 0000 000081 Make equ ScratchPadRam+0x7 0000 000082 Charbad equ ScratchPadRam+0x8 0000 000083 Oldchar equ ScratchPadRam+0x9 0000 000084 Amigachar equ ScratchPadRam+0xA 0000 000085 Count1 equ ScratchPadRam+0xB 0000 000086 Count2 equ ScratchPadRam+0xC 0000 000087 ATchar equ ScratchPadRam+0xD 0000 000088 tableoffset equ ScratchPadRam+0xE 0000 000089 AltConfig equ ScratchPadRam+0xF 0000 000090 Savechar equ ScratchPadRam+0x10 0000 000091 returnvalue equ ScratchPadRam+0x11 0000 000092 eeaddress equ ScratchPadRam+0x12 0000 000093 eedata equ ScratchPadRam+0x13 0000 000094 win95 equ ScratchPadRam+0x14 0000 000095 Savechar2 equ ScratchPadRam+0x15 0000 000096 ; 0000 000097 ; 0000 000098 org 0x0 0000 2A64 000099 goto start 0001 000100 0001 000101 ATtb1 0001 0082 000102 movwf PCL 0002 344F 000103 retlw 0x4F ;F9 0003 3400 000104 retlw 0x0 0004 3457 000105 retlw 0x57 ;F5 0005 345B 000106 retlw 0x5B ;F3 0006 345F 000107 retlw 0x5F ;F1 0007 345D 000108 retlw 0x5D ;F2 0008 3441 000109 retlw 0x41 ;F12=help 0009 3400 000110 retlw 0x0 000A 344D 000111 retlw 0x4D ;F10 000B 3451 000112 retlw 0x51 ;F8 000C 3455 000113 retlw 0x55 ;F6 000D 3459 000114 retlw 0x59 ;F4 000E 347B 000115 retlw 0x7B ;TAB 000F 34FF 000116 retlw 0xFF ;~ 0010 3400 000117 retlw 0x0 0011 000118 0011 3400 000119 retlw 0x0 0012 3437 000120 retlw 0x37 ;Left ALT 0013 343F 000121 retlw 0x3F ;Left SHIFT 0014 3400 000122 retlw 0x0 0015 2900 000123 goto lctrl ;Left Ctrl 0016 34DF 000124 retlw 0xDF ;Q 0017 34FD 000125 retlw 0xFD ;1 0018 3400 000126 retlw 0x0 0019 3400 000127 retlw 0x0 001A 3400 000128 retlw 0x0 001B 349D 000129 retlw 0x9D ;Z 001C 34BD 000130 retlw 0xBD ;S 001D 34BF 000131 retlw 0xBF ;A 001E 34DD 000132 retlw 0xDD ;W 001F 34FB 000133 retlw 0xFB ;2 0020 3400 000134 retlw 0x0 0021 000135 0021 3400 000136 retlw 0x0 0022 3499 000137 retlw 0x99 ;C 0023 349B 000138 retlw 0x9B ;X 0024 34BB 000139 retlw 0xBB ;D 0025 34DB 000140 retlw 0xDB ;E 0026 34F7 000141 retlw 0xF7 ;4 0027 34F9 000142 retlw 0xF9 ;3 0028 3400 000143 retlw 0x0 0029 3400 000144 retlw 0x0 002A 347F 000145 retlw 0x7F ;SPACE 002B 3497 000146 retlw 0x97 ;V 002C 34B9 000147 retlw 0xB9 ;F 002D 34D7 000148 retlw 0xD7 ;T 002E 34D9 000149 retlw 0xD9 ;R 002F 34F5 000150 retlw 0xF5 ;5 0030 3400 000151 retlw 0x0 0031 000152 0031 3400 000153 retlw 0x0 0032 3493 000154 retlw 0x93 ;N 0033 3495 000155 retlw 0x95 ;B 0034 34B5 000156 retlw 0xB5 ;H 0035 34B7 000157 retlw 0xB7 ;G 0036 34D5 000158 retlw 0xD5 ;Y 0037 34F3 000159 retlw 0xF3 ;6 0038 3400 000160 retlw 0x0 0039 3400 000161 retlw 0x0 003A 3400 000162 retlw 0x0 003B 3491 000163 retlw 0x91 ;M 003C 34B3 000164 retlw 0xB3 ;J 003D 34D3 000165 retlw 0xD3 ;U 003E 34F1 000166 retlw 0xF1 ;7 003F 34EF 000167 retlw 0xEF ;8 0040 3400 000168 retlw 0x0 0041 000169 0041 3400 000170 retlw 0x0 0042 348F 000171 retlw 0x8F ;< 0043 34B1 000172 retlw 0xB1 ;K 0044 34D1 000173 retlw 0xD1 ;I 0045 34CF 000174 retlw 0xCF ;O 0046 34EB 000175 retlw 0xEB ;0 0047 34ED 000176 retlw 0xED ;9 0048 3400 000177 retlw 0x0 0049 3400 000178 retlw 0x0 004A 348D 000179 retlw 0x8D ;> 004B 348B 000180 retlw 0x8B ;/ 004C 34AF 000181 retlw 0xAF ;L 004D 34AD 000182 retlw 0xAD ; ';' 004E 34CD 000183 retlw 0xCD ;P 004F 34E9 000184 retlw 0xE9 ;- 0050 3400 000185 retlw 0x0 0051 000186 0051 3400 000187 retlw 0x0 0052 3400 000188 retlw 0x0 0053 34AB 000189 retlw 0xAB ;@ 0054 3400 000190 retlw 0x0 0055 34CB 000191 retlw 0xCB ;[ 0056 34E7 000192 retlw 0xE7 ;= 0057 3400 000193 retlw 0x0 0058 3400 000194 retlw 0x0 0059 343B 000195 retlw 0x3B ;CAPS LOCK? 005A 343D 000196 retlw 0x3D ;Right SHIFT 005B 3477 000197 retlw 0x77 ;RETURN 005C 34C9 000198 retlw 0xC9 ;] 005D 3400 000199 retlw 0x0 005E 34A9 000200 retlw 0xA9 ;#=right foreign key 005F 3400 000201 retlw 0x0 0060 3400 000202 retlw 0x0 0061 000203 0061 3400 000204 retlw 0x0 0062 349F 000205 retlw 0x9F ;\ (next to left shift on AT keyboard) 0063 3400 000206 retlw 0x0 0064 3400 000207 retlw 0x0 0065 3400 000208 retlw 0x0 0066 3400 000209 retlw 0x0 0067 347D 000210 retlw 0x7D ;Back SPACE 0068 3400 000211 retlw 0x0 0069 3400 000212 retlw 0x0 006A 34C5 000213 retlw 0xC5 ;1 keypad 006B 3400 000214 retlw 0x0 006C 34A5 000215 retlw 0xA5 ;4 keypad 006D 3485 000216 retlw 0x85 ;7 keypad 006E 3400 000217 retlw 0x0 006F 3400 000218 retlw 0x0 0070 3400 000219 retlw 0x0 0071 000220 0071 34E1 000221 retlw 0xE1 ;0 keypad 0072 3487 000222 retlw 0x87 ;dot keypad 0073 34C3 000223 retlw 0xC3 ;2 keypad 0074 34A3 000224 retlw 0xA3 ;5 keypad 0075 34A1 000225 retlw 0xA1 ;6 keypad 0076 3483 000226 retlw 0x83 ;8 keypad 0077 3475 000227 retlw 0x75 ;ESCAPE! 0078 344B 000228 retlw 0x4B ;Number Lock=( keypad 0079 34E5 000229 retlw 0xE5 ;F11=\ 007A 3443 000230 retlw 0x43 ;+ keypad 007B 34C1 000231 retlw 0xC1 ;3 keypad 007C 346B 000232 retlw 0x6B ;- keypad 007D 3445 000233 retlw 0x45 ;* keypad 007E 3481 000234 retlw 0x81 ;9 keypad 007F 3449 000235 retlw 0x49 ;scroll Lock=) keypad 0080 3400 000236 retlw 0x0 0081 000237 0081 000238 ATtb2: 0081 3400 000239 retlw 0x0 0082 3400 000240 retlw 0x0 0083 3400 000241 retlw 0x0 0084 3453 000242 retlw 0x53 ;F7 0085 290D 000243 goto prtscreen ;print screen=R Amiga P 0086 3400 000244 retlw 0x0 0087 3400 000245 retlw 0x0 0088 3400 000246 retlw 0x0 0089 3400 000247 retlw 0x0 008A 3400 000248 retlw 0x0 008B 3400 000249 retlw 0x0 008C 3400 000250 retlw 0x0 008D 3400 000251 retlw 0x0 008E 3400 000252 retlw 0x0 008F 3400 000253 retlw 0x0 0090 3400 000254 retlw 0x0 0091 000255 0091 3400 000256 retlw 0x0 0092 3435 000257 retlw 0x35 ;Right ALT 0093 3400 000258 retlw 0x0 0094 3400 000259 retlw 0x0 0095 2903 000260 goto rctrl ;Right CTL 0096 3400 000261 retlw 0x0 0097 3400 000262 retlw 0x0 0098 3400 000263 retlw 0x0 0099 3400 000264 retlw 0x0 009A 3400 000265 retlw 0x0 009B 3400 000266 retlw 0x0 009C 3400 000267 retlw 0x0 009D 3400 000268 retlw 0x0 009E 3400 000269 retlw 0x0 009F 3400 000270 retlw 0x0 00A0 3433 000271 retlw 0x33 ;Left Win=Left Amiga 00A1 000272 00A1 3400 000273 retlw 0x0 00A2 3400 000274 retlw 0x0 00A3 3400 000275 retlw 0x0 00A4 3400 000276 retlw 0x0 00A5 3400 000277 retlw 0x0 00A6 3400 000278 retlw 0x0 00A7 3400 000279 retlw 0x0 00A8 3431 000280 retlw 0x31 ;Right Win=Right Amiga 00A9 3400 000281 retlw 0x0 00AA 3400 000282 retlw 0x0 00AB 3400 000283 retlw 0x0 00AC 3400 000284 retlw 0x0 00AD 3400 000285 retlw 0x0 00AE 3400 000286 retlw 0x0 00AF 3400 000287 retlw 0x0 00B0 2906 000288 goto swapscreen ;Menu Key=L-Amiga M 00B1 000289 00B1 3400 000290 retlw 0x0 00B2 3400 000291 retlw 0x0 00B3 3400 000292 retlw 0x0 00B4 3400 000293 retlw 0x0 00B5 3400 000294 retlw 0x0 00B6 3400 000295 retlw 0x0 00B7 3400 000296 retlw 0x0 00B8 3400 000297 retlw 0x0 00B9 3400 000298 retlw 0x0 00BA 3400 000299 retlw 0x0 00BB 3400 000300 retlw 0x0 00BC 3400 000301 retlw 0x0 00BD 3400 000302 retlw 0x0 00BE 3400 000303 retlw 0x0 00BF 3400 000304 retlw 0x0 00C0 3400 000305 retlw 0x0 00C1 000306 00C1 3400 000307 retlw 0x0 00C2 3400 000308 retlw 0x0 00C3 3400 000309 retlw 0x0 00C4 3400 000310 retlw 0x0 00C5 3400 000311 retlw 0x0 00C6 3400 000312 retlw 0x0 00C7 3400 000313 retlw 0x0 00C8 3400 000314 retlw 0x0 00C9 3400 000315 retlw 0x0 00CA 3400 000316 retlw 0x0 00CB 348B 000317 retlw 0x8B ;/key, supposedly 00CC 3400 000318 retlw 0x0 00CD 3400 000319 retlw 0x0 00CE 3400 000320 retlw 0x0 00CF 3400 000321 retlw 0x0 00D0 3400 000322 retlw 0x0 00D1 000323 00D1 3400 000324 retlw 0x0 00D2 3400 000325 retlw 0x0 00D3 3400 000326 retlw 0x0 00D4 3400 000327 retlw 0x0 00D5 3400 000328 retlw 0x0 00D6 3400 000329 retlw 0x0 00D7 3400 000330 retlw 0x0 00D8 3400 000331 retlw 0x0 00D9 3400 000332 retlw 0x0 00DA 3400 000333 retlw 0x0 00DB 3479 000334 retlw 0x79 ;Numeric Enter 00DC 3400 000335 retlw 0x0 00DD 3400 000336 retlw 0x0 00DE 3400 000337 retlw 0x0 00DF 3400 000338 retlw 0x0 00E0 3400 000339 retlw 0x0 00E1 000340 00E1 3400 000341 retlw 0x0 00E2 3400 000342 retlw 0x0 00E3 3400 000343 retlw 0x0 00E4 3400 000344 retlw 0x0 00E5 3400 000345 retlw 0x0 00E6 3400 000346 retlw 0x0 00E7 3400 000347 retlw 0x0 00E8 3400 000348 retlw 0x0 00E9 3400 000349 retlw 0x0 00EA 2914 000350 goto endkey ;End=Shift right-cursor 00EB 3400 000351 retlw 0x0 00EC 3461 000352 retlw 0x61 ;Cursor Left 00ED 291B 000353 goto home ;Home=Shift left-cursor 00EE 3400 000354 retlw 0x0 00EF 3400 000355 retlw 0x0 00F0 3463 000356 retlw 0x63 ;MACRO key=control 00F1 000357 00F1 2930 000358 goto insert ;Insert=Right Amiga 7 00F2 3473 000359 retlw 0x73 ;Delete 00F3 3465 000360 retlw 0x65 ;Cursor Down 00F4 3400 000361 retlw 0x0 00F5 3463 000362 retlw 0x63 ;Cursor Right 00F6 3467 000363 retlw 0x67 ;Cursor Up 00F7 3400 000364 retlw 0x0 00F8 3400 000365 retlw 0x0 00F9 3400 000366 retlw 0x0 00FA 3400 000367 retlw 0x0 00FB 2922 000368 goto pagedown ;Page Down=Shift down-cursor 00FC 3400 000369 retlw 0x0 00FD 290D 000370 goto prtscreen ;print screen=Right Amiga P 00FE 2929 000371 goto pageup ;Page up=Shift up-cursor 00FF 2937 000372 goto break ;Break=Ctrl-C 0100 000373 ; retlw 0x0 0100 000374 0100 000375 0100 000376 0100 000377 ; *** Left Control key *** 0100 000378 lctrl 0100 1820 000379 btfsc win95,0x0 0101 3439 000380 retlw 0x39 ; ctrl 0102 3433 000381 retlw 0x33 ; left Amiga 0103 000382 0103 000383 ; *** Right Control key *** 0103 000384 rctrl 0103 1820 000385 btfsc win95,0x0 0104 3439 000386 retlw 0x39 ; ctrl 0105 3431 000387 retlw 0x31 ; right Amiga 0106 000388 0106 000389 0106 000390 ; *** Menu = Left Amiga-M *** 0106 000391 swapscreen 0106 3033 000392 movlw 0x33 ; Left Amiga pressed 0107 21A0 000393 call actualtransmit 0108 3091 000394 movlw 0x91 ; M pressed & released 0109 23B5 000395 call sendmessage 010A 3032 000396 movlw 0x32 ; Left Amiga released 010B 21A0 000397 call actualtransmit 010C 3400 000398 retlw 0x0 010D 000399 010D 000400 010D 000401 ; *** Prt Scrn Key = Right Amiga-P *** 010D 000402 prtscreen 010D 3031 000403 movlw 0x31 ; Right Amiga pressed 010E 21A0 000404 call actualtransmit 010F 30CD 000405 movlw 0xCD ; P pressed & released 0110 23B5 000406 call sendmessage 0111 3030 000407 movlw 0x30 ; Right Amiga released 0112 21A0 000408 call actualtransmit 0113 3400 000409 retlw 0x0 0114 000410 0114 000411 0114 000412 0114 000413 ; *** End Key = Shift right-cursor *** 0114 000414 endkey 0114 303D 000415 movlw 0x3D ; Right shift pressed 0115 21A0 000416 call actualtransmit 0116 3063 000417 movlw 0x63 ; right-cursor pressed & released 0117 23B5 000418 call sendmessage 0118 303C 000419 movlw 0x3C ; Right shift released 0119 21A0 000420 call actualtransmit 011A 3400 000421 retlw 0x0 011B 000422 011B 000423 011B 000424 011B 000425 ; *** Home Key = Shift left-cursor *** 011B 000426 home 011B 303D 000427 movlw 0x3D ; Right shift pressed 011C 21A0 000428 call actualtransmit 011D 3061 000429 movlw 0x61 ; left-cursor pressed & released 011E 23B5 000430 call sendmessage 011F 303C 000431 movlw 0x3C ; Right shift released 0120 21A0 000432 call actualtransmit 0121 3400 000433 retlw 0x0 0122 000434 0122 000435 0122 000436 0122 000437 ; *** PageDown Key = Shift down-cursor *** 0122 000438 pagedown 0122 303D 000439 movlw 0x3D ; Right shift pressed 0123 21A0 000440 call actualtransmit 0124 3065 000441 movlw 0x65 ; down-cursor pressed & released 0125 23B5 000442 call sendmessage 0126 303C 000443 movlw 0x3C ; Right shift released 0127 21A0 000444 call actualtransmit 0128 3400 000445 retlw 0x0 0129 000446 0129 000447 0129 000448 0129 000449 ; *** Pageup Key = Shift up-cursor *** 0129 000450 pageup 0129 303D 000451 movlw 0x3D ; Right shift pressed 012A 21A0 000452 call actualtransmit 012B 3067 000453 movlw 0x67 ; up-cursor pressed & released 012C 23B5 000454 call sendmessage 012D 303C 000455 movlw 0x3C ; Right shift released 012E 21A0 000456 call actualtransmit 012F 3400 000457 retlw 0x0 0130 000458 0130 000459 0130 000460 0130 000461 ; *** Insert Key = Right Amiga 7 *** 0130 000462 insert 0130 3031 000463 movlw 0x31 ; Right Amiga pressed 0131 21A0 000464 call actualtransmit 0132 30F1 000465 movlw 0xF1 ; 7 pressed & released 0133 23B5 000466 call sendmessage 0134 3030 000467 movlw 0x30 ; Right Amiga released 0135 21A0 000468 call actualtransmit 0136 3400 000469 retlw 0x0 0137 000470 0137 000471 0137 000472 0137 000473 ; *** Break Key = Ctrl-C *** 0137 000474 break 0137 3039 000475 movlw 0x39 ; Ctrl pressed 0138 21A0 000476 call actualtransmit 0139 3099 000477 movlw 0x99 ; C pressed & released 013A 23B5 000478 call sendmessage 013B 3038 000479 movlw 0x38 ; Ctrl released 013C 21A0 000480 call actualtransmit 013D 3400 000481 retlw 0x0 013E 000482 013E 000483 013E 000484 013E 000485 ; *** Wait a long time *** 013E 000486 longdelay 013E 0097 000487 movwf Count1 013F 000488 dly 013F 2143 000489 call fixeddelay 0140 0B97 000490 decfsz Count1,F 0141 293F 000491 goto dly 0142 0008 000492 return 0143 000493 ; 0143 000494 ; *** Wait a short while *** 0143 000495 fixeddelay 0143 30FF 000496 movlw 0xFF 0144 000497 smalldelay 0144 0098 000498 movwf Count2 0145 000499 delay 0145 0B98 000500 decfsz Count2,F 0146 2945 000501 goto delay 0147 0008 000502 return 0148 000503 0148 000504 0148 000505 0148 000506 0148 000507 ; *** Send character to Amiga and wait for handshake *** 0148 000508 amigatransmit 0148 0096 000509 movwf Amigachar 0149 0215 000510 subwf Oldchar,W 014A 1903 000511 btfsc STATUS,Z ; skip if not equal 014B 0008 000512 return ; ignore it 014C 000513 014C 3033 000514 movlw 0x33 ; LAmiga pressed 014D 0216 000515 subwf Amigachar,W 014E 1903 000516 btfsc STATUS,Z ; skip if not equal 014F 110F 000517 bcf RESET,LAmigabit 0150 3032 000518 movlw 0x32 ; LAmiga released 0151 0216 000519 subwf Amigachar,W 0152 1903 000520 btfsc STATUS,Z ; skip if not equal 0153 150F 000521 bsf RESET,LAmigabit 0154 000522 0154 3031 000523 movlw 0x31 ; RAmiga pressed 0155 0216 000524 subwf Amigachar,W 0156 1903 000525 btfsc STATUS,Z ; skip if not equal 0157 108F 000526 bcf RESET,RAmigabit 0158 3030 000527 movlw 0x30 ; RAmiga released 0159 0216 000528 subwf Amigachar,W 015A 1903 000529 btfsc STATUS,Z ; skip if not equal 015B 148F 000530 bsf RESET,RAmigabit 015C 000531 015C 303B 000532 movlw 0x3B ; jump if not Capslock down 015D 0216 000533 subwf Amigachar,W 015E 1D03 000534 btfss STATUS,Z ; skip if equal 015F 2966 000535 goto transok2 ; ignore it 0160 100F 000536 bcf RESET,Ctrlbit 0161 0816 000537 movf Amigachar,W 0162 0095 000538 movwf Oldchar 0163 30FF 000539 movlw 0xFF 0164 008D 000540 movwf Capdown ; set flags for later 0165 0008 000541 return 0166 000542 transok2 0166 303A 000543 movlw 0x3A ; jump if not Capslock up 0167 0216 000544 subwf Amigachar,W 0168 1D03 000545 btfss STATUS,Z ; skip if equal 0169 2984 000546 goto transok3 ; ignore it 016A 000547 016A 140F 000548 bsf RESET,Ctrlbit 016B 303B 000549 movlw 0x3B ; see if Capslock was just down 016C 0215 000550 subwf Oldchar,W ; 016D 1D03 000551 btfss STATUS,Z ; skip if equal 016E 297D 000552 goto transok4 ; use as Ctrl key 016F 018D 000553 clrf Capdown ; clear flag 0170 098C 000554 comf Capbit,F ; toggle down/upness of caplock 0171 303B 000555 movlw 0x3B ; send Capslock down 0172 1C0C 000556 btfss Capbit,0x0 0173 39FE 000557 andlw 0xFE 0174 21A0 000558 call actualtransmit 0175 000559 ; send lights to AT 0175 30ED 000560 movlw 0xED ; Next data is for lights 0176 21D7 000561 call SendtoAT 0177 1510 000562 bsf Lights,CapsLock ; Capslock on 0178 1C0C 000563 btfss Capbit,0x0 0179 1110 000564 bcf Lights,CapsLock ; Capslock off 017A 0810 000565 movf Lights,W 017B 21D7 000566 call SendtoAT 017C 0008 000567 return 017D 000568 transok4 017D 1820 000569 btfsc win95,0x0 017E 0008 000570 return 017F 018E 000571 clrf CtrlDown 0180 018D 000572 clrf Capdown ; Capslock has finished acting as ctrl 0181 3038 000573 movlw 0x38 ; send Ctrl up 0182 21A0 000574 call actualtransmit 0183 0008 000575 return 0184 000576 transok3 0184 0816 000577 movf Amigachar,W 0185 00A1 000578 movwf Savechar2 0186 0095 000579 movwf Oldchar 0187 088D 000580 movf Capdown,F ; Capslock down? 0188 1903 000581 btfsc STATUS,Z ; skip if non-zero i.e caps pressed 0189 2995 000582 goto nocontrol ; ignore it 018A 1820 000583 btfsc win95,0x0 018B 2995 000584 goto nocontrol ; ignore it 018C 088E 000585 movf CtrlDown,F 018D 1D03 000586 btfss STATUS,Z ; skip if zero i.e caps pressed 018E 2995 000587 goto nocontrol ; ignore it 018F 30FF 000588 movlw 0xFF 0190 008E 000589 movwf CtrlDown ; Caps lock is now Ctrl key 0191 3039 000590 movlw 0x39 ; send Ctrl down 0192 21A0 000591 call actualtransmit 0193 0821 000592 movf Savechar2,W 0194 29A0 000593 goto actualtransmit 0195 000594 nocontrol 0195 0816 000595 movf Amigachar,W 0196 39FE 000596 andlw 0xFE 0197 3C44 000597 sublw 0x44 ; * (Numkey) released 0198 1D03 000598 btfss STATUS,Z ; skip if equal 0199 019B 000599 clrf AltConfig 019A 0A9B 000600 incf AltConfig,F 019B 000601 019B 3028 000602 movlw 0x28 ; 20 th time? 019C 021B 000603 subwf AltConfig,W 019D 1903 000604 btfsc STATUS,Z ; skip if not equal 019E 22F9 000605 call config 019F 000606 019F 000607 019F 0816 000608 movf Amigachar,W 01A0 000609 01A0 000610 actualtransmit 01A0 0096 000611 movwf Amigachar 01A1 000612 01A1 3005 000613 movlw .5 ; do a 5x256 delay 01A2 213E 000614 call longdelay 01A3 000615 actual2 01A3 3008 000616 movlw .8 01A4 0097 000617 movwf Count1 01A5 0194 000618 clrf Charbad 01A6 000619 f 01A6 1B96 000620 btfsc Amigachar,0x7 ; IF bit7=1 THEN Adat=1 01A7 1585 000621 bsf PORTA,Adat 01A8 1F96 000622 btfss Amigachar,0x7 ; IF bit7=0 THEN Adat=0 01A9 1185 000623 bcf PORTA,Adat 01AA 3008 000624 movlw .8 01AB 2144 000625 call smalldelay ; Allow Adat logic to settle 01AC 1205 000626 bcf PORTA,Aclk ; transmit 01AD 3008 000627 movlw .8 01AE 2144 000628 call smalldelay ; Allow Aclk logic to settle 01AF 1605 000629 bsf PORTA,Aclk ; reset Aclk=1 01B0 300A 000630 movlw .10 01B1 2144 000631 call smalldelay ; Allow Aclk logic to settle 01B2 0D96 000632 rlf Amigachar,F 01B3 0B97 000633 decfsz Count1,F ; Transmit next bit? 01B4 29A6 000634 goto f 01B5 000635 01B5 300F 000636 movlw 0xF 01B6 0097 000637 movwf Count1 01B7 30FF 000638 movlw 0xFF 01B8 0097 000639 movwf Count1 01B9 0098 000640 movwf Count2 01BA 000641 01BA 1683 000642 PAGE1 01BB 1585 000643 bsf TRISA,Adat ; Read acknowledge signal 01BC 1283 000644 PAGE0 01BD 000645 ack 01BD 0397 000646 decf Count1,F 01BE 1903 000647 btfsc STATUS,Z 01BF 0398 000648 decf Count2,F 01C0 0818 000649 movf Count2,W ; Count2=0? 01C1 1903 000650 btfsc STATUS,Z 01C2 29CC 000651 goto syncup ; no handshake 01C3 1985 000652 btfsc PORTA,Adat ; wait for handshake from amiga 01C4 29BD 000653 goto ack 01C5 000654 ready 01C5 1D85 000655 btfss PORTA,Adat ; wait for handshake to finish 01C6 29C5 000656 goto ready 01C7 000657 01C7 1585 000658 bsf PORTA,Adat ; reset Adat=1 01C8 1683 000659 PAGE1 01C9 1185 000660 bcf TRISA,Adat ; Return to output mode 01CA 1283 000661 PAGE0 01CB 0008 000662 return 01CC 000663 syncup 01CC 1205 000664 bcf PORTA,Aclk ; send another clock pulse 01CD 3008 000665 movlw .8 01CE 2144 000666 call smalldelay ; Allow Aclk logic to settle 01CF 1605 000667 bsf PORTA,Aclk ; reset Aclk=1 01D0 30FF 000668 movlw 0xFF 01D1 0097 000669 movwf Count1 01D2 0098 000670 movwf Count2 01D3 0391 000671 decf Count3,F 01D4 1903 000672 btfsc STATUS,Z 01D5 0008 000673 return 01D6 29BD 000674 goto ack ; wait for acknowledge again 01D7 000675 01D7 000676 01D7 000677 01D7 000678 ; *** Send character to AT keyboard and wait for handshake *** 01D7 000679 SendtoAT 01D7 0094 000680 movwf Charbad 01D8 000681 resend 01D8 0814 000682 movf Charbad,W 01D9 0099 000683 movwf ATchar 01DA 0192 000684 clrf ATparity 01DB 1486 000685 bsf PORTB,Kclk ; Kclk=1 get keyboards attention 01DC 0000 000686 nop 01DD 1006 000687 bcf PORTB,Kdat ; Kdat=0 get keyboards attention 01DE 1683 000688 PAGE1 01DF 1086 000689 bcf TRISB,Kclk ; Kclk is in output mode 01E0 0000 000690 nop 01E1 1006 000691 bcf TRISB,Kdat ; Kdat is in output mode 01E2 1283 000692 PAGE0 01E3 3008 000693 movlw .8 01E4 0097 000694 movwf Count1 01E5 1683 000695 PAGE1 01E6 1486 000696 bsf TRISB,Kclk ; Kclk is in input mode 01E7 1283 000697 PAGE0 01E8 1886 000698 Send4 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 01E9 29E8 000699 goto Send4 01EA 1819 000700 btfsc ATchar,0x0 ; IF bit0=1 THEN Kdat=1 01EB 1406 000701 bsf PORTB,Kdat 01EC 1C19 000702 btfss ATchar,0x0 ; IF bit0=0 THEN Kdat=0 01ED 1006 000703 bcf PORTB,Kdat 01EE 0C99 000704 rrf ATchar,F ; next bit 01EF 1803 000705 btfsc STATUS,C ; test parity of bit shifted out 01F0 0A92 000706 incf ATparity,F 01F1 1C86 000707 Send5 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 01F2 29F1 000708 goto Send5 01F3 0B97 000709 decfsz Count1,F 01F4 29E8 000710 goto Send4 01F5 1886 000711 Send6 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 01F6 29F5 000712 goto Send6 01F7 1812 000713 btfsc ATparity,0x0 ; IF bit0=odd THEN Kdat=0 (odd parity) 01F8 1006 000714 bcf PORTB,Kdat 01F9 1C12 000715 btfss ATparity,0x0 ; IF bit0=even THEN Kdat=1 (odd parity) 01FA 1406 000716 bsf PORTB,Kdat 01FB 1C86 000717 Send7 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 01FC 29FB 000718 goto Send7 01FD 1886 000719 Send77 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 01FE 29FD 000720 goto Send77 01FF 1406 000721 bsf PORTB,Kdat ; stop bit 0200 1C86 000722 Send78 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 0201 2A00 000723 goto Send78 0202 1683 000724 PAGE1 0203 1406 000725 bsf TRISB,Kdat ; reset Kdat back to input mode 0204 1283 000726 PAGE0 0205 1886 000727 Send79 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 0206 2A05 000728 goto Send79 0207 1C86 000729 Send7a btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 0208 2A07 000730 goto Send7a 0209 3008 000731 movlw .8 020A 2144 000732 call smalldelay ; Allow Kclk logic to settle 020B 1086 000733 bcf PORTB,Kclk ; Kclk=0 Send handshake 020C 1683 000734 PAGE1 020D 1086 000735 bcf TRISB,Kclk ; Kclk is in output mode 020E 1283 000736 PAGE0 020F 3014 000737 movlw .20 0210 2144 000738 call smalldelay ; Allow keyboard chance 0211 2217 000739 call ATgetkey 0212 30FA 000740 movlw 0xFA ; Was transmission ok 0213 0219 000741 subwf ATchar,W 0214 1D03 000742 btfss STATUS,Z ; skip if good 0215 29D8 000743 goto resend 0216 0008 000744 return 0217 000745 0217 000746 0217 000747 0217 000748 0217 000749 ; *** Waits for keyboard to send code *** 0217 000750 ATgetkey 0217 0199 000751 clrf ATchar 0218 1486 000752 bsf PORTB,Kclk ; Kclk=1 Allow keyboard to talk 0219 1683 000753 PAGE1 021A 1486 000754 bsf TRISB,Kclk ; Kclk is in input mode 021B 1283 000755 PAGE0 021C 1886 000756 skip1st btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 021D 2A1C 000757 goto skip1st 021E 1C86 000758 skippy btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 021F 2A1E 000759 goto skippy 0220 3008 000760 movlw .8 0221 0097 000761 movwf Count1 0222 000762 ATwait0 0222 1886 000763 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 0223 2A22 000764 goto ATwait0 0224 0C99 000765 rrf ATchar,F 0225 1806 000766 btfsc PORTB,Kdat 0226 1799 000767 bsf ATchar,0x7 0227 1C06 000768 btfss PORTB,Kdat 0228 1399 000769 bcf ATchar,0x7 0229 1C86 000770 ATwait1 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 022A 2A29 000771 goto ATwait1 022B 0B97 000772 decfsz Count1,F 022C 2A22 000773 goto ATwait0 ; get all 8 bits of data 022D 1886 000774 parity0 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 022E 2A2D 000775 goto parity0 022F 1C86 000776 parity1 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 0230 2A2F 000777 goto parity1 0231 1886 000778 stop0 btfsc PORTB,Kclk ; wait for keyboard to make Kclk=0 0232 2A31 000779 goto stop0 0233 1C86 000780 stop1 btfss PORTB,Kclk ; wait for keyboard to make Kclk=1 0234 2A33 000781 goto stop1 0235 1086 000782 bcf PORTB,Kclk ; Kclk=0 Send handshake 0236 1683 000783 PAGE1 0237 1086 000784 bcf TRISB,Kclk ; Kclk is in output mode 0238 1283 000785 PAGE0 0239 3014 000786 movlw .20 023A 2144 000787 call smalldelay ; Allow keyboard chance to recieve 023B 0008 000788 return 023C 000789 023C 000790 023C 000791 023C 000792 023C 000793 023C 000794 ; *** Flash Light *** 023C 000795 flash 023C 0090 000796 movwf Lights 023D 30ED 000797 movlw 0xED ; Next data is for lights 023E 21D7 000798 call SendtoAT 023F 0810 000799 movf Lights,W ; Flash lights 0240 21D7 000800 call SendtoAT 0241 3025 000801 movlw 0x25 0242 213E 000802 call longdelay 0243 30ED 000803 movlw 0xED ; Next data is for lights 0244 21D7 000804 call SendtoAT 0245 3000 000805 movlw 0x0 ; Clear Lights 0246 21D7 000806 call SendtoAT 0247 3025 000807 movlw 0x25 0248 213E 000808 call longdelay 0249 0008 000809 return 024A 000810 024A 000811 024A 000812 024A 000813 ; *** Performs reset on Amiga *** 024A 000814 reset 024A 3001 000815 movlw Resetype 024B 23D8 000816 call readdata 024C 3C01 000817 sublw 0x1 024D 1903 000818 btfsc STATUS,Z ; skip if not equal 024E 2A5B 000819 goto kill ; jump if fast reset 024F 300F 000820 movlw 0x0F ; Tell amiga we are going to reset it 0250 21A0 000821 call actualtransmit 0251 000822 0251 3008 000823 movlw 0x8 0252 0091 000824 movwf Count3 0253 3001 000825 strobe movlw 0x1 0254 223C 000826 call flash 0255 3002 000827 movlw 0x2 0256 223C 000828 call flash 0257 3004 000829 movlw 0x4 0258 223C 000830 call flash 0259 0B91 000831 decfsz Count3,F 025A 2A53 000832 goto strobe 025B 000833 kill 025B 3070 000834 movlw 0x70 025C 213E 000835 call longdelay 025D 1106 000836 bcf PORTB,Arst ; Arst=0 Send reset 025E 1683 000837 PAGE1 025F 1106 000838 bcf TRISB,Arst ; Arst is in output mode 0260 1283 000839 PAGE0 0261 30FF 000840 movlw 0xFF 0262 213E 000841 call longdelay ; Wait for Amiga to reset 0263 2A6E 000842 goto start2 0264 000843 0264 000844 0264 000845 0264 000846 0264 000847 start 0264 000848 0264 000849 ; *** Allow time for HardDrive to spin upto speed *** 0264 000850 SpinUp 0264 1106 000851 bcf PORTB,Arst ; Arst=0 Send reset 0265 1683 000852 PAGE1 0266 1106 000853 bcf TRISB,Arst ; Arst is in output mode 0267 1283 000854 PAGE0 0268 3030 000855 movlw 0x30 0269 0091 000856 movwf Count3 026A 000857 waitHD 026A 30FF 000858 movlw 0xFF 026B 213E 000859 call longdelay ; Wait for drive to wake up 026C 0B91 000860 decfsz Count3,F 026D 2A6A 000861 goto waitHD 026E 000862 026E 000863 start2 026E 000864 ; *** Setup ports *** 026E 1605 000865 bsf PORTA,Aclk ; transmit 026F 0000 000866 nop 0270 1585 000867 bsf PORTA,Adat 0271 1683 000868 PAGE1 0272 3007 000869 movlw 0x7 0273 0085 000870 movwf TRISA 0274 30FF 000871 movlw 0xFF 0275 0086 000872 movwf TRISB 0276 1283 000873 PAGE0 0277 000874 0277 000875 0277 000876 ; *** Clear out miscellaneous flags *** 0277 018D 000877 clrf Capdown 0278 018E 000878 clrf CtrlDown 0279 018C 000879 clrf Capbit 027A 0195 000880 clrf Oldchar 027B 019B 000881 clrf AltConfig 027C 3007 000882 movlw 0x7 027D 008F 000883 movwf RESET 027E 000884 027E 000885 ; *** See what sort of keyboard is attached *** 027E 01A0 000886 clrf win95 027F 3000 000887 movlw Keytype 0280 23D8 000888 call readdata 0281 3C02 000889 sublw 0x2 0282 1903 000890 btfsc STATUS,Z ; skip if not equal 0283 09A0 000891 comf win95 ; win95=true or false 0284 000892 0284 000893 ; *** Wait for AT keyboard to power up *** 0284 000894 waitAT 0284 1C06 000895 btfss PORTB,Kdat ; wait for AT keyboard 0285 2A84 000896 goto waitAT 0286 000897 0286 000898 ; *** Reset AT keyboard *** 0286 000899 ; movlw 0xFF ; Reset 0286 000900 ; call SendtoAT 0286 30F6 000901 movlw 0xF6 ; Default 0287 21D7 000902 call SendtoAT 0288 3007 000903 movlw 0x7 0289 223C 000904 call flash 028A 30ED 000905 movlw 0xED ; Next data is for lights 028B 21D7 000906 call SendtoAT 028C 3002 000907 movlw 0x2 028D 0090 000908 movwf Lights 028E 21D7 000909 call SendtoAT 028F 30F4 000910 movlw 0xF4 ; Clear buffer 0290 21D7 000911 call SendtoAT 0291 000912 0291 000913 0291 000914 ATstyle 0291 088F 000915 movf RESET,F 0292 1903 000916 btfsc STATUS,Z 0293 2A4A 000917 goto reset 0294 2217 000918 call ATgetkey 0295 30E1 000919 movlw 0xE1 0296 0219 000920 subwf ATchar,W 0297 1D03 000921 btfss STATUS,Z ; skip if equal 0298 2AA1 000922 goto ATnE1 0299 2217 000923 call ATgetkey ; should be $14 029A 2217 000924 call ATgetkey ; should be $77 029B 2217 000925 call ATgetkey ; should be $E1 029C 2217 000926 call ATgetkey ; should be $F0 029D 2217 000927 call ATgetkey ; should be $14 029E 2217 000928 call ATgetkey ; should be $F0 029F 2217 000929 call ATgetkey ; should be $77 02A0 2A91 000930 goto ATstyle 02A1 000931 ATnE1 02A1 019A 000932 clrf tableoffset 02A2 30E0 000933 movlw 0xE0 02A3 0219 000934 subwf ATchar,W 02A4 1D03 000935 btfss STATUS,Z ; skip if equal 02A5 2AC0 000936 goto ATnE0 02A6 3080 000937 movlw 0x80 02A7 009A 000938 movwf tableoffset 02A8 2217 000939 call ATgetkey 02A9 30F0 000940 movlw 0xF0 02AA 0219 000941 subwf ATchar,W 02AB 1D03 000942 btfss STATUS,Z ; skip if equal 02AC 2AB7 000943 goto ATnE0F0 02AD 2217 000944 call ATgetkey 02AE 3012 000945 movlw 0x12 02AF 0219 000946 subwf ATchar,W 02B0 1903 000947 btfsc STATUS,Z ; skip if not equal 02B1 2A91 000948 goto ATstyle ; E0F012 ignore it 02B2 000949 ATnEF12 02B2 3059 000950 movlw 0x59 02B3 0219 000951 subwf ATchar,W 02B4 1D03 000952 btfss STATUS,Z ; skip if equal 02B5 2ACD 000953 goto ATup 02B6 2A91 000954 goto ATstyle ; E0F059 ignore it 02B7 000955 ATnE0F0 02B7 3012 000956 movlw 0x12 02B8 0219 000957 subwf ATchar,W 02B9 1903 000958 btfsc STATUS,Z ; skip if not equal 02BA 2A91 000959 goto ATstyle ; E012 ignore it 02BB 000960 ATnE012 02BB 3059 000961 movlw 0x59 02BC 0219 000962 subwf ATchar,W 02BD 1D03 000963 btfss STATUS,Z ; skip if equal 02BE 2AC6 000964 goto ATdown 02BF 2A91 000965 goto ATstyle ; E059 ignore it 02C0 000966 ATnE0 02C0 30F0 000967 movlw 0xF0 02C1 0219 000968 subwf ATchar,W 02C2 1D03 000969 btfss STATUS,Z ; skip if equal 02C3 2AC6 000970 goto ATdown 02C4 2217 000971 call ATgetkey 02C5 2ACD 000972 goto ATup ; F0= key released 02C6 000973 ATdown 02C6 0A19 000974 incf ATchar,W 02C7 071A 000975 addwf tableoffset,W 02C8 2001 000976 call ATtb1 02C9 3E00 000977 addlw 0x0 ; test W 02CA 1D03 000978 btfss STATUS,Z 02CB 2148 000979 call amigatransmit 02CC 2A91 000980 goto ATstyle 02CD 000981 ATup 02CD 0A19 000982 incf ATchar,W 02CE 071A 000983 addwf tableoffset,W 02CF 009A 000984 movwf tableoffset 02D0 000985 02D0 30B0 000986 movlw 0xAF+1 ; menu key 02D1 021A 000987 subwf tableoffset,W 02D2 1903 000988 btfsc STATUS,Z ; skip if not equal 02D3 2A91 000989 goto ATstyle ; ignore it 02D4 000990 02D4 3085 000991 movlw 0x84+1 ; PrtScrn 02D5 021A 000992 subwf tableoffset,W 02D6 1903 000993 btfsc STATUS,Z ; skip if not equal 02D7 2A91 000994 goto ATstyle ; ignore it 02D8 000995 02D8 30EA 000996 movlw 0xE9+1 ; End 02D9 021A 000997 subwf tableoffset,W 02DA 1903 000998 btfsc STATUS,Z ; skip if not equal 02DB 2A91 000999 goto ATstyle ; ignore it 02DC 001000 02DC 30ED 001001 movlw 0xEC+1 ; Home 02DD 021A 001002 subwf tableoffset,W 02DE 1903 001003 btfsc STATUS,Z ; skip if not equal 02DF 2A91 001004 goto ATstyle ; ignore it 02E0 001005 02E0 30F1 001006 movlw 0xF0+1 ; Insert 02E1 021A 001007 subwf tableoffset,W 02E2 1903 001008 btfsc STATUS,Z ; skip if not equal 02E3 2A91 001009 goto ATstyle ; ignore it 02E4 001010 02E4 30FB 001011 movlw 0xFA+1 ; PageDown 02E5 021A 001012 subwf tableoffset,W 02E6 1903 001013 btfsc STATUS,Z ; skip if not equal 02E7 2A91 001014 goto ATstyle ; ignore it 02E8 001015 02E8 30FD 001016 movlw 0xFC+1 ; PrtScrn 02E9 021A 001017 subwf tableoffset,W 02EA 1903 001018 btfsc STATUS,Z ; skip if not equal 02EB 2A91 001019 goto ATstyle ; ignore it 02EC 001020 02EC 30FE 001021 movlw 0xFD+1 ; PageUp 02ED 021A 001022 subwf tableoffset,W 02EE 1903 001023 btfsc STATUS,Z ; skip if not equal 02EF 2A91 001024 goto ATstyle ; ignore it 02F0 001025 02F0 30FF 001026 movlw 0xFE+1 ; Break 02F1 021A 001027 subwf tableoffset,W 02F2 1903 001028 btfsc STATUS,Z ; skip if not equal 02F3 2A91 001029 goto ATstyle ; ignore it 02F4 001030 02F4 081A 001031 movf tableoffset,W 02F5 2001 001032 call ATtb1 02F6 39FE 001033 andlw 0xFE ; clear bit 0 02F7 2148 001034 call amigatransmit 02F8 2A91 001035 goto ATstyle 02F9 001036 02F9 001037 02F9 001038 02F9 001039 02F9 001040 02F9 001041 02F9 001042 02F9 001043 02F9 001044 02F9 001045 02F9 001046 02F9 001047 02F9 001048 02F9 001049 02F9 001050 ; *** Change configuration *** 02F9 001051 config 02F9 019E 001052 clrf eeaddress 02FA 303B 001053 movlw 0x3B ; CAPSLOCK ON 02FB 21A0 001054 call actualtransmit 02FC 001055 02FC 235C 001056 call say_select ; Select Type of 02FD 237E 001057 call say_key ; key 02FE 3095 001058 movlw 0x95 ; b 02FF 23B5 001059 call sendmessage 0300 30CF 001060 movlw 0xCF ; o 0301 23B5 001061 call sendmessage 0302 30BF 001062 movlw 0xBF ; a 0303 23B5 001063 call sendmessage 0304 30D9 001064 movlw 0xD9 ; r 0305 23B5 001065 call sendmessage 0306 30BB 001066 movlw 0xBB ; d 0307 23B5 001067 call sendmessage 0308 2385 001068 call say_option1 ; 1= 0309 2398 001069 call say_uk10 ; uk 10 030A 30FB 001070 movlw 0xFB ; 2 030B 23B5 001071 call sendmessage 030C 307F 001072 movlw 0x7F ; space 030D 23B5 001073 call sendmessage 030E 237E 001074 call say_key ; key 030F 238F 001075 call say_option2 ; 2= 0310 2398 001076 call say_uk10 ; uk 10 0311 30F5 001077 movlw 0xF5 ; 5 0312 23B5 001078 call sendmessage 0313 307F 001079 movlw 0x7F ; space 0314 23B5 001080 call sendmessage 0315 237E 001081 call say_key ; key 0316 307F 001082 movlw 0x7F ; space 0317 23B5 001083 call sendmessage 0318 30DD 001084 movlw 0xDD ; w 0319 23B5 001085 call sendmessage 031A 30D1 001086 movlw 0xD1 ; i 031B 23B5 001087 call sendmessage 031C 3093 001088 movlw 0x93 ; n 031D 23B5 001089 call sendmessage 031E 30ED 001090 movlw 0xED ; 9 031F 23B5 001091 call sendmessage 0320 30F5 001092 movlw 0xF5 ; 5 0321 23B5 001093 call sendmessage 0322 3077 001094 movlw 0x77 ; return 0323 23B5 001095 call sendmessage 0324 23BC 001096 call getselection 0325 009F 001097 movwf eedata 0326 081F 001098 movf eedata,W 0327 1903 001099 btfsc STATUS,Z ; skip if not zero 0328 2AF9 001100 goto config ; bad choice, try again 0329 23C8 001101 call writedata 032A 23A3 001102 call say_ok 032B 01A0 001103 clrf win95 032C 3000 001104 movlw Keytype 032D 23D8 001105 call readdata 032E 3C02 001106 sublw 0x2 032F 1903 001107 btfsc STATUS,Z ; skip if not equal 0330 09A0 001108 comf win95 ; win95=true or false 0331 001109 0331 0A9E 001110 incf eeaddress 0332 001111 askreset 0332 235C 001112 call say_select ; Select Type of 0333 23AA 001113 call say_reset ; reset 0334 2385 001114 call say_option1 ; 1= 0335 30B9 001115 movlw 0xB9 ; f 0336 23B5 001116 call sendmessage 0337 30BF 001117 movlw 0xBF ; a 0338 23B5 001118 call sendmessage 0339 30BD 001119 movlw 0xBD ; s 033A 23B5 001120 call sendmessage 033B 30D7 001121 movlw 0xD7 ; t 033C 23B5 001122 call sendmessage 033D 307F 001123 movlw 0x7F ; space 033E 23B5 001124 call sendmessage 033F 23AA 001125 call say_reset ; reset 0340 238F 001126 call say_option2 ; 2= 0341 30BD 001127 movlw 0xBD ; s 0342 23B5 001128 call sendmessage 0343 30AF 001129 movlw 0xAF ; l 0344 23B5 001130 call sendmessage 0345 30CF 001131 movlw 0xCF ; o 0346 23B5 001132 call sendmessage 0347 30DD 001133 movlw 0xDD ; w 0348 23B5 001134 call sendmessage 0349 307F 001135 movlw 0x7F ; space 034A 23B5 001136 call sendmessage 034B 23AA 001137 call say_reset ; reset 034C 3077 001138 movlw 0x77 ; return 034D 23B5 001139 call sendmessage 034E 001140 034E 23BC 001141 call getselection 034F 009F 001142 movwf eedata 0350 081F 001143 movf eedata,W 0351 1903 001144 btfsc STATUS,Z ; skip if not zero 0352 2B32 001145 goto askreset ; bad choice, try again 0353 23C8 001146 call writedata 0354 23A3 001147 call say_ok 0355 001148 0355 019B 001149 clrf AltConfig 0356 307E 001150 movlw 0x7E ; space up 0357 088D 001151 movf Capdown,F ; Capslock down? 0358 1903 001152 btfsc STATUS,Z ; skip if non-zero i.e caps pressed 0359 303A 001153 movlw 0x3A ; Caps up 035A 0096 001154 movwf Amigachar 035B 0008 001155 return 035C 001156 035C 001157 say_select 035C 3077 001158 movlw 0x77 ; return x2 035D 23B5 001159 call sendmessage 035E 23B5 001160 call sendmessage 035F 30BD 001161 movlw 0xBD ; s 0360 23B5 001162 call sendmessage 0361 30DB 001163 movlw 0xDB ; e 0362 23B5 001164 call sendmessage 0363 30AF 001165 movlw 0xAF ; l 0364 23B5 001166 call sendmessage 0365 30DB 001167 movlw 0xDB ; e 0366 23B5 001168 call sendmessage 0367 3099 001169 movlw 0x99 ; c 0368 23B5 001170 call sendmessage 0369 30D7 001171 movlw 0xD7 ; t 036A 23B5 001172 call sendmessage 036B 307F 001173 movlw 0x7F ; space 036C 23B5 001174 call sendmessage 036D 30D7 001175 movlw 0xD7 ; t 036E 23B5 001176 call sendmessage 036F 30D5 001177 movlw 0xD5 ; y 0370 23B5 001178 call sendmessage 0371 30CD 001179 movlw 0xCD ; p 0372 23B5 001180 call sendmessage 0373 30DB 001181 movlw 0xDB ; e 0374 23B5 001182 call sendmessage 0375 307F 001183 movlw 0x7F ; space 0376 23B5 001184 call sendmessage 0377 30CF 001185 movlw 0xCF ; o 0378 23B5 001186 call sendmessage 0379 30B9 001187 movlw 0xB9 ; f 037A 23B5 001188 call sendmessage 037B 307F 001189 movlw 0x7F ; space 037C 23B5 001190 call sendmessage 037D 0008 001191 return 037E 001192 037E 001193 say_key 037E 30B1 001194 movlw 0xB1 ; k 037F 23B5 001195 call sendmessage 0380 30DB 001196 movlw 0xDB ; e 0381 23B5 001197 call sendmessage 0382 30D5 001198 movlw 0xD5 ; y 0383 23B5 001199 call sendmessage 0384 0008 001200 return 0385 001201 0385 001202 say_option1 0385 3077 001203 movlw 0x77 ; return x2 0386 23B5 001204 call sendmessage 0387 23B5 001205 call sendmessage 0388 30FD 001206 movlw 0xFD ; 1 0389 23B5 001207 call sendmessage 038A 30E7 001208 movlw 0xE7 ; = 038B 23B5 001209 call sendmessage 038C 307F 001210 movlw 0x7F ; space 038D 23B5 001211 call sendmessage 038E 0008 001212 return 038F 001213 038F 001214 say_option2 038F 3077 001215 movlw 0x77 ; return 0390 23B5 001216 call sendmessage 0391 30FB 001217 movlw 0xFB ; 2 0392 23B5 001218 call sendmessage 0393 30E7 001219 movlw 0xE7 ; = 0394 23B5 001220 call sendmessage 0395 307F 001221 movlw 0x7F ; space 0396 23B5 001222 call sendmessage 0397 0008 001223 return 0398 001224 0398 001225 say_uk10 0398 30D3 001226 movlw 0xD3 ; u 0399 23B5 001227 call sendmessage 039A 30B1 001228 movlw 0xB1 ; k 039B 23B5 001229 call sendmessage 039C 307F 001230 movlw 0x7F ; space 039D 23B5 001231 call sendmessage 039E 30FD 001232 movlw 0xFD ; 1 039F 23B5 001233 call sendmessage 03A0 30EB 001234 movlw 0xEB ; 0 03A1 23B5 001235 call sendmessage 03A2 0008 001236 return 03A3 001237 03A3 001238 say_ok 03A3 30CF 001239 movlw 0xCF ; o 03A4 23B5 001240 call sendmessage 03A5 30B1 001241 movlw 0xB1 ; k 03A6 23B5 001242 call sendmessage 03A7 3077 001243 movlw 0x77 ; return 03A8 23B5 001244 call sendmessage 03A9 0008 001245 return 03AA 001246 03AA 001247 say_reset 03AA 30D9 001248 movlw 0xD9 ; r 03AB 23B5 001249 call sendmessage 03AC 30DB 001250 movlw 0xDB ; e 03AD 23B5 001251 call sendmessage 03AE 30BD 001252 movlw 0xBD ; s 03AF 23B5 001253 call sendmessage 03B0 30DB 001254 movlw 0xDB ; e 03B1 23B5 001255 call sendmessage 03B2 30D7 001256 movlw 0xD7 ; t 03B3 23B5 001257 call sendmessage 03B4 0008 001258 return 03B5 001259 03B5 001260 03B5 001261 sendmessage 03B5 009C 001262 movwf Savechar 03B6 21A0 001263 call actualtransmit 03B7 081C 001264 movf Savechar,W 03B8 39FE 001265 andlw 0xFE 03B9 21A0 001266 call actualtransmit 03BA 081C 001267 movf Savechar,W 03BB 0008 001268 return 03BC 001269 03BC 001270 getselection 03BC 2217 001271 call ATgetkey 03BD 2217 001272 call ATgetkey 03BE 2217 001273 call ATgetkey 03BF 3016 001274 movlw 0x16 ; was key 1 pressed and released 03C0 0219 001275 subwf ATchar,W 03C1 1903 001276 btfsc STATUS,Z ; skip if not equal 03C2 3401 001277 retlw 0x1 03C3 301E 001278 movlw 0x1E ; was key 2 pressed and released 03C4 0219 001279 subwf ATchar,W 03C5 1903 001280 btfsc STATUS,Z ; skip if not equal 03C6 3402 001281 retlw 0x2 03C7 3400 001282 retlw 0x0 03C8 001283 03C8 001284 writedata 03C8 081E 001285 movf eeaddress,W 03C9 0089 001286 movwf EEADR 03CA 081F 001287 movf eedata,W 03CB 0088 001288 movwf EEDATA 03CC 1683 001289 PAGE1 03CD 1508 001290 bsf EECON1,WREN ; EEPROM write enable 03CE 3055 001291 movlw 0x55 03CF 0089 001292 movwf EECON2 03D0 30AA 001293 movlw 0xAA 03D1 0089 001294 movwf EECON2 03D2 1488 001295 bsf EECON1,WR 03D3 001296 wait_write 03D3 1E08 001297 btfss EECON1,EEIF ; wait for write to finish 03D4 2BD3 001298 goto wait_write 03D5 0188 001299 clrf EECON1 ; EEPROM write disable & int accept 03D6 1283 001300 PAGE0 03D7 0008 001301 return 03D8 001302 03D8 001303 03D8 001304 readdata 03D8 0089 001305 movwf EEADR 03D9 1683 001306 PAGE1 03DA 1408 001307 bsf EECON1,RD ; EEPROM read 03DB 1283 001308 PAGE0 03DC 0808 001309 movf EEDATA,W 03DD 0008 001310 return 03DE 001311 03DE 001312 03DE 001313 03DE 001314 03DE 001315 03DE 001316 03DE 001317 03DE 001318 end Used Symbols ----------------------------------------- W 00000000 F 00000001 INDF 00000000 TMR0 00000001 PCL 00000002 STATUS 00000003 FSR 00000004 PORTA 00000005 PORTB 00000006 PCLATH 0000000A INTCON 0000000B OPTION_REG 00000081 TRISA 00000085 TRISB 00000086 GIE 00000007 T0IE 00000005 INTE 00000004 RBIE 00000003 T0IF 00000002 INTF 00000001 RBIF 00000000 NOT_RBPU 00000007 INTEDG 00000006 T0CS 00000005 T0SE 00000004 PSA 00000003 PS2 00000002 PS1 00000001 PS0 00000000 IRP 00000007 RP1 00000006 RP0 00000005 NOT_TO 00000004 NOT_PD 00000003 Z 00000002 DC 00000001 C 00000000 EEDATA 00000008 EEADR 00000009 EECON1 00000088 EECON2 00000089 RD 00000000 WR 00000001 WREN 00000002 WRERR 00000003 EEIF 00000004 ScrollLock 00000000 NumLock 00000001 CapsLock 00000002 Kclk 00000001 Kdat 00000000 Aclk 00000004 Adat 00000003 Arst 00000002 Ctrlbit 00000000 RAmigabit 00000001 LAmigabit 00000002 Keytype 00000000 Resetype 00000001 ScratchPadRam 0000000C Capbit 0000000C Capdown 0000000D CtrlDown 0000000E RESET 0000000F Lights 00000010 Count3 00000011 ATparity 00000012 Make 00000013 Charbad 00000014 Oldchar 00000015 Amigachar 00000016 Count1 00000017 Count2 00000018 ATchar 00000019 tableoffset 0000001A AltConfig 0000001B Savechar 0000001C returnvalue 0000001D eeaddress 0000001E eedata 0000001F win95 00000020 Savechar2 00000021 ATtb1 00000001 ATtb2 00000081 lctrl 00000100 rctrl 00000103 swapscreen 00000106 prtscreen 0000010D endkey 00000114 home 0000011B pagedown 00000122 pageup 00000129 insert 00000130 break 00000137 longdelay 0000013E dly 0000013F fixeddelay 00000143 smalldelay 00000144 delay 00000145 amigatransmit 00000148 transok2 00000166 transok4 0000017D transok3 00000184 nocontrol 00000195 actualtransmit 000001A0 actual2 000001A3 f 000001A6 ack 000001BD ready 000001C5 syncup 000001CC SendtoAT 000001D7 resend 000001D8 Send4 000001E8 Send5 000001F1 Send6 000001F5 Send7 000001FB Send77 000001FD Send78 00000200 Send79 00000205 Send7a 00000207 ATgetkey 00000217 skip1st 0000021C skippy 0000021E ATwait0 00000222 ATwait1 00000229 parity0 0000022D parity1 0000022F stop0 00000231 stop1 00000233 flash 0000023C reset 0000024A strobe 00000253 kill 0000025B start 00000264 SpinUp 00000264 waitHD 0000026A start2 0000026E waitAT 00000284 ATstyle 00000291 ATnE1 000002A1 ATnEF12 000002B2 ATnE0F0 000002B7 ATnE012 000002BB ATnE0 000002C0 ATdown 000002C6 ATup 000002CD config 000002F9 askreset 00000332 say_select 0000035C say_key 0000037E say_option1 00000385 say_option2 0000038F say_uk10 00000398 say_ok 000003A3 say_reset 000003AA sendmessage 000003B5 getselection 000003BC writedata 000003C8 wait_write 000003D3 readdata 000003D8 Used Defines ----------------------------------------- PAGE0 bcf STATUS,RP0 PAGE1 bsf STATUS,RP0 PROGRAM MEMORY USAGE TABLE: '-' = not used 'X' = used 0000 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0040 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0080 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 00C0 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0100 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0140 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0180 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 01C0 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0200 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0240 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0280 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 02C0 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0300 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0340 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 0380 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 03C0 : XXXXXXXXXXXXXXXX XXXXXXXXXXXXXX-- ---------------- ---------------- Program Memory Words Used: 0990 Program Memory Words Free: 0034 Errors: 0