TriOS-alt/system/regnatix/beltest.spin

<EFBFBD><EFBFBD>{{

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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            : Bellatrix-Test
Chip            : Regnatix
Typ             : Programm
Version         : 00
Subversion      : 01
Funktion        : Test f<00>r die grundlegenden Textausgabe- und Tastaturfunktionen.
Komponenten     : -
COG's           : -
Logbuch         :

22-03-2010-dr235  - anpassung trios

Kommandoliste   :

Notizen         :

}}

OBJ
        ios: "reg-ios"
        str: "glob-string"

CON

_CLKMODE     = XTAL1 + PLL16X
_XINFREQ     = 5_000_000

OS_TIBLEN    = 64                                       'gr<00><00>e des inputbuffers

VAR
'systemvariablen
  byte  tib[OS_TIBLEN]           'tastatur-input-buffer
  byte  tibpos                   'aktuelle position im tib
  byte  tbuf[32]
  long  cols,rows
  byte vidmod                    'videomodus: 0 - vga, 1 -  tv

PUB main|fnr

  ios.start
  os_testvideo

  repeat
    ios.print(string("0  - Alle Tests",13))
    ios.print(string("1  - Zeichensatz",13))
    ios.print(string("2  - Hive-Logo",13))
    ios.print(string("3  - Funktion TAB",13))
    ios.print(string("4  - Funktion CLS",13))
    ios.print(string("5  - Scrolling",13))
    ios.print(string("6  - Funktion SCREENINIT",13))
    ios.print(string("7  - Funktion SETCOLOR",13))
    ios.print(string("8  - Funktion SETX/SETY",13))
    ios.print(string("9  - Windows",13))
    ios.print(string("10 - Funktion INPUT/BACKSPACE",13))
    ios.print(string("11 - Funktion HOME/POS1/CURCHAR",13))
    ios.print(string("99 - Ende  "))
    fnr := str.decimalToNumber(fInput(string(" Funktion : ")))
    case fnr
      0:  test_all
      1:  test_charmap
      2:  test_logo
      3:  test_tab
      4:  test_cls
      5:  test_scroll
      6:  test_screeninit
      7:  test_setcolor
      8:  test_setxy
      9:  test_windows
      10: test_inputbackspace
      11: test_home
          test_pos1
          test_curchar
      99: ios.stop

pri os_testvideo                                        'sys: passt div. variablen an videomodus an

  vidmod := ios.belgetspec & 1
  rows := ios.belgetrows                                'zeilenzahl bei bella abfragen
  cols := ios.belgetcols                                'spaltenzahl bei bella abfragen

pri fInput(stradr1): stradr2

  ios.setcolor(1)
  ios.printq(string("<00>%"))
  ios.print(stradr1)
  ios.input(@tbuf,32)
  ios.setcolor(0)
  ios.printnl
  return @tbuf

pri test_all

  test_charmap
  test_logo
  test_tab
  test_cls
  test_scroll
  test_screeninit
  test_setcolor
  test_setxy
  test_windows
  test_inputbackspace
  test_home
  test_pos1
  test_curchar


pri test_charmap|i,j

  ios.print(string("Zeichensatz:"))
  ios.printnl
  ios.print(string("   0123456789ABCDEF0123456789ABCDEF"))
  ios.printnl
  ios.print(string("  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"))

  repeat i from 0 to 7
    ios.printnl
    ios.printhex(i*j,2)
    ios.printchar("%")
    repeat j from 0 to 31
      ios.printqchar((i*31)+j)
    ios.printchar("%")
  ios.printnl
  ios.print(string("  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"))
  weiter

pri test_logo
  ios.print(string("Hive-Logo:"))
  ios.printcls
  ios.printlogo(0,0)
  weiter

pri test_tab|a,b,i,j

  ios.print(string("Test TAB:"))
  if cols < 50
    a := 3
    b := 5
  else
    a := 3
    b := 7
  repeat j from a to b
    repeat i from 0 to 7
      ios.settabs(i,j*i)
    ios.printcls
    repeat 8
      ios.print(string("tab"))
      ios.printtab
    ios.printnl
    repeat i from 1 to 5
      repeat 8
        ios.printdec(i)
        ios.printtab
      ios.printnl
    waitcnt(10_000_000+cnt)
  weiter

pri test_cls
  ios.print(string("Test CLS:"))
  ios.printcls
  repeat 10
      charset
  ios.printnl
  ios.printnl
  ios.print(string("Bildschirm wird gleich gel<00>scht..."))
  waitcnt(cnt + clkfreq*3)
  ios.printcls
  ios.print(string("Bildschirm l<00>schen OK"))
  weiter

pri test_scroll
  ios.print(string("Test ScrollUp:"))
  repeat 10
    charset
  repeat 20
    waitcnt(10_000_000+cnt)
    ios.scrollup
  ios.printnl
  ios.printnl
