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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

LOC OBJ LINE SOURCE<br />

EC87 BA.fO<br />

EC89 60l63F007F­<br />

EceE 0"E4<br />

£C90 7427<br />

£C92 FEte<br />

EC94 7474<br />

EC96 C606410000<br />

~ EC9B eOFA04<br />

EC9E 7313<br />

ECAO FEte<br />

feA,l 746A.<br />

ECA4 FEte<br />

ECA6 7503<br />

2:5'32 HOV OH,Al '; SAVE. SECTot;!S IN DH<br />

2333 AND ;. INDICATE A READ OPERATION<br />

2334 OR AH,AH • AH=O<br />

,335 JZ DISK_RESET<br />

U16 DEC AH ; AH=l<br />

2337 JZ DISK_STATUS<br />

2:336 HOV ; RESET THE STATUS INDICATOR<br />

2339 CMP Dl.4 I TEST FOR DRIVE IN 0-3 RANGE<br />

2340 JAE J3 ; ERROR IF ABOVE<br />

2341 DEC AH i AH=2:<br />

2342 JZ nISK_READ<br />

2343 DEC AH ; AH=3<br />

2344 JHZ<br />

J'<br />

; TEST_DISK_VERF<br />

ECAB £99600<br />

ECAB<br />

2:345 JMP<br />

2346 J2 :<br />

eCAB FEte<br />

feAD 7468<br />

fCAF FEte<br />

feel 7468<br />

Eee3<br />

ECB3 C6064100111<br />

ECBS C3<br />

EC59<br />

ECB9 BAFZ03<br />

fCBC FA<br />

EeeD A03FOO<br />

feeD BI04<br />

eeel OZEO<br />

Ece4 A82:0<br />

£CC6 750C<br />

fees A,840<br />

ECCA 7506<br />

Ecce A860<br />

ECCE 7406<br />

EeDO FEtO<br />

ECD2 FEtD<br />

ECD4 FE.tD<br />

fCD6 oe08<br />

ECOB EE<br />

ECD9 C6063£0000<br />

ECDE C606410000<br />

feEl OC04<br />

fees EE<br />

fCEb FB<br />

ftE7 £8280Z<br />

EeEA A04200<br />

fCED 3etO<br />

EceF 7407<br />

fCFI 600£410020<br />

ECF6 EBII<br />

ECFa<br />

ECFe 8403<br />

fCFA £84701<br />

fCFO 880100<br />

EDOO E86DOl<br />

E003 880300<br />

fD06 £86701<br />

£009<br />

£P09 C1<br />

fDOA<br />

EDOA A04100 ,<br />

EDOO C3<br />

2347 DEC<br />

2348 JZ<br />

2349 DEC AH ; AH=S<br />

2350 JZ DISKJORf1AT<br />

2:351 J3:<br />

2352 NOV DISKETTE_STATUS.BAD_CND i ERROR CODE. NO SECTORS TRANSFERRED<br />

2353 RET ; UNDEFINED OPERATION<br />

2354 Jl ENDP<br />

2355<br />

2356 ;------ RESET THE DISKETTE SYSTEM<br />

2357<br />

2358 PROC HEAR<br />

2359 MOV DX.03FZH ; ADAPTER CONTROL PORT<br />

2360 CLl '; NO INTERRUPTS<br />

2361 MOV AL,MOTOR_STATUS I WHICH MOTOR IS ON<br />

236Z HOV CL.4 ; SHIFT CCU~T<br />

2363 SAL AL.CL ; MOVE MOTOR VALUE TO HIGH HYBBLE<br />

2364 TEST Al, tOH I SElECT CORRESPOHOIHG DRIVE<br />

2365 JNZ J5 I JUMP IF MOTOR ONE IS Ot~<br />

2366 TEST AL. 40H<br />

2367 JHZ J4 1 JUMP IF HOTOR TWO IS ON<br />

2:368 TEST AL. SOH<br />

2:369 JZ J6 ; JUMP IF MOTOR ZERO IS ON<br />

2370 IHC Al<br />

2371 J4: ItIC Al<br />

2372 J5: IIle Al<br />

2373 J6: OR AL,S j TURN ON INTERRUPT EHABlE<br />

2374 OUT OX,AL ; RESET TH~ AnAPTER<br />

2375 MOV SEEK_STATUS, 0 ; SET RECAl REQUIRED ON ALL DRIVES<br />

2376 MOV DISKETTE_STATU5.0 j SET OK STATUS FOR DISKETTE<br />

2.377 OR Al.4 ; TURN OFF RESET<br />

2378 OUT DX.Al , TURN OFF THE RESET<br />

2379 STI ; RHNABlE THE INTERRUPTS<br />

2380 CALL CHK_STAT3 ; DO SENSE INTERRUPT STATUS FOLLOWING RESET<br />

USI MOV AL.NEC_STATUS IGNORE ERROR RETURN AND 00 OWN TEST<br />

uat CNP AL,OCOH I TEST FOR DRIVE READY TRANSITION<br />

U83 JZ J7 ; EVERYTHING OK<br />

2384 OR OISKETTE_STATUS.BAO_NEC ; SET ERROf;! CODE<br />

2385<br />

JMP<br />

"..<br />

SHORT J8 ; RESET_RET<br />

2387 ;------ SEND SPECIFY CotR1ANO TO HEC<br />

2388<br />

2389 J7: ; DRIVE_READY<br />

2390 MOY AH,03H ; SPECIFY COMMAND<br />

2391 CALL NEC_OUTPUT ; OUTPUT TH E COMMAND<br />

2:392 MaV ex.l ; FIRST BYTE PARM IN BLOCK<br />

2393 CALL GET_PARM ; TO THE NEe COtHROLLER<br />

2394 MOV I SECOND BYTE PARtl IN BLOCK<br />

2395 CALL ; TO THE NEC COIHROLLER<br />

2396­ 1 RESET_RET<br />

J8:<br />

2397 RET ; RETURN TO CALLER<br />

2398 ENDP<br />

2399<br />

2400 ;------ DISKETTE STATUS ROUTINE<br />

2401<br />

2402 PROC NEAR<br />

2403 NOV AL. DISKETTE_STATUS<br />

2404<br />

2405­ ENDP<br />

2406<br />

A-33

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

Saved successfully!

Ooh no, something went wrong!