IBM AT 5170 Technical Reference page 267

IBM Per-eo"_1 Computer MACRO Assembler V."slon
2.00
1-3
TEST6 ---- 06/10/85 POST TESTS AND SYSTEM BOOT STRAP
06-10-85
229 PAGE
230
231
; -
-;~ ~~;
-
;~O~E~~- ;~~
-
~~R~R
-
~E~ ~~~E-;~~
-
R~~
-
~~E~;~~~
-
E;R~R~
-------------- -­
232
.
---------- ­
233
a
I
00
ROM ERR PRoe NEAR
234 0100 52 - PUSH SAVE PO INTER
23'
a
I 0 1 06
PUSH ES
0'
23.
0102 50
PUSH
A'
237 0103 B8 ---- R
MOV AX.DATA
SET ES TO DATA SEGMENT
238
a
I 06 8E CO MOV
ES,AX
239 0108 58
POP AX
RESTORE AX
2.0 0109 50 PUSH AX
2.,
OIOA BC OA MOV
OX.OS
GET ADDRESS PO INTER
2.2
a
I
OC 26: 88 36 00 1 5 R
MOV
ES I.MFG_ERR_FLAG, DH
<><><> <> <> <><> <><> <><><> <> <>
2.3 <><> CHECKPOINTS eO->F4
2 ••
01 1 I 8 I FA C800
CMP
OX,DCBOOH DISPLAY CARD IN ERROR?
2.5
01 15 7C
00 ROM ERR BEEP GIVE DISPLAY CARD FAIL BEEP
"L
2 •• 01 17 E8 0000 E
CALL
PRT-SEG-
PR I NT SEGMENT I N ERROR
2.7 011A 8E 0000 E
MOV S
I
,OFFSET F3A
a
I SPLA Y ERROR MESSAGE
248 0110
E8
0000 E
CALL E_MSG
2'9
0120 ROM ERR ENOl
250 0120 58
- -POP
AX
251 0121 07
POP
ES
252 0122 5A
POP
OX
253 0123 C3 RET
25. 0124
ROM ERR BEEP
1
255 0124 8A
a
I 02
- -MOV
OX,Ol02H
: BEEP I LONG, 2 SHORT
25.
0127 E8 0000 E
CALL ERR BEEP
257
012A EB F4
"MP
SHORT ROM_ERR_ENO
258 012C
ROM_ERR ENOP
259
:
-
-------------
- - - - ---------- ----- ­
2.0
TH I S SUBROUTINE SENDS AN OUTPUT COMMAND TO THE KEYBOARD AND
RECE I VES THE KEYBOARD RESPONSE.
2.'
2.2
ENTRY REQUIREMENTS:
263
AL
=
COMMAND/DATA TO BE SENT
EXIT PARAMETERS I
2.'
2.5
ZERO FLAG
=
1 IF ACK RECE I 'lED FROM THE KEY BOARD
2 ••
AL
:=
RESPONSE
2.7
~~ ~ ~~ ~~~~ -;;~~ ~
-
~E~R
-----------------------------------------------­
2.8 012C
2.9
270
I - - - - - CHECK I NPUT BUFFER FULL
271
272
012C 86 EO
XCHG AH,AL SAVE COMMAND
273 012E 2B C9
SUB cX,ex
SET LOOP TIME-OUT
274 0130
XMITLOOP:
275 0130 E4 64 IN
AL,STATUS PORT
27&
0132 A8 02
TEST AL. I NPT BUF FULL CHECK I NPUT BUFFER FULL
277 0134 EO FA.
LOOPNZ
XMITLOOP ­
278 0136 E3 34
.JCXZ SHORT XMIT EXIT
279 013886 EO XCHG AH ,AL - I RESTORE COMMAND
280
281
:----- ISSUE THE COMMAND
282
283
013A Eb 60
OUT PORT A,AL SEND THE COMMAND
28. 013C 2B C9
SUB CX,CX SET LOOP COUNT
285
28. J----- CHECK OUTPUT BUFFER FULL
287
288 013E E4 64 XMIT_I: IN AL,STATUS PORT
289
0140
8A
EO
MOV
AH,AL - SAVE STATUS
290 0142 A8 01
TEST AL ,OUT BUF FULL CHECK IF 8042 HAS DATA
291 0144 74 02 XMIT 2- -
GO IF NOT
292 0146 E4 60
IN AL,PORT A
FLUSH DATA
293 0148 F6 C4 02
XM I T _2: TEST AH,INPT-BUF FULL CHECK COMMAND ACCEPTED
29'
0146 EO Fl
LOOPNZ
XMl T I - ­
295 0140 75 10
"NZ SHORT XMIT_EXIT NO FLUSH
OR
COMMAND NOT ACCEPTED
29&
297
CHECK OUTPUT BUFFER FULL
298
299 014F 83 06
MOV BL,6 SET COUNT
300 0151 2B C9
sUB CX,CX
SET LOOP COUNT
301 0153 E4 64 XMIT_3; IN
AL,STATUS PORT
302 0155 A8 01
TEST AL, OUT BUJ." FULL CHECK IF HAS DATA
303 0151 EI FA
LOOPZ
XMIT 3- -
WAIT TILL DONE
"NZ
"Z
30. 0159 75 08 XM I T-4
305
o
15B FE CB
DEC
BL -
DECREMENT OUTER LOOP
30. 0150 15 F4
"NZ
SHORT XMIT 3 TRY AGAIN
307 015F" FE C3
INC
BL -
SET ERROR FLAG
308 0161 EB 09
"MP
SHORT XMIT_EXIT 8042 STUCK BUSY
309
310
:----- GET THE DATA
311
312 016328 e9
XMIT_41 SUB eX,ex ALLOW TIME FOR POSSIBLE
313
ERROR -> SYSTEM UNIT OR KEYBOARD
31. 0165 E2 FE
XMIT_5: LOOP XMIT 5
31S 0167 E4 60
IN
AL,PORT A
31. 0169 83 E9 01
SUB
ex,OIH -
I SET ex OTHER THAN ZERO
317
016C XMIT EXIT:
318 016C C3
- RET
319
0160
XMIT_1!ID42 ENDP
320
321
1--- BOOT STRAP -- INT 19 H -------------------------­
322 I BOOT STRAP LOADER :
323
I TRACK O. SECTOR 1 I S READ I NTO THE
32.
BOOT LOCAT 1ON (SEGMENT a OFFSET 7COO
~
32S
AND CONTROL IS TRANSFERREO THERE.
32.
327 I F THERE [S A HARDWARE ERROR CONTROL IS
328
TRANSFERRED TO THE ROM BASIC ENTRY POINT
329
330
ASSUME CS;CODE,DS:ABSO,ESIABSO
331
332 0160
BOOT_STRAP_I PROC NEAR
333
33'
0160 B8 ---- R
MOV AX.ABSO ; ESTABLISH ADDRESSING
33S
0170 8E 06
MDV DS,AX
33. 0112 8E CO
MDV ES,AX
337
338
RESET THE DISK PARAMETER TABLE VECTOR
339
3.0 0174 C7 06 0078 R 0000 E MOV WORD PTR .DISK POINTER, OFFSET DISK BASE
011A 8C OE OOH R MOV
WORD PTR ~DISK::::POINTER+2,CS
­
3',
3.2
TEST6
5-95