Mercurial > hg > Members > kono > nitros9-code
view level1/modules/rfm.asm @ 2445:6231225a182e
Updated with SetStat and GetStat op entry points
| author | boisy |
|---|---|
| date | Fri, 26 Feb 2010 12:38:07 +0000 |
| parents | 597d98fc261e |
| children | 0ae4857f8f82 |
line wrap: on
line source
******************************************************************** * RFM - Remote File Manager * * * 1 2010/02/20 AAW * first version - just send ops nam RFM ttl Remote File Manager ifp1 use defsfile use rfmdefs use dwdefs.d endc tylg set FlMgr+Objct atrv set ReEnt+rev rev set 0 edition equ 1 mod eom,RFMName,tylg,atrv,RFMEnt,size size equ . RFMName fcs /RFM/ fcb edition ****************************** * * file manager entry point * * Entry: Y = Path descriptor pointer * U = Callers register stack pointer * RFMEnt lbra create Create path lbra open Open path lbra makdir Makdir lbra chgdir Chgdir lbra delete Delete lbra seek Seek lbra read Read character lbra write Write character lbra readln ReadLn lbra writln WriteLn lbra getstt Get Status lbra setstt Set Status lbra close Close path create ldb #DW.create bra create1 open ldb #DW.open create1 pshs u,y ; RD Regs ldx PD.DEV,y ; to our static storage pshs x ; PD.DEV PD Regs * put path # on stack lda ,y sta V.PATHNUM,x pshs a ; p# PD.DEV PD Regs * put rfm op and DW op on stack lda #OP_VFM pshs d ; DWOP RFMOP p# PD.DEV PD Regs * TODO lets not create multiple buffers when multiple open/create on same path * get system mem ldd #256 os9 F$SRqMem ; ask for D bytes (# bytes server said is coming) ldx 3,s ; PD.DEV stu V.BUF,x leax ,s ; point X to stack ldy #3 ; 3 bytes to send ifgt Level-1 ldu <D.DWSubAddr else ldu >D.DWSubAddr endc jsr 6,u leas 3,s ;clean stack PD.DEV PD Regs * now send path string * copy path string clr ,-s ; set size ctr to 0 ldx <D.Proc ; get curr proc desc ldb P$Task,x ; get task # ldx 5,s ; original U - Regs ldx R$X,x ; should be X from caller ldy 1,s ; pd.dev ldy V.BUF,y open1 os9 f$ldabx sta ,y+ leax 1,x inc ,s cmpa #C$CR bne open1 * store advanced X in calling process (SCF does this.. ?) leax -1,x ldy 5,s ; original U stx R$X,y * send to server clra ldb ,s ; counter tfr d,y ; set Y to pathlen ldx 1,s ; pd.dev ldx V.BUF,x jsr 6,u * read response from server -> B leax ,s ldy #1 jsr 3,u * pull server's response into B puls b ; PD.DEV PD Regs tstb beq open2 orcc #1 ;set error open2 leas 4,s ; Regs puls u ; clean stack rts makdir lda #DW.makdir lbra sendit chgdir lda #DW.chgdir lbra sendit delete lda #DW.delete lbra sendit seek lda #DW.seek lbra sendit read ldb #DW.read bra read1 ; join readln routine write lda #DW.write lbra sendit readln ldb #DW.readln read1 pshs y,u ldx PD.DEV,y ; to our static storage pshs x ; PD.DEV PD Regs * put path # on stack lda ,y sta V.PATHNUM,x pshs a ; p# PD.DEV PD Regs * put rfm op and DW op on stack lda #OP_VFM pshs d ; DWOP RFMOP p# PD.DEV PD Regs leax ,s ; point X to stack ldy #3 ; 3 bytes to send * set U to dwsub ifgt Level-1 ldu <D.DWSubAddr else ldu >D.DWSubAddr endc * send dw op, rfm op, path # jsr 6,u leas 3,s ;clean stack - PD.DEV PD Regs * put caller's Y on stack (maximum allowed bytes) ldx 4,s ldx R$Y,x pshs x * send 2 bytes from stack leax ,s ldy #2 jsr 6,u leas 1,s ; leave 1 byte for server response in next section * read # bytes coming (0 = eof) from server leax ,s ldy #1 jsr 3,u * store size clra puls b ;PD.DEV PD Regs * check for 0 tstb beq readln1 ; 0 bytes = EOF * read the data from server if > 0 pshs d ;xfersz PD.DEV PD Regs * load data from server into mem block ldx 2,s ; pd.dev ldx V.BUF,x ldy ,s ;xfersz jsr 3,u * F$Move * a = my task # * b = caller's task # * X = source ptr * Y = byte count * U = dest ptr * move from our mem to caller puls y ;Y = byte count (already set?) - PD.DEV PD Regs ldx 4,s ldu R$X,x ; U = caller's X = dest ptr lda <D.SysTsk ; A = system task # ldx <D.Proc get calling proc desc ldb P$Task,x ; B = callers task # puls x ; pd.dev - PD Regs ldx V.BUF,x * F$Move the bytes (seems to work) os9 F$Move * assume everything worked (not good) clrb *ldy xfersz,pc ; Y is supposed to be set to bytes read.. do we need to set this in the caller's regs? bra readln2 readln1 ldb #E$EOF ldy #0 ; Y should be 0 if we didnt read any? in callers regs? orcc #1 ; set error bit leas 2,s ; clean stack down readln2 puls y,u rts *ldu origu,pc ; put U back to the entry value.. needed? * rts writln lda #DW.writln lbra sendit * * I$GetStat Entry Point * * Entry: * * Exit: * * Error: CC Carry set * B = errcode * getstt lda #DW.getstt lbsr sendit ldb R$B,u get function code beq GstOPT cmpb #SS.EOF beq GstEOF cmpb #SS.Ready beq GstReady cmpb #SS.Size beq GstSize cmpb #SS.Pos beq GstPos cmpb #SS.FD beq GstFD cmpb #SS.FDInf beq GstFDInf comb ldb #E$UnkSvc rts * SS.OPT * RBF does nothing here, so we do nothing GstOPT rts * SS.EOF * Entry A = path * B = SS.EOF GstEOF rts * SS.Ready - Check for data available on path * Entry A = path * B = SS.Ready GstReady clr R$B,u always mark no data ready rts * SS.Size - Return size of file opened on path * Entry A = path * B = SS.SIZ * Exit X = msw of files size * U = lsw of files size GstSize rts * SS.Pos - Return the current position in the file * Entry A = path * B = SS.Pos * Exit X = msw of pos * U = lsw of pos GstPOS rts * SS.FD - Return file descriptor sector * Entry: A = path * B = SS.FD * X = ptr to 256 byte buffer * Y = # of bytes of FD required GstFD rts * SS.FDInf - * Entry: A = path * B = SS.FDInf * X = ptr to 256 byte buffer * Y = msb - Length of read * lsb - MSB of LSN * U = LSW of LSN GstFDInf rts * * I$SetStat Entry Point * * Entry: * * Exit: * * Error: CC Carry set * B = errcode * setstt lda #DW.setstt lbsr sendit ldb R$B,u beq SstOpt cmpb #SS.Size beq SstSize cmpb #SS.FD beq SstFD cmpb #SS.Lock beq SstLock cmpb #SS.RsBit beq SstRsBit cmpb #SS.Attr beq SstAttr cmpb #SS.FSig beq SstFSig comb ldb #E$UnkSvc rts SstOpt SstSize SstFD SstLock SstRsBit SstAttr SstFSig rts close pshs u,y * put path # on stack lda ,y pshs a * put rfm op and DW op on stack ldb #DW.close lda #OP_VFM pshs d leax ,s ; point X to stack ldy #3 ; 3 bytes to send ifgt Level-1 ldu <D.DWSubAddr else ldu >D.DWSubAddr endc jsr 6,u leas 2,s ;clean stack (leave 1 byte) * read server response leax ,s ldy #1 jsr 3,u * free system mem ldd #256 ldx 1,s ; orig Y ldx PD.DEV,x ldu V.BUF,x os9 F$SRtMem ldb ,s ; server sends result code beq close1 orcc #1 ; set error flag if != 0 close1 leas 1,s puls u,y rts * just send OP_VMF + vfmop sendit pshs a lda #OP_VFM ; load command pshs a ; command store on stack leax ,s ; point X to stack ldy #2 ; 2 byte to send ifgt Level-1 ldu <D.DWSubAddr else ldu >D.DWSubAddr endc jsr 6,u leas 2,s ;clean stack clrb rts emod eom equ * end