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.

lDC OBJ LINE SOURCE<br />

EF9E E2FE 2946 )43: lOOP J43<br />

HAD 4A 2947 DfC OX ; pOlin AT STATUS PORT<br />

EFAl EC 2948 IN AL.DX ; GET STATUS<br />

EFA2 A810 2949 TEST AL,OlOH ; TEST FOR NEe STILL BUSY<br />

EFA4 7406 2950 JZ J44 ; RESULTS omlE<br />

EFA6 FEes 2951 DEC BL I DECREMENT THE STATUS COUNTER<br />

EFAS i5CA 2952 JHZ JJ8 ; GO BACK FOR MORE<br />

~ EFAA fBEJ 2953 JMP J41 ; CHIP HAS FAILED<br />

2954<br />

2955 ;------ RESULT OPERATION IS DONE<br />

2956<br />

EFAC 2957 J44:<br />

fFAt 58 2958 POP BX<br />

fFAD SA 2959 POP OX<br />

EFAE 59 2960 POP ex ; RECOVER REGISTERS<br />

EFAF C3 2961 PET ; GOOD RETURN CODE FROM TEST INST<br />

2962 ; - -­- - - -­----­-­-­-­------­-­--­-­-­-­- --­--­<br />

2963 ; HUH_TRANS<br />

2964 nus ROUTINE CALCULATES THE HUMBER OF SECTORS THAT<br />

2965 WERE ACTUALLY TRANSFERREO TO/FROM THE DISKETTE<br />

2966 INPUT<br />

2967 (CH) = CYLINDER OF OPERArION<br />

2968 I CLl = START SECTOR OF OPERATION<br />

2969 ; OUTPUT<br />

2970 (AU = NUMBER ACTUALLY TRANSFERRED<br />

2971 HO OTHER REGISTERS MODIFIED<br />

2972 ; -­---­ - - ----­-­-­-­-­-­-­--­-­--­---­---­--­<br />

fFBO 2973 Nut1_TRANS PROC NEAR<br />

EFBO "04500 2974 MOV A.L,NEC_STATUS+3 ; GET CYlINDER E~mEO UP ON<br />

EFS3 3AC5 2975 eMP AL.CH ; SANE AS WE STARTED<br />

EFes A04700 2976 MOV AL ,HEC_STATUS+5 GET ENDING SECTOR<br />

EFBS 740.6. 2977 Jl J

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

Saved successfully!

Ooh no, something went wrong!