IBM 5170 Technical Reference page 270

ASC I I TELETYPE ROUT I NE fOR OUTPUT
(AH) = 14 WRITE TELETYPE TO ACTIVE PAGE
(AL) CHAR TO WRITE
( BL) '" fOREGROUND COLOR I N GRAPH
I
CS MODE
NOTE -- SCREEN WIDTH IS CONTROLLED BY PREVIOUS MODE SET
(AH)
=
15 CURRENT VIDEO STATE
RETURNS THE CURRENT VIDEO STATE
(AL)
=
MODE CURRENTLY SET ( SEE AH=D FOR EXPLANATION)
(AH) = NUMBER OF CHARACTER COLUMNS ON SCREEN
(BH) = CURRENT ACTIVE DISPLAY PACE
(AH)
=
16 RESERVED
(AH) = 17 RESERVED
(AH)
=
18 RESERVED
(AH)
=
19 WRITE STRING
ES:BP POINTER TO STRING TO BE WRITTEN
ex LENGTH OF CHARACER STR I NG TO WR I TTEN
OX CURSOR POS I T I ON FOR STR I NG TO BE WR I TTEN
8H PAGE NUMBER
(AL)
BL - ATTRIBUTE
STRING IS ICHAR,CHAR, ,CHARj
CURSOR NOT HOVED
(AL)
=-
1
BL - ATTR I BUTE
STR I NG I S ! CHAR. CHAR, ,CHAR
1
CURSOR I S MOVED
(AL) '" 2
STRING IS ICHAR.ATTR,CHAR,ATTR ,CHAR.ATTRI
CURSOR I S NOT MOVED
(AL)
=
3
STRING IS ICHAR,ATTR.CHAR,ATTR.. ,CHAR,ATTRj
CURSOR I S MOVED
NOTE: CARRIAGE RETURN, LINE fEED, BACKSPACE, AND BELL ARE
TREATED AS COMMANDS RATHER THAN PRINTABLE CHARACTERS.
SS,SP,ES,DS.DX,CX,BX,SI.DI.BP PRESERVED DURING CALL
ALL OTHERS DESTROYED.
ASSUME CS; CODE, OS: DATA, ES: V IDEO_RAM
~~:t:
g
~g=~~e~E
PUBLIC SET CPOS
PUBLIC READ CURSOR
PUBL I C READ-LPEN
PUBL I C ACT 01 SP PAGE
PUBLIC SCROLL UP
PUBLI C SCROLL-DOWN
PUBL I C READ AC CURRENT
PUBL I C WR I TE AC CURRENT
PUBLIC WRITeC CURRENT
PUBLI C SET COLOR
PUBLIC WRITE DOT
PUBL! C READ DOT
PUBLIC WRllE TTY
PUBLIC VIDEO-STATE
0000 M1 LABEL WORD ; TABLE Of ROUTINES WITHIN VIDEO I/O
0000 0071 R OW OFfSET SET_MODE
0002 0140 R OW OFfSET SET_CTYPE
0004 0174 R OW OffSET SET CPOS
0006 019E R
OW OffSET
READ CURSOR
0008 070F R OW OffSET READ-LPEN
OOOA 0165 R
ow
OFfSET ACT_DI SP_PAGE
OOOC 0222 R
ow
OffSET
SCROLL UP
OOOE 02C6 R
OW OffSET
SCROLL-DOWN
0010 0318 R OW OffSET READ AC CURRENT
0012 035E R OW OffSET WR I TE AC CURRENT
0014 0391 R OW OffSET WR I TCC CURRENT
0016 0109 R OW OffSET SET COLOR
0018 046F R
ow
OffSET
WRITE_DOT
001A 045E R OW OFFSET
001C 075B R
OW OFFSET
DOlE 01FF R OW OFFSET
0020 0144 R OW OFFSET Reserved
mig~n~~~N
0022 0144 R DW OFFSET
Reserved
0024 0144 R DW OFFSET
~: g~~:~~~~~~
Reserved
0026 03C3 R DW OFFSET WR I TE_STR I NG CASE 19h, Write string
=
0028 EQU S-Ml
"1
L
0028
VIDEO_10 1 PROC NEAR ENTRY POINT FOR ORG OF065H
0028 FB STI I NTERRUPTS BACK ON
0029
Fe
eLO
SET DIRECT I ON FORWARD
002A 06 PUSH ES
0028 1E
PUSH OS
SAVE SEGMENT REG I STERS
002C 52 PUSH OX
0020 51 PUSH
ex
002E
53 PUSH
BX
002F 56 PUSH 51
0030 57 PUSH
01
0031 55 PUSH
B'
0032
50 PUSH
AX
SAVE AX VALUE
0033 8A CII- MOV AL,AH
GET I NTO LOW BYTE
0035
32 E4 XOR AH.AH ZERO TO HIGH BYTE
0037 01 EO SAL
AX,1 *2 FOR TABLE LOOKUP
0039
86 FO MOV SI,AX
PUT INTO S I FOR BRANCH
0038
3D 0028
eM'
AX,M1L TEST FOR 101 ITH I N RANGE
003E 72 04 JB M2
BRANCH AROUND BRANCH
0040 58 POP
AX
THROW AWAY THE PARAMETER
0041
E9 0111-4 R
JMP
v I OEO_RETURN ; DO NOTHING IF NOT IN RANGE
0044 HZ:
0044 E8 0000 E
CALL
DDS
0047 88 8800 MOV AX,OB80QH SEGMENT fOR COLOR CARD
004A
8B 3E 0010 R MOV DI,EQUIP_FLAG GET EQU I PMENT SETT I NG
004E 81 E7 0030 AND DI,30H
ISOLATE CRT SWITCHES
0052 83 FF 30 eMP D I, 30H
IS SETTING FOR Bioi CARD?
0055
75 02 JNE M3
0057 B4 BO
MOV
AH,OBOH
SEGMENT fOR Bioi CARD
0059
8E CO M3: MDV ES,AX
SET UP TO PO I NT AT V IDEO RAM AREAS
0058
58 POP AX RECOVER VAlU E
005C 80 FC 13
eMP
AH,13H TEST FOR WR I TE STR I NG OP
005F 75 07 JNE MM3
0061 55
PUSH If IT'S WRITE STRING THEN GET THE
B'
0062 8B EC
MOV
BP,SP
STR I NCS SEGMENT, SINCE I T GET CLOBBERED
0064 BE 46 10 MOV
ES, [SP]. ES_POS
5·128 Video