IBM 5150 Hardware Reference Manual page 212

LOC OBJ
LINE SOURCE
E6BS E661
1275 OUT
E687 C3
1276
RET ;RETURN TO CALLER
1277
BEEP EtlDP
1278 1-------------------------------------------­
1279 THIS PROCEDURE WILL SEND A SOFTWARE RESET TO THE KEYBOARD.
1280
SCAN CODE AA' SHOULD BE RETURNED TO THE CPU.
1281 ; -------------------------------------------­
E688 1282 PROC NEAR
E688 BOOC 1283 AL,OCH ;SET KBD CLK LINE LOW
£6810. E661 1284 PORT.B,AL ;WRITE 8255 PORT B
f68t 695629
1285 MOY CX, 10582
;HOLO KBD CLK LOW FOR 20 MS
E6aF E2FE 1286 G8:
LOOP
G8 ,LOOP FOR 20 MS
£691 Boce 1287
MOV AL.OCCH
,SET CLK, ENABLE LINES HIGH
E693 E661 1288
OUT PORT.B.AL
£695
1289 SP_TEST:
I ENTRY FOR I1AHUFACTURING TEST 2
£695 B04C
1290 HOV AL.4CH ,SET KBD CLK HIBH. ENABLE LOW
£697 E661 1291 OUT
PORT.B.AL
E699 SOFO 1292 HOV AL,OFOH
i
ENABLE KEYBOARD INTERRUPTS
E695 £62.1 1293
OUT INTAOl.AL ,WRITE 8259 IMR
E690 FB
1294 STI iENABLE SYSTEM INTERRUPTS
£69£ 6400 1295 HOV AH.O ,RESET INTERRUPT IUDICATOR
£6AO 28C9 1296
sua
CX.CX ,SETUP INTERRUPT TIMEOUT CNT
f6A2 F6C4FF
1297
G9:
TEST AH, OFFH iDID A KEYBOARD INTR
OCCUR~
£610.5 750Z
1298 Jtll GI0 ;YES - READ SCAN COOE RETtmNED
£6A7 E2F9 1299 LOOP G9 INa - LOOP TILL TIMEOUT
£6A9 £460 1300 GI0:
IN AL,PORT.A
!READ KEYBOARD SCAN CODE
E6AB 810.08
1301 HOV BL,AL
,SAVE SCAN CODE JUST READ
E6AD Boce
1302 HOV AL,OCCH ,CLEAR KEYBOARD
E6AF E661 1303 OUT PORT.B,AL
E6Bl C3 1304
RET
IRETURN TO CALLER
1305 KBD.RESET ENDP
1306
1307 BLINK LED PROCEDURE FOR t1FG BURN-IN AND RUN-IN TESTS
1308 (LED WILL BLINK APPROXIMATELY. 25 SECOND)
1309
i - ­ - - --­ - ­ - - - - -­ --­ -------------------­ - - - - -­
f662 1310
BLIN'CINT PROC NEAR
f682 FB 1311 STI
E683 51 1312 PUSH
ex
I SAVE CX REG CONTENTS
£684 50 1313
PUSH
AX ;SAVE AX REG CONTENTS
E685 £461 1314
IN AL,PORT_B
;READ CIJR'RENT VAL OF PORT 8
E6B7 24BF 1315
AND AL.OBFH
£689 E661 1316
OUT
PORT_B,AL
!BLINK LED
EbBS 28C9 1317
SUB CX,CX
E6BD E2FE 1318 Gl}:
LOOP G11
E68F OC40 1319 OR AL,40H ISTOP BLINKING LEO
fbCl E661 1320 OUT PORT_B,AL
£6C3 B020
1321
HOV AL,EOI
f6C5 £62:0
1322 OUT INTAOO.AL
f6C7 58 1323 POP AX ,RESTORE AX REG
f6e8 59
1324 POP CX !RESTORE CX REG
E6C9 CF
1325
IRET
1326
1327 ; ----------­ ----------------------------­ ---­
1328 THIS SUBROUTINE WILL PRINT A MESSAGE ON THE DISPLAY
1329
1330 !ENTRY REQUIREMENTS:
1331 51 ::: OFFSETCADORESS) OF MESSAGE BUFFER
1332 CX
=
MESSAGE BYTE COUNT
1333 MAXIMUM MESSAGE LENGTH IS 36 CHARACTERS
1334 ; -------------------------------------------­
E6CA
1335
E6CA 884000
1336
HOV AX,DATA I POINT OS TO DATA SEG
E6eD 8E08 1337 HOV OS,AX
E6CF 803£120001 1338 CHP MFG.TST .1 IMFG TEST MODE?
£604 7505 1339
JNE
G12
;NO - DISPLAY ERROR M5G
E6D6 B601 1340 HOV OH,1 ; YES - SETUP TO BEEP SPEAKER
~
Eb08 E95SFF 1341
JMP ERR.BEEP
; YES - BEEP SPEAKER
EbDB 1342
G12: ; WRITCMSG:
E6DB 2E8A04 13
l
.3 NOV AL,CS:(SIl ; PUT CHAR IN AL
E60E 46
1344
INC SI
; POINT TO NEXT CHAR
E60F B700 1345 MOV FJ;H,O ;SET PAGE # TO ZERO
f6E1 840£
1346
MOV AH.14
;~RITE CHAR {TTY-INTERFACE)
E6El COlO 1347 HIT 10H iCALL VIDEO.IO
f6E5 E2F4 1348 lOOP G12 ; CONTINUE TI lL "SG WRITTEN
f6E7 B80DOE
1349
MOV AX, OEODH
; POSITION CURSOR TO NEXT LINE
f6EA COlO 1350 INT 10H
;SeNO CARRIAGE RETURN AND
A-19