IBM AT 5170 Technical Reference page 268

IBM Person. I Co",puter MACRO Assembler Veraion 2.00
1-4
TEST6 ---- 06/10/65 POST TESTS ANa SYSTEM 800T STRAP
06-10-B5
3'3
3"
3'5
OllE 33 eo
XOR AX,AX
34. 0160 89 0100
MOV CX,256 ; CLEAR 256 WORDS
3.7 0163 8F lCOO R
MOV 0 I ,OFFSET OBOOT LOCN
3'8
0186 F31 AS REP STOSW ­
34'
350
LOAD SYSTEM FROM 01 SKETTE CX HAS RETRY COUNT
351
352
0166 Fa
5T'
353
0189 89 0004
MOV CX,4 SET RETRY COUNT
35'
018C 51 HI,
PUSH CX IPL SYSTEM
355 0180 84 00
MOV AH,O RESET THE DISKETTE SYSTEM
35.
018F CD 13
tNT 13H 01 SKETTE 10
357 0191 12 OF .JC H2
IF ERROR7 TRY AGA I N
358
359 0193 B8 0201
MOV AX,20lH READ I N THE SINGLE SECTOR
360 0196 2B 02 SUB
DX,OX TO THE 800T LOCATION
361 0198 8E C2
MOV ES,DX
362 019A BB 7eOO R
MOV 8X,OFFSET 'i11800T LOCN DRIVE 0, HEAD 0
3&3 019D 89 0001
MOV CX,I - SECTOR
1,
TRACK 0
364 OIAO CO 13
INT 13H DISKETTE 10
365 0 I A2 59 H2: POP
ex
RECOVER RETRY COUNT
36& 0 I A3 13 09
,JNe
H4
CARRY FLAG SET BY UNSUCCESSFUL READ
361 0lA5 80 Fe 80
eMP
AH,BOH IF TIME OUT, NO RETRY
368 0lA8 74 22
,JZ H5 TRY FIXED DISK
369 OIAA E2 EO LOOP
HI DO I T FOR RETRY TI MES
310 OIAe EB IE
eMP SHORT H5 TRY FIXED 01 SK
371
372
,-----
BOOT RECORD READ SUCCESSFUL
373
;
-----
INSURE FIRST BYTE OF LOADED BOOT RECORD ]S VALID (NOT ZERO)
374
315 OIAE
eo
3E 7COO R 06 H4:
eMP
316 0183 72 11
e9
377
318
INSURE DATA PATTERN F]RST 8 WORDS NOT ALL EQUAL
31'
3130 01B5
8F 7eoo
R
MOV 01 ,OFFSET 'iIIBOOT LOCN
CHECK DATA PATTERN
381 0lB8 B9 0008
MOV
CX,8 -
CHECK THE NEXT 8 WORDS
362 0 I B8 A I 7eoo R
MOV AX,WORD PTR Cl800T_LOCN
383
384 OIBE 83 C7 02 H4A:
AOO 01,2 POINT TO NEXT LOCATION
385 OICI 3B 05
eMP AX, [01] CHECK DATA PATTERN FOR A FILL PATTERN
386 01 C3 E I F9
LOOPZ
H4'
387 0lC5 74 SF
JZ HIO BOOT NOT VALID PRINT MESSAGE HALT
388
389 01 e7 EA 7eoo ---- R
H4_A:
...IMP 4tSOOT _ LOCN
3'0
3" ATTEMPT BOOTSTRAP FROM FIXED DISK
1----­
3.2
393
a
I CC 80 44 H5:
MOV
AL,044H
<><><><> <> <> <><><><><> <>
394 OICE E6 80 OUT
MFG PORT, AL
<><>
CHECKPOINT 44
<><>
3'5
ASSUME Ds:5ATA
396 0100 EEl 0000 E
CALL 005
397 0103 F6 06 0088 R 01 TEST
ClILASTRATE, DUAL FLOPPY/FIXED DISK CARD INSTALLED
3'8
ASSUME
OS :ABSO
399
0108 B6 ---- R
MOV AX, ABSO ESTABLISH ADDRESSING
400 OIOB BE 06
MOV
OS,AX
401 01001430
,JZ H • GO IF NOT
• 02
'03
CHECK FOR FIXED D]SK INITIALIZATION ERROR
40.
405 OIDF BO OE
MOV AL,CMOS DIAG
GET POST POWER ON STATUS (NM] ENABLED)
406 aiEl E8 0000 E
CALL CMOS READ FROM DIAGNOSTIC STATUS 8YTE
401 0lE4 A8 06
TEST AL,HF FAIL DID WE HAVE A FIXED DISK FAILURE?
408 0lE6 15 34
,JNZ
H' -
GO IF YES
40'
410 0lE8 2B eo
SUB AX,AX RESET DrSKETTE
411 OlEA 28 02
SUB DX,DX
412 alEC CD 13
INT 13H
413 OIEE 89 0003 MOV
CX ,3
RETRY COUNT
414 OIFI
415 OIFI 51
PUSH CX SAVE RETRY COUNT
416 0 I F2 8A 0080
MOV DX,OOBOH FIXED DISK ZERO
417 0lF5 B8 0201
MOV AX,020lH READ IN A SINGLE SECTOR
418 0lF8 28 DB SUB BX,BX
419 OIFA 8E C3
MOV ES.BX
420 OIFC B8 7COO R
MOV BX ,OFFSET 'i11800T LOCN TO THE BOOT LOCATI ON
421 OIFF 89 0001
MOV
ex,
1 - SECTOR \, TRACK 0
422 0202 CD 13 INT 13H FILE I/O CALL
423 0204 59
POP CX RECOVER RETRY COUNT
424 0205 12 06
.JC H8
425 0201 81 3E lDFE R AA55
CMP WORD F'TR OBOOT LOCN+510D,OAA55H ; TEST FOR GENERIC BOOT BLOCK
42& 0200
14
B8 .JZ H4_A ­
427
428 020F 51 H8: PUSH
ex
429 0210 8A 0080
MOV
OX ,0080H
FIXED DISK ZERO
430 0213
28
CO
SUB AX,AX RESET THE F I XED 0 I SK
43 I 0215 CD 13
INT 13H FILE
1/0
CALL
432 0211 59
POP
ex
RESTORE LOOP COUNT
433 02\8 12 08
,Je HIOA IF ERROR, TRY AGAJN
434 021A E2 05 LOOP DO I T FOR RETRY TIMES
435
.3.
H.
1-----
UNABLE TO IPL FROM THE DISKETTE OR F]XED DISK
437
438 021C 80 45 H9: MOV
AL,045H
<><> <><><><><><> <><><><>
439 021E E6 80 OUT
MFG_PORT ,AL
<><>
CHECKPOINT 45
<><>
•• 0
441 0220 CD 18
INT 18H I GO TO RESIDENT BASIC
442
443
HARD FILE RESET FAILURE
444
445 0222 E2 EB HIOA:
LOOP H8 TRY RESET AGA
I
N
H.
446 0224 EB F6
JMP GO TO RESIDENT BASIC
441
448
! F D! SKETTE READ OK BUT 800T RECORD I S NOT STOP SYSTEM ALLOW 50FT RESET
44'
450 0226 BE 0000 E HIO: MOV S [ ,OFFSET E602 ; PR I NT DISKETTE BOOT
451 0229 E8 0000 E
CALL E MSG ; PR I NT MESSAGE
452 022C EB FE Hit: ...IMP
HII
453 022E BOOT STRAP I
ENDP
454 022E
F'QST6
~NOP
455 022E
CODE ENDS
END
5-96
TEST6