Mercurial > hg > Members > kono > nitros9-code
changeset 2591:f026e5eecfb0
Added
| author | boisy |
|---|---|
| date | Thu, 22 Dec 2011 22:01:38 +0000 |
| parents | 17d43fd29ee2 |
| children | 7d8831f053ff |
| files | level1/cmds/scsitest.asm |
| diffstat | 1 files changed, 158 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/scsitest.asm Thu Dec 22 22:01:38 2011 +0000 @@ -0,0 +1,158 @@ +s******************************************************************** +* scsitest - Test a SCSI device through the SS.DCmd call +* +* $Id$ +* +* Edt/Rev YYYY/MM/DD Modified by +* Comment +* ------------------------------------------------------------------ +* 1 2005/12/11 Boisy G. Pitre +* Created. + + NAM scsitest + TTL Test a SCSI device through the SS.DCmd call + + IFP1 + USE defsfile + USE scfdefs + ENDC + +tylg SET Prgrm+Objct +atrv SET ReEnt+rev +rev SET $00 +edition SET 1 + + MOD eom,name,tylg,atrv,start,size + + ORG 0 +code RMB 1 +lsn RMB 3 +left RMB 2 +path RMB 1 +txbuff RMB 2048 to accomodate CD-ROM sector sizes + RMB 200 +size EQU . + +IntroM FCC /SCSI Direct Command Test/ + FCB C$CR +StartM FCC /Sending START UNIT... / +StartML EQU *-StartM +Done FCC /Done!/ + FCB C$CR +StartUnit FCB $1B,$00,$00,$00,$01,$00 +StopM FCC /Sending STOP UNIT.../ +StopML EQU *-StopM +StopUnit FCB $1B,$00,$00,$00,$00,$00 +ReadM FCC /Testing READ... / +ReadML EQU *-ReadM + +name FCS /scsitest/ + FCB edition + +start leay txbuff,u + lda #$08 + sta <code + clr <lsn + clr <lsn+1 + clr <lsn+2 + lda #$01 + sta <left + clr <left+1 +l@ lda ,x+ + cmpa #C$CR + beq ok@ + cmpa #C$SPAC + beq ok@ + sta ,y+ + bra l@ +ok@ ldd #'@*256+C$CR + std ,y + leax txbuff,u + + lda #READ. + os9 I$Open + lbcs exit + sta path,u + + leax IntroM,pcr + lda #1 + ldy #100 + os9 I$WritLn + + bsr DoStartUnit + bcs exit + + bsr DoReadSector + bcs exit + + bsr DoStopUnit + bcs exit + + bsr DoStartUnit + bcs exit + +exitok clrb +exit os9 F$Exit + +* Do START UNIT +DoStartUnit leax StartM,pcr + ldy #StartML + lda #1 + os9 I$Write + + leay StartUnit,pcr + lda path,u + ldb #SS.DCmd + os9 I$SetStt + bcs exit@ + leax Done,pcr + ldy #100 + lda #1 + os9 I$WritLn +exit@ rts + +* Do READ of sector +DoReadSector leax ReadM,pcr + lda #1 + ldy #READML + os9 I$Write + + ldd <lsn+1 + addd #1 + std <lsn+1 + bcc w + inc <lsn +w lda <lsn + + leay code,u + leax txbuff,u + lda <path + ldb #SS.DCmd + os9 I$SetStt + bcs exit@ + leax Done,pcr + ldy #100 + lda #1 + os9 I$WritLn +exit@ rts + +* Do STOP UNIT +DoStopUnit leax StopM,pcr + ldy #StopML + lda #1 + os9 I$Write + + leay StopUnit,pcr + lda path,u + ldb #SS.DCmd + os9 I$SetStt + bcs exit@ + leax Done,pcr + ldy #100 + lda #1 + os9 I$WritLn +exit@ rts + + EMOD +eom EQU * + END