370 lines
23 KiB
Plaintext
370 lines
23 KiB
Plaintext
{{
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ Autor: Ingo Kripahle │
|
|
│ Copyright (c) 2010 Ingo Kripahle │
|
|
│ See end of file for terms of use. │
|
|
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com
|
|
System : TriOS
|
|
Name : plexus-tool
|
|
Chip : Regnatix
|
|
Typ : Programm
|
|
Version :
|
|
Subversion :
|
|
|
|
Logbuch :
|
|
|
|
24-10-2010-dr235
|
|
|
|
Kommandoliste:
|
|
|
|
Notizen:
|
|
|
|
|
|
|
|
}}
|
|
|
|
OBJ
|
|
num: "numbers"
|
|
ios: "ios"
|
|
|
|
CON
|
|
|
|
_CLKMODE = XTAL1 + PLL16X
|
|
_XINFREQ = 5_000_000
|
|
|
|
OS_TIBLEN = 64 'gr??e des inputbuffers
|
|
|
|
|
|
VAR
|
|
'systemvariablen
|
|
byte tib[OS_TIBLEN] 'tastatur-input-buffer
|
|
byte cmdstr[OS_TIBLEN] 'kommandostring f?r interpreter
|
|
byte token1[OS_TIBLEN] 'parameterstring 1 für interpreter
|
|
byte token2[OS_TIBLEN] 'parameterstring 2 für interpreter
|
|
byte tibpos 'aktuelle position im tib
|
|
long ppos 'puffer für adresse
|
|
long pcnt 'puffer für zeilenzahl
|
|
|
|
byte plxnr 'nummer des geöffneten plexus
|
|
|
|
PUB main | wflag
|
|
|
|
ios.start 'ios initialisieren
|
|
ios.startram
|
|
ios.printnl
|
|
|
|
plxnr := 0
|
|
|
|
repeat
|
|
os_cmdinput 'kommandoeingabe
|
|
os_cmdint 'kommandozeileninterpreter
|
|
|
|
PUB os_cmdinput | charc 'sys: stringeingabe eine zeile
|
|
''funktionsgruppe : sys
|
|
''funktion : stringeingabe eine zeile
|
|
''eingabe : -
|
|
''ausgabe : -
|
|
''variablen : tib - eingabepuffer zur string
|
|
'' : tibpos - aktuelle position im tib
|
|
|
|
ios.print(@prompt2)
|
|
tibpos := 0 'tibposition auf anfang setzen
|
|
repeat until (charc := ios.keywait) == $0D 'tasten einlesen bis return
|
|
if (tibpos + 1) < OS_TIBLEN 'zeile noch nicht zu lang?
|
|
case charc
|
|
ios#CHAR_BS: 'backspace
|
|
if tibpos > 0 'noch nicht anfang der zeile erreeicht?
|
|
tib[tibpos--] := 0 'ein zeichen aus puffer entfernen
|
|
ios.printctrl(ios#CHAR_TER_BS) 'steuerzeichen an terminal senden
|
|
other: 'zeicheneingabe
|
|
tib[tibpos++] := charc 'zeichen speichern
|
|
ios.printchar(charc) 'zeichen ausgeben
|
|
ios.printnl
|
|
tib[tibpos] := 0 'string abschließen
|
|
tibpos := charc := 0 'werte rücksetzen
|
|
|
|
PUB os_nxtoken1: stradr 'sys: token 1 von tib einlesen
|
|
''funktionsgruppe : sys
|
|
''funktion : nächsten token im eingabestring suchen und stringzeiger übergeben
|
|
''eingabe : -
|
|
''ausgabe : stradr - adresse auf einen string mit dem gefundenen token
|
|
''variablen : tib - eingabepuffer zur string
|
|
'' : tibpos - aktuelle position im tib
|
|
'' : token - tokenstring
|
|
|
|
stradr := os_tokenize(@token1)
|
|
|
|
PUB os_nxtoken2: stradr 'sys: token 2 von tib einlesen
|
|
''funktionsgruppe : sys
|
|
''funktion : nächsten token im eingabestring suchen und stringzeiger übergeben
|
|
''eingabe : -
|
|
''ausgabe : stradr - adresse auf einen string mit dem gefundenen token
|
|
''variablen : tib - eingabepuffer zur string
|
|
'' : tibpos - aktuelle position im tib
|
|
'' : token - tokenstring
|
|
|
|
stradr := os_tokenize(@token2)
|
|
|
|
PUB os_tokenize(token):stradr | i 'sys: liest nächsten token aus tib
|
|
|
|
i := 0
|
|
if tib[tibpos] <> 0 'abbruch bei leerem string
|
|
repeat until tib[tibpos] > ios#CHAR_SPACE 'führende leerzeichen ausbenden
|
|
tibpos++
|
|
repeat until (tib[tibpos] == ios#CHAR_SPACE) or (tib[tibpos] == 0) 'wiederholen bis leerzeichen oder stringende
|
|
byte[token][i] := tib[tibpos]
|
|
tibpos++
|
|
i++
|
|
else
|
|
token := 0
|
|
byte[token][i] := 0
|
|
stradr := token
|
|
|
|
PUB os_nextpos: tibpos2 'sys: setzt zeiger auf nächste position
|
|
''funktionsgruppe : sys
|
|
''funktion : tibpos auf nächstes token setzen
|
|
''eingabe : -
|
|
''ausgabe : tibpos2 - position des nächsten tokens in tib
|
|
''variablen : tib - eingabepuffer zur string
|
|
'' : tibpos - aktuelle position im tib
|
|
|
|
if tib[tibpos] <> 0
|
|
repeat until tib[tibpos] > ios#CHAR_SPACE 'führende leerzeichen ausbenden
|
|
tibpos++
|
|
return tibpos
|
|
|
|
PUB os_cmdint 'sys: kommandointerpreter
|
|
''funktionsgruppe : sys
|
|
''funktion : kommandointerpreter; zeichenkette ab tibpos wird als kommando interpretiert
|
|
'' : tibpos wird auf position hinter token gesetzt
|
|
''eingabe : -
|
|
''ausgabe : -
|
|
''variablen : tib - eingabepuffer zur string
|
|
'' : tibpos - aktuelle position im tib
|
|
|
|
repeat 'kommandostring kopieren
|
|
cmdstr[tibpos] := tib[tibpos]
|
|
tibpos++
|
|
until (tib[tibpos] == ios#CHAR_SPACE) or (tib[tibpos] == 0) 'wiederholen bis leerzeichen oder stringende
|
|
cmdstr[tibpos] := 0 'kommandostring abschließen
|
|
os_cmdexec(@cmdstr) 'interpreter aufrufen
|
|
tibpos := 0 'tastaturpuffer zurücksetzen
|
|
tib[0] := 0
|
|
|
|
PUB os_cmdexec(stradr) 'sys: kommando im ?bergebenen string wird als kommando interpretiert
|
|
{{os_smdexec - das kommando im ?bergebenen string wird als kommando interpretiert
|
|
stradr: adresse einer stringvariable die ein kommando enth?lt}}
|
|
if strcomp(stradr,string("help")) 'help
|
|
ios.print(@help1)
|
|
elseif strcomp(stradr,string("open"))
|
|
plx_open
|
|
elseif strcomp(stradr,string("close"))
|
|
plx_close
|
|
elseif strcomp(stradr,string("put"))
|
|
plx_put
|
|
elseif strcomp(stradr,string("get"))
|
|
plx_get
|
|
elseif strcomp(stradr,string("testout"))
|
|
plx_testout
|
|
elseif strcomp(stradr,string("testin"))
|
|
plx_testin
|
|
elseif strcomp(stradr,string("scan"))
|
|
plx_scan
|
|
elseif strcomp(stradr,string("reset"))
|
|
plx_reset
|
|
elseif strcomp(stradr,string("bye"))
|
|
ios.stop
|
|
else 'kommando nicht gefunden
|
|
ios.print(stradr)
|
|
ios.print(@prompt3)
|
|
ios.printnl
|
|
|
|
PRI plx_reset
|
|
|
|
ios.plx_reset
|
|
plxnr := 0
|
|
|
|
PRI plx_scan|i,anz
|
|
|
|
ifnot plxnr
|
|
i := 1
|
|
anz := num.FromStr(os_nxtoken1,num#DEC)
|
|
ifnot anz
|
|
anz := 8
|
|
|
|
repeat anz
|
|
ios.print(string("Plexus :"))
|
|
ios.printtab
|
|
ios.printdec(i)
|
|
ios.printtab
|
|
ios.print(string("Status : "))
|
|
ios.printtab
|
|
if ios.plx_open(i)
|
|
ios.print(string("--"))
|
|
else
|
|
ios.print(string("ON"))
|
|
waitcnt(cnt + clkfreq/100)
|
|
ios.plx_close
|
|
ios.printnl
|
|
i++
|
|
waitcnt(cnt + clkfreq/100)
|
|
else
|
|
os_error(24)
|
|
|
|
|
|
|
|
PRI plx_testout|i
|
|
|
|
if plxnr
|
|
i := 0
|
|
repeat num.FromStr(os_nxtoken1,num#DEC)
|
|
ios.plx_put(1)
|
|
ios.plx_put(i++)
|
|
else
|
|
os_error(23)
|
|
|
|
PRI plx_testin|wert,i
|
|
|
|
if plxnr
|
|
i := 0
|
|
repeat
|
|
wert := plx_portin
|
|
ios.print(string("get["))
|
|
ios.printdec(i++)
|
|
ios.print(string("] : "))
|
|
ios.printtab
|
|
ios.printdec(wert)
|
|
ios.printtab
|
|
ios.print(string(": $"))
|
|
ios.printhex(wert,2)
|
|
ios.printtab
|
|
ios.print(string(": %"))
|
|
ios.printbin(wert,8)
|
|
ios.printnl
|
|
repeat while (wert == plx_portin) AND (ios.keystat == 0)
|
|
until ios.keystat
|
|
ios.key
|
|
else
|
|
os_error(23)
|
|
|
|
PRI plx_portin:wert
|
|
|
|
ios.plx_put(2)
|
|
wert := ios.plx_get
|
|
|
|
PRI plx_open
|
|
|
|
plxnr := num.FromStr(os_nxtoken1,num#DEC)
|
|
if os_error(ios.plx_open(plxnr))
|
|
plxnr := 0
|
|
|
|
PRI plx_close
|
|
|
|
os_error(ios.plx_close)
|
|
plxnr := 0
|
|
|
|
PRI plx_put
|
|
|
|
if plxnr
|
|
ios.plx_put(num.FromStr(os_nxtoken1,num#DEC))
|
|
else
|
|
os_error(23)
|
|
|
|
PRI plx_get|wert
|
|
|
|
if plxnr
|
|
wert := ios.plx_get
|
|
ios.print(string("get : "))
|
|
ios.printdec(wert)
|
|
ios.print(string(" : $"))
|
|
ios.printhex(wert,2)
|
|
ios.print(string(" : %"))
|
|
ios.printbin(wert,8)
|
|
ios.printnl
|
|
else
|
|
os_error(23)
|
|
|
|
PUB os_error(err):error 'sys: fehlerausgabe
|
|
|
|
if err
|
|
ios.printnl
|
|
ios.print(@err_s1)
|
|
ios.printdec(err)
|
|
ios.print(string(" : $"))
|
|
ios.printhex(err,2)
|
|
ios.printnl
|
|
ios.print(@err_s2)
|
|
case err
|
|
0: ios.print(@err0)
|
|
1: ios.print(@err1)
|
|
2: ios.print(@err2)
|
|
3: ios.print(@err3)
|
|
4: ios.print(@err4)
|
|
5: ios.print(@err5)
|
|
6: ios.print(@err6)
|
|
7: ios.print(@err7)
|
|
8: ios.print(@err8)
|
|
9: ios.print(@err9)
|
|
10: ios.print(@err10)
|
|
11: ios.print(@err11)
|
|
12: ios.print(@err12)
|
|
13: ios.print(@err13)
|
|
14: ios.print(@err14)
|
|
15: ios.print(@err15)
|
|
16: ios.print(@err16)
|
|
17: ios.print(@err17)
|
|
18: ios.print(@err18)
|
|
19: ios.print(@err19)
|
|
20: ios.print(@err20)
|
|
21: ios.print(@err21)
|
|
22: ios.print(@err22)
|
|
23: ios.print(@err23)
|
|
24: ios.print(@err24)
|
|
OTHER: ios.print(@errx)
|
|
ios.printnl
|
|
error := err
|
|
|
|
DAT
|
|
prompt1 byte "ok ", $0d, 0
|
|
prompt2 byte ": ", 0
|
|
prompt3 byte "? ",0
|
|
wait1 byte "<WEITER? */q:>",0
|
|
|
|
help1 file "perplex.txt"
|
|
byte $0d,0
|
|
|
|
err_s1 byte "Fehlernummer : ",0
|
|
err_s2 byte "Fehler : ",0
|
|
|
|
err0 byte "no error",0
|
|
err1 byte "fsys unmounted",0
|
|
err2 byte "fsys corrupted",0
|
|
err3 byte "fsys unsupported",0
|
|
err4 byte "not found",0
|
|
err5 byte "file not found",0
|
|
err6 byte "dir not found",0
|
|
err7 byte "file read only",0
|
|
err8 byte "end of file",0
|
|
err9 byte "end of directory",0
|
|
err10 byte "end of root",0
|
|
err11 byte "dir is full",0
|
|
err12 byte "dir is not empty",0
|
|
err13 byte "checksum error",0
|
|
err14 byte "reboot error",0
|
|
err15 byte "bpb corrupt",0
|
|
err16 byte "fsi corrupt",0
|
|
err17 byte "dir already exist",0
|
|
err18 byte "file already exist",0
|
|
err19 byte "out of disk free space",0
|
|
err20 byte "disk io error",0
|
|
err21 byte "command not found",0
|
|
err22 byte "timeout",0
|
|
err23 byte "device not open",0
|
|
err24 byte "device is open",0
|
|
errx byte "undefined",0
|
|
|