IBM 5150 Technical Reference page 141

lOC OBJ
E630
E630 0490
E632 27
E633 1440
E635 27
E636
E636 B40E
E638 8700
E63A COlO
E63e C3
f630
f630 BC03
Eb3F 7803
E641 7802
E643
E643
E643 BoDe
E645 E661
E647 895629
E64"
E64" E2FE
E64C Boce
E64E E661
E650
E650 B04C
E652 E661
E654 BOFD
E656 E621
E656 FB
E659 6400
f658 2BC9
E650
E650 F6C4FF
f660 7502
f662 E2F9
E664
E664 E460
E666 8A08
E668 Boce
E66A E661
f66t C3
E660
f660 FB
E66E 50
E66f E461
E67l 8AEO
E673 F60D
E675 2440
E677 BOE4BF
E67" OAC4
E67e E661
E67E BOZO
E680 f620
E682 58
Ebe3 CF
E664
E684 884000
E687 BEeo
LINE SOURCE
1356 XlAT_PR PROC NEAR ~
CONVERT OO-OF TO ASCII CHARACTER
1357 ADD
AL , 090H
; ADD FIRST cmNERSION FACTOR
1358 DAA
5 ADJUST FOR NUMERIC AND ALPHA RANGE
1359 ADC AL.040H ; ADD CONVERSION ANO ADJUST lOW NIBBLE
1360 DAA
; ADJUST HI NIBBLE TO ASCII RANGE
1361
1362 HOV AH.14 ; DISPLAY CHAR. IN AL
1363 HOY BH.O
1364
INT 10H
1365
RET
1366 PRT_HEX ENDP
1367
XLAT_PR EHOP
1368
ENDP
1369
1370
'4
LABEL WORD
; PRINTER SOURCE TABLE
1371
OW 3BCH
1372
OW
378H
1373 OW 278H
1374
'4E LABEL WORD
1375
1376 ; --------------------.----------------.-------------- ­ ----- ­ ------------­
1377
nus
PROCEDURE WIll SEND A SOFTWARE RESET TO THE KEYBOARD.
1378 SCAN CODE 'AA' SHOULD BE RETURNED TO THE CPU.
1379
J-----------------------~------------------------------------------------
1380 KBD_RESET PROC NEAR
1381
"OV
AL,OCH ; SET KBD ClK LINE LOW
1382
OUT
PORT_B,AL J WRITE 6255 PORT B
1383
MOV
CX,10562 ; HOLD KBD CLK LOW FOR 20
HS
1384
1385 LOOP G6 ; LOOP FOR 20 HS
1386
t10V
AL.OCCH
; SET CLK. ENABLE lINES HIGH
1387 OUT
PORT_B,AL
1388 SP_TEST: J ENTRY FOR MANUFACTURING TEST
2
138"
MaV Al.4CH J SET KBD ClK HIGH. ENABLE LOW
1390
OUT
PORT_B,AL
1391
"OV
Al.OFDH J ENABLE KEYBOARD INTERRUPTS
1392
OUT
INTA01,AL J WRITE 8259 IHR
1393
sn
~ ENABLE SYSTEM INTERRUPTS
1394
MOV AH,O
I RESET INTERRUPT INDICATOR
1395 SUB cx.CX
J SETUP INTERRUPT TIMEOUT CNT
1396 69:
1397 TEST AH. OFFH ; DID A KEYBOARD INTR OCCUR?
1398 JNZ GIO ; YES - READ SCAN CODE RETURNED
1399 lOOP G9 J NO - LOOP TILL TIMEOUT
1400 GI0:
1401 IN J READ KEYBOARD SCAN CODE
1402 MaV BL,.U • SAVE SCAN CODE JUST READ
1403
"OV
; CLEAR KEYBOARD
1404
OUT
1405
RET
; RETURN TO CALLER
1406 KBD_RESET ENDP
1407
1408 ; ---­ ------­ - ­ - ­ - ­ --------------------------­ - ­ -------­ ---- ­ - -----------­
1409 BLINK LED PROCEDURE FOR HFG BURN-IN AND RUN-IN TESTS
1410 IF LED IS ON, TURN IT OFf. IF Off. TURN ON.
1411 ; - - ­ - - - ------------------------------------- ­ - - -------­ - ---- ­ - - --------- ­
1412 PROC NEAR
1413
sn
1414 PUSH AX ; SAVE AX REG CONTENTS
1415 IN AL,PORT_B
; READ CURRENT VAL Of PORT B
1416 MOV AH,AL
1417 NOT AL
I FLIP ALL BITS
1416 AND AL,01000000B
I
ISOLATE CONTROL BIT
1419 AND AH,l0l11111B
; MASK OUT Of ORIGINAL VAL
1420 OR AL,AH ; OR NEW CONTROL BIT IN
1421
OUT
PORT_B.AL
1422
"OV
AL,EOI
1423 OUT INTAOO,AL
1424
pop
AX
; RESTORE AX REG
1425 IRET
1426 BLIHK_INT ENDP
1427
1428 ;----- CHECKSUH ANO CALL INIT CODE IN OPTIONAL ROHS
1429
1430
?ROC
NEAR
1431 I10V
AX.DATA J SET ES=DATA
1432 I10V ES,AX
5-48 System BIOS