IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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
F169 7404
Fl6B :33CO
Fl60 EB06
Fl6F
FI6F B90008
FI72
F172 B82007
F175
F175 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
FlA2 2E6B8CE4FO
FIA7 890E4COO
FlAB 890800
FlAE BF5000
FIBI IE
FIB2 07
FIB3 nco
FIBS F3
FIS6 AB
FIB7 42
FiB8 B030
FIBA 803E490006
FIBF 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