con'********************************** Hilfesystem ******************************************************************************************************************************* _CLKMODE = XTAL1 + PLL16X _XINFREQ = 5_000_000 '*****************Speicherbereiche********************************************** maxstack = 20 ' Maximum stack tiefe fuer gosub userPtr = $1FFFF ' Ende Programmspeicher 128kb TMP_RAM = $20000 '....$3FFFF ' Bearbeitungsspeicher 128kb (fuer die Zeileneditierung bzw.Einfuegung von Zeilen) TILE_RAM = $40000 '....$67FFF ' hier beginnt der Tile-Speicher fuer 10 Tiledateien SYS_FONT = $66800 '....$693FF ' ab hier liegt der System-Font 16kb MOUSE_RAM = $69400 '....$6943F ' User-Mouse-Pointer 64byte DIR_RAM = $69440 '....$6EFFF ' Puffer fuer Dateinamen 16kb fuer 1255 Dateinamen VAR_RAM = $6F000 '....$757FF ' Variablen-Speicher fuer Array-Variablen a[0...255]-z[0...255] (6656 moegliche Variablen) STR_START = $75800 '....$7EFFF ' ab hier werden die strings abgelegt 26x150 Zeichen ERROR_RAM = $7F000 '....$7FF00 ' ERROR-Texte 'freier eRam-Bereich PMARK_RAM = $7FFF1 ' Flag für Reclaim BMARK_RAM = $7FFF2 ' Flag für Basic-Warm-Start MAP_RAM = $80000 '....$8FFFF ' ab hier werden MAP-Daten abgelegt 64kb '*****************SID-COG-Wellenformen******************************************* sid_triangle = 16 sid_saw = 32 sid_square = 64 sid_noise = 128 '******************BUS-Signale*************************************************** #19, REG_RAM1,REG_RAM2 #24, HBEAT 'front-led BUSCLK 'bustakt BUS_WR '/wr - schreibsignal BUS_HS ' '/hs - quittungssignal DB_IN = %00000111_11111111_11111111_00000000 'maske: dbus-eingabe DB_OUT = %00000111_11111111_11111111_11111111 'maske: dbus-ausgabe '******************Farben ******************************************************** #$FC, Light_Grey, #$A8, Grey, #$54, Dark_Grey #$C0, Light_Red, #$80, Red, #$40, Dark_Red #$30, Light_Green, #$20, Green, #$10, Dark_Green #$1F, Light_Blue, #$09, Blue, #$04, Dark_Blue #$F0, Light_Orange, #$E6, Orange, #$92, Dark_Orange #$CC, Light_Purple, #$88, Purple, #$44, Dark_Purple #$3C, Light_Teal, #$28, Teal, #$14, Dark_Teal #$FF, White, #$00, Black '*****************Tastencodes***************************************************** bspKey = $C8 ' PS/2 keyboard backspace key breakKey = $CB ' PS/2 keyboard escape key fReturn = 13 fLinefeed = 10 KEY_LEFT = 2 KEY_RIGHT = 3 KEY_UP = 4 KEY_DOWN = 5 KEY_PGUP = 160 KEY_PGDN = 162 var byte xtiles[11] 'xtiles fuer tilenr ' byte ytiles[11] 'ytiles fuer tilenr byte str0 'String fuer Fontfunktion in Fenstern byte aktuellestileset 'nummer des aktuellen tilesets word workdir 'aktuelles Verzeichnis byte font[150] 'Stringpuffer fuer Font-Funktion long startadresse[11] 'startadresse des tiles im eram long basicmarker 'Dir-Marker Basic-Verzeichnis obj ios : "reg-ios-bas" dat tok0 byte "IF",0 '128 getestet tok1 byte "THEN",0 '129 getestet tok110 byte "ELSE",0 '238 getestet tok2 byte "INPUT",0 ' INPUT {"";} {,} '130 getestet tok3 byte "PRINT",0 ' PRINT '131 getestet tok88 byte "ON",0 ' ON GOSUB GOTO 216 getestet tok4 byte "GOTO",0 '132 getestet tok5 byte "GOSUB", 0 '133 getestet tok6 byte "RETURN", 0 '134 getestet tok7 byte "REM", 0 '135 getestet tok8 byte "NEW", 0 '136 getestet tok9 byte "LIST", 0 'list , listet von bis zeilennummer 137 getestet NICHT AENDERN Funktionstaste!! tok10 byte "RUN", 0 '138 getestet NICHT AENDERN Funktionstaste!! tok26 byte "FOR", 0 ' FOR = TO 154 getestet tok27 byte "TO", 0 '155 getestet tok28 byte "STEP", 0 ' optional STEP 156 getestet tok29 byte "NEXT", 0 ' NEXT 157 getestet tok52 byte "END", 0 ' 180 getestet tok53 byte "PAUSE", 0 ' PAUSE