Table of Contents
Advertisement
•••
IBM Pe,-sonal COlllpute,- MACRO Asselllble,-
Ve'-sion 2.00
1-6
KY8D ----- 06/10/85
KEY80ARD 8IOS
06-10-85
571
0320 C7 06 0072 R 1234
572
0326 E9 0000 E
573
574
;----
575
0329
.3.
576
0329 52 4F 50 51
484C
577
032F 40 47 48 49
578
;----
579
033310 II
1213
14 15
580
0339
16 17 18 19 lEI F
581
033F 20 21
22 23 24 25
582
0345 26 2C 20 2E 2F 30
583
0348 31
32
58.
585
;----
586
587
0340
K31 :
588
0340 3C 39
589
034F 75 05
590
0351 80 20
591
0353 E9 048A R
592
593
;----
59.
595
0356
K321
596
0356 8F 0329 R
597
0359 89 OOOA
598
035C F2/ AE
599
035E 75
13
600
0360 81
EF 032A R
60 I
0364 AO 0019 R
602
0367 84 OA
603
0369 F6 E4
604
0368 03 C7
605
0360 A2 0019 R
606
0370 E9 02EE R
6.7
6.8
6.9
610
0373
K33:
611
0373 C6 06 0019 R 00
612
0378 89 OOIA
613
0378 F2/ AE
614
0370 75 05
615
037F 80 00
616
0381 E9 048A R
6"
618
;----
619
620
0384
K34:
621
0384 3C 02
622
0386 72 OC
623
0388 3C OE
624
038A 73 08
625
038C 80 C4 76
626
038F 80 00
627
0391 E9 048A R
628
629
63.
631
0394
K35:
632
0394 3C 38
633
0396 73 03
634
0398
K36:
635
0398 E9 02EE R
636
0398
K37 :
637
0398 3C 47
638
0390 73 F9
639
039F 88 0000 E
640
03A2 E9 04El
R
6"
6.2
6'3
644
03A5
K38:
645
03A5 F6 06 0017 R 04
646
03AA 74 62
6.7
6.8
;----
6.9
;----
65.
651
03AC 3C 46
652
03AE 75
10
653
0380 88 1 E 0080 R
654
0384 89
IE 001A R
655
0388 89
IE 001 C R
656
038C C6 06 0071
R 80
657
658
659
660
03C I 80 AE
661
03C3 E8 0595 R
662
03C6 CD 18
663
03C8 28 CO
664
03CA E9 048A R
665
666
03CD
K39:
667
03CD 3C 45
668
03CF 75 26
669
0301
80 OE 0018 R 08
67.
6"
672
673
0306 80 AE
674
0308 E8 0595 R
675
0308 80 20
676
0300 E6 20
677
678
679
680
03DF 80 3E 0049 R 07
681
03E4 74 07
682
03E6 8A 0308
683
03E9 AO 0065 R
684
03EC EE
PRESET FLAG, 1234H
; SET FLAG FOR RESET FUNCT I ON
START_T
;
..JUMP TO POWER ON DIAGNOSTICS
AL T-INPUT-TA8LE
LA8EL
BYTE
DB
82,79,80,81,75,76
DB
77,71,72,73
10 NUMBERS ON KEYPAD
SUPER-SHI FT-TABLE
08
16,17,18,19,20,21
A-Z TYPEWR I TER CHARS
DB
22,23,24,25,30,31
08
32,33,34,35,36,37
08
38,44,45,46,47,48
DB
49,50
IN ALTERNATE SHIFT, RESET NOT FOUND
;
NO-RESET
AL,57
; TEST FOR SPACE KEY
.32
; NOT THERE
AL,'
,
;
SET SPACE CHAR
.57
; 8UFFER _F I LL
LOOK FOR KEY PAD ENTRY
AL T-KEY-PAD
OJ ,OFFSET K30
AL T-JNPUT-TA8LE
CX,IO
LOOK FOR ENTRY US J NG KEYPAD
SCASB
LOOK FOR MATCH
.33
NO AL T KEYPAD
DJ,OFFSET K30+
I
DJ-NOW-HAS ENTRY VALUE
AL,OAL T
INPUT
GET THE CURRENT BYTE
AH,10
-
MULTIPLY 8Y
10
AH
AX,DI
ADD IN THE LATEST ENTRY
OAL T INPUT ,AL
STORE J T AWAY
K26 -
THROW AWAY THAT KEYSTROKE
LOOK FOR SUPERSH I FT ENTRY
NO-ALT-KEYPAD
ZERO ANY PREV I OUS ENTRY
I NTO
INPUT
{DI], {ES]
ALREADY POINTING
SCAS8
LOOK FOR MATCH IN ALPHA8ET
~~:~6INPUT,O
.3.
NOT FOUND, FUNCT I ON KEY OR OTHER
AL,O
;
ASC I I CODE OF ZERO
.57
; PUT
I TIN THE BUFFER
LOOK FOR TOP ROW OF ALTERNATE SHIFT
AL T-TOP-ROW
AL,2
KEY WITH ' I ' ON IT
.35
NOT ONE OF INTERESTING KEYS
AL,14
IS
IT IN THE REGION
.35
AL T-FUNCT I ON
AH,118
CONVERT PSEUDO SCAN CODE TO RANGE
AL,O
INDICATE AS SUCH
.57
BUFFER_F I LL
TRANSLATE ALTERNATE SH 1FT PSEUDO SCAN CODES
AL T-FUNCT I ON
C"P
AL,59
TEST FOR
IN TABLE
JAE
.37
AL T-CONT I NUE
CLOSE-RETURN
J"P
'26
I GNORE THE KEY
AL T-CONT I NUE
C"P
AL,71
IN KEYPAD REGION
JAE
.36
IF SO,
IGNORE
"OV
BX,OFFSET KI3
ALT SHIFT PSEUDO SCAN TABLE
J"P
'63
TRANSLATE THAT
NOT
I N AL TERNA TE SH I FT
NOT-ALT-SHIFT
TEST
PKB_FLAG, CTL_SH I FT
ARE WE
I N CONTROL SH I FT
JZ
NOT-CTL-SHIFT
CONTROL SH I FT, TEST SPEC I AL CHARACTERS
TEST FOR 8REAK AND PAUSE KEYS
AL, SCROLL KEY
TEST FOR BREAK
K39
NO-8REAK
BX,08UFFER START
RESET 8UFFER TO EMPTY
Cl8UFFER HEAD, BX
08UFFER-TAIL,BX
OB I OS_BREAK ,80H
TURN ON PB lOS_BREAK BIT
ENA8LE KEYBOARD
"OV
AL,ENA K8D
ENA8LE KEY80ARD
CALL
SHIP IT
EXECUTE ENABLE
INT
IBH -
BREAK
I NTERRUPT VECTOR
SUB
AX,AX
PUT OUT DUMMY CHARACTER
J"P
'57
BUFFER _F I LL
NO-8REAK
AL,NUM KEY
LOOK FOR PAUSE KEY
K41
-
NO-PAUSE
OKB_FLAG_I,HOLD_STATE
TURN ON THE HOLD FLAG
ENABLE KEYBOARD
AL,ENA KBD
ENABLE KEYBOARD
SHIP IT
EXECUTE ENABLE
AL,EOI
END OF I NTERRUPT TO CONTROL PORT
INTAOO,AL
ALLOW FURTHER KEYSTROKE INTERRUPTS
DURING PAUSE
INTERVAL, TURN COLOR CRT BACK ON
PCRT MODE,7
IS TH I S THE MONOCHROME CARD
K40 -
YES, NOTH I NG TO DO
DX,03D8H
PORT FOR COLOR CARD
AL,e-CRT MODE SET
GET THE VALUE OF THE CURRENT MODE
DX,AL
-
-
SET THE CRT MODE,
SO THAT CRT IS ON
5-134
KYBD
Advertisement
Chapters
Table of Contents
