Otherware

home *** CD-ROM | disk | FTP | other *** search

/ Otherware / Otherware_1_SB_Development.iso / amiga / info / ibm_keyb.lha / key.list < prev next >

Wrap

Text File | 1992-03-25 | 69.0 KB | 1,192 lines

000001 0000 ;* these equates are explained below. Relocate them to any of 000002 0000 ;* Port1, pins 0-7 or Port3, pins 0-7, except Port3, pins2 and 3 000003 0000 ;* because these are the external interrupts. 000004 0000 000005 0090 .equ Kclk,p1.0 000006 0091 .equ Kdat,p1.1 000007 0092 .equ Kreset,p1.2 000008 0093 .equ Aclk,p1.3 000009 0094 .equ Adat,p1.4 000010 0095 .equ Areset,p1.5 000011 0097 .equ Kswitch,p1.7 000012 0000 000013 0000 .org 0000h 000014 0000 020200 init: ljmp start 000015 0003 .org 0003h 000016 0003 0204D0 ljmp resetint 000017 001B .org 001bh 000018 001B 0205B4 ljmp timer1int 000019 001E 000020 001E ;************************************************** 000021 001E ;* 000022 001E ;* 000023 001E ;* Equates Descriptions: 000024 001E ;* 000025 001E ;* Watch1 is a flag which tells the IBM keycode parser that 000026 001E ;* some extranneous codes are to come across the lines. In 000027 001E ;* particular, these codes will be either E0 4A or E0 59. The 000028 001E ;* parser should ignore them. 000029 001E ;* Watch2 is also the same type of flag as Watch1. It 000030 001E ;* tells the parser that E0 12 59 will follow and to ignore it. 000031 001E ;* 000032 001E ;* Aclk is the line to the Amiga keyboard clock in. (P1.3) 000033 001E ;* Adat is the line to the Amiga keyboard data in. (P1.4) 000034 001E ;* Areset is the Amiga Reset line (P1.5) 000035 001E ;* Kclk is the line to the Keyboard clock out (P1.0) 000036 001E ;* Kdat is the line to the Keyboard data out (P1.1) 000037 001E ;* Kreset is the Keyboard Reset line (P1.2) 000038 001E ;* Kstyle is bit defining whether or not the keyboard 000039 001E ;* is AT or XT. if AT, Kstyle=1 000040 001E ;* 000041 001E ;* Oldchar is the last character typed to go to the Amiga. 000042 001E ;* This is used to tell if the Capslock was Pressed and 000043 001E ;* Released without pressing any other keys. If this was done, 000044 001E ;* then it is a "Caps Lock" otherwise, the Caps key functions 000045 001E ;* as the Control Key because of the keyboard remapping. 000046 001E ;* 000047 001E ;* Capbit is the flag which tells whether the Caps Lock 000048 001E ;* should be down or up. 000049 001E ;* Capdown is the flag which tells whether the Caps Lock 000050 001E ;* KEY is presently down or up. The difference between Capdown 000051 001E ;* and Capbit is that Capdown relates to the KEY. Capbit toggles 000052 001E ;* once for every "press and release" of the Cap Lock Key. 000053 001E ;* Press and release Cap Lock Key, and Capbit goes low..... 000054 001E ;* Press and release it again, and Capbit goes high.... 000055 001E ;* Cntldown is the flag which is set and reset when you 000056 001E ;* press Cap Lock and then another key. Then, Cap Lock Key 000057 001E ;* functions as the Control Key. 000058 001E ;* LAMIGA,RAMIGA,and CONTROL are all flags that tell if those 000059 001E ;* keys are being held down. When all three are, the computer 000060 001E ;* will reset. 000061 001E ;* 000062 001E ;* ATparity is the 10th bit that the AT keyboard transmits. It 000063 001E ;* is SET if the number of DATA bits set is EVEN. Otherwise, its 000064 001E ;* CLEARED. 000065 001E ;* 000066 001E ;************************************************** 000067 001E 000068 001E ;bit memory locations: 000069 001E 000070 0042 .equ Capbit,42h 000071 0043 .equ Capdown,43h 000072 0044 .equ Ctrldown,44h 000073 0045 .equ CONTROL,45h 000074 0046 .equ LAMIGA,46h 000075 0047 .equ RAMIGA,47h 000076 0048 .equ ATparity,48h 000077 0049 .equ Make,49h 000078 004A .equ XT7bit,4ah 000079 004B .equ Kstyle,4bh 000080 001E 000081 001E ;byte memory locations: 000082 001E 000083 0050 .equ Charbad,50h 000084 0051 .equ Oldchar,51h 000085 0052 .equ Amigachar,52h 000086 001E 000087 0200 .org 0200h 000088 0200 000089 0200 758911 start: mov tmod,#11h ;two 16 bit timers 000090 0203 758805 mov tcon,#05h 000091 0206 75A800 mov ie,#00h ;clear all interrupts 000092 0209 D2AF setb ea 000093 020B D2AB setb et1 ;enable timer 1 000094 020D D2A8 setb ex0 ;enable external 0 000095 020F D2B2 setb int0 ;make sure it's high 000096 0211 D2B9 setb pt0 000097 0213 758130 mov sp,#30h ;stack somewhere safe. 000098 0216 000099 0216 ; set the ports for input 000100 0216 7590FF mov p1,#255 ;set port1 for read 000101 0219 C28E clr tr1 ;make sure timers are in 000102 021B C28F clr tf1 ;reset state. 000103 021D C28C clr tr0 000104 021F C28D clr tf0 000105 0221 000106 0221 ; clear out the miscellaneous flags. 000107 0221 C243 clr Capdown ;Caps is up... 000108 0223 C244 clr Ctrldown ;Control is up 000109 0225 C242 clr Capbit ;Caps light is off. 000110 0227 D245 setb CONTROL ;all reset keys are UP 000111 0229 D246 setb LAMIGA 000112 022B D247 setb RAMIGA 000113 022D 000114 022D ;**** sync the controller with the Amiga. clock out 000115 022D ;**** ones until we receive a handshake... 000116 022D sync: 000117 022D 758B00 mov tl1,#0 ;set up timer for 143ms 000118 0230 758D00 mov th1,#0 000119 0233 7902 mov r1,#2 000120 0235 D28E setb tr1 000121 0237 sync2: 000122 0237 2094FD jb Adat,sync2 ;wait for handshake 000123 023A sync3: 000124 023A 3094FD jnb Adat,sync3 ;wait for end of handshake 000125 023D C28E clr tr1 000126 023F 000127 023F ;**** transmit power up key stream and end key stream. 000128 023F 74FD mov a,#0FDh 000129 0241 B16F acall actualtransmit 000130 0243 74FE mov a,#0FEh 000131 0245 B16F acall actualtransmit 000132 0247 000133 0247 ;**** test for XT keyboard, if Kswitch is low, automatically 000134 0247 ;**** jump to XT mode. 000135 0247 ;**** otherwise, test to see if Kdat is low and stays there. 000136 0247 ;**** If so, it's in XT mode. 000137 0247 309719 jnb Kswitch,XTPowerup 000138 024A 20912A jb Kdat,ATPowerup 000139 024D 758C00 mov th0,#0 000140 0250 758A00 mov tl0,#0 000141 0253 C28D clr tf0 000142 0255 D28C setb tr0 000143 0257 208D09 XTtest: jb tf0,XTPowerup ;timer ran out. XT mode. 000144 025A 3091FA jnb Kdat,XTtest ;data is low, but for how long? 000145 025D C28C clr tr0 000146 025F C28D clr tf0 000147 0261 8014 sjmp ATPowerup 000148 0263 XTPowerup: 000149 0263 C24B clr Kstyle ;XT flag. 000150 0265 C28D clr tf0 000151 0267 C290 clr Kclk ;Clock low=Reset for the XT. 000152 0269 XTreset: 000153 0269 308DFD jnb tf0,XTreset 000154 026C D290 setb Kclk 000155 026E C28C clr tr0 000156 0270 C28D clr tf0 000157 0272 715C ll: acall XTgetkey ;(Should be AA) 000158 0274 02037A ljmp XTstyle 000159 0277 000160 0277 ;**** sync up the AT and go with it! 000161 0277 000162 0277 ATPowerup: 000163 0277 D24B setb Kstyle 000164 0279 74FF mov a,#0ffh ;RESET 000165 027B 711F acall SendtoAT 000166 027D 74F6 mov a,#0f6h ;DEFAULT 000167 027F 711F acall SendtoAT 000168 0281 74ED mov a,#0edh ;NEXT DATA is FOR LIGHTS 000169 0283 711F acall SendtoAT 000170 0285 7402 mov a,#2 ;NUMLOCK ON? 000171 0287 711F acall SendtoAT 000172 0289 74F4 mov a,#0f4h ;CLEAR BUFFER 000173 028B 711F acall SendtoAT 000174 028D 0202CB ljmp ATstyle ;go and parse AT keyboard 000175 0290 000176 0290 ;*********************************************** 000177 0290 ;* ATgetkey 000178 0290 ;* ATgetkey 000179 0290 ;* ATgetkey 000180 0290 ;* 000181 0290 ;* ATgetkey looks at the keyboard and waits for a key to be 000182 0290 ;* pressed. ATinkey is the actual routine that watched the logic 000183 0290 ;* levels of Kdat and Kclk. IF the character's parity is not 000184 0290 ;* what it is supposed to be, then the routine will attempt to 000185 0290 ;* tell the keyboard to resend. 000186 0290 ;* 000187 0290 ;* When exiting from this routine, Kclock is pulled low to hold 000188 0290 ;* off any more transmissions. You must restore it to 5 volts to 000189 0290 ;* receive any more characters later. 000190 0290 ;* 000191 0290 ;* 000192 0290 000193 0290 ATgetkey: 000194 0290 780B mov r0,#11 ;number of bits 000195 0292 D290 setb Kclk 000196 0294 ATwaitC0: 000197 0294 2090FD jb Kclk,ATwaitC0 ;wait for a clock pulse 000198 0297 18 dec r0 ;decrement clock bit counter 000199 0298 B80A02 cjne r0,#10,ATnstart ;test for startbit 000200 029B 8029 sjmp ATwait 000201 029D ATnstart: 000202 029D B8001A cjne r0,#0,ATnstop ;check for stopbit 000203 02A0 ATwaitC1: 000204 02A0 3090FD jnb Kclk,ATwaitC1 ;wait for clock to go high 000205 02A3 C290 clr Kclk ;hold off more data 000206 02A5 7814 mov r0,#20 ;small delay 000207 02A7 D8FE pause: djnz r0,pause 000208 02A9 ;**** now we check to see if the parity between 000209 02A9 ;**** Bit register P (which is set if Parity of Acc is odd) 000210 02A9 ;**** is compared to the received Parity Bit. 000211 02A9 20D004 jb p,parityodd ;test if parity of DATA is odd 000212 02AC parityeven: 000213 02AC 304805 jnb ATparity,ATerror 000214 02AF 22 ret ;Okay to return. A=valid 000215 02B0 parityodd: 000216 02B0 204801 jb ATparity,ATerror 000217 02B3 22 ret ;Okay to return. A=valid 000218 02B4 ATerror: 000219 02B4 74FE mov a,#0feh ;RESEND character 000220 02B6 711F acall SendtoAT 000221 02B8 80D6 sjmp ATgetkey ;now return to caller 000222 02BA ATnstop: 000223 02BA B80106 cjne r0,#1,ATdatab ;check for paritybit 000224 02BD A291 mov c,Kdat ;error checking! (AT only) 000225 02BF 9248 mov ATparity,c 000226 02C1 8003 sjmp ATwait ; 000227 02C3 ATdatab: 000228 02C3 A291 mov c,Kdat ;get data bit 000229 02C5 13 rrc a ;shift it into accumulator 000230 02C6 3090FD ATwait: jnb Kclk,ATwait ;wait for clock line to go low 000231 02C9 80C9 sjmp ATwaitC0 ;get another bit 000232 02CB 000233 02CB 000234 02CB ;************************************************** 000235 02CB ;* AT-STYLE 000236 02CB ;* 000237 02CB ;* This waits for a keycode or two from the IBM and then calls 000238 02CB ;* the appropriate transmit subroutine. The IBM keyboard sends 000239 02CB ;* out special codes in front of and behind some scancodes. This 000240 02CB ;* routine will chop them out before doing a lookup on the 000241 02CB ;* code to see what to send to the AMIGA. The scancodes between 000242 02CB ;* the IBM and the AMIGA are of course, not the same! 000243 02CB ;* 000244 02CB ;************************************************** 000245 02CB 000246 02CB ATstyle: 000247 02CB 5190 acall ATgetkey ;get one scancode. 000248 02CD B4E110 cjne a,#0e1h,ATnE1 000249 02D0 5190 acall ATgetkey ;(should be 14) 000250 02D2 5190 acall ATgetkey ;(should be 77) 000251 02D4 5190 acall ATgetkey ;(should be E1) 000252 02D6 5190 acall ATgetkey ;(should be F0) 000253 02D8 5190 acall ATgetkey ;(should be 14) 000254 02DA 5190 acall ATgetkey ;(should be F0) 000255 02DC 5190 acall ATgetkey ;(should be 77) 000256 02DE 80EB sjmp ATstyle 000257 02E0 ;PAUSE was pressed. Just ignore it. 000258 02E0 ATnE1: 000259 02E0 9005D5 mov dptr,#ATtb1 000260 02E3 B4E022 cjne a,#0e0h,ATnE0 000261 02E6 900655 mov dptr,#ATtb2 000262 02E9 5190 acall ATgetkey 000263 02EB B4F00E cjne a,#0f0h,ATnE0F0 000264 02EE 5190 acall ATgetkey 000265 02F0 B41203 cjne a,#12h,ATnEF12 000266 02F3 0202CB ljmp ATstyle ;(E0F012....ignore it) 000267 02F6 ATnEF12: 000268 02F6 B4591E cjne a,#59h,ATup ;(E0F0mk) 000269 02F9 0202CB ljmp ATstyle ;(E0F059....ignore it) 000270 02FC ATnE0F0: 000271 02FC B41203 cjne a,#12h,ATnE012 000272 02FF 0202CB ljmp ATstyle ;(E012....ignore it) 000273 0302 ATnE012: 000274 0302 B4590A cjne a,#59h,ATdown ;(E0mk) 000275 0305 0202CB ljmp ATstyle ;(E059....ignore it) 000276 0308 ATnE0: 000277 0308 B4F004 cjne a,#0f0h,ATdown ;(mk) 000278 030B 5190 acall ATgetkey 000279 030D 8008 sjmp ATup ;(F0mk....normal key break) 000280 030F 000281 030F ;************************************************** 000282 030F ;* ATdown and the rest here call a lookup table to change 000283 030F ;* the AT scancodes into AMIGA scancodes. In the "down" 000284 030F ;* routine, the "make" bit is asserted. In the "up" routine 000285 030F ;* it is de-asserted. 000286 030F ;************************************************** 000287 030F ATdown: 000288 030F 93 movc a,@a+dptr ;indexed into table 000289 0310 C2E7 clr acc.7 ;clear make/break bit 000290 0312 71BF acall transmit ;transmit it 000291 0314 0202CB ljmp ATstyle 000292 0317 ATup: 000293 0317 93 movc a,@a+dptr 000294 0318 D2E7 setb acc.7 ;set make/break bit 000295 031A 71BF acall transmit ;transmit it 000296 031C 0202CB ljmp ATstyle 000297 031F 000298 031F ;************************************************** 000299 031F ;* SendtoAT is the subroutine that sends special codes 000300 031F ;* to the keyboard from the controller. Codes include 000301 031F ;* the command to reset (FF) or the command to change 000302 031F ;* the lights (ED). It is advisable to keep the timing 000303 031F ;* very close to how I have it done in this routine. 000304 031F ;************************************************** 000305 031F 000306 031F SendtoAT: 000307 031F D290 setb Kclk 000308 0321 C291 clr Kdat 000309 0323 7808 mov r0,#8 000310 0325 2090FD Send4: jb Kclk,Send4 ;data bit 000311 0328 A2E0 mov c,acc.0 000312 032A 9291 mov Kdat,c 000313 032C 03 rr a 000314 032D 3090FD Send5: jnb Kclk,Send5 ;data bit 000315 0330 18 dec r0 000316 0331 B800F1 cjne r0,#0,Send4 000317 0334 A2D0 mov c,p 000318 0336 B3 cpl c 000319 0337 2090FD Send6: jb Kclk,Send6 ;parity bit 000320 033A 9291 mov Kdat,c 000321 033C 3090FD Send7: jnb Kclk,Send7 ;parity bit 000322 033F 2090FD Send77: jb Kclk,Send77 ;stop bit 000323 0342 D291 setb Kdat 000324 0344 3090FD Send78: jnb Kclk,Send78 ;stop bit 000325 0347 2090FD Send79: jb Kclk,Send79 000326 034A 3090FD Send7a: jnb Kclk,Send7a 000327 034D 7808 mov r0,#8 ;small delay 000328 034F D8FE Send8: djnz r0,Send8 000329 0351 C290 clr Kclk ;drive clock low 000330 0353 7814 mov r0,#20 ;long delay 000331 0355 D8FE Send9: djnz r0,Send9 000332 0357 D290 setb Kclk 000333 0359 5190 acall ATgetkey ;should check if response isbad. 000334 035B 22 ret ;who cares if it is? not me! 000335 035C 000336 035C XTgetkey: 000337 035C D291 setb Kdat ;let data flow! 000338 035E 7808 mov r0,#8 000339 0360 2090FD XTw1: jb Kclk,XTw1 ;start bit1 000340 0363 3090FD XTw2: jnb Kclk,XTw2 ;start bit1 000341 0366 2090FD XTw3: jb Kclk,XTw3 ;start bit2 000342 0369 3090FD XTw4: jnb Kclk,XTw4 ;start bit2 000343 036C 2090FD XTw5: jb Kclk,XTw5 ;data bit 000344 036F A291 mov c,Kdat 000345 0371 13 rrc a 000346 0372 3090FD XTw6: jnb Kclk,XTw6 ;data bit 000347 0375 D8F5 djnz r0,XTw5 000348 0377 C291 clr Kdat ;hold off data 000349 0379 22 ret 000350 037A 000351 037A XTstyle: 000352 037A 715C acall XTgetkey 000353 037C B4E10C cjne a,#0e1h,XTnE1 000354 037F 715C acall XTgetkey ;(should be 1d) 000355 0381 715C acall XTgetkey ;(should be 45) 000356 0383 715C acall XTgetkey ;(should be e1) 000357 0385 715C acall XTgetkey ;(should be 9d) 000358 0387 715C acall XTgetkey ;(should be c5) 000359 0389 80EF sjmp XTstyle 000360 038B XTnE1: 000361 038B B4E029 cjne a,#0e0h,XTnE0 000362 038E 715C acall XTgetkey 000363 0390 B4AA02 cjne a,#0aah,XTnAA 000364 0393 80E5 sjmp XTstyle 000365 0395 XTnAA: 000366 0395 B42A02 cjne a,#2ah,XTn2A 000367 0398 80E0 sjmp XTstyle 000368 039A XTn2A: 000369 039A B4B602 cjne a,#0b6h,XTnB6 000370 039D 80DB sjmp XTstyle 000371 039F XTnB6: 000372 039F B43602 cjne a,#36h,XTn36 000373 03A2 80D6 sjmp XTstyle 000374 03A4 XTn36: 000375 03A4 900755 mov dptr,#XTtb2 000376 03A7 XTlookup: 000377 03A7 A2E7 mov c,acc.7 ;(1=break) 000378 03A9 924A mov XT7bit,c 000379 03AB C2E7 clr acc.7 000380 03AD 93 movc a,@a+dptr 000381 03AE A24A mov c,XT7bit 000382 03B0 92E7 mov acc.7,c 000383 03B2 71BF acall transmit 000384 03B4 02037A ljmp XTstyle 000385 03B7 XTnE0: 000386 03B7 9006D5 mov dptr,#XTtb1 000387 03BA 80EB sjmp XTlookup 000388 03BC 000389 03BC ;************************************************** 000390 03BC ;* 000391 03BC ;* TRANSMIT first does some checking to take out repeating 000392 03BC ;* keys and does the conversion on the Caps Lock Key and 000393 03BC ;* then calls Actualtransmit. 000394 03BC ;* 000395 03BC ;************************************************** 000396 03BC 000397 03BC dontrans: ;jumps back if key is already 000398 03BC D0E0 pop acc ;held down. 000399 03BE 22 ret 000400 03BF transmit: 000401 03BF B55101 cjne a,Oldchar,transok 000402 03C2 22 ret 000403 03C3 transok: 000404 03C3 B46205 cjne a,#62h,transok2 ;jump if not CapsLock=down 000405 03C6 F551 mov Oldchar,a 000406 03C8 D243 setb Capdown ;set the flags for later 000407 03CA 22 ret 000408 03CB transok2: 000409 03CB B4E230 cjne a,#0e2h,transok3;jump if not CapsLock=up 000410 03CE E551 mov a,Oldchar ;see if Caps was just down 000411 03D0 304B03 jnb Kstyle,XTcap ;if XT, skip control feature. 000412 03D3 B4621D cjne a,#62h,transok4 ;if not, then it was a control 000413 03D6 XTcap: 000414 03D6 C243 clr Capdown ;clear flag 000415 03D8 B242 cpl Capbit ;toggle down/up-ness of Caplock 000416 03DA 7462 mov a,#62h 000417 03DC A242 mov c,Capbit 000418 03DE B3 cpl c 000419 03DF 92E7 mov acc.7,c 000420 03E1 B16F acall actualtransmit ;(Caps to Amiga!) 000421 03E3 304B0C jnb Kstyle,skiplights ;(don't do lights if XT) 000422 03E6 74ED mov a,#0edh ;set lights on next byte. 000423 03E8 711F acall SendtoAT 000424 03EA 7402 mov a,#2 ;numlock on 000425 03EC A242 mov c,Capbit 000426 03EE 92E2 mov acc.2,c 000427 03F0 711F acall SendtoAT ;maybe capslock light 000428 03F2 skiplights: 000429 03F2 22 ret 000430 03F3 transok4: 000431 03F3 C244 clr CtrlDown ;This sends out a Control Up. 000432 03F5 C243 clr Capdown ;Caps lock is done functioning as Ctl 000433 03F7 7463 mov a,#63h ;Control Key 000434 03F9 D2E7 setb acc.7 ;break bit set. 000435 03FB B16F acall actualtransmit ;send to Amiga. 000436 03FD 22 ret 000437 03FE transok3: 000438 03FE F551 mov Oldchar,a 000439 0400 304B0E jnb Kstyle,noControl 000440 0403 30430B jnb Capdown,noControl 000441 0406 204408 jb CtrlDown,noControl 000442 0409 D244 setb CtrlDown ;Caps lock is beginning to function 000443 040B 7463 mov a,#63h ;as the Control Key. 000444 040D B16F acall actualtransmit ;send Control Down to Amiga 000445 040F E551 mov a,Oldchar ;now send the actual key 000446 0411 000447 0411 noControl: ;its not a controlled key 000448 0411 A2E7 mov c,acc.7 ;c=make/break bit 000449 0413 9249 mov Make,c ;will be set if key up 000450 0415 C2E7 clr acc.7 ;test for key only. NO make/break 000451 0417 B40E19 cjne a,#0eh,noMup ;special key mouse up 000452 041A 30490B jnb Make,kmupdown 000453 041D kmupup: 000454 041D 74CC mov a,#0cch ;cursor up break 000455 041F B16F acall actualtransmit 000456 0421 9187 acall Smalldelay 000457 0423 74E7 mov a,#0e7h ;right amiga break 000458 0425 B16F acall actualtransmit 000459 0427 22 ret 000460 0428 kmupdown: 000461 0428 7467 mov a,#67h ;amiga make 000462 042A B16F acall actualtransmit 000463 042C 9187 acall Smalldelay 000464 042E 744C mov a,#4ch ;cursor up make 000465 0430 B16F acall actualtransmit 000466 0432 22 ret 000467 0433 noMup: 000468 0433 B41C19 cjne a,#1ch,noMdown ;special key mouse down 000469 0436 30490B jnb Make,kmdowndown 000470 0439 kmdownup: 000471 0439 74CD mov a,#0cdh ;cursor down break 000472 043B B16F acall actualtransmit 000473 043D 74E7 mov a,#0e7h ;amiga break 000474 043F 9187 acall Smalldelay 000475 0441 B16F acall actualtransmit 000476 0443 22 ret 000477 0444 kmdowndown: 000478 0444 7467 mov a,#67h ;amiga make 000479 0446 B16F acall actualtransmit 000480 0448 9187 acall Smalldelay ;cursor down make 000481 044A 744D mov a,#4dh 000482 044C B16F acall actualtransmit 000483 044E 22 ret 000484 044F noMdown: 000485 044F B42C19 cjne a,#2ch,noMleft ;special key mouse left 000486 0452 30490B jnb Make,kmleftdown 000487 0455 kmleftup: 000488 0455 74CF mov a,#0cfh ;cursor left break 000489 0457 B16F acall actualtransmit 000490 0459 9187 acall Smalldelay ;amiga break 000491 045B 74E7 mov a,#0e7h 000492 045D B16F acall actualtransmit 000493 045F 22 ret 000494 0460 kmleftdown: 000495 0460 7467 mov a,#67h ;amiga make 000496 0462 B16F acall actualtransmit 000497 0464 9187 acall Smalldelay 000498 0466 744F mov a,#4fh ;cursor left make 000499 0468 B16F acall actualtransmit 000500 046A 22 ret 000501 046B noMleft: ;special key mouse right 000502 046B B4472B cjne a,#47h,notspecial 000503 046E 30490B jnb Make,kmrhtdown 000504 0471 kmrhtup: 000505 0471 74CE mov a,#0ceh ;cursor right break 000506 0473 B16F acall actualtransmit 000507 0475 9187 acall Smalldelay 000508 0477 74E7 mov a,#0e7h ;amiga break 000509 0479 B16F acall actualtransmit 000510 047B 22 ret 000511 047C kmrhtdown: 000512 047C 7467 mov a,#67h ;amiga make 000513 047E B16F acall actualtransmit 000514 0480 9187 acall Smalldelay 000515 0482 744E mov a,#04eh ;cursor right make 000516 0484 B16F acall actualtransmit 000517 0486 22 ret 000518 0487 Smalldelay: 000519 0487 758C00 mov th0,#0 000520 048A 758A00 mov tl0,#0 000521 048D C28D clr tf0 000522 048F D28C setb tr0 000523 0491 308DFD small1: jnb tf0,small1 000524 0494 C28D clr tf0 000525 0496 C28C clr tr0 000526 0498 22 ret 000527 0499 notspecial: 000528 0499 E551 mov a,Oldchar 000529 049B B16F acall actualtransmit ;transmit the keycode 000530 049D E551 mov a,Oldchar ;get back same keycode, in A. 000531 049F A2E7 mov c,acc.7 ;put make/break bit in Make 000532 04A1 9249 mov Make,c 000533 04A3 C2E7 clr acc.7 ;start testing for reset keys 000534 04A5 B46306 cjne a,#63h,nrset1 ;held down 000535 04A8 A249 mov c,Make 000536 04AA 9245 mov CONTROL,c 000537 04AC 8010 sjmp trset 000538 04AE B46606 nrset1: cjne a,#66h,nrset2 000539 04B1 A249 mov c,Make 000540 04B3 9246 mov LAMIGA,c 000541 04B5 8007 sjmp trset 000542 04B7 B46704 nrset2: cjne a,#67h,trset 000543 04BA A249 mov c,Make 000544 04BC 9247 mov RAMIGA,c 000545 04BE 304505 trset: jnb CONTROL,maybefree ;if bit set, this key is up 000546 04C1 204402 jb CtrlDown,maybefree ;if bit set, this key is down 000547 04C4 8008 sjmp free 000548 04C6 maybefree: 000549 04C6 204605 jb LAMIGA,free ;ditto 000550 04C9 204702 jb RAMIGA,free ;ditto 000551 04CC 8004 sjmp resetwarn ;OOPS! They are all down! 000552 04CE 22 free: ret 000553 04CF dummy: 000554 04CF 32 reti 000555 04D0 resetint: 000556 04D0 91CF acall dummy 000557 04D2 resetwarn: 000558 04D2 C28D clr tf0 000559 04D4 E578 mov a,78h 000560 04D6 7902 mov r1,#2 ;set up timer 0 watchdog 000561 04D8 758A00 mov tl0,#0 000562 04DB 758C00 mov th0,#0 000563 04DE F4 cpl a ;invert, don't know why. 000564 04DF 7808 mov r0,#8 000565 04E1 wr1: 000566 04E1 23 rl a 000567 04E2 A2E7 mov c,acc.7 000568 04E4 9294 mov Adat,c 000569 04E6 75F008 mov b,#8 000570 04E9 wr2: 000571 04E9 D5F0FD djnz b,wr2 ; transmit it. 000572 04EC C293 clr Aclk 000573 04EE 75F008 mov b,#8 000574 04F1 wr3: 000575 04F1 D5F0FD djnz b,wr3 000576 04F4 D293 setb Aclk 000577 04F6 75F00A mov b,#10 000578 04F9 wr4: 000579 04F9 D5F0FD djnz b,wr4 000580 04FC D8E3 djnz r0,wr1 000581 04FE D294 setb Adat 000582 0500 D28C setb tr0 ;start watchdog 000583 0502 wr5: 000584 0502 309409 jnb Adat,caught1 000585 0505 308DFA jnb tf0,wr5 000586 0508 C28D clr tf0 000587 050A D9F6 djnz r1,wr5 000588 050C 8041 sjmp Hardreset 000589 050E caught1: 000590 050E C28C clr tr0 000591 0510 C28D clr tf0 000592 0512 E578 mov a,78h 000593 0514 7904 mov r1,#4 000594 0516 758A00 mov tl0,#0 000595 0519 758C00 mov th0,#0 000596 051C F4 cpl a 000597 051D 7808 mov r0,#8 000598 051F wr11: 000599 051F 23 rl a 000600 0520 A2E7 mov c,acc.7 000601 0522 9294 mov Adat,c 000602 0524 75F008 mov b,#8 000603 0527 wr22: 000604 0527 D5F0FD djnz b,wr22 000605 052A C293 clr Aclk 000606 052C 75F008 mov b,#8 000607 052F wr33: 000608 052F D5F0FD djnz b,wr33 000609 0532 D293 setb Aclk 000610 0534 75F00A mov b,#10 000611 0537 wr44: 000612 0537 D5F0FD djnz b,wr44 000613 053A D8E3 djnz r0,wr11 000614 053C D294 setb Adat 000615 053E D28C setb tr0 ;start watchdog 000616 0540 wr55: 000617 0540 309409 jnb Adat,caught2 000618 0543 308DFA jnb tf0,wr55 000619 0546 C28D clr tf0 000620 0548 D9F6 djnz r1,wr55 000621 054A 8003 sjmp Hardreset 000622 054C caught2: 000623 054C 3094FD hold: jnb Adat,hold 000624 054F Hardreset: 000625 054F C28C clr tr0 000626 0551 C28D clr tf0 000627 0553 C295 clr Areset 000628 0555 C293 clr Aclk ;clear both lines for A500/A1000 000629 0557 790F mov r1,#15 ;clock should go low for over 500ms 000630 0559 758C00 mov th0,#0 ;timer 1 will overflow repeatedly 000631 055C 758A00 mov tl0,#0 000632 055F D28C setb tr0 000633 0561 hsloop: 000634 0561 308DFD jnb tf0,hsloop ;wait for overflow flag 000635 0564 C28D clr tf0 ;clear it again 000636 0566 D9F9 djnz r1,hsloop 000637 0568 C28D clr tf0 000638 056A C28C clr tr0 ;stop the timer 000639 056C 020200 ljmp start 000640 056F 000641 056F ;************************************************** 000642 056F ;* 000643 056F ;* ActualTransmit sends the character out to the Amiga and waits 000644 056F ;* for an acknowledge handshake. If it does not receive one in 000645 056F ;* 143 ms, then it clocks out 1's on the data line until it 000646 056F ;* receives the acknowledge. If the Amiga is not connected up, 000647 056F ;* then it will hang here. The handshake is that the AMIGA 000648 056F ;* drives the clock line low. 000649 056F ;* 000650 056F ;* The loops with register B are for timing delays. 000651 056F ;* There should be about 20usec between when the Data line is 000652 056F ;* set, the Clock line is driven low, and the Clock line 000653 056F ;* is driven high. 000654 056F ;* 000655 056F ;************************************************** 000656 056F 000657 056F actualtransmit: 000658 056F F552 mov Amigachar,a ;set the character to transmit 000659 0571 000660 0571 7805 mov r0,#05 ;do a small delay 000661 0573 dly: 000662 0573 75F000 mov b,#0 000663 0576 D5F0FD delay: djnz b,delay 000664 0579 D8F8 djnz r0,dly 000665 057B 000666 057B actual2: 000667 057B E552 mov a,Amigachar ;restore it 000668 057D C250 clr Charbad ;character is not bad yet 000669 057F 7902 mov r1,#2 ;set up timer 0 watchdog 000670 0581 758B00 mov tl1,#0 000671 0584 758D00 mov th1,#0 000672 0587 F4 cpl a ;invert, don't know why. 000673 0588 7808 mov r0,#8 000674 058A 23 f: rl a 000675 058B A2E7 mov c,acc.7 000676 058D 9294 mov Adat,c 000677 058F 75F008 mov b,#8 000678 0592 D5F0FD g: djnz b,g ; transmit it. 000679 0595 C293 clr Aclk 000680 0597 75F008 mov b,#8 000681 059A D5F0FD h: djnz b,h 000682 059D D293 setb Aclk 000683 059F 75F00A mov b,#10 000684 05A2 D5F0FD i: djnz b,i 000685 05A5 D8E3 djnz r0,f 000686 05A7 D294 setb Adat 000687 05A9 D28E setb tr1 ;start watchdog 000688 05AB waitshake: 000689 05AB 2094FD jb Adat,waitshake 000690 05AE C28E clr tr1 ;stop watchdog 000691 05B0 3094FD gotit: jnb Adat,gotit 000692 05B3 22 ret 000693 05B4 000694 05B4 timer1int: 000695 05B4 D91E djnz r1,t3 ;we wait for 143 ms. 000696 05B6 7902 mov r1,#2 000697 05B8 D250 setb Charbad ;flag to resend the character 000698 05BA C294 clr Adat ;1 on the data line 000699 05BC 75F008 mov b,#8 000700 05BF D5F0FD tt1: djnz b,tt1 ;wait for it 000701 05C2 C293 clr Aclk ;clock asserted 000702 05C4 75F008 mov b,#8 ;sync up the controller to the 000703 05C7 D5F0FD tt2: djnz b,tt2 ;amiga 000704 05CA D293 setb Aclk 000705 05CC 75F00A mov b,#10 000706 05CF D5F0FD tt3: djnz b,tt3 000707 05D2 D294 setb Adat 000708 05D4 32 t3: reti ;return and send again. 000709 05D5 000710 05D5 ATtb1: 000711 05D5 00 .db 0 000712 05D6 58 .db 58h ;F9 000713 05D7 00 .db 0 000714 05D8 54 .db 54h ;F5 000715 05D9 52 .db 52h ;F3 000716 05DA 50 .db 50h ;F1 000717 05DB 51 .db 51h ;F2 000718 05DC 5B .db 5bh ;F12=right parenthesis 000719 05DD 00 .db 0 000720 05DE 59 .db 59h ;F10 000721 05DF 57 .db 57h ;F8 000722 05E0 55 .db 55h ;F6 000723 05E1 53 .db 53h ;F4 000724 05E2 42 .db 42h ;TAB 000725 05E3 00 .db 00h ;~ 000726 05E4 00 .db 0 000727 05E5 000728 05E5 00 .db 0 000729 05E6 64 .db 64h ;Left ALT 000730 05E7 60 .db 60h ;Left SHIFT 000731 05E8 00 .db 0 000732 05E9 66 .db 66h ;Left Ctrl=Left AMIGA 000733 05EA 10 .db 10h ;Q 000734 05EB 01 .db 01h ;1 000735 05EC 00 .db 0 000736 05ED 00 .db 0 000737 05EE 00 .db 0 000738 05EF 31 .db 31h ;Z 000739 05F0 21 .db 21h ;S 000740 05F1 20 .db 20h ;A 000741 05F2 11 .db 11h ;W 000742 05F3 02 .db 02h ;2 000743 05F4 00 .db 0 000744 05F5 000745 05F5 00 .db 0 000746 05F6 33 .db 33h ;C 000747 05F7 32 .db 32h ;X 000748 05F8 22 .db 22h ;D 000749 05F9 12 .db 12h ;E 000750 05FA 04 .db 04h ;4 000751 05FB 03 .db 03h ;3 000752 05FC 00 .db 0 000753 05FD 00 .db 0 000754 05FE 40 .db 40h ;SPACE 000755 05FF 34 .db 34h ;V 000756 0600 23 .db 23h ;F 000757 0601 14 .db 14h ;T 000758 0602 13 .db 13h ;R 000759 0603 05 .db 05h ;5 000760 0604 00 .db 0 000761 0605 000762 0605 00 .db 0 000763 0606 36 .db 36h ;N 000764 0607 35 .db 35h ;B 000765 0608 25 .db 25h ;H 000766 0609 24 .db 24h ;G 000767 060A 15 .db 15h ;Y 000768 060B 06 .db 06h ;6 000769 060C 00 .db 0 000770 060D 00 .db 0 000771 060E 00 .db 0 000772 060F 37 .db 37h ;M 000773 0610 26 .db 26h ;J 000774 0611 16 .db 16h ;U 000775 0612 07 .db 07h ;7 000776 0613 08 .db 08h ;8 000777 0614 00 .db 0 000778 0615 000779 0615 00 .db 0 000780 0616 38 .db 38h ;< 000781 0617 27 .db 27h ;K 000782 0618 17 .db 17h ;I 000783 0619 18 .db 18h ;O 000784 061A 0A .db 0Ah ;0 000785 061B 09 .db 09h ;9 000786 061C 00 .db 0 000787 061D 00 .db 0 000788 061E 39 .db 39h ;> 000789 061F 3A .db 3ah ;/ 000790 0620 28 .db 28h ;L 000791 0621 29 .db 29h ; ';' 000792 0622 19 .db 19h ;P 000793 0623 0B .db 0bh ;- 000794 0624 00 .db 0 000795 0625 000796 0625 00 .db 0 000797 0626 00 .db 0 000798 0627 2A .db 2ah ;' 000799 0628 00 .db 0 000800 0629 1A .db 1ah ;[ 000801 062A 0C .db 0ch ;= 000802 062B 00 .db 0 000803 062C 00 .db 0 000804 062D 62 .db 62h ;CAPS LOCK? 000805 062E 61 .db 61h ;Right SHIFT 000806 062F 44 .db 44h ;RETURN 000807 0630 1B .db 1bh ;] 000808 0631 00 .db 0 000809 0632 0D .db 0dh ;\ 000810 0633 00 .db 0 000811 0634 00 .db 0 000812 0635 000813 0635 .rs 6 000814 063B 41 .db 41h ;Back SPACE 000815 063C 00 .db 0 000816 063D 00 .db 0 000817 063E 1D .db 1dh ;1 keypad 000818 063F 00 .db 0 000819 0640 2D .db 2dh ;4 keypad 000820 0641 3D .db 3dh ;7 keypad 000821 0642 00 .db 0 000822 0643 00 .db 0 000823 0644 00 .db 0 000824 0645 000825 0645 0F .db 0fh ;0 keypad 000826 0646 3C .db 3ch ;dot keypad 000827 0647 1E .db 1eh ;2 keypad 000828 0648 2E .db 2eh ;5 keypad 000829 0649 2F .db 2fh ;6 keypad 000830 064A 3E .db 3eh ;8 keypad 000831 064B 45 .db 45h ;ESCAPE! 000832 064C 63 .db 63h ;Number Lock=CTRL 000833 064D 5A .db 5ah ;F11=( keypad 000834 064E 5E .db 5eh ;+ keypad 000835 064F 1F .db 1fh ;3 keypad 000836 0650 4A .db 4ah ;- keypad 000837 0651 5D .db 5dh ;* keypad 000838 0652 3F .db 3fh ;9 keypad 000839 0653 67 .db 67h ;scroll Lock=Right AMIGA 000840 0654 00 .db 0 000841 0655 ATtb2: 000842 0655 .rs 3 000843 0658 56 .db 56h ;F7 000844 0659 66 .db 66h ;print screen=Left Amiga 000845 065A .rs 11 000846 0665 000847 0665 00 .db 0 000848 0666 65 .db 65h ;Right ALT 000849 0667 00 .db 0 000850 0668 00 .db 0 000851 0669 67 .db 67h ;Right CTL=RIGHT AMIGA 000852 066A .rs 11 000853 0675 000854 0675 .rs 10h 000855 0685 000856 0685 .rs 10h 000857 0695 000858 0695 .rs 10 000859 069F 5C .db 5ch ;/key, supposedly 000860 06A0 .rs 5 000861 06A5 000862 06A5 .rs 10 000863 06AF 43 .db 43h ;Numeric Enter 000864 06B0 .rs 5 000865 06B5 000866 06B5 .rs 9 000867 06BE 1C .db 1ch ;End=Mouse down 000868 06BF 00 .db 0 000869 06C0 4F .db 4fh ;Cursor Left 000870 06C1 0E .db 0eh ;Home=Mouse up 000871 06C2 00 .db 0 000872 06C3 00 .db 0 000873 06C4 63 .db 63h ;MACRO key=control 000874 06C5 000875 06C5 2C .db 2ch ;Insert=Mouse Left 000876 06C6 46 .db 46h ;Delete 000877 06C7 4D .db 4dh ;Cursor Down 000878 06C8 00 .db 0 000879 06C9 4E .db 4eh ;Cursor Right 000880 06CA 4C .db 4ch ;Cursor Up 000881 06CB .rs 4 000882 06CF 5F .db 5fh ;Page Down=Help 000883 06D0 00 .db 0 000884 06D1 66 .db 66h ;print screen=LEFT AMIGA 000885 06D2 47 .db 47h ;Page up=mouse right 000886 06D3 40 .db 40h ;Break=Space? 000887 06D4 00 .db 0 000888 06D5 XTtb1: 000889 06D5 00 .db 0 000890 06D6 45 .db 45h ;esc 000891 06D7 01 .db 01h ;1 000892 06D8 02 .db 02h ;2 000893 06D9 03 .db 03h ;3 000894 06DA 04 .db 04h ;4 000895 06DB 05 .db 05h ;5 000896 06DC 06 .db 06h ;6 000897 06DD 07 .db 07h ;7 000898 06DE 08 .db 08h ;8 000899 06DF 09 .db 09h ;9 000900 06E0 0A .db 0ah ;0 000901 06E1 0B .db 0bh ;- 000902 06E2 0C .db 0ch ;= 000903 06E3 41 .db 41h ;Backspace 000904 06E4 42 .db 42h ;Tab 000905 06E5 000906 06E5 10 .db 10h ;Q 000907 06E6 11 .db 11h ;W 000908 06E7 12 .db 12h ;E 000909 06E8 13 .db 13h ;R 000910 06E9 14 .db 14h ;T 000911 06EA 15 .db 15h ;Y 000912 06EB 16 .db 16h ;U 000913 06EC 17 .db 17h ;I 000914 06ED 18 .db 18h ;O 000915 06EE 19 .db 19h ;P 000916 06EF 1A .db 1Ah ;[ 000917 06F0 1B .db 1Bh ;] 000918 06F1 44 .db 44h ;ENTER 000919 06F2 66 .db 66h ;L.CTL=LEFT AMIGA 000920 06F3 20 .db 20h ;A 000921 06F4 21 .db 21h ;S 000922 06F5 000923 06F5 22 .db 22h ;D 000924 06F6 23 .db 23h ;F 000925 06F7 24 .db 24h ;G 000926 06F8 25 .db 25h ;H 000927 06F9 26 .db 26h ;J 000928 06FA 27 .db 27h ;K 000929 06FB 28 .db 28h ;L 000930 06FC 29 .db 29h ;';' 000931 06FD 2A .db 2Ah ;' 000932 06FE 00 .db 00h ;~ 000933 06FF 60 .db 60h ;Left Shift 000934 0700 0D .db 0dh ;\ 000935 0701 31 .db 31h ;Z 000936 0702 32 .db 32h ;X 000937 0703 33 .db 33h ;C 000938 0704 34 .db 34h ;V 000939 0705 000940 0705 35 .db 35h ;B 000941 0706 36 .db 36h ;N 000942 0707 37 .db 37h ;M 000943 0708 38 .db 38h ;< 000944 0709 39 .db 39h ;> 000945 070A 3A .db 3Ah ;/ 000946 070B 61 .db 61h ;Right Shift 000947 070C 5D .db 5dh ;Numeric * 000948 070D 64 .db 64h ;Left Alt 000949 070E 40 .db 40h ;space 000950 070F 62 .db 62h ;CapsLock 000951 0710 50 .db 50h ;F1 000952 0711 51 .db 51h ;F2 000953 0712 52 .db 52h ;F3 000954 0713 53 .db 53h ;F4 000955 0714 54 .db 54h ;F5 000956 0715 000957 0715 55 .db 55h ;F6 000958 0716 56 .db 56h ;F7 000959 0717 57 .db 57h ;F8 000960 0718 58 .db 58h ;F9 000961 0719 59 .db 59h ;F10 000962 071A 63 .db 63h ;Number Lock=Control 000963 071B 67 .db 67h ;Scroll Lock=Right Amiga 000964 071C 3D .db 3dh ;Numeric 7 000965 071D 3E .db 3eh ;* 8 000966 071E 3F .db 3fh ;* 9 000967 071F 4A .db 4ah ;* - 000968 0720 2D .db 2dh ;* 4 000969 0721 2E .db 2eh ;* 5 000970 0722 2F .db 2fh ;* 6 000971 0723 5E .db 5eh ;* + 000972 0724 1D .db 1dh ;* 1 000973 0725 000974 0725 1E .db 1eh ;* 2 000975 0726 1F .db 1fh ;* 3 000976 0727 0F .db 0fh ;* 0 000977 0728 3C .db 3ch ;* . 000978 0729 63 .db 63h ;print screen=CONTROL 000979 072A 00 .db 0 000980 072B 00 .db 0 000981 072C 5A .db 5ah ;F11=Numeric ( 000982 072D 5B .db 5bh ;F12=Numeric ) 000983 072E .rs 7 000984 0735 000985 0735 .rs 10h 000986 0745 000987 0745 .rs 10h 000988 0755 XTtb2: 000989 0755 .rs 10h 000990 0765 000991 0765 .rs 12 000992 0771 43 .db 43h ;Numeric Enter 000993 0772 67 .db 67h ;Right Control=RIGHT AMIGA 000994 0773 .rs 2 000995 0775 000996 0775 .rs 10h 000997 0785 000998 0785 .rs 5 000999 078A 5C .db 5ch ;Numeric /key 001000 078B 00 .db 0 001001 078C 66 .db 66h ;Print Screeen=Left Amiga 001002 078D 65 .db 65h ;Right Alt 001003 078E .rs 7 001004 0795 001005 0795 .rs 6 001006 079B 5F .db 5fh ;BREAK=HELP! 001007 079C 0E .db 0eh ;Home=MOUSE UP 001008 079D 4C .db 4ch ;cursor up 001009 079E 47 .db 47h ;pageup=mouse right 001010 079F 00 .db 0 001011 07A0 4F .db 4fh ;cursor left 001012 07A1 00 .db 0 001013 07A2 4E .db 4eh ;cursor right 001014 07A3 00 .db 0 001015 07A4 1C .db 1ch ;End=mouse down 001016 07A5 001017 07A5 4D .db 4dh ;cursor down 001018 07A6 5F .db 5fh ;page down=HELP! 001019 07A7 2C .db 2ch ;insert=mouse left 001020 07A8 46 .db 46h ;delete 001021 07A9 .rs 12 001022 07B5 001023 07B5 .rs 15 001024 07C4 63 .db 63h ;Macro=control 001025 07C5 001026 07C5 .rs 10h 001027 07D5 001028 07D5 .end 0 AC =00D6 ET2 =00AD P0.0 =0080 RXD =00B0 TMOD =0089 ACC =00E0 EX0 =00A8 P0.1 =0081 SBUF =0099 TR0 =008C ACC.0 =00E0 EX1 =00AA P0.2 =0082 SCON =0098 TR1 =008E ACC.1 =00E1 EXEN2 =00CB P0.3 =0083 SCON.0 =0098 TR2 =00CA ACC.2 =00E2 EXF2 =00CE P0.4 =0084 SCON.1 =0099 TRANSMIT=03BF ACC.3 =00E3 F =058A P0.5 =0085 SCON.2 =009A TRANSOK =03C3 ACC.4 =00E4 F0 =00D5 P0.6 =0086 SCON.3 =009B TRANSOK2=03CB ACC.5 =00E5 FREE =04CE P0.7 =0087 SCON.4 =009C TRANSOK3=03FE ACC.6 =00E6 G =0592 P1 =0090 SCON.5 =009D TRANSOK4=03F3 ACC.7 =00E7 GOTIT =05B0 P1.0 =0090 SCON.6 =009E TRSET =04BE ACLK =0093 H =059A P1.1 =0091 SCON.7 =009F TT1 =05BF ACTUAL2 =057B HARDRESE=054F P1.2 =0092 SEND4 =0325 TT2 =05C7 ACTUALTR=056F HOLD =054C P1.3 =0093 SEND5 =032D TT3 =05CF ADAT =0094 HSLOOP =0561 P1.4 =0094 SEND6 =0337 TXD =00B1 AMIGACHA=0052 I =05A2 P1.5 =0095 SEND7 =033C WAITSHAK=05AB ARESET =0095 IE =00A8 P1.6 =0096 SEND77 =033F WR1 =04E1 ATDATAB =02C3 IE.0 =00A8 P1.7 =0097 SEND78 =0344 WR11 =051F ATDOWN =030F IE.1 =00A9 P2 =00A0 SEND79 =0347 WR2 =04E9 ATERROR =02B4 IE.2 =00AA P2.0 =00A0 SEND7A =034A WR22 =0527 ATGETKEY=0290 IE.3 =00AB P2.1 =00A1 SEND8 =034F WR3 =04F1 ATNE0 =0308 IE.4 =00AC P2.2 =00A2 SEND9 =0355 WR33 =052F ATNE012 =0302 IE.5 =00AD P2.3 =00A3 SENDTOAT=031F WR4 =04F9 ATNE0F0 =02FC IE.7 =00AF P2.4 =00A4 SKIPLIGH=03F2 WR44 =0537 ATNE1 =02E0 IE0 =0089 P2.5 =00A5 SM0 =009F WR5 =0502 ATNEF12 =02F6 IE1 =008B P2.6 =00A6 SM1 =009E WR55 =0540 ATNSTART=029D INIT =0000 P2.7 =00A7 SM2 =009D XT7BIT =004A ATNSTOP =02BA INT0 =00B2 P3 =00B0 SMALL1 =0491 XTCAP =03D6 ATPARITY=0048 INT1 =00B3 P3.0 =00B0 SMALLDEL=0487 XTGETKEY=035C ATPOWERU=0277 IP =00B8 P3.1 =00B1 SP =0081 XTLOOKUP=03A7 ATSTYLE =02CB IP.0 =00B8 P3.2 =00B2 START =0200 XTN2A =039A ATTB1 =05D5 IP.1 =00B9 P3.3 =00B3 SYNC =022D XTN36 =03A4 ATTB2 =0655 IP.2 =00BA P3.4 =00B4 SYNC2 =0237 XTNAA =0395 ATUP =0317 IP.3 =00BB P3.5 =00B5 SYNC3 =023A XTNB6 =039F ATWAIT =02C6 IP.4 =00BC P3.6 =00B6 T2CON =00C8 XTNE0 =03B7 ATWAITC0=0294 IP.5 =00BD P3.7 =00B7 T2CON.0 =00C8 XTNE1 =038B ATWAITC1=02A0 IT0 =0088 PARITYEV=02AC T2CON.1 =00C9 XTPOWERU=0263 B =00F0 IT1 =008A PARITYOD=02B0 T2CON.2 =00CA XTRESET =0269 B.0 =00F0 KCLK =0090 PAUSE =02A7 T2CON.3 =00CB XTSTYLE =037A B.1 =00F1 KDAT =0091 PCON =0087 T2CON.4 =00CC XTTB1 =06D5 B.2 =00F2 KMDOWNDO=0444 PS =00BC T2CON.5 =00CD XTTB2 =0755 B.3 =00F3 KMDOWNUP=0439 PSW =00D0 T2CON.6 =00CE XTTEST =0257 B.4 =00F4 KMLEFTDO=0460 PSW.0 =00D0 T2CON.7 =00CF XTW1 =0360 B.5 =00F5 KMLEFTUP=0455 PSW.1 =00D1 T3 =05D4 XTW2 =0363 B.6 =00F6 KMRHTDOW=047C PSW.2 =00D2 TB8 =009B XTW3 =0366 B.7 =00F7 KMRHTUP =0471 PSW.3 =00D3 TCLK =00CC XTW4 =0369 CAPBIT =0042 KMUPDOWN=0428 PSW.4 =00D4 TCON =0088 XTW5 =036C CAPDOWN =0043 KMUPUP =041D PSW.5 =00D5 TCON.0 =0088 XTW6 =0372 CAUGHT1 =050E KRESET =0092 PSW.6 =00D6 TCON.1 =0089 CAUGHT2 =054C KSTYLE =004B PSW.7 =00D7 TCON.2 =008A CHARBAD =0050 KSWITCH =0097 PT0 =00B9 TCON.3 =008B CONTROL =0045 LAMIGA =0046 PT1 =00BB TCON.4 =008C CPRL2 =00C8 LL =0272 PT2 =00BD TCON.5 =008D CT2 =00C9 MAKE =0049 PX0 =00B8 TCON.6 =008E CTRLDOWN=0044 MAYBEFRE=04C6 PX1 =00BA TCON.7 =008F CY =00D7 NOCONTRO=0411 RAMIGA =0047 TF0 =008D DELAY =0576 NOMDOWN =044F RB8 =009A TF1 =008F DLY =0573 NOMLEFT =046B RCAP2H =00CB TF2 =00CF DONTRANS=03BC NOMUP =0433 RCAP2L =00CA TH0 =008C DPH =0083 NOTSPECI=0499 RCLK =00CD TH1 =008D DPL =0082 NRSET1 =04AE REN =009C TH2 =00CD DUMMY =04CF NRSET2 =04B7 RESETINT=04D0 TI =0099 EA =00AF OLDCHAR =0051 RESETWAR=04D2 TIMER1IN=05B4 ES =00AC OV =00D2 RI =0098 TL0 =008A ET0 =00A9 P =00D0 RS0 =00D3 TL1 =008B ET1 =00AB P0 =0080 RS1 =00D4 TL2 =00CC @\Rogue\Monster\ else echo "shar: Will not over write key.list" fi if `test ! -s key.obj` then echo "x - key.obj" cat > key.obj << '@\Rogue\Monster\' :03000000020200F9 :030003000204D024 :03001B000205B427 :1002000075891175880575A800D2AFD2ABD2A8D276 :10021000B2D2B97581307590FFC28EC28FC28CC2C6 :100220008DC243C244C242D245D246D247758B00EA :10023000758D007902D28E2094FD3094FDC28E74AB :10024000FDB16F74FEB16F30971920912A758C0043 :10025000758A00C28DD28C208D093091FAC28CC271 :100260008D8014C24BC28DC290308DFDD290C28C55 :10027000C28D715C02037AD24B74FF711F74F671E8 :100280001F74ED711F7402711F74F4711F0202CB91 :10029000780BD2902090FD18B80A028029B8001A75 :1002A0003090FDC2907814D8FE20D004304805224A :1002B0002048012274FE711F80D6B80106A29192D7 :1002C000488003A291133090FD80C95190B4E11091 :1002D000519051905190519051905190519080EB8C :1002E0009005D5B4E0229006555190B4F00E51908F :1002F000B412030202CBB4591E0202CBB4120302A1 :1003000002CBB4590A0202CBB4F004519080089396 :10031000C2E771BF0202CB93D2E771BF0202CBD218 :1003200090C29178082090FDA2E09291033090FD58 :1003300018B800F1A2D0B32090FD92913090FD202A :1003400090FDD2913090FD2090FD3090FD7808D83E :10035000FEC2907814D8FED290519022D2917808A3 :100360002090FD3090FD2090FD3090FD2090FDA26A :1003700091133090FDD8F5C29122715CB4E10C71FB :100380005C715C715C715C715C80EFB4E029715CE4 :10039000B4AA0280E5B42A0280E0B4B60280DBB4DD :1003A000360280D6900755A2E7924AC2E793A24A46 :1003B00092E771BF02037A9006D580EBD0E022B5B8 :1003C000510122B46205F551D24322B4E230E55125 :1003D000304B03B4621DC243B2427462A242B39274 :1003E000E7B16F304B0C74ED711F7402A24292E2C0 :1003F000711F22C244C2437463D2E7B16F22F55128 :10040000304B0E30430B204408D2447463B16FE587 :1004100051A2E79249C2E7B40E1930490B74CCB12E :100420006F918774E7B16F227467B16F9187744CD5 :10043000B16F22B41C1930490B74CDB16F74E791C0 :1004400087B16F227467B16F9187744DB16F22B419 :100450002C1930490B74CFB16F918774E7B16F22BB :100460007467B16F9187744FB16F22B4472B3049D5 :100470000B74CEB16F918774E7B16F227467B16F5F :100480009187744EB16F22758C00758A00C28DD22F :100490008C308DFDC28DC28C22E551B16FE551A229 :1004A000E79249C2E7B46306A24992458010B46658 :1004B00006A24992468007B46704A2499247304594 :1004C000052044028008204605204702800422328D :1004D00091CFC28DE5787902758A00758C00F47829 :1004E0000823A2E7929475F008D5F0FDC29375F049 :1004F00008D5F0FDD29375F00AD5F0FDD8E3D2947B :10050000D28C309409308DFAC28DD9F68041C28CDC :10051000C28DE5787904758A00758C00F47808231B :10052000A2E7929475F008D5F0FDC29375F008D556 :10053000F0FDD29375F00AD5F0FDD8E3D294D28CB9 :10054000309409308DFAC28DD9F680033094FDC203 :100550008CC28DC295C293790F758C00758A00D2BA :100560008C308DFDC28DD9F9C28DC28C020200F58E :1005700052780575F000D5F0FDD8F8E552C25079F3 :1005800002758B00758D00F4780823A2E7929475AC :10059000F008D5F0FDC29375F008D5F0FDD2937543 :1005A000F00AD5F0FDD8E3D294D28E2094FDC28E0D :1005B0003094FD22D91E7902D250C29475F008D52C :1005C000F0FDC29375F008D5F0FDD29375F00AD511 :1005D000F0FDD29432005800545250515B005957EC :1005E00055534200000064600066100100000031B5 :1005F0002120110200003332221204030000403493 :100600002314130500003635252415060000003795 :10061000261607080000382717180A090000393A7B :100620002829190B0000002A001A0C0000626144FE :050630001B000D00009D :10063B004100001D002D3D0000000F3C1E2E2F3EE3 :0A064B0045635A5E1F4A5D3F6700D9 :020658005666E4 :050665000065000067C4 :01069F005CFE :0106AF004307 :0D06BE001C004F0E0000632C464D004E4CFA :1006CF005F00664740000045010203040506070866 :1006DF00090A0B0C41421011121314151617181991 :1006EF001A1B4466202122232425262728292A0085 :1006FF00600D3132333435363738393A615D644005 :10070F00625051525354555657585963673D3E3FA7 :0F071F004A2D2E2F5E1D1E1F0F3C6300005A5BDC :020771004367DC :04078A005C00666544 :0E079B005F0E4C47004F004E001C4D5F2C4679 :0107C40063D1 :00000001FF