IBM 5150 Technical Reference page 127

LaC OBJ
LINE SOURCE
E048 Fe 2•• CLD ; SET DIR FLAG TO 60 FORWARD
E049 47
2.7
INC
01 ; SET POINTER TO BEG LOCATION
E04A 740E 2•• JZ
C4
; READIWRITE FORWARD IN STG
E04C 4F
2•• DEC 01 ; ADJUST POINTER
E040 8A.0100 2.D HOV DX,OOOOlH
I SETUP 01 FOR PARITY BIT
2'1 ; At«)
00 FOR EtI)
E050 E806
2'2 C3 I READIWRITE BACKWARD
IN
STG
E052 293 C6X:
E052 £462 294
IN AL,PORT_C
; DID A PARITY ERROR OCCUR
?
E054 24CO 295
AND
AL.OCOH
I ZERO flAG WILL BE Off PARITY ERROR
J".
E056 BODO
296 Al,OOOH I Al=O DATA COMPARE OK
"0"
EOS8
297
C7:
E058 Fe 29.
CLD ; SET DEFAULT OIRelli flAG BACK TO INC
£059 C3 299 RET
300 51GT5T EHOP
301 1--------- -------.--------------------------.---- ---------------­
302 I 808e PROCESSOR TEST
303 , DESCRIPTION
304 VERIFY 8088 FUGS, REGISTERS AND CONDITIONAL JUMPS
305
1--------------------------------------------------------------- ­
3D6
ASSUME CS: CODE. DS: NOTHING. ES: NOTHING. 55: NOTHING
Eose
3D7 ORG DEOS8H
E058 3D.
RESET LABEl FAR
E058
3D.
START:
E058 FA.
310 eLI I DISABLE INTERRUPTS
EOSC 8405
311 HOY AH,ODSH ; SET SF. CF. ZF
I
AtIJ AF FLAGS ON
E05E 9£
312 SAHF
E05F 734C
313 JNC ERROl I GO TO ERR ROUTINE IF CF NOT SET
f061 754A 31~
JNZ ERROl I GO TO ERR ROUTINE IF ZF NOT SET
ED63 7648
315 JNP ERROl ; GO TO ERR ROUTINE IF PF HOT SET
E065 7946 31.
JNS ERROl I GO TO ERR ROUTINE IF SF
I«)T
SET
E067 9F 317
LAHF
I
LOAD FLAG IMAGE TO AH
E066 8105
31. HOV eL.S ; LOAD CNT REG WITH SHIFT CHY
E06A DlEC 319
SHR AH.CL
~
SHIFT AF INTO CARRY BIT POS
E06C 733F
320 JHC ERROl ; GO TO ERR ROUTINE IF AF HOT SET
E06E 8040
321 MOV
AL.40H
; SET THE OF FLAG
ON
E070 ODED
322
SHL AL.I , SETUP FOR TESTING
E072 7139 323
Jt.IO ERROl I GO TO ERR ROUTINE IF OF NOT SET
E074 32E4 324 XOR
AH.AH ,SETAH=O
E076 9E 325 SAHF ; CLEAR SF, eF. ZF, AND PF
E077 7634 326
JBE ERROl ; GO TO ERR ROUTINE IF CF ON
"7
j
OR TO TO ERR ROUTINE IF ZF ON
E079 7832
JS ERROl ; GO TO ERR ROUTINE IF SF
ON
".
E07B 7A30 329 JP ERROl
I
GO TO ERR ROUTINE IF PF ON
f07D 9F
330 LAHF
, LOAD F LAG IMAGE TO AH
E07£ 8105
331 MOV CL.S J LOAD tNT REG WITH SHIFT CNT
E080 DlEC
332 SHR AH.CL ~ SHIFT 'AF' INTO CARRY BIT POS
E082 7229
333
JC ERROl J
GO TO ERR ROUTINE IF ON
E084 00E4 334 SHL AHoI
J
CHECK THAT 'OF' IS CLEAR
£086 702S
335 JO ERROl I GO TO ERR ROUTINE IF ON
33.
337
i-----
READIWRITE THE 8088 GENERAL AND SEGMENTATION REGISTERS
338 WITH ALL ONE'S AND ZEROES'S.
33.
E088 B8FFFf
340 HOV AX,OFFFFH
J
SETUP ONE '5 PATTERN IN AX
E088 F9
341 .TC
E06C 34. C8:
Eoec 8E08
343
HOY DS.AX ; WRITE PATTERN TO ALL REGS
E08E eCDB
344 HOY BX,DS
E090 8EC3 345
HOY ES.BX
E092 8CCI 346
MOY CX.ES
E094 8EOI 347 MOV SS,CX
£096 8C02 34. MOV DX.SS
E098 8BE2 349 MOV SP.DX
E09" 8BEt 350 MOI/ BP,SP
E09C 8BF5 351
MOI/ SI,ep
E09E SBFE
352
MOV 01.51
EOAO 7307
353
JNC C9
; TSTlA
EOA2 33C7
354
XOR AX.DI I PATTERN MAKE IT THRU ALL REGS
E0A4 7507 355
JHZ ERROl ; HO - GO TO ERR ROUTINE
£0.1.6 Fa 356
CLC
EOA7 EBEl 357
JMP C8
EOA9
35. C9: ; TSTlA
EOA9 OBC7 35. OR AX,DI ; ZERO PATTERN MAKE IT THRU?
EOAB 7401
3.D
JZ CI0 I YES - GO TO NEXT TEST
EOAO F4
3.1
ERROl: HLT
J HALT SYSTEM
362 ; ----- -- -- -- - - - - - - - - - - -- ----- -------- -------------- -----­
5-34 System BIOS