IBM XT 5160 Technical Reference page 273

LOC OBJECT LINE SOURCE (B I OS FOR THE I BM PERSONAL COMPUTER XT) 1 1 /08/82
SAVE PO INTER
BEEP 1 LONG, 2 SHORT
GET ADDRESS PO INTER
<> <> <> <> <> <> <> <> <> <> <> <> <> <> <>
<><><>CHECKPO I NTS CO->F4<><><>
CRT CARD I N ERROR?
GIVE CRT CARD FA I L BEEP
PR I NT SEGEMENT I N ERROR
01 SPLA Y ERROR MSG
DID A PAR I TY ERROR OCCUR ?
ZERO FLAG WILL BE OFF PAR I TY ERROR
AL=O DATA COMPARE OK
SET 0 I RECT I ON FLAG TO INC
END I NG ZERO PATTERN WR I TTEN TO STG ?
YES - RETURN TO CALLER WITH AL=O
SETUP NEW VALUE FOR COMPARE
MOVE NEXT DATA PATTERN TO DL
READING ZERO PATTERN THIS PASS?
CONTINUE TEST SEQUENCE TILL ZERO DATA
ELSE SET ZERO FOR END READ PATTERN
AND MAKE FINAL BACKWARDS PASS
SET 0 I R FLAG TO GO FORWARD
SET PO I NTER TO BEG LOCA T I ON
READ/WR I TE FORWARD IN STG
ADJUST PO INTER
SETUP 01 FOR PAR I TY BIT AND 00 FOR END
READ/WRITE BACKWARD IN STG
TOGGLE PAR I TY CHECK LATCHES
INITIALIZE DESTINATION POINTER
SETUP BYTE COUNT FOR LOOP
I NNER TEST LOOP
READ OLD TEST BYTE FROM STG [S I] +'
DATA READ AS EXPECTED ?
NO - GO TO ERROR ROUT I NE
GET NEXT DATA PATTERN TO WR I TE
WRITE INTO LOC JUST READ [01
]+'
DECREMENT BYTE COUNT AND LOOP CX
PO I NT TO LAST BYTE JUST WR I TTEN
SET 0 I R FLAG TO GO BACKWARDS
SET 0 I R FLAG TO INCREMENT
SET 0 I =OFFSET 0 REL TO ES REG
SETUP FOR O->FF PATTERN TEST
ON FIRST BYTE
O.K.
?
GO ERROR I F NOT
LOOP TILL WRAP THROUGH FF
SAVE WORD COUNT OF BLOCK TO TEST
CONVERT TO A BYTE COUNT
GET INITIAL DATA PATTERN TO WRITE
SETUP OTHER DATA PATTERNS TO USE
FILL STORAGE LOCATIONS IN BLOCK
DX,0102H
ERR BEEP
SHORT ROM_ERR_END
AL,PORT C
AL,OCOH-
AL,OOOH
DX,OC800H
ROM ERR BEEP
PRT-SEG-
S I ,OFFSET F3A
E_MSG
AX
OX
ENDP
01
C4
01
DX,OOOOIH
C3
C5
AH,AH
C6X
AH,AL
DH,DL
AH,AH
C6
DL,AH
C3
AL,AH
C7
AL,DL
SI,DI
CX,BX
AL,PORT B
AL, 001 10000B
PORT _B ,AL
AL, 1 1001 1 liB
PORT_B,AL
01
[01] ,AL
AL, [01]
AL,AH
C7
AH
AL,AH
C2 1
BX-;-CX
BX, I
AX,OAAAAH
DX,OFF55H
STOSW
01,01
AX ,AX
PROC NEAR
IN
AND
MOV
CLD
INC
JZ
DEC
MOV
JMP
AND
JZ
MOV
XCHG
AND
JNZ
MOV
JMP
LODSB
XOR
JNE
MOV
STOSB
LOOP
MOV
MOV
DEC
STD
IN
OR
OUT
NOP
AND
OUT
MOV
MOV
XOR
JNZ
INC
MOV
JNZ
MOV
SHL
MOV
MOV
REP
TH IS SUBROUT I NE PERFORMS A READ / WR I TE STORAGE TEST ON A BLOCK
OF STORAGE.
ENTRY REQU I REMENTS:
ES ADDRESS OF STORAGE SEGMENT BE I NG TESTED
OS = ADDRESS OF STORAGE SEGMENT BE I NG TESTED
CX = WORD COUNT OF STORAGE BLOCK TO BE TESTED
EX I T PARAMETERS:
ZERO FLAG = 0 I F STORAGE ERROR (DATA COMPARE OR PAR I TY
CHECK. AL=O DENOTES A PAR I TY CHECK. ELSE AL=XOR' ED
BIT PATTERN OF THE EXPECTED DATA PATTERN VS THE ACTUAL
DATA READ.
AX,BX,CX,DX,DI, AND SI ARE ALL DESTROYED.
.
-------------------------------------------------------------------------
PR I NT ADDRESS AND ERROR MESSAGE FOR ROM CHECKSUM ERRORS
CLD
RET
STGTST_CNT
CMP
JL
CALL
MOV
CALL
ROM ERR END:
- -POP
POP
RET
ROM ERR BEEP:
- -MOV
CALL
JMP
ROM_ERR ENDP
.
--
-----
- - - - - -
- ------------
----
---
----------- ------
- - - -
---- -- --
-
-- --------
ROM ERR PROC NEAR
- PUSH OX
PUSH AX
MOV OX ,OS
MOV ES: MFG_ERR_FLAG, DH
C6X:
STGTST CNT
- CLD
SUB
SUB
1341
1342
1343
1344
1345
1346
1347 C3:
1348
1349
1350 C4:
1351
1352
1353 C5:
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369 C6:
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380 C7:
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
E6A9 22E4
E6AB 7416
E6AD 8AEO
E6AF 86F2
E6Bl 22E4
E6B3 7504
E6B5 8AD4
E6B7 EBEO
E6B9
E6B9 FC
E6BA 47
E6BB 74DE
E6BD 4F
E6BE BAO 100
E6C 1 EBD6
E6C3
E6C3 E462
E6C5 24CO
E6C7 BOOO
E6C9
E6C9 FC
E6CA C3
E6CB
E6CB 52
E6CC 50
E6CD 8CDA
E6CF 2688361500
E6D481FAOOC8
E6D8 7COD
E6DA E8FD18
E6DD BEOAF990
E6El E8C512
E6E4
E6E4 58
E6E5 5A
E6E6 C3
E6E7
E6E7 BA020 1
E6EA E8EB12
E6ED EBF5
E66F
E66F FC
E670 2BFF
E672 2BCO
E674
E674 8805
E676 8A05
E678 32C4
E67A 7540
E67C FEC4
E67E 8AC4
E680 75F2
E682 8BD9
E684 01 E3
E686 B8AAAA
E689 BA55FF
E68C F3
E68D AB
E68E E461
E690 OC30
E692 E661
E694 90
E695 24CF
E697 E661
E699
E699 4F
E69A FD
E69B
E69B 8BF7
E69D 8BCB
E69F
E69F AC
E6AO 32C4
E6A2 7525
E6A4 8AC2
E6A6 AA
E6A 7 E2F6
5-126 PC-XT System BIOS (11/08/82)