10 REM > GetStn/src 2.00
   20 REM Set Econet station and network number system variables
   30 REM (C)1992 J.G.Harston
   40 REM v1.20 01-May-1992 JGH: Basic program
   50 REM v2.00 25-Mar-1993 JGH: Utility
   60 :
   70 ON ERROR REPORT:PRINTERL:END
   80 :
   90 pc=15:link=14
  100 DIM mcode% &1000
  110 FOR P=0 TO 1
  120   P%=0:O%=mcode%
  130   [OPT P*3+4
  140   .Start
  150   B Entry:EQUW 0
  160   EQUB &4D:EQUB Copy-Start-1:EQUB &02
  170   EQUS "GetStnNum":EQUB 0
  180   EQUS "2.00 (25-Mar-1993)":EQUB 0
  190   .Copy
  200   EQUS "(C)J.G.Harston":EQUB 0
  210   :
  220   .Entry
  230   SWI "XEconet_ReadLocalStationAndNet"
  240   BVS ExitOk
  250   ; r0=stn, r1=net
  260   MOV R4,R0:MOV R5,R1
  270   ; r4=stn, r5=net
  280   :
  290   MOV R0,R4:ADR R1,Station:MOV R2,#4
  300   SWI "XOS_ConvertCardinal1"
  310   :
  320   STR R4,WordBlock
  330   ADR R0,WordBlock:ADR R1,Stn:MOV R2,#8
  340   SWI "XOS_ConvertFixedNetStation"
  350   LDR R0,Spaces:STR R0,Stn
  360   :
  370   MOV R0,R5:ADR R1,Network:MOV R2,#4
  380   SWI "XOS_ConvertCardinal1"
  390   :
  400   STR R5,WordBlock
  410   ADR R0,WordBlock:ADR R1,Net:MOV R2,#8
  420   SWI "XOS_ConvertFixedNetStation"
  430   LDR R0,Spaces:STR R0,Net
  440   :
  450   ADR R0,SetStation:SWI "XOS_CLI"
  460   ADR R0,SetStn:SWI "XOS_CLI"
  470   ADR R0,SetNetwork:SWI "XOS_CLI"
  480   ADR R0,SetNet:SWI "XOS_CLI"
  490   .ExitOk
  500   MOVS R0,#0
  510   MOV pc,link
  520   :
  530   .WordBlock
  540   EQUD 0:EQUD 1
  550   :
  560   .SetStation
  570   EQUS "SetEval Econet$Station "
  580   .Station
  590   EQUS "000":EQUB 13:ALIGN
  600   .SetStn
  610   EQUS "Set Econet$Stn  "
  620   .Stn
  630   EQUS "    000":EQUB 13:ALIGN
  640   .SetNetwork
  650   EQUS "SetEval Econet$Network "
  660   .Network
  670   EQUS "000":EQUB 13:ALIGN
  680   .SetNet
  690   EQUS "Set Econet$Net  "
  700   .Net
  710   EQUS "    000":EQUB 13:ALIGN
  720   :
  730   .Spaces
  740   EQUS "    "
  750   :
  760 ]NEXT
  770 OSCLI"Save GetStnNum "+STR$~mcode%+" "+STR$~O%
  780 OSCLI"SetType GetStnNum Utility"
  790 END
  800 :
  810 SYS "Econet_ReadLocalStationAndNet" TO stn%,net%
  820 OSCLI "SetEval Econet$Station "+STR$stn%
  830 OSCLI "Set Econet$Stn "+FNd0(stn%,3)
  840 OSCLI "SetEval Econet$Network "+STR$net%
  850 OSCLI "Set Econet$Net "+FNd0(net%,3)
  860 END
  870 :
  880 DEFFNd0(A%,N%)=RIGHT$("00000000"+STR$A%,N%)