 
Т > Stations/s v1.22 *Т Source for updated *Stations command %Т Updated with more station types (: 2*OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE <*OSNEWL=&FFE7:OSASCI=&FFE3:OSARGS=&FFDA F%щєm(A$)=юA$,╘A$-1)+Ґ(≈бA$,1)└128) P: Zload%=&FFFF08D5 dч mcode% &280 nЦ P=0 ╦ 1 xP%=load%:O%=mcode% ┌[OPT P*3+4 ▄\ Transmit control block √
.L0AE5 ═+EQUB &00                :\ Control byte ╙1EQUB &00                :\ Port &00=Immediate Є
.L0AE7 Ў&EQUB &FE                :\ Station х
.L0AE8 р&EQUB &00                :\ Network э1EQUW L0900+0:EQUW &FFFF :\ Data start address Ф/EQUW L0900+4:EQUW &FFFF :\ Data end address П: З
.exec%
.L0900LDX #&A84LDY #&00:LDA #&01:JSR OSARGS :\ Get command line"@LDX #&00                     :\ Prepare to do net 0=this net,:6
.L0926@9LDA (&A8),Y                  :\ Get current characterJ3CMP #≈"0":BCC L093F:INY    :\ <"0", do this netT.─ #&0F:STX &AA:ASL &AA     :\ X=X*10+digit^ADC &AA:ASL &AA:ASL &AAh<ADC &AA:TAX:JMP L0926        :\ Jump to check next digitr:|\ Scan the network X├
.L093F░8STX L0AE8                    :\ Store network number 0LDX #&00:JSR L0A20           :\ Print bannerє:ў\ Ping remote machine╦
.L0947б<LDA #&22:STA &AC             :\ Set column counter to 34л
.L094Bж9LDA #&88:STA L0AE5           :\ Control='MachinePeek'ЮLDA #&10ЙLDX #L0AE5 ─ 255ТLDY #L0AE5 │ 256Ч8JSR OSWORD                   :\ Transmit MachinePeek;LDA L0AE5:BEQ L094B          :\ Loop until Tx sucessful
.L095E+LDA #&32:JSR OSBYTE          :\ Poll Tx&7TXA:BMI L095E                :\ Loop until finished0<ROL A:BMI L0988              :\ If TxError, skip to next::D4LDX #&02:JSR L0ADC           :\ Print two spacesN8LDA L0AE7:JSR L098E          :\ Print station numberX5LDX #&04:JSR L0ADC           :\ Print four spacesb?JSR L09C0:JSR L09C4          :\ Print machine name, versionl1JSR OSNEWL                   :\ Print newlinev:─
.L0988┼GDEC L0AE7:BNE L0947          :\ Dec station and loop until all done■RTS·:╗\ Print decimal number in A╡
.L098E╪TAYф.LDA #&64:JSR L099B           :\ Print 100sп-LDA #&0A:JSR L099B           :\ Print 10sз,LDA #&01                     :\ Print 1sД
.L099BНSTA &AE:LDX #&FF:SEC:TYAЬ
.L09A1INX:SBC &AE:BCS L09A1ADC &AE:TAY:TXA
.L09AA ─ #&0F:SED:CLC*ADC #&90:ADC #&40:CLD4
.L09B3>JDEC &AC:JMP OSASCI           :\ Dec column counter and print characterH:R\ Print 'X' spaces\
.L0ADCfLDA #≈" "p
.L0ADEzJSR L09B3:DEX:BNE L0ADE└
.L0AE0▌RTS≤:╒\ Print version number╛
.L09C4І9LDX &AC:BEQ P%+5:JSR L0ADC   :\ Print spaces to alignю;LDA L0900+3:JSR L09BA        :\ Print version.hi in hexй-LDA #&2E:JSR L09B3           :\ Print '.'т;LDA L0900+2                  :\ Print version.lo in hexч:Х\ Print hex number in AР
.L09B8ЭPHA:JSR L09BC:PLA:JMP L09AA
.L09BACMP #&10:BCC L09BE
.L09BC$LSR A:LSR A:LSR A:LSR A.
.L09BE8JMP L09AAB:L\ Print machine nameV
.L09C0`-LDA L0900+0                  :\ A=machinej=CLC:ADC #&40:BMI L09F8       :\ Don't print manufacturerst2LDA L0900+1                  :\ A=manufacturer~=LDX #L0A50-L0A30             :\ X=>start of manufacturers┬7JSR L09FE                    :\ Find and print name▓3LDA &AC:BEQ L0AE0            :\ Exit if unknown°:і
.L09F8╟=LDA L0900+0:LDX #L0A60-L0A30 :\ X=>start of machine names╨
.L09FEд=CMP L0A30,X:BEQ L0A20        :\ Matches, print this entryнPHAь@LDA L0A30,X:BEQ L0A10        :\ End of table, print 'Uknown'Б
.L0A04Л8INX:LDA L0A30,X:BPL L0A04    :\ Step past this entryЖPLA:INX:BNE L09FE 
.L0A10
PLA3LDX #L0A40-L0A30:JSR L0A20   :\ Print 'Unknown':LDA L0900+1:JSR L09B8        :\ Print manufacture code(6LDA L0900+0:JSR L09B8        :\ Print machine code23LDA #≈")":JSR L09B3        :\ Print closing ')'<LDX &AC:BNE L0ADCF:P \ Print message indexed by XZ \ --------------------------d
.L0A20n=INX:LDA L0A30,X:PHP          :\ Get character, save bit 7x=─ #&7F:JSR L09B3           :\ Drop bit 7, print character┌8PLP:BPL L0A20                :\ Loop until bit 7 set▄
.L0A28√RTS═:╙
.L0A30Є)EQUB &00:EQUS єm("Station  Type"+Ґ13)Ў
.L0A40х!EQUB &80:EQUS єm("Unknown (")р
.L0A50э$EQUB &FF:EQUS єm("SJ Research ")Ф EQUB &02:EQUS єm("Reuters ")ПEQUB &01:EQUS єm("Torch ")ЗEQUB &00:EQUS єm("Acorn ")
.L0A60!EQUB &01:EQUS єm("BBC Micro")EQUB &02:EQUS єm("Atom")""EQUB &03:EQUS єm("System 3/4"), EQUB &04:EQUS єm("System 5")6EQUB &05:EQUS єm("Master")@ EQUB &06:EQUS єm("Electron")JEQUB &07:EQUS єm("RISC OS")T$EQUB &09:EQUS єm("Communicator")^!EQUB &0A:EQUS єm("Master ET")h!EQUB &0B:EQUS єm("FileStore")rEQUB &0C:EQUS єm("Compact")|EQUB &0D:EQUS єm("Ecolink")├EQUB &0E:EQUS єm("RISCiX")░EQUB &0F:EQUS єm("RISC PC") EQUB &10:EQUS єm("Iyonix")єEQUB &11:EQUS єm("A9")ў#EQUB &40:EQUS єm("ZX Spectrum")╦#EQUB &41:EQUS єm("Amstrad CPC")б#\EQUB &F8:\EQUS єm("GP Server")л$\EQUB &F9:\EQUS єm("80386 Unix")ж\EQUB &FA:\EQUS єm("SCSI")Ю!\EQUB &FB:\EQUS єm("PC card")Й EQUB &FC:EQUS єm("Nascom 2")ТEQUB &FD:EQUS єm("RM480Z")Ч#EQUB &FE:EQUS єm("File Server") EQUB &FF:EQUS єm("Z80 CP/M")EQUB &00
.L0B00&:0]М:0Я"Machine names table length: ";L0B00-L0A30;D*Г L0B00-L0A30>256:Я" - too long":Ю ▀ ЯNGЯ "*SAVE STATIONS ";~mcode%;" ";~O%;" ";~exec%└&FFFF0000;" ";~load%Ъ