{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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            : Hallo Hive!
Chip            : Regnatix
Typ             : Programm
Version         : 
Subversion      : 
Funktion        :
Komponenten     : -
COG's           : -
Logbuch         :
Kommandoliste   :
Notizen         :

}}

OBJ
        ios     : "ios"
        gr      : "gra-emu"

CON

  _CLKMODE      = XTAL1 + PLL16X
  _XINFREQ      = 5_000_000

  bitmap_base   = $2000
  display_base  = $5000

VAR

PUB main | ip

  ios.start
  ios.startram                                          'code für test im ram, sollte bei bin-datei auskommentiert werden
  ios.screeninit(string("▶Test: DLEngine"),2)

  ip := @dl1
  repeat
    case byte[ip++]
      _vloop: ip := @dl1
              gr.copy(display_base)
      _clear: gr.clear
      _color:
      _width:
      _colorwith:
      _point: repeat byte[ip++]
                gr.point(byte[ip++],byte[ip++])
      _lines: repeat byte[ip++]
                gr.line(byte[ip++],byte[ip++])
      _arc:
      _vec:
      _vecarc:
      _pix:
      _pixarc:
      _text:
      _textarc:
      _textmode:
      _setFont:
      _box:
      _boxXOR:
      _quad:
      _tri:
      _setXOR:
      _setOverWrite:
      _setFontPtr:
      _drawGlyph:
      _pixelColor:
      _fill:
      _justify:
      _branch:


CON     ' Kommandos
#0,     _vloop,_clear,_color,_width,_colorwith,_point,_lines,_arc,_vec,_vecarc,_pix,_pixarc,
        _text,_textarc,_textmode,_setFont,_box,_boxXOR,_quad,_tri,_setXOR,_setOverWrite,
        _setFontPtr,_drawGlyph,_pixelColor,_fill,_justify,_branch

DAT     ' DisplayList

dl1     byte  _point
        byte  2
        byte  10,10
        byte  20,20
        byte  _line
        byte  2
        byte  30,30
        byte  40,40
        byte  _vloop

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.                         │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}