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 SOURCE<br />
£179 E2FD 462 LOOP C19 ; LOOP TIL All ZERO<br />
463<br />
464 DETERMINE 10 CHANNEl RAM SIZE<br />
465<br />
fI78 £462 466 IN Al,PORT_C<br />
E170 240F '67 AND Al,orH<br />
E17F 7418 'b. JZ CZl<br />
f161 BA0010 4., MOV DX.loaOH SEGMENT FOR 110 RAM<br />
£184 8AEO 47. MOV AH,Al<br />
El86 BODO .71 MOV AL.O<br />
ElB8 '7> C20: FIll_IO:<br />
ElM 8etZ 473 HOY ES.DX<br />
EISA 890080 .7• ttov CX.800OH ; FIll 3ZK BYTES<br />
El80 2:BFF • 75 SUB 01.01<br />
£18F f3 47b REP SIOSB<br />
£190 AA<br />
fl'9l 81C20008 477 ADD DX,800H i NEXT SEGMENT VALUE<br />
El'95 FEee '7. DEC AH<br />
£197 75EF .79 JtlZ C2 • ; FIll_IO<br />
•••<br />
; -------------------------------------------<br />
INITIALIZE THE 8259 INTERRUPT CONTROLLER CHIP<br />
'8'<br />
.82 ; -------------------------------------------<br />
El'99 483 C21:<br />
El'99 8013 .8. MOV Al.13H iICWl - EDGE, SHGL. ICW4<br />
El'9B £62:0 485 OUT INTAOD ,Al<br />
El'90 B008 48b MOV AL.8 iSETUP lewz - INT TYPE 8 IS-F J<br />
El9F £621 .87 OUT INTAOl,A1.<br />
ELl! 8009 MOV AL.'9 .SETUP ICW4 - 8UFFRO,8086 l100E<br />
..,"<br />
ElA3 E621 .8. OUT HITAOI,AL<br />
EIA5 2BeO '.0 SUB AX,AX ,POINT OS AND ES TO BEGIN<br />
ElA7 8ECO 49. MOV ES,AX ; OF R/w STORAGE<br />
ElA9 BE4000 .92 HOV SI,DATA ;PQIHT as TO DATA SEG<br />
ElAc SEDE '93 MOV DS,SI<br />
EIAE 891E7,ZOO<br />
.,.<br />
HDV RESET_FLAG,BX ,RESTORE RESETJUG<br />
E182 813E72003412 '.5 CMP RESET_FUG,l234H .RESETJLAG SET?<br />
El88 7438 JE C25 ins - SKIP STG TEST<br />
•••<br />
ElBA 8E08 497 MOV OS,AX i FOltIT as TO 1ST 16K OF STG<br />
..8 i-------------------------------------------<br />
4"<br />
CHECK FOR MAHUFACTUIUNG TEST 2 TO LOAD TEST PROGRAMS FROM KEYBOARD.<br />
soo ;-------------------------------------------<br />
EISC BCF03F 501 MOV SP, lFFOH , ESTABLISH TEMPORARY STACK<br />
EI8F 8EDO 502 MOV S5, AX<br />
EICI 8BFe 50' NOV 01, AX<br />
EIC3 882400 5•• MOV 6X, 24H<br />
EIC6 C707B6E2 5.5 MOV WORD PTR tBX),OFFSET 011 ISET UP KB INTERRUPT<br />
EICA 43 50b INC BX<br />
ElCB 43 S07 INC BX<br />
Elce 8COF SOS MOV (BXJ,CS<br />
ElCE E88704 50. CAU KBD_RESET ; READ IN KB RESET CODE TO Bt<br />
EIDI 80FB65 ..0 CftP Bl,065H ; IS THIS MANUFACTURING TEST 2?<br />
EI04 750E 511 JNZ C23 ; JUMP IF NOT MAN. TEST<br />
EI06 B2FF ..2 MOV Dl,255 ; READ IN TEST PROGRAM<br />
Et06 E86A04 513 e22 : CAll SP _TEST<br />
EIOB 8AC3 514 MOV At.BL<br />
ElDD AA 515 STose<br />
ElOE FECA 51b DEC OL<br />
ElEO 75F6 5.7 JNZ C22 i JUMP IF NOT DONE YET<br />
EIE2 CD3E 5." ItIT 3EH ;SET INTERUPT TYPE 62 ADDRESS F8H<br />
EIE4 5.' e23: jCONTItlUE IN NORMAL t100E<br />
EIE4 DE 520 PUSH CS ; PUT SS B'.CK<br />
ElE5 17 521 POP 55<br />
ElE6 FA<br />
5"<br />
CLI<br />
E1E7 BC18EO 523 ~10V SP,OFFSET C2 ;SETUP REltrRN ADDRESS<br />
ElEA EnDFE JHP STGTST IGO TO RDIWRT STG SUBROUTINE<br />
EIED 7403 '" 525 C24: JE C25 .GO TO NEXT TEST IF OK<br />
EIEF E9BDFE 52' <br />
527 <br />
JMP ERROl<br />
5Z8<br />
SHUP STACK SEt AtID S1' <br />
52~<br />
EIF2 530 C25:<br />
E1F2 B83000 531 MOV AX.STA.CK ; GET STACK VALUE<br />
E1F5 8EDO 532 MOV SS,AX ; SET THE STACk UP<br />
EIF7 BCOOOI 533 ttoV SP ,OFFSET TOS ; STACK IS READY TO GO<br />
534<br />
535 SETUP THE HHI INTERRUPT VECTOR POINTER<br />
53.<br />
A-8
Change language