25.03.2015 Views

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)

SHOW MORE
SHOW LESS

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 SOURCE<br />

F7Cl 8AC4<br />

F7e] EE<br />

F7C4 42<br />

F7C5 EC<br />

F7C6 SAEe<br />

F7e8 4.1.<br />

F7C9 FEC4<br />

F7CB 8AC4<br />

F7CD EE<br />

F7eE 42<br />

F7CF EC<br />

F700 8AE5<br />

F102 8A1E4QOO<br />

F706 ZAFF<br />

F70B ZE8A9FAIF7<br />

FlOD 2BC3<br />

nOF 26064EOO<br />

F7E3 790]<br />

PES B80000<br />

F7E8<br />

F7E8 8103<br />

F7EA 803E490004<br />

F7EF 722A<br />

F7F 1 803E490007<br />

F7F6 7423<br />

F7F8 62:28<br />

F7FA F6FZ<br />

F7FC 8AE8<br />

F7FE 02EO<br />

F800 BADe<br />

F802 ZAFF<br />

F804 803E490006<br />

F809 7504<br />

F808 6104<br />

F90D DOE4<br />

F80F<br />

F80F D3E3<br />

F811 8.1.04<br />

F813 8AFO<br />

F815 DOEE<br />

F817 DOEE<br />

F619 EB12<br />

F818<br />

F81B F6364AOO<br />

F81F 8AFO<br />

F821 8.1.04<br />

F823 02EO<br />

F625 8AE8<br />

F827 BADe<br />

F829 32F'F<br />

F828 D3E3<br />

F820<br />

F820 8401<br />

F8ZF<br />

FeZF 52<br />

F630 68166300<br />

F634 83C207<br />

F837 EE<br />

4615 MOV Al.AH ; REGISTER TO READ<br />

4816 OUT DX,AL I SET IT UP<br />

4817 INC ox ; DATA REGISTER<br />

4818 IN AL,OX ; GET THE VALUE<br />

4819 MOV CH,AL ; SAVE IN CX<br />

4820 DEC OX ; ADDRESS REGISTER<br />

4821 INC AH<br />

4822 MOV AL.AH SECDND DATA REGISTER<br />

4623 OUT OX,Al<br />

4824 INC OX POINT TO DATA REGISTER<br />

4925 IN Al,DX GET SECOND DATA VALUE<br />

4626 MOV AH,CH ; AX HAS INPUT VALUE<br />

4827<br />

4826 ;------ AX HAS THE VALUE READ IN FROM THE 6845<br />

4629<br />

4630 MOV BL,CRT_MODE<br />

4831 SUB BH,BH ; MODE VALUE TO ax<br />

4832 HOV 8l,CS:vUBXl ; DETERMINE AMOUNT TO SUBTRACT<br />

4633 SUB AX.BX ; TAKE IT AWAY<br />

463,+ SUB AX,CRT_START ; CONVERT TO CORRECT PAGE OOIGIN<br />

4635 JNS V2 IF POSITIVE. DETERMINE HaDE<br />

4636 HOV AX,Q ;

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!