IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

LOC OBJ LINE SOURCE
E02.4.
"9
C3: i STG01
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?
E037 24CO
AL,OCOH
E039 BODO "9
MOV AL,O jAL=O DHA COMPARE OK
e038 751D 24. JNZ C7
f03D 80FCOO '41 eMP AH,O iREADING ZERO PATTERN?
"B ..,
,4'
C'
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
'4'
£047 80FCOO '47 CMP AH.O ,ZERO PATTERN WRITTEN TO ~T6
[045 £2£9 LOOP C5 ,CONTINUE TILL 16K/4K BLOCK TESTED
£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 FLAG 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
27'
f067 9F LAHF ,LOAD F LAG IMAGE TO AH
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
3.,
£090 8C08 30. NOV BX,DS
Eon 8EC3 HOY ES.BX
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