NEW PREFIX AUTO 4,1 .LIST OFF .OP 65C02 .OR $2000 .TF BIN/NFSMOUNT *-------------------------------------- .INB INC/MACROS.I .INB INC/A2OSX.I .INB INC/LIBTCPIP.I *-------------------------------------- TIMEOUT.MAX .EQ 40 40*100ms = 4 sec. *-------------------------------------- ZPIPCfgPtr .EQ ZPBIN ZPFrameBase .EQ ZPBIN+2 *-------------------------------------- * File Header (16 Bytes) *-------------------------------------- CS.START cld jmp (.1,x) .DA #$61 6502,Level 1 (65c02) .DA #1 BIN Layout Version 1 .DA 0 .DA CS.END-CS.START Code Length To Relocate .DA DS.END-DS.START Data Segment to Allocate .DA 0 .DA 0 *-------------------------------------- .1 .DA CS.INIT .DA CS.RUN .DA CS.DOEVENT .DA CS.QUIT L.LIBTCPIP .DA LIBTCPIP L.MSG.USAGE .DA MSG.USAGE .DA 0 *-------------------------------------- CS.INIT >SYSCALL ArgVC cmp #1 beq .99 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ? bcs .99 >STYA ZPIPCfgPtr lda (ZPIPCfgPtr) Configured ? bpl .99 ldx #3 ldy #S.IPCFG.IP+3 .1 lda (ZPIPCfgPtr),y sta Socket.Src.Addr,x dey dex bpl .1 lda (pPS) ora #S.PS.F.EVENT Now accept events sta (pPS) clc rts .99 >LDYA L.MSG.USAGE >SYSCALL PrintF lda #E.SYN sec rts *-------------------------------------- CS.RUN CS.RUN.ERROR sec rts *-------------------------------------- CS.DOEVENT .8 clc rts .9 sec rts *-------------------------------------- CS.QUIT lda hLIBTCPIP >SYSCALL UnloadLibA clc rts *-------------------------------------- CS.END MSG.USAGE .AZ "Usage : NFSMOUNT [HOST | IP]/export /mountvol\n" LIBTCPIP >PSTR "libtcpip.o" hLIBTCPIP .BS 1 Socket .DA #S.SOCKET.T.DGRAM .BS 3 Socket.Src.Addr .BS 4 Socket.Src.Port .DA 0 Dynamic Socket.Dst.Addr .BS 4 Socket.Dst.Port .DA UDP.PORT.PMAP .BS 16 *-------------------------------------- .DUMMY .OR 0 DS.START bCTRLC .BS 1 DS.END .ED *-------------------------------------- MAN SAVE USR/SRC/BIN/BIN/NFSMOUNT.S ASM