Table of Contents
Advertisement
0438
E8 OE
1387
C
Jmp
short pod14_err
1388
C
1389
C
;----- ADJUST TO POINT TO NEXT DOT
1390
C
0430
1391
C
POD14_17:
0430
FE C4
1392
C
INC
AH
043F
80 FC 30
1393
C
CMP
AH,030H
; ALL 3 DOTS DONE?
0442
74 25
1394
C
JE
POD14 18
; GO END
0444
80 CC OF
1395
C
OR
AH,OFH
; MAKE OF,1F,2F
0447
8A C4
1396
C
MOV
AL,AH
04"9
EB C8
1397
C
JMP
POD14_ 13
; GO LOOK FOR ANOTHER DOT
0448
1398
C
POD14_ERR:
0448
89 0006
1399
C
MOV
CX,6
04"E
8A 0103
1"00
C
MOV
DX,0103H
; ONE LONG AND THREE SHORT
0451
E8 06CB R
1401
C
CALL
ERR 8EEP
0454
83 C4 OA
1402
C
ADD
SP,Osh
; 8ALANCE STACK
0457
80 36
1403
C
MOV
AL,001 101 108
; RE-INIT TIMER a
0459
E6 43
1404
C
OUT
T IM_CTL,AL
045B
2A CO
1405
C
SUB
AL,AL
0450
E6 40
1406
C
OUT
T I MERO,AL
045F
90
1407
C
NOP
0460
90
1408
C
NOP
0461
E6 40
1409
C
OUT
T I MERO,AL
0463
BD 0001
1410
C
MOV
BP,l
0466
E9 0092 R
1411
C
JMP
SKI P
1412
C
ASSUME
DS:A8S0
0469
1413
C
POD14_18:
0469
E8 0001 R
1414
C
CALL
DDS
046C
B8 0500
1415
C
MOV
AX,0500H
; SET TO VIDEO PAGE 0
046F
CD 10
1416
C
INT
10H
0471
BO 36
1417
C
MOV
AL,OOl10110B
; RE-INIT TIMER 0
0473
E6 43
1418
C
OUT
T IM_CTL,AL
0475
2A CO
1419
C
SUB
AL,AL
0477
E6 40
1420
C
OUT
T IMERO ,AL
0479
90
1421
C
Nap
047A
90
1422
C
NOP
047B
E6 40
1423
C
OUT
T IMERO ,AL
0470
83 C4 OA
1424
C
ADD
SP,OAH
; REMOVE SCRATCH PAD
0480
BD 0000
1425
C
MOV
BP,O
; MAKE BP NON ZERO
0483
1426
C
POD14
ENDP
1427
e
1428
e
; ----- TEST STORAGE
1429
e
0483
1430
C
MEM_ TEST:
0483
lE
1431
C
PUSH
OS
0484
E8 0001 R
1432
C
CALL
DDS
1433
C
ASSUME OS: ABSO
0487
F6 06 0487 R 02
1434
C
test
info,2
048e
74 12
1435
C
JZ
o COLOR M
048E
80 OE 0410 R 30
1436
C
or
equip_low,030h
0493
B8 OOOF
1437
e
may
ax,Ofh
0496
80 OE 0487 R 60
1438
C
i nfa,060h
0498
B8 OOOF
1439
e
may
aX,Ofh
049E
EB 00
1440
C
jmp
short d_out_m
04AO
1441
C
O_COLOR_M:
04AO
80 26 0410 R eF
1442
C
and
equip_lo'W,Ocfh
04A5
80 0 E 0410 R 20
1443
C
or
equip_loW',020h
04AA
B8 OOOE
1444
C
MOV
AX,OEH
I NTERNAL COLOR MODE
04AO
1445
C
O_OUT_M:
TEST I N COLOR
04AO
CO 10
1446
C
I NT
10H
OUT
5/4/83
04AF
83 EC 06
1447
C
SUB
SP,6
RESERVE 3 WOROS ON STACK
04B2
88 EC
1448
C
MOV
BP,SP
SET BP
04B4
B8 AOOO
1449
C
MOV
AX,OAOOOH
PUT BU F FER ADDRESS I N AX
1450
C
ASSUME
OS: NOTH lNG, ES: NOTH I NG
04B7
8E 08
1451
C
MOV
oS,AX
SET UP SEG REGS TO POI NT
04B9
8E CO
1452
C
MOV
ES,AX
TO BUFFER AREA
04BB
C7 46 02 0000
1453
C
MOV
WORD PTRIBPJ(2J,0
INITIALIZE
04CO
C7 46 04 0000
1454
C
MOV
WORD PTRI BP 114 J, 0
INITIALIZE
04C5
B6 03
1455
C
may
dh,3
04C7
B2 C4
1456
C
MOV
oL, SEQ_ADDR
04C9
B8 0201
1457
C
may
aX,0201h
04CC
E8 0018 R
1458
C
CALL
OUT OX
04CF
B2 CE
1459
C
MOV
OL, GRAPH_AoDR
; ADDRESS READ MAP SELECT
0401
B8 0400
1460
C
may
aX,0400h
0404
E8 0018 R
1461
C
CALL
OUT_OX
0407
52
1462
C
PUSH
OX
0408
B2 OA
1463
C
MOV
OL, A TTR_REAo
; SET UP ATTR I BUTE
040A
EC
1464
C
IN
AL,oX
040B
B2 CO
1465
C
MOV
oL,ATTR_WRITE
; A TTR I BUTE WR I TE ADDRESS
0400
B8 3200
1466
C
may
aX,3200h
04EO
E8 0018 R
1467
C
CALL
OUT OX
04E3
E8 0692 R
1468
C
CALL
HOW-BIG
; GO F I NO AMOUNT' OF MEMORY
04E6
80 FC 00
1469
C
CMP
AH,O
04E9
74 03
1470
C
JZ
AAl
04EB
E9 0500 R
1471
C
JMP
EGA_MEM_ERROR
04[(
1472
C
AAl:
04EE
E8 050C R
1473
C
CALL
MEMORY_OK
; GO TEST IT
04Fl
80 FC 00
1474
C
CMP
AH,O
04F4
74 03
1475
C
JZ
AA2
04F6
E9 0500 R
1476
C
JMP
EGA_MEM_ERROR
04F9
1477
C
AA2:
04F9
5A
1478
C
POP
OX
04FA
B2 C4
1479
C
MOV
oL, SEQ_AooR
04FC
B8 0202
1480
C
may
aX,0202h
04FF
E8 0018 R
1481
C
CALL
OUT OX
0502
B2 CE
1482
C
MOV
oL, GRAPH_AooR
; ADDRESS OF READ MAP
0504
B8 0401
1483
C
may
aX,0401h
0507
E8 0018 R
1484
C
CALL
OUT_OX
05,OA
52
1485
C
PUSH
OX
05-0B
B2 oA
1486
C
MOV
oL, A TTR_REAo
; SET UP ATTRIBUTE
0500
EC
1487
C
IN
AL,OX
050E
B2 CO
1488
C
MOV
oL, A TTR_WR I TE
; IITTR 18UTE WR I TE ADDRESS
0510
B8 3200
1489
C
may
aX,3200h
0513
E8 0018 R
1490
C
CALL
OUT OX
0516
C7 46 04 0000
1491
C
MOV
WORD PTR IBPII4J,0
INITIALIZE
051 B
E8 0692 R
1492
C
CALL
HOW 81G
; GO F I NO AMOUNT OF MEMORY
051E
80 FC 00
1493
C
CMP
AH,D
0521
74 03
1494
C
JZ
AA3
0523
E9 0500 R
1495
C
JMP
EGA_MEM_ERROR
0526
1496
C
AA3:
0526
E8 05DC R
1497
C
CALL
MEMORY_OK
; GO TEST IT
0529
80 FC 00
1498
C
CMP
AH,O
052C
74 03
1499
C
JZ
/\A4
052E
E9 0500 R
1500
C
JMP
EGA_MEM_ERROR
0531
1501
C
AA4:
0531
5A
1502
C
POP
OX
0532
B2 C4
1503
C
MOV
DL, SEQ_AOOR
0534
88 0204
1504
C
may
aX,0204h
0537
E8 0018 R
1505
C
CALL
OUT_OX
053A
52
1506
C
PUSH
OX
053B
82 CE
1507
C
~OV
oL,GRAPH_AooR
; ADDRESS OF READ MAP
0530
88 0402
1508
C
may
aX,0402h
0540
E8 0018 R
1509
C
CALL
OUT OX
0543
B2 OA
1510
C
MOV
OL, ATTR_REAO
; SET UP ATTRIBUTE
0545
EC
1511
C
IN
AL,OX
0546
82 CO
1512
C
MOV
OL, A TTR_WR I TE
; ATTRIBUTE WRITE ADDRESS
IBM Enhanced Graphics Adapter 115
Advertisement
Chapters
Table of Contents
