IBM PC CONVERTIBLE - Page 248

Fl WAIT COMPLETED SO EXIT
OCC6
OCC6
83 C4 06
OCC9 E9 005C R
EM14 :
ADD
JMP
BALANCE STACK
EXIT WHEN PRESSED
NOT REQUEST TO DISPLAY Fl PROMPT
OCCC
OCOO
OC03
OC05
OC07
OCOB
OCOO
OCE1
OCE5
OCE7
OCEC
OCEE
8A 80 002A R
80 F9 00
8B F1
75 lA
8A OE 002A R
FE Cl
88 80 002A R
88 OE 002A R
8B F1
2E: 8A 94 0078 R
B6 00
E8 005F R
ASSUME OS:XXOATA
EM15 :
CMP
MOV
JNE
MOV
INC
MOV
MOV
MOV
MOV
MOV
CALL
MOV CL,ICON_OIS[OI-
CL ,0
SI, CX
EM20
CL,ICON_OIS[O]
CL
ICON_OIS[OI] ,CL
ICON_DIS [O],CL
SI, CX
OL, 0 I S_POS [S I]
OH,O
ICON_PR
; MOVE OSPLY SQUARE NO. TO SI
HAS ICON BEEN DISPLAYED?
SAVE DISPLAY SQUARE NO.
GET NO. ICONS ALREADY DSPLYD
STORE DSPLY SQUARE WITH ICON
SAVE NO. OF ICONS DISPLAYED
SAVE DISPLAY SQUARE
GET COL NUMBER FOR DISPLAY
PUT ROW NUMBER IN DH
DISPLAY ICON
CONVERT AND DISPLAY ERROR MESSAGE IN AX IF REQUIRED
OCFl 58
OCF2 OA E4
OCF4 74 3C
OCF6 57
OCF7 8B DO
OCF9 B8 ----
OCFC 8E CO
OCFE BF 0009
0001
E8 0275
0004
5 F
0005 8A 90 0031
0009 FE 85 0031 R
0000 2E: 8A 94 0073 R
0012 30 C2 08
0015 83 FF 02
0013 75 03
ODIA 80 EA 04
OOlD B6 09
ODIF 02 F3
0021 B9 0004
0024
BD OOOA R
0027 B4 OF
0029 CD 10
002B B3 07
0020 B8 1300
0030
CD 10
EM20 :
OR
JZ
PUSH
MOV
MOV
MOV
MOV
CALL
POP
MOV
INC
MOV
ADD
CMP
JNE
SUB
POP AX
AH,AH
EM30
01
OX ,AX
AX,XXDATA
ES ,AX
OI,OFFSET TEMP
STR_CON
01
BL,ICON_MSG[OI]
ICON~SG[DI]
DL,DIS_POS[SI]
DL,8
01,2
EM25
DL,4
EM25: MOV OH,9
ADD OH,BL
MOV CX,4
MOV BP,OFFSET TEMP+l
MOV AH,15
I
NT 10H
MOV BL, 07H
MOV AX,01300H
I NT 10H
RESTORE ERROR CODE
ERROR MESSAGE?
SAVE ICON NUMBER
MOVE ERROR CODE
ES POINTS TO XXOATA
PO I NTER FOR CONVERS ION RTN E
CONVERT ERROR CODE TO ASCI I
RESTORE I CON NUMBER
GET NO. OF MSGD UNDER ICON
I NCREMENT NO. OF MESSAGES
GET SCREEN POSITION
CENTER MESSAGE
FEATURE ICON?
ADJ OSPLY POS FOR FEAT ICON
FIRST MESSAGE GOES AT ROW 9
ERROR MSG. lSI ROW BELOW
PREVIOUS ONE
LENGTH OF STRING IS 4 CHARS
POINT TO ASCII ERROR CODE
GET CURRENT PAGE NUMBER
NORMAL ATTRI BUTES
WRITE STRING FOR INT 10
DISPLAY ERROR MESSAGE
DISPLAY ASCI I MESSAGE I F NECESSARY
0032 07
0033 5B
0034 OB DB
0036 74 24
EM30:
POP
OR
JE
POP ES
BX
BX, BX
EMSG_RET
GET ASCI I ERROR MSG POINTER
ASCI I ERROR MESSAGE
SCAN TO GET LENGTH
0038 8B EB
003A 43
OD3B 26: 80 3F 04
003F 75 F9
0041 2B DO
0043 8B CB
0045 2E: 3A 94 0078 R
004A 80 C2 OC
MOV
EM35:
CMP
JNE
EM40:
MOV
MOV
ADD
BP, BX ; POINT TO MESSAGE FOR INT 10
INC BX ; INC POINTER
BYTE PTR ES: [BX],04H ; END OF MESSAGE?
EM35 I F NOT END LOOK AT NEXT BYTE
SUB BX,BP
CX, BX
DL,DIS_POS[SI]
OL,12
LENGTH OF STRING FOR INT 10
GET COLUMN FOR DISPLAY
MOVE OVER 9 COLUMNS
ROM BIOS 2-223