IBM 5150 - 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 F LAG 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