IBM 5150 - Page 240

LOC OBJ
LINE SOURCE
F146 EE
F147 42
Fl48 FEC4
Fl4A 8A07
F14C EE
Fl4D 43
Fl4E 4A
~ Fl4F E2F3
FISl 58
Fl52 IF
Fl53 33FF
Fl55 893E4EOO
Fl59 C606620000
FISE B90020
Fl6l aOFC04
F164 noc
Fl66 80FC07
F 169 7404
Fl6B :33CO
Fl60 EB06
Fl6F
FI6F B90008
FI72
F172 B82007
F175
F 175 F3
FI76 AS
FIn C7066000-6700
Fl7D A04900
~ Fl8032E4
F182 8BFO
F184 8BI66300
FI88 83C204
FI8B 2E8A84F4FO
F 1
90 EE
Fl n A26500
FI94 2E8A84ECFO
FI99 32E4
F 19B A34AOO
F19E 81E60EOO
F
lA2 2E6B8CE4FO
FIA7 890E4COO
FlAB 890800
FlAE BF5000
FIBI IE
FIB2 07
FIB3 nco
FIBS F3
FIS6 AB
FIB7 42
FiB8 B030
FIBA 803E490006
F IBF 7502
FICI B03F
FIC! EE
FIC4 A266DO
3384 OUT OX.Al
3385
INC
ox
; POINT
TO DATA PORT
3366
INC
AH
; NEXT REGISTER VALUE
3367 MOV
Al.[BX)
;
GET TABLE VAlUE
3388 OUT OX.Al
; OUT TO CHIP
3369
INC BX
; UEXT IN TABLE
3390
OEC OX
;
BACK TO POINTER REGISTER
3391
LOOP MID
DO THE WHOLE TABLE
3392
POP AX
GET MODE BACK
3393 POP OS
RECOVER SEGMENT VALUE
3394
ASSUME OS:OATA
3395
3396 ;------ FILL REGEN AREA WITH BLANK
3397
3398
XOR
01.01 ; SET UP POINTER FOR REGEN
3399
MOV
CRT_START .01 ; START ADDRESS SAVED IN GLOBAL
3400
MOV
ACTIVE_PAGE
,0 ; SET PAGE VALUE
3401
MOV
CX.8192 ; NUMBER OF WORDS IN COLOR CARD
3402 CMP
AH ,4 TEST FOR GRAPHICS
3403 JC
MI2 NO_GRAPHICS_INIT
3404 CHP
AH , 7 TEST FOR Bioi CARD
340S
JE
MIl BW_CARD_INIT
3406
XOR
AX, AX FILL FOR GRAPHICS MODE
3407 JHP SHORT Ml3 CLEAR_BUFFER
3408 MIl:
3409 HOV CX,2048
; BUFFER SIZE ON BW CARD
3410
M12;
; NO_GRAPHICS_INIT
3411 MOV
AX,' '+7*256
FIll CHAR FOR ALPHA
3412 M13:
CLEAR_BUFFER
3413
REP
STOSW
FILL THE REGEN BUFFER WITH 8UNKS
3414
3415 ;------ ENABLE VIDEO AND CORRECT PORT SETTING
3416
3417
MOV
CURSOR_MOoE.67H ; SET CURRENT CURSOR MODE
3418
MOV
j GET THE MODE
3419
XOR
AH,AH INTO AX REGISTER
3420
MOV
SI,AX
TABLE POINTER. WDEXEo BY
MODE
3421
MOV
DX.ADDR_6845
PREPARE TO OUTPUT TO .... IOEO ENABLE PORT
3422
AOO DX,4
3423
HOV AL.CS: I SI+OFFSET M7]
34~4
OUT
DX.Al ; SET VIDEO ENABLE PORT
3425
MOV CRT_MOOE_SET,Al ; SAVE THAT VALUE
3426
3427 ; ------ DETERMINE NUMBER OF COLUMNS. BOTH FOR ENTIRE DISPLAY
3428 ;------ AND THE NUMBER TO BE USED FOR TTY INTERFACE
3429
3430
MOV AL.CS:IS1 + OFFSET M6J
3431
XOR
AH.AH
3432
MOV
CRT_COlS,AX ; HUMBER OF COLUMNS IN THIS SCREEN
31133
3434 ;------ SET CURSOR POSITIONS
3435
3436
ANO SI.OEH ; WORD OFFSET INTO CLEAR lENGTH TABLE
3437 MOV CX.CS:[SI + OFFSET tiS) j lENGTH TO CLEAR
3438
MOV
CRT_lEN.CX • SAVE lENGTH OF CRT -- HOT USED FOR Bioi
3439
MOV CX,a ; ClEAR ALL CURSOR POSITlmiS
3440
MOV
oI.OFFSET CURSOR_POSr~
3441
PUSH
OS ESTABLISH SEGMENT
3442
POP ES
ADDRESSINS
3443
XOR
AX,AX
3444
REP
STOSW
;
FILL WITH ZEROES
3445
3446
;------ SET UP OVERSCAN REGISTER
3447
3448
INC OX SET OVERSCAN PORT TO A DEFAULT
3449
MOV Al,30H
VALUE OF 3'OH FOR ALL MODES EXCEPT 640X200
3450
CMP CRT.MODE,6 SEE IF THE HaDE IS 640X200 Bioi
3451
JNZ
M14
IF IT IS:n 640X20D. THEN GOTO REGULAR
3452
MOV Al,3FH IF IT IS 640X200, THEN PUT IN 3FH
3453
M14:
OUT oX.Al OUTPUT THE CORRECT VALUE TO 309 PORT
3454
MOV CRT.PALLETTE ,Al SAVE THE VALUE FOR FUTURE USE
3455
3456 ;------ NORMAL RETU~N FROM ALL VIDEO RETURNS
3457
A-47