10 REM > NFS4Block
   20 REM Create Econet driver jump block in ANFS 4.25
   30 DIM mem% &4000
   40 OSCLI"LOAD :System.ROMS.Filing.Network.Acorn.ANFS425 "+STR$~mem%
   50 DEFFNorg(A%):P%=A%:O%=P%-&8000+mcode%:=P*3+4
   60 :
   70 EcoInit%=&8052
   80 EcoTx%  =&864C
   90 EcoIRQ% =0
  100 :
  110 :
  120 FOR P=0 TO 1
  130   [OPT P*3+4
  140   OPT FNorg(&9045):JSR NetInit
  150   OPT FNorg(&9BC3):JSR NetTx
  160   OPT FNorg(&A94C):JMP NetTx
  170   OPT FNorg(&AC40):JSR NetTx
  180   OPT FNorg(&94C0):LDA #&FD   :\ Fix silly bug
  190   \
  200   \ Make space by removing *WDUMP, *PROT, *UNPROT
  210   \
  220   OPT FNorg(&BFF7)
  230   .NetInit : JMP EcoInit% :\ NetInit
  240   .NetTx   : JMP EcoTx%   :\ NetTx
  250   .NetIRQ  : JMP EcoIRQ%  :\ NetIRQ
  260   :
  270 ]NEXT
  280 OSCLI"SAVE ANFS425+ "+STR$+mem%+"+4000 8000 8000"

Download NFS4Block

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.