org 00100 ; addr code jmp init ; 00100 0010151 jms usekb2 ; 00101 0034211 jms clrall ; 00102 0034176 l00103 jms dodisp ; 00103 0034112 l00104 jms getkey ; 00104 0034124 jms update ; 00105 0034226 keypat5 ksf ; 00106 0002020 overwritten jmp l00103 ; 00107 0010103 jms keyh ; 00110 0034131 jmp l00104 ; 00111 0010104 ;------------------------ ; Handle running the display ;------------------------ dodisp nop ; 00112 0100000 dsn ; 00113 0102010 jmp .-1 ; 00114 0010113 ssf ; 00115 0002200 jmp *dodisp ; 00116 0110112 scf ; 00117 0001071 law display ; 00120 0005005 dla ; 00121 0001003 don ; 00122 0003100 jmp *dodisp ; 00123 0110112 ;------------------------ ; Get keyboard char ;------------------------ getkey nop ; 00124 0100000 cla ; 00125 0100001 keypat1 krb ; 00126 0001021 dac keych ; 00127 0022623 jmp *getkey ; 00130 0110124 ;------------------------ ; Handler for keyboard interupt. ;------------------------ keyh nop ; 00131 0100000 keypat2 ksn ; 00132 0102020 keypat3 ksf ; 00133 0002020 hlt ; 00134 0000000 cla ; 00135 0100001 keypat4 krc ; 00136 0001023 dac keysav ; 00137 0022622 sam lastkey ; 00140 0076621 jmp .+2 ; 00141 0010143 jmp inccnt ; 00142 0010147 dac lastkey ; 00143 0022621 law 1 ; 00144 0004001 dac keycnt ; 00145 0022620 jmp *keyh ; 00146 0110131 ; inccnt isz keycnt ; 00147 0032620 jmp *keyh ; 00150 0110131 ;------------------------ ; Initialize and main loop. ;------------------------ init lac inthjmp ; 00151 0062556 dac 00001 ; 00152 0020001 lac imask ; 00153 0060210 iot 0141 ; 00154 0001141 arm level 1 interrupt devices per AC jms clrall ; 00155 0034176 iot 0162 ; 00156 0001162 disable interrupts jms dodisp ; 00157 0034112 jms getkey ; 00160 0034124 jms update ; 00161 0034226 jmp .-3 ; 00162 0010157 ;------------------------ ; Interrupt handler. ;------------------------ inth dac acsave ; 00163 0022617 cla ; 00164 0100001 iot 0101 ; 00165 0001101 read level 1 interrupt status -> AC dac ipend ; 00166 0022616 and imask ; 00167 0044210 check agains interrupt mask asn ; 00170 0102001 hlt ; 00171 0000000 jms keyh ; 00172 0034131 lac acsave ; 00173 0062617 iot 0162 ; 00174 0001162 enable level 1 interrupts jmp *00000 ; 00175 0110000 ;------------------------ ; ;------------------------ clrall nop ; 00176 0100000 kcf ; 00177 0001022 iot 0252 ; 00200 0001252 clear keyboard 2 flag scf ; 00201 0001071 clear synch flag dof ; 00202 0001012 cla ; 00203 0100001 dac lastkey ; 00204 0022621 dac keysav ; 00205 0022622 dac keycnt ; 00206 0022620 jmp *clrall ; 00207 0110176 ;------------------------ ; Interrupt mask - keyboard interrupts only. ;------------------------ imask data 000020 ; 00210 0000020 ;------------------------ ; Prepare to use keyboard 2. ;------------------------ usekb2 hlt ; 00211 0000000 law 01251 ; 00212 0005251 IOT 251 into AC dac keypat1 ; 00213 0020126 add l02557 ; 00214 0066557 dac keypat4 ; 00215 0020136 KRC for keyboard 2 iac ; 00216 0100004 skip on keyboard2 dac keypat3 ; 00217 0020133 dac keypat5 ; 00220 0020106 lac inop ; 00221 0062560 dac keypat2 ; 00222 0020132 store NOP into keypat2 law 01000 ; 00223 0005000 set up keyboard 2 interrupt mask dac imask ; 00224 0020210 jmp *usekb2 ; 00225 0110211 ;------------------------ ; Update the display list. ;------------------------ update nop ; 00226 0100000 cla ; 00227 0100001 DHLT dac l01315 ; 00230 0021315 lac idnop ; 00231 0062561 dac l01325 ; 00232 0021325 dac l01334 ; 00233 0021334 dac l01343 ; 00234 0021343 lac lastkey ; 00235 0062621 ral 3 ; 00236 0003003 ral 3 ; 00237 0003003 dac tmp ; 00240 0022615 lac l02562 ; 00241 0062562 get 'djmp l01343' lsn ; 00242 0102004 dac l01334 ; 00243 0021334 lac tmp ; 00244 0062615 ral 1 ; 00245 0003001 dac tmp ; 00246 0022615 lac l02563 ; 00247 0062563 lsn ; 00250 0102004 dac l01325 ; 00251 0021325 lac tmp ; 00252 0062615 ral 1 ; 00253 0003001 lac l02564 ; 00254 0062564 lsn ; 00255 0102004 dac l01343 ; 00256 0021343 lac lastkey ; 00257 0062621 and l02565 ; 00260 0046565 sam l02566 ; 00261 0076566 jmp l00264 ; 00262 0010264 jmp l00344 ; 00263 0010344 l00264 lac lastkey ; 00264 0062621 and l02567 ; 00265 0046567 dac l02614 ; 00266 0022614 lac l00450 ; 00267 0060450 cia ; 00270 0100006 dac l02613 ; 00271 0022613 lac l02570 ; 00272 0062570 dac l00010 ; 00273 0020010 lac l02614 ; 00274 0062614 l00275 sam *l00010 ; 00275 0174010 jmp .+2 ; 00276 0010300 jmp l00303 ; 00277 0010303 isz l02613 ; 00300 0032613 jmp l00275 ; 00301 0010275 jmp l00346 ; 00302 0010346 l00303 lac l00010 ; 00303 0060010 sub l02571 ; 00304 0072571 sar 1 ; 00305 0003061 add l02572 ; 00306 0066572 dac l02612 ; 00307 0022612 lac *l02612 ; 00310 0162612 dac l02612 ; 00311 0022612 sar 3 ; 00312 0003063 sar 3 ; 00313 0003063 sar 1 ; 00314 0003061 add l02573 ; 00315 0066573 dac tmp ; 00316 0022615 lac l02612 ; 00317 0062612 and l02574 ; 00320 0046574 sub l02575 ; 00321 0072575 asn ; 00322 0102001 jmp l00332 ; 00323 0010332 cia ; 00324 0100006 dac l02613 ; 00325 0022613 cla ; 00326 0100001 add l02576 ; 00327 0066576 isz l02613 ; 00330 0032613 jmp .-2 ; 00331 0010327 l00332 add *tmp ; 00332 0166615 ior idlxa0 ; 00333 0052577 dac sq22x ; 00334 0021316 isz tmp ; 00335 0032615 lac *tmp ; 00336 0162615 ior idlya0 ; 00337 0052600 dac sq22y ; 00340 0021317 lac idnop ; 00341 0062561 dac l01315 ; 00342 0021315 jmp l00350 ; 00343 0010350 l00344 lac l02601 ; 00344 0062601 jmp .+2 ; 00345 0010347 l00346 lac l02602 ; 00346 0062602 dac l01315 ; 00347 0021315 l00350 lac octch1 ; 00350 0062603 get display address dac l00010 ; 00351 0020010 at which to lac keysav ; 00352 0062622 display saved char jms octch ; 00353 0034365 lac octch2 ; 00354 0062604 dac l00010 ; 00355 0020010 lac keych ; 00356 0062623 display char jms octch ; 00357 0034365 lac octch3 ; 00360 0062605 dac l00010 ; 00361 0020010 lac keycnt ; 00362 0062620 display count jms octch ; 00363 0034365 jmp *update ; 00364 0110226 ;------------------------ ; Display 4 octal digits in AC. ; Put into place at *010. ;------------------------ octch nop ; 00365 0100000 dac tmp ; 00366 0022615 save char sar 3 ; 00367 0003063 get top of 4 digits sar 3 ; 00370 0003063 sar 3 ; 00371 0003063 jms octdig ; 00372 0034411 get DJMS for digit dac *l00010 ; 00373 0120010 place code lac tmp ; 00374 0062615 sar 3 ; 00375 0003063 3rd topmost digit sar 3 ; 00376 0003063 jms octdig ; 00377 0034411 dac *l00010 ; 00400 0120010 lac tmp ; 00401 0062615 sar 3 ; 00402 0003063 2nd topmost digit jms octdig ; 00403 0034411 dac *l00010 ; 00404 0120010 lac tmp ; 00405 0062615 least significant digit jms octdig ; 00406 0034411 dac *l00010 ; 00407 0120010 jmp *octch ; 00410 0110365 ;------------------------ ; Convert 7 bit value and return DJMS to ; appropriate display routine for digit. ;------------------------ octdig nop ; 00411 0100000 and mask7 ; 00412 0046606 add octtaba ; 00413 0066607 dac indload ; 00414 0022611 lac *indload; 00415 0162611 ior idjms ; 00416 0052610 jmp *octdig ; 00417 0110411 ;------------------------ ; Table of display addresses for octal digits. ;------------------------ octtab data num0 ; 00420 0003062 data num1 ; 00421 0003232 data num2 ; 00422 0003237 data num3 ; 00423 0003245 data num4 ; 00424 0003253 data num5 ; 00425 0003261 data num6 ; 00426 0003267 data num7 ; 00427 0003276 ;------------------------ data 000140 ; 00430 0000140 data 001400 ; 00431 0001400 data 000077 ; 00432 0000077 data 001276 ; 00433 0001276 data 000220 ; 00434 0000220 data 001174 ; 00435 0001174 data 000242 ; 00436 0000242 data 001072 ; 00437 0001072 data 000600 ; 00440 0000600 data 000476 ; 00441 0000476 data 000641 ; 00442 0000641 data 0000374 ; 00443 0000374 data 000660 ; 00444 0000660 data 000272 ; 00445 0000272 data 000721 ; 00446 0000721 data 000170 ; 00447 0000170 l00450 data 000176 ; 00450 0000176 data 000441 ; 00451 0000441 data 000061 ; 00452 0000061 data 000442 ; 00453 0000442 data 000062 ; 00454 0000062 data 000443 ; 00455 0000443 data 000063 ; 00456 0000063 data 000444 ; 00457 0000444 data 000064 ; 00460 0000064 data 000445 ; 00461 0000445 data 000065 ; 00462 0000065 data 000446 ; 00463 0000446 data 000066 ; 00464 0000066 data 000447 ; 00465 0000447 data 000067 ; 00466 0000067 data 000450 ; 00467 0000450 data 000070 ; 00470 0000070 data 000451 ; 00471 0000451 data 000071 ; 00472 0000071 data 000460 ; 00473 0000460 data 000060 ; 00474 0000060 data 000452 ; 00475 0000452 data 000072 ; 00476 0000072 data 000475 ; 00477 0000475 data 000055 ; 00500 0000055 data 000433 ; 00501 0000433 data 000033 ; 00502 0000033 data 000521 ; 00503 0000521 data 000161 ; 00504 0000161 data 000527 ; 00505 0000527 data 000167 ; 00506 0000167 data 000505 ; 00507 0000505 data 000145 ; 00510 0000145 data 000522 ; 00511 0000522 data 000162 ; 00512 0000162 data 000524 ; 00513 0000524 data 000164 ; 00514 0000164 data 000531 ; 00515 0000531 data 000171 ; 00516 0000171 data 000525 ; 00517 0000525 data 000165 ; 00520 0000165 data 000511 ; 00521 0000511 data 000151 ; 00522 0000151 data 000517 ; 00523 0000517 data 000157 ; 00524 0000157 data 000520 ; 00525 0000520 data 000160 ; 00526 0000160 data 000412 ; 00527 0000412 data 000012 ; 00530 0000012 data 000415 ; 00531 0000415 data 000015 ; 00532 0000015 data 000501 ; 00533 0000501 data 000141 ; 00534 0000141 data 000523 ; 00535 0000523 data 000163 ; 00536 0000163 data 000504 ; 00537 0000504 data 000144 ; 00540 0000144 data 000506 ; 00541 0000506 data 000146 ; 00542 0000146 data 000507 ; 00543 0000507 data 000147 ; 00544 0000147 data 000510 ; 00545 0000510 data 000150 ; 00546 0000150 data 000512 ; 00547 0000512 data 000152 ; 00550 0000152 data 000513 ; 00551 0000513 data 000153 ; 00552 0000153 data 000514 ; 00553 0000514 data 000154 ; 00554 0000154 data 000453 ; 00555 0000453 data 000073 ; 00556 0000073 data 000437 ; 00557 0000437 data 000037 ; 00560 0000037 data 000532 ; 00561 0000532 data 000172 ; 00562 0000172 data 000530 ; 00563 0000530 data 000170 ; 00564 0000170 data 000503 ; 00565 0000503 data 000143 ; 00566 0000143 data 000526 ; 00567 0000526 data 000166 ; 00570 0000166 data 000502 ; 00571 0000502 data 000142 ; 00572 0000142 data 000516 ; 00573 0000516 data 000156 ; 00574 0000156 data 000515 ; 00575 0000515 data 000155 ; 00576 0000155 data 000474 ; 00577 0000474 data 000054 ; 00600 0000054 data 000476 ; 00601 0000476 data 000056 ; 00602 0000056 data 000477 ; 00603 0000477 data 000057 ; 00604 0000057 data 000000 ; 00605 0000000 data 000000 ; 00606 0000000 data 000431 ; 00607 0000431 data 000031 ; 00610 0000031 data 000414 ; 00611 0000414 data 000014 ; 00612 0000014 data 000577 ; 00613 0000577 data 000177 ; 00614 0000177 data 000430 ; 00615 0000430 data 000030 ; 00616 0000030 data 000411 ; 00617 0000411 data 000011 ; 00620 0000011 data 000417 ; 00621 0000417 data 000017 ; 00622 0000017 data 000432 ; 00623 0000432 data 000032 ; 00624 0000032 data 000434 ; 00625 0000434 data 000034 ; 00626 0000034 data 000406 ; 00627 0000406 data 000006 ; 00630 0000006 data 000416 ; 00631 0000416 data 000016 ; 00632 0000016 data 000435 ; 00633 0000435 data 000035 ; 00634 0000035 data 000410 ; 00635 0000410 data 000010 ; 00636 0000010 data 000405 ; 00637 0000405 data 000005 ; 00640 0000005 data 000402 ; 00641 0000402 data 000002 ; 00642 0000002 data 000436 ; 00643 0000436 data 000036 ; 00644 0000036 data 000404 ; 00645 0000404 data 000004 ; 00646 0000004 data 000000 ; 00647 0000000 data 000001 ; 00650 0000001 data 000002 ; 00651 0000002 data 000003 ; 00652 0000003 data 000004 ; 00653 0000004 data 000005 ; 00654 0000005 data 000006 ; 00655 0000006 data 000007 ; 00656 0000007 data 000010 ; 00657 0000010 data 000011 ; 00660 0000011 data 000012 ; 00661 0000012 data 000013 ; 00662 0000013 data 000014 ; 00663 0000014 data 000401 ; 00664 0000401 data 000402 ; 00665 0000402 data 000403 ; 00666 0000403 data 000404 ; 00667 0000404 data 000405 ; 00670 0000405 data 000406 ; 00671 0000406 data 000407 ; 00672 0000407 data 000410 ; 00673 0000410 data 000411 ; 00674 0000411 data 000412 ; 00675 0000412 data 000413 ; 00676 0000413 data 000414 ; 00677 0000414 data 000415 ; 00700 0000415 data 001001 ; 00701 0001001 data 001002 ; 00702 0001002 data 001003 ; 00703 0001003 data 001004 ; 00704 0001004 data 001005 ; 00705 0001005 data 001006 ; 00706 0001006 data 001007 ; 00707 0001007 data 001010 ; 00710 0001010 data 001011 ; 00711 0001011 data 001012 ; 00712 0001012 data 001013 ; 00713 0001013 data 001401 ; 00714 0001401 data 001402 ; 00715 0001402 data 001403 ; 00716 0001403 data 001404 ; 00717 0001404 data 001405 ; 00720 0001405 data 001406 ; 00721 0001406 data 001407 ; 00722 0001407 data 001410 ; 00723 0001410 data 001411 ; 00724 0001411 data 001412 ; 00725 0001412 data 001413 ; 00726 0001413 data 001414 ; 00727 0001414 data 002001 ; 00730 0002001 data 002002 ; 00731 0002002 data 002003 ; 00732 0002003 data 002004 ; 00733 0002004 data 002401 ; 00734 0002401 data 002402 ; 00735 0002402 data 002403 ; 00736 0002403 data 002404 ; 00737 0002404 data 003001 ; 00740 0003001 data 003002 ; 00741 0003002 data 003003 ; 00742 0003003 data 003004 ; 00743 0003004 data 003401 ; 00744 0003401 data 003402 ; 00745 0003402 data 003403 ; 00746 0003403 ;------------------------ ; Draw the char value indicator thingies. ; (Under the 'KEYBOARD DIAGNOSTIC 1' line) ;------------------------ keybrd1 dlya 01600 ; 00747 0021600 dlxa 00600 ; 00750 0010600 dsts 2 ; 00751 0004006 l00752 djms settle ; 00752 0050775 djms num0 ; 00753 0053062 djms num0 ; 00754 0053062 djms num0 ; 00755 0053062 djms num0 ; 00756 0053062 dlxa 01200 ; 00757 0011200 l00760 djms settle ; 00760 0050775 djms num0 ; 00761 0053062 djms num0 ; 00762 0053062 djms num0 ; 00763 0053062 djms num0 ; 00764 0053062 dlxa 00200 ; 00765 0010200 l00766 djms settle ; 00766 0050775 djms num0 ; 00767 0053062 djms num0 ; 00770 0053062 djms num0 ; 00771 0053062 djms num0 ; 00772 0053062 dhlt ; 00773 0000000 ;------------------------ data 000000 ; 00774 0000000 ;------------------------ ; Allow beam to settle (?). ;------------------------ settle deim d+0+0 ; 00775 0030200 d+0+0 d+0+0 ; 00776 0100200 d+0+0 d+0+0 ; 00777 0100200 d+0+0 d+0+0 ; 01000 0100200 d+0+0 d+0+0 ; 01001 0100200 d+0+0 d+0+0 ; 01002 0100200 d+0+0 d+0+0 ; 01003 0100200 d+0+0 fr____ ; 01004 0100140 ;------------------------ ; Display list start. ; Draw KEYBOARD DIAGNOSTICS 1 line. ;------------------------ display dsts 2 ; 01005 0004006 dlya 01700 ; 01006 0021700 dlxa 00300 ; 01007 0010300 djms settle ; 01010 0050775 djms ckilo ; 01011 0053034 dixm ; 01012 0005000 djms cecho ; 01013 0052771 dixm ; 01014 0005000 djms cyankee ; 01015 0053164 dixm ; 01016 0005000 djms cbravo ; 01017 0052745 dixm ; 01020 0005000 djms coscar ; 01021 0053066 dixm ; 01022 0005000 djms calpha ; 01023 0052740 dixm ; 01024 0005000 djms cromeo ; 01025 0053111 dixm ; 01026 0005000 djms cdelta ; 01027 0052763 dixm ; 01030 0005000 dixm ; 01031 0005000 dixm ; 01032 0005000 dixm ; 01033 0005000 dixm ; 01034 0005000 djms cdelta ; 01035 0052763 dixm ; 01036 0005000 djms cindia ; 01037 0053021 dixm ; 01040 0005000 djms calpha ; 01041 0052740 dixm ; 01042 0005000 djms cgolf ; 01043 0053005 dixm ; 01044 0005000 djms cnovemb ; 01045 0053054 dixm ; 01046 0005000 djms coscar ; 01047 0053066 dixm ; 01050 0005000 djms csierra ; 01051 0053120 dixm ; 01052 0005000 djms ctango ; 01053 0053126 dixm ; 01054 0005000 djms cindia ; 01055 0053021 dixm ; 01056 0005000 djms ccharli ; 01057 0052755 dixm ; 01060 0005000 dixm ; 01061 0005000 dixm ; 01062 0005000 djms num1 ; 01063 0053232 dsts 3 ; 01064 0004007 dlya 01400 ; 01065 0021400 dlxa 00140 ; 01066 0010140 djms settle ; 01067 0050775 djmp keyrl ; 01070 0061374 ;------------------------ ; ;------------------------ l01071 dlya 00774 ; 01071 0020774 dlxa 00426 ; 01072 0010426 djms settle ; 01073 0050775 djms spcout ; 01074 0052257 dlya 00600 ; 01075 0020600 dlxa 00600 ; 01076 0010600 djms settle ; 01077 0050775 djmp l02433 ; 01100 0062433 ;------------------------ ; Do main keyboard keytops. ;------------------------ keytops dsts 2 ; 01101 0004006 dlya 01000 ; 01102 0021000 dlxa 00600 ; 01103 0010600 djms settle ; 01104 0050775 djms csierra ; 01105 0053120 djms cpapa ; 01106 0053075 djms calpha ; 01107 0052740 djms ccharli ; 01110 0052755 djms cecho ; 01111 0052771 dlya 01420 ; 01112 0021420 dlxa 00200 ; 01113 0010200 djms settle ; 01114 0050775 djms num1 ; 01115 0053232 djms space3 ; 01116 0051370 djms num2 ; 01117 0053237 djms space3 ; 01120 0051370 djms num3 ; 01121 0053245 djms space3 ; 01122 0051370 djms num4 ; 01123 0053253 djms space3 ; 01124 0051370 djms num5 ; 01125 0053261 djms space3 ; 01126 0051370 djms num6 ; 01127 0053267 djms space3 ; 01130 0051370 djms num7 ; 01131 0053276 djms space3 ; 01132 0051370 djms num8 ; 01133 0053302 djms space3 ; 01134 0051370 djms num9 ; 01135 0053312 djms space3 ; 01136 0051370 djms num0 ; 01137 0053062 djms space3 ; 01140 0051370 djms ccolon ; 01141 0052727 djms space3 ; 01142 0051370 djms cdash ; 01143 0052716 dlya 01320 ; 01144 0021320 dlxa 00120 ; 01145 0010120 djms settle ; 01146 0050775 djms cecho ; 01147 0052771 djms csierra ; 01150 0053120 djms ccharli ; 01151 0052755 dixm ; 01152 0005000 dixm ; 01153 0005000 dnop ; 01154 0004000 djms cquebec ; 01155 0053102 djms space3 ; 01156 0051370 djms cwhisky ; 01157 0053150 djms space3 ; 01160 0051370 djms cecho ; 01161 0052771 djms space3 ; 01162 0051370 djms cromeo ; 01163 0053111 djms space3 ; 01164 0051370 djms ctango ; 01165 0053126 djms space3 ; 01166 0051370 djms cyankee ; 01167 0053164 djms space3 ; 01170 0051370 djms cunifor ; 01171 0053133 djms space3 ; 01172 0051370 djms cindia ; 01173 0053021 djms space3 ; 01174 0051370 djms coscar ; 01175 0053066 djms space3 ; 01176 0051370 djms cpapa ; 01177 0053075 djms space3 ; 01200 0051370 djms clima ; 01201 0053042 djms cfoxtro ; 01202 0053000 dixm ; 01203 0005000 dixm ; 01204 0005000 djms ccharli ; 01205 0052755 djms cromeo ; 01206 0053111 dlya 01220 ; 01207 0021220 dlxa 00140 ; 01210 0010140 djms settle ; 01211 0050775 djms ccharli ; 01212 0052755 djms ctango ; 01213 0053126 djms clima ; 01214 0053042 dixm ; 01215 0005000 dixm ; 01216 0005000 dnop ; 01217 0004000 djms calpha ; 01220 0052740 djms space3 ; 01221 0051370 djms csierra ; 01222 0053120 djms space3 ; 01223 0051370 djms cdelta ; 01224 0052763 djms space3 ; 01225 0051370 djms cfoxtro ; 01226 0053000 djms space3 ; 01227 0051370 djms cgolf ; 01230 0053005 djms space3 ; 01231 0051370 djms chotel ; 01232 0053012 djms space3 ; 01233 0051370 djms cjuliet ; 01234 0053027 djms space3 ; 01235 0051370 djms ckilo ; 01236 0053034 djms space3 ; 01237 0051370 djms clima ; 01240 0053042 djms space3 ; 01241 0051370 djms cscolon ; 01242 0052733 djms space3 ; 01243 0051370 djms num7 ; 01244 0053276 djms space3 ; 01245 0051370 djms cromeo ; 01246 0053111 djms cecho ; 01247 0052771 djms cpapa ; 01250 0053075 dlya 01120 ; 01251 0021120 dlxa 00160 ; 01252 0010160 djms settle ; 01253 0050775 djms csierra ; 01254 0053120 djms chotel ; 01255 0053012 djms cfoxtro ; 01256 0053000 dixm ; 01257 0005000 dixm ; 01260 0005000 djms czulu ; 01261 0053170 djms space3 ; 01262 0051370 djms cxray ; 01263 0053157 djms space3 ; 01264 0051370 djms ccharli ; 01265 0052755 djms space3 ; 01266 0051370 djms cvictor ; 01267 0053142 djms space3 ; 01270 0051370 djms cbravo ; 01271 0052745 djms space3 ; 01272 0051370 djms cnovemb ; 01273 0053054 djms space3 ; 01274 0051370 djms cmike ; 01275 0053047 djms space3 ; 01276 0051370 djms ccomma ; 01277 0052712 djms space3 ; 01300 0051370 djms cdot ; 01301 0052721 djms space3 ; 01302 0051370 djms cslash ; 01303 0052723 djms space3 ; 01304 0051370 djms csierra ; 01305 0053120 djms chotel ; 01306 0053012 djms cfoxtro ; 01307 0053000 dixm ; 01310 0005000 djms cbravo ; 01311 0052745 djms cromeo ; 01312 0053111 djms ckilo ; 01313 0053034 djmp kptops ; 01314 0062624 ;------------------------ l01315 dhlt ; 01315 0000000 overwritten (DNOP) ;------------------------ ; ;------------------------ sq22x dlxa 01466 ; 01316 0011466 sq22y dlya 01072 ; 01317 0021072 dsts 3 ; 01320 0004007 djms settle ; 01321 0050775 djms sqr22 ; 01322 0051537 djms sqr22 ; 01323 0051537 djms sqr22 ; 01324 0051537 l01325 djmp l01334 ; 01325 0061334 djmp l01343 ;------------------------ ; ;------------------------ dlya 01174 ; 01326 0021174 dlxa 00116 ; 01327 0010116 djms settle ; 01330 0050775 djms sqr22 ; 01331 0051537 djms sqr22 ; 01332 0051537 djms sqr22 ; 01333 0051537 l01334 djmp l01343 ; 01334 0061343 ;------------------------ ; ;------------------------ dlya 01174 ; 01335 0021174 dlxa 01546 ; 01336 0011546 djms settle ; 01337 0050775 djms sqr22 ; 01340 0051537 djms sqr22 ; 01341 0051537 djms sqr22 ; 01342 0051537 l01343 djmp l01357 ; 01343 0061357 ;------------------------ ; ;------------------------ dlya 01072 ; 01344 0021072 dlxa 00140 ; 01345 0010140 djms settle ; 01346 0050775 djms sqr22 ; 01347 0051537 djms sqr22 ; 01350 0051537 djms sqr22 ; 01351 0051537 dlxa 01466 ; 01352 0011466 djms settle ; 01353 0050775 djms sqr22 ; 01354 0051537 djms sqr22 ; 01355 0051537 djms sqr22 ; 01356 0051537 l01357 djmp keybrd1 ; 01357 0060747 dlya 00774 ; 01360 0020774 dlxa 00426 ; 01361 0010426 djms settle ; 01362 0050775 dsts 3 ; 01363 0004007 djms spcout ; 01364 0052257 djms spcout ; 01365 0052257 djms spcout ; 01366 0052257 djmp l01325 ; 01367 0061325 ;------------------------ ; Make 3 char space. ;------------------------ space3 dixm ; 01370 0005000 dixm ; 01371 0005000 dixm ; 01372 0005000 drjm ; 01373 0004040 ;------------------------ ; Draw keyboard vertical key lines. ;------------------------ keyrl djms keyoutl ; 01374 0051566 dlya 01072 ; 01375 0021072 dlxa 00242 ; 01376 0010242 djms settle ; 01377 0050775 djms u22pixb ; 01400 0052365 djms l6pix ; 01401 0052373 djms u22pixb ; 01402 0052365 djms l5pix ; 01403 0052422 djms u22pixb ; 01404 0052365 djms r11pix ; 01405 0052376 djms u22pixb ; 01406 0052365 djms u22pix ; 01407 0052413 djms d22pixb ; 01410 0052402 djms l11pix ; 01411 0052410 djms d22pixb ; 01412 0052402 djms r5pix ; 01413 0052420 djms d22pixb ; 01414 0052402 djms r6pix ; 01415 0052424 djms d22pixb ; 01416 0052402 djms u22pix ; 01417 0052413 djms u22pixb ; 01420 0052365 djms l6pix ; 01421 0052373 djms u22pixb ; 01422 0052365 djms l5pix ; 01423 0052422 djms u22pixb ; 01424 0052365 djms r11pix ; 01425 0052376 djms u22pixb ; 01426 0052365 djms u22pix ; 01427 0052413 djms d22pixb ; 01430 0052402 djms l11pix ; 01431 0052410 djms d22pixb ; 01432 0052402 djms r5pix ; 01433 0052420 djms d22pixb ; 01434 0052402 djms r6pix ; 01435 0052424 djms d22pixb ; 01436 0052402 djms u22pix ; 01437 0052413 djms u22pixb ; 01440 0052365 djms l6pix ; 01441 0052373 djms u22pixb ; 01442 0052365 djms l5pix ; 01443 0052422 djms u22pixb ; 01444 0052365 djms r11pix ; 01445 0052376 djms u22pixb ; 01446 0052365 djms u22pix ; 01447 0052413 djms d22pixb ; 01450 0052402 djms l11pix ; 01451 0052410 djms d22pixb ; 01452 0052402 djms r5pix ; 01453 0052420 djms d22pixb ; 01454 0052402 djms r6pix ; 01455 0052424 djms d22pixb ; 01456 0052402 djms u22pix ; 01457 0052413 djms u22pixb ; 01460 0052365 djms l6pix ; 01461 0052373 djms u22pixb ; 01462 0052365 djms l5pix ; 01463 0052422 djms u22pixb ; 01464 0052365 djms r11pix ; 01465 0052376 djms u22pixb ; 01466 0052365 djms u22pix ; 01467 0052413 djms d22pixb ; 01470 0052402 djms l11pix ; 01471 0052410 djms d22pixb ; 01472 0052402 djms r5pix ; 01473 0052420 djms d22pixb ; 01474 0052402 djms r6pix ; 01475 0052424 djms d22pixb ; 01476 0052402 djms u22pix ; 01477 0052413 djms u22pixb ; 01500 0052365 djms l6pix ; 01501 0052373 djms u22pixb ; 01502 0052365 djms l5pix ; 01503 0052422 djms u22pixb ; 01504 0052365 djms r11pix ; 01505 0052376 djms u22pixb ; 01506 0052365 djms u22pix ; 01507 0052413 djms d22pixb ; 01510 0052402 djms l11pix ; 01511 0052410 djms d22pixb ; 01512 0052402 djms r5pix ; 01513 0052420 djms d22pixb ; 01514 0052402 djms r6pix ; 01515 0052424 djms d22pixb ; 01516 0052402 djms u22pix ; 01517 0052413 djms u22pixb ; 01520 0052365 djms l6pix ; 01521 0052373 djms u22pixb ; 01522 0052365 djms l5pix ; 01523 0052422 djms u22pixb ; 01524 0052365 djms r11pix ; 01525 0052376 djms u22pixb ; 01526 0052365 djms r11pix ; 01527 0052376 djms d22pix ; 01530 0052426 djms d22pixb ; 01531 0052402 djms r5pix ; 01532 0052420 djms d22pixb ; 01533 0052402 djms r6pix ; 01534 0052424 djms d22pixb ; 01535 0052402 djmp l01071 ; 01536 0061071 ;------------------------ ; Draw 22x22 square. ;------------------------ sqr22 deim b+0+3 ; 01537 0030303 b+0+3 b+0+3 ; 01540 0141703 b+0+3 b+0+3 ; 01541 0141703 b+0+3 b+0+3 ; 01542 0141703 b+0+1 d+0+0 ; 01543 0140600 d+0+0 d+0+0 ; 01544 0100200 b+3+0 b+3+0 ; 01545 0154330 b+3+0 b+3+0 ; 01546 0154330 b+3+0 b+3+0 ; 01547 0154330 b+3+0 b+1+0 ; 01550 0154310 d+0+0 d+0+0 ; 01551 0100200 d+0+0 b+0-3 ; 01552 0100307 b+0-3 b+0-3 ; 01553 0143707 b+0-3 b+0-3 ; 01554 0143707 b+0-3 b+0-3 ; 01555 0143707 b+0-1 d+0+0 ; 01556 0142600 d+0+0 d+0+0 ; 01557 0100200 b-3+0 b-3+0 ; 01560 0174370 b-3+0 b-3+0 ; 01561 0174370 b-3+0 b-3+0 ; 01562 0174370 b-3+0 b-1+0 ; 01563 0174350 d+0+0 d+0+0 ; 01564 0100200 d+0+0 fr____ ; 01565 0100140 ;------------------------ ; ;------------------------ keyoutl deim b+0+3 ; 01566 0030303 b+0+3 b+0+3 ; 01567 0141703 b+0+3 b+0+3 ; 01570 0141703 b+0+3 b+0+3 ; 01571 0141703 b+0+1 d+0+0 ; 01572 0140600 d+0+0 d+0+0 ; 01573 0100200 b+3+0 b+3+0 ; 01574 0154330 b+3+0 b+3+0 ; 01575 0154330 b+3+0 b+3+0 ; 01576 0154330 b+3+0 b+3+0 ; 01577 0154330 b+3+0 b+3+0 ; 01600 0154330 b+3+0 b+3+0 ; 01601 0154330 b+3+0 b+3+0 ; 01602 0154330 b+3+0 b+3+0 ; 01603 0154330 b+3+0 b+3+0 ; 01604 0154330 b+3+0 b+3+0 ; 01605 0154330 b+3+0 b+3+0 ; 01606 0154330 b+3+0 b+3+0 ; 01607 0154330 b+3+0 b+3+0 ; 01610 0154330 b+3+0 b+3+0 ; 01611 0154330 b+3+0 b+3+0 ; 01612 0154330 b+3+0 b+3+0 ; 01613 0154330 b+3+0 b+3+0 ; 01614 0154330 b+3+0 b+3+0 ; 01615 0154330 b+3+0 b+3+0 ; 01616 0154330 b+3+0 b+3+0 ; 01617 0154330 b+3+0 b+3+0 ; 01620 0154330 b+3+0 b+3+0 ; 01621 0154330 b+3+0 b+3+0 ; 01622 0154330 b+3+0 b+3+0 ; 01623 0154330 b+3+0 b+3+0 ; 01624 0154330 b+3+0 b+3+0 ; 01625 0154330 b+3+0 b+3+0 ; 01626 0154330 b+3+0 b+3+0 ; 01627 0154330 b+3+0 b+3+0 ; 01630 0154330 b+3+0 b+3+0 ; 01631 0154330 b+3+0 b+3+0 ; 01632 0154330 b+3+0 b+3+0 ; 01633 0154330 b+3+0 b+3+0 ; 01634 0154330 b+3+0 b+3+0 ; 01635 0154330 b+3+0 b+3+0 ; 01636 0154330 b+3+0 b+3+0 ; 01637 0154330 b+3+0 b+3+0 ; 01640 0154330 b+3+0 b+3+0 ; 01641 0154330 b+3+0 b+3+0 ; 01642 0154330 b+3+0 b+3+0 ; 01643 0154330 b+3+0 b+3+0 ; 01644 0154330 b+3+0 b+3+0 ; 01645 0154330 b+3+0 b+3+0 ; 01646 0154330 b+3+0 b+3+0 ; 01647 0154330 d+0+0 d+0+0 ; 01650 0100200 d+0+0 d+0+0 ; 01651 0100200 b+0-3 b+0-2 ; 01652 0143706 b+0-3 b+0-2 ; 01653 0143706 b+0-3 b+0-2 ; 01654 0143706 b+0-3 b+0-2 ; 01655 0143706 b+0-2 d+0+0 ; 01656 0143200 d+0+0 d+2+0 ; 01657 0100220 d+3+0 d+3+0 ; 01660 0114230 d+3+0 d+0+0 ; 01661 0114200 d+0+0 d+0+0 ; 01662 0100200 b-3+0 b-3+0 ; 01663 0174370 b-3+0 b-3+0 ; 01664 0174370 b-3+0 b-3+0 ; 01665 0174370 b-3+0 b-3+0 ; 01666 0174370 b-3+0 b-3+0 ; 01667 0174370 b-3+0 b-3+0 ; 01670 0174370 b-3+0 b-3+0 ; 01671 0174370 b-3+0 b-3+0 ; 01672 0174370 b-3+0 b-3+0 ; 01673 0174370 b-3+0 b-3+0 ; 01674 0174370 b-3+0 b-3+0 ; 01675 0174370 b-3+0 b-3+0 ; 01676 0174370 b-3+0 b-3+0 ; 01677 0174370 b-3+0 b-3+0 ; 01700 0174370 b-3+0 b-3+0 ; 01701 0174370 b-3+0 b-3+0 ; 01702 0174370 b-3+0 b-3+0 ; 01703 0174370 b-3+0 b-3+0 ; 01704 0174370 b-3+0 b-3+0 ; 01705 0174370 b-3+0 b-3+0 ; 01706 0174370 b-3+0 b-3+0 ; 01707 0174370 b-3+0 b-3+0 ; 01710 0174370 b-3+0 b-3+0 ; 01711 0174370 b-3+0 b-3+0 ; 01712 0174370 b-3+0 b-3+0 ; 01713 0174370 b-3+0 b-3+0 ; 01714 0174370 b-3+0 b-3+0 ; 01715 0174370 b-3+0 b-3+0 ; 01716 0174370 b-3+0 b-3+0 ; 01717 0174370 b-3+0 b-3+0 ; 01720 0174370 b-3+0 b-3+0 ; 01721 0174370 b-3+0 b-3+0 ; 01722 0174370 b-3+0 b-3+0 ; 01723 0174370 b-3+0 b-3+0 ; 01724 0174370 b-3+0 b-3+0 ; 01725 0174370 b-3+0 b-3+0 ; 01726 0174370 b-3+0 b-3+0 ; 01727 0174370 b-3+0 b-3+0 ; 01730 0174370 b-3+0 b-3+0 ; 01731 0174370 b-3+0 b-3+0 ; 01732 0174370 b-3+0 b-3+0 ; 01733 0174370 b-3+0 b-3+0 ; 01734 0174370 b-3+0 b-3+0 ; 01735 0174370 b-3+0 b-3+0 ; 01736 0174370 b-3+0 b-3+0 ; 01737 0174370 b-3+0 b-3+0 ; 01740 0174370 b-3+0 b-3+0 ; 01741 0174370 b-3+0 b-1+0 ; 01742 0174350 d+0+0 d+0+0 ; 01743 0100200 d+0+0 d+0+0 ; 01744 0100200 b+0-3 b+0-2 ; 01745 0143706 b+0-3 b+0-2 ; 01746 0143706 b+0-3 b+0-2 ; 01747 0143706 b+0-3 b+0-2 ; 01750 0143706 b+0-2 d+0+0 ; 01751 0143200 d+0+0 d+0+0 ; 01752 0100200 b+3+0 b+3+0 ; 01753 0154330 b+3+0 b+3+0 ; 01754 0154330 b+3+0 b+3+0 ; 01755 0154330 b+3+0 b+3+0 ; 01756 0154330 b+3+0 b+3+0 ; 01757 0154330 b+3+0 b+3+0 ; 01760 0154330 b+3+0 b+3+0 ; 01761 0154330 b+3+0 b+3+0 ; 01762 0154330 b+3+0 b+3+0 ; 01763 0154330 b+3+0 b+3+0 ; 01764 0154330 b+3+0 b+3+0 ; 01765 0154330 b+3+0 b+3+0 ; 01766 0154330 b+3+0 b+3+0 ; 01767 0154330 b+3+0 b+3+0 ; 01770 0154330 b+3+0 b+3+0 ; 01771 0154330 b+3+0 b+3+0 ; 01772 0154330 b+3+0 b+3+0 ; 01773 0154330 b+3+0 b+3+0 ; 01774 0154330 b+3+0 b+3+0 ; 01775 0154330 b+3+0 b+3+0 ; 01776 0154330 b+3+0 b+3+0 ; 01777 0154330 b+3+0 b+3+0 ; 02000 0154330 b+3+0 b+3+0 ; 02001 0154330 b+3+0 b+3+0 ; 02002 0154330 b+3+0 b+3+0 ; 02003 0154330 b+3+0 b+3+0 ; 02004 0154330 b+3+0 b+3+0 ; 02005 0154330 b+3+0 b+3+0 ; 02006 0154330 b+3+0 b+3+0 ; 02007 0154330 b+3+0 b+3+0 ; 02010 0154330 b+3+0 b+3+0 ; 02011 0154330 b+3+0 b+3+0 ; 02012 0154330 b+3+0 b+3+0 ; 02013 0154330 b+3+0 b+3+0 ; 02014 0154330 b+3+0 b+3+0 ; 02015 0154330 b+3+0 b+3+0 ; 02016 0154330 b+3+0 b+3+0 ; 02017 0154330 b+3+0 b+3+0 ; 02020 0154330 b+3+0 b+3+0 ; 02021 0154330 b+3+0 b+3+0 ; 02022 0154330 b+3+0 b+3+0 ; 02023 0154330 b+3+0 b+3+0 ; 02024 0154330 b+3+0 b+3+0 ; 02025 0154330 b+3+0 b+3+0 ; 02026 0154330 b+3+0 b+3+0 ; 02027 0154330 b+3+0 b+3+0 ; 02030 0154330 b+3+0 b+3+0 ; 02031 0154330 b+3+0 b+1+0 ; 02032 0154310 d+0+0 d+0+0 ; 02033 0100200 d+0+0 d+0+0 ; 02034 0100200 b+0+3 b+0+2 ; 02035 0141702 b+0+3 b+0+2 ; 02036 0141702 b+0+3 b+0+2 ; 02037 0141702 b+0+3 b+0+2 ; 02040 0141702 b+0+2 d+0+0 ; 02041 0141200 d+0+0 d+0+0 ; 02042 0100200 d+0-2 d+0-3 ; 02043 0103207 d+0-2 d+0-3 ; 02044 0103207 d+0-2 d+0-3 ; 02045 0103207 d+0-2 d+0-3 ; 02046 0103207 d+0-2 d+0+0 ; 02047 0103200 d+0+0 d+0+0 ; 02050 0100200 b+3+0 b+2+0 ; 02051 0154320 d+0+0 d+0+0 ; 02052 0100200 b+0-3 b+0-2 ; 02053 0143706 b+0-3 b+0-2 ; 02054 0143706 b+0-3 b+0-2 ; 02055 0143706 b+0-3 b+0-2 ; 02056 0143706 b+0-2 d+0+0 ; 02057 0143200 d+0+0 d+0+0 ; 02060 0100200 b-3+0 b-3+0 ; 02061 0174370 b-3+0 b-3+0 ; 02062 0174370 b-3+0 b-3+0 ; 02063 0174370 b-3+0 b-3+0 ; 02064 0174370 b-3+0 b-3+0 ; 02065 0174370 b-3+0 b-3+0 ; 02066 0174370 b-3+0 b-3+0 ; 02067 0174370 b-3+0 b-3+0 ; 02070 0174370 b-3+0 b-3+0 ; 02071 0174370 b-3+0 b-3+0 ; 02072 0174370 b-3+0 b-3+0 ; 02073 0174370 b-3+0 b-3+0 ; 02074 0174370 b-3+0 b-3+0 ; 02075 0174370 b-3+0 b-3+0 ; 02076 0174370 b-3+0 b-3+0 ; 02077 0174370 b-3+0 b-3+0 ; 02100 0174370 b-3+0 b-3+0 ; 02101 0174370 b-3+0 b-3+0 ; 02102 0174370 b-3+0 b-3+0 ; 02103 0174370 b-3+0 b-3+0 ; 02104 0174370 b-3+0 b-3+0 ; 02105 0174370 b-3+0 b-3+0 ; 02106 0174370 b-3+0 b-3+0 ; 02107 0174370 b-3+0 b-3+0 ; 02110 0174370 b-3+0 b-3+0 ; 02111 0174370 b-3+0 b-3+0 ; 02112 0174370 b-3+0 b-3+0 ; 02113 0174370 b-3+0 b-3+0 ; 02114 0174370 b-3+0 b-3+0 ; 02115 0174370 b-3+0 b-3+0 ; 02116 0174370 b-3+0 b-3+0 ; 02117 0174370 b-3+0 b-3+0 ; 02120 0174370 b-3+0 b-3+0 ; 02121 0174370 b-3+0 b-3+0 ; 02122 0174370 b-3+0 b-3+0 ; 02123 0174370 b-3+0 b-3+0 ; 02124 0174370 b-3+0 b-3+0 ; 02125 0174370 b-3+0 b-3+0 ; 02126 0174370 b-3+0 b-3+0 ; 02127 0174370 b-3+0 b-3+0 ; 02130 0174370 b-3+0 b-3+0 ; 02131 0174370 b-3+0 b-3+0 ; 02132 0174370 b-3+0 b-3+0 ; 02133 0174370 b-3+0 b-3+0 ; 02134 0174370 b-3+0 b-3+0 ; 02135 0174370 b-3+0 b-3+0 ; 02136 0174370 b-3+0 b-3+0 ; 02137 0174370 b-3+0 b-1+0 ; 02140 0174350 d+0+0 d+0+0 ; 02141 0100200 d+0+0 d+0+0 ; 02142 0100200 b+0+3 b+0+2 ; 02143 0141702 b+0+3 b+0+2 ; 02144 0141702 b+0+3 b+0+2 ; 02145 0141702 b+0+3 b+0+2 ; 02146 0141702 b+0+2 d+0+0 ; 02147 0141200 d+0+0 d+0+0 ; 02150 0100200 d+1-3 d+0-2 ; 02151 0107606 d+1-3 d+0-2 ; 02152 0107606 d+1-3 d+0-2 ; 02153 0107606 d+1-3 d+0-2 ; 02154 0107606 d+2-2 d+0+0 ; 02155 0113200 d+0+0 d+0+0 ; 02156 0100200 b+0-3 b+0-2 ; 02157 0143706 b+0-3 b+0-2 ; 02160 0143706 b+0-3 b+0-2 ; 02161 0143706 b+0-3 b+0-2 ; 02162 0143706 b+0-2 d+0+0 ; 02163 0143200 d+0+0 d+0+0 ; 02164 0100200 b+3+0 b+3+0 ; 02165 0154330 b+3+0 b+3+0 ; 02166 0154330 b+3+0 b+3+0 ; 02167 0154330 b+3+0 b+3+0 ; 02170 0154330 b+3+0 b+3+0 ; 02171 0154330 b+3+0 b+3+0 ; 02172 0154330 b+3+0 b+3+0 ; 02173 0154330 b+3+0 b+3+0 ; 02174 0154330 b+3+0 b+3+0 ; 02175 0154330 b+3+0 b+3+0 ; 02176 0154330 b+3+0 b+3+0 ; 02177 0154330 b+3+0 b+3+0 ; 02200 0154330 b+3+0 b+3+0 ; 02201 0154330 b+3+0 b+3+0 ; 02202 0154330 b+3+0 b+3+0 ; 02203 0154330 b+3+0 b+3+0 ; 02204 0154330 b+3+0 b+3+0 ; 02205 0154330 b+3+0 b+3+0 ; 02206 0154330 b+3+0 b+3+0 ; 02207 0154330 b+3+0 b+3+0 ; 02210 0154330 b+3+0 b+3+0 ; 02211 0154330 b+3+0 b+3+0 ; 02212 0154330 b+3+0 b+3+0 ; 02213 0154330 b+3+0 b+3+0 ; 02214 0154330 b+3+0 b+3+0 ; 02215 0154330 b+3+0 b+3+0 ; 02216 0154330 b+3+0 b+3+0 ; 02217 0154330 b+3+0 b+3+0 ; 02220 0154330 b+3+0 b+3+0 ; 02221 0154330 b+3+0 b+3+0 ; 02222 0154330 b+3+0 b+3+0 ; 02223 0154330 b+3+0 b+3+0 ; 02224 0154330 b+3+0 b+3+0 ; 02225 0154330 b+3+0 b+3+0 ; 02226 0154330 b+3+0 b+3+0 ; 02227 0154330 b+3+0 b+3+0 ; 02230 0154330 b+3+0 b+3+0 ; 02231 0154330 b+3+0 b+3+0 ; 02232 0154330 b+3+0 b+3+0 ; 02233 0154330 b+3+0 b+3+0 ; 02234 0154330 b+3+0 b+3+0 ; 02235 0154330 b+3+0 b+3+0 ; 02236 0154330 b+3+0 b+3+0 ; 02237 0154330 b+3+0 b+3+0 ; 02240 0154330 b+3+0 b+3+0 ; 02241 0154330 b+3+0 b+3+0 ; 02242 0154330 b+3+0 b+3+0 ; 02243 0154330 b+3+0 b+1+0 ; 02244 0154310 d+0+0 d+0+0 ; 02245 0100200 d+0+0 d+0+0 ; 02246 0100200 b+0+3 b+0+2 ; 02247 0141702 b+0+3 b+0+2 ; 02250 0141702 b+0+3 b+0+2 ; 02251 0141702 b+0+3 b+0+2 ; 02252 0141702 b+0+2 d+0+0 ; 02253 0141200 d+0+0 d+0+0 ; 02254 0100200 b-3+0 b-3+0 ; 02255 0174370 d+0+0 fr____ ; 02256 0100140 ;------------------------ ; Draw spacebar outline. ;------------------------ spcout deim b+0+2 ; 02257 0030302 b+0+3 b+0+3 ; 02260 0141703 b+0+3 b+0+3 ; 02261 0141703 b+0+3 b+0+3 ; 02262 0141703 d+0+0 d+0+0 ; 02263 0100200 d+0+0 b+2+0 ; 02264 0100320 b+3+0 b+3+0 ; 02265 0154330 b+3+0 b+3+0 ; 02266 0154330 b+3+0 b+3+0 ; 02267 0154330 b+3+0 b+3+0 ; 02270 0154330 b+3+0 b+3+0 ; 02271 0154330 b+3+0 b+3+0 ; 02272 0154330 b+3+0 b+3+0 ; 02273 0154330 b+3+0 b+3+0 ; 02274 0154330 b+3+0 b+3+0 ; 02275 0154330 b+3+0 b+3+0 ; 02276 0154330 b+3+0 b+3+0 ; 02277 0154330 b+3+0 b+3+0 ; 02300 0154330 b+3+0 b+3+0 ; 02301 0154330 b+3+0 b+3+0 ; 02302 0154330 b+3+0 b+3+0 ; 02303 0154330 b+3+0 b+3+0 ; 02304 0154330 b+3+0 b+3+0 ; 02305 0154330 b+3+0 b+3+0 ; 02306 0154330 b+3+0 b+3+0 ; 02307 0154330 b+3+0 b+3+0 ; 02310 0154330 b+3+0 b+3+0 ; 02311 0154330 b+3+0 b+3+0 ; 02312 0154330 b+3+0 b+3+0 ; 02313 0154330 b+3+0 b+3+0 ; 02314 0154330 b+3+0 b+3+0 ; 02315 0154330 b+3+0 b+3+0 ; 02316 0154330 b+3+0 b+3+0 ; 02317 0154330 d+0+0 d+0+0 ; 02320 0100200 d+0+0 d+0+0 ; 02321 0100200 b+0-2 b+0-3 ; 02322 0143307 b+0-2 b+0-3 ; 02323 0143307 b+0-2 b+0-3 ; 02324 0143307 b+0-2 b+0-3 ; 02325 0143307 d+0+0 d+0+0 ; 02326 0100200 b-3+0 b-3+0 ; 02327 0174370 b-3+0 b-3+0 ; 02330 0174370 b-3+0 b-3+0 ; 02331 0174370 b-3+0 b-3+0 ; 02332 0174370 b-3+0 b-3+0 ; 02333 0174370 b-3+0 b-3+0 ; 02334 0174370 b-3+0 b-3+0 ; 02335 0174370 b-3+0 b-3+0 ; 02336 0174370 b-3+0 b-3+0 ; 02337 0174370 b-3+0 b-3+0 ; 02340 0174370 b-3+0 b-3+0 ; 02341 0174370 b-3+0 b-3+0 ; 02342 0174370 b-3+0 b-3+0 ; 02343 0174370 b-3+0 b-3+0 ; 02344 0174370 b-3+0 b-3+0 ; 02345 0174370 b-3+0 b-3+0 ; 02346 0174370 b-3+0 b-3+0 ; 02347 0174370 b-3+0 b-3+0 ; 02350 0174370 b-3+0 b-3+0 ; 02351 0174370 b-3+0 b-3+0 ; 02352 0174370 b-3+0 b-3+0 ; 02353 0174370 b-3+0 b-3+0 ; 02354 0174370 b-3+0 b-3+0 ; 02355 0174370 b-3+0 b-3+0 ; 02356 0174370 b-3+0 b-3+0 ; 02357 0174370 b-3+0 b-3+0 ; 02360 0174370 b-3+0 b-3+0 ; 02361 0174370 b-2+0 d+0+0 ; 02362 0170200 d+0+0 d+0+0 ; 02363 0100200 d+0+0 fr____ ; 02364 0100140 ;------------------------ ; ;------------------------ u22pixb deim b+0+2 ; 02365 0030302 b+0+3 b+0+2 ; 02366 0141702 b+0+3 b+0+2 ; 02367 0141702 b+0+3 b+0+2 ; 02370 0141702 b+0+3 b+0+2 ; 02371 0141702 d+0+0 fr____ ; 02372 0100140 ;------------------------ ; ;------------------------ l6pix deim d-3+0 ; 02373 0030270 d-3+0 d+0+0 ; 02374 0134200 d+0+0 fr____ ; 02375 0100140 ;------------------------ ; Right 11 pixels ;------------------------ r11pix deim d+3+0 ; 02376 0030230 d+3+0 d+3+0 ; 02377 0114230 d+2+0 d+0+0 ; 02400 0110200 d+0+0 fr____ ; 02401 0100140 ;------------------------ ; Down 22 pixels, beam on ;------------------------ d22pixb deim b+0-2 ; 02402 0030306 b+0-3 b+0-2 ; 02403 0143706 b+0-3 b+0-2 ; 02404 0143706 b+0-3 b+0-2 ; 02405 0143706 b+0-3 b+0-2 ; 02406 0143706 d+0+0 fr____ ; 02407 0100140 ;------------------------ ; Left 11 pixels ;------------------------ l11pix deim d-2+0 ; 02410 0030260 d-3+0 d-3+0 ; 02411 0134270 d-3+0 fr____ ; 02412 0134140 ;------------------------ ; Up 22 pixels ;------------------------ u22pix deim d+3+0 ; 02413 0030230 d+3+0 d+3+0 ; 02414 0114230 d+3+0 d+3+0 ; 02415 0114230 d+3+0 d+3+0 ; 02416 0114230 d+1+0 fr____ ; 02417 0104140 ;------------------------ ; Right 5 pixels ;------------------------ r5pix deim d+2+0 ; 02420 0030220 d+3+0 fr____ ; 02421 0114140 ;------------------------ ; Left 5 pixels ;------------------------ l5pix deim d-2+0 ; 02422 0030260 d-3+0 fr____ ; 02423 0134140 ;------------------------ ; Right 6 pixels ;------------------------ r6pix deim d+3+0 ; 02424 0030230 d+3+0 fr____ ; 02425 0114140 ;------------------------ ; Down 22 pixels ;------------------------ d22pix deim d+0-3 ; 02426 0030207 d+0-3 d+0-3 ; 02427 0103607 d+0-3 d+0-3 ; 02430 0103607 d+0-3 d+0-3 ; 02431 0103607 d+0-1 fr____ ; 02432 0102540 ;------------------------ ; ;------------------------ l02433 djms r22pixb ; 02433 0052525 dlya 00476 ; 02434 0020476 dlxa 00600 ; 02435 0010600 djms settle ; 02436 0050775 djms r22pixb ; 02437 0052525 dlya 00374 ; 02440 0020374 dlxa 00641 ; 02441 0010641 djms settle ; 02442 0050775 djms r22pixb ; 02443 0052525 dlya 00272 ; 02444 0020272 dlxa 00660 ; 02445 0010660 djms settle ; 02446 0050775 djms r22pixb ; 02447 0052525 dlya 00170 ; 02450 0020170 dlxa 00721 ; 02451 0010721 djms settle ; 02452 0050775 djms r66pixb ; 02453 0052532 dlya 00600 ; 02454 0020600 dlxa 00600 ; 02455 0010600 djms settle ; 02456 0050775 djms d22pixb ; 02457 0052402 djms r11pix ; 02460 0052376 djms d22pixb ; 02461 0052402 djms r5pix ; 02462 0052420 djms d22pixb ; 02463 0052402 djms r11pix ; 02464 0052376 djms d22pixb ; 02465 0052402 djms u22pix ; 02466 0052413 djms u22pixb ; 02467 0052365 djms l11pix ; 02470 0052410 djms u22pixb ; 02471 0052365 djms l5pix ; 02472 0052422 djms u22pixb ; 02473 0052365 djms l11pix ; 02474 0052410 djms u22pixb ; 02475 0052365 djms u22pix ; 02476 0052413 djms d22pixb ; 02477 0052402 djms r11pix ; 02500 0052376 djms d22pixb ; 02501 0052402 djms r5pix ; 02502 0052420 djms d22pixb ; 02503 0052402 djms r11pix ; 02504 0052376 djms d22pixb ; 02505 0052402 djms u22pix ; 02506 0052413 djms u22pixb ; 02507 0052365 djms l11pix ; 02510 0052410 djms u22pixb ; 02511 0052365 djms l5pix ; 02512 0052422 djms u22pixb ; 02513 0052365 djms l11pix ; 02514 0052410 djms u22pixb ; 02515 0052365 djms u22pix ; 02516 0052413 djms d22pixb ; 02517 0052402 djms r11pixb ; 02520 0052547 djms d22pixb ; 02521 0052402 djms r5pixb ; 02522 0052553 djms d22pixb ; 02523 0052402 djmp keytops ; 02524 0061101 ;------------------------ ; Right 22 pixels, beam on ;------------------------ r22pixb deim b+3+0 ; 02525 0030330 b+3+0 b+3+0 ; 02526 0154330 b+3+0 b+3+0 ; 02527 0154330 b+3+0 b+3+0 ; 02530 0154330 b+1+0 f_____ ; 02531 0144100 ;------------------------ ; Right 66 pixels, beam on ;------------------------ r66pixb deim d+0+0 ; 02532 0030200 b+3+0 b+3+0 ; 02533 0154330 b+3+0 b+3+0 ; 02534 0154330 b+3+0 b+3+0 ; 02535 0154330 b+3+0 b+3+0 ; 02536 0154330 b+3+0 b+3+0 ; 02537 0154330 b+3+0 b+3+0 ; 02540 0154330 b+3+0 b+3+0 ; 02541 0154330 b+3+0 b+3+0 ; 02542 0154330 b+3+0 b+3+0 ; 02543 0154330 b+3+0 b+3+0 ; 02544 0154330 b+3+0 b+3+0 ; 02545 0154330 d+0+0 fr____ ; 02546 0100140 ;------------------------ ; Right 11 pixels, beam on ;------------------------ r11pixb deim d+0+0 ; 02547 0030200 b+3+0 b+3+0 ; 02550 0154330 b+2+0 b+3+0 ; 02551 0150330 d+0+0 fr____ ; 02552 0100140 ;------------------------ ; Right 5 pixels, beam on ;------------------------ r5pixb deim d+0+0 ; 02553 0030200 b+3+0 b+2+0 ; 02554 0154320 d+0+0 fr____ ; 02555 0100140 ;------------------------ ; Literals? ;------------------------ inthjmp jmp inth ; 02556 0010163 l02557 data 2 ; 02557 0000002 inop nop ; 02560 0100000 idnop dnop ; 02561 0004000 l02562 djmp l01343 ; 02562 0061343 l02563 data 061334 ; 02563 0061334 l02564 data 061357 ; 02564 0061357 l02565 data 000177 ; 02565 0000177 l02566 data 000040 ; 02566 0000040 l02567 data 000577 ; 02567 0000577 l02570 data 000450 ; 02570 0000450 l02571 data 000451 ; 02571 0000451 l02572 data 000650 ; 02572 0000650 l02573 data 000430 ; 02573 0000430 l02574 data 000017 ; 02574 0000017 l02575 data 000001 ; 02575 0000001 l02576 data 000102 ; 02576 0000102 idlxa0 dlxa 0000 ; 02577 0010000 idlya0 dlya 0000 ; 02600 0020000 l02601 data 061360 ; 02601 0061360 l02602 djmp l00747 ; 02602 0060747 octch1 data l00752 ; 02603 0000752 octch2 data l00760 ; 02604 0000760 octch3 data l00766 ; 02605 0000766 mask7 data 07 ; 02606 0000007 octtaba data octtab ; 02607 0000420 idjms djms 0 ; 02610 0050000 indload data 000420 ; 02611 0000420 l02612 data 001413 ; 02612 0001413 l02613 data 177611 ; 02613 0177611 l02614 data 000000 ; 02614 0000000 tmp data 000000 ; 02615 0000000 ipend data 106470 ; 02616 0106470 acsave data 000427 ; 02617 0000427 keycnt data 000000 ; 02620 0000000 lastkey data 000000 ; 02621 0000000 keysav data 000000 ; 02622 0000000 keych data 000000 ; 02623 0000000 ;------------------------ ; Draw tops on keypad keys ;------------------------ kptops dlya 00520 ; 02624 0020520 dlxa 00620 ; 02625 0010620 djms settle ; 02626 0050775 djms cfoxtro ; 02627 0053000 djms cromeo ; 02630 0053111 djms cmike ; 02631 0053047 dixm ; 02632 0005000 djms cdelta ; 02633 0052763 djms cecho ; 02634 0052771 djms clima ; 02635 0053042 dixm ; 02636 0005000 djms coscar ; 02637 0053066 djms space3 ; 02640 0051370 djms ctango ; 02641 0053126 djms calpha ; 02642 0052740 djms cbravo ; 02643 0052745 dlya 00420 ; 02644 0020420 dlxa 00660 ; 02645 0010660 djms settle ; 02646 0050775 djms chotel ; 02647 0053012 djms coscar ; 02650 0053066 djms cmike ; 02651 0053047 dixm ; 02652 0005000 dixm ; 02653 0005000 djms num2 ; 02654 0053237 djms space3 ; 02655 0051370 djms num4 ; 02656 0053253 djms space3 ; 02657 0051370 djms cursoru ; 02660 0053214 dlya 00320 ; 02661 0020320 dlxa 00700 ; 02662 0010700 djms settle ; 02663 0050775 djms cpapa ; 02664 0053075 djms cxray ; 02665 0053157 djms cmike ; 02666 0053047 dixm ; 02667 0005000 dixm ; 02670 0005000 djms num5 ; 02671 0053261 djms space3 ; 02672 0051370 djms cursorl ; 02673 0053223 djms space3 ; 02674 0051370 djms cursorr ; 02675 0053176 dlya 00220 ; 02676 0020220 dlxa 00740 ; 02677 0010740 djms settle ; 02700 0050775 djms cxray ; 02701 0053157 djms cmike ; 02702 0053047 djms ctango ; 02703 0053126 dixm ; 02704 0005000 dixm ; 02705 0005000 djms num6 ; 02706 0053267 djms space3 ; 02707 0051370 djms cursord ; 02710 0053205 djmp l01315 ; 02711 0061315 ;------------------------ ; DEIM characters ;------------------------ ccomma deim d+2-2 ; 02712 0030226 punct , b+1+3 b+0+1 ; 02713 0145701 b-1+0 b+0-1 ; 02714 0164305 fr+0_0 fr+0_0 ; 02715 0074571 cdash deim d+1+3 ; 02716 0030213 punct - b+3+0 b+3+0 ; 02717 0154330 fr+0_0 fr+0_0 ; 02720 0074571 cdot deim d+3+0 ; 02721 0030230 punct . b+0+0 fr+0_0 ; 02722 0140171 cslash deim d+2+0 ; 02723 0030220 punct / b+1+3 b+1+3 ; 02724 0145713 b+1+3 d+0-3 ; 02725 0145607 fr+0_0 fr+0_0 ; 02726 0074571 ccolon deim d+3+2 ; 02727 0030232 punct : b+0+0 d+0+3 ; 02730 0140203 d+0+1 b+0+0 ; 02731 0100700 fr+0_0 fr+0_0 ; 02732 0074571 cscolon deim d+2-2 ; 02733 0030226 punct ; b+1+3 b+0+1 ; 02734 0145701 b-1+0 b+1+0 ; 02735 0164310 d+0+3 d+0+1 ; 02736 0101601 b-1+0 fr+0_0 ; 02737 0164171 calpha deim b+1+3 ; 02740 0030313 char A b+1+3 b+1+2 ; 02741 0145712 b+1-3 b+1-3 ; 02742 0147717 b+1-2 d-2+3 ; 02743 0147263 b-3+0 fr+0_0 ; 02744 0174171 cbravo deim b+0+3 ; 02745 0030303 char B b+0+3 b+0+2 ; 02746 0141702 b+3+0 b+2-1 ; 02747 0154325 b+0-2 b-2-1 ; 02750 0143365 b-3+0 d+3+0 ; 02751 0174230 b+3-1 b+0-2 ; 02752 0156706 b-3-1 b-3+0 ; 02753 0176770 fr+0_0 fr+0_0 ; 02754 0074571 ccharli deim d+3+2 ; 02755 0030232 char C d+3+0 b-2-2 ; 02756 0114366 b-2+0 b-2+2 ; 02757 0170362 b+0+3 b+2+3 ; 02760 0141723 b+2+0 b+2-2 ; 02761 0150326 fr+0_0 fr+0_0 ; 02762 0074571 cdelta deim b+0+3 ; 02763 0030303 char D b+0+3 b+0+2 ; 02764 0141702 b+3+0 b+2-1 ; 02765 0154325 b+1-2 b+0-2 ; 02766 0147306 b-1-2 b-2-1 ; 02767 0167365 b-3+0 fr+0_0 ; 02770 0174171 cecho deim b+3+0 ; 02771 0030330 char E b+3+0 ___0_0 ; 02772 0154011 b+0+2 b+0+2 ; 02773 0141302 b+3+0 d-3+0 ; 02774 0154270 b+0+2 b+0+2 ; 02775 0141302 b+3+0 b+3+0 ; 02776 0154330 d+0-3 fr+0_0 ; 02777 0103571 cfoxtro deim b+0+3 ; 03000 0030303 char F b+0+2 b+3+0 ; 03001 0141330 d-3+0 b+0+3 ; 03002 0134303 b+3+0 b+3+0 ; 03003 0154330 d+0-3 fr+0_0 ; 03004 0103571 cgolf deim d+3+3 ; 03005 0030233 char G b+3+0 b-1-3 ; 03006 0154357 b-3+0 b-2+3 ; 03007 0174363 b+0+3 b+3+2 ; 03010 0141732 b+3-1 fr+0_0 ; 03011 0156571 chotel deim b+0+3 ; 03012 0030303 char H b+0+3 b+0+2 ; 03013 0141702 d+0-3 d+0-1 ; 03014 0103605 b+3+0 b+3+0 ; 03015 0154330 _____0 b+0+3 ; 03016 0000703 b+0+3 b+0+2 ; 03017 0141702 d+0-3 fr+0_0 ; 03020 0103571 cindia deim b+3+0 ; 03021 0030330 char I b+3+0 d-3+1 ; 03022 0154271 b+0+3 b+0+2 ; 03023 0141702 b+0+2 d-3+0 ; 03024 0141270 b+3+0 b+3+0 ; 03025 0154330 d+0-3 fr+0_0 ; 03026 0103571 cjuliet deim d+0+2 ; 03027 0030202 char J b+2-2 b+2+0 ; 03030 0153320 b+2+2 b+0+3 ; 03031 0151303 b+0+3 d+0-3 ; 03032 0141607 fr+0_0 fr+0_0 ; 03033 0074571 ckilo deim b+0+3 ; 03034 0030303 char K b+0+3 b+0+2 ; 03035 0141702 d+0-3 d+0-1 ; 03036 0103605 b+3+2 b+3+2 ; 03037 0155332 d-3-2 b+2-3 ; 03040 0137327 b+1-3 fr+0_0 ; 03041 0147571 clima deim b+3+0 ; 03042 0030330 char L b+3+0 ___0__ ; 03043 0154010 b+0+3 b+0+3 ; 03044 0141703 b+0+3 d+0-3 ; 03045 0141607 fr+0_0 fr+0_0 ; 03046 0074571 cmike deim b+0+3 ; 03047 0030303 char M b+0+3 b+0+2 ; 03050 0141702 b+3-3 b+3+3 ; 03051 0157733 b+0-3 b+0-3 ; 03052 0143707 b+0-2 fr+0_0 ; 03053 0143171 cnovemb deim b+0+3 ; 03054 0030303 char N b+0+3 b+0+2 ; 03055 0141702 b+2-3 b+2-3 ; 03056 0153727 b+2-2 b+0+3 ; 03057 0153303 b+0+3 b+0+2 ; 03060 0141702 d+0-3 fr+0_0 ; 03061 0103571 num0 deim d+0-2 ; 03062 0030206 numeric 0 b+1+3 b+2+3 ; 03063 0145723 note, fallthrough b+2+3 b+1+3 ; 03064 0151713 d-3-3 f__0_0 ; 03065 0137511 coscar deim d+1+0 ; 03066 0030210 char O b+2+0 b+2+0 ; 03067 0150320 b+1+3 b+0+2 ; 03070 0145702 b-1+3 b-2+0 ; 03071 0165760 b-2+0 b-1-3 ; 03072 0170357 b+0-2 b+1-3 ; 03073 0143317 fr+0_0 fr+0_0 ; 03074 0074571 cpapa deim b+0+3 ; 03075 0030303 char P b+0+3 b+0+2 ; 03076 0141702 b+3+0 b+3-1 ; 03077 0154335 b+0-2 b-3-1 ; 03100 0143375 b-3+0 fr+0_0 ; 03101 0174171 cquebec deim d+1+0 ; 03102 0030210 char Q b+3+0 b+2+3 ; 03103 0154323 b+0+3 b-1+2 ; 03104 0141752 b-3+0 b-2-3 ; 03105 0174367 b+0-3 b+1-2 ; 03106 0143716 d+3+3 b+3-3 ; 03107 0115737 fr+0_0 fr+0_0 ; 03110 0074571 cromeo deim b+0+3 ; 03111 0030303 char R b+0+3 b+0+2 ; 03112 0141702 b+3+0 b+3-1 ; 03113 0154335 b+0-2 b-3-1 ; 03114 0143375 b-3+0 d+3+0 ; 03115 0174230 b+2-2 b+1-2 ; 03116 0153316 fr+0_0 fr+0_0 ; 03117 0074571 csierra deim d+0+1 ; 03120 0030201 char S b+2-1 b+3+0 ; 03121 0152730 b+1+3 b-3+1 ; 03122 0145771 b-3+1 b+1+3 ; 03123 0174713 b+3+0 b+2-1 ; 03124 0154325 fr+0_0 fr+0_0 ; 03125 0074571 ctango deim d+3+0 ; 03126 0030230 char T b+0+3 b+0+3 ; 03127 0141703 b+0+2 ___0__ ; 03130 0141010 b+3+0 b+3+0 ; 03131 0154330 d+0-3 fr+0_0 ; 03132 0103571 cunifor deim d+0+3 ; 03133 0030203 char U d+0+3 d+0+2 ; 03134 0101602 b+0-3 b+0-3 ; 03135 0143707 b+2-2 b+2+0 ; 03136 0153320 b+2+2 b+0+3 ; 03137 0151303 b+0+3 d+0-3 ; 03140 0141607 fr+0_0 fr+0_0 ; 03141 0074571 cvictor deim d+0+3 ; 03142 0030203 char V d+0+3 d+0+2 ; 03143 0101602 b+1-2 b+1-3 ; 03144 0147317 b+1-3 b+1+2 ; 03145 0147712 b+1+3 b+1+3 ; 03146 0145713 d+0-3 fr+0_0 ; 03147 0103571 cwhisky deim b+0+3 ; 03150 0030303 char W b+0+3 b+0+2 ; 03151 0141702 d+0-3 d+0+0 ; 03152 0103600 _____0 b+3+3 ; 03153 0000733 b+3-3 b+0+3 ; 03154 0157703 b+0+3 b+0+2 ; 03155 0141702 d+0-3 fr+0_0 ; 03156 0103571 cxray deim b+2+3 ; 03157 0030323 char X b+2+2 b+2+3 ; 03160 0151323 ___0__ b+2-3 ; 03161 0004327 b+2-2 b+2-3 ; 03162 0153327 fr+0_0 fr+0_0 ; 03163 0074571 cyankee deim d+3+0 ; 03164 0030230 char Y b+0+2 b+0+3 ; 03165 0141303 b+3+3 ___0__ ; 03166 0155410 b+3-3 fr+0_0 ; 03167 0157571 czulu deim d+3+0 ; 03170 0030230 char Z d+3+0 b-3+0 ; 03171 0114370 b-3+0 b+2+3 ; 03172 0174323 b+2+2 b+2+3 ; 03173 0151323 b-3+0 b-3+0 ; 03174 0174370 d+3-3 fr+0_0 ; 03175 0117571 cursorr deim d+0+3 ; 03176 0030203 -> d+0+1 b-2+1 ; 03177 0100761 b-2+2 b+1-3 ; 03200 0171317 b-1-3 b+2+2 ; 03201 0167722 b+2+1 b-3+0 ; 03202 0150770 b-2+0 b-2+0 ; 03203 0170360 fr+0_0 fr+0_0 ; 03204 0074571 cursord deim d+3+0 ; 03205 0030230 | b+0-3 b+0-3 ; 03206 0143707 V b+0-2 b-1+2 ; 03207 0143352 b-2+2 b+3-1 ; 03210 0171335 b+3+1 b-2-2 ; 03211 0154766 b-2-2 d+3+3 ; 03212 0173233 fr+0_0 fr+0_0 ; 03213 0074571 cursoru deim d+3+0 ; 03214 0030230 ^ b+0+3 b+0+3 ; 03215 0141703 | b+0+2 b-1-2 ; 03216 0141356 b-2-2 b+3+1 ; 03217 0173331 b+3-1 b-2+2 ; 03220 0156762 b-2+2 d+3-3 ; 03221 0171237 fr+0_0 fr+0_0 ; 03222 0074571 cursorl deim d+0+3 ; 03223 0030203 <- d+0+1 b+2+1 ; 03224 0100721 b+2+2 b-1-3 ; 03225 0151357 b+1-3 b-2+2 ; 03226 0147762 b-2+1 b+3+0 ; 03227 0170730 b+2+0 b+2+0 ; 03230 0150320 fr+0_0 fr+0_0 ; 03231 0074571 num1 deim d+1+0 ; 03232 0030210 numeric q b+2+0 b+2+0 ; 03233 0150320 d-2+0 b+0+3 ; 03234 0130303 b+0+3 b+0+2 ; 03235 0141702 b-2-2 fr+0_0 ; 03236 0173171 num2 deim d+0+3 ; 03237 0030203 numeric 2 d+0+3 b+2+2 ; 03240 0101722 b+2+0 b+2-2 ; 03241 0150326 b-1-2 b-2-1 ; 03242 0167365 b-3-3 b+3+0 ; 03243 0177730 b+3+0 fr+0_0 ; 03244 0154171 num3 deim b+3+0 ; 03245 0030330 numeric 3 b+3+2 b-2+2 ; 03246 0155362 b-3+0 d+3+0 ; 03247 0174230 b+2+2 b-2+2 ; 03250 0151362 b-3+0 d+3-3 ; 03251 0174237 fr+0_0 fr+0_0 ; 03252 0074571 num4 deim d+3+0 ; 03253 0030230 numeric 4 d+1+0 b+0+3 ; 03254 0104303 b+0+3 b+0+2 ; 03255 0141702 b-3-3 b-1-2 ; 03256 0177756 b+3+0 b+3+0 ; 03257 0154330 fr+0_0 fr+0_0 ; 03260 0074571 num5 deim b+3+0 ; 03261 0030330 numeric 5 b+3+1 b+0+2 ; 03262 0154702 b-3+2 b-3+0 ; 03263 0175370 b+0+3 b+3+0 ; 03264 0141730 b+3+0 d+0-3 ; 03265 0154207 fr+0_0 fr+0_0 ; 03266 0074571 num6 deim d+0+3 ; 03267 0030203 numeric 6 b+2+1 b+2+0 ; 03270 0150720 b+2-2 b-2-2 ; 03271 0153366 b-2+0 b-2+2 ; 03272 0170362 b+0+3 b+2+3 ; 03273 0141723 b+2+0 b+2-2 ; 03274 0150326 fr+0_0 fr+0_0 ; 03275 0074571 num7 deim b+2+3 ; 03276 0030323 numeric 7 b+3+3 b+1+2 ; 03277 0155712 b-3+0 b-3+0 ; 03300 0174370 d+3-3 fr+0_0 ; 03301 0117571 num8 deim d+2+0 ; 03302 0030220 numeric 8 b+2+0 b+2+1 ; 03303 0150321 b+0+2 b-3+1 ; 03304 0141371 b-3+2 b+2+2 ; 03305 0175322 b+2+0 b+2-2 ; 03306 0150326 b-3-2 b-3-1 ; 03307 0177375 b+0-2 b+2-1 ; 03310 0143325 fr+0_0 fr+0_0 ; 03311 0074571 num9 deim d+3+0 ; 03312 0030230 numeric 9 b+2+3 b+1+3 ; 03313 0151713 b+0+3 b-3+0 ; 03314 0141770 b-2-2 b+2-2 ; 03315 0173326 b+3+0 fr+0_0 ; 03316 0154171 end ;