IBM 5150 - Page 238

LOC OBJ
LINE SOURCE
F04S
F045 FeFO
F047 CFFI
F049 Fon
F04B JAF2
F040 A9F7
F04F 30F,
FOS1 9CF2
F05] 41F3
FOSS 70n
Fost C3f3
F059 F6F3
FOSS 54F2:
rOSO 38F4
FOSF 27F4
F06! 22F7
F063 7AF2
0020
FObS
FObS FB
F066 Fe
F061 06
F06,8 IE
F069 52
FObA 51
F068 53
F06C 56
F060 57
F06E 50
F06F 8AC4
F071 32E4
F073 DIED
F075 68FO
F071 302000
F07A n04
F07e 58
F07D E94701
f080 884000
F083 8E08
F085 B80066
f088 863ElOOO
F08e 81E73000
F090 83FF30
F093 7503
F095 880080
F098 8Eeo
F09A 58
F098 8A2:6490D
F09F 2EfFA445FO
3232 (AH) 15 CURREI'ff VIDEO STATE
32:33 RETURNS THE CURRENT VIDEO STATE
3234
(All ::: HOOE CURRWTLY SET I SEe AH=O FOR EXPLANATION)
3235
(AH) :: NU11BER Of CHARACTER COLUMNS ON SCREEN
3236
(BH) :: CURRENT ACTIVE DISPLAY PAGE
3237
3238
CS,SS,DS,ES,8X,CX,DX PRESERVED DURING CALL
3239 ALL OTHERS DESTROYED
~2:40 ; ------------------------- - -------------- ----
32:41
ASSUME CS :CODE IDS:DATA ,ES :VIOEO_RAM
32:42:
3243 HI
LABEL
WORD I TABLE OF ROUTINES WITHIN VIDEO I/O
32:44
OW
OFFSET SET_MOOE
32:45
ow OFFSET SET_CTYPE
3246
ow
OFf'SET SET_CPOS
32:47
ow
OfFSET READJUPSOR
32:48
ow
OFFSET READ_LPEH
32:49
ow
OffSET ACT_crsp _PAGE
3250
0"
OFFSET SCROLL_UP
3251
ow
OFFSET
SCROLL_DOWN
32:52:
ow
OFFSET READ_AC_CURREtIT
3253
0"
OFFSET WRITCAC_CURRENT
3254
0"
OFFSt:T WRlTE_C_CURRENT
3255
0"
OFFSET SET_COLOR
3256
0"
OFFSET I-'RITE_OOT
3257
3258
0"
0"
OFFSET
OFFSET
READ_DOT
WRITE_TTY
3259
0"
OFFSET VIDEO_STATE
3260 HIL
EOU
$-Ml
3261
3262 rROC tl::AR
3263
STI
; INTERP-UPTS
BACK ON
3264
CLO SET DIRECTION FORWARD
3265
PUSH ES
3266
PUSH DS ; SAVE SEGMENT REGISTERS
3267
PUSH ox
3268
PUSH
CX
3269
PUSH ex
3270
PUSH
51
3271
PUSH
01
3272
PUSH AX
; SAVE
AX VALUE
3273
MOV AL,AH
;
GET INTO LOW BYTE
3274
XOR AH IAH I ZERO TO HIGH BYTE
3215
SAL
AX,1 *2 FOR TABLE LOOKUP
3276
MOV SI,AX PUT INTO SI FOR BRANCH
3277
CMP AX
,
111L TEST FOR WITHIN RANGE
3278
JB 11£ 1 BRANCH AROUND BRANCH
3279
POP AX THROW AWAY THE PARAMETER
3280
JMP VIDEO_RETURN ; DO NOTHING IF NOT IN RANGE
3281
MOV
AX,OATA
3282
HOV
OS,AX
3283
MOV
AX
,
OB800H
SEGMENT FOR COLOR CARD
3284
MOV
01 I EqUIP_FLAG
GET EQUIPMENT SETTING
3285 AHD
DI
,
30H
ISOLATE CRT SWITCHES
3286
CMP OI,30H IS SETTING FOR Bioi CARD?
3287
JNE
M3
3288
MOV AX,OBOOOH ; SEGMnlT FOR Bioi CARD
3289
MOV
ES,AX I SET UP TO POINT AT VIDEO RAI1 AREAS
3290
POP AX
)
RECOVER VALUE
3291
MOV AH,CRT_HOOE I GET CURRENt MODE INTO AH
3292 JMP WORD PTR CS:[SI .. OFFSET MIl
3293 VIDEO_IO
ENDP
3294 ; -- ------------- ---------------------------
3295 ; SET_MODE
3296 THIS ROUTINE INITIALIZES THE ATtACHMENT TO
3297 THE SELECTED MODE. THE SCREEN IS BLANKEO.
3296 ; INPUT
3299 {ALI ::: MODE SELECTED (RANGE 0-9)
3300 i OUTPUT
3301 NONE
3302 ; -------- ------ -----------------------------
3303
3304
i------ TABLES FOR USE IN SEn!NG OF MODE
3305
3306
LABEL 'BYTE
3307 1------ !NIT_TABLE
FOA4
A-45