IBM RT Series Hardware Reference Manual page 263

0006 58
0007 C3
0008
0008
0008 lE
0009 E8 0001
R
OOOC 8B 16 0463 R
0010 80 E2 FO
0013 80 CA OA
0016 IF
0017 C3
0018
0018
0018 86 C4
001A EE
001B 42
001C 86 C4
001 E EE
001 F 4A
0020 C3
0021
0021
0021 EE
0022 C3
0023
0023
0023 52
0024 BA 0043
0027 BO 86
0029 E8 0021 R
002C B8 0533
002F 4A
0030 E8 0021 R
0033 8A C4
0035 E8 0021 R
0038 BA 0061
003B EC
003C 8A EO
003E OC 03
0040 E8 0021 R
0043 2B C9
0045
0045 E2 FE
0047 FE CB
0049 75 FA
004B 8A C4
0040 E8 0021 R
0050 5A
0051 C3
0052
0052
0052 E8 0001 R
0055 C4 1 E 04A8 R
0059 26: C4 1F
005C C3
0050
0050
0050 51
005E 52
005F E8 0052 R
0062 8A 26 0449 R
0066 F6 06 0487 R 60
006B 74 18
0060 80 FC OF
0070 75 07
0072 81 C3 0440
0076 EB 33 90
0079
0079 80 FC 10
007C 75 07
007E 81 C3 0480
0082 EB 27 90
0085
0085 80 FC 03
0088 77 14
008A AO 0488 R
0080 24 OF
008F 3C 03
0091 74 07
0093 3C 09
0095 74 03
0097 EB 05 90
009A
009A 81 C3 04CO
009E
009E 8A OE 0449 R
00A2 2A ED
00A4 E3 05
00A6
00A6 83 C3 40
00A9 E2 FB
OOAB
OOAB
OOAB 5A
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
POP AX
RET
OOS ENOP
WHAT BASE
- ASSUME
PUSH
CALL
MOV
ANO
OR
POP
RET
WHAT_BASE
OUT_OX PROC
XCHG
WOUT
OUT
INC
XCHG
WOUT
OUT
OEC
RET
OUT_OX ENOP
PROC NEAR
OS: ABSO
OS
DOS
OX, AOOR_6845
OL,OFOH
OL,OAH
OS
ENOP
NEAR
AL,AH
OX,AL
OX
AL,AH
OX,AL
OX
; ----- ROUT I NE TO SOUNO BEEPER
BP _ 1 PROC NEAR
WOUT
OUT OX,AL
RET
BP_l ENOP
BEEP PROC
G7:
PUSH
MOV
MOV
CALL
MOV
OEC
CALL
MOV
CALL
MOV
WIN
IN
MOV
OR
CALL
SUB
LOOP
DEC
JNZ
MOV
CALL
POP
RET
BEEP ENOP
NEAR
OX
OX, T IMER+3
AL, 101 101 lOB
BP 1
AX-;-533H
OX
BP 1
AL-;-AH
BP_l
OX, PORT_B
AL,OX
AH,AL
AL,03
BP 1
CX-;-CX
G7
BL
G7
AL,AH
BP 1
OX-
RESTORE REG I STER
SAVE OATA SEGMENT
GET LOW MEMORY SEGMENT
GET CRTC AOORESS
STR I P Off LOW NIBBLE
SET TO STATUS REGISTER
, AH=INOEX,AL=OATA,DX=PORT
; GET I NDEX VALUE
;' SET INDEX REG
SET OX TO DATA REG
GET DATA VALUE
SET DATA REG
; SET OX BACK TO INDEX
SEL TIM 2,LSB,MSB,BINARY
WR I
TE
THE T I MER MOOE REG
o
I VI SOR FOR 1000 HZ
; WR I TE T I MER 2 CNT - LSB
; WR I TE T I MER 2 CNT - MSB
GET SETT I NG OF PORT
SAVE THAT SETT I NG
TURN SPEAKER ON
SET CNT TO WA IT 500 MS
DELAY BEFORE TURN I NG OFF
OELAY CNT EXP I REO?
NO-CONT I NUE BEEI'I NG SPK
RECOVER VALUE {IF PORT
RETURN TO CALLER
find the parameter table vector in the save table
set_base assume
ca II
'w'lxs
Les
set_base
les
ret
proc
ds:absO
dds
es, bx, saVB_ptr
bx,
saVB_pt
r
bX,dword ptr es:[bxj
endp
; get ptr to ptr table
; get parameter ptr
;----- establ ish addressing to the correct mode table entry
assume
push
push
ca
II
mov
test
jz
proc
ds:absO
ex
dx
set base
ah,crt mode
info,060h
b_m_l
;----- we have a memory expansion option here
cmp ah,Ofh
jne b_m_2
add bx, base 2 .. base 1
jmp b_m_out - -
emp ah,OlOh
jne
b
m
1
add bx,basB_2 + m_tbl_len .. basB_'
jmp b_m_out
emp
ja
;----- check the switch setting for enhancement
mov
and
emp
je
emp
je
jmp
a
I, inf'o 3
a I ,Ofh -
a
I,03h
brs
a
I ,09h
brs
b_m_3
; ----- we wi
II
perform enhancement
brs:
add
mov c I , c rt mode
sub ch, ch -
jcxz b_m_4
get parm tbl ptr
test for base card
min memory
skip enhanced portion
seconda ry emu I a te set
t
i ng
primary emulate sett ing
vector to enhancement tb I
;----- this loop wi II move the ptr to the individual mode entry
add
bx,m tbl
len
loop b_m3 -
; I
eng th of one mode ent ry
b m 4:
b -
m -out:
- - pop dx
IBM Enhanced Graphics Adapter 123