IBM 5150 - 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