IBM AT 5170 Technical Reference page 286

Table of Contents

Advertisement

19M Persona! Computer MACRO Assembler
VersIon 2.00
1-18
DSKETTE -- 06/10/85
DISKETTE BIOS
06-10 85
190808E1
POPRES:
1909 08E1
5F
POP
01
1910 08E2 C3
RET
;
RETURN WITH CARRY SET
1911 08E3
RESUL TS ENOP
1912
;
------- ------ -- -- - -
-------
------- - ---- - ---- -- - - - ----- ------------ - ---------- ­
1913
; READ_DSKCHNG: READS THE STATE OF THE DISK CHANGE LINE.
1914
;
1915
; ON ENTRY:
01
=
DRIVE II
1916
;
1911
; ON EXIT:
0]
=
DRIVE II
1918
;
ZERO FLAG
=
0 : 0 I SK CHANGE LINE
I NACT
I
VE
1919
;
ZERO FLAG
=
1 :
0 I 51<: CHANGE LINE ACT I VE
1920
;
AX.
ex
,OX DESTROYED
1921
~~~~
-
~~;;~~~
-
---
;~~;
-
--
-
~~~~
- - -
----
- - - - -­
1922 08E3
1923 08E3 E8 06E 1 R
-
CALL
MOTOR ON
TURN ON THE MOTOR
[F OFF
1924 08E6 BA 03F1
MOV
OX. 03F1H
ADDRESS DIGITAL [NPUT REGISTER
1925 08E9 EC
IN
AL,DX
[NPUT DIGITAL INPUT REGISTER
1926 08EA A8 80
TEST
AL,DSK_CHG
CHECK FOR DISK CHANGE LINE ACT I VE
1921 08EC C3
RET
RETURN TO CALLER WITH ZERO FLAG SET
1928 08ED
READ_DSKCHNG
ENDP
1929
1930
;
-
~~ ~ ~~~~~;;
- -
--
~~~~~~~ ~~ ~
-
;~~~~~~ -~~ ~ ~~
-
~;
-
~ ~- ~~
-
~~
-
~~~~;;
-
~~~
-
~;~~~~; -;~~~~
- ­
1931
;
INFORMATION ACCORDINGLY,
1932
1933
i
ON ENTRY;
01
=
DRIVE.
193-4
~~~~~-~~;-------;~~;
-
-- -
~~~~
-- - - - - - -­
1935 05EO
1936 08EO E8 06E 1 R
-
CALL
MOTOR ON
TURN ON MOTOR
I F NOT ALREAOY ON
1931 08FO E8 083E R
CALL
RECAL-
RECALIBRATE DRIVE
1938 08F3 12 3C
,JC
DO BAC
ASSUME NO DR 1 VE PRESENT
1939 08F5 85 30
MOV
CH-;-TRK SLAP
SEEK TO TRACK 48
1940 08F1 E8 010E R
CALL
SEEK ­
19-41
08FA 12 35
,JC
DO BAC
ERROR NO DR I VE
1942 08FC B5 08
MOV
CH-;-QUIET_SEEK+l
SEEK TO TRACK
1 0
1943 oaFE
SK_GIN:
194-4 08FE FE CD
DEC
eH
DECREMENT TO NEXT TRACK
19-450900 51
PUSH
ex
SAVE TRACK
19-46 0901 E8 01DE R
CALL
SEEK
1941 0904 12 2C
JC
POP BAC
POP ANa RETURN
1948 0906 B8 0931
R
"OV
AX.OFFSET DO BAC
LOAD NEC OUTPUT ERROR ADDRESS
1949 0909 50
PUSH
AX
­
1950 090A B4 04
"OV
AH. SENSE DRV ST
SENSE OR I VE STATUS COMMAND BYTE
1951
090C E8 07BO R
CALL
NEC OUTPUT
-
OUTPUT TO NEC
1952 090F 8B CI
"OV
AX.DI
AL
=
DRIVE
1953 0911
8A EO
"OV
AH.AL
AH '" DR I VE
19540913 E8 01BD R
CALL
NEC OUTPUT
OUTPUT TO NEe
1955 0916 E8 08A4 R
CALL
RESDL TS
GO GET STATUS
1956 0919 58
POP
AX
THROW AWAY ERROR ADDRESS
\957 091A 59
POP
ex
RESTORE TRACK.
1958 0918 F6 06 0042 R 10
TEST
"'NEC STATUS ,HOME
TRACK 0 '(
1959 0920 74 DC
JZ
SK
GIN
GO TI LL TRACK 0
1960 0922 OA ED
OR
CH-;-CH
]S HOME AT TRACK 0 '(
1961 09241406
JZ
15_80
MUST BE 80 TRACK OR] VE
1962
1963
DRIVE
[5 A 360;
SET DRIVE TO DETERMINED;
1964
SET MEDIA TO DETERMINED AT RATE 250.
1965
1966 0926 80 80 0090 R 94
OR
1961 0928 C3
RET
1968
1969 092C
1910
092C 80 80 0090 R 01
OR
.OSK_STATE[D[],TRK_CAPA; SETUP 80 TRACK. CAPABILITY
1911 0931
1912 0931
C3
RET
1913
1914 0932
POP BAC:
1915 0932 59
-
POP
CX
THROW AWAY
1916 0933 C3
RET
1917
1918 0934
OR I VE _ DET
ENDP
5-114
DISKETTE

Advertisement

Table of Contents
loading

Table of Contents