Mercurial > hg > Members > kono > nitros9-code
view level1/modules/rfm.asm @ 2441:d701ee4e0732
RFM again
| author | aaronwolfe |
|---|---|
| date | Thu, 25 Feb 2010 05:24:23 +0000 |
| parents | d5ba9175a498 |
| children | 8f5daacfb035 |
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 * org V.RFM pathtmp equ 128 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 pshs u * put path # on stack lda ,y pshs a * put rfm op and DW op on stack ldb #DW.create bra create1 open pshs u * put path # on stack lda ,y pshs a * put rfm op and DW op on stack ldb #DW.open create1 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 3,s ;clean stack * now send path string * copy path string ldx <D.Proc get curr proc desc ldb P$Task,x get task # ldx ,s ; orig U is on stack ldx R$X,x ; should be X from caller clra pshs a leas -pathtmp,s leay ,s open1 os9 f$ldabx sta ,y+ leax 1,x inc pathtmp,s cmpa #$0D bne open1 * send to server clra ldb pathtmp,s ; leave a byte on stack for response tfr d,y leax ,s jsr 6,u leas pathtmp,s * read response from server -> B leax ,s ldy #1 jsr 3,u puls b cmpb #0 beq open2 orcc #1 ;set error open2 puls u 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 pshs u * put path # on stack lda ,y pshs a * put rfm op and DW op on stack ldb #DW.read bra read1 write lda #DW.write lbra sendit readln pshs u * put path # on stack lda ,y pshs a * put rfm op and DW op on stack ldb #DW.readln read1 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 3,s ;clean stack * send max bytes ldx ,s ldx R$Y,x pshs x leax ,s ldy #2 jsr 6,u leas 1,s * read # bytes (0 = eof) leax ,s ldy #1 jsr 3,u ldb ,s beq readln1 ; 0 bytes = EOF * read the data from server if > 0 tfr b,a comb incb leas b,s ; reserve room on stack pshs a ; save count leax 1,s clra tfr d,y jsr 3,u * F$Move * a = my task # * b = caller's task # * X = source ptr * Y = byte count * U = dest ptr puls b clra tfr d,y ; y= byte count (was set in dwsub call, not sure if preserved) incb ldx b,s ;pointer to caller's stack is on our stack, behind the data and one byte 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 # leax ,s ; x = src ptr * try this F$Move os9 F$Move * cleanup tfr y,d leas b,s clrb bra readln2 readln1 orcc #1 ldb #E$EOF readln2 leas 1,s puls u rts writln lda #DW.writln lbra sendit getstt lda #DW.getstt lbra sendit setstt lda #DW.setstt lbra sendit close pshs u * 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 ldb ,s ; server sends result code beq close1 orcc #1 ; set error flag if != 0 close1 leas 1,s puls u rts * just send OP_VMF + vfmop sendit pshs u pshs y 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 puls x ldy #107 jsr 6,u * copy path string ldx <D.Proc get curr proc desc ldb P$Task,x get task # ldx ,s ldx R$X,x ; should be X from caller leay pathtmp,pcr clra pshs a send1 os9 f$ldabx sta ,y+ leax 1,x inc ,s cmpa #$0D bne send1 * send to server clra puls b tfr d,y leax pathtmp,pcr jsr 6,u puls u clrb rts emod eom equ * end