'------------------------------------------------------------------------------------
  ios.print(string("Test ScrollDown:"))
  weiter
  repeat 10
    charset
  repeat 15 <# rows - 2
    waitcnt(10_000_000+cnt)
    ios.scrolldown
  repeat 16
    repeat 15 <# rows - 2
      waitcnt(1_000_000+cnt)
      ios.scrollup
    repeat 15 <# rows - 2
      waitcnt(1_000_000+cnt)
      ios.scrolldown
  weiter

pri test_screeninit
  ios.print(string("Test SCREENINIT:"))
  ios.screeninit
  ios.print(string("<00>%Funktionstest Bellatrix-BIOS [SCREENINIT OK]"))
  weiter

pri test_setcolor|i,j,n

  if vidmod == ios#TV
    n := 7
  else
    n := 15
  ios.print(string("Test SETCOLOR:",13))
  repeat i from 0 to n
    repeat j from 0 to 32
      ios.setcolor(i)
      ios.printchar(j + 65)
    ios.printchar(":")
    ios.printdec(i)
    ios.printchar(":")
    ios.printhex(i,2)
    ios.printnl
  ios.setcolor(0)
  weiter

pri test_setxy|i,j,n
  ios.print(string("Test SETX/SETY (CURON/CUROFF):"))
  ios.printcls
  ios.printnl
  ios.curoff
  repeat n from 1 to 50
    repeat j from 1 to 5
      repeat i from 1 to 8 <# cols/5-1
        ios.cursetx(i * 5)
        ios.cursety(j * 2)
        ios.printchar(":")
        ios.printdec(n)

        ios.cursetx(5)
        ios.cursety(12 <# rows)
        ios.printchar(":")
        ios.printdec(j)
        ios.printchar(":")
        ios.printdec(i)
        ios.printchar(":")
        ios.printdec(n)
  ios.curon
  ios.printnl
  weiter

pri test_windows
  ios.print(string("Test Windows:"))
  windows1
  windows2
  ios.printcls
  weiter

pri test_inputbackspace
  ios.print(string("Test Eingabe/Backspace (bis Enter): "))
  input
  ios.printnl
  ios.print(string("Eingabe :"))
  ios.print(@tib)
  weiter

pri test_home|i
  ios.printcls
  ios.print(string("Test Home:"))
  repeat i from 0 to 1000
    ios.curhome
    ios.printdec(i)
  weiter

pri test_pos1|i
  ios.print(string("Test POS1:"))
  ios.printnl
  repeat i from 0 to 1000
    ios.curpos1
    ios.printdec(i)
  weiter

pri test_curchar|i
  ios.print(string("Test CURCHAR: "))
  repeat i from 1 to 100
    ios.curchar(i)
    waitcnt(cnt + clkfreq/20)
  ios.curchar($0E)
  weiter

PRI weiter | tast
  ios.printnl
  ios.print(string("Weiter [q|*] : "))
  tast := ios.keywait
  if tast == "q"  OR tast == "Q"
     ios.stop
  ios.printnl

PUB charset | i,j

  repeat i from 20 to 255
    ios.printchar(i)

PUB input | charc
  repeat 
    if ios.keystat > 0                                      'taste gedr<00>ckt?
      charc := ios.key                                      'tastencode holen
        if (tibpos + 1) < OS_TIBLEN                     'tastaturpuffer voll?
          case charc
            ios#CHAR_BS:                                'backspace
                   if tibpos > 0
                     tibpos--
                     tib[tibpos] := $0                  'letztes zeichen im puffer l<00>schen
                     ios.printbs                        'steuerzeichen anterminal senden
            other: ios.bus_putchar2(charc)              'sonstige zeichen
        
      if (charc <> ios#CHAR_NL) & (charc <> ios#CHAR_BS) 'ausser sonderzeichen alles in tib
        if (tibpos + 1) < OS_TIBLEN                     'tastaturpuffer voll?
          tib[tibpos++] := charc
          tib[tibpos] := $0
  until charc == $0D                                    'schleife bis RETURN

VAR
  long h[3], z[3], r[3]

PUB windows1 | gx, gy, i, j, tast
  cols := ios.belgetcols
  rows := ios.belgetrows
  gx := cols / 2
  gy := rows * 2 / 3
  ios.printcls
  ios.print(string("  ### Window-Test ###"))

  ios.windefine(1, 2, 3, gx - 1, gy - 1)
  ios.windefine(2, gx + 2, 3, cols - 2, gy - 1)
  ios.windefine(3, 2, gy + 2, cols - 2, rows - 2)
  repeat i from 1 to 3
    ios.winset(i)
    ios.printcls
    ios.winoframe

  waitcnt(cnt + clkfreq)
  repeat i from 1 to 3
    ios.winset(i)
    repeat 3
      charset
  waitcnt(cnt + clkfreq)

  repeat i from 1 to 3
    ios.winset(i)
    j := ios.wingetrows
    repeat 8
      repeat 15 <# j - 2
        waitcnt(1_000_000+cnt)
        ios.scrollup
      repeat 15 <# j - 2
        waitcnt(1_000_000+cnt)
        ios.scrolldown

  repeat i from 0 to 2
    ios.winset(i+1)
    h[i] := ios.wingetrows - 2
    z[i] := 0
    r[i] := 1
    repeat 3
      charset
  i := 0
  repeat 16*3*4
    i := (i + 1) // 3
    ios.winset(i+1)
    z[i] += r[i]
    if r[i] > 0
      ios.scrollup
    else
      ios.scrolldown
    if z[i] == 0 or z[i] == h[i]
      r[i] *= -1
    waitcnt(1_000_000+cnt)

  ios.winset(3)
  ios.printcls
  ios.print(string("Test Screen 2"))
  weiter
  screen2

  repeat i from 1 to 3
    ios.winset(i)
    ios.printcls
    ios.curoff

  ios.winset(1)
  ios.printcls
  ios.print(string("Test relative Positionierung"))
  weiter

  ios.winset(2)
  repeat j from 2 to 3
    ios.winset(j)
    repeat i from 1 to 3
      setpos(i, i)
      waitcnt(cnt + clkfreq/2)
      setpos(-i, -i)
      waitcnt(cnt + clkfreq/2)

  ios.winset(1)
  ios.curon
  ios.printnl
  ios.printnl
  ios.print(string("Weiter */<Q>uit : "))
  tast := ios.keywait
  ios.screeninit
  if tast == "q"  OR tast == "Q"
    ios.stop

PUB windows2 | gx, gy, i, j, tast
  cols := ios.belgetcols
  rows := ios.belgetrows
  gx := cols / 2
  gy := rows * 2 / 3
  ios.printcls
  ios.print(string("  ### Window-Test - Randkollision ###"))

  ios.windefine(1, 2, 3, gx - 1, gy - 1)
  ios.windefine(2, gx + 2, 3, cols + 4, gy - 1)
  ios.windefine(3, 2, gy + 2, cols + 4, rows + 4)
  repeat i from 1 to 3
    ios.winset(i)
    ios.printcls
    ios.winoframe

  waitcnt(cnt + clkfreq)
  repeat i from 1 to 3
    ios.winset(i)
    repeat 3
      charset
  waitcnt(cnt + clkfreq)

  repeat i from 1 to 3
    ios.winset(i)
    j := ios.wingetrows
    repeat 8
      repeat 15 <# j - 2
        waitcnt(1_000_000+cnt)
        ios.scrollup
      repeat 15 <# j - 2
        waitcnt(1_000_000+cnt)
        ios.scrolldown

  repeat i from 0 to 2
    ios.winset(i+1)
    h[i] := ios.wingetrows - 2
    z[i] := 0
    r[i] := 1
    repeat 3
      charset
  i := 0
  repeat 16*3*4
    i := (i + 1) // 3
    ios.winset(i+1)
    z[i] += r[i]
    if r[i] > 0
      ios.scrollup
    else
      ios.scrolldown
    if z[i] == 0 or z[i] == h[i]
      r[i] *= -1
    waitcnt(1_000_000+cnt)

  ios.winset(3)
  ios.printcls
  ios.print(string("Test Screen 2"))
  weiter
  screen2

  repeat i from 1 to 3
    ios.winset(i)
    ios.printcls
    ios.curoff

  ios.winset(1)
  ios.printcls
  ios.print(string("Test relative Positionierung"))
  weiter

  ios.winset(2)
  repeat j from 2 to 3
    ios.winset(j)
    repeat i from 1 to 3
      setpos(i, i)
      waitcnt(cnt + clkfreq/2)
      setpos(-i, -i)
      waitcnt(cnt + clkfreq/2)

  ios.winset(1)
  ios.curon
  ios.printnl
  ios.printnl
  ios.print(string("Weiter */<Q>uit : "))
  tast := ios.keywait
  ios.screeninit
  if tast == "q"  OR tast == "Q"
    ios.stop

PRI setpos(x, y)
  ios.wincursetx(x)
  ios.wincursety(y)
  printpos(x, y)

PRI printpos(x, y)
  ios.printqchar(15)
  waitcnt(cnt + clkfreq/3)
  if x < 0
    ios.curpos1
  else
    ios.printqchar(2)
  ios.printchar("(")
  ios.printdec(x)
  ios.printchar(",")
  ios.printdec(y)
  ios.printchar(")")
  if x < 0
    ios.printqchar(3)

PRI screen2
  ios.set_wscr(2)
  ios.set_dscr(2)

  ios.print(string("hier ist Screen 2"))
  ios.printnl
' Window anzeigen, Scrolling
  ios.print(string("definiere Window 2 abweichend zu Screen 1: (8, 2)-(30, 8)"))
  ios.printnl
  ios.windefine(2, 8, 2, 30, 8)
  ios.print(string("weiter mit beliebiger Taste..."))
  ios.keywait
  ios.winset(2)
  ios.winoframe
  ios.printcls
  ios.print(string("Ausgabe in Window 2"))
  ios.printnl
  ios.print(string("zur<00>ck zu Screen 1 mit beliebiger Taste..."))
  ios.keywait
  ios.set_wscr(1)
  ios.set_dscr(1)

DAT
     
{{

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                   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.                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}}