IBM PC CONVERTIBLE - Page 247

OC5E 57
PUSH 01
SAVE PTR TO ASCI I
ERROR MSG
OC5F
06 PUSH ES
OC60 50
PUSH AX
SAVE ERROR CODE
OC61 OE
PUSH CS
OC62 07 POP
ES POINT ES TO CODE SEGMENT
OC63 B8 ---- MOV
AX,XXDATA SET OS TO XXDATA SEGMENT
OC66
8E 08
MOV DS,AX
OC68 B5 00 MOV
CH,O
CLEAR CH
CHECK FOR NEED TO DISPLAY
I CON AND DO SO I F NECESSARY
OC6A
8B F9
EMlO: MOV
DI,CX ; SAVE ICON NUMBER
OC6C 01 E7
SHL 01,1
; MULTIPLY BY 2
OC6E 2E: 8B AD 0249
MOV BP,ICONJDR[DI]
BP POINTS TO ICON DATA
OC73 8B F9
MOV DI,CX
OC75 83 FF 06
CMP 01,6
; Fl ICON
OC78 75 52
JNE EM15
DISPLAY
Fl ICON AND WAIT FOR F1 TO BE PRESSED IF SYS UNIT DISPLAYED
OTHERWISE WAIT
10 SECONDS AND THEN RETURN
OC7A 80 3E 002B R 00
CMP
ICON_DIS+l,O
SYSTEM UNIT DISPLAYED?
OC7F 74 29
JE EM13 JUMP I F NO SYSTEM UN IT
OC81 BA 1200
MOV DX,01200H OX POINTS TO DSPLY POSITION
OC84 E8 OD5F R
CALL
ICON_PR
DISPLAY F1 ICON
KEYSTROKE FOUND SO CHECK
FOR CORRECT KEYS
OC87
EMIl :
OC87 B4 00
MOV
AH,O SET GET KEYSTROKE FN CODE
OCB9 CD 16
INT 16H GET A KEYSTROKE
OC8B 80 FC 3B CMP
AH,03BH Fl KEY?
OC8E 74 11
JE EM12 YES THEN WAIT FOR REL OF KEY
OC90 3C OC CMP
AL,OOCH CTL +L FOR LOOP MODE?
OC92
75 F3
JNE
EMIl NO LOOK FOR NEXT KEY SEQ
ASSUME
DS:DATA
OC94
88 ---- R MOV
AX,DATA ; SETUP DATA SEGMENT
OC97 8E 08
MOV DS,AX
OC99 C7 06 0072
R ABCD MOV RESELFLAG,LOOP_MODE ; SET POST LOOP MODE
OC9F EB 25
JMP SHORT EM14
; EXIT
WAIT
FOR BREAK OF F1 KEY
OCA1 FB
EM12 : STI ENABLE INTERRUPTS
OCA2 E4 60
IN AL,KB-DATA READ KEY BOARD PORT
OCM 3C 3B
CMP AL,03BH CHECK FOR STI LL Fl KEY
OCA6 74 F9
JE EM12 WAIT UNTI L NOT Fl KEY MAKE
OCA8 EB 1C JMP
SHORT EM14 EXIT IF Fl KEY RELEASED
NO SYSTEM UNIT SO ONLY WAIT 10 SECONDS OR UNTIL KEY HIT
OCAA EMl3 :
OCAA BA 0060
MOV
DX,KB_DATA
KEYBOARD PORT
OCAD EC IN
Al,DX
OCAE 8A F8 MOV
BH,Al GET PRESENT PORT 60 VALUE
OCBO B3 B5 MOV
Bl,OBSH SET TIMEOUT TO 10 SECONDS
OCB2
BO 12
MOV AL,12H
COMPARE RETURN NOT EQUAL
USING BH AND PORT READ (OX)
OCB4
B4 41
MOV AH,41H WAIT ON EXTERNAL EVENT
OCB6
CD 15
INT ISH WILL RETURN AFTER 10 SECS
OCB8 72 OC JC EM14 I F TIMEOUT THEN JUMP
OCBA
EMl3_1 :
OCBA B4 01
MOV AH,l
CHECK FOR KEY IN BUFFER
OCBC
CD 16 INT 16H
OCBE 74 06
JZ EM14 JUMP I F NO KEY IN BUFFER
OCCO B4 DO
MOV AH,O
OCC2 CD 16
INT 16H
OTHERWISE. PURGE THE KEY
OCC4 EB F4 JMP
SHORT EMILI LOOP UNTIL NO MORE KEYS
2-222 ROM BIOS