IBM RT Series Hardware Reference Manual page 286

10C2 5545
AH10:
5546 ASSUME
OS:ABSO
10C2 F6 06 0487 R 02 5547 test info,2
10C7 75 07 5548 JNZ
BM_OK I N MONOCHROME MODE
5549
5550 ; ----- HERE THE ega IS I N A COLOR MODE
5551
10C9 80 3E 0463 R B4 5552 CMP
BYTE PTR AOOR_6845, OB4H
10CE
74 33 5553
JE BM_OUT
1000 5554
BM_OK:
1000 SA EO 5555
MOV AH,AL
1002 OA E4 5556 OR AH,AH
1004 75 30 5557 JNZ BM_l
5558
5559
; ----- set individual reg
I
star
5560
1006 2B ED 5561
sub bp, bp
1008 C4 3E 04A8 R 5562 les d i ,
save_pt r
100C 83 C7 04 5563 add
d i ,4
100F
26: C4 3D 5564
les di ,dword ptr as: (dl]
10E2 8C CO 5565 aX,es
10E4 OB C7 5566 or
ax,d i
10E6 74 01 5567
Jz
tlo_'
10E8
45
5568 inc bp
10E9 5569 tlo_' :
5570
E8 lOBO R I N IT 10E9 5571 CALL PAL
10EC SA E3 5572 MOV AH, BL
lOEE 8A C7 5573
MOV AL,BH
10FO E8 109C R 5574 CALL PAL SET
10F3 E8 10B4 R 5575 CALL
PAL-ON
10F6 OB EO 5576
or bp,bp
10F8 74 09 5577 ~~v bm out
10FA 8A C7 5578 a I-;-bh
10FC 2A FF 5579 sub
bh, bh
10FE
03 FB
5580
add d i, bx
lEOO 26: 88 05 5581
es:
[di
La
I
lE03 5582
BM_OUT:
lE03 E9 219B R 5583
JMP V_RET
5584
lE06 5585
BM_l :
lE06 FE CC 5586 DEC AH
lE06 75 20 5587 JNZ BM_2
5588
lEOA 2B ED 5589 sub bp, bp
lEOC C4 3E 04A8 R 5590 les d i, save_ptr
lEl0 83 C7 04 5591 add d
i,4
lE13
26: C4 3D 5592
les d i , dwo rd pt r es: (d i
I
lE16 8C CO 5593
ax,es
lE18 OB C7 5594
or ax,d i
lElA 74 01
5595
jz
tlo_2
lE1C 45 5596 inc bp
lElO 5597
t 10_2:
5598
5599
; --- ... - set overscan reg i ster
5600
lElO
[8 lOBO R 5601 CALL PAL I NIT
lE20 B4 11 560? MOV
AH,Ql1H
lE22
8A C7
5603
MOV AL, BH
1 E24 E8 109C R 5604 CALL PAL SET
lE27 E8 10B4 R 5605
CALL
PAL::ON
5606
lE2A OB EO 5607 or bp, bp
lE2C 74 05 5608
jz
bm out
lE2E 83 C7 11 5609 add d i-;-011h
lE31 26: 88 30 5610
es:(di ],bh
5611
lE34 E9 219B R 5612 JMP V_RET
5613
lE37 5614
BM_2:
1 E37 FE CC 5615 DEC AH
lE39 75 40 5616 JNZ BM_3
5617
5618 set 16 pa lette
reg i ste rs and ove rscan reg i ste r
5619
lE3B lE 5620
push ds
lE3C
06
5621 'push
5622
1 E3D C4 3E 04A8 R 5623
les
d
i, save_ptr
lE41 83 C7 04 5624 add d i,4
lE44 26: C4 30 5625
les d i ,dword ptr es: (d I] eS:d i
ptrtopal save a rea
lE47 8C CO
5626
aX,es
lE49 OB C7 5627 or aX,d i
lE4B 74 09 5628
Jz tlo_3
5629
lE4D 1F
5630
pop ds
parameter es
lE4E lE 5631
~~~h ds
lE4F
8B F2
5632
si ,dx
pa rameter offset
lE51 B9 0011
5633
mov eX,17d
1 E54 F3/ A4 5634
rep movsb
5635
1 E56 5636 tlo_3:
lE56 07 5637 pop es
lE57 lF 5638
pop ds
5639
lE58 8B OA 5640 MOV
BX,DX
lE5A E8 lOBO R 5641
CALL PAL I N IT
lE50
2A E4
5642
SUB AH,AH
lE5F 5643 BM_2A:
lE5F 26: 8A 07 5644 MOV
AL, ES: (BXI
lE62
E8 109C R
5645
CALL PAL_SET
lE65 FE C4 5646 INC
AH
lE67 43 5647
INC BX
lE68 80 FC 10 5648
CMP AH,010H
lE6B 72 F2 5649 JB BM_2A
lE60 FE C4 5650 INC
AH
lE6F 26: SA 07 5651
MOV AL, ES: (BX]
lE72 E8 lD9C R 5652 CALL PAL SET
1 E75 E8 lDB4 R 5653
CALL
PAL-ON
1 E78 E9 219B R
5654 JMP V_RET
5655
lE7B 5656
BM_3:
1 E7B
FE CC
5657
DEC AH
lE7D 75 29 5658 JNZ BM_4
5659
5660 ; ----- togg Ie intensify/bl inking bit
5661
lE7F 53 5662 PUSH
BX
lE80 E8 0052 R 5663
ca I I set base
lE83
83 C3 47 5664 ADO
BX,Ql0H +
In_2
lE86 26: SA 07 5665 MOV
AL, ES: (BX]
lE89 5B
5666 POP BX
5667
lE8A OA DB 5668
OR BL, BL
lE8C 75 OA
5669 JNZ BM_6
5670
146 IBM Enhanced Graphics Adapter