10
20
30
40
50
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
260 MOV R4,R0:MOV R5,R1
270
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%)