IBM XT 5160 - Page 212

TH I S ROUT I NE OUTPUTS THE CX REG I STER TO THE 6845 REG I STERS NAMED IN (AH)
oETERM I NE NUMBER OF COLUMNS, BOTH FOR ENT I RE 0 I SPLA Y
AND
THE NUMBER TO BE USED FOR TTY I NTERF ACE
5-65
POINT TO OTHER DATA REGISTER
SET FOR SECOND REG I STER
ADDRESS REG I STER
GET VALUE
REG I STER SET
DATA REGISTER
DATA
SET OVERSCAN PORT TO A DEFAULT
30H VALUE FOR ALL MODES EXCEPT 640X200
SEE I F THE MODE IS 640X200 BW
I F NOT 640X200, THEN GO TO REGULAR
IF IT IS 640X200, THEN PUT IN 3FH
OUTPUT THE CORRECT VALUE TO 309 PORT
SAVE THE
VALUE FOR FUTURE USE
WORD OFFSET I NTO CLEAR LENGTH TABLE
LENGTH TO CLEAR
SAVE LENGTH OF CRT -- NOT USED FOR BW
CLEAR ALL CURSOR pas I T IONS
EST ABL I SH SEGMENT
ADDRESSING
GET NUMBER OF COLUMNS ON TH I 5 SCREEN
CLEAR HIGH BYTE
I NIT I AL I ZE NUMBER OF COLUMNS COUNT
; SECOND DATA VALUE
; 6845 REG I STER FOR CURSOR SET
; SAVE I N DATA AREA
;
OUTPUT CX REG I STER
; FILL WITH ZEROES
; PREPARE TO OUTPUT TO V IDEO ENABLE PORT
; PO I NT TO THE MODE CONTROL REG I STER
; GET THE MODE SET VALUE
; SET V IDEO ENABLE PORT
I INITIALIZATION LOOP
I GET 6845 REGI STER NUMBER
; POINT TO DATA PORT
; NEXT REG I S TER VALUE
; GET TABLE VALUE
; OUT TO CHIP
; NEXT IN TABLE
; BACK TO PO I NTER REG I STER
; DO THE WHOLE TABLE
; GET MODE BACK INTO (AL )
; RECOVER SEGMENT VALUE
VIDEO (01/10/86)
1-4
01-10-86
DX,OAooR 6845
AL,AH -
DX,AL
OX
AL,CH
DX,AL
OX
AL,AH
AL
oX,AL
OX
AL,CL
OX
AL,30H
OCRT MOoE,6
M14 -
AL,3FH
oX,AL
OCRT _PALETTE, AL
SI,OOOEH
AX,CS: [SI + OFFSET M5]
OCRT LEN,AX
CX,8-
01 ,OFFSET OCURSOR POSN
OS -
ES
AX,AX
STOSW
AL ,CS: [5 I + OFFSET M6]
OCRT_ COLS , AX
oX,OAooR 6845
OX,4 -
AL,OCRT MODE SET
oX,AL - -
MOV
MOV
OUT
INC
MOV
OUT
DEC
MOV
INC
OUT
INC
MOV
OUT
MOV
SET UP OVERSCAN REG I STER
SET CURSOR
pas I T IONS
INC
MOV
CMP
JNZ
MOV
AND
MOV
MOV
MOV
MOV
PUSH
POP
XOR
REP
MOV
CBW
MOV
MOV
ADD
MOV
OUT
M16:
POP CX
POP
OX
POP OS
POP ES RECOVER SEGMENTS
I
RET ALL DONE
SET_MODE ENDP
; ----------------------------- -- --------------------
; SET CTYPE
; I NP~T TH I 5 ROUT I NE SET S THE CUR SOR VALUE
; (CX) HAS CURSOR VALUE CH-START LINE, CL-SToP LINE
; OUTPUT
; NONE
.----------------------- ---- ------------ --- ---- - -- ---
SET CTYPE PROC NEAR
-
MQV AH,10
MOV OCURSOR MODE,CX
CALL M16 -
..IMP V IDEO_RETURN
NORMAL RETURN FROM ALL V IDEO RETURNS
V
IDEO RETURN:
- POP BP
POP 01
POP 51
POP
BX
M14:
SET UP PO I NTER FOR REGEN
START ADDRESS SAVED IN GLOBAL
SET PAGE VALUE
NUMBER OF WORDS I N COLOR CARD
TEST FOR GRAPH I CS
NO GRAPHICS INIT
TEST FOR BW-CARo
BW CARD INIT
FILL FOR GRAPH I CS MODE
CLEAR BUFFER
BW CARD INIT
BUFFER SIZE ON BW CARD (2048)
; NO GRAPHICS INIT
; FILL CHAR FOR ALPHA + A TTR I BUTE
; CLEAR BUFFER
; FILL THE REGEN BUFFER WITH BLANKS
; - - - - - ENABLE V IDEO AND CORRECT PORT SETT I NG
0001
MIO:
0001 8A C4
MOV AL,AH
0003 EE
OUT oX,AL
0004 42
INC OX
0005 FE C4
INC
AH
00.07 8A 07 MQV
AL, [BX]
0009 EE
OUT
oX,AL
OOoA 43
INC BX
OOoB 4A
DEC
OX
OOOC E2 F3 LOOP Ml0
aOOE 58
POP AX
OOoF IF
POP
os
ASSUME OS :oATA
FILL REGEN AREA WITH BLANK
OOEO 33 FF
XOR 01,01
00E2 89 3E 004E R MOV OCRT_START ,01
00E6 C6 06 0062 R 00 MOV
OACT I VE_PAGE, 0
OOEB
B9 2000
MOV CX,8192
OOEE 3C 04
CMP AL,4
OOFO 72 OA
JC
MI2
00F2 3C 07
CMP AL,7
00F4 74> 04
..IE Mil
00F6 33 CO XOR AX,AX
00F8 EB 05
..IMP SHORT M13
OOFA
Mil:
OOFA B5 08 MOV
CH,08H
OOFC M12:
OOFC B8 0720 MOV
AX,
'+7·H
OOF'F
M13:
OOFF F3,f· AB REP STOSW
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378 0101 8B 16 00'63 R
379 0105 83 C2 04
380 0 I 08 AO 0065 R
381 010B EE
382
383
384
38S
386 0 10C 2E: 8A 84 0000 E
387 0 I I 1 98
388 01 12 A3 004AR
389
390
391
392 01 15 81 E6 OOOE
393 0 I 19 2E: 8B 84 0000 E
394 01 IE A3 004C R
395 0121 B9 0008
396 0124 BF 0050 R
397 0127 IE
398 012807
399 0 I 29 33 CO
400 01 2B F31 AB
401
402
403
404
0120 42
405 01 2E BO 30
406 013080 3E 0049 R 06
407 0135 75 02
408 0137 BO 3F
409 0139
410 0139 EE
41 I 013A A2 0066 R
412
413
414
415
0130
416 0130 50
417 013E 5F
418 013F 5E
419 0140 5B
420 0141
421 0141 59
422 0142 5A
423 0143 IF
424 0144 07
425 0145 CF
426 0146
+27
428
429
430
431
432
433
434
435 0146
436 0146 B4 OA
437 0148 89 OE 0060 R
438 014C ES 0151 R
439 014F EB EC
440
441
442
443
444 0151
.... 45 0151 89 16 0063 R
446 0 I 55 8A C4
447 0157 EE
448 0158 4.2
449 0159 8A C5
.... 50 015B EE:
451 015C 4A
452 0 I 508A C4
453 01 5F FE CO
454 0161 EE
455 0162 42
456 0 I 63 8A C 1
I
BM Persona I Computer MACRO Assemb I er Vers i on 2.00
V 10EO - - - - 0 1I I 0/86 V IDEO 0 I SPLA Y B I as