URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [sys09bug/] [sys09ide.asm] - Blame information for rev 189

Go to most recent revision | Details | Compare with Previous | View Log


*
** SYS09BUG MONITOR EXTENSIONS
*
* FOR SYS09BUG ON THE XESS XSA-3S100 / XST-3.0
* WITH I/O MAPPED AT $XE000
* 16 BIT IDE MAPPED AT $E100
* AND ROM MAPPED AT $XF000
*
*
 PAGE
*
***************************************************
* Serial PROM register
***************************************************
*
** CONFIGURATION PROM DEFINITIONS
*
PROMREG EQU MONIO+$C0
PCLKHI  EQU $01     Toggle PROM Clock High
PCLKLO  EQU $00     Toggle PROM Clock Low
PRSTHI  EQU $02     Toggle PROM Reset High
PRSTLO  EQU $00     Toggle PROM Reset Low
SYNCHI  EQU $AA55   Synch Pattern High Word
SYNCLO  EQU $FF00   Synch Pattern Low Word
*
*
***************************************************
*   START OF ROM                                  *
***************************************************
*
MONITV EQU MONROM+0  FDB MONITOR
NXTCMV EQU MONROM+2  FDB NEXTCMD
INCHV  EQU MONROM+4  FDB INCH
INCHEV EQU MONROM+6  FDB INCHE
INCHKV EQU MONROM+8  FDB INCHEK
OUTCHV EQU MONROM+10 FDB OUTCH
PDATAV EQU MONROM+12 FDB PDATA
PCRLFV EQU MONROM+14 FDB PCRLF
PSTRGV EQU MONROM+16 FDB PSTRNG
LRAV   EQU MONROM+18 FDB LRA
*
* Condition code flags
*
CFLAG   EQU $01     CARRY FLAG
VFLAG   EQU $02     OVERFLOW FLAG
ZFLAG   EQU $04     ZERO FLAG
NFLAG   EQU $08     NEGATIVE FLAG
IFLAG   EQU $10     IRQ MASK CC
HFLAG   EQU $20     HALF CARRY
FFLAG   EQU $40     FIRQ MASK CC
EFLAG   EQU $80     ENTIRE FLAG
*
* Serial Port
*
ACIAC1  EQU ACIAS
ACIAD1  EQU ACIAS+1
DELCON  EQU 1250    Delay (Processor clock in MHz * 50)
*
* XMODEM Control characters
*
SOH     EQU $01
EOT     EQU $04
ACK     EQU $06
NAK     EQU $15
CAN     EQU $18
*
* Some Disk Constants
*
RMAXTRK EQU 256
RMAXSEC EQU 255
RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC
*
* RAM SPACE
*
* PUT THIS DOWN THE BOTTOM OF MEMORY
*
        ORG  $0100
DRVNUM  RMB 1
TRACK   RMB 1
SECTOR  RMB 1
CHKSUM  RMB 1
BLKNUM  RMB 1 Xmodem block number
BYTCNT  RMB 1 Xmodem byte count
XSTATE  RMB 2 Xmodem State Vector
DELCNT  RMB 3  $00,$00,$00 Xmodem Poll timer
MAXTRK  RMB 1
MAXSEC  RMB 1
        ORG  $0200
*
* SECTOR BUFFER
*
BUFFER  RMB  256
*
****************************************
*
* START OF EXTENSION COMMANDS
*
****************************************
*
        ORG MONEXT
        FDB NEXTEXT   Jump to next extended command
*
***** NEXTCMD *****
*
NEXTEXT JSR [INCHEV]  GET ONE CHAR. FROM TERMINAL
        ANDA #$7F STRIP PARITY FROM CHAR.
        TFR  A,B
        LDA  #$20
        JSR [OUTCHV] PRNT SPACE
        CMPB #$60
        BLE NXTEX0
        SUBB #$20
*
***** DO TABLE LOOKUP *****
*   FOR COMMAND FUNCTIONS
*
NXTEX0  LDX #EXTTAB    POINT TO JUMP TABLE
NXTEX1  CMPB ,X+       DOES COMMAND MATCH TABLE ENTRY ?
        BEQ  JMPEXT    BRANCH IF MATCH FOUND
        LEAX 2,X       POINT TO NEXT ENTRY IN TABLE
        CMPX #EXTEND   REACHED END OF TABLE YET ?
        BNE  NXTEX1    IF NOT END, CHECK NEXT ENTRY
        LDX  #MSGWHAT  POINT TO MSG "WHAT?"
        LBRA PDATA1    PRINT MSG AND RETURN
JMPEXT  JMP  [,X]      JUMP TO COMMAND ROUTINE
*
* EXTENDED COMMAND JUMP TABLE
*
EXTTAB EQU *
       FCC 'B'   BOOT FLEX
       FDB UBSUB
       FCC 'F'   FORMAT IDE DISK
       FDB UFSUB
       FCC 'X'   XMODEM ROM DISK UPLOAD
       FDB UXSUB
*
EXTEND EQU *
*
MSGWHAT FCC "WHAT ?"
        FCB $0A,$0D,$04
*
* GO TO FLEX RESIDENT IN MEMORY
*
UBSUB   LDX #$CD00
        STX 10,U
        TFR  U,S
        RTI
