 
ф > GetStn/src 2.00 <ф Set Econet station and network number system variables ф (C)1992 J.G.Harston (*ф v1.20 01-May-1992 JGH: Basic program 2$ф v2.00 25-Mar-1993 JGH: Utility <: Fо … ц:сћ:а P: Zpc=15:link=14 dЮ mcode% &1000 nг P=0 ё 1 xP%=0:O%=mcode% ‚[OPT P*3+4 Њ
.Start –B Entry:EQUW 0  'EQUB &4D:EQUB Copy-Start-1:EQUB &02 ЄEQUS "GetStnNum":EQUB 0 ґ$EQUS "2.00 (25-Mar-1993)":EQUB 0 ѕ	.Copy И EQUS "(C)J.G.Harston":EQUB 0 Т: Ь
.Entry ж(SWI "XEconet_ReadLocalStationAndNet" рBVS ExitOk ъ; r0=stn, r1=netMOV R4,R0:MOV R5,R1; r4=stn, r5=net:"&MOV R0,R4:ADR R1,Station:MOV R2,#4,SWI "XOS_ConvertCardinal1"6:@STR R4,WordBlockJ)ADR R0,WordBlock:ADR R1,Stn:MOV R2,#8T$SWI "XOS_ConvertFixedNetStation"^LDR R0,Spaces:STR R0,Stnh:r&MOV R0,R5:ADR R1,Network:MOV R2,#4|SWI "XOS_ConvertCardinal1"†:ђSTR R5,WordBlockљ)ADR R0,WordBlock:ADR R1,Net:MOV R2,#8¤$SWI "XOS_ConvertFixedNetStation"®LDR R0,Spaces:STR R0,Netё:В#ADR R0,SetStation:SWI "XOS_CLI"МADR R0,SetStn:SWI "XOS_CLI"Ц#ADR R0,SetNetwork:SWI "XOS_CLI"аADR R0,SetNet:SWI "XOS_CLI"к.ExitOkфMOVS R0,#0юMOV pc,link:.WordBlockEQUD 0:EQUD 1&:0.SetStation:"EQUS "SetEval Econet$Station "D.StationNEQUS "000":EQUB 13:ALIGNX.SetStnbEQUS "Set Econet$Stn  "l.Stnv EQUS "    000":EQUB 13:ALIGNЂ.SetNetworkЉ"EQUS "SetEval Econet$Network "”.NetworkћEQUS "000":EQUB 13:ALIGNЁ.SetNetІEQUS "Set Econet$Net  "ј.NetЖ EQUS "    000":EQUB 13:ALIGNР:Ъ.SpacesдEQUS "    "о:ш]н(я"Save GetStnNum "+Г~mcode%+" "+Г~O% я"SetType GetStnNum Utility"а :*2И™ "Econet_ReadLocalStationAndNet" ё stn%,net%4%я "SetEval Econet$Station "+Гstn%>#я "Set Econet$Stn "+¤d0(stn%,3)H%я "SetEval Econet$Network "+Гnet%R#я "Set Econet$Net "+¤d0(net%,3)\аf:p#Э¤d0(A%,N%)=В"00000000"+ГA%,N%)я