mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
1822 lines
52 KiB
NASM
Executable File
1822 lines
52 KiB
NASM
Executable File
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 ;
|