Table of Contents
Advertisement
1046
1046
C4 lE 04A8 R
104A
83 C3 08
1040
26: C4 1 F
1050
8C CO
1052
OS C3
1054
74 40
1056
SE OOOS
1059
1059
26: 8A 00
105C
3C FF
105E
74 36
1060
3A 06 0449 R
1064
74 03
1066
46
1067
EB FO
1069
1069
26: 8A 27
106C
26: 8A 47 01
1070
26: 8B 4F 02
1074
26: 8B 57 04
1078
26: 8B 6F 06
107C
26: 8E 47 08
1080
53
1081
8B 08
1083
B8 1110
1086
CD 10
1088
5B
1089
26: SA 47 OA
1080
3C FF
108F
74 05
1091
FE C8
1093
A2 0484 R
1096
1096
E8 0001 R
1099
80 3E 0449 R 07
109E
77
lE
10AO
BB 10C5 R
10A3
AO 0449 R
10A6
2A E4
10A8
03 08
10AA
2E: SA 07
lOAD
A2 0465 R
lOBO
BO 30
lOB2
80 3E 0449 R 06
lOB7
75 02
lOB9
BO 3F
lOBB
108B
A2 0466 R
lOBE
lOBE
8B OE 0460 R
10C2
EB 28 90
10C5
10C5
2C 28 20 29 2A 2E
10CB
lE 29
lOCO
lOCO
80
ro
00
1000
75 04
1002
FE Cl
1004
EB OA
1006
1006
FE Cl
1008
3A OE 0485 R
lODC
72 02
lODE
2A C9
10EO
10EO
51
10El
2A CD
10El
80 F9 10
10E6
59
10E7
75 02
10E9
FE Cl
lOEB
lOEB
C3
10EC
=
0004
10EC
10EC
B4 OA
10EE
89 OE 0460 R
10F2
F6 06 0487 R 08
10F7
75 33
10F9
8A C5
10FB
24 60
10ro
3C 20
10FF
75 05
1101
B9 1 EOO
1104
EB 26
1106
1106
F6 06 0487 R 01
110B
75
1F
1100
80 3E 0449 R 03
1112
77
15
1114
E8 OE9C R
1117
73
10
1119
80 FD 04
lllC
76 03
111 E
80 C5 05
1121
1121
80 F9 04
1124
76 03
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
.2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
C
C
C
C
saV8_8Iph:
les
add
les
or
~~y
moy
emp
je
emp
je
Inc
jmp
moy
moy
moy
moy
~~~h
moy
i
nt
~~e
emp
je
dec
bx, save_pt r
bX,08h
bX,dword ptr eo:(bx)
ax,es
ax,bx
ahO done
ol,Obh
al,es:(bx)(ol)
a I ,Offh
ahO_done
8 I ,
crt_mode
sa
2
sl-
58_'
ah,es:(bx)
al ,es: (bx)(
1)
eX,es:(bx)(2)
dX,eo:(bx)(4)
bp,es:(bx)(6)
es,es:(bx)(8)
bx
bX,8X
ax,1110h
10h
bx
al,es:(bx)(Oah(
a
I ,Offh
ahO done
al -
rows,81
set the loW' ram values for compatibi I ity (308 and 309 save bytes)
.shO done:
-
.ca
II
emp
do_pa I:
dndos:
~~v
mov
sub
add
moy
moy
emp
~~~
moy
jrnp
campa t_mode
db
db
dds
crt_mode,1
dndos
bx,offset compat_mode
.8
I , crt_mode
ah,ah
bx,ax
a
I
,cs:
[bx]
crt_mode_set,a I
a
I ,030h
crt_mode,6
do_pa I
a
I ,03fh
crt_pa lette,a I
ex,.cursor _mode
ahl
I abe I
byte
02eh, 028h, 02dh, 029h, 02ah, 02eh
01eh,029h
INCLUDE Vl-5.INC
SUBTTL Vl-5. INC
PAGE
g
oa I c_cu
r:~~ume
proc
ds:absO
ch,O
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
C
C
C
C
C
C
C
C
emp
jne
inc
jmp
inc
emp
jb
sub
c,slc out:
-
push
sub
emp
pop
jne
inc
ret
os
I
c_cu rso r
ee 1
cl-
short
el
cl ,byte ptr points
ca Ic out
cl,cT
ex
ci ,ch
el,010h
ex
comp_4
el
endp
check fa r fu I I he i ght
no rrna I check
adjust end value
adjust for ega reg I
sters
.... i
II
it wrap
no,
its ok
ega method for cursor end
save cursor type value
end - sta rt
low nibble equal
restore
add
1
for correct cursor
back to caller
; -;£1
=cT~~f:- :::~f~: C~~~~R~~rp~:::::
-
~:~:
:--------. - ------------;
;
INPUT
;
(CX) HAS CURSOR VALUE CH-START LINE, CL-STOP LINE
; OUTPUT
;
NONE
; -------
~~;=~;;
---------
;~~
--......
4" -------.. --------.. -----.. --------
AHl :
ASSUME
MOV
MOV
test
jnz
OS: ABSO
AH,C_CRSR_START
CURSOR_MODE, CX
info,8
do_set
CRTC REG FOR CURSOR SET
SAVE IN DATA AREA
ega act i ve bit
O=ega, 1=01d cards
;--- ... - this section wi II emulate cursor off on the ega
MOV
AND
CMP
jne
MOV
jrnp
AL,CH
AL,060H
AL,020H
ahl a
CX, 01 EOOH
short do_set
GET START VALUE
TURN OFF CURSOR?
TEST THE BITS
si<.ip cursor off
EMULATE CURSOR OFF
this section: adjust the cursor and test for enhanced operation
test
jnz
emp
ja
ca II
jnc
emp
jbe
add
cmp
jbe
info,l
do set
crt mode,3
ahl-s
brst det
ahl
S
ch, cut_off
ahl
b
eh,5
cursor emulate bit
O=emulate, 1=value as-is
possible emulation
no, set the cu rso r type
see if emu
I
ate mode
not emulating
test sta rt
skip adjust
adjust
test end
sk i p adjust
IBM Enhanced Graphics Adapter 125
Advertisement
Chapters
Table of Contents
