IBM 5150 Hardware Reference Manual page 198

LOC OBJ
LINE SOURCE
E02.4.
C3:
i STG01
"9
E02;,4, 4F
23.
DEC 01 I POnH TO LAST BYTE JUST WR ITTEN
E026 FO
231 STO
;SET OIR fLAG TO GO-
tACKl~flROS
EOZC BBF7
23'
C4:
MOV SI,OI
E02E 88tB 233 MOV CX,BX ; SETUP BYTE CHT
f030 At 23. C5: LODSB ;READ CHAR FROH STORAGE
E031 32C4
XO.
Al,AH JDATA READ As ExPECTED?
,,,
E033 75Z5
23.
JNE
C7 ; NO - GO TO ERROR ROUTINE
E035 £462
237
IN AL,PORT_C JDIO A. PARITY ERROR OCCUR?
"B
.
..,
E037 24CO AL,OCOH
E039 BODO
MOV
AL,O
jAL=O DHA COMPARE OK
"9
e038 751D 24.
JNZ
C7
f03D 80FCOO
'41 eMP
AH,O iREADING ZERO PATTERN?
E040 7403
JE
iCONTINUE READING TILL END
E042 BACZ
'43
MOV Al,Dl
,GET NEXT DATA PATTERN TO WRITE
E044 AA
244 STOSB
iWRITE IN BYTE LOC WE JUST READ
£045
24S C6: j WRITE_HO_MORE
[045 £2£9
LOOP C5
,CONTINUE TILL 16K/4K BLOCK TESTED
,4'
C'
'4'
£047 80FCOO
'47
CMP AH.O ,ZERO PATTERN WRITTEN TO ~T6
£04,4, 740£ 248 JE
C7
;. YES - RETURN TO CALLER
E04t: BAED
24, MaY AH.AL ;SETUP TO NEW YALUE TO COMPARE
E04E 86FZ
25.
XCIiG OH.OL .HOYE ZERO DATA PATIERN TO OL
E050 Fe 251 CLO
; SET OIR F LAG TO GO FORWARD
E051 47
252
WC 01
; SET POINTER TO BEG LOCAnON
E052. 7408
253
JZ
C4 jREAD/URITE FORWARD IN STG
E054 4F 2S4
OEC 01
E055 8AOI00 255 MOV DX,l ;SETUP 01 AND
ao
PATIERNS
E058 EBDO
25'
JMP SIiORT C3 ;READ/WRITE BACKWARD IN STG
E05A 257
C7:
E05.4. C3 258
RET
259 STGTST ENDP
260 ;------------- --- - --- -----------------------­
261 ,TEST .01
262 80B8 PROCESSOR TEST
263 ,DESCRIPTION
264 VERIFY 8088 FLAGS, REGISTERS AND CONDITIONAL JUHPS
265
E.58
266
RESET LABEL NEAR
Eosa FA
267 START: CLI ;DISABLE INTERRUPTS
Eose 84D5 268
HOV AH.OD5H
;.SET SF, CF, IF, AND AF fLAGS ON
EOSE 9E 269 SAHF
E05f 734£ 270 JNC ERROl ;GO TO ERR ROUTINE IF CF NOT SET
f061 754C
271 JI~Z ERROl
;GO TO ERR RourmE IF ZF HOT SET
f063 784.4. 272 JNP ERROl ; GO TO ERR ROUTH.jE IF PF NOT SET
f065 7946 273 JNS ERROl
;GO TO ERR ROUTINE IF SF NOT SET
f067 9F LAHF
,LOAD F LAG IMAGE TO AH
27'
f068 8105 275
NOV CL.5
ILOAD CNT REG WITH SHIFT CNT
f06A DZEC
27. SHR AH,CL ;SHIFT AF INTO CARRY BIT POS
E06C 7341 277 Jnc ERROl
;GO TO ERR ROUTINE IF AF NOT SET
f06E B040 27. HOV AL,40H .SET THE Of nAG ON
f070 ODED 279 SHL AL, I ;SETUP FOR TESTING
E072 713B
2BO JIIO ERROl
;GO TO ERR ROUTINE IF OF NOT SET
£074 32£4 2Bl XOR AH.AH
,SET AH :: 0
f076 9E 282 SAHF JCLEAR SF. CF, ZF, AND PF
E077 7236 2.3 JC ERPOI .GO TO ERR ROUTINE IF CF ON
E079 7434
2B4 JZ ERIlO 1 lGO
TO ERR ROUTINE IF ZF ON
EOlB 7832 285 JS ERROl
;GO TO ERR ROUTINE IF SF
ON
E070 7A30 2•• JP ERROl
;.60 TO ERR ROUTINE IF PF ON
Ea7F 9F 287
LAHF
,LOAD FLAG IHAGE TO /lH
E080 BIOS 288
HOV CL.S
; LOAD CNT REG WITH SHIFT CNT
e082 02EC
289
SHR AH.CL
; SHIFT t.F' INTO CARRY BIT POS
£064 7229 290 JC ERRO 1
; GO TO ERR ROUTINE IF ON
£086 00£4 291 SHL AH,! ;CHECK THAT OF' IS CLEAR
E066 7025
292
JO ERROl
;GO TO ERR ROUTINE IF ON
293
294 READ/WRITE THE
8088
GENERAL AND SEGMENTATION REGISTERS
29S W.ITH AlL ONE'S AND ZEROES'S.
".
EDBA B8FFFF 297 HOY AX.OFFFFH ;SETUP ONE'S PATTERN IN
AX
E080 f9 298 STC
E08E 8E08 29. CB: HOY OS,AX ;WRITE PATTERN TO ALL REGS
£090 8C08 30.
NOV BX,DS
Eon 8EC3
HOY ES.BX
3.,
E094 6CCl 3.2 MOV CX,ES
E096 8EOl 303
MOV
SS,CX
E098 6C02 304
MOY OX.SS
£09,4, BSE2 3.5 NOV SP,DX
E09C 86Et 3••
MOV BP,SP
A-5