Т > Stations/s .Т Source for SJ Research *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: Zload%=&FFFF0900 dч mcode% &280 n Ц P=0 ╦ 1 xP%=load%:O%=mcode% ┌[OPT P*3+4 ▄ .exec% √ .L0900 ═LDX #&A8 ╙7LDY #&00:LDA #&01:JSR OSARGS :\ Get command line Є8\LDA #&02:\LDY #&00:\JSR OSARGS :\ Check NFS version ЎCLDX #&00 :\ Prepare to do net 0=this net хF\TAY:\DEY:\BEQ L0926 :\ Net=0, jump to check parameters р э\.L0916 Ф;\INY:\LDA (&A8),Y :\ Get current character П=\CMP #≈" ":\BCC L093F :\ , jump to do this net З9\BNE L0916 :\ Skip past nonspaces \.L091F ;\INY:\LDA (&A8),Y :\ Get current character 4\CMP #≈" ":\BEQ L091F :\ Skip past spaces " , .L0926 69LDA (&A8),Y :\ Get current character @3CMP #≈"0":BCC L093F:INY :\ <"0", do this net J.─ #&0F:STX &AA:ASL &AA :\ X=X*10+digit TADC &AA:ASL &AA:ASL &AA ^ADC #&90:ADC #&40:CLD H .L09B3 RJDEC &AC:JMP OSASCI :\ Dec column counter and print character \ f8.L09C4 :\ Print version number p9LDX &AC:BEQ L09CB:JSR L0ADC :\ Print required spaces z .L09CB └;LDA L0900+3:JSR L09B8 :\ Print version.hi in hex ▌-LDA #&2E:JSR L09B3 :\ Print '.' ≤;LDA L0900+2:\JMP L09B8 :\ Print version.lo in hex ╒ ╛9.L09B8 :\ Print hex number in A ІPHA:LSR A:LSR A:LSR A:LSR A юJSR L09AA:PLA:JMP L09AA й т>.L09DC :\ Print unknown machine type ч\CLC Х .L09DD Р\PHP Э5LDX #&05:JSR L0A11 :\ Print 'Unknown (' <\PLP:\BCC L09F1 :\ Jump to get machine type 6LDA L0900+1:JSR L09B8 :\ Print manufacturer /LDA #≈" ":JSR L09B3 :\ Print a space $ .L09F1 .6LDA L0900:JSR L09B8 :\ Print machine type 83LDA #≈")":BNE L09B3 :\ Print closing ')' B L4:\ Print machine name, A=machine, X=manufacturer V .L09FC ` 00..04 jBCPX #&05:\BCS L09DD :\ If 5+, jump to print 'Unknown' tBCS P%+5 ~;JSR L0A11:LDX #&05 :\ Print manufacturer name ┬ ▓=.L0A07 :\ Look through machine list °6INX :\ Step to next entry іKCPX #L0A3E-L0A30+6:BEQ L09DC :\ If end of list, jump to print 'Unknown' ╟ECMP L0A30-6,X:BNE L0A07 :\ If not this machine, look at next ╨ д \ Print message indexed by X н \ -------------------------- ь .L0A11 БPHA:LDY #&FF Л .L0A14 ЖINY:LDA L0A3E,Y ─ #&80:BEQ L0A14 DEX:BPL L0A14 .L0A1F INY:LDA L0A3E,Y (PHA:─ #&7F:JSR L09B3 2PLA:─ #&80 < .L0A2C FBEQ L0A1F:PLA:RTS P Z1.L0A30 :\ Machine types d'EQUB &F8:EQUB &F9:EQUB &FA:EQUB &FB n'EQUB &FE:EQUB &FF:EQUB &01:EQUB &05 x'EQUB &07:EQUB &0A:EQUB &0B:EQUB &0C ┌'EQUB &0D:EQUB &0E:EQUB &0F:EQUB &10 ▄EQUB &11:EQUB &40:EQUB &41 √ ═ .L0A3E ╙EQUB &80 Є EQUS єm("Station Type"+Ґ13) ЎEQUS єm("SJ Research ") хEQUS єm("Acorn ") рEQUS єm("Torch ") эEQUS єm("Reuters ") ФEQUS єm("Unknown (") ПEQUS єm("GP Server") ЗEQUS єm("80386 Unix") EQUS єm("SCSI") EQUS єm("PC card") EQUS єm("File Server") "EQUS єm("Z80 CP/M") ,EQUS єm("BBC micro") 6EQUS єm("Master") @EQUS єm("RISC OS") JEQUS єm("Master ET") TEQUS єm("FileStore") ^EQUS єm("Compact") hEQUS єm("Ecolink") rEQUS єm("RISCiX") |EQUS єm("RISC PC") ├EQUS єm("Iyonix") ░EQUS єm("A9") EQUS єm("ZX Spectrum") єEQUS єm("Amstrad CPC") ў ╦\ Transmit control block б .L0AE5 л+BRK :\ Control byte ж1BRK :\ Port &00=Immediate Ю .L0AE7 Й&EQUB &FE :\ Station Т .L0AE8 Ч&EQUB &00 :\ Network 1EQUW L0900 :EQUW &FFFF :\ Data start address /EQUW L0900+4:EQUW &FFFF :\ Data end address & .L0AB1 0\EQUS "cSJ26oct92" :]М DGЯ "*SAVE STATIONS ";~mcode%;" ";~O%;" ";~exec%└&FFFF0000;" ";~load% Ъ