IBM AT 5170 Technical Reference page 297

IBM F'e,-sonal Compute,- MACRO Assemble,- Ve,-sion 2.00 1-10
DISK ----- 06/10/65 FIXED DISK 8105 06-10-85
89. PAGE
895
;--------------- ----------­
896 1 TEST 0 J SK READY
(AH
=
10H) :
891 ;
----- - -
-----
-
-------------
-------
------ ­
898
899 044F
TST ROY F'ROC NEAR
900 044F E8 05E6
R - CALL
NOT BUSY
WA
I
T FOR CONTROLLER
901 0452 15 II
JNZ TR EX
902 0-454 8A 46 FD MOV AL -;-_CMO 8LOCK+5 SELECT OR I VE
903 0-451 8A 0lF6 MOV DX,HF PORT+6
90-4 0-45A EE
OUT
ox
,AL­
905 0-458 E8 0635 R
CALL CHECK ST CHECK STATUS ONLY
906 045E 15 05
JNZ
TR EX­
901 0460 C6 06 0014 R 00
MOV "'DTsK STATUS I ,0
WIPE OUT DATA CORRECTED ERROR
906 0465 C3
TR EX: RET
909 0466 TST_ROY ENOP
910
9"
9>' 1 RECAL IBRA TE IAH
=
llHl :
9>,
;
--------------
---
------- ­
91.
915 0466 HDISK RECAL
PROC NEAR
-
916 0466 C6 46 FE 10
MOV
OCMO BLOCK-+-6,RECAL CMD
911 046A E8 054F R
CALL COMMAND - START THE OPERATION
916 0460 15 19
JNZ RECAL EX I T ERROR
919 046F E6 0595 R
CALL
WA [T -
WA I T FOR COMPLET I ON
920 0412 14 05
JZ RECAL X TIME OUT ONE OK
?
92 I 0-414 E8 05B5 R
CALL
WAIT -
WA I T FOR COMPLET I ON LONGER
922 0411 15 OF
JNZ RECAL EX I T
T[ME OUT TWO TIMES [5 ERROR
923 0419
RECAL x:
924 0479 E8 0623 R
- CALL
CHECK STATUS
925 041C 80 3E 0014 R 40 CMP 001 SK-STATUS 1 ,BAD SEEK SEEK NOT COMPLETE
926 0481 15 05
JNE
RECAL-EX I T -
IS OK
921 0463 C6 06 0014 R 00
MOV OOISK=STATUSI,O
928 0488 RECAL EXIT:
929 0488 80 3E 0074 R 00 - CMF' @OISK_STATUSt,O
930 0480 C3
RET
931 048E HDISK_RECAL
ENDP
93'
933 ;
----------------- - ----- ---------- - ----- ­
934
; CONTROLLER D[AGNOSTIC (AH
=
14H)
~
935
,-
- - - - - - -
-
- -
--- ----
- -
-
-
-
- -
--
-
-
- - - - - -- - --­
936
931 048E CTLR DIAGNOSTIC PROC
NEAR
938 048E FA
- CLI
01 SA8LE INTERRUPTS WH I LE CHANG I NG MASK
939 048F E4 AI
IN AL,INT801
TURN ON SECOND INTERRUPT CH I P
940 0-491 24 8F
ANa
AL,08FH
941 0493 E8 00
JMP
,.,
942 0495 E6 A I
OUT INT80 I ,AL
943 0491 E4 21 IN
AL, INTAO I
LET I NTERRUPTS PASS THRU TO
944 0499 24 F8
ANO AL,OF8H SECOND CHIP
945 0-498 E8 00
JMP $·2
946 0490 E6 21
OUT lNTAOl,AL
947 049F F8
STI
948 04AO E8 05E6 R CALL NOT BUSY WA I T FOR CARD
949 04A3 15 I A
JNZ CD ERR BAD CARD
950 04A5 8A 0 I Fl MOV
OX-;-HF PORT-+-7
951 0-4A8 80 90
MOV AL,OIAG CMD ST ART DIAGNOSE
952 04AA EE
OUT
DX,AL ­
953 04A8 E8 05E6 R
CALL NOT BUSY WA I T FOR I T TO COMPLETE
954 04AE 84 80
MOV AH, TIME OUT
955 0480 15 OF
JNZ
CD EXIT­
TIME OUT ON DIAGNOSTIC
956 04B2 8A OIFI
MOV
OX-;-HF PORT+ I GET ERROR REG [ S TER
957 0485 EC
IN
AL,DX­
958 04B6 A2 0080 R MOV ~HF
ERROR, AL SAVE IT
959 0489 84 00
MOV AH,D
960 0-4B8 3C 0 I CMP AL,I CHECK FOR ALL OK
961 04BO 14 02
JE SHORT CD EX I T
962 048F 84 20
CO ERR: MOV AH, BAD_CNTLR
963 04C I CD-EX IT:
964 04CI 88 26 0074 R
- MOV
965 04C5 C3
RET
966 0-4C6
CTLR_DIAGNOSTIC ENDP
961
968
;
-~~~~~N; ~
------------- -------- ---- -----­
969
910
REPEATEDLY JNPUTS DATA TILL
971
NSECTOR RETURNS ZERO
912
~~~~~~~ I~----
----- ---- -- --- ­
913 04C6
914 04C6 E8 0694 R
CALL CHECK DMA CHECK b4K BOUNOARY ERROR
915 04C9 12 39
JC CMD ABORT
976 04C8 88 Fa
MOV DI,BX
977 04CO E8 054F R
CALL COMMAND OUTF'UT COMMAND
918 0400 15 32
-.lNZ CMD_ABORT
979 0402
980 0402 E8 05B5 R
CALL WAIT WAIT FOR DATA REQUEST INTERRUPT
981 0405 75 20
JNZ TM OUT T[ME OUT
9820401890100
MOV
CX-;-25bD
SECTOR 5 I ZE I N WORDS
983 040A 8A 0 I FO
MOV OX ,HF_PORT
984 0400 FA
eLi
985 04DE FC
CLO
986 040F F3/ 60
REP INS'll
GET THE SECTOR
981 04E 1 FB 5TI
988 04E2 FlO. 46 FE 02 TEST 'l'CMD BLOCK -+- 6 ,ECC MODE CHECK FOR NORMAL INPUT
989 04E6 74 12
JZ
CMO T3 ­
990 04E8 E8 0600 R
CALL WAIT DRQ WAIT FOR DATA REQUEST
991 04EB 72 17
JC
TM OOT
992 04ED 8A 01 Fa
MOV DX-;-HF PORT
993 04FO 89 0004 MOV
CX,4 -
GET ECC BYTES
994 04F3 EC
CMD_12: IN AL,OX
995 04F4 26: 88 05
MOV ES:8YTE PTR [DI],AL , CD SLOW FOR BOARD
996 04F7 41 INC
01
991 04F8 E2 F9
LOOP CMD [2
998 04FA E8 0623 R
040_13: CALL CHECK STATUS
999 04FD 15 05
JNZ CMD ABORT ERROR RETURNED
1000 04FF FE 4E F9
DEC
@CMD BLOCK
+
1 CHECK FOR MORE
100 I 0502 75 CE
JNZ SHORT CMO _I I
1002 0504
CMD ABORT;
1003 0504
TM_OUT:
1004 0504 C3
RET
DISK 5-125