flash\admflash.spin
- grundlegende com-funktionen eingefügt lib\reg-ios.spin - com-funktionen - ios.screeninit: kein logo im v-modus system\administra\admay\admay.spin - sd_dmput eingefügt - sd_eof eingefügt system\regnatix\admtest.spin - korrektur bei fehlerhaftem screeninit system\regnatix\beltest.spin - menü eingefügt um einzelnen tests auszuführen - anpassung an tv-modus - neuer test für fensterfunktionen system\regnatix - tool man eingefügt - umstrukturierung aller tool-hilfen an man - anpassung der meisten tools an tv-modus system\sonstiges - man-hilfetexte eingefügt
This commit is contained in:
drohne235@gmail.com
parent
08da8abf1e
commit
5776c82152
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -6,8 +6,7 @@ ifnot: lib:bel
|
|||
|
||||
ifnot: [b.w!]
|
||||
: [b.w!] \ ( 16b -- ) - word an bellatrix senden
|
||||
dup 8 rshift [b!]
|
||||
[b!] ;
|
||||
dup 8 rshift [b!] [b!] ;
|
||||
|
||||
\ kommandoformate
|
||||
|
||||
|
|
@ -80,78 +79,3 @@ ifnot: bel:load \ ( cstr -- ) - bellatrix-code laden
|
|||
|
||||
|
||||
|
||||
hex
|
||||
|
||||
ifnot: lib:bel
|
||||
: lib:bel ;
|
||||
|
||||
\ kommandoformate
|
||||
|
||||
ifnot: bel:fkt! \ ( fkt -- )
|
||||
: bel:fkt! b[ 0 [b!] [b!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b! \ ( b fkt -- )
|
||||
: bel:fkt!b! b[ 0 [b!] [b!] [b!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b!l@ \ ( b fkt -- l )
|
||||
: bel:fkt!b!l@ b[ 0 [b!] [b!] [b!] [b.l@] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b!l! \ ( l b fkt -- )
|
||||
: bel:fkt!b!l! b[ 0 [b!] [b!] [b!] [b.l!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!l@ \ ( fkt -- l )
|
||||
: bel:fkt!l@ b[ 0 [b!] [b!] [b.l@] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b@ \ ( fkt -- b )
|
||||
: bel:fkt!b@ b[ 0 [b!] [b!] [b@] ]b ;
|
||||
|
||||
\ chipmanagment-funktionen
|
||||
|
||||
ifnot: bel:wscr \ ( scrnr -- ) - schreibscreen setzen
|
||||
: bel:wscr 58 bel:fkt!b! ;
|
||||
|
||||
ifnot: bel:dscr \ ( scrnr -- ) - displayscreen setzen
|
||||
: bel:dscr 59 bel:fkt!b! ;
|
||||
|
||||
ifnot: bel:getcol \ ( colnr -- col ) - farbe abfragen
|
||||
: bel:getcol 5A bel:fkt!b!l@ ;
|
||||
|
||||
ifnot: bel:setcol \ ( col colnr -- ) - farbe setzen
|
||||
: bel:setcol 5B bel:fkt!b!l! ;
|
||||
|
||||
ifnot: bel:getresx \ ( -- resx ) - abfrage x-auflösung
|
||||
: bel:getresx 5C bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getresy \ ( -- resy ) - abfrage y-auflösung
|
||||
: bel:getresy 5D bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getcols \ ( -- cols ) - abfrage textspalten
|
||||
: bel:getcols 5E bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getrows \ ( -- rows ) - abfrage textzeilen
|
||||
: bel:getrows 5F bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getcogs \ ( -- cogs ) - abfrage belegte cogs
|
||||
: bel:getcogs 60 bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getspec \ ( -- spec ) - abfrage codespezifikation
|
||||
: bel:getspec 61 bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getver \ ( -- ver ) - abfrage codeversion
|
||||
: bel:getver 62 bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:load \ ( cstr -- ) - bellatrix-code laden
|
||||
: bel:load
|
||||
52 adm:open .err \ datei öffnen
|
||||
b[
|
||||
0 [b!] 57 [b!] \ bella-loader starten
|
||||
10 0 do 06 [a!] [a@] [b!] loop \ header einlesen
|
||||
0A [a!] 0 [a.l!] \ 0 adm:seek
|
||||
[b@] <8 [b@] or \ dateilänge empfangen
|
||||
0 do 06 [a!] [a@] [b!] loop \ datei senden
|
||||
]b
|
||||
adm:close .err \ datei schließen
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,59 @@
|
|||
\ require ari.lib
|
||||
|
||||
ifnot: lib:g0
|
||||
: lib:g0 ;
|
||||
|
||||
hex
|
||||
|
||||
10 constant g0:xtiles
|
||||
0C constant g0:ytiles
|
||||
5000 constant g0:disp_base
|
||||
|
||||
decimal
|
||||
|
||||
ifnot: g0:load
|
||||
: g0:load
|
||||
c" g0key.bel" bel:load ;
|
||||
|
||||
ifnot: g0:reboot
|
||||
: g0:reboot 99 b[ [b!] ]b ;
|
||||
|
||||
hex
|
||||
|
||||
ifnot: g0:setcolortab
|
||||
: g0:setcolortab \ ( addr -- )
|
||||
5D b[ [b!]
|
||||
40 0 do dup L@ [b.l!] 4 + loop
|
||||
]b drop ;
|
||||
|
||||
ifnot: g0:settilescreen
|
||||
: g0:settilescreen \ ( addr -- )
|
||||
5E b[ [b!]
|
||||
g0:ytiles 0 do
|
||||
g0:xtiles 0 do dup W@ [b.w!] 2 + loop
|
||||
loop ]b drop ;
|
||||
|
||||
decimal
|
||||
|
||||
\ ifnot: g0:setscreen
|
||||
: g0:setscreen \ ( addr addr -- )
|
||||
g0:setcolortab g0:settilescreen ;
|
||||
|
||||
ifnot: g0:static
|
||||
: g0:static 98 b[ [b!] ]b ;
|
||||
|
||||
ifnot: g0:dynamic
|
||||
: g0:dynamic 97 b[ [b!] ]b ;
|
||||
|
||||
ifnot: g0:clear \ ( -- ) - bildschirm loeschen
|
||||
: g0:clear 10 b[ [b!] ]b ;
|
||||
|
||||
ifnot: g0:color \ ( color -- ) - zeichenfarbe setzen
|
||||
: g0:color 12 b[ [b!] [b!] ]b ;
|
||||
|
||||
ifnot: g0:width \ ( x -- ) - punktgroesse setzen
|
||||
: g0:width 13 b[ [b!] [b!] ]b ;
|
||||
|
||||
ifnot: g0:plot \ ( y x -- ) - punkt setzen
|
||||
: g0:plot 15 b[ [b!] [b!] [b!] ]b ] ;
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -51,7 +51,7 @@ hplay - hss-player
|
|||
wplay - wav-player
|
||||
sfxtool - hss-soundeffekte erstellen
|
||||
|
||||
vga.bin - vga 1024 x 768 pixel, 64 x 24 zeichen
|
||||
htext.bin - vga 1024 x 768 pixel, 128 x 48 zeichen
|
||||
tv.bin - tv-textmodus 40 x 13 zeichen
|
||||
vga.bel - vga 1024 x 768 pixel, 64 x 24 zeichen
|
||||
htext.bel - vga 1024 x 768 pixel, 128 x 48 zeichen
|
||||
tv.bel - tv-textmodus 40 x 13 zeichen
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,48 @@
|
|||
\ requires bel.lib
|
||||
\ requires g0.lib
|
||||
\ requires ari.lib
|
||||
|
||||
hex
|
||||
|
||||
: it ; \ fuer forget
|
||||
|
||||
variable colortab 40 4* 4 - allot
|
||||
variable tiletab g0:xtiles g0:ytiles * 2* 4 - allot
|
||||
|
||||
: fillcolortab
|
||||
colortab
|
||||
40 0 do
|
||||
i dup + 4 + 0F and 00001010 * 0D060D02 +
|
||||
over L! 4+
|
||||
loop drop
|
||||
;
|
||||
|
||||
: filltilescreen
|
||||
tiletab g0:disp_base 6 rshift
|
||||
g0:ytiles 0 do
|
||||
g0:xtiles 0 do
|
||||
swap 2dup W! 2+ swap g0:ytiles +
|
||||
loop 341 +
|
||||
loop 2drop ;
|
||||
|
||||
decimal
|
||||
|
||||
: setscreen
|
||||
fillcolortab filltilescreen
|
||||
tiletab colortab g0:setscreen
|
||||
;
|
||||
|
||||
: tpix
|
||||
g0:load setscreen g0:static
|
||||
g0:clear 14 g0:width 1 g0:color
|
||||
g0:xtiles 0 do i 16 * 8 +
|
||||
g0:ytiles 0 do i 16 * 8 + over g0:plot loop drop
|
||||
loop
|
||||
key g0:clear
|
||||
2000 0 do
|
||||
rnd 31 and g0:width rnd 3 and g0:color
|
||||
rnd rnd g0:plot
|
||||
loop
|
||||
key g0:reboot
|
||||
cr ." erledigt" cr
|
||||
;
|
||||
|
|
@ -0,0 +1,49 @@
|
|||
|
||||
hex
|
||||
|
||||
ifnot: lib:win
|
||||
: lib:win ;
|
||||
|
||||
\ kommandoformate
|
||||
|
||||
ifnot: bel:char \ ( b -- )
|
||||
: bel:char b[ [b!] ]b ;
|
||||
ifnot: bel:fkt! \ ( fkt -- )
|
||||
: bel:fkt! b[ 0 [b!] [b!] ]b ;
|
||||
ifnot: bel:fkt!b! \ ( b fkt -- )
|
||||
: bel:fkt!b! b[ 0 [b!] [b!] [b!] ]b ;
|
||||
ifnot: bel:fkt!b@ \ ( fkt -- b )
|
||||
: bel:fkt!b@ b[ 0 [b!] [b!] [b@] ]b ;
|
||||
ifnot: bel:fkt!b!b! \ ( b b fkt -- )
|
||||
: bel:fkt!b!b! b[ 0 [b!] [b!] [b!] [b!] ]b ;
|
||||
ifnot: bel:fkt!5b! \ ( b b b b b fkt -- )
|
||||
: bel:fkt!5b! b[ 0 [b!] [b!] [b!] [b!] [b!] [b!] [b!] ]b ;
|
||||
ifnot: bel:ctrl! \ ( ctrl -- )
|
||||
: bel:ctrl! b[ 0 [b!] 3 [b!] [b!] ]b ;
|
||||
ifnot: bel:ctrl!b! \ ( b ctrl -- )
|
||||
: bel:ctrl!b! b[ 0 [b!] 3 [b!] [b!] [b!] ]b ;
|
||||
ifnot: bel:ctrl!b@ \ ( ctrl -- b@ )
|
||||
: bel:ctrl!b@ b[ 0 [b!] 3 [b!] [b!] [b@] ]b ;
|
||||
ifnot: bel:ctrl!b!b! \ ( b b ctrl -- )
|
||||
: bel:ctrl!b!b! b[ 0 [b!] 3 [b!] [b!] [b!] [b!] [b!] ]b ;
|
||||
|
||||
|
||||
\ fensterfunktionen
|
||||
|
||||
ifnot: win:define \ ( yn xn y0 x0 w ) - fenster definieren
|
||||
: win:define
|
||||
50 bel:fkt!5b! ;
|
||||
|
||||
ifnot: win:set \ ( w -- ) - fenster auswählen
|
||||
: win:set 52 bel:fkt!b! ;
|
||||
|
||||
ifnot: win:getcols \ ( -- cols ) - anzahl spalten im fenster abfragen
|
||||
: win:getcols 54 bel:fkt!b@ ;
|
||||
|
||||
ifnot: win:getrows \ ( -- rows ) - anzahl zeilen im fenster abfragen
|
||||
: win:getrows 55 bel:fkt!b@ ;
|
||||
|
||||
ifnot: win:oframe \ ( -- ) - rahmen um fenster zeichnen
|
||||
: win:oframe 56 bel:fkt! ;
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -6,8 +6,7 @@ ifnot: lib:bel
|
|||
|
||||
ifnot: [b.w!]
|
||||
: [b.w!] \ ( 16b -- ) - word an bellatrix senden
|
||||
dup 8 rshift [b!]
|
||||
[b!] ;
|
||||
dup 8 rshift [b!] [b!] ;
|
||||
|
||||
\ kommandoformate
|
||||
|
||||
|
|
@ -80,78 +79,3 @@ ifnot: bel:load \ ( cstr -- ) - bellatrix-code laden
|
|||
|
||||
|
||||
|
||||
hex
|
||||
|
||||
ifnot: lib:bel
|
||||
: lib:bel ;
|
||||
|
||||
\ kommandoformate
|
||||
|
||||
ifnot: bel:fkt! \ ( fkt -- )
|
||||
: bel:fkt! b[ 0 [b!] [b!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b! \ ( b fkt -- )
|
||||
: bel:fkt!b! b[ 0 [b!] [b!] [b!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b!l@ \ ( b fkt -- l )
|
||||
: bel:fkt!b!l@ b[ 0 [b!] [b!] [b!] [b.l@] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b!l! \ ( l b fkt -- )
|
||||
: bel:fkt!b!l! b[ 0 [b!] [b!] [b!] [b.l!] ]b ;
|
||||
|
||||
ifnot: bel:fkt!l@ \ ( fkt -- l )
|
||||
: bel:fkt!l@ b[ 0 [b!] [b!] [b.l@] ]b ;
|
||||
|
||||
ifnot: bel:fkt!b@ \ ( fkt -- b )
|
||||
: bel:fkt!b@ b[ 0 [b!] [b!] [b@] ]b ;
|
||||
|
||||
\ chipmanagment-funktionen
|
||||
|
||||
ifnot: bel:wscr \ ( scrnr -- ) - schreibscreen setzen
|
||||
: bel:wscr 58 bel:fkt!b! ;
|
||||
|
||||
ifnot: bel:dscr \ ( scrnr -- ) - displayscreen setzen
|
||||
: bel:dscr 59 bel:fkt!b! ;
|
||||
|
||||
ifnot: bel:getcol \ ( colnr -- col ) - farbe abfragen
|
||||
: bel:getcol 5A bel:fkt!b!l@ ;
|
||||
|
||||
ifnot: bel:setcol \ ( col colnr -- ) - farbe setzen
|
||||
: bel:setcol 5B bel:fkt!b!l! ;
|
||||
|
||||
ifnot: bel:getresx \ ( -- resx ) - abfrage x-auflösung
|
||||
: bel:getresx 5C bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getresy \ ( -- resy ) - abfrage y-auflösung
|
||||
: bel:getresy 5D bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getcols \ ( -- cols ) - abfrage textspalten
|
||||
: bel:getcols 5E bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getrows \ ( -- rows ) - abfrage textzeilen
|
||||
: bel:getrows 5F bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getcogs \ ( -- cogs ) - abfrage belegte cogs
|
||||
: bel:getcogs 60 bel:fkt!b@ ;
|
||||
|
||||
ifnot: bel:getspec \ ( -- spec ) - abfrage codespezifikation
|
||||
: bel:getspec 61 bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:getver \ ( -- ver ) - abfrage codeversion
|
||||
: bel:getver 62 bel:fkt!l@ ;
|
||||
|
||||
ifnot: bel:load \ ( cstr -- ) - bellatrix-code laden
|
||||
: bel:load
|
||||
52 adm:open .err \ datei öffnen
|
||||
b[
|
||||
0 [b!] 57 [b!] \ bella-loader starten
|
||||
10 0 do 06 [a!] [a@] [b!] loop \ header einlesen
|
||||
0A [a!] 0 [a.l!] \ 0 adm:seek
|
||||
[b@] <8 [b@] or \ dateilänge empfangen
|
||||
0 do 06 [a!] [a@] [b!] loop \ datei senden
|
||||
]b
|
||||
adm:close .err \ datei schließen
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,23 +0,0 @@
|
|||
|
||||
fl
|
||||
|
||||
hex
|
||||
|
||||
\ metafunktionen
|
||||
|
||||
: (bload) \ ( cstr -- ) - belatrix-code laden
|
||||
|
||||
52 adm:open .err \ datei öffnen
|
||||
b[
|
||||
0 [b!] 63 [b!] \ bella-loader starten
|
||||
10 0 do 06 [a!] [a@] [b!] loop \ header einlesen
|
||||
0A [a!] 0 [a.l!] \ 0 adm:seek
|
||||
[b@] <8 [b@] or \ dateilänge empfangen
|
||||
0 do 06 [a!] [a@] [b!] loop \ datei senden
|
||||
]b
|
||||
adm:close .err \ datei schließen
|
||||
;
|
||||
|
||||
: bload \ name ( -- ) - bellatrix-code laden
|
||||
parsenw (bload) ;
|
||||
|
||||
|
|
@ -0,0 +1,334 @@
|
|||
'' Singleton version of:
|
||||
''
|
||||
''********************************************
|
||||
''* Full-Duplex Serial Driver v1.2 *
|
||||
''* Author: Chip Gracey, Jeff Martin *
|
||||
''* Copyright (c) 2006-2009 Parallax, Inc. *
|
||||
''* See end of file for terms of use. *
|
||||
''********************************************
|
||||
|
||||
{-----------------REVISION HISTORY-----------------
|
||||
v1.2 - 5/7/2009 fixed bug in dec method causing largest negative value (-2,147,483,648) to be output as -0.
|
||||
v1.1 - 3/1/2006 first official release.
|
||||
}
|
||||
CON EOL = $a
|
||||
CON CR = $d
|
||||
|
||||
VAR
|
||||
|
||||
long cog 'cog flag/id
|
||||
|
||||
DAT
|
||||
|
||||
rx_head long 0 '9 contiguous longs
|
||||
rx_tail long 0
|
||||
tx_head long 0
|
||||
tx_tail long 0
|
||||
rx_pin long 0
|
||||
tx_pin long 0
|
||||
rxtx_mode long 0
|
||||
bit_ticks long 0
|
||||
buffer_ptr long 0
|
||||
|
||||
rx_buffer byte 0 [16] 'transmit and receive buffers
|
||||
tx_buffer byte 0 [16]
|
||||
|
||||
|
||||
PUB start(rxpin, txpin, mode, baudrate) : okay
|
||||
|
||||
'' Start serial driver - starts a cog
|
||||
'' returns false if no cog available
|
||||
''
|
||||
'' mode bit 0 = invert rx
|
||||
'' mode bit 1 = invert tx
|
||||
'' mode bit 2 = open-drain/source tx
|
||||
'' mode bit 3 = ignore tx echo on rx
|
||||
|
||||
stop
|
||||
longfill(@rx_head, 0, 4)
|
||||
longmove(@rx_pin, @rxpin, 3)
|
||||
bit_ticks := clkfreq / baudrate
|
||||
buffer_ptr := @rx_buffer
|
||||
okay := cog := cognew(@entry, @rx_head) + 1
|
||||
|
||||
|
||||
PUB stop
|
||||
|
||||
'' Stop serial driver - frees a cog
|
||||
|
||||
if cog
|
||||
cogstop(cog~ - 1)
|
||||
longfill(@rx_head, 0, 9)
|
||||
|
||||
|
||||
PUB rxflush
|
||||
|
||||
'' Flush receive buffer
|
||||
|
||||
repeat while rxcheck => 0
|
||||
|
||||
PUB rxready
|
||||
return rx_tail <> rx_head
|
||||
|
||||
PUB rxcheck : rxbyte
|
||||
|
||||
'' Check if byte received (never waits)
|
||||
'' returns -1 if no byte received, $00..$FF if byte
|
||||
|
||||
rxbyte--
|
||||
if rx_tail <> rx_head
|
||||
rxbyte := rx_buffer[rx_tail]
|
||||
rx_tail := (rx_tail + 1) & $F
|
||||
|
||||
|
||||
PUB rxtime(ms) : rxbyte | t
|
||||
|
||||
'' Wait ms milliseconds for a byte to be received
|
||||
'' returns -1 if no byte received, $00..$FF if byte
|
||||
|
||||
t := cnt
|
||||
repeat until (rxbyte := rxcheck) => 0 or (cnt - t) / (clkfreq / 1000) > ms
|
||||
|
||||
|
||||
PUB rx : rxbyte
|
||||
|
||||
'' Receive byte (may wait for byte)
|
||||
'' returns $00..$FF
|
||||
|
||||
repeat while (rxbyte := rxcheck) < 0
|
||||
|
||||
PUB out(txbyte)
|
||||
tx(txbyte)
|
||||
|
||||
PUB tx(txbyte)
|
||||
|
||||
if txbyte == EOL
|
||||
tx(CR)
|
||||
|
||||
'' Send byte (may wait for room in buffer)
|
||||
|
||||
repeat until (tx_tail <> (tx_head + 1) & $F)
|
||||
tx_buffer[tx_head] := txbyte
|
||||
tx_head := (tx_head + 1) & $F
|
||||
|
||||
if rxtx_mode & %1000
|
||||
rx
|
||||
|
||||
|
||||
PUB str(stringptr)
|
||||
|
||||
'' Send string
|
||||
|
||||
repeat while byte[stringptr]
|
||||
tx(byte[stringptr++])
|
||||
|
||||
|
||||
PUB dec(value) | i, x
|
||||
|
||||
'' Print a decimal number
|
||||
|
||||
x := value == NEGX 'Check for max negative
|
||||
if value < 0
|
||||
value := ||(value+x) 'If negative, make positive; adjust for max negative
|
||||
tx("-") 'and output sign
|
||||
|
||||
i := 1_000_000_000 'Initialize divisor
|
||||
|
||||
repeat 10 'Loop for 10 digits
|
||||
if value => i
|
||||
tx(value / i + "0" + x*(i == 1)) 'If non-zero digit, output digit; adjust for max negative
|
||||
value //= i 'and digit from value
|
||||
result~~ 'flag non-zero found
|
||||
elseif result or i == 1
|
||||
tx("0") 'If zero digit (or only digit) output it
|
||||
i /= 10 'Update divisor
|
||||
|
||||
|
||||
PUB hex(value, digits)
|
||||
|
||||
'' Print a hexadecimal number
|
||||
|
||||
value <<= (8 - digits) << 2
|
||||
repeat digits
|
||||
tx(lookupz((value <-= 4) & $F : "0".."9", "A".."F"))
|
||||
|
||||
|
||||
PUB bin(value, digits)
|
||||
|
||||
'' Print a binary number
|
||||
|
||||
value <<= 32 - digits
|
||||
repeat digits
|
||||
tx((value <-= 1) & 1 + "0")
|
||||
|
||||
|
||||
DAT
|
||||
|
||||
'***********************************
|
||||
'* Assembly language serial driver *
|
||||
'***********************************
|
||||
|
||||
org
|
||||
'
|
||||
'
|
||||
' Entry
|
||||
'
|
||||
entry mov t1,par 'get structure address
|
||||
add t1,#4 << 2 'skip past heads and tails
|
||||
|
||||
rdlong t2,t1 'get rx_pin
|
||||
mov rxmask,#1
|
||||
shl rxmask,t2
|
||||
|
||||
add t1,#4 'get tx_pin
|
||||
rdlong t2,t1
|
||||
mov txmask,#1
|
||||
shl txmask,t2
|
||||
|
||||
add t1,#4 'get rxtx_mode
|
||||
rdlong rxtxmode,t1
|
||||
|
||||
add t1,#4 'get bit_ticks
|
||||
rdlong bitticks,t1
|
||||
|
||||
add t1,#4 'get buffer_ptr
|
||||
rdlong rxbuff,t1
|
||||
mov txbuff,rxbuff
|
||||
add txbuff,#16
|
||||
|
||||
test rxtxmode,#%100 wz 'init tx pin according to mode
|
||||
test rxtxmode,#%010 wc
|
||||
if_z_ne_c or outa,txmask
|
||||
if_z or dira,txmask
|
||||
|
||||
mov txcode,#transmit 'initialize ping-pong multitasking
|
||||
'
|
||||
'
|
||||
' Receive
|
||||
'
|
||||
receive jmpret rxcode,txcode 'run a chunk of transmit code, then return
|
||||
|
||||
test rxtxmode,#%001 wz 'wait for start bit on rx pin
|
||||
test rxmask,ina wc
|
||||
if_z_eq_c jmp #receive
|
||||
|
||||
mov rxbits,#9 'ready to receive byte
|
||||
mov rxcnt,bitticks
|
||||
shr rxcnt,#1
|
||||
add rxcnt,cnt
|
||||
|
||||
:bit add rxcnt,bitticks 'ready next bit period
|
||||
|
||||
:wait jmpret rxcode,txcode 'run a chuck of transmit code, then return
|
||||
|
||||
mov t1,rxcnt 'check if bit receive period done
|
||||
sub t1,cnt
|
||||
cmps t1,#0 wc
|
||||
if_nc jmp #:wait
|
||||
|
||||
test rxmask,ina wc 'receive bit on rx pin
|
||||
rcr rxdata,#1
|
||||
djnz rxbits,#:bit
|
||||
|
||||
shr rxdata,#32-9 'justify and trim received byte
|
||||
and rxdata,#$FF
|
||||
test rxtxmode,#%001 wz 'if rx inverted, invert byte
|
||||
if_nz xor rxdata,#$FF
|
||||
|
||||
rdlong t2,par 'save received byte and inc head
|
||||
add t2,rxbuff
|
||||
wrbyte rxdata,t2
|
||||
sub t2,rxbuff
|
||||
add t2,#1
|
||||
and t2,#$0F
|
||||
wrlong t2,par
|
||||
|
||||
jmp #receive 'byte done, receive next byte
|
||||
'
|
||||
'
|
||||
' Transmit
|
||||
'
|
||||
transmit jmpret txcode,rxcode 'run a chunk of receive code, then return
|
||||
|
||||
mov t1,par 'check for head <> tail
|
||||
add t1,#2 << 2
|
||||
rdlong t2,t1
|
||||
add t1,#1 << 2
|
||||
rdlong t3,t1
|
||||
cmp t2,t3 wz
|
||||
if_z jmp #transmit
|
||||
|
||||
add t3,txbuff 'get byte and inc tail
|
||||
rdbyte txdata,t3
|
||||
sub t3,txbuff
|
||||
add t3,#1
|
||||
and t3,#$0F
|
||||
wrlong t3,t1
|
||||
|
||||
or txdata,#$100 'ready byte to transmit
|
||||
shl txdata,#2
|
||||
or txdata,#1
|
||||
mov txbits,#11
|
||||
mov txcnt,cnt
|
||||
|
||||
:bit test rxtxmode,#%100 wz 'output bit on tx pin according to mode
|
||||
test rxtxmode,#%010 wc
|
||||
if_z_and_c xor txdata,#1
|
||||
shr txdata,#1 wc
|
||||
if_z muxc outa,txmask
|
||||
if_nz muxnc dira,txmask
|
||||
add txcnt,bitticks 'ready next cnt
|
||||
|
||||
:wait jmpret txcode,rxcode 'run a chunk of receive code, then return
|
||||
|
||||
mov t1,txcnt 'check if bit transmit period done
|
||||
sub t1,cnt
|
||||
cmps t1,#0 wc
|
||||
if_nc jmp #:wait
|
||||
|
||||
djnz txbits,#:bit 'another bit to transmit?
|
||||
|
||||
jmp #transmit 'byte done, transmit next byte
|
||||
'
|
||||
'
|
||||
' Uninitialized data
|
||||
'
|
||||
t1 res 1
|
||||
t2 res 1
|
||||
t3 res 1
|
||||
|
||||
rxtxmode res 1
|
||||
bitticks res 1
|
||||
|
||||
rxmask res 1
|
||||
rxbuff res 1
|
||||
rxdata res 1
|
||||
rxbits res 1
|
||||
rxcnt res 1
|
||||
rxcode res 1
|
||||
|
||||
txmask res 1
|
||||
txbuff res 1
|
||||
txdata res 1
|
||||
txbits res 1
|
||||
txcnt res 1
|
||||
txcode res 1
|
||||
|
||||
{{
|
||||
|
||||
+------------------------------------------------------------------------------------------------------------------------------+
|
||||
¦ TERMS OF USE: MIT License ¦
|
||||
+------------------------------------------------------------------------------------------------------------------------------¦
|
||||
¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦
|
||||
¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦
|
||||
¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦
|
||||
¦is furnished to do so, subject to the following conditions: ¦
|
||||
¦ ¦
|
||||
¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦
|
||||
¦ ¦
|
||||
¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦
|
||||
¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦
|
||||
¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦
|
||||
¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦
|
||||
+------------------------------------------------------------------------------------------------------------------------------+
|
||||
}}
|
||||
BIN
lib/reg-ios.spin
BIN
lib/reg-ios.spin
Binary file not shown.
32
logbuch.txt
32
logbuch.txt
|
|
@ -1,6 +1,34 @@
|
|||
20.02.2013 dr235/u-held
|
||||
r54 - 15-04-2013-dr235:
|
||||
|
||||
r53:
|
||||
flash\admflash.spin
|
||||
- grundlegende com-funktionen eingefügt
|
||||
|
||||
lib\reg-ios.spin
|
||||
- com-funktionen
|
||||
- ios.screeninit: kein logo im v-modus
|
||||
|
||||
system\administra\admay\admay.spin
|
||||
- sd_dmput eingefügt
|
||||
- sd_eof eingefügt
|
||||
|
||||
system\regnatix\admtest.spin
|
||||
- korrektur bei fehlerhaftem screeninit
|
||||
|
||||
system\regnatix\beltest.spin
|
||||
- menü eingefügt um einzelnen tests auszuführen
|
||||
- anpassung an tv-modus
|
||||
- neuer test für fensterfunktionen
|
||||
|
||||
system\regnatix
|
||||
- tool man eingefügt
|
||||
- umstrukturierung aller tool-hilfen an man
|
||||
- anpassung der meisten tools an tv-modus
|
||||
|
||||
system\sonstiges
|
||||
- man-hilfetexte eingefügt
|
||||
|
||||
|
||||
r53 - 20.02.2013 dr235/u-held:
|
||||
|
||||
flash\admflash.spin
|
||||
- scr-funktionen ausgefügt
|
||||
|
|
|
|||
7
make.bat
7
make.bat
|
|
@ -38,19 +38,14 @@ move tv.bel %sd-sys%
|
|||
move regflash.binary %flash%
|
||||
|
||||
REM ----------------------------------------------------------------
|
||||
REM Startdateien erzeugen
|
||||
REM Startdateie erzeugen
|
||||
REM reg.sys (Regime)
|
||||
REM bel.sys (VGA)
|
||||
REM --> \bin\sdcard\
|
||||
|
||||
%BSTC% -L %libpath% -b -O a .\system\regnatix\regime.spin
|
||||
rename regime.binary reg.sys
|
||||
move reg.sys %sd%
|
||||
|
||||
REM %BSTC% -L %libpath% -b -O a .\flash\bellatrix\belflash.spin
|
||||
REM rename belflash.binary bel.sys
|
||||
REM move bel.sys %sd%
|
||||
copy %flash%\belflash.binary %sd%\bel.sys
|
||||
|
||||
REM ----------------------------------------------------------------
|
||||
REM Slave-Dateien erzeugen
|
||||
|
|
|
|||
141
make.log
141
make.log
|
|
@ -1,9 +1,9 @@
|
|||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>date /T
|
||||
20.02.2013
|
||||
14.04.2013
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>time /T
|
||||
19:07
|
||||
19:47
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM Pfade
|
||||
|
||||
|
|
@ -42,9 +42,10 @@ Loading Object adm-rtc.spin
|
|||
Loading Object adm-hss
|
||||
Loading Object adm-wav
|
||||
Loading Object adm-rtc
|
||||
Program size is 12732 longs
|
||||
Loading Object adm-com
|
||||
Program size is 13392 longs
|
||||
2 Constants folded
|
||||
Compiled 2491 Lines of Code in 0,237 Seconds
|
||||
Compiled 2690 Lines of Code in 0,363 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>copy admflash.binary ".\bin\flash"
|
||||
1 Datei(en) kopiert.
|
||||
|
|
@ -64,7 +65,7 @@ Loading Object bel-keyb
|
|||
Loading Object bel-bus
|
||||
Program size is 7612 longs
|
||||
25 Constants folded
|
||||
Compiled 1328 Lines of Code in 0,141 Seconds
|
||||
Compiled 1328 Lines of Code in 0,244 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>copy belflash.binary ".\bin\flash"
|
||||
1 Datei(en) kopiert.
|
||||
|
|
@ -84,7 +85,7 @@ Loading Object bel-keyb
|
|||
Loading Object bel-bus
|
||||
Program size is 7656 longs
|
||||
27 Constants folded
|
||||
Compiled 1383 Lines of Code in 0,112 Seconds
|
||||
Compiled 1383 Lines of Code in 0,181 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>rename belflash.binary tv.bel
|
||||
|
||||
|
|
@ -96,19 +97,17 @@ Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
|||
Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
||||
Loading Object regflash
|
||||
Program size is 32580 longs
|
||||
Compiled 694 Lines of Code in 0,198 Seconds
|
||||
Compiled 695 Lines of Code in 0,204 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>move regflash.binary ".\bin\flash"
|
||||
1 Datei(en) verschoben.
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM ----------------------------------------------------------------
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM Startdateien erzeugen
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM Startdateie erzeugen
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM reg.sys (Regime)
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM bel.sys (VGA)
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM --> \bin\sdcard\
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\regime.spin
|
||||
|
|
@ -118,24 +117,15 @@ Loading Object regime
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-string
|
||||
Program size is 9372 longs
|
||||
Program size is 9576 longs
|
||||
2 Constants folded
|
||||
Compiled 2594 Lines of Code in 0,189 Seconds
|
||||
Compiled 2590 Lines of Code in 0,186 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>rename regime.binary reg.sys
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>move reg.sys ".\bin\sdcard"
|
||||
1 Datei(en) verschoben.
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM bstc.exe -L ".\lib" -b -O a .\flash\bellatrix\belflash.spin
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM rename belflash.binary bel.sys
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM move bel.sys ".\bin\sdcard"
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>copy ".\bin\flash"\belflash.binary ".\bin\sdcard"\bel.sys
|
||||
1 Datei(en) kopiert.
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM ----------------------------------------------------------------
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM Slave-Dateien erzeugen
|
||||
|
|
@ -152,7 +142,7 @@ Loading Object adm-fat
|
|||
Loading Object adm-rtc.spin
|
||||
Loading Object adm-sid
|
||||
Program size is 12104 longs
|
||||
Compiled 2222 Lines of Code in 0,172 Seconds
|
||||
Compiled 2222 Lines of Code in 0,256 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\administra\admay\admay.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -161,8 +151,8 @@ Loading Object admay
|
|||
Loading Object adm-fat
|
||||
Loading Object adm-rtc.spin
|
||||
Loading Object adm-ay
|
||||
Program size is 8304 longs
|
||||
Compiled 1705 Lines of Code in 0,099 Seconds
|
||||
Program size is 8336 longs
|
||||
Compiled 1711 Lines of Code in 0,139 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>rename *.binary *.adm
|
||||
|
||||
|
|
@ -174,7 +164,7 @@ Loading Object bel-htext
|
|||
Loading Object bel-keyb
|
||||
Program size is 6656 longs
|
||||
12 Constants folded
|
||||
Compiled 958 Lines of Code in 0,099 Seconds
|
||||
Compiled 958 Lines of Code in 0,168 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>REM (siehe oben) bstc.exe -L ".\lib" -b -O a .\system\bellatrix\bel-tv\tv.spin
|
||||
|
||||
|
|
@ -185,7 +175,7 @@ Loading Object g0key
|
|||
Loading Object bel-tv
|
||||
Program size is 7148 longs
|
||||
1 Constants folded
|
||||
Compiled 1870 Lines of Code in 0,097 Seconds
|
||||
Compiled 1870 Lines of Code in 0,163 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>rename *.binary *.bel
|
||||
|
||||
|
|
@ -218,9 +208,9 @@ Loading Object admtest
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-string
|
||||
Program size is 8224 longs
|
||||
Program size is 8216 longs
|
||||
1 Constants folded
|
||||
Compiled 2466 Lines of Code in 0,122 Seconds
|
||||
Compiled 2430 Lines of Code in 0,161 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\beltest.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -228,9 +218,10 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object beltest
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 4812 longs
|
||||
3 Constants folded
|
||||
Compiled 2081 Lines of Code in 0,086 Seconds
|
||||
Loading Object glob-string
|
||||
Program size is 6404 longs
|
||||
5 Constants folded
|
||||
Compiled 2313 Lines of Code in 0,164 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\charmap.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -238,9 +229,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object charmap
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 2272 longs
|
||||
Program size is 2256 longs
|
||||
1 Constants folded
|
||||
Compiled 1779 Lines of Code in 0,06 Seconds
|
||||
Compiled 1743 Lines of Code in 0,089 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\eram.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -249,9 +240,9 @@ Loading Object eram
|
|||
Loading Object glob-numbers
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 8744 longs
|
||||
Program size is 7352 longs
|
||||
2 Constants folded
|
||||
Compiled 2743 Lines of Code in 0,168 Seconds
|
||||
Compiled 2705 Lines of Code in 0,157 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\flash.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -261,9 +252,9 @@ Loading Object reg-ios
|
|||
Loading Object glob-con
|
||||
Loading Object glob-sdspi
|
||||
Loading Object glob-numbers
|
||||
Program size is 7444 longs
|
||||
Program size is 7148 longs
|
||||
7 Constants folded
|
||||
Compiled 3157 Lines of Code in 0,157 Seconds
|
||||
Compiled 3118 Lines of Code in 0,186 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\fterm.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -272,9 +263,9 @@ Loading Object fterm
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-fds
|
||||
Program size is 2676 longs
|
||||
Program size is 2660 longs
|
||||
1 Constants folded
|
||||
Compiled 1959 Lines of Code in 0,076 Seconds
|
||||
Compiled 1923 Lines of Code in 0,113 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\g0test.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -282,9 +273,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object g0test
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 6004 longs
|
||||
Program size is 5988 longs
|
||||
39 Constants folded
|
||||
Compiled 2268 Lines of Code in 0,093 Seconds
|
||||
Compiled 2232 Lines of Code in 0,137 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\hplay.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -292,9 +283,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object hplay
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 4248 longs
|
||||
Program size is 3996 longs
|
||||
9 Constants folded
|
||||
Compiled 2022 Lines of Code in 0,102 Seconds
|
||||
Compiled 1984 Lines of Code in 0,078 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\keycode.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -302,9 +293,20 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object keycode
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 2200 longs
|
||||
Program size is 2184 longs
|
||||
1 Constants folded
|
||||
Compiled 1782 Lines of Code in 0,059 Seconds
|
||||
Compiled 1746 Lines of Code in 0,08 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\man.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
||||
Loading Object man
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-string
|
||||
Program size is 2720 longs
|
||||
1 Constants folded
|
||||
Compiled 1927 Lines of Code in 0,072 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\ramtest.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -312,9 +314,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object ramtest
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 4292 longs
|
||||
Program size is 4276 longs
|
||||
35 Constants folded
|
||||
Compiled 2035 Lines of Code in 0,082 Seconds
|
||||
Compiled 1999 Lines of Code in 0,079 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\regime.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -323,9 +325,9 @@ Loading Object regime
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-string
|
||||
Program size is 9372 longs
|
||||
Program size is 9576 longs
|
||||
2 Constants folded
|
||||
Compiled 2594 Lines of Code in 0,124 Seconds
|
||||
Compiled 2590 Lines of Code in 0,123 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\rom.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -334,9 +336,9 @@ Loading Object rom
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-sdspi
|
||||
Program size is 4384 longs
|
||||
Program size is 4368 longs
|
||||
4 Constants folded
|
||||
Compiled 2395 Lines of Code in 0,098 Seconds
|
||||
Compiled 2359 Lines of Code in 0,102 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\sfxtool.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -345,9 +347,9 @@ Loading Object sfxtool
|
|||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Loading Object glob-numbers
|
||||
Program size is 6352 longs
|
||||
Program size is 6344 longs
|
||||
1 Constants folded
|
||||
Compiled 2568 Lines of Code in 0,108 Seconds
|
||||
Compiled 2532 Lines of Code in 0,112 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\splay.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -355,9 +357,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object splay
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 3308 longs
|
||||
Program size is 3068 longs
|
||||
1 Constants folded
|
||||
Compiled 1893 Lines of Code in 0,09 Seconds
|
||||
Compiled 1855 Lines of Code in 0,067 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\sysconf.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -365,9 +367,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object sysconf
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 4700 longs
|
||||
Program size is 4232 longs
|
||||
2 Constants folded
|
||||
Compiled 1997 Lines of Code in 0,098 Seconds
|
||||
Compiled 1976 Lines of Code in 0,075 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\time.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -377,9 +379,9 @@ Loading Object reg-ios
|
|||
Loading Object glob-con
|
||||
Loading Object glob-string
|
||||
Loading Object glob-numbers
|
||||
Program size is 5824 longs
|
||||
Program size is 5808 longs
|
||||
1 Constants folded
|
||||
Compiled 2557 Lines of Code in 0,114 Seconds
|
||||
Compiled 2521 Lines of Code in 0,15 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\wplay.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -387,9 +389,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object wplay
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 3604 longs
|
||||
Program size is 3340 longs
|
||||
1 Constants folded
|
||||
Compiled 1914 Lines of Code in 0,097 Seconds
|
||||
Compiled 1876 Lines of Code in 0,072 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>bstc.exe -L ".\lib" -b -O a .\system\regnatix\yplay.spin
|
||||
Brads Spin Tool Compiler v0.15.3 - Copyright 2008,2009 All rights reserved
|
||||
|
|
@ -397,9 +399,9 @@ Compiled for i386 Win32 at 08:17:48 on 2009/07/20
|
|||
Loading Object yplay
|
||||
Loading Object reg-ios
|
||||
Loading Object glob-con
|
||||
Program size is 3560 longs
|
||||
Program size is 3348 longs
|
||||
1 Constants folded
|
||||
Compiled 1963 Lines of Code in 0,093 Seconds
|
||||
Compiled 1925 Lines of Code in 0,071 Seconds
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>rename *.binary *.bin
|
||||
|
||||
|
|
@ -413,6 +415,7 @@ H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\fterm.bin
|
|||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\g0test.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\hplay.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\keycode.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\man.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\ramtest.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\regime.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\rom.bin
|
||||
|
|
@ -422,7 +425,7 @@ H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\sysconf.bin
|
|||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\time.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\wplay.bin
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios\yplay.bin
|
||||
18 Datei(en) verschoben.
|
||||
19 Datei(en) verschoben.
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>copy .\forth\*.* ".\bin\sdcard\system"
|
||||
.\forth\adm.lib
|
||||
|
|
@ -456,11 +459,19 @@ H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>copy .\system\son
|
|||
.\system\sonstiges\BW.COL
|
||||
.\system\sonstiges\BWHALF.COL
|
||||
.\system\sonstiges\CHESS.COL
|
||||
.\system\sonstiges\eram.man
|
||||
.\system\sonstiges\flash.man
|
||||
.\system\sonstiges\GREEN.COL
|
||||
.\system\sonstiges\hplay.man
|
||||
.\system\sonstiges\PAR.COL
|
||||
.\system\sonstiges\regime.man
|
||||
.\system\sonstiges\regime.txt
|
||||
.\system\sonstiges\splay.man
|
||||
.\system\sonstiges\sysconf.man
|
||||
.\system\sonstiges\test1.txt
|
||||
.\system\sonstiges\test2.txt
|
||||
9 Datei(en) kopiert.
|
||||
.\system\sonstiges\wplay.man
|
||||
.\system\sonstiges\yplay.man
|
||||
17 Datei(en) kopiert.
|
||||
|
||||
H:\Projekte\Technik\hive 1\software\TriOS\TriOS-SVN\hive-trios>echo off
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,34 @@
|
|||
|
||||
cls - bildschirm löschen
|
||||
bye - player beenden
|
||||
d <adresse> <zeilen> - anzeige eram
|
||||
n - anzeige fortsetzen
|
||||
s <adr> <len> <n> - sucht wert
|
||||
m <adr> <n1> ... <nx> - ram modifizieren (byte)
|
||||
l <adr> <l1> ... <lx> - ram modifizieren (long)
|
||||
load <adr len dname> - ladei datei in eram
|
||||
sysvar - anzeige systemvariablen
|
||||
rbas <adr> - basisadresse setzen
|
||||
info - speicheraufteilung anzeigen
|
||||
f <adr len wert> - speicherbereich füllen (sysmod)
|
||||
fu <adr len wert> - speicherbereich füllen (usermod)
|
||||
xinit - rdisk initialisieren
|
||||
xnew <name> <len> - neue datei anlegen
|
||||
xhead - header anzeigen
|
||||
xdir - dir anzeigen
|
||||
xdel <name> - datei löschen
|
||||
xren <fn1> <fn2> - datei umbenennen
|
||||
xftab - ftab anzeigen
|
||||
xopen <name> - datei öffnen
|
||||
xseek <fnr pos> - zeiger positionieren
|
||||
xput <fnr n cnt> - zeichen in datei schreiben
|
||||
xget <fnr cnt> - zeichenh aus datei lesen
|
||||
xwrite <fnr adr chr> - wert schreiben
|
||||
xread <fnr adr> - wert lesen
|
||||
xload <name> - datei in rd laden
|
||||
xsave <name> - datei fn1 auf sd fn2 speichern
|
||||
|
||||
bas - basisadresse
|
||||
end - endadresse (startsysvar)
|
||||
sys - start systemvariablen
|
||||
rd: <name> - daten datei
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
/? : Hilfe
|
||||
/fh <fn> : Datei in HI-ROM flashen
|
||||
/fl <fn> : Datei in LO-ROM flashen
|
||||
/dh : Dump HI-ROM
|
||||
/dl : Dump LO-ROM
|
||||
/vh <fn> : Vergleich Datei <--> HI-ROM
|
||||
/ch : HI-ROM löschen
|
||||
/cl : LO-ROM löschen
|
||||
/sh <fn> : HI-ROM speichern
|
||||
/sl <fn> : LO-ROM speichern
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
/? : hilfetext
|
||||
/p name.wav : hss-datei abspielen
|
||||
/d : verzeichnis abspielen
|
||||
/s : wiedergabe stoppen
|
||||
/t : anzeige trackerliste
|
||||
/r : anzeige engine-register
|
||||
/i : anzeige interface-register
|
||||
|
|
@ -0,0 +1,57 @@
|
|||
help - diese hilfe
|
||||
<sd:dateiname> - bin/adm/bel-datei wird gestartet
|
||||
mount - sd-card mounten
|
||||
unmount - sd-card abmelden
|
||||
dir wh - verzeichnis anzeigen
|
||||
type <sd:fn> - anzeige einer textdatei
|
||||
aload <sd:fn> - administra-code laden
|
||||
bload <sd:fn> - bellatrix-treiber laden
|
||||
rload <sd:fn> - regnatix-code laden
|
||||
del <sd:fn> - datei löschen
|
||||
cls - bildschirm löschen
|
||||
free - freier speicher auf sd-card
|
||||
attrib <sd:fn> ashr - attribute ändern
|
||||
cd <sd:dir> - verzeichnis wechseln
|
||||
mkdir <sd:dir> - verzeichnis erstellen
|
||||
rename <sd:fn1> <sd:fn2> - datei/verzeichnis umbenennen
|
||||
format <volname> - sd-card formatieren
|
||||
reboot - hive neu starten
|
||||
sysinfo - systeminformationen
|
||||
color <0..7> - farbe wählen
|
||||
cogs - belegung der cogs anzeigen
|
||||
dmlist - anzeige der verzeichnis-marker
|
||||
dm <r/s/u/a/b/c> - in das entsprechende marker-
|
||||
verzeichnis wechseln
|
||||
dmset <r/s/u/a/b/c> - setzt den entsprechenden marker
|
||||
auf das aktuelle verzeichnis
|
||||
dmclr <r/s/u/a/b/c> - marker löschen
|
||||
forth - forth starten
|
||||
|
||||
marker:
|
||||
r - root-verzeichnis
|
||||
s - system-verzeichnis
|
||||
u - user-verzeichnis
|
||||
a/b/c - benutzerdefinierte verzeichnismarker
|
||||
r, s, u-marker werden vom system automatisch gesetzt und
|
||||
intern verwendet.
|
||||
|
||||
RAMDISK:
|
||||
|
||||
xload <sd:fn> - datei in ram laden
|
||||
xsave <x:fn> - datei aus ram speichern
|
||||
xdir - verzeichnis im ram anzeigen
|
||||
xrename <x:fn1> <x:fn2> - datei im ram umbenennen
|
||||
xdel <x:fn> - datei im ram löschen
|
||||
xtype <x:fn> - text im ram anzeigen
|
||||
|
||||
EXTERNE KOMMANDOS:
|
||||
|
||||
sysconf - systemeinstellungen
|
||||
hplay - hss-player
|
||||
wplay - wav-player
|
||||
sfxtool - hss-soundeffekte erstellen
|
||||
|
||||
vga.bel - vga 1024 x 768 pixel, 64 x 24 zeichen
|
||||
htext.bel - vga 1024 x 768 pixel, 128 x 48 zeichen
|
||||
tv.bel - tv-textmodus 40 x 13 zeichen
|
||||
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
/? : Hilfetext
|
||||
/m name.dmp : DMP-Datei mono auf SID2 abspielen
|
||||
/s name.dmp : DMP-Datei stereo auf beiden SIDs abspielen
|
||||
/d : Verzeichnis wiedergeben
|
||||
q - quit
|
||||
n - next
|
||||
p - pause
|
||||
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
/? : Hilfe
|
||||
/l : Konfiguration anzeigen
|
||||
----------- Administra-Funktionen
|
||||
/ah 0|1 : hss ab-/anschalten
|
||||
/aw 0|1 : wav ab-/anschalten
|
||||
/as 0|1 : systemklänge ab-/anschalten
|
||||
/al 0..100 : wav-lautstärke links
|
||||
/ar 0..100 : wav-lautstärke rechts
|
||||
/ah 0..15 : hss-lautstärke
|
||||
/af : administra reset, flash booten
|
||||
/at : transfergeschwindigkeit messen
|
||||
----------- Bellatrix-Funktionen
|
||||
/ci : farbtabelle anzeigen
|
||||
/cs datei : farbtabelle speichern
|
||||
/cl datei : farbtabelle laden
|
||||
----------- Port-Funktionen
|
||||
/po nr anz : Impulse an port ausgeben
|
||||
/pi : Status der Port abfragen
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
/? : Hilfetext
|
||||
/p name.wav : WAV-Datei abspielen
|
||||
/d : Verzeichnis wiedergeben
|
||||
q - quit
|
||||
n - next
|
||||
p - pause
|
||||
/l 0..100 : Lautstärke links
|
||||
/r 0..100 : Lautstärke rechts
|
||||
/i name.wav : Info zur Datei anzeigen
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
Wiedergabe von YM-Dateien mittels AY-3-891X / YM2149 emulator
|
||||
|
||||
/? : Hilfetext
|
||||
/p name.YM : YM-Datei abspielen
|
||||
/d : Verzeichnis wiedergeben
|
||||
q - quit
|
||||
n - next
|
||||
p - pause
|
||||
Loading…
Reference in New Issue