Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/scsitest.asm @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
| author | drencor-xeen |
|---|---|
| date | Mon, 14 Jan 2013 14:37:46 -0600 |
| parents | f026e5eecfb0 |
| children |
line wrap: on
line source
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