IBM 5150 - Page 170

LOC OBJ
LINE
SOURCE
3408
RESULTS ONLY FOR CHARACTERS CONTAINED ON THE SAtlE ROW.
3409
CONTINUATION TO SUCCEEDING LINES WILL NOT PRODUCE
3410
CORRECTLY.
3411
3412 GRAPHICS INTERFACE
3413
I AH) :: 11 SET COLOR PALEnE
3414 ISH) = PALETTE COLOR 10 BEING SET (0-1271
3415 (BLI = COLOR VALUE TO BE USED WITH THA.T COLOR to
3416 NOTE: FOR THE CURRENT COLOR CARD. THIS ENTRY POINT
3417 HAS HEANIHG ONLY FOR 3ZQX20Q GRAPHICS.
3418 COLOR 10 = 0 SElECTS THE BACKGROUND COLOR (0-151:
3419- COLOR 10 = 1 SELECTS THE PALETTE TO BE USED:
3420
0= GREEN(11/REO(ZI/YEllOW{31
3421 1 :: CYANI 1 )/I1AGfNTA( 21/WHITE( 3)
3422 IN 40X25 OR 80X25 ALPHA MODES. THE VAlUE SET
3423
FOR PALETTE COLOR 0 INDICATES THE
342. BORDER COLOR TO BE USED (VALUES 0-31.
3425 WHERE 16-31 SELECT THE HIGH INTENSITY
3426 BACKGROL/tl) seT.
3427
fAH) = 12 WRITE DOT
3428 (OX) = R~ NUt1BER
3429
«ex) = COLUMN HUMBER
3430 CUI = COLOR VALUE
3431
IF BIT 7 OF .l.L = 1. THEN THE COLOR VALUE IS
3432:
EXCLUSIVE OR' 0 WITH
THE CURRENT CONTENTS Of
3433
THE DOT
3434
(AH) = 13 READ DOT
3435 COX) = ROW NUMBER
3436 (CX) = COLUMN HUMBER
3437 (AU RETURNS THE DOT READ
3438
3439 I ASCII TELETYPE ROlJTINE FOR OUTPUT
3 .. 0
3441
(AM) = 14 WRITE TELETYPE TO ACTIVE PAGE
3442
tAU = CHAR TO WRITE
3443
(8U = FOREGROUND COLOR IN GRAPHICS HOOE
3444
NOTE -- SCREEN WIDTH IS CONTROLLED BY PREVIOUS HOOE SET:
3445
3446 (AH) =
IS CURRENT VIDEO STATE
3447
RET1JRNS THE CURRENT VIDEO STATE
344&
(AU = MODE CURRENTLY SET ( SEe AH=O FOR EXPlANATION)
3449
tAH» = NUt1BER OF CHARACTER COLlJttiS ON SCREEN
3450
(BH) = CURRENT ACTIVE DISPLAY PAGE
3451
3452:
CS,SS.DS.ES,BX,CX.DX PRESERVED DURING CALL
3453
ALL OTHERS DESTROYED
3454
;: ~ - ~ -- ---- -- ------ -- ---- - --- - -------- --- --- --- -- -- --- ----- ----- -- --------
3455
ASSUi1E CS :CODE ,as: DATA .ES: VIDEO.RAM
F045 3456
OR.
OF04SH
F045 3457
HI
LABEL
WORD
I TABLE OF ROUTINES WITHIN VIDEO I/O
F045 FCFO 3458
OW OFFSET SETJiODE
f047 CDFl
3459
OW
OFFSET SET.CTYPE
F049 EEFI
346.
ow OFFSET SET.CPOS
F048 39F2 3461
OW OFFSET READ.CU:!SCII
FOItO 9tF7
34b2 ow OffSET REAO.LPEN
f04F 17F2:
3463 OW
OffSET ACT.OISP .PAGE
FOSI 96F2: 3464
ow OFFSET SCROLL.UP
F053 38F3 34b5
ow OFFSET SCROLL.DOWN
FOSS 7ltF3 34bb ow OFFSET READ.AC.CURRENT
F057 89F3
3467 ow OFFSET WRITE.AC.CURRENT
F059 Ecn
34b8 DW OFFSET WRITE_C.CURRENT
FOSB 4EF2
34b9 ow OFFSET
SET.COlOR
FOSD 2:FF4
3470
DW OFFSET WRITE.DOT
F05F 1EF4
3471 DW OFFSET READ.DOT
FOb! 18F7 3472
ow OFFSET
WRITE.TTY
FOb3 74f2
3473 ow OFFSET VIDEO_STATE
0020 3474 HIL
EQU
$-MI
FObS
3475
3476
OR.
OF065H
~
FObS
3477 VIDEO.IO
PROC
NEAR
F06S FB
3478 STI I INTERRUPTS BACK OH
F066 FC 3479
CLD
j SET DIRECTION FORWARD
F067 Ob 3480
PUSH ES
F068 IE
3481 PUSH OS
J
SAVE SEGMENT REGISTERS
f069 52: 3lt82
PUSH ox
FOb. 51 3483
PUSH
C)(
F06B 53 3484
PUSH BX
System BIOS 5-77