IBM 5150 - Page 158

LOC OBJ
feSA S3
EC58 51
Eesc IE
Ee50 56
ECSf 57
ECSF 55
Ee60 52
fe6l saEe
fe63 f8D812
Ee66 f81COO
£C69
880400
ECbe E8FDDI
EC6F 88264000
feB 6A26410Q
fe77 eo FeD I
Ee7A F5
Ee7B SA
Ee7t 50
EC70 SF
Ee7f 5f
Ee7F IF
fceo S9
EC81 58
fC82 CA0200
EC65
EC85 BAFD
Ee87 80263F007F
feec OAE4
ECSE 7427
£C90 fEee
£C92 7473
EC94 C606410000
£C99 80FA04
EC9C 7313
EC<;IE FEee
ECAO 7469
ECAl FEee
ECA4 7503
ECAb E99500
ECA9
ECA9 FEee
£CAB
7467
ECAD FEee
ECAF 7467
ECSI
ECBl
C606410001
EeM C3
ECB7
feB7 BAF201
ftBA fA
ECBB A03FOO
fCSE 8104
Eeeo 02EO
fCC2 A820
ECC4 750C
Eceb A840
Ecce 7506
ECCA A680
Ecce 7406
ECCE FEeD
ECDO
ECDO FEeD
fCD2
fC02 FEeD
ECD4
ECD4 ocoe
fC06 EE
EC07 C6063£0000
ECOC C606410000
feEl OC04
fcn EE
LINE SOURCE
2464
PUSH BX ; SAVE ADDRESS
2485
PUSH CX
2486
PUSH OS
; SAVE SEGMENT REGISTER VALUE
2487 PUSH SI
; SAVE All REGISTERS ~URING OPERATION
2488
PUSH 01
2489
PUSH BP
2490
PUSH ox
2491
tIDV BP,SP
J SET
UP POINTER TO HEAD PARM
2492
CAll DDS
2493
CAll Jl J CAll THE REST TO ENSURE OS RESTORED
2494
I10V BX,4 J GET THE MOTOR WAIT PARAMETER
2495
tALL GET_PARH
2496
MOV HOTOR_COUNT ,AH
, SET
THE TIMER COUNT FOR THE MOTOR
2497
MOV AH,DISKETTE_STATUS ; GET STATUS OF OPERATION
2496
CMP AH,I
; SET
THE CARRY FLAG TO INDICATE
2499
CMC I SUCCESS OR FAILURE
2500
POP OX
;
RESTORE All REGISTERS
2501
POP BP
2502
pop
01
2503
pop
51
2504
POP OS
2505
POP CX
2506
pop
BX
J
RECOVER ADDRESS
2507 OET
2
I THROW AWAY SAVED FLAGS
2508
DISKETTE_IO
ENOP
2509
2510 J1 PROC NEAR
2511 MOV DH,Al
,
SAVE I SECTORS IN DH
2512
AND
MOTOR_STATUS,07FH
I INDICATE A READ OPERATION
2513 OR
AH,AH
; "H=O
2514
JZ
DISK_RESET
2515
DEC AH I AH=1
2516
JZ
2517
ttoV DISKETTE_STATUS,O I RESET THE STATUS INDICATOR
2518
CMP Dl.4
I TEST
FOR DRIVE IN 0-3 RANGE
2519
JAE J3 I ERROR IF ABOVE
2520
DEC AH
; AH=2
2521 JZ DISK_READ
2522
DEC
AH
; AH:03
2523 JNZ
J,
I TEST_DISK_VERF
2524
JMP DISK_WRITE
2525
J2:
; TEST_DISK_VERF
2526
DEC AH
, AH=4
2527
JZ
DISK_VERF
2526
DEC AH
I AH=5
2529
JZ DISKJORMAT
2530 J3:
2531
ttoV
DISKETTE_STAnJS.BADStID I ERROR COCE. NO SECTORS TRANSFERRED
2532
RET I UNDEFINED OPERATION
2533
J1
ENOp
2534
2535 j----- RESET THE DISKETTE SYSTEM
2536
2537
PRot NEAR
2536
OX,03F2H
I
ADAPTER COHrnOl PORT
2539
CLI ; NO INTERRUPTS
2540
;
.... ICH MOTOR IS ON
2541
HoY
Cl,4
I SHIFT COUNT
2542
SAL Al.Cl
I MOVE MOTOR VAlUE TO HIGH NYBBlE
2543
TEST Al. 20H ; SELECT CORRESPOHDING DRIVE
2544
JNZ
J5
J
JUMP IF MOTOR ONE IS ON
2545
TEST Al. 40H
2546
JNZ
J4
; JUMP IF MOTOR TWO IS ON
2547
TEST Al, 60H
2548
JZ J6
i JUMP IF MOTOR ZERO IS ON
2549
INC
AL
2550
J4:
2551
INC
AL
2552 J5:
2553
INC
AL
2554
J6:
2555
00 AL.a , T~N ON INTERRUPT ENABLE
2556
IXJT DX.Al
I RESET
THE ADAPTER
2557 MOV
SEEK_STATUS ,0
i SET RECAl REQUIRED ON All DRIVES
255a MOV
DISKETTE_STATUS ,0
;
SET OK' STATUS FOR DISKETTE
2559
OR Al,4
;
TURN OFF RESET
2560
OUT DX,At
; TURN OFF THE RESET
System BIOS 5-65