IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)
IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)
IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
lOC OBJ LINE SOURt.:E<br />
FOA43828ZDOAIF0619 3306 DB 38H. 28H,2DH ,OAH .IFH,6 .19H SET UP FOR 40X25<br />
FOAB lC02070607 3309 DB<br />
FOBO 00000000 3310 DB 0,0.0.0<br />
0010 3311 M4 EoU<br />
3312<br />
FOB4 7l505AOAIF0619 3313 DB 7lH,50H .5AH, OAH ,1FH,6 ,19H ; SET UP FOR 80X2S<br />
FOBe lC02:070607 3314 DB<br />
FOCO 00000000 3315 DB 0.0.0.0<br />
3316<br />
FOC4 38Z82DOA7F0664 3317 08 38H, 28H, 2DH, OAH, 7FH ,6 ,64H J SET UP FOR GRAPHICS<br />
Foce 7002010607 3318 08 70H,2.1.6,7<br />
FOO~ 00000000 3319 DB 0,0,0,0<br />
3320<br />
FOD4 61S0520F 190619 3321 DB 61H ,SOH .52H, OFH, 19H.6 .19H SET UP FOR 80X25 B&W CARD<br />
FODe 19020DOBOC 3322 DB 19H. 2, OOH, oaH. OCH<br />
FOED 00000000 3323 DB 0,0 ,0,0<br />
3324<br />
FOE4 3325 M5 LABEl WORD J TABLE OF REGEN LENGTHS<br />
FOE4 0006 3326 OW 2048 ; 40X25<br />
FOE6 0010 3327 OW 4096 ; 80X:!5<br />
FOEB 0040 3328 OW 16384 ; GRAPHICS<br />
fOEA 0040 3329 OW 16384<br />
3330<br />
3331 ; ----- COLUMNS<br />
FOEe 3332 M6 LABEL BYTE<br />
FOEC 282850502:8285050 3333 DB 40,40.80.80,40,40.80.80<br />
3334<br />
3335 ;------ C_REG_TAB<br />
FOF4 3336 M7 LABEl BHE ; TABLE OF MODE SETS<br />
FOF4 2C282D29ZA2E!E29 3337 DB 2CH ,28H, 2DH, 29H, 2AH, 2EH .1EH. 29H ;<br />
3338<br />
FOFC 3339 PROC NEAR<br />
FOFe 8A0403 3340 MOV DX.03D4H ; ADDRESS OF COLOR CARD<br />
FOFF B300 3341 MOV BL.O ; MODE SET FOR COLOR CARD<br />
FIOl 83FF10 3342 CMP or, JOH ; IS B~ CARD INSTALLED<br />
Fl04 7507 3343 JNE M8 ; OK WITH COLOR<br />
FI06 B007 3344 MOV AL.7 ; INDICATE B~ CARD MODE<br />
Floe 8A8403<br />
3345<br />
MOV Ox , 03B4H<br />
; ADDRESS OF BW CARD<br />
FIOB FEel 3".<br />
INC BL<br />
; MODE SET FOR Bioi CARD<br />
FICO 8AEO 3347 Me: MOY AH,AL ; SAVE MODE IN AH<br />
FIOF A24900 3348 MOV CRT_MODE ,Al ; SAVE IN GLOBAL VARIABLE<br />
F1l2 89166300 3349 MOV ADDR_6845.0X SAVE ADDRESS OF BASE<br />
F1l6 IE 3350 PUSH OS SAVE POINTER TO DATA SEGMENT<br />
Fll750 3351 PUSH AX SAVE MODE<br />
Fl18 52 3352 PUSH ox SAVE OUTPUT PORT VALUE<br />
f1l9 63C204 3353 ADD DX,4 POINT TO CONTROL REGISTER<br />
FIle 6AC3 3354 HOV Al.Bl ; GEl HODE SET FOR CARD<br />
FilE EE 3355 OUT DX.AL ; RESET VIDEO<br />
FllF SA 3356 POP OX ; BACK TO BASE REGISTER<br />
FI2e 28CO 3357 SUB AX,AX I SET UP FOR ABsa SEGMENT<br />
FIZZ 8E08 3358 MOV DS,AX ESTABLISH YECTOR TABLE ADDRESSING<br />
3359 ASSUME DS:ABSO<br />
F124 C51E7400 3360 lOS BX.PARN_PTR GET POINTER TO VIDEO PARMS<br />
F128 56 3361 POP AX ; RECOVER PARMS<br />
3362 ASSUME DS:COOE<br />
FI29 891000 3363 MOV CX.M4 LENGTH Of EACH ROW Of TABLE<br />
Flle 80FCOZ 3364 CMP AH.2 DETERMWE WHICH DNE TO USE<br />
Fl2F 7210 3365 JC M9 MODE IS 0 OR 1<br />
FBI 0309 3366 ADD Bx,ex MOVE TO NEXT ROW OF INIT TABLE<br />
FI33 BOFC04 3367 CMP AH,4<br />
Fl36 7209 3368 JC N9 ; MODE IS 2 OR 3<br />
Fl3S 0309 3369 ADD BX,CX ; NOVE TO GRAPHICS ROW OF INIT_TABLE<br />
F13A BOFC07 3370 eMP AH,7<br />
F13D 7202 3371 JC N9 MODE IS 4,5. OR 6<br />
F13F 0309 3372 ADO BX.CX HOVE TO BW CARD ROW OF INIT_TABLE<br />
3373<br />
3374 ;------ BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE<br />
3375<br />
F141 3376 M9:<br />
F141 50 3377 PUSH AX • SAVE I':OOE IN AH<br />
Fl42 32E4 3378 XOR AH,AH ; AH WILL SERVE AS REGISTER NUMBER DURItlG LOOP<br />
3379<br />
3380 ;------ LOOP TllRCUGH TABLE. OUTPUTTTING REG ADDRESS, THEN VALUE FROM TABLE<br />
3381<br />
F144 3382 HID: ; nUT LOOP<br />
Fl44 8AC4 3383 NOV AL,AH ; GET 6845 REGISTER ~ruMBER<br />
A-46
Change language