Table of Contents
Advertisement
0546
B6 3200
054B
E6 0016 R
054E
C7 46 04 0000
0553
E6 0692 R
0556
80 FC 00
0559
74 03
055B
EB 73 90
055E
055E
E8 05DC R
0561
80 FC 00
0564
74 03
0566
EB 68 90
0569
0569
5A
05611
B2 C4
056C
B8 0208
056F
E8 0018
R
0572
B2 CE
0574
B8 0403
0577
E8 0016 R
057A
52
057B
B2 OA
0570
EC
057E
B2 CO
0580
B8 3200
0583
E8 0018 R
0586
C7 46 04 0000
058B
E8 0692 R
058E
80 FC 00
0591
75 3D
0593
E8 050C R
0596
80 FC 00
0599
75 35
0598
55
059C
BD 0000
059F
D59F
5E
05AO
5A
05Al
E8 0001 R
05A4
36: 8B 5C 02
05A8
Bl 06
05AA
D3 EB
05AC
4B
05AD
Bl 05
05AF
03 E3
05S1
80 E3 60
05B4
80 26 0487 R 9F
05B9
08 1 E 0487 R
05BO
80 OE 0487 R 04
05C2
8A 1 E 0488 R
05C6
E8 00F6 R
OSC9
83 C4 06
05CC
1 F
05CD
E9 0092 R
05DO
05DO
BA 0103
0503
E8 06CB R
0506
55
05D7
BO 0001
050A
EB C3
05De
050C
BB AOOO
05DF
8E DB
05El
8E C3
05E3
86 46 04
05E6
8A E8
05E8
2A C9
05EA
01 El
05EC
E8 05FE R
05EF
8D FC 00
05F2
75 09
05F4
05F4
8B 46 04
05F7
01 46 02
05FA
B8 0000
05FO
05FO
C3
05FE
05FE
05FE
55
05FF
FC
0600
2B FF
0602
2B CO
0604
E8 0001 R
0607
88 1 E 0472 R
060B
81 FB 1234
060F
8C C2
0611
8E DA
0613
74 62
0615
81 FB 4321
0619
74 5C
061B
061B
88 05
0610
8A 05
061F
32 C4
0621
75 40
0623
FE C4
0625
8A C4
0627
75 F2
0629
8B E9
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
C
C
C
C
C
C
C
mav
CALL
MOV
CALL
CMP
JZ
JMP
C
AA5:
C
C
C
C
CALL
CMP
JZ
JMP
C
AA6:
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
POP
MOV
mav
CALL
MOV
mav
CALL
PUSH
MOV
IN
MOV
mav
CALL
MOV
CALL
CMP
JNZ
CALL
CMP
JNZ
PUSH
MOV
EGA MEM EXI T:
-
-POP
POP
CALL
ASSUME
MOV
MOV
SHR
dec
MOV
SHL
AND
and
OR
OR
MOV
CALL
ADD
POP
JMP
EGA MEM ERROR:
-
-MOV
CALL
PUSH
MOV
JMP
aX,3200h
OUT OX
WORD PTR[BP)(4J,0
HOW BIG
AH,O
AA5
EGA_MEM_ERROR
MEMORY OK
AH,O
-
AA6
EGA_MEM_ERROR
DX
DL, SEQ_ADDR
aX,0208h
OUT OX
DL, GRAPH ADDR
ax, 0403h-
OUT_OX
OX
DL, ATTR_READ
AL,DX
DL, ATTR_WR I TE
aX,3200h
OUT_OX
WORD PTR[BP)(4J,0
HOW SIG
AH,O
EGA MEM ERROR
MEMORY OK
AH,O
-
EGA MEM ERROR
BP -
-
BP,O
$1
OX
DDS
OS: ABSO
BX,WORD PTR SS:[SI J[2]
CL,06H
BX,CL
bx
CL,05H
BX,CL
BL,01100000B
info, 10011111 b
INFO,BL
INFO,00000100B
BL, I NFO_3
MK_ENV
SP,6
OS
SKI P
DX,0103H
ERR BEEP
BP -
BP,1
EGA_MEM_EX I T
C
; ----- TH I S ROUT I NE FINDS AMOUNT OF MEMORY GOOD
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
MEMORY OK
-
MOV
MOV
MOV
MOV
MOV
SUB
SHL
CALL
CMP
JNZ
MEMORY OK EX:
-
MOV
ADD
MOV
MEMORY_OK_ERR:
RET
MEMORY_OK
PROC
NEAR
BX,OAOOOH
DS,BX
ES,BX
AX, WORD PTR[ BP)( 4]
CH,AL
CL,CL
CX,1
PODSTG
AH,O
MEMORY _OK_ERR
AX, WORD PTR[ BP
II
4]
WORD PTR[BP][2],AX
AX,O
ENDP
INITIALIZE
GO F I
NO
AMOUNT OF MEMORY
; GO TEST IT
; ADDRESS OF READ MAP
; SET UP ATTR I BUTE
; ATTRIBUTE WRITE ADDRESS
INITIALIZE
GO
FI NO AMOUNT OF MEMORY
GO TEST IT
SAVE SCRATCH PAD PO INTER
RESET BP FOR XT
RESTORE
SET DATA SEGMENT
GET EGA MEMORY SIZE
DIVI DE BY 64 TO GET
NUMBER OF 64KB BLOCKS
ISOLATE BITS 5 AND
6
04H
SET 3XX ACT I VE
RESTORE STACK
GO TO END
ONE LONG AND THREE SHORT
SAVE SCRATCH PAD PO INTER
I NO I CA TE ERROR FOR XT
SET PTR. TO BUFFER SEG
SET SEG.REG.
SET COUNT FOR 32K WORDS
SET AMOUNT OF BUFFER
TO BE TESTED
MULTIPLY BY TWO
TEST FOR ERROR
IF ERROR GO PR I NT I T
AMOUNT OF MEMORY FOUND
AMOUNT OF MEMORY GOOD
C -; --------------------- ------- --------- ----------------------- ----
C
TH I S ROUT I NE PERFORMS A READ/WR I TE TEST ON A BLOCK OF STORAGE :
C
,
1 MAX. SIZE = 32KW).
I F "WARM START",
FILL BLOCK WITH 0000 AND :
C
; RETURN.
:
C
; ON ENTRY:
:
C ;
ES = ADDRESS OF STORAGE TO BE TESTED
:
C ;
OS = ADDRESS OF STORAGE TO BE TESTED
C ;
CX = WORD COUNT OF STORAGE BLOCK TO BE TESTED
C
;
1 MAX. = 8000H 132K WORDS))
C
; ON EXIT:
C ;
ZERO FLAG
0
OFF I F STORAGE ERROR
C
; AX, BX,
ex, ox,
0 I, S I ARE ALL DESTROYED.
C
; ---------- -------- ----------------------------------------------
C
PODSTG
PROC
NEAR
C
PUSH
BP
C
CLD
C
SUB
C
C
C
C
C
G
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
SUB
CALL
ASSUME
MOV
CMP
MOV
MOV
JE
CMP
JE
PODSTG 1:
- MOV
MOV
XOR
JNZ
INC
MOV
JNZ
MOV
01,01
AX,AX
DDS
OS: ABSO
BX, OS: RESET FLAG
BX,1234H
-
OX, ES
DS,DX
PODSTG_5
BX, 4321 H
PODSTG_5
[01 J,AL
AL, [01 ]
AL,AH
PODSTG ERRO
AH
-
AL,AH
POQSTG_ 1
BP,GX
SET 0 I R TO INCREMENT
SET 0 I =0000 REL TO START
OF SEGMENT
INITIAL DATA PATTERN FOR
OO-FF TEST
RESTORE OS
GO DO FI L L WITH 0000
I F WARM START
DCP WARM START?
DO FI LL I F SO
WRITE TEST DATA
GET I T BACK
COMPARE TO EXPECTED
ERROR EX I T IF M I SCOMPARE
FORM NEW DATA PATTERN
LOOP TILL ALL 256 DATA
PATTERNS DONE
SAVE WORD COUNT
116 IBM Enhanced Graphics Adapter
Advertisement
Chapters
Table of Contents
