Atari 400 Technical Reference Manual page 323

ERR LINE ADDR B1 B2 B3 B4 DISK
*****
DISKP.SRC
*****
3/9/79
*****
4:00:00 PAGE 62
2782
2783
2784
2785
2786 DISK INTERFACE INITIALIZATION ROUTINE
2787
2788 EDEA A9 AO DINIT: LDA #160
2789 EDEC 8D 46 02 STA DSKTIM iSET INITIAL DISK TIMEOUT TO 160 SEC
2790 EDEF 60 RTS
2791
2792
2793
2794 DISK INTERFACE ENTRY POINT
2795
2796
EDFO
A9 31
DSKIF: LDA IDISKID
2797
EDF2
80 00 03
STA DDEVIC iSET SERIAL BUS I.D IN DCB
2798 EDF5 AD 46 02 LDA DSKTIM
2799
EDF8
AE 02 03 LDX DCOMND
2800 EDFB EO 21 CPX IFOMAT
i
IS COMMAND A FORMAT COMMAND?
2801 EDFD FO 02 BEG PUTDTO
2802 EDFF A9 07 LDA
#7
i
NO, SET TIMEOUT TO 7 SECS.
2803 EEOl 8D 06 03 PUTDTO: STA DTIMLO iPUT DISK TIMEOUT IN DCB
2804 EE04 A2 40 LDX #GETDAT iSET "GET DATA" COMMAND FOR SIO
2805
EE06 AO 80 LDY #$80 iSET BYTE COUNT TO 128
2806 EE08 AD 02 03 LDA DCOMND iREAD COMMAND IN DCB
2807 EEOB C9 57 CMP #WRITE
i
IS COMMAND A "PUT SECTOR" COMMAND?
2808 EEOD DO 02 BNE CKSTC
2809 EEOF A2 80 LDX #PUTDAT
i
YES, SET "PUT DATA" COMMAND FOR SID
2810 EE11 C9 53 CKSTC: CMP #STATC
i
IS COMMAND A STATUS COMMAND?
2811 EE13 DO OC BNE PUTCNT
2812
EE15
A9 EA LDA
#STATVL
2813 EE17 80 04 03 STA DBUFLO
2814 EE1A
A9 02
LDA #STATVH
2815
EE1C
8D 05 03 STA DBUFHI iSET BUFFER ADDR TO GLOBAL STATUS BUFFER
2816 EE1F AO 04 LDY #4 iYES, SET BYTE COUNT TO 4
2817 EE21 8E 03 03 PUTCNT: STX DSTATS iPUT STATUS COMMAND FOR SID IN DCB
2818 EE24 8C 08 03 STY DBYTLO
2819 EE27 A9 00 LDA #0
2820 EE29 8D 09 03 STA DBYTHI iPUT BYTE COUNT IN DCB
2821 EE2C 20 59 E4 .JSR SIOV
i
CALL SER IAL
1/0.
2822
EE2F
10 01
BPL
GOODST
i
NO ERROR
2823 EE31 60 RTS
i NO, GO BACK
2824
EE32
AD 02 03
GOODST: LDA
DCOMND
iREAD THE COMMAND
2825 EE35 C9 53 CMP #STATC iWAS IT A STATUS COMMAND?
2826 EE37 DO OA BNE PUTBC
2827 EE39 20 6D EE .JSR PUTADR iPUT BUFFER ADDR IN TEMP REG .
2828 EE3C AO 02 LDY #2
2829 EE3E 81 15 LDA
(BUFADR), Y
iREAD DISK TIMEOUT VALUE BYTE OF STATUS
2830 EE40
8D 46 02
STA DSKTIM iPUT IT IN DISK TIMEOUT REG.
2831 EE43 AD 02 03 PUTBC: LDA DCOMND
2832 EE46 C9 21 CMP #FOMAT iWAS COMMAND A FORMAT COMMAND?
2833 EE48 DO 1F BNE ENDDIF
2834 EE4A 20 6D EE FMTD: .JSR PUTADR
i
YES, PUT BUFFER ADDR INTO TEMP REG
2835 EE4D AO FE LDY #$FE iSET BUFFER POINTER