IBM 5150 Hardware Reference Manual 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 RESULT5 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 r I l l 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