IBM 5150 - Page 234

lDC OBJ LINE SOURCE
EF9E E2FE 2946
)43:
lOOP J43
HAD 4A 2947
DfC OX
; pOlin AT STATUS PORT
EFAl EC
2948
IN AL.DX
; GET STATUS
EFA2 A810
2949
TEST AL,OlOH
; TEST FOR NEe STILL BUSY
EFA4 7406 2950 JZ J44
; RESULTS omlE
EFA6 FEes 2951 DEC BL
I DECREMENT THE STATUS COUNTER
EFAS i5CA 2952 JHZ
JJ8
; GO BACK FOR MORE
~ EFAA fBEJ
2953 JMP J41
; CHIP HAS FAILED
2954
2955 ;------ RESULT OPERATION IS DONE
2956
EFAC 2957
J44:
fFAt 58
2958
POP BX
fFAD SA
2959
POP
OX
EFAE 59 2960
POP
ex
; RECOVER REGISTERS
EFAF C3 2961
PET
; GOOD RETURN CODE FROM TEST INST
2962 ; - -- - - - -- ----- ------ ------- -- --- ------ - ------
2963 ; HUH_TRANS
2964 nus ROUTINE CALCULATES THE HUMBER OF SECTORS THAT
2965 WERE ACTUALLY TRANSFERREO TO/FROM THE DISKETTE
2966 INPUT
2967 (CH) = CYLINDER OF OPERArION
2968 I CLl = START SECTOR OF OPERATION
2969 ; OUTPUT
2970 (AU = NUMBER ACTUALLY TRANSFERRED
2971 HO OTHER REGISTERS MODIFIED
2972 ; -- ---- - - ----- ------------ --- -- --- -------- ---
fFBO 2973
Nut1_ TRANS PROC NEAR
EFBO "04500 2974
MOV A.L,NEC_STATUS+3
; GET CYlINDER E~mEO UP ON
EFS3 3AC5
2975
eMP AL.CH
; SANE AS WE STARTED
EFes A04700 2976
MOV AL ,HEC_STATUS+5 GET ENDING SECTOR
EFBS 740.6. 2977
Jl J<5
-; IF ON SAHE cn, THEN NO ADJUST
EFBA
6B0800
2978
HOV
BX,8
HBD E8BOFE 2979
CALL GCT_PARM ; GET EDT VALUE
EFea 8AC4
2980
HOY AL,AH
;
ItHO AL
EFez FEeD 2981
INC AL
;
USE EOT+l fOR CALCULATION
~ EFC42ACl
2982
J45: SUB AL,CL I SUBTRACT START FROM END
EFC6 C3
2983
PET
2984
HUM_TRANS
ENOP
2985
RESUL
T5 ENOP
2986
2987 ; --- -- ---- -- --- -- ---- ------ ----- --- ----------
2';<88 DISK_BASE
2989 THIS IS THE SET OF PARAHETERS REQUIRED FOR
2990 DISKETTE OPERATION. THEY APE POHlTED AT BY THE
i!991 DATA VARIABLE DISK_POINTER. TO MODIFY THE PARAMETERS,
2992
2993
BUILD ANOTHER PARAMETER BLOCK AND POItH AT IT
j------------ _______________________________ _
2994
EFt7 i!995
LABEL BYTE
EFt7 Cf
2996
110011118
; SRT=C. HD UNLOAD=OF - 1ST SPECIFY BYTE
EFCS 02:
2997
08
;
HD lOAO=l, MOOE=DMA - 2ND SPECIFY BYTE
EFC9 2:5 2998
DB
; WAIT AFTER
OPN TIl MOTOR OFF
EFCA 02: 2999
DB
; 512 BYTES/SECTOR
EFCB 06 3000
DB
; EaT ( LAST
SECTOR ON TRACK 1
EFCC 2A
3001
DB 02AH
;
GAP lEt~GTH
EFCD FF 3002
DB
OFfH OIL
fFeE SO 3003
DB
050H
GAP LENGTH FOR FORMAT
EFtF F6
3004
DB
OF6H rIll BYTE FOR fORMAT
EFDO 19
3005
DB
25
HEAD SETTlE TIME I MllLISE'CONDS)
EFOI 04 3006
DB
; NOTOR START TlNE 11/8 SECONDS I
A-41