*
* recieve char from remote drive.
* timeout if no response for approx 1s.
* Entry: no parameters
* Exit:  (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.
*
RCHAR   PSHS    X,Y
*
        LDX     #1000         1000x inner loop
RCHAR1  LDY     #DELCON       delay constant for inner loop (approx 1ms).
RCHAR2  LDA     ACIAC1        test for recieved char
        ASRA
        BCS     RCHAR3        get character
        LEAY    -1,Y          else, continue to count delay
        BNE     RCHAR2
        LEAX    -1,X
        BNE     RCHAR1
        PULS    X,Y,PC        return with error if timed out
*
RCHAR3  LDA     ACIAD1        return data (carry bit still set)
        PULS    X,Y,PC
*
*
* transmit char to remote drive.
* timeout if no response for approx 1s. (allows for use of hardware flow control)
* Entry: (A) = char to transmit
* Exit:  (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.
*
SCHAR   PSHS    X,Y
        PSHS    A
*
        LDX     #1000         1000x inner loop
SCHAR1  LDY     #DELCON       delay constant for inner loop (approx 1ms).
SCHAR2  LDA     ACIAC1        test for space in transmit FIFO
        ASRA
        ASRA
        BCS     SCHAR3        send character
        LEAY    -1,Y          else, continue to count delay
        BNE     SCHAR2
        LEAX    -1,X
        BNE     SCHAR1
        PULS    A
        PULS    X,Y,PC        return with error if timed out
*
SCHAR3  PULS    A
        STA     ACIAD1        send data (carry bit still set)
        PULS    X,Y,PC
*
** 'UF' Format IDE Drive to FLEX standard.
*
DISFOS  FCB $0A,$0D
        FCC 'Formating IDE disk... '
        FCB $0A,$0D
        FCC 'Drive Number ?'
        FCB 4
MESS6   FCB $0A,$0D,4
        FCC 'IDE drive not allocated! '
        FCB 4
UFMSG1  FCB $0A,$0D
        FCC 'Format Complete'
        FCB 4
VOLMSG  FCC 'IDEDISK '
        FCB 4
*
UFSUB   JSR  INITDR
        LDX #DISFOS
        JSR PDATA1
UFSUB1  LBSR RCHAR
        BCC  UFSUB1
        LBSR SCHAR
        CMPA #'0'
        LBLO UFEXIT
        CMPA #'3'
        LBHI  UFEXIT
        SUBA #'0'
        TFR  A,B
        STB DRVNUM
        LDX #DRVNUM-3
        JSR DRVSEL
*
* set up free chain
*
        LDX #BUFFER clear out buffer
        CLRA
        CLRB
DFL1    STA 0,X+
        DECB
        BNE DFL1
*
        CLR TRACK
        LDA #1
        STA SECTOR
DFL2    LDX #BUFFER
        LDA TRACK
        STA 0,X
        LDA SECTOR
        INCA
        CMPA #RMAXSEC+1 last sector on track?
        BNE DFL3
        INC 0,X
        LDA #1
DFL3    STA 1,X
        LDA TRACK
        LDB SECTOR
        JSR WRITSC
        INC SECTOR
        LDA SECTOR
        CMPA #RMAXSEC+1
        BNE DFL2
        LDA #1
        STA  SECTOR
        INC TRACK
        LDA TRACK
        CMPA #RMAXTRK
        BNE DFL2
* break free chain at last track/sector
        LDX  #BUFFER
        LDA  #RMAXTRK-1
        LDB  #RMAXSEC
        JSR  READSC
        LDX  #BUFFER
        CLR  0,X
        CLR  1,X
        LDA  #RMAXTRK-1
        LDB  #RMAXSEC
        JSR  WRITSC
* set up sector structure, SIR, directory etc
        LDX  #BUFFER
        CLRA
        LDB  #RMAXSEC
        JSR  READSC
        LDX  #BUFFER
        CLR  0,X break end of directory chain
        CLR  1,X
        CLRA
        LDB  #RMAXSEC
        JSR  WRITSC
*
        LDX  #BUFFER
        CLRA
        LDB  #3 set up SIR
        JSR  READSC
        LDX  #BUFFER
        CLR  0,X break forward link
        CLR  1,X
*
        PSHS Y
        LDY  #VOLMSG
        LDB  #16
DFL4    LDA  ,Y+
        STA  B,X
        INCB
        CMPB #24
        BNE  DFL4
        PULS Y
*
        CLRA
        LDB  DRVNUM volume number
        STD  27,X
*
        LDD  #$0101 first trk/sec  01-01
        STD  29,X
        LDA  #RMAXTRK-1
        LDB  #RMAXSEC
        STD  31,X
        STD  38,X
        LDD  #RTOTSEC total DATA sectors (2912-14)
        STD  33,X
*
        LDA #01 month   set default creation date (SYS09's birthday!)
        STA 35,X
        LDA #07 day
        STA 36,X
        LDA #07 year
        STA 37,X
*
RF3     CLRA
        LDB  #3
        JSR  WRITSC
*
* Not sure what this is about
* put bootstrap on track 0 sector 1
*
*        LDX #BUFFER
*        CLRA
*        LDB #1
*        JSR READSC
*        LDX #BUFFER
*        LDA #$AA set the init flag
*        STA 0,X
*        LDA  #$55
*        STA 1,X
*        CLRA
*        LDB #1
*        JSR WRITSC
*
*  Write Boot sector
*
        LDX  #BOOT
        CLRA         TRACK 0
        LDB  #$01    SECTOR 1
        STA  TRACK
        STB  SECTOR
        LBSR WRITSC
*
UFEXIT  LDX #UFMSG1
        JMP PDATA1
*
* ACIA INPUT TEST
*
INTEST  LDA ACIAC1
        BITA #$01
        RTS
*
* RESET ACIA
*
ACIRST  LDA #$03 master reset
        STA  ACIAC1
        LDA #$11
        STA ACIAC1
        RTS
*
* ACIA INPUT
*
INTER   LDA  #16
        STA  DELCNT+0
        CLR  DELCNT+1
        CLR  DELCNT+2
INTER0  LDA  ACIAC1
        BITA #$01
        BNE  INTER1
        BITA #$78
        BEQ  INTER2
        BSR  ACIRST
        BRA  INTER
*
INTER1  LDA  ACIAD1
        ANDCC #$FF-VFLAG
        RTS
*
INTER2  DEC  DELCNT+2
        BNE  INTER0
        DEC  DELCNT+1
        BNE  INTER0
        DEC  DELCNT+0
        BNE  INTER0
        CLRA
        ORCC #VFLAG
        RTS
*
* ACIA OUTPUT
*
OUTTER  PSHS A
*
OUTTE1  LDA ACIAC1
        BITA #$02
        BNE  OUTTE2
        BITA #$78
        BEQ  OUTTE1
        BSR  ACIRST
        BRA  OUTTE1
*
OUTTE2  PULS A
        STA ACIAD1
        RTS
*
* Print Data
*
PDATA0  BSR  OUTTER
PDATA1  LDA  ,X+
        CMPA #$04
        BNE  PDATA0
        RTS
*
*
** 'UX' Xmodem IDE Disk upload
*
UXMES0  FCB $0D,$0A
        FCC 'Xmodem IDE Disk Upload'
        FCB 4
UXMES1  FCB $0D,$0A
        FCC 'Upload Complete'
        FCB 4
UXMES2  FCB $0D,$0A
        FCC 'Upload Error'
        FCB 4
UXMSG3  FCB $0D,$0A
        FCC 'Drive Number :'
        FCB 4
UXMSG4  FCB $0D,$0A
        FCC 'Are You Sure ? (Y/N)'
        FCB 4
*
* Print Banner
*
UXSUB   LDX #UXMES0
        LBSR PDATA1
*
* Prompt for Disk drive number (0 to 3)
*
        LDX #UXMSG3
        LBSR PDATA1
UXSUB1  LBSR INTER
        BVS  UXSUB1
        LBSR OUTTER
        CMPA #'0
        LBLO UXEXIT
        CMPA #'3
        LBHI UXEXIT
        SUBA #'0
        STA  DRVNUM
*
* Report selected drive
*
        LDX #UXMSG3
        LBSR PDATA1
        LDA  DRVNUM
        ADDA #'0
        LBSR OUTTER
*
* Ask for confirmation (Y/N)
*
        LDX #UXMSG4
        LBSR PDATA1
UXSUB2  LBSR INTER
        BVS  UXSUB2
        LBSR OUTTER
        ANDA #$5F
        CMPA #'N
        LBEQ UXEXIT
        CMPA #'Y
        BNE  UXSUB
*
* We have confirmation ... now load the disk image
*
        LBSR INITDR
        LDU  #XSTST
        STU  XSTATE
        LDA  #1
        STA  BLKNUM
*
* Sector1
*
        LDX  #BUFFER
*
        CLRA         TRACK 0
        LDB  #$01    SECTOR 1
        STA  TRACK
        STB  SECTOR
*
        LBSR XREAD
        LBCS UXERR
        LBSR XACK
        LBSR XREAD
        LBCS UXERR
*
        LDX  #BUFFER
        LDA  TRACK
        LDB  SECTOR
        LBSR WRITSC
        LBSR XACK
*
* Sector 2
*
        LDX  #BUFFER
*
        LDA  TRACK
        LDB  SECTOR
        INCB
        STA  TRACK
        STB  SECTOR
*
        LBSR XREAD
        LBCS UXERR
        LBSR XACK
        LBSR XREAD
        LBCS UXERR
*
        LDX  #BUFFER
        LDA  TRACK
        LDB  SECTOR
        LBSR WRITSC
*
        LBSR XACK
*
* Sector 3 - SIR
*
        LDX  #BUFFER
*
        LDA  TRACK
        LDB  SECTOR
        INCB
        STA  TRACK
        STB  SECTOR
*
        LBSR XREAD
        LBCS UXERR
        LBSR XACK
        LBSR XREAD
        LBCS UXERR
*
        LDX  #BUFFER
        LDA  38,X
        INCA
        STA  MAXTRK
        LDB  39,X
        INCB
        STB  MAXSEC
        LDA  TRACK
        LDB  SECTOR
        LBSR WRITSC
*
        LBSR XACK
*
* Sector 4 to Last Track & Sector
*
*
        LDA  TRACK
        LDB  SECTOR
        INCB
*
UXLOOP  LDX  #BUFFER
        STA  TRACK
        STB  SECTOR
*
        LBSR XREAD
        LBCS UXERR
        LBSR XACK
        LBSR XREAD
        LBCS UXERR
*
        LDX  #BUFFER
        LDA  TRACK
        LDB  SECTOR
        LBSR WRITSC
        LBSR XACK
*
        LDA  TRACK
        LDB  SECTOR
        INCB
        CMPB MAXSEC
        BNE  UXLOOP
        LDB  #1
        INCA
        CMPA MAXTRK
        BNE  UXLOOP
*
*
*  Write Boot sector
*
        LDX  #BOOT
        CLRA         TRACK 0
        LDB  #$01    SECTOR 1
        STA  TRACK
        STB  SECTOR
        LBSR WRITSC
*
UXEXIT  LDX  #UXMES1
        JMP  PDATA1
*
UXERR   LDX  #UXMES2
        LBRA PDATA1
*
* Get a Byte using XModem protocol
* Carry clear => no errors
* Carry set   => errors
*
XREAD   PSHS U
        LDU  XSTATE
*
XBYTE0  LBSR INTER
        BVC  XBYTE1
        LDA  #NAK
        LBSR OUTTER
        LDU  #XSTST
        BRA  XBYTE0
*
XBYTE1  JSR  ,U
        BNE  XBYTE0
        STU  XSTATE
        PULS U,PC
*
* START - LOOK FOR SOH (START OF HEADER) = $01
*
XSTST   CMPA #SOH
        BNE  XSTST1
        LDU  #XSTBL
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
XSTST1  CMPA #EOT
        BNE  XSTST2
        LDA  #ACK
        LBSR OUTTER
        ORCC  #CFLAG+ZFLAG  Set (c)=1 abort & exit
        RTS
*
XSTST2  CMPA #CAN
        BNE  XSTST3
        ORCC  #CFLAG+ZFLAG  Set (c)=1 abort & exit
        RTS
*
XSTST3  ANDCC #$FF-CFLAG-ZFLAG
        RTS
*
* Got SOH
* Now get block number
*
XSTBL   CMPA BLKNUM
        BNE  XSTBLE
        LDU  #XSTCOM
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Error in block number
*
XSTBLE  LDA  #NAK
        LBSR OUTTER
        LDU  #XSTST
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Get complement of block number
*
XSTCOM  COMA
        CMPA BLKNUM
        BNE  XSTBLE
        CLR  CHKSUM
        LDA  #128
        STA  BYTCNT
        LDU  #XSTDA
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Get data bytes
*
XSTDA   PSHS A
        ADDA CHKSUM
        STA  CHKSUM
        PULS A
        DEC  BYTCNT
        BNE  XSTDA1
        LDU  #XSTCK
XSTDA1  STA  ,X+
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
* Byte count reached zero
* Check checksum byte
*
XSTCK   CMPA CHKSUM
        BNE  XSTCK1 retry if wrong checksum
*
* Checksum OK ...
* increment block number
* Don't send ACK until data written to CF
*
        INC  BLKNUM
        LDU  #XSTST
        ANDCC #$FF-CFLAG No abort
        ORCC #ZFLAG      Valid data (exit)
        RTS
*
* Checksum Error detected ...
* Reset Sector counter in ACCB to last 128 byte boundary
* and send NAK
*
XSTCK1  PSHS B
        TFR  X,D
        DECB
        ANDB #128
        TFR  D,X
        PULS B
        LDA  #NAK
XSTCK2  LBSR OUTTER
        LDU  #XSTST
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
* Acknowledge Data Received
*
XACK    PSHS A
        LDA  #ACK
        LBSR OUTTER
        PULS A,PC
*
*
** FLEX 9 IDE DISK DRIVERS
*
* FOR SYS09BUG 1.2 ON THE XSA-3S1000
* WITH I/O MAPPED AT $XE000
* AND ROM MAPPED AT $XF000
*
*
* INITIALIZE CF CARD FOR 8 BIT LBA MODE
*
INITDR LDD #AUXRESET
       STD CF_AUX
       LDD #AUXRSTREL
       STD CF_AUX
       LDD  #HEADLBA
       STD  CF_HEAD
       LBRA WTRDY
*
* RESTORE DISK DRIVER (SEEK TRACK 00)
*
RESTR1 BSR   DRVSEL
       CLRA           ; Track 0
       LDB   #$01     ; Sector 1
*
* Seek track and sector
* A holds track number (0 - ??)
* B holds sector number (1 - ??)
* Sector numbers starts from 1
* subtract 1 to start from sector 0 on CF
*
SEEKTS PSHS A
       CLRA
       DECB
       STD  CF_SECNUM
       LDB ,S
       STD  CF_CYLLO
       LDB  DRVNUM
       STD  CF_CYLHI
       LDB  #$01
       STD  CF_SECCNT
       CLRB
       PULS A,PC
*
* READ SECTORS FROM CF
*
*
READSC BSR  SEEKTS
       LDD  #CMDREAD ; IDE READ MULTIPLE
       STD  CF_COMAND
       LBSR  WTRDY
*
* READ LOOP
*
       PSHS Y
       LDY #256
RDLP1  LBSR  WTDRQ
       LDD  CF_DATA
       STB  ,X+
       LEAY -1,Y
       BNE  RDLP1
       PULS Y
*
       LBSR  WTRDY
       CLRB
       RTS
*
* WRITE SECTOR TO CF
*
WRITSC BSR  SEEKTS   ; SEEK TRACK & SECTOR
       LDD  #CMDWRITE ; IDE WRITE MULTIPLE
       STD  CF_COMAND
       LBSR  WTRDY
*
* WRITE LOOP
*
       PSHS Y
       LDY #256
       CLRA
WRTLP1 LBSR  WTDRQ
       LDB  ,X+
       STD  CF_DATA
       LEAY -1,Y
       BNE  WRTLP1
       PULS Y
*
       LBSR  WTRDY
       CLRB
       RTS
*
* DRIVE SELECT DISK DRIVER
*
DRVSEL LDA   3,X       GET DRIVE # FROM FCB
       CMPA  #3
       BLS   DRVS2     IF > 3, SET IT TO 0
       CLRA
DRVS2  STA   DRVNUM
       CLRB            ; SET Z, CLEAR C
       RTS
*
* CHECK DRIVE READY DISK DRIVER
*
CHKDRV LDA  3,X
       CLRB             ; CLEAR C, SET Z
       RTS
*******************************************************
*
* Bootstrap FLEX Loader
*
* SBUG1.8 loads the bootstap loader at $C000
* however the Flex adaption manual has the
* bootstrap loader residing at $C100
* Bootstrap Loader is position independent code
*
******************************************************
*
* Equates
*
BSSTACK EQU $C0FF
SCTBUF  EQU $C300
*
* Start of Utility
*
        ORG MONEXT+$0700
BOOT    BRA BLOAD0
        FCB 0,0,0
TRK     FCB 0        File start track
SCT     FCB 0        File start sector
DNS     FCB 0        Density Flag (not used)
TADR    FDB $C000    Transfer address
LADR    FDB 0        Load Address
DRNUM   FCB 0        Drive number 0
*
BLOAD0  LDS  #BSSTACK   Set up Bootstrap stack
        LDD  TRK,PCR    Set up start track and sector
        STD  SCTBUF
        LDY  #SCTBUF+256
*
* Perform actual file load
*
BLOAD1  BSR GETCH    Get acharcater
        CMPA #$02    Data record hearder ?
        BEQ  BLOAD2   Skip, is so
        CMPA #$16    Xfr address hearder ?
        BNE BLOAD1    Loop if neither
*
* Get transfer address
*
        BSR  GETCH
        STA  TADR,PCR
        BSR  GETCH
        STA  TADR+1,PCR
        BRA  BLOAD1
*
* Load data record
*
BLOAD2 BSR  GETCH  Get load address
       STA  LADR,PCR
       BSR  GETCH
       STA  LADR+1,PCR
       BSR  GETCH  Get Bytes count
       TFR  A,B
       TSTB
       BEQ  BLOAD1 Loop if count = 0
       LDX  LADR,PCR  Get load address
BLOAD3 PSHS B,X
       BSR  GETCH  Get data character
       PULS B,X
       STA  ,X+    Store at load address
       DECB
       BNE  BLOAD3  Loop until count = 0
       BRA  BLOAD1
*
* Get Character routine
* Reads a sector if needed
*
GETCH  CMPY #SCTBUF+256 out of data ?
       BNE  GETCH4      Go read Character if not
GETCH2 LDX  #SCTBUF     Point to buffer
       LDD  0,X         Get forward Link
       BEQ  GOFLEX      if zero, file is loaded
       BSR  READ        Read next sector
       BNE  BOOT        start over if error
       LDY  #SCTBUF+4   Point past link
GETCH4 LDA  ,Y+         Else, get a character
       RTS
*
* File is loaded, Jump to it
*
GOFLEX JMP  [TADR,PCR]      Jump to transfer address
 
*
** FLEX 9 IDE DISK DRIVERS
*
* Seek track and sector
* A holds track number (0 - ??)
* B holds sector number (1 - ??)
* Sector numbers starts from 1
* subtract 1 to start from sector 0 on CF
*
SEEK   PSHS A
       CLRA
       DECB
       STD  CF_SECNUM
       LDB  ,S
       STD  CF_CYLLO
       LDB  DRNUM,PCR
       STD  CF_CYLHI
       LDB  #$01
       STD  CF_SECCNT
       CLRB
       PULS A,PC
*
* READ SECTORS FROM CF
*
*
READ   BSR  SEEK
       LDD  #CMDREAD ; IDE READ MULTIPLE
       STD  CF_COMAND
       BSR  WTRDY
*
* READ LOOP
*
       PSHS Y
       LDY #256
READ1  BSR  WTDRQ
       LDD  CF_DATA
       STB  ,X+
       LEAY -1,Y
       BNE  READ1
       PULS Y
*
       BSR  WTRDY
       CLRB
       RTS
*
* WAIT UNTIL READY
*
WTRDY   LDD  CF_STATUS
        BITB #BUSY
        BNE  WTRDY
        LDD  CF_STATUS
        BITB #DRDY
        BEQ  WTRDY
        RTS
*
* WAIT FOR DATA REQUEST
*
WTDRQ   LDD  CF_STATUS
        BITB #DRQ
        BEQ  WTDRQ
        RTS
*
       END

Line No.	Rev	Author	Line
1	59	davidgb	`*`
2			`** SYS09BUG MONITOR EXTENSIONS`
3			`*`
4			`* FOR SYS09BUG ON THE XESS XSA-3S100 / XST-3.0`
5			`* WITH I/O MAPPED AT $XE000`
6			`* 16 BIT IDE MAPPED AT $E100`
7			`* AND ROM MAPPED AT $XF000`
8			`*`
9			`*`
10			`PAGE`
11			`*`
12			`***************************************************`
13			`* Serial PROM register`
14			`***************************************************`
15			`*`
16			`** CONFIGURATION PROM DEFINITIONS`
17			`*`
18			`PROMREG EQU MONIO+$C0`
19			`PCLKHI EQU $01 Toggle PROM Clock High`
20			`PCLKLO EQU $00 Toggle PROM Clock Low`
21			`PRSTHI EQU $02 Toggle PROM Reset High`
22			`PRSTLO EQU $00 Toggle PROM Reset Low`
23			`SYNCHI EQU $AA55 Synch Pattern High Word`
24			`SYNCLO EQU $FF00 Synch Pattern Low Word`
25			`*`
26			`*`
27			`***************************************************`
28			`* START OF ROM *`
29			`***************************************************`
30			`*`
31			`MONITV EQU MONROM+0 FDB MONITOR`
32			`NXTCMV EQU MONROM+2 FDB NEXTCMD`
33			`INCHV EQU MONROM+4 FDB INCH`
34			`INCHEV EQU MONROM+6 FDB INCHE`
35			`INCHKV EQU MONROM+8 FDB INCHEK`
36			`OUTCHV EQU MONROM+10 FDB OUTCH`
37			`PDATAV EQU MONROM+12 FDB PDATA`
38			`PCRLFV EQU MONROM+14 FDB PCRLF`
39			`PSTRGV EQU MONROM+16 FDB PSTRNG`
40			`LRAV EQU MONROM+18 FDB LRA`
41			`*`
42			`* Condition code flags`
43			`*`
44			`CFLAG EQU $01 CARRY FLAG`
45			`VFLAG EQU $02 OVERFLOW FLAG`
46			`ZFLAG EQU $04 ZERO FLAG`
47			`NFLAG EQU $08 NEGATIVE FLAG`
48			`IFLAG EQU $10 IRQ MASK CC`
49			`HFLAG EQU $20 HALF CARRY`
50			`FFLAG EQU $40 FIRQ MASK CC`
51			`EFLAG EQU $80 ENTIRE FLAG`
52			`*`
53			`* Serial Port`
54			`*`
55			`ACIAC1 EQU ACIAS`
56			`ACIAD1 EQU ACIAS+1`
57			`DELCON EQU 1250 Delay (Processor clock in MHz * 50)`
58			`*`
59			`* XMODEM Control characters`
60			`*`
61			`SOH EQU $01`
62			`EOT EQU $04`
63			`ACK EQU $06`
64			`NAK EQU $15`
65			`CAN EQU $18`
66			`*`
67			`* Some Disk Constants`
68			`*`
69			`RMAXTRK EQU 256`
70			`RMAXSEC EQU 255`
71			`RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC`
72			`*`
73			`* RAM SPACE`
74			`*`
75			`* PUT THIS DOWN THE BOTTOM OF MEMORY`
76			`*`
77			`ORG $0100`
78			`DRVNUM RMB 1`
79			`TRACK RMB 1`
80			`SECTOR RMB 1`
81			`CHKSUM RMB 1`
82			`BLKNUM RMB 1 Xmodem block number`
83			`BYTCNT RMB 1 Xmodem byte count`
84			`XSTATE RMB 2 Xmodem State Vector`
85			`DELCNT RMB 3 $00,$00,$00 Xmodem Poll timer`
86			`MAXTRK RMB 1`
87			`MAXSEC RMB 1`
88			`ORG $0200`
89			`*`
90			`* SECTOR BUFFER`
91			`*`
92			`BUFFER RMB 256`
93			`*`
94			`****************************************`
95			`*`
96			`* START OF EXTENSION COMMANDS`
97			`*`
98			`****************************************`
99			`*`
100			`ORG MONEXT`
101			`FDB NEXTEXT Jump to next extended command`
102			`*`
103			`*** NEXTCMD ***`
104			`*`
105			`NEXTEXT JSR [INCHEV] GET ONE CHAR. FROM TERMINAL`
106			`ANDA #$7F STRIP PARITY FROM CHAR.`
107			`TFR A,B`
108			`LDA #$20`
109			`JSR [OUTCHV] PRNT SPACE`
110			`CMPB #$60`
111			`BLE NXTEX0`
112			`SUBB #$20`
113			`*`
114			`*** DO TABLE LOOKUP ***`
115			`* FOR COMMAND FUNCTIONS`
116			`*`
117			`NXTEX0 LDX #EXTTAB POINT TO JUMP TABLE`
118			`NXTEX1 CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?`
119			`BEQ JMPEXT BRANCH IF MATCH FOUND`
120			`LEAX 2,X POINT TO NEXT ENTRY IN TABLE`
121			`CMPX #EXTEND REACHED END OF TABLE YET ?`
122			`BNE NXTEX1 IF NOT END, CHECK NEXT ENTRY`
123			`LDX #MSGWHAT POINT TO MSG "WHAT?"`
124			`LBRA PDATA1 PRINT MSG AND RETURN`
125			`JMPEXT JMP [,X] JUMP TO COMMAND ROUTINE`
126			`*`
127			`* EXTENDED COMMAND JUMP TABLE`
128			`*`
129			`EXTTAB EQU *`
130			`FCC 'B' BOOT FLEX`
131			`FDB UBSUB`
132			`FCC 'F' FORMAT IDE DISK`
133			`FDB UFSUB`
134			`FCC 'X' XMODEM ROM DISK UPLOAD`
135			`FDB UXSUB`
136			`*`
137			`EXTEND EQU *`
138			`*`
139			`MSGWHAT FCC "WHAT ?"`
140			`FCB $0A,$0D,$04`
141			`*`
142			`* GO TO FLEX RESIDENT IN MEMORY`
143			`*`
144			`UBSUB LDX #$CD00`
145			`STX 10,U`
146			`TFR U,S`
147			`RTI`
148			`*`
149			`* recieve char from remote drive.`
150			`* timeout if no response for approx 1s.`
151			`* Entry: no parameters`
152			`* Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.`
153			`*`
154			`RCHAR PSHS X,Y`
155			`*`
156			`LDX #1000 1000x inner loop`
157			`RCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).`
158			`RCHAR2 LDA ACIAC1 test for recieved char`
159			`ASRA`
160			`BCS RCHAR3 get character`
161			`LEAY -1,Y else, continue to count delay`
162			`BNE RCHAR2`
163			`LEAX -1,X`
164			`BNE RCHAR1`
165			`PULS X,Y,PC return with error if timed out`
166			`*`
167			`RCHAR3 LDA ACIAD1 return data (carry bit still set)`
168			`PULS X,Y,PC`
169			`*`
170			`*`
171			`* transmit char to remote drive.`
172			`* timeout if no response for approx 1s. (allows for use of hardware flow control)`
173			`* Entry: (A) = char to transmit`
174			`* Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.`
175			`*`
176			`SCHAR PSHS X,Y`
177			`PSHS A`
178			`*`
179			`LDX #1000 1000x inner loop`
180			`SCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).`
181			`SCHAR2 LDA ACIAC1 test for space in transmit FIFO`
182			`ASRA`
183			`ASRA`
184			`BCS SCHAR3 send character`
185			`LEAY -1,Y else, continue to count delay`
186			`BNE SCHAR2`
187			`LEAX -1,X`
188			`BNE SCHAR1`
189			`PULS A`
190			`PULS X,Y,PC return with error if timed out`
191			`*`
192			`SCHAR3 PULS A`
193			`STA ACIAD1 send data (carry bit still set)`
194			`PULS X,Y,PC`
195			`*`
196			`** 'UF' Format IDE Drive to FLEX standard.`
197			`*`
198			`DISFOS FCB $0A,$0D`
199			`FCC 'Formating IDE disk... '`
200			`FCB $0A,$0D`
201			`FCC 'Drive Number ?'`
202			`FCB 4`
203			`MESS6 FCB $0A,$0D,4`
204			`FCC 'IDE drive not allocated! '`
205			`FCB 4`
206			`UFMSG1 FCB $0A,$0D`
207			`FCC 'Format Complete'`
208			`FCB 4`
209			`VOLMSG FCC 'IDEDISK '`
210			`FCB 4`
211			`*`
212			`UFSUB JSR INITDR`
213			`LDX #DISFOS`
214			`JSR PDATA1`
215			`UFSUB1 LBSR RCHAR`
216			`BCC UFSUB1`
217			`LBSR SCHAR`
218			`CMPA #'0'`
219			`LBLO UFEXIT`
220			`CMPA #'3'`
221			`LBHI UFEXIT`
222			`SUBA #'0'`
223			`TFR A,B`
224			`STB DRVNUM`
225			`LDX #DRVNUM-3`
226			`JSR DRVSEL`
227			`*`
228			`* set up free chain`
229			`*`
230			`LDX #BUFFER clear out buffer`
231			`CLRA`
232			`CLRB`
233			`DFL1 STA 0,X+`
234			`DECB`
235			`BNE DFL1`
236			`*`
237			`CLR TRACK`
238			`LDA #1`
239			`STA SECTOR`
240			`DFL2 LDX #BUFFER`
241			`LDA TRACK`
242			`STA 0,X`
243			`LDA SECTOR`
244			`INCA`
245			`CMPA #RMAXSEC+1 last sector on track?`
246			`BNE DFL3`
247			`INC 0,X`
248			`LDA #1`
249			`DFL3 STA 1,X`
250			`LDA TRACK`
251			`LDB SECTOR`
252			`JSR WRITSC`
253			`INC SECTOR`
254			`LDA SECTOR`
255			`CMPA #RMAXSEC+1`
256			`BNE DFL2`
257			`LDA #1`
258			`STA SECTOR`
259			`INC TRACK`
260			`LDA TRACK`
261			`CMPA #RMAXTRK`
262			`BNE DFL2`
263			`* break free chain at last track/sector`
264			`LDX #BUFFER`
265			`LDA #RMAXTRK-1`
266			`LDB #RMAXSEC`
267			`JSR READSC`
268			`LDX #BUFFER`
269			`CLR 0,X`
270			`CLR 1,X`
271			`LDA #RMAXTRK-1`
272			`LDB #RMAXSEC`
273			`JSR WRITSC`
274			`* set up sector structure, SIR, directory etc`
275			`LDX #BUFFER`
276			`CLRA`
277			`LDB #RMAXSEC`
278			`JSR READSC`
279			`LDX #BUFFER`
280			`CLR 0,X break end of directory chain`
281			`CLR 1,X`
282			`CLRA`
283			`LDB #RMAXSEC`
284			`JSR WRITSC`
285			`*`
286			`LDX #BUFFER`
287			`CLRA`
288			`LDB #3 set up SIR`
289			`JSR READSC`
290			`LDX #BUFFER`
291			`CLR 0,X break forward link`
292			`CLR 1,X`
293			`*`
294			`PSHS Y`
295			`LDY #VOLMSG`
296			`LDB #16`
297			`DFL4 LDA ,Y+`
298			`STA B,X`
299			`INCB`
300			`CMPB #24`
301			`BNE DFL4`
302			`PULS Y`
303			`*`
304			`CLRA`
305			`LDB DRVNUM volume number`
306			`STD 27,X`
307			`*`
308			`LDD #$0101 first trk/sec 01-01`
309			`STD 29,X`
310			`LDA #RMAXTRK-1`
311			`LDB #RMAXSEC`
312			`STD 31,X`
313			`STD 38,X`
314			`LDD #RTOTSEC total DATA sectors (2912-14)`
315			`STD 33,X`
316			`*`
317			`LDA #01 month set default creation date (SYS09's birthday!)`
318			`STA 35,X`
319			`LDA #07 day`
320			`STA 36,X`
321			`LDA #07 year`
322			`STA 37,X`
323			`*`
324			`RF3 CLRA`
325			`LDB #3`
326			`JSR WRITSC`
327			`*`
328			`* Not sure what this is about`
329			`* put bootstrap on track 0 sector 1`
330			`*`
331			`* LDX #BUFFER`
332			`* CLRA`
333			`* LDB #1`
334			`* JSR READSC`
335			`* LDX #BUFFER`
336			`* LDA #$AA set the init flag`
337			`* STA 0,X`
338			`* LDA #$55`
339			`* STA 1,X`
340			`* CLRA`
341			`* LDB #1`
342			`* JSR WRITSC`
343			`*`
344			`* Write Boot sector`
345			`*`
346			`LDX #BOOT`
347			`CLRA TRACK 0`
348			`LDB #$01 SECTOR 1`
349			`STA TRACK`
350			`STB SECTOR`
351			`LBSR WRITSC`
352			`*`
353			`UFEXIT LDX #UFMSG1`
354			`JMP PDATA1`
355			`*`
356			`* ACIA INPUT TEST`
357			`*`
358			`INTEST LDA ACIAC1`
359			`BITA #$01`
360			`RTS`
361			`*`
362			`* RESET ACIA`
363			`*`
364			`ACIRST LDA #$03 master reset`
365			`STA ACIAC1`
366			`LDA #$11`
367			`STA ACIAC1`
368			`RTS`
369			`*`
370			`* ACIA INPUT`
371			`*`
372			`INTER LDA #16`
373			`STA DELCNT+0`
374			`CLR DELCNT+1`
375			`CLR DELCNT+2`
376			`INTER0 LDA ACIAC1`
377			`BITA #$01`
378			`BNE INTER1`
379			`BITA #$78`
380			`BEQ INTER2`
381			`BSR ACIRST`
382			`BRA INTER`
383			`*`
384			`INTER1 LDA ACIAD1`
385			`ANDCC #$FF-VFLAG`
386			`RTS`
387			`*`
388			`INTER2 DEC DELCNT+2`
389			`BNE INTER0`
390			`DEC DELCNT+1`
391			`BNE INTER0`
392			`DEC DELCNT+0`
393			`BNE INTER0`
394			`CLRA`
395			`ORCC #VFLAG`
396			`RTS`
397			`*`
398			`* ACIA OUTPUT`
399			`*`
400			`OUTTER PSHS A`
401			`*`
402			`OUTTE1 LDA ACIAC1`
403			`BITA #$02`
404			`BNE OUTTE2`
405			`BITA #$78`
406			`BEQ OUTTE1`
407			`BSR ACIRST`
408			`BRA OUTTE1`
409			`*`
410			`OUTTE2 PULS A`
411			`STA ACIAD1`
412			`RTS`
413			`*`
414			`* Print Data`
415			`*`
416			`PDATA0 BSR OUTTER`
417			`PDATA1 LDA ,X+`
418			`CMPA #$04`
419			`BNE PDATA0`
420			`RTS`
421			`*`
422			`*`
423			`** 'UX' Xmodem IDE Disk upload`
424			`*`
425			`UXMES0 FCB $0D,$0A`
426			`FCC 'Xmodem IDE Disk Upload'`
427			`FCB 4`
428			`UXMES1 FCB $0D,$0A`
429			`FCC 'Upload Complete'`
430			`FCB 4`
431			`UXMES2 FCB $0D,$0A`
432			`FCC 'Upload Error'`
433			`FCB 4`
434			`UXMSG3 FCB $0D,$0A`
435			`FCC 'Drive Number :'`
436			`FCB 4`
437			`UXMSG4 FCB $0D,$0A`
438			`FCC 'Are You Sure ? (Y/N)'`
439			`FCB 4`
440			`*`
441			`* Print Banner`
442			`*`
443			`UXSUB LDX #UXMES0`
444			`LBSR PDATA1`
445			`*`
446			`* Prompt for Disk drive number (0 to 3)`
447			`*`
448			`LDX #UXMSG3`
449			`LBSR PDATA1`
450			`UXSUB1 LBSR INTER`
451			`BVS UXSUB1`
452			`LBSR OUTTER`
453			`CMPA #'0`
454			`LBLO UXEXIT`
455			`CMPA #'3`
456			`LBHI UXEXIT`
457			`SUBA #'0`
458			`STA DRVNUM`
459			`*`
460			`* Report selected drive`
461			`*`
462			`LDX #UXMSG3`
463			`LBSR PDATA1`
464			`LDA DRVNUM`
465			`ADDA #'0`
466			`LBSR OUTTER`
467			`*`
468			`* Ask for confirmation (Y/N)`
469			`*`
470			`LDX #UXMSG4`
471			`LBSR PDATA1`
472			`UXSUB2 LBSR INTER`
473			`BVS UXSUB2`
474			`LBSR OUTTER`
475			`ANDA #$5F`
476			`CMPA #'N`
477			`LBEQ UXEXIT`
478			`CMPA #'Y`
479			`BNE UXSUB`
480			`*`
481			`* We have confirmation ... now load the disk image`
482			`*`
483			`LBSR INITDR`
484			`LDU #XSTST`
485			`STU XSTATE`
486			`LDA #1`
487			`STA BLKNUM`
488			`*`
489			`* Sector1`
490			`*`
491			`LDX #BUFFER`
492			`*`
493			`CLRA TRACK 0`
494			`LDB #$01 SECTOR 1`
495			`STA TRACK`
496			`STB SECTOR`
497			`*`
498			`LBSR XREAD`
499			`LBCS UXERR`
500			`LBSR XACK`

Browse

Tools

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [sys09bug/] [sys09ide.asm] - Blame information for rev 189