SOURCE_142/API/0000755000175000001440000000000011713042123012074 5ustar joergusersSOURCE_142/API/api_macros.inc0000644000175000001440000001771511725741457014742 0ustar joergusers;###################################################################### ;# # ;# AVR ChipBasic2 API V1.35 API Macros # ;# (c) 2009-2010 Joerg Wolfram # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;###################################################################### .macro api_token call 0x001e .endm .macro api_untoken call 0x0020 .endm .macro api_version call 0x0022 .endm .macro api_popxyz jmp 0x0024 .endm .macro api_pushxyz call 0x0025 .endm .macro api_popregs jmp 0x0026 .endm .macro api_pushregs call 0x0027 .endm .macro api_getvram call 0x0028 .endm .macro api_getsysram call 0x002b .endm .macro api_getpal call 0x002e .endm .macro api_getarray call 0x0031 .endm .macro api_getchart0 call 0x0034 .endm .macro api_getchart1 call 0x0037 .endm .macro api_getbuffer call 0x003a .endm .macro api_getvalues call 0x003d .endm .macro api_getpartab call 0x0040 .endm .macro api_getvar call 0x0043 .endm .macro api_getprg call 0x0046 .endm .macro api_dataptr call 0x0058 .endm .macro api_getbase call 0x005a .endm .macro api_getprog call 0x005c .endm .macro api_getprog_1 call 0x0060 .endm .macro api_getprog_2 call 0x0064 .endm .macro api_setcolor call 0x0065 .endm .macro api_setfcolor call 0x0067 .endm .macro api_setborder call 0x0069 .endm .macro api_setvmode call 0x006b .endm .macro api_setpalette call 0x006d .endm .macro api_sync call 0x006f .endm .macro api_slow call 0x0071 .endm .macro api_fast call 0x0073 .endm .macro api_setchannel call 0x0075 .endm .macro api_setfont call 0x0077 .endm .macro api_clrscr call 0x0079 .endm .macro api_outchar call 0x007b .endm .macro api_outdez call 0x007d .endm .macro api_outhex call 0x007f .endm .macro api_gotoxy call 0x0081 .endm .macro api_romtext call 0x0083 .endm .macro api_thistext call 0x0085 .endm .macro api_cbox call 0x0087 .endm .macro api_ibox call 0x008a .endm .macro api_scroll call 0x008d .endm .macro api_newline call 0x008f .endm .macro api_sprite call 0x0091 .endm .macro api_cursor call 0x0093 .endm .macro api_waitkey call 0x0097 .endm .macro api_nokey call 0x0099 .endm .macro api_kstate call 0x009b .endm .macro api_kflags call 0x009f .endm .macro api_getkey call 0x00a2 .endm .macro api_lastkey call 0x00a5 .endm .macro api_scancode call 0x00a8 .endm .macro api_putser call 0x00ab .endm .macro api_getser call 0x00ad .endm .macro api_getserb call 0x00af .endm .macro api_putser2 call 0x00b1 .endm .macro api_getser2 call 0x00b3 .endm .macro api_getserb2 call 0x00b5 .endm .macro api_putpar call 0x00b7 .endm .macro api_putxm call 0x00b9 .endm .macro api_getxm call 0x00bb .endm .macro api_putsernl call 0x00bd .endm .macro api_putsernl2 call 0x00bf .endm .macro api_baud2 call 0x00c1 .endm .macro api_hexline call 0x00c3 .endm .macro api_plot call 0x00c5 .endm .macro api_draw call 0x00c7 .endm .macro api_box call 0x00c9 .endm .macro api_fbox call 0x00cb .endm .macro api_circle call 0x00cd .endm .macro api_fcircle call 0x00d1 .endm .macro api_bcopy1 call 0x00d5 .endm .macro api_bcopy2 call 0x00d7 .endm .macro api_bcopy3 call 0x00d9 .endm .macro api_menu call 0x00db .endm .macro api_drawmenu call 0x00dd .endm .macro api_alert call 0x00df .endm .macro api_ask call 0x00e1 .endm .macro api_alertthis call 0x00e3 .endm .macro api_askthis call 0x00e5 .endm .macro api_alert_nb call 0x00e7 .endm .macro api_ask_nb call 0x00e9 .endm .macro api_alertthis_nb call 0x00eb .endm .macro api_askthis_nb call 0x00ed .endm .macro api_wbox call 0x00ef .endm .macro api_whbox call 0x00f1 .endm .macro api_saywrite call 0x00f3 .endm .macro api_saytransfer call 0x00f5 .endm .macro api_note call 0x00f7 .endm .macro api_setvolume call 0x00f9 .endm .macro api_startseq call 0x00fb .endm .macro api_setseq call 0x00fd .endm .macro api_getseq call 0x00ff .endm .macro api_i2c_read call 0x0101 .endm .macro api_i2c_write call 0x0103 .endm .macro api_i2c_start call 0x0105 .endm .macro api_i2c_stop call 0x0107 .endm .macro api_i2c_rbyte call 0x0109 .endm .macro api_i2c_rbyten call 0x010b .endm .macro api_i2c_wbyte call 0x010d .endm .macro api_i2c_rlm75 call 0x010f .endm .macro api_eep_read call 0x0111 .endm .macro api_eep_write call 0x0113 .endm .macro api_abs call 0x0115 .endm .macro api_add call 0x0117 .endm .macro api_sub call 0x0119 .endm .macro api_mul call 0x011b .endm .macro api_div call 0x011d .endm .macro api_sin call 0x011f .endm .macro api_cos call 0x0121 .endm .macro api_eq call 0x0123 .endm .macro api_lt call 0x0125 .endm .macro api_gt call 0x0127 .endm .macro api_sqr call 0x0129 .endm .macro api_rnd call 0x012b .endm .macro api_adc call 0x012d .endm .macro api_dbit call 0x012f .endm .macro api_fs_create call 0x0131 .endm .macro api_fs_delete call 0x0135 .endm .macro api_fs_read call 0x0139 .endm .macro api_fs_write call 0x013d .endm .macro api_fs_cfree call 0x0141 .endm .macro api_fs_size call 0x0143 .endm .macro api_fs_checkf call 0x0145 .endm .macro api_fs_gettype call 0x0147 .endm .macro api_fs_rread call 0x014b .endm .macro api_fs_rwrite call 0x014e .endm .macro api_fs_fsize call 0x0151 .endm .macro api_fs_ffind call 0x0153 .endm .macro api_fs_fsel call 0x0155 .endm .macro api_fs_fsel_nb call 0x0157 .endm .macro api_fs_check call 0x0159 .endm .macro api_copychar4 call 0x015b .endm .macro api_copychar6 call 0x015d .endm .macro api_basrun call 0x015f .endm .macro api_exparser call 0x0161 .endm .macro api_tparser call 0x0163 .endm .macro api_lfind call 0x0165 .endm .macro api_lcall call 0x0167 .endm .macro api_preceive call 0x0169 .endm .macro api_psend call 0x016b .endm .macro api_wpage call 0x016d .endm .macro api_arrview call 0x016f .endm .macro api_extsearch call 0x0171 .endm .macro api_extdisable call 0x0173 .endm .macro api_basgetpar call 0x0175 .endm .macro api_basgetvar call 0x0177 .endm .macro api_vm0line jmp 0x0179 .endm .macro api_vm0cls jmp 0x017d .endm .macro api_vm0char jmp 0x0180 .endm .macro api_vm0gotoxy jmp 0x0184 .endm .macro api_vm0plot jmp 0x0186 .endm .macro api_vm0newline jmp 0x0188 .endm .macro api_sbackup call 0x018c .endm .macro api_srestore call 0x018e .endm .macro api_screenshot call 0x0190 .endm .macro api_aread call 0x0192 .endm .macro api_awrite call 0x0194 .endm .macro api_pageset call 0x0196 .endm .macro api_pageget call 0x0199 .endm .macro api_scale call 0x019c .endm .macro api_spisel call 0x019e .endm .macro api_spiunsel call 0x01a0 .endm .macro api_spicomm call 0x01a2 .endm .macro api_xmem_rb call 0x01a4 .endm .macro api_xmem_rw call 0x01a6 .endm .macro api_xmem_wb call 0x01a8 .endm .macro api_xmem_ww call 0x01aa .endm .macro api_xmem_chk call 0x01ac .endm .macro api_xmem_clr call 0x01ae .endm SOURCE_142/API/api.inc0000644000175000001440000001346511725741457013374 0ustar joergusers;###################################################################### ;# # ;# AVR ChipBasic2 API V1.35 API Address definitions # ;# (c) 2009-2010 Joerg Wolfram # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;###################################################################### .equ api_token = 0x001e .equ api_untoken = 0x0020 .equ api_version = 0x0022 .equ api_popxyz = 0x0024 .equ api_pushxyz = 0x0025 .equ api_popregs = 0x0026 .equ api_pushregs = 0x0027 .equ api_getvram = 0x0028 .equ api_getsysram = 0x002b .equ api_getpal = 0x002e .equ api_getarray = 0x0031 .equ api_getchart0 = 0x0034 .equ api_getchart1 = 0x0037 .equ api_getbuffer = 0x003a .equ api_getvalues = 0x003d .equ api_getpartab = 0x0040 .equ api_getvar = 0x0043 .equ api_getprg = 0x0046 .equ api_dataptr = 0x0058 .equ api_getbase = 0x005a .equ api_getprog = 0x005c .equ api_getprog_1 = 0x0060 .equ api_getprog_2 = 0x0064 .equ api_setcolor = 0x0065 .equ api_setfcolor = 0x0067 .equ api_setborder = 0x0069 .equ api_setvmode = 0x006b .equ api_setpalette = 0x006d .equ api_sync = 0x006f .equ api_slow = 0x0071 .equ api_fast = 0x0073 .equ api_setchannel = 0x0075 .equ api_setfont = 0x0077 .equ api_clrscr = 0x0079 .equ api_outchar = 0x007b .equ api_outdez = 0x007d .equ api_outhex = 0x007f .equ api_gotoxy = 0x0081 .equ api_romtext = 0x0083 .equ api_thistext = 0x0085 .equ api_cbox = 0x0087 .equ api_ibox = 0x008a .equ api_scroll = 0x008d .equ api_newline = 0x008f .equ api_sprite = 0x0091 .equ api_cursor = 0x0093 .equ api_waitkey = 0x0097 .equ api_nokey = 0x0099 .equ api_kstate = 0x009b .equ api_kflags = 0x009f .equ api_getkey = 0x00a2 .equ api_lastkey = 0x00a5 .equ api_scancode = 0x00a8 .equ api_putser = 0x00ab .equ api_getser = 0x00ad .equ api_getserb = 0x00af .equ api_putser2 = 0x00b1 .equ api_getser2 = 0x00b3 .equ api_getserb2 = 0x00b5 .equ api_putpar = 0x00b7 .equ api_putxm = 0x00b9 .equ api_getxm = 0x00bb .equ api_putsernl = 0x00bd .equ api_putsernl2 = 0x00bf .equ api_baud2 = 0x00c1 .equ api_hexline = 0x00c3 .equ api_plot = 0x00c5 .equ api_draw = 0x00c7 .equ api_box = 0x00c9 .equ api_fbox = 0x00cb .equ api_circle = 0x00cd .equ api_fcircle = 0x00d1 .equ api_bcopy1 = 0x00d5 .equ api_bcopy2 = 0x00d7 .equ api_bcopy3 = 0x00d9 .equ api_menu = 0x00db .equ api_drawmenu = 0x00dd .equ api_alert = 0x00df .equ api_ask = 0x00e1 .equ api_alertthis = 0x00e3 .equ api_askthis = 0x00e5 .equ api_alert_nb = 0x00e7 .equ api_ask_nb = 0x00e9 .equ api_alertthis_nb = 0x00eb .equ api_askthis_nb = 0x00ed .equ api_wbox = 0x00ef .equ api_whbox = 0x00f1 .equ api_saywrite = 0x00f3 .equ api_saytransfer = 0x00f5 .equ api_note = 0x00f7 .equ api_setvolume = 0x00f9 .equ api_startseq = 0x00fb .equ api_setseq = 0x00fd .equ api_getseq = 0x00ff .equ api_i2c_read = 0x0101 .equ api_i2c_write = 0x0103 .equ api_i2c_start = 0x0105 .equ api_i2c_stop = 0x0107 .equ api_i2c_rbyte = 0x0109 .equ api_i2c_rbyten = 0x010b .equ api_i2c_wbyte = 0x010d .equ api_i2c_rlm75 = 0x010f .equ api_eep_read = 0x0111 .equ api_eep_write = 0x0113 .equ api_abs = 0x0115 .equ api_add = 0x0117 .equ api_sub = 0x0119 .equ api_mul = 0x011b .equ api_div = 0x011d .equ api_sin = 0x011f .equ api_cos = 0x0121 .equ api_eq = 0x0123 .equ api_lt = 0x0125 .equ api_gt = 0x0127 .equ api_sqr = 0x0129 .equ api_rnd = 0x012b .equ api_adc = 0x012d .equ api_dbit = 0x012f .equ api_fs_create = 0x0131 .equ api_fs_delete = 0x0135 .equ api_fs_read = 0x0139 .equ api_fs_write = 0x013d .equ api_fs_cfree = 0x0141 .equ api_fs_size = 0x0143 .equ api_fs_checkf = 0x0145 .equ api_fs_gettype = 0x0147 .equ api_fs_rread = 0x014b .equ api_fs_rwrite = 0x014e .equ api_fs_fsize = 0x0151 .equ api_fs_ffind = 0x0153 .equ api_fs_fsel = 0x0155 .equ api_fs_fsel_nb = 0x0157 .equ api_fs_check = 0x0159 .equ api_copychar4 = 0x015b .equ api_copychar6 = 0x015d .equ api_basrun = 0x015f .equ api_exparser = 0x0161 .equ api_tparser = 0x0163 .equ api_lfind = 0x0165 .equ api_lcall = 0x0167 .equ api_preceive = 0x0169 .equ api_psend = 0x016b .equ api_wpage = 0x016d .equ api_arrview = 0x016f .equ api_extsearch = 0x0171 .equ api_extdisable = 0x0173 .equ api_basgetpar = 0x0175 .equ api_basgetvar = 0x0177 .equ api_vm0line = 0x0179 .equ api_vm0cls = 0x017d .equ api_vm0char = 0x0180 .equ api_vm0gotoxy = 0x0184 .equ api_vm0plot = 0x0186 .equ api_vm0newline = 0x0188 .equ api_sbackup = 0x018c .equ api_srestore = 0x018e .equ api_screenshot = 0x0190 .equ api_aread = 0x0192 .equ api_awrite = 0x0194 .equ api_pageset = 0x0196 .equ api_pageget = 0x0199 .equ api_scale = 0x019c .equ api_spisel = 0x019e .equ api_spiunsel = 0x01a0 .equ api_spicomm = 0x01a2 .equ api_xmem_rb = 0x01a4 .equ api_xmem_rw = 0x01a6 .equ api_xmem_wb = 0x01a8 .equ api_xmem_ww = 0x01aa .equ api_xmem_chk = 0x01ac .equ api_xmem_clr = 0x01ae SOURCE_142/SOURCE_library/0000755000175000001440000000000011713042123014207 5ustar joergusersSOURCE_142/SOURCE_library/fixlib/0000755000175000001440000000000011713042123015464 5ustar joergusersSOURCE_142/SOURCE_library/fixlib/fixlib.asm0000755000175000001440000000663211725741460017472 0ustar joergusers;################################################################################ ;# # ;# FIXLIB for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ bas_array = 0xd3c ;array .equ varbase = 0xe3c ;array+256 .equ sys_vk = varbase+255 ; .equ sys_nk = varbase+254 ; .equ sys_varsize = varbase+253 ; .equ sys_maxvar = varbase+252 ; .equ sys_buf1 = varbase+250 ; .equ sys_buf2 = varbase+248 ; .equ sys_buf3 = varbase+246 ; .equ sys_ct4 = varbase+245 ;script counter .equ sys_ct3 = varbase+244 ; .equ sys_ct2 = varbase+243 ; .equ sys_ct1 = varbase+242 ; .equ sys_sptr = varbase+241 ; script pointer .equ sys_skipflag = varbase+240 ; skip flag for scripting .equ sys_target = varbase+238 ;target pointer value .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x7200 ;--------------------++++++++++++N start: .db "FIXLIBV0.22cN",0xd4,0xff,0x10 ;icon .db 0xf2,0xf1,0xf1,0xf3 .db "+-*/" .db 0xf4,0xf1,0xf1,0xf5 .org 0x7210 rjmp retzero ;dummy for autostart rjmp init ;FKT 1 : INIT rjmp setint ;FKT 2 : set from INT rjmp mlib_input ;FKT 3 : set from text rjmp outint ;FKT 4 : output INT (return value) rjmp print ;FKT 5 : output text rjmp mlib_abs ;FKT 6 : set V2=ABS(V1) rjmp mlib_inv ;FKT 7 : set V2=-V1 rjmp mlib_add ;FKT 8 : V3 = V1 + V2 rjmp mlib_sub ;FKT 9 : V3 = V1 - V2 rjmp mlib_mult ;FKT 10 : V3 = V1 * V2 rjmp mlib_div ;FKT 11 : V3 = V1 / V2 rjmp mlib_const ;FKT 12 : set V=predefined constant rjmp mlib_int ;FKT 13 : set V2=INT(V1) rjmp mlib_frac ;FKT 14 : set V2=FRAC(V1) rjmp mlib_cmp ;FKT 15 : compare V1 <=> V2 and return (1,0,2) rjmp mlib_copy ;FKT 16 : copy V1 to V2 rjmp mlib_mul2 ;FKT 17 : V2 = V1 * 2 rjmp mlib_div2 ;FKT 18 : V2 = V1 / 2 rjmp mlib_script ;FKT 19 : start script retzero: clr XL clr XH rjmp retvalue mlib_dummy: ldi XL,0xff ldi XH,0xff retvalue: api_getvalues st Y,XL std Y+1,XH ret ;dummy function ;------------------------------------------------------------------------------- ; include functions ;------------------------------------------------------------------------------- .include "init.asm" .include "import_export.asm" .include "add_sub_cmp.asm" .include "single_op.asm" .include "mult.asm" .include "div.asm" .include "const.asm" .include "script.asm" .include "util.asm" SOURCE_142/SOURCE_library/fixlib/add_sub_cmp.asm0000755000175000001440000001322511725741460020451 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; add v1 + v2 -> v3 ;------------------------------------------------------------------------------- mlib_add: rcall getvar3 mlib_add_i: ld r19,X ;V1 sign ld r18,Y ;V2 sign cp r18,r19 brne mlib_add_2 rcall mlib_badd mlib_add_1: ld r19,X st Z,r19 rjmp retzero mlib_add_2: rcall acheck ;check absolute values cpi tempreg3,1 ;|X|>|Y| brne mlib_add_4 rcall mlib_bsub1 ;X-Y rjmp mlib_add_1 mlib_add_4: cpi tempreg3,2 ;|Y|>|X| brne mlib_add_6 rcall mlib_bsub2 ;Y-X ld r19,Y st Z,r19 rjmp retzero mlib_add_6: lds tempreg4,sys_varsize mlib_add_8: st Z+,const_0 dec tempreg4 brne mlib_add_8 rjmp retzero ;------------------------------------------------------------------------------- ; sub v1 - v2 -> v3 ;------------------------------------------------------------------------------- mlib_sub: rcall getvar3 mlib_sub_i: ld r19,X ;V1 sign ld r18,Y ;V2 sign cp r18,r19 breq mlib_sub_2 rcall mlib_badd rjmp mlib_add_1 mlib_sub_2: rcall acheck ;check absolute values cpi tempreg3,1 ;|X|>|Y| brne mlib_sub_4 rcall mlib_bsub1 ;X-Y ld r19,X st Z,r19 rjmp retzero mlib_sub_4: cpi tempreg3,2 ;|Y|>|X| brne mlib_add_6 rcall mlib_bsub2 ;Y-X ld r19,Y eor r19,const_1 st Z,r19 rjmp retzero ;------------------------------------------------------------------------------- ; set X,Y,Z to the end of V1,V2,V3 ;------------------------------------------------------------------------------- mlib_setend3: lds r16,sys_varsize add XL,r16 adc XH,const_0 add YL,r16 adc YH,const_0 add ZL,r16 adc ZH,const_0 dec r16 ldi tempreg4,0 ;carry ret ;------------------------------------------------------------------------------- ; add |X| + |Y| -> |Z| ;------------------------------------------------------------------------------- mlib_badd: rcall mlib_setend3 mlib_badd_1: ld tempreg1,-X ld tempreg2,-Y subi tempreg1,0x64 ;+156 lsr tempreg4 ;shift out carry adc tempreg1,tempreg2 ;+ carry rol tempreg4 ;shift in carry sbrs tempreg4,0 subi tempreg1,0x9c ;-156 st -Z,tempreg1 dec r16 brne mlib_badd_1 mlib_badd_2: cpi tempreg4,0 breq mlib_badd_4 ldi ereg,2 ;overflow mlib_badd_4: sbiw XL,1 sbiw YL,1 sbiw ZL,1 ret ;------------------------------------------------------------------------------- ; sub |X| - |Y| -> |Z| ;------------------------------------------------------------------------------- mlib_bsub1: rcall mlib_setend3 mlib_bsub1_1: ld tempreg1,-X ld tempreg2,-Y lsr tempreg4 ;shift out carry sbc tempreg1,tempreg2 ;*2 + carry rol tempreg4 ;shift in carry sbrc tempreg4,0 subi tempreg1,0x9c ;-156 st -Z,tempreg1 dec r16 brne mlib_bsub1_1 rjmp mlib_badd_4 ;we cannot generate overflow ;------------------------------------------------------------------------------- ; sub |Y| - |X| -> |Z| ;------------------------------------------------------------------------------- mlib_bsub2: rcall mlib_setend3 mlib_bsub2_1: ld tempreg1,-Y ld tempreg2,-X lsr tempreg4 ;shift out carry sbc tempreg1,tempreg2 ;*2 + carry rol tempreg4 ;shift in carry sbrc tempreg4,0 subi tempreg1,0x9c ;-156 st -Z,tempreg1 dec r16 brne mlib_bsub2_1 rjmp mlib_badd_4 ;we cannot generate overflow ;------------------------------------------------------------------------------- ; ckeck |X| <=> |Y| -> tempreg3 ; X=Y ->0 ; X>Y ->1 ; X2 ;------------------------------------------------------------------------------- acheck: movw tempreg5,XL movw tempreg7,YL adiw XL,1 ;skip sign adiw YL,1 lds tempreg4,sys_varsize dec tempreg4 clr tempreg3 ;clear flag acheck_1: ld r18,X+ ;v1 byte ld r19,Y+ ;v2 byte cp r18,r19 ;check breq acheck_3 brcc acheck_2 ;branch if v1>v2 ldi tempreg3,0x02 ;result: v1v2 rjmp acheck_4 acheck_3: dec tempreg4 brne acheck_1 acheck_4: movw XL,tempreg5 movw YL,tempreg7 ret ;------------------------------------------------------------------------------- ; ckeck b1 <=> b2 ;------------------------------------------------------------------------------- mlib_cmp: rcall getvar2 ;get ptr to Y,Z mlib_cmp_i: movw XL,YL ;V1 movw YL,ZL ;V2 ld r16,X ;v1 sign ld r17,Z ;v2 sign andi r16,0x01 andi r17,0x01 cp r16,r17 ;compare sign brcs mlib_cmp_grt ;V1>V2 brne mlib_cmp_lss ;less rcall acheck mov XL,tempreg3 clr XH rjmp retvalue ;return zero (v1=v2) mlib_cmp_lss: ldi XL,2 clr XH rjmp retvalue mlib_cmp_grt: ldi XL,1 clr XH rjmp retvalue SOURCE_142/SOURCE_library/fixlib/init.asm0000755000175000001440000001104211725741460017147 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; initialize variables ;------------------------------------------------------------------------------- init: ldi YL,LOW(varbase) ;array address ldi YH,HIGH(varbase) ;array address ldi XL,0 init_00: st Y+,const_0 ;clear array space dec XL brne init_00 api_getvalues ;get parameters ldd r16,Y+2 ;vk ldd r17,Y+4 ;nk andi r17,0x07 ;limit nk bytes andi r16,0x07 ;limit vk bytes subi r16,0xfe ;VK Bytes+2 init_01: mov r18,r16 add r18,r17 ;bytes/var dec r16 ;-sign byte sts sys_vk,r16 ;VK sts sys_nk,r17 ;NK sts sys_varsize,r18 ;bytes/VAR ldi XL,0 ;0 variables at start of calculation ldi r17,18 ;system cells init_02: add r17,r18 ;add VAR brcs init_03 ;not enough memory inc XL ;variables+1 rjmp init_02 ;loop init_03: subi XL,3 ;used for internal buffers sts sys_maxvar,XL ;maxvar mul r18,XL ldi YL,LOW(varbase) ldi YH,HIGH(varbase) add YL,r0 adc YH,r1 sts sys_buf1,YL ;buffer 1 address sts sys_buf1+1,YH add YL,r18 adc YH,const_0 sts sys_buf2,YL ;buffer 2 address sts sys_buf2+1,YH add YL,r18 adc YH,const_0 sts sys_buf3,YL ;buffer 2 address sts sys_buf3+1,YH rjmp retvalue ;end here ;------------------------------------------------------------------------------- ; get ptr of V1 to Y and additional Values to X,Z ;------------------------------------------------------------------------------- getvar1: api_getvalues ldd r16,Y+2 ;var (Y) ldd XL,Y+4 ;value 1 (if used) ldd XH,Y+5 ldd ZL,Y+6 ;value 2 (if used) ldd ZH,Y+7 ldd r18,Y+12 ;number of arguments getvar1_i: lds r19,sys_maxvar cp r16,r19 ;limit brcc getvar3_e ;yes->error ldi YL,LOW(varbase) ldi YH,HIGH(varbase) lds r19,sys_varsize ;get ptr to v1 mul r16,r19 add YL,r0 adc YH,r1 ret ;------------------------------------------------------------------------------- ; get ptr of V1,V2,V3 to X,Y,Z ;------------------------------------------------------------------------------- getvar3: api_getvalues ldd r16,Y+2 ;var1 ldd r17,Y+4 ;var2 ldd r18,Y+6 ;var3 getvar3_i: lds r19,sys_maxvar cp r16,r19 ;out of array? brcc getvar3_e ;yes->error cp r17,r19 ;out of array? brcc getvar3_e ;yes->error cp r18,r19 ;out of array? brcc getvar3_e ;yes->error ldi YL,LOW(varbase) ldi YH,HIGH(varbase) lds r19,sys_varsize movw ZL,YL ;copy ptr movw XL,YL ;get ptr to v1 mul r16,r19 add XL,r0 adc XH,r1 ;get ptr to v2 mul r17,r19 add YL,r0 adc YH,r1 ;get ptr to v3 mul r18,r19 add ZL,r0 adc ZH,r1 ret getvar3_e: pop r16 ;remove TOS pop r16 ldi ereg,18 ;out of array ret ;exit complete ;------------------------------------------------------------------------------- ; get ptr of V1,V2 to Y,Z ;------------------------------------------------------------------------------- getvar2: api_getvalues ldd r16,Y+2 ;var1 ldd r17,Y+4 ;var2 getvar2_i: lds r19,sys_maxvar cp r16,r19 ;out of array? brcc getvar3_e ;yes->error cp r17,r19 ;out of array? brcc getvar3_e ;yes->error ldi YL,LOW(varbase) ldi YH,HIGH(varbase) lds r19,sys_varsize movw ZL,YL ;copy ptr ;get ptr to v1 mul r16,r19 add YL,r0 adc YH,r1 ;get ptr to v2 mul r17,r19 add ZL,r0 adc ZH,r1 ret getvar3x: api_getvalues lds r19,sys_varsize ldd r18,Y+6 ;var3 ldi XL,LOW(varbase) ldi XH,HIGH(varbase) mul r18,r19 add XL,r0 adc XH,r1 ret SOURCE_142/SOURCE_library/fixlib/script.asm0000755000175000001440000001557111725741460017523 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; scripting engine ;------------------------------------------------------------------------------- mlib_script: api_getvalues ldd tempreg3,Y+2 ;array offset andi tempreg3,0xfe ;clear bit 0 ldi XL,LOW(sys_sptr) ldi XH,HIGH(sys_sptr) st X+,const_0 ;skip flag st X+,tempreg3 ;pointer ldd tempreg1,Y+4 ;par2 st X+,tempreg1 ;C1 ldd tempreg1,Y+6 ;par2 st X+,tempreg1 ;C2 ldd tempreg1,Y+8 ;par3 st X+,tempreg1 ;C3 st X+,const_0 ;C4 ;now start the loop mlib_script_02: api_kflags ;run sbrc tempreg1,0 ;skip if no break flag rjmp retzero sbrc tempreg1,2 ;skip if no monitor flag rjmp retzero ldi YL,LOW(bas_array) ;scripts will only work in array cells 0...255 ldi YH,HIGH(bas_array) lds tempreg3,sys_sptr ;get script pointer lds tempreg4,sys_skipflag sbrs tempreg4,0 rjmp mlib_script_03 ;no skip sts sys_skipflag,const_0 ;clear skip flag subi tempreg3,0xfe ;ptr+2 mlib_script_03: add YL,tempreg3 ;now calc array position adc YH,const_0 ld tempreg1,Y+ ;get first byte ld tempreg2,Y+ ;get second byte mov r16,tempreg2 ;copy this subi tempreg3,0xfe ;ptr+2 sts sys_sptr,tempreg3 ;store back script pointer ;exit with variable cpi tempreg1,0x00 ;return variable? brne mlib_script_04 andi r16,0x0f rcall getvar1_i ;set ptr rjmp outint_i ;exit with counter mlib_script_04: cpi tempreg1,0x01 ;return counter? brne mlib_script_06 rcall getcptr ld XL,Y clr XH rjmp retvalue ;branch mlib_script_06: cpi tempreg1,0x02 ;branch? brne mlib_script_08 lsl tempreg2 add tempreg3,tempreg2 sts sys_sptr,tempreg3 rjmp mlib_script_02 ;goto main loop ;set from constant mlib_script_08: cpi tempreg1,0x03 ;set from const? brne mlib_script_10 mov XL,r16 swap XL andi r16,0x0f rcall getvar1_i ;set ptr rcall mlib_const_i rjmp mlib_script_02 ;goto main loop ;set from par1 mlib_script_10: cpi tempreg1,0x04 ;set from par1? brne mlib_script_12 api_getvalues mlib_script_11: ldd XL,Y+4 ldd XH,Y+5 rcall getvar1_i rcall setint_i rjmp mlib_script_02 ;goto main loop ;set from par2 mlib_script_12: cpi tempreg1,0x05 ;set from par2? brne mlib_script_20 api_getvalues adiw YL,2 rjmp mlib_script_11 ;set from par3 mlib_script_14: cpi tempreg1,0x06 ;set from par3? brne mlib_script_20 api_getvalues adiw YL,4 rjmp mlib_script_11 mlib_script_20: cpi tempreg1,0x20 ;1x for 2 var op brcc mlib_script_30 swap r16 andi r16,0x0f mov r17,tempreg2 andi r17,0x0f rcall getvar2_i rcall mlib_doop2 rjmp mlib_script_02 ;goto main loop mlib_script_30: cpi tempreg1,0x80 ;4x-7x for 2 var op brcc mlib_script_50 mov r16,tempreg1 andi r16,0x0f mov r17,tempreg2 swap r17 andi r17,0x0f mov r18,tempreg2 andi r18,0x0f rcall getvar3_i rcall mlib_doop3 rjmp mlib_script_02 ;goto main loop mlib_script_50: mov r16,tempreg1 rcall getcptr ld tempreg3,Y andi tempreg1,0xf0 mlib_script_52: cpi tempreg1,0x80 brne mlib_script_54 st Y,tempreg2 ;set counter rjmp mlib_script_02 ;goto main loop mlib_script_54: cpi tempreg1,0x90 brne mlib_script_56 add tempreg3,tempreg2 st Y,tempreg3 ;set counter mlib_script_55: rjmp mlib_script_02 ;goto main loop ;SEQ mlib_script_56: cpi tempreg1,0xa0 brne mlib_script_58 cp tempreg3,tempreg2 brne mlib_script_55 mlib_script_57: sts sys_skipflag,const_1 ;skip next OP rjmp mlib_script_02 ;goto main loop ;SNE mlib_script_58: cpi tempreg1,0xb0 brne mlib_script_60 cp tempreg3,tempreg2 breq mlib_script_55 rjmp mlib_script_57 mlib_script_60: cpi tempreg1,0xc0 brne mlib_script_64 movw ZL,YL ;pointer api_getvalues andi tempreg2,0x03 lsl tempreg2 add YL,tempreg2 adc YH,const_0 ldd tempreg3,Y+4 st Z,tempreg3 rjmp mlib_script_02 ;goto main loop mlib_script_64: ;command not found mlib_script_no: rjmp mlib_script_02 ;goto mail loop ;------------------------------------------------------------------------------- ; get counter ptr ;------------------------------------------------------------------------------- getcptr: andi r16,0x03 ldi YL,LOW(sys_ct1) ldi YH,HIGH(sys_ct1) add YL,r16 adc YH,const_0 ret ;------------------------------------------------------------------------------- ; OP with 2 operands ;------------------------------------------------------------------------------- mlib_doop2: cpi tempreg1,0x10 brne mlib_doop2_11 rjmp mlib_copy_i mlib_doop2_11: cpi tempreg1,0x11 brne mlib_doop2_12 rjmp mlib_abs_i mlib_doop2_12: cpi tempreg1,0x12 brne mlib_doop2_13 rjmp mlib_inv_i mlib_doop2_13: cpi tempreg1,0x13 brne mlib_doop2_14 rjmp mlib_int_i mlib_doop2_14: cpi tempreg1,0x14 brne mlib_doop2_15 rjmp mlib_frac_i mlib_doop2_15: cpi tempreg1,0x15 brne mlib_doop2_16 rjmp mlib_mul2_i mlib_doop2_16: cpi tempreg1,0x16 brne mlib_doop2_17 rjmp mlib_div2_i mlib_doop2_17: rcall mlib_cmp_i cpi tempreg1,0x18 ;SEQ brne mlib_doop2_19 cpi XL,0 breq mlib_doop2_s rjmp mlib_doop2_e mlib_doop2_19: cpi tempreg1,0x19 ;SNE brne mlib_doop2_1a cpi XL,0 brne mlib_doop2_s rjmp mlib_doop2_e mlib_doop2_1a: cpi tempreg1,0x1a ;SGT brne mlib_doop2_1b cpi XL,1 breq mlib_doop2_s rjmp mlib_doop2_e mlib_doop2_1b: cpi tempreg1,0x1b ;SLT brne mlib_doop2_e cpi XL,2 breq mlib_doop2_s rjmp mlib_doop2_e mlib_doop2_s: sts sys_skipflag,const_1 ;skip next OP mlib_doop2_e: ret ;------------------------------------------------------------------------------- ; OP with 3 operands ;------------------------------------------------------------------------------- mlib_doop3: cpi tempreg1,0x50 brcc mlib_doop3_1 rjmp mlib_add_i mlib_doop3_1: cpi tempreg1,0x60 brne mlib_doop3_2 rjmp mlib_sub_i mlib_doop3_2: cpi tempreg1,0x70 brne mlib_doop3_3 rjmp mlib_mult_i mlib_doop3_3: rjmp mlib_div_i SOURCE_142/SOURCE_library/fixlib/util.asm0000755000175000001440000000272311725741460017167 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;calc result's sign ;------------------------------------------------------------------------------- mlib_mdsign: ld r19,X+ ;V1 sign ld tempreg4,Y+ ;V2 sign eor r19,tempreg4 ;this is the result sign st Z+,r19 ;store new sign lds r18,sys_varsize dec r18 ret SOURCE_142/SOURCE_library/fixlib/single_op.asm0000755000175000001440000001022011725741460020160 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; copy value ;------------------------------------------------------------------------------- mlib_copy: rcall getvar2 mlib_copy_i: lds r16,sys_varsize mlib_copy_1: rjmp mlib_abs_2 ;------------------------------------------------------------------------------- ; absolute value ;------------------------------------------------------------------------------- mlib_abs: rcall getvar2 ;get var adr to Y,Z mlib_abs_i: ld tempreg2,Y+ st Z+,const_0 mlib_abs_1: lds r16,sys_varsize dec r16 mlib_abs_2: ld tempreg2,Y+ st Z+,tempreg2 dec r16 brne mlib_abs_2 rjmp retzero ;------------------------------------------------------------------------------- ; invert value ;------------------------------------------------------------------------------- mlib_inv: rcall getvar2 ;get var adr to Y,Z mlib_inv_i: ld tempreg2,Y+ eor tempreg2,const_1 st Z+,tempreg2 rjmp mlib_abs_1 ;------------------------------------------------------------------------------- ; integer value ;------------------------------------------------------------------------------- mlib_int: rcall getvar2 ;get var adr to Y,Z mlib_int_i: lds r16,sys_vk inc r16 mlib_int_1: ld tempreg2,Y+ ;copy pre comma byte st Z+,tempreg2 dec r16 brne mlib_int_1 lds r16,sys_nk mlib_int_2: cpi r16,0 breq mlib_int_3 st Z+,const_0 ;clear post comma byte dec r16 rjmp mlib_int_2 mlib_int_3: rjmp retzero ;------------------------------------------------------------------------------- ; fractional value ;------------------------------------------------------------------------------- mlib_frac: rcall getvar2 ;get var adr to Y,Z mlib_frac_i: ld tempreg2,Y+ ;copy sign byte st Z+,tempreg2 lds r16,sys_vk add YL,r16 adc YH,const_0 mlib_frac_1: st Z+,const_0 ;clear pre comma byte dec r16 brne mlib_frac_1 lds r16,sys_nk mlib_frac_2: cpi r16,0 breq mlib_int_3 ld tempreg2,Y+ ;copy post comma byte st Z+,tempreg2 dec r16 rjmp mlib_frac_2 ;------------------------------------------------------------------------------- ; div value by 2 ;------------------------------------------------------------------------------- mlib_div2: rcall getvar2 mlib_div2_i: lds r16,sys_varsize dec r16 clr r17 ld tempreg1,Y+ ;copy sign st Z+,tempreg1 mlib_div2_1: ld tempreg1,Y+ sbrc r17,0 subi tempreg1,0x9c lsr tempreg1 rol r17 st Z+,tempreg1 dec r16 brne mlib_div2_1 rjmp retzero ;------------------------------------------------------------------------------- ; mult value by 2 ;------------------------------------------------------------------------------- mlib_mul2: rcall getvar2 mlib_mul2_i: lds r16,sys_varsize add YL,r16 adc YH,const_0 add ZL,r16 adc ZH,const_0 dec r16 clr r17 mlib_mul2_1: ld tempreg1,-Y subi tempreg1,0xb2 ;+78 lsr r17 ;shift out carry adc tempreg1,tempreg1 ;*2 + carry rol r17 sbrs r17,0 ;skip if carry subi tempreg1,0x9c ;-156 st -Z,tempreg1 dec r16 brne mlib_mul2_1 ld tempreg1,-Y ;copy sign st -Z,tempreg1 rjmp retzero SOURCE_142/SOURCE_library/fixlib/div.asm0000755000175000001440000001523611725741460016777 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; divide v1 / v2 -> v3 ;------------------------------------------------------------------------------- mlib_div: rcall getvar3 ;calc result's sign mlib_div_i: rcall mlib_mdsign ;sign for mult and div movw r0,ZL ;clear result var mov tempreg3,r18 ;varsize-1 mlib_div_00: st Z+,const_0 dec tempreg3 brne mlib_div_00 sts sys_target,ZL sts sys_target+1,ZH sub ZL,r18 sbc ZH,const_0 mov tempreg3,r18 ;varsize-1 clr r16 ;v1 zero clr r17 ;v2 zero mlib_div_01: ld tempreg1,X+ ;var 1 byte cpi tempreg1,0 breq mlib_div_02 ldi r16,1 ;v1 is not zero mlib_div_02: ld tempreg1,Y+ ;var 2 byte cpi tempreg1,0 breq mlib_div_03 ldi r17,1 ;v2 is not zero mlib_div_03: dec tempreg3 brne mlib_div_01 ;n/0 cpi r17,0 ;divider is zero brne mlib_div_04 ldi ereg,3 ;divide by 0 rjmp retzero ;0/m mlib_div_04: cpi r16,0 ;dividend is zero brne mlib_div_06 st -Z,const_0 ;clear sign rjmp retzero ;result is always cleared ;correct pointers mlib_div_06: sub XL,r18 sbc XH,const_0 sub YL,r18 sbc YH,const_0 lds r16,sys_vk ;right shift register dec r16 ;how many bytes the result must be shifted right clr tempreg5 ;dividend len=varsize-1 clr tempreg6 ;divider len=varsize-1 ;copy var1 to buffer 1 (dividend) lds ZL,sys_buf1 lds ZH,sys_buf1+1 st Z+,const_0 ;pre-zero clt mov r19,r18 ;varsize -1 clr r17 ;no trailling zeroes mlib_div_10: ld tempreg1,X+ ;get byte brts mlib_div_12 cpi tempreg1,0 brne mlib_div_12 inc r17 ;one additional zero byte required inc r16 ;shift+1 rjmp mlib_div_14 mlib_div_12: set ;set nonzero flag st Z+,tempreg1 inc tempreg5 mlib_div_14: dec r19 brne mlib_div_10 mlib_div_16: cpi r17,0 breq mlib_div_18 st Z+,const_0 dec r17 rjmp mlib_div_16 mlib_div_18: st Z+,const_0 ;copy var2 to buffer 2 (divider) mlib_div_19: lds ZL,sys_buf2 lds ZH,sys_buf2+1 clt mov r19,r18 ;varsize -1 clr r17 ;no trailing zeroes mlib_div_20: ld tempreg1,Y+ ;get byte brts mlib_div_22 ;branch if nonzero flag is set cpi tempreg1,0 brne mlib_div_22 inc r17 ;one additional zero byte required dec r16 ;shift-1 rjmp mlib_div_24 mlib_div_22: set st Z+,tempreg1 inc tempreg6 mlib_div_24: dec r19 brne mlib_div_20 mlib_div_26: cpi r17,0 breq mlib_div_28 st Z+,const_0 dec r17 rjmp mlib_div_26 mlib_div_28: st Z+,const_0 ;r16: shift counter ;r18: byte counter ;tempreg6: divider/dividend len ;r18-r16 quotient bytes mlib_div_30: sbrs r16,7 rjmp mlib_div_40 mlib_div_32: ldi ereg,2 ;overflow mlib_div_34: rjmp retzero mlib_div_40: sub r18,r16 ;r18 are now quotient bytes breq mlib_div_34 ;=0 brcs mlib_div_34 ;<0 add ZL,r16 ;target ptr + rshift adc ZH,const_0 ;set buf 3 lds YL,sys_buf3 lds YH,sys_buf3+1 lds r19,sys_varsize dec r19 ldi tempreg1,100 st Y+,tempreg1 mlib_div_42: st Y+,const_0 dec r19 brne mlib_div_42 ;prepare vars clr tempreg4 ;round byte ;divide loop mlib_div_50: ;check if dividend >= divider lds XL,sys_buf1 ;dividend lds XH,sys_buf1+1 lds YL,sys_buf2 ;divider lds YH,sys_buf2+1 mov r19,tempreg6 ;divider len mlib_div_52: ld tempreg1,X+ ;dividend byte ld tempreg2,Y+ ;divider byte cp tempreg1,tempreg2 ;compare brcs mlib_div_80 ;divider is greater cp tempreg2,tempreg1 ;compare brcs mlib_div_54 ;dividend is greater dec r19 ;loop counter brne mlib_div_52 ;loop mlib_div_54: ;dividend-=divider mlib_subdd: lds XL,sys_buf1 ;dividend lds XH,sys_buf1+1 lds YL,sys_buf2 ;divider lds YH,sys_buf2+1 add XL,tempreg6 ;add divider len adc XH,const_0 add YL,tempreg6 ;add divider len adc YH,const_0 mov r19,tempreg6 ;divider len clr tempreg3 ;carry mlib_subdd_1: ld tempreg1,-X ;dividend byte ld tempreg2,-Y ;divider byte lsr tempreg3 ;shift out carry sbc tempreg1,tempreg2 rol tempreg3 ;shift in carry sbrc tempreg3,0 subi tempreg1,0x9c st X,tempreg1 dec r19 brne mlib_subdd_1 ;add buf 3 to quotient mlib_addb3: lds YL,sys_buf3 lds YH,sys_buf3+1 add YL,r18 adc YH,const_0 lds ZL,sys_target lds ZH,sys_target+1 adiw YL,1 clr tempreg3 ld tempreg2,-Y ;get buf3 byte subi tempreg4,0x64 ;+156 lsr tempreg3 ;shift out carry adc tempreg4,tempreg2 ;add with carry rol tempreg3 ;shift in carry sbrs tempreg3,0 subi tempreg4,0x9c mov r19,r18 mlib_addb3_2: ld tempreg1,-Z ;get target byte ld tempreg2,-Y ;get buf3 byte subi tempreg1,0x64 ;+156 lsr tempreg3 ;shift out carry adc tempreg1,tempreg2 ;add with carry rol tempreg3 ;shift in carry sbrs tempreg3,0 subi tempreg1,0x9c st Z,tempreg1 dec r19 brne mlib_addb3_2 ;dividend*2 mlib_div_80: lds XL,sys_buf1 ;dividend lds XH,sys_buf1+1 mov r19,tempreg5 ;dividend len add XL,r19 ;add len adc XH,const_0 clr tempreg3 ;carry dec r19 mlib_div_82: ld tempreg1,-X subi tempreg1,0xb2 ;+78 lsr tempreg3 ;shift out carry adc tempreg1,tempreg1 ;*2 + carry rol tempreg3 sbrs tempreg3,0 ;skip if carry subi tempreg1,0x9c ;-156 st X,tempreg1 dec r19 brne mlib_div_82 ld tempreg1,-X lsr tempreg3 ;shift out carry adc tempreg1,tempreg1 ;*2 + carry st X,tempreg1 ;buf3/2 mlib_div_84: lds XL,sys_buf3 ;buf3 lds XH,sys_buf3+1 mov r19,r18 ;quotient bytes inc r19 clr tempreg2 ;clear carry clr r17 ;nonzero flag mlib_div_86: ld tempreg1,X sbrc tempreg2,0 subi tempreg1,0x9c ;+100 lsr tempreg1 rol tempreg2 st X+,tempreg1 or r17,tempreg1 dec r19 brne mlib_div_86 cpi r17,0 ;all zero breq mlib_div_99 rjmp mlib_div_50 mlib_div_99: rjmp retzero SOURCE_142/SOURCE_library/fixlib/const.asm0000755000175000001440000000534611725741460017344 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; v1=const ;------------------------------------------------------------------------------- mlib_const: rcall getvar1 ;varptr mlib_const_i: mov r17,XL andi r17,0x07 ;8 constants ldi XL,LOW(mlib_tconst-start) ldi XH,HIGH(mlib_tconst-start) api_dataptr ;set Z to ctable ldi r18,8 ;Bytes per constant mul r18,r17 add ZL,r0 adc ZH,r1 lds r16,sys_varsize mlib_const_1: st Y+,const_0 dec r16 brne mlib_const_1 lds r16,sys_nk sub YL,r16 sbc YH,const_0 sbiw YL,1 lpm tempreg1,Z+ ;pre comma byte st Y+,tempreg1 mlib_const_4: mov r17,r16 mlib_const_6: cpi r16,0 breq mlib_const_8 lpm tempreg1,Z+ ;post comma byte st Y+,tempreg1 dec r16 rjmp mlib_const_6 mlib_const_8: cpi r17,7 ;no rounding necessary breq mlib_const_20 lpm tempreg1,Z+ ;get next byte cpi tempreg1,0x50 brcs mlib_const_20 mov r16,r17 inc r16 ; ldi tempreg2,1 mlib_const_10: ld tempreg1,-Y add tempreg1,const_1 st Y,tempreg1 cpi tempreg1,100 brcs mlib_const_20 subi tempreg1,100 st Y,tempreg1 dec r16 brne mlib_const_10 mlib_const_20: rjmp retzero ;------------------------------------------------------------------------------- ; constant table ;------------------------------------------------------------------------------- mlib_tconst: .db 0,0,0,0,0,0,0,0 ;0 .db 1,0,0,0,0,0,0,0 ;1 .db 03,14,15,92,65,35,89,79 ;PI .db 02,71,82,81,82,84,59,05 ;E .db 00,69,31,47,18,05,59,95 ;ln(2) .db 02,30,25,85,9,29,94,05 ;ln(10) .db 01,41,42,13,56,23,73,10 ;SQR(2) .db 01,73,20,50,80,75,68,88 ;SQR(3) SOURCE_142/SOURCE_library/fixlib/mult.asm0000755000175000001440000001050611725741460017171 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; mult v1 * v2 -> v3 ;------------------------------------------------------------------------------- mlib_mult: rcall getvar3 ;calc result's sign mlib_mult_i: ld r19,X+ ;V1 sign ld r18,Y+ ;V2 sign eor r19,r18 ;this is the result sign st Z+,r19 ;store new sign lds r18,sys_varsize dec r18 lds ZL,sys_buf1 lds ZH,sys_buf1+1 movw tempreg7,ZL ;save ptr ;clear result buffer (buffer 1) mov r19,r18 ;vk+nk subi r19,0xfe ;+2 additional bytes mlib_mult_08: st Z+,const_0 dec r19 brne mlib_mult_08 ;now start multiply clr tempreg5 ;loop counter for X loop mlib_mult_10: ld tempreg1,X+ ;get V1 value clr tempreg6 ;loop counter for Y loop mlib_mult_12: ld tempreg2,Y+ mov r16,tempreg5 ;X position add r16,tempreg6 ;Y position lds tempreg4,sys_vk sub r16,tempreg4 inc r16 ;now we have the offset lds r17,sys_varsize inc r17 ;varsize-1 = vk+nk cp r16,r17 sbrs r16,7 brcc mlib_mult_29 ;ignore this mul tempreg1,tempreg2 ;V1 * V2 movw tempreg3,r0 ;save result lsl r0 rol r1 lsl r0 rol r1 ldi tempreg2,0xa3 mul r1,tempreg2 ldi tempreg2,0x9c mul r1,tempreg2 add tempreg3,r0 adc tempreg4,r1 cpi tempreg3,0x64 brcs mlib_mult_22 subi tempreg3,0x64 inc tempreg4 mlib_mult_22: cpi tempreg3,0x64 brcs mlib_mult_24 subi tempreg3,0x64 inc tempreg4 ;now put tr3/tr4 into result mlib_mult_24: sbrs r16,7 ;negative offset? rjmp mlib_mult_30 ;not cpi tempreg3,0 breq mlib_mult_29 cpi tempreg4,0 breq mlib_mult_29 mlib_mult_28: ldi ereg,2 ;overflow mlib_mult_29: rjmp mlib_mult_50 ;CONTINUE LOOP mlib_mult_30: movw ZL,tempreg7 ;set buf2a base add ZL,r16 ;add offset adc ZH,const_0 cpi r16,0x00 ;offset=0? brne mlib_mult_40 ;not ld r19,Z ;get data add r19,tempreg3 ;add low cpi r19,100 brcs mlib_mult_32 subi r19,100 st Z,r19 rjmp mlib_mult_28 mlib_mult_32: st Z,r19 cpi tempreg4,0 brne mlib_mult_28 rjmp mlib_mult_50 mlib_mult_40: ld r19,Z ;get LOW byte add r19,tempreg3 ;add LOW clr tempreg2 ;clear carry cpi r19,100 brcs mlib_mult_42 subi r19,100 ldi tempreg2,1 mlib_mult_42: st Z,r19 ld r19,-Z ;get HIGH byte lsr tempreg2 adc r19,tempreg4 cpi r19,100 brcs mlib_mult_43 subi r19,100 ldi tempreg2,1 mlib_mult_43: st Z,r19 subi r16,2 mlib_mult_44: sbrc r16,7 rjmp mlib_mult_48 ;all done sbrs tempreg2,0 rjmp mlib_mult_50 ;all done ld r19,-Z ;get byte add r19,tempreg2 clr tempreg2 cpi r19,100 brcs mlib_mult_46 subi r19,100 ldi tempreg2,1 dec r16 mlib_mult_46: st Z,r19 rjmp mlib_mult_44 mlib_mult_48: sbrc tempreg2,0 ldi ereg,2 ;overflow ;Y loop mlib_mult_50: inc tempreg6 lds tempreg3,sys_varsize dec tempreg3 cp tempreg3,tempreg6 breq mlib_mult_52 rjmp mlib_mult_12 mlib_mult_52: sub YL,tempreg3 sbc YH,const_0 ;X loop mlib_mult_60: inc tempreg5 cp tempreg3,tempreg5 breq mlib_mult_62 rjmp mlib_mult_10 mlib_mult_62: ;now convert result into target register rcall getvar3x ;set ptr to target var adiw XL,1 ;sign is already stored movw YL,tempreg7 lds r16,sys_varsize dec r16 mlib_mult_70: ld ZL,Y+ st X+,ZL dec r16 brne mlib_mult_70 rjmp retzero SOURCE_142/SOURCE_library/fixlib/import_export.asm0000755000175000001440000003167711725741460021137 0ustar joergusers;################################################################################ ;# # ;# FIXLIB - fixpoint math routines for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; int input ;------------------------------------------------------------------------------- setint: rcall getvar1 ;get var adr to Y and value to X setint_i: movw ZL,YL lds r16,sys_varsize ;clear target variable clearvar_01: st Z+,const_0 dec r16 brne clearvar_01 ;store sign cpi XH,0x80 ;negative brcs setint_01 ;branch if not st Y,const_1 ;negative api_abs ;we use absolute value setint_01: adiw YL,1 ;points to first digit byte lsl XL ;shift out bit 15 which was sign rol XH ldi tempreg1,0 ;set result bytes to zero ldi tempreg2,0 ldi tempreg3,0 ldi r19,15 ;bits to do setint_02: clr tempreg4 lsl XL ;shift out one Bit rol XH rol tempreg4 ;shift into carry byte subi tempreg1,0xb2 ;+78 lsr tempreg4 ;shift out carry adc tempreg1,tempreg1 ;*2 + carry rol tempreg4 sbrs tempreg4,0 ;skip if carry subi tempreg1,0x9c ;-156 subi tempreg2,0xb2 ;+78 lsr tempreg4 ;shift out carry adc tempreg2,tempreg2 ;*2 + carry rol tempreg4 sbrs tempreg4,0 ;skip if carry subi tempreg2,0x9c ;-156 subi tempreg3,0xb2 ;+78 lsr tempreg4 ;shift out carry adc tempreg3,tempreg3 ;*2 + carry rol tempreg4 sbrs tempreg4,0 ;skip if carry subi tempreg3,0x9c ;-156 dec r19 ;bit counter brne setint_02 ;bit loop lds r16,sys_vk ;precomma bytes setint_06: cpi r16,0x04 brcs setint_08 adiw YL,1 ;leave this as zero dec r16 rjmp setint_06 ;r16<4 setint_08: cpi r16,3 ;we have 3 bytes breq setint_10 cpi r16,2 ;we have 3 bytes breq setint_11 rjmp setint_12 setint_10: st Y+,tempreg3 ;digits 6+5 setint_11: st Y+,tempreg2 ;digits 4+3 setint_12: st Y+,tempreg1 ;digits 2+1 setint_20: rjmp retzero shift3l: ret ;------------------------------------------------------------------------------- ; output register ;------------------------------------------------------------------------------- outint: rcall getvar1 ;get var adr to Y and (dummy) value to X outint_i: lds ZL,sys_buf1 ;Z points to buffer 1 lds ZH,sys_buf1+1 movw tempreg7,ZL ;save pointer ;copy var to buffer 1 lds tempreg3,sys_varsize outint_01: ld tempreg1,Y+ st Z+,tempreg1 dec tempreg3 brne outint_01 ;round buffer value ldi r19,0x00 ;round to integer rcall round ;now round buffer 1 value movw YL,tempreg7 ld r18,Y+ ;get sign ldi tempreg1,0 ;set input bytes to zero ldi tempreg2,0 ldi tempreg3,0 clr XL ;set result to zero clr XH lds r16,sys_vk ;precomma bytes outint_02: cpi r16,0x04 brcs outint_04 adiw YL,1 ;ignore this dec r16 rjmp outint_02 outint_04: cpi r16,3 ;we have 3 bytes breq outint_10 cpi r16,2 ;we have 3 bytes breq outint_11 rjmp outint_12 outint_10: ld tempreg3,Y+ ;digits 6+5 outint_11: ld tempreg2,Y+ ;digits 4+3 outint_12: ld tempreg1,Y+ ;digits 2+1 ldi r19,15 ;bits to do ldi r17,0x33 outint_20: clr tempreg4 lsr tempreg4 brcc outint_20a subi tempreg3,0x9c ;+100 outint_20a: lsr tempreg3 rol tempreg4 lsr tempreg4 brcc outint_20b subi tempreg2,0x9c ;+100 outint_20b: lsr tempreg2 rol tempreg4 lsr tempreg4 brcc outint_20c subi tempreg1,0x9c ;+100 outint_20c: lsr tempreg1 rol tempreg4 lsr tempreg4 ror XH ror XL dec r19 brne outint_20 lsr XH ror XL sbrs r18,0 rjmp outint_22 com XL com XH adiw XL,1 outint_22: rjmp retvalue ;------------------------------------------------------------------------------- ; round result from Z ; r19=post comma bytes ;------------------------------------------------------------------------------- round: lds r16,sys_varsize add ZL,r16 adc ZH,const_0 dec r16 ;dont use sign byte lds r17,sys_nk ;post comma bytes mov r18,r17 ;store mov tempreg1,r19 ;post comma round bytes cp r17,tempreg1 ;check for minimum brcc round_01 ;r18 is minimum mov tempreg1,r17 ;set new minimum round_01: ldi r17,0x66 ;preset constant ldi tempreg2,0 ;clear overflow flag sub r18,tempreg1 ;r18=bytes to round out round_02: ld tempreg1,-Z ;get byte subi r18,1 brpl round_30 cpi tempreg2,0 ;carry? breq round_20 ;no->end add tempreg1,r17 ;+0x33 lsr tempreg2 ;shift out carry adc tempreg1,const_0 ;+ carry in tempreg4,SREG rol tempreg2 ;shift in carry sbrs tempreg4,5 subi tempreg1,0x06 sbrs tempreg2,0 subi tempreg1,0x60 st Z,tempreg1 ;store back round_10: dec r16 ;loop counter brne round_02 round_20: ret round_30: clr tempreg2 ;carry=0 cpi tempreg1,0x50 brcs round_32 inc tempreg2 round_32: st Z,const_0 ;set Byte to zero dec r16 rjmp round_02 ;------------------------------------------------------------------------------- ; print var ; PAR2(XL)= format (optional, required if channel is set) ; bit 7-4 = minimum pre-comma ; bit 3-0 = maximum post-comma ; PAR3(ZL)= channel (optional) ;------------------------------------------------------------------------------- print: rcall getvar1 ;get var adr to Y and format values to X mov tempreg4,XL ;copy format cpi r18,3 ;3 parameters brne print_01 ;no channel setting mov XL,ZL ;set channel api_setchannel print_01: mov XL,tempreg4 ;restore format cpi r18,2 ;2 parameters? brcc print_02 ;>= ldi XL,0x0f ;default format, no min pre, max post print_02: ;convert var to buffer 1 movw tempreg5,YL ;copy varptr set ;USE SIGN ldi r16,0 ;buf 1 rcall d100_bcd ;convert to buf1 in BCD format mov tempreg5,XL ;set format ;round buffer value lds ZL,sys_buf1 ;Z points to buffer 1 lds ZH,sys_buf1+1 movw tempreg7,ZL ;save pointer mov r19,tempreg5 ;get format andi r19,0x0f ;mask nk bytes rcall round ;now round buffer 1 value ;get sign movw ZL,tempreg7 ;restore pointer to buf 1 ldi tempreg2,' ' ;space as pos sign ld r18,Z+ ;get sign byte sbrc r18,0 ;skip if positive ldi tempreg2,'-' ;negative mov r19,tempreg5 ;get format byte swap r19 andi r19,0x0f ;mask vk bytes inc r19 ;+1 lds r16,sys_vk ;get pre format bytes ;output pre comma before data print_10: cp r16,r19 ;need more pre-comma than we have? brcc print_12 ;no ldi tempreg1,0x20 ;space api_outchar ;output ldi tempreg1,0x20 ;space api_outchar ;output dec r19 ;pre-bytes -1 rjmp print_10 ;loop print_12: mov r18,r16 ;copy vk bytes sub r18,r19 ;bytes which can ignored if space print_14: ldi r17,0 ;no nonzero lsl r16 ;digits=bytes*2 lsl r18 ;the digit output loop print_20: subi r18,1 ;dec ignore digits sub r16,const_1 ;dec pre comma digits brcs print_30 ;all vk done, continue with comma brne printdigit ;branch if not last digit mov tempreg1,tempreg3 andi tempreg1,0x0f subi tempreg1,0xd0 ;add ascii base rjmp printdigit_4 ;get char printdigit: sbrc r16,0 ld tempreg3,Z+ mov tempreg1,tempreg3 sbrc r16,0 swap tempreg1 andi tempreg1,0x0f subi tempreg1,0xd0 ;add ascii base ;tempreg1 is now char to print cpi tempreg1,0x30 ;zero brne printdigit_4 ;no sbrc r17,0 ;skip if nonzero active rjmp printdigit_4 ;print digit ldi tempreg1,0x20 ;set to space sbrc r18,7 ;surpress if we can api_outchar rjmp print_20 ;loop pre-comma printdigit_4: cpi r17,0 ;last was zero brne printdigit_6 push tempreg1 mov tempreg1,tempreg2 ;get sign api_outchar pop tempreg1 ldi r17,1 ;set nonzero flag printdigit_6: api_outchar ;print digit rjmp print_20 ;loop pre-comma print_30: lds r16,sys_nk cpi r16,0 ;no post comma breq print_50 ;all done, no post comma digits available mov r19,tempreg5 andi r19,0x0f breq print_50 ;all done, no post comma digits required ;find last nonzero byte in post comma print_32: movw tempreg7,ZL add ZL,r16 adc ZH,const_0 lsl r16 ;digits=bytes*2 print_34: ld tempreg1,-Z ;get byte mov tempreg2,tempreg1 ;copy byte andi tempreg1,0x0f brne print_38 ;not zero dec r16 andi tempreg2,0xf0 brne print_38 dec r16 brne print_34 ;next byte print_38: cpi r16,0 breq print_50 ;post comma digits are all zero ldi tempreg1,'.' ;output comma api_outchar movw ZL,tempreg7 ;restore pointer print_40: cpi r16,0 breq print_50 ld tempreg1,Z swap tempreg1 andi tempreg1,0x0f subi tempreg1,0xd0 ;add ascii base api_outchar dec r16 cpi r16,0 breq print_50 ld tempreg1,Z+ andi tempreg1,0x0f subi tempreg1,0xd0 ;add ascii base api_outchar dec r16 rjmp print_40 print_50: ldi XL,0 api_setchannel rjmp retzero ;------------------------------------------------------------------------------- ; input register ;------------------------------------------------------------------------------- mlib_input: rcall getvar1 ;get var adr to Y and array pointer to X movw tempreg5,YL ;save var ptr lds tempreg7,sys_buf1 lds tempreg8,sys_buf1+1 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL ;array pointer adc YH,const_0 ldi r17,0x80 ;we start with pre comma ;clear buffer lds r16,sys_varsize movw ZL,tempreg7 ;get var ptr mlib_input_01: st Z+,const_0 dec r16 brne mlib_input_01 lds r18,sys_vk lds r19,sys_nk lsl r19 ;NK digits ;check first char for sign mlib_input_04: movw ZL,tempreg7 ;get var ptr ld tempreg1,Y ;get char cpi tempreg1,'+' breq mlib_input_06 ;ignore pos sign cpi tempreg1,'-' brne mlib_input_07 st Z,const_1 ;set negative sign mlib_input_06: adiw YL,1 ;set ptr after sign mlib_input_07: adiw ZL,1 ;target ptr+1 movw tempreg7,ZL ;set new ptr mlib_input_08: ld tempreg1,Y+ ;get char sbrs r17,7 rjmp mlib_input_12 ;is post comma cpi tempreg1,'.' brne mlib_input_10 ldi r17,0x00 ;continue with post-comma rjmp mlib_input_08 mlib_input_10: cpi tempreg1,',' brne mlib_input_12 ldi r17,0x00 ;continue with post-comma rjmp mlib_input_08 mlib_input_12: subi tempreg1,0x30 ;sub ascii base brcs mlib_input_e ;no digit cpi tempreg1,0x0a brcc mlib_input_e ;no digit sbrc r17,7 ;skip if post rcall pre_ins sbrs r17,7 ;skip if pre rcall post_ins rjmp mlib_input_08 ;next char mlib_input_e: ldi r16,0 ;we use buf 1 set ;use sign rcall bcd_d100 ;convert to d100 format rjmp retzero pre_ins: movw ZL,tempreg7 ;get ptr lds tempreg4,sys_vk ;+VK add ZL,tempreg4 adc ZH,const_0 pre_ins_01: ld tempreg2,-Z swap tempreg2 mov tempreg3,tempreg2 andi tempreg2,0xf0 or tempreg2,tempreg1 st Z,tempreg2 mov tempreg1,tempreg3 andi tempreg1,0x0f dec tempreg4 brne pre_ins_01 ret post_ins: cpi r19,0 brne post_ins_01 ret post_ins_01: movw ZL,tempreg7 ;var ptr lds tempreg4,sys_vk ;+VK add ZL,tempreg4 adc ZH,const_0 mov tempreg3,r17 lsr tempreg3 add ZL,tempreg3 adc ZH,const_0 sbrs r17,0 swap tempreg1 ld tempreg2,Z or tempreg2,tempreg1 st Z,tempreg2 inc r17 dec r19 ret ;------------------------------------------------------------------------------- ; convert tempreg5/6->buf1/2 (r16.0) ;------------------------------------------------------------------------------- d100_bcd: api_pushxyz lds YL,sys_buf1 ;dest lds YH,sys_buf1+1 lds r17,sys_varsize mul r17,r16 add YL,r0 adc YL,r1 movw XL,tempreg5 ;source ld r16,X+ ;sign brtc d100_bcd_0 d100_bcd_0: st Y+,r16 dec r17 d100_bcd_1: ld ZL,X+ ;get b100 byte clr r16 ;10s d100_bcd_2: cpi ZL,0x0a brcs d100_bcd_6 subi r16,0xf0 ;+16 subi ZL,0x0a rjmp d100_bcd_2 d100_bcd_6: add ZL,r16 st Y+,ZL dec r17 brne d100_bcd_1 api_popxyz ;------------------------------------------------------------------------------- ; convert tempreg5/6<-buf1/2 (r16.0) ;------------------------------------------------------------------------------- bcd_d100: api_pushxyz lds YL,sys_buf1 ;src lds YH,sys_buf1+1 lds r17,sys_varsize mul r17,r16 add YL,r0 adc YL,r1 movw XL,tempreg5 ;dest ld r16,Y+ ;sign brtc bcd_d100_0 st X+,r16 bcd_d100_0: dec r17 ldi ZH,10 bcd_d100_1: ld ZL,Y+ mov r16,ZL swap r16 andi r16,0x0f andi ZL,0x0f mul r16,ZH add ZL,r0 st X+,ZL dec r17 brne bcd_d100_1 api_popxyz SOURCE_142/SOURCE_library/measlib/0000755000175000001440000000000011713042123015623 5ustar joergusersSOURCE_142/SOURCE_library/measlib/measlib.asm0000755000175000001440000003333511725741460017770 0ustar joergusers;################################################################################ ;# # ;# Measure library for ChipBasic2 # ;# copyright (c) 2010-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x7200 ;--------------------++++++++++++N start: .db " Meas-lib-04N",0xd4,0xff,0x12 ;icon .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,0xcc,0xcd,0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x7210 rjmp retzero ;dummy for autostart rjmp rmeas1 ;FKT 1 meas Un and Ux with PORTA.1 active rjmp rmeas2 ;FKT 2 meas Un and Ux with PORTA.2 active rjmp rmeas3 ;FKT 3 meas Un and Ux with PORTA.3 active rjmp cmeas1 ;FKT 4 C-measurement with PORTA.3 active (fast) rjmp cmeas2 ;FKT 5 C-measurement with PORTA.3 active (medium) rjmp cmeas3 ;FKT 6 C-measurement with PORTA.2 active (medium) rjmp cmeas4 ;FKT 7 C-measurement with PORTA.2 active (slow) rjmp lmeas1 ;FKT 8 L-measurement with PORTA.1 active (fast) rjmp lmeas2 ;FKT 9 L-measurement with PORTA.1 active (medium) rjmp lmeas3 ;FKT 10 L-measurement with PORTA.2 active (medium) rjmp lmeas4 ;FKT 11 L-measurement with PORTA.3 active (medium) retzero: clr XL clr XH rjmp retvalue mlib_dummy: ldi XL,0xff ldi XH,0xff retvalue: api_getvalues st Y,XL std Y+1,XH ret ;dummy function ;------------------------------------------------------------------------------- ; C measure with PORTA.3 as source (method A) ;------------------------------------------------------------------------------- cmeas1: rcall enacomp ;enable comparator ldi YH,0x08 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 ldi tempreg1,16 ;no of measures cmeas1_wait: mov XL,vline_l ;wait for line 250 cpi XL,250 brne cmeas1_wait cli ;1 disable INT sbi PORTA,3 ;2 33K ein clr XL ;1 ldi XH,200 ;1 nop ;1 nop ;1 nop cmeas1_loop: in r16,ACSR ;1 ACSR sbrc r16,5 ;1/2 skip if >1,1V inc XL ;1 dec XH ;1 brne cmeas1_loop ;1 cbi PORTA,3 ;2 aus sei add tempreg2,XL ;add result adc tempreg3,const_0 dec tempreg1 ;loop counter brne cmeas1_wait ;do loop rjmp cmeas3_end ;------------------------------------------------------------------------------- ; C measure with PORTA.3 as source (method B) ;------------------------------------------------------------------------------- cmeas2: rcall enacomp ;enable comparator ldi YH,0x0a ;33K + discharge rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 clr tempreg4 ldi tempreg1,16 ;no of measures cmeas2_iloop: api_sync api_sync cmeas2_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne cmeas2_wait cli ;1 disable INT cbi DDRA,1 ;1 discharge off sbi PORTA,3 ;2 set 33K to vcc clr XL ;1 clr XH ;1 ldi YL,LOW(12800) ;1 ldi YH,HIGH(12800) ;1 out PORTC,const_0 ;1 border off nop ;1 filling nop nop nop cmeas2_loop: in r16,0x30 ;1 ACSR sbrc r16,5 ;1/2 skip if >1,1V adiw XL,1 ;2 sbrs r16,5 ;1/2 rjmp cmeas2_loop2 ;2 cmeas2_loop1: sbiw YL,1 ;2 brne cmeas2_loop ;2 rjmp cmeas2_loop3 cmeas2_loop2: sbiw YL,1 ;2 nop nop nop nop nop nop brne cmeas2_loop2 cmeas2_loop3: cbi PORTA,3 ;2 aus sbi DDRA,1 ;1 discharge ldi YL,100 add vline_l,YL ;correct line counter sei add tempreg2,XL adc tempreg3,XH adc tempreg4,const_0 dec tempreg1 ;loop counter brne cmeas2_iloop ;do loop rjmp cmeas3_calc ;------------------------------------------------------------------------------- ; C measure with PORTA.2 as source (method B) ;------------------------------------------------------------------------------- cmeas3: rcall enacomp ;enable comparator ldi YH,0x06 ;1K + discharge rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 clr tempreg4 ldi tempreg1,16 ;no of measures cmeas3_iloop: api_sync cmeas3_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne cmeas3_wait cli ;1 disable INT cbi DDRA,1 ;1 discharge off sbi PORTA,2 ;2 1K to vcc clr XL ;1 clr XH ;1 ldi YL,LOW(12800) ;1 ldi YH,HIGH(12800) ;1 out PORTC,const_0 ;1 border off nop ;1 filling nop nop nop cmeas3_loop: in r16,0x30 ;1 ACSR sbrc r16,5 ;1/2 skip if >1,1V adiw XL,1 ;2 sbrs r16,5 ;1/2 rjmp cmeas3_loop1 ;2 cmeas3_loop1: sbiw YL,1 ;2 brne cmeas3_loop ;2 cbi PORTA,2 ;2 1K off sbi DDRA,1 ;1 discharge ldi YL,100 add vline_l,YL ;correct line counter sei add tempreg2,XL adc tempreg3,XH adc tempreg4,const_0 dec tempreg1 ;loop counter brne cmeas3_iloop ;do loop cmeas3_calc: ldi tempreg1,3 cmeas3_calc1: lsr tempreg4 ;shift right ror tempreg3 ror tempreg2 dec tempreg1 ;loop counter brne cmeas3_calc1 ;do loop cmeas3_end: lds YL,ADCSRB andi YL,0xbf ;no use ADMUX sts ADCSRB,YL ldi YL,0xc6 ;re-enable ADC sts ADCSRA,YL mov XL,tempreg2 mov XH,tempreg3 rjmp retvalue ;------------------------------------------------------------------------------- ; C measure with PORTA.2 as source (method C) ;------------------------------------------------------------------------------- cmeas4: rcall enacomp ;enable comparator ldi YH,0x06 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 ldi tempreg1,2 cmeas4_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne cmeas4_wait cbi DDRA,1 ;discharge off ldi YH,130 sbi PORTA,2 ;2 1K ldi ZL,1 ldi ZH,0 ldi XL,0x00 ; ldi XH,0x10 ;4096 max cmeas4_loop: mov YL,vline_l ;wait for next line cp YL,YH breq cmeas4_loop mov YH,YL cmeas4_loop1: in r16,0x30 ;1 ACSR sbrc r16,5 ;1/2 skip if >1,1V adiw ZL,1 ;2 cmeas4_loop2: sbiw XL,1 ;2 brne cmeas4_loop ;2 cbi PORTA,2 ;2 1K off sbi DDRA,1 ;discharge add tempreg2,ZL adc tempreg3,ZH api_sync api_sync dec tempreg1 ;loop counter brne cmeas4_wait ;do loop rjmp cmeas3_end ;------------------------------------------------------------------------------- ; L measure with PORTA.1 as source (method A) ;------------------------------------------------------------------------------- lmeas1: rcall enacomp ldi YH,0x02 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 ldi tempreg1,16 ;no of measures lmeas1_wait: mov XL,vline_l ;wait for line 130 cpi XL,250 brne lmeas1_wait cli ;1 disable INT sbi PORTA,1 ;2 0K ein clr XL ;1 ldi XH,200 ;1 nop ;1 nop ;1 out PORTC,const_0 ;1 border off lmeas1_loop: in r16,0x30 ;1 ACSR sbrs r16,5 ;1/2 skip if <1,1V inc XL ;1 dec XH ;1 brne lmeas1_loop ;1 cbi PORTA,1 ;2 aus sei add tempreg2,XL ;add result adc tempreg3,const_0 dec tempreg1 ;loop counter brne lmeas1_wait ;do loop rjmp cmeas3_end ;------------------------------------------------------------------------------- ; L measure with PORTA.1 as source (method B) ;------------------------------------------------------------------------------- lmeas2: rcall enacomp ldi YH,0x02 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 clr tempreg4 ldi tempreg1,16 ;no of measures lmeas2_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne lmeas2_wait cli ;1 disable INT sbi PORTA,1 ;2 0K ein clr XL ;1 clr XH ;1 ldi YL,LOW(12800) ;1 ldi YH,HIGH(12800) ;1 out PORTC,const_0 ;1 border off nop ;1 filling nop nop nop lmeas2_loop: in r16,0x30 ;1 ACSR sbrs r16,5 ;1/2 skip if <1,1V adiw XL,1 ;2 sbrc r16,5 ;1/2 rjmp lmeas2_loop1 ;2 lmeas2_loop1: sbiw YL,1 ;2 brne lmeas2_loop ;2 cbi PORTA,1 ;2 aus ldi YL,100 add vline_l,YL ;correct line counter sei add tempreg2,XL adc tempreg3,XH adc tempreg4,const_0 dec tempreg1 ;loop counter brne lmeas2_wait ;do loop rjmp cmeas3_calc ;------------------------------------------------------------------------------- ; L measure with PORTA.2 as source (method B) ;------------------------------------------------------------------------------- lmeas3: rcall enacomp ldi YH,0x04 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 clr tempreg4 ldi tempreg1,16 ;no of measures lmeas3_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne lmeas3_wait cli ;1 disable INT sbi PORTA,2 ;2 1K ein clr XL ;1 clr XH ;1 ldi YL,LOW(12800) ;1 ldi YH,HIGH(12800) ;1 out PORTC,const_0 ;1 border off nop ;1 filling nop nop nop lmeas3_loop: in r16,0x30 ;1 ACSR sbrs r16,5 ;1/2 skip if <1,1V adiw XL,1 ;2 sbrc r16,5 ;1/2 rjmp lmeas3_loop1 ;2 lmeas3_loop1: sbiw YL,1 ;2 brne lmeas3_loop ;2 cbi PORTA,2 ;2 1K aus ldi YL,100 add vline_l,YL ;correct line counter sei add tempreg2,XL adc tempreg3,XH adc tempreg4,const_0 dec tempreg1 ;loop counter brne lmeas3_wait ;do loop rjmp cmeas3_calc ;------------------------------------------------------------------------------- ; L measure with PORTA.3 as source (method B) ;------------------------------------------------------------------------------- lmeas4: rcall enacomp ldi YH,0x08 rcall setport api_sync api_sync clr tempreg2 ;reset value clr tempreg3 clr tempreg4 ldi tempreg1,16 ;no of measures lmeas4_wait: mov XL,vline_l ;wait for line 130 cpi XL,130 brne lmeas4_wait cli ;1 disable INT sbi PORTA,3 ;2 33K ein clr XL ;1 clr XH ;1 ldi YL,LOW(12800) ;1 ldi YH,HIGH(12800) ;1 out PORTC,const_0 ;1 border off nop ;1 filling nop nop nop lmeas4_loop: in r16,0x30 ;1 ACSR sbrs r16,5 ;1/2 skip if <1,1V adiw XL,1 ;2 sbrs r16,5 ;1/2 rjmp lmeas4_loop1 ;2 lmeas4_loop1: sbiw YL,1 ;2 brne lmeas4_loop ;2 cbi PORTA,3 ;2 33K aus ldi YL,100 add vline_l,YL ;correct line counter sei add tempreg2,XL adc tempreg3,XH adc tempreg4,const_0 dec tempreg1 ;loop counter brne lmeas4_wait ;do loop rjmp cmeas3_calc ;------------------------------------------------------------------------------- ; R measure with PORTA.3 as source ;------------------------------------------------------------------------------- rmeas3: ldi YH,0x08 rcall setport sbi PORTA,3 api_sync ldi tempreg2,3 rcall vmeas32 ;meas U(PA3) api_getarray st Y,XL std Y+1,XH ldi tempreg2,0 rcall vmeas32 ;meas U(PA0) cbi PORTA,3 rjmp retvalue ;------------------------------------------------------------------------------- ; R measure with PORTA.2 as source ;------------------------------------------------------------------------------- rmeas2: ldi YH,0x04 rcall setport sbi PORTA,2 api_sync ldi tempreg2,2 rcall vmeas32 ;meas U(PA2) api_getarray st Y,XL std Y+1,XH ldi tempreg2,0 rcall vmeas32 ;meas U(PA0) cbi PORTA,2 rjmp retvalue ;------------------------------------------------------------------------------- ; R measure with PORTA.1 as source ;------------------------------------------------------------------------------- rmeas1: ldi YH,0x02 rcall setport sbi PORTA,1 api_sync ldi tempreg2,1 rcall vmeas32 ;meas U(PA1) api_getarray st Y,XL std Y+1,XH ldi tempreg2,0 rcall vmeas32 ;meas U(PA0) cbi PORTA,1 rjmp retvalue ;------------------------------------------------------------------------------- ; disable ADC and enable AC on channel 0 with bandgap as reference ;------------------------------------------------------------------------------- enacomp: ldi XL,0x00 ;ADC off sts ADCSRA,XL ldi XL,0x40 ;Bandgap as ref out ACSR,XL lds XL,ADCSRB ori XL,0x40 ;use ADMUX sts ADCSRB,XL ldi XL,0x00 ;set ADMUX sts ADMUX,XL ret ;------------------------------------------------------------------------------- ; configure PORTA 0-3 ;------------------------------------------------------------------------------- setport: in YL,PORTA andi YL,0xf0 out PORTA,YL in YL,DDRA andi YL,0xf0 or YL,YH out DDRA,YL ret ;------------------------------------------------------------------------------- ; meas voltage at given channel (tempreg2=channel) 32x into X ;------------------------------------------------------------------------------- vmeas32: clr XL ;set result to zero clr XH ldi YL,0x86 ;enable ADC sts ADCSRA,YL ldi YL,0x40 ;channel 0 add YL,tempreg2 ;add channel no sts ADMUX,YL lds YL,ADCSRA ori YL,0x40 ;set ADSC for dummy measure sts ADCSRA,YL vmeas32_1: lds YL,ADCSRA sbrc YL,6 rjmp vmeas32_1 lds YL,ADCL lds YL,ADCH ldi tempreg1,32 ;no of cumulated measures vmeas32_2: sleep ;wait for next int lds YL,ADCSRA ori YL,0x40 ;set ADSC for measure sts ADCSRA,YL vmeas32_3: lds YL,ADCSRA sbrc YL,6 rjmp vmeas32_3 lds YL,ADCL add XL,YL lds YL,ADCH adc XH,YL dec tempreg1 brne vmeas32_2 ret SOURCE_142/SOURCE_library/rtcdemo/0000755000175000001440000000000011713042123015644 5ustar joergusersSOURCE_142/SOURCE_library/rtcdemo/rtcdemo.asm0000755000175000001440000001020011725741460020014 0ustar joergusers;################################################################################ ;# # ;# RTC demo LIB for ChipBasic2 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6600 ;--------------------++++++++++++N .db "Extens ion N",0xf4,0xf7,0x1f ;green, library with BASIC extension .db 0x07,0x03,0x03,0x0b .db "XRTC" .db 0x0d,0x0c,0x0c,0x0e ;dummy Funktion .ORG 0x6610 rjmp rtc_start ;BAS extension rtc_start: ldi ctrl,0 movw YL,ZL ldi ZL,LOW(rtc_ctab*2) ldi ZH,HIGH(rtc_ctab*2) ldi tempreg3,9 api_tparser movw r14,YL cpi tempreg1,0 breq rtc_nok cpi tempreg1,1 ;set sec brne rtc_sel_2 rjmp rtc_ssec rtc_sel_2: cpi tempreg1,2 ;set min brne rtc_sel_3 rjmp rtc_smin rtc_sel_3: cpi tempreg1,3 ;set hour brne rtc_sel_4 rjmp rtc_shour rtc_sel_4: cpi tempreg1,4 ;set day brne rtc_sel_5 rjmp rtc_sday rtc_sel_5: cpi tempreg1,5 ;set month brne rtc_sel_6 rjmp rtc_smonth rtc_sel_6: cpi tempreg1,6 ;set year brne rtc_sel_7 rjmp rtc_syear rtc_sel_7: cpi tempreg1,7 ;set sec brne rtc_sel_8 rjmp rtc_gsec rtc_sel_8: cpi tempreg1,8 ;set min brne rtc_sel_9 rjmp rtc_gmin rtc_sel_9: cpi tempreg1,9 ;set hour brne rtc_sel_a rjmp rtc_ghour rtc_sel_a: cpi tempreg1,10 ;set day brne rtc_sel_b rjmp rtc_gday rtc_sel_b: cpi tempreg1,11 ;set month brne rtc_sel_c rjmp rtc_gmonth rtc_sel_c: cpi tempreg1,12 ;set year brne rtc_sel_d rjmp rtc_gyear rtc_sel_d: ret rtc_ok: clr ereg ret rtc_nok: ldi ereg,8 ret rtc_gsec: api_basgetvar ldi XL,0x01 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_gmin: api_basgetvar ldi XL,0x02 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_ghour: api_basgetvar ldi XL,0x03 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_gday: api_basgetvar ldi XL,0x04 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_gmonth: api_basgetvar ldi XL,0x05 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_gyear: api_basgetvar ldi XL,0x06 ldi XH,0x00 st Y+,XL st Y+,XH rjmp rtc_ok rtc_over: ldi ereg,2 ;overflow ret rtc_ssec: rcall rtc_value cpi XL,60 brcc rtc_over ret rtc_smin: rcall rtc_value cpi XL,60 brcc rtc_over ret rtc_shour: rcall rtc_value cpi XL,24 brcc rtc_over ret rtc_sday: rcall rtc_value cpi XL,0 breq rtc_over cpi XL,32 brcc rtc_over ret rtc_smonth: rcall rtc_value cpi XL,0 breq rtc_over cpi XL,13 brcc rtc_over ret rtc_syear: rcall rtc_value cpi XL,100 brcc rtc_over ret rtc_value: ldi XL,1 ldi XH,0 api_basgetpar cpi ereg,0 brne rtc_value_e cpi XL,1 brcc rtc_value_1 pop ereg ;kill stack pop ereg ldi ereg,19 ret rtc_value_1: api_getpartab ld XL,Y rtc_value_e: ret .ORG 0x6b80 rtc_ctab: .db 0x01,"SETSEC..." .db 0x02,"SETMIN..." .db 0x03,"SETHOUR.." .db 0x04,"SETDAY..." .db 0x05,"SETMONTH." .db 0x06,"SETYEAR.." .db 0x07,"GETSEC..." .db 0x08,"GETMIN..." .db 0x09,"GETHOUR.." .db 0x0a,"GETDAY..." .db 0x0b,"GETMONTH." .db 0x0c,"GETYEAR.." .db 0x00,"........." SOURCE_142/SOURCE_memdriver/0000755000175000001440000000000011713042124014536 5ustar joergusersSOURCE_142/SOURCE_memdriver/xram64/0000755000175000001440000000000011713042124015657 5ustar joergusersSOURCE_142/SOURCE_memdriver/xram64/xram64_routines.asm0000755000175000001440000000657411725741462021467 0ustar joergusersxram64_aread: out PORTA,const_1 ;read cbi PORTB,1 ;strobe = 0, store READ lds YH,0x10FF ;page out PORTA,YH ;out page cbi PORTB,2 ;busy = 0, store HADDR out PORTA,tempreg1 ;out bytepos as LADDR sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out DDRA,const_0 ;input cbi PORTB,2 ;busy = 0, read ldi XH,0xff nop in XL,PINA sbi PORTB,2 ;busy = 1, inc addr out DDRA,XH ;set to output ldi XH,0x00 ;clear XH ret xram64_awrite: out PORTA,const_0 ;write cbi PORTB,1 ;strobe = 0, store READ lds YH,0x10FF ;page out PORTA,YH ;out page cbi PORTB,2 ;busy = 0, store HADDR out PORTA,tempreg1 ;out bytepos as LADDR sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out PORTA,XL ;data cbi PORTB,2 ;busy = 0, write data sbi PORTB,2 ;busy = 1, inc ADDR ret ;read data byte (X+)->r18 xram64_rbyte: out PORTA,const_1 ;read cbi PORTB,1 ;strobe = 0, store READ out PORTA,XH ;out HI addr cbi PORTB,2 ;busy = 0, store HADDR out PORTA,XL ;out LO addr sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out DDRA,const_0 ;input cbi PORTB,2 ;busy = 0, READ mov r0,const_0 dec r0 adiw XL,1 ;inc ptr in r18,PINA sbi PORTB,2 ;busy = 1, inc addr out DDRA,r0 ;set to output ret ;read data word (X)->r19/r18 xram64_rword: out PORTA,const_1 ;read cbi PORTB,1 ;strobe = 0, store READ out PORTA,XH ;out HI addr cbi PORTB,2 ;busy = 0, store HADDR out PORTA,XL ;out LO addr sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out DDRA,const_0 ;input cbi PORTB,2 ;busy = 0, READ adiw XL,1 ;inc ptr mov r0,const_0 in r18,PINA ;read low sbi PORTB,2 ;busy = 1, inc addr cbi PORTB,2 ;busy = 0, READ adiw XL,1 ;inc ptr dec r0 ;set to 0xff in r19,PINA ;read high sbi PORTB,2 ;busy = 1, inc addr out DDRA,r0 ;set to output ret ;write data byte r18->(X+) xram64_wbyte: out PORTA,const_0 ;write cbi PORTB,1 ;strobe = 0, store READ out PORTA,XH ;out HI addr cbi PORTB,2 ;busy = 0, store HADDR out PORTA,XL ;out LO addr sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out PORTA,r18 ;data cbi PORTB,2 ;busy = 0, write data adiw XL,1 ;inc ptr sbi PORTB,2 ;busy = 1, inc ADDR ret ;write data word r19/r18->(X+) xram64_wword: out PORTA,const_0 ;write cbi PORTB,1 ;strobe = 0, store READ out PORTA,XH ;out HI addr cbi PORTB,2 ;busy = 0, store HADDR out PORTA,XL ;out LO addr sbi PORTB,2 ;busy = 1, set ADDR sbi PORTB,1 ;strobe = 1 out PORTA,r18 ;LO data cbi PORTB,2 ;busy = 0, write data adiw XL,1 ;inc ptr sbi PORTB,2 ;busy = 1, inc ADDR out PORTA,r19 ;HI data cbi PORTB,2 ;busy = 0, write data adiw XL,1 ;inc ptr sbi PORTB,2 ;busy = 1, inc ADDR ret ;get last valid xram64 address to X xram64_check: ldi XL,0 ; we start at address 0 ldi XH,0 xram64_check_1: ldi r18,0xa5 rcall xram64_wword sbiw XL,1 rcall xram64_rword cpi r18,0xa5 brne xram64_check_2 cpi XH,0 brne xram64_check_1 cpi XL,0 brne xram64_check_1 sbiw XL,1 ;set to last valid address ret xram64_check_2: sbiw XL,1 breq xram64_check_3 ;return zero if no xram sbiw XL,1 ;points to last valid address xram64_check_3: ret xram64_clear: ldi XL,0 ; we start at address 0 ldi XH,0 ldi r18,0 xram64_clear_1: rcall xram64_wbyte adiw XL,1 brne xram64_clear_1 ret SOURCE_142/SOURCE_memdriver/xram64/xram64.asm0000755000175000001440000000456311725741462017533 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ libmio_ctable = 0x7b00 ;font 0 .equ libmio_ctable1 = 0x4340 ;font 1 .equ vidp = 7 ;video pin .equ lcd_cs1 = 4 ;latched CS1 .equ lcd_cs2 = 5 ;latched CS2 .equ lcd_di = 6 ;latched D/I .equ lcd_ks = 7 ;latched key select .equ lcd_page = libmio_vram+1200 ;lcdpage .equ lcd_row = libmio_vram+1201 ;lcdrow .equ lcd_keymode = libmio_vram+1202 ;key mode (0=PS2, 1=fixkeys) .CSEG .org 0x7200 ; "...... N" start: .db " XMEM XRAM64N",0xb3,0xef,0xf1 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"MX",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e ret ;video, no IO ret ;IO ext ret ;FKT 00 rjmp xram64_aread ;FKT 01 array read [7218] rjmp xram64_awrite ;FKT 02 array write [7219] rjmp xram64_rbyte ;FKT 03 r18=(X+) [721a] rjmp xram64_wbyte ;FKT 04 (X+)=r18 [721b] rjmp xram64_rword ;FKT 05 r18/r19=(X+) [721c] rjmp xram64_wword ;FKT 06 (X+)=r18/r19 [721d] rjmp xram64_check ;FKT 07 X=last memory cell rjmp xram64_clear ;FKT 08 clear memory .include "xram64_routines.asm" SOURCE_142/SOURCE_memdriver/iram2/0000755000175000001440000000000011713042124015550 5ustar joergusersSOURCE_142/SOURCE_memdriver/iram2/iram2_routines.asm0000755000175000001440000000425511725741462021243 0ustar joergusers;read array byte iram2_aread: push YH push YL ldi YL,0x3c ldi YH,0x07 lds XH,0x10FF ;page cpi XH,0x08 brcc iram2_areadff add YL,tempreg1 adc YH,XH ld XL,Y pop YL pop YH ldi XH,0xff ret iram2_areadff: ldi XL,0xff ldi XH,0xff pop YL pop YH ret iram2_awrite: push YH push YL push XH ldi YL,0x3c ldi YH,0x07 lds XH,0x10FF ;page cpi XH,0x08 brcc iram2_awrite0 add YL,tempreg1 adc YH,XH st Y,XL iram2_awrite0: pop XH pop YL pop YH ret ;read data byte (X+)->r18 iram2_rbyte: ldi r18,0xff ;default for no mem cpi XH,0x08 ;max 2K brcc iram2_rbyte_1 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH ld r18,Y pop YH pop YL iram2_rbyte_1: adiw XL,1 ;inc ptr ret ;read data word (X)->r19/r18 iram2_rword: ldi r18,0xff ;default for no mem ldi r19,0xff cpi XH,0x08 ;max 2K brcc iram2_rword_1 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH ld r18,Y pop YH pop YL iram2_rword_1: adiw XL,1 ;inc ptr cpi XH,0x08 ;max 2K brcc iram2_rword_2 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH ld r19,Y pop YH pop YL iram2_rword_2: adiw XL,1 ;inc ptr ret ;write data byte r18->(X+) iram2_wbyte: cpi XH,0x08 ;max 2K brcc iram2_wbyte_1 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH st Y,r18 pop YH pop YL iram2_wbyte_1: adiw XL,1 ;inc ptr ret ;write data word r19/r18->(X+) iram2_wword: cpi XH,0x08 ;max 2K brcc iram2_wword_1 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH st Y,r18 pop YH pop YL iram2_wword_1: adiw XL,1 ;inc ptr cpi XH,0x08 ;max 2K brcc iram2_wword_2 ;read above 0xff push YL push YH ldi YL,0x3c ldi YH,0x07 add YL,XL adc YH,XH st Y,r19 pop YH pop YL iram2_wword_2: adiw XL,1 ;inc ptr ret ;get last valid xmem address to X iram2_check: ldi XL,0xff ; 2K useable ldi XH,0x07 ret iram2_clear: ldi XL,0 ; we start at address 0 ldi XH,0 ldi r18,0 iram2_clear_1: rcall iram2_wbyte adiw XL,1 cpi XH,0x08 brne iram2_clear_1 ret SOURCE_142/SOURCE_memdriver/iram2/iram2.asm0000755000175000001440000000455111725741462017312 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ libmio_ctable = 0x7b00 ;font 0 .equ libmio_ctable1 = 0x4340 ;font 1 .equ vidp = 7 ;video pin .equ lcd_cs1 = 4 ;latched CS1 .equ lcd_cs2 = 5 ;latched CS2 .equ lcd_di = 6 ;latched D/I .equ lcd_ks = 7 ;latched key select .equ lcd_page = libmio_vram+1200 ;lcdpage .equ lcd_row = libmio_vram+1201 ;lcdrow .equ lcd_keymode = libmio_vram+1202 ;key mode (0=PS2, 1=fixkeys) .CSEG .org 0x7200 ; "...... N" start: .db " XMEM IRAM2 N",0xf3,0xef,0xf0 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"MX",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e ret ;video, no IO ret ;IO ext ret ;FKT 00 rjmp iram2_aread ;FKT 01 array read [7218] rjmp iram2_awrite ;FKT 02 array write [7219] rjmp iram2_rbyte ;FKT 03 r18=(X+) [721a] rjmp iram2_wbyte ;FKT 04 (X+)=r18 [721b] rjmp iram2_rword ;FKT 05 r18/r19=(X+) [721c] rjmp iram2_wword ;FKT 06 (X+)=r18/r19 [721d] rjmp iram2_check ;FKT 07 X=last memory cell rjmp iram2_clear ;FKT 08 clear memory .include "iram2_routines.asm" SOURCE_142/SOURCE_modules/0000755000175000001440000000000011714002114014210 5ustar joergusersSOURCE_142/SOURCE_modules/xram64/0000755000175000001440000000000011714002130015327 5ustar joergusersSOURCE_142/SOURCE_modules/xram64/xram64.ucf0000644000175000001440000000150411714002130017147 0ustar joergusers#PIN-Locations for xmem1 and XC9536 (PLCC44) NET "data<0>" LOC="PIN40"; NET "data<1>" LOC="PIN43"; NET "data<2>" LOC="PIN42"; NET "data<3>" LOC="PIN1"; NET "data<4>" LOC="PIN44"; NET "data<5>" LOC="PIN3"; NET "data<6>" LOC="PIN2"; NET "data<7>" LOC="PIN4"; NET "addr<0>" LOC="PIN5"; NET "addr<1>" LOC="PIN6"; NET "addr<2>" LOC="PIN7"; NET "addr<3>" LOC="PIN12"; NET "addr<4>" LOC="PIN14"; NET "addr<5>" LOC="PIN18"; NET "addr<6>" LOC="PIN22"; NET "addr<7>" LOC="PIN25"; NET "addr<8>" LOC="PIN24"; NET "addr<9>" LOC="PIN20"; NET "addr<10>" LOC="PIN9"; NET "addr<11>" LOC="PIN13"; NET "addr<12>" LOC="PIN27"; NET "addr<13>" LOC="PIN26"; NET "addr<14>" LOC="PIN29"; NET "cs1" LOC="PIN8"; NET "cs2" LOC="PIN33"; NET "oe" LOC="PIN11"; NET "we" LOC="PIN28"; NET "strobe" LOC="PIN39"; NET "busy" LOC="PIN35"; NET "pulse" LOC="PIN19"; SOURCE_142/SOURCE_modules/xram64/xram64.vhd0000644000175000001440000000635011714002130017157 0ustar joergusers-------------------------------------------------------------------------------- -- Company: -- Engineer: Joerg Wolfram -- -- Create Date: 29.06.2010 -- Design Name: -- Module Name: -- Project Name: xram_64 -- Target Device: XC9536-15-PC44 -- Tool versions: -- Description: parport-ram 64k for chipbasic2 -- -- Revision: 0.1 -- License: GPL -------------------------------------------------------------------------------- library IEEE; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; entity mylogik is port ( ------------------------------------------------------------------------------- --- Die IO-Signale ------------------------------------------------------------------------------- data: in std_logic_vector(7 downto 0); strobe: in std_logic; busy: in std_logic; oe,we: out std_logic; cs1,cs2: out std_logic; addr: out std_logic_vector(14 downto 0)); end entity mylogik; architecture version1 of mylogik is signal adr: std_logic_vector(15 downto 0); signal htemp: std_logic_vector(7 downto 0); signal rwsel : std_logic; begin ------------------------------------------------------------------------------- --- store wr/rd ------------------------------------------------------------------------------- process(strobe) is begin if falling_edge(strobe) then rwsel <= data(0); end if; end process; ------------------------------------------------------------------------------- --- store hi addr ------------------------------------------------------------------------------- process(strobe) is begin if falling_edge(busy) then htemp <= data(7 downto 0); end if; end process; ------------------------------------------------------------------------------- --- Address counter ------------------------------------------------------------------------------- process(busy) is begin if rising_edge(busy) then if (strobe='0') then adr(15 downto 8) <= htemp(7 downto 0); adr(7 downto 0) <= data(7 downto 0); else adr <= adr + 1; end if; end if; end process; ------------------------------------------------------------------------------- --- memory address ------------------------------------------------------------------------------- addr <= adr(14 downto 0); ------------------------------------------------------------------------------- --- OE for RAM ------------------------------------------------------------------------------- oe <= busy or not(rwsel) or not(strobe); ------------------------------------------------------------------------------- --- WE for RAM ------------------------------------------------------------------------------- we <= busy or rwsel or not(strobe); ------------------------------------------------------------------------------- --- CS signals ------------------------------------------------------------------------------- ---cs1 <= busy or adr(15) or not(strobe); cs1 <= adr(15); ---cs2 <= busy or not(adr(15)) or not(strobe); cs2 <= not(adr(15)); ------------------------------------------------------------------------------- --- minimale Konfiguration ------------------------------------------------------------------------------- end architecture version1; configuration main of mylogik is for version1 end for; end configuration main; SOURCE_142/SOURCE_program/0000755000175000001440000000000011713042123014212 5ustar joergusersSOURCE_142/SOURCE_program/kbd_de/0000755000175000001440000000000011713042123015422 5ustar joergusersSOURCE_142/SOURCE_program/kbd_de/keytable_de.inc0000755000175000001440000001267611725741460020421 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# keytable - DE layout # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; scancode tables ; f1-fc function keys ; e0=pos1 e1=end e2=left e3=right e4=up e5=down e6=pgup e7=pgdown e8=ins e9=del ; ea=enter eb=tab ec=backspace ed=esc ee=alt+del ef=alt+ins ; c0=power c1=sleep c2=wake c3=num c4=scroll ;------------------------------------------------------------------------------- ;normal table .db 0x00,0xf9,0x00,0xf5,0xf3,0xf1,0xf2,0xfc ;scancode 00-07 .db 0x00,0xfa,0xf8,0xf6,0xf4,0xeb,0x5e,0x00 ;scancode 08-0f .db 0xf7,0x00,0x00,0x00,0x00, 'q', '1',0x00 ;scancode 10-17 .db 0x00,0x00, 'y', 's', 'a', 'w', '2',0x00 ;scancode 18-1f .db 0x00, 'c', 'x', 'd', 'e', '4', '3',0x00 ;scancode 20-27 .db 0x00,0x20, 'v', 'f', 't', 'r', '5',0x00 ;scancode 28-2f .db 0x00, 'n', 'b', 'h', 'g', 'z', '6',0x00 ;scancode 30-37 .db 0x00,0x00, 'm', 'j', 'u', '7', '8',0x00 ;scancode 38-3f .db 0x00,0x2c, 'k', 'i', 'o', '0', '9',0x00 ;scancode 40-47 .db 0x00,0x2e,0x2d, 'l',0x00, 'p',0x5c,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x27,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea, '+',0x00, '#',0x00,0x00 ;scancode 58-5f .db 0x00, '<',0x00,0x00,0x00,0x00,0xec,0x00 ;scancode 60-67 .db 0x00, '1',0x00, '4', '7',0x00,0x00,0x00 ;scancode 68-6f .db '0',0x2c, '2', '5', '6', '8',0xed,0xc3 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0xc4,0x00 ;scancode 78-7f ;shift table .db 0x00,0xf9,0x00,0xf5,0xf3,0xf1,0xf2,0xfc ;scancode 00-07 .db 0x00,0xfa,0xf8,0xf6,0xf4,0xeb,0x00,0x00 ;scancode 08-0f .db 0xf7,0x00,0x00,0x00,0x00, 'Q', '!',0x00 ;scancode 10-17 .db 0x00,0x00, 'Y', 'S', 'A', 'W',0x22,0x00 ;scancode 18-1f .db 0x00, 'C', 'X', 'D', 'E', '$', '@',0x00 ;scancode 20-27 .db 0x00,0x20, 'V', 'F', 'T', 'R', '%',0x00 ;scancode 28-2f .db 0x00, 'N', 'B', 'H', 'G', 'Z', '&',0x00 ;scancode 30-37 .db 0x00,0x00, 'M', 'J', 'U', '/', '(',0x00 ;scancode 38-3f .db 0x00,0x3b, 'K', 'I', 'O', '=', ')',0x00 ;scancode 40-47 .db 0x00,0x3a,0x5f, 'L',0x00, 'P', '?',0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x60,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea, '*',0x00,0x27,0x00,0x00 ;scancode 58-5f .db 0x00, '>',0x00,0x00,0x00,0x00,0xec,0x00 ;scancode 60-67 .db 0x00, '1',0x00, '4', '7',0x00,0x00,0x00 ;scancode 68-6f .db '0',0xe9, '2', '5', '6', '8',0xed,0xc3 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0xc4,0x00 ;scancode 78-7f ;extended table .db 'D',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc1 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 40-47 .db 0x00,0x00, '/',0x00,0x00,0x00,0x00,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea,0x00,0x00,0x00,0xc2,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xe8,0xe9,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f ;alt table .db 'E',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00, '@',0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x7b,0x5b,0x00 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x7d,0x5d,0x00 ;scancode 40-47 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x5c,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0x00,0x7e,0x00,0x00,0x00,0x00 ;scancode 58-5f .db 0x00,0x7c,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xef,0xee,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f SOURCE_142/SOURCE_program/kbd_de/kbd_de.asm0000755000175000001440000000520711725741460017360 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# german keyboard layout # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ libmio_ktables = 0x4400 ;keyboard table .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6c00 ; "...... N" start: .db "SETKBD -DE- N",0xec,0xff,0xff ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db "ABCD" .db 0xf4,0xf1,0xf1,0xf5 .org 0x6c10 ;------------------------------------------------------------------------------ ;start here ;------------------------------------------------------------------------------ set_kbd: ldi ZL,LOW(libmio_ktables*2+256) ldi ZH,HIGH(libmio_ktables*2+256) lpm tempreg1,Z cpi tempreg1,'D' brne set_kbd_1 subi ZL,0x80 lpm tempreg1,Z cpi tempreg1,'E' brne set_kbd_1 ret ;is already set set_kbd_1: ;copy part 1 of table to RAM ldi XL,LOW(kbdtable-start) ldi XH,HIGH(kbdtable-start) api_dataptr api_getarray subi YH,0xfe ;we start with array cell 512 ldi XL,0 ;bytes to do set_kbd_2: lpm XH,Z+ st Y+,XH dec XL brne set_kbd_2 ldi ZL,LOW(libmio_ktables*2) ldi ZH,HIGH(libmio_ktables*2) api_wpage ldi XL,LOW(kbdtable-start+128) ldi XH,HIGH(kbdtable-start+128) api_dataptr api_getarray subi YH,0xfe ;+2 ldi XL,0 set_kbd_4: lpm XH,Z+ st Y+,XH dec XL brne set_kbd_4 movw tempreg5,ZL ldi ZL,LOW(libmio_ktables*2+256) ldi ZH,HIGH(libmio_ktables*2+256) api_wpage sei ret kbdtable: .include "keytable_de.inc" SOURCE_142/SOURCE_program/chip8/0000755000175000001440000000000011713042123015225 5ustar joergusersSOURCE_142/SOURCE_program/chip8/interpreter.asm0000755000175000001440000005031511725741461020317 0ustar joergusers;clear registers and stack memory ch8_entry: rcall chip8_cls ldi YL,LOW(ch8_regs) ldi YH,HIGH(ch8_regs) ldi XL,24 ;regs + special ch8_entry_1: st Y+,const_0 dec XL brne ch8_entry_1 ;copy the font tables into XRAM ldi ZL,LOW(chip8_ctables*2) ;ROM table ldi ZH,HIGH(chip8_ctables*2) ldi XL,32 ;RAM address clr XH ldi YL,LOW(288) ldi YH,HIGH(288) ch8_entry_10: lpm r18,Z+ rcall drv_xmem_wbyte sbiw YL,1 brne ch8_entry_10 sts ch8_kflags,const_0 ;set necessary registers ldi PC_L,0 ;PC_L ldi PC_H,2 ;PC_H mov ch8_ireg_lo,const_0 ;set I to zero mov ch8_ireg_hi,const_0 mov ch8_vmode,const_0 mov ch8_sp,const_0 ;stack pointer clr r14 ;delay counter clr r15 ;sound counter lds r13,ch8_frame ;recent frame no ;---------------------------------------------------------------- ;get 2 bytes from RAM (PC) ;---------------------------------------------------------------- ch8_loop: ldi XL,15 ldi XH,0 rcall drv_xmem_rbyte mov XL,r18 ch8_pdelay: cpi XL,0 breq ch8_pdelay_e mov XH,r8 ;vline_l ch8_pdelay_1: lds tempreg1,ch8_kcode cpi tempreg1,0xfa ;F10 brne ch8_pdelay_2 rjmp ch8_entry ch8_pdelay_2: cp XH,r8 breq ch8_pdelay_1 dec XL rjmp ch8_pdelay ch8_pdelay_e: api_screenshot andi PC_H,0x0f ;limit PC movw XL,PC_L ;copy PC to address rcall drv_xmem_rword adiw PC_L,2 ;inc PC lds ZL,ch8_kflags sbrc ZL,0 ;break flag ? rjmp ch8_break lds r16,ch8_frame ;recent frame no cp r16,r13 ;1 changed? breq ch8_do ;1/2 branch if not changed ldi r17,63 ;envelope end mov r13,r16 ;set new frame counter cp r14,const_0 ;check if zero breq ch8_nloop_1 ;yes dec r14 ;-1 ch8_nloop_1: cp r15,const_0 breq ch8_nloop_2 dec r15 clr r17 ;start of envelope ch8_nloop_2: sts ch8_env,r17 ;execute code in X ch8_do: ldi ZL,LOW(ch8_jtab1) ;1 ldi ZH,HIGH(ch8_jtab1) ;1 mov r16,cmd_hi ;1 swap r16 ;1 andi r16,0x0f ;1 add ZL,r16 ;1 adc ZH,const_0 ;1 ijmp ;2 ch8_break0: pop tempreg1 ;kill stack pop tempreg1 lds ZL,ch8_kflags ch8_break: ldi tempreg1,1 ;1 break code andi ZL,0xfe ;kill break flag sts ch8_kflags,ZL ret ch8_jtab1: rjmp ch8_0xxx ;2 rjmp ch8_1xxx ;2 rjmp ch8_2xxx ;2 rjmp ch8_3xxx ;2 rjmp ch8_4xxx ;2 rjmp ch8_5xxx ;2 rjmp ch8_6xxx ;2 rjmp ch8_7xxx ;2 rjmp ch8_8xxx ;2 rjmp ch8_9xxx ;2 rjmp ch8_axxx ;2 rjmp ch8_bxxx ;2 rjmp ch8_cxxx ;2 rjmp ch8_dxxx ;2 rjmp ch8_exxx ;2 rjmp ch8_fxxx ;2 ch8_unknown: ldi tempreg1,4 ;illegal opcode error ret ch8_0xxx: cpi cmd_hi,0x00 ;1 00xx brne ch8_unknown ;1/2 no mov r16,cmd_lo ;copy LO byte subi r16,0xc0 ;1 sub code start brcs ch8_unknown ;1/2 not a regular FCT ldi ZL,LOW(ch8_jtab2) ;1 ldi ZH,HIGH(ch8_jtab2) ;1 add ZL,r16 ;1 adc ZH,const_0 ;1 ijmp ;2 ch8_jtab2: rjmp ch8_scdown ;2 code c0 rjmp ch8_scdown ;2 code c1 rjmp ch8_scdown ;2 code c2 rjmp ch8_scdown ;2 code c3 rjmp ch8_scdown ;2 code c4 rjmp ch8_scdown ;2 code c5 rjmp ch8_scdown ;2 code c6 rjmp ch8_scdown ;2 code c7 rjmp ch8_scdown ;2 code c8 rjmp ch8_scdown ;2 code c9 rjmp ch8_scdown ;2 code ca rjmp ch8_scdown ;2 code cb rjmp ch8_scdown ;2 code cc rjmp ch8_scdown ;2 code cd rjmp ch8_scdown ;2 code ce rjmp ch8_scdown ;2 code cf rjmp ch8_unknown ;2 code d0 rjmp ch8_unknown ;2 code d1 rjmp ch8_unknown ;2 code d2 rjmp ch8_unknown ;2 code d3 rjmp ch8_unknown ;2 code d4 rjmp ch8_unknown ;2 code d5 rjmp ch8_unknown ;2 code d6 rjmp ch8_unknown ;2 code d7 rjmp ch8_unknown ;2 code d8 rjmp ch8_unknown ;2 code d9 rjmp ch8_unknown ;2 code da rjmp ch8_unknown ;2 code db rjmp ch8_unknown ;2 code dc rjmp ch8_unknown ;2 code dd rjmp ch8_unknown ;2 code de rjmp ch8_unknown ;2 code df rjmp ch8_erase ;2 code e0 erase screen rjmp ch8_unknown ;2 code e1 rjmp ch8_unknown ;2 code e2 rjmp ch8_unknown ;2 code e3 rjmp ch8_unknown ;2 code e4 rjmp ch8_unknown ;2 code e5 rjmp ch8_unknown ;2 code e6 rjmp ch8_unknown ;2 code e7 rjmp ch8_unknown ;2 code e8 rjmp ch8_unknown ;2 code e9 rjmp ch8_unknown ;2 code ea rjmp ch8_unknown ;2 code eb rjmp ch8_unknown ;2 code ec rjmp ch8_unknown ;2 code ed rjmp ch8_return ;2 code ee return from sub rjmp ch8_unknown ;2 code ef rjmp ch8_unknown ;2 code f0 rjmp ch8_unknown ;2 code f1 rjmp ch8_unknown ;2 code f2 rjmp ch8_unknown ;2 code f3 rjmp ch8_unknown ;2 code f4 rjmp ch8_unknown ;2 code f5 rjmp ch8_unknown ;2 code f6 rjmp ch8_unknown ;2 code f7 rjmp ch8_unknown ;2 code f8 rjmp ch8_unknown ;2 code f9 rjmp ch8_unknown ;2 code fa rjmp ch8_rscroll ;2 code fb rjmp ch8_lscroll ;2 code fc rjmp ch8_exit ;2 code fd rjmp ch8_set_8mode ;2 code fe rjmp ch8_set_smode ;2 code ff ch8_erase: rcall chip8_cls rjmp ch8_loop ;thats all ;scroll down ch8_scdown: andi r16,0x0f ;only 0..15 cpi r16,0 ;0xc0 scrolls 16 lines brne ch8_scdown_01 ldi r16,16 ;0->16 ch8_scdown_01: ldi XH,16 ;bytes per line mul r16,XH api_getvram ;get VRAM address to Y subi YH,0xfc ;+1024 movw ZL,YL ;copy for src ptr sub ZL,r0 sbc ZH,r1 ldi XH,4 ;max 1024 bytes to transfer (scroll 0 ;-) ldi XL,0 sub XL,r0 sbc XH,r1 ch8_scdown_02: ld r17,-Z st -Y,r17 sbiw XL,1 brne ch8_scdown_02 movw XL,r0 ch8_scdown_03: st -Y,const_0 sbiw XL,1 brne ch8_scdown_03 rjmp ch8_loop ch8_lscroll: api_getvram ldi XH,64 ;lines to do ch8_lscroll_1: ldi XL,15 ;bytes per line to do ch8_lscroll_2: ld r16,Y ;get left byte ldd r17,Y+1 ;get right byte andi r16,0xf0 ;use right part of left byte andi r17,0x0f ;use left part of right byte swap r16 swap r17 or r16,r17 st Y+,r16 ;store new left byte dec XL ;X loop brne ch8_lscroll_2 andi r16,0xf0 ld r16,Y swap r16 st Y+,r16 dec XH brne ch8_lscroll_1 rjmp ch8_loop ;thats all ch8_rscroll: api_getvram ;set Y to VRAM base subi YH,0xfc ;+1024 ldi XH,64 ;lines to do ch8_rscroll_1: ldi XL,15 ;bytes per line to do ch8_rscroll_2: ld r16,-Y ;get right byte ld r17,-Y ;get left byte andi r16,0x0f ;use left part of right byte andi r17,0xf0 ;use right part of left byte swap r16 ;swap right byte swap r17 ;swap left byte or r16,r17 ;merge std Y+1,r16 ;store new right byte adiw YL,1 ;set ptr dec XL ;X loop brne ch8_rscroll_2 ;done? ld r16,-Y ;only right byte andi r16,0x0f ;only left part swap r16 st Y,r16 dec XH brne ch8_rscroll_1 rjmp ch8_loop ;thats all ;stack underflow cb8_stackuf: ldi tempreg1,2 ;stack underflow ret ;end ch8_return: cp ch8_sp,const_0 ;stackpointer breq cb8_stackuf ldi YL,LOW(ch8_stack) ldi YH,HIGH(ch8_stack) add YL,ch8_sp add YH,const_0 dec ch8_sp dec ch8_sp ld PC_H,-Y ;PC_L ld PC_L,-Y ;PC_H rjmp ch8_loop ;thats all ch8_exit: ldi tempreg1,0 ;normal exit ret ;end ch8_set_8mode: mov ch8_vmode,const_0 ;set mode to chip8 rjmp ch8_loop ;thats all ch8_set_smode: mov ch8_vmode,const_1 ;set mode to schip rjmp ch8_loop ;thats all ;jump ch8_1xxx: mov PC_L,cmd_lo ;set new PC mov PC_H,cmd_hi rjmp ch8_loop ;thats all ;call ch8_2xxx: ldi tempreg1,3 ;stack overflow sbrc ch8_sp,5 ;skip if stackpointer is <32 ret ldi YL,LOW(ch8_stack) ldi YH,HIGH(ch8_stack) add YL,ch8_sp adc YH,const_0 st Y+,PC_L st Y+,PC_H inc ch8_sp inc ch8_sp rjmp ch8_1xxx ;skip next if VX=XX ch8_3xxx: rcall ch8_gvarptr ;set ptrs ld r16,X ;get register cp r16,cmd_lo ;compare brne ch8_3xxx_1 ;no skip if not equal adiw PC_L,2 ;skip next two bytes ch8_3xxx_1: rjmp ch8_loop ;thats all ;skip next if VX<>XX ch8_4xxx: rcall ch8_gvarptr ;set ptrs ld r16,X ;get register cp r16,cmd_lo ;compare breq ch8_4xxx_1 ;no skip if equal adiw PC_L,2 ;skip next two bytes ch8_4xxx_1: rjmp ch8_loop ;thats all ;skip next if VX=VY ch8_5xxx: rcall ch8_gvarptr ;set ptrs ld r16,X ;get register X ld r17,Y ;get register Y cp r16,r17 ;compare brne ch8_5xxx_1 ;no skip if not equal adiw PC_L,2 ;skip next two bytes ch8_5xxx_1: rjmp ch8_loop ;thats all ;VX=XX ch8_6xxx: rcall ch8_gvarptr ;set ptrs st X,cmd_lo ;store value rjmp ch8_loop ;thats all ;VX+=XX ch8_7xxx: rcall ch8_gvarptr ;set ptrs ld r16,X add r16,cmd_lo st X,r16 ;store value rjmp ch8_loop ;thats all ch8_8xxx: rcall ch8_gvarptr ;set jump address mov r16,cmd_lo ;copy CMD andi r16,0x0f ;function ldi ZL,LOW(ch8_jtab3) ;1 ldi ZH,HIGH(ch8_jtab3) ;1 add ZL,r16 ;1 adc ZH,const_0 ;1 ijmp ch8_jtab3: rjmp ch8_8xx0 ; code 8xy0 rjmp ch8_8xx1 ; code 8xy1 rjmp ch8_8xx2 ; code 8xy2 rjmp ch8_8xx3 ; code 8xy3 rjmp ch8_8xx4 ; code 8xy4 rjmp ch8_8xx5 ; code 8xy5 rjmp ch8_8xx6 ; code 8xy6 rjmp ch8_8xx7 ; code 8xy7 rjmp ch8_unknown ; code 8xy8 rjmp ch8_unknown ; code 8xy9 rjmp ch8_unknown ; code 8xya rjmp ch8_unknown ; code 8xyb rjmp ch8_unknown ; code 8xyc rjmp ch8_unknown ; code 8xyd rjmp ch8_8xxe ; code 8xye rjmp ch8_unknown ; code 8xyf ;VX=VY ch8_8xx0: ld r16,Y ;get VY st X,r16 ;store VX rjmp ch8_loop ;VX=VX OR VY ch8_8xx1: ld r16,X ;get VX ld r17,Y ;get VY or r16,r17 ;do function st X,r16 ;write back VX rjmp ch8_loop ;VX=VX AND VY ch8_8xx2: ld r16,X ;get VX ld r17,Y ;get VY and r16,r17 ;do function st X,r16 ;write back VX rjmp ch8_loop ;VX=VX XOR VY ch8_8xx3: ld r16,X ;get VX ld r17,Y ;get VY eor r16,r17 ;do function st X,r16 ;write back VX rjmp ch8_loop ;VX=VX + VY ch8_8xx4: sts ch8_regs+15,const_0 ;clear VF ld r16,X ;get VX ld r17,Y ;get VY add r16,r17 ;do function st X,r16 ;write back VX brcc ch8_8xx4_1 ;branchif no carry sts ch8_regs+15,const_1 ;set VF ch8_8xx4_1: rjmp ch8_loop ;VX=VX - VY ch8_8xx5: sts ch8_regs+15,const_0 ;clear VF ld r16,X ;get VX ld r17,Y ;get VY sub r16,r17 ;do function st X,r16 ;write back VX brcs ch8_8xx5_1 ;branch if borrow sts ch8_regs+15,const_1 ;set VF ch8_8xx5_1: rjmp ch8_loop ;shift right VX ch8_8xx6: clr r17 ;flag ld r16,X ;get VX lsr r16 ch8_8xx6_1: rol r17 st X,r16 sts ch8_regs+15,r17 ;store VF rjmp ch8_loop ;VX=VY - VX ch8_8xx7: sts ch8_regs+15,const_0 ;clear VF ld r16,X ;get VX ld r17,Y ;get VY sub r17,r16 ;do function st X,r17 ;write back VX brcs ch8_8xx7_1 sts ch8_regs+15,const_1 ;set VF ch8_8xx7_1: rjmp ch8_loop ;shift left VX ch8_8xxe: clr r17 ;flag ld r16,X ;get VX lsl r16 rol r17 st X,r16 sts ch8_regs+15,r17 ;store VF rjmp ch8_loop ;skip next if VX<>VY ch8_9xxx: rcall ch8_gvarptr ;set ptrs ld r16,X ;get register X ld r17,Y ;get register Y cp r16,r17 ;compare breq ch8_9xxx_1 ;no skip if equal adiw PC_L,2 ;skip next two bytes ch8_9xxx_1: rjmp ch8_loop ;thats all ;I=XXXX ch8_axxx: andi cmd_hi,0x0f mov ch8_ireg_lo,cmd_lo mov ch8_ireg_hi,cmd_hi rjmp ch8_loop ;thats all ;JMP V0+XXX ch8_bxxx: andi cmd_hi,0x0f ;mask bits lds r16,ch8_regs+0 ;get V0 add cmd_lo,r16 ;add adc cmd_hi,const_0 mov PC_L,cmd_lo mov PC_H,cmd_hi rjmp ch8_loop ;thats all ;VX = RAND AND XX ch8_cxxx: rcall ch8_gvarptr ;set ptrs lds r16,ch8_rand ;get rand and r16,cmd_lo st X,r16 ;get register X ch8_cxxx_e: rjmp ch8_loop ;thats all ;draw sprite XYN ch8_dxxx: mov tempreg4,cmd_lo ;for nibble andi tempreg4,0x0f rcall ch8_gvarptr ;set ptrs ld r16,X ;get value of register X ld r17,Y ;get value of register Y sts ch8_regs+15,const_0 ;no collision movw XL,ch8_ireg_lo ;I register sbrc ch8_vmode,0 ;skip if chip8 mode rjmp ch8_sprs ;Schip sprite ;chip 8 sprite ch8_spr8: andi r16,63 ;limit X andi r17,31 ;limit Y cpi tempreg4,0 ;height = 0 -> 16x16 sprite brne ch8_spr8_1 ;normal sprite ldi tempreg4,16 ;big sprite ch8_spr8_1: cpi tempreg4,0 ;height = 0 breq ch8_cxxx_e rcall drv_xmem_rbyte ;get pixline to r18 ldi tempreg3,8 ;pixel in X direction ch8_spr8_2: lsl r18 ;shift out pix brcc ch8_spr8_4 ;0 -> do nothing api_getvram ;set Y to start of video RAM ldi tempreg1,32 ;bytes per line mul tempreg1,r17 ;*Y add YL,r0 ;add Y offset adc YH,r1 mov tempreg1,r16 ;X lsr tempreg1 ;/4 lsr tempreg1 add YL,tempreg1 ;add X offset adc YH,const_0 ldi tempreg1,0x03 ;mask sbrc r16,0 ldi tempreg1,0x0c sbrc r16,1 swap tempreg1 ld ZL,Y ;get orig byte and ZL,tempreg1 ;pixels set? breq ch8_spr8_3 ;not sts ch8_regs+15,const_1 ;set flag ch8_spr8_3: ld ZL,Y ;get orig byte, row 1 eor ZL,tempreg1 st Y,ZL ldd ZL,Y+16 ;get orig byte, row 2 eor ZL,tempreg1 std Y+16,ZL ch8_spr8_4: inc r16 ;next X andi r16,63 dec tempreg3 brne ch8_spr8_2 inc r17 andi r17,31 subi r16,8 andi r16,63 dec tempreg4 rjmp ch8_spr8_1 ;Schip sprite ch8_sprs: andi r16,127 ;limit X andi r17,63 ;limit Y cpi tempreg4,0 ;height = 0 -> 16x16 sprite breq ch8_sprs_10 ;big sprite ch8_sprs_1: rcall drv_xmem_rbyte ;get pixline ldi tempreg3,8 ;pixel in X direction ch8_sprs_2: lsl r18 ;shift out pix brcc ch8_sprs_4 ;0 -> do nothing api_getvram ;set Y to start of video RAM ldi tempreg1,16 ;bytes per line mul tempreg1,r17 ;*Y add YL,r0 ;add Y offset adc YH,r1 mov tempreg1,r16 ;copy X lsr tempreg1 ;/8 lsr tempreg1 lsr tempreg1 add YL,tempreg1 ;add X offset adc YH,const_0 ldi tempreg1,0x01 ;mask sbrc r16,1 ldi tempreg1,0x04 sbrc r16,0 lsl tempreg1 sbrc r16,2 swap tempreg1 ld ZL,Y ;get orig byte and ZL,tempreg1 ;pixels set? breq ch8_sprs_3 ;not sts ch8_regs+15,const_1 ;set flag ch8_sprs_3: ld ZL,Y ;get orig byte, row 1 eor ZL,tempreg1 st Y,ZL ch8_sprs_4: inc r16 ;next X andi r16,127 dec tempreg3 brne ch8_sprs_2 inc r17 andi r17,63 subi r16,8 andi r16,127 dec tempreg4 brne ch8_sprs_1 ch8_sprs_end: rjmp ch8_loop ;end here ch8_sprs_10: ldi tempreg4,16 ;lines to do ch8_sprs_11: cpi tempreg4,0 ;height = 0 breq ch8_sprs_end rcall drv_xmem_rbyte ;get pixline ldi tempreg3,8 ;pixel in X direction ch8_sprs_12: lsl r18 ;shift out pix brcc ch8_sprs_14 ;0 -> do nothing api_getvram ;set Y to start of video RAM ldi tempreg1,16 ;bytes per line mul tempreg1,r17 ;*Y add YL,r0 ;add Y offset adc YH,r1 mov tempreg1,r16 ;X lsr tempreg1 ;/8 lsr tempreg1 lsr tempreg1 add YL,tempreg1 ;add X offset adc YH,const_0 ldi tempreg1,0x80 ;mask sbrc r16,1 lsr tempreg1,0x20 sbrc r16,0 lsr tempreg1 sbrc r16,2 swap tempreg1 ld ZL,Y ;get orig byte and ZL,tempreg1 ;pixels set? breq ch8_sprs_13 ;not sts ch8_regs+15,const_1 ;set flag ch8_sprs_13: ld ZL,Y ;get orig byte, row 1 eor ZL,tempreg1 st Y,ZL ch8_sprs_14: inc r16 ;next X andi r16,127 dec tempreg3 brne ch8_sprs_12 rcall drv_xmem_rbyte ;get pixline ldi tempreg3,8 ;pixel in X direction ch8_sprs_22: lsl r18 ;shift out pix brcc ch8_sprs_24 ;0 -> do nothing api_getvram ;set Y to start of video RAM ldi tempreg1,16 ;bytes per line mul tempreg1,r17 ;*Y add YL,r0 ;add Y offset adc YH,r1 mov tempreg1,r16 ;X lsr tempreg1 ;/8 lsr tempreg1 lsr tempreg1 add YL,tempreg1 ;add X offset adc YH,const_0 ldi tempreg1,0x80 ;mask sbrc r16,1 lsr tempreg1,0x20 sbrc r16,0 lsr tempreg1 sbrc r16,2 swap tempreg1 ld ZL,Y ;get orig byte and ZL,tempreg1 ;pixels set? breq ch8_sprs_23 ;not sts ch8_regs+15,const_1 ;set flag ch8_sprs_23: ld ZL,Y ;get orig byte, row 1 eor ZL,tempreg1 st Y,ZL ch8_sprs_24: inc r16 ;next X andi r16,127 dec tempreg3 brne ch8_sprs_22 inc r17 andi r17,63 subi r16,16 andi r16,127 dec tempreg4 rjmp ch8_sprs_11 ch8_exxx: rcall ch8_gvarptr ;get var ptrs cpi cmd_lo,0x9e ;skip if key pressed breq ch8_ex9e ;yes cpi cmd_lo,0xa1 ;skip if key not pressed breq ch8_exa1 ;yes rjmp ch8_unknown ;no valid code ;skip if key is pressed ch8_ex9e: ld r16,X ;get VX andi r16,0x0f rcall ch8_getkey cp r16,tempreg1 brne ch8_ex9e_1 ;branch if key not pressed adiw PC_L,2 ;skip next two bytes ch8_ex9e_1: rjmp ch8_loop ;thats all ;skip if key VX is not pressed ch8_exa1: ld r16,X ;get VX andi r16,0x0f rcall ch8_getkey cp r16,tempreg1 breq ch8_exa1_1 ;branch if key is pressed adiw PC_L,2 ;skip next two bytes ch8_exa1_1: rjmp ch8_loop ;thats all ch8_fxxx: rcall ch8_gvarptr ;get var ptrs ;VX = delay timer ch8_fx07: cpi cmd_lo,0x07 ;Fx07 VX=delay timer brne ch8_fx0a ;not st X,r14 ; rjmp ch8_loop ;thats all ;wait for key ch8_fx0a: cpi cmd_lo,0x0a ;Fx0a wait for key, VX=key brne ch8_fx15 ;not ch8_fx0a_1: rcall ch8_getkey ;get keycode to tempreg1 sbrc tempreg1,7 ;skip if any key is pressed rjmp ch8_fx0a_1 ;wait again st X,tempreg1 ;store to VX rjmp ch8_loop ;thats all ;delay timer = VX ch8_fx15: cpi cmd_lo,0x15 ;delay timer = VX brne ch8_fx18 ;not ld r14,X ;set delay timer rjmp ch8_loop ;thats all ;sound timer = VX ch8_fx18: cpi cmd_lo,0x18 ;sound timer = VX brne ch8_fx1e ;not ld r15,X ;get sound timer rjmp ch8_loop ;thats all ch8_fx1e: cpi cmd_lo,0x1e ;I = I + VX brne ch8_fx29 ;not sts ch8_regs+15,const_0 ;clear VF ld r16,X ;get register X add ch8_ireg_lo,r16 adc ch8_ireg_hi,const_0 sbrc ch8_ireg_hi,4 sts ch8_regs+15,const_1 ;set VF ldi r16,0x0f and ch8_ireg_hi,r16 rjmp ch8_loop ;thats all ch8_fx29: cpi cmd_lo,0x29 ;point I to num sprite VX brne ch8_fx30 ;not ld r16,X ;get VX andi r16,0x0f ldi tempreg1,8 ;bytes per char mul r16,tempreg1 movw ch8_ireg_lo,r0 ldi r16,32 add ch8_ireg_lo,r16 ;offset for small font adc ch8_ireg_hi,const_0 rjmp ch8_loop ;thats all ch8_fx30: cpi cmd_lo,0x30 ;point I to num sprite VX brne ch8_fx33 ;not ld r16,X ;get VX andi r16,0x0f ldi tempreg1,10 ;bytes per char mul r16,tempreg1 movw ch8_ireg_lo,r0 ldi r16,160 ;table offset add ch8_ireg_lo,r16 ;offset for big font adc ch8_ireg_hi,const_0 rjmp ch8_loop ;thats all ch8_fx33: cpi cmd_lo,0x33 ;store BCD brne ch8_fx55 ;not ld tempreg1,X ;get VX register ldi tempreg2,0xff ;Z ldi tempreg3,0xff ;H ch8_fx33_1: inc tempreg3 ;H+1 subi tempreg1,100 ;-100 brcc ch8_fx33_1 subi tempreg1,156 ;+100 ch8_fx33_2: inc tempreg2 ;Z+1 subi tempreg1,10 ;-10 brcc ch8_fx33_2 subi tempreg1,246 ;+10 movw XL,ch8_ireg_lo mov r18,tempreg3 ;H rcall drv_xmem_wbyte mov r18,tempreg2 ;Z rcall drv_xmem_wbyte mov r18,tempreg1 ;E rcall drv_xmem_wbyte rjmp ch8_loop ;thats all ;save V0..VX to (I) ch8_fx55: cpi cmd_lo,0x55 ;save registers 0 to VX to mem brne ch8_fx65 ;not mov r16,cmd_hi andi r16,0x0f inc r16 ldi YL,LOW(ch8_regs) ldi YH,HIGH(ch8_regs) movw XL,ch8_ireg_lo ;get I ch8_fx55_1: ld r18,Y+ ;get register rcall drv_xmem_wbyte dec r16 brne ch8_fx55_1 movw ch8_ireg_lo,XL rjmp ch8_loop ;thats all ;load V0..VX from (I) ch8_fx65: cpi cmd_lo,0x65 ;load registers from mem brne ch8_fx75 ;not mov r16,cmd_hi andi r16,0x0f inc r16 ldi YL,LOW(ch8_regs) ldi YH,HIGH(ch8_regs) movw XL,ch8_ireg_lo ;get I ch8_fx65_1: rcall drv_xmem_rbyte ;read st Y+,r18 dec r16 brne ch8_fx65_1 movw ch8_ireg_lo,XL rjmp ch8_loop ;thats all ;save V0..VX to special mem ch8_fx75: cpi cmd_lo,0x75 ;save registers to spec brne ch8_fx85 ;not mov r16,cmd_hi andi r16,0x07 inc r16 ldi YL,LOW(ch8_regs) ldi YH,HIGH(ch8_regs) ch8_fx75_1: ld r0,Y+ ;get register std Y+15,r0 dec r16 brne ch8_fx75_1 rjmp ch8_loop ;thats all ;load V0..Vx from special mem ch8_fx85: cpi cmd_lo,0x85 ;save registers to spec brne ch8_fx86 ;not mov r16,cmd_hi andi r16,0x07 inc r16 ldi YL,LOW(ch8_regs) ldi YH,HIGH(ch8_regs) ch8_fx85_1: ldd r0,Y+16 ;get register st Y+,r0 dec r16 brne ch8_fx85_1 rjmp ch8_loop ;thats all ch8_fx86: rjmp ch8_unknown ;thats all ;get recent key to tempreg1 ch8_getkey: lds tempreg2,ch8_kflags sbrc tempreg2,0 ;break flag ? rjmp ch8_break0 lds tempreg2,ch8_kcode push XL push XH push r18 ldi XL,0x10 ;start of keytable in XRAM ldi XH,0x00 ldi tempreg1,0 ch8_getkey_1: rcall drv_xmem_rbyte cp r18,tempreg2 breq ch8_getkey_2 inc tempreg1 sbrs tempreg1,4 rjmp ch8_getkey_1 ldi tempreg1,0xff ch8_getkey_2: pop r18 pop XH pop XL ret ;get variable pointers ch8_gvarptr: mov XH,cmd_hi andi XH,0x0f ldi XL,LOW(ch8_regs) add XL,XH ldi XH,HIGH(ch8_regs) mov YH,cmd_lo andi YH,0xf0 swap YH ldi YL,LOW(ch8_regs) add YL,YH ldi YH,HIGH(ch8_regs) ret SOURCE_142/SOURCE_program/chip8/chip8.asm0000755000175000001440000003026011725741461016764 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# chip8 interpreter # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ ch8_base = 0x0188 ;bas_inbuf .equ ch8_regs = ch8_base+0 .equ ch8_rcode = ch8_base+24 ;error code, PC,I .equ ch8_stack = ch8_base+40 .equ ch8_rand = libmio_ram + 24 .equ ch8_kflags = libmio_ram + 37 .equ ch8_kcode = libmio_ram + 14 .equ ch8_frame = libmio_ram + 8 .equ ch8_env = libmio_ram + 21 .def ch8_ireg_lo = r4 .def ch8_ireg_hi = r5 .def ch8_vmode = r6 .def ch8_sp = r7 .def PC_L = r24 .def PC_H = r25 .def cmd_hi = r18 ;because of MSB first .def cmd_lo = r19 .org 0x4e00 ; "...... N" start: .db "Chip-8 V0.4 N",0xec,0xff,0xff ;icon def .db 0x07,0x03,0x03,0x0b .db "SCH8" .db 0x0d,0x0c,0x0c,0x0e ;dummy data .db 0x00,0x00,0x00,0x00 .org 0x4e10 ;------------------------------------------------------------------------------ ;check if we are at program place 2 ;------------------------------------------------------------------------------ chip8_entry: sts ch8_rcode,const_0 ;clear error code api_getprog cpi ZL,1 breq chip8_entry_1 chip8_noprg2: api_alertthis_nb .db 0x2f,"Works only at P2",0 ret ;exit program because not program 2 chip8_entry_1: lds ZL,prg_xmem cpi ZL,0xff brne chip8_entry_2 chip8_noxmem: api_alertthis_nb .db 0x2f,"No XMEM driver",0 ret ;exit program because of XRAM is not available chip8_entry_2: ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ chip8_main: rcall chip8_rclear ;clear registers chip8_main_0: ldi XL,0x17 ;color scheme (white on black) api_setcolor ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,21 api_whbox ldi XL,0x70 ;color scheme (black on white) api_setcolor chip8_main_1: api_thistext .db 1,2,"Chip8/Schip Interpreter",0 ;show loaded program chip8_show: ldi XL,0x16 ;color scheme (yellow on blue) api_setcolor api_thistext .db 4,2,"Program: ",0 clr XL ;start of XRAM clr XH ldi r16,12 chip8_show_1: rcall drv_xmem_rbyte mov tempreg1,r18 api_outchar dec r16 brne chip8_show_1 rcall chip8_vstat ;------------------------------------------------------------------------------ ;the key loop ;------------------------------------------------------------------------------ chip8_kloop: ldi ZL,LOW(chip8_mbar*2) ldi ZH,HIGH(chip8_mbar*2) api_menu cpi tempreg1,0x01 ;ESC brne chip8_kloop_1 api_askthis_nb .db 0x2f,"Exit Chip-8 ?",0,0 cpi tempreg1,0 ;no brne chip8_exit rjmp chip8_main_0 chip8_exit: ret ;exit program chip8_kloop_1: chip8_kloop_2: cpi tempreg1,0x02 ;F1 = receive brne chip8_kloop_3 rcall chip8_recv chip8_kloop2: rjmp chip8_main chip8_kloop_3: cpi tempreg1,0x03 ;F2 = save brne chip8_kloop_4 rcall chip8_save rjmp chip8_main_0 chip8_kloop_4: cpi tempreg1,0x04 ;F3 = load brne chip8_kloop_5 rcall chip8_load rjmp chip8_main chip8_kloop_5: cpi tempreg1,0x07 ;CTRL+F1 = DLY- brne chip8_kloop_6 ldi XL,15 ldi XH,0 rcall drv_xmem_rbyte dec r18 andi r18,0x1f ldi XL,15 ldi XH,0 rcall drv_xmem_wbyte rjmp chip8_main_0 chip8_kloop_6: cpi tempreg1,0x08 ;CTRL+F2 = DLY+ brne chip8_kloop_7 ldi XL,15 ldi XH,0 rcall drv_xmem_rbyte inc r18 andi r18,0x1f ldi XL,15 ldi XH,0 rcall drv_xmem_wbyte rjmp chip8_main_0 chip8_kloop_7: cpi tempreg1,0x05 ;F4 = exec brne chip8_kloop ldi ZL,LOW(0x7207*2) ldi ZH,HIGH(0x7207*2) lpm XH,Z ldi XL,0x05 ;mode 5 (128 x 64) cpi XH,0xa8 brne setmode ldi XL,0x07 ;we use mode 7 setmode: api_setvmode ;set video mode rcall chip8_cls ;clear screen ldi XL,0xa0 ;select tone api_note ;init sound rcall ch8_entry ;call interpreter ldi YL,LOW(ch8_rcode) ldi YH,HIGH(ch8_rcode) st Y+,tempreg1 ;store return code st Y+,ch8_sp st Y+,PC_H st Y+,PC_L st Y+,cmd_hi ;code hi st Y+,cmd_lo ;code lo st Y+,ch8_ireg_hi ;store I register st Y+,ch8_ireg_lo st Y+,r14 ;store DELAY counter st Y+,r15 ;store SOUND counter ldi XL,0x02 ;border to red api_setborder api_waitkey ldi XL,0x00 api_setborder ldi XL,0x00 api_setvmode ;set video mode chip8_exx1: rjmp chip8_main_0 ;restart after execution ;------------------------------------------------------------------------------ ;view status ;------------------------------------------------------------------------------ chip8_vstat: ldi XL,0x15 ;color scheme (cyan on blue) api_setcolor ldi YL,LOW(ch8_rcode) ldi YH,HIGH(ch8_rcode) api_thistext .db 6,2,"Stat: ",0 ld XL,Y lsl XL lsl XL ldi ZL,LOW(chip8_etext*2) ldi ZH,HIGH(chip8_etext*2) add ZL,XL adc ZH,const_0 api_romtext ldi ctrl,0x01 ;16 bit api_thistext .db 9,2,"PC: ",0 ldd XH,Y+2 ldd XL,Y+3 sbiw XL,2 ;correct api_outhex api_thistext .db 8,14,"I-Reg: ",0 ldd XH,Y+6 ldd XL,Y+7 api_outhex api_thistext .db 9,14,"CMD : ",0 ldd XH,Y+4 ldd XL,Y+5 api_outhex ldi ctrl,0x00 ;8 bit chip8_vstat_0: api_thistext .db 8,2,"SP: ",0 ldd XL,Y+1 api_outhex api_thistext .db 20,2,"DLY: ",0 ldd XL,Y+8 api_outhex api_thistext .db 20,14,"SND: ",0 ldd XL,Y+9 api_outhex ldi r17,0 ;first reg chip8_vstat_1: ldi XL,2 sbrc r17,3 ldi XL,14 mov XH,r17 andi XH,0x07 subi XH,0xf5 ;+11 api_gotoxy ldi tempreg1,'V' api_outchar mov tempreg1,r17 ;regnum subi tempreg1,0xd0 ;+0x30 cpi tempreg1,0x3a brcs chip8_vstat_2 subi tempreg1,0xf9 chip8_vstat_2: api_outchar ;output reg name api_thistext .db 255," = ",0,0 ldi YL,LOW(ch8_regs) ;register set ldi YH,HIGH(ch8_regs) add YL,r17 adc YH,const_0 ld XL,Y api_outhex inc r17 cpi r17,0x10 brne chip8_vstat_1 ldi XL,0x16 api_setcolor api_thistext .db 6,13,"VM-",0 ldi ZL,LOW(0x7207*2) ldi ZH,HIGH(0x7207*2) lpm XH,Z ldi tempreg1,'5' cpi XH,0xa8 brne chip8_vstat_3 ldi tempreg1,'7' chip8_vstat_3: api_outchar ldi XL,0x17 api_setcolor api_thistext .db 6,19,"Delay: ",0 ldi XL,15 ldi XH,0 rcall drv_xmem_rbyte mov XL,r18 api_outhex ret chip8_rclear: ldi YL,LOW(ch8_regs) ;register set ldi YH,HIGH(ch8_regs) ldi r17,14 chip8_rclear_1: st Y+,const_0 dec r17 brne chip8_rclear_1 ret ;------------------------------------------------------------------------------ ;save code ;------------------------------------------------------------------------------ chip8_save_err: api_alertthis_nb .db 0x2f,"Cannot overwrite",0 ret ;cannot overwrite other files chip8_save: api_fs_check api_fs_fsel_nb .db "Save Chip8 Code",0 cpi tempreg1,0xed ;ESC breq chip8_save_end cpi tempreg1,0x16 ;CH8 breq chip8_save_1 ;overwrite cpi tempreg1,0xf0 ;empty brcs chip8_save_err ;cannot create mov tempreg1,tempreg4 ;file number ldi tempreg2,16 ;blocks ldi tempreg3,0x16 ;CH8 file type api_fs_create chip8_save_1: ldi tempreg2,0 ;first sector clr XL ;reset XMEM pointer clr XH ;copy one page chip8_save_2: ldi r16,0 ;bytes to do api_getarray ;start of array subi YH,0xfe ;+512 (we use buffer 2) chip8_save_3: rcall drv_xmem_rbyte ;read one byte to r18 st Y+,r18 dec r16 brne chip8_save_3 ;write page to flash ldi tempreg3,2 ;we use buffer 2 mov tempreg1,tempreg4 ;copy file number api_fs_write ;write block inc tempreg2 ;next block cpi tempreg2,16 ;block counter brne chip8_save_2 ;block loop chip8_save_end: ret ;------------------------------------------------------------------------------ ;write 256 bytes from buffer 1 to XRAM ;------------------------------------------------------------------------------ chip8_wxram: ldi r16,0x00 ;words to do api_getarray ;start of array subi YH,0xfe ;+512 (we use buffer 2) chip8_wxram_1: ld r18,Y+ ;get byte from buffer rcall drv_xmem_wbyte ;write dec r16 brne chip8_wxram_1 ret ;------------------------------------------------------------------------------ ;load code ;------------------------------------------------------------------------------ chip8_load_err: api_alertthis_nb .db 0x2f,"No CH8 file",0,0 ret ;cannot load this chip8_load: api_fs_check api_fs_fsel_nb ;call fileselector .db "Load Chip8 Code",0 cpi tempreg1,0xed ;ESC breq chip8_load_end cpi tempreg1,0x16 ;CH8 brne chip8_load_err ;cannot load this rcall chip8_clear ;clear memory mov tempreg1,tempreg4 ;file number chip8_load_1: ldi tempreg2,0 ;first sector chip8_load_2: ldi tempreg3,2 ;we use buffer 1 api_fs_read ;read block to array rcall chip8_wxram ;get 256 bytes inc tempreg2 ;next block cpi tempreg2,16 ;block counter brne chip8_load_2 ;block loop chip8_load_end: ret ;------------------------------------------------------------------------------ ;receive code ;------------------------------------------------------------------------------ chip8_recv: api_askthis_nb .db 0x60,"Get via XMODEM?",0,0 sbrs tempreg1,0 ret ;return to main menu rcall chip8_clear api_saytransfer ; chip8_recv_1: ldi tempreg1,0x15 ;send NAK to start transfer api_putser ldi tempreg4,16 chip8_recv_2: api_getarray subi YH,0xfe ;we use buffer 2 rcall chip8_rblock rcall chip8_rblock rcall chip8_wxram ;write 256 bytes to XRAM dec tempreg4 brne chip8_recv_2 chip8_recv_3: api_getser cpi tempreg1,0x04 brne chip8_recv_3 rjmp chip8_rblock1 chip8_rblock: api_getxm chip8_rblock1: ldi tempreg1,0x06 ;send ACK api_putser ret ;------------------------------------------------------------------------------ ;clear memory ;------------------------------------------------------------------------------ chip8_clear: clr XL ;first address clr XH ldi r18,'-' ;data=0 chip8_clear_1: rcall drv_xmem_wbyte cpi XL,0x0c brne chip8_clear_1 ldi r18,0x00 chip8_clear_2: rcall drv_xmem_wbyte sbrs XH,4 rjmp chip8_clear_2 clr XL clr XH ret chip8_cls: api_getvram ldi XL,0x00 ldi XH,0x04 chip8_cls_1: st Y+,const_0 sbiw XL,1 brne chip8_cls_1 ret .include "interpreter.asm" ;------------------------------------------------------------------------------ ;memory routines ;------------------------------------------------------------------------------ drv_xmem_rbyte: push ZH push ZL ldi ZL,xmem_bread lds ZH,prg_xmem icall pop ZL pop ZH ret drv_xmem_wbyte: push ZH push ZL ldi ZL,xmem_bwrite lds ZH,prg_xmem icall pop ZL pop ZH ret drv_xmem_rword: push ZH push ZL ldi ZL,xmem_wread lds ZH,prg_xmem icall pop ZL pop ZH ret chip8_ctables: .include "ctable_04_05.inc" .include "ctable_08_10.inc" ;------------------------------------------------------------------------------ ;the program menubar ;------------------------------------------------------------------------------ ; "111111222222333333444444555555" chip8_mbar: .db " Exit Recv Save Load RUN ",1,0 .db " DLY- DLY+ " chip8_etext: .db "OK ",0 ;normal end .db "BRK",0 ;CTRL+C .db "SP<",0 ;stack underflow .db "SP>",0 ;stack overflow .db "???",0 ;unknown opcode SOURCE_142/SOURCE_program/chip8/ctable_04_05.inc0000755000175000001440000000144011725741461020001 0ustar joergusers .db 0xf0,0x90,0x90,0x90,0xf0,0x00,0x00,0x00 ;0 .db 0x20,0x60,0x20,0x20,0x70,0x00,0x00,0x00 ;1 .db 0xf0,0x10,0xf0,0x80,0xf0,0x00,0x00,0x00 ;2 .db 0xf0,0x10,0xf0,0x10,0xf0,0x00,0x00,0x00 ;3 .db 0x90,0x90,0xf0,0x10,0x10,0x00,0x00,0x00 ;4 .db 0xf0,0x80,0xf0,0x10,0xf0,0x00,0x00,0x00 ;5 .db 0xf0,0x80,0xf0,0x90,0xf0,0x00,0x00,0x00 ;6 .db 0xf0,0x10,0x20,0x40,0x40,0x00,0x00,0x00 ;7 .db 0xf0,0x90,0xf0,0x90,0xf0,0x00,0x00,0x00 ;8 .db 0xf0,0x90,0xf0,0x10,0xf0,0x00,0x00,0x00 ;9 .db 0xf0,0x90,0xf0,0x90,0x90,0x00,0x00,0x00 ;A .db 0xe0,0x90,0xe0,0x90,0xe0,0x00,0x00,0x00 ;B .db 0xf0,0x80,0x80,0x80,0xf0,0x00,0x00,0x00 ;C .db 0xe0,0x90,0x90,0x90,0xe0,0x00,0x00,0x00 ;D .db 0xf0,0x80,0xf0,0x80,0xf0,0x00,0x00,0x00 ;E .db 0xf0,0x80,0xf0,0x80,0x80,0x00,0x00,0x00 ;F SOURCE_142/SOURCE_program/chip8/ctable_08_10.inc0000644000175000001440000000174211725741461020003 0ustar joergusers .db 0x00,0x7c,0xc6,0xce,0xd6,0xd6,0xe6,0xc6,0x7c,0x00 .db 0x00,0x18,0x78,0x18,0x18,0x18,0x18,0x18,0x7e,0x00 .db 0x00,0x7c,0xc6,0xc6,0x0c,0x38,0x60,0xc2,0xfe,0x00 .db 0x00,0x7c,0xc6,0x06,0x3c,0x06,0x06,0xc6,0x7c,0x00 .db 0x00,0x0c,0x1c,0x3c,0x6c,0xcc,0xfe,0x0c,0x0c,0x00 .db 0x00,0xfe,0xc0,0xc0,0xfc,0x06,0x06,0xc6,0x7c,0x00 .db 0x00,0x7c,0xc6,0xc0,0xfc,0xc6,0xc6,0xc6,0x7c,0x00 .db 0x00,0xfe,0xc6,0x06,0x0c,0x18,0x30,0x30,0x30,0x00 .db 0x00,0x7c,0xc6,0xc6,0x7c,0xc6,0xc6,0xc6,0x7c,0x00 .db 0x00,0x7c,0xc6,0xc6,0xc6,0x7e,0x06,0xc6,0x7c,0x00 .db 0x00,0x38,0x6c,0xc6,0xc6,0xfe,0xc6,0xc6,0xc6,0x00 .db 0x00,0x7c,0x66,0x66,0x7c,0x66,0x66,0x66,0x7c,0x00 .db 0x00,0x3c,0x66,0xc2,0xc0,0xc0,0xc2,0x66,0x3c,0x00 .db 0x00,0x78,0x6c,0x66,0x66,0x66,0x66,0x6c,0x78,0x00 .db 0x00,0x7e,0x60,0x60,0x7c,0x60,0x60,0x60,0x7e,0x00 .db 0x00,0x7e,0x60,0x60,0x7c,0x60,0x60,0x60,0x60,0x00 SOURCE_142/SOURCE_program/kbd_us/0000755000175000001440000000000011713042123015461 5ustar joergusersSOURCE_142/SOURCE_program/kbd_us/keytable_us.inc0000755000175000001440000001264611725741460020514 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# keytable - US layout # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; scancode tables ; f1-fc function keys ; e0=pos1 e1=end e2=left e3=right e4=up e5=down e6=pgup e7=pgdown e8=ins e9=del ; ea=enter eb=tab ec=backspace ed=esc ; c0=power c1=sleep c2=wake c3=num c4=scroll ;------------------------------------------------------------------------------- ;normal table .db 0x00,0xf9,0x00,0xf5,0xf3,0xf1,0xf2,0xfc ;scancode 00-07 .db 0x00,0xfa,0xf8,0xf6,0xf4,0xeb,0x7e,0x00 ;scancode 08-0f .db 0xf7,0x00,0x00,0x00,0x00, 'q', '1',0x00 ;scancode 10-17 .db 0x00,0x00, 'z', 's', 'a', 'w', '2',0x00 ;scancode 18-1f .db 0x00, 'c', 'x', 'd', 'e', '4', '3',0x00 ;scancode 20-27 .db 0x00,0x20, 'v', 'f', 't', 'r', '5',0x00 ;scancode 28-2f .db 0x00, 'n', 'b', 'h', 'g', 'y', '6',0x00 ;scancode 30-37 .db 0x00,0x00, 'm', 'j', 'u', '7', '8',0x00 ;scancode 38-3f .db 0x00,0x2c, 'k', 'i', 'o', '0', '9',0x00 ;scancode 40-47 .db 0x00,0x2e, '/', 'l',0x3b, 'p', '-',0x00 ;scancode 48-4f .db 0x00,0x00,0x27,0x00,0x5b, '=',0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea,0x5d,0x00,0x5c,0x00,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0xec,0x00 ;scancode 60-67 .db 0x00, '1',0x00, '4', '7',0x00,0x00,0x00 ;scancode 68-6f .db '0',0x2c, '2', '5', '6', '8',0xed,0xc3 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0xc4,0x00 ;scancode 78-7f ;shift table .db 0x00,0xf9,0x00,0xf5,0xf3,0xf1,0xf2,0xfc ;scancode 00-07 .db 0x00,0xfa,0xf8,0xf6,0xf4,0xeb,0x00,0x00 ;scancode 08-0f .db 0xf7,0x00,0x00,0x00,0x00, 'Q', '!',0x00 ;scancode 10-17 .db 0x00,0x00, 'Z', 'S', 'A', 'W', '@',0x00 ;scancode 18-1f .db 0x00, 'C', 'X', 'D', 'E', '$', '#',0x00 ;scancode 20-27 .db 0x00,0x20, 'V', 'F', 'T', 'R', '%',0x00 ;scancode 28-2f .db 0x00, 'N', 'B', 'H', 'G', 'Y',0x5e,0x00 ;scancode 30-37 .db 0x00,0x00, 'M', 'J', 'U', '&', '*',0x00 ;scancode 38-3f .db 0x00, '<', 'K', 'I', 'O', ')', '(',0x00 ;scancode 40-47 .db 0x00, '>', '?', 'L',0x3a, 'P', '_',0x00 ;scancode 48-4f .db 0x00,0x00,0x22,0x00,0x7b, '+',0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea,0x7d,0x00,0x7c,0x00,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0xec,0x00 ;scancode 60-67 .db 0x00, '1',0x00, '4', '7',0x00,0x00,0x00 ;scancode 68-6f .db '0',0xe9, '2', '5', '6', '8',0xed,0xc3 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0xc4,0x00 ;scancode 78-7f ;extended table .db 'U',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc1 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 40-47 .db 0x00,0x00, '/',0x00,0x00,0x00,0x00,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea,0x00,0x00,0x00,0xc2,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xe8,0xe9,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f ;alt table .db 'S',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 40-47 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xef,0xee,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f SOURCE_142/SOURCE_program/kbd_us/kbd_us.asm0000755000175000001440000000511011725741460017447 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# US keyboard layout # ;# copyright (c) 2006-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ libmio_ktables = 0x4400 ;keyboard table .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6c00 ; "...... N" start: .db "SETKBD -US- N",0xec,0xff,0x00 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db "ABCD" .db 0xf4,0xf1,0xf1,0xf5 .org 0x6c10 ;------------------------------------------------------------------------------ ;start here ;------------------------------------------------------------------------------ set_kbd: ldi ZL,LOW(libmio_ktables*2+256) ldi ZH,HIGH(libmio_ktables*2+256) lpm tempreg1,Z cpi tempreg1,'U' brne set_kbd_1 subi ZL,0x80 lpm tempreg1,Z cpi tempreg1,'S' brne set_kbd_1 ret ;is already set set_kbd_1: ;copy part 1 of table to RAM ldi XL,LOW(kbdtable-start) ldi XH,HIGH(kbdtable-start) api_dataptr api_getarray subi YH,0xfe ;+2 ldi XL,0 set_kbd_2: lpm XH,Z+ st Y+,XH dec XL brne set_kbd_2 ldi ZL,LOW(libmio_ktables*2) ldi ZH,HIGH(libmio_ktables*2) api_wpage ldi XL,LOW(kbdtable-start+128) ldi XH,HIGH(kbdtable-start+128) api_dataptr api_getarray subi YH,0xfe ;+2 ldi XL,0 set_kbd_4: lpm XH,Z+ st Y+,XH dec XL brne set_kbd_4 ldi ZL,LOW(libmio_ktables*2+256) ldi ZH,HIGH(libmio_ktables*2+256) api_wpage sei ret kbdtable: .include "keytable_us.inc" SOURCE_142/SOURCE_program/emu8080/0000755000175000001440000000000011713042123015320 5ustar joergusersSOURCE_142/SOURCE_program/emu8080/emu8080.asm0000755000175000001440000023760711725741461017170 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# 8080 emulator for CP/M # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;The hw is modelled to make writing a CPM BIOS easier. ;Ports: ;IN(x) ;0 - Con status. Returns 0xFF if the UART has a byte, 0 otherwise. ;1 - Console input, aka UDR. ;OUT(X) ;2 - Console output ;16 - Track select ;18 - Sector select ;20 - Write addr l ;21 - Write addr h ;22 - Trigger - write 1 to read, 2 to write a sector using the above info. ; This will automatically move track, sector and dma addr to the next sector. .def const_0 = r2 .def const_1 = r3 .def const_ff = r4 .def xram_strobe = r5 .def xram_busy = r6 .def jtab_hi = r7 .def reg_c = r12 .def reg_b = r13 .def reg_e = r14 .def reg_d = r15 .def r_datl = r16 .def r_dath = r17 .def reg_a = r20 .def reg_f = r21 .def reg_l = r22 .def reg_h = r23 .def PC_L = r24 .def PC_H = r25 .def emu_stackl = r0 ;stack pointer (L) .def emu_stackh = r1 ;stack pointer (H) .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" ;.include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x4800 ; "...... N" start: .db " EMU- 8080 N",0xec,0xff,0x00 ;icon def .db 0x07,0x03,0x03,0x0b .db "8080" .db 0x0d,0x0c,0x0c,0x0e ;dummy data .db 0x00,0x00,0x00,0x00 .org 0x4810 ldi YL,0x88 ldi YH,0x01 st Y+,reg_a st Y+,reg_f st Y+,reg_b st Y+,reg_c st Y+,reg_d st Y+,reg_e st Y+,reg_h st Y+,reg_l st Y+,PC_L st Y+,PC_H rcall emu_start sts 0xcb8,PC_L sts 0xcba,PC_H sts 0xca0,reg_a sts 0xca2,reg_b sts 0xca4,reg_c sts 0xca6,reg_d sts 0xca8,reg_e sts 0xcaa,reg_f sts 0xcae,reg_h sts 0xcb6,reg_l sts 0xcbe,r0 ;SPL sts 0xcc0,r1 ;SPH ldi YL,0x88 ldi YH,0x01 ld reg_a,Y+ ld reg_f,Y+ ld reg_b,Y+ ld reg_c,Y+ ld reg_d,Y+ ld reg_e,Y+ ld reg_h,Y+ ld reg_l,Y+ ld PC_L,Y+ ld PC_H,Y+ ret ;------------------------------------------------------------------------------ ; get next byte from PC+ to ZL ; 5 words, 6 clocks ;------------------------------------------------------------------------------ .macro emu_nextbyte out PINB,xram_busy ;1 adiw PC_L,1 ;2 nop in ZL,PINA ;1 out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; get next word from PC+ to XH/XL ; 9 words, 11 clocks ;------------------------------------------------------------------------------ .macro emu_nextword out PINB,xram_busy ;1 adiw PC_L,1 ;2 nop in XL,PINA ;1 get low byte out PINB,xram_busy ;1 out PINB,xram_busy ;1 adiw PC_L,1 ;2 nop in XH,PINA ;1 get high byte out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; set mem addr to PC and prepare READ ; 8 words, 8 clocks ;------------------------------------------------------------------------------ .macro emu_pcaddr_read out DDRA,const_ff ;1 output out PORTA,const_1 ;1 select read out PINB,xram_strobe ;1 latch HI address out PORTA,PC_H ;1 set HI address out PINB,xram_busy ;1 out PORTA,PC_L ;1 out PINB,xram_busy ;1 out PINB,xram_strobe ;1 set new address out DDRA,const_0 ;1 input .endmacro ;------------------------------------------------------------------------------ ; set mem addr to X and prepare READ ; 8 words, 8 clocks ;------------------------------------------------------------------------------ .macro emu_X_read out DDRA,const_ff ;1 output out PORTA,const_1 ;1 select read out PINB,xram_strobe ;1 latch HI address out PORTA,XH ;1 set HI address out PINB,xram_busy ;1 out PORTA,XL ;1 out PINB,xram_busy ;1 out PINB,xram_strobe ;1 set new address out DDRA,const_0 ;1 input .endmacro ;------------------------------------------------------------------------------ ; set mem addr to X and prepare READ ; 8 words, 8 clocks ;------------------------------------------------------------------------------ .macro emu_SP_read out DDRA,const_ff ;1 output out PORTA,const_1 ;1 select read out PINB,xram_strobe ;1 latch HI address out PORTA,r1 ;1 set HI address out PINB,xram_busy ;1 out PORTA,r0 ;1 out PINB,xram_busy ;1 out PINB,xram_strobe ;1 set new address out DDRA,const_0 ;1 input out PINB,xram_busy ;1 add r0,const_1 ;1 adc r1,const_0 ;1 in r_datl,PINA ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 add r0,const_1 ;1 adc r1,const_0 ;1 in r_dath,PINA ;1 out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; set mem addr to PC and prepare WRITE ; 7 words, 7 clocks ;------------------------------------------------------------------------------ .macro emu_X_write out DDRA,const_ff ;1 output out PORTA,const_0 ;1 select write out PINB,xram_strobe ;1 latch HI address out PORTA,XH ;1 set HI address out PINB,xram_busy ;1 out PORTA,XL ;1 out PINB,xram_busy ;1 out PINB,xram_strobe ;1 set new address .endmacro ;------------------------------------------------------------------------------ ; set mem addr to PC and prepare WRITE ; 7 words, 7 clocks ;------------------------------------------------------------------------------ .macro emu_SP_write sub r0,const_1 sbc r1,const_0 sub r0,const_1 sbc r1,const_0 out DDRA,const_ff ;1 output out PORTA,const_0 ;1 select write out PINB,xram_strobe ;1 latch HI address out PORTA,r1 ;1 set HI address out PINB,xram_busy ;1 out PORTA,r0 ;1 out PINB,xram_busy ;1 out PINB,xram_strobe ;1 set new address out PORTA,r_datl ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 out PORTA,r_dath ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; read r_datl from (X) ; 9 words, 9 clocks ;------------------------------------------------------------------------------ .macro emu_rbyte emu_X_read out PINB,xram_busy ;1 nop ;1 nop ;1 out PINB,xram_busy ;1 in r_datl,PINA ;1 .endmacro ;------------------------------------------------------------------------------ ; read r_dat from (X) ; 13 words, 13 clocks ;------------------------------------------------------------------------------ .macro emu_rword emu_X_read out PINB,xram_busy ;1 nop ;1 nop ;1 in r_datl,PINA ;1 out PINB,xram_busy ;1 nop out PINB,xram_busy ;1 nop ;1 nop ;1 in r_dath,PINA ;1 out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; write r_datl to (X) ; 8 words, 8 clocks ;------------------------------------------------------------------------------ .macro emu_wbyte emu_X_write out PORTA,r_datl ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 .endmacro ;------------------------------------------------------------------------------ ; write r_dath/r_datl to (X) ; 11 words, 11 clocks ;------------------------------------------------------------------------------ .macro emu_wword emu_X_write out PORTA,r_datl ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 out PORTA,r_dath ;1 out PINB,xram_busy ;1 out PINB,xram_busy ;1 .endmacro ;############################################################################## ; init and start the VM ;############################################################################## emu_start: api_getbase subi ZH,0xfe mov jtab_hi,ZH ldi XL,0xFF mov const_ff,XL ldi XL,0x02 mov xram_strobe,XL ldi XL,0x04 mov xram_busy,XL mov r0,const_0 ;init SP mov r1,const_0 clr PC_L ;PC clr PC_H ;PC clr reg_a ;A clr reg_f ;F mov reg_b,const_0 mov reg_c,const_0 mov reg_d,const_0 mov reg_e,const_0 mov reg_h,const_0 mov reg_l,const_0 ldi YH,0 ;1 high register pointer rjmp emu_loop ;now start ;------------------------------------------------------------------------------ ; get (rr) to r_datl ;------------------------------------------------------------------------------ emu_gethl: movw XL,reg_l emu_rbyte ret ;------------------------------------------------------------------------------ ; put r_datl to (rr) ;------------------------------------------------------------------------------ emu_puthl: movw XL,reg_l emu_wbyte rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; write next word to 16 bit reg ;------------------------------------------------------------------------------ emu_regset16: emu_nextword ;9 st Y+,XL ;2 store L std Y+1,XH ;2 store H rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; write accu to addr (Y) ;------------------------------------------------------------------------------ emu_astore: mov r_datl,reg_a ;1 ;write byte from r_dath emu_bstore: ld XL,Y ;register LO ldd XH,Y+1 ;register HI emu_cstore: emu_wbyte ;8 rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; read accu from addr (Y) ; ;------------------------------------------------------------------------------ emu_aread: ld XL,Y ;register LO ldd XH,Y+1 ;register HI emu_areadx: emu_rbyte ;8 mov reg_a,r_datl ;1 rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; inc (Y) register ;------------------------------------------------------------------------------ emu_incb: ld r_datl,Y ;2 get register bst reg_f,0 ;1 save carry flag add r_datl,const_1 ;1 in reg_f,SREG ;1 bld reg_f,0 ;1 restore carry flag st Y,r_datl ;2 put back register rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; dec (Y) register ;------------------------------------------------------------------------------ emu_decb: ld r_datl,Y ;2 get register bst reg_f,0 ;1 save carry flag sub r_datl,const_1 ;1 in reg_f,SREG ;1 bld reg_f,0 ;1 restore carry flag st Y,r_datl ;2 put back register rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; set (Y) register immediate byte from (PC+) ;------------------------------------------------------------------------------ emu_setib: emu_nextbyte ;1 get next byte st Y,ZL rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; set (Y) word immediate word from (PC+) ;------------------------------------------------------------------------------ emu_setiw: emu_nextword ;1 get next byte emu_stor16: st Y,XL ;2 store LO std Y+1,XH ;2 store HI clr YH rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; add 16 bit value (Y) to HL ;------------------------------------------------------------------------------ emu_add16: ld r_datl,Y ;2 get HI ldd r_dath,Y+1 ;2 get LO add reg_l,r_datl ;1 add adc reg_h,r_dath ;1 in r_datl,SREG ;1 clear bst r_datl,0 ;1 copy carry bld reg_f,0 ;1 rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; jump absolute if T is set ;------------------------------------------------------------------------------ emu_jabs: emu_nextword ;get next PC word brtc emu_jabs_1 ;branch if no jump movw PC_L,XL ;set PC emu_jabs_1: rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; call if T is set ;------------------------------------------------------------------------------ emu_rst: ldi XH,0x00 ;HI ADDR =0 rjmp emu_call_0 emu_call: emu_nextword ;get next PC word to r_adr brtc emu_jabs_1 ;branch if no call emu_call_0: movw r_datl,PC_L ;recent address movw PC_L,XL ;new address emu_SP_write emu_call_1: rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; ret if T is set ;------------------------------------------------------------------------------ emu_ret: brtc emu_ret_1 ;branch if no jump emu_SP_read movw PC_L,r_datl ;2 get PC from r_dath/r_datl emu_ret_1: rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; increment 16 bit register ;------------------------------------------------------------------------------ emu_inc16: ld XL,Y ldd XH,Y+1 adiw XL,1 st Y,XL std Y+1,XH rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; decrement 16 bit register ;------------------------------------------------------------------------------ emu_dec16: ld XL,Y ldd XH,Y+1 sbiw XL,1 st Y,XL std Y+1,XH rjmp emu_nloop ;2 goto loop ;------------------------------------------------------------------------------ ; push word (Y) ;------------------------------------------------------------------------------ emu_pushword: ld r_datl,Y ;get register low ldd r_dath,Y+1 ;get register high emu_SP_write ;put register to stack rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; pop word (Y) ;------------------------------------------------------------------------------ emu_popword: movw XL,r0 ;get SP emu_SP_read st Y,r_datl std Y+1,r_dath rjmp emu_loop ;2 goto loop ;------------------------------------------------------------------------------ ; the main emulator loop (neutral) ;------------------------------------------------------------------------------ emu_loop: emu_pcaddr_read ;set addr in extmem to PC emu_nloop: ; lds ZL,libmio_keycode ;debug ; cpi ZL,0xf8 ; brne emu_nloop2 ; rjmp debug_end emu_nloop2: emu_nextbyte ;get CMD byte ijmp ;branch ;------------------------------------------------------------------------------ ; 0x01 LD BC,nnnn ;------------------------------------------------------------------------------ emu_code_01: ldi YL,12 ;set ptr to BC rjmp emu_setiw ;2 get next PC word and write to BC ;------------------------------------------------------------------------------ ; 0x02 LD (BC),A ;------------------------------------------------------------------------------ emu_code_02: ldi YL,13 ;set ptr to B rjmp emu_astore ;2 ;------------------------------------------------------------------------------ ; 0x03 INC BC ;------------------------------------------------------------------------------ emu_code_03: ldi YL,12 ;set ptr to BC rjmp emu_inc16 ;2 end of command ;------------------------------------------------------------------------------ ; 0x04 INC B ;------------------------------------------------------------------------------ emu_code_04: ldi YL,13 ;set ptr to B rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x05 DEC B ;------------------------------------------------------------------------------ emu_code_05: ldi YL,13 ;set ptr to B rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x06 LD B,nn ;------------------------------------------------------------------------------ emu_code_06: ldi YL,13 ;set ptr to B rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x07 RLC A ;------------------------------------------------------------------------------ emu_code_07: bst reg_a,7 ;1 bld reg_f,0 ;1 lsl reg_a ;1 bld reg_a,0 ;1 andi reg_f,0xed ;1 clear N+H flags rjmp emu_nloop ;2 end of command ;------------------------------------------------------------------------------ ; 0x09 ADD HL,BC ;------------------------------------------------------------------------------ emu_code_09: ldi YL,12 ;set ptr to BC rjmp emu_add16 ;------------------------------------------------------------------------------ ; 0x0a LD A,(BC) ;------------------------------------------------------------------------------ emu_code_0a: movw XL,reg_c rjmp emu_areadx ;2 exec command ;------------------------------------------------------------------------------ ; 0x0b DEC BC ;------------------------------------------------------------------------------ emu_code_0b: ldi YL,12 ;set ptr to BC rjmp emu_dec16 ;2 exec command ;------------------------------------------------------------------------------ ; 0x0c INC C ;------------------------------------------------------------------------------ emu_code_0c: ldi YL,12 ;set offset to reg C rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x0d DEC C ;------------------------------------------------------------------------------ emu_code_0d: ldi YL,12 ;set offset to reg C rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x0e LD C,nn ;------------------------------------------------------------------------------ emu_code_0e: ldi YL,12 ;set offset to reg C rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x0f RRC A ;------------------------------------------------------------------------------ emu_code_0f: bst reg_a,0 ;1 bld reg_f,0 ;1 lsr reg_a ;1 bld reg_a,7 ;1 andi reg_f,0xed ;1 clear N+H flags rjmp emu_nloop ;2 end of command ;------------------------------------------------------------------------------ ; 0x11 LD DE,nn ;------------------------------------------------------------------------------ emu_code_11: ldi YL,14 ;set ptr to DE rjmp emu_setiw ;get next PC word and write to BC ;------------------------------------------------------------------------------ ; 0x12 LD (DE),A ;------------------------------------------------------------------------------ emu_code_12: ldi YL,14 ;set ptr to DE rjmp emu_astore ;2 end of command ;------------------------------------------------------------------------------ ; 0x13 INC DE ;------------------------------------------------------------------------------ emu_code_13: ldi YL,14 ;set ptr to DE rjmp emu_inc16 ;------------------------------------------------------------------------------ ; 0x14 INC D ;------------------------------------------------------------------------------ emu_code_14: ldi YL,15 ;set ptr to D rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x15 DEC D ;------------------------------------------------------------------------------ emu_code_15: ldi YL,15 ;set ptr to D rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x16 LD D,nn ;------------------------------------------------------------------------------ emu_code_16: ldi YL,15 ;set ptr to D rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x17 RL A ;------------------------------------------------------------------------------ emu_code_17: mov r_dath,reg_f ;1 get carry lsr r_dath rol reg_a rol r_dath bld r_dath,0 bst reg_f,0 andi reg_f,0xed ;1 clear N+H flags rjmp emu_nloop ;2 end of command ;------------------------------------------------------------------------------ ; 0x19 ADD HL,DE ;------------------------------------------------------------------------------ emu_code_19: ldi YL,14 ;set ptr to DE rjmp emu_add16 ;------------------------------------------------------------------------------ ; 0x1a LD A,(DE) ;------------------------------------------------------------------------------ emu_code_1a: movw XL,reg_e rjmp emu_areadx ;2 exec command ;------------------------------------------------------------------------------ ; 0x1b DEC DE ;------------------------------------------------------------------------------ emu_code_1b: ldi YL,14 ;set ptr to DE rjmp emu_dec16 ;------------------------------------------------------------------------------ ; 0x1c INC E ;------------------------------------------------------------------------------ emu_code_1c: ldi YL,14 ;set ptr to E rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x1d DEC E ;------------------------------------------------------------------------------ emu_code_1d: ldi YL,14 ;set ptr to E rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x1e LD E,nn ;------------------------------------------------------------------------------ emu_code_1e: ldi YL,14 ;set ptr to E rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x1f RR A ;------------------------------------------------------------------------------ emu_code_1f: mov r_dath,reg_f ;1 get carry lsr r_dath ror reg_a rol r_dath bld r_dath,0 bst reg_f,0 andi reg_f,0xed ;1 clear N+H flags rjmp emu_nloop ;2 end of command ;------------------------------------------------------------------------------ ; 0x21 LD HL,nnnn ;------------------------------------------------------------------------------ emu_code_21: ldi YL,22 ;set ptr to H rjmp emu_setiw ;get next PC word and write ;------------------------------------------------------------------------------ ; 0x22 LD (nnnn),HL ;------------------------------------------------------------------------------ emu_code_22: emu_nextword ;get addr to XH/XL movw r_datl,reg_l ;copy data movw XL,YL emu_wword ;write 2 bytes rjmp emu_loop ;end of command ;------------------------------------------------------------------------------ ; 0x23 INC HL ;------------------------------------------------------------------------------ emu_code_23: ldi YL,22 ;set ptr to HL rjmp emu_inc16 ;------------------------------------------------------------------------------ ; 0x24 INC H ;------------------------------------------------------------------------------ emu_code_24: ldi YL,23 ;set ptr to H rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x25 DEC H ;------------------------------------------------------------------------------ emu_code_25: ldi YL,23 ;set ptr to H rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x26 LD H,nn ;------------------------------------------------------------------------------ emu_code_26: ldi YL,23 ;set ptr to H rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x27 DA A ;------------------------------------------------------------------------------ emu_code_27: mov r_dath,reg_a ;1 copy A andi r_dath,0x0f ;1 mask bits cpi r_dath,0x0a ;1 check if we must add sbrs reg_f,4 ;1 skip if H set brcs emu_code_27a ;1/2 subi reg_a,0xfa ;1 +6 emu_code_27a: mov r_dath,reg_a ;1 copy A andi r_dath,0xf0 ;1 mask bits cpi r_dath,0x0a ;1 check if we must add clr XL ;1 brcs emu_code_27b ;1/2 ldi XL,0x60 ;1 +60 emu_code_27b: add reg_a,XL brcc emu_code_27c ;no carry ori reg_f,1 ;set carry emu_code_27c: mov ZL,reg_a ;1 ldi ZH,HIGH(emu_flags_log*2) ;1 lpm ZL,Z ;1 andi reg_f,0x3b ;1 or reg_f,ZL ;1 rjmp emu_loop ;2 ;------------------------------------------------------------------------------ ; the level1 jump table ;------------------------------------------------------------------------------ .org 0x4a00 emu_jtab1: rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_01 rjmp emu_code_02 rjmp emu_code_03 rjmp emu_code_04 rjmp emu_code_05 rjmp emu_code_06 rjmp emu_code_07 rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_09 rjmp emu_code_0a rjmp emu_code_0b rjmp emu_code_0c rjmp emu_code_0d rjmp emu_code_0e rjmp emu_code_0f rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_11 rjmp emu_code_12 rjmp emu_code_13 rjmp emu_code_14 rjmp emu_code_15 rjmp emu_code_16 rjmp emu_code_17 rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_19 rjmp emu_code_1a rjmp emu_code_1b rjmp emu_code_1c rjmp emu_code_1d rjmp emu_code_1e rjmp emu_code_1f rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_21 rjmp emu_code_22 rjmp emu_code_23 rjmp emu_code_24 rjmp emu_code_25 rjmp emu_code_26 rjmp emu_code_27 rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_29 rjmp emu_code_2a rjmp emu_code_2b rjmp emu_code_2c rjmp emu_code_2d rjmp emu_code_2e rjmp emu_code_2f rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_31 rjmp emu_code_32 rjmp emu_code_33 rjmp emu_code_34 rjmp emu_code_35 rjmp emu_code_36 rjmp emu_code_37 rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_39 rjmp emu_code_3a rjmp emu_code_3b rjmp emu_code_3c rjmp emu_code_3d rjmp emu_code_3e rjmp emu_code_3f rjmp emu_nloop ;2 LD B,B rjmp emu_code_41 rjmp emu_code_42 rjmp emu_code_43 rjmp emu_code_44 rjmp emu_code_45 rjmp emu_code_46 rjmp emu_code_47 rjmp emu_code_48 rjmp emu_nloop ;2 LD C,C rjmp emu_code_4a rjmp emu_code_4b rjmp emu_code_4c rjmp emu_code_4d rjmp emu_code_4e rjmp emu_code_4f rjmp emu_code_50 rjmp emu_code_51 rjmp emu_nloop ;2 LD D,D rjmp emu_code_53 rjmp emu_code_54 rjmp emu_code_55 rjmp emu_code_56 rjmp emu_code_57 rjmp emu_code_58 rjmp emu_code_59 rjmp emu_code_5a rjmp emu_nloop ;2 LD E,E rjmp emu_code_5c rjmp emu_code_5d rjmp emu_code_5e rjmp emu_code_5f rjmp emu_code_60 rjmp emu_code_61 rjmp emu_code_62 rjmp emu_code_63 rjmp emu_nloop ;2 LD H,H rjmp emu_code_65 rjmp emu_code_66 rjmp emu_code_67 rjmp emu_code_68 rjmp emu_code_69 rjmp emu_code_6a rjmp emu_code_6b rjmp emu_code_6c rjmp emu_nloop ;2 LD L,L rjmp emu_code_6e rjmp emu_code_6f rjmp emu_code_70 rjmp emu_code_71 rjmp emu_code_72 rjmp emu_code_73 rjmp emu_code_74 rjmp emu_code_75 rjmp emu_code_76 rjmp emu_code_77 rjmp emu_code_78 rjmp emu_code_79 rjmp emu_code_7a rjmp emu_code_7b rjmp emu_code_7c rjmp emu_code_7d rjmp emu_code_7e rjmp emu_nloop ;2 LD A,A rjmp emu_code_80 rjmp emu_code_81 rjmp emu_code_82 rjmp emu_code_83 rjmp emu_code_84 rjmp emu_code_85 rjmp emu_code_86 rjmp emu_code_87 rjmp emu_code_88 rjmp emu_code_89 rjmp emu_code_8a rjmp emu_code_8b rjmp emu_code_8c rjmp emu_code_8d rjmp emu_code_8e rjmp emu_code_8f rjmp emu_code_90 rjmp emu_code_91 rjmp emu_code_92 rjmp emu_code_93 rjmp emu_code_94 rjmp emu_code_95 rjmp emu_code_96 rjmp emu_code_97 rjmp emu_code_98 rjmp emu_code_99 rjmp emu_code_9a rjmp emu_code_9b rjmp emu_code_9c rjmp emu_code_9d rjmp emu_code_9e rjmp emu_code_9f rjmp emu_code_a0 rjmp emu_code_a1 rjmp emu_code_a2 rjmp emu_code_a3 rjmp emu_code_a4 rjmp emu_code_a5 rjmp emu_code_a6 rjmp emu_code_a7 rjmp emu_code_a8 rjmp emu_code_a9 rjmp emu_code_aa rjmp emu_code_ab rjmp emu_code_ac rjmp emu_code_ad rjmp emu_code_ae rjmp emu_code_af rjmp emu_code_b0 rjmp emu_code_b1 rjmp emu_code_b2 rjmp emu_code_b3 rjmp emu_code_b4 rjmp emu_code_b5 rjmp emu_code_b6 rjmp emu_code_b7 rjmp emu_code_b8 rjmp emu_code_b9 rjmp emu_code_ba rjmp emu_code_bb rjmp emu_code_bc rjmp emu_code_bd rjmp emu_code_be rjmp emu_code_bf rjmp emu_code_c0 rjmp emu_code_c1 rjmp emu_code_c2 rjmp emu_code_c3 rjmp emu_code_c4 rjmp emu_code_c5 rjmp emu_code_c6 rjmp emu_code_c7 rjmp emu_code_c8 rjmp emu_code_c9 rjmp emu_code_ca rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_cc rjmp emu_code_cd rjmp emu_code_ce rjmp emu_code_cf rjmp emu_code_d0 rjmp emu_code_d1 rjmp emu_code_d2 rjmp emu_code_d3 rjmp emu_code_d4 rjmp emu_code_d5 rjmp emu_code_d6 rjmp emu_code_d7 rjmp emu_code_d8 rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_da rjmp emu_code_db rjmp emu_code_dc rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_de rjmp emu_code_df rjmp emu_code_e0 rjmp emu_code_e1 rjmp emu_code_e2 rjmp emu_code_e3 rjmp emu_code_e4 rjmp emu_code_e5 rjmp emu_code_e6 rjmp emu_code_e7 rjmp emu_code_e8 rjmp emu_code_e9 rjmp emu_code_ea rjmp emu_code_eb rjmp emu_code_ec rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_ee rjmp emu_code_ef rjmp emu_code_f0 rjmp emu_code_f1 rjmp emu_code_f2 rjmp emu_code_f3 rjmp emu_code_f4 rjmp emu_code_f5 rjmp emu_code_f6 rjmp emu_code_f7 rjmp emu_code_f8 rjmp emu_code_f9 rjmp emu_code_fa rjmp emu_code_fb rjmp emu_code_fc rjmp emu_nloop ;2 0x00 NOP rjmp emu_code_fe rjmp emu_code_ff ;------------------------------------------------------------------------------ ; 0x29 ADD HL,HL ;------------------------------------------------------------------------------ emu_code_29: ldi YL,22 ;set ptr to HL rjmp emu_add16 ;------------------------------------------------------------------------------ ; 0x2a LD HL,(nnnn) ;------------------------------------------------------------------------------ emu_code_2a: emu_nextword emu_rword movw reg_l,r_datl rjmp emu_loop ;2 end of command ;------------------------------------------------------------------------------ ; 0x2b DEC HL ;------------------------------------------------------------------------------ emu_code_2b: ldi YL,22 ;set ptr to HL rjmp emu_dec16 ;------------------------------------------------------------------------------ ; 0x2c INC L ;------------------------------------------------------------------------------ emu_code_2c: ldi YL,22 ;set ptr to L rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x2d DEC L ;------------------------------------------------------------------------------ emu_code_2d: ldi YL,22 ;set ptr to L rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x2e LD L,nn ;------------------------------------------------------------------------------ emu_code_2e: ldi YL,22 ;set ptr to L rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x2f CPL ;------------------------------------------------------------------------------ emu_code_2f: com reg_a ;1 ones complement ori reg_f,0x60 ;1 set flags rjmp emu_loop ;2 end of command ;------------------------------------------------------------------------------ ; 0x31 LD SP,nnnn ;------------------------------------------------------------------------------ emu_code_31: ldi YL,0 ;set ptr to SPL ldi YH,1 rjmp emu_setiw ;2 end of command ;------------------------------------------------------------------------------ ; 0x32 LD (nnnn),a ;------------------------------------------------------------------------------ emu_code_32: emu_nextword ; get next PC word to X mov r_datl,reg_a rjmp emu_cstore ;------------------------------------------------------------------------------ ; 0x33 INC SP ;------------------------------------------------------------------------------ emu_code_33: ldi YL,0x4A ;set ptr to SPH rjmp emu_inc16 ;2 end of command ;------------------------------------------------------------------------------ ; 0x34 INC (HL) ;------------------------------------------------------------------------------ emu_code_34: rcall emu_gethl add r_datl,const_1 clt ;clear sub flag in reg_f,SREG rjmp emu_puthl ;------------------------------------------------------------------------------ ; 0x35 DEC (HL) ;------------------------------------------------------------------------------ emu_code_35: rcall emu_gethl sub r_datl,const_1 in reg_f,SREG rjmp emu_puthl ;------------------------------------------------------------------------------ ; 0x36 LD (HL),nn ;------------------------------------------------------------------------------ emu_code_36: emu_nextbyte rjmp emu_puthl ;------------------------------------------------------------------------------ ; 0x37 SCF ;------------------------------------------------------------------------------ emu_code_37: andi reg_f,0xed ;clear H,N ori reg_f,0x01 ;set carry rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x39 ADD HL,SP ;------------------------------------------------------------------------------ emu_code_39: ldi YL,0x4A ;set ptr to SPH rjmp emu_add16 ;------------------------------------------------------------------------------ ; 0x3a LD A,(nnnn) ;------------------------------------------------------------------------------ emu_code_3a: emu_nextword ; get next PC word rjmp emu_areadx ;------------------------------------------------------------------------------ ; 0x3b DEC SP ;------------------------------------------------------------------------------ emu_code_3b: ldi YL,0x4A ;set ptr to SPH rjmp emu_dec16 ;2 end of command ;------------------------------------------------------------------------------ ; 0x3c INC A ;------------------------------------------------------------------------------ emu_code_3c: ldi YL,20 ;reg_a rjmp emu_incb ;------------------------------------------------------------------------------ ; 0x3d DEC A ;------------------------------------------------------------------------------ emu_code_3d: ldi YL,20 ;reg_a rjmp emu_decb ;------------------------------------------------------------------------------ ; 0x3e LD A,nn ;------------------------------------------------------------------------------ emu_code_3e: ldi YL,20 ;reg_a rjmp emu_setib ;------------------------------------------------------------------------------ ; 0x3f CCF ;------------------------------------------------------------------------------ emu_code_3f: andi reg_f,0x9e ;clear H,N,C rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x41 LD B,C ;------------------------------------------------------------------------------ emu_code_41: mov reg_b,reg_c rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x42 LD B,D ;------------------------------------------------------------------------------ emu_code_42: mov reg_b,reg_d rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x43 LD B,E ;------------------------------------------------------------------------------ emu_code_43: mov reg_b,reg_e rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x44 LD B,H ;------------------------------------------------------------------------------ emu_code_44: mov reg_b,reg_h rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x45 LD B,L ;------------------------------------------------------------------------------ emu_code_45: mov reg_b,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x46 LD B,(HL) ;------------------------------------------------------------------------------ emu_code_46: rcall emu_gethl ;get (HL) mov reg_b,r_datl rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x47 LD B,A ;------------------------------------------------------------------------------ emu_code_47: mov reg_b,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x48 LD C,B ;------------------------------------------------------------------------------ emu_code_48: mov reg_c,reg_b rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x4a LD C,D ;------------------------------------------------------------------------------ emu_code_4a: mov reg_c,reg_d rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x4b LD C,E ;------------------------------------------------------------------------------ emu_code_4b: mov reg_c,reg_e rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x4c LD C,H ;------------------------------------------------------------------------------ emu_code_4c: mov reg_c,reg_h rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x4d LD C,L ;------------------------------------------------------------------------------ emu_code_4d: mov reg_c,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x4e LD C,(HL) ;------------------------------------------------------------------------------ emu_code_4e: rcall emu_gethl ;get (HL) mov reg_c,r_datl rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x4f LD C,A ;------------------------------------------------------------------------------ emu_code_4f: mov reg_c,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x50 LD D,B ;------------------------------------------------------------------------------ emu_code_50: mov reg_d,reg_b rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x51 LD D,C ;------------------------------------------------------------------------------ emu_code_51: mov reg_d,reg_c rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x53 LD D,E ;------------------------------------------------------------------------------ emu_code_53: mov reg_d,reg_e rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x54 LD D,H ;------------------------------------------------------------------------------ emu_code_54: mov reg_d,reg_h rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x55 LD D,L ;------------------------------------------------------------------------------ emu_code_55: mov reg_d,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x56 LD D,(HL) ;------------------------------------------------------------------------------ emu_code_56: rcall emu_gethl ;get (HL) mov reg_d,r_dath rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x57 LD D,A ;------------------------------------------------------------------------------ emu_code_57: mov reg_d,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x58 LD E,B ;------------------------------------------------------------------------------ emu_code_58: mov reg_e,reg_b rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x59 LD E,C ;------------------------------------------------------------------------------ emu_code_59: mov reg_e,reg_c rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x5a LD E,D ;------------------------------------------------------------------------------ emu_code_5a: mov reg_e,reg_d rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x5c LD E,H ;------------------------------------------------------------------------------ emu_code_5c: mov reg_e,reg_h rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x5d LD E,L ;------------------------------------------------------------------------------ emu_code_5d: mov reg_e,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x5e LD E,(HL) ;------------------------------------------------------------------------------ emu_code_5e: rcall emu_gethl ;get (HL) mov reg_e,r_dath rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x5f LD E,A ;------------------------------------------------------------------------------ emu_code_5f: mov reg_e,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x60 LD H,B ;------------------------------------------------------------------------------ emu_code_60: mov reg_h,reg_b rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x61 LD H,C ;------------------------------------------------------------------------------ emu_code_61: mov reg_h,reg_c rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0x62 LD H,D ;------------------------------------------------------------------------------ emu_code_62: mov reg_h,reg_d rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0x63 LD H,E ;------------------------------------------------------------------------------ emu_code_63: mov reg_h,reg_e rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0x65 LD H,L ;------------------------------------------------------------------------------ emu_code_65: mov reg_h,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x66 LD H,(HL) ;------------------------------------------------------------------------------ emu_code_66: rcall emu_gethl ;get (HL) mov reg_h,r_datl rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x67 LD H,A ;------------------------------------------------------------------------------ emu_code_67: mov reg_h,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x68 LD L,B ;------------------------------------------------------------------------------ emu_code_68: mov reg_l,reg_b rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x69 LD L,C ;------------------------------------------------------------------------------ emu_code_69: mov reg_l,reg_c rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x6a LD L,D ;------------------------------------------------------------------------------ emu_code_6a: mov reg_l,reg_d rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x6b LD L,E ;------------------------------------------------------------------------------ emu_code_6b: mov reg_l,reg_e rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x6c LD L,H ;------------------------------------------------------------------------------ emu_code_6c: mov reg_l,reg_h rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x6e LD L,(HL) ;------------------------------------------------------------------------------ emu_code_6e: rcall emu_gethl ;get (HL) mov reg_l,r_datl rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x6f LD L,A ;------------------------------------------------------------------------------ emu_code_6f: mov reg_l,reg_a rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x70 LD (HL),B ;------------------------------------------------------------------------------ emu_code_70: mov r_datl,reg_b rjmp emu_puthl ;------------------------------------------------------------------------------ ; 0x71 LD (HL),C ;------------------------------------------------------------------------------ emu_code_71: mov r_datl,reg_c rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x72 LD (HL),D ;------------------------------------------------------------------------------ emu_code_72: mov r_datl,reg_d rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x73 LD (HL),E ;------------------------------------------------------------------------------ emu_code_73: mov r_datl,reg_e rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x74 LD (HL),H ;------------------------------------------------------------------------------ emu_code_74: mov r_datl,reg_h rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x75 LD (HL),L ;------------------------------------------------------------------------------ emu_code_75: mov r_datl,reg_l rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x76 HALT ;------------------------------------------------------------------------------ emu_code_76: debug_end: ret ;end here ;------------------------------------------------------------------------------ ; 0x77 LD (HL),A ;------------------------------------------------------------------------------ emu_code_77: mov r_datl,reg_a rjmp emu_puthl ;store and goto loop ;------------------------------------------------------------------------------ ; 0x78 LD A,B ;------------------------------------------------------------------------------ emu_code_78: mov reg_a,reg_b rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x79 LD A,C ;------------------------------------------------------------------------------ emu_code_79: mov reg_a,reg_c rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x7a LD A,D ;------------------------------------------------------------------------------ emu_code_7a: mov reg_a,reg_d rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x7b LD A,E ;------------------------------------------------------------------------------ emu_code_7b: mov reg_a,reg_e rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x7c LD A,H ;------------------------------------------------------------------------------ emu_code_7c: mov reg_a,reg_h rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x7d LD A,L ;------------------------------------------------------------------------------ emu_code_7d: mov reg_a,reg_l rjmp emu_nloop ;goto loop ;------------------------------------------------------------------------------ ; 0x7e LD A,(HL) ;------------------------------------------------------------------------------ emu_code_7e: rcall emu_gethl mov reg_a,r_datl rjmp emu_loop ;goto loop ;------------------------------------------------------------------------------ ; 0x80 ADD B ;------------------------------------------------------------------------------ emu_code_80: mov r_datl,reg_b ; add r_datl to accu emu_add8: add reg_a,r_datl emu_code_arin: in r_dath,SREG andi r_dath,0x21 ;H+C mov ZL,reg_a ;1 lsl ZH subi ZH,0xf9 ;+7 lpm reg_f,Z ;3 or reg_f,r_dath ;1 mov ZH,jtab_hi ;1 rjmp emu_nloop ;2 ;------------------------------------------------------------------------------ ; 0x81 ADD C ;------------------------------------------------------------------------------ emu_code_81: mov r_datl,reg_c rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x82 ADD D ;------------------------------------------------------------------------------ emu_code_82: mov r_datl,reg_d rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x83 ADD E ;------------------------------------------------------------------------------ emu_code_83: mov r_datl,reg_e rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x84 ADD H ;------------------------------------------------------------------------------ emu_code_84: mov r_datl,reg_h rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x85 ADD L ;------------------------------------------------------------------------------ emu_code_85: mov r_datl,reg_l rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x86 ADD (HL) ;------------------------------------------------------------------------------ emu_code_86: rcall emu_gethl add reg_a,r_datl emu_code_ari: in r_dath,SREG andi r_dath,0x21 ;H+C mov ZL,reg_a ;1 lsl ZH subi ZH,0xf9 lpm reg_f,Z ;3 or reg_f,r_dath ;1 mov ZH,jtab_hi ;1 rjmp emu_nloop ;2 ;------------------------------------------------------------------------------ ; 0x87 ADD A ;------------------------------------------------------------------------------ emu_code_87: mov r_datl,reg_a rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x88 ADC B ;------------------------------------------------------------------------------ emu_code_88: mov r_datl,reg_b ; add r_datl to accu with carry emu_adc8: clt sbrc reg_f,0 set adc reg_a,r_datl rjmp emu_code_arin ;2 goto loop ;------------------------------------------------------------------------------ ; 0x89 ADC C ;------------------------------------------------------------------------------ emu_code_89: mov r_datl,reg_c rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x8a ADC D ;------------------------------------------------------------------------------ emu_code_8a: mov r_datl,reg_d rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x8b ADC E ;------------------------------------------------------------------------------ emu_code_8b: mov r_datl,reg_e rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x8c ADC H ;------------------------------------------------------------------------------ emu_code_8c: mov r_datl,reg_h rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x8d ADC L ;------------------------------------------------------------------------------ emu_code_8d: mov r_datl,reg_l rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x8e ADC (HL) ;------------------------------------------------------------------------------ emu_code_8e: rcall emu_gethl clt sbrc reg_f,0 set adc reg_a,r_datl rjmp emu_code_ari ;2 goto loop ;------------------------------------------------------------------------------ ; 0x8f ADC A ;------------------------------------------------------------------------------ emu_code_8f: mov r_datl,reg_a rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x90 SUB B ;------------------------------------------------------------------------------ emu_code_90: mov r_datl,reg_b ; sub r_datl from accu emu_sub8: sub reg_a,r_datl rjmp emu_code_arin ;2 goto loop ;------------------------------------------------------------------------------ ; 0x91 SUB C ;------------------------------------------------------------------------------ emu_code_91: mov r_datl,reg_c rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x92 SUB D ;------------------------------------------------------------------------------ emu_code_92: mov r_datl,reg_d rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x93 SUB E ;------------------------------------------------------------------------------ emu_code_93: mov r_datl,reg_e rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x94 SUB H ;------------------------------------------------------------------------------ emu_code_94: mov r_datl,reg_h rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x95 SUB L ;------------------------------------------------------------------------------ emu_code_95: mov r_datl,reg_l rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x96 SUB (HL) ;------------------------------------------------------------------------------ emu_code_96: rcall emu_gethl sub reg_a,r_datl rjmp emu_code_ari ;2 goto loop ;------------------------------------------------------------------------------ ; 0x97 SUB A ;------------------------------------------------------------------------------ emu_code_97: mov r_datl,reg_a rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x98 SBC B ;------------------------------------------------------------------------------ emu_code_98: mov r_datl,reg_b ; sub r_datl from accu with carry emu_sbc8: clt sbrc reg_f,0 set sbc reg_a,r_datl rjmp emu_code_arin ;2 goto loop ;------------------------------------------------------------------------------ ; 0x99 SBC C ;------------------------------------------------------------------------------ emu_code_99: mov r_datl,reg_c rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x9a SBC D ;------------------------------------------------------------------------------ emu_code_9a: mov r_datl,reg_d rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x9b SBC E ;------------------------------------------------------------------------------ emu_code_9b: mov r_datl,reg_e rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x9c SBC H ;------------------------------------------------------------------------------ emu_code_9c: mov r_datl,reg_h rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x9d SBC L ;------------------------------------------------------------------------------ emu_code_9d: mov r_datl,reg_l rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0x9e SBC (HL) ;------------------------------------------------------------------------------ emu_code_9e: rcall emu_gethl clt sbrc reg_f,0 set sbc reg_a,r_datl rjmp emu_code_ari ;2 goto loop ;------------------------------------------------------------------------------ ; 0x9f SBC A ;------------------------------------------------------------------------------ emu_code_9f: mov r_datl,reg_a rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xa0 AND B ;------------------------------------------------------------------------------ emu_code_a0: mov r_datl,reg_b emu_code_and: and reg_a,r_datl emu_code_logn: mov ZL,reg_a lsl ZH subi ZH,0xf9 ;+7 lpm reg_f,Z ;3 mov ZH,jtab_hi ;1 rjmp emu_nloop ;2 ;------------------------------------------------------------------------------ ; 0xa1 AND C ;------------------------------------------------------------------------------ emu_code_a1: mov r_datl,reg_c ;get C rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa2 AND D ;------------------------------------------------------------------------------ emu_code_a2: mov r_datl,reg_d ;get D rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa3 AND E ;------------------------------------------------------------------------------ emu_code_a3: mov r_datl,reg_e ;get E rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa4 AND H ;------------------------------------------------------------------------------ emu_code_a4: mov r_datl,reg_h rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa5 AND L ;------------------------------------------------------------------------------ emu_code_a5: mov r_datl,reg_l rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa6 AND (HL) ;------------------------------------------------------------------------------ emu_code_a6: rcall emu_gethl and reg_a,r_datl emu_code_log: mov ZL,reg_a lsl ZH subi ZH,0xf9 lpm reg_f,Z ;3 mov ZH,jtab_hi ;1 rjmp emu_loop ;2 ;------------------------------------------------------------------------------ ; 0xa7 AND A ;------------------------------------------------------------------------------ emu_code_a7: mov r_datl,reg_a ;get A rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xa8 XOR B ;------------------------------------------------------------------------------ emu_code_a8: mov r_datl,reg_b ;get B emu_code_xor: eor reg_a,r_datl rjmp emu_code_logn ;2 ;------------------------------------------------------------------------------ ; 0xa9 XOR C ;------------------------------------------------------------------------------ emu_code_a9: mov r_datl,reg_c ;get C rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xaa XOR D ;------------------------------------------------------------------------------ emu_code_aa: mov r_datl,reg_d ;get D rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xab XOR E ;------------------------------------------------------------------------------ emu_code_ab: mov r_datl,reg_e ;get E rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xac XOR H ;------------------------------------------------------------------------------ emu_code_ac: mov r_datl,reg_h rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xad XOR L ;------------------------------------------------------------------------------ emu_code_ad: mov r_datl,reg_l rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xae XOR (HL) ;------------------------------------------------------------------------------ emu_code_ae: rcall emu_gethl eor reg_a,r_datl rjmp emu_code_log ;------------------------------------------------------------------------------ ; 0xaf XOR A ;------------------------------------------------------------------------------ emu_code_af: mov r_datl,reg_a ;get A rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xb0 OR B ;------------------------------------------------------------------------------ emu_code_b0: mov r_datl,reg_b ;get B emu_code_or: or reg_a,r_datl rjmp emu_code_logn ;2 ;------------------------------------------------------------------------------ ; 0xb1 OR C ;------------------------------------------------------------------------------ emu_code_b1: mov r_datl,reg_c ;get C rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb2 OR D ;------------------------------------------------------------------------------ emu_code_b2: mov r_datl,reg_d ;get D rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb3 OR E ;------------------------------------------------------------------------------ emu_code_b3: mov r_datl,reg_e ;get E rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb4 OR H ;------------------------------------------------------------------------------ emu_code_b4: mov r_datl,reg_h rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb5 OR L ;------------------------------------------------------------------------------ emu_code_b5: mov r_datl,reg_l rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb6 OR (HL) ;------------------------------------------------------------------------------ emu_code_b6: rcall emu_gethl or reg_a,r_datl rjmp emu_code_log ;------------------------------------------------------------------------------ ; 0xb7 OR A ;------------------------------------------------------------------------------ emu_code_b7: mov r_datl,reg_a ;get A rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xb8 CMP B ;------------------------------------------------------------------------------ emu_code_b8: mov r_datl,reg_b ; compare r_datl with accu emu_cmp8: cp reg_a,r_datl rjmp emu_code_arin ;2 goto loop ;------------------------------------------------------------------------------ ; 0xb9 CMP C ;------------------------------------------------------------------------------ emu_code_b9: mov r_datl,reg_c ;get C rjmp emu_cmp8 ;------------------------------------------------------------------------------ ; 0xba CMP D ;------------------------------------------------------------------------------ emu_code_ba: mov r_datl,reg_d ;get D rjmp emu_cmp8 ;------------------------------------------------------------------------------ ; 0xbb CMP E ;------------------------------------------------------------------------------ emu_code_bb: mov r_datl,reg_e ;get E rjmp emu_cmp8 ;------------------------------------------------------------------------------ ; 0xbc CMP H ;------------------------------------------------------------------------------ emu_code_bc: mov r_datl,reg_h rjmp emu_cmp8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xbd CMP L ;------------------------------------------------------------------------------ emu_code_bd: mov r_datl,reg_l rjmp emu_cmp8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xbe CMP (HL) ;------------------------------------------------------------------------------ emu_code_be: rcall emu_gethl cp reg_a,r_datl rjmp emu_code_arin ;2 goto loop ;------------------------------------------------------------------------------ ; 0xbf CMP A ;------------------------------------------------------------------------------ emu_code_bf: mov r_dath,reg_a ;get A rjmp emu_cmp8 ;------------------------------------------------------------------------------ ; 0xc0 RNZ ;------------------------------------------------------------------------------ emu_code_c0: mov r_dath,reg_f com r_dath bst r_dath,1 ;/Z rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xc1 POP BC ;------------------------------------------------------------------------------ emu_code_c1: ldi YL,12 rjmp emu_popword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xc2 JPNZ nnnn ;------------------------------------------------------------------------------ emu_code_c2: mov r_dath,reg_f com r_dath bst r_dath,1 ;/Z rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xc3 JMP nnnn ;------------------------------------------------------------------------------ emu_code_c3: set rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xc4 CANZ nnnn ;------------------------------------------------------------------------------ emu_code_c4: mov r_dath,reg_f com r_dath bst r_dath,1 ;/Z rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xc5 PUSH BC ;------------------------------------------------------------------------------ emu_code_c5: ldi YL,12 rjmp emu_pushword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xc6 ADD nn ;------------------------------------------------------------------------------ emu_code_c6: emu_nextbyte ;8 get next PC byte rjmp emu_add8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xc7 RST 00H ;------------------------------------------------------------------------------ emu_code_c7: ldi XL,0x00 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xc8 RZ ;------------------------------------------------------------------------------ emu_code_c8: bst reg_f,1 rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xc9 RET ;------------------------------------------------------------------------------ emu_code_c9: set rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xca JPZ nnnn ;------------------------------------------------------------------------------ emu_code_ca: bst reg_f,1 rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xcc CAZ nnnn ;------------------------------------------------------------------------------ emu_code_cc: bst reg_f,1 rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xcd CALL nnnn ;------------------------------------------------------------------------------ emu_code_cd: set rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xce ADC nn ;------------------------------------------------------------------------------ emu_code_ce: emu_nextbyte ;8 get next PC byte rjmp emu_adc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xcf RST 08H ;------------------------------------------------------------------------------ emu_code_cf: ldi XL,0x08 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xd0 RNC ;------------------------------------------------------------------------------ emu_code_d0: mov r_dath,reg_f com r_dath bst r_dath,0 ;/C rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xd1 POP DE ;------------------------------------------------------------------------------ emu_code_d1: ldi YL,14 rjmp emu_popword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xd2 JPNC nnnn ;------------------------------------------------------------------------------ emu_code_d2: mov r_dath,reg_f com r_dath bst r_dath,0 ;/C rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xd3 out nn ;------------------------------------------------------------------------------ emu_code_d3: emu_nextbyte ;8 get next PC byte rjmp emu_output ;goto loop ;------------------------------------------------------------------------------ ; 0xd4 CANC nnnn ;------------------------------------------------------------------------------ emu_code_d4: mov r_dath,reg_f com r_dath bst r_dath,0 ;/C rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xd5 PUSH DE ;------------------------------------------------------------------------------ emu_code_d5: ldi YL,14 rjmp emu_pushword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xd6 SUB nn ;------------------------------------------------------------------------------ emu_code_d6: emu_nextbyte ;8 get next PC byte rjmp emu_sub8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xd7 RST 10H ;------------------------------------------------------------------------------ emu_code_d7: ldi XL,0x10 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xd8 RC ;------------------------------------------------------------------------------ emu_code_d8: bst reg_f,0 rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xda JPC nnnn ;------------------------------------------------------------------------------ emu_code_da: bst reg_f,0 rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xdb IN nn ;------------------------------------------------------------------------------ emu_code_db: emu_nextbyte ;8 get next PC byte rjmp emu_input ;goto loop ;------------------------------------------------------------------------------ ; 0xdc CAC nnnn ;------------------------------------------------------------------------------ emu_code_dc: bst reg_f,0 rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xde SBC nn ;------------------------------------------------------------------------------ emu_code_de: emu_nextbyte ;8 get next PC byte rjmp emu_sbc8 ;set flags and goto loop ;------------------------------------------------------------------------------ ; 0xdf RST 18H ;------------------------------------------------------------------------------ emu_code_df: ldi XL,0x18 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xe0 RPO ;------------------------------------------------------------------------------ emu_code_e0: mov r_dath,reg_f com r_dath bst r_dath,3 ;/P rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xe1 POP HL ;------------------------------------------------------------------------------ emu_code_e1: ldi YL,22 rjmp emu_popword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xe2 JPPO nnnn ;------------------------------------------------------------------------------ emu_code_e2: mov r_dath,reg_f com r_dath bst r_dath,3 ;/P rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xe3 EX (SP),HL ;------------------------------------------------------------------------------ emu_code_e3: movw XL,r0 ; emu_rword adiw XL,2 movw r0,XL movw YL,r_datl movw r_datl,reg_l movw reg_l,YL ldi YL,16 clr YH rjmp emu_pushword ;------------------------------------------------------------------------------ ; 0xe4 CAPO nnnn ;------------------------------------------------------------------------------ emu_code_e4: mov r_dath,reg_f com r_dath bst r_dath,3 ;/P rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xe5 PUSH HL ;------------------------------------------------------------------------------ emu_code_e5: ldi YL,22 rjmp emu_pushword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xe6 AND nn ;------------------------------------------------------------------------------ emu_code_e6: emu_nextbyte rjmp emu_code_and ;------------------------------------------------------------------------------ ; 0xe7 RST 20H ;------------------------------------------------------------------------------ emu_code_e7: ldi XL,0x20 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xe8 RPE ;------------------------------------------------------------------------------ emu_code_e8: bst reg_f,3 ;P rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xe9 JMP HL ;------------------------------------------------------------------------------ emu_code_e9: movw PC_L,reg_l rjmp emu_loop ;------------------------------------------------------------------------------ ; 0xea JPPE nnnn ;------------------------------------------------------------------------------ emu_code_ea: bst reg_f,3 ;P rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xeb EX DE,HL ;------------------------------------------------------------------------------ emu_code_eb: movw XL,reg_e movw reg_e,reg_l movw reg_l,XL rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0xec CAPE nnnn ;------------------------------------------------------------------------------ emu_code_ec: bst reg_f,3 ;P rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xee XOR n ;------------------------------------------------------------------------------ emu_code_ee: emu_nextbyte rjmp emu_code_xor ;------------------------------------------------------------------------------ ; 0xef RST 28H ;------------------------------------------------------------------------------ emu_code_ef: ldi XL,0x28 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xf0 RP ;------------------------------------------------------------------------------ emu_code_f0: mov r_dath,reg_f com r_dath bst r_dath,2 ;/S rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xf1 POP AF ;------------------------------------------------------------------------------ emu_code_f1: ldi YL,20 rjmp emu_popword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xf2 JPP nnnn ;------------------------------------------------------------------------------ emu_code_f2: mov r_dath,reg_f com r_dath bst r_dath,2 ;/S rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xf3 DI ;------------------------------------------------------------------------------ emu_code_f3: rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0xf4 CAP nnnn ;------------------------------------------------------------------------------ emu_code_f4: mov r_dath,reg_f com r_dath bst r_dath,2 ;/S rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xf5 PUSH AF ;------------------------------------------------------------------------------ emu_code_f5: ldi YL,20 rjmp emu_pushword ;get two bytes from stack ;------------------------------------------------------------------------------ ; 0xf6 OR n ;------------------------------------------------------------------------------ emu_code_f6: emu_nextbyte rjmp emu_code_or ;------------------------------------------------------------------------------ ; 0xf7 RST 30H ;------------------------------------------------------------------------------ emu_code_f7: ldi XL,0x30 rjmp emu_rst ;goto loop ;------------------------------------------------------------------------------ ; 0xf8 RM ;------------------------------------------------------------------------------ emu_code_f8: bst reg_f,2 ;S rjmp emu_ret ;goto loop ;------------------------------------------------------------------------------ ; 0xf9 LD SP,HL ;------------------------------------------------------------------------------ emu_code_f9: ldi YL,0x4A st Y,reg_l std Y+1,reg_h rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0xfa JPM nnnn ;------------------------------------------------------------------------------ emu_code_fa: bst reg_f,3 ;P rjmp emu_jabs ;goto loop ;------------------------------------------------------------------------------ ; 0xfb EI ;------------------------------------------------------------------------------ emu_code_fb: rjmp emu_nloop ;------------------------------------------------------------------------------ ; 0xfc CAM nnnn ;------------------------------------------------------------------------------ emu_code_fc: bst reg_f,3 ;P rjmp emu_call ;goto loop ;------------------------------------------------------------------------------ ; 0xfe CMP nn ;------------------------------------------------------------------------------ emu_code_fe: emu_nextbyte rjmp emu_cmp8 ;------------------------------------------------------------------------------ ; 0xff RST 38H ;------------------------------------------------------------------------------ emu_code_ff: ldi XL,0x38 rjmp emu_rst ;goto loop ;The hw is modelled to make writing a CPM BIOS easier. ;Ports: ;IN(x) ;0 - Con status. Returns 0xFF if the UART has a byte, 0 otherwise. ;1 - Console input, aka UDR. ;OUT(X) ;2 - Console output ;16 - Track select ;18 - Sector select ;20 - Write addr l ;21 - Write addr h ;22 - Trigger - write 1 to read, 2 to write a sector using the above info. ; This will automatically move track, sector and dma addr to the next sector. emu_input: cpi ZL,0x00 ;console status brne emu_input_10 lds reg_a,libmio_keycode cpi reg_a,0 breq emu_input_1 ldi reg_a,0xff emu_input_1: rjmp emu_nloop emu_input_10: lds reg_a,libmio_lastkey rjmp emu_nloop emu_output: cpi ZL,0x02 brne emu_output_10 emu_charout: push reg_a api_outchar pop reg_a rjmp emu_nloop emu_output_10: mov XL,reg_a api_setborder rjmp emu_nloop .org 0x4d80 emu_flags_log: .db 0x0a,0x00,0x00,0x08, 0x00,0x08,0x08,0x00, 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08 ;0n .db 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08, 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00 ;1n .db 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08, 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00 ;2n .db 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00, 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08 ;3n .db 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08, 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00 ;4n .db 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00, 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08 ;5n .db 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00, 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08 ;6n .db 0x00,0x08,0x08,0x00, 0x08,0x00,0x00,0x08, 0x08,0x00,0x00,0x08, 0x00,0x08,0x08,0x00 ;7n .db 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c, 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04 ;8n .db 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04, 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c ;9n .db 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04, 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c ;an .db 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c, 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04 ;bn .db 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04, 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c ;cn .db 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c, 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04 ;dn .db 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c, 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04 ;en .db 0x0c,0x04,0x04,0x0c, 0x04,0x0c,0x0c,0x04, 0x04,0x0c,0x0c,0x04, 0x0c,0x04,0x04,0x0c ;fn emu_flags_a: SOURCE_142/SOURCE_program/cbterm/0000755000175000001440000000000011713042123015466 5ustar joergusersSOURCE_142/SOURCE_program/cbterm/cbterm.asm0000755000175000001440000003457311725741460017500 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# cbterm # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6c00 ; "...... N" start: .db "CBTerm-mini-N",0xec,0xff,0xff ;icon def .db " " .db 0xe3,0x86,0x7f,0xe3 .db " " ;dummy data .db 0x00,0x00,0x00,0x00 .org 0x6c10 ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ cbterm_main: ldi XL,1 sts libmio_channel,const_0 ;output to screen sts libmio_vidmode,const_0 ;standard video mode ldi XL,0x07 ;color scheme (white on black) api_setcolor ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,21 api_whbox ldi XL,0x71 ;color scheme (cyan on black) api_setcolor cbterm_main_1: api_thistext .db 1,2,"CBTerm mini V0.10",0 ldi XL,LOW(cbterm_mbar-start) ldi XH,HIGH(cbterm_mbar-start) api_dataptr clt ;read menu from flash api_drawmenu rcall cbterm_nmode rcall cbterm_cursor ldi tempreg1,0xff sts libmio_rcnt,tempreg1 rjmp cbterm_mloop ;------------------------------------------------------------------------------ ;show mode ;------------------------------------------------------------------------------ cbterm_nmode: ldi XL,0x70 ;color scheme (black on white) api_setcolor api_thistext .db 1,20,"-normal-",0,0 rjmp cbterm_cls cbterm_dmode: ldi XL,0x72 ;color scheme (red on white) api_setcolor api_thistext .db 1,20,"-dialog-",0,0 rjmp cbterm_cls ;------------------------------------------------------------------------------ ;the main loop ;------------------------------------------------------------------------------ cbterm_mloop: lds tempreg1,libmio_keycode cpi tempreg1,0x00 ;no key breq cbterm_mloop_1 api_screenshot rcall cbterm_cser ;check serial rjmp cbterm_mloop cbterm_mloop_1: api_screenshot rcall cbterm_cser ;check serial lds tempreg1,libmio_keycode cpi tempreg1,0x00 ;no key breq cbterm_mloop_1 cpi tempreg1,0xed ;ESC brne cbterm_mloop_2 api_askthis .db 0x2f,"Exit Program ?",0 cpi tempreg1,0 ;no breq cbterm_mloop sts libmio_tcnt,const_0 ret ;exit program cbterm_mloop_2: cpi tempreg1,0xf1 ;F1 = mode brne cbterm_mloop_3 lds tempreg1,libmio_vram+51 cpi tempreg1,'n' brne cbterm_mloop_d rcall cbterm_dmode rjmp cbterm_mloop_w cbterm_mloop_d: rcall cbterm_nmode cbterm_mloop_w: api_nokey rcall cbterm_cursor rjmp cbterm_mloop cbterm_mloop_3: cpi tempreg1,0xf3 ;F3 = receive brne cbterm_mloop_4 rcall cbterm_rlst cpi tempreg4,0xff ;no program selected breq cbterm_mloop_a api_getprog cp tempreg4,ZL brne cbterm_mloop_b api_alertthis .db 0x2f,"Cannot overwrite!",0 rjmp cbterm_mloop cbterm_mloop_b: rcall cbterm_trabor mov ctrl,tempreg4 sts libmio_rcnt,const_0 api_preceive api_srestore api_nokey cbterm_mloop_a: rjmp cbterm_mloop cbterm_mloop_4: cpi tempreg1,0xf2 ;F2 = send brne cbterm_mloop_5 rcall cbterm_slst cpi tempreg4,0xff ;no program selected breq cbterm_mloop_a rcall cbterm_trabos mov ctrl,tempreg4 api_nokey sts libmio_rcnt,const_0 api_psend api_srestore api_nokey rjmp cbterm_mloop cbterm_mloop_5: cpi tempreg1,0xf4 ;F4 = clear brne cbterm_mloop_6 rcall cbterm_cls rcall cbterm_cursor ldi tempreg1,0x0c api_psend rjmp cbterm_mloop cbterm_mloop_6: cpi tempreg1,0xea ;ENTER brne cbterm_mloop_7 api_putsernl rcall cbterm_ochar rjmp cbterm_mloop cbterm_mloop_7: cpi tempreg1,0xec ;BACKSPACE brne cbterm_mloop_8 rcall cbterm_rchr ;remove char ldi tempreg1,0x08 ;code for BS api_putser rjmp cbterm_mloop cbterm_mloop_8: cpi tempreg1,0x80 brcc cbterm_mloop_9 push tempreg1 rcall cbterm_ochar pop tempreg1 api_putser ;put out char cbterm_mloop_9: rjmp cbterm_mloop ;------------------------------------------------------------------------------ ;check serial input ;------------------------------------------------------------------------------ cbterm_cser: lds tempreg1,libmio_rcnt cpi tempreg1,0 breq cbterm_cser_1 ret cbterm_cser_1: lds tempreg1,libmio_rdat ldi r16,0xff sts libmio_rcnt,r16 cpi tempreg1,0x0c ;clear brne cbterm_cser_2 rcall cbterm_cls rjmp cbterm_cursor cbterm_cser_2: cpi tempreg1,0x0a ;newline brne cbterm_cser_3 lds r16,libmio_sysconf andi r16,0xc0 cpi r16,0x40 ;only CR? breq cbterm_cser_v ;display char rjmp cbterm_newl cbterm_cser_3: cpi tempreg1,0x0d ;carriage return brne cbterm_cser_5 lds r16,libmio_sysconf andi r16,0xc0 cpi r16,0x80 ;only LF? breq cbterm_cser_v ;view only cpi r16,0xc0 ;CR+LF brne cbterm_cser_4 ret cbterm_cser_4: rjmp cbterm_newl cbterm_cser_5: cpi tempreg1,0x08 ;backspace brne cbterm_cser_v ;no rjmp cbterm_rchr cbterm_cser_v: rcall cbterm_char rjmp cbterm_cursor ;------------------------------------------------------------------------------ ;clear text area ;------------------------------------------------------------------------------ cbterm_cls: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi tempreg1,0x20 ;space ldi r16,18 ;lines cbterm_cls_1: ldi r17,28 ;bytes to do cbterm_cls_2: st X+,tempreg1 dec r17 brne cbterm_cls_2 adiw XL,2 dec r16 brne cbterm_cls_1 ldi XL,LOW(libmio_vram+91+690) ldi XH,HIGH(libmio_vram+91+690) ldi tempreg1,0x0f ;white on black ldi r16,18 ;lines cbterm_cls_3: ldi r17,28 ;bytes to do cbterm_cls_4: st X+,tempreg1 dec r17 brne cbterm_cls_4 adiw XL,2 dec r16 brne cbterm_cls_3 clr r18 ;X=0 clr r19 ;Y=0 ret ;------------------------------------------------------------------------------ ;scroll text area ;------------------------------------------------------------------------------ cbterm_scroll: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi YL,LOW(libmio_vram+121) ldi YH,HIGH(libmio_vram+121) ldi r16,17 ;lines cbterm_scroll1: ldi r17,28 ;bytes to do cbterm_scroll2: ld tempreg1,Y+ st X+,tempreg1 dec r17 brne cbterm_scroll2 adiw XL,2 adiw YL,2 dec r16 brne cbterm_scroll1 ldi tempreg1,0x20 ;space ldi r17,28 ;bytes to do cbterm_scroll3: st X+,tempreg1 dec r17 brne cbterm_scroll3 ldi XL,LOW(libmio_vram+91+690) ldi XH,HIGH(libmio_vram+91+690) ldi YL,LOW(libmio_vram+121+690) ldi YH,HIGH(libmio_vram+121+690) ldi r16,17 ;lines cbterm_scroll5: ldi r17,28 ;bytes to do cbterm_scroll6: ld tempreg1,Y+ st X+,tempreg1 dec r17 brne cbterm_scroll6 adiw XL,2 adiw YL,2 dec r16 brne cbterm_scroll5 ldi tempreg1,0x0f ;white on black ldi r17,28 ;bytes to do cbterm_scroll7: st X+,tempreg1 dec r17 brne cbterm_scroll7 ret ;------------------------------------------------------------------------------ ;write char ; tempreg1=char ;------------------------------------------------------------------------------ cbterm_char: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi r16,30 mul r16,r19 ;calc line offset add XL,r0 adc XH,r1 add XL,r18 ;column offset adc XH,const_0 st X,tempreg1 lds tempreg1,libmio_vram+51 cpi tempreg1,'n' breq cbterm_char_1 ldi tempreg1,LOW(690) add XL,tempreg1 ldi tempreg1,HIGH(690) adc XH,tempreg1 ldi tempreg1,0x04 ;red st X,tempreg1 cbterm_char_1: inc r18 ;column+1 cpi r18,28 brcs cbterm_char_e clr r18 inc r19 cpi r19,18 brcs cbterm_char_e dec r19 rjmp cbterm_scroll cbterm_char_e: ret ;------------------------------------------------------------------------------ ;write own char ; tempreg1=char ;------------------------------------------------------------------------------ cbterm_ochar: lds r16,libmio_vram+51 cpi r16,'d' breq cbterm_ochar_0 ret cbterm_ochar_0: cpi tempreg1,0xea ;ENTER breq cbterm_ochar_n ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi r16,30 mul r16,r19 ;calc line offset add XL,r0 adc XH,r1 add XL,r18 ;column offset adc XH,const_0 st X,tempreg1 ldi tempreg1,LOW(690) add XL,tempreg1 ldi tempreg1,HIGH(690) adc XH,tempreg1 ldi tempreg1,0x08 ;green st X,tempreg1 cbterm_ochar_1: inc r18 ;column+1 cpi r18,28 brcs cbterm_ochar_e clr r18 inc r19 cpi r19,18 brcs cbterm_ochar_e dec r19 rcall cbterm_scroll cbterm_ochar_e: rjmp cbterm_cursor cbterm_ochar_n: ;------------------------------------------------------------------------------ ;newline ;------------------------------------------------------------------------------ cbterm_newl: rcall cbterm_ncursor clr r18 inc r19 cpi r19,17 brcs cbterm_newl_e dec r19 rcall cbterm_scroll cbterm_newl_e: ;------------------------------------------------------------------------------ ;write cursor ;------------------------------------------------------------------------------ cbterm_cursor: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi r16,30 mul r16,r19 ;calc line offset add XL,r0 adc XH,r1 add XL,r18 ;column offset adc XH,const_0 ldi r16,0x10 ;cursor st X,r16 ldi r16,LOW(690) add XL,r16 ldi r16,HIGH(690) adc XH,r16 ldi r16,0x0f st X,r16 ret ;------------------------------------------------------------------------------ ;delete cursor ;------------------------------------------------------------------------------ cbterm_ncursor: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi r16,30 mul r16,r19 ;calc line offset add XL,r0 adc XH,r1 add XL,r18 ;column offset adc XH,const_0 ldi r16,0x20 ;space st X,r16 ret ;------------------------------------------------------------------------------ ;remove last char ;------------------------------------------------------------------------------ cbterm_rchr: cpi r18,0 ;at the beginning? brne cbterm_rchr_1 ret ;do nothing cbterm_rchr_1: ldi XL,LOW(libmio_vram+91) ldi XH,HIGH(libmio_vram+91) ldi r16,30 mul r16,r19 ;calc line offset add XL,r0 adc XH,r1 add XL,r18 ;column offset adc XH,const_0 ldi r16,0x20 ;space st X,r16 ldi r16,LOW(690) add XL,r16 ldi r16,HIGH(690) adc XH,r16 ldi r16,0x0f st X,r16 dec r18 rjmp cbterm_cursor ;------------------------------------------------------------------------------ ;show program list ;------------------------------------------------------------------------------ cbterm_slst: api_sbackup ldi XL,0x40 ;color scheme (black on yellow) api_setcolor ldi YL,6 ;maximal sized box ldi YH,6 ldi ZL,24 ldi ZH,17 api_whbox ldi XL,0x04 ;color scheme (black on yellow) api_setcolor api_thistext .db 7,8,"Send Program",0,0 ldi tempreg3,0x80 rjmp cbterm_lst_01 cbterm_rlst: api_sbackup ldi XL,0x17 ;color scheme (black on yellow) api_setcolor ldi YL,6 ;maximal sized box ldi YH,6 ldi ZL,24 ldi ZH,17 api_whbox ldi XL,0x71 ;color scheme (black on yellow) api_setcolor api_thistext .db 7,8,"Receive Program",0 ldi tempreg3,0x2e cbterm_lst_01: ldi XL,LOW(libmio_vram+8+9*libmio_cols) ldi XH,HIGH(libmio_vram+8+9*libmio_cols) ldi ZL,0 ldi ZH,0x90 ;start of program area ldi r16,8 ;programs to do cbterm_lst_02: ldi r17,12 ;bytes per name ldi tempreg1,'P' st X+,tempreg1 ldi tempreg1,'9' sub tempreg1,r16 st X+,tempreg1 ldi tempreg1,':' st X+,tempreg1 ldi r17,12 ;bytes per name cbterm_lst_04: lpm tempreg1,Z+ st X+,tempreg1 dec r17 brne cbterm_lst_04 adiw XL,15 ;next line subi ZH,0xf4 ;next program clr ZL dec r16 brne cbterm_lst_02 ;program loop ldi tempreg4,0 ;initial position cbterm_lst_10: ldi XL,LOW(libmio_vram+698+9*libmio_cols) ldi XH,HIGH(libmio_vram+698+9*libmio_cols) ldi r16,0 cbterm_lst_12: mov tempreg1,tempreg3 ;get color cp r16,tempreg4 brne cbterm_lst_13 ldi tempreg1,0x0c ;black on yellow cbterm_lst_13: ldi r17,15 ;bytes per name cbterm_lst_14: st X+,tempreg1 dec r17 brne cbterm_lst_14 adiw XL,15 ;next line inc r16 cpi r16,8 brne cbterm_lst_12 ;program loop cbterm_lst_20: api_screenshot api_waitkey cpi tempreg1,0xed ;esc brne cbterm_lst_22 ldi tempreg4,0xff api_srestore api_nokey ret cbterm_lst_22: cpi tempreg1,0xea ;enter brne cbterm_lst_24 api_srestore api_nokey ret cbterm_lst_24: cpi tempreg1,0xe4 ;up brne cbterm_lst_26 cpi tempreg4,0 breq cbterm_lst_20 dec tempreg4 rjmp cbterm_lst_10 cbterm_lst_26: cpi tempreg1,0xe5 ;down brne cbterm_lst_20 cpi tempreg4,7 breq cbterm_lst_20 inc tempreg4 rjmp cbterm_lst_10 ;------------------------------------------------------------------------------ ;transfer-alertbox ;------------------------------------------------------------------------------ cbterm_trabor: api_sbackup ldi tempreg1,0x4c ;yellow on red sts libmio_color,tempreg1 ;set new color ldi YL,5 ldi YH,10 ldi ZL,24 ldi ZH,12 api_wbox ;draw window api_thistext .db 11,6,"Receive Data...",0 ret cbterm_trabos: api_sbackup ldi tempreg1,0x4c ;yellow on red sts libmio_color,tempreg1 ;set new color ldi YL,5 ldi YH,10 ldi ZL,24 ldi ZH,12 api_wbox ;draw window api_thistext .db 11,8,"Send Data... ",0 ret ;------------------------------------------------------------------------------ ;the configpage menubar ;------------------------------------------------------------------------------ ; "111111222222333333444444555555" cbterm_mbar: .db " Exit Mode Send Recv Clear" SOURCE_142/SOURCE_program/clone644/0000755000175000001440000000000011713042123015550 5ustar joergusersSOURCE_142/SOURCE_program/clone644/clone644.asm0000755000175000001440000004130111725741460017627 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# clone # ;# copyright (c) 2006-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6c00 ; "...... N" start: .db "CLONE- M644 N",0xec,0xff,0x00 ;icon def .db 0x20,0x20,0x20,0x20 .db 0xaf,0x7f,0xaf,0xaf .db 0x20,0x20,0x20,0x20 ;dummy data .db 0x00,0x00,0x00,0x00 .org 0x6c10 ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ clone_main: ldi XL,1 sts libmio_channel,const_0 ;output to screen sts libmio_vidmode,const_0 ;standard video mode ldi XL,0x07 ;color scheme (white on black) api_setcolor ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,22 api_whbox ldi XL,0x70 ;color scheme (white on black) api_setcolor clone_main_1: api_thistext .db 1,5,"Clone configuration",0 ;------------------------------------------------------------------------------ ;the main loop ;------------------------------------------------------------------------------ lds r18,libmio_sysconf ;recent conf lds r19,libmio_sysconf1 ;recent conf ldi XL,LOW(clone_mbar-start) ldi XH,HIGH(clone_mbar-start) api_dataptr clt ;read menu from flash api_drawmenu clr r16 ;select first position clone_loop: rcall clone_sconf ;view status api_nokey clone_loop_1: api_waitkey cpi tempreg1,0xed ;ESC brne clone_loop_2 clone_loop_1a: api_askthis .db 0x4f,"Exit Program ?",0 cpi tempreg1,0 ;no breq clone_loop_1 ret ;exit program clone_loop_2: cpi tempreg1,0xf4 ;CLONE brne clone_loop_3 rjmp clone_cdo clone_loop_3: cpi tempreg1,0xe4 ;up brne clone_loop_4 cpi r16,1 brcs clone_loop_1 dec r16 rjmp clone_loop clone_loop_4: cpi tempreg1,0xe5 ;down brne clone_loop_5 cpi r16,6 brcc clone_loop_1 inc r16 rjmp clone_loop clone_loop_5: cpi tempreg1,0xf1 ;F1=change brne clone_loop_1 ;------------------------------------------------------------------------------ ;change serial speed ;------------------------------------------------------------------------------ clone_main_55: cpi r16,0 brne clone_main_60 mov tempreg4,r18 inc tempreg4 ;baud +1 andi tempreg4,0x01 andi r18,0xf8 or r18,tempreg4 rjmp clone_loop ;------------------------------------------------------------------------------ ;change I2C speed ;------------------------------------------------------------------------------ clone_main_60: cpi r16,1 brne clone_main_65 lds tempreg1,libmio_sysconf ;recent conf ldi tempreg4,0x10 eor r18,tempreg4 rjmp clone_loop ;------------------------------------------------------------------------------ ;change SPI speed ;------------------------------------------------------------------------------ clone_main_65: cpi r16,2 brne clone_as_01 ldi tempreg4,0x08 eor r18,tempreg4 clone_main_67: rjmp clone_loop ;------------------------------------------------------------------------------ ;change Autostart ;------------------------------------------------------------------------------ clone_as_01: cpi r16,7 brne clone_main_70 mov tempreg4,r19 andi r19,0x8f subi tempreg4,0xf0 andi tempreg4,0x70 or r19,tempreg4 clone_as_02: rjmp clone_loop ;------------------------------------------------------------------------------ ;change Data EEPROM address ;------------------------------------------------------------------------------ clone_main_70: cpi r16,3 brne clone_main_75 mov tempreg4,r19 inc tempreg4 andi tempreg4,0x07 andi r19,0xf8 or r19,tempreg4 rjmp clone_loop ;------------------------------------------------------------------------------ ;Line end ;------------------------------------------------------------------------------ clone_main_75: cpi r16,4 brne clone_main_77 subi r18,0xc0 ;+0x40 brcs clone_main_76 ori r18,0x40 clone_main_76: rjmp clone_loop ;------------------------------------------------------------------------------ ;Serin mode ;------------------------------------------------------------------------------ clone_main_77: cpi r16,5 brne clone_main_82 subi r19,0x80 ;+0x80 clone_main_80: rjmp clone_loop ;------------------------------------------------------------------------------ ;Serin pin ;------------------------------------------------------------------------------ clone_main_82: cpi r16,6 brne clone_main_84 ldi tempreg4,0x20 eor r18,tempreg4 ;+0x80 clone_main_84: rjmp clone_loop clone_sconf: ;show config ;------------------------------------------------------------------------------ ;show data ;------------------------------------------------------------------------------ clone_kbdtype: ldi XL,0x06 ;color scheme (yellow on black) api_setcolor api_thistext .db 3,1,"Serial speed:",0 api_thistext .db 5,1,"I2C speed:",0,0 api_thistext .db 7,1,"SPI speed:",0,0 api_thistext .db 9,1,"EEPROM address:",0 api_thistext .db 11,1,"Line end:",0 api_thistext .db 13,1,"Serial In/Out:",0,0 api_thistext .db 15,1,"Serial Input:",0 api_thistext .db 17,1,"Autostart:",0,0 clr r17 ;------------------------------------------------------------------------------ ;show serial speed ;------------------------------------------------------------------------------ rcall clone_cset sbrc r18,0 rjmp clone_sertype1 api_thistext .db 3,18,"1200 Bps",0,0 rjmp clone_sertype2 clone_sertype1: api_thistext .db 3,18,"2400 Bps",0,0 clone_sertype2: ;------------------------------------------------------------------------------ ;show I2C speed ;------------------------------------------------------------------------------ rcall clone_cset sbrc r18,4 rjmp clone_twitype1 api_thistext .db 5,18,"100 kHz",0 rjmp clone_twitype2 clone_twitype1: api_thistext .db 5,18,"400 kHz",0 clone_twitype2: ;------------------------------------------------------------------------------ ;show SPI speed ;------------------------------------------------------------------------------ rcall clone_cset sbrc r18,3 rjmp clone_spitype1 api_thistext .db 7,18,"5 MHz ",0 rjmp clone_spitype2 clone_spitype1: api_thistext .db 7,18,"156 kHz",0 clone_spitype2: ;------------------------------------------------------------------------------ ;show EEPROM address ;------------------------------------------------------------------------------ rcall clone_cset clone_eeadr: api_thistext .db 9,18,0,0 mov tempreg1,r19 andi tempreg1,0x07 subi tempreg1,0xd0 api_outchar ;------------------------------------------------------------------------------ ;show line end ;------------------------------------------------------------------------------ rcall clone_cset mov tempreg4,r18 andi tempreg4,0xc0 clone_lintype1: cpi tempreg4,0x80 brne clone_lintype2 api_thistext .db 11,18,"only LF",0 rjmp clone_lintype9 clone_lintype2: cpi tempreg4,0x40 brne clone_lintype3 api_thistext .db 11,18,"only CR",0 rjmp clone_lintype9 clone_lintype3: api_thistext .db 11,18,"CR+LF ",0 clone_lintype9: ;------------------------------------------------------------------------------ ;show serial interface ;------------------------------------------------------------------------------ rcall clone_cset sbrc r19,7 rjmp clone_sintype1 api_thistext .db 13,18,"simple ",0,0 rjmp clone_sintype2 clone_sintype1: api_thistext .db 13,18,"standard",0,0 clone_sintype2: ;------------------------------------------------------------------------------ ;show serial input pin ;------------------------------------------------------------------------------ rcall clone_cset sbrc r18,5 rjmp clone_sinput1 api_thistext .db 15,18,"PD3",0 rjmp clone_sinput2 clone_sinput1: api_thistext .db 15,18,"PD1",0 clone_sinput2: ;------------------------------------------------------------------------------ ;show autostart ;------------------------------------------------------------------------------ rcall clone_cset clone_autos: api_thistext .db 17,18,"PRG ",0,0 mov tempreg1,r19 swap tempreg1 andi tempreg1,0x07 breq clone_autos1 subi tempreg1,0xd0 api_outchar clone_autose: ldi XL,0x07 ;color scheme (white on black) api_setcolor ret clone_autos1: api_thistext .db 17,18,"off ",0 rjmp clone_autose clone_cset: ldi XL,0x05 ;cyan on black cp r16,r17 brne clone_cset1 ldi XL,0x50 clone_cset1: api_setcolor inc r17 ret ;------------------------------------------------------------------------------ ;the configpage menubar ;------------------------------------------------------------------------------ ; "111111222222333333444444555555" clone_mbar: .db " Exit Change CLONE " ;------------------------------------------------------------------------------ ;clone flash ;------------------------------------------------------------------------------ clone_cdo: api_askthis .db 0x6f,"Clone system? ",0 cpi tempreg1,0x01 breq clone_cdo_1 rjmp clone_loop clone_cdo_1: rcall clone_init ;init rcall clone_pen ;programm enable cpi ereg,0x00 breq clone_cdo_2 rcall clone_exit api_alertthis .db 0x4f,"No controller found ",0 rjmp clone_loop clone_cdo_2: rcall clone_rsb ;read signature bytes cpi ereg,0x00 breq clone_cdo_3 rcall clone_exit api_alertthis .db 0x4f,"No Mega644 found",0 rjmp clone_loop ;erase chip clone_cdo_3: rcall clone_wal ;draw alert box rcall clone_era ;erase chip ;program flash clr ZL ;clear pointer clr ZH ldi tempreg2,0x00 ;page counter clone_cdo_4: ldi tempreg3,0x00 ;word counter clone_cdo_5: lpm r0,Z+ ;low byte rcall clone_lobyte ;write lpm r0,Z+ ;high byte rcall clone_hibyte ;write inc tempreg3 ;word counter3 cpi tempreg3,0x80 ;end of page brne clone_cdo_5 ;word loop rcall clone_wpage ;write page inc tempreg2 ;next page brne clone_cdo_4 ;page loop ;program eeprom sys0 ldi tempreg1,0xc2 ;write EEPROM ldi tempreg2,HIGH(2040) ldi tempreg3,LOW(2040) mov tempreg4,r18 rcall clone_cmd ;program eeprom sys1 ldi tempreg1,0xc2 ;write EEPROM ldi tempreg2,HIGH(2041) ldi tempreg3,LOW(2041) mov tempreg4,r19 rcall clone_cmd ;program low fuse ldi tempreg1,0xac ;byte1 ldi tempreg2,0xa0 ldi tempreg3,0x00 ldi tempreg4,0xe6 rcall clone_cmd ;program high fuse ldi tempreg1,0xac ;byte1 ldi tempreg2,0xa8 ;byte2 ldi tempreg3,0x00 ldi tempreg4,0xd2 rcall clone_cmd ;program extended fuse ldi tempreg1,0xac ;byte1 ldi tempreg2,0xa4 ;byte2 ldi tempreg3,0x00 ldi tempreg4,0xfc rcall clone_cmd rcall clone_exit api_alertthis .db 0x80,"System cloned",0,0 rjmp clone_loop ;------------------------------------------------------------------------------ ; init SPI and activate reset ;------------------------------------------------------------------------------ clone_init: ldi tempreg1,0x53 ;config out SPCR,tempreg1 ;set spi out SPSR,const_0 ;x2=0 sbi DDRB,4 ;output ldi tempreg1,0xfd ;use bit 1 api_spisel ldi tempreg1,0xff clone_init1: dec tempreg1 brne clone_init1 sbi PORTB,4 ;stop (reset) ldi tempreg1,0xff clone_init2: dec tempreg1 brne clone_init2 cbi PORTB,4 ;start (reset) ldi tempreg1,0xff clone_init3: dec tempreg1 brne clone_init3 cbi PORTB,4 ;start (reset) ldi tempreg1,0xff clone_init4: dec tempreg1 brne clone_init4 api_sync ret ;------------------------------------------------------------------------------ ; deactivate reset and reconfigure SPI ;------------------------------------------------------------------------------ clone_exit: api_spiunsel ldi tempreg1,0x5c ;config out SPCR,tempreg1 ;set spi out SPSR,const_1 ;x2=1 ret ;------------------------------------------------------------------------------ ; send byte ;------------------------------------------------------------------------------ clone_czbyte: rcall clone_cbyte clone_zbyte: clr tempreg1 clone_cbyte: out SPDR,tempreg1 clone_cbyte_1: in tempreg1,SPSR sbrs tempreg1,SPIF rjmp clone_cbyte_1 in tempreg1,SPDR ret ;------------------------------------------------------------------------------ ; enable programming ;------------------------------------------------------------------------------ clone_pen: clr ereg ;no error ldi tempreg1,0xac ;byte1 rcall clone_cbyte ldi tempreg1,0x53 ;byte2 rcall clone_czbyte ;byte 3 cpi tempreg1,0x53 ;echo OK breq clone_pen_1 ldi ereg,0x01 ;no sync clone_pen_1: rcall clone_zbyte ;byte 4 and end ret ;------------------------------------------------------------------------------ ; read signature bytes ;------------------------------------------------------------------------------ clone_rsb: clr ereg ;no error ldi tempreg1,0x30 ;byte1 rcall clone_czbyte ;byte 2 ldi tempreg1,0x00 ;adr 0 rcall clone_czbyte ;byte 3+4 cpi tempreg1,0x1e ;ID OK breq clone_rsb_1 ldi ereg,0x02 ;ID not OK ret clone_rsb_1: ldi tempreg1,0x30 ;byte1 rcall clone_czbyte ;byte 2 ldi tempreg1,0x01 ;adr 1 rcall clone_czbyte ;byte 3+4 cpi tempreg1,0x96 ;ID OK breq clone_rsb_2 ldi ereg,0x02 ;ID not OK ret clone_rsb_2: ldi tempreg1,0x30 ;byte1 rcall clone_czbyte ;byte 2 ldi tempreg1,0x02 ;adr 1 rcall clone_czbyte ;byte 3+4 cpi tempreg1,0x09 ;ID OK 644 breq clone_rsb_3 cpi tempreg1,0x0a ;ID OK 644P breq clone_rsb_3 ldi ereg,0x02 ;ID not OK clone_rsb_3: ret ;------------------------------------------------------------------------------ ; erase chip ;------------------------------------------------------------------------------ clone_era: ldi tempreg1,0xac ;byte1 ldi tempreg2,0x80 ldi tempreg3,0x00 ldi tempreg4,0x00 rjmp clone_cmd ;------------------------------------------------------------------------------ ; write page ;------------------------------------------------------------------------------ clone_wpage: ldi tempreg1,0x4c ;byte1 rcall clone_cbyte clr tempreg4 mov tempreg1,tempreg2 ;page number lsr tempreg1 ;/2 ror tempreg4 rcall clone_cbyte mov tempreg1,tempreg4 rcall clone_czbyte ;byte 3+4 rjmp clone_cmd_1 ;------------------------------------------------------------------------------ ; write low byte ;------------------------------------------------------------------------------ clone_lobyte: ldi tempreg1,0x40 ;byte1 rjmp clone_hibyte1 ;------------------------------------------------------------------------------ ; write high byte ;------------------------------------------------------------------------------ clone_hibyte: ldi tempreg1,0x48 ;byte1 clone_hibyte1: rcall clone_czbyte ;byte 1+2 mov tempreg1,tempreg3 ;word number rcall clone_cbyte mov tempreg1,r0 rjmp clone_cbyte ;byte 4 and end ;------------------------------------------------------------------------------ ;write-alertbox ;------------------------------------------------------------------------------ clone_wal: api_pushxyz lds tempreg1,libmio_color ;old color mov tempreg8,tempreg1 ;save ldi tempreg1,0x4c ;yellow on red sts libmio_color,tempreg1 ;set new color ldi YL,5 ldi YH,10 ldi ZL,24 ldi ZH,12 api_wbox ;draw window api_thistext .db 11,6,"Cloning System...",0 mov tempreg1,tempreg8 sts libmio_color,tempreg1 ;restore old color api_popxyz ;------------------------------------------------------------------------------ ;exec a command ;------------------------------------------------------------------------------ clone_cmd: rcall clone_cbyte mov tempreg1,tempreg2 rcall clone_cbyte mov tempreg1,tempreg3 rcall clone_cbyte mov tempreg1,tempreg4 rcall clone_cbyte clone_cmd_1: ldi tempreg1,0xf0 rcall clone_cbyte ldi tempreg1,0x00 rcall clone_cbyte ldi tempreg1,0x00 rcall clone_cbyte ldi tempreg1,0x00 rcall clone_cbyte sbrc tempreg1,0 rjmp clone_cmd_1 ret SOURCE_142/SOURCE_program/bench/0000755000175000001440000000000011713042123015271 5ustar joergusersSOURCE_142/SOURCE_program/bench/bench.asm0000755000175000001440000000622311725741460017075 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# benchmark # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/avr/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x6c00 ; "...... N" start: .db "Bench- mark N",0xec,0xff,0xff ;icon def .db "????" .db "????" .db "????" ;dummy data .db 0x00,0x00,0x00,0x00 .org 0x6c10 ldi r18,0 api_getarray ;get array address to Y bench_01: push r18 mov XL,r18 api_setvmode api_clrscr api_sync rcall testloop pop r18 api_getarray mov tempreg1,r18 lsl tempreg1 add YL,tempreg1 adc YH,const_0 st Y+,XH st Y+,XL inc r18 cpi r18,8 brne bench_01 clr XL api_setvmode api_fast ;turn off rcall testloop api_getarray ldi tempreg1,8 lsl tempreg1 add YL,tempreg1 adc YH,const_0 st Y+,XH st Y+,XL api_slow api_clrscr api_thistext .db 0,4," Benchmark V1.0 ",0,0 api_thistext .db 1,4,"----------------",0,0 api_newline api_getarray ;get array address to Y ldi r18,0 bench_02: push r18 api_thistext .db 255,"Video-Mode",0 mov tempreg1,r18 subi tempreg1,0xd0 api_outchar api_thistext .db 255," : ",0,0 ld XH,Y+ ld XL,Y+ ldi ctrl,0x2a api_outdez api_thistext .db 255," MHz",0 api_newline pop r18 inc r18 cpi r18,8 brne bench_02 api_thistext .db 255,"Video OFF : ",0 ld XH,Y+ ld XL,Y+ ldi ctrl,0x2a api_outdez api_thistext .db 255," MHz",0 api_newline api_waitkey ret testloop: ldi XL,0 ;1 set counter to zero ldi XH,0 ;1 lds tempreg1,libmio_time_l ;2 get counter testloop_1: lds tempreg2,libmio_time_l ;2 cp tempreg1,tempreg2 ;1 breq testloop_1 ;1/2 branch if not changed testloop_2: lds tempreg1,libmio_time_l ;2 get data cp tempreg1,tempreg2 ;1 changed? brne testloop_e ;1/2 branch if yes ldi tempreg1,248 ;1 248 cycles testloop_3: nop ;1 filling dec tempreg1 ;1 brne testloop_3 ;2 adiw XL,1 ;2 nop nop rjmp testloop_2 ;2 testloop_e: retSOURCE_142/SOURCE_system/0000755000175000001440000000000011713042123014067 5ustar joergusersSOURCE_142/SOURCE_system/api_macros.inc0000644000175000001440000001771511725741457016735 0ustar joergusers;###################################################################### ;# # ;# AVR ChipBasic2 API V1.35 API Macros # ;# (c) 2009-2010 Joerg Wolfram # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;###################################################################### .macro api_token call 0x001e .endm .macro api_untoken call 0x0020 .endm .macro api_version call 0x0022 .endm .macro api_popxyz jmp 0x0024 .endm .macro api_pushxyz call 0x0025 .endm .macro api_popregs jmp 0x0026 .endm .macro api_pushregs call 0x0027 .endm .macro api_getvram call 0x0028 .endm .macro api_getsysram call 0x002b .endm .macro api_getpal call 0x002e .endm .macro api_getarray call 0x0031 .endm .macro api_getchart0 call 0x0034 .endm .macro api_getchart1 call 0x0037 .endm .macro api_getbuffer call 0x003a .endm .macro api_getvalues call 0x003d .endm .macro api_getpartab call 0x0040 .endm .macro api_getvar call 0x0043 .endm .macro api_getprg call 0x0046 .endm .macro api_dataptr call 0x0058 .endm .macro api_getbase call 0x005a .endm .macro api_getprog call 0x005c .endm .macro api_getprog_1 call 0x0060 .endm .macro api_getprog_2 call 0x0064 .endm .macro api_setcolor call 0x0065 .endm .macro api_setfcolor call 0x0067 .endm .macro api_setborder call 0x0069 .endm .macro api_setvmode call 0x006b .endm .macro api_setpalette call 0x006d .endm .macro api_sync call 0x006f .endm .macro api_slow call 0x0071 .endm .macro api_fast call 0x0073 .endm .macro api_setchannel call 0x0075 .endm .macro api_setfont call 0x0077 .endm .macro api_clrscr call 0x0079 .endm .macro api_outchar call 0x007b .endm .macro api_outdez call 0x007d .endm .macro api_outhex call 0x007f .endm .macro api_gotoxy call 0x0081 .endm .macro api_romtext call 0x0083 .endm .macro api_thistext call 0x0085 .endm .macro api_cbox call 0x0087 .endm .macro api_ibox call 0x008a .endm .macro api_scroll call 0x008d .endm .macro api_newline call 0x008f .endm .macro api_sprite call 0x0091 .endm .macro api_cursor call 0x0093 .endm .macro api_waitkey call 0x0097 .endm .macro api_nokey call 0x0099 .endm .macro api_kstate call 0x009b .endm .macro api_kflags call 0x009f .endm .macro api_getkey call 0x00a2 .endm .macro api_lastkey call 0x00a5 .endm .macro api_scancode call 0x00a8 .endm .macro api_putser call 0x00ab .endm .macro api_getser call 0x00ad .endm .macro api_getserb call 0x00af .endm .macro api_putser2 call 0x00b1 .endm .macro api_getser2 call 0x00b3 .endm .macro api_getserb2 call 0x00b5 .endm .macro api_putpar call 0x00b7 .endm .macro api_putxm call 0x00b9 .endm .macro api_getxm call 0x00bb .endm .macro api_putsernl call 0x00bd .endm .macro api_putsernl2 call 0x00bf .endm .macro api_baud2 call 0x00c1 .endm .macro api_hexline call 0x00c3 .endm .macro api_plot call 0x00c5 .endm .macro api_draw call 0x00c7 .endm .macro api_box call 0x00c9 .endm .macro api_fbox call 0x00cb .endm .macro api_circle call 0x00cd .endm .macro api_fcircle call 0x00d1 .endm .macro api_bcopy1 call 0x00d5 .endm .macro api_bcopy2 call 0x00d7 .endm .macro api_bcopy3 call 0x00d9 .endm .macro api_menu call 0x00db .endm .macro api_drawmenu call 0x00dd .endm .macro api_alert call 0x00df .endm .macro api_ask call 0x00e1 .endm .macro api_alertthis call 0x00e3 .endm .macro api_askthis call 0x00e5 .endm .macro api_alert_nb call 0x00e7 .endm .macro api_ask_nb call 0x00e9 .endm .macro api_alertthis_nb call 0x00eb .endm .macro api_askthis_nb call 0x00ed .endm .macro api_wbox call 0x00ef .endm .macro api_whbox call 0x00f1 .endm .macro api_saywrite call 0x00f3 .endm .macro api_saytransfer call 0x00f5 .endm .macro api_note call 0x00f7 .endm .macro api_setvolume call 0x00f9 .endm .macro api_startseq call 0x00fb .endm .macro api_setseq call 0x00fd .endm .macro api_getseq call 0x00ff .endm .macro api_i2c_read call 0x0101 .endm .macro api_i2c_write call 0x0103 .endm .macro api_i2c_start call 0x0105 .endm .macro api_i2c_stop call 0x0107 .endm .macro api_i2c_rbyte call 0x0109 .endm .macro api_i2c_rbyten call 0x010b .endm .macro api_i2c_wbyte call 0x010d .endm .macro api_i2c_rlm75 call 0x010f .endm .macro api_eep_read call 0x0111 .endm .macro api_eep_write call 0x0113 .endm .macro api_abs call 0x0115 .endm .macro api_add call 0x0117 .endm .macro api_sub call 0x0119 .endm .macro api_mul call 0x011b .endm .macro api_div call 0x011d .endm .macro api_sin call 0x011f .endm .macro api_cos call 0x0121 .endm .macro api_eq call 0x0123 .endm .macro api_lt call 0x0125 .endm .macro api_gt call 0x0127 .endm .macro api_sqr call 0x0129 .endm .macro api_rnd call 0x012b .endm .macro api_adc call 0x012d .endm .macro api_dbit call 0x012f .endm .macro api_fs_create call 0x0131 .endm .macro api_fs_delete call 0x0135 .endm .macro api_fs_read call 0x0139 .endm .macro api_fs_write call 0x013d .endm .macro api_fs_cfree call 0x0141 .endm .macro api_fs_size call 0x0143 .endm .macro api_fs_checkf call 0x0145 .endm .macro api_fs_gettype call 0x0147 .endm .macro api_fs_rread call 0x014b .endm .macro api_fs_rwrite call 0x014e .endm .macro api_fs_fsize call 0x0151 .endm .macro api_fs_ffind call 0x0153 .endm .macro api_fs_fsel call 0x0155 .endm .macro api_fs_fsel_nb call 0x0157 .endm .macro api_fs_check call 0x0159 .endm .macro api_copychar4 call 0x015b .endm .macro api_copychar6 call 0x015d .endm .macro api_basrun call 0x015f .endm .macro api_exparser call 0x0161 .endm .macro api_tparser call 0x0163 .endm .macro api_lfind call 0x0165 .endm .macro api_lcall call 0x0167 .endm .macro api_preceive call 0x0169 .endm .macro api_psend call 0x016b .endm .macro api_wpage call 0x016d .endm .macro api_arrview call 0x016f .endm .macro api_extsearch call 0x0171 .endm .macro api_extdisable call 0x0173 .endm .macro api_basgetpar call 0x0175 .endm .macro api_basgetvar call 0x0177 .endm .macro api_vm0line jmp 0x0179 .endm .macro api_vm0cls jmp 0x017d .endm .macro api_vm0char jmp 0x0180 .endm .macro api_vm0gotoxy jmp 0x0184 .endm .macro api_vm0plot jmp 0x0186 .endm .macro api_vm0newline jmp 0x0188 .endm .macro api_sbackup call 0x018c .endm .macro api_srestore call 0x018e .endm .macro api_screenshot call 0x0190 .endm .macro api_aread call 0x0192 .endm .macro api_awrite call 0x0194 .endm .macro api_pageset call 0x0196 .endm .macro api_pageget call 0x0199 .endm .macro api_scale call 0x019c .endm .macro api_spisel call 0x019e .endm .macro api_spiunsel call 0x01a0 .endm .macro api_spicomm call 0x01a2 .endm .macro api_xmem_rb call 0x01a4 .endm .macro api_xmem_rw call 0x01a6 .endm .macro api_xmem_wb call 0x01a8 .endm .macro api_xmem_ww call 0x01aa .endm .macro api_xmem_chk call 0x01ac .endm .macro api_xmem_clr call 0x01ae .endm SOURCE_142/SOURCE_system/libeep/0000755000175000001440000000000011713042123015327 5ustar joergusersSOURCE_142/SOURCE_system/libeep/definitions.asm0000755000175000001440000000265711725741457020404 0ustar joergusers;################################################################################ ;# # ;# libeep - EEPROM R/W library # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;uncomment next line to enable the whole library if avr_libmake is not used ;.set use_libeep_all = 1 ;-------------------------------------------------------------------------------- ; user definitions ;-------------------------------------------------------------------------------- .equ libeep_end = 8 ;max eeprom address (HIGH byte) SOURCE_142/SOURCE_system/libeep/library.asm0000755000175000001440000000506011725741457017524 0ustar joergusers;################################################################################ ;# # ;# libeep - EEPROM R/W library for ATmega controllers # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; check Y for memory bound ;------------------------------------------------------------------------------ libeep_check: clr ereg ;no error cpi YH,libeep_end brcs libeep_check1 ;OK ldi ereg,34 ;out of bound error pop tempreg1 ;kill call adr pop tempreg1 ;kill call adr ldi tempreg1,0xff ;unprogrammed libeep_check1: ret ;------------------------------------------------------------------------------ ; read one byte (tempreg1) from EEPROM memory (Y+) ;------------------------------------------------------------------------------ libeep_read: rcall libeep_check libeep_read1: sbic EECR,EEPE rjmp libeep_read1 out EEARH,YH out EEARL,YL sbi EECR,EERE in tempreg1,EEDR adiw YL,1 ret ;thats all ;------------------------------------------------------------------------------ ; write one byte (tempreg1) to EEPROM memory (Y+) with verify ;------------------------------------------------------------------------------ libeep_write: rcall libeep_check libeep_write1: clr ereg sbic EECR,EEPE ;wait for EEPROM ready rjmp libeep_write1 out EEARH,YH out EEARL,YL sbi EECR,EERE in tempreg5,EEDR cp tempreg5,tempreg1 brne libeep_write3 adiw YL,1 ret ;no modify necessary libeep_write3: out EEDR,tempreg1 ;write byte cli sbi EECR,EEMPE sbi EECR,EEPE sei libeep_write4: sbic EECR,EEPE ;verify rjmp libeep_write4 sbi EECR,EERE adiw YL,1 ret SOURCE_142/SOURCE_system/libeep/macros.asm0000755000175000001440000000231611725741457017345 0ustar joergusers;################################################################################ ;# # ;# libeep - EEPRO R/W library for AVR controllers # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libeep_read call libeep_read .endm .macro libeep_write call libeep_write .endm SOURCE_142/SOURCE_system/prog/0000755000175000001440000000000011713042123015036 5ustar joergusersSOURCE_142/SOURCE_system/prog/loader.asm0000755000175000001440000003165711725741457017050 0ustar joergusers;################################################################################ ;# # ;# single chip basic computer with ATmega644 remote loader # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License as # ;# published by the Free Software Foundation; either version 3 of # ;# the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .db "SerialLoaderL",0xea,0xff,0xff ;red, run disabled .db 0x00,0xe6,0xe7,0x00,0x00,0xe8,0xe9,0x00 .db "1.42",0xff,0xff,0xff,0xff ldi ZL,8 ldi ZH,0 lpm tempreg1,Z+ cpi tempreg1,2 brne sload_nosys lpm tempreg1,Z+ cpi tempreg1,11 brne sload_nosys rjmp sload_start sload_nosys: ret sload_start: libmio_clrscr libmio_thistext .db 0,0,"ChipBasic2 serial loader V1.42",0,0 libmio_thistext .db 2,0,"trying to connect... ",0 sts libmio_channel,const_1 libmio_thistext .db 255,0x0c,"Press space to start!",0x0d,0x0a,0x00 sload_00: lds XL,libmio_rcnt cpi XL,0 brne sload_00 ldi tempreg4,100 dec XL sts libmio_rcnt,XL sload_01: libmio_sync lds XL,libmio_rcnt cpi XL,0 breq sload_02 dec tempreg4 brne sload_01 ret sload_02: lds tempreg1,libmio_rdat cpi tempreg1,' ' breq sload_03 ret sload_03: sts libmio_channel,const_0 libmio_thistext .db 255,"OK",0 sts libmio_channel,const_1 sload_loop: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," ChipBasic2 Serial Loader",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 libmio_thistext .db 255," S = Show Status",0x0d,0x0a,0 libmio_thistext .db 255," B = Binary Upload (XMODEM)",0x0d,0x0a,0,0 libmio_thistext .db 255," T = Text Upload (ASCII)",0x0d,0x0a,0 libmio_thistext .db 255," A = Set Autostart",0x0d,0x0a,0 libmio_thistext .db 255," C = Config Hardware",0x0d,0x0a,0 libmio_thistext .db 255," Q = Quit",0x0d,0x0a,0,0 libmio_thistext .db 255,0x0d,0x0a,"Space returns to main menu",0 sload_04: libmio_gser cpi tempreg1,'S' breq sload_s00 cpi tempreg1,'s' breq sload_s00 cpi tempreg1,'C' breq sload_h00 cpi tempreg1,'c' breq sload_h00 cpi tempreg1,'B' breq sload_b00 cpi tempreg1,'b' breq sload_b00 cpi tempreg1,'T' breq sload_t00 cpi tempreg1,'t' breq sload_t00 cpi tempreg1,'A' breq sload_a00 cpi tempreg1,'a' breq sload_a00 cpi tempreg1,'Q' breq sload_q00 cpi tempreg1,'q' breq sload_q00 rjmp sload_04 sload_q00: rjmp sload_quit sload_b00: rjmp sload_btrans sload_t00: rjmp sload_ttrans sload_h00: rjmp sload_hard sload_a00: rjmp sload_auto sload_s00: rjmp sload_stat ;------------------------------------------------------------------------------- ;view status ;------------------------------------------------------------------------------- sload_stat: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," Status",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 rcall sload_plist call sys_extsearch libmio_thistext .db 255,0x0d,0x0a,"Press any key!",0 libmio_gser rjmp sload_loop ;jump to menu ;------------------------------------------------------------------------------- ;set autostart ;------------------------------------------------------------------------------- sload_auto: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," Autostart",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 rcall sload_plist sload_auto_1: libmio_thistext .db 255,0x0d,0x0a,"Select Autostart (1..7, 0=off) :",0 sload_auto_2: libmio_gser libmio_pser cpi tempreg1,' ' breq sload_auto_e cpi tempreg1,'0' brcs sload_auto_1 cpi tempreg1,'8' brcc sload_auto_1 subi tempreg1,'0' andi tempreg1,0x07 mov r16,tempreg1 dec r16 ldi ZL,0x0c ldi ZH,0x90 ldi r17,12 mul r17,r16 add ZH,r0 lpm r17,Z cpi r17,'L' brne sload_auto_3 libmio_thistext .db 255,0x0d,0x0a,"Cannot autostart loader !!!",0x0d,0x0a,0,0 rjmp sload_auto_1 sload_auto_3: lds tempreg2,libmio_sysconf1 swap tempreg1 andi tempreg1,0x70 andi tempreg2,0x8f or tempreg2,tempreg1 sts libmio_sysconf1,tempreg2 call mem_setconf rjmp sload_auto sload_auto_e: rjmp sload_loop ;------------------------------------------------------------------------------- ;transfer program via XMODEM ;------------------------------------------------------------------------------- sload_btrans: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," XModem Upload",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 rcall sload_plist sload_trans_0: libmio_thistext .db 255,0x0d,0x0a,"Select Program (1..8) :",0,0 sload_trans_1: libmio_gser libmio_pser cpi tempreg1,' ' brne sload_trans_1a rjmp sload_auto_e sload_trans_1a: cpi tempreg1,'1' brcs sload_trans_0 cpi tempreg1,'9' brcc sload_trans_0 subi tempreg1,'1' ldi ZL,0x0c ldi ZH,0x90 ldi r17,12 mul r17,tempreg1 add ZH,r0 lpm r17,Z cpi r17,'L' brne sload_trans_o libmio_thistext .db 255,0x0d,0x0a,"Overwrite loader ? (y/n)",0 sload_trans_l1: libmio_gser cpi tempreg1,'n' brne sload_trans_l2 rjmp sload_btrans sload_trans_l2: cpi tempreg1,'y' brne sload_trans_l1 sload_trans_l3: mov ctrl,tempreg1 libmio_thistext .db 255,0x0c,"--> transfer starts in 10s ",0 ldi r17,250 sload_trans_l4: libmio_sync dec r17 brne sload_trans_l4 ldi r17,250 sload_trans_l5: libmio_sync dec r17 brne sload_trans_l5 push const_0 push const_0 jmp recv_prog_a sload_trans_o: mov ctrl,tempreg1 libmio_thistext .db 255,0x0c,"--> transfer starts in 10s ",0 ldi r17,250 sload_trans_2: libmio_sync dec r17 brne sload_trans_2 ldi r17,250 sload_trans_3: libmio_sync dec r17 brne sload_trans_3 call recv_prog_a rjmp sload_btrans ;------------------------------------------------------------------------------- ;Configuration ;------------------------------------------------------------------------------- sload_hard: call mem_getconf lds r18,libmio_sysconf lds r19,libmio_sysconf1 sload_hard_0: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," ChipBasic2 Configuration",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 ;show data slsd_view: libmio_thistext .db 255,"(1) Serial speed: ",0 sbrc r18,0 rjmp slsd_sertype1 libmio_thistext .db 255,"1200 Bps",0 rjmp slsd_sertype2 slsd_sertype1: libmio_thistext .db 255,"2400 Bps",0 slsd_sertype2: libmio_thistext .db 255,0x0d,0x0a,"(2) I2C speed : ",0 sbrc r18,4 rjmp slsd_twitype1 libmio_thistext .db 255,"100 kHz",0,0 rjmp slsd_twitype2 slsd_twitype1: libmio_thistext .db 255,"400 kHz",0,0 slsd_twitype2: libmio_thistext .db 255,0x0d,0x0a,"(3) SPI speed : ",0 sbrc r18,3 rjmp slsd_spitype1 libmio_thistext .db 255,"5 MHz ",0,0 rjmp slsd_spitype2 slsd_spitype1: libmio_thistext .db 255,"156 kHz",0,0 slsd_spitype2: libmio_thistext .db 255,0x0d,0x0a,"(4) EEPROM addr : ",0 mov tempreg1,r19 andi tempreg1,0x07 subi tempreg1,0xd0 libmio_outchar libmio_thistext .db 255,0x0d,0x0a,"(5) Line end : ",0 mov tempreg4,r18 andi tempreg4,0xc0 slsd_lintype1: cpi tempreg4,0x80 brne slsd_lintype2 libmio_thistext .db 255,"only LF",0,0 rjmp slsd_lintype9 slsd_lintype2: cpi tempreg4,0x40 brne slsd_lintype3 libmio_thistext .db 255,"only CR",0,0 rjmp slsd_lintype9 slsd_lintype3: libmio_thistext .db 255,"CR+LF ",0,0 slsd_lintype9: libmio_thistext .db 255,0x0d,0x0a,"(6) Serial I/O : ",0 sbrc r18,1 rjmp slsd_sintype1 libmio_thistext .db 255,"simple ",0 rjmp slsd_sintype2 slsd_sintype1: libmio_thistext .db 255,"standard",0 slsd_sintype2: libmio_thistext .db 255,0x0d,0x0a,"(7) Serial Input: ",0 sbrs r18,5 rjmp slsd_sinput1 libmio_thistext .db 255,"PD3",0,0 rjmp slsd_sinput2 slsd_sinput1: libmio_thistext .db 255,"PD1",0,0 slsd_sinput2: libmio_thistext .db 255,0x0d,0x0a,"(8) Store & Reboot",0x0d,0x0a,0 libmio_thistext .db 255,0x0d,0x0a,"Space returns to main menu",0x0d,0x0a,0 slsd_ask: libmio_thistext .db 255,0x0d,0x0a,"Select Parameter (1..8) :",0,0 slsd_ask_1: libmio_gser libmio_pser cpi tempreg1,' ' breq slsd_end cpi tempreg1,'1' brcs slsd_ask cpi tempreg1,'9' brcc slsd_ask cpi tempreg1,'8' brne slsd_ask_2 rjmp slsd_reboot slsd_ask_2: cpi tempreg1,'1' brne slsd_ask_3 ldi r16,1 eor r18,r16 rjmp sload_hard_0 slsd_ask_3: cpi tempreg1,'2' brne slsd_ask_4 ldi r16,0x10 eor r18,r16 rjmp sload_hard_0 slsd_ask_4: cpi tempreg1,'3' brne slsd_ask_5 ldi r16,0x08 eor r18,r16 rjmp sload_hard_0 slsd_ask_5: cpi tempreg1,'4' brne slsd_ask_6 mov r16,r19 inc r16 andi r16,0x07 andi r19,0xf8 or r19,r16 rjmp sload_hard_0 slsd_ask_6: cpi tempreg1,'5' brne slsd_ask_7 subi r18,0xc0 brcs slsd_ask_6a ori r18,0x40 slsd_ask_6a: rjmp sload_hard_0 slsd_ask_7: cpi tempreg1,'6' brne slsd_ask_8 ldi r16,0x02 eor r18,r16 rjmp sload_hard_0 slsd_ask_8: cpi tempreg1,'7' brne slsd_ask_9 ldi r16,0x20 eor r18,r16 rjmp sload_hard_0 slsd_ask_9: slsd_end: rjmp sload_loop slsd_reboot: sts libmio_sysconf,r18 sts libmio_sysconf1,r19 call mem_setconf libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," ChipBasic2 reboots now",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 libmio_sync libmio_sync jmp 0 sload_quit: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," Serial Loader Quit",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 ret ;------------------------------------------------------------------------------- ;transfer program via ASCII ;------------------------------------------------------------------------------- sload_ttrans: libmio_thistext .db 255,0x0c,"----------------------------",0x0d,0x0a,0,0 libmio_thistext .db 255," Text Upload",0x0d,0x0a,0x00 libmio_thistext .db 255,"----------------------------",0x0d,0x0a,0x00 rcall sload_plist sload_ttrans_0: libmio_thistext .db 255,0x0d,0x0a,"Select Program (1..8) :",0,0 sload_ttrans_1: libmio_gser libmio_pser cpi tempreg1,' ' brne sload_ttrans_2 rjmp sload_auto_e sload_ttrans_2: cpi tempreg1,'1' brcs sload_ttrans_0 cpi tempreg1,'9' brcc sload_ttrans_0 subi tempreg1,'1' ldi ZL,0x0c ldi ZH,0x90 ldi r17,12 mul r17,tempreg1 add ZH,r0 lpm r17,Z cpi r17,'L' brne sload_ttrans_o libmio_thistext .db 255,0x0d,0x0a,"Cannot overwrite loader !!!",0x0d,0x0a,0,0 rjmp sload_ttrans_0 sload_ttrans_o: sts libmio_lastmenu,tempreg1 libmio_thistext .db 255,0x0c,"--> send file now ",0x0d,0x0a,0,0 call edit_lread ;read text into buffer call mem_save ;save to flash rjmp sload_ttrans ;------------------------------------------------------------------------------- ;show status ;------------------------------------------------------------------------------- sload_plist: ldi r16,0 ;first PRG sload_plist_01: libmio_thistext .db 255,"P",0,0 ldi tempreg1,0x31 ;'1' add tempreg1,r16 libmio_pser ;output program number libmio_thistext .db 255,": ",0 ldi ZH,0x90 ldi ZL,0x00 ldi r17,12 sload_plist_02: mul r17,r16 add ZH,r0 sload_plist_04: lpm tempreg1,Z+ libmio_pser dec r17 brne sload_plist_04 lpm tempreg1,Z cpi tempreg1,'N' brne sload_plist_10 libmio_thistext .db 255," BINARY ",0 rjmp sload_plist_90 sload_plist_10: cpi tempreg1,'L' brne sload_plist_20 libmio_thistext .db 255," LOADER ",0 rjmp sload_plist_90 sload_plist_20: libmio_thistext .db 255," BASIC ",0 rjmp sload_plist_90 sload_plist_90: lds r17,libmio_sysconf1 swap r17 andi r17,0x07 cpi r17,0x00 breq sload_plist_92 dec r17 cp r16,r17 brne sload_plist_92 libmio_thistext .db 255,"(A)",0,0 sload_plist_92: libmio_thistext .db 255,0x0d,0x0a,0x00 inc r16 ;loop counter cpi r16,8 breq sload_plist_99 ;no loop rjmp sload_plist_01 ;loop sload_plist_99: libmio_thistext .db 255,0x0d,0x0a,"Space returns to main menu",0x0d,0x0a,0 retSOURCE_142/SOURCE_system/libi2c/0000755000175000001440000000000011713042123015233 5ustar joergusersSOURCE_142/SOURCE_system/libi2c/definitions.asm0000755000175000001440000000256311725741457020304 0ustar joergusers;################################################################################ ;# # ;# libi2c - I2C library # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;uncomment next line to enable the whole library if avr_libmake is not used ;.set use_libi2c_all = 1 ;-------------------------------------------------------------------------------- ; user definitions ;--------------------------------------------------------------------------------SOURCE_142/SOURCE_system/libi2c/library.asm0000755000175000001440000001475411725741457017442 0ustar joergusers;################################################################################ ;# # ;# libi2c - i2c library for ATmega controllers # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; withsts even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; initialize twi ;------------------------------------------------------------------------------- libi2c_initl: cbi portd,6 ldi tempreg1,92 ;set bitrate sts TWBR,tempreg1 ldi tempreg1,(1<ignore ori XL,0x01 ;set shift bit sbrc XL,7 ;skip if not release andi XL,0xfe ;clear shift bit rjmp libmio_kir_enb ;thats all ;+26 libmio_kir_nc3: cpi ZL,0x59 ;right shift brne libmio_kir_nc4 ;jump if not ori XL,0x02 ;set shift bit sbrc XL,7 ;skip if not release andi XL,0xfd ;clear shift bit rjmp libmio_kir_enb ;thats all ;+29 libmio_kir_nc4: cpi ZL,0x14 ;control brne libmio_kir_nc6 ;jump if not sbrc XL,6 ;extended? (right ctrl key) rjmp libmio_kir_nc5 ori XL,0x04 ;set control bit sbrc XL,7 ;skip if not release andi XL,0xfb ;clear ctrl bit rjmp libmio_kir_enb ;thats all libmio_kir_nc5: ori XL,0x08 ;set control bit sbrc XL,7 ;skip if not release andi XL,0xf7 ;clear ctrl bit rjmp libmio_kir_enb ;thats all ;+32 libmio_kir_nc6: cpi ZL,0x11 ;alternate brne libmio_kir_nc7 ;jump if not ori XL,0x10 ;set alt bit sbrc XL,7 ;skip if not release andi XL,0xef ;clear alt bit rjmp libmio_kir_enb ;thats all libmio_kir_nc7: sts libmio_keycode,const_0 ;clear keycode libmio_kir_enb: andi XL,0x1f ;1 clear ext and release bit libmio_kir_enc: sts libmio_kbdstate,XL ;2 store keyboard status libmio_kir_end: ;------------------------------------------------------------------------------- ;serial port select baud ;------------------------------------------------------------------------------- libmio_doser: lds tempreg1,libmio_sysconf ;baud sel sbrc tempreg1,0 ;skip if 1200 call libmio_bl_2rx sbrs tempreg1,0 ;skip if 2400 call libmio_bl_1rx ;------------------------------------------------------------------------------- ;restore registers and exit ;------------------------------------------------------------------------------- libmio_is_20: jmp libmio_bli_90 libmio_kext: ldi ZL,xkbd_get icall rjmp libmio_doser SOURCE_142/SOURCE_system/libmio/sprites.asm0000755000175000001440000001717711725741457017600 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# sprites # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .ifdef use_libmio_sprites ;------------------------------------------------------------------------------- ; sprite definitions ; +00 collision flag ; +01 current X (ff=not visible) ; +02 current Y (ff=not visible) ; +03 dx ; +04 dy ; +05... data ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------- ; external call ;------------------------------------------------------------------------------- libmio_spritex: push r16 push r17 push r18 push r19 sts libmio_bcdestx,XL ;coords sts libmio_bcdesty,XH sts libmio_bcsrcx,YL ;pointer sts libmio_bcsrcy,YH rcall libmio_sprite pop r19 pop r18 pop r17 pop r16 ret ;------------------------------------------------------------------------------- ; draw sprite with address ;------------------------------------------------------------------------------- libmio_sprite: push_ptr ;save Z-reg rcall libmio_sprdat cpi r16,libmio_cols ;visible? brcc libmio_spr_1 ;no cpi r17,libmio_rows ;visible? brcc libmio_spr_1 ;no ;restore old if was visible rcall libmio_srest ;restore screen ;backup and draw libmio_spr_1: lds XL,libmio_bcdestx ;coords lds XH,libmio_bcdesty lds YL,libmio_bcsrcx ;ptr lds YH,libmio_bcsrcy std Y+1,XH ;set new old ccords std Y+2,XL cpi XL,libmio_cols ;visible? brcc libmio_spr_2 ;no cpi XH,libmio_rows ;visible? brcc libmio_spr_2 ;no rcall libmio_sback ;backup screen andi tempreg4,0x03 cpi tempreg4,0x01 breq libmio_spr_2 rcall libmio_sdraw libmio_spr_2: pop_ptr ;------------------------------------------------------------------------------- ; restore old ;------------------------------------------------------------------------------- libmio_srest: rcall libmio_sprdat mul r18,r19 ;dx*dy add r19,r17 ;calc Y2 adiw YL,5 ;header add YL,r0 ;skip sprite data adc YH,r1 add YL,r0 adc YH,r1 ;chars mov tempreg1,r17 ;Y-pos libmio_srest1: ldi ZL,LOW(libmio_vram) ;base_address ldi ZH,HIGH(libmio_vram) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_srest2: ld tempreg3,Y+ ;get char st Z+,tempreg3 ;copy to vram dec tempreg2 ;loop counter brne libmio_srest2 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_srest1 ;loop ;attributes lds tempreg1,libmio_vidmode cpi tempreg1,0x06 breq libmio_srest5 mov tempreg1,r17 ;Y-pos libmio_srest3: ldi ZL,LOW(libmio_vram+690) ;base_address ldi ZH,HIGH(libmio_vram+690) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_srest4: ld tempreg3,Y+ ;get char st Z+,tempreg3 ;copy to vram dec tempreg2 ;loop counter brne libmio_srest4 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_srest3 ;loop libmio_srest5: ret ;thats all ;------------------------------------------------------------------------------- ; backup ;------------------------------------------------------------------------------- libmio_sback: rcall libmio_sprdat mul r18,r19 ;dx*dy add r19,r17 ;calc Y2 adiw YL,5 ;header add YL,r0 ;skip sprite data adc YH,r1 add YL,r0 adc YH,r1 clr tempreg4 ;clear coll ptr ;chars mov tempreg1,r17 ;Y-pos libmio_sback1: ldi ZL,LOW(libmio_vram) ;base_address ldi ZH,HIGH(libmio_vram) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_sback2: ld tempreg3,Z+ ;get v-char st Y+,tempreg3 ;copy to ram andi tempreg3,0x0f breq libmio_sback3 ldi tempreg4,0x01 ;set col flag libmio_sback3: dec tempreg2 ;loop counter brne libmio_sback2 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_sback1 ;loop ;store coll lds ZL,libmio_bcsrcx ;ptr lds ZH,libmio_bcsrcy ld tempreg1,Z or tempreg4,tempreg1 st Z,tempreg4 ;attributes lds tempreg1,libmio_vidmode cpi tempreg1,0x06 breq libmio_sback6 mov tempreg1,r17 ;Y-pos libmio_sback4: ldi ZL,LOW(libmio_vram+690) ;base_address ldi ZH,HIGH(libmio_vram+690) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_sback5: ld tempreg3,Z+ ;get v-attr st Y+,tempreg3 ;copy to ram dec tempreg2 ;loop counter brne libmio_sback5 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_sback4 ;loop libmio_sback6: ret ;thats all ;------------------------------------------------------------------------------- ; draw ;------------------------------------------------------------------------------- libmio_sdraw: rcall libmio_sprdat add r19,r17 ;calc Y2 adiw YL,5 ;header ;chars mov tempreg1,r17 ;Y-pos libmio_sdraw1: ldi ZL,LOW(libmio_vram) ;base_address ldi ZH,HIGH(libmio_vram) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_sdraw2: ld tempreg3,Y+ ;get char st Z+,tempreg3 ;copy to vram dec tempreg2 ;loop counter brne libmio_sdraw2 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_sdraw1 ;loop ;attributes lds tempreg1,libmio_vidmode cpi tempreg1,0x06 breq libmio_sdraw6 mov tempreg1,r17 ;Y-pos libmio_sdraw3: ldi ZL,LOW(libmio_vram+690) ;base_address ldi ZH,HIGH(libmio_vram+690) ldi tempreg2,libmio_cols ;cols mul tempreg2,tempreg1 ;*Y add ZL,r0 ;add Y-offset adc ZH,r1 add ZL,r16 ;add X-offset adc ZH,const_0 mov tempreg2,r18 ;dx libmio_sdraw4: ld tempreg3,Y+ ;get v-attr lsl tempreg3 ;*2 brcc libmio_sdraw5 bst tempreg3,4 bld tempreg3,0 andi tempreg3,0x0f mov tempreg5,tempreg3 ld tempreg3,Z ;get old andi tempreg3,0xf0 or tempreg3,tempreg5 libmio_sdraw5: st Z+,tempreg3 ;copy to ram dec tempreg2 ;loop counter brne libmio_sdraw4 ;X loop inc tempreg1 ;Y+1 cp tempreg1,r19 ;end brne libmio_sdraw3 ;loop libmio_sdraw6: ret ;thats all ;------------------------------------------------------------------------------- ; data load subroutine ;------------------------------------------------------------------------------- libmio_sprdat: lds YL,libmio_bcsrcx ;ptr lds YH,libmio_bcsrcy libmio_sprdat0: ldd r16,Y+2 ;last X ldd r17,Y+1 ;last Y ldd r18,Y+4 ;dX ldd r19,Y+3 ;dY ret .endif SOURCE_142/SOURCE_system/libmio/vidm_tvs.asm0000755000175000001440000000705411725741457017733 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 6 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ libmio_tvs_e: rjmp libmio_is_15 ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -64 user defined characters are in table 6x10px each ;------------------------------------------------------------------------------- libmio_tvs: mov XL,vline_l cpi XL,5 brcs libmio_tvs_e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high ldi ZL,LOW(libmio_vram+690) ;1 offset character table ldi ZH,HIGH(libmio_vram+690) ;1 lds YL,libmio_cline ;2 get pixline offset ldi YH,3 ;3 bytes per pixline mul YL,YH ;1 add ZL,r0 adc ZH,r1 ;Z ist the base address push tempreg4 ;we need this? ldi tempreg3,30 ;Bytes per char ldi tempreg4,30 ;chars to do ldi YL,LOW(libmio_border) ldi YH,HIGH(libmio_border) ld tempreg2,Y andi tempreg2,0xf0 mov tempreg1,tempreg2 swap tempreg1 or tempreg2,tempreg1 st Y,tempreg2 libmio_tvs_1: out PORTC,tempreg2 ;1 out pix 3 swap tempreg2 ;1 prepare pix 4 ld tempreg1,X+ ;2 get char andi tempreg1,0x3f ;1 only 0-63 out PORTC,tempreg2 ;1 out pix 4 ld tempreg2,Y+ ;2 get pix 5+6 mul tempreg1,tempreg3 ;2 calc offset out PORTC,tempreg2 ;1 out pix 5 swap tempreg2 ;1 prepare pix 6 movw YL,ZL ;2 base address nop ;1 filling out PORTC,tempreg2 ;1 out pix 6 add YL,r0 ;1 add offset adc YH,r1 ;1 ld tempreg2,Y+ ;2 get pix 1+2 out PORTC,tempreg2 ;1 out pix1 swap tempreg2 ;1 prepare pix 2 dec tempreg4 ;1 chars to do -1 nop ;1 filling nop ;1 filling out PORTC,tempreg2 ;1 out pix2 ld tempreg2,Y+ ;2 get pix 3+4 brne libmio_tvs_1 ;2 loop nop ;1 correct timing out PORTC,tempreg2 ;1 out pix3 swap tempreg2 ;1 prepare pix 4 lds tempreg3,libmio_border ;2 get border nop ;1 filling out PORTC,tempreg2 ;1 out pix4 ld tempreg2,Y+ ;2 get pix5+6 pop tempreg4 ;2 out PORTC,tempreg2 ;1 out pix5 swap tempreg2 ;1 prepare pix 6 lds ZH,libmio_cline ;2 inc ZH ;1 cline +1 out PORTC,tempreg2 ;1 out pix6 ; ld ZL,-X ;2 correct X-register nop ;1 filling nop ;1 filling out PORTC,tempreg3 ;1 set color to border cpi ZH,10 ;1 check brne libmio_tvs_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvs_2: sts libmio_cline,ZH ;2 new character line jmp libmio_is_15 SOURCE_142/SOURCE_system/libmio/alert.asm0000755000175000001440000001160511725741457017204 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# drawing alert boxes # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; draw alert box, color followed by nullterminated text (without backup) ; Y=8-12 X=2-27 24 chars available ;------------------------------------------------------------------------------ libmio_abox_0: lds tempreg1,libmio_color push tempreg1 push ZH push ZL rcall libmio_albox ;draw alert box libmio_thistext .db 11,9," PRESS ENTER ",0 pop ZL pop ZH pop tempreg1 sts libmio_color,tempreg1 libmio_abox_1: rcall libmio_waitkey cpi tempreg1,0xea brne libmio_abox_1 rjmp libmio_nokey libmio_abox: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_abox1: set rcall libmio_abox_0 call mon_restore ret libmio_aboxn: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_aboxn1: clt rjmp libmio_abox_0 ;------------------------------------------------------------------------------ ; copy text to bas_inbuf ;------------------------------------------------------------------------------ libmio_boxp: lsl ZL ;*2 so we use bytes rol ZH libmio_copyt: ldi YL,LOW(bas_inbuf) ldi YH,HIGH(bas_inbuf) lpm tempreg1,Z+ ;color byte st Y+,tempreg1 ;store this ldi tempreg2,0x18 ;maxlen libmio_copyt1: lpm tempreg1,Z+ st Y+,tempreg1 cpi tempreg1,0x00 breq libmio_copyt2 dec tempreg2 brne libmio_copyt1 libmio_copyt2: st Y+,const_0 sbiw ZL,1 ;point to zero lsr ZH ;/2 ror ZL adiw ZL,1 ;point to next instruction ldi YL,LOW(bas_inbuf) ldi YH,HIGH(bas_inbuf) ret ;------------------------------------------------------------------------------ ; draw alert box, color followed by nullterminated text (without backup) ; Y=8-12 X=2-27 24 chars available ;------------------------------------------------------------------------------ libmio_ybox_0: lds tempreg1,libmio_color push tempreg1 push ZH push ZL rcall libmio_albox ;draw alert box libmio_thistext .db 11,8," (Y)es / (N)o ",0,0 pop ZL pop ZH pop tempreg1 ;restore color sts libmio_color,tempreg1 rcall libmio_nokey rcall libmio_waityn rcall libmio_nokey clr tempreg1 brtc libmio_ynbox2 inc tempreg1 libmio_ynbox2: ret libmio_ynbox: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_ynbox1: set rcall libmio_ybox_0 call mon_restore ret libmio_ynboxn: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_ynboxn1: clt rjmp libmio_ybox_0 libmio_waityn: clt rcall libmio_waitkey cpi tempreg1,0xea ;ENTER breq libmio_wyn_1 cpi tempreg1,0xed ;ESC breq libmio_wyn_2 andi tempreg1,0xdf ;UPCASE cpi tempreg1,'N' breq libmio_wyn_2 cpi tempreg1,'Y' brne libmio_waityn libmio_wyn_1: set libmio_wyn_2: ret ;----------------------------------------------------------------------- ; draw box for ask/alert, Y=pointer ;----------------------------------------------------------------------- libmio_albox: push ZH ;save Z register push ZL ldi ctrl,0x02 ;status normal sts libmio_channel,const_0 ;out to screen ld XL,Y+ ;fg call libmio_setcol ;new color push YH push YL brtc libmio_albox_0 call mon_backup libmio_albox_0: ldi YL,0x02 ldi YH,0x08 ldi ZL,0x1b ldi ZH,0x0c libmio_wbox ldi XL,0x03 ldi XH,0x09 libmio_gotoxy pop YL pop YH ldi tempreg2,0x18 ;max 24 chars libmio_albox_1: ld tempreg1,Y+ cpi tempreg1,0x00 breq libmio_albox_2 push YH push YL push tempreg2 libmio_outchar pop tempreg2 pop YL pop YH dec tempreg2 brne libmio_albox_1 ;loop libmio_albox_2: lds tempreg1,libmio_color swap tempreg1 sts libmio_color,tempreg1 pop ZL ;restore Z register pop ZH ret SOURCE_142/SOURCE_system/libmio/kstable.inc0000755000175000001440000000567511725741457017525 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# Keyboard and serial control table # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .db 0x01,0x01,0x01,0x01,0x01,0x01,0x21,0x01 ;code 00-07 .db 0x01,0x01,0x01,0x01,0x01,0x21,0x81,0x01 ;code 08-0f .db 0x01,0x00,0x00,0x21,0x00,0x11,0x01,0x01 ;code 10-17 .db 0x01,0x01,0x21,0xd1,0x01,0x01,0x01,0x01 ;code 18-1f .db 0x21,0x01,0x11,0x01,0x01,0x01,0x01,0x21 ;code 20-27 .db 0xd1,0x01,0x01,0x01,0x01,0x21,0x01,0x11 ;code 28-2f .db 0x01,0x01,0x01,0x01,0x21,0xd1,0x01,0x01 ;code 30-37 .db 0x01,0x01,0x01,0x01,0x11,0x01,0x01,0x01 ;code 38-3f .db 0x01,0x01,0xd1,0x01,0x01,0x01,0x01,0x01 ;code 40-47 .db 0x01,0x11,0x01,0x01,0x01,0x01,0x01,0xc1 ;code 48-4f .db 0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01 ;code 50-57 .db 0x01,0x00,0x01,0x01,0xc1,0x01,0x01,0x01 ;code 58-5f .db 0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x00 ;code 60-67 .db 0x01,0xc1,0x01,0x01,0x01,0x01,0x01,0x00 ;code 68-6f .db 0x01,0x01,0x01,0x01,0x01,0x01,0x41,0x01 ;code 70-77 .db 0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x00 ;code 78-7f .db 0x00,0x00,0x00,0x41,0x00,0x00,0x00,0x00 ;code 80-87 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code 88-8f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code 90-97 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code 98-9f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code a0-a7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code a8-af .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code b0-b7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code b8-bf .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code c0-c7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code c8-cf .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code d0-d7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code d8-df .db 0x10,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code e0-e7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code e8-ef .db 0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code f0-f7 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;code f8-ff SOURCE_142/SOURCE_system/libmio/generator/0000755000175000001440000000000011713042123017330 5ustar joergusersSOURCE_142/SOURCE_system/libmio/generator/ctab_f0.dat0000755000175000001440000005324511725741457021357 0ustar joerguserscell-00 Quadrat 0000 ...... ...... ...... ...... ...... ...... ...... ...... ...... ...... cell-01 Quadrat 0001 xxx... xxx... xxx... xxx... xxx... ...... ...... ...... ...... ...... cell-02 Quadrat 0010 ...xxx ...xxx ...xxx ...xxx ...xxx ...... ...... ...... ...... ...... cell-03 Quadrat 0011 xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx ...... ...... ...... ...... ...... cell-04 Quadrat 0100 ...... ...... ...... ...... ...... xxx... xxx... xxx... xxx... xxx... cell-05 Quadrat 0101 xxx... xxx... xxx... xxx... xxx... xxx... xxx... xxx... xxx... xxx... cell-06 Quadrat 0110 ...xxx ...xxx ...xxx ...xxx ...xxx xxx... xxx... xxx... xxx... xxx... cell-07 Quadrat 0111 xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxx... xxx... xxx... xxx... xxx... cell-08 Quadrat 1000 ...... ...... ...... ...... ...... ...xxx ...xxx ...xxx ...xxx ...xxx cell-09 Quadrat 1001 xxx... xxx... xxx... xxx... xxx... ...xxx ...xxx ...xxx ...xxx ...xxx cell-0a Quadrat 1010 ...xxx ...xxx ...xxx ...xxx ...xxx ...xxx ...xxx ...xxx ...xxx ...xxx cell-0b Quadrat 1011 xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx ...xxx ...xxx ...xxx ...xxx ...xxx cell-0c Quadrat 1100 ...... ...... ...... ...... ...... xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-0d Quadrat 1101 xxx... xxx... xxx... xxx... xxx... xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-0e Quadrat 1110 ...xxx ...xxx ...xxx ...xxx ...xxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-0f Quadrat 1111 xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-10 pepper and salt (no collision) x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x cell-11 ball ..xx.. .xxxx. .xxxx. xxxxxx xxxxxx xxxxxx xxxxxx .xxxx. .xxxx. ..xx.. cell-12 upper round end ..xx.. .xxxx. .xxxx. xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-13 lower round end xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx .xxxx. .xxxx. ..xx.. cell-14 car upper left .....x xx..xx xxxxxx xxxxxx xx.xxx ...xxx ...xxx ...xx. ...xx. ...xx. cell-15 car upper right x..... xx..xx xxxxxx xxxxxx xxx.xx xxx... xxx... .xx... .xx... .xx... cell-16 car lower left ...xx. ...xx. ...xx. ...xxx ...xxx xx.xxx xxxxxx xxxxxx xx..xx ...xxx cell-17 car lower right .xx... .xx... .xx... xxx... xxx... xxx.xx xxxxxx xxxxxx xx..xx xxx... cell-18 rock ..xx.. .xxx.. .xxxx. xxxxx. xxxxxx .xxxxx xxxxx. .xxxx. .xxxxx xxxxxx cell-19 ghost worry ..xx.. .xxxx. .xxxx. xxxxxx x.xx.x xxxxxx x....x x.xx.x xxxxxx x.xx.x cell-1a head ..xx.. .xxxx. .xxxx. xxxxxx x.xx.x xxxxxx xx..xx .xxxx. .xxxx. ..xx.. cell-1b point ...... ...... ..xx.. .xxxx. .xxxx. .xxxx. .xxxx. ..xx.. ...... ...... cell-1c (degree) ...... ..xxx. ..x.x. ..xxx. ...... ...... ...... ...... ...... ...... cell-1d-delta ...... ...... ...... ...x.. ..x.x. .xxxxx ...... ...... ...... ...... cell-1e-my ...... ...... ...... .x...x .x...x .x...x .x...x .xxxx. .x.... x..... cell-1f-omega ...... ...... ...... ..xxx. .x...x .x...x ..x.x. .xx.xx ...... ...... cell-20-space ...... ...... ...... ...... ...... ...... ...... ...... ...... ...... cell-21-! ...... ...x.. ...x.. ...x.. ...x.. ...x.. ...... ...x.. ...... ...... cell-22-" ...... ..x.x. ..x.x. ..x.x. ...... ...... ...... ...... ...... ...... cell-23-# ...... ..x.x. ..x.x. .xxxxx ..x.x. .xxxxx ..x.x. ..x.x. ...... ...... cell-24-$ ...... ...x.. ..xxxx .x.x.. ..xxx. ...x.x .xxxx. ...x.. ...... ...... cell-25-% ...... .xx... .xx..x ....x. ...x.. ..x... .x..xx ....xx ...... ...... cell-26-& ...... ..xx.. .x..x. .x.x.. ..x... .x.x.. .x..x. ..xx.x ...... ...... cell-27-' ...... ..xx.. ...x.. ..x... ...... ...... ...... ...... ...... ...... cell-28-( ...... ....x. ...x.. ..x... ..x... ..x... ...x.. ....x. ...... ...... cell-29-) ...... ..x... ...x.. ....x. ....x. ....x. ...x.. ..x... ...... ...... cell-2a-* ...... ...... ...x.. .x.x.x ..xxx. .x.x.x ...x.. ...... ...... ...... cell-2b-+ ...... ...... ...x.. ...x.. .xxxxx ...x.. ...x.. ...... ...... ...... cell-2c-, ...... ...... ...... ...... ...... ..xx.. ...x.. ..x... ...... ...... cell-2d-- ...... ...... ...... ...... .xxxxx ...... ...... ...... ...... ...... cell-2e-. ...... ...... ...... ...... ...... ...... ..xx.. ..xx.. ...... ...... cell-2f-/ ...... ...... .....x ....x. ...x.. ..x... .x.... ...... ...... ...... cell-30-0 ...... ..xxx. .x...x .x..xx .x.x.x .xx..x .x...x ..xxx. ...... ...... cell-31-1 ...... ...x.. ..xx.. ...x.. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-32-2 ...... ..xxx. .x...x .....x ....x. ...x.. ..x... .xxxxx ...... ...... cell-33-3 ...... .xxxxx ....x. ...x.. ....x. .....x .x...x ..xxx. ...... ...... cell-34-4 ...... ....x. ...xx. ..x.x. .x..x. .xxxxx ....x. ....x. ...... ...... cell-35-5 ...... .xxxxx .x.... .xxxx. .....x .....x .x...x ..xxx. ...... ...... cell-36-6 ...... ...xx. ..x... .x.... .xxxx. .x...x .x...x ..xxx. ...... ...... cell-37-7 ...... .xxxxx .x...x ....x. ...x.. ...x.. ..x... ..x... ...... ...... cell-38-8 ...... ..xxx. .x...x .x...x ..xxx. .x...x .x...x ..xxx. ...... ...... cell-39-9 ...... ..xxx. .x...x .x...x ..xxxx .....x ....x. ..xx.. ...... ...... cell-3a-: ...... ...... ..xx.. ..xx.. ...... ..xx.. ..xx.. ...... ...... ...... cell-3b-; ...... ...... ..xx.. ..xx.. ...... ..xx.. ...x.. ..x... ...... ...... cell-3c-< ...... ....x. ...x.. ..x... .x.... ..x... ...x.. ....x. ...... ...... cell-3d-= ...... ...... ...... .xxxxx ...... .xxxxx ...... ...... ...... ...... cell-3e-> ...... ..x... ...x.. ....x. .....x ....x. ...x.. ..x... ...... ...... cell-3f-? ...... ..xxx. .x...x .....x ....x. ...x.. ...... ...x.. ...... ...... cell-40-@ ...... ..xxx. .x...x .....x ..xx.x .x.x.x .x.x.x ..xxx. ...... ...... cell-41-A ...... ..xxx. .x...x .x...x .x...x .xxxxx .x...x .x...x ...... ...... cell-42-B ...... .xxxx. .x...x .x...x .xxxx. .x...x .x...x .xxxx. ...... ...... cell-43-C ...... ..xxx. .x...x .x.... .x.... .x.... .x...x ..xxx. ...... ...... cell-44-D ...... .xxxx. .x...x .x...x .x...x .x...x .x...x .xxxx. ...... ...... cell-45-E ...... .xxxxx .x.... .x.... .xxxx. .x.... .x.... .xxxxx ...... ...... cell-46-F ...... .xxxxx .x.... .x.... .xxxx. .x.... .x.... .x.... ...... ...... cell-47-G ...... ..xxx. .x...x .x.... .x.xxx .x...x .x...x ..xxx. ...... ...... cell-48-H ...... .x...x .x...x .x...x .xxxxx .x...x .x...x .x...x ...... ...... cell-49-I ...... ..xxx. ...x.. ...x.. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-4a-J ...... ...xxx ....x. ....x. ....x. ....x. .x..x. ..xx.. ...... ...... cell-4b-K ...... .x...x .x..x. .x.x.. .xx... .x.x.. .x..x. .x...x ...... ...... cell-4c-L ...... .x.... .x.... .x.... .x.... .x.... .x.... .xxxxx ...... ...... cell-4d-x ...... .x...x .xx.xx .x.x.x .x.x.x .x...x .x...x .x...x ...... ...... cell-4e-N ...... .x...x .x...x .xx..x .x.x.x .x..xx .x...x .x...x ...... ...... cell-4f-O ...... ..xxx. .x...x .x...x .x...x .x...x .x...x ..xxx. ...... ...... cell-50-P ...... .xxxx. .x...x .x...x .xxxx. .x.... .x.... .x.... ...... ...... cell-51-Q ...... ..xxx. .x...x .x...x .x...x .x.x.x .x..xx ..xx.x ...... ...... cell-52-x ...... .xxxx. .x...x .x...x .xxxx. .x.x.. .x..x. .x...x ...... ...... cell-53-S ...... ..xxx. .x...x .x.... ..xxx. .....x .x...x ..xxx. ...... ...... cell-54-T ...... .xxxxx ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...... ...... cell-55-U ...... .x...x .x...x .x...x .x...x .x...x .x...x ..xxx. ...... ...... cell-56-V ...... .x...x .x...x .x...x .x...x ..x.x. ..x.x. ...x.. ...... ...... cell-57-W ...... .x...x .x...x .x...x .x...x .x.x.x .x.x.x ..xxx. ...... ...... cell-58-X ...... .x...x .x...x ..x.x. ...x.. ..x.x. .x...x .x...x ...... ...... cell-59-Y ...... .x...x .x...x .x...x ..x.x. ...x.. ...x.. ...x.. ...... ...... cell-5a-Z ...... .xxxxx .....x ....x. ...x.. ..x... .x.... .xxxxx ...... ...... cell-5b-[ ...... .xxx.. .x.... .x.... .x.... .x.... .x.... .xxx.. ...... ...... cell-5c-backslash ...... .x.... .x.... ..x... ...x.. ....x. .....x .....x ...... ...... cell-5d-] ...... .xxx.. ...x.. ...x.. ...x.. ...x.. ...x.. .xxx.. ...... ...... cell-5e-^ ...... ...x.. ..x.x. .x...x ...... ...... ...... ...... ...... ...... cell-5f-_ ...... ...... ...... ...... ...... ...... ...... .xxxxx ...... ...... cell-60-' ...... ..x... ...x.. ....x. ...... ...... ...... ...... ...... ...... cell-61-a ...... ...... ...... ..xxx. .....x ..xxxx .x...x ..xxxx ...... ...... cell-62-b ...... .x.... .x.... .xxxx. .x...x .x...x .x...x .xxxx. ...... ...... cell-63-c ...... ...... ...... ..xxx. .x.... .x.... .x...x ..xxx. ...... ...... cell-64-d ...... .....x .....x ..xx.x .x..xx .x...x .x...x ..xxx. ...... ...... cell-65-e ...... ...... ...... ..xxx. .x...x .xxxxx .x.... ..xxx. ...... ...... cell-66-f ...... ...xx. ..x..x ..x... .xxx.. ..x... ..x... ..x... ...... ...... cell-67-g ...... ...... ...... ..xxxx .x...x .x...x ..xxxx .....x ..xxx. ...... cell-68-h ...... .x.... .x.... .x.xx. .xx..x .x...x .x...x .x...x ...... ...... cell-69-i ...... ...x.. ...... ..xx.. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-6a-j ...... ....x. ...... ...xx. ....x. ....x. ....x. .x..x. ..xx.. ...... cell-6b-k ...... .x.... .x.... .x..x. .x.x.. .xx... .x.x.. .x..x. ...... ...... cell-6c-l ...... ..xx.. ...x.. ...x.. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-6d-m ...... ...... ...... .xx.x. .x.x.x .x.x.x .x...x .x...x ...... ...... cell-6e-n ...... ...... ...... .x.xx. .xx..x .x...x .x...x .x...x ...... ...... cell-6f-o ...... ...... ...... ..xxx. .x...x .x...x .x...x ..xxx. ...... ...... cell-70-p ...... ...... ...... .xxx.. .x..x. .x..x. .xxx.. .x.... .x.... ...... cell-71-q ...... ...... ...... ..xxx. .x..x. .x..x. ..xxx. ....x. ....xx ...... cell-72-r ...... ...... ...... .x.xx. .xx..x .x.... .x.... .x.... ...... ...... cell-73-s ...... ...... ...... ..xxx. .x.... ..xxx. .....x .xxxx. ...... ...... cell-74-t ...... ..x... ..x... .xxx.. ..x... ..x... ..x.x. ...x.. ...... ...... cell-75-u ...... ...... ...... .x...x .x...x .x...x .x..xx ..xx.x ...... ...... cell-76-v ...... ...... ...... .x...x .x...x .x...x ..x.x. ...x.. ...... ...... cell-77-w ...... ...... ...... .x...x .x...x .x...x .x.x.x ..x.x. ...... ...... cell-78-x ...... ...... ...... .x...x ..x.x. ...x.. ..x.x. .x...x ...... ...... cell-79-y ...... ...... ...... .x...x .x...x ..xx.x ....xx .....x ..xxx. ...... cell-7a-z ...... ...... ...... .xxxxx ....x. ...x.. ..x... .xxxxx ...... ...... cell-7b-{ ...... ....x. ...x.. ...x.. ..x... ...x.. ...x.. ....x. ...... ...... cell-7c-| ...... ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...... ...... cell-7d-} ...... ..x... ...x.. ...x.. ....x. ...x.. ...x.. ..x... ...... ...... cell-7e tilde ...... ...... ...... ..x... .x.x.x ....x. ...... ...... ...... ...... cell-7f -> ...... ...... ...x.. ....x. xxxxxx ....x. ...x.. ...... ...... ...... cell-80 rhombus ..xx.. ..xx.. .xxxx. .xxxx. xxxxxx xxxxxx .xxxx. .xxxx. ..xx.. ..xx.. cell-81 choice x..... xx.... xxx... xxxx.. xxxxx. xxxxx. xxxx.. xxx... xx.... x..... cell-82 triangle 1 .....x .....x ....xx ...xxx ...xxx ..xxxx ..xxxx .xxxxx xxxxxx xxxxxx cell-83 triangle 2 x..... x..... xx.... xxx... xxx... xxxx.. xxxx.. xxxxx. xxxxxx xxxxxx cell-84 bell ...... ..xx.. .x..x. .x..x. .x..x. x....x xxxxxx ..xx.. ...... ...... cell-85 OK ...... ...... ...x.x ..x..x .xxxxx ..x... ...x.. ...... ...... ...... cell-86 backarrow ...... ...... ...x.. ..xx.. .xxxxx ..xx.. ...x.. ...... ...... ...... cell-87 sz ...... ..xx.. .x..x. .x..x. .xxx.. .x..x. .x..x. .xxx.. .x.... ...... cell-88 left round end ..xxxx .xxxxx .xxxxx xxxxxx xxxxxx xxxxxx xxxxxx .xxxxx .xxxxx ..xxxx cell-89 right round end xxxx.. xxxxx. xxxxx. xxxxxx xxxxxx xxxxxx xxxxxx xxxxx. xxxxx. xxxx.. cell-8a pepper and salt (collision) x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x x.x.x. .x.x.x cell-8b grey level 1 ..x..x .x..x. ..x..x x..x.. .x..x. x..x.. ..x..x .x..x. ..x..x x..x.. cell-8c grey level 2 xx.xx. .xx.xx xx.xx. x.xx.x xx.xx. x.xx.x xx.xx. .xx.xx x.xx.x .xx.xx cell-8d positive pulse ...... .xxxx. .xxxx. .x..x. .x..x. .x..x. .x..x. xx..xx xx..xx ...... cell-8e negative pulse ...... xx..xx xx..xx .x..x. .x..x. .x..x. .x..x. .xxxx. .xxxx. ...... cell-8f full xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx cell-90 Ae .x...x ...... ..xxx. .x...x .x...x .xxxxx .x...x .x...x ...... ...... cell-91-ae ...... ..x.x. ...... ..xxx. .....x ..xxxx .x...x ..xxxx ...... ...... cell-92 Oe .x...x ...... ..xxx. .x...x .x...x .x...x .x...x ..xxx. ...... ...... cell-93-oe ...... ..x.x. ...... ..xxx. .x...x .x...x .x...x ..xxx. ...... ...... cell-94 Ue .x...x ...... .x...x .x...x .x...x .x...x .x...x ..xxx. ...... ...... cell-95 ue ...... ..x.x. ...... .x...x .x...x .x...x .x..xx ..xx.x ...... ...... cell-96 A ..x.x. ...x.. ...... ..xxx. .x...x .x...x .xxxxx .x...x ...... ...... cell-97-ae ..x.x. ...x.. ...... ..xxx. .....x ..xxxx .x...x ..xxxx ...... ...... cell-98 A ...x.. ..x.x. ...... ..xxx. .x...x .x...x .xxxxx .x...x ...... ...... cell-99-a ...x.. ..x.x. ...... ..xxx. .....x ..xxxx .x...x ..xxxx ...... ...... cell-9a-I ...x.. ..x.x. ...... ..xxx. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-9b-i ...x.. ..x.x. ...... ..xx.. ...x.. ...x.. ...x.. ..xxx. ...... ...... cell-9c S, ...... ..xxx. .x...x .x.... ..xxx. .....x .x...x ..xxx. ...x.. ..x... cell-9d-s, ...... ...... ..xxx. .x.... ..xxx. .....x .xxxx. ...... ...x.. ..x... cell-9e T, ...... .xxxxx ...x.. ...x.. ...x.. ...x.. ...x.. ...... ...x.. ..x... cell-9f-t, ...... ..x... ..x... .xxx.. ..x... ..x.x. ...x.. ...... ...x.. ..x... cell-a0 Pfeil o/u ...... ...x.. ..xxx. .xxxxx ...x.. ...x.. .xxxxx ..xxx. ...x.. ...... cell-a1 baumstamm ..xx.. ..xx.. ..xx.. .xxxx. xxxxxx ...... ...... ...... ...... ...... cell-a2 laubbaum ...... ...... ..xx.. .xxxx. .xxxx. xxxxxx xxxxxx xxxxxx .xxxx. .xxxx. cell-a3 Nadelbaum ...... ...... ..xx.. .xxxx. ..xx.. .xxxx. xxxxxx ..xx.. .xxxx. xxxxxx cell-a4 circle A1 ....xx ...xxx ..xxxx ..xxxx .xxxxx .xxxxx .xxxxx xxxxxx xxxxxx xxxxxx cell-a5 circle A2 xx.... xxx... xxxx.. xxxx.. xxxxx. xxxxx. xxxxx. xxxxxx xxxxxx xxxxxx cell-a6 circle A3 xxxxxx xxxxxx xxxxxx .xxxxx .xxxxx .xxxxx ..xxxx ..xxxx ...xxx ....xx cell-a7 circle A4 xxxxxx xxxxxx xxxxxx xxxxx. xxxxx. xxxxx. xxxx.. xxxx.. xxx... xx.... cell-a8 plane end ...... .....x xx...x xxx... xxxxxx xxxxxx xxxxxx xxx... xx...x .....x cell-a9 plane front ...... x..... xx.... xx.... xxxxx. xxxxxx xxxxx. xx.... xx.... x..... cell-aa dline 1 .....x .....x ....x. ....x. ...x.. ..x... ..x... .x.... x..... x..... cell-ab dline 2 x..... x..... .x.... .x.... ..x... ...x.. ...x.. ....x. .....x .....x cell-ac Haus ..xx.. ..xx.. .xxxx. .xxxx. xxxxxx xxxxxx x..x.x x..x.x x..x.x xxxx.x cell-ad gitter xxxxxx x.x.x. xxxxxx x.x.x. xxxxxx x.x.x. xxxxxx x.x.x. xxxxxx x.x.x. cell-ae Mann 1 ...... ..xx.. .xxxx. ..xx.. ..xx.. xxxxxx ..xx.. .xxxx. .x..x. xx..xx cell-af Mann 2 ..xxx. .x.x.x .xxxxx .x...x ..xxx. ...x.. .xxxxx ...x.. ..x.x. .xx.xx cell-b0 ground ..xx.. ..xx.. ..xx.. xxxxxx ...... .xxxx. ...... ..xx.. ...... ...... cell-b1 block ...... .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. ...... cell-b2 brick wall xxxxxx ....x. ....x. ....x. ....x. xxxxxx .x.... .x.... .x.... .x.... cell-b3 brick left ...... ...... .xxxxx .xxxxx .xxxxx .xxxxx .xxxxx .xxxxx ...... ...... cell-b4 brick right ...... ...... xxxxx. xxxxx. xxxxx. xxxxx. xxxxx. xxxxx. ...... ...... cell-b5 brick oben ...... ...... .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. cell-b6 brick unten .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. ...... ...... cell-b7 frog ..xx.. x.xx.x xxxxxx ..xx.. .xxxx. .xxxx. ..xx.. x.xx.x xxxxxx ..xx.. cell-b8 line up xxxxxx xxxxxx ...... ...... ...... ...... ...... ...... ...... ...... cell-b9 line bottom ...... ...... ...... ...... ...... ...... ...... ...... xxxxxx xxxxxx cell-ba line left x..... x..... x..... x..... x..... x..... x..... x..... x..... x..... cell-bb line right .....x .....x .....x .....x .....x .....x .....x .....x .....x .....x cell-bc cross x....x x....x .x..x. .x..x. ..xx.. ..xx.. .x..x. .x..x. x....x x....x cell-bd missile up ...x.. ..xxx. ..xxx. ..xxx. ..xxx. ...... ...... ...... ...... ...... cell-be missile bottom ...... ...... ...... ...... ...x.. ..xxx. ..xxx. ..xxx. ..xxx. ...... cell-bf Ufo1 ...... ...... .xxxx. xxxxxx xxxxxx .xxxx. x....x ...... ...... ...... cell-c0 connect 1 ...... ...... ...... ..xx.. xxxxxx xxxxxx .xxxx. ..xx.. ..xx.. ..xx.. cell-c1 connect 2 ..xx.. ..xx.. ..xx.. .xxxx. xxxxxx xxxxxx .xxxx. ...... ...... ...... cell-c2 connect 3 ..xx.. ..xx.. ..xx.. .xxxx. xxxxx. xxxxx. .xxxx. ..xx.. ..xx.. ..xx.. cell-c3 connect 4 ..xx.. ..xx.. ..xx.. .xxxx. .xxxxx .xxxxx .xxxx. ..xx.. ..xx.. ..xx.. cell-c4 connect cross ..xx.. ..xx.. ..xx.. .xxxx. xxxxxx xxxxxx .xxxx. ..xx.. ..xx.. ..xx.. cell-c5 capacitor H ...... .x..x. .x..x. .x..x. xx..xx xx..xx .x..x. .x..x. .x..x. ...... cell-c6 capacitor V ..xx.. ..xx.. xxxxxx xxxxxx ...... ...... xxxxxx xxxxxx ..xx.. ..xx.. cell-c7 battery ..xx.. ..xx.. xxxxxx xxxxxx ...... .xxxx. .xxxx. .xxxx. ..xx.. ..xx.. cell-c8 switch open ...x.. x..... x..... .x.... .x.... ..x... ..x... ...x.. ...x.. ...x.. cell-c9 switch closed ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. ...x.. cell-ca lamp ..xx.. ..xx.. .xxxx. x....x x....x x....x x....x .xxxx. ..xx.. ..xx.. cell-cb diode ...... .x...x .xx..x .xxx.x xxxxxx xxxxxx .xxx.x .xx..x .x...x ...... cell-cc resistor left ...... ...... .xxxxx .x.... xx.... xx.... .x.... .xxxxx ...... ...... cell-cc resistor right ...... ...... xxxxx. ....x. ....xx ....xx ....x. xxxxx. ...... ...... cell-ce falling edge ...... ...... .xxx.. ...x.. .xxxxx ..xxx. ...x.. ...xxx ...... ...... cell-cf rising edge ...... ...... ...xxx ...x.. ..xxx. .xxxxx ...x.. .xxx.. ...... ...... . cell-d0 icon 1 topleft xxxxxx xxxxxx xxxxxx xxxxxx xx...x xx.x.x xx.x.x xx.x.x xx...x xxxxxx cell-d1 icon 1 topright xxx... xxxx.. xxxxx. xxxxxx xx.xxx x..xxx xx.xxx xx.xxx xx.xxx xxxxxx cell-d2 icon 1 bottomleft xxxxxx xx...x xx.x.x xx.x.x xx.x.x xx...x xxxxxx xxxxxx xxxxxx ...... cell-d3 icon 1 bottomright xxxxxx ...xxx xx.xxx ...xxx .xxxxx ...xxx xxxxxx xxxxxx xxxxxx ...... cell-d4 icon 2 topleft ....xx ...xxx ..xxxx .xxxxx xxxxxx xxxxx. xxxxx. xxxxxx xxxxx. xxxxx. cell-d5 icon 2 topright xx.... xxx... xxxx.. xxxxx. xxxxxx .xxxxx .xxxxx xxxxxx .xxxxx .xxxxx cell-d6 icon 2 bottomleft xxxxx. xxxxx. xxxx.. xxxx.. xxxxxx .xxxxx ..xxxx ...xxx ....xx ...... cell-d7 icon 2 bottomright .xxxxx .xxxxx ..xxxx ..xxxx xxxxxx xxxxx. xxxx.. xxx... xx.... ...... cell-d8 icon 3 topleft xxxxxx x..... x..x.. x.xx.. x.xx.. x.xx.. x.xxx. x..xxx x...xx x...xx cell-d9 icon 3 topright xxxxxx .....x ..x..x ..xx.x ..xx.x ..xx.x .xxx.x xxx..x xx...x xx...x cell-da icon 3 bottomleft x...xx x...xx x...xx x...xx x...xx x...xx x....x x..... xxxxxx ...... cell-db icon 3 bottomright xx...x xx...x xx...x xx...x xx...x xx...x x....x .....x xxxxxx ...... cell-dc icon 4 topleft ...... ...... .xxxxx xxxxxx xxxx.. .xxx.x .xxx.x xxxx.x xxxx.x .xxx.. cell-dd icon 4 topright ...... ...... xxxxx. xxxxxx ...xxx xxxxx. xxxxx. xxxxxx xxxxxx ..xxx. cell-de icon 4 bottomleft .xxx.x xxxx.x xxxx.x .xxx.x .xxxxx xxxxxx xxxxxx .xxxxx ...... ...... cell-df icon 4 bottomright xxxxx. xxxxxx xxxxxx xxxxx. xxxxx. xxxxxx xxxxxx xxxxx. ...... ...... cell-e0 cactus ...... ..xx.. ..xx.x x.xx.x x.xxx. .xxx.. ..xx.. ..xx.. .xxxx. ...... cell-e1 tower ...... .x.x.x .x.x.x ..xxx. ..xxx. ..xxx. ..xxx. .xxxxx .xxxxx ...... cell-e2 small point ...... ...... ...... ...... ..xx.. ..xx.. ...... ...... ...... ...... cell-e3 empty box ...... xxxxxx x....x x....x x....x x....x x....x x....x xxxxxx ...... cell-e4 box with fill ...... xxxxxx x....x x.xx.x x.xx.x x.xx.x x.xx.x x....x xxxxxx ...... cell-e5 brick ...... ...... .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. .xxxx. ...... ...... cell-e6 upleft native icon ...... .xxxxx xxxxxx xxxxxx x..xx. x.x.xx x..xx. x.x.x. x..xx. xxxxxx cell-e7 upright icon ...... xxxxx. xxxxxx xxxxxx xxxxxx xxxxxx x..xxx x.x.xx x.x.xx xxxxxx cell-e8 downleft icon xxxxxx x.x.x. x..... x..... x..... x..... x.x.x. xxxxxx .xxxxx ...... cell-e9 downright icon xxxxxx x.x.xx ....xx ....xx ....xx ....xx x.x.xx xxxxxx xxxxx. ...... cell-ea banana/moon .x.... ..x... ..xx.. ...xx. ...xx. ...xx. ...xx. ..xx.. ..x... .x.... cell-eb apple ...x.. ..x... ..x... .xxx.. xxxxx. xxxxx. xxxxx. xxxxx. .xxx.. ...... cell-ec header top ...... ...... ...... ...... xxxxxx xxxxxx xxxxxx xxxxxx ...... xxxxxx cell-ed header bottom xxxxxx ...... xxxxxx xxxxxx xxxxxx xxxxxx ...... ...... ...... ...... cell-ee left header T ..xx.. ..xxx. ..xxxx ..xxxx ..xxxx ..xxxx ..xx.. ..xx.. ..xx.. ..xx.. cell-ef right header T ..xx.. .xxx.. xxxx.. xxxx.. xxxx.. xxxx.. ..xx.. ..xx.. ..xx.. ..xx.. cell-f0 vertical line ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. ..xx.. cell-f1 horizontal line ...... ...... ...... ...... xxxxxx xxxxxx ...... ...... ...... ...... cell-f2 upleft corner ...... ...... ...... ...... ..xxxx ..xxxx ..xx.. ..xx.. ..xx.. ..xx.. cell-f3 upright corner ...... ...... ...... ...... xxxx.. xxxx.. ..xx.. ..xx.. ..xx.. ..xx.. cell-f4 lowleft corner ..xx.. ..xx.. ..xx.. ..xx.. ..xxxx ..xxxx ...... ...... ...... ...... cell-f5 lowright corner ..xx.. ..xx.. ..xx.. ..xx.. xxxx.. xxxx.. ...... ...... ...... ...... cell-f6 upper T ...... ...... ...... ...... xxxxxx xxxxxx ..xx.. ..xx.. ..xx.. ..xx.. cell-f7 lower T ..xx.. ..xx.. ..xx.. ..xx.. xxxxxx xxxxxx ...... ...... ...... ...... cell-f8 left T ..xx.. ..xx.. ..xx.. ..xx.. ..xxxx ..xxxx ..xx.. ..xx.. ..xx.. ..xx.. cell-f9 rigt T ..xx.. ..xx.. ..xx.. ..xx.. xxxx.. xxxx.. ..xx.. ..xx.. ..xx.. ..xx.. cell-fa cross ..xx.. ..xx.. ..xx.. ..xx.. xxxxxx xxxxxx ..xx.. ..xx.. ..xx.. ..xx.. cell-fb header top left full ...... ...... ...... ...... ..xxxx ..xxxx ..xxxx ..xxxx ..xxx. ..xx.. cell-fc header top right full ...... ...... ...... ...... xxxx.. xxxx.. xxxx.. xxxx.. .xxx.. ..xx.. cell-fd header left ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x ..xx.x cell-fe header right x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. x.xx.. cell-ff empty xxx... x..... xx.... x.xxx. x.x... ..xx.. ..x... ..x... ...... ...... SOURCE_142/SOURCE_system/libmio/generator/generate_chartable.pl0000755000175000001440000000771511725741457023524 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # table generator for libmio # # copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # # # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 3 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # # General Public License for more details. # # # # You should have received a copy of the GNU General Public # # License along with this library; if not, write to the # # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # # Boston, MA 02111-1307, USA. # # # ################################################################################# sub clear_cells { for($i=0;$i<3072;$i++) { $mcell[$i]=0; } } sub get_pixel { $nb=0; if ($z =~ /^\./) {$nb=0} elsif ($z =~ /^x/) {$nb=1} $z=$'; return $nb; } &clear_cells; ############################################################################### # read character cells ############################################################################### open (RTAB, "ctab_f0.dat"); $cline=0; $count=0; while() { $z=$_; chomp($z); if ($z =~ /cell/) { $cline=0; } elsif (length($z)>5) { $pix1=&get_pixel(); $pix2=&get_pixel(); $pix3=&get_pixel(); $pix4=&get_pixel(); $pix5=&get_pixel(); $pix6=&get_pixel(); $mbyte=0; if ($pix1 > 0 ) { $mbyte+=128; } if ($pix2 != $pix1) { $mbyte+=64; } if ($pix3 != $pix2) { $mbyte+=32; } if ($pix4 != $pix3) { $mbyte+=16; } if ($pix5 != $pix4) { $mbyte+=8; } if ($pix6 != $pix5) { $mbyte+=4; } $mcell[$count+256*($cline)]=$mbyte; $cline++; if ($cline==10) { $cline=0; $count++; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### open (WTAB, ">../ctable_f0.inc"); for($i=0;$i<160;$i++) { print WTAB " .db "; for($j=0;$j<16;$j++) { $cellpos=$i*16+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<15) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); &clear_cells; ############################################################################### # read character cells ############################################################################### open (RTAB, "ctab_f1.dat"); $cline=0; $count=0; $oe=0; $mbyte=0; while() { $z=$_; chomp($z); if ($z =~ /cell/) { $cline=0; } elsif (length($z)>2) { $pix1=&get_pixel(); $pix2=&get_pixel(); $pix3=&get_pixel(); $pix4=&get_pixel(); if ($pix1 > 0 ) { $mbyte+=8; } if ($pix2 > 0 ) { $mbyte+=4; } if ($pix3 > 0 ) { $mbyte+=2; } if ($pix4 > 0 ) { $mbyte+=1; } if ($oe==0) { $mbyte=16*$mbyte; $oe=1; } else { $hcell[$count++]=$mbyte; $mbyte=0; $oe=0; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### open (WTAB, "> ../ctable_f1.inc"); for($i=0;$i<24;$i++) { print WTAB " .db "; for($j=0;$j<16;$j++) { $cellpos=$i*16+$j; $y=$hcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<15) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); SOURCE_142/SOURCE_system/libmio/generator/generate_sound.pl0000755000175000001440000001037711725741457022725 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # sound table generator for libmio # # copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # # # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 3 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # # General Public License for more details. # # # # You should have received a copy of the GNU General Public # # License along with this library; if not, write to the # # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # # Boston, MA 02111-1307, USA. # # # ################################################################################# $takt=20000000; $pwm=1280; $maxcount=65536; $fakt=3.5; open ($fh, ">../soundtables.inc"); #---generate wave 1 --------------------------- $sin1=0.65; $cos1=0; $sin2=0; $cos2=0; $sin3=0.2; $cos3=0; $sin4=0; $cos4=0; $sin5=0; $cos5=0.1; $sin6=0; $cos6=0; $sin7=0.05; $cos7=0; print $fh "libmio_wtable1:"; for($j=0;$j<16;$j++) { print $fh "\n .db "; for($i=0;$i<16;$i++) { $x=$i+16*$j; $y=0; $y+=$sin1*127*sin($x*3.1416/128); $y+=$cos1*127*cos($x*3.1416/128); $y+=$sin2*127*sin($x*3.1416/64); $y+=$cos2*127*cos($x*3.1416/64); $y+=$sin3*127*sin($x*3.1416/42.66667); $y+=$cos3*127*cos($x*3.1416/42.66667); $y+=$sin4*127*sin($x*3.1416/32); $y+=$cos4*127*cos($x*3.1416/32); $y+=$sin5*127*sin($x*3.1416/25.6); $y+=$cos5*127*cos($x*3.1416/25.6); $y+=$sin6*127*sin($x*3.1416/21.33333); $y+=$cos6*127*cos($x*3.1416/21.33333); $y+=$sin7*127*sin($x*3.1416/18.2857); $y+=$cos7*127*cos($x*3.1416/18.2857); if ($y<(-0.5)) {$y=256+$y}; if ($y<1) {printf $fh "0x00"} else {printf $fh "%#2.2x",$y}; if($i<15) {print $fh ","} } } #---generate wave 2 --------------------------- $sin1=0.25; $cos1=0; $sin2=0.25; $cos2=0; $sin3=0; $cos3=0; $sin4=0.25; $cos4=0; $sin5=0; $cos5=0; $sin6=0.25; $cos6=0; $sin7=0.00; $cos7=0; print $fh "\nlibmio_wtable2:"; for($j=0;$j<16;$j++) { print $fh "\n .db "; for($i=0;$i<16;$i++) { $x=$i+16*$j; $y=0; $y+=$sin1*127*sin($x*3.1416/128); $y+=$cos1*127*cos($x*3.1416/128); $y+=$sin2*127*sin($x*3.1416/64); $y+=$cos2*127*cos($x*3.1416/64); $y+=$sin3*127*sin($x*3.1416/42.66667); $y+=$cos3*127*cos($x*3.1416/42.66667); $y+=$sin4*127*sin($x*3.1416/32); $y+=$cos4*127*cos($x*3.1416/32); $y+=$sin5*127*sin($x*3.1416/25.6); $y+=$cos5*127*cos($x*3.1416/25.6); $y+=$sin6*127*sin($x*3.1416/21.33333); $y+=$cos6*127*cos($x*3.1416/21.33333); $y+=$sin7*127*sin($x*3.1416/18.2857); $y+=$cos7*127*cos($x*3.1416/18.2857); if ($y<(-0.5)) {$y=256+$y}; if ($y<1) {printf $fh "0x00"} else {printf $fh "%#2.2x",$y}; if($i<15) {print $fh ","} } } #---envelope 1 (simply e^-x) ------------------------------- print $fh "\n\nlibmio_etable:"; $ende=16; for($j=0;$j<2;$j++) { print $fh "\n .db "; for($i=0;$i<16;$i++) { $x=$i+16*$j; $y=128*exp(-($x/$ende*$fakt))+0.5; if ($x > $ende) {$y=0}; if (($y)<1) {printf $fh "0x00"} else {printf $fh "%#2.2x",$y}; if ($i<15) {print $fh ","}; } } #---envelope 1 (simply e^-x) ------------------------------- $ende=94; for($j=0;$j<6;$j++) { print $fh "\n .db "; for($i=0;$i<16;$i++) { $x=$i+16*$j; $y=128*exp(-($x/$ende*$fakt/2))+0.5; if ($x > $ende) {$y=0}; if (($y)<1) {printf $fh "0x00"} else {printf $fh "%#2.2x",$y}; if ($i<15) {print $fh ","}; } } #---generate offset table for notes-------------------------- $sprung=exp(log(2)/12); $samfrq=$takt/$pwm; print $fh "\n\nlibmio_ntable:"; for($j=0;$j<8;$j++) { print $fh "\n .db "; for($i=0;$i<8;$i++) { $x=$i+8*$j; $freq=27.5*$sprung**($x+3); $delta=$maxcount*$freq/$samfrq; $y=int($delta+0.5); if (($y%256)<1) {printf $fh "0x00,"} else {printf $fh "%#2.2x,",$y%256}; if (($y/256)<1) {printf $fh "0x00"} else {printf $fh "%#2.2x",$y/256}; if ($i<7) {print $fh ","}; } } close($fh); SOURCE_142/SOURCE_system/libmio/generator/ctab_f1.dat0000755000175000001440000001262511725741457021355 0ustar joerguserscell-00 Quadrat 0000 .... .... .... .... .... .... cell-01 Quadrat 0001 xx.. xx.. xx.. .... .... .... cell-02 Quadrat 0010 ..xx ..xx ..xx .... .... .... cell-03 Quadrat 0011 xxxx xxxx xxxx .... .... .... cell-04 Quadrat 0100 .... .... .... xx.. xx.. xx.. cell-05 Quadrat 0101 xx.. xx.. xx.. xx.. xx.. xx.. cell-06 Quadrat 0110 ..xx ..xx ..xx xx.. xx.. xx.. cell-07 Quadrat 0111 xxxx xxxx xxxx xx.. xx.. xx.. cell-08 Quadrat 1000 .... .... .... ..xx ..xx ..xx cell-09 Quadrat 1001 xx.. xx.. xx.. ..xx ..xx ..xx cell-0a Quadrat 1010 ..xx ..xx ..xx ..xx ..xx ..xx cell-0b Quadrat 1011 xxxx xxxx xxxx ..xx ..xx ..xx cell-0c Quadrat 1100 .... .... .... xxxx xxxx xxxx cell-0d Quadrat 1101 xx.. xx.. xx.. xxxx xxxx xxxx cell-0e Quadrat 1110 ..xx ..xx ..xx xxxx xxxx xxxx cell-0f Quadrat 1111 xxxx xxxx xxxx xxxx xxxx xxxx cell-10 pepper and salt x.x. .x.x x.x. .x.x x.x. .x.x cell-11 ball .... .xx. xxxx xxxx .xx. .... cell-12 up arrow .x.. xxx. .x.x .x.. .x.. .... cell-13 down arrow .x.. .x.. .x.x xxx. .x.. .... cell-14 left arrow ..x. .x.. xxxx .x.. ..x. .... cell-15 right arrow .x.. ..x. xxxx ..x. .x.. .... cell-16 empty .... .... .... .... .... .... cell-17 empty .... .... .... .... .... .... cell-18 empty .... .... .... .... .... .... cell-19 empty .... .... .... .... .... .... cell-1a empty .... .... .... .... .... .... cell-1b empty .... .... .... .... .... .... cell-1c (degree) .... xxx. x.x. xxx. .... .... cell-1d-delta .... .... .... .x.. xxx. .... cell-1e-my .... .... x.x. x.x. xxx. x... cell-1f-omega .... .... xxx. xxx. .x.. xxx. cell-20-space .... .... .... .... .... .... cell-21-! .x.. .x.. .x.. .... .x.. .... cell-22-" x.x. x.x. .... .... .... .... cell-23-# .xx. .xx. xxxx xxxx .xx. .xx. cell-24-$ .xx. x... .x.. ..x. xx.. .x.. cell-25-% x.x. ..x. .x.. x... x.x. .... cell-26-& .... .... .... .... .... .... cell-27-' .x.. .x.. .... .... .... .... cell-28-( .x.. x... x... x... .x.. .... cell-29-) .x.. ..x. ..x. ..x. .x.. .... cell-2a-* .... x.x. .x.. x.x. .... .... cell-2b-+ .... .x.. xxx. .x.. .... .... cell-2c-, .... .... .... .x.. x... .... cell-2d-- .... .... xxx. .... .... .... cell-2e-. .... .... .... .... .x.. .... cell-2f-/ ..x. ..x. .x.. x... x... .... cell-30-0 xxx. x.x. x.x. x.x. xxx. .... cell-31-1 .x.. xx.. .x.. .x.. xxx. .... cell-32-2 xxx. ..x. xxx. x... xxx. .... cell-33-3 xxx. ..x. xxx. ..x. xxx. .... cell-34-4 x.x. x.x. xxx. ..x. ..x. .... cell-35-5 xxx. x... xxx. ..x. xxx. .... cell-36-6 xxx. x... xxx. x.x. xxx. .... cell-37-7 xxx. ..x. .x.. x... x... .... cell-38-8 xxx. x.x. xxx. x.x. xxx. .... cell-39-9 xxx. x.x. xxx. ..x. xxx. .... cell-3a-: .... .x.. .... .x.. .... .... cell-3b-; .... .x.. .... .x.. x... .... cell-3c-< ..x. .x.. x... .x.. ..x. .... cell-3d-= .... xxx. .... xxx. .... .... cell-3e-> x... .x.. ..x. .x.. x... .... cell-3f-? xx.. ..x. .xx. x... xxx. .x.. cell-40-@ .... .... xxx. xxx. xxx. .... cell-41-A .x.. x.x. x.x. xxx. x.x. .... cell-42-B xx.. x.x. xx.. x.x. xx.. .... cell-43-C .xx. x... x... x... .xx. .... cell-44-D xx.. x.x. x.x. x.x. xx.. .... cell-45-E xxx. x... xx.. x... xxx. .... cell-46-F xxx. x... xx.. x... x... .... cell-47-G .xx. x... xxx. x.x. .xx. .... cell-48-H x.x. x.x. xxx. x.x. x.x. .... cell-49-I xxx. .x.. .x.. .x.. xxx. .... cell-4a-J xxx. ..x. ..x. x.x. .xx. .... cell-4b-K x.x. xx.. x... xx.. x.x. .... cell-4c-L x... x... x... x... xxx. .... cell-4d-M x.x. xxx. x.x. x.x. x.x. .... cell-4e-N xx.. x.x. x.x. x.x. x.x. .... cell-4f-O .x.. x.x. x.x. x.x. .x.. .... cell-50-P xxx. x.x. xxx. x... x... .... cell-51-Q .x.. x.x. x.x. x.x. .xx. .... cell-52-R xxx. x.x. xxx. xx.. x.x. .... cell-53-S .xx. x... xxx. ..x. xx.. .... cell-54-T xxx. .x.. .x.. .x.. .x.. .... cell-55-U x.x. x.x. x.x. x.x. xxx. .... cell-56-V x.x. x.x. x.x. x.x. .x.. .... cell-57-W x.x. x.x. x.x. xxx. x.x. .... cell-58-X x.x. x.x. .x.. x.x. x.x. .... cell-59-Y x.x. x.x. .x.. .x.. .x.. .... cell-5a-Z xxx. ..x. .x.. x... xxx. .... cell-5b-[ .xx. .x.. .x.. .x.. .xx. .... cell-5c-tilde .... .x.. x.x. .x.. .... .... cell-5d-] xx.. .x.. .x.. .x.. xx.. .... cell-5e-^ .x.. x.x. .... .... .... .... cell-5f-_ .... .... .... .... xxx. .... cell-60-' .x.. .x.. .... .... .... .... cell-61-A .x.. x.x. x.x. xxx. x.x. .... cell-62-B xx.. x.x. xx.. x.x. xx.. .... cell-63-C .xx. x... x... x... .xx. .... cell-64-D xx.. x.x. x.x. x.x. xx.. .... cell-65-E xxx. x... xx.. x... xxx. .... cell-66-F xxx. x... xx.. x... x... .... cell-67-G .xx. x... xxx. x.x. .xx. .... cell-68-H x.x. x.x. xxx. x.x. x.x. .... cell-69-I xxx. .x.. .x.. .x.. xxx. .... cell-6a-J xxx. ..x. ..x. x.x. .xx. .... cell-6b-K x.x. xx.. x... xx.. x.x. .... cell-6c-L x... x... x... x... xxx. .... cell-6d-M x.x. xxx. x.x. x.x. x.x. .... cell-6e-N xx.. x.x. x.x. x.x. x.x. .... cell-6f-O .x.. x.x. x.x. x.x. .x.. .... cell-70-P xxx. x.x. xxx. x... x... .... cell-71-Q .x.. x.x. x.x. x.x. .xx. .... cell-72-R xxx. x.x. xxx. xx.. x.x. .... cell-73-S .xx. x... xxx. ..x. xx.. .... cell-74-T xxx. .x.. .x.. .x.. .x.. .... cell-75-U x.x. x.x. x.x. x.x. xxx. .... cell-76-V x.x. x.x. x.x. x.x. .x.. .... cell-77-W x.x. x.x. x.x. xxx. x.x. .... cell-78-X x.x. x.x. .x.. x.x. x.x. .... cell-79-Y x.x. x.x. .x.. .x.. .x.. .... cell-7a-Z xxx. ..x. .x.. x... xxx. .... cell-7b-{ ..x. .x.. xx.. .x.. ..x. .... cell-7c-| .x.. .x.. .x.. .x.. .x.. .x.. cell-7d-} x... .x.. .xx. .x.. x... .... cell-7e \ x... x... .x.. ..x. ..x. .... cell-7f -> x... xx.. xxx. xx.. x... .... SOURCE_142/SOURCE_system/libmio/generator/generate_cirtab.pl0000755000175000001440000000335611725741457023040 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # circle x-calc table generator for libmio # # copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # # # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 3 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # # General Public License for more details. # # # # You should have received a copy of the GNU General Public # # License along with this library; if not, write to the # # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # # Boston, MA 02111-1307, USA. # # # ################################################################################# for($i=0;$i<256;$i++) { $inval=$i; if ($inval <1) {$inval=1} $value=255.5*cos($inval/255*3.14152/2); $scell[$i]=$value%256; } ############################################################################### # write table ############################################################################### open (WTAB, ">../costab.inc"); for($i=0;$i<16;$i++) { print WTAB " .db "; for($j=0;$j<16;$j++) { $cellpos=$i*16+$j; $y=$scell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<15) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); SOURCE_142/SOURCE_system/libmio/definitions.asm0000755000175000001440000001445711725741457020420 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;-------------------------------------------------------------------------------- ; user definitions ;-------------------------------------------------------------------------------- .equ libmio_bend = 1240 .equ libmio_hslen = 84 .equ libmio_hstart = 156 .equ libmio_cols = 30 .equ libmio_ecols = 35 .equ libmio_rows = 23 .equ libmio_pixel_rows = 230 .equ libmio_pixel_rm2 = 228 .equ libmio_vstart_n = 242 .equ libmio_vstop_n = 245 .equ libmio_bstart_n = 255 .equ libmio_bstop_n = 241 .equ libmio_counter_n = 1271 .equ libmio_vstart_p = 15 .equ libmio_vstop_p = 19 .equ libmio_bstart_p = 27 .equ libmio_bstop_p = 2 .equ libmio_counter_p = 1279 .equ libmio_v0cols = 60 .equ libmio_v0rows = 46 .equ libmio_v1cols = 168 .equ libmio_v1rows = 116 .equ libmio_v1bpl = 21 .equ libmio_v2cols = 120 .equ libmio_v2rows = 76 .equ libmio_v2bpl = 30 .equ libmio_v3cols = 84 .equ libmio_v3rows = 58 .equ libmio_v3bpl = 42 .equ libmio_v5cols = 128 .equ libmio_v5rows = 64 .equ libmio_v5bpl = 16 .equ libmio_rampos_l = libmio_ram .equ libmio_rampos_h = libmio_ram+1 .equ libmio_line_l = libmio_ram+2 .equ libmio_line_h = libmio_ram+3 .equ libmio_sysconf = libmio_ram+4 .equ libmio_font = libmio_ram+5 .equ libmio_cline = libmio_ram+6 .equ libmio_border = libmio_ram+7 .equ libmio_frames = libmio_ram+8 .equ libmio_wasvint = libmio_ram+9 .equ libmio_keytab = libmio_ram+10 .equ libmio_kbdshift = libmio_ram+11 .equ libmio_kbdstate = libmio_ram+12 .equ libmio_scancode = libmio_ram+13 .equ libmio_keycode = libmio_ram+14 .equ libmio_lastkey = libmio_ram+15 .equ libmio_wpos_l = libmio_ram+16 .equ libmio_wpos_h = libmio_ram+17 .equ libmio_woff_l = libmio_ram+18 .equ libmio_woff_h = libmio_ram+19 .equ libmio_note_val = libmio_ram+20 .equ libmio_env = libmio_ram+21 .equ libmio_rand1 = libmio_ram+22 .equ libmio_rand2 = libmio_ram+23 .equ libmio_rand3 = libmio_ram+24 .equ libmio_rand4 = libmio_ram+25 .equ libmio_time0 = libmio_ram+26 .equ libmio_time_l = libmio_ram+27 .equ libmio_time_h = libmio_ram+28 .equ libmio_tcnt = libmio_ram+29 .equ libmio_tdat = libmio_ram+30 .equ libmio_rcnt = libmio_ram+31 .equ libmio_rdat = libmio_ram+32 .equ libmio_config = libmio_ram+33 .equ libmio_channel = libmio_ram+34 .equ libmio_lpos = libmio_ram+35 .equ libmio_color = libmio_ram+36 .equ libmio_kflags = libmio_ram+37 .equ libmio_edstart = libmio_ram+38 .equ libmio_wavtab = libmio_ram+39 .equ libmio_vislines = libmio_ram+40 .equ libmio_serio = libmio_ram+41 .equ libmio_envv = libmio_ram+42 .equ libmio_seqstat = libmio_ram+43 .equ libmio_tprog = libmio_ram+47 .equ libmio_prog = libmio_ram+50 .equ libmio_sborder = libmio_ram+51 .equ libmio_lastmenu = libmio_ram+53 .equ libmio_vidmode = libmio_ram+54 .equ libmio_estatus = libmio_ram+56 .equ libmio_elcolor = libmio_ram+57 .equ libmio_clipx1 = libmio_ram+58 .equ libmio_clipy1 = libmio_ram+59 .equ libmio_clipx2 = libmio_ram+60 .equ libmio_clipy2 = libmio_ram+61 .equ libmio_volume = libmio_ram+62 .equ libmio_mvolume = libmio_ram+63 .equ libmio_bcdestx = libmio_ram+64 .equ libmio_bcsrcy = libmio_ram+65 .equ libmio_bcdy = libmio_ram+66 .equ libmio_bcdesty = libmio_ram+67 .equ libmio_bcmode = libmio_ram+68 .equ libmio_dfpages = libmio_ram+69 .equ libmio_dfptype = libmio_ram+70 .equ libmio_memtype = libmio_ram+71 .equ libmio_seqspeed = libmio_ram+72 .equ libmio_seqcount = libmio_ram+73 .equ libmio_seql = libmio_ram+74 .equ libmio_seqh = libmio_ram+75 .equ libmio_seqal = libmio_ram+76 .equ libmio_seqah = libmio_ram+77 .equ libmio_seqbl = libmio_ram+78 .equ libmio_seqbh = libmio_ram+79 .equ libmio_seqtick = libmio_ram+80 .equ libmio_sysconf1 = libmio_ram+81 .equ libmio_bcsrcx = libmio_ram+82 .equ libmio_bcdx = libmio_ram+83 ;only offsets .equ lmo_rampos_l = 0 .equ lmo_rampos_h = 1 .equ lmo_line_l = 2 .equ lmo_line_h = 3 .equ lmo_sysconf = 4 .equ lmo_font = 5 .equ lmo_cline = 6 .equ lmo_border = 7 .equ lmo_frames = 8 .equ lmo_wasvint = 9 .equ lmo_keytab = 10 .equ lmo_kbdshift = 11 .equ lmo_kbdstate = 12 .equ lmo_scancode = 13 .equ lmo_keycode = 14 .equ lmo_lastkey = 15 .equ lmo_wpos_l = 16 .equ lmo_wpos_h = 17 .equ lmo_woff_l = 18 .equ lmo_woff_h = 19 .equ lmo_env = 21 .equ lmo_note_val = 20 .equ lmo_rand1 = 22 .equ lmo_rand2 = 23 .equ lmo_rand3 = 24 .equ lmo_rand4 = 25 .equ lmo_time0 = 26 .equ lmo_time_l = 27 .equ lmo_time_h = 28 .equ lmo_tcnt = 29 .equ lmo_tdat = 30 .equ lmo_rcnt = 31 .equ lmo_rdat = 32 .equ lmo_config = 33 .equ lmo_channel = 34 .equ lmo_lpos = 35 .equ lmo_color = 36 .equ lmo_kflags = 37 .equ lmo_edstart = 38 .equ lmo_wavtab = 39 .equ lmo_vislines = 40 .equ lmo_serio = 41 .equ lmo_envv = 42 .equ lmo_seqstat = 43 .equ lmo_tprog = 47 .equ lmo_prog = 50 .equ lmo_sborder = 51 .equ lmo_lastmenu = 53 .equ lmo_vidmode = 54 .equ lmo_estatus = 56 .equ lmo_elcolor = 57 .equ lmo_clipx1 = 58 .equ lmo_clipy1 = 59 .equ lmo_clipx2 = 60 .equ lmo_clipy2 = 61 .equ lmo_volume = 62 .equ lmo_mvolume = 63 .equ lmo_bcdestx = 64 .equ lmo_bcsrcy = 65 .equ lmo_bcdy = 66 .equ lmo_bcdesty = 67 .equ lmo_bcmode = 68 .equ lmo_dfpages = 69 .equ lmo_dfptype = 70 .equ lmo_memtype = 71 .equ lmo_seqspeed = 72 .equ lmo_seqcount = 73 .equ lmo_seql = 74 .equ lmo_seqh = 75 .equ lmo_seqal = 76 .equ lmo_seqah = 77 .equ lmo_seqbl = 78 .equ lmo_seqbh = 79 .equ lmo_seqtick = 80 .equ lmo_sysconf1 = 81 .equ lmo_bcsrcx = 82 .equ lmo_bcdx = 83 SOURCE_142/SOURCE_system/libmio/bcopy.asm0000755000175000001440000003104311725741457017207 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# block copy # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; bitblt routine ;------------------------------------------------------------------------------ libmio_bcopy: push_regs ;save pointers push tempreg5 push tempreg6 push tempreg7 push tempreg8 push r18 ;vidmode ldi YL,LOW(libmio_ram+50) ldi YH,HIGH(libmio_ram+50) ldd r18,Y+lmo_vidmode-50 ldd tempreg5,Y+(lmo_bcsrcx-50) ;get coordinates ldd tempreg6,Y+(lmo_bcsrcy-50) ldd tempreg7,Y+(lmo_bcdestx-50) ldd tempreg8,Y+(lmo_bcdesty-50) ldd tempreg2,Y+(lmo_bcdx-50) ;dx ldd tempreg3,Y+(lmo_bcdy-50) ;dy ;calc lines/bytes libmio_bcopy01: mov XL,r18 ;get video mode andi XL,0x03 ;reduce to 3 mov ZL,tempreg2 ;set dx lsl tempreg3 ;lines*2 lsl ZL ;pix*2 cpi XL,3 ;vmode 3 breq libmio_bcopy02 ;yes lsl tempreg3 ;lines*2 lsl ZL ;pix*2 cpi XL,2 ;vmode 2 breq libmio_bcopy02 ;yes lsl tempreg3 ;lines*2 lsl ZL ;pix*2 libmio_bcopy02: mov ZH,tempreg3 ;set lines to ZH ;ZL=blocksize X ZH=blocksize Y lds XL,libmio_bcmode ;get bcmode cpi XL,0x01 ;v->v brne libmio_bcopy10 ;no ;mode 1 (vmem->vmem) movw YL,tempreg5 ;check src coords rcall libmio_bc_cs ;check cpi ereg,0x00 breq libmio_bcopy04 libmio_bcopy03: ldi ereg,31 ;src coords error rjmp libmio_bcopy_e ;exit with error libmio_bcopy04: movw YL,tempreg7 ;check dest coords rcall libmio_bc_cs cpi ereg,0x00 breq libmio_bcopy05 ;error ldi ereg,32 ;dest coords error rjmp libmio_bcopy_e ;exit with error libmio_bcopy05: rcall libmio_bc_vv ;start block copy rjmp libmio_bcopy_e ;end ;mode 2 (vmem->mem) libmio_bcopy10: cpi XL,0x02 ;v->m brne libmio_bcopy20 ;no movw YL,tempreg5 ;check src coords rcall libmio_bc_cs ;check cpi ereg,0x00 breq libmio_bcopy11 ldi ereg,31 ;src coords error rjmp libmio_bcopy_e ;exit with error libmio_bcopy11: movw YL,tempreg7 ;array pos rcall libmio_bc_ac ;check for place in array cpi ereg,0x00 breq libmio_bcopy12 ldi ereg,18 ;out of array error rjmp libmio_bcopy_e ;exit with error libmio_bcopy12: ldi XL,LOW(bas_array) ;base adr ldi XH,HIGH(bas_array) add tempreg7,XL ;calc block adr adc tempreg8,XH rcall libmio_bc_vm ;start block copy rjmp libmio_bcopy_e ;end ;mode 3 (mem->vmem) libmio_bcopy20: cpi XL,0x03 ;m->v breq libmio_bcopy21 ;yes ldi ereg,21 ;no valid mode rjmp libmio_bcopy_e ;exit with error libmio_bcopy21: mov XL,tempreg6 ;array H cpi XL,3 brcs libmio_bcopy22 ldi ereg,18 rjmp libmio_bcopy_e ;exit with error libmio_bcopy22: ldi XL,LOW(bas_array) ;base adr ldi XH,HIGH(bas_array) add tempreg5,XL ;calc block adr adc tempreg6,XH movw ZL,tempreg5 ;set address ld tempreg2,Z+ ;copy bytes ld tempreg3,Z+ ;copy lines movw YL,tempreg7 ;check dst coords rcall libmio_bc_cs ;check cpi ereg,0x00 breq libmio_bcopy23 ldi ereg,32 ;dest coords error rjmp libmio_bcopy_e ;exit with error libmio_bcopy23: rcall libmio_bc_mv ;start block copy libmio_bcopy_e: pop r18 pop tempreg8 ;restore registers pop tempreg7 pop tempreg6 pop tempreg5 pop_regs ;------------------------------------------------------------------------------ ;check coordinates in YL/YH (blocksize is in ZL/ZH) ;------------------------------------------------------------------------------ libmio_bc_cs: add YL,ZL ;x+dx brcc libmio_bc_cs1 ;no overflow->OK libmio_bc_cs0: ldi ereg,31 ;c out of range ret ;end here libmio_bc_cs1: lds XL,libmio_clipx2 ;max X cp YL,XL ;compare brcc libmio_bc_cs0 ;X is greater= max add YH,ZH ;Y+dy brcs libmio_bc_cs0 ;overflow->error lds XH,libmio_clipy2 ;max Y cp YH,XH ;compare brcc libmio_bc_cs0 ;Y is greater= max ret ;------------------------------------------------------------------------------ ;check for place in array (Y=adr) ;------------------------------------------------------------------------------ libmio_bc_ac: mul tempreg3,tempreg2 ;bytes*lines add YL,r0 adc YH,r1 adiw YL,2 ;place for coords cpi YH,3 ;HIGH brcs libmio_bc_ac1 ldi ereg,18 ;out of array libmio_bc_ac1: ret ;------------------------------------------------------------------------------ ;get lines/bytes (PIX in ZL/ZH) ;------------------------------------------------------------------------------ libmio_bc_glb: mov XL,r18 ;get video mode lds tempreg2,libmio_bcdx ;dx lds tempreg3,libmio_bcdy ;dy mov ZL,tempreg2 ;set dx lsl tempreg3 ;*2 lsl ZL cpi XL,3 ;vmode 3 breq libmio_bc_glb1 ;yes lsl tempreg3 ;*2 lsl ZL cpi XL,2 ;vmode 2 breq libmio_bc_glb1 ;yes lsl tempreg3 ;*2 lsl ZL libmio_bc_glb1: mov ZH,tempreg3 ret ;------------------------------------------------------------------------------ ; vmem to vmem ; tempreg5,X1 ; tempreg6,Y1 ; tempreg7,X2 ; tempreg8,Y2 ; tempreg2 bytes ; tempreg3 lines ;------------------------------------------------------------------------------ libmio_bc_vv: cp tempreg6,tempreg8 ;carry if (dest Y) > (src Y) brcs libmio_bc_vv_2 ;we must copy down->up libmio_bc_vv_1: movw XL,tempreg5 ;src coords rcall libmio_bc_cadr ;calc addr ldi ZL,LOW(bcopy_buffer) ;we use the bcopy buffer (temp) ldi ZH,HIGH(bcopy_buffer) rcall libmio_bcr ;copy to buffer movw XL,tempreg7 ;dst coords rcall libmio_bc_cadr ;calc addr ldi ZL,LOW(bcopy_buffer) ;we use the bcopy buffer (temp) ldi ZH,HIGH(bcopy_buffer) rcall libmio_bcl ;copy from buffer inc tempreg6 inc tempreg8 dec tempreg3 ;lines counter brne libmio_bc_vv_1 ret libmio_bc_vv_2: add tempreg6,tempreg3 ;set coords to last line add tempreg8,tempreg3 dec tempreg6 dec tempreg8 libmio_bc_vv_3: movw XL,tempreg5 ;src coords rcall libmio_bc_cadr ;calc addr ldi ZL,LOW(bcopy_buffer) ;we use the bcopy buffer (temp) ldi ZH,HIGH(bcopy_buffer) rcall libmio_bcr ;copy to buffer movw XL,tempreg7 ;dst coords rcall libmio_bc_cadr ;calc addr ldi ZL,LOW(bcopy_buffer) ;we use the bcopy buffer (temp) ldi ZH,HIGH(bcopy_buffer) rcall libmio_bcl ;copy from buffer dec tempreg6 dec tempreg8 dec tempreg3 ;lines counter brne libmio_bc_vv_3 ret ;------------------------------------------------------------------------------ ; vmem to mem ; tempreg5,X2 ; tempreg6,Y2 ; tempreg7,ADRL ; tempreg8,ADRH ; tempreg2 bytes ; tempreg3 lines ;------------------------------------------------------------------------------ libmio_bc_vm: movw ZL,tempreg7 ;set address st Z+,tempreg2 ;copy bytes st Z+,tempreg3 ;copy lines libmio_bc_vm_1: movw XL,tempreg5 ;src coords rcall libmio_bc_cadr ;calc addr rcall libmio_bcr ;copy to buffer inc tempreg6 ;line+1 dec tempreg3 ;lines counter brne libmio_bc_vm_1 ;loop ret ;------------------------------------------------------------------------------ ; mem to vmem ; tempreg5,X1 ; tempreg6,Y1 ; tempreg7,ADRL ; tempreg8,ADRH ;------------------------------------------------------------------------------ libmio_bc_mv: movw ZL,tempreg5 ;set address ld tempreg2,Z+ ;copy bytes ld tempreg3,Z+ ;copy lines libmio_bc_mv_1: movw XL,tempreg7 ;dst coords rcall libmio_bc_cadr ;calc addr rcall libmio_bcl ;copy from buffer inc tempreg8 ;line+1 dec tempreg3 ;lines counter brne libmio_bc_mv_1 ret ;------------------------------------------------------------------------------ ;calc byte address of block to Y ;XL=X XH=Y ;------------------------------------------------------------------------------ libmio_bc_cadr: push tempreg3 ;save register ldi YL,LOW(libmio_vram) ;base address ldi YH,HIGH(libmio_vram) cpi r18,0x01 brne libmio_bc_cad0 ldi tempreg3,21 ;bytes per line rjmp libmio_bc_cad1 libmio_bc_cad0: cpi r18,0x05 brne libmio_bc_cad2 ldi tempreg3,16 libmio_bc_cad1: mul XH,tempreg3 ;*Y add YL,r0 adc YH,r1 mov tempreg3,XL ;X lsr tempreg3 ;/8 lsr tempreg3 lsr tempreg3 add YL,tempreg3 adc YH,const_0 mov tempreg1,XL ;startbit pop tempreg3 ;restore register ret ;end ;mode2 libmio_bc_cad2: cpi r18,0x02 ;mode 2? brne libmio_bc_cad3 ldi tempreg3,30 ;bytes per line mul XH,tempreg3 ;*Y add YL,r0 adc YH,r1 mov tempreg3,XL ;X lsr tempreg3 ;/4 lsr tempreg3 add YL,tempreg3 adc YH,const_0 mov tempreg1,XL ;startbit lsl tempreg1 ;*2 pop tempreg3 ;restore register ret ;end ;mode3 libmio_bc_cad3: ldi tempreg3,42 ;bytes per line mul XH,tempreg3 ;*Y add YL,r0 adc YH,r1 mov tempreg3,XL ;X lsr tempreg3 ;/2 lsr tempreg3 add YL,tempreg3 adc YH,const_0 mov tempreg1,XL ;startbit lsl tempreg1 ;*4 lsl tempreg1 pop tempreg3 ;restore register ret ;end ;------------------------------------------------------------------------------ ;copy routine with only right shift to byte aligned ;Y=src address ;Z=dst address ;tempreg1=startbit src ;tempreg2=number of bytes (1...) ;------------------------------------------------------------------------------ libmio_bcr: push tempreg4 ;save registers push tempreg3 push XH push XL mov tempreg3,tempreg2 ;copy bytes mov tempreg4,tempreg1 ;copy startpos andi tempreg4,0x07 ;startbit brne libmio_bcr_02 libmio_bcr_01: ld XL,Y+ ;copy byte st Z+,XL dec tempreg3 ;loop counter brne libmio_bcr_01 ;loop if not all done rjmp libmio_bcl_06 libmio_bcr_02: ldi XH,0x80 libmio_bcr_03: cpi tempreg4,0x01 ;=1 breq libmio_bcr_04 lsr XH ;lsr factor dec tempreg4 rjmp libmio_bcr_03 ;loop libmio_bcr_04: clr tempreg4 ;byte counter libmio_bcr_05: ld XL,Y+ ;get src mul XL,XH ;*factor cpi tempreg4,0x00 ;first breq libmio_bcr_06 ;yes ld XL,-Z ;last dest or XL,r0 st Z+,XL libmio_bcr_06: st Z+,r1 ;store r1 inc tempreg4 cp tempreg4,tempreg3 ;last? brne libmio_bcr_05 ;no -> loop ld XL,Y+ ;get additional src mul XL,XH ;*factor ld XL,-Z ;last dest or XL,r0 st Z+,XL rjmp libmio_bcl_06 ;------------------------------------------------------------------------------ ;copy routine with only left shift from byte aligned ;Z=src address ;Y=dst address ;tempreg1=startbit dst ;tempreg2=number of bytes (1...) ;------------------------------------------------------------------------------ libmio_bcl: push tempreg4 ;save registers push tempreg3 push XH push XL mov tempreg3,tempreg2 ;copy bytes mov tempreg4,tempreg1 ;copy startbit andi tempreg4,0x07 ;mask brne libmio_bcl_02 libmio_bcl_01: ld XL,Z+ ;copy byte st Y+,XL dec tempreg3 ;loop counter brne libmio_bcl_01 ;loop if not all done rjmp libmio_bcl_06 libmio_bcl_02: push r16 ;save registers push r17 ldi r16,0xff ;mask ldi r17,0x01 ;factor libmio_bcl_03: lsl r16 ;shift mask lsl r17 ;factor *2 dec tempreg4 brne libmio_bcl_03 libmio_bcl_04: mov tempreg3,tempreg2 ;copy bytes ld tempreg4,Y ;get dst com r16 ;invert mask and tempreg4,r16 ;clear affected bits com r16 ;re-invert mask libmio_bcl_05: ld XL,Z+ ;get src byte mul XL,r17 ;*factor or r0,tempreg4 ;add bits from last action st Y+,r0 ;write this byte mov tempreg4,r1 ;copy overflow to next byte dec tempreg3 ;dec byte counter brne libmio_bcl_05 ;loop ld tempreg3,Y and tempreg3,r16 ;mask bits or tempreg3,tempreg4 ;add bits from last action st Y+,tempreg3 pop r16 ;restore registers pop r17 libmio_bcl_06: pop XL pop XH pop tempreg3 pop tempreg4 ret ;end libmio_bc1: push_ptr movw tempreg5,YL movw tempreg7,ZL rcall libmio_bc_vv pop_ptr libmio_bc2: push_ptr movw tempreg5,YL movw tempreg7,ZL rcall libmio_bc_vm pop_ptr libmio_bc3: push_ptr movw tempreg5,YL movw tempreg7,ZL rcall libmio_bc_mv pop_ptr SOURCE_142/SOURCE_system/libmio/library.asm0000755000175000001440000020726111725741457017546 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# main library # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;port konfiguration for port B ... D ;------------------------------------------------------------------------------- libmio_init: ldi XL,0xba ;port direction (+SPI) out DDRB,XL ldi XL,0xff out PORTB,XL ldi XL,0xf0 ;port direction out DDRC,XL ldi XL,0x00 out PORTC,XL ldi XL,0xf0 ;set pin 4-7 as output out DDRD,XL ldi XL,0xff out PORTD,XL in XL,PINC ;get portc (bit 2,3 = config) andi XL,0x0e ;clear editor mode bit sts libmio_config,XL ;store configuration ;------------------------------------------------------------------------------- ;timer configuration ;------------------------------------------------------------------------------- ldi XH,0xc2 ;FAST-PWM-Mode 14 (PWM channel B) sts TCCR1A,XH ldi XH,0x19 ;FAST-PWM-Mode (no prescaler) sts TCCR1B,XH ldi ZH,HIGH(libmio_counter_p-1) sbrs XL,2 ;1 pal/ntsc bit ldi ZH,HIGH(libmio_counter_n-1) sts ICR1H,ZH ldi ZH,LOW(libmio_counter_p-1) sbrs XL,2 ;1 pal/ntsc bit ldi ZH,LOW(libmio_counter_n-1) sts ICR1L,ZH sts OCR1AH,const_0 ;we use only 8 bits ldi ZH,libmio_hslen ;1 hsync length pal sts OCR1AL,ZH ldi ZH,HIGH(libmio_bend) ;border end Interrupt sts OCR1BH,ZH ldi ZH,LOW(libmio_bend) ;1 hor position pal sts OCR1BL,ZH ldi XL,0x06 sts TIMSK1,XL ;enable compare OC1A/OC1B int ldi XL,0x02 ;ctc but disable output out TCCR0A,XL ldi XL,0x01 out TCCR0B,XL ldi XL,49 ;ca. 200KHz out OCR0A,XL ldi XL,0x83 ;timer 2 config sts TCCR2A,XL ldi XL,0x01 ;timer 2 config sts TCCR2B,XL ldi XL,0x80 ;zero signal sts OCR2A,XL sts ASSR,const_0 ;------------------------------------------------------------------------------- ;usart configuration (synchronous for keyboard) ;------------------------------------------------------------------------------- sts UCSR0A,const_0 ldi XL,0x10 sts UCSR0B,XL ldi XL,0x66 sts UCSR0C,XL ;------------------------------------------------------------------------------- ;usart 1 configuration (serial1, this makes nothinhg at m644) ;------------------------------------------------------------------------------- ldi XL,0x02 ;set U2X sts UCSR1A,XL sts UCSR1B,const_0 ;disable RX,TX call mem_getconf lds XH,libmio_sysconf sbrc XH,5 rjmp libmio_u1e ldi XL,3 ;9600/8/N/1 rcall libmio_baud2 ;set baudrate ldi XL,0x18 sts UCSR1B,XL ;enable RX,TX ldi XL,0x06 sts UCSR1C,XL ;8 bits, 1 stop, no parity sbi DDRD,3 libmio_u1e: ;------------------------------------------------------------------------------- ;spi configuration (mode 3 master 5MHz/156kHz) ;------------------------------------------------------------------------------- call libmio_setcf1 ;------------------------------------------------------------------------------- ;clear video-RAM and set pointers ;------------------------------------------------------------------------------- ldi XL,0x15 ;color = white rcall libmio_setcol ;set color ldi YL,LOW(libmio_ram) ldi YH,HIGH(libmio_ram) ldi XL,LOW(libmio_vram) ;2 st Y+,XL ;2 start vram ldi XL,HIGH(libmio_vram) ;2 st Y+,XL ;2 start vram ldi XL,0x1e libmio_init_c: st Y+,const_0 dec XL brne libmio_init_c ldi XL,0xaa sts libmio_rand1,XL sts libmio_rand3,XL sts libmio_channel,const_0 ;set output to screen sts libmio_font,const_0 ;set output to screen ldi XL,0x3e sts libmio_env,XL ;sound off ;------------------------------------------------------------------------------ ; set display to normal mode ;------------------------------------------------------------------------------ libmio_nmode: push r16 sts libmio_vidmode,const_0 ldi r16,235 rjmp libmio_emodes ;------------------------------------------------------------------------------ ; set display to editor mode ;------------------------------------------------------------------------------ libmio_emode: push r16 ldi r16,0x08 sts libmio_vidmode,r16 ldi r16,233 libmio_emodes: sts libmio_vislines,r16 pop r16 ret ;------------------------------------------------------------------------------ ; set video mode ;------------------------------------------------------------------------------ libmio_svmode: lds r19,libmio_vidmode ;old vidmode andi r19,7 cpi r19,7 brne libmio_svm1 clt ;exit lds ZH,prg_vdrv ldi ZL,vdrv_init ;FKT sbrs ZH,7 icall ;call init routine with exit flag(0) libmio_svm1: mov r19,XL cpi XL,0x00 breq libmio_vmode0 cpi XL,0x04 brne libmio_vmode1 call libmio_cptab libmio_vmode0: ldi YL,libmio_v0cols ldi YH,libmio_v0rows ldi XL,235 rjmp libmio_vmodes libmio_vmode1: cpi XL,0x01 brne libmio_vmode2 sts libmio_palette,const_0 ;palette 0 ldi XL,0xe0 ;white sts libmio_palette+1,XL ;palette 1 ldi YL,libmio_v1cols ldi YH,libmio_v1rows ldi XL,237 rjmp libmio_vmodes libmio_vmode2: cpi XL,0x02 brne libmio_vmode3 ldi YL,0x00 ldi YH,0x01 st Y,const_0 ;palette 0 ldi XL,0x40 ;red std Y+1,XL ;palette 1 ldi XL,0xa0 ;cyan std Y+2,XL ;palette 2 ldi XL,0xe0 ;white std Y+3,XL ;palette 3 ldi YL,libmio_v2cols ldi YH,libmio_v2rows ldi XL,235 rjmp libmio_vmodes libmio_vmode3: cpi XL,0x03 brne libmio_vmode5 clr XL clr XH libmio_vmode3a: rcall libmio_setpal inc XL inc XH cpi XH,0x10 brne libmio_vmode3a libmio_vmode13: ldi XL,237 ldi YL,libmio_v3cols ldi YH,libmio_v3rows rjmp libmio_vmodes libmio_vmode5: cpi XL,0x05 brne libmio_vmode6 ldi YL,libmio_v5cols ldi YH,libmio_v5rows ldi XL,0x20 ;blue sts libmio_palette,XL ;palette 0 ldi XL,0xe0 ;white sts libmio_palette+1,XL ;palette 1 ldi XL,184 libmio_vmodes: sts libmio_clipx2,YL sts libmio_clipy2,YH sts libmio_vislines,XL sts libmio_vidmode,r19 ;set videomode ret libmio_vmode6: cpi XL,0x06 brne libmio_vmode7 call libmio_copytab ldi YL,libmio_v0cols ldi YH,libmio_v0rows ldi XL,235 rjmp libmio_vmodes libmio_vmode7: movw r0,ZL ;save Z register lds ZH,prg_vdrv sbrc ZH,7 rjmp libmio_vmode7e set ldi ZL,vdrv_init ;FKT icall rjmp libmio_vmodes libmio_vmode7e: ldi ereg,5 ;constant too big ret ;------------------------------------------------------------------------------ ; set color to XL ;------------------------------------------------------------------------------ libmio_setcol: push XH push XL mov XH,XL andi XH,0x88 lsr XH lsr XH lsr XH lsl XL andi XL,0xee libmio_setcol1: or XL,XH sts libmio_color,XL pop XL pop XH ret ;------------------------------------------------------------------------------ ; set channel to XL ;------------------------------------------------------------------------------ libmio_setchan: sts libmio_channel,XL ret ;------------------------------------------------------------------------------ ; set FONT to XL ;------------------------------------------------------------------------------ libmio_setfont: sts libmio_font,XL ret ;------------------------------------------------------------------------------ ; set palette index XH to XL ;------------------------------------------------------------------------------ libmio_setpal: push YH push YL push XL andi XL,0x0f ;mask bits swap XL lsl XL brcc libmio_setpl1 ori XL,0x10 libmio_setpl1: ldi YH,HIGH(libmio_palette) mov YL,XH andi YL,0x0f st Y,XL pop XL pop YL pop YH ret ;------------------------------------------------------------------------------ ; set foreground color to XL ;------------------------------------------------------------------------------ libmio_setfgc: push XH push XL andi XL,0x0f ;limit swap XL ;set to fg lsl XL brcc libmio_setfg1 ori XL,0x10 libmio_setfg1: swap XL ;swap back lds XH,libmio_color andi XH,0xf0 ;remove FG color rjmp libmio_setcol1 ;------------------------------------------------------------------------------ ; set border to XL ;------------------------------------------------------------------------------ libmio_setbrd: push XL swap XL bst XL,7 lsl XL bld XL,4 andi XL,0xf0 sts libmio_border,XL pop XL ret ;------------------------------------------------------------------------------ ; write char tempreg1 to Y ;------------------------------------------------------------------------------ libmio_wchar: st Y,tempreg1 lds tempreg1,libmio_vidmode sbrc tempreg1,3 ret ;editor mode has no attr andi tempreg1,0x07 cpi tempreg1,6 ;mode 6 has no attr breq libmio_wchar5 push YL push YH push tempreg2 ldi tempreg2,60 add YL,tempreg2 adc YH,const_0 ldi tempreg1,LOW(libmio_cols*libmio_rows-60) add YL,tempreg1 ldi tempreg1,HIGH(libmio_cols*libmio_rows-60) adc YH,tempreg1 libmio_wchar1: lds tempreg1,libmio_color st Y,tempreg1 pop tempreg2 pop YH pop YL libmio_wchar5: ret ;------------------------------------------------------------------------------- ; Bin16 -> ASCII (dez) ; XL,XH = number ; ctrl = format ; Bit 0,1 = format 00 = compact ; 01 = leading spaces ; 10 = leading zeroes 0...65536 ; 11 = leading zeroes with +- sign ; ; Bit 2,3 = number of visible digits (2,3,4,5) ; Bit 4,5 = comma position (no xxxx,x xxx,xx xx,xxx) ; Bit 6 1= big size (only in monochrome mode) ;------------------------------------------------------------------------------- .ifdef use_libmio_outd libmio_outd: push tempreg1 ;save registers push tempreg2 push tempreg3 push XL push XH ldi tempreg1,0x20 ;space mov tempreg2,ctrl andi tempreg2,0x03 cpi tempreg2,0x02 ;leading zeroes without sign breq libmio_outd_03 cpi tempreg2,0x03 ;leading zeroes with +- sign brne libmio_outd_01 ldi tempreg1,'+' ;set positive sign libmio_outd_01: sbrs XH,7 rjmp libmio_outd_02 com XL ;X=-X com XH ; add XL,const_1 ; adc XH,const_0 ; ldi tempreg1,'-' ;sign is negative libmio_outd_02: call libmio_char ;out sign libmio_outd_03: mov tempreg2,ctrl ;format byte andi tempreg2,0x0c ;mask number of digits mov tempreg3,ctrl ;format byte andi tempreg3,0x30 ;mask comma position clt ;clear nonzero-flag ldi tempreg1,47 ;"0"-1 libmio_outd_04: inc tempreg1 ; subi XL,16 ;-10000 sbci XH,39 brcc libmio_outd_04 ;no overflow subi XL,240 ;+10000 sbci XH,216 ; cpi tempreg2,0x0c ;5 digits? brne libmio_outd_05 ;no rcall libmio_nc ;out digit 10^4 libmio_outd_05: ldi tempreg1,47 ;"0"-1 libmio_outd_06: inc tempreg1 ; subi XL,232 ;-1000 sbci XH,3 ; brcc libmio_outd_06 ;no overflow subi XL,24 ;+1000 sbci XH,252 ; sbrc tempreg2,3 ;skip if < 4 digits rcall libmio_nc ;out digit 10^3 cpi tempreg3,0x30 ;comma? brne libmio_outd_07 ;no rcall libmio_comma ; libmio_outd_07: ldi tempreg1,47 ;"0"-1 libmio_outd_08: inc tempreg1 ;+1 subi XL,100 ;-100 sbc XH,const_0 ; brcc libmio_outd_08 ;no overflow subi XL,156 ;+100 sbci XH,255 ; cpi tempreg2,0x00 ;3 digits breq libmio_outd_09 rcall libmio_nc ;out digit 10^2 libmio_outd_09: cpi tempreg3,0x20 ;comma? brne libmio_outd_10 ;no rcall libmio_comma ; libmio_outd_10: ldi tempreg1,47 ;"0"-1 libmio_outd_11: inc tempreg1 ;+1 subi XL,10 ;-10 brcc libmio_outd_11 ;no overflow rcall libmio_nc ;out digit 10^1 subi XL,246 ;+10 cpi tempreg3,0x10 ;comma? brne libmio_outd_12 ;no rcall libmio_comma ; libmio_outd_12: ldi tempreg1,48 ;"0" add tempreg1,XL ;LSB digit rcall libmio_char pop XH pop XL pop tempreg3 pop tempreg2 pop tempreg1 ret ;------------------------------------------------------------------------------- ; out numeric char (tempreg1) ;------------------------------------------------------------------------------- libmio_nc: cpi tempreg1,48 ;is zero breq libmio_nc_1 ;yes set ;set flag rjmp libmio_char ;send char libmio_nc_1: sbrc ctrl,1 ;skip if no leading zeroes libmio_nc_2: rjmp libmio_char ;send zero brts libmio_nc_2 ;flag is set sbrs ctrl,0 ;skip if no leading spaces ret rjmp libmio_space ;send space ret .endif ;------------------------------------------------------------------------------- ; Bin -> ASCII (hex) ; (XL,XH) = number ; ctrl = format ; Bit 0 1= 16Bit (4 chars) ; Bit 6 1= Big size ;------------------------------------------------------------------------------- .ifdef use_libmio_outh libmio_outh: push tempreg1 ;save temp register sbrs ctrl,0 rjmp libmio_outh1 ;only 8 mov tempreg1,XH ; swap tempreg1 ;high-nibble rcall libmio_oh mov tempreg1,XH ; rcall libmio_oh libmio_outh1: mov tempreg1,XL ; swap tempreg1 ;high-nibble rcall libmio_oh mov tempreg1,XL ; rcall libmio_oh pop tempreg1 ;restore temp register ret ;------------------------------------------------------------------------------- ; out hexadecimal char (tempreg1) ;------------------------------------------------------------------------------- libmio_oh: andi tempreg1,0x0f ;mask nibble subi tempreg1,0xd0 ;+30 cpi tempreg1,0x3a ;>9 brcs libmio_oh_1 ;jump, if not subi tempreg1,0xf9 ;+6 libmio_oh_1: rjmp libmio_char .endif ;------------------------------------------------------------------------------- ; clear video-RAM ;------------------------------------------------------------------------------- libmio_clr: push_ptr ;save registers lds tempreg1,libmio_vidmode ;video mode cpi tempreg1,0x00 ;standard? breq libmio_fill ;yes cpi tempreg1,0x04 ;user 1? breq libmio_fill ;yes ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position ldi XL,libmio_rows cpi tempreg1,0x06 ;mode 6 is special breq libmio_cls_g01 cpi tempreg1,0x07 ;mode 7 is special breq libmio_cls_07 ldi XL,libmio_rows*4 libmio_cls_g01: ldi XH,libmio_cols libmio_cls_g02: st Y+,const_0 ;write to RAM dec XH ;decrement counter brne libmio_cls_g02 ;loop dec XL ;decrement counter brne libmio_cls_g01 ;loop cpi tempreg1,1 ;graphics 1? brne libmio_cls_g06 lds XL,libmio_color ldi YH,HIGH(libmio_vram+2436) ;home position ldi YL,LOW(libmio_vram+2436) ;home position ldi XH,160 libmio_cls_g03: st Y+,XL st Y+,XL dec XH brne libmio_cls_g03 libmio_cls_g04: clr libmio_cur_x ;set X-position clr libmio_cur_y ;set Y-position sts libmio_lpos,const_0 libmio_cls_g06: pop_ptr libmio_fill: ldi tempreg1,0x20 ;space ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position ldi XL,libmio_rows libmio_cls_01: ldi XH,libmio_cols libmio_cls_02: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne libmio_cls_02 ;loop dec XL ;decrement counter brne libmio_cls_01 ;loop lds tempreg1,libmio_color ldi XL,libmio_rows libmio_cls_05: ldi XH,libmio_cols libmio_cls_06: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne libmio_cls_06 ;loop dec XL ;decrement counter brne libmio_cls_05 ;loop rjmp libmio_cls_g04 libmio_cls_07: lds ZH,prg_vdrv ldi ZL,vdrv_cls icall ;routine 2 (CLS) rjmp libmio_cls_g04 libmio_cls_04: sts libmio_lpos,const_0 pop XH pop XL ret ;------------------------------------------------------------------------------- ; newline and calculate new position ;------------------------------------------------------------------------------- .ifdef use_libmio_newline libmio_nl1: cpi XL,7 brne libmio_cls_04 ;NL works not here pop XH ;restore registers pop XL push ZH push ZL lds ZH,prg_vdrv ldi ZL,vdrv_newline icall pop ZL pop ZH ret libmio_newline: push XL push XH sts libmio_lpos,const_0 lds XL,libmio_channel cpi XL,0 ;screen brne libmio_newl1 lds XL,libmio_vidmode cpi XL,0 ;vm0 brne libmio_nl1 libmio_nlap: ldi XL,libmio_rows clr libmio_cur_x ;begin of line inc libmio_cur_y ;next line cp XL,libmio_cur_y ;beyond screen brne libmio_cls_04 lds XL,libmio_config sbrc XL,7 ;skip if scroll libmio_nowr: rjmp libmio_wrap clr XL ldi XH,(libmio_rows-1) ;last line mov libmio_cur_y,XH push YL push YH rjmp libmio_char_04 ;scroll screen libmio_wrap: mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 rjmp libmio_cls_04 libmio_newl1: cpi XL,1 ;serial brne libmio_newl2 pop XH pop XL jmp libmio_sernl ;write serial libmio_newl2: cpi XL,2 ;parallel brne libmio_newl3 ldi tempreg1,0x0d ;CR lds XH,libmio_sysconf sbrc XH,6 ;skip if no CR rcall libmio_ppar ldi tempreg1,0x0a ;newline sbrc XH,7 ;skip if no LF rcall libmio_ppar ;write parallel pop XH pop XL ret libmio_newl3: cpi XL,3 ;array brne libmio_newl4 pop XH pop XL ret libmio_newl4: cpi XL,4 ;serial2 brne libmio_newl5 pop XH pop XL jmp libmio_sernl2 ;write serial libmio_newl5: pop XH ;i2c pop XL ldi tempreg2,0x0a libi2c_wbyte ret .endif ;------------------------------------------------------------------------------- ; output character and calculate new position (tempreg1=char) ;------------------------------------------------------------------------------- libmio_comma: ldi tempreg1,0x2c ;set char to comma rjmp libmio_char ;write libmio_space: ldi tempreg1,32 ;set char to space libmio_char: push XL push XH lds XL,libmio_lpos inc XL sts libmio_lpos,XL lds XL,libmio_channel cpi XL,5 brcs libmio_chr_1 pop XH pop XL mov tempreg2,tempreg1 ;copy char libi2c_wbyte ;output to i2c ret libmio_chr_1: cpi XL,0 ;screen breq libmio_char2 cpi XL,3 ;array brne libmio_char0 mov XL,tempreg1 clr XH push tempreg2 push tempreg3 call arr_write ;write to array pop tempreg3 pop tempreg2 libmio_chr_x: pop XH pop XL ret libmio_char0: pop XH lds XL,libmio_channel cpi XL,1 ;serial brne libmio_char0a pop XL jmp libmio_pser ;write serial (ch1) libmio_char0a: cpi XL,2 ;serial pop XL brne libmio_char0b rjmp libmio_ppar ;write parallel (ch2) libmio_char0b: jmp libmio_pser2 ;serial 2 (ch4) libmio_char2: push ZL ;save lds ZL,libmio_vidmode ;get video mode andi ZL,0x07 cpi ZL,0x00 breq libmio_char_0 cpi ZL,0x04 breq libmio_char_0 cpi ZL,0x06 breq libmio_char_0 cpi ZL,0x07 ;custom mode brne libmio_charnc push ZH lds ZH,prg_vdrv ldi ZL,vdrv_char icall pop ZH pop ZL rjmp libmio_chr_x libmio_charnc: rjmp libmio_gchar ;graphics mode libmio_char_0: pop ZL libmio_char_ap: push YL push YH rcall libmio_calc ;calculate address sbrc ctrl,6 ;big chars rjmp libmio_bchar rcall libmio_wchar ;write char inc XL ;next position cpi XL,libmio_cols ;beyond the end of line brne libmio_char_01 clr XL ;begin of line inc XH ;of next line cpi XH,libmio_rows ;beyond screen brne libmio_char_01 ldi XH,libmio_rows-1 ;last line rjmp libmio_char_03 ;we must scroll libmio_char_01: movw libmio_cur_x,XL ;X libmio_char_02: pop YH pop YL pop XH pop XL ret ; scroll screen libmio_char_03: movw libmio_cur_x,XL ;save X-position libmio_char_04: ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position push tempreg1 ldi XL,libmio_rows-1 ;lines -1 libmio_char_05: ldi XH,libmio_cols libmio_char_06: ldd tempreg1,Y+libmio_cols st Y+,tempreg1 dec XH brne libmio_char_06 dec XL brne libmio_char_05 ldi XL,libmio_cols ldi tempreg1,32 ;space libmio_char_07: st Y+,tempreg1 dec XL brne libmio_char_07 libmio_char_14: ldi YH,HIGH(libmio_vram+libmio_cols*libmio_rows) ;attr start ldi YL,LOW(libmio_vram+libmio_cols*libmio_rows) ;attr start ldi XL,libmio_rows-1 ;lines -1 libmio_char_15: ldi XH,libmio_cols libmio_char_16: ldd tempreg1,Y+libmio_cols st Y+,tempreg1 dec XH brne libmio_char_16 dec XL brne libmio_char_15 ldi XL,libmio_cols lds tempreg1,libmio_color ;space libmio_char_17: st Y+,tempreg1 dec XL brne libmio_char_17 pop tempreg1 rjmp libmio_char_02 libmio_bchar: cpi XL,libmio_cols-3 brcc libmio_char_02 cpi XH,libmio_rows-5 brcc libmio_char_02 subi XL,0xfd ;X+3 mov libmio_cur_x,XL ;store new X push ZL push ZH push tempreg5 ;byte 1 push tempreg6 ;byte 2 push tempreg7 ;byte 3 push tempreg8 ;for stroring T-bit bld tempreg8,0 ;store T push tempreg2 ;temp value libmio_bchar_0: mov ZL,tempreg1 ;char ldi ZH,HIGH(libmio_ctable*2) ;start char ROM ldi XH,5 ;10 char lines libmio_bchar_1: clr tempreg5 ;clear columns clr tempreg6 clr tempreg7 clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,0 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,1 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,0 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,1 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,0 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,1 inc ZH ;next line clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,2 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,3 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,2 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,3 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,2 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,3 libmio_bchar_d: inc ZH mov tempreg1,tempreg5 ;char1 rcall libmio_wchar adiw YL,0x01 mov tempreg1,tempreg6 ;char2 rcall libmio_wchar adiw YL,0x01 mov tempreg1,tempreg7 ;char3 rcall libmio_wchar adiw YL,libmio_cols-2 ;next line dec XH breq libmio_bchar_e rjmp libmio_bchar_1 libmio_bchar_e: pop tempreg2 bst tempreg8,0 ;restore T pop tempreg8 pop tempreg7 pop tempreg6 pop tempreg5 pop ZH pop ZL rjmp libmio_char_02 ;graphics mode libmio_gchar: push ZH ;restore Z reg push YL push YH push tempreg3 push tempreg4 mov ZL,tempreg1 ;char lds tempreg3,libmio_font ;get font sbrc tempreg3,0 ;skip if font 0 rjmp libmio_gchar5 ;jump to fnt1 routine ldi ZH,HIGH(libmio_ctable*2) ;start char ROM movw XL,libmio_cur_x ;get X-position ldi YH,10 ;number of lines libmio_gchar1: lpm YL,Z ;get pixline rcall libmio_plpl inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall libmio_plpl sbrc ctrl,6 ;bigchars inc XH inc ZH ;next pixline mov XL,libmio_cur_x ;get X-position dec YH brne libmio_gchar1 mov XL,libmio_cur_x ;get X-position subi XL,0xfa ;+6 sbrc ctrl,6 subi XL,0xfa ;+6 mov libmio_cur_x,XL libmio_gchar4: pop tempreg4 pop tempreg3 pop YH pop YL pop ZH pop ZL pop XH pop XL ret libmio_gchar5: ldi ZH,HIGH(libmio_ctable1*2) ;start char ROM andi ZL,0x7f mov XL,ZL ldi ZL,LOW(libmio_ctable1*2) ;start char ROM add ZL,XL adc ZH,const_0 lsl XL add ZL,XL adc ZH,const_0 movw XL,libmio_cur_x ;get X-position ldi YH,6 ;number of lines libmio_gchar6: lpm YL,Z ;get pixline rcall libmio_plpl5 inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall libmio_plpl5 sbrc ctrl,6 ;bigchars inc XH sbrc YH,0 ;skip if first nibble is used adiw ZL,1 mov XL,libmio_cur_x ;get X-position dec YH brne libmio_gchar6 mov XL,libmio_cur_x ;get X-position subi XL,0xfc ;+4 sbrc ctrl,6 subi XL,0xfc ;+4 mov libmio_cur_x,XL rjmp libmio_gchar4 ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 0, YL=pixline ;------------------------------------------------------------------------------- libmio_plpl: lds tempreg3,libmio_color push tempreg3 swap tempreg3 sbrc YL,7 ;pix 1 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,6 ;pix 2 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,5 ;pix 3 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,4 ;pix 4 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,3 ;pix 5 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,2 ;pix 6 swap tempreg3 sts libmio_color,tempreg3 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos libmio_plpl1: pop tempreg3 ;restore color sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 1, YL=pixline ;------------------------------------------------------------------------------- libmio_plpl5: lds tempreg3,libmio_color sbrc YH,0 swap YL mov tempreg4,tempreg3 sbrs YL,7 ;pix 1 swap tempreg4 sts libmio_color,tempreg4 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,6 ;pix 2 swap tempreg4 sts libmio_color,tempreg4 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,5 ;pix 3 swap tempreg4 sts libmio_color,tempreg4 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,4 ;pix 4 swap tempreg4 sts libmio_color,tempreg4 rcall libmio_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall libmio_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos libmio_plpl6: sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; output text from ROM (Z=text,nullterminated) ;------------------------------------------------------------------------------- libmio_orom: push tempreg1 libmio_orom_1: lpm tempreg1,Z+ ;get char cpi tempreg1,0 ;end? brne libmio_orom_2 ;no pop tempreg1 ret ;the end libmio_orom_2: rcall libmio_char ;write char to screen rjmp libmio_orom_1 ;next char ;------------------------------------------------------------------------------- ; output text from ROM (following y,x,nullterminated text) ;------------------------------------------------------------------------------- .ifdef use_libmio_othis libmio_othis: pop ZH ;get return address pop ZL lsl ZL ;*2 so we use bytes rol ZH push XL push XH lpm XH,Z+ ;get first value (255/Y) cpi XH,0xff ;no position breq libmio_othis_0 lpm XL,Z+ ;get second value rcall libmio_gxy ;set position libmio_othis_0: pop XH pop XL push tempreg1 ;save reg libmio_othis_1: lpm tempreg1,Z+ ;get char cpi tempreg1,0 ;end? brne libmio_othis_2 ;no pop tempreg1 ;restore reg sbiw ZL,1 ;point to zero lsr ZH ;/2 ror ZL adiw ZL,1 ;point to next instruction ijmp libmio_othis_2: rcall libmio_char ;write char to screen rjmp libmio_othis_1 ;next char .endif ;------------------------------------------------------------------------------- ; output text from RAM (Z=text,nullterminated) ;------------------------------------------------------------------------------- .ifdef use_libmio_oram libmio_oram: push tempreg1 libmio_oram_1: ld tempreg1,Z+ ;get char cpi tempreg1,0 ;end? brne libmio_oram_2 ;no pop tempreg1 ret ;the end libmio_oram_2: call libmio_char ;write char to screen rjmp libmio_oram_1 ;next char .endif ;------------------------------------------------------------------------------- ; output text (multiple char) ZL=number ;------------------------------------------------------------------------------- .ifdef use_libmio_mtext libmio_mtext: call libmio_char ;write char to screen dec ZL brne libmio_mtext ret .endif ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- .ifdef use_libmio_gotoxy libmio_gxy: push ZL lds ZL,libmio_vidmode cpi ZL,0x00 breq libmio_gxy_00 cpi ZL,0x07 ;custom brne libmio_gxy_a push ZH lds ZH,prg_vdrv ldi ZL,vdrv_gotoxy sbrs ZH,7 icall pop ZH pop ZL ret libmio_gxy_a: pop ZL libmio_gxy_1: movw libmio_cur_x,XL ;save X,Y-position ret libmio_gxy_00: pop ZL libmio_gxy_ap: cpi XL,libmio_cols brcs libmio_gxy_01 ldi XL,libmio_cols-1 libmio_gxy_01: cpi XH,libmio_rows brcs libmio_gxy_02 ldi XH,libmio_rows-1 libmio_gxy_02: movw libmio_cur_x,XL ;save X,Y-position ret .endif ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- .ifdef use_libmio_plot libmio_plot: push r16 lds r16,libmio_vidmode cpi r16,0x07 ;custom pop r16 brne libmio_iplot ;internal push ZH push ZL lds ZH,prg_vdrv ldi ZL,vdrv_plot sbrs ZH,7 icall pop ZL pop ZH ret libmio_iplot: push_regs ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position lds tempreg3,libmio_clipx2 ;right limit cp tempreg3,XL ;greater? brcs libmio_nplot ;yes lds tempreg3,libmio_clipy2 ;right limit cp tempreg3,XH ;greater? brcs libmio_nplot ;yes rjmp libmio_plot0 ;OK, we can plot libmio_nplot: pop_regs ;restore registers libmio_plot0: lds tempreg4,libmio_vidmode cpi tempreg4,0x07 ;copy for using mode 0 breq libmio_plot_0 cpi tempreg4,0x05 breq libmio_plot05 cpi tempreg4,0x04 breq libmio_plot04 andi tempreg4,0x03 breq libmio_plot_0 cpi tempreg4,0x02 brcc libmio_plot1 libmio_plot05: rjmp libmio_plot1_0 libmio_plot1: brne libmio_plot2 rjmp libmio_plot2_0 libmio_plot2: rjmp libmio_plot3_0 libmio_plot04: rjmp libmio_plot_4 libmio_plot_0: ldi tempreg2,1 ;bit left top cpi XL,libmio_cols*2 ;limit X-coord brcc libmio_plot_os cpi XH,libmio_rows*2 ;limit Y-coord brcc libmio_plot_os sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 ldi tempreg3,libmio_cols mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ldi XL,LOW(libmio_cols*libmio_rows) ldi XH,HIGH(libmio_cols*libmio_rows) add YL,XL ;calc attr pointer adc YH,XH ld XL,Y ;attr at position lds XH,libmio_color ;plot color andi XH,0x0f ;only background is needed swap XH ;swap f/b andi XL,0xf0 ;only background is needed cp XH,XL ;background = plot color? breq libmio_plot_r ;pixel must be only deleted lds XH,libmio_color ;plot color andi XH,0x0f ;only foreground or XL,XH ;set new fg st Y,XL ;write back attribute libmio_plot_s: ldi XL,LOW(libmio_cols*libmio_rows) ldi XH,HIGH(libmio_cols*libmio_rows) sub YL,XL ;recalc char pointer sbc YH,XH ld XH,Y ;get char or XH,tempreg2 ;set pix libmio_plot_e: andi XH,0x0f ;mask bits st Y,XH libmio_plot_os: pop_regs libmio_plot_r: ldi XL,LOW(libmio_cols*libmio_rows) ldi XH,HIGH(libmio_cols*libmio_rows) sub YL,XL ;recalc char pointer sbc YH,XH ld XH,Y ;get char com tempreg2 and XH,tempreg2 ;clear pix rjmp libmio_plot_e libmio_plot1_0: mov tempreg3,XL ;X andi tempreg3,0x07 ;only bits inc tempreg3 ;+1 ldi tempreg1,0x00 ;bitmask sec ;set carry libmio_plot1_1: rol tempreg1 ;shift in bit dec tempreg3 brne libmio_plot1_1 ;bit mask is in tempreg1 lsr XL ;X/8 lsr XL lsr XL mov ZL,XL ldi tempreg3,libmio_v1cols/8 lds ZH,libmio_vidmode sbrc ZH,2 ldi tempreg3,libmio_v5cols/8 mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ;address is now in Y lds XL,libmio_color ;active color sbrs ZH,2 rjmp libmio_plot1_3 lsr XL andi XL,0x01 ;we check only bit 0 brne libmio_plot1_2 ;set libmio_plot1_8: com tempreg1 ld XL,Y and XL,tempreg1 st Y,XL rjmp libmio_plot_os libmio_plot1_3: mov tempreg2,ZL ;X/8 lsr XH ;Y/8 lsr XH lsr XH ldi ZH,21 mul ZH,XH ldi ZL,LOW(libmio_vram+2436) ldi ZH,HIGH(libmio_vram+2436) add ZL,r0 adc ZH,r1 add ZL,tempreg2 adc ZH,const_0 lds XL,libmio_color ;color andi XL,0x0f ;mask only fg to draw ld tempreg2,Z ;get attr swap tempreg2 andi tempreg2,0x0f ;only bg is needed cp tempreg2,XL breq libmio_plot1_8 ;we must only clear pix libmio_plot1_4: ld tempreg2,Z ;get attr andi tempreg2,0xf0 ;only bg or tempreg2,XL ;set new fg libmio_plot1_5: st Z,tempreg2 ;store back attr libmio_plot1_2: ld XL,Y or XL,tempreg1 st Y,XL rjmp libmio_plot_os libmio_plot2_0: mov tempreg3,XL ;X lds tempreg2,libmio_color ;active color lsr tempreg2 andi tempreg2,0x03 ;we check only bit 0+1 ldi tempreg1,0x03 ;bitmask andi tempreg3,0x03 ;only bits libmio_plot2_1: breq libmio_plot2_2 lsl tempreg1 lsl tempreg1 lsl tempreg2 lsl tempreg2 dec tempreg3 brne libmio_plot2_1 libmio_plot2_2: com tempreg1 ;bit mask is in tempreg1 ;value is in tempreg2 lsr XL ;X/4 lsr XL ldi tempreg3,libmio_v2cols/4 mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ;address is now in Y ld XL,Y and XL,tempreg1 or XL,tempreg2 st Y,XL rjmp libmio_plot_os libmio_plot3_0: mov tempreg3,XL ;X lds tempreg2,libmio_color ;active color andi tempreg2,0x0f ;we check only bit 0-3 lsr tempreg2 brcc libmio_plot3_i ori tempreg2,0x08 libmio_plot3_i: ldi tempreg1,0x0f ;bitmask andi tempreg3,0x01 ;only bits breq libmio_plot3_1 swap tempreg1 swap tempreg2 libmio_plot3_1: com tempreg1 ;bit mask is in tempreg1 ;value is in tempreg2 lsr XL ;X/2 ldi tempreg3,libmio_v3cols/2 mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ;address is now in Y ld XL,Y and XL,tempreg1 ;mask or XL,tempreg2 ;new bit st Y,XL rjmp libmio_plot_os libmio_plot_4: ldi tempreg2,1 ;bit left top cpi XL,libmio_cols*2 ;limit X-coord brcc libmio_plot4c cpi XH,libmio_rows*2 ;limit Y-coord brcc libmio_plot4c sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 ldi tempreg3,libmio_cols mul XH,tempreg3 ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 lds XH,libmio_color ;plot color andi XH,0x02 ;only background is needed breq libmio_plot4b ld XH,Y ;get char or XH,tempreg2 ;set pix libmio_plot4a: andi XH,0x0f ;mask bits st Y,XH libmio_plot4c: rjmp libmio_plot_os libmio_plot4b: ld XH,Y ;get char com tempreg2 and XH,tempreg2 ;clear pix rjmp libmio_plot4a .endif ;------------------------------------------------------------------------------- ; correct char coordinates from YL,YH to ZL,ZH ;------------------------------------------------------------------------------- libmio_corrc: cpi YL,libmio_cols brcs libmio_corrc1 ldi YL,libmio_cols-1 libmio_corrc1: cpi ZL,libmio_cols brcs libmio_corrc2 ldi ZL,libmio_cols-1 libmio_corrc2: cpi YH,libmio_rows brcs libmio_corrc3 ldi YH,libmio_rows-1 libmio_corrc3: cpi ZH,libmio_rows brcs libmio_corrc4 ldi ZH,libmio_rows-1 libmio_corrc4: cp ZL,YL brcc libmio_corrc5 mov r0,ZL mov ZL,YL mov YL,r0 libmio_corrc5: cp ZH,YH brcc libmio_corrc6 mov r0,ZH mov ZH,YH mov YH,r0 libmio_corrc6: ret ;------------------------------------------------------------------------------- ; correct plot coordinates from YL,YH to ZL,ZH ;------------------------------------------------------------------------------- libmio_corrp: cp ZL,YL brcc libmio_corrp1 mov r0,ZL mov ZL,YL mov YL,r0 libmio_corrp1: cp ZH,YH brcc libmio_corrp2 mov r0,ZH mov ZH,YH mov YH,r0 libmio_corrp2: ret ;------------------------------------------------------------------------------- ; cbox YL,YH to ZL,ZH (t=0) ; ibox YL,YH to ZL,ZH (t=1) ;------------------------------------------------------------------------------- .ifdef use_libmio_cbox libmio_cbox: push_regs ;save registers rcall libmio_corrc ;correct coords movw tempreg7,ZL ;copy end coord lds tempreg1,libmio_vidmode cpi tempreg1,0 breq libmio_cbox_1 cpi tempreg1,4 breq libmio_cbox_1 cpi tempreg1,1 brne libmio_cbox_e ldi XL,LOW(libmio_vram+2436) ldi XH,HIGH(libmio_vram+2436) ldi ZH,0x80 ldi tempreg4,21 ldi tempreg3,16 rjmp libmio_cbox_2 libmio_cbox_1: ldi XL,LOW(libmio_vram+690) ldi XH,HIGH(libmio_vram+690) ldi ZL,LOW(libmio_vram) ldi ZH,HIGH(libmio_vram) ldi tempreg4,30 ldi tempreg3,23 libmio_cbox_2: cp YL,tempreg4 brcc libmio_cbox_e cp tempreg7,tempreg4 brcc libmio_cbox_e cp YH,tempreg3 brcc libmio_cbox_e cp tempreg8,tempreg3 brcc libmio_cbox_e mov tempreg3,YL ;copy X-coord libmio_cbox_3: mul tempreg4,YH ;calc offset of topleft corner add XL,r0 adc XH,r1 add XL,YL adc XH,const_0 add ZL,r0 adc ZH,r1 add ZL,YL adc ZH,const_0 lds r0,libmio_color ldi tempreg1,0x20 ;space mov tempreg2,tempreg4 dec tempreg2 add tempreg2,YL sub tempreg2,tempreg7 libmio_cbox_4: mov tempreg3,YL ;X1 libmio_cbox_5: brts libmio_cbox_6 ;branch if ibox sbrs ZH,7 st Z+,tempreg1 ;write space rjmp libmio_cbox_7 libmio_cbox_6: ld r0,X swap r0 libmio_cbox_7: st X+,r0 cp tempreg3,tempreg7 breq libmio_cbox_8 inc tempreg3 rjmp libmio_cbox_5 libmio_cbox_8: add XL,tempreg2 ;go to next line adc XH,const_0 add ZL,tempreg2 ;go to next line adc ZH,const_0 cp YH,tempreg8 breq libmio_cbox_e inc YH rjmp libmio_cbox_4 libmio_cbox_e: pop_regs .endif ;------------------------------------------------------------------------------- ; box YL,YH to ZL,ZH ;------------------------------------------------------------------------------- .ifdef use_libmio_box libmio_box: push_ptr push tempreg2 rcall libmio_corrp libmio_box_2: mov XL,YL mov XH,YH libmio_box_3: rcall libmio_plot inc XL cp XL,ZL brne libmio_box_3 libmio_box_4: rcall libmio_plot inc XH cp ZH,XH brne libmio_box_4 libmio_box_5: rcall libmio_plot dec XL cp XL,YL brne libmio_box_5 libmio_box_6: rcall libmio_plot dec XH cp XH,YH brne libmio_box_6 pop tempreg2 pop_ptr .endif ;------------------------------------------------------------------------------- ; fbox YL,YH to ZL,ZH ;------------------------------------------------------------------------------- .ifdef use_libmio_fbox libmio_fbox: push_ptr push tempreg2 rcall libmio_corrp libmio_fbox_2: mov XH,YH libmio_fbox_3: mov XL,YL libmio_fbox_4: rcall libmio_plot cp XL,ZL breq libmio_fbox_5 inc XL rjmp libmio_fbox_4 libmio_fbox_5: rcall libmio_plot cp ZH,XH breq libmio_fbox_6 inc XH rjmp libmio_fbox_3 .endif libmio_fbox_6: pop tempreg2 libmio_fbox_7: pop_ptr ;------------------------------------------------------------------------------- ; windowbox YL,YH to ZL,ZH ;------------------------------------------------------------------------------- .ifdef use_libmio_wbox libmio_wbox: push_regs clt ;set for fill rcall libmio_cbox ;clear box rcall libmio_corrc ;sort data mov tempreg1,YL ;save X-pos mov XH,YH mov XL,YL rcall libmio_calc1 ;get address ldi tempreg2,0xf2 ;upper left corner st Y+,tempreg2 ;store ldi tempreg2,0xf1 ;hor line libmio_wbox1: inc XL cp XL,ZL breq libmio_wbox2 st Y+,tempreg2 ;store rjmp libmio_wbox1 ;loop libmio_wbox2: ldi tempreg2,0xf3 ;upper right corner st Y+,tempreg2 ;store libmio_wbox3: mov XL,tempreg1 ;restore X inc XH ;next line cp XH,ZH ;last line? breq libmio_wbox4 ;yes rcall libmio_calc1 ;get address ldi tempreg2,0xf0 ;vertical line st Y+,tempreg2 mov XL,ZL rcall libmio_calc1 ;get address st Y+,tempreg2 rjmp libmio_wbox3 libmio_wbox4: mov XL,tempreg1 rcall libmio_calc1 ;get address ldi tempreg2,0xf4 ;lower left corner st Y+,tempreg2 ;store ldi tempreg2,0xf1 ;hor line libmio_wbox5: inc XL cp XL,ZL breq libmio_wbox6 st Y+,tempreg2 ;store rjmp libmio_wbox5 ;loop libmio_wbox6: ldi tempreg2,0xf5 ;lower right corner st Y+,tempreg2 ;store pop_regs .endif ;------------------------------------------------------------------------------- ; windowheadbox YL,YH to ZL,ZH ;------------------------------------------------------------------------------- .ifdef use_libmio_whbox libmio_whbox: rcall libmio_wbox ;draw normal windowbox push_regs ;save registers rcall libmio_corrc ;sort data mov tempreg2,ZL ;X2 sub tempreg2,YL ;-X1 subi tempreg2,1 ;sub corners sbrs tempreg2,7 ;skip if diff <2 brne libmio_whbox_1 ;X1!=X2 rjmp libmio_whbox_e ;end libmio_whbox_1: ldi ZH,0xfb ldi ZL,0xec rcall libmio_boxl inc YH ldi ZH,0xfd ldi ZL,0x0f rcall libmio_boxl inc YH ldi ZH,0xee ldi ZL,0xed rcall libmio_boxl libmio_whbox_e: pop_regs libmio_boxl: movw XL,YL ;copy rcall libmio_gxy mov tempreg1,ZH rcall libmio_char mov tempreg3,tempreg2 libmio_whbox_2: mov tempreg1,ZL ;header fields rcall libmio_char dec tempreg3 brne libmio_whbox_2 mov tempreg1,ZH inc tempreg1 rjmp libmio_char .endif ;------------------------------------------------------------------------------- ; draw line from YL,YH to ZL,ZH ; this algorithm is a little bit quick and dirty, but it works... ;------------------------------------------------------------------------------- .ifdef use_libmio_draw libmio_draw: push_regs movw XL,YL ;copy start pointer ldi tempreg1,0xff ;set sgn(dx) negative sub YL,ZL ;x1-x2 brcc libmio_draw01 ;branch if x1|dx| rjmp libmio_draw3 ;|dx|>|dy| libmio_draw3: mov tempreg3,YL ;|dx| lsr tempreg3 ;/2 libmio_draw4: rcall libmio_plot ;plot pixel cp XL,ZL ;the endpoint? breq libmio_draw_e ;yes add XL,tempreg1 ;X-step sub tempreg3,YH ;-|dy| brcc libmio_draw4 ;no overflow add XH,tempreg2 ;y-step add tempreg3,YL rjmp libmio_draw4 ;|dy|>|dx| libmio_draw6: mov tempreg3,YH ;|dy| lsr tempreg3 ;/2 libmio_draw7: rcall libmio_plot ;plot pixel cp XH,ZH ;the endpoint? breq libmio_draw_e add XH,tempreg2 ;y-step sub tempreg3,YL brcc libmio_draw7 add XL,tempreg1 ;x-step add tempreg3,YH rjmp libmio_draw7 libmio_draw_e: pop_regs .endif ;------------------------------------------------------------------------------- ; wait for the end of visible frame ;------------------------------------------------------------------------------- .ifdef use_libmio_sync libmio_sync: push XL ldi XL,240 libmio_sync_1: cp XL,r8 breq libmio_sync_1 libmio_sync_2: cp XL,r8 brne libmio_sync_2 pop XL ret .endif ;------------------------------------------------------------------------------- ; play a note (XL=note 0..63 0xff=>noise) ;------------------------------------------------------------------------------- libmio_note: push_ptr lds ZH,prg_sound sbrc ZH,7 rjmp libmio_note_1 ldi ZL,note_entry icall rjmp libmio_note_2 libmio_note_1: sts libmio_note_val,XL ;write note value ldi ZH,HIGH(libmio_wtable1*2) sbrc XL,6 ldi ZH,HIGH(libmio_wtable2*2) sts libmio_wavtab,ZH andi XL,0x3f ;64 notes lsl XL ldi ZH,HIGH(libmio_ntable*2) ;1 start envtable high ldi ZL,LOW(libmio_ntable*2) ;1 start envtable low add ZL,XL ;offsettable adc ZH,const_0 ; lpm XL,Z+ ;get low offset sts libmio_woff_l,XL ;write lpm XL,Z+ ;get high offset sts libmio_woff_h,XL ;write sts libmio_env,const_0 ;start sts libmio_wpos_l,const_0 sts libmio_wpos_h,const_0 libmio_note_2: pop_ptr ;------------------------------------------------------------------------------ ;wait for a key ;------------------------------------------------------------------------------ libmio_waitkey: sts libmio_lastkey,const_0 libmio_wkey1: lds tempreg1,libmio_lastkey cpi tempreg1,0 breq libmio_wkey1 rjmp libmio_scrs ret ;------------------------------------------------------------------------------ ;wait for no key ;------------------------------------------------------------------------------ libmio_nokey: push tempreg1 libmio_nokey_1: lds tempreg1,libmio_keycode cpi tempreg1,0 brne libmio_nokey_1 pop tempreg1 ret ;------------------------------------------------------------------------------ ;blink cursor and wait for key (return x,y in X ; adr in Y ; key in tempreg1) ;------------------------------------------------------------------------------ .ifdef use_libmio_cursor libmio_cursor: rcall libmio_calc ;calculate address ldi XL,LOW(690) add YL,XL ldi XL,HIGH(690) adc YH,XL libmio_cur1: ld XL,Y ;get original color mov XH,XL ;copy swap XH sts libmio_lastkey,const_0 ;clear key libmio_cur_1: lds tempreg1,libmio_lastkey cpi tempreg1,0 brne libmio_cur_e lds tempreg1,libmio_frames cpi tempreg1,27 ;ca. half of fps brcc libmio_cur_2 st Y,XL rjmp libmio_cur_1 libmio_cur_2: st Y,XH rjmp libmio_cur_1 libmio_cur_e: st Y,XL ;put back original char .ifdef use_libmio_screenshot rcall libmio_scrs .endif rjmp libmio_calc .endif ;------------------------------------------------------------------------------ ;blink cursor and wait for key (return x,y in X ; adr in Y ; key in tempreg1) ;------------------------------------------------------------------------------ .ifdef use_libmio_ecursor libmio_ecursor: push r19 ldi r19,0xdd ;dummy rcall libmio_ecalc sts libmio_lastkey,const_0 ;clear key libmio_ecur_1: lds tempreg1,libmio_kbdstate andi tempreg1,0x04 ;left ctrl cp tempreg1,r19 breq libmio_ecur_c cpi tempreg1,0x00 ;no brne libmio_ecur_b call editor_shline mov r19,tempreg1 rjmp libmio_ecur_c libmio_ecur_b: call editor_chline mov r19,tempreg1 libmio_ecur_c: lds tempreg1,libmio_lastkey cpi tempreg1,0 brne libmio_ecur_e lds tempreg1,libmio_frames cpi tempreg1,27 ;ca. half of fps brcc libmio_ecur_2 ld tempreg1,Y ;get char andi tempreg1,0x7f ;set normal st Y,tempreg1 rjmp libmio_ecur_1 libmio_ecur_2: ld tempreg1,Y ;get char ori tempreg1,0x80 ;set inverse st Y,tempreg1 rjmp libmio_ecur_1 libmio_ecur_e: ld tempreg2,Y ;get char andi tempreg2,0x7f ;set normal st Y,tempreg2 pop r19 ret .endif ;------------------------------------------------------------------------------ ;blink cursor and wait for key (return x,y in X ; adr in Y ; key in tempreg1) ;------------------------------------------------------------------------------ .ifdef use_libmio_ncursor libmio_ncursor: ldi YH,HIGH(libmio_vram+11) ;home position ldi YL,LOW(libmio_vram+11) ;home position add YL,XL ;position+x adc YH,const_0 sts libmio_lastkey,const_0 ;clear key libmio_ncur_1: lds tempreg1,libmio_lastkey cpi tempreg1,0 brne libmio_ncur_e lds tempreg1,libmio_frames cpi tempreg1,27 ;ca. half of fps brcc libmio_ncur_2 ld tempreg1,Y ;get char andi tempreg1,0x7f ;set normal st Y,tempreg1 rjmp libmio_ncur_1 libmio_ncur_2: ld tempreg1,Y ;get char ori tempreg1,0x80 ;set inverse st Y,tempreg1 rjmp libmio_ncur_1 libmio_ncur_e: ld tempreg2,Y ;get char andi tempreg2,0x7f ;set normal st Y,tempreg2 ret .endif ;------------------------------------------------------------------------------ ;calculate char address to Y ;------------------------------------------------------------------------------ libmio_calc: movw XL,libmio_cur_x ;X libmio_calc1: push r0 push r1 ldi YH,libmio_cols ;chars per line mul XH,YH ;store ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position add YL,XL ;position+x adc YH,const_0 add YL,r0 ;position+(cols*y) adc YH,r1 pop r1 pop r0 ret ;------------------------------------------------------------------------------ ;calculate attributes address to Y ;------------------------------------------------------------------------------ libmio_calc2: rcall libmio_calc1 push r16 ldi r16,LOW(libmio_cols*libmio_rows) add YL,r16 ldi r16,HIGH(libmio_cols*libmio_rows) adc YH,r16 pop r16 ret ;------------------------------------------------------------------------------ ;calculate ecursor address to Y ;------------------------------------------------------------------------------ libmio_ecalc: ldi YH,libmio_ecols ;chars per line mul XH,YH ;store ldi YH,HIGH(libmio_vram+3*libmio_ecols+3) ;home position ldi YL,LOW(libmio_vram+3*libmio_ecols+3) ;home position add YL,XL ;position+x adc YH,const_0 add YL,r0 ;position+(cols*y) adc YH,r1 ret ;------------------------------------------------------------------------------ ;get char on cursor address ;------------------------------------------------------------------------------ .ifdef use_libmio_gchar libmio_gchar: rcall libmio_calc ld tempreg1,Y ret .endif ;------------------------------------------------------------------------------ ;set cursor to down position ;------------------------------------------------------------------------------ .ifdef use_libmio_vcur libmio_vcur: movw XL,libmio_cur_x ;X dec XL inc XH rjmp libmio_gxy ;set new cursor position .endif ;------------------------------------------------------------------------------ ;put tempreg1 to printer output ;------------------------------------------------------------------------------ libmio_ppar: push ZH call sys_iocheck brts libmio_ppar_0 ldi ereg,38 ;io disabled rjmp libmio_ppar_4 libmio_ppar_0: ldi ZH,0xff out DDRA,ZH ;set port A0-7 as outputs nop libmio_ppar_1: sbic PINB,2 ;busy rjmp libmio_ppar_1 ;yes out PORTA,tempreg1 ;data ldi ZH,100 ;pause libmio_ppar_2: dec ZH brne libmio_ppar_2 cbi PORTB,1 ;clear strobe (active) ldi ZH,100 ;pause libmio_ppar_3: dec ZH brne libmio_ppar_3 sbi PORTB,1 ;set strobe (inactive) libmio_ppar_4: pop ZH ret ;thats all ;------------------------------------------------------------------------------ ;output screenshot ;------------------------------------------------------------------------------ libmio_scrs: push tempreg1 lds tempreg1,libmio_kflags sbrc tempreg1,1 ;screenshot-flag rjmp libmio_scrs_1 pop tempreg1 ;restore regs ret libmio_scrs_e: pop tempreg1 ;restore regs clr tempreg1 pop_ptr libmio_scrs_1: pop tempreg1 push_ptr ; push tempreg1 andi tempreg1,0xfd ;clear screenshot-flag sts libmio_kflags,tempreg1 ;write back lds XL,libmio_vidmode ;video mode mov tempreg1,XL ;vmode rcall libmio_scrs_c ;output videomode lds tempreg1,libmio_border ;border rcall libmio_scrs_cc ;output border lds tempreg1,libmio_estatus ;color of status line rcall libmio_scrs_cc ;out ldi YL,LOW(libmio_palette) ldi YH,HIGH(libmio_palette) ldi XH,16 libmio_scrs_2: ld tempreg1,Y+ swap tempreg1 rcall libmio_scrs_c dec XH brne libmio_scrs_2 rcall libmio_sernl ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ;text cpi XL,0 ;textmode? brne libmio_scrs_02 ;no ldi ZH,libmio_rows*2 ;number of charlines libmio_scrs_01: ldi ZL,libmio_cols ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_01 rjmp libmio_scrs_e ;editor libmio_scrs_02: cpi XL,8 ;editormode? brne libmio_scrs_10 ;no ldi ZH,0x03 ;number of fix charlines libmio_scrs_06: ldi ZL,libmio_ecols ;number of chars per line libmio_scrs_07: rcall libmio_scrs_li dec ZH brne libmio_scrs_06 ldi ZL,libmio_ecols ;calc startadr of listing lds ZH,libmio_edstart mul ZL,ZH add YL,r0 adc YH,r1 ldi ZH,0x10 ;number of edit charlines libmio_scrs_08: ldi ZL,libmio_ecols ;number of chars per line libmio_scrs_09: ld tempreg1,Y ; andi tempreg1,0x7f ;mask invert bit swap tempreg1 ;high nibble first rcall libmio_scrs_c ld tempreg1,Y+ andi tempreg1,0x7f ;mask invert bit rcall libmio_scrs_c dec ZL brne libmio_scrs_09 call libmio_sernl dec ZH brne libmio_scrs_08 rjmp libmio_scrs_e ;graph 1 libmio_scrs_10: cpi XL,1 brne libmio_scrs_20 ldi ZH,131 ;number of pixlines+attrlines libmio_scrs_11: ldi ZL,21 ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_11 rjmp libmio_scrs_e ;graph 2 libmio_scrs_20: cpi XL,2 brne libmio_scrs_30 ldi ZH,84 ;number of pixlines libmio_scrs_21: ldi ZL,30 ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_21 rjmp libmio_scrs_e ;graph 3 libmio_scrs_30: cpi XL,3 brne libmio_scrs_40 ldi ZH,58 ;number of pixlines libmio_scrs_31: ldi ZL,42 ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_31 rjmp libmio_scrs_e ;mode 4 (user 1) libmio_scrs_40: cpi XL,4 ;user 1? brne libmio_scrs_50 ;no libmio_scrs_41: ldi ZH,87 ;number of charlines rjmp libmio_scrs_01 ;graph 5 libmio_scrs_50: cpi XL,5 ;user 1? brne libmio_scrs_60 ;no ldi ZH,64 ;number of pixlines libmio_scrs_51: ldi ZL,16 ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_51 rjmp libmio_scrs_e ;mode 6 (user 2) libmio_scrs_60: cpi XL,6 ;user 2? breq libmio_scrs_41 ;no ;mode 7 (driver) cpi XL,7 ;custom brne libmio_scrs_80 ldi ZL,0x0e ldi ZH,0xe4 lpm tempreg1,Z ;library code swap tempreg1 rcall libmio_scrs_c lpm tempreg1,Z+ rcall libmio_scrs_c lpm tempreg1,Z ;library version swap tempreg1 rcall libmio_scrs_c lpm tempreg1,Z+ rcall libmio_scrs_c call libmio_sernl ldi ZH,92 ;number of pixlines libmio_scrs_71: ldi ZL,30 ;number of chars per line rcall libmio_scrs_li dec ZH brne libmio_scrs_71 libmio_scrs_80: rjmp libmio_scrs_e ;no valid mode libmio_scrs_cc: swap tempreg1 ; lsr tempreg1 andi tempreg1,0x07 ;mask bits libmio_scrs_c: andi tempreg1,0x0f ;mask bits subi tempreg1,0xd0 ;+30 cpi tempreg1,0x3a ;>9 brcs libmio_scrs_c1 ;jump, if not subi tempreg1,0xf9 ;+6 libmio_scrs_c1: jmp libmio_pser libmio_scrs_li: ld tempreg1,Y swap tempreg1 ;high nibble first rcall libmio_scrs_c ld tempreg1,Y+ rcall libmio_scrs_c dec ZL brne libmio_scrs_li jmp libmio_sernl ;------------------------------------------------------------------------------ ;enable/disable chargepump ;------------------------------------------------------------------------------ .ifdef use_libmio_chp libmio_chp: push XH ldi XH,0x02 ;disable output cpi XL,0 ;is zero breq libmio_chp1 ori XH,0x40 ;enable output libmio_chp1: out TCCR0A,XH pop XH ret .endif ;------------------------------------------------------------------------------ ;put newline to serial output ;------------------------------------------------------------------------------ libmio_sernl: push XH push tempreg1 ldi tempreg1,0x0d ;CR lds XH,libmio_sysconf sbrc XH,6 ;skip if no CR rcall libmio_pser ldi tempreg1,0x0a ; sbrc XH,7 ;skip if no LF rcall libmio_pser pop tempreg1 pop XH ret ;------------------------------------------------------------------------------ ;put newline to serial output2 ;------------------------------------------------------------------------------ libmio_sernl2: push XH push tempreg1 ldi tempreg1,0x0d ;CR lds XH,libmio_sysconf sbrc XH,6 ;skip if no CR rcall libmio_pser2 ldi tempreg1,0x0a ; sbrc XH,7 ;skip if no LF rcall libmio_pser2 pop tempreg1 pop XH ret ;------------------------------------------------------------------------------ ;put tempreg1 to serial output 1 ;------------------------------------------------------------------------------ libmio_pser: push XH libmio_pser_1: lds XH,libmio_tcnt ;counter cpi XH,0x00 ;ready? brne libmio_pser_1 ;loop sts libmio_tdat,tempreg1 ;store data dec XH ;prepare 0xff sts libmio_tcnt,XH ;store start pop XH ret ;thats all ;------------------------------------------------------------------------------ ;put tempreg1 to serial output 2 ;------------------------------------------------------------------------------ libmio_pser2: lds tempreg3,libmio_config sbrs tempreg3,4 ret push tempreg2 libmio_pser2a: lds tempreg2,UCSR1A sbrs tempreg2,5 rjmp libmio_pser2a sts UDR1,tempreg1 pop tempreg2 ret ;------------------------------------------------------------------------------ ;get tempreg1 from serial input ;------------------------------------------------------------------------------ libmio_gser: push XH libmio_gser_1: lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_gser_1 ;loop dec XH ;prepare 0xff sts libmio_rcnt,XH ;store start libmio_gser_2: lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_gser_2 ;loop lds tempreg1,libmio_rdat ;get char libmio_pconv1: pop XH ret ;thats all ;------------------------------------------------------------------------------ ;get tempreg1 from serial input 2 ;------------------------------------------------------------------------------ libmio_gser2: lds tempreg3,libmio_config sbrs tempreg3,4 rjmp libmio_gser libmio_gser2a: lds tempreg1,UCSR1A sbrs tempreg1,7 rjmp libmio_gser2a lds tempreg1,UDR1 ret ;------------------------------------------------------------------------------ ;get tempreg1 from serial input 2 (XL=baudrate selector) ;------------------------------------------------------------------------------ libmio_baud2: lds tempreg3,libmio_config sbrs tempreg3,4 ret libmio_baud: push_ptr mov XH,XL ;copy lsl XH andi XH,0x0e ldi ZL,LOW(libmio_brate*2) ldi ZH,HIGH(libmio_brate*2) add ZL,XH adc ZH,const_0 lpm XH,Z+ sts UBRR1H,XH lpm XH,Z+ sts UBRR1L,XH lds XH,UCSR1C ;copy andi XH,0x06 bst XL,4 ;stopp-bits bld XH,3 ;0=1, 1=2 sbrs XL,5 ;parity rjmp libmio_baud_np ;no parity ori XH,0x20 ;enable parity bst XL,6 ;parity select bit bld XH,4 ;0=even, 1=odd rjmp libmio_baud_1 libmio_baud_np: sbrc XL,6 ;bits-2 andi XH,0xfb ;0=7/8, 1=5/6 libmio_baud_1: sbrc XL,7 andi XH,0xfd ;0=8bit 1=7bit sts UCSR1C,XH pop_ptr libmio_brate: .db 8,35 ;1200 .db 4,17 ;2400 .db 2,8 ;4800 .db 1,3 ;9600 .db 0,129 ;19200 .db 0,80 ;31250 .db 0,64 ;38400 .db 0,42 ;57600 ;------------------------------------------------------------------------------ ;get tempreg1 from serial input with break ;------------------------------------------------------------------------------ libmio_gserb: push XH libmio_gserb_1: lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_gserb_1 ;loop dec XH ;prepare 0xff sts libmio_rcnt,XH ;store start libmio_gserb_2: lds tempreg1,libmio_keycode ;get keycode cpi tempreg1,0xed ;ESC breq libmio_gserb_4 ;end if ESC key is pressed lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_gserb_2 ;loop lds tempreg1,libmio_rdat ;get char libmio_gserb_3: pop XH ret ;thats all libmio_gserb_4: ldi tempreg1,0x1b ;ESC pop XH ret ;thats all ;------------------------------------------------------------------------------ ;get tempreg1 from serial input 2 ;------------------------------------------------------------------------------ libmio_gserb2: lds tempreg3,libmio_config sbrs tempreg3,4 rjmp libmio_gserb libmio_gser2ba: lds tempreg1,libmio_keycode ;get keycode cpi tempreg1,0xed ;ESC breq libmio_gserb_4 ;end if ESC key is pressed lds tempreg1,UCSR1A sbrs tempreg1,7 rjmp libmio_gser2ba lds tempreg1,UDR1 ret ;------------------------------------------------------------------------------- ; draw menu from Z and exit with a valid key in tempreg1 ;------------------------------------------------------------------------------- libmio_menu: push_ptr ; rcall libmio_nokey push r18 movw r0,ZL ;save ptr adiw ZL,30 ;point Z to shifting flag lpm r18,Z ;get shifting and key flag ldi YL,LOW(libmio_vram+1350) ;attr address ldi YH,HIGH(libmio_vram+1350) ldi ZL,LOW(libmio_menu_at*2) ldi ZH,HIGH(libmio_menu_at*2) rcall libmio_menu_fc ;copy from Flash sts libmio_lastkey,const_0 libmio_menu_1: movw ZL,r0 rcall libmio_scrs ldi YL,LOW(libmio_vram+660) ;char address ldi YH,HIGH(libmio_vram+660) sbrs r18,0 rjmp libmio_menu_2 ;no shifting lds XH,libmio_kbdstate sbrc XH,2 ;left ctrl adiw ZL,32 ;ctrl level libmio_menu_2: rcall libmio_menu_fc ;copy from flash libmio_menu_4: lds tempreg1,libmio_lastkey cpi tempreg1,0 ;no key breq libmio_menu_1 ldi XL,0x01 cpi tempreg1,0xed ;ESC breq libmio_menu_10 ldi XL,0x02 cpi tempreg1,0xf1 ;F1 breq libmio_menu_10 ldi XL,0x03 cpi tempreg1,0xf2 ;F2 breq libmio_menu_10 ldi XL,0x04 cpi tempreg1,0xf3 ;F3 breq libmio_menu_10 ldi XL,0x05 cpi tempreg1,0xf4 ;F4 breq libmio_menu_10 sbrc r18,1 ;key enable flag rjmp libmio_menu_12 ;branch if all keys enabled rjmp libmio_menu_1 ;no valid key libmio_menu_10: lds XH,libmio_kbdstate sbrc XH,2 subi XL,0xfb ;+5 for ctrl mov tempreg1,XL ;copy result libmio_menu_12: pop r18 pop_ptr ;copy from flash libmio_menu_fc: ldi XH,30 libmio_menu_f1: lpm XL,Z+ st Y+,XL dec XH brne libmio_menu_f1 ret ;color table libmio_menu_at: .db 0x4e,0x4e,0x4e,0x4e,0x4e,0x4e .db 0xc0,0xc0,0xc0,0xc0,0xc0,0xc0 .db 0x80,0x80,0x80,0x80,0x80,0x80 .db 0x2e,0x2e,0x2e,0x2e,0x2e,0x2e .db 0x6e,0x6e,0x6e,0x6e,0x6e,0x6e ;only draw menu libmio_domenu: push_ptr ldi YL,LOW(libmio_vram+660) ;char address ldi YH,HIGH(libmio_vram+660) rcall libmio_menu_fc ;copy from flash ldi YL,LOW(libmio_vram+1350) ;attr address ldi YH,HIGH(libmio_vram+1350) ldi ZL,LOW(libmio_menu_at*2) ldi ZH,HIGH(libmio_menu_at*2) rcall libmio_menu_fc ;copy from Flash pop_ptr ;------------------------------------------------------------------------------- ; set config for I2C and SPI ;------------------------------------------------------------------------------- libmio_setconf: lds XH,libmio_sysconf libmio_setcf1: ldi XL,0x5c ;f/4 sbrc XH,3 ldi XL,0x5f ;f/128 out SPCR,XL out SPSR,const_0 ldi XL,17 ;speed sts TWBR,XL ldi XL,0x00 ;/1 sbrs XH,4 ldi XL,0x01 ;/4 sts TWSR,XL ret ;------------------------------------------------------------------------------- ; pseudo-random generator (external call) ;------------------------------------------------------------------------------- libmio_psrg: mov XL,r8 ;get vline_l libmio_psrg1: cp XL,r8 ;wait for change breq libmio_psrg1 lds XL,libmio_rand3 lds XH,libmio_rand2 ret ;------------------------------------------------------------------------------- ; copy char table to RAM (and convert) ;------------------------------------------------------------------------------- libmio_copytab: push_regs ldi XL,LOW(libmio_vram) ;base address ldi XH,HIGH(libmio_vram) ldi YL,LOW(690) ;bytes to write ldi YH,HIGH(690) libmio_copyt_1: st X+,const_0 ;set to zero sbiw YL,1 brne libmio_copyt_1 ; rjmp libmio_copyt_9 ldi tempreg1,0 ;first char libmio_copyt_2: ldi tempreg2,0 ;first pixline libmio_copyt_3: rcall libmio_copyti inc tempreg1 cpi tempreg1,64 brne libmio_copyt_2 libmio_copyt_9: pop_regs libmio_exx: sbrs tempreg3,7 rjmp libmio_exx_1 push tempreg1 mov tempreg1,YL ;set data to 0 mov YL,YH ;set data to 1 mov YH,tempreg1 pop tempreg1 libmio_exx_1: or tempreg4,YL lsl tempreg3 ret ;innner loop libmio_copyti: ldi ZL,LOW(libmio_ctable*2) ;character table ldi ZH,HIGH(libmio_ctable*2) add ZH,tempreg2 ;add pixline offset add ZL,tempreg1 ;add char lpm tempreg3,Z ;get pixline lds YL,libmio_color mov YH,YL swap YH andi YL,0xf0 andi YH,0xf0 ldi ZL,3 libmio_copyti1: clr tempreg4 rcall libmio_exx swap tempreg4 rcall libmio_exx swap tempreg4 st X+,tempreg4 dec ZL brne libmio_copyti1 inc tempreg2 cpi tempreg2,10 brne libmio_copyti ret ;------------------------------------------------------------------------------- ; copy char table to RAM (and convert) for ;------------------------------------------------------------------------------- libmio_cptab: push_ptr push tempreg1 ldi XL,0x80 ;base address ldi XH,0x07 ldi ZL,LOW(libmio_ctable*2) ;character table ldi ZH,HIGH(libmio_ctable*2) ldi YL,0x0a ;number of charlines libmio_cptab_1: ldi YH,0x80 ;number of bytes libmio_cptab_2: lpm tempreg1,Z+ st X+,tempreg1 dec YH brne libmio_cptab_2 adiw ZL,0x30 adiw ZL,0x30 adiw ZL,0x20 dec YL brne libmio_cptab_1 pop tempreg1 pop_ptr ;------------------------------------------------------------------------------- ; set volume to XH ;------------------------------------------------------------------------------- libmio_setvol: push ZH push ZL andi XH,0x0f ldi ZL,LOW(libmio_etable*2+15) ldi ZH,HIGH(libmio_etable*2+15) sub ZL,XH lpm ZH,Z lsl ZH dec ZH sts libmio_volume,ZH brtc libmio_setvol1 sts libmio_mvolume,ZH libmio_setvol1: pop ZL pop ZH ret ;------------------------------------------------------------------------------- ; set video on/off ;------------------------------------------------------------------------------- libmio_vidoff: push XL lds XL,libmio_config ori XL,0x20 libmio_vidoff1: sts libmio_config,XL pop XL ret libmio_vidon: push XL lds XL,libmio_config andi XL,0xdf rjmp libmio_vidoff1 ;------------------------------------------------------------------------------- ; copy char matrices in mode 6 ; tempreg1 = src char ; tempreg2 = dest char ; tempreg3 = color ;------------------------------------------------------------------------------- libmio_cpbits6: push_regs ldi XL,LOW(libmio_vram+690) ldi XH,HIGH(libmio_vram+690) ldi tempreg1,30 andi tempreg2,0x3f mul tempreg1,tempreg2 add XL,r0 adc XH,r1 lds r0,libmio_color sts libmio_color,tempreg3 clr tempreg2 call libmio_copyti sts libmio_color,r0 pop_regs ;------------------------------------------------------------------------------- ; copy char matrices in mode 4 ; tempreg1 = src char ; tempreg2 = dest char ;------------------------------------------------------------------------------- libmio_cpbits4: push_regs mov ZL,tempreg1 ;src char ldi ZH,HIGH(libmio_ctable*2) ldi XL,0x80 ;offset ldi XH,0x07 andi tempreg2,0x7f add XL,tempreg2 ldi tempreg2,0x0a ldi tempreg3,0x80 libmio_cpb4_1: lpm tempreg1,Z st X,tempreg1 inc ZH add XL,tempreg3 adc XH,const_0 dec tempreg2 brne libmio_cpb4_1 pop_regs ;------------------------------------------------------------------------------- ; include additional functions ;------------------------------------------------------------------------------- .include "libmio/bcopy.asm" .include "libmio/circle.asm" .include "libmio/alert.asm" .include "libmio/sprites.asm" .include "libmio/scroll.asm" .include "libmio/xmodem.asm" .include "libmio/sq.asm" ;------------------------------------------------------------------------------ ;get tempreg1 from serial input 2 (XL=baudrate selector) ;------------------------------------------------------------------------------ SOURCE_142/SOURCE_system/libmio/vidm_tvg.asm0000755000175000001440000002215711725741457017720 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video signal engine for mode 1,2,3,5 # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ libmio_tvg2_x: jmp libmio_is_15 ;------------------------------------------------------------------------------- ; -graphics mode 168x116 2 colors ;------------------------------------------------------------------------------- libmio_tvg2: mov XL,vline_l cpi XL,5 brcs libmio_tvg2_x lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high mov ZH,vline_l ;get vline subi ZH,5 ldi YL,LOW(libmio_vram+2436) ldi YH,HIGH(libmio_vram+2436) swap ZH andi ZH,0x0f ldi ZL,21 ;bytes per line mul ZL,ZH add YL,r0 adc YH,r1 lds r1,libmio_border ;2 get border color ld ZH,X+ ;get first byte ld tempreg3,Y+ ;get first attr mov tempreg1,tempreg3 ;copy attr sbrc ZH,0 ;check bit 1 swap tempreg1 ;set to foreground libmio_tvg2_1: out PORTC,tempreg1 ;1 out bit 1 mov tempreg2,tempreg3 ;1 copy attr mov tempreg1,tempreg2 ;1 background sbrc ZH,1 ;1 check bit 2 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 2 nop ;1 fill mov tempreg1,tempreg2 ;1 background sbrc ZH,2 ;1 check bit 3 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 3 ld tempreg3,Y+ ;2 get next attr mov tempreg1,tempreg2 ;1 background sbrc ZH,3 ;1 check bit 4 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 4 nop ;1 fill mov tempreg1,tempreg2 ;1 background sbrc ZH,4 ;1 check bit 5 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 5 ld r0,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 background sbrc ZH,5 ;1 check bit 6 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 6 nop ;1 fill mov tempreg1,tempreg2 ;1 background sbrc ZH,6 ;1 check bit 7 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 7 sbrc ZH,7 ;1 check bit 8 swap tempreg2 ;1 set to foreground mov tempreg1,tempreg3 ;1 background sbrc r0,0 ;1 check bit 1 of next byte swap tempreg1 ;1 set to foreground out PORTC,tempreg2 ;1 out bit 8 mov ZH,r0 ;1 copy byte dec ZL ;1 loop counter brne libmio_tvg2_1 ;2 loop out PORTC,r1 ;1 set to border ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,2 ;1 check brne libmio_tvg2_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvg2_2: sts libmio_cline,ZH ;2 new character line libmio_tvg2_e: jmp libmio_is_15 ;------------------------------------------------------------------------------- ; -graphics mode 120x76 4 colors ;------------------------------------------------------------------------------- libmio_tvg4: mov XL,vline_l cpi XL,7 brcs libmio_tvg2_e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high ldi YH,0x01 ;1 start of palette ldi ZH,30 ;1 number of bytes lds r1,libmio_border ;2 get border color ld ZL,X+ ;2 get first byte mov YL,ZL ;1 copy andi YL,0x03 ;1 ld tempreg2,Y ;2 get pixel 1 libmio_tvg4_1: out PORTC,tempreg2 ;1 output pixel 1 mov YL,ZL ;1 copy back lsr YL ;1 lsr YL ;1 andi YL,0x03 ;1 ld tempreg2,Y ;2 get pixel 2 swap ZL ;1 out PORTC,tempreg2 ;1 output pixel 2 mov YL,ZL ;1 copy back andi YL,0x03 ;1 ld tempreg2,Y ;2 get pixel 3 mov YL,ZL ;1 lsr YL ;1 out PORTC,tempreg2 ;1 output pixel 3 lsr YL ;1 andi YL,0x03 ;1 ld tempreg2,Y ;2 get pixel 4 ld ZL,X+ ;2 get next byte mov YL,ZL ;1 copy out PORTC,tempreg2 ;1 output pixel 4 andi YL,0x03 ;1 ld tempreg2,Y ;2 get pixel 1 dec ZH ;1 loop counter brne libmio_tvg4_1 ;2 out PORTC,r1 ;1 set to border ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,3 ;1 check brne libmio_tvg4_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvg4_2: sts libmio_cline,ZH ;2 new character line jmp libmio_is_15 ;------------------------------------------------------------------------------- ; -graphics mode 84x58 16 colors ;------------------------------------------------------------------------------- libmio_tvg8: mov XL,vline_l cpi XL,5 brcs libmio_tvg2_e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high push r16 ;2 save reg lds r1,libmio_border ;2 get border color ldi ZL,42 ;number of bytes ldi YH,0x01 ;start of palette ld YL,X+ ;get first byte nop ;1 mov r16,YL ;1 swap r16 ;lower nibble first andi YL,0x0f ;mask bits ld ZH,Y ;get value libmio_tvg8_1: out PORTC,ZH ;1 out pix 0 mov YL,r16 ;1 ;1 andi YL,0x0f ;1 mask bits ld ZH,Y ;2 get value nop ;1 fill nop ;1 fill nop ;1 fill nop ;1 fill out PORTC,ZH ;1 out pix 1 ld YL,X+ ;2 get next byte nop ;1 mov r16,YL ;1 save swap r16 ;1 lower nibble first andi YL,0x0f ;1 mask bits ld ZH,Y ;2 get value dec ZL ;1 loop counter brne libmio_tvg8_1 ;2 loop out PORTC,r1 ;1 set to border sbiw XL,1 ;correct pop r16 ;restore lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,4 ;1 check brne libmio_tvg8_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvg8_2: sts libmio_cline,ZH ;2 new character line libmio_tvg8_e: jmp libmio_is_15 ;------------------------------------------------------------------------------- ; -graphics mode 128x64 2 colors ;------------------------------------------------------------------------------- libmio_tvg1: mov XL,vline_l cpi XL,56 brcs libmio_tvg8_e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high lds YH,libmio_palette ;get color 0 lds YL,libmio_palette+1 ;get color 1 swap YL ;swap color 1 add YH,YL andi YH,0xee ldi ZL,16 ;number of bytes lds r1,libmio_border ;2 get border color ld ZH,X+ ;get first byte mov tempreg1,YH ;background sbrc ZH,0 ;check bit 1 swap tempreg1 ;set to foreground libmio_tvg1_1: out PORTC,tempreg1 ;1 out bit 1 nop ;1 fill nop ;1 fill nop ;1 fill mov tempreg1,YH ;1 background sbrc ZH,1 ;1 check bit 2 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 2 nop ;1 fill nop ;1 fill nop ;1 fill mov tempreg1,YH ;1 background sbrc ZH,2 ;1 check bit 3 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 3 nop ;1 fill nop ;1 fill mov tempreg1,YH ;1 background sbrc ZH,3 ;1 check bit 4 swap tempreg1 ;1 set to foreground nop ;1 fill out PORTC,tempreg1 ;1 out bit 4 nop ;1 fill nop ;1 fill mov tempreg3,YH ;1 background mov tempreg1,YH ;1 background sbrc ZH,4 ;1 check bit 5 swap tempreg1 ;1 set to foreground out PORTC,tempreg1 ;1 out bit 5 nop ;1 fill ld YL,X+ ;2 get next byte sbrc ZH,5 ;1 check bit 6 swap tempreg3 ;1 set to foreground mov tempreg2,YH ;1 background out PORTC,tempreg3 ;1 out bit 6 nop ;1 fill nop ;1 fill sbrc ZH,6 ;1 check bit 7 swap tempreg2 ;1 set to foreground mov tempreg3,YH ;1 background mov tempreg1,YH ;1 background out PORTC,tempreg2 ;1 out bit 7 sbrc ZH,7 ;1 check bit 8 swap tempreg3 ;1 set to foreground sbrc YL,0 ;1 check bit 1 of next byte swap tempreg1 ;1 set to foreground nop ;1 fill nop ;1 fill out PORTC,tempreg3 ;1 out bit 8 mov ZH,YL ;1 copy byte nop ;1 fill nop ;1 fill dec ZL ;1 loop counter brne libmio_tvg1_1 ;2 nop ;1 fill out PORTC,r1 ;1 set to border ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,2 ;1 check brne libmio_tvg1_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvg1_2: sts libmio_cline,ZH ;2 new character line jmp libmio_is_15 SOURCE_142/SOURCE_system/libmio/ctable_f1.inc0000644000175000001440000000424011725741457017700 0ustar joergusers .db 0x00,0x00,0x00,0xcc,0xc0,0x00,0x33,0x30,0x00,0xff,0xf0,0x00,0x00,0x0c,0xcc,0xcc .db 0xcc,0xcc,0x33,0x3c,0xcc,0xff,0xfc,0xcc,0x00,0x03,0x33,0xcc,0xc3,0x33,0x33,0x33 .db 0x33,0xff,0xf3,0x33,0x00,0x0f,0xff,0xcc,0xcf,0xff,0x33,0x3f,0xff,0xff,0xff,0xff .db 0xa5,0xa5,0xa5,0x06,0xff,0x60,0x4e,0x54,0x40,0x44,0x5e,0x40,0x24,0xf4,0x20,0x42 .db 0xf2,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0e,0xae,0x00,0x00,0x04,0xe0,0x00,0xaa,0xe8,0x00,0xee,0x4e .db 0x00,0x00,0x00,0x44,0x40,0x40,0xaa,0x00,0x00,0x66,0xff,0x66,0x68,0x42,0xc4,0xa2 .db 0x48,0xa0,0x00,0x00,0x00,0x44,0x00,0x00,0x48,0x88,0x40,0x42,0x22,0x40,0x0a,0x4a .db 0x00,0x04,0xe4,0x00,0x00,0x04,0x80,0x00,0xe0,0x00,0x00,0x00,0x40,0x22,0x48,0x80 .db 0xea,0xaa,0xe0,0x4c,0x44,0xe0,0xe2,0xe8,0xe0,0xe2,0xe2,0xe0,0xaa,0xe2,0x20,0xe8 .db 0xe2,0xe0,0xe8,0xea,0xe0,0xe2,0x48,0x80,0xea,0xea,0xe0,0xea,0xe2,0xe0,0x04,0x04 .db 0x00,0x04,0x04,0x80,0x24,0x84,0x20,0x0e,0x0e,0x00,0x84,0x24,0x80,0xc2,0x68,0xe4 .db 0x00,0xee,0xe0,0x4a,0xae,0xa0,0xca,0xca,0xc0,0x68,0x88,0x60,0xca,0xaa,0xc0,0xe8 .db 0xc8,0xe0,0xe8,0xc8,0x80,0x68,0xea,0x60,0xaa,0xea,0xa0,0xe4,0x44,0xe0,0xe2,0x2a .db 0x60,0xac,0x8c,0xa0,0x88,0x88,0xe0,0xae,0xaa,0xa0,0xca,0xaa,0xa0,0x4a,0xaa,0x40 .db 0xea,0xe8,0x80,0x4a,0xaa,0x60,0xea,0xec,0xa0,0x68,0xe2,0xc0,0xe4,0x44,0x40,0xaa .db 0xaa,0xe0,0xaa,0xaa,0x40,0xaa,0xae,0xa0,0xaa,0x4a,0xa0,0xaa,0x44,0x40,0xe2,0x48 .db 0xe0,0x64,0x44,0x60,0x04,0xa4,0x00,0xc4,0x44,0xc0,0x4a,0x00,0x00,0x00,0x00,0xe0 .db 0x44,0x00,0x00,0x4a,0xae,0xa0,0xca,0xca,0xc0,0x68,0x88,0x60,0xca,0xaa,0xc0,0xe8 .db 0xc8,0xe0,0xe8,0xc8,0x80,0x68,0xea,0x60,0xaa,0xea,0xa0,0xe4,0x44,0xe0,0xe2,0x2a .db 0x60,0xac,0x8c,0xa0,0x88,0x88,0xe0,0xae,0xaa,0xa0,0xca,0xaa,0xa0,0x4a,0xaa,0x40 .db 0xea,0xe8,0x80,0x4a,0xaa,0x60,0xea,0xec,0xa0,0x68,0xe2,0xc0,0xe4,0x44,0x40,0xaa .db 0xaa,0xe0,0xaa,0xaa,0x40,0xaa,0xae,0xa0,0xaa,0x4a,0xa0,0xaa,0x44,0x40,0xe2,0x48 .db 0xe0,0x24,0xc4,0x20,0x44,0x44,0x44,0x84,0x64,0x80,0x88,0x42,0x20,0x8c,0xec,0x80 SOURCE_142/SOURCE_system/libmio/scroll.asm0000755000175000001440000001271211725741457017373 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# scroll routines # ;# copyright (c) 2008-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;scroll inner screen (tempreg1=0 to 3) ;------------------------------------------------------------------------------- libmio_scrl: push_regs lds ZL,libmio_color andi tempreg1,0x03 brne libmio_scrl_10 ;scroll up ldi XL,LOW(libmio_vram+2*libmio_cols+2) ;destination ldi XH,HIGH(libmio_vram+2*libmio_cols+2) ldi YL,LOW(libmio_vram+3*libmio_cols+2) ;source ldi YH,HIGH(libmio_vram+3*libmio_cols+2) mov ZH,const_0 rcall libmio_scrl_05 lds XL,libmio_vidmode cpi XL,6 breq libmio_scrl_01 ldi XL,LOW(libmio_vram+2*libmio_cols+2+libmio_rows*libmio_cols) ;destination ldi XH,HIGH(libmio_vram+2*libmio_cols+2+libmio_rows*libmio_cols) ldi YL,LOW(libmio_vram+3*libmio_cols+2+libmio_rows*libmio_cols) ;source ldi YH,HIGH(libmio_vram+3*libmio_cols+2+libmio_rows*libmio_cols) mov ZH,ZL rcall libmio_scrl_05 libmio_scrl_01: rjmp libmio_scrl_e ;subroutine libmio_scrl_05: ldi tempreg3,libmio_rows-5 libmio_scrl_06: ldi tempreg2,libmio_cols-4 libmio_scrl_07: ld tempreg1,Y+ st X+,tempreg1 dec tempreg2 brne libmio_scrl_07 adiw XL,4 adiw YL,4 dec tempreg3 brne libmio_scrl_06 ldi tempreg2,libmio_cols-4 libmio_scrl_08: st X+,ZH dec tempreg2 brne libmio_scrl_08 ret ;scroll right libmio_scrl_10: cpi tempreg1,0x01 ;code for right brne libmio_scrl_20 ;no ldi XL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-2) ldi XH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-2) ldi YL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-3) ldi YH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-3) mov ZH,const_0 rcall libmio_scrl_15 lds XL,libmio_vidmode cpi XL,6 breq libmio_scrl_14 ldi XL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-2+libmio_rows*libmio_cols) ldi XH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-2+libmio_rows*libmio_cols) ldi YL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-3+libmio_rows*libmio_cols) ldi YH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-3+libmio_rows*libmio_cols) mov ZH,ZL rcall libmio_scrl_15 libmio_scrl_14: rjmp libmio_scrl_e ;subroutine libmio_scrl_15: ldi tempreg3,libmio_rows-4 libmio_scrl_16: ldi tempreg2,libmio_cols-5 libmio_scrl_17: ld tempreg1,-Y st -X,tempreg1 dec tempreg2 brne libmio_scrl_17 st -X,ZH sbiw XL,4 sbiw YL,5 dec tempreg3 brne libmio_scrl_16 ret ;scroll down libmio_scrl_20: cpi tempreg1,0x02 ;code for down brne libmio_scrl_30 ;no ldi XL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-2) ldi XH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-2) ldi YL,LOW(libmio_vram+libmio_cols*(libmio_rows-3)-2) ldi YH,HIGH(libmio_vram+libmio_cols*(libmio_rows-3)-2) mov ZH,const_0 rcall libmio_scrl_25 lds XL,libmio_vidmode cpi XL,6 breq libmio_scrl_24 ldi XL,LOW(libmio_vram+libmio_cols*(libmio_rows-2)-2+libmio_rows*libmio_cols) ldi XH,HIGH(libmio_vram+libmio_cols*(libmio_rows-2)-2+libmio_rows*libmio_cols) ldi YL,LOW(libmio_vram+libmio_cols*(libmio_rows-3)-2+libmio_rows*libmio_cols) ldi YH,HIGH(libmio_vram+libmio_cols*(libmio_rows-3)-2+libmio_rows*libmio_cols) mov ZH,ZL rcall libmio_scrl_25 libmio_scrl_24: rjmp libmio_scrl_e ;subroutine libmio_scrl_25: ldi tempreg3,libmio_rows-5 libmio_scrl_26: ldi tempreg2,libmio_cols-4 libmio_scrl_27: ld tempreg1,-Y st -X,tempreg1 dec tempreg2 brne libmio_scrl_27 sbiw XL,4 sbiw YL,4 dec tempreg3 brne libmio_scrl_26 ldi tempreg2,libmio_cols-4 libmio_scrl_28: st -X,ZH dec tempreg2 brne libmio_scrl_28 ret ;scroll left libmio_scrl_30: ldi XL,LOW(libmio_vram+libmio_cols*2+2) ldi XH,HIGH(libmio_vram+libmio_cols*2+2) ldi YL,LOW(libmio_vram+libmio_cols*2+3) ldi YH,HIGH(libmio_vram+libmio_cols*2+3) mov ZH,const_0 rcall libmio_scrl_35 lds XL,libmio_vidmode cpi XL,6 breq libmio_scrl_34 ldi XL,LOW(libmio_vram+libmio_cols*2+2+libmio_rows*libmio_cols) ldi XH,HIGH(libmio_vram+libmio_cols*2+2+libmio_rows*libmio_cols) ldi YL,LOW(libmio_vram+libmio_cols*2+3+libmio_rows*libmio_cols) ldi YH,HIGH(libmio_vram+libmio_cols*2+3+libmio_rows*libmio_cols) mov ZH,ZL rcall libmio_scrl_35 libmio_scrl_34: rjmp libmio_scrl_e ;subroutine libmio_scrl_35: ldi tempreg3,libmio_rows-4 libmio_scrl_36: ldi tempreg2,libmio_cols-5 libmio_scrl_37: ld tempreg1,Y+ st X+,tempreg1 dec tempreg2 brne libmio_scrl_37 st X+,ZH adiw YL,5 adiw XL,4 dec tempreg3 brne libmio_scrl_36 ret libmio_scrl_e: pop_regs SOURCE_142/SOURCE_system/libmio/tools/0000755000175000001440000000000011713042123016502 5ustar joergusersSOURCE_142/SOURCE_system/libmio/tools/pie.png0000644000175000001440000000420311725741457020007 0ustar joergusers‰PNG  IHDRZòÓ›FU pHYsHHFÉk> vpAgZò8:¾IDATxÚíÝÑqÛ8Pq'•¤µB)¶¢Ò ÷cg'¹k!1¼ Aç|zd›Ž“̇«‡Û `Sï€óX×uçÞOÑÞãñx<Ÿ½ŸâÏ–eY&ÿ§Aõ~àX„ @øÖûà¸ÎÚ!8«yžçuýüëu Ää„ èpBº|FmG¡Dwó19‚páÎÉØ(Ý‚iš¦eéýçѪ+°5]ÆeráÂœ‡q Gëè œÛѺ : ‡É„ @p¾E½º½:¯×ëµÿwmç~¿ßöÜïûÏ^]ögráÂœcÑ€Á¹±sPÿ3ìÿ=u—É„ @p.E…Ñ»Wë ´r†ÎA+-º ºŸÉ„ @pþĺüJçàÏt8“ @€àœéÒFéèô¥sÐ^MGAý™A8‚p„o½€3Ó-€÷JÓßuJgÿ½º\É„ @ðÖKØzŸnÁ¹ÙsÐß‘ö"Øp&@€ Á¹Ñ©è°ƒãÒE`&@€ ÁÝ ¼¡[cpGÛ09‚páÞ“:¤Vû j»%:çfÏÁxjö””ºÏçíöx|þëLÓ²´ø†=™A8‚pƒC›çumñþãÒ¡}|†ÎÁyÔtÖuž·½«Eá¸L€ A8‚».¡~ŸA¹]ÐâýÓÀvžÏº§¥¥NÀÖ]ŽÀä„ èPá~ü륋{«íÀç™A8‚pw+B«;–eš¦&¿Ó6·(è"œƒ»öÑ«CPÚsP«Õþw.É„ @°çàâÚt JJ{ÊO££ÀyŒ²‡àù|ÿñV]FdráÂtvÕjŸÁYé(pd£tFWÚ—`ÿÁžL€ A8‚ÎÁêïPØvŸA/¥Ž‚.ÿ‡nÁÏ?‡wJûJ€Vw.°'“ @€ sÀ Ù—À¯t –É„ @Ð9…ÁèÀÖL€ A8‚ÎTÓQ؇nôbráÂt`s¥ŽÂÕº:0 “ @€ sÝŒ¾/A‡ÎÊä„ èÀ0zut àjL€ A8‚ÎœVmGáßÏù¯×ëý×ùñCÎÉä„ èÀ©mÙ øþ½®Ó ££09‚pá:0”‘Ïìu`&@€ Açºr¦^Vê(è"ÀÖL€ A8‚ÎìÂy;ö%ÀÖL€ A8‚Î|‰3ìqè(@-“ @€ s·ÛÍ3?é(€É„ @Ð9Ò<¯ëº~üø²LÓ4½ûŒûýý™èëUs¶zΆi­ÔQ½‹ðxÔ½~]çyž{?5m˜A8‚pƒ]•:¥6ò™.çf_Â×LÓ²,K笠:“ @€ spqÇÛàÌ•«êÕQ¨ÝgÀ˜A8‚pƒChµÿ þÎ…íéÀ6zÝéÐêû ŽÌä„ èЈnC¯.gbráÂt.¡~ÿAùÎ…Þ? ð5µw(¬ë<—ö¬¸áìL€ A8‚ÎÁ¡µºsávkuFXz—´.Åý¾ý>ƒçóó¯¦eéu· _eráÂt†ô».BÍ=ë¥×/Ë4¹g®áwû j蜉Ʉ @Ð9àú.‚ý°·Ú}­º\É„ @ðžÔK¨ÝP«~/‚.ÂH^¯ûÝo¬Ÿ£u ì3¸“ @€àÜèÒtø ƒ}èp&@€ ÁÝ lÈ ðÑѺð‘É„ @ðVÞØzÿAIý^„…–ì9ø½ÚAI¯n}|dráÂœ3QAáštþ¡[Àu˜A8‚pçO40~¡ÖµNàGï´ê ÔÒ-`\&@€ Á¹è(ŒåhؚɄ @pŽÅôê"”ôë(°‡^‚ÝŽÃä„ 8ßb`Gë(”è.´u´®@‰ã29‚páÎÃ8¡Qº£x>ç³÷S—nçcrá¾õ~h¯Õ^Ý…sÓ€“ @€ sEµÝ…¾t “ @€¶þáõ·ç ö\ÿ%tEXtcreate-date2009-06-11T00:23:12+02:00Ú/f!%tEXtmodify-date2009-06-11T00:23:12+02:00…žIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/temp.xpm0000644000175000001440000025770411725741457020237 0ustar joergusersstatic char *screenshot_xpm[] ={ "370 240 16 1", ". c #000000", "x c #555555", "b c #5555ff", "B c #0000cc", "R c #aa0000", "r c #ff5555", "M c #cc00cc", "m c #ff55ff", "G c #00cc00", "g c #55ff55", "C c #00cccc", "c c #55ffff", "Y c #cccc00", "y c #ffff55", "W c #cccccc", "w c #ffffff", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", ".....................................................CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.............................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", ".................WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.........................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", ".....RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM.....", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", "..................................................................................................................................................................................................................................................................................................................................................................................", }; SOURCE_142/SOURCE_system/libmio/tools/menu_ctrl.png0000644000175000001440000000172211725741457021225 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ IDATxÚíÖÁ‰Ã@AÙ¡8†µc™ 6€­½O ª®sЃD¸ípuk­µ{¿ÍÌìÞÀgÜw8#V€4±¤‰ M¬ibH+@šXÒÄ üËí;Yk­µv¿,¯š™™Ù½Žã8+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibàƒnçÇÏçî¼ãñXk÷^7³{ï™ñ…]‡»º–™³â}÷<€3bH+@šXÒÄ &V€4±¤‰ M¬ÀUüµˆŠ¿YG%tEXtcreate-date2010-04-11T00:56:32+02:00´~%tEXtmodify-date2010-04-11T00:56:32+02:00IgJIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal.png0000644000175000001440000001212011725741457020643 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²Ä‹IDATxÚíÝ]–œ8P{Ž—Tû_A-jæô¸È© 2ÜûÖî$*tâCÒÀÿý<»Wöýýú/__ï_óý½=f{Ž¯¯Ùyr×Ú1¾þ¼ßó^ô7ºËëÌïØè/{dþb뎪÷Ÿã/ g°´vÃèûûµl5.¨Vœy+w­È™«®TzýäÎþ;^FŸ—ÿ#×Ê]i{å;„>+¿U«b È{#מصΠ²´f°´vùèÈhf]œÔ­…p³ï؜ȿešºù±Vïïû“Õ}ÏÎߣ«W\)Þ¯¿)*+@k+@k¿ÎnÀ>‘à#7³æÈHåÜ°ÆÌ#øñ㵸=þx=&òɉ-ø6;jûš.‹sqìß"»8àö™£FŸ‹X«©¬­¬­µŽÎíÒ-.ÉÝ 3† "öiz-ÀGÚýQuä3û†ê>÷çÌ%Ø®*³ÔßöÝ;ÿ<ªÏ¯…Ê ÐšÁ ÐZëEárALD¤0{îBmçîp¹cpU{ï¬iMä‘ *ç®ßU¿9±oÌù;*¶8áýg©¬­¬­µž Ô-@Y§ÿ’tW¼«ÜÓ‘QÌë™GËsåvÚß«qÄó:w£&äyò';÷×½&ÃÄŽŠ,w¯¿¢Ê КÁ ÐZëÙ@9ëæãDäj«RµSR®_p7û#§ÈC±€`>i+v­#îÜÓ¬üëd¼• 5ƒ µÆ@À5½–·#KœE_5ºÚ»kÇÚÚÛ«X©?s¿FV†Uç¾ç>¹`(¿ôßšGúL*+@k+@kb  ±Ùœ˜\„ b²QQ͵2gùä~tw½ð¨&°ŒÅ@‘Yi•mŒ){ç~üPYš3XZ§ÈÌý©ZNqÕÍÌxÿª\/²Eô+F9ÇEEÙwoäLë¬[†ñ3*+@k+@kb à™0Ùbw&rŠ,øVx͉ú¬p½`(èÌÞÏ9Ç줲´f°´öëìO0^VîJ2nÑì¸Èî*G.;&ô9ƹåª>Œz±}?gvÝùrs‘}µÞQYZ3XZ3h" m™¿&¦j/•È<£l sÇQ¯&Z·[Pö}˜›ËV³‡×û`HehÍ`hÍl ¸¥è¶ígµ'[FíC¬O±°(úì?K¶§çªY>,Úó^}·ñõ_Îœ14¾có6ÖÄ7Û3­ø ª¬­¬­™ 7Ùõã˜=þÝ¢Ùkr³fÇdwW‰Ü›Ê¹H¹ãö÷ë9Ž“2÷yÝߦòÓ½~Á·• 5ƒ 51´Ù­#V†í>?h$ eνuWÛ¿F­ynÄSeåg`þש‹,ëÞãÛkÍv:†Ê КÁ К./·±{,œÈivDv{úÜþ&Ñ{8ïùü¨ØÌ´‡³¬›W³r÷«+,­·‡Ê КÁ К³n>κ8âµ ›Ã‰“òs2÷"s'bjÂ#:«ù,ÅâÑñy²ŸÂL›{Ì"TYZ3XZÁbeàýçÙ?“&OD‹Â¹™=³žç–i‹ölÿ1çF¥²´f°´&‚™¹6U³TjæÕTî(4osDÕ2q9"ž³Ü5*:;Šìµul_÷PYZ3XZÁ‘¹?ã˜#³‡N®…¯ÿ’‹¶rsb{™t}D<ǸbTT·àãü˜ÊÏàþo¤è™cÿö?*+@k+@kb 8Mv©´Xœ¹úì¨ü|œŠÒqînD}î§0TµPä‘'Çgš/7?o~—11pQ+@kb .`<³¦w >ÖæÌsôù붑Wú6ïûû>ÄÎZµÜœÐ‡ÿé;?(÷ݲr†ž¸,ƒ 51'Å%‘ãºÇ@ŸÜ‘Ï_‘;¦j®Íö¸ìy™ö}ˆ;7:{~Pì[aöYÎöt_ ­²´f°´öëìðtÙ2¹…ÐŽ”ÝÃg€;kî™ýÌ®#ß߯ÿis¶L]£×{‡£œùž;_,Š/\ùNøtG3• 5ƒ 51¥fû¿ŒF›¿æŠæ×8bÙ_†Î.7Šof}‡>ó£F­žgÔæš¾Ãß<)ªÙŸ+ñ|òª¬­¬­‰(”›Ÿ“+í¯Û7¦.„šGçsmrEטíµF÷ýuvRͲu™å¨êÜ!fä(ýƒ¡ªö¬Œ}cWû;• 5ƒ 51Ð#Õméýz–Èo5O ×,ž6jËè<Ù2çÞ3çwJz¥È1㛟i<ÃkUÅ®”™1ëé¹úµèLÝB•;¿Ãæ‘nöo‘ù6ÞÁ«¬­¬­ý<»üÝ<¬ÉÎd‰<ß½=ªf3óu››ÇîNæÉþÌý÷"R,Ý¿”\DÕŒ¡c‹öUñÖªöpž^áQöS™yGÅ>™]×"ßZÑßÙ·dìÛï7• 5ƒ 5³N‘-ÇÕ, 5VÍRõkÞûL¿F¯¨éE¤Û]~¶WÏõ#3÷&oU±½ji©ºžŠx®%xÙšºkÇÂþýóq²ûjÍãìù1ûgYª¬­¬­™ ÔT42øSn‘±è.-¥¿q_·ÇeŽŠœ7èDc–ý»jTÍ{Z·Ì_¶P<·2Ìèw\ÐQ9óqÿkFçõ,÷}ø• 5ƒ 51Ðe¬|º{nÝ5±óÖÌ{Ê/«—™•‹Š"½ˆ]k~Þ3—ÕñÐÕ™ÁPÕ²žã3¶,Û¿{õü~j§²´f°´Ö:Š©²…¬{ª›¡3:÷öLÛ«¿ÅßZ4¿ÖþWd—›‹î“”Û=rî×c2OÞŸö;7ä½4âì“‘›õù­Œþ¦Ì®Ý©íïTV€Ö V€ÖNjŠâ[÷ŒbAÃè¸÷ÿ]Ð眅öôkÔšªÅ”Öô!Öæ\ßGg®éEÖÙ×ÿÓ¹s£ªÜ󻯣šwKn¦_v!ËÜ™F­Îý  ©¬­¬­Mc Øò/Û㪞1Žtâ©…ÏìÒd¹`h~æ\!½jvRÝü ìÎ@™û‘;渠*ëÌëß#Ð9’ð¨Âª`¨.î¯ ”ëvX‹û*+@k+@k‰Ù@ÑÝTæg™Ç@±Ûž{{Ô=Ëœ¹'¾3O g"h"­É…Y™Eárw#û¾<îêuDM¡Kì̹wGÝ¢‚‘Öd—+Üëæa­"âaµ~ß¼UV-‘Ý=må÷ªEဋ2XZ ì 4+·Ÿ½sAäU™Buöyçš‚e.š‰žyÞ‡ùÝX'·´]Ý´ÜÂz[™ý°FmŽÝ³È«*}èà.ÁЪE2#rßcÙÙ£ÙëÿCehÍ`h­ Š9s^ƨ5¹}Zömi½ïžeæ»dîO.àZ9oe޾ȵb½Ê”+×={_wWW•Ä…>\Å“ƒ¡nóƒ²áÑ»o2• 5ƒ µD T¥ªØ??*çÔ²ÞŸkvÄh‘ºÙÕ×-ø–íyä^DÎ\fe—\5Ó'fÕúp'× †®e—aÝwœÊ КÁ ÐÚ$Š„9+þŠ]ÿÕ×- VTμ=KUXsæBdÝvç©š‡•]€®†ˆ{»B0t‡eâbg7b°´öëýÿ>r™¯Èqu»áDf…Ô¼&Ö¯ùûúŠ1£;¶žSUxtd¬+_Öìò‹Ä2ÁÙ‘Ej¡OsnÌÊ'TV€Ö V€Ö[®f‡¡­c7¹^·Ð<Ò©*`f£«Ì<š#åæåv›ªZöoÝpÝþ:pgCÇÍÊ.Ý6E~!³€‹2XZ+ˆêž¯^µ'Bf>̱áH]fnüÛSþêg;6êÕ…>ûZ¤²´f°´vÚÞ@[U¥¤l@p晜kS·gÍšöõsö¬°í™»—ÿŸóÞ¸«îï°cÝ#Z·ïÏVn1R1pa+@k¿>?ÅJ™`(&E R¹}¶gÚ†k£}æíÉ•ÕrsˆV–A»‡‘¿Î‘³“Vöô¼kÓÉqó9¯à.; e~/Æ{ÒE¾·fñù÷÷ëkÞßS• 5ƒ µé¢pó²ôºÒߺùAUËÄ­[J.Rf¬Zš,¶0Z¤_uÇÝÑ]èƒOÜ#<ª †êöÍ«¸Öø×sþ`C¤=f7b°´VŽ©iܱXÏ{^·تrÁPÍþ4Ÿw58Ò£¢#ƒ¡ìpãvÿyæù·]l ¸O¤PYZ3XZ›. wܲl15ËsEľ™÷=Òƺðhÿµã÷£âê£ö\±Ä›!ÐœªþÙb¼Îë‰E<³so—€Ûzÿ§²´f°´6 ´*x9rëªYE±ÅÜ"=Ÿ¹ê®FÄÚ¹ús ±"è¦Û÷Q6ÊÏýêEþ-w¦#[øMehÍ`hm:(bÝ쟪™GUe´Ü݉„G™…Ùr±K.ôñ×ÒmQn¸ªÞw{haïýPYZ3XZ+‰jTíųnÇœí¿åJd‘£ê Ë÷œÐçÙÏ]{ÿ”w/Ÿ[¹„éº6¯zHáëëõ»üë™»kŸ…`*+@k+@k“hÝÓË‘°fñd“¹Ø"uóg¥³­ÉD`1O }îi<½¯U÷çŸ ö:2ŠýÂæfíDæþ¼^?öèEæ¨Ï©¬­¬­MöÚ|¶"ÁP¤ØUõšñõç¯Yw­Ìâ}AehÍ`h­`6PDUÑ,·§O¬¿*ô©Ûå'+t›ûs—hä.ý ¯^Ÿ\öZ÷÷«›[ÓæØ¢uÙWýCehÍ`hm2hÝ3ÏÙ…n"sˆj–€c¯»D#wé×fVѵõŸ1TÕæÜ£{RYZ3XZÛ½(\]i+³‡Nì<‘%àr½È·¨æ<«toßÓúÁ‰Šž(»¤êqÁPvÙºwTV€Ö V€Ö¦1P¦˜SW&ŠD3Û½ ª–‰Ë9³èZ5§é.ÑÈ]úy¢¢.ΞiÑVÕ/þü(³€ 3XZÛ=(R8Š1ëšù&ב}r;dâ­#Œ»„%wé­_@ÁÙùA¹GAêÑTV€Ö V€Ö~Î_RSŒ„>U¥Èª§ß3…«È|œªxëØ«ws—~À5†Ž°î.×C5­þÞF• 5ƒ µÄl œÈÒm‘ç‡#ËÄeJR¹½ê\í®¡Ï5[ wfq9þfþ‹{ðã• 5ƒ µI ´r©™ŒXð YŽÛ,{ÝÜŸºkëš­^Y\îSëî๿汅ãÞµGehÍ`hm÷l l3zÕöÜïÿ;­ŒX˜”™CÔ-\;Ösz †ž)³£Ð{*+@k+@kK…ËEE¹9<¹ð(6÷'Ò¢y ¹‘¾®Øt{½+´8Ž`ˆ • 5ƒ µŸ³ÄBŒ×cV5·nÖLýÎ{Î<êÙëQý÷ý9ûúÀ= †Þ¹Â/l®Õﮯ²´f°´¶d6Ъ¨få’t__ó™>uϱ_qߟ³¯<…C¼RYZ3XZ[U‰¹¨ht­Ü"l5K·åÚ\GÄt&z:• 5ƒ µÖ1PD.*½f¾ËOÕÜŸ³|úW'ªû<‡Ê КÁ ÐÚåc ˆ\¹0R‹:dž>]JvÇ Ý™Ê ÐšÁ \ÅãQrÅÅaé÷%tEXtcreate-date2010-04-02T02:00:27+02:00:](¸%tEXtmodify-date2010-04-02T02:00:27+02:00eì^ŒIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal5.png0000644000175000001440000001277111725741457020744 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²Ä4IDATxÚíÝQrÛ:Ðd*KÒþWàEÍÇTÍ{1i£ÙnMꜿ8”Ìêk¿~ÿ÷{w âãããcwþÝ›Ý=˜ãõz½v÷îø Ëõøì7néøŠÈ'7÷zlùØNÝ·ÆwãøOÕAfð°´Ö:úø˜Uü½2ïcríT´êèw°.º_úÌûÜÜÍ>aUcˆ}N×C‘P*]E£³Š€›ò°´ögw¾³7¬™BÍëá;CO(@‹xè런n£Ç.g¯ˆÅ.£‘ž½çó«"ïúùw–Ê Ðš‡ µÖ1Pļ(äØμ`h¥§Î<ºÿ•ùõKÄC_Ïø„=Cn)¹q0t|Md6Ð땹7®U*+@kV€ÖnEšnÆÊ€©ÿÙˆbwæ˜y%"çìn÷5žúyªqϳ3Žfbßã`(:gèz¿§²´æahíö1ÐÑ3‚¡ˆHxT9u;cýeÏ×Ê"ôÊc¹{f¸gdÑÉûœÁÜ'0²OÕ1|ßC• 5+@k­c þñÍφ}ˆ~îOͱc³ŽïZ9önwáû ÜÛÙ²lÇ×|þÉqÏšO Ê К‡ µß»;pÍÊ™,ÝŽµrUG¯²wW¦ªÐ'²ËFn1·º¿ÆŒt¼$T6*‚¹ºEtk¿U#ûííáwß *+@kV€ÖnñžVÆ@UeÏØè¹]6²3{2GÏôpÍ"Qð½n¡ÏQÿhõ(Ä@ÀMyXZk½(ÌVWÀÌPcKMË‘v"ÛÊGz˜[J.{~àׯ;„>ýåf'Æfÿýô³«²´æah-0¨Wq­Woºqvþmæ_Ú×ü]}v~PfḳfŠ·‘ýDÌb¶g|×u› T󞟌Ýl à¦<¬­5žQê«á\|ïÕX,‰fjö3Ê.R—9º`ˆ¯<õÛooTÝ«ÝÑt*+@kV€ÖZ- ÷ÔR_†sñ½Õ—¯ÙçjË,ÂV Í[¨ÍRrüo?ŽTV€Ö<¬­µŠÞ…"çU»CŸ^W,r.Îfs‹Ì<Šî’éõøèUÁPäŒ1C¯Ï÷¡²´æahmc ô.åÀwgÝ¡Ï3g}~El—Ÿc»¹Ý‚j¢˜È½!*ÚÅwÝ÷î¸\*+@kV€Ö–Å@Ï,R=sTk }®:›iSµ;Ϭ–³ÇÏÍ໎½TV€Ö<¬­MŠžY2|æ¨ÖºCèÓí:—e;ëñx¹ß²;eFž½ã£W-7W×gžÆÜŸZ*+@kV€ÖJb g–¤ž9ªµîúì b"K¥Å~6>V¤ã»ÆÁÐÙ±çÍýÉì^´²ÏÀU*+@kV€Ö~_™ypÏÕZ÷ }Ö]ù³€'3Ó§&:úêU³fɬ›T·t[Íý,e«ûznèÓýîÈ-pv|ßY;‘Ý‚Î~ö÷O_¯ÜŒ¥ˆH4sin?£Læ…E¢¢>Ö~û¹¦Q*+@kV€Ö†‹Âu/=öîÝ=}v)·¯MlѳL¬ ¡ª©ËÍ뉼ïl¤™Åï²{0íÔý|­ÝßuݯÅÊþ_ ‹Â7åahíf1P§¾ÜÃî²çJ³îŽªv³×¢j9µL82÷|Dz=zMlù»ØŸŸÈ(ž ×÷~L¿ïºîçpèsöº¯þGehÍà ÐÚ…{ýÊž+u}ú‹,wEZŽD*‘@'2C§&¾ÉëŽ[齿["ºOtŒx~FehÍà ÐZë¨{¡m&eØ¿ÕÜ Ï+þ´ßÿ;»œZ.ˆ‰íò3je óÌ`è½õú]4¯7¿µTV€Ö<¬­5ŠzÚfê\jÛá ózîxM#ÏÙ¨2{蜽'²$]$ŠDN{åvXb¿yv/8¹×µÀTehÍà ÐÚ¶è¡Ï=‹o󬻪{׽f' Ø(Æ-EvÞ9›Å3tbS¤Lxtv6ª–‰ËÍðŒY„‘ãw›ƒVÎTV€Ö<¬­-Šú‡>Ý ûïì¹Oºó“ k"sˆb¡Of¬‘« T2eóÝ¥öº¸¯»'Ì<Š}·Ä¢ØLhyïßD*+@kV€Ö¦Ä@ÝŠMu…ýn#ë.V,DöT³J·kìÌ,žÜ½9zæ=ÑÝÑSÇÕkœÙO\d‰Å³Ègô¾Èœ¢{}Óª¬­yXZk´7PN¿ˆ'2§ ÿn&Ç>çÎE$¨*ãgŽ¾×sw©Y–-ÖrÍ'.²üݱ»—Öïb÷’yë~ËœÝQ¹…"3çlå嶺Ÿ• 5+@k1мÂúÞ…ÚreácÉ.×ÎÅÎϸÜ~4‘ùóŠÉ»wÉ©š‹” br¯‰‹×û#š¡n©»Ì ˜ØwoM8’ûþ‰ÝQ‘ïÞš×좲´æahí÷蟋@O }"ïÉÍ ÈµÝ§øö•ìHcmÎƼbiÕØ«B½3r}Î]‹ºq­;«Ùû§fäw4s^áñ]UGÿ,¶gVî eÚÉÎë©9VÎÙžGÿPYZó°´¶-êúÌW6 È´3o1½JôuaDÍ‚KýUnj?:Ùbû¨7çã¿+÷)xç`hï Ä‚˜ª{5óé®[íµqmŒ¸)+@kƒ(²uD·Ð'ÒJU qæH»s‹°u+¨fZ®*Ï‹]ê¥äfõ¦*NÚ;3"¢Û¾huãZwgVE*ù±fŽ•½ò™ßiU£øiK*+@kV€Ö ö:zjè³²‡ùq¬;ú,UK0Å ¬™ ælg¢\;g=úþß±’ö.<˜kóÌÅçõ¹û¹è'û=?oùÏÈñëɽ/ûeE(¦²´æahmÊl •ËëOÝŽ05K åú\÷áëv–‰ô°nq°u{|dK¬óz˜EÝü…ªÏʸݣµŸc8ÿ˜¹åõWÔ”»ç9ΊYg.£io à¶<¬­Ä@Ù¿ŠŽ˜UÜ[„-C”[`mÝ(ªú3sŠª½0jv›šú¬,/çìbsg£ò}#ï ­]®jï¶ë½ÉÎs<{O.® Ü«œ_ 1pSV€Ö&Å@u›´gZŽël¤™v«FÑ}¬ª=kfö§êoÝÇEÖ™ååÌ=¿ö“SÕöXvÖñª™t‘³Q5ögCóBŸÈ{rGŸ¹‡×ÙšÓNÕ~Xu¿+Ï_÷Õÿ¨¬­yXZ»Í,EÔütn9ªºÐ'ÓJÿ¹>óbŽÊÝ1®ü }.zŸèÈjŽ•]2ëúñs¥ì™1PäüÌÒ-*Z¹¼[Í{fܹ…=çí÷63®:¾Eá€Ûò°´ö§¢‘qá긅ýÌ¿g®ÅYËë;k¹W0»YîÖìú‰ÿÎ>g÷Ü8Î^‰,«fÔ…¼ŸçXåî¨ÜüŽŠVÖ·ý¹Ýš¹-U-gõ ³æÉïDV½æ¢âØ·Mæl\ýœ¨¬­yXZ+ˆrEÏnåÜìòAã²ÙÌ…­jʧUs£Ž¯ÉÅ.‘x¢ÛÒRÙe£2"×=ÒŸì]7ycr³íî¨×¾^"ž}2lý„U,\¹^±Hª~ S• 5+@k1PnîÆ™usbå°½±Y˲µRjDO«›Qu<_³îºˆªH%z´šQÔlŸ[üj÷Òmãs1îñêã¯íQMïØ›yûÄåz[Pñøšª%3¿gê?Ë*+@kV€ÖJ…Ë,k7·œZM*vìš¹-±9³Fš¥"ÁPæŒå®rìèUª©›µÙzv¯ ALVdQÊšÀtwT”ëÑT3»Œ^¤šèVž£Èþ\‘}Ðrãºz%TV€Ö<¬­•Ä@cÙÒh$NZ¹W¦‡±%ò2óqêæFÕÌ<Šüýy´GãcÕ´œUSäÌÎáÉÌÇ™9ßdV±n—™}®2o' l2ïZ\å–AËÝuU{œeçÞdf ÅÆqÖÇë£øùyVYZó°´öûûÿ>ûKàîÅ¿º™G5ÇÏý%ynSðìÑs£ˆô/7ŠqÎt‹fÍ79y¯åÏÆ•‹®"}®yÕ¼¸$§î³“±r¯«µª¥¬YPñìH+ÏtÝgn´htT_¿JehÍà ÐÚ²è¬íUƒ\» PM ´7,ɆG±–>¿bÝžP»Í[ˆ,S¦ÎŸùqÉ7ÒRMc}μjæ<šª(­f\ó¾ÙvÇI™åI#{œU-ƒv~+ÎÐÙ¾lÙ‘æ"žÈrsWÆ®²´æahmc ±n±©œyÎʘ#VªÝ»—ÊCŸˆš³ZwÖ\X0Tq¤Øªû:™0XdCÌâ{úËÎXÌ´ÀFWðì³¢¢Hìk'{G‰€›ò°´v9: ý}6"?«)…®-º®[~êŽV.–8/ªZB0¦fîOæH»Ãˆˆ™=¬ ys3 Wžùª™tù(ÿú·2š)ûÛI Ü”‡ µ?»;pÕ¬¢tUa4[ÜÎü}~¤È)æz˜9±×Ü1ÊÍž˜9úÏ-¿^¹`h¼pÓÇG¦×ÇþT-•;‘‘^ïMVìüÍ‹«¾W»‚kŢ̂ŠÝ}·üt©Q• 5+@k·› ”SSTÌ–8WîŠ2« Úÿõ/%WíÉ’;Vv¯™ª…µŽïØ9(;òȸªFQ³óNvO¨q"¿/"ãÊõ9{¬š{¡nñÏì¦û¹vÿª¬­yXZ+ˆŽîY¢š·÷MU©xÞ¶ò9ë–A›gooæÅ@uŸÁÜÑ>ßw5­DGšYï§s®ô9"»XYÍÙ˜¹óϬﺘªs8oT÷üý9ŸÊ К‡ 51з£ŸóžªùA»•vÆ5+=s§’³£]ý¼£gïðÌö‘V²³¥ªd¢‡|+BŸª0©N.‚¯Šg³óÉúï ²´æahM tɺ`(»(\Ý«º{f0´r¬³£Ç~6êO´ëñMnÙºªù0óvnŠÉC‘s6ž½•_0ðû#Õ‰Œ4rGU}cçñ{Æ7t5• 5+@kSb #ÁÐÕ÷dwzgO†êæ!dçA|~EÕÜl¹ûú’xófeÌÛ±k팪ñž>3—r›uV«>óúsv¬\;Ïýú5• 5+@kvwàÅŠß‘Rdfƒøçš7w£÷±ÏžÙU'v×UÅU3ÞrEÍç+6¿£ª‡±£_?~ä]UWôõªúÖÊ}ÂæͲ̆G¹Àöýþ(@ehÍà ÐÚ¢Ù@GÏ ,f•ÿwÎu9sÏ+¸î,掔- gŽž_´*ó®ª9p¹×ç÷o<ªÊ¹ó–Šõ2è\ïËÙècKÿUÝ Ñh&×ÇL<˯_*+@sV€Ö¶Å@GÏ-~½K0”³ûº÷ †ºÅ@u=ÿsÇÊö9àdÚÎF*¹eêê'»þšèµÇ@5ß ¹Xó«~çzéÏSþŒÊ К‡ 51킆;šyoôº:ób º]‡ªŽul'"D[ óöý‰µ“ÿÙuŸûXµïOäNÈ^åyKîüÍs~g>õ7áϨ¬­yXZk=·Ö+z¸£;CUÑL¿–³»ØŒ_SÕŸë¯ÈÏ!:¾§f©½³Æz=6†²Çš9Åî±Ü»žû›çÎTV€Ö<¬­‰¶ØΆ®«9gUs%Îƾnœ5ÑH>ÈÅGÇ£ggU,–Yrçúº™³T"‘SÅ5®]øï©¿‹îCehÍà ÐZëèè¹Å8ÁP½º»e^ yMͬ™ìùÉ,3ëêä ûùà#³PÕ^Ek¿¯_û³³š;vÍ2ƒ• í=õwQW*+@kV€ÖÄ@Mt:ËÝzSgo0”Ÿÿò¹š]lªOË"0eËö£À"·[PÕÎDgczêw[nnÔ8¤;ŠžÁgžççSYZó°´v³èè©ÅÓnQL¯ÞÔÉÞ?51ÐÚ}mr»©dšè,ŒësIÆcºò3ú‡G5÷w¡²´æahíÏîp¹eǨðùÜgƒ«Èò\ãçõÊ]ûØ"lW[ÉîCù™Y£×Dæ"=wÖÓ¨¬­yXZ»} )BµÌ¬™œÜN@Ç×d—RËî¯r<s– ‹…YÇŸùžè"¶OSMËÜ—Ê Ðš‡ µÛÇ@ìòŒùAÝbÄH 3ïÜÇÚÿì¬ü™û“»ã3T+°F6ètUŸLehÍà ÐÚí÷ŠxJyð~Wâ~=®Û-(7öu;åÇ^³;Pä›%äGFWç ǹ¦ïDehÍà КÙ@0ElÏQ&Nª‹®róq>¿/;wcü¾Èpç­ŒÛî63 ø‡Ê К‡ 51=cḽcÍ<¹}vjö<ªj'òªØ±ÎžQtu¾`hg• 5+@ko±(ÜÑ=KŠO¸ýÇPwoÄf©¬’]¤.oEFYZ.{¯/Q÷Uîø=O¤²´æahÍl X$…䌃ñ{¢ ¥ÍzMvä™ÅÝ>Ï:QYZó°´&b©wZ&.#2û.eÎtî꜅Y™ù@‘PìØrl~PÕÌ,ûÁ*+@kV€ÖÞtQ¸£;sŸy%öŽjæuÏŒ¬êlÄÆU³¼[ö]±ŸúxÌüÝÎñ{,ÝûOÀ©¬­yXZ3(6k%²tÛ±íÌÎ;ç}<¶ü÷Ï"-Ç|ËÅb{wsþ¡²´æahM t#Tc¿yË¢Efž35 ÎÛú@*+@kV€ÖÄ@¼‘nKÀõpN»uóƒ²Çš5®³¶rmÇf5Õ-ŠÄ©¬­yX€»ø/ 0n?ô4%tEXtcreate-date2009-11-22T00:04:03+01:00Mü?&%tEXtmodify-date2009-11-22T00:04:03+01:00MIIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/cbterm_exit.png0000644000175000001440000000576611725741457021556 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ 1IDATxÚíÝÑqÛ:ÐøN*q ªÅEºÕàVvî΄ބ`Ä𜧌CA?HŠøRÔLóò½—=ŸÏçó9»x`%ÇãñxÔ¾êŸÙe|EX¢ +@´ŸãšþÞu)`EãîgíVΊr`?Çqÿøï¾ãþÀ™övëÇ]QV®T²z΢SíªíÕNI›\︶ˬzjß·dù–ÏiZWé×h¿zÿúú÷^Ö.?ºæ£YõPbá°2â`ÚÒNÉÚG!_Ú6J«§ÖˆÏéˆÚvêW²„@p¬á,¸fá°RkþG¤^¯£ã2gmÖž Ÿµ9k€i©§vœ½¶e=÷ªgE³†‹’íµb¿zé51º–6G¬ŸÚzjSBà»ÞÂJ‰„éÜÑÓï-Ë”‚+ƒK¯zz Z£×óNjCÞ*fõ«e†àl¦álPl\{ÕY²F ê½.{µ´Sò÷^ë3‡°òIÚtn¯\I+í¶©vZ‡#‚é®—BúuåÀ3ë2ŠK6¿[+p´¸QXI8 ÔJ®3­¶´zø]¯m”v™Ì¾7N¯ˆ4µpX©bm¹W ¶´~ñµ³õœðMœ„zZfS’÷ç–õœÜ¯µƒh¯KgíŒÔ¯¬§dýìÂÆéü«ËãûI»q¸EIøÞ³XžY€Õ­Dæºè·Ì²À~®ùÀΗ®ï`\6ðÛ@@´fðaˆ&¬Ñ:ß³â¦Z ï}«fV€h MX¢ +@´ ¿ ôþþëßooý—ïUÛQíûöj'ÍY¿Jú8z;^¹ŸÔ®“£ö„¾¤ÕŒà‡ ?9ìj¡í$H—G Uòú¹²}mVZÎø“­Ø¯+g¡F¼¶¥/½ôªmt;½¶uK›ÀL+½fv:£]e&ctK–1V[ÃÙòµïU»ÌYm#ö‡–õ¼âþ ¤™Vz «_j¹›]­^áòÊK»n `' _qÖK»Ϥnˆž5‹“¶½jëI¨má°2â&Ö³vz $#.mŒ>X§ÕsÔk{õª¹eýôÚŸG|;)yN [À/ß{ÙÙ3ÿý6«0ÈŒÓ7',<³-€Ux‚-mÊÌÊqb¨d2¨vù^µÕ¾o¯vÔþÈwí6mi€ý¹ ôŽdí =¢4-á29¤k›°²ë™ú®ý*±k¿¨3=¬ôšuØéL=yâÎá €9¦‡•^÷7ìt©%™ ÀÕ¦‡•-3ä+Ù¾i7Dïtc5@Š¥Ãʈ›XÏÚéŒJÚ©í×*á®ý`¬)a¥v*Y¾×À¶k;i5¤­Ÿ´vøÅCá€h‹…•ÿ´üXÅb÷¬¼¼¼¼¼üïǤåï@²ÅŠ€w3ý·ÎüùFE3+p7ÓgVJžŸñkîfzX©cfîfzX©{⧀w3=¬Ô=DËÌ ÜÍô°RG@€»Yâqû¿˜Y€»Ylfåè,pÔþH¶Øãö€»V€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h íçì꼿ϮÖ÷ö6»‚fV€h MX¢-vÏÊ™××çóùœ]dùøx<ÙU´2³DÛdfå̉¾¶÷3+@4aˆ&¬Ñ„ Úæ7Ø–h¹)éÊxuÖ¾oËkGÔ_ÂÍÑœ)Ù—ì?°aå“ä\rm#ú’°ÈQ»?Ø`'ÂJ7#¦ggµí·Ô™æ¬þëjD;gm¦õ«ä}¯Ü—VÜW^„•OZîµOÉÁ·dЪ}mÂAD8(t[ÖɈvFôkÄ:±oP0‚°òI¯\ÚA<͈õ<ú½®Ô«_{?$ê÷>®¸­ÂÊÉgŸ%uR®eök„3=gýMV0‚°òÉèK-µË÷ºï$90ÍR2V™íH O£ÙŸá^¾÷²çóÏÁÇcìÁâýýÏo¹ zñ•Z`–Úqðíml=}s‚™èFÁl€h MX¢ +@4aˆ&¬Ñ„ š°DV€h Íãöè?¤üËÏM0Ž™6ôïAóëCgÉ2£Û$“ýÒ˜YaÇCü¬ãû&Ô³¢Yë-a{ÙàŒ°ÂÂ’è-Oɹõ•íŒ¶z@QÂþ9„nªd0¸rmV<#_¥Î ë¿×þ™„ˆlŽZîZ8ëKÉòWökײvý%„–2ŽZêq)aD£×Ãh£÷Ÿ–à’¼Þàz ›H.½JËŒHí 8zý¬2ÐÚ ™°Â†Zij^›Vլóe ûdòœ š™rƒ!í̬ф š°DÛüžwÅÀê̬Ñ6™Yñ­Ø•™ š°DV€h‹Ý³òö6»àZfV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ýìÛÜóù|>Ÿ³;ìÃÌ ¼|ýßïï³ ¤Æë«ïb­äñ˜]uŸ°uØVky<¾:&vþêr‰××ï½ùããñ¸ê¬³ö}[^›æX}É–«]>­þ½”ìy»®“cßsûX»O®}4ÙMɶkù ÚÖ¿L+GÉyrm³œ üÖT’ÚAzAýJ>G>w³?#µAälyŸÁ¿›VZÔÎ^”,6ëSÛ~KÉΔµÐÚƒrm;#ÎV÷•¹òì°äÀÝRϮۨNËg§W;µÇ„}CØ•}ýY.içì3Þ:{49¬”\:à? µAáìµ%ZÞ÷z]N*i§60­xyë\Ë™ßçÿ}™Úå[–éyàË”ö »=ÓÓÒN¯e~ü˜Vz ä‚Âõ’ì3=k2F×Ó«ýõ¶i¯ÐüÙd¤^Û½W;%ûí"3+½ôšY™U'síupqý{§õ³†Ñ—Y{9«­vftߣᕺ¥ý^3²£Løêr¯o]yÏÊY µýPF|uyÄå’Ñ×ËgµSküáyôõé’vF_NjéW­þ_]qoGÚg§¥¿-Ƨ ÷ˆÌjç¬Í¯¿ºì9+[ñœ•µìz.¹/ÏYY‰mµ–¯ÃŠ_]€UüÑ;Üx-Nõ%tEXtcreate-date2010-04-02T01:43:21+02:00¿©¹Í%tEXtmodify-date2010-04-02T01:43:21+02:00àÏùIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal1.png0000644000175000001440000001013411725741457020727 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²Ä—IDATxÚíÝÝu¹PÉG‘L ŒEAn,Š±øÁgíõHÔ`€îB÷½gú¿…S øñø¯ŸgïdüùóçÏÙûÀ:_ýÛ¿ÎÞ9€ï¬¥ý:{ÞõçÏs@ðññ])éoÎÈl}ì›gmö¢²”f°”¶Y ´.@™'}ϬmÀõ¨¬¥¬¥mŸdVrdÍ‘Sæ{ª*<Öá‰ä>TV€Ò V€Ò6‹ª9rJºsÃ#*ÍÜÓ‘×Ý;ƒs©¬¥¬¥‰^°c¤2«ªþ‘îH|Ã.fÝ«Þ"ŒQYJ3XJ}éÈÐçÈmé*ZA cOŠ7 *+@i+@i›Å@™N–±Àbì›3ÎKv\;é\¨Fx„Ê PšÁ PÚϳw2FÂ,«Ý'fEÌÕÜõzVðÝÓ¤²”f°”&b Ïç+–Ÿ9Nýø毿V}óïßg×5£Ú÷ξÄ@À¶ V€Ò:1кR$ÿôû÷J£³8äÕt¢Ì{õñˆ“[Æïy>öø&‰¿3FxôªÝîÊ Ä@À¶ V€ÒÄ@'¸sès×ãfÄU#ž(÷Nx>¹uÐFÞ6™ðèÜ`(íO lË`(í×Ù;p}BˆvŒx¢sƒòÜùë‡GÑççóO2}FçCñŽª ŽÛÿ™XEe(Í`(M7Ðd÷ }îq”Œ¸FÄÍzfÞ­€àù¬ÆýiM%7ÒC” Pr“ÔÍ9cëÔŠ¢+>[™n `S+@iºHÙ­PÊ*Wx¢#CðuÏW<ŠÏÏþÄq³:k2çPÑ«îÙC¤²”f°”&zËU{®xLô‰xVˆo‰Ìó•éý‰JüæVÈÒߟ±» 3q\”9®#]#j×Ù{ù• 4ƒ 41ÐíÔ.g²Ê}"žh]è3kz·LÐÐ }ú]<-Ï¿WŠQQ«‡¨ÿ©1Õzˆv †¢Ý{ˆTV€Ò V€Ò¬ ô‚{vÛ_æ¸OèsnÄ…>ñZåŠös®rn¡ø©ç­}j#£¢ƒ¡èìw†µ€m¬¥‰¾$ô¡&Ï«Ö=ËcӻŮ™Žœ;1Z”¹1j̶® †F¶&6e°”&úRý¨öÞ1BÄó½#ŸÊ±ídÖô‰qIœr­Z åÖ*š åögÕ³3ëZ†úß-6e°”&úRµ¨Ò¾0Ç5BŸ#§eí¾9óldŽbÝ„o+Íéi:2*jm½¿­u½Z‚¡ço›2XJûuöT!ôa®#ž#cßÌ×êïè÷ÑÄß+õ·ö9s\ýßÉ­ÏϹwÔHè“Y©u~úG: ÄoÎìO¼WëOâw¤\¬ù.• 4ƒ 41¼¬~ÄsnßX¨:Ö´Ö£yþÏϸ­‘xbž‘0âl#ÁG®Ë)^Á~ìÒšF¯ÿ©xÝ[1â³Çãù'ñŽÊL‘×>½=ÜÑŠ`He(Í`(í¦“Âéýá+Õ¦«oVèeŠä{N§Æûúñ_&šÉ„>üø‘[ (Ó14ËØúAWõjÊ PšÁ PÚ-b V87¾ÉÈD<­)¡æüí}µõ§2fío¦Ó'þ$s-D<äeîÃL‘[£jdµ òTV€Ò V€ÒÄ@“íVøÿñc‡@'šÕůWî››¦)suŽœ$jìnÉMÔ¶ß}È^2Ý7­ˆçùw2ÁPœ®p–{N§²”f°”&º¸ûD<ÑX?N.°èO6ÕúæUÇ^oª+«ó°‹ç;3sŸ¶¢¢þ[BÐ;TV€Ò V€Ò.U[e;G<+õ'’z<žÿò¬ï`l3]NëÊÔ¹'®¿­;¯“Be™þ Ìï¬s‡þ • 4ƒ ´ Æ@×°cÄúdˆueÑÑɦ2W9SÎ}þžYRµÖë‰û×Ú›½QPAë^Ž=DW‹]ªQYJ3XJ•°cèsn_ϺÐgÝg£Wy¬Cgä›ã§2ýA­7)ûʼ[úñ¨)àæRYJ3XJ@èóªY¡O<ó­Ð§ý¹ÿßÖX_Ï~Zg£?ݹkÁ{ÆžwÝ@k©¬¥¬¥‰^0VäÛ1 XúŒ­Ü”™v¬õ×øýŸd:}îúä(€swç®”q½Õ‚TV€Ò V€ÒÄ@·“‰xÆš1c]<™èáñÈ|Oÿ›ïúôå ÎÎ!»ÒûSÊ PšÁ Pšh²Ldpäk1Ð9rz®YýS™©Û2CúzŽá¬r%Vª@e(Í`(M ´ÜXè3k5œ–9áH&šÉ”E3S·=ý³×£iyŸ”sá.2oïƒ TV€Ò V€ÒÄ@“eŠŠ1°›„-|dö07åQÜçþ¶2S«èš™ºíÙ‘]N@}™µÀ~ÿŽ±øÙûM‹Ê PšÁ Pšh²Fd& Š¿“ †2=2­=<²¨ÿ=1ÌûûüÖ9|õÜ×Ñzôß6Ô¤²”f°”&Z® õ?• >?3ÛQQfÊ£~À”ë9c­µúýJ­Pl,ðêp ™¨(³6«©¬¥¬¥ýüþŸwüKé± Ö2f…çÊ\Óuç0Êl'Öô¿9w-Ä@ïë/ƒ}ôß?™(ÿÈŽÅøTVóý[Be(Í`(M7Ðíd ™æèÖGþ®~,VˆÝR™µBF{ˆî+žŸ±U« ¦L€â~_Me(Í`(M ô‚XèËümõŽ!ÂØDvcÓÇGj»±®¢ÌŠBñS;^Óyª÷À\­'{¤?ñHõ{^¥²”f°”fR¸·ÌÚÎŽ!¹÷Fæ*]Øɒ麪VÿTæs÷=cìolÂÉ矜;)ÜŽ1Iာ¥‰Þ²n;;CÑ‘÷Ϭ`¨Õ1ôü;ÇH7ÐhÑH¤’‹ož¿9®[GÚ?«×¸{áo™gpdµ 1Ð?‰€¬¥™®¨ÜjÕ‹íë&—‹Z%Ö‘ctëýcÏL.]áߌõãÄÞ¨x¤™)ûZg츒8¼£tö'¥¬ýnÞÊ PšÁ PÚ»¢kô©E³îº±þ ±u@fM56 ÛèÔms´¶nR8®,×Ù×KÌzNwìý‰t3XJÓ tq;v­ßɬòÓÿTf ¸V÷ͳÑ2mÿêÄ­9]aëze¦Ìªu×qW#}=™Î¾ØIÇ;TV€Ò V€Òt-·ÿßh·U ¢ÌÝ›‰xZùö±­1ë^ͬ¯­¸y+×ùŠÛšÓ!˜Ùú5è6f°”¦ˆA³J‘ëJý¹®¢~`Ñú«þ‘®¢#EŸcû·“éŒÈôÍ*ÚsO™û0sïÌ }x‡Ê PšÁ PÚ-º"ýA»;²øÕ§ Z÷\´&Úê‡>qrk9EJô|¥?]á¹½?í=Þÿ‘Ü*lÿ£²”f°”¦ˆ-BÇ£±âíŽáQ®”=§Ï¨UZÁPìÝ°Æ«Õ Y®ú¼Oe(Í`(M t‚VIüì}º‡LAuVŸÑUãÍÌê!ÊC­í˜&îžú`¦¿,}¶þ}]ßÜ5CŸ÷ŸH• 4ƒ ´›Æ@ëJÙcCuE³¦:2N{šÆîù¸¶K\-(s6Z{¸.<ºoS.Ú›r-s×õcÄÏÏ‘£h­ölֳ̨¬¥¬¥Ý4‚wœeœÛ‹46¹\«øÿü“ú´ òÏ¿“9™cŸWØ[óhÕ• kâ>·â¿‘coésÜç#;ÅZÁâÈ÷èýÉSYJ3XJûùý?ן¢jsûƒ¢JûÂט¾lÝ[">ƒ™§àܳšé<:7ô™gN0” U×C[£×œc¯oÞÕùîžWYJ3XJ}©Z ÕÞ;F\#Ê{·ùTŽm'^Á±ž¦úSŠe:bŽŒx2=hc„>ÿ´òý$¶e°”&úRý(Úm!*zÕºgy´;iÖkÇÉ\‹Ì:M™;w] ­;ÏBŸ‘­‰€M¬¥‰^ b¢¢÷=ï­IÆ2×"n«Íš8.Ó¯”™*mìSë¥ }æl_ lÊ`(M ôÁ»¸O0e‚¡"d®×ا2ç'W®_©ÿ©YÎí–ú¬Ú#1°)ƒ ´_gïGË”þö/pò,·JË5£¢Ì †21ÇÇÇó™ â>ÆIÏ¿óx´öº×é³Nµ ñ„>¨¬¥¬¥éšlÇþ Œ+#®EGö­1”™Ìíó³½Zo­LÀÏØȽ!ôyßUžHÝ@À¶ V€Òt‘‹s»J™ã>]Eëzˆ¢uÏW<ŠÌ\…}Þ·ÿ³5Be(Í`(M7ÐrWíʸëqÓw¨hÖ2÷–èOïö}?Åÿ>ÓÛVì!]-èL"žÝè¶e°”¦h¹V±t¿âä=D|å]EGv EñüµÎV2·(…Ðg…Úww-*+@i+@iºJ¸O0”áLW?*Š2ïÕ¸ÊOf-žLÏΘsCÏ=è¶e°”&*A ô*g‹wÔÖ½{:ï«}ïìK lË`(M T”`è}ΫՓֹF ÝõzV ¶e°”&Ú†`èÎ1\ƒ@g7b `[+@ib  †êp`Î=ˆ€m¬¥‰.E0´׊»èð51°-ƒ 41ÐÅ †îÀf5ñ 뉀m¬¥‰nG0Ä;Ü;uˆf¸1°-ƒ 41‚!N'¶e°”&¢A0À±Ä@À¶ V`ÿûk¥©$©%tEXtcreate-date2009-11-21T01:18:43+01:00æZcå%tEXtmodify-date2009-11-21T01:18:43+01:00¹ëÑIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/gesicht.png0000644000175000001440000000367511725741457020674 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²ÄøIDATxÚíÝËmÛ@P3pGV+ªÅ5¸µb×Äœƒ…Rüììî{Ç" ¦„Á V|{H0Õ¾Æ2Ïó|½Ö¾ŠÓ4M·[í«H÷§ö<#¬ÑÌ@,b¾IfNú¦Y¢ +@43&ž!˜Š€viV€h Í Ôƒû2 4+@4aˆfj˜Ñ‡ó†€óiV€h Í ÊÄC»LEÀ¾4+@4aˆfŠ`ô¡o†!` Í MX¢™gâ%LEÀ#š š°D3íÌè{1 ¿4+@4aˆfÚÄèg2 Á˜4+@4aˆfZÁèi C0Í MX¢™2ú@‹ CÐÍ MX¢™þ1ú@¯ CÐ:Í MX¢ :}`d†!h‹fˆ&¬Ñ„ š°DV€hCœröxÎù H¦Y¢ +@´g º£Ï4ýü|~Ö{ï__µ^þŒ|?† ‡fˆ&¬ÑÌ@+Ô­Ä÷b*â—ûù93äЬф Zó3Ñg;ÃÐÜÏÛ† Í MX¢½×¾€u<娥üþ1 Á94+@4aˆÖØi gÎá|PëÜÏ÷œ‚ÖiV€h MX¢ +@4aˆý£pýþÜår¹ó?×~wôĽúŒŸ‰ƒshV€h -zêÅqEú’×ê¡lç,îU ‘fˆ&¬Ñ‚f ~Ïþ£p>Ž Y¢ +@4aˆ&¬Ñ„ š°DV€h -èGáêšç¯¯û™¦ŸŸÏÏÚ×Uç½Ó:÷sí«ö¤Y¢ +@´j3ÐHO*|¹\.g½,ç^ÝŸ§Ávš š°D›j½p‹3Pç)œ•à—û¹3¬¥Y¢ +@43ÐÎêVë-V⯹Ýjé×kŸwoÉý|3¬¥Y¢ +@43 ¨;ú,1Î0Ävf XK³DV€hÕž ä>K®Ù0°Í MX¢ +@4aˆ&¬Ñœ¢²Ïþ¼ö¾œxfˆ&¬Ñ:œÔïÀs¾% -š š°Dëp"Y¯g^{呂%4+@4aˆ&¬Ñ„ š°DV€h MX¢ +@4aˆ&¬Ñ„ š°DV€h MX¢ +@´÷Úp†Ûmšn·û¹^çùz­}]ÀÊo -š š°D«6MÓÿÅì<›f€Þ”ßuÀZš š°Dëð4PyÒ§< à|ôjÉÙŸwh‹fˆ&¬Ñ„ š°DV€hžzóAÐ"ÏýhV€h mª}Ï÷´ ?•cœßu„´Ï²'Á4+@4aˆæ4ÐCÎAšqFCàžfˆ&¬Ñ¢O•êž*†ŽÐGÕïÞØ.ÿSéìœC³DV€h MX¢ +@4§Ê?‰0ŽüóAþîÛµø‰sΡY¢ +@´Æf RÚÏÄ-a2Ø®î0ä/¸VŸ&£Ô¢Y¢ +@´æg ’aêêã“bôš š°D3mÒGÝ [ôú)0AÍ MX¢u8• C°—^ïp£$Ӭф Ú{í 8CYðž9 íeIýn*b‹ºO\:“ÑÚ¢Y¢ +@´!N•ú8ôSј܇÷Ì@ÐÍ MX¢ :•F†–0åpÿ¬eôÖiV€h Í ôPÝŽk±ê/žóW>‚Ñú£Y¢ +@43Ð †!0úçӬф šhÃ}3ú 4+@4aˆfÚYÝa¨d*â‘´‰§dô~iV€h Í t¸´a¨d*êOþÄS2úhV€h Í ÁTÄr&`4š š°D3…ʆ–0=×â ³„ÑØ—fˆ&¬ÑÌ@ ëc*¢-&à|š š°D3uÅ0ľŒ>@Í MX¢™0 Á ´K³DV€hf 1%3ñ}Ӭф šˆS™“î™o–ЬфØ×_ùÒ¸„T³„%tEXtcreate-date2009-06-10T23:44:45+02:00¯Í¾%tEXtmodify-date2009-06-10T23:44:45+02:00ð|È7IEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/oszi1.png0000644000175000001440000000350111725741457020277 0ustar joergusers‰PNG  IHDRZòÓ›FU pHYsHHFÉk> vpAgZò8:|IDATxÚíÝ[r›JFQ’ʘÿ4¨<¤*ᓃݘú²Ö£KG…%Rçïí–`J?ž>>z½^¯§€ö­ëº^ñ¾?ŸþÅ€¶üzúøÜUS!}º£.+@0Ápà @èøj…3û5·×lߧäÚ€£¯€¾(@è¸lYÁ@-Ê)%ûÔ(¡¡ãrp´¸ÊJ(@è¸ÔRrσzÕᎧiÀÊ:.}î!8zF¸›r„ŽËÁÞž€’×}Ï~Êœ¥¡ãr°uÅÊ^-`NÊ @0Ápà @0Ápà @0Áp0¹?Ožüú™–ÌÃp„AžÊÈÿl{Àö “%?ßòtJ€¹(@Ps´líý\Q˜‹rå SGWógVùŠÀ\” ()Ù7p'E`LÊ”ƒÆµV J”…^~€)@0Áp{7ÒßæÞ±€g(@Px„ŠÐ.åÊSÚ¢ÁpÃì9 )ö8çy§á›åàõúúšÚu½vê,9†’cÛ¾OÉ1}=гÙVÒ*Ë¢o”ƒ–WØVð\Ã*jN¾ë¿»Ïd.Ê”ƒ–Wç-ìzfeü¹½Š°÷ú¦¡ò}ZÞgà*Îñ÷×ñø¿§¤"Ð7åÊÁ™ùÞ^;Wö%÷<¨WÎÜv¨ð‡½cR€Pá‰gVÒ{«ó;á^GïÔ¥ô\§ä©%¯çyÊ~”¿´Ö³ öÞóÌêÿŠûÛ±•Üu±µï}„Ú¡A9€¨uù yj_BÉ‚G8'• (@³FøÛ-×;ú4È’÷™ýÜS€ ÀÍì?øœÏ„ZŽž?ν” (ð ÚáßÝ?Ê”hÄÌa¶ßZ§A9n3ûµãÐ åÊ4h¤ý½?ÌH9‚rs¿wànÊ”èÈѧÏÝYZ8 åÊ àꢰwÅ+`Lʔؙ¢ À¼” (0¡’¢°÷µÆ§A9þR€eQ€7† €`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚ᆠ€`8‚á¿ž>€:^¯×ë«×¬ëº~õßî½æÌë /Ê:.Vüpå—ƒ%{€-å–ƒ½½*”P€0H98s%Â^](ùù¹#€)@¤ôsß‚£wd€»)@踽¡dÍ~Í>è‰r„ŽËÁÖ+{µ€9)@0Ápà @0Ápà @ä‰ãò„Fî¦,ËoÇF·r´¢ªë%tEXtcreate-date2009-06-10T23:28:40+02:00|»i%tEXtmodify-date2009-06-10T23:28:40+02:00PÍÍ]IEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/cbterm_dialog.png0000644000175000001440000000505511725741457022033 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ hIDATxÚíÝ[rÜ(P;••x ½–Y¤×ÒkðVf~¦ÊÊdä€qAç|¥5 zqjéå€i^¿÷±çóù|>gWXÉãñx<µŸú1»Ú_V€h í縢¿7/¬hÜý¬ÃÊY@qC.ìçØïÿÝ·ß8²" ÀÞŽ}ý¸•aåJ%«ç,:Õ®Ú^å””ÉõŽÛ1a»ÌªOí÷–,ßrœ¦µw•vöññÙú··?·²vùÑu>šUJ,VFœL[Ê)9A;ò¥m£´úÔqœŽ¨ÛNíJ–Žu8 .¤Y8¬ÔšˆÔë5bt\æ¬ÌÚ«á³2gu0-õ©]'gŸmYϽ곢YÝEÉöZ±]½ô]NK™#ÖOm}jSBà»ÞÂJ‰„áÜÑÃï-Ë”‚+ƒK¯úôê´F¯çÔ†¼UÌjWËÁÙHÃY§ØÒ¹öªgÉzÑ©÷šöj)§äï½Ögaåiù½Np%õ\i·MµÓ:Lw IhוϬiS6¿[+p´¸QXI8¡ÔJ®gZÝÒêÃïzm£´i2ûÞ8½F Ò¸o¦ÖÂa¥vˆµå^ÚrÒÚÅ×ÎÖsÂ/qêÓ2š’¼?·¬çävµ¨íD{Maœ•3¢S¿²>%ëg§6Nç·.{ ì'íÆá%à{ÏbYxdV·J™ë¢we€ý\óÀÎÓ@×7H0.x7íÇì |EX¢ +@´Î÷¬¸©è{ߪ‘ š°DV€h m»Þß?ÿý×_ý—ïU·£ÚïíUNš³v•´qôv¼r?©]'G;í mI«0‚þâx²«í„F”“ 9\%tTÉëçÊ6ôµIXi¹âO¶b»®…ñÙ–¶ôÒ«n£Ëéµ­[Êî`rXé5ê°Óí*#£ÛX²Ìˆ‘°Ú:œ-_û]µËœÕmÄþвžWÜ?4“ÃJ¯`õ©–»ÙµÓê.¯œ‚Üu[;YxhÄU/íV¼’N¸!zÖ(NÚöª­OBÑ+#nb=+§WG2bjcôÉ:­>G½¶W¯:·¬Ÿ^ûóˆ_'%ïÏia áõ{;{æ¿w± À8}sÂÂ#+ÐB@X…'ØѦŒ¬†Jƒj—ïU·£ÚïíUN‚Ú—|×nÓ–rØŸi ÿ8vµôˆrÒ´„Ëä @®mÂÊ®W껶«Ä®í Îô°ÒkÔa§+õäˆ;‡'æ˜VzÝß°ÓTK2A€«M+-ZF ÈW²}ÓnˆÞéÆj€K‡•7±ž•Ó+•”SÛ®U:Â]ÛÀXSÂJm'T²|¯Žm×rÒê¶~ÒÊà“‡ÂÑ +´üXÅb÷¬¼¾¾¾¾þûòÅciù;l±°" ÀÝL7Йÿ¿QÑÈ ÜÍô‘•’çg|.# ÀÝL+uŒ¬ÀÝL+uOüPàn¦‡•º‡hY€»™Vê(p7KŸÏçsv£€}Y€ƒ×¯ÿûý}v©ñöæ·X+y­þ{)Ùóv]'Ƕ綱vŸ\ûl²›’m×r ÚÖŸ&„•£äŽ<¹n³œuüÖT’ÚNzNýJŽ#ÇÝlÇc¤6ˆœ-ïü³Éa¥EíèEÉòg£>µå·Ô3ÙÙ‰²öZ{R®-gÄÕê¾£2W^–œ¸[ê³ë6ªÓrìô*§öœ°o»²-£å’rÎŽñÖÑ£Éa¥dJ謃?þý,Ô…³Ï–hùÞ;è5TRNm`Zqzë\˕߯-þó2µË·,ÓóÄ—)!ìv5z¤§¥œ^˼¼L+½:rAázÉöˆ‘ž5£ëÓ«üõ¶i¯Ð|l2R¯íÞ«œ’ýv‘‘•^z¬Ìª'síur1ÿ½ÓúYÃèiÖ^ÎêV;2ºïÙðÊÝR~¯ÙQ&üt¹×¯®¼g嬵íPFütyÄtÉèùòYåÔz=?]RÎè餖vÕêÿÓå÷v¤;-ím1¾;M¸GdV9ge~?œ}ýÓeÏYي第e×kÉ}yÎÊJl«µ|V¼uVñíýÏó¤g!†%tEXtcreate-date2010-04-02T01:41:50+02:00îk]%tEXtmodify-date2010-04-02T01:41:50+02:00H_iIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/konvert.pl0000755000175000001440000004436711725741457020573 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # screenshot convert tool for avr-chipbasic2 # # copyright (c) 2006-2009 Joerg Wolfram (joerg@jcwolfram.de) # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 3 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # # General Public License for more details. # # # # You should have received a copy of the GNU General Public # # License along with this library; if not, write to the # # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # # Boston, MA 02111-1307, USA. # # # ################################################################################# $infile=$ARGV[0]; $ct[0]="."; $ct[1]="B"; $ct[2]="R"; $ct[3]="M"; $ct[4]="G"; $ct[5]="C"; $ct[6]="Y"; $ct[7]="W"; ############################################################################### # get pixel value from tab ############################################################################### sub get_pixel { $nb=0; if ($z =~ /^\./) {$nb=0} elsif ($z =~ /^x/) {$nb=1} $z=$'; return $nb; } ############################################################################### # get nibble data from matrix ############################################################################### sub get_nibble { $nb=0; if ($z =~ /^0/) {$nb=0} elsif ($z =~ /^1/) {$nb=1} elsif ($z =~ /^2/) {$nb=2} elsif ($z =~ /^3/) {$nb=3} elsif ($z =~ /^4/) {$nb=4} elsif ($z =~ /^5/) {$nb=5} elsif ($z =~ /^6/) {$nb=6} elsif ($z =~ /^7/) {$nb=7} elsif ($z =~ /^8/) {$nb=8} elsif ($z =~ /^9/) {$nb=9} elsif ($z =~ /^A/) {$nb=10} elsif ($z =~ /^B/) {$nb=11} elsif ($z =~ /^C/) {$nb=12} elsif ($z =~ /^D/) {$nb=13} elsif ($z =~ /^E/) {$nb=14} elsif ($z =~ /^F/) {$nb=15} $z=$'; return $nb; } ############################################################################### # get screenshot type ############################################################################### sub get_type { $nb=0; if ($z =~ /^T/) {$nb=0} elsif ($z =~ /^E/) {$nb=1} elsif ($z =~ /^G/) {$nb=2} $z=$'; return $nb; } ############################################################################### # read data from chip ############################################################################### sub get_data { open (SER, $infile); $z=; $gt=&get_type(); if ($gt==0) { for($i=0;$i<46;$i++) { $data[$i]=; } } elsif ($gt==1) { $pal[0]=&get_nibble(); $pal[0]=$pal[0]*32; if ($pal[0]<128){$pal[0]=$pal[0]+14} for($i=0;$i<19;$i++) { $data[$i]=; } } elsif ($gt==2) { $res=&get_nibble(); if ($res==1) { $pal[0]=&get_nibble(); $pal[1]=&get_nibble(); for($i=0;$i<116;$i++) { $data[$i]=; } } elsif ($res==2) { $pal[0]=&get_nibble(); $pal[1]=&get_nibble(); $pal[2]=&get_nibble(); $pal[3]=&get_nibble(); for($i=0;$i<76;$i++) { $data[$i]=; } } elsif ($res==3) { for($i=0;$i<58;$i++) { $data[$i]=; } } elsif ($res==5) { $pal[0]=&get_nibble(); $pal[1]=&get_nibble(); for($i=0;$i<64;$i++) { $data[$i]=; } } } close(SER); } ############################################################################### # convert strings to char and attribute array (normal mode) ############################################################################### sub fillarray_mode0 { for ($y=0;$y<23;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[30*$y+$x]=16*$hi+$lo; } } for ($y=0;$y<23;$y++) { $z=$data[23+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $acell[30*$y+$x]=16*$hi+$lo; } } } ############################################################################### # convert strings to char and attribute array (editor mode) ############################################################################### sub fillarray_emode { for ($y=0;$y<19;$y++) { $z=$data[$y]; for ($x=0;$x<36;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); if ($y==0) { $vcell[$x]=16*$hi+$lo; $acell[$x]=10; } if ($y==1) { $vcell[36+$x]=16*$hi+$lo; $acell[36+$x]=$pal[0]; } if ($y==2) { $vcell[36*18+$x]=16*$hi+$lo; $acell[36*18+$x]=32*2+2*7; if ($x>6) { $acell[36*18+$x]=32*6+2*0; } if ($x>13) { $acell[36*18+$x]=32*4+2*0; } if ($x>20) { $acell[36*18+$x]=32*1+2*7; } if ($x>27) { $acell[36*18+$x]=32*3+2*7; } } if ($y>2) { $vcell[36*($y-1)+$x]=16*$hi+$lo; $acell[36*($y-1)+$x]=14; } } } } ############################################################################### # convert strings to pixel array (graphics1) ############################################################################### sub fillarray_gmode1 { $bgc=$ct[$pal[0]]; $fgc=$ct[$pal[1]]; for ($y=0;$y<116;$y++) { $z=$data[$y]; for ($x=0;$x<21;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $bline=$lo+16*$hi; for ($px=0;$px<8;$px++) { $bit=$bline & 1; if ($bit==0) { $vcell[$px+8*$x+168*$y]=$bgc; } else { $vcell[$px+8*$x+168*$y]=$fgc; } $bline=$bline >> 1; } } } } ############################################################################### # convert strings to pixel array (graphics2) ############################################################################### sub fillarray_gmode2 { for ($y=0;$y<76;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $cin[0]=$lo & 3; $lo=$lo >> 2; $cin[1]=$lo & 3; $cin[2]=$hi & 3; $hi=$hi >> 2; $cin[3]=$hi & 3; $vcell[4*$x+120*$y+0]=$ct[$pal[$cin[0]]]; $vcell[4*$x+120*$y+1]=$ct[$pal[$cin[1]]]; $vcell[4*$x+120*$y+2]=$ct[$pal[$cin[2]]]; $vcell[4*$x+120*$y+3]=$ct[$pal[$cin[3]]]; } } } ############################################################################### # convert strings to pixel array (graphics3) ############################################################################### sub fillarray_gmode3 { for ($y=0;$y<58;$y++) { $z=$data[$y]; for ($x=0;$x<42;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[2*$x+84*$y+0]=$ct[$lo >> 1]; $vcell[2*$x+84*$y+1]=$ct[$hi >> 1]; } } } ############################################################################### # convert strings to pixel array (graphics5) ############################################################################### sub fillarray_gmode5 { $bgc=$ct[$pal[0]]; $fgc=$ct[$pal[1]]; for ($y=0;$y<64;$y++) { $z=$data[$y]; for ($x=0;$x<16;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $bline=$lo+16*$hi; for ($px=0;$px<8;$px++) { $bit=$bline & 1; if ($bit==0) { $vcell[$px+8*$x+128*$y]=$bgc; } else { $vcell[$px+8*$x+128*$y]=$fgc; } $bline=$bline >> 1; } } } } ############################################################################### # write xpm image (normal mode) ############################################################################### sub writexpm_mode0 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 240 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<370;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<23;$cline++) { for($pline=0;$pline<10;$pline++) { print WTAB "\"....."; for($chr=0;$chr<30;$chr++) { $vchar=$vcell[30*$cline+$chr]; $attr=$acell[30*$cline+$chr]; $vg=$attr & 14; $vg=$ct[$vg/2]; $hg=$attr & 224; $hg=$ct[$hg/32]; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[6*$pline+60*$vchar+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } print WTAB ".....\",\n"; } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<370;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 1) ############################################################################### sub writexpm_gmode1 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"346 242 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<346;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<116;$cline++) { for ($pline=0;$pline<2;$pline++) { print WTAB "\"....."; for($chr=0;$chr<168;$chr++) { $vchar=$vcell[168*$cline+$chr]; print WTAB $vchar.$vchar; } print WTAB ".....\",\n"; } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<346;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 2) ############################################################################### sub writexpm_gmode2 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 238 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<370;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<76;$cline++) { for ($pline=0;$pline<3;$pline++) { print WTAB "\"....."; for($chr=0;$chr<120;$chr++) { $vchar=$vcell[120*$cline+$chr]; print WTAB $vchar.$vchar.$vchar; } print WTAB ".....\",\n"; } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<370;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 3) ############################################################################### sub writexpm_gmode3 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"346 242 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<346;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<58;$cline++) { for ($pline=0;$pline<4;$pline++) { print WTAB "\"....."; for($chr=0;$chr<84;$chr++) { $vchar=$vcell[84*$cline+$chr]; print WTAB $vchar.$vchar; print WTAB $vchar.$vchar; } print WTAB ".....\",\n"; } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<346;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 5) ############################################################################### sub writexpm_gmode5 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"394 202 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<394;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<64;$cline++) { for ($pline=0;$pline<3;$pline++) { print WTAB "\"....."; for($chr=0;$chr<128;$chr++) { $vchar=$vcell[128*$cline+$chr]; print WTAB $vchar.$vchar.$vchar; } print WTAB ".....\",\n"; } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<394;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (editor mode) ############################################################################### sub writexpm_emode { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"442 238 8 1\",\n"; print WTAB "\". c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; #Black border (upper) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<442;$chr++) { print WTAB "."; } print WTAB "\",\n"; } for($cline=0;$cline<19;$cline++) { for($pline=0;$pline<12;$pline++) { if (($pline==0) || ($pline==11)) { print WTAB "\""; for($chr=0;$chr<442;$chr++) { print WTAB "."; } print WTAB "\",\n"; } else { print WTAB "\"....."; for($chr=0;$chr<36;$chr++) { $vchar=$vcell[36*$cline+$chr]; $attr=$acell[36*$cline+$chr]; $vg=$attr & 14; $vg=$ct[$vg/2]; $hg=$attr & 224; $hg=$ct[$hg/32]; $font=$attr & 1; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[60*$vchar+6*($pline-1)+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } print WTAB ".....\",\n"; } } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<442;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # get filename and set color array ############################################################################### $fname=$ARGV[0]; $ct[0]="."; $ct[1]="B"; $ct[2]="R"; $ct[3]="M"; $ct[4]="G"; $ct[5]="C"; $ct[6]="Y"; $ct[7]="W"; ############################################################################### # read character cells from fnt0 ############################################################################### $cline=0; $count=-1; open (RTAB, "ctab_0.dat"); while() { $z=$_; chomp($z); if ($z =~ /cell/) { $cline=0; $count++; } elsif (length($z)>4) { $charcell[6*($cline)+60*$count+0]=&get_pixel(); $charcell[6*($cline)+60*$count+1]=&get_pixel(); $charcell[6*($cline)+60*$count+2]=&get_pixel(); $charcell[6*($cline)+60*$count+3]=&get_pixel(); $charcell[6*($cline)+60*$count+4]=&get_pixel(); $charcell[6*($cline)+60*$count+5]=&get_pixel(); $cline++; } } close(RTAB); ############################################################################### # set serial port and read data from chip ############################################################################### print "AVR-ChipBASIC2 Screenshot converter V0.88\n"; &get_data(); ############################################################################### # do it ############################################################################### if ($gt==0) { &fillarray_mode0(); &writexpm_mode0(); } if ($gt==1) { &fillarray_emode(); &writexpm_emode(); } if ($gt==2) { if ($res==1) { &fillarray_gmode1(); &writexpm_gmode1(); } if ($res==2) { &fillarray_gmode2(); &writexpm_gmode2(); } if ($res==3) { &fillarray_gmode3(); &writexpm_gmode3(); } if ($res==5) { &fillarray_gmode5(); &writexpm_gmode5(); } } SOURCE_142/SOURCE_system/libmio/tools/cbterm_receive.png0000644000175000001440000000706211725741457022216 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ mIDATxÚíÝá‘ܨPk#™:– Ò±t Nå½vÕÈkk ͽâ‚ÎùµåU3 ©Å× ¡/_˜æíµ=ŸÏçó9»òÀJÇãñèýÔ×ÙÕøŒ°”&¬¥ý“WôkóRÀŠòîg +gÅ ¹°Ÿc¿üïØ~?qdE@€½ûú¼•Ä°r¥–ÝszwmT9-er½ãq¬p\fÕ§÷ï¶l?ò=­ÖÞUÚ•íû÷Ö¿¿ÿ½•½Ûg×ùhV}h±pXɸ˜Ž”ÓröU¨¯Ú1ªVŸ^ßÓŒºíÔ®Ê*‚c΂ Õ,VzÍÿŠô‹1:nsVfï¯á³2gu0#õéÝ'gŸÙÏQõYѬî¢åx­Ø®(Q#Ù匔™±zëÓ˜*¾ëÝ(¬´¨0œ›=ü>²MK ¸2¸DÕ'ªÓÊÞÏ;é y«˜Õ®‘‚³‘†³Nq¤sªgË~ÈèÔ£¦½FÊiù÷¨ýY‡°ò‹jùQ¸–z®tÚVµÓ>̦»N…ThוϬiS6¿[+pŒ¸QX©pAéU¹žÕêV­>ü.êU›&sî剨Æ}3½+½C¬#÷ ô–S­]|îl?Wx§B}FFS*ŸÏ#û¹r»Fôv¢QSgådtêWÖ§eÿìÂò¿u9oAØOµ‡G´d€×ÖbYxdV·J™ë¢we€ý\óÀài ëT— ¼(íëì |FXJV€Ò‚ïYqS-{ߪ‘ 4a(MXJV€Ò&¼èÛ·ÿþ÷ßøí£êvÔûw£Ê©æ¬]-mÌ>ŽWž'½ûäh§s B[ªÕÈàE†¿8^ìz;¡Œr*¨.*tT•÷Ï•mˆµIXùÅ_ÙŠíºr*ã³#m‰U·ìr¢ŽõH™ÀL+Q£;ý¢]e$#»-ÛdŒ„õÖálûÞ¿Õ»ÍYÝ2·‘ý¼âù T39¬Du«OµÜÍ®VT¸¼r r×cìdái Œ_½Œ[ñ—t…¢gâT;^½õ©Pg ÛÂa%ã&Ö³r¢:’Œ©ì‹uµúE¯¨:쟨ó9ãé¤Êçsµ°dx{ícgkþ{7«ÐÉä‰Í ¬À`V°J›2²rj êÝ>ªnG½7ªœ z_òÝ{LGÊ`¦þãØAövÒåT3.+‡TêÚ&¬ìúK}×vµØµ]ô™V¢Fvú¥^yâÎá €9¦‡•¨ûvšj©LàjÓÃʈ‘êk9¾ÕnˆÞéÆj€*–+7±ž•ŒZÊém×*á®í ×”°ÒÛ µlÕ±íZNµ:TÛ?ÕÊàƒEá€Ò +ÿ;ùw`‹Ý³òöööööóå‹Ç2òï@e‹…îfú»ÎüùFE#+p7ÓGVZÖÏøØF@€»™VúY€»™VúVüPàn¦‡•¾E´Œ¬ÀÝL+}¸›%–Ûÿ`dîf±‘•£³ÀÑûï»ñni€XÞú5ÛbËíw#¬¥ +@i ß³B»çÓ,Ÿy<Ü™R—‘ 4a(MXJsÏ ?™¯vå¾½Õ +·vP|±Õ¯oÇÿv}[‘°ÂO¾ÀÀNŽ×4#Ç«V¸HïÅBxúÁ/Âß÷C‹;ï+Ø°Â-‰NZÛÏ8àn„Öòk»·c«\NF'ݲ}T»*8koÔ>Ù?#£GÕÚÕòwJÚ +Lu錣.”á Â\{F»2êv&#¨œ?åd´+cö†*Á…ß +Lu‘ªvÓ\µúìÚ®¨Î¬¥œ;ΨvU;îÜ™°Âd#ÁåÊŽ$ê—h¶Œ_±Úµ« £hG#=gí…v …´t¨½÷¨©–ìrŽÎÊ QŸi×N2öO…ÑŽjá ~x{ícÏ矿V‡Ó{¶?—¨û?€ò„Ú¬ãÞRþ®ç!wööÚÇžÏ?ŸÆ‡Sw¶?7µüðÊõЕ²_lN°(Pš°”æž.’±‚mµ9õ¨G—GöOö£Å\£Ú£¼ÕêÃÝ+L½žDK9gÛDÕsdû‘r¬c±‡jǨZ}¸a…Ŭ~Ñ\±þV2mÙþÊ@–QŸŒÐ\aåb'¬0AöôÍ•.g¨0½Uy%Ó–@ÐÛy·È¨OK9½*¬\l:’X d\ŒF~UWûYmYúV2½CGX¡êÀN„¶â}+Ö¹r=«Õ­Z}` ‹iY½ôÌÈ ­-eV{ûî+™^/jeÞ]ëÃYÁv;V°8gÛkXÁ¸a(Í=+\Ä ­¼FXa‚ŒZ[>Û²}o=È&¬° O(ìJXa‚ŒGaG–9n*V˜`Ö!/2 ›§XÌ`µ<õYa1+«A¨LXá"@ȸÓ@@iFVHfìèåž4~%¬p‘¨l{ÿ–©"€Õ +Lpå*´-<º P™°ÂÂΛv"¬0ÁÈ#ÇSÔ²½G—*3 ”fd… F¦oÎFYzËéÝ€Y„& ¦îÆ4Pš‘càn„.b[^c(MXJV€Ò„ 4a(ÍÓ@·ÖûrA¸ž‘ 4#+·`=Öed(MXJV€Òܳ²w§°#+@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@iÿÄ÷|>ŸÏçìFû0²oŸÿïoßfWïïžÅZÉã1»ôy<|ÃÖáX­åñøìšüèr‹÷÷×oþþýñ¸ê¬gïßùl5ÇÚ·¹Þí«Õ/-gÞ®ûäØöºmì='×¾šì¦åØ|ëÂÊQ厼rÝf9ëøí©Jz;é5:õ;hùùÞÍvüŽô‘³í}ÿnrXÑ;zѲýÙ¨Ooù#õ¬ììBÙ{í½(÷–“ñkußQ™+¶\¸Gê³ë1ê3ò݉*§÷š°o»²-Ùßå–rξ㣣G“ÃJË”ÐYü÷³@ÐÎ>ÛbäïÞAÔtRK9½iÅé­s#¿ü~mñß·éÝ~d›È _MÂÁ¾¡aWÙ#=#åDmóåËô°Õ‘ ׫ÜagŒô¬)#dd×'ªüõŽiTh¨üÝ$SÔq*§å¼]dd%JÔÈʬz2×^÷Œùïöϲ§Y£œÕ­wdtß«á•z¤ü¨Ù,]ŽzèÊ{VÎêÐÛÞ쀒ñèrÆtIö|ù¬rzå_ž³ç§[ÊÉžNiW¯øG—3îí¨öÝiïˆüî´Â="³Ê9+óõpöù£ËÖYÙŠuVÖ²ëoÉ}Yge%ŽÕZ>+Þº «ø?ìì×çÏ%tEXtcreate-date2010-04-02T01:42:53+02:00Í1ÊÃ%tEXtmodify-date2010-04-02T01:42:53+02:00’€¼÷IEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal4.png0000644000175000001440000001212011725741457020727 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²Ä‹IDATxÚíÝQvã6ÐdN/Éû_5s2a¡X*EòÞ¿tD m §žüõðŸÝ€+ûþ~ý—¯¯÷¯ùþÞ^³mãëkÖNî^Û+Æ÷Ÿ{>ŠþFOyùý„c¿™ŸØº«êýçø[Ä™¬­Ý0úþ~-[ ªûÛ‰ˆÜ+×rÕÝJ¯˳ÿŽ—ÑçåÿȽrwÚÞù¡OÄÊ÷Ъ(ò»‘ëOì^gPYZ3YZ»| ‰TrÑLUxTͬkžhö¾[³ù·LXS·Þ#Öëýc²ºwÞùïÆèîwŠ«Ç§ŒÊ ÐšÉ ÐÚ¯³;°O$ Y·Ö¦ÛH«ZŽ9q7³÷Øf\[± ßfWm_Óes.ŽýYd7ܾ"sÕèï"ÖÇj*+@k&+@k­c #׿t‹“"ý9r•Ü[ì¯éµ kö¿·DþFcïPÝ×þœ¹ÛUe¶úÛþöŽÃÇ?¯êói¡²´f²´ÖzS¸+ž¡sdìR Ex¢ª³wÖô&òŠHP•s×÷ƒªÏœØ;æü7*¶9áýW©¬­™¬­µŽr®Ät;‡èÜ{Á;çF1ÛÞäNÚ?ªÈ:£Èé@U=~²\T”Ýf°ïy=GRYZ3YZk½)ܹb7e¢ª èÖ­ý©)Ô;wýÍëÝ#›7n[¬Óˆ¬ý™Ÿg4…Ø/çlå"Íg†ò*+@k&+@k7\ \Ókq;²ÅYôU£»½»wv­Í|Tu«;Î^×SÕö=Ïð‰­óÉÅ£v*Ö“Ž{Ø#`RYZ3YZÍNçÉnÏû·×{墢š{eZùäytw½ð¨&°ŒÅ@‘•b•}Œµ”}rý¥²4g²´&N‘YûS³ÅáO1PÝÊŒ÷¯Ê"[D¿bÄS¥WTTµ>(ÚÎþ¿žXt;µj~Ý>*+@k&+@kb à#‘Óp²¥ãl|ÖÎÊpd~¯•+}žúäe{#-­ÛT°nÆϨ¬­™¬­‰€dVÀd‹Ý™È)²á[Uà5¿&Jè³Âõ‚¡h 3û}Î9æü • 5“ µ_gwx‚yð²òT’qf×ENW9rÛ1¡Ï1Îý)Wa4ŠíïsæD¡ÑÓ˜o79Wë• 5“ 5«€&"ÁÐöšùkbªÎR‰¬3Êö0wõj‚¡u§eskÙjÎðz ©¬­™¬­Y ·=¶ý¬þdËè¯cˆ)eBŸý­dGz®šíâ#ï5öq_ÿåÌCã'6ïcM|³miÅOPehÍdhÍj ¸¡È©ÇœèñïÍ^“[õ0»&{ºJäÙT®EÊ]·\Ïqlœ”yÎë~6•Ýë7|‹PYZ3YZAk‘Ó:beØîëƒF2ÁP¦•è³¨»Ûþç5êÍs#ž*+ÿæ?ºÈ²îw|{¯Ù‰BÇPYZ3YZÁååv…¹–fWd§Ïo}†ó‘ϯŠ=ÁL8˺u5+O¿ºÂÖz{¨¬­™¬­‰à0ëÖ㬋#^Ëй5<‘8)¿Æ!ó,2O"¦&<¢³š¿¥X<:n'ûW˜ésU„*+@k&+@kb 8P¬ ¼¿‘ý+irñD´(œ[Ù3yn›¶èÈö_snÄsæg϶2ªh·²\<û)• 5“ 51Ì×­l¯Élz¶mk{ÕüNÛçåB©ùØswª “úŸÎs¯ ½~{NœTèÆ¢âÜs¬zýÏ®`ú”Ê ÐšÉ ÐšJdÖÚT­R©YWSy¢Ð¼ÏUÛÄåˆxÎrרèì`(rÖÖ±cÝCehÍdhM KDÖþŒcŽÌ:¹¾þK.ÚÊ­UˆeÒ=ôñãŠQQ݆ók*ÿ÷¿#E[ŽýÛÿ¨¬­™¬­‰à4Ù­ÒbqRäòëq*Jǹ§!ô¹ŸþÁPÕùA‘WD6œ·4ßnÞnþ”11pQ&+@kb .`¼²¦w >ÖçÌ÷èó%Öm#¯m>ö÷cˆµZµÝœÐ‡ÿé»>(÷Þ²r…ž¸,“ 51'Å%‘ëºÇ@Ÿ<‘Ï_‘»¦j­Íöºìy™þ}ˆ;7:{}Pì]aö·œé¾ZehÍdhí×Ùàé²+dr¡){†Ïþ%Öjî;û™SG¾¿_ÿ-Òçl™ºF¯ßŽræïÜùbQì|ãÊÈ{§'š©¬­™¬­‰(5;ÿe¼1Úü5W4¸ÆËþ2tv›¸Q|3Ã8ô™_5êõ¬QŸkÆ?yR0Ts>W$âù<äUYZ3YZQ(·>'WÚ_wnL]5/ŽÎ×Ú䊮1Û{žûëꤚmë2ÛQÕ¹CÌÈQúCUýYûÆîö3• 5“ 51Ð#ÕéýÚJdƒ·šo ×lž6ê˨l™soËù“’Þß)rÍøßæ-WxÍ¢ªØ2+†b#=W¿©[¨rãß°y¤›ýYdÞ÷Eð*+@k&+@kŸÝ~6k²+Y"ßïÞ^Us˜ùºÃÍcO'óÍþÌó"R,Ý¿•\DÕŠ¡c‹öUñÖªþpž^áQö¯2óû+Èœºy׊~îÌÞ%cï~¿©¬­™¬­Y tŠl9®f3°X¨±j•Êh\óÑgÆ5zEÍ("ãØžò³½{n™µ7y«ŠíU[KÕTÄs-™ÀûÈÞÔÝ;öï_“=WkgϯٿÊRehÍdhÍj ¦¢‘ÁŸr›ŒEOi©(ýǺ½.sU¤ÝL YöŸªQµîiÝ6ÙBñÜÊ0K CÜqAgDåÊÇý¯µ=Yîýð3*+@k&+@kb ËXùíî¹u'ÔÄÚ­Y÷”ßV/³6*EF»×¼Ý3·ÕñÐÕ™ÁPÕ¶žã–?Û–íß×½¿{þ<µŸ©¬­™¬­µŽ"Eªl!ëžêVèŒÚÞ¶´½ûûWüÔ£ù½ö¿"»Ý\ôœ¤Ü‘葶_¯É|óþì@°_ÛwöÖˆ³¿ŒÜªÏÈgeô3ev¿èIm?SYZ3YZ;5ª)ŠoÝ3Š £ëÞÿwvCŸs6Ú3®Qoª6SZ3†XŸscµ\3Š¬³ïÿ§s×FU¹ç{_G5¿-¹•~Ù,s-zûþ,RYZ3YZ›Æ@±í_¶×U}Ç82ˆ§>³[“å‚¡y˹BzÕꤺõAÙ“2Ï#wÍqAUÖ™÷¿G s$áQ…UÁP]Ü_(×°kû*+@k&+@k‰Õ@ÑÓTæ­Ìc Ø¿mÛÞ^uÏ2gîß™o g"è"½É…Y™MárO#û{yÜÝëˆxžè®ï¡+e~W×4nivUö}µ*LÿMehÍdh-µ)ÜšâVv£›mKO*X®+4¾^s\ô°®ð8çºÕRU›ï­sÜÝDä=÷䶳ÅÞm2ïü[__‘M__ÛÎEùÿ¦²´f²´ökÿ%¯…šQq§fÆüÞ£ëö<ÝS,zØžÜTµYYÕwÂçc½"KåΞ˜tÔÊè©ÎÏÌÊ<͹1+ŸPYZ3YZ;lS¸š†¶Ž=äzÝ9@óH§ª€™®2ëhŽ”[”;mªjÛ¿u[ÀuûéÀUœ ·(»uÛüù3†¬.Êdh­ ªû~õª32ëaŽ Gêâ‰3ÚcW²äú“ÛnÕ‚U[í='ô±rãßžòS?Û±ÁP÷¨.ôÙ×#• 5“ µÓÎÚª*%e‚3[>r­MÝ™5kú×Ï٫¶-w/ÿ?çw㮺ÿ†ë1кs¶r›‘Š€ 3YZûõy+e‚¡\˜)HåÎýÙ¶´ ×FçþÌû“+«åÖ­,ƒv "?#W'­éy÷¦“ãÖs^Á]NÊ|^ŒÏ¤‹¼oÍâóïï××¼¦*+@k&+@kÓMáæeéu¥¿u냪¶‰[·•\¤ÌXµ5Ylc´È¸ê®»£»nП¸GxT Õ›Wq¯ñ§çü‹ ‘þX ÜˆÉ ÐZA 4º¦¦sÇ`=yÝV`«NdÈC5çÓ|rÝÕtàHWŒŠŽ †²[ÀûýgËów»ØpŸ~‘BehÍdhmº)ÜqÛ²ÅÔlÏÛøf>öHë£ý÷Ž?Š»úsÅo†@rª"øg‹}µàu]O,♵½ÝnëýgœÊ ÐšÉ ÐÚt5ЪàåȬ«VÅ6s‹ŒtÞrÕSˆõ'r÷çbE<ÐM·÷£l”ŸûÔ‹ü[®¥#¿¶ð›Ê ÐšÉ ÐÚt5PĺÕ?U+ªÊh¹§ 2³åb—\è#⮥ۢÜpU£ïö¥…½ÏCehÍdh­$ªQuϺs¶ÿ–+‘E®ªÛ€.sÝsBŸgGas«v"k^ïûêEæªÏ©¬­™¬­MÎÚ|¶"ÁP¤ØUõšñýç¯Yw¯ÌæÝN¤¡ÞÙ[Éå¶Í|"ÒN,Núô *+@k&+@k«"ªŠf¹3}båøU¡OÝ)?™X¡ÛÚŸ»D#w}õúËe¯u?¿º5°5}ŽmZ—}Õ?TV€ÖLV€Ö&«Ö}ç9»ÑMd QÍpìu—hä.ãàÚ¬*º¶þ+†ªúœûêÅÞ«TV€ÖLV€Övo WWÚÊœ¡k'#²\nùÕ´³J÷þ=m<‘¨è‰²[ª e·­{GehÍdhmeŠ9ue¢H4³=Ë j›¸œ3‹®UkšîÜe'*êâìõA‘mU}âϯ²¸0“ µÝ«"…£X³.¬™r9÷'wÐH&Þ:2À¸KXr—qÀÑúì‘]‘û*Hý'šÊ ÐšÉ ÐÚßó—Ô”#¡OU)²êÛï™ÂUd=NU¼uìÝ»¹Ë8àCGX÷”ë‚¡š^ç?÷QehÍdh-±('²u[äûÑmâ2%©ÜÙ@uN®Œv×Ðçš½†;³¹?™¢Å¾øñŽÊ ÐšÉ ÐÚ$Z¹ÕLF,øˆ„,Ç–½níOݽÎuÍ^¯l.÷©uOðÜOóØÆqïú£²´f²´¶{5P6ˆ½jÛöûÿÎß+#&eÖu ׎õœ‘‚¡gÊœ(ôžÊ ÐšÉ ÐÚ’MárQQn O.<Š­ý‰ôhèDžFd¬+Ý^ï }Ž#"CehÍdhíïÙ b!Æë5«º[·j¦þä‚=-FözUÿsξ?pO‚¡w®ð ›ëõ»û«¬­™¬­-Y ´*ªY¹%Ý××|¥OÝ÷دxîÏÙ÷žÂŠ!^©¬­™¬­-‰ªD‚‡\T4ºWn¶š­Ûr}®#â: =Ê ÐšÉ ÐZë("^3?å§jíÏÙ¾ }€« Õ‹}žCehÍdhíò1PD®\)ˆEcCŸ.%;€c †îLehÍd®â¿¥wsåîäz±%tEXtcreate-date2009-11-21T22:59:17+01:00YJùM%tEXtmodify-date2009-11-21T22:59:17+01:00ûyIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/cbterm_normal.png0000644000175000001440000000452711725741457022067 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ’IDATxÚíÝÑuÛ6†Q«'“xNY4CViËœ ÄêÞ§W†AQ"?tüõÀ2÷¾íù|>ŸÏÕ“vrÇq­ßõ×êi¼"V€hbˆöcÞÐï]—v4ï~ÖÁ±R 7äÀýœÏûçÿ{ÞŸ¸²"PàÞÎçúyWT&ÆÊ•jžžR:µ>µ£Æ©“ë÷cÂ~Y5ŸÖŸ[óøž÷iÚöî²]äsE¢ÆƱ2ã`Ú3NÍÚK/_Ú>J›O«ïÓs»Óv±—kV&v·q¬´Úñ1jÅèü˜Ò˜­Ÿ†Kc®:Áô̧õ9)}oÏó;Zux®Ù_;nWïœÿžOÿ5'àÒ8£æSóøÖû-z¶‹V+5–sg/¿÷<¦&® —QóuÒšý<ßIkäíbÕvõ|"o …šÇôœøģ´½=óµ]=fì÷Lbå7i˹£p5óÜée›êNÏáŒ0½ë¥„íšqâI;™ÕÌçÊ9'\²IÛGó|P¬$PZ%Ï3mnióá¿Fí£´Ëd^{ûj=ÙϸTDc¥u‰µç^ÖqÒ¶‹×JÏsÂoâ$̧g5%ùõÜó<'oW‚Ö›FwY!˜q3liœÙ—ö2ø¯.{rà3µÞWTÏߢ]ô·¬²Àý\s_ÎàË@×o`^øÛ@@4÷¬ÑÄ M¬Ñß³â¦Z`ì}«VV€hbˆ&V€hb¸¹¿Oz¾¬²à¯.ŸÇãñxŒ}ü¨¹µþÜQ㤩9|—¶qö~ìy]ÕXµ]iÒ¶·f>篗ßúuàJ b%Yé µjœÉqyÖó³’·+ÍŽÛ.P`w7‰•žOüÉvÜ®+W¡ÒV°Fí¯]Ƶ¯{Ƭaev·8VF­:Üé“ñ.+³·±gy¿g>%5Ïí¨ýÕ3ÎŒ×CÏóœðú(°»Å±2êÓáî—Z>MÚ m>W^‚LÛö¬¬Àî6¾ 4û†JÞãàþž¯çWæZç3c*í96Ž•7±–Æu"™qicöÁ4m>g£ö×ìùÔJØ®c®š›@Ým¼²PÃÊ ìN¬¤æRQÍ×+ùçö€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€hbˆ&V€h?Æ÷|>ŸÏçêîÃÊ œ<^ÿïŸ?WOßß~k'DZz´9ï°}ØW{9ŽWÇÄÁ¿º\ãûûý_oþõë8®:ÀŸçÙús{¾7Íyö5{®õñió¿—šWÞ]Ÿ“ó¶çncëkrï£ÉÝÔ컞÷ }ý¯±r–|"OžÛ*¥¿g*IëIz“ú'¨yyß­v~´†HéñÞƒ¶8Vz´®^Ô<¾´êÓ:~Ï<“•”­ÐÖƒrë83>­ÞwUæÊO‡5îžùÜuµéyõ˜pß»r[f¿—kÆ)½Ç{WÇJÍ%¡Ò þüõR´†Bé{kôüÜO0êrRÍ8­Á´ãå­²žO~¿oñŸÓúøžÇŒ<ðeJˆƒûFÃ]Í^éégÔc¾¾–Çʨ¹P¸^ò {ÆJÏžfDÆìùŒ¿}:*’ß›Ì4j¿§æu»ÉÊÊ(£VVVÍ“µîupŸqýûNÏÏf_f¥4·Ö•Ñû ¯ èžñG­ÈβàW—Gý6Е÷¬”æк½³eƯ.ϸ\2ûzùªqZÍ?<Ͼ>]3ÎìËI=ÛÕjü¯.ϸ·#í½Ó³½=æŸNîY5NiÌ÷ãìõ¯.ûwVnÅ¿³²—»~–¼/ÿÎÊN쫽¼Žuvñ5Ûl/꽿Ã%tEXtcreate-date2010-04-02T01:36:33+02:00+Žv½%tEXtmodify-date2010-04-02T01:36:33+02:00t?‰IEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal2.png0000644000175000001440000001254011725741457020733 0ustar joergusers‰PNG  IHDRZòÓ›FU pHYsHHFÉk> vpAgZò8:›IDATxÚíÝQr¬º’оoHgþ#¸ƒêwD[áæXY™)$XëÓQ‚Œ6)ñ_ÿôÏÝ `Gÿþûï¿ÿþ{w+€ÝýùóçÏŸ?w·¢W÷õ°jFÛù÷õþwß'úÏÝ ø?ßïz¢wR3wL3ËÌ,'swù†»oà\¯Þ@r nN2½íhÒpõùªåd¾ °³·]¯Ô]I€ÁÍÉÁU>úÝn+ŽèzßvG¬áÚòf’`°Ñh…U½öª„c¦=ꀻ¸æ¬±ÿ~–ƒ&iA•™!šRì ìÌ5„Ÿ$Àà!ÉAU?óÝŽÔ᮹25Àþ¤?¹Ö}'97¿•q·wœøŽ†Sæ{î%-ø»•×·ŽßÂ[€F7'<ƒDö$-˜×}ëþ-$@£‡ŒVà^F7À>¤óÞv½š?6$Àà—ä cD@fùÑ÷̬+úŽƒŽõFßã°sÏ@Šëí|Mx³sÉ0(¨9ȼ¿ ºÌ«ïF—9³œ«6T½Mqçw@T阣ø²ó¹Ï}ïß‘ƒ@r°ò-…™ï^ý=ºühÍÁLÒI,žD]Ì{Ã5a%ל’`ðKrPuÇšéµgÚ“P%:Z!ú™ÓS)ütâ¹Ì—fBÌ×ÆI€Aã ‰™Þô®§jAÕ¨»æ'xRŠpµ]ðT'ž³§8ý’iÿgß•ƒÞ­p×LŽ™™»íÖž u <Ééç#?íð›ÖÖØI€AqrPÕÃî˜a03" Ú¶™vfê!ªæl8‘ºNtúyw¢Ó¯ }³Îƒ“ƒÌ» ªzÞ™ÿÌ̉éÅNló u ìàIç×ñ[WJÈÿÿ•ƒ_’ƒª÷ÌÈ$U½ü«Da¦6¢*áXé®ùº©K ÛéçÈSxŽgþÏö‘ƒ‚Ñ U3fzáµÏZæ?×óûî4â u WÛ ß=éøª•çoÕñpWZ0m—ƒ“ƒÌˆƒ«ådÞS°rÞé·õ2Ÿš"|'Qà©Ç6ûèNy¯˜!(H2wÖ3=³èl‰OêÑVÕFt÷tŸ:ºáŠDáyžz¬¾Í)u™vVý/¸ªÛû;É0ø%9¨šÍðê33ßÕKÛß“Rœ…=½áØ{3iÁÏåÏü¯4C"P ø­ŒW2Ϫ;F%ìÜÃ8¥3íÿîÄm‰ŠÞõ3ï Ç?r¾ì–D—ó“äüS»¸ªYŸªÆn®üLÕvÍ,gÆ)wÜz„wÊïåwçÊ]Ç|Õü=™åwü™Åð“ä$ÏZºˆLZIVŽyÍìÏ»èMÂ;ípêH2×ÿÌ?ùÚ5É0ø09ˆV¤¯ü|4ˆ®·{]3ºŸíF¢Ï³Ãu©êZZÕË_¹-'9ä ªŠò³ÊɾvfÚÖñ™¨·¥™mîµÛõ'3‚ £vmå2V~™!ñ®»¼ª¤¡ªF!Ó¶Ìg2ûjfŸìv}þ¬·Ûu&s}È$µWßþ=³®y’`ðKÍAո̫eVÍ%Ð݆™}ÒQ¯Ðý[d–"‰¬±Ûõ$sî¯ü‘ism’*9oeìîu¸úLÇHŠ™6DŸ?UµÿIµWÔ(@­·]+¾Ëôþ3‰B¦=ó$À  9˜Quu×ÜѶ}_Wôt¦ý£<ž$z|›rX™øF×[•æfFóýä|8ZaeeU/¿j]Ñïv·me5lt?¼D§:ñ\®:35U##®Ö»¦Nr ÉAǸùÌøþª!Ó#JÔèòïJ¢û穤 ììIç`G¯}fùUÉnÕÿ—üç%À ðVƨŽžqÕw3wmãYgÖÕ‘”D÷ç)Né ¾Ÿ9Ë)çETwÁÌz3û¶£Ž!ŸK€Añ<§ß™vÌ1Pµ®™»ÈªQ »Õ%Du?w¬ò†‡õN¿ÏØí¼è¨ëÊ$Ù3mSs|˜TÝ™v<+Z9v?ºÞèh‚ªgZûa·;÷*UwëUªjwx†®Ì[9Ê/ú?èï$Àà—äàmw©™ªþÌȈhZPõùŒÓëf¶åj»2µ&»m ûØáøÙÙnÇmt4Ùʺ£€b‹ÞʸƒLO}åg®>%3BGMÃn=׎±ËWû|çD¡ª=»õÞv¶Ûï~¢·Žy fÔÖ«I€Á‡oeÌè¨ïxÞÓýœ¾ª¾!³í§ôt»UퟎÊä·Ù9Ub»Ò‚ŽD­êz»~dŸä4&ݽ¨î´ Ú†hÒP•"D—ùÔ!s¼eªˆ¥PëÄôhe*°&ƒ_F+tßÁU¥QUú3ÛXõ\*Ú[­JG®Ú“±²‡IVº+W“°›G%D·+:ú©êšóÙµEr ÍsÐ]Ù=ªbæŽ/³]ë+Qÿ¾+Û\µ-3ª~Óî¤AŠÀ<5-¨½Ô^3%À`Ñ»ªzB DGåÕ¨Lå|dzùnÑÞ|UòQUÒAŠÀ“H jUýïøIr kªîb2iA´§Uճϴ?ÚKî–¿_~æxˆ~7³®»~#)'’üÜÑ‘ Ñs?_ %9ÉAæùnU AæNê®çÇÝŸ‰îŸ¨•õ(WwÐWíɤUw噶Uí7¸‹´àt’`ðO~Wº{r™;ÓLuz´—¶òYøLvx^>³íµÑ}ØQ7³ÃèèpbZ9GªþE—_u­SsÜüVÆŽ^øëʬ÷ª Ñ‘3íé¨]èmg÷ˆ™õvøˆ¶ ª¼--¨Úö»’ƒù6K€Aà­ŒÝÏhwH¢ÕæU=Åèr¢îÃîß(³ÿ¯dÚ=ί¶¥*iè`tUNL NÝ·µiÁw’`ðỪîVªî@£Ïà«>SÕS\Y[éGu¯«*ÅÉ$wDÈ"uʱýÔýMµg–c´ðaÍA´·QÕS.?“ddîÔº«Ü¯¾›iCtùº{áiVÕþ¹+"påIiÁÇvæÿæ•èÿ»ùßTr >¬9ø.Zyž}~}3³]+{´+ë6:Ì$OU‰NT&ÍŠ¶á®š()Â;í| yƒª©ÚT^r Šß­¹ë¹Ò}W»sµyUr³²g<³-Umδ-S§’©óÈôÈw«”æ\»]ëºípÞUÕdt£€’ƒª™»§«Ï³îJ¢ëê&Q8ËÇÌJ;œk×Ûª„^rügþ£™çU½á+½£ÖÜýÍ·êwÍó°õËnûjeŒnØÓÎ×½Stô죟¯ºö~Fr ÉÁLO¥êùÊÞÞn2‰BǾZÙ#쨙˜ÙW+uô¶w8GªF—0ï ×軎·ª”7“æÖÖ7H€Á/£ºŸÝf–³Co©[ÇþŸùnw•o÷—ªuEë2më¶Û9"Q˜·Ûo·›Žci‡ëRt»ª’û/’`ðá[»{ùcCwvµºk;:Ò—îߨêŽ>úùªaf™vKÚvHSv°ÃoÁ—ŽkËŒ™ëÕù;ÿ]É0(˜!1#sfDÃß÷IÇwW¶¹ê™\GúÝo5UN?_vKNߟ§8½Î ª UÉåO’`ðáh…ègÈ»k„BÕh”+™öD?Ó]\ÕžLÛª8—ÙÍ)iAÇu Ú¶üÿkÉ0Ô|×q×­CÍAÇöVÝW©J2V&3ë}RŠÝ'PeçëOæüͤ›kR É0¼[¡ÊÌ]̛ӂ™ý–ù|Uuý½Ø™6TÝ­_íêc/z^D÷C•·w¬wWZ0óùè5§ª=ÑkÂLûÕÖDUUÂwTÔïæ®z‚îgùÝUÁUiSDZڽߢíéö¤ó‘5vH V^¢ë]Or %Ýö¼óZ³½ßUÝw|7º-3ÛÕq§_5J"ó÷è~èÐÑ“{ùɼÝÒ¬ªs?³½Ý ¥Ñ À‡’|wzŠÐ1žµjÄGÕ~Õó¹Ìò3û³jŸD“ƒª}˜!Q ã©iAôz’içšÄWr ˜œ¨ãùôwÝw¦UÛ^µ-3Ë¿kÔÃ̶T¥+IøneBp¥#AœY~_ÀJ’`pà ‰|YYéšYWUïv‡go™¶Íˆ~÷j[2í¹«ÇÖ‘‚dŽÖØ!!ø®ûبª—ÊÔ~Í,3Or Ô´Ë<긣ìHV‡îý°ó3Ȫg¨»Uª3o·„໕£Ÿª®Q3í洞š'9’ƒ¥:ª^g–µ®ªgº½êªöD—Ó1Ê ªjºjFE™Žã¶ƒtáËΩÀŒ•ÉAÇrV¦¹óß•£–ZYI{u'[u×ýüLϲªý+ŸyGŸAv÷ª¯öçÌ2«z6QUÏn£:žïàô$`Æ]û?síŠnË̺f>ÿÙñ 9j^¡»ç·Û³ö™åÏXY™ßÝk_YPUAý†0óV^»fÖí©wœÑ„`~]’` æàVö8g5 Ýwë35ÑZ„LÝ@Uêýí Ê]iAf™™k]tÛûjž$À@rÀ‡¢Ï·:îÖ££:ê2iÁÕg:z3Ÿ‰ö6f>Ÿq×(îuJ 5sþVÃIêßI€ä€_TÝùîðì¼c?tô’¯ì𼿻÷3³¤œ(Sõ]ô3Ÿ]$À@rÀ/ªz«™åœþ rfŸTÕdÚYUÓ°²ÖDŠð §œãwÉŒÆúìÚ+9’~áŽþK´‡½£ï¨'ˆöª3ÕÎ3ó4ÌTtGIÎåÚ2/“ ~vŽH€ä€b3=ÈuT㯜wájùµU¤ïqÊu`¥LOtØ<É0P,s'{J¯"ÓS~wfÿD÷yæ9å)½óSÚùT»ËÑc £ý™º"5ÀÍ$,’yþ½[;;Ú¿r>‰Ì ݽðŽ}+EXc·sy‡ý9ªÒÖÏÎ)É0øçîðv;§UÛR5sY÷rº·%Ók_ù ˜y§œ³Ý5w]Çúj¹$À@rƒŽgÿUó \µ§* ˜Y~TÇ8ì•ó.ð唄໕iAt™#ª>ÿEr ŒV€AÕøLÏ»£‡Ú]í]W÷ÈŽŽí›G7œ˜¬MÚªŽŸªc~~9’` 9€”Ž¹ªêVnoô3U½óî}ÕQ3±ƒŽ¥Ýi\TÕ¨¢«¿Ï\sŒV ­À‹tŒ ÎTDw§ UsTµ?š:TÙ¡—Ü4ì°wéù’Ñ“9/îš;á‹äHx¸Ìs¾ª^xwo;³½™ýÙ1§Bt»¢ÞÜÃ~ª•ópDÏ媹Ö' ’` 9€)UõU½í+U5ëŠ.3ªûÙ3ûX™\}·£FgŸ¤Pr $¶r¶²ªÞLwDw¯+#“ˆ°•éTÇsýÌyd´p3É„uTw´r úÕç3ÉÁ]Û[µv°CÝ@fN‘Ìò»“¼ªÏFr $pŒÆRwÌð]æÙÇì3Ÿç^ÉAÇŒŠ™6¯'9’ØÎnãæ3½¥î¹fö[Ô]ëe^wíÈÊã|f½F+73C"lg‡ç‘W=›èÜ3½®Žy¢é‹Þÿþî:/ªæð˜q×ò’ÉðÿÈôZºÇjW¥Uã×;Fmðe‡íJG/eJñw’` 9~Ñ1æ{¦'”I)îªô–"äíœD͇Ѵ ³Þù}+9’àefy«š‘°cLyÕ>©z~ÌOÝiÁÊýõ»gzÿUm2C"ð‹î÷¬¬ÄÞan|)—•µ™Dêj9UÉÙL{Ö×ÐH€šxîyÝ33FÛœYo&EP‹ð™§ŽDÈ|æ;ó›Rs¯–y7AU¯hæ3U=þŽÄ"³ü̺v¶CBPõÛ­<®Ö»~>É0Psü"ú¼óª§•é UÕ\™™Qne-ÂÌþÜÁ ÁÊöwÔ‹DërÖ’` æøE¦7|WÝ@&á˜Y×]Ï¡gTͬw¢î:ƒ}Ft¯Kr $@ŽÞj÷,rwn8½w¾³Ž4(SsS•´U-žäH€=žîçú™º‰Â>:f!¼ZþÊ9 î%9’àCUI@Õ¬‚ÝÏ’gÖ]ו={“ûX™*Í,gÿ$ Jr $@£zT‰EÕ6î<_ªfì¨Gy6É0ðnàE2³4vÌ«ŸywÃÕrN×<{fÃ*’` æxˆÌ˜õŽÞäÊw7ÌØ¡‡Ú±]ÑíÝ¡ÎCrFÍp°•ÏwxV]Õþ§Êìÿ«ß´c΃“/’` 96Ó3‹ö亟÷GkÞÐãÏèî…G—_5æ½I•ä­ vpAgrðáóûÊåIDATxÚíÝQv£6†Ñ¸gV’5°êY k˜­´eN+Iè¹÷©'%alø 8þø`™××~í<ÏóW$jl+3v¦=ãÔì =õò¥m£´ù´šñ:1·'­{¹çÌÄî6Ž•V;î F1º.S³õÝpiÌU˜žù´>&¥ßíyœGÍgG«vÏ5ÛkÇõêóÿÝsÐóî¿æ\gÔ|j–o½ß¢g½hõb¥FÂéÜÙ§ß{–© ‚;ÃeÔ|F´f?ÎOÒy»Xµ^=ïÈ[C¡f™žÿŒù”Ö·gþ£Ö«ÇŒížI¬ü&ítî¨\Í?¿þñæ_¿Žã®üuž­ÿnÏ惡ξf˵.Ÿ6ÿg©yæ=õ1¹®{î:¶>'÷Þ›OÝFmz^;£ÆiÝ'<7Âî\—Ù¯åšqJ¯ñÞ³G‹c¥æ’Péýy)ZC¡ô»5zþÝï`Ô多qZƒiÇË[e=ïü~_ã?/Óº|Ï2#w|™âà¹ÑðT³ÏôôŒ3j™å±2ê@.î—|Àžq¦gO3"cö|F¿ß6 ɯMfµÝGSó¼ÝäÌÊ(£Î¬¬š'k=kç>ãú÷“Ÿ=̾Ì:Jin­gFŸ»7¼3 {ÆuFv–]õi ;ïY)Í¡u}gÊŒ.ϸ\2ûzùªqZÍß=Ͼ>]3ÎìËI=ëÕjüG—gÜÛ‘öÚéYßó§ ÷ˆ¬§4æ×ãìýG—ý•GñwVöòÔ÷’Ïåï¬ìĶÚËûXñ­Ë°‹~9œ+ZÒ%tEXtcreate-date2010-04-02T01:35:16+02:00Фåd%tEXtmodify-date2010-04-02T01:35:16+02:00“PIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fn.tex0000755000175000001440000000332411725741457017657 0ustar joergusers \subsection{Funktionsübersicht} \begin{tabular}{|p{0.20\textwidth}|p{0.70\textwidth}|} \hline \textbf{Funktionsnummer} &\textbf{Funktion} \tabularnewline\hline 0 &Dummy-Funktion, falls die Bibliothek aus dem Hauptmenu aufgerufen wird \tabularnewline\hline 1 &Initialisierung \tabularnewline\hline 2 &Integer-Zuweisung Variable=Wert \tabularnewline\hline 3 &Zuweisung über Textstring im Array \tabularnewline\hline 4 &liefert Integerwert der Variablen \tabularnewline\hline 5 &Textausgabe der Variablen \tabularnewline\hline 6 &Absolutwert einer Variablen \tabularnewline\hline 7 &Invers-Wert (0-Variable) \tabularnewline\hline 8 &Addition V3 = V1 + V2 \tabularnewline\hline 9 &Subtrakion V3 = V1 - V2 \tabularnewline\hline 10 &Multiplikation V3 = V1 * V2 \tabularnewline\hline 11 &Division V3 = V1 / V2 \tabularnewline\hline 12 &Konstantenzuweisung mit vordefinierten Konstanten \tabularnewline\hline 13 &Vorkomma-Anteil einer Variablen (INT) \tabularnewline\hline 14 &Nachkomma-Anteil einer Variablen (FRAC) \tabularnewline\hline 15 &Vergleich zweier Variablen \tabularnewline\hline 16 &Variable kopieren \tabularnewline\hline 17 &Variable / 2 \tabularnewline\hline 18 &Variable * 2 \tabularnewline\hline 19 &Script im Arrayspeicher starten \tabularnewline\hline \end{tabular} \pagebreak[4] \subsection{Funktion 0 : Dummy} Dies ist eine Dummy-Funktion, die lediglich 0 zurückliefert falls die Bibliothek aus dem Hauptmenu aufgerufen wird.\\[0.5cm] \begin{tabular}{|p{0.20\textwidth}|p{0.70\textwidth}|} \hline \textbf{Parameter} &\textbf{Bedeutung} \tabularnewline\hline Parameter 1 &--- \tabularnewline\hline Parameter 2 &--- \tabularnewline\hline Parameter 3 &--- \tabularnewline\hline Rückgabewert &0 \tabularnewline\hline \end{tabular} SOURCE_142/SOURCE_system/libmio/tools/screenshot.pl0000755000175000001440000006010711725741457021246 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # screenshot tool for avr-chipbasic2 # # copyright (c) 2006-2009 Joerg Wolfram (joerg@jcwolfram.de) # # # # This program is free software; you can redistribute it and/or # # modify it under the terms of the GNU General Public License # # as published by the Free Software Foundation; either version 3 # # of the License, or (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # # General Public License for more details. # # # # You should have received a copy of the GNU General Public # # License along with this library; if not, write to the # # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # # Boston, MA 02111-1307, USA. # # # ################################################################################# use POSIX; $serdevice="/dev/ttyS0"; $fname=$ARGV[0]; $use_c8=0; $ct[0]="."; $ct[1]="x"; $ct[2]="B"; $ct[3]="b"; $ct[4]="R"; $ct[5]="r"; $ct[6]="M"; $ct[7]="m"; $ct[8]="G"; $ct[9]="g"; $ct[10]="C"; $ct[11]="c"; $ct[12]="Y"; $ct[13]="y"; $ct[14]="W"; $ct[15]="w"; if ($fname eq "-c8") { $fname=$ARGV[1]; $ct[0]="."; $ct[1]="."; $ct[2]="B"; $ct[3]="B"; $ct[4]="R"; $ct[5]="R"; $ct[6]="M"; $ct[7]="M"; $ct[8]="G"; $ct[9]="G"; $ct[10]="C"; $ct[11]="C"; $ct[12]="Y"; $ct[13]="Y"; $ct[14]="W"; $ct[15]="W"; $use_c8=1; } ############################################################################### # get pixel value from tab ############################################################################### sub get_pixel { $nb=0; if ($z =~ /^\./) {$nb=0} elsif ($z =~ /^x/) {$nb=1} $z=$'; return $nb; } ############################################################################### # get pixel value from tab ############################################################################### sub xpal { if ($use_c8 == 0) { print WTAB "\". c #000000\",\n"; print WTAB "\"x c #555555\",\n"; print WTAB "\"b c #5555ff\",\n"; print WTAB "\"B c #0000cc\",\n"; print WTAB "\"R c #aa0000\",\n"; print WTAB "\"r c #ff5555\",\n"; print WTAB "\"M c #cc00cc\",\n"; print WTAB "\"m c #ff55ff\",\n"; print WTAB "\"G c #00cc00\",\n"; print WTAB "\"g c #55ff55\",\n"; print WTAB "\"C c #00cccc\",\n"; print WTAB "\"c c #55ffff\",\n"; print WTAB "\"Y c #cccc00\",\n"; print WTAB "\"y c #ffff55\",\n"; print WTAB "\"W c #cccccc\",\n"; print WTAB "\"w c #ffffff\",\n"; } else { print WTAB "\". c #000000\",\n"; print WTAB "\"x c #000000\",\n"; print WTAB "\"B c #0000ff\",\n"; print WTAB "\"b c #0000ff\",\n"; print WTAB "\"R c #ff0000\",\n"; print WTAB "\"r c #ff0000\",\n"; print WTAB "\"M c #ff00ff\",\n"; print WTAB "\"m c #ff00ff\",\n"; print WTAB "\"G c #00ff00\",\n"; print WTAB "\"g c #00ff00\",\n"; print WTAB "\"C c #00ffff\",\n"; print WTAB "\"c c #00ffff\",\n"; print WTAB "\"Y c #ffff00\",\n"; print WTAB "\"y c #ffff00\",\n"; print WTAB "\"W c #ffffff\",\n"; print WTAB "\"w c #ffffff\",\n"; } } ############################################################################### # get nibble data from matrix ############################################################################### sub get_nibble { $nb=0; if ($z =~ /^0/) {$nb=0} elsif ($z =~ /^1/) {$nb=1} elsif ($z =~ /^2/) {$nb=2} elsif ($z =~ /^3/) {$nb=3} elsif ($z =~ /^4/) {$nb=4} elsif ($z =~ /^5/) {$nb=5} elsif ($z =~ /^6/) {$nb=6} elsif ($z =~ /^7/) {$nb=7} elsif ($z =~ /^8/) {$nb=8} elsif ($z =~ /^9/) {$nb=9} elsif ($z =~ /^A/) {$nb=10} elsif ($z =~ /^B/) {$nb=11} elsif ($z =~ /^C/) {$nb=12} elsif ($z =~ /^D/) {$nb=13} elsif ($z =~ /^E/) {$nb=14} elsif ($z =~ /^F/) {$nb=15} $z=$'; return $nb; } ############################################################################### # get screenshot type ############################################################################### sub get_type { $vmode=-1; $z =~ s/^p//; if ($z =~ /^0/) {$vmode=0} elsif ($z =~ /^8/) {$vmode=8} #editor mode elsif ($z =~ /^1/) {$vmode=1} elsif ($z =~ /^2/) {$vmode=2} elsif ($z =~ /^3/) {$vmode=3} elsif ($z =~ /^4/) {$vmode=4} elsif ($z =~ /^5/) {$vmode=5} elsif ($z =~ /^6/) {$vmode=6} elsif ($z =~ /^7/) {$vmode=7} elsif ($z =~ /^9/) {$vmode=1} elsif ($z =~ /^A/) {$vmode=2} elsif ($z =~ /^B/) {$vmode=3} elsif ($z =~ /^C/) {$vmode=4} elsif ($z =~ /^D/) {$vmode=5} elsif ($z =~ /^E/) {$vmode=6} elsif ($z =~ /^F/) {$vmode=7} if ($vmode>=0) { $z=$'; $border=&get_nibble(); $estatus=&get_nibble(); for($i=0;$i<16;$i++) { $cval=&get_nibble(); $pal[$i]=$cval; } } } ############################################################################### # read data from chip ############################################################################### sub get_data { open (SER, $serdevice); $z=; &get_type(); if ($vmode==0) { for($i=0;$i<46;$i++) { $data[$i]=; chomp($data[$i]); print "T"; } } elsif ($vmode==8) { $pal[0]=$estatus*32; if ($pal[0]<128){$pal[0]=$pal[0]+14} for($i=0;$i<19;$i++) { $data[$i]=; chomp($data[$i]); print "E"; } } elsif ($vmode==1) { for($i=0;$i<131;$i++) { $data[$i]=; chomp($data[$i]); print "1"; } } elsif ($vmode==2) { for($i=0;$i<76;$i++) { $data[$i]=; chomp($data[$i]); print "2"; } } elsif ($vmode==3) { for($i=0;$i<58;$i++) { $data[$i]=; chomp($data[$i]); print "3"; } } elsif ($vmode==5) { for($i=0;$i<64;$i++) { $data[$i]=; chomp($data[$i]); print "5"; } } elsif ($vmode==4) { for($i=0;$i<87;$i++) { $data[$i]=; chomp($data[$i]); print "4"; } } elsif ($vmode==6) { for($i=0;$i<87;$i++) { $data[$i]=; chomp($data[$i]); print "6"; } } elsif ($vmode==7) { for($i=0;$i<92;$i++) { $data[$i]=; chomp($data[$i]); print "7"; } } close(SER); } ############################################################################### # convert strings to char and attribute array (normal mode) ############################################################################### sub fillarray_mode0 { for ($y=0;$y<23;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[30*$y+$x]=16*$hi+$lo; } } for ($y=0;$y<23;$y++) { $z=$data[23+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $acell[30*$y+$x]=16*$hi+$lo; } } } ############################################################################### # convert strings to char and attribute array (editor mode) ############################################################################### sub fillarray_emode { for ($y=0;$y<19;$y++) { $z=$data[$y]; for ($x=0;$x<36;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); if ($y==0) { $vcell[$x]=16*$hi+$lo; $acell[$x]=10; } if ($y==1) { $vcell[36+$x]=16*$hi+$lo; $acell[36+$x]=$pal[0]; } if ($y==2) { $vcell[36*18+$x]=16*$hi+$lo; $acell[36*18+$x]=32*2+2*7; if ($x>6) { $acell[36*18+$x]=32*6+2*0; } if ($x>13) { $acell[36*18+$x]=32*4+2*0; } if ($x>20) { $acell[36*18+$x]=32*1+2*7; } if ($x>27) { $acell[36*18+$x]=32*3+2*7; } } if ($y>2) { $vcell[36*($y-1)+$x]=16*$hi+$lo; $acell[36*($y-1)+$x]=14; } } } } ############################################################################### # convert strings to pixel array (graphics1) ############################################################################### sub fillarray_mode1 { for ($y=0;$y<15;$y++) { $z=$data[116+$y]; for ($x=0;$x<21;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $fcell[21*$y+$x]=$ct[$hi]; $bcell[21*$y+$x]=$ct[$lo]; } } for ($y=0;$y<116;$y++) { $z=$data[$y]; for ($x=0;$x<21;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $bline=$lo+16*$hi; $fgc=$bcell[$x+21*floor($y/8)]; $bgc=$fcell[$x+21*floor($y/8)]; for ($px=0;$px<8;$px++) { $bit=$bline & 1; if ($bit==0) { $vcell[$px+8*$x+168*$y]=$bgc; } else { $vcell[$px+8*$x+168*$y]=$fgc; } $bline=$bline >> 1; } } } } ############################################################################### # convert strings to pixel array (graphics2) ############################################################################### sub fillarray_mode2 { for ($y=0;$y<76;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $cin[0]=$lo & 3; $lo=$lo >> 2; $cin[1]=$lo & 3; $cin[2]=$hi & 3; $hi=$hi >> 2; $cin[3]=$hi & 3; $vcell[4*$x+120*$y+0]=$ct[$pal[$cin[0]]]; $vcell[4*$x+120*$y+1]=$ct[$pal[$cin[1]]]; $vcell[4*$x+120*$y+2]=$ct[$pal[$cin[2]]]; $vcell[4*$x+120*$y+3]=$ct[$pal[$cin[3]]]; } } } ############################################################################### # convert strings to pixel array (graphics3) ############################################################################### sub fillarray_mode3 { for ($y=0;$y<58;$y++) { $z=$data[$y]; for ($x=0;$x<42;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[2*$x+84*$y+0]=$ct[$pal[$lo]]; $vcell[2*$x+84*$y+1]=$ct[$pal[$hi]]; } } } ############################################################################### # convert strings to char and charset array (mode 4) ############################################################################### sub fillarray_mode4 { for ($y=0;$y<23;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[30*$y+$x]=(16*$hi+$lo) & 127; } } for ($y=0;$y<23;$y++) { $z=$data[23+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $acell[30*$y+$x]=16*$hi+$lo; } } $coffset=0; $loffset=0; for ($y=0;$y<41;$y++) { $z=$data[46+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $charcell[$coffset+128*$loffset]=16*$hi+$lo; $coffset+=1; if ($coffset==128) { $coffset=0; $loffset+=1; } } } } ############################################################################### # convert strings to char and charset array (mode 6) ############################################################################### sub fillarray_mode6 { for ($y=0;$y<23;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[30*$y+$x]=16*$hi+$lo; } } for ($c=0;$c<64;$c++) { $z=$data[23+$c]; for ($y=0;$y<10;$y++) { for ($x=0;$x<3;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $charcell[60*$c+6*$y+2*$x+0]=$hi; $charcell[60*$c+6*$y+2*$x+1]=$lo; } } } } ############################################################################### # convert strings to pixel array (graphics5) ############################################################################### sub fillarray_mode5 { $bgc=$ct[$pal[0]]; $fgc=$ct[$pal[1]]; for ($y=0;$y<64;$y++) { $z=$data[$y]; for ($x=0;$x<16;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $bline=$lo+16*$hi; for ($px=0;$px<8;$px++) { $bit=$bline & 1; if ($bit==0) { $vcell[$px+8*$x+128*$y]=$bgc; } else { $vcell[$px+8*$x+128*$y]=$fgc; } $bline=$bline >> 1; } } } } ############################################################################### # convert strings to char and attribute array (mode 7) ############################################################################### sub fillarray_mode7 { for ($y=0;$y<2;$y++) { $z=$data[$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $vcell[30*$y+$x]=16*$hi+$lo; } } for ($y=0;$y<2;$y++) { $z=$data[2+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); $acell[30*$y+$x]=16*$hi+$lo; } } $doffset=0; $line=0; $linebyte=0; for ($y=0;$y<83;$y++) { $z=$data[2+$y]; for ($x=0;$x<30;$x++) { $hi=&get_nibble(); $lo=&get_nibble(); if ($doffset<105) { $lptr[$doffset++]=16*$hi+$lo; } else { $lptr[$line][$linebyte]=16*$hi+$lo; $doffset+=1; $linebyte+=1; if ($linebyte==24) { $linebyte=0; $line+=1; } } } } } sub lborder { print WTAB "\""; for($bo=0;$bo<5;$bo++) { print WTAB $ct[$border]; } } sub rborder { for($bo=0;$bo<5;$bo++) { print WTAB $ct[$border]; } print WTAB "\",\n"; } sub uborder { for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<$_[0];$chr++) { print WTAB $ct[$border]; } print WTAB "\",\n"; } } sub dborder { for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<$_[0];$chr++) { print WTAB $ct[$border]; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } } ############################################################################### # write xpm image (normal mode) ############################################################################### sub writexpm_mode0 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 240 16 1\",\n"; &xpal(); &uborder(370); for($cline=0;$cline<23;$cline++) { for($pline=0;$pline<10;$pline++) { &lborder(); for($chr=0;$chr<30;$chr++) { $vchar=$vcell[30*$cline+$chr]; $attr=$acell[30*$cline+$chr]; $vg=$attr & 15; $vg=$ct[$vg]; $hg=$attr & 240; $hg=$ct[$hg/16]; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[6*$pline+60*$vchar+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } &rborder(); } } &dborder(370); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 1) ############################################################################### sub writexpm_mode1 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"346 242 16 1\",\n"; &xpal(); &uborder(346); for($cline=0;$cline<116;$cline++) { for ($pline=0;$pline<2;$pline++) { &lborder(); for($chr=0;$chr<168;$chr++) { $vchar=$vcell[168*$cline+$chr]; print WTAB $vchar.$vchar; } &rborder(); } } &dborder(346); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 2) ############################################################################### sub writexpm_mode2 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 238 16 1\",\n"; &xpal(); &uborder(370); for($cline=0;$cline<76;$cline++) { for ($pline=0;$pline<3;$pline++) { &lborder(); for($chr=0;$chr<120;$chr++) { $vchar=$vcell[120*$cline+$chr]; print WTAB $vchar.$vchar.$vchar; } &rborder(); } } &dborder(370); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 3) ############################################################################### sub writexpm_mode3 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"346 242 16 1\",\n"; &xpal(); &uborder(346); for($cline=0;$cline<58;$cline++) { for ($pline=0;$pline<4;$pline++) { &lborder(); for($chr=0;$chr<84;$chr++) { $vchar=$vcell[84*$cline+$chr]; print WTAB $vchar.$vchar; print WTAB $vchar.$vchar; } &rborder(); } } &dborder(346); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (mode 4) ############################################################################### sub writexpm_mode4 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 240 16 1\",\n"; &xpal(); &uborder(370); for($cline=0;$cline<23;$cline++) { for($pline=0;$pline<10;$pline++) { &lborder(); for($chr=0;$chr<30;$chr++) { $vchar=$vcell[30*$cline+$chr]; $attr=$acell[30*$cline+$chr]; $vg=$attr & 15; $vg=$ct[$vg]; $hg=$attr & 240; $hg=$ct[$hg/16]; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[6*$pline+60*$vchar+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } &rborder(); } } &dborder(370); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (mode 6) ############################################################################### sub writexpm_mode6 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 240 16 1\",\n"; &xpal(); &uborder(370); for($cline=0;$cline<23;$cline++) { for($pline=0;$pline<10;$pline++) { &lborder(); for($chr=0;$chr<30;$chr++) { for($pix=0;$pix<6;$pix++) { $vchar=($vcell[30*$cline+$chr] & 63) ; $vg=$charcell[60*$vchar+6*$pline+$pix]; $vg=$ct[$vg]; print WTAB $vg.$vg; } } &rborder(); } } &dborder(370); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (graphics mode 5) ############################################################################### sub writexpm_mode5 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"394 202 16 1\",\n"; &xpal(); &uborder(394); for($cline=0;$cline<64;$cline++) { for ($pline=0;$pline<3;$pline++) { &lborder(); for($chr=0;$chr<128;$chr++) { $vchar=$vcell[128*$cline+$chr]; print WTAB $vchar.$vchar.$vchar; } &rborder(); } } &dborder(394); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (mode7) ############################################################################### sub writexpm_mode7 { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"370 240 16 1\",\n"; &xpal(); &uborder(370); $cline=0; for($pline=0;$pline<10;$pline++) { &lborder(); for($chr=0;$chr<30;$chr++) { $vchar=$vcell[30*$cline+$chr]; $attr=$acell[30*$cline+$chr]; $vg=$attr & 14; $vg=$ct[$vg/2]; $hg=$attr & 224; $hg=$ct[$hg/32]; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[6*$pline+60*$vchar+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } &rborder(); } for($cline=0;$cline<105;$cline++) { for($ldob=0;$ldob<2;$ldob++) { &lborder(); $linenr=$lptr[$cline]; for ($i=0;$i<360;$i++) { $xline[$i]=$border; } $start=159; $dset=0; $c1=$border; $c2=$border; for ($j=0;$j<360;$j++) { $pos=($j-160)/(255-160)*360; if ($ldat[$linenr][$dset]==$j) { $c1=$ldat[$linenr][$dset+1] & 224; $c1=$c1 / 32; $c2=$ldat[$linenr][$dset+1] & 14; $c2=$c2 / 2; } } for ($i=0;$i<360;$i++) { print WTAB $ct[$xline[$i]]; } &rborder(); } } $cline=1; for($pline=0;$pline<10;$pline++) { &lborder(); for($chr=0;$chr<30;$chr++) { $vchar=$vcell[30*$cline+$chr]; $attr=$acell[30*$cline+$chr]; $vg=$attr & 14; $vg=$ct[$vg/2]; $hg=$attr & 224; $hg=$ct[$hg/32]; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[6*$pline+60*$vchar+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } &rborder(); } &dborder(370); print WTAB "};\n"; close(WTAB); } ############################################################################### # write xpm image (editor mode) ############################################################################### sub writexpm_emode { open (WTAB, ">temp.xpm"); print WTAB "static char *screenshot_xpm[] ={\n"; print WTAB "\"442 238 16 1\",\n"; &xpal(); &uborder(442); for($cline=0;$cline<19;$cline++) { for($pline=0;$pline<12;$pline++) { if (($pline==0) || ($pline==11)) { print WTAB "\""; for($chr=0;$chr<442;$chr++) { print WTAB "."; } print WTAB "\",\n"; } else { print WTAB "\"....."; for($chr=0;$chr<36;$chr++) { $vchar=$vcell[36*$cline+$chr]; $attr=$acell[36*$cline+$chr]; $vg=$attr & 15; $vg=$ct[$vg]; $hg=$attr & 240; $hg=$ct[$hg/16]; $font=$attr & 1; for($pix=0;$pix<6;$pix++) { $pchar=$hg; if ($charcell[60*$vchar+6*($pline-1)+$pix]>0) { $pchar=$vg; } print WTAB $pchar.$pchar; } } print WTAB ".....\",\n"; } } } #Black border (lower) for($pline=0;$pline<5;$pline++) { print WTAB "\""; for($chr=0;$chr<442;$chr++) { print WTAB "."; } if ($pline<5) { print WTAB "\",\n"; } else { print WTAB "\"\n"; } } print WTAB "};\n"; close(WTAB); } ############################################################################### # read character cells from fnt0 ############################################################################### $cline=0; $count=-1; open (RTAB, "ctab_f0.dat"); while() { $z=$_; chomp($z); if ($z =~ /cell/) { $cline=0; $count++; } elsif (length($z)>4) { $charcell[6*($cline)+60*$count+0]=&get_pixel(); $charcell[6*($cline)+60*$count+1]=&get_pixel(); $charcell[6*($cline)+60*$count+2]=&get_pixel(); $charcell[6*($cline)+60*$count+3]=&get_pixel(); $charcell[6*($cline)+60*$count+4]=&get_pixel(); $charcell[6*($cline)+60*$count+5]=&get_pixel(); $cline++; } } close(RTAB); ############################################################################### # set serial port and read data from chip ############################################################################### system `stty 2400 cs8 -parenb -echo -crtscts -ixon < /dev/ttyS0`; print "AVR-ChipBASIC2 Screenshot loader V1.00\n"; print "reading data..."; &get_data(); close(SER); print "done\n"; ############################################################################### # do it ############################################################################### if ($vmode==0) { &fillarray_mode0(); &writexpm_mode0(); } if ($vmode==8) { &fillarray_emode(); &writexpm_emode(); } if ($vmode==1) { &fillarray_mode1(); &writexpm_mode1(); } if ($vmode==2) { &fillarray_mode2(); &writexpm_mode2(); } if ($vmode==3) { &fillarray_mode3(); &writexpm_mode3(); } if ($vmode==4) { &fillarray_mode4(); &writexpm_mode4(); } if ($vmode==5) { &fillarray_mode5(); &writexpm_mode5(); } if ($vmode==6) { &fillarray_mode6(); &writexpm_mode6(); } if ($vmode==7) { &fillarray_mode7(); &writexpm_mode7(); } ############################################################################### # convert xpm image to whatever you want ############################################################################### system`convert temp.xpm $fname`; #system`rm temp.xpm`; SOURCE_142/SOURCE_system/libmio/tools/menu_noctrl.png0000644000175000001440000000172211725741457021562 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ IDATxÚíÖÁ‰Ã@AÙ¡8†µc™ 6€­½O ª®sЃD¸ípuk­µ{¿ÍÌìÞÀgÜw8#V€4±¤‰ M¬ibH+@šXÒÄ üËí;Yk­µv¿,¯š™™Ù½Žã8+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibH+@šXÒÄ &V€4±¤‰ M¬ibàƒnçÇÏçî¼ãñXk÷^7³{ï™ñ…]‡»º–™³â}÷<€3bH+@šXÒÄ &V€4±¤‰ M¬ÀUüµˆŠ¿YG%tEXtcreate-date2010-04-11T00:55:11+02:00ŽN·%tEXtmodify-date2010-04-11T00:55:11+02:00ÑÿÁ©IEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/cbterm_send.png0000644000175000001440000000711711725741457021526 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ ŠIDATxÚíÝë•å&Ð./GÒ1ÜX&ÈŽåÆàTf~x–[~¨Ì)8p@{ÿòjëR Ÿ@oßXæãk?{¿ßï÷{u值^¯×ëýÕ/«« ða(MXJû5¯è¯ÍK;Ê»ŸupX¹ (nÈ€ó\ûýëí÷GV8Ûµ¯Ï›QI +3µ¬ž»è]µ£Êi)“ù®Û±ÂvYUŸèßmY¾ç8­ÖÞ]Ú•í·ß~¶þû÷oetùì:_­ª-6+'ÓžrZNÐ…úªm£jõ‰Ê8N3êvR»*«®u¸ .T³qX‰ZˆÄ1º.sWfôjø®ÌULO}¢ëäî·=ëyT}v´ª»hÙ^;¶k”Q#Ùåô”™±~¢õ‰¦ o¾…•†s³‡ß{–i 3ƒË¨úŒê´²×óI¢!o«ÚÕ3Bp7Òp×)öt®£êÙ²2:õQÓ^=å´üû¨õY‡°ò'Õ†sGàZê¹Ón[ÕIë0#˜ž:R¡]3;žUÓ(¦lþn¯ÀÑãAa¥Â %ªr=«Õ­Z}ø»QÛ¨Ú4™}/ϨˆjÜ7µqX‰±öÜ+-§Z»øÜÝz®ð$N…úôŒ¦TÞŸ{Ösåvõˆv¢£¦0îÊÉèÔgÖ§eýœÂò þêrÞ aà<ÕnîÑ’¾ö.–GV`w»‘µ&}È( œgÎwOÍoPA^6ðm  ´_VWà3 Pš°”6øž7Õcï[5²”&¬¥ +@i PÚ‚oýøñó¿ÿóŸñ˪ÛUôïŽ*§š»vµ´1{;ÎÜO¢ëäê¤} B[ªÕÈàC†r=ÙE;¡Œr*¨.¯*tT•×ÏÌ6ŒuHXé¹â¯lÇvÍ…ÊømO[FU·ìrFmëž2'XVF:œtE»ËHFv[–É ‹Öánùèߊ.sW·Œý¡g=ï¸Õ,+£:€Ý§ZžæÔNkT¸œ9yê¶N²ñ4PÆU/ýv¼’®pCôªQœjÛ+ZŸ u²mV2nb½+gTG’1µ‘}²®VŸ«QÛkT{ÖϨý9ãé¤Êûsµ°døøÚÏîÞùïÛ@ìB'glNØxdz(»ð[ ´%#+ס–Á èò£êvý»£Ê© ú‘ïè6í)€ó™ú‹kí¤3Ê©¦'\V©ÔuLX9õJýÔvµ8µ]Ä,+£FNºR¯<ñäðÀËÃʨûNšj©L`¶åa¥GÏõµlßj7DŸtc5@[‡•Œ›XïÊŒZʉ¶k—ŽðÔvkIX‰vB-ËêØN-§Zª­Ÿjåð“—Â¥mVþ{ÑóïÀ.6»gåãããããÿ_¼Fž*Û,¬(ð4Ë¿ tçŸoT4²O³|d¥åý?—Pài–‡•#+ð4ËÃJìŸ <Íò°{‰–‘xšåa%F@€§Ùâuû?Y€§Ùldåê.pDÿý,¾, 0–o~­·Ùëö€§V€Ò„ ´ïY!Âœ+ÀçÜóW—‘ 4a(MXJsÏ 0_ œÊ}{{V.ö!I€}\Ïo×ÿv~Û°ÂÀÀI®ç4#Ç{VX¢åÄqjxʾ‹ž”O]ÏÀ9„¦‰vÒ†mûYÏÀ „ÊŠv´Ñrî:éžûxNºhæúÉ(ç®Ìjíjù»%O'¬0Mtþ82î´,ß³Lô·3e„ƒŒõ“]NF»®F­Ãh¨\x a…%2:ÈìúŒ*fpÕ®–rvì8GµËÍ›KXašŒ+Â;H¾¦Ú“#=wí…§V˜fÔ4ШrªµëTë§ÂhGµð'VX¢ÂÈJô·»L…TX·ÙeŽ »Ú•±Âi„`;:lxa…?xÊ8‰é¹s+w7ïî Nâlo p0PÑ/«+ða(MXJsÏÊù‘x÷çíÇÈ Pš°”&¬¥ +@in°ešèMmÑ›+|·Â×€g¶±ÚzŽ~àp÷mÑÃz`' KŒêT²¿0œÑùíÞIT¨³ïXÁ³+lmÇN+h¢åÜ…¡Q,úÛQíªlT»²Ë™¹½2öCžKXa‰jVÏߊ¦èÉýNtä©g™Q¡ð¤‘§ŒíÕSΨ‘ÈÊû!Ï%¬°Dµ“Ѩ«½jÓ[-õ™¹-výZ%{ýDCç©û!ûV SÆáI'îž+õ'¨¼~NÚÙ›°ÂÖîNÜÑ Â4Шr2ô¬çŒûŠFm÷ž'ÔVm÷–òOÝy.a…i2NjÕN”FV*¯ç åX?sÊ©vl²7/…J3²Bª§Ýô3*Ã_ +Lò~ÇN@¯×¿–2[Ê™ÙÆ»úŒZ?ÑrZÊd¾ëv¬°]ªÕ‡§VX D®ËGOš-Ëßuð£Ê.ßSNKu6õUÛFÕêÃÓ+lf÷“æŽõ5bt:£åÜ-?3eÔ'#4*3ú[KXaìé›h'Qíä[az+{«g™–@í¼[dÔ§¥œ¨ìõ­CT­£‘„Èèh{®ª«]AfL?õèéx¢íÊnKµ`zjûêà[þJXac;Þ‡±c+׳ZݪÕÎ ¬°™»«üž©“ž&:T¾ËSNíâs-ûv…§Ûv Üìîãk?{¿ÿy7~½ìºkE?Œ—=Üjo¢V—²?,ú,cs‚7Ø¥™"•åè%¬0MÏn{Êi)€º„–h ×Pr]¾ç·-ËGë @.a…cD {VX¢e*'8®ËGƒ‹pP—°ÂÙá \LÔåÑe¶ó{°ð性0²ÂvîFMZ–ïY€5„¦ÉBÀùL¥ +@i¦˜fÔl£ËTÀÞ„–˜ùÚ]¨KXakwƃÍçVX¢ç‘ãŒ)#(u +,1*´„o°Ø›°Âv2îw .a¾ 4• +L33çðR8 4a(Í4ÓŒzƒmÏ;TLìGXa‰QOôd?-ܬ'¬°µž—Ë°a…%zBF4|Ì¡`a¾ :• +Lã ¶|…—Â¥ +@i¦˜fÔl£eš*Ø›°Â=/v‹>Ô²¼G—ê2 ”fd…%z¦oîFY¢åD—` a…%zÂi €g1 ”fd…í˜xa…i¼Á€¯0 ”&¬¥ +@i Pš°”æi ‡‹~\f3²”fdå!¼€]YJV€Ò„ 4÷¬ÆÓ=œÆÈ Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i Pš°”&¬¥ +@i PÚ¯c‹{¿ßï÷{u£€sY€‹Ïÿ÷«+HÄ÷ïžÅÚÉ뵺ļ^Ž°}ØV{y½>;'~t¹Å÷ï_¼ù·ß^¯Y'øk=£·ç·Õ\kß²å¢ËW«ÿYZö¼S×ɵíuÛÝ'÷>›œ¦eÛõƒ¶õO ÂÊU厼rÝV¹ëø­©J¢ôú´GŽ»Õ®ÇH4ˆÜ-ïüw‹ÃJèèEËòw£>Ñò{êYÙ݉2zž”£åd\­ž;*3óê°åÄÝSŸS·QLϱ3ªœè9áÜ6³-ÙÇrK9wÇxïèÑâ°Ò2%t×Á_ÿý.DƒÂÝo[ôüÝ'5ÔRN40í8½u¯çÊïÏ-þ÷e¢Ë÷,3òÄWS…ppnh8UöHOO9£–ùömyXÕ‘ óUî°3Fzö”2²ë3ªüý¶é¨ÐPùØ$Ó¨í>ªœ–ýv“‘•QF¬¬ª'kurϘÿ>iýì!{šu”»ºEGFÏ=Î Ð=å‘ͲàÑåQOͼgå®Ñöf”ŒG—3¦K²çËW••zΞŸn)'{:©§]Qã]θ·£Ú±ÓÓÞùÝi…{DV•sWæ×ÃÙç.{ÏÊQ¼ge/§^KžË{Vvb[íåó°â«Ë°‹ÿ³wí')ì%tEXtcreate-date2010-04-02T01:42:20+02:00öÙG%tEXtmodify-date2010-04-02T01:42:20+02:00©­¯sIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/charset.png0000644000175000001440000000240011725741457020660 0ustar joergusers‰PNG  IHDRrðÂÙ¤z pHYsHHFÉk> vpAgrðáóûÊ;IDATxÚíܱm0AÙ5©ÿ T”c¢Äü™ˆ  þñþäëÓ¸Ýëõ?ï<ŸöØc=Ìôýé¿+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXÒ\°å°ÚeL{ì±gÎnágH+@šXÒÄ &V€4±¤‰ M¬ibHsÁ–Ú%J{ì±gÎXùYÒÄ &V€4±¤‰ M¬ibH+@šXàÏš@¿úWF%tEXtcreate-date2010-04-11T00:55:56+02:00Ï£‡é%tEXtmodify-date2010-04-11T00:55:56+02:00ñÝIEND®B`‚SOURCE_142/SOURCE_system/libmio/tools/fractal3.png0000644000175000001440000000711611725741457020737 0ustar joergusers‰PNG  IHDRrîûÇ‘ pHYsHHFÉk> vpAgrî5²Ä ‰IDATxÚíÝ]²ã¸ ÐéÔ,Iû_A/*OIݶØ ó”ÎyËÄ–(]Ùfákÿüü߯Õ€k¿ÿþýû÷êQ<ÝqŒ<ößþŸÕðŽÉ PÚ¿«ð­s@pïJI»œ«ÚÙàÈÏùRYJ3YJÛ,šÙ²¶Eÿ õE~©¾ŠTV€ÒLV€Ò6‹Îý/ãâ’™çŠtúô:{î8:Èù¾‡He(Íd(m³èž³œ} ©¬¥™¬¥‰JÈuèD"ž^]E£½økýdEØÊ PšÉ Pšh\¤Ò«¯gíÙŸÌýZeæ9Á*+@i&+@i›Å@‘N–^ÅÌsÓkG¡j×5Ós¯œÏõzZÄIð“Ê PšÉ PÚ¯Õ€k=ìÕ×ãØ×ûl ²”f²”¶Y7üˆgó"ŒÜ™F>a}ŽùˆŠØ‘Ê PšÉ PÚe7’áÞvüë tö·ò¹;ŸûüDE¾×²ïwe+?~ M7°1“ 4Ý@,&ôÙM­8`äh^Ý«×&ûÄG®uÔ§)ŠA/*+@i&+@ib [©V–ñì¦Ú4j|‘ç²u®s0ÔçÈý>'ó¢" Ð1“Ê PšÉ Pšhck ¬"žÝìWÏîà“{2Ïï굃ÐuWÑ9.ùéC]]ik4û=™Ì§²”f²”&"Dè³›ýJë3—wË!3ã›yQÍü³½žÉrs\SYJ3YJmcfaTèSÛŠäý–w»î¾i…×Oxì5çs †¾%âLe(Íd(í×Õ ”ßÖw×E<»¹Ã'pfèY–- õYÒ,ó‰ëõÍ;òÓ^ë›ÄoÕîŽãݯ“Ê PšÉ Pšn ›úìf¿RöȈ'r¶X0ôç«Ž£d>+¹1gîF.æÙÕ³²cèLѽ©¬¥™¬¥é*an!UîðYŠ\C¿çðúl±ñŒã¨ëèÓ‰”ÓïÞÔúFò{V™n `c&+@ib r÷XèSÛ~Ÿœ¹Oæüýs[íÏ+‰í(´rq¹>£ùæ}cø…«C lÌd(M ´€ÐgÕ?ýž±qý8™«ˆŒ0fÍû—)@×t"FíX“]®½¸œ…ÚxýA󩬥™¬¥‰:‹•ÍùIÄó½ÌÒƒí.ŒÏÓ©±¿ì>ü`h4• 4“ 41Z–­µ»Éù}w-\÷‰ÉŽ#Öt×»È;‘Ý‚^ßÓzz®»Â²áˆeâžNe(Íd(M ÔÙžeôyÿj=ÓµÒz_ë83û®‹Û3ŸƒHœ[¸ÍònüóÏßv z †t»¼£?¨/• 4“ 41ÐWêý õ•eÆ™çŽDE‘°¦×¹"£iùú5½‚³va?3"žêz1ÀÌ',û-ZïÛ—‘TV€ÒLV€ÒÄ@©õ/É{¦W·I»(|ÝÑé<ÊuÈĺoZ£~÷¿?¹úÜ« +G¾¾¢Ö75©¬¥™¬¥ýºzÝ{½ÊèÕïò¸ñÅ‘Öû®ÞÕ^*-S„ŽÅ7Ÿ¨W,íúÐÓëg'ò<÷ê’ëù¾uü¾þôþ;Je(Íd(M7ÐÕ }«sy®È2h™ÅÞsÕÙë)z-ŸGÜÚ¥EèC¹ ^©¬¥™¬¥‰º«^ä\=¾Üù¯#V’]έ’X“%à˜ïõÉ<Žj»“yâïCe(Íd(M tsk;}ÎqEtù²Ï¯ãI‹žÅ‚¡§Ü Öhõ©_å)¤• 4“ 41ЗV÷Ö|>š~ñÀùl#wuä;ÐÁ|‘o{ßÐ‹Ê PšÉ Pš¨³QKžµKý™½fÆ]Gd„±²pn«ùçFOê„bëÞ>O!£¨¬¥™¬¥‰¾2²û&²È×õù«õç´—ÊKÁFúó»#¶Œ¢²”f²”&úJ,˜éÕYs>ßq\»]ªì,ÑyƒøÌ=æiíéãS¹F¶_ò‰TV€ÒLV€ÒÄ@_‰ìr½.‘@)Û Ô£‹è8^ –‘E᢯ƈ.!(ŽO觲”f²”&úJ$äˆúbEÙÈ2q™#·ÏÖï.½?îqäö'ÁH¯½~çhZ„Á<*+@i&+@ib ÎÆ­#gʲ±°$Ó-Њj®£«\¼eq¹ŸÚË|¹Côõù¢”Ð‹Ê PšÉ PšèK±Ý*fÜ2D‘%à²g\c®«¾ç^9ëDv³÷ ½¨¬¥™¬¥‰nnfLÕkù»Ø¢p‘÷Ýuá¸H>Ûe1íŽ3!c¨¬¥™¬¥‰º«^]=¾ÜæôÏÝ-¨½àÛ3®Ú^ŸÌÕO¡'þÎTV€ÒLV€ÒÄ@ä‚{ŽofJlÇœ\S¬à}Õ ·²{BÙ-ˆ j…àìKe(Íd(í×Õ ìäðÎÜý^ë/Ñk4±;v˜´¦?_•ë¬Éý•cWvù»^Ç Ñ×çQgd‰Ã˜êO³_Ó÷ÞGÕ*+@i&+@iº6R««¨×âr½úƒÚï¹S¬¨ÏµÆÊÝ‘NŸÜu1Z&ô• 4“ 41ÐWê•Õ{õ’Œ:÷¸ÅåZãéÕe0³£áêL±»Ñ^üÎC|#Q^»kï}©¬¥™¬¥‰:›¹÷M?½F˜Ùe§u”ëH¥uœ•÷yíb€­8'»$]ý§•ñZ¡áù5¯ÿų󓾧¾TV€ÒLV€ÒÄ@tÔ§)ÛU´_Ñ5ºdîGû=¯ÿ5åFÄN"b¯ÎÝv#—€óÌ=Ê PšÉ PÚ¯«øÍßÒqÑCn/žÕ£î¡ßÓr½¤W¶_È3þ Ÿ?A±Å#ç®þ<ù¥üÞq¼ûÞPYJ3YJÓ ´Àž Ç­Õ¯#æÓ£¬Öïi9÷å‚¡Öx<¿<‰Ðg>• 4“ 41·‘]Lîó£dŽÛÏÌqìuÙ]¦¿Ì²~ç€Zïˆõ]¹Gï󩬥™¬¥YnÈÕ_1ËÊç{æ¹#EüÜ2q­sõyWkÔzé®\ßëQ{úÄþZ±#¾KŸð+8‡Eမ¬¥‰ÈÝQÅîuj}z&±ô ²×:r÷™1»0eúsƾëÓ+ˆÞ/¡ß3YJ³(\ê±ÖÈÑœEÆ뫹.ìÇîEæŽEº“²ã«þyäã÷¼ŒêŒŠ=cw}Ø…Ê PšÉ Pšn ôÝÑ~ŸœÕËæ–3‹tÉÔÓ£c(vžQÏaö×úÛø…«C7°1“ 41P ã–ù¢’;|–æFE™`¨5ž‘cu×ã«ñŒ«‘¸$Ò3[¯Ïõg»ý®Fœ3ò¡Ö·_¯½ˆ€™¬¥‰Šw×C»¹Ã'pdT” †ú-.ù†\¹˜›Ð‡]ˆ€™¬¥‰¶1óï *ªíŸÉ™ÁP4ôéq±ÅÝútúÌý”®üNð;ôb `c&+@ib  †ø»ý>·Õ‚¡È²q±¥å®£¡Q=EyBf3YJûwõØC¿T˜#FÔ2rįÇ>ŽÌ±[Ÿ‚ywc$¡Õ©¬¥™¬¥éº•j+QÑnª=A}ÆëÐÉœ+÷|ÇŽgÞÙü~§Ø˜É Pšn [©Ö[êJTTGäo±ò™êõ„g#žëû³zy7÷¤²”f²”&b1ËÍí¦VT4s)¹çD',0x00,0x00,0x00,0x00,0xec,0x00 ;scancode 60-67 .db 0x00, '1',0x00, '4', '7',0x00,0x00,0x00 ;scancode 68-6f .db '0',0xe9, '2', '5', '6', '8',0xed,0xc3 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0xc4,0x00 ;scancode 78-7f ;extended table .db 'D',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc1 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 40-47 .db 0x00,0x00, '/',0x00,0x00,0x00,0x00,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0xea,0x00,0x00,0x00,0xc2,0x00 ;scancode 58-5f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xe8,0xe9,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f ;alt table .db 'E',0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 00-07 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 08-0f .db 0x00,0x00,0x00,0x00,0x00, '@',0x00,0x00 ;scancode 10-17 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 18-1f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 20-27 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 28-2f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 30-37 .db 0x00,0x00,0x00,0x00,0x00,0x7b,0x5b,0x00 ;scancode 38-3f .db 0x00,0x00,0x00,0x00,0x00,0x7d,0x5d,0x00 ;scancode 40-47 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x5c,0x00 ;scancode 48-4f .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 50-57 .db 0x00,0x00,0x00,0x7e,0x00,0x00,0x00,0x00 ;scancode 58-5f .db 0x00,0x7c,0x00,0x00,0x00,0x00,0x00,0x00 ;scancode 60-67 .db 0x00,0xe1,0x00,0xe2,0xe0,0x00,0x00,0x00 ;scancode 68-6f .db 0xef,0xee,0xe5,0x00,0xe3,0xe4,0xed,0xc3 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0xc4,0x00 ;scancode 78-7f SOURCE_142/SOURCE_system/libmio/circle.asm0000755000175000001440000000663211725741457017342 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# circles # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;circle routines ;libmio_costab = cosinus table 255->0 256 values ;------------------------------------------------------------------------------ .ifdef use_libmio_circle libmio_circle: push_regs ldi tempreg2,0x00 ;init oldvalues ldi tempreg3,0x00 ldi ZH,HIGH(libmio_costab*2) clr ZL lds YL,libmio_bcdx ;rx andi YL,0x7f ;limit to 127 lds YH,libmio_bcdy ;ry andi YH,0x7f ;limit to 127 libmio_ci_10: lpm tempreg1,Z ;cos mul tempreg1,YL ;*rx mov XL,r1 ;new x offset com ZL lpm tempreg1,Z ;sin com ZL mul tempreg1,YH ;*ry mov XH,r1 ;new y offset cp XL,tempreg2 ;new X? brne libmio_ci_12 ;yes cp XH,tempreg3 ;new Y? brne libmio_ci_12 ;yes inc ZL ;loop counter brne libmio_ci_10 ;loop rjmp libmio_ci_14 ;end libmio_ci_12: mov tempreg2,XL ;set oldvalues mov tempreg3,XH lds XL,libmio_bcsrcx ;X0 lds XH,libmio_bcsrcy ;Y0 add XL,tempreg2 add XH,tempreg3 call libmio_plot ;plot sub XH,tempreg3 sub XH,tempreg3 call libmio_plot sub XL,tempreg2 sub XL,tempreg2 call libmio_plot add XH,tempreg3 add XH,tempreg3 call libmio_plot inc ZL ;loop counter brne libmio_ci_10 ;loop libmio_ci_14: pop_regs libmio_fcircle: push_regs ldi tempreg3,0xff ;init oldvalue Y ldi ZH,HIGH(libmio_costab*2) clr ZL lds YL,libmio_bcdx ;rx andi YL,0x7f ;limit to 127 lds YH,libmio_bcdy ;ry andi YH,0x7f ;limit to 127 libmio_fci_10: lpm tempreg1,Z ;X mul tempreg1,YL ;*rx mov XL,r1 ;new x offset com ZL lpm tempreg1,Z ;X com ZL mul tempreg1,YH ;*ry mov XH,r1 ;new y offset cp XH,tempreg3 ;new Y? brne libmio_fci_12 ;yes inc ZL ;loop counter brne libmio_fci_10 ;loop rjmp libmio_ci_14 ;end libmio_fci_12: mov tempreg2,XL ;set oldvalue X mov tempreg3,XH ;set oldvalue y lds XL,libmio_bcsrcx ;X0 lds XH,libmio_bcsrcy ;y0 mov tempreg4,XL ;copy x0 sub XH,tempreg3 ;line Y sub XL,tempreg2 ;start X add tempreg4,tempreg2 ;end X libmio_fci_14: call libmio_plot ;set pix add XH,tempreg3 add XH,tempreg3 call libmio_plot ;set pix sub XH,tempreg3 ;line Y sub XH,tempreg3 ;line Y inc XL cp tempreg4,XL brcc libmio_fci_14 inc ZL ;loop counter brne libmio_fci_10 ;loop rjmp libmio_ci_14 .endifSOURCE_142/SOURCE_system/libmio/vidm_tvc.asm0000755000175000001440000000661611725741457017716 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video mode 0 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ libmio_tvc_e: jmp libmio_is_15 ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -256 characters are in table 6x10px each ;------------------------------------------------------------------------------- libmio_tvc: mov XL,vline_l ;pos cpi XL,5 ;ignore <5 brcs libmio_tvc_e ; lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high movw YL,XL ;2 copy values ldi ZL,LOW(690) ;1 offset color table ldi ZH,HIGH(690) ;1 add YL,ZL ;1 adc YH,ZH ;1 libmio_tvc_0: ldi ZH,HIGH(libmio_ctable*2);start chartable lds ZL,libmio_cline ;2 character line add ZH,ZL ;1 push tempreg4 push tempreg5 ldi ZL,30 ;1 number of chars mov tempreg5,ZL ;1 set loop counter ld tempreg3,Y+ ;2 get color ld ZL,X+ ;2 get char lpm tempreg2,Z ;3 get pixline mov tempreg4,tempreg3 ;1 swap tempreg4 ;1 eor tempreg4,tempreg3 ;1 sbrc tempreg2,7 ;1 eor tempreg3,tempreg4 ;1 libmio_tvc_1: out PORTC,tempreg3 ;1 output P0 ld ZL,X+ ;2 get char nop ;1 filling sbrc tempreg2,6 ;1 skip if no change out PINC,tempreg4 ;1 output P1 lpm r0,Z ;3 get pixline sbrc tempreg2,5 ;1 skip if no change out PINC,tempreg4 ;1 output P2 ld tempreg3,Y+ ;2 get color mov r1,tempreg3 ;1 copy color sbrc tempreg2,4 ;1 skip if no change out PINC,tempreg4 ;1 output P3 ; nop ;1 filling swap r1 ;1 swap fg/hg eor r1,tempreg3 ;1 calc diffenece sbrc tempreg2,3 ;1 skip if no change out PINC,tempreg4 ;1 output P4 sbrc r0,7 ;1 check next P0 eor tempreg3,r1 ;1 change color dec tempreg5 ;1 loop counter sbrc tempreg2,2 ;1 skip if no change out PINC,tempreg4 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline mov tempreg4,r1 ;1 prepare next colordiff brne libmio_tvc_1 ;2 do loop lds tempreg3,libmio_border ;2 get border out PORTC,tempreg3 ;set pop tempreg5 pop tempreg4 ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,10 ;1 check brne libmio_tvc_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvc_2: sts libmio_cline,ZH ;2 new character line jmp libmio_is_15 SOURCE_142/SOURCE_system/libmio/xmodem.asm0000755000175000001440000000625211725741457017370 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# xmodem library # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------------- ; read XMODEM block, tempreg3=blocknum, Y=address ;----------------------------------------------------------------------------- libmio_rxbl_eo: set rjmp libmio_rxbl_13 libmio_rxbl: push tempreg1 push tempreg2 push tempreg4 libmio_rxbl_lo: rcall libmio_gserb ;get char cpi tempreg1,0x1b ;ESC brne libmio_rxbl_0 ;no ldi ereg,1 ;break rjmp libmio_rxbl_03 ;end libmio_rxbl_0: cpi tempreg1,0x04 ;EOT breq libmio_rxbl_eo ;end cpi tempreg1,0x01 ;SOH brne libmio_rxbl_lo ;end with error rcall libmio_gser ;next char=block num mov tempreg3,tempreg1 rcall libmio_gser ;next char=inv block num com tempreg1 cp tempreg3,tempreg1 breq libmio_rxbl_01 ;OK libmio_rxbl_00: ldi ereg,36 ;error rjmp libmio_rxbl_03 ;end libmio_rxbl_01: ldi tempreg4,128 ;num of bytes clr tempreg2 ;checksum libmio_rxbl_02: rcall libmio_gser ;get data byte add tempreg2,tempreg1 st Y+,tempreg1 dec tempreg4 brne libmio_rxbl_02 rcall libmio_gser ;get checksum byte cp tempreg1,tempreg2 ;OK brne libmio_rxbl_04 clt ;was data block libmio_rxbl_13: clr ereg ;OK libmio_rxbl_03: pop tempreg4 pop tempreg2 pop tempreg1 ret libmio_rxbl_04: ldi ereg,41 ;checksum error rjmp libmio_rxbl_03 ;----------------------------------------------------------------------------- ; write XMODEM block, tempreg3=blocknum, Y=address ;----------------------------------------------------------------------------- libmio_txbl: push tempreg1 push tempreg2 push tempreg4 ldi tempreg1,0x01 ;SOH rcall libmio_pser ;out mov tempreg1,tempreg3 rcall libmio_pser ;blocknum com tempreg1 rcall libmio_pser ;inv. blocknum libmio_txbl_01: ldi tempreg4,128 ;num of bytes clr tempreg2 ;checksum libmio_txbl_02: ld tempreg1,Y+ add tempreg2,tempreg1 rcall libmio_pser ;get data byte dec tempreg4 brne libmio_txbl_02 mov tempreg1,tempreg2 ;copy checksum rcall libmio_pser ;out checksum byte libmio_txbl_03: rjmp libmio_rxbl_03 SOURCE_142/SOURCE_system/libmio/macros.asm0000755000175000001440000001652111725741457017363 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega 644 # ;# macro definitions # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libmio_vint jmp libmio_aisr .endm .macro libmio_bint jmp libmio_bisr .endm .macro libmio_init call libmio_init .endm .macro libmio_outchar call libmio_char .endm .macro libmio_outcomma call libmio_comma .endm .macro libmio_outspace call libmio_space .endm .macro libmio_waitkey .set use_libmio_waitkey = 1 .set libmio_ps2key = 1 call libmio_waitkey .endm .macro libmio_nokey .set use_libmio_nokey = 1 .set libmio_ps2key = 1 call libmio_nokey .endm .macro libmio_cursor .set use_libmio_cursor = 1 .set libmio_ps2key = 1 call libmio_cursor .endm .macro libmio_ecursor .set use_libmio_ecursor = 1 .set use_libmio_editor_mode = 1 .set libmio_ps2key = 1 call libmio_ecursor .endm .macro libmio_ncursor .set use_libmio_ncursor = 1 .set use_libmio_editor_mode = 1 .set libmio_ps2key = 1 call libmio_ncursor .endm .macro libmio_freecur .set use_libmio_cursor = 1 .set libmio_ps2key = 1 call libmio_cur1 .endm .macro libmio_outdez .set use_libmio_outd = 1 call libmio_outd .endm .macro libmio_outhex .set use_libmio_outh = 1 call libmio_outh .endm .macro libmio_clrscr call libmio_clr .endm .macro libmio_fillchar call libmio_fill .endm .macro libmio_ramtext .set use_libmio_oram = 1 call libmio_oram .endm .macro libmio_romtext call libmio_orom .endm .macro libmio_thistext .set use_libmio_othis = 1 .set use_libmio_gotoxy = 1 call libmio_othis .endm .macro libmio_mtext .set use_libmio_mtext = 1 call libmio_mtext .endm .macro libmio_newline .set use_libmio_newline = 1 call libmio_newline .endm .macro libmio_gotoxy .set use_libmio_gotoxy = 1 call libmio_gxy .endm .macro libmio_plot .set use_libmio_plot = 1 call libmio_plot .endm .macro libmio_box .set use_libmio_plot = 1 .set use_libmio_box = 1 call libmio_box .endm .macro libmio_cbox .set use_libmio_cbox = 1 clt call libmio_cbox .endm .macro libmio_ibox .set use_libmio_cbox = 1 set call libmio_cbox .endm .macro libmio_wbox .set use_libmio_wbox = 1 call libmio_wbox .endm .macro libmio_whbox .set use_libmio_wbox = 1 .set use_libmio_whbox = 1 call libmio_whbox .endm .macro libmio_wh2box .set use_libmio_wbox = 1 .set use_libmio_whbox = 1 call libmio_wh2box .endm .macro libmio_fbox .set use_libmio_plot = 1 .set use_libmio_fbox = 1 call libmio_fbox .endm .macro libmio_circle .set use_libmio_circle = 1 call libmio_circle .endm .macro libmio_fcircle .set use_libmio_circle = 1 call libmio_fcircle .endm .macro libmio_draw .set use_libmio_plot = 1 .set use_libmio_draw = 1 call libmio_draw .endm .macro libmio_sync .set use_libmio_sync = 1 call libmio_sync .endm .macro libmio_note .set use_libmio_note = 1 call libmio_note .endm .macro libmio_calc call libmio_calc .endm .macro libmio_ecalc call libmio_ecalc .endm .macro libmio_pser .set use_libmio_serial = 1 .set use_libmio_pser = 1 call libmio_pser .endm .macro libmio_gser .set use_libmio_serial = 1 .set use_libmio_gser = 1 call libmio_gser .endm .macro libmio_gserb .set use_libmio_serial = 1 .set use_libmio_gser = 1 call libmio_gserb .endm .macro libmio_pser2 .set use_libmio_serial2 = 1 .set use_libmio_pser2 = 1 call libmio_pser2 .endm .macro libmio_gser2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_gser .endm .macro libmio_gserb2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_gserb2 .endm .macro libmio_baud2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_baud2 .endm .macro libmio_ppar .set use_libmio_ppar = 1 call libmio_ppar .endm .macro libmio_setcolor call libmio_setcol .endm .macro libmio_setdrawcolor call libmio_setfgc .endm .macro libmio_setpalette call libmio_setpal .endm .macro libmio_setborder call libmio_setbrd .endm .macro libmio_screenshot .set use_libmio_screenshot = 1 call libmio_scrs .endm .macro libmio_chpump .set use_libmio_chp = 1 call libmio_chp .endm .macro libmio_cconv .set use_libmio_cconv = 1 call libmio_cconv .endm .macro libmio_pconv .set use_libmio_pconv = 1 call libmio_pconv .endm .macro libmio_gchar .set use_libmio_gchar = 1 call libmio_pconv .endm .macro libmio_vcur .set use_libmio_vcur = 1 call libmio_vcur .endm .macro libmio_sprite .set use_libmio_sprites = 1 call libmio_sprite .endm .macro libmio_alert call libmio_abox1 .endm .macro libmio_ask call libmio_ynbox1 .endm .macro libmio_alertthis call libmio_abox .endm .macro libmio_askthis call libmio_ynbox .endm .macro libmio_nmode .set use_libmio_dmode = 1 call libmio_nmode .endm .macro libmio_setvmode call libmio_svmode .endm .macro libmio_random .set use_libmio_psrg = 1 call libmio_psrg .endm .macro libmio_setpal .set use_libmio_setpal = 1 call libmio_setpal .endm .macro libmio_bcopy .set use_libmio_bcopy = 1 call libmio_bcopy .endm .macro libmio_scroll .set use_libmio_scroll = 1 call libmio_scrl .endm .macro libmio_emode .set use_libmio_dmode = 1 .set use_libmio_editor_mode = 1 call libmio_emode .endm .macro libmio_menu call libmio_menu .endm .macro libmio_drawmenu call libmio_domenu .endm .macro libmio_sysconf call libmio_setconf .endm .macro libmio_sendx call libmio_txbl .endm .macro libmio_recvx call libmio_rxbl .endm .macro libmio_clearvector call libmio_cvec .endm .macro libmio_clearvtext call libmio_ctvec .endm .macro libmio_setvolume call libmio_setvol .endm .macro libmio_setmvolume call libmio_setvol .endm .macro libmio_slow call libmio_vidon .endm .macro libmio_fast call libmio_vidoff .endm .macro libmio_channel call libmio_setchan .endm .macro libmio_startseq call libmio_startsq .endm .macro libmio_stopseq call libmio_stopsq .endm .macro libmio_endseq call libmio_endsq .endm .macro libmio_copychar4 call libmio_cpbits4 .endm .macro libmio_copychar6 call libmio_cpbits6 .endm .macro libmio_waityesno call libmio_waityn .endm SOURCE_142/SOURCE_system/libmio/soundtables.inc0000755000175000001440000001027711725741457020415 0ustar joerguserslibmio_wtable1: .db 0x0c,0x11,0x16,0x1a,0x1e,0x22,0x25,0x28,0x2b,0x2d,0x2f,0x31,0x32,0x33,0x33,0x34 .db 0x34,0x34,0x34,0x34,0x34,0x34,0x34,0x34,0x35,0x35,0x36,0x37,0x38,0x39,0x3b,0x3c .db 0x3e,0x40,0x43,0x45,0x47,0x49,0x4b,0x4d,0x4f,0x51,0x52,0x53,0x54,0x54,0x54,0x54 .db 0x54,0x53,0x51,0x50,0x4e,0x4c,0x4a,0x47,0x45,0x42,0x3f,0x3d,0x3a,0x38,0x36,0x34 .db 0x32,0x31,0x30,0x2f,0x2e,0x2e,0x2e,0x2f,0x30,0x31,0x32,0x33,0x35,0x36,0x38,0x3a .db 0x3c,0x3e,0x40,0x42,0x44,0x46,0x47,0x49,0x4a,0x4b,0x4d,0x4e,0x4e,0x4f,0x50,0x50 .db 0x50,0x50,0x50,0x50,0x50,0x50,0x4f,0x4e,0x4d,0x4c,0x4b,0x49,0x48,0x46,0x43,0x41 .db 0x3e,0x3b,0x37,0x33,0x2f,0x2b,0x27,0x22,0x1d,0x18,0x13,0x0d,0x08,0x02,0xfd,0xf8 .db 0xf3,0xee,0xe9,0xe5,0xe1,0xdd,0xda,0xd7,0xd4,0xd2,0xd0,0xce,0xcd,0xcc,0xcc,0xcb .db 0xcb,0xcb,0xcb,0xcb,0xcb,0xcb,0xcb,0xcb,0xca,0xca,0xc9,0xc8,0xc7,0xc6,0xc4,0xc3 .db 0xc1,0xbf,0xbc,0xba,0xb8,0xb6,0xb4,0xb2,0xb0,0xae,0xad,0xac,0xab,0xab,0xab,0xab .db 0xab,0xac,0xae,0xaf,0xb1,0xb3,0xb5,0xb8,0xba,0xbd,0xc0,0xc2,0xc5,0xc7,0xc9,0xcb .db 0xcd,0xce,0xcf,0xd0,0xd1,0xd1,0xd1,0xd0,0xcf,0xce,0xcd,0xcc,0xca,0xc9,0xc7,0xc5 .db 0xc3,0xc1,0xbf,0xbd,0xbb,0xb9,0xb8,0xb6,0xb5,0xb4,0xb2,0xb1,0xb1,0xb0,0xaf,0xaf .db 0xaf,0xaf,0xaf,0xaf,0xaf,0xaf,0xb0,0xb1,0xb2,0xb3,0xb4,0xb6,0xb7,0xb9,0xbc,0xbe .db 0xc1,0xc4,0xc8,0xcc,0xd0,0xd4,0xd8,0xdd,0xe2,0xe7,0xec,0xf2,0xf7,0xfd,0x02,0x07 libmio_wtable2: .db 0x00,0x0a,0x14,0x1d,0x27,0x2f,0x38,0x3f,0x46,0x4b,0x50,0x54,0x57,0x59,0x59,0x59 .db 0x58,0x56,0x54,0x50,0x4c,0x48,0x43,0x3e,0x39,0x33,0x2e,0x29,0x25,0x20,0x1c,0x19 .db 0x16,0x14,0x12,0x11,0x11,0x11,0x12,0x13,0x15,0x17,0x19,0x1c,0x1f,0x22,0x25,0x27 .db 0x2a,0x2c,0x2e,0x30,0x31,0x32,0x32,0x32,0x32,0x31,0x2f,0x2d,0x2b,0x28,0x25,0x22 .db 0x1f,0x1c,0x19,0x16,0x13,0x11,0x0f,0x0d,0x0c,0x0b,0x0a,0x0a,0x0a,0x0b,0x0c,0x0e .db 0x10,0x12,0x14,0x16,0x18,0x1a,0x1c,0x1e,0x1f,0x20,0x20,0x20,0x1f,0x1e,0x1c,0x19 .db 0x16,0x12,0x0d,0x08,0x03,0xfd,0xf7,0xf0,0xea,0xe3,0xdd,0xd6,0xd1,0xcb,0xc6,0xc2 .db 0xbf,0xbd,0xbb,0xba,0xbb,0xbc,0xbe,0xc2,0xc6,0xcb,0xd1,0xd7,0xdf,0xe6,0xef,0xf7 .db 0x00,0x08,0x10,0x19,0x20,0x28,0x2e,0x34,0x39,0x3d,0x41,0x43,0x44,0x45,0x44,0x42 .db 0x40,0x3d,0x39,0x34,0x2e,0x29,0x22,0x1c,0x15,0x0f,0x08,0x02,0xfc,0xf7,0xf2,0xed .db 0xe9,0xe6,0xe3,0xe1,0xe0,0xdf,0xdf,0xdf,0xe0,0xe1,0xe3,0xe5,0xe7,0xe9,0xeb,0xed .db 0xef,0xf1,0xf3,0xf4,0xf5,0xf5,0xf5,0xf4,0xf3,0xf2,0xf0,0xee,0xec,0xe9,0xe6,0xe3 .db 0xe0,0xdd,0xda,0xd7,0xd4,0xd2,0xd0,0xce,0xcd,0xcd,0xcd,0xcd,0xce,0xcf,0xd1,0xd3 .db 0xd5,0xd8,0xda,0xdd,0xe0,0xe3,0xe6,0xe8,0xea,0xec,0xed,0xee,0xee,0xee,0xed,0xeb .db 0xe9,0xe6,0xe3,0xdf,0xda,0xd6,0xd1,0xcc,0xc6,0xc1,0xbc,0xb7,0xb3,0xaf,0xab,0xa9 .db 0xa7,0xa6,0xa6,0xa6,0xa8,0xab,0xaf,0xb4,0xb9,0xc0,0xc7,0xd0,0xd8,0xe2,0xeb,0xf5 libmio_etable: .db 0x80,0x67,0x53,0x42,0x35,0x2b,0x22,0x1c,0x16,0x12,0x0e,0x0c,0x09,0x07,0x06,0x05 .db 0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x80,0x7e,0x7b,0x79,0x77,0x75,0x72,0x70,0x6e,0x6c,0x6a,0x68,0x66,0x64,0x63,0x61 .db 0x5f,0x5d,0x5c,0x5a,0x58,0x57,0x55,0x53,0x52,0x50,0x4f,0x4d,0x4c,0x4b,0x49,0x48 .db 0x47,0x45,0x44,0x43,0x41,0x40,0x3f,0x3e,0x3d,0x3c,0x3b,0x39,0x38,0x37,0x36,0x35 .db 0x34,0x33,0x32,0x32,0x31,0x30,0x2f,0x2e,0x2d,0x2c,0x2b,0x2b,0x2a,0x29,0x28,0x28 .db 0x27,0x26,0x25,0x25,0x24,0x23,0x23,0x22,0x22,0x21,0x20,0x20,0x1f,0x1f,0x1e,0x1d .db 0x1d,0x1c,0x1c,0x1b,0x1b,0x1a,0x1a,0x19,0x19,0x18,0x18,0x18,0x17,0x17,0x16,0x00 libmio_ntable: .db 0x89,0x00,0x91,0x00,0x9a,0x00,0xa3,0x00,0xad,0x00,0xb7,0x00,0xc2,0x00,0xce,0x00 .db 0xda,0x00,0xe7,0x00,0xf4,0x00,0x03,0x01,0x12,0x01,0x23,0x01,0x34,0x01,0x46,0x01 .db 0x5a,0x01,0x6e,0x01,0x84,0x01,0x9b,0x01,0xb3,0x01,0xcd,0x01,0xe9,0x01,0x06,0x02 .db 0x25,0x02,0x45,0x02,0x68,0x02,0x8c,0x02,0xb3,0x02,0xdc,0x02,0x08,0x03,0x36,0x03 .db 0x67,0x03,0x9b,0x03,0xd2,0x03,0x0c,0x04,0x49,0x04,0x8b,0x04,0xd0,0x04,0x19,0x05 .db 0x67,0x05,0xb9,0x05,0x10,0x06,0x6c,0x06,0xce,0x06,0x35,0x07,0xa3,0x07,0x17,0x08 .db 0x93,0x08,0x15,0x09,0x9f,0x09,0x32,0x0a,0xcd,0x0a,0x72,0x0b,0x20,0x0c,0xd8,0x0c .db 0x9c,0x0d,0x6b,0x0e,0x46,0x0f,0x2f,0x10,0x25,0x11,0x2a,0x12,0x3f,0x13,0x64,0x14SOURCE_142/SOURCE_system/libmio/costab.inc0000755000175000001440000000471511725741457017345 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# cosinus table for circle drawing # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfe,0xfe,0xfe,0xfe .db 0xfe,0xfe,0xfd,0xfd,0xfd,0xfd,0xfd,0xfc,0xfc,0xfc,0xfc,0xfb,0xfb,0xfb,0xfb,0xfa .db 0xfa,0xfa,0xf9,0xf9,0xf9,0xf8,0xf8,0xf8,0xf7,0xf7,0xf6,0xf6,0xf6,0xf5,0xf5,0xf4 .db 0xf4,0xf3,0xf3,0xf2,0xf2,0xf2,0xf1,0xf0,0xf0,0xef,0xef,0xee,0xee,0xed,0xed,0xec .db 0xeb,0xeb,0xea,0xea,0xe9,0xe8,0xe8,0xe7,0xe6,0xe6,0xe5,0xe4,0xe4,0xe3,0xe2,0xe1 .db 0xe1,0xe0,0xdf,0xde,0xde,0xdd,0xdc,0xdb,0xda,0xda,0xd9,0xd8,0xd7,0xd6,0xd5,0xd4 .db 0xd4,0xd3,0xd2,0xd1,0xd0,0xcf,0xce,0xcd,0xcc,0xcb,0xca,0xc9,0xc9,0xc8,0xc7,0xc6 .db 0xc5,0xc4,0xc3,0xc2,0xc1,0xbf,0xbe,0xbd,0xbc,0xbb,0xba,0xb9,0xb8,0xb7,0xb6,0xb5 .db 0xb4,0xb2,0xb1,0xb0,0xaf,0xae,0xad,0xac,0xaa,0xa9,0xa8,0xa7,0xa6,0xa5,0xa3,0xa2 .db 0xa1,0xa0,0x9e,0x9d,0x9c,0x9b,0x99,0x98,0x97,0x96,0x94,0x93,0x92,0x91,0x8f,0x8e .db 0x8d,0x8b,0x8a,0x89,0x87,0x86,0x85,0x83,0x82,0x81,0x7f,0x7e,0x7d,0x7b,0x7a,0x78 .db 0x77,0x76,0x74,0x73,0x71,0x70,0x6f,0x6d,0x6c,0x6a,0x69,0x67,0x66,0x65,0x63,0x62 .db 0x60,0x5f,0x5d,0x5c,0x5a,0x59,0x57,0x56,0x54,0x53,0x51,0x50,0x4e,0x4d,0x4b,0x4a .db 0x48,0x47,0x45,0x44,0x42,0x41,0x3f,0x3e,0x3c,0x3b,0x39,0x38,0x36,0x35,0x33,0x32 .db 0x30,0x2e,0x2d,0x2b,0x2a,0x28,0x27,0x25,0x24,0x22,0x20,0x1f,0x1d,0x1c,0x1a,0x19 .db 0x17,0x16,0x14,0x12,0x11,0x0f,0x0e,0x0c,0x0b,0x09,0x07,0x06,0x04,0x03,0x01,0x00 SOURCE_142/SOURCE_system/libmio/sq.asm0000755000175000001440000000143111725741457016514 0ustar joergusers;----------------------------------------------------------------------- ; set sequencer ; Y = start address ; Z = end address ; XL= speed ; XH= number of loops ;----------------------------------------------------------------------- libmio_startsq: push_ptr sts libmio_seqstat,const_0 ;stopp sequencer sts libmio_seqstat,XH ;set number of loops sts libmio_seqtick,const_1 ;at first we must read data sts libmio_seqcount,const_1 ;at first we must read data sts libmio_seql,YL sts libmio_seqal,YL sts libmio_seqh,YH sts libmio_seqah,YH sts libmio_seqbl,ZL sts libmio_seqbh,ZH libmio_ssq1: sts libmio_seqspeed,XL libmio_ssq2: sts libmio_seqstat,XH ;status=running pop_ptr libmio_setseq: push_ptr mov XH,XL rjmp libmio_ssq2 libmio_getseq: lds XL,libmio_seqstat ret SOURCE_142/SOURCE_system/libmio/copybits.asm0000755000175000001440000000373611725741457017737 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; copy char matrix in mode 6 ; tempreg1 = src char ; tempreg2 = dest char ; tempreg3 = color (nur bei mode 6) ;----------------------------------------------------------------------- libmio_cpbits6: push_regs ldi XL,LOW(libmio_vram+690) ldi XH,HIGH(libmio_vram+690) ldi tempreg1,30 andi tempreg2,0x3f mul tempreg1,tempreg2 add XL,r0 adc XH,r1 lds r0,libmio_color sts libmio_color,tempreg3 clr tempreg2 call libmio_copyti sts libmio_color,r0 pop_regs libmio_cpbits4: push_regs mov ZL,tempreg1 ;src char ldi ZH,HIGH(libmio_ctable*2) ldi XL,0x80 ;offset ldi XH,0x07 andi tempreg2,0x7f add XL,tempreg2 ldi tempreg2,0x0a ldi tempreg3,0x80 libmio_cpb4_1: lpm tempreg1,Z st X,tempreg1 inc ZH add XL,tempreg3 adc XH,const_0 dec tempreg2 brne bas_lobmio_cpb4_1 ret SOURCE_142/SOURCE_system/libmio/vidm_tvu.asm0000755000175000001440000000675111725741457017740 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video mode 4 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ libmio_tvu_e: rjmp libmio_is_15 ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -128 characters are in RAM table 6x10px each ;------------------------------------------------------------------------------- libmio_tvu: mov XL,vline_l cpi XL,5 brcs libmio_tvu_e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high movw YL,XL ;2 copy values ldi ZL,LOW(690) ;1 offset color table ldi ZH,HIGH(690) ;1 add YL,ZL ;1 adc YH,ZH ;1 libmio_tvu_0: ldi ZH,0x07 ;start chartable lds ZL,libmio_cline ;2 character line inc ZL ;1 bst ZL,0 ;1 get LSB lsr ZL ;1 /2 add ZH,ZL ;1 push tempreg4 push tempreg5 ldi ZL,30 ;1 number of chars mov tempreg5,ZL ;1 set loop counter ld tempreg3,Y+ ;2 get color ld ZL,X+ ;2 get char bld ZL,7 ;1 store LSB ld tempreg2,Z ;2 get pixline mov tempreg4,tempreg3 ;1 swap tempreg4 ;1 eor tempreg4,tempreg3 ;1 sbrc tempreg2,7 ;1 eor tempreg3,tempreg4 ;1 libmio_tvu_1: out PORTC,tempreg3 ;1 output P0 ld ZL,X+ ;2 get char bld ZL,7 ;1 store LSB sbrc tempreg2,6 ;1 skip if no change out PINC,tempreg4 ;1 output P1 ld r0,Z ;2 get pixline nop ;1 filling sbrc tempreg2,5 ;1 skip if no change out PINC,tempreg4 ;1 output P2 ld tempreg3,Y+ ;2 get color mov r1,tempreg3 ;1 copy color sbrc tempreg2,4 ;1 skip if no change out PINC,tempreg4 ;1 output P3 ; nop ;1 filling swap r1 ;1 swap fg/hg eor r1,tempreg3 ;1 calc diffenece sbrc tempreg2,3 ;1 skip if no change out PINC,tempreg4 ;1 output P4 sbrc r0,7 ;1 check next P0 eor tempreg3,r1 ;1 change color dec tempreg5 ;1 loop counter sbrc tempreg2,2 ;1 skip if no change out PINC,tempreg4 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline mov tempreg4,r1 ;1 prepare next colordiff brne libmio_tvu_1 ;2 do loop lds tempreg3,libmio_border ;2 get border out PORTC,tempreg3 ;set pop tempreg5 pop tempreg4 ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,10 ;1 check brne libmio_tvu_2 ;2 jump if not next line clr ZH ;1 character line = 0 sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position libmio_tvu_2: sts libmio_cline,ZH ;2 new character line jmp libmio_is_15 SOURCE_142/SOURCE_system/libdfl/0000755000175000001440000000000011713042123015323 5ustar joergusersSOURCE_142/SOURCE_system/libdfl/definitions.asm0000755000175000001440000000256711725741457020400 0ustar joergusers;################################################################################ ;# # ;# libdfl - Dataflash library # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;uncomment next line to enable the whole library if avr_libmake is not used ;.set use_libdflash = 1 ;-------------------------------------------------------------------------------- ; user definitions ;--------------------------------------------------------------------------------SOURCE_142/SOURCE_system/libdfl/library.asm0000755000175000001440000007311411725741457017525 0ustar joergusers;################################################################################ ;# # ;# libdfl - Dataflash library # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;uncomment next line to enable the whole library if avr_libmake is not used ;.set use_libdflash = 1 ;error codes: ;------------ ; 17 dataflash error ; 23 cannot create new file (file exist) ; 24 cannot create new file (not enough free datapages) ; 25 file not found (is empty) ; 26 page not in file ; 27 invalid number of pages (<1 or > 128) ;------------------------------------------------------------------------------ ; send dataflash byte (tempreg1) ;------------------------------------------------------------------------------ libdfl_out: out SPDR,tempreg1 libdfl_out1: in tempreg1,SPSR sbrs tempreg1,SPIF rjmp libdfl_out1 in tempreg1,SPDR ret ;------------------------------------------------------------------------------ ; enable dataflash (for SPI extender) ;------------------------------------------------------------------------------ libdfl_sel: cbi PORTB,4 ;now set SS signal ret libdfl_unsel: sbi PORTB,4 ret ;------------------------------------------------------------------------------ ; wait for Dataflash ready status ;------------------------------------------------------------------------------ libdfl_stat: clr ereg rcall libdfl_sel ldi tempreg1,0xd7 ;command rcall libdfl_out ;output command clr tempreg1 ;dummy rcall libdfl_out sbi PORTB,4 ;stop transfer andi tempreg1,0xbc ;mask out compare an x bits cpi tempreg1,0x24 ;8MB wait breq libdfl_stat cpi tempreg1,0x1c ;4MB wait breq libdfl_stat clr ereg ;no error cpi tempreg1,0xa4 ;8MB OK breq libdfl_stat1 cpi tempreg1,0x9c ;4MB OK breq libdfl_stat1 ldi ereg,17 ;dataflash error libdfl_stat1: ret ;------------------------------------------------------------------------------ ; get size to tempreg1 0x00/0x08/0x10 ;------------------------------------------------------------------------------ libdfl_size: clr ereg ;no error rcall libdfl_stat ;get status cpi ereg,0x00 ;OK? breq libdfl_size_2 ldi tempreg1,0x00 ;no blocks libdfl_size_1: sts libdfl_ram,tempreg1 ;store size ret ;thats all libdfl_size_2: cpi tempreg1,0x9c ;4MB OK brne libdfl_size_3 ldi tempreg1,0x08 ;2048 blocks rjmp libdfl_size_1 libdfl_size_3: ldi tempreg1,0x10 ;4096 blocks rjmp libdfl_size_1 ;------------------------------------------------------------------------------ ; get max page to tempreg1 0x00/0x7f/0xff ;------------------------------------------------------------------------------ libdfl_maxpage: rcall libdfl_size ;get size cpi tempreg1,0x00 brne libdfl_maxpe ret libdfl_maxpe: lsl tempreg1 lsl tempreg1 lsl tempreg1 lsl tempreg1 dec tempreg1 ret ;------------------------------------------------------------------------------ ; out block address from Block X ;------------------------------------------------------------------------------ libdfl_spibad: lsl XL ;address *2 rol XH mov tempreg1,XH rcall libdfl_out ;out high mov tempreg1,XL rcall libdfl_out ;out low mov tempreg1,const_0 rcall libdfl_out ;00=byte in page lsr XH ;restore old address ror XL libdfl_spibad1: ret ;thats all ;------------------------------------------------------------------------------ ; read block X to buffer 2 ;------------------------------------------------------------------------------ libdfl_bread: cpi ereg,0x00 ;skip if we are in error state brne libdfl_bread2 libdfl_breada: push tempreg1 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_bread1 ;no rcall libdfl_sel ldi tempreg1,0x55 rcall libdfl_out ;output command rcall libdfl_spibad ;output address sbi PORTB,4 ;stop transfer rcall libdfl_stat ;wait for ready libdfl_bread1: pop tempreg1 libdfl_bread2: ret ;------------------------------------------------------------------------------ ; read block X to buffer 1 ;------------------------------------------------------------------------------ libdfl_iread: cpi ereg,0x00 ;skip if we are in error state brne libdfl_iread2 push tempreg1 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_iread1 ;no rcall libdfl_sel ldi tempreg1,0x53 rcall libdfl_out ;output command rcall libdfl_spibad ;output address sbi PORTB,4 ;stop transfer rcall libdfl_stat ;wait for ready libdfl_iread1: pop tempreg1 libdfl_iread2: ret ;------------------------------------------------------------------------------ ; write block X from buffer 2 ;------------------------------------------------------------------------------ libdfl_bwrite: cpi ereg,0x00 ;skip if we are in error state brne libdfl_bwrite2 push tempreg1 ;debug: show page number to write ; push XL ; push XH ; ldi ctrl,0x01 ; libmio_outhex ; libmio_outspace ; pop XH ; pop XL rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_bwrite1 ;no rcall libdfl_sel ldi tempreg1,0x86 rcall libdfl_out ;output command rcall libdfl_spibad ;output address sbi PORTB,4 ;stop transfer libdfl_bwrite1: pop tempreg1 libdfl_bwrite2: ret libdfl_dwrite: adiw XL,1 sts libdfl_ram+1,XH ;store last written+1 sts libdfl_ram+2,XL ;store last written+1 sbiw XL,1 rjmp libdfl_bwrite ;------------------------------------------------------------------------------ ; put page type of page X from tempreg1 ;------------------------------------------------------------------------------ libdfl_stype: rcall libdfl_ghead ;set X to header rcall libdfl_bread rcall libdfl_ptype rjmp libdfl_bwrite ;------------------------------------------------------------------------------ ; get page type of page X to tempreg1 ;------------------------------------------------------------------------------ libdfl_gtype: push tempreg4 clr tempreg4 ;byte 0 of header rcall libdfl_ghbyte ;get header byte pop tempreg4 ret ;------------------------------------------------------------------------------ ; get page write counter of page X to Y ;------------------------------------------------------------------------------ libdfl_gcount: push tempreg4 ldi tempreg4,0x01 ;byte 1 of header=HIGH rcall libdfl_ghbyte ;get header byte mov YH,tempreg1 ldi tempreg4,0x02 ;byte 2 of header=LOW rcall libdfl_ghbyte ;get header byte mov YL,tempreg1 pop tempreg4 ret ;------------------------------------------------------------------------------ ; get rewrite counter of page X to tempreg1 ;------------------------------------------------------------------------------ libdfl_grwc: push tempreg4 ldi tempreg4,3 ;byte 0 of header rcall libdfl_ghbyte ;get header byte pop tempreg4 ret ;------------------------------------------------------------------------------ ; get headerbyte tempreg4 of page X to tempreg1 ;------------------------------------------------------------------------------ libdfl_ghbyte: cpi ereg,0x00 ;skip if we are in error state brne libdfl_ghbyte1 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_ghbyte1 ;no rcall libdfl_sel ;start transfer ldi tempreg1,0xd2 rcall libdfl_out ;output command lsl XL rol XH inc XL mov tempreg1,XH rcall libdfl_out mov tempreg1,XL rcall libdfl_out mov tempreg1,tempreg4 ;position of byte rcall libdfl_out lsr XH ror XL rcall libdfl_outd ;dummy bytes sbi PORTB,4 ;stop transfer libdfl_ghbyte1: ret ;output dummy bytes libdfl_outd: rcall libdfl_out ;dummy bytes rcall libdfl_out rcall libdfl_out rcall libdfl_out rjmp libdfl_out ;get byte ;------------------------------------------------------------------------------ ; get data word tempreg4 of page X to Y ;------------------------------------------------------------------------------ libdfl_gdword: cpi ereg,0x00 ;skip if we are in error state brne libdfl_gdword1 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_gdword1 ;no rcall libdfl_sel ;start transfer ldi tempreg1,0xd2 rcall libdfl_out ;output command lsl XL rol XH mov tempreg1,XH rcall libdfl_out mov tempreg1,XL rcall libdfl_out mov tempreg1,tempreg4 ;position of byte lsl tempreg1 rcall libdfl_out lsr XH ror XL rcall libdfl_outd ;dummy bytes mov YH,tempreg1 rcall libdfl_out ;get byte mov YL,tempreg1 sbi PORTB,4 ;stop transfer libdfl_gdword1: ret ;------------------------------------------------------------------------------ ; put page type tempreg1 to buffer 2 ;------------------------------------------------------------------------------ libdfl_ptype: push tempreg4 ldi tempreg4,0x00 ;byte 0 of header rcall libdfl_phbyte ;get header byte pop tempreg4 ret ;------------------------------------------------------------------------------ ; put page write counter Y to buffer 2 ;------------------------------------------------------------------------------ libdfl_pcount: push tempreg4 ldi tempreg4,0x01 ;byte 1 of header=HIGH mov tempreg1,YH rcall libdfl_phbyte ;put header byte ldi tempreg4,0x02 ;byte 2 of header=LOW mov tempreg1,YL rcall libdfl_ghbyte ;put header byte pop tempreg4 ret ;------------------------------------------------------------------------------ ; put rewrite counter tempreg1 to buffer 2 ;------------------------------------------------------------------------------ libdfl_prwc: push tempreg4 ldi tempreg4,0x03 ;byte 0 of header rcall libdfl_ghbyte ;get header byte pop tempreg4 ret ;------------------------------------------------------------------------------ ; write header byte tempreg4 in buffer 2 (tempreg1=value) ;------------------------------------------------------------------------------ libdfl_phbyte: cpi ereg,0x00 ;skip if we are in error state brne libdfl_phbyte1 push tempreg1 ;save reg rcall libdfl_stat ;wait for ready pop tempreg1 cpi ereg,0 ;OK brne libdfl_phbyte1 ;no rcall libdfl_sel push tempreg1 ;save value ldi tempreg1,0x87 rcall libdfl_out ;output command clr tempreg1 ;page hi rcall libdfl_out ldi tempreg1,0x01 ;page lo rcall libdfl_out mov tempreg1,tempreg4 ;offset rcall libdfl_out pop tempreg1 push tempreg1 rcall libdfl_out ;put data sbi PORTB,4 pop tempreg1 libdfl_phbyte1: ret ;------------------------------------------------------------------------------ ; write data byte tempreg4 in buffer 2 (tempreg1=value) ;------------------------------------------------------------------------------ libdfl_pdbyte: cpi ereg,0x00 ;skip if we are in error state brne libdfl_pdbyte1 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_phbyte1 ;no rcall libdfl_sel push tempreg1 ;save value ldi tempreg1,0x87 rcall libdfl_out ;output command clr tempreg1 ;page hi rcall libdfl_out ldi tempreg1,0x00 ;page lo rcall libdfl_out mov tempreg1,tempreg4 ;offset rcall libdfl_out pop tempreg1 push tempreg1 rcall libdfl_out ;put data sbi PORTB,4 pop tempreg1 libdfl_pdbyte1: ret ;------------------------------------------------------------------------------ ; write RAM (Y) to buffer 2 (256 bytes) ;------------------------------------------------------------------------------ libdfl_wrbuf: cpi ereg,0x00 ;skip if we are in error state brne libdfl_wrbuf3 push YH push YL push tempreg1 push tempreg2 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_wrbuf2 ;no rcall libdfl_sel ldi tempreg1,0x87 rcall libdfl_out ;output command clr tempreg1 ;page hi rcall libdfl_out clr tempreg1 ;page lo rcall libdfl_out ldi tempreg1,0x00 ;offset rcall libdfl_out clr tempreg2 ;bytes to copy libdfl_wrbuf1: ld tempreg1,Y+ rcall libdfl_out ;put data dec tempreg2 brne libdfl_wrbuf1 sbi PORTB,4 libdfl_wrbuf2: pop tempreg2 pop tempreg1 pop YL pop YH libdfl_wrbuf3: ret ;------------------------------------------------------------------------------ ; write 0xff to buffer 2 (256 bytes data) ;------------------------------------------------------------------------------ libdfl_clrbuf: cpi ereg,0x00 ;skip if we are in error state brne libdfl_clrbuf3 push tempreg1 push tempreg2 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_clrbuf2 ;no rcall libdfl_sel ldi tempreg1,0x87 rcall libdfl_out ;output command clr tempreg1 ;page hi rcall libdfl_out clr tempreg1 ;page lo rcall libdfl_out ldi tempreg1,0x00 ;offset rcall libdfl_out clr tempreg2 ;256 bytes libdfl_clrbuf1: ldi tempreg1,0xff rcall libdfl_out ;put data dec tempreg2 brne libdfl_clrbuf1 sbi PORTB,4 libdfl_clrbuf2: pop tempreg2 pop tempreg1 libdfl_clrbuf3: ret ;------------------------------------------------------------------------------ ; read RAM (Y) from buffer 2 (data) ;------------------------------------------------------------------------------ libdfl_rdbuf: cpi ereg,0x00 ;skip if we are in error state brne libdfl_rdbuf3 push YH push YL push tempreg1 push tempreg2 rcall libdfl_stat ;wait for ready cpi ereg,0 ;OK brne libdfl_rdbuf2 ;no rcall libdfl_sel ldi tempreg1,0xd6 rcall libdfl_out ;output command clr tempreg1 ;page hi rcall libdfl_out clr tempreg1 ;page lo rcall libdfl_out ldi tempreg1,0x00 ;offset rcall libdfl_out clr tempreg1 ;dummy1 rcall libdfl_out clr tempreg2 ;256 bytes libdfl_rdbuf1: rcall libdfl_out ;get data st Y+,tempreg1 dec tempreg2 brne libdfl_rdbuf1 sbi PORTB,4 libdfl_rdbuf2: pop tempreg2 pop tempreg1 pop YL pop YH libdfl_rdbuf3: ret ;------------------------------------------------------------------------------ ; format modul ;------------------------------------------------------------------------------ libdfl_format: push XH ;save registers push XL push YH push YL push tempreg1 push tempreg2 push tempreg4 ;page 0 libdfl_format2: rcall libdfl_clrbuf ;empty data area in buffer 2 ldi tempreg1,0x0f ;first writelimit rcall libdfl_ptype ;set type byte clr tempreg1 ;0 rcall libdfl_prwc ;set rewrite counter clr XL ;page 0 clr XH rcall libdfl_bwrite ;write buffer adiw XL,1 ;next page ;other pages libdfl_format3: ldi tempreg1,0xfd ;empty data mov YL,XL ;copy low pointer andi YL,0x0f ;mask bits cpi YL,0x01 ;Header page? brne libdfl_format4 ;no ldi tempreg1,0xfc ;empty header libdfl_format4: rcall libdfl_ptype ;set type byte clr tempreg1 ;0 rcall libdfl_prwc ;set rewrite counter clr YL ;write counter=0 clr YH rcall libdfl_pcount rcall libdfl_bwrite ;write buffer adiw XL,1 ;next page cpi XL,0x00 brne libdfl_format5 ldi tempreg1,0xe5 ;draw symbol (brick) libmio_outchar libdfl_format5: lds tempreg1,libdfl_ram ;pages*256 cp XH,tempreg1 ;all done? brne libdfl_format3 ;no->loop rjmp libdfl_rewrit1 ;jump to end ;------------------------------------------------------------------------------ ; rewrite next page ;------------------------------------------------------------------------------ libdfl_rewrite: ;ret ;switch of for debug push XH ;save registers push XL push YH push YL push tempreg1 push tempreg2 push tempreg4 rcall libdfl_size ;wait for ready cpi tempreg1,0 ;OK brne libdfl_rewrit2 ;yes ;end libdfl_rewrit1: pop tempreg4 ;restore registers pop tempreg2 pop tempreg1 pop YL pop YH pop XL pop XH ret mov XH,tempreg1 ;maxpages*256 clr XL sbiw XL,1 ;number of last page rcall libdfl_grwc ;get counter of last page mov YL,tempreg1 clr XH ;number of first page clr XL rcall libdfl_grwc ;get counter of first page cp tempreg1,YL ;equal brne libdfl_rewrit3 ;no libdfl_rewrit2: rcall libdfl_bread ;read page rcall libdfl_grwc inc tempreg1 ;increment counter rcall libdfl_prwc ;write new counter to buffer rcall libdfl_bwrite ;write page back rjmp libdfl_rewrit1 ;end libdfl_rewrit3: adiw XL,1 ;next page rcall libdfl_grwc ;get counter of this page cp tempreg1,YL ;=last? brne libdfl_rewrit3 ;loop rjmp libdfl_rewrit2 ;page to rewrite found ;------------------------------------------------------------------------------ ; free page X ;------------------------------------------------------------------------------ libdfl_freep: push YH ;save registers push YL push tempreg1 rcall libdfl_bread ;read to buffer ldi tempreg1,0xfd ;empty data mov YL,XL ;copy low pointer andi YL,0x0f ;mask bits cpi YL,0x01 ;Header page? brne libdfl_freep1 ;no ldi tempreg1,0xfc ;empty header libdfl_freep1: rcall libdfl_ptype ;set type rcall libdfl_gcount ;get write counter adiw YL,1 ;+1 rcall libdfl_pcount ;put write counter rcall libdfl_clrbuf ;clear buffer (data bytes) rcall libdfl_bwrite pop tempreg1 pop YL pop YH ret ;------------------------------------------------------------------------------ ; check for format ;------------------------------------------------------------------------------ libdfl_cif: push_ptr ;save registers clr XL ;page 0 clr XH movw YL,XL ;clear counter rcall libdfl_size ;wait for ready cpi tempreg1,0x00 ;NOK breq libdfl_cif_3 ;no mov ZH,tempreg1 ;pages * 256 libdfl_cif_1: rcall libdfl_gtype ;get type byte cpi tempreg1,0xfc ;free header page? breq libdfl_cif_u ;no cpi tempreg1,0xfd ;free data page? breq libdfl_cif_u ;no cpi tempreg1,0xab ;used data page? breq libdfl_cif_u ;no cpi tempreg1,0x0f ;start of useable types? brcs libdfl_cif_2 ;no cpi tempreg1,0x90 ;end of useable types? brcc libdfl_cif_2 ;no libdfl_cif_u: adiw YL,1 ;count up libdfl_cif_2: adiw XL,1 ;next page cp XH,ZH ;the end? brne libdfl_cif_1 ldi tempreg1,0 ;unformatted cp YH,ZH brne libdfl_cif_3 ldi tempreg1,1 ;formatted libdfl_cif_3: pop_ptr ;------------------------------------------------------------------------------ ; count free datapages to Y and free headerpages to Z ;------------------------------------------------------------------------------ libdfl_cfree: push r16 ;save registers push XH push XL push tempreg1 clr XL ;page 0 clr XH movw YL,XL ;clear dp counter movw ZL,XL ;clear hp counter rcall libdfl_size ;wait for ready cpi tempreg1,0 ;OK breq libdfl_cfree_4 ;no mov r16,tempreg1 ;pages * 256 libdfl_cfree_1: rcall libdfl_gtype ;get type byte cpi tempreg1,0xfd ;free data page? brne libdfl_cfree_2 ;no push YH push YL rcall libdfl_gcount ;get rewrite counter mov tempreg1,YH ;high byte pop YL pop YH cpi tempreg1,0xff breq libdfl_cfree_3 ;not useable adiw YL,1 ;count up libdfl_cfree_2: cpi tempreg1,0xfc ;free header page? brne libdfl_cfree_3 ;no adiw ZL,1 ;count up libdfl_cfree_3: adiw XL,1 ;next page cp XH,r16 ;the end? brne libdfl_cfree_1 libdfl_cfree_4: pop tempreg1 ;restore registers pop XL pop XH pop r16 ret ;thats all ;------------------------------------------------------------------------------ ; find free datapage with useable write counter to X ;------------------------------------------------------------------------------ libdfl_findf: push ZH ;save registers push ZL push YH push YL push tempreg1 push r18 rcall libdfl_size ;wait for ready cpi tempreg1,0x00 ;no flash breq libdfl_findf2 clr XL ;page 0 clr XH rcall libdfl_gtype mov r18,tempreg1 ;write limit (High) lds XH,libdfl_ram+1 ;last written lds XL,libdfl_ram+2 ;last written lds tempreg1,libmio_ram ;pages*256 cp XH,tempreg1 brcs libdfl_find0 ldi XL,2 ;set to start clr XH libdfl_find0: movw ZL,XL ;stop here if no page found libdfl_findf1: rcall libdfl_gtype ;get type cpi tempreg1,0xfd ;free data page? brne libdfl_findf3 rcall libdfl_gcount ;get counter cp YH,r18 ;limit reached? brcc libdfl_findf3 ;yes libdfl_findf2: pop r18 ;restore registers pop tempreg1 pop YL pop YH pop ZL pop ZH ret libdfl_findf3: adiw XL,5 ;next page we are using offset 5 lds tempreg1,libdfl_ram ;max pages *256 cp XH,tempreg1 brne libdfl_findf4 clr XH libdfl_findf4: cp XH,ZH ;compare HI brne libdfl_findf1 cp XL,ZL ;compare LO brne libdfl_findf1 clr XL ;page 0 clr XH rcall libdfl_bread ;read buffer rcall libdfl_gtype ;write limit cpi tempreg1,0xff ;all breq libdfl_findf5 subi tempreg1,0xf0 ;limit +4096 mov r18,tempreg1 ;new write limit (High) rcall libdfl_ptype rcall libdfl_bwrite movw XL,ZL ;restore pointer rjmp libdfl_findf1 libdfl_findf5: ldi XL,0xff ;no useable page found ldi XH,0xff rjmp libdfl_findf2 ;------------------------------------------------------------------------------ ; create new file ; file number is in bas_partab ; size is in bas_partab+2 ; type is in bas_partab+4 ;------------------------------------------------------------------------------ libdfl_rput: sts bas_partab,tempreg1 sts bas_partab+2,tempreg2 sts bas_partab+4,tempreg3 ret libdfl_create: push_regs ;save registers ;check for flash available rcall libdfl_size ;check cpi tempreg1,0x00 brne libdfl_crea_1 ;error ldi ereg,17 libdfl_crea_e: pop_regs ;restore registers ;check if fileno is in range libdfl_crea_1: rcall libdfl_ghead ;get number of header page to X cp XH,tempreg1 ;max brcs libdfl_crea_2 ldi ereg,27 ;not in range rjmp libdfl_crea_e ;check if file exists libdfl_crea_2: rcall libdfl_gtype ;get type cpi tempreg1,0xfc ;free header page breq libdfl_crea_2a ;file exists not ldi ereg,23 ;error code rjmp libdfl_crea_e ;check for valid size libdfl_crea_2a: lds tempreg1,bas_partab+2 ;size cpi tempreg1,0x00 ;=0 brne libdfl_crea_3 ldi ereg,27 ;invalid size rjmp libdfl_crea_e libdfl_crea_3: cpi tempreg1,0x81 ;>128 brcs libdfl_crea_4 ldi ereg,27 ;invalid size rjmp libdfl_crea_e ;check for free data pages libdfl_crea_4: rcall libdfl_cfree ;count cpi YH,0x00 brne libdfl_crea_5 cp YL,tempreg1 brcc libdfl_crea_5 libdfl_crea_4a: ldi ereg,24 rjmp libdfl_crea_e ;clear buffers libdfl_crea_5: ldi YL,LOW(libdfl_buffer) ;set buffer ldi YH,HIGH(libdfl_buffer) ldi tempreg2,0x00 ;256 bytes ldi tempreg3,0xff ;fill byte libdfl_crea_6: st Y+,tempreg3 dec tempreg2 brne libdfl_crea_6 rcall libdfl_clrbuf adiw XL,1 ;point to next page sts libdfl_ram+1,XH ;store last written sts libdfl_ram+2,XL ;store last written lds tempreg1,bas_partab+2 ;size ldi YL,LOW(libdfl_buffer) ;set buffer ldi YH,HIGH(libdfl_buffer) ;the write loop libdfl_crea_7: push tempreg1 ;save counter rcall libdfl_findf ;find free data page st Y+,XH ;store to hp buffer st Y+,XL ldi tempreg1,0xab ;used data page rcall libdfl_ptype push YH push YL rcall libdfl_gcount ;get write counter adiw YL,1 ;+1 rcall libdfl_pcount ;put write counter pop YL pop YH rcall libdfl_grwc ;get rewrite counter rcall libdfl_prwc ;write to buffer rcall libdfl_dwrite ;write to flash rcall libdfl_rewrite ;rewrite a page pop tempreg1 ;restore counter dec tempreg1 brne libdfl_crea_7 ;now write header page rcall libdfl_ghead ;get header page addr to X ldi YL,LOW(libdfl_buffer) ;set buffer ldi YH,HIGH(libdfl_buffer) rcall libdfl_wrbuf ;write to buffer lds tempreg1,bas_partab+4 ;set data type rcall libdfl_ptype ;put this push YH push YL rcall libdfl_gcount ;get write counter adiw YL,1 ;+1 rcall libdfl_pcount ;put write counter pop YL pop YH rcall libdfl_grwc ;get rewrite counter rcall libdfl_prwc ;write to buffer rcall libdfl_bwrite ;write to flash rjmp libdfl_crea_e ;end ;-------------------------------------------------------------------------------- ; calc headerpage from filenumber ; fnum in bas_partab ;-------------------------------------------------------------------------------- libdfl_gheada: rcall libdfl_rput libdfl_ghead: lds XL,bas_partab ;file number libdfl_ghead1: swap XL ;calc header page number (*16 +1) mov XH,XL andi XL,0xf0 andi XH,0x0f adiw XL,1 ret ;------------------------------------------------------------------------------ ; delete file (bas_partab=file) ;------------------------------------------------------------------------------ libdfl_del: push_regs ;save registers clr tempreg4 rcall libdfl_ghead ;get number of header page rcall libdfl_gtype ;get header type cpi tempreg1,0xfc ;free breq libdfl_del_e libdfl_del_1: rcall libdfl_gdword cpi YH,0xff ;all? breq libdfl_del_2 push XH ;save datapage pointer push XL movw XL,YL rcall libdfl_freep ;free data page pop XL pop XH rcall libdfl_rewrite ;rewrite a page subi tempreg4,0xff ;+2 brne libdfl_del_1 libdfl_del_2: rcall libdfl_freep ;free header page libdfl_del_e: pop_regs ;------------------------------------------------------------------------------ ; write page ; file number is in bas_partab ; page is in bas_partab+2 ; arraypos is in bas_partab+4 ;------------------------------------------------------------------------------ libdfl_write: push_regs ;save registers push r18 clr XL ;page 0 clr XH rcall libdfl_stat ;wait rcall libdfl_gtype mov r18,tempreg1 ;write limit (High) rcall libdfl_ghead ;get number of header page rcall libdfl_gtype ;get header type cpi tempreg1,0xfc ;free brne libdfl_write_1 ldi ereg,25 ;file not exist libdfl_write_e: pop r18 ;restore registers pop_regs ;check for valid size libdfl_write_1: lds tempreg4,bas_partab+2 ;size cpi tempreg4,0x80 ;>128 brcs libdfl_write_2 ldi ereg,27 ;invalid page rjmp libdfl_write_e libdfl_write_2: rcall libdfl_gdword cpi YH,0xff brne libdfl_write_3 ldi ereg,27 ;invalid page rjmp libdfl_write_e ;write page libdfl_write_3: movw XL,YL ;copy page no ldi YL,LOW(bas_array) ;ptr ldi YH,HIGH(bas_array) lds tempreg1,bas_partab+4 cpi tempreg1,0x01 brne libdfl_write_4 inc YH libdfl_write_4: cpi tempreg1,0x02 brne libdfl_write_5 subi YH,0xfe ;+2 libdfl_write_5: rcall libdfl_wrbuf ;write df buffer push YH push YL rcall libdfl_gcount ;get write counter cp YH,r18 ;must find new page? breq libdfl_write_6 ;yes1 adiw YL,1 ;+1 rcall libdfl_pcount ;put write counter pop YL pop YH rcall libdfl_gtype rcall libdfl_ptype rcall libdfl_grwc ;get rewrite counter rcall libdfl_prwc ;write to buffer rcall libdfl_bwrite ;write to flash rcall libdfl_rewrite ;rewrite a page rjmp libdfl_write_e libdfl_write_6: rcall libdfl_freep ;set page to free rcall libdfl_findf ;find free page rcall libdfl_gcount ;get write counter adiw YL,1 ;+1 rcall libdfl_pcount ;put write counter pop YL pop YH ldi tempreg1,0xab ;used data page rcall libdfl_ptype rcall libdfl_grwc ;get rewrite counter rcall libdfl_prwc ;write to buffer rcall libdfl_bwrite ;write to flash movw YL,XL ;new page number rcall libdfl_ghead ;calc no of header page rcall libdfl_bread ;read buffer lds tempreg4,bas_partab+2 ;page number lsl tempreg4 mov tempreg1,YH rcall libdfl_pdbyte inc tempreg4 mov tempreg1,YL rcall libdfl_pdbyte rcall libdfl_gtype rcall libdfl_ptype rcall libdfl_grwc ;get rewrite counter rcall libdfl_prwc ;write to buffer rcall libdfl_bwrite ;write to flash rjmp libdfl_write_e ;------------------------------------------------------------------------------ ; read page ; file number is in bas_partab ; page is in bas_partab+2 ; arraypos is in bas_partab+4 ;------------------------------------------------------------------------------ libdfl_read: push_regs ;save registers rcall libdfl_ghead ;get number of header page rcall libdfl_gtype ;get header type cpi tempreg1,0xfc ;free brne libdfl_read_1 ldi ereg,30 ;file not exist libdfl_read_e: pop_regs ;check for valid pos libdfl_read_1: lds tempreg4,bas_partab+2 ;page to read cpi tempreg4,0x80 ;>128 brcs libdfl_read_2 ldi ereg,27 ;invalid page rjmp libdfl_read_e libdfl_read_2: rcall libdfl_gdword cpi YH,0xff brne libdfl_read_3 ldi ereg,27 ;invalid page rjmp libdfl_read_e ;read page libdfl_read_3: movw XL,YL ;copy number rcall libdfl_bread ;read to buffer ldi YL,LOW(bas_array) ;ptr ldi YH,HIGH(bas_array) lds tempreg1,bas_partab+4 cpi tempreg1,0x01 brne libdfl_read_4 inc YH libdfl_read_4: cpi tempreg1,0x02 brne libdfl_read_5 subi YH,0xfe ;+2 libdfl_read_5: rcall libdfl_rdbuf rjmp libdfl_read_e ;------------------------------------------------------------------------------ ; read name ; XL=file number ; bas_inbuf 18Bytes ;------------------------------------------------------------------------------ libdfl_nread: push_ptr ;save registers push tempreg1 push tempreg2 push tempreg4 rcall libdfl_ghead ;get number of header page rcall libdfl_gtype ;get header type cpi tempreg1,0xfc ;free brne libdfl_nread_1 ldi ereg,30 ;file not exist rjmp libdfl_read_e libdfl_nread_1: clr tempreg4 ;we will get first page rcall libdfl_gdword movw XL,YL ;copy value ldi tempreg4,0 ;we will start with first word ldi ZL,LOW(bas_inbuf) ldi ZH,HIGH(bas_inbuf) libdfl_nread_2: rcall libdfl_gdword st Z+,YH st Z+,YL inc tempreg4 cpi tempreg4,0x20 brne libdfl_nread_2 rjmp libdfl_read_e SOURCE_142/SOURCE_system/libdfl/macros.asm0000755000175000001440000000373311725741457017345 0ustar joergusers;################################################################################ ;# # ;# libdfl - Dataflash routines # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libdfl_format call libdfl_format .endm .macro libdfl_create call libdfl_create .endm .macro libdfl_delete call libdfl_del .endm .macro libdfl_read call libdfl_read .endm .macro libdfl_nread call libdfl_nread .endm .macro libdfl_write call libdfl_write .endm .macro libdfl_free call libdfl_cfree .endm .macro libdfl_size call libdfl_size .endm .macro libdfl_maxpage call libdfl_maxpage .endm .macro libdfl_checkformat call libdfl_cif .endm .macro libdfl_gettype call libdfl_ghead call libdfl_gtype .endm .macro libdfl_gettype1 call libdfl_ghead1 call libdfl_gtype .endm .macro libdfl_settype call libdfl_stype .endm .macro libdfl_gword call libdfl_gdword .endm .macro libdfl_readraw call libdfl_bread call libdfl_rdbuf .endm .macro libdfl_writeraw call libdfl_wrbuf call libdfl_bwrite .endm SOURCE_142/SOURCE_system/macros.inc0000644000175000001440000003016411725741457016075 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega 644 # ;# macro definitions # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libmio_vint jmp libmio_aisr .endm .macro libmio_bint jmp libmio_bisr .endm .macro libmio_init call libmio_init .endm .macro libmio_outchar call libmio_char .endm .macro libmio_outcomma rcall libmio_comma .endm .macro libmio_outspace call libmio_space .endm .macro libmio_waitkey .set use_libmio_waitkey = 1 .set libmio_ps2key = 1 call libmio_waitkey .endm .macro libmio_nokey .set use_libmio_nokey = 1 .set libmio_ps2key = 1 call libmio_nokey .endm .macro libmio_cursor .set use_libmio_cursor = 1 .set libmio_ps2key = 1 call libmio_cursor .endm .macro libmio_ecursor .set use_libmio_ecursor = 1 .set use_libmio_editor_mode = 1 .set libmio_ps2key = 1 call libmio_ecursor .endm .macro libmio_ncursor .set use_libmio_ncursor = 1 .set use_libmio_editor_mode = 1 .set libmio_ps2key = 1 call libmio_ncursor .endm .macro libmio_freecur .set use_libmio_cursor = 1 .set libmio_ps2key = 1 rcall libmio_cur1 .endm .macro libmio_outdez .set use_libmio_outd = 1 call libmio_outd .endm .macro libmio_outhex .set use_libmio_outh = 1 call libmio_outh .endm .macro libmio_clrscr call libmio_clr .endm .macro libmio_fillchar rcall libmio_fill .endm .macro libmio_ramtext .set use_libmio_oram = 1 rcall libmio_oram .endm .macro libmio_romtext call libmio_orom .endm .macro libmio_thistext .set use_libmio_othis = 1 .set use_libmio_gotoxy = 1 call libmio_othis .endm .macro libmio_mtext .set use_libmio_mtext = 1 rcall libmio_mtext .endm .macro libmio_newline .set use_libmio_newline = 1 call libmio_newline .endm .macro libmio_gotoxy .set use_libmio_gotoxy = 1 call libmio_gxy .endm .macro libmio_plot .set use_libmio_plot = 1 call libmio_plot .endm .macro libmio_box .set use_libmio_plot = 1 .set use_libmio_box = 1 call libmio_box .endm .macro libmio_cbox .set use_libmio_cbox = 1 clt call libmio_cbox .endm .macro libmio_ibox .set use_libmio_cbox = 1 set call libmio_cbox .endm .macro libmio_wbox .set use_libmio_wbox = 1 call libmio_wbox .endm .macro libmio_whbox .set use_libmio_wbox = 1 .set use_libmio_whbox = 1 call libmio_whbox .endm .macro libmio_wh2box .set use_libmio_wbox = 1 .set use_libmio_whbox = 1 rcall libmio_wh2box .endm .macro libmio_fbox .set use_libmio_plot = 1 .set use_libmio_fbox = 1 call libmio_fbox .endm .macro libmio_circle .set use_libmio_circle = 1 call libmio_circle .endm .macro libmio_fcircle .set use_libmio_circle = 1 call libmio_fcircle .endm .macro libmio_draw .set use_libmio_plot = 1 .set use_libmio_draw = 1 call libmio_draw .endm .macro libmio_sync .set use_libmio_sync = 1 call libmio_sync .endm .macro libmio_note .set use_libmio_note = 1 call libmio_note .endm .macro libmio_calc call libmio_calc .endm .macro libmio_ecalc call libmio_ecalc .endm .macro libmio_pser .set use_libmio_serial = 1 .set use_libmio_pser = 1 call libmio_pser .endm .macro libmio_gser .set use_libmio_serial = 1 .set use_libmio_gser = 1 call libmio_gser .endm .macro libmio_gserb .set use_libmio_serial = 1 .set use_libmio_gser = 1 call libmio_gserb .endm .macro libmio_pser2 .set use_libmio_serial2 = 1 .set use_libmio_pser2 = 1 call libmio_pser2 .endm .macro libmio_gser2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_gser .endm .macro libmio_gserb2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_gserb2 .endm .macro libmio_baud2 .set use_libmio_serial2 = 1 .set use_libmio_gser2 = 1 call libmio_baud2 .endm .macro libmio_ppar .set use_libmio_ppar = 1 call libmio_ppar .endm .macro libmio_setcolor call libmio_setcol .endm .macro libmio_setdrawcolor call libmio_setfgc .endm .macro libmio_setpalette call libmio_setpal .endm .macro libmio_setborder call libmio_setbrd .endm .macro libmio_screenshot .set use_libmio_screenshot = 1 call libmio_scrs .endm .macro libmio_chpump .set use_libmio_chp = 1 call libmio_chp .endm .macro libmio_cconv .set use_libmio_cconv = 1 rcall libmio_cconv .endm .macro libmio_pconv .set use_libmio_pconv = 1 rcall libmio_pconv .endm .macro libmio_gchar .set use_libmio_gchar = 1 rcall libmio_pconv .endm .macro libmio_vcur .set use_libmio_vcur = 1 rcall libmio_vcur .endm .macro libmio_sprite .set use_libmio_sprites = 1 call libmio_sprite .endm .macro libmio_alert call libmio_abox1 .endm .macro libmio_ask call libmio_ynbox1 .endm .macro libmio_alertthis call libmio_abox .endm .macro libmio_askthis call libmio_ynbox .endm .macro libmio_nmode .set use_libmio_dmode = 1 call libmio_nmode .endm .macro libmio_setvmode call libmio_svmode .endm .macro libmio_random .set use_libmio_psrg = 1 call libmio_psrg .endm .macro libmio_setpal .set use_libmio_setpal = 1 call libmio_setpal .endm .macro libmio_bcopy .set use_libmio_bcopy = 1 call libmio_bcopy .endm .macro libmio_scroll .set use_libmio_scroll = 1 call libmio_scrl .endm .macro libmio_emode .set use_libmio_dmode = 1 .set use_libmio_editor_mode = 1 call libmio_emode .endm .macro libmio_menu call libmio_menu .endm .macro libmio_drawmenu call libmio_domenu .endm .macro libmio_sysconf call libmio_setconf .endm .macro libmio_sendx call libmio_txbl .endm .macro libmio_recvx call libmio_rxbl .endm .macro libmio_clearvector rcall libmio_cvec .endm .macro libmio_clearvtext rcall libmio_ctvec .endm .macro libmio_setvolume call libmio_setvol .endm .macro libmio_setmvolume call libmio_setvol .endm .macro libmio_slow call libmio_vidon .endm .macro libmio_fast call libmio_vidoff .endm .macro libmio_channel rcall libmio_setchan .endm .macro libmio_startseq call libmio_startsq .endm .macro libmio_stopseq rcall libmio_stopsq .endm .macro libmio_endseq rcall libmio_endsq .endm .macro libmio_copychar4 call libmio_cpbits4 .endm .macro libmio_copychar6 call libmio_cpbits6 .endm .macro libmio_waityesno call libmio_waityn .endm ;################################################################################ ;# # ;# libi2c - I2C library for ATMega controllers # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libi2c_init call libi2c_initl .endm .macro libi2c_read .set use_libi2c_read = 1 call libi2c_read .endm .macro libi2c_start call libi2c_start .endm .macro libi2c_stop call libi2c_stop .endm .macro libi2c_rbyte call libi2c_rbyte .endm .macro libi2c_rbyten call libi2c_rbyten .endm .macro libi2c_wbyte call libi2c_wbyte .endm .macro libi2c_write .set use_libi2c_write = 1 call libi2c_write .endm .macro libi2c_rlm75 .set use_libi2c_lm75 = 1 call libi2c_rlm75 .endm ;################################################################################ ;# # ;# libeep - EEPRO R/W library for AVR controllers # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libeep_read call libeep_read .endm .macro libeep_write call libeep_write .endm ;################################################################################ ;# # ;# libdfl - Dataflash routines # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro libdfl_format call libdfl_format .endm .macro libdfl_create call libdfl_create .endm .macro libdfl_delete call libdfl_del .endm .macro libdfl_read call libdfl_read .endm .macro libdfl_nread call libdfl_nread .endm .macro libdfl_write call libdfl_write .endm .macro libdfl_free call libdfl_cfree .endm .macro libdfl_size call libdfl_size .endm .macro libdfl_maxpage call libdfl_maxpage .endm .macro libdfl_checkformat call libdfl_cif .endm .macro libdfl_gettype call libdfl_ghead call libdfl_gtype .endm .macro libdfl_gettype1 call libdfl_ghead1 call libdfl_gtype .endm .macro libdfl_settype call libdfl_stype .endm .macro libdfl_gword call libdfl_gdword .endm .macro libdfl_readraw call libdfl_bread call libdfl_rdbuf .endm .macro libdfl_writeraw call libdfl_wrbuf call libdfl_bwrite .endm SOURCE_142/SOURCE_system/libs.inc0000644000175000001440000000047411725741457015543 0ustar joergusers;############################################################### ;# generated by avr_libmake v0.22 (c) 2006-2010 Joerg Wolfram # ;############################################################### .include "libmio/library.asm" .include "libi2c/library.asm" .include "libeep/library.asm" .include "libdfl/library.asm" SOURCE_142/SOURCE_system/api.inc0000644000175000001440000001346511725741457015367 0ustar joergusers;###################################################################### ;# # ;# AVR ChipBasic2 API V1.35 API Address definitions # ;# (c) 2009-2010 Joerg Wolfram # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;###################################################################### .equ api_token = 0x001e .equ api_untoken = 0x0020 .equ api_version = 0x0022 .equ api_popxyz = 0x0024 .equ api_pushxyz = 0x0025 .equ api_popregs = 0x0026 .equ api_pushregs = 0x0027 .equ api_getvram = 0x0028 .equ api_getsysram = 0x002b .equ api_getpal = 0x002e .equ api_getarray = 0x0031 .equ api_getchart0 = 0x0034 .equ api_getchart1 = 0x0037 .equ api_getbuffer = 0x003a .equ api_getvalues = 0x003d .equ api_getpartab = 0x0040 .equ api_getvar = 0x0043 .equ api_getprg = 0x0046 .equ api_dataptr = 0x0058 .equ api_getbase = 0x005a .equ api_getprog = 0x005c .equ api_getprog_1 = 0x0060 .equ api_getprog_2 = 0x0064 .equ api_setcolor = 0x0065 .equ api_setfcolor = 0x0067 .equ api_setborder = 0x0069 .equ api_setvmode = 0x006b .equ api_setpalette = 0x006d .equ api_sync = 0x006f .equ api_slow = 0x0071 .equ api_fast = 0x0073 .equ api_setchannel = 0x0075 .equ api_setfont = 0x0077 .equ api_clrscr = 0x0079 .equ api_outchar = 0x007b .equ api_outdez = 0x007d .equ api_outhex = 0x007f .equ api_gotoxy = 0x0081 .equ api_romtext = 0x0083 .equ api_thistext = 0x0085 .equ api_cbox = 0x0087 .equ api_ibox = 0x008a .equ api_scroll = 0x008d .equ api_newline = 0x008f .equ api_sprite = 0x0091 .equ api_cursor = 0x0093 .equ api_waitkey = 0x0097 .equ api_nokey = 0x0099 .equ api_kstate = 0x009b .equ api_kflags = 0x009f .equ api_getkey = 0x00a2 .equ api_lastkey = 0x00a5 .equ api_scancode = 0x00a8 .equ api_putser = 0x00ab .equ api_getser = 0x00ad .equ api_getserb = 0x00af .equ api_putser2 = 0x00b1 .equ api_getser2 = 0x00b3 .equ api_getserb2 = 0x00b5 .equ api_putpar = 0x00b7 .equ api_putxm = 0x00b9 .equ api_getxm = 0x00bb .equ api_putsernl = 0x00bd .equ api_putsernl2 = 0x00bf .equ api_baud2 = 0x00c1 .equ api_hexline = 0x00c3 .equ api_plot = 0x00c5 .equ api_draw = 0x00c7 .equ api_box = 0x00c9 .equ api_fbox = 0x00cb .equ api_circle = 0x00cd .equ api_fcircle = 0x00d1 .equ api_bcopy1 = 0x00d5 .equ api_bcopy2 = 0x00d7 .equ api_bcopy3 = 0x00d9 .equ api_menu = 0x00db .equ api_drawmenu = 0x00dd .equ api_alert = 0x00df .equ api_ask = 0x00e1 .equ api_alertthis = 0x00e3 .equ api_askthis = 0x00e5 .equ api_alert_nb = 0x00e7 .equ api_ask_nb = 0x00e9 .equ api_alertthis_nb = 0x00eb .equ api_askthis_nb = 0x00ed .equ api_wbox = 0x00ef .equ api_whbox = 0x00f1 .equ api_saywrite = 0x00f3 .equ api_saytransfer = 0x00f5 .equ api_note = 0x00f7 .equ api_setvolume = 0x00f9 .equ api_startseq = 0x00fb .equ api_setseq = 0x00fd .equ api_getseq = 0x00ff .equ api_i2c_read = 0x0101 .equ api_i2c_write = 0x0103 .equ api_i2c_start = 0x0105 .equ api_i2c_stop = 0x0107 .equ api_i2c_rbyte = 0x0109 .equ api_i2c_rbyten = 0x010b .equ api_i2c_wbyte = 0x010d .equ api_i2c_rlm75 = 0x010f .equ api_eep_read = 0x0111 .equ api_eep_write = 0x0113 .equ api_abs = 0x0115 .equ api_add = 0x0117 .equ api_sub = 0x0119 .equ api_mul = 0x011b .equ api_div = 0x011d .equ api_sin = 0x011f .equ api_cos = 0x0121 .equ api_eq = 0x0123 .equ api_lt = 0x0125 .equ api_gt = 0x0127 .equ api_sqr = 0x0129 .equ api_rnd = 0x012b .equ api_adc = 0x012d .equ api_dbit = 0x012f .equ api_fs_create = 0x0131 .equ api_fs_delete = 0x0135 .equ api_fs_read = 0x0139 .equ api_fs_write = 0x013d .equ api_fs_cfree = 0x0141 .equ api_fs_size = 0x0143 .equ api_fs_checkf = 0x0145 .equ api_fs_gettype = 0x0147 .equ api_fs_rread = 0x014b .equ api_fs_rwrite = 0x014e .equ api_fs_fsize = 0x0151 .equ api_fs_ffind = 0x0153 .equ api_fs_fsel = 0x0155 .equ api_fs_fsel_nb = 0x0157 .equ api_fs_check = 0x0159 .equ api_copychar4 = 0x015b .equ api_copychar6 = 0x015d .equ api_basrun = 0x015f .equ api_exparser = 0x0161 .equ api_tparser = 0x0163 .equ api_lfind = 0x0165 .equ api_lcall = 0x0167 .equ api_preceive = 0x0169 .equ api_psend = 0x016b .equ api_wpage = 0x016d .equ api_arrview = 0x016f .equ api_extsearch = 0x0171 .equ api_extdisable = 0x0173 .equ api_basgetpar = 0x0175 .equ api_basgetvar = 0x0177 .equ api_vm0line = 0x0179 .equ api_vm0cls = 0x017d .equ api_vm0char = 0x0180 .equ api_vm0gotoxy = 0x0184 .equ api_vm0plot = 0x0186 .equ api_vm0newline = 0x0188 .equ api_sbackup = 0x018c .equ api_srestore = 0x018e .equ api_screenshot = 0x0190 .equ api_aread = 0x0192 .equ api_awrite = 0x0194 .equ api_pageset = 0x0196 .equ api_pageget = 0x0199 .equ api_scale = 0x019c .equ api_spisel = 0x019e .equ api_spiunsel = 0x01a0 .equ api_spicomm = 0x01a2 .equ api_xmem_rb = 0x01a4 .equ api_xmem_rw = 0x01a6 .equ api_xmem_wb = 0x01a8 .equ api_xmem_ww = 0x01aa .equ api_xmem_chk = 0x01ac .equ api_xmem_clr = 0x01ae SOURCE_142/SOURCE_system/modules/0000755000175000001440000000000011713042123015537 5ustar joergusersSOURCE_142/SOURCE_system/modules/compress_line.asm0000755000175000001440000002310411725741457021131 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# line compressor # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; compress inbuf->linebuf (Y->X) ;----------------------------------------------------------------------- clin_main: ;fill code buffer with 0xff ldi XL,LOW(bas_linebuf) ;code buffer address ldi XH,HIGH(bas_linebuf) ldi tempreg1,0xff ldi tempreg2,0x22 ;34 x FF clin_main_clr: st X+,tempreg1 dec tempreg2 brne clin_main_clr ;now start compressing ldi XL,LOW(bas_linebuf) ;code buffer address ldi XH,HIGH(bas_linebuf) ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) clin_main_01: cpi YL,LOW(bas_inbuf+32) brcc clin_main_end cpi XL,LOW(bas_linebuf+32) brcc clin_main_end rjmp clin_main_02 clin_main_end: ret clin_main_02: ld tempreg1,Y ;get text char cpi tempreg1,0x20 ;space breq clin_main_04 ;we can copy cpi tempreg1,':' ;sep breq clin_main_04 ;we can copy rcall clin_comment ;comment? cpi tempreg1,0xff ;OK breq clin_main_end cpi tempreg1,0xfe ;ext found breq clin_main_01 ;loop if string was found rcall clin_string ;string cpi tempreg1,0xff ;OK breq clin_main_end cpi tempreg1,0x00 ;not found brne clin_main_01 ;loop if string was found rcall clin_keyw ;keyword cpi tempreg1,0x00 ;not found brne clin_main_01 ;loop if keyword was found rcall clin_hexval ;hex value cpi tempreg1,0x00 ;not found brne clin_main_01 ;loop if hexvalue was found rcall clin_decval ;decimal value cpi tempreg1,0x00 ;not found brne clin_main_01 ;loop if hexvalue was found ld tempreg1,Y+ ;copy raw char cpi tempreg1,'a' brcs clin_main_03 cpi tempreg1,'z'+1 brcc clin_main_03 subi tempreg1,0x20 ;set to caps clin_main_03: st X+,tempreg1 rjmp clin_main_01 clin_main_04: adiw YL,1 st X+,tempreg1 rjmp clin_main_01 ;------------------------------------------------------------------------------- ;check for decimal value ;------------------------------------------------------------------------------- clin_decval: ld tempreg1,Y ;get first char cpi tempreg1,'0' brcs clin_decval_1 ;no number cpi tempreg1,'9'+1 brcc clin_decval_1 subi tempreg1,'0' rjmp clin_decval_2 clin_decval_1: clr tempreg1 ;not found code ret clin_decval_2: mov tempreg3,tempreg1 ;initial value clr tempreg4 adiw YL,1 clin_decval_3: ld tempreg1,Y ;get next char cpi tempreg1,'0' brcs clin_decval_4 ;no number cpi tempreg1,'9'+1 brcc clin_decval_4 subi tempreg1,'0' lsl tempreg3 ;*2 rol tempreg4 movw r0,tempreg3 lsl tempreg3 ;*2 (*4) rol tempreg4 lsl tempreg3 ;*2 (*8) rol tempreg4 add tempreg3,r0 adc tempreg4,r1 add tempreg3,tempreg1 adc tempreg4,const_0 adiw YL,1 rjmp clin_decval_3 clin_decval_4: cpi tempreg4,0x00 ; breq clin_decval_5 ldi tempreg1,0x1d ;code for dec 16 st X+,tempreg1 st X+,tempreg4 ;high st X+,tempreg3 ;low ret clin_decval_5: cpi tempreg3,0x0a brcs clin_decval_6 ldi tempreg1,0x1c ;code for dec 8 st X+,tempreg1 st X+,tempreg3 ;low ret clin_decval_6: subi tempreg3,0xd0 ;+0x30 st X+,tempreg3 ;low ldi tempreg1,0x1c ;code for dec 8 ret ;------------------------------------------------------------------------------- ;check for hex value ;------------------------------------------------------------------------------- clin_hexval: ld tempreg1,Y cpi tempreg1,'$' ;hex value breq clin_hexval_1 clr tempreg1 ;not found ret clin_hexval_1: clr tempreg3 ;initial value clr tempreg4 adiw YL,1 ;set pointer clin_hexval_2: ld tempreg2,Y ;second char cpi tempreg2,'0' brcs clin_hexval_w ;OK, write! cpi tempreg2,'9'+1 brcc clin_hexval_u subi tempreg2,'0' rjmp clin_hexval_5 clin_hexval_u: cpi tempreg2,'Z' brcs clin_hexval_3 subi tempreg2,0x20 clin_hexval_3: cpi tempreg2,'A' brcs clin_hexval_w ;OK, write cpi tempreg2,'G' brcc clin_hexval_w subi tempreg2,'A'-10 clin_hexval_5: andi tempreg2,0x0f swap tempreg2 ldi tempreg1,4 clin_hexval_6: lsl tempreg2 rol tempreg3 rol tempreg4 dec tempreg1 brne clin_hexval_6 adiw YL,1 ;next char rjmp clin_hexval_2 ;loop clin_hexval_w: cpi tempreg4,0x00 breq clin_hexval8 ldi tempreg1,0x1f ;code for hex 16 st X+,tempreg1 st X+,tempreg4 ;hi st X+,tempreg3 ;lo ret clin_hexval8: ldi tempreg1,0x1e ;code for hex 8 st X+,tempreg1 st X+,tempreg3 ;low ret ;------------------------------------------------------------------------------- ; check for string (0=not found) ;------------------------------------------------------------------------------- clin_string: ld tempreg1,Y ;get char cpi tempreg1,'"' ;start of string breq clin_string_1 clr tempreg1 ;not found ret clin_string_1: adiw YL,1 ;next char st X+,tempreg1 ;store " clin_string_2: ld tempreg1,Y+ ;get char cpi tempreg1,'"' ;end of string brne clin_string_3 ;branch if not st X+,tempreg1 ;store " ldi tempreg1,0x01 ;string found ret ;thats all clin_string_3: cpi YL,LOW(bas_inbuf+31) brcs clin_string_4 ldi tempreg1,'"' st X+,tempreg1 ret clin_string_4: st X+,tempreg1 rjmp clin_string_2 ;------------------------------------------------------------------------------- ; check for comment (0=not found) ;------------------------------------------------------------------------------- clin_comment: ld tempreg1,Y ;get char cpi tempreg1,0x27 ;start of comment breq clin_comment_1 cpi tempreg1,'_' ;start of ext command breq clin_ext_0 clr tempreg1 ;not found ret clin_comment_1: adiw YL,1 clin_comment_2: st X+,tempreg1 ;store char cpi YL,LOW(bas_inbuf+32) brcc clin_comment_3 cpi XL,LOW(bas_linebuf+32) brcc clin_comment_3 ld tempreg1,Y+ ;get char rjmp clin_comment_2 clin_comment_3: ldi tempreg1,0xff ret clin_ext_0: st X+,tempreg1 ;store underline clin_ext_1: adiw YL,1 ;goto next char clin_ext_2: ld tempreg1,Y ;get next char cpi tempreg1,'A' brcs clin_ext_e cpi tempreg1,'Z'+1 brcs clin_ext_0 cpi tempreg1,'a' brcs clin_ext_e cpi tempreg1,'z'+1 brcs clin_ext_0 clin_ext_e: ldi tempreg1,0xfe ret ;------------------------------------------------------------------------------- ; check for keyword (Y=pointer) ;------------------------------------------------------------------------------- clin_keyw: push ZH push ZL push XH push XL push tempreg2 ldi ZL,LOW(tokentab*2) ;start of token table ldi ZH,HIGH(tokentab*2) clin_keyw_01: movw r0,YL ;save ram pointer lpm tempreg1,Z+ ;get token number cpi tempreg1,0x00 ;end of token table breq clin_keyw_04 ;yes set ;equ flag ldi tempreg2,7 ;number of chars to compare clin_keyw_02: lpm XL,Z+ ;get ROM char cpi XL,'.' ;dont care breq clin_keyw_03 ld XH,Y+ ;get RAM char cpi XH,'a' brcs clin_keyw_02a subi XH,0x20 clin_keyw_02a: cp XL,XH breq clin_keyw_03 clt ;clear flag clin_keyw_03: dec tempreg2 brne clin_keyw_02 brts clin_keyw_04 ;found movw YL,r0 ;restore ram pointer rjmp clin_keyw_01 clin_keyw_04: pop tempreg2 pop XL ;restore registers pop XH pop ZL pop ZH cpi tempreg1,0x00 breq clin_keyw_05 st X+,tempreg1 ;write token push tempreg1 clin_keyw_ws1: ld tempreg1,Y cpi tempreg1,0x20 ;space brne clin_keyw_ws2 ;no->end adiw YL,1 ;pointer+1 rjmp clin_keyw_ws1 clin_keyw_ws2: pop tempreg1 clin_keyw_05: ret ;------------------------------------------------------------------------------- ; check for keyword (Y=RAM pointer) ; Z=pointer to tokentab ; tempreg3 = max chars per keyword ; returns token in tempreg1 ;------------------------------------------------------------------------------- tparser: push ZH push ZL push XH push XL push tempreg2 tparser_01: movw r0,YL ;save ram pointer lpm tempreg1,Z+ ;get token number cpi tempreg1,0x00 ;end of token table breq tparser_04 ;yes set ;equ flag mov tempreg2,tempreg3 ;number of chars to compare tparser_02: lpm XL,Z+ ;get ROM char cpi XL,'.' ;dont care breq tparser_03 ld XH,Y+ ;get RAM char cpi XH,'a' brcs tparser_02a subi XH,0x20 tparser_02a: cp XL,XH breq tparser_03 clt ;clear flag tparser_03: dec tempreg2 brne tparser_02 brts tparser_04 ;found movw YL,r0 ;restore ram pointer rjmp tparser_01 tparser_04: pop tempreg2 pop XL ;restore registers pop XH pop ZL pop ZH cpi tempreg1,0x00 breq tparser_05 push tempreg1 tparser_ws1: ld tempreg1,Y cpi tempreg1,',' ;comma breq tparser_ws1a ;ignore this cpi tempreg1,0x20 ;space brne tparser_ws2 ;no->end tparser_ws1a: adiw YL,1 ;pointer+1 rjmp tparser_ws1 tparser_ws2: pop tempreg1 tparser_05: ret SOURCE_142/SOURCE_system/modules/menu.asm0000755000175000001440000003471211725741457017242 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# menu functions # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ menu_mainloop: libmio_nokey menu_main: ldi XL,0 ;black libmio_setborder ldi XL,1 libmio_chpump ;enable chargepump for serial clr ctrl ;normal mode sts libmio_channel,const_0 ;output to screen clr XL libmio_setvmode ;standard video mode ldi XL,0x05 ;color scheme (cyan on black) libmio_setcolor libmio_clrscr ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,21 libmio_whbox ldi YL,LOW(libmio_vram+19*30) ldi YH,HIGH(libmio_vram+19*30) ldi XL,0xf8 st Y+,XL ldi XL,0xf1 ldi XH,28 menu_main_li: st Y+,XL dec XH brne menu_main_li ldi XL,0xf9 st Y+,XL ldi XL,0x51 ;color scheme (blue on white) libmio_setcolor ldi XL,4 ldi XH,1 libmio_gotoxy rcall menu_itext1 rcall menu_stat lds tempreg1,libmio_lastmenu cpi tempreg1,0x0b ; brcs menu_main_0 clr tempreg1 menu_main_0: sts libmio_lastmenu,tempreg1 mov tempreg3,tempreg1 ;set as default menu_main_1: sbrc tempreg3,7 ;is below zero clr tempreg3 ;set to zero cpi tempreg3,0x0b ;maximum+1 brcs menu_main_2 ldi tempreg3,0x0a ;limit to max menu_main_2: ldi r18,0x00 ;prg icon counter menu_main_3: push tempreg3 rcall menu_prgicon ;draw program icon pop tempreg3 inc r18 cpi r18,0x08 ;beyond limit? brne menu_main_3 rcall menu_memicon ;dataflash rcall menu_cfgicon ;config rcall menu_inficon ;info menu_main_4: ldi ZL,LOW(menu_data*2) ldi ZH,HIGH(menu_data*2) libmio_menu cpi tempreg1,0xe2 ;left brne menu_main_5 dec tempreg3 ;change to n-1 rjmp menu_main_1 ;loop menu_main_5: cpi tempreg1,0xe3 ;right brne menu_main_6 inc tempreg3 ;change to n+1 rjmp menu_main_1 menu_main_6: cpi tempreg1,0xe4 ;up brne menu_main_7 cpi tempreg3,0x04 brcs menu_main_7 subi tempreg3,0x04 ;change to n-4 rjmp menu_main_1 menu_main_7: cpi tempreg1,0xe5 ;down brne menu_main_8 cpi tempreg3,0x07 brcc menu_main_8 subi tempreg3,0xfc ;change to n+4 rjmp menu_main_1 menu_main_8: cpi tempreg1,0xea ;enter breq menu_main_9 cpi tempreg1,0x05 ;run brne menu_main_20 menu_main_9: cpi tempreg3,0x08 ;program brcs menu_main_14 ;branch if yes brne menu_main_10 libmio_nokey call fman_main rjmp menu_mainloop menu_main_10: cpi tempreg3,0x09 ;config brne menu_main_11 rcall menu_wnk call confp_main ;call config rjmp menu_mainloop menu_main_11: libmio_nokey call infopage_main ;call info rjmp menu_mainloop ;a program menu_main_14: rcall menu_wnk0 clr ereg call menu_runprog ;run pogram rjmp menu_mainloop menu_main_20: cpi tempreg3,0x08 ;program brcc menu_main_4 ;branch if not menu_main_22: cpi tempreg1,0x02 ;edit brne menu_main_23 rcall menu_wnk0 clr ereg call menu_editloop ;edit program rjmp menu_mainloop menu_main_23: cpi tempreg1,0x03 ;save brne menu_main_24 rcall menu_wnk0 call fsys_savebas rjmp menu_mainloop menu_main_24: cpi tempreg1,0x04 ;load brne menu_main_40 rcall menu_wnk0 call fsys_loadbas ;edit program call editor_pclear rjmp menu_mainloop menu_main_40: cpi tempreg1,0x07 ;copy brne menu_main_41 rcall menu_wnk0 call menu_copy ;copy program rjmp menu_mainloop menu_main_41: cpi tempreg1,0x08 ;recv brne menu_main_42 rcall menu_wnk0 call fsys_tal call send_prog ;send program rjmp menu_mainloop menu_main_42: cpi tempreg1,0x09 ;send brne menu_main_43 rcall menu_wnk0 call fsys_tal call recv_prog ;receive program call editor_pclear rjmp menu_mainloop menu_main_43: cpi tempreg1,0x0a ;clear brne menu_main_44 rcall menu_wnk0 call menu_clear ;clear program call editor_pclear rjmp menu_mainloop menu_main_44: rjmp menu_main_4 ;no valid key ;------------------------------------------------------------------------------ ;info text (version) ;------------------------------------------------------------------------------ menu_itext1: libmio_thistext .db 255,"AVR-ChipBasic2 V1.42",0 ret ;------------------------------------------------------------------------------ ;wait for key release ;------------------------------------------------------------------------------ menu_wnk0: sts libmio_lastmenu,tempreg3 menu_wnk: lds XL,libmio_keycode cpi XL,0 brne menu_wnk ;wait for key release ret ;------------------------------------------------------------------------------ ;draw program icon (r18=number, tempreg3=invert 0/1) ;------------------------------------------------------------------------------ menu_prgicon: ldi XL,0x01 ;X coord of icon 0 ldi XH,0x03 ;Y coord of icon 0 sbrc r18,0 subi XL,0xf9 ;X+7 sbrc r18,1 subi XL,0xf2 ;X+14 sbrc r18,2 subi XH,0xfa ;Y+6 mov tempreg1,r18 call mem_readf1 cpi tempreg1,'B' ;type byte brne menu_pric_ld clt ;standard icon ldi tempreg1,0x0e ;white on black lpm r16,Z ;first byte cpi r16,0x5f ;non-startable brne menu_pric_drw ;no ldi tempreg1,0x0c ;yellow on black rjmp menu_pric_drw ;binary file menu_pric_ld: menu_pric_bin: mov tempreg1,tempreg2 ;copy flag byte lsl tempreg1 bst tempreg1,4 andi tempreg1,0x0e ;mask bits bld tempreg1,0 set ;draw program icon menu_pric_drw: cp tempreg3,r18 ;selected? brne menu_pric_dw1 ;no swap tempreg1 ;invert color menu_pric_dw1: sts libmio_color,tempreg1 ;set color libmio_gotoxy brts menu_pric_dw4 ;branch if bin icon libmio_thistext .db 255,0x20,0x20,0 ldi tempreg1,'P' libmio_outchar mov tempreg1,r18 ;prg number subi tempreg1,0xcf ;+0x31 libmio_outchar libmio_thistext .db 255,0x20,0x20,0 inc XH libmio_gotoxy libmio_thistext .db 255,0x20,0x20,0xd0,0xd1,0x20,0x20,0 inc XH libmio_gotoxy libmio_thistext .db 255,0x20,0x20,0xd2,0xd3,0x20,0x20,0 inc XH rjmp menu_prgi_e ;now output text menu_pric_dw4: adiw ZL,16 ;start of icon libmio_gotoxy ldi r17,3 menu_prgi_01: ldi r16,4 libmio_outspace menu_prgi_02: lpm tempreg1,Z+ libmio_outchar dec r16 brne menu_prgi_02 libmio_outspace inc XH libmio_gotoxy dec r17 brne menu_prgi_01 menu_prgi_e: mov tempreg1,r18 call mem_progadr_0 ;start address libmio_gotoxy ldi tempreg3,0x06 ;chars per line menu_prgicon_1: lpm tempreg1,Z+ libmio_outchar dec tempreg3 brne menu_prgicon_1 inc XH libmio_gotoxy ldi tempreg3,0x06 ;chars per line menu_prgicon_2: lpm tempreg1,Z+ libmio_outchar dec tempreg3 brne menu_prgicon_2 ret ;------------------------------------------------------------------------------ ;draw info icon (X=coord) ;------------------------------------------------------------------------------ menu_inficon: ldi tempreg1,0x0a ;cyan on black cpi tempreg3,0x0a brne menu_inficon_1 swap tempreg1 menu_inficon_1: sts libmio_color,tempreg1 libmio_thistext .db 15,15,0x20,0x20,0x20,0x20,0x20,0x20,0,0 libmio_thistext .db 16,15,0x20,0x20,0xd4,0xd5,0x20,0x20,0,0 libmio_thistext .db 17,15,0x20,0x20,0xd6,0xd7,0x20,0x20,0,0 libmio_thistext .db 18,15," INFO ",0,0 ret ;------------------------------------------------------------------------------ ;draw stat ;------------------------------------------------------------------------------ menu_stat: ldi tempreg1,0x0a ;cyan on black menu_stat_1: sts libmio_color,tempreg1 libmio_thistext .db 20,2,"MCU:644",0 menu_gettype: ldi ZL,0xcc ;UBRR1L clr ZH ld tempreg1,Z ldi r18,0xa5 st Z,r18 ld r18,Z st Z,tempreg1 ldi tempreg1,' ' cpi r18,0xa5 brne menu_m644 ldi tempreg1,'P' menu_m644: libmio_outchar menu_stat_1a: libmio_thistext .db 20,22,"KBD:",0,0 ldi ZL,LOW(libmio_ktables*2+256) ldi ZH,HIGH(libmio_ktables*2+256) lpm tempreg1,Z libmio_outchar subi ZL,0x80 lpm tempreg1,Z libmio_outchar libmio_thistext .db 20,12,"VID:",0,0 lds tempreg4,libmio_config sbrc tempreg4,2 rjmp menu_stat_2 libmio_thistext .db 255,"NTSC",0 rjmp menu_stat_3 menu_stat_2: libmio_thistext .db 255,"PAL ",0 menu_stat_3: ret ;------------------------------------------------------------------------------ ;draw conf icon (X=coord) ;------------------------------------------------------------------------------ menu_cfgicon: ldi tempreg1,0x08 ;green on black cpi tempreg3,0x09 brne menu_cfgicon_1 swap tempreg1 menu_cfgicon_1: sts libmio_color,tempreg1 libmio_thistext .db 15,8,0x20,0x20,0x20,0x20,0x20,0x20,0,0 libmio_thistext .db 16,8,0x20,0x20,0xd8,0xd9,0x20,0x20,0,0 libmio_thistext .db 17,8,0x20,0x20,0xda,0xdb,0x20,0x20,0,0 libmio_thistext .db 18,8,"CONFIG",0,0 ret ;------------------------------------------------------------------------------ ;draw flash icon (X=coord) ;------------------------------------------------------------------------------ menu_memicon: ldi tempreg1,0x0c ;yellow on black cpi tempreg3,0x08 brne menu_memicon_1 swap tempreg1 menu_memicon_1: sts libmio_color,tempreg1 libmio_thistext .db 15,1,0x20,0x20,0x20,0x20,0x20,0x20,0,0 libmio_thistext .db 16,1,0x20,0x20,0xdc,0xdd,0x20,0x20,0,0 libmio_thistext .db 17,1,0x20,0x20,0xde,0xdf,0x20,0x20,0,0 libmio_thistext .db 18,1,"DFLASH",0,0 ret ;------------------------------------------------------------------------------ ;copy program ;------------------------------------------------------------------------------ menu_copy: ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;maximal sized box ldi YH,14 ldi ZL,28 ldi ZH,18 libmio_whbox ldi XL,0x40 ;color scheme (black on green) libmio_setcolor call editor_pclear libmio_thistext .db 15,2,"Copy Program to",0 lds tempreg4,libmio_lastmenu ;active number menu_copy_1: ldi tempreg3,0 menu_copy_2: ldi XL,0x0c ;color scheme (yellow on black) cp tempreg3,tempreg4 brne menu_copy_3 ldi XL,0x60 ;color scheme (black on yellow) menu_copy_3: libmio_setcolor ldi XH,17 mov XL,tempreg3 lsl XL add XL,tempreg3 subi XL,-3 libmio_gotoxy ldi tempreg1,'P' libmio_outchar mov tempreg1,tempreg3 andi tempreg1,0x07 subi tempreg1,-49 libmio_outchar inc tempreg3 cpi tempreg3,0x08 brne menu_copy_2 menu_copy_4: libmio_waitkey cpi tempreg1,0xe2 ;left brne menu_copy_5 cpi tempreg4,0x00 breq menu_copy_4 dec tempreg4 rjmp menu_copy_1 menu_copy_5: cpi tempreg1,0xe3 ;right brne menu_copy_6 cpi tempreg4,0x07 breq menu_copy_4 inc tempreg4 rjmp menu_copy_1 menu_copy_6: cpi tempreg1,0xea ;enter brne menu_copy_7 call mem_copy ret menu_copy_7: cpi tempreg1,0xed ;esc brne menu_copy_4 ret ;------------------------------------------------------------------------------ ;clear program ;------------------------------------------------------------------------------ menu_clear: ldi XL,0x2f ;color scheme (white on red) libmio_setcolor ldi YL,1 ;maximal sized box ldi YH,14 ldi ZL,28 ldi ZH,18 libmio_wbox call editor_pclear libmio_thistext .db 16,2,"Clear this program (y/n)?",0 menu_clear_1: libmio_waitkey cpi tempreg1,'y' breq menu_clear_y cpi tempreg1,'n' breq menu_clear_n cpi tempreg1,0xed ;ESC breq menu_clear_n rjmp menu_clear_1 menu_clear_y: call mem_clear menu_clear_n: ret ;------------------------------------------------------------------------------ ; editor loop ;------------------------------------------------------------------------------ menu_editloop: libmio_nokey call mem_readfirst cpi tempreg1,'N' ;native breq menu_editloop0 cpi tempreg1,'L' ;loader breq menu_editloop0 call editor_main sts libmio_kflags,const_0 lds XL,libmio_lastkey cpi XL,0xf4 ;F4 breq menu_editloop1 menu_editloop0: rjmp menu_main menu_editloop1: call mem_readfirst lpm tempreg1,Z cpi tempreg1,0x5f ;plain text breq menu_editloop rcall menu_runprog ;run program call mem_getconf libmio_sysconf clr XL libmio_setvmode menu_editloop3: rjmp menu_editloop ;------------------------------------------------------------------------------ ;run program ;------------------------------------------------------------------------------ menu_runprog: libmio_clrscr ;clear screen from menu call sys_extsearch clr ereg ;clear error flag sts libmio_keycode,const_0 ;clear keyboard call mem_progadr ;start address lpm tempreg1,Z cpi tempreg1,0x5f ;plain text breq menu_rp0 ;cannot start this adiw ZL,12 lpm tempreg1,Z+ ;get type cpi tempreg1,'B' ;BASIC breq menu_runprg_0 ;run BAS program cpi tempreg1,'N' ;native brne menu_rp0 ;do nothing lpm tempreg1,Z+ ;get flag byte sbrc tempreg1,4 ;skip if run flag is set ret menu_runn: lsr ZH ldi ZL,0x10 icall ;call prg call mem_getconf libmio_sysconf menu_rp0: ret ;goto menu menu_runprg_0: call tbrun ;run programm call mem_getconf libmio_sysconf sts libmio_font,const_0 sts libmio_seqspeed,const_0 ;stop sequencer lds XL,libmio_config andi XL,0x7f ;scroll mode sts libmio_config,XL sts libmio_channel,const_0 ;set output to screen libmio_slow ;set video on menu_runprog3: sbrc vline_l,3 ldi XL,0xee ;white sbrs vline_l,3 ldi XL,0x44 ;red sts libmio_border,XL menu_runprog4: lds XL,libmio_kflags sbrc XL,1 rjmp menu_runprog6 lds XL,libmio_keycode cpi XL,0xed ;esc brne menu_runprog3 ;wait for esc key menu_runprog5: libmio_nokey ret menu_runprog6: sts libmio_border,const_0 libmio_screenshot rjmp menu_runprog3 ;111111222222333333444444555555 menu_data: .db " Edit Save Load Run ",3,0 ;2 levels, all keys menu_cdata: .db " Copy Send Recv Clear"SOURCE_142/SOURCE_system/modules/editor.asm0000755000175000001440000011005711725741457017561 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# full screen editor # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .set editor_linestart = 2 .set editor_linedigits = 2 .set editor_unchanged = 32 .set editor_changed = '*' ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ editor_entry: ldi XL,0x00 ;Boder=black libmio_setborder ;set ldi XL,0x03 libmio_chpump push ereg lds tempreg1,libmio_lastmenu ;prg to edit call mem_setprog ;set program pointer libmio_clrscr ;clear screen libmio_emode ;set screen in editor mode clr ctrl ;set mode ;editor_tloop: rjmp editor_tloop editor_entry_1: lds tempreg1,libmio_keycode ;wait for key release cpi tempreg1,0x00 brne editor_entry_1 libmio_thistext .db 0,0,editor_unchanged,"PROGRAM ",0 lds tempreg1,libmio_lastmenu ;prg number subi tempreg1,0xcf ;+0x31 libmio_outchar ldi tempreg1,':' libmio_outchar ldi YL,LOW(libmio_vram+11) ;start of program name ldi YH,HIGH(libmio_vram+11) rcall editor_cstat rcall editor_shline call mem_load ;load program rcall editor_renum ;number lines pop ereg ldi XL,0x88 ;black on green cpi ereg,0 breq editor_entry_p editor_lnum_2: ldi XL,0xcc ;black on yellow ldi ZL,LOW(errtab1*2) ldi ZH,HIGH(errtab1*2) editor_lnum_3: cpi ereg,1 breq editor_entry_o ldi XL,0x4b ;white on red dec ereg editor_lnum_4: lpm tempreg1,Z+ cpi tempreg1,0 brne editor_lnum_4 rjmp editor_lnum_3 editor_entry_o: rcall editor_fstat ;fill status line ldi ctrl,0x02 ldi XL,5 ldi XH,1 libmio_gotoxy libmio_romtext ;errortext libmio_thistext .db 255," IN P",0,0 lds tempreg1,libmio_prog subi tempreg1,0xcf libmio_outchar ldi tempreg1,':' libmio_outchar clr XH mov XL,r12 ;line no inc XL libmio_outdez ldi tempreg1,':' libmio_outchar mov XL,r13 ;statement inc XL libmio_outdez editor_entry_p: ret ;thats all editor_cset: ldi XL,editor_changed ;change signal char mov tempreg6,XL ldi tempreg4,editor_unchanged ret ;------------------------------------------------------------------------------ ;main editor loop ;------------------------------------------------------------------------------ editor_main: clr ctrl ;normal mode rcall editor_cset rcall editor_entry editor_main_00: rcall editor_pread editor_main_0: sts libmio_edstart,r13 editor_main_1: libmio_ecursor libmio_screenshot lds tempreg2,libmio_kbdstate ;------------------------------------------------------------------------------ ;pos1 key ;------------------------------------------------------------------------------ cpi tempreg1,0xe0 ;pos1 brne editor_main_2 clr XL ;X=0 sbrc tempreg2,2 clr XH rjmp editor_checkb ;------------------------------------------------------------------------------ ;end key ;------------------------------------------------------------------------------ editor_main_2: cpi tempreg1,0xe1 ;end brne editor_main_3 ldi XL,libmio_ecols-4 sbrc tempreg2,2 clr XL sbrc tempreg2,2 ldi XH,94 rjmp editor_checkb ;------------------------------------------------------------------------------ ;cursor left key ;------------------------------------------------------------------------------ editor_main_3: cpi tempreg1,0xe2 ;left brne editor_main_4 dec XL rjmp editor_checkb ;------------------------------------------------------------------------------ ;cursor right key ;------------------------------------------------------------------------------ editor_main_4: cpi tempreg1,0xe3 ;right brne editor_main_5 inc XL mov ctrl,XH call editor_fend ;find end cp ctrl,XL brcc editor_main_41 cpi XH,bas_lines-1 brne editor_main_40 dec XL rjmp editor_checkb editor_main_40: clr XL inc XH editor_main_41: rjmp editor_checkb ;------------------------------------------------------------------------------ ;cursor up key ;------------------------------------------------------------------------------ editor_main_5: cpi tempreg1,0xe4 ;up brne editor_main5 dec XH sbrc XH,7 clr XH rjmp editor_checkb ;------------------------------------------------------------------------------ ;page up key ;------------------------------------------------------------------------------ editor_main5: cpi tempreg1,0xe6 ;page up brne editor_main6 subi XH,0x08 sbrc XH,7 clr XH rjmp editor_checkb ;------------------------------------------------------------------------------ ;page down key ;------------------------------------------------------------------------------ editor_main6: cpi tempreg1,0xe7 ;page down brne editor_main_6 subi XH,0xf8 rjmp editor_checkb ;------------------------------------------------------------------------------ ;cursor down key ;------------------------------------------------------------------------------ editor_main_6: cpi tempreg1,0xe5 ;down brne editor_main_7 inc XH rjmp editor_checkb ;------------------------------------------------------------------------------ ;enter key ;------------------------------------------------------------------------------ editor_main_7: cpi tempreg1,0xea ;enter brne editor_main_70 inc XH clr XL ;------------------------------------------------------------------------------ ;limit coordinates to editable area ;------------------------------------------------------------------------------ editor_checkb: cpi XL,0x80 ;out of left bound? brcs editor_checkb1 ;no ldi XL,libmio_ecols-4 ;set to right pos dec XH ;prev line cpi XH,0x80 ;out of upper bound? brcs editor_chb6 ;no -> find line end clr XL ;set pos to 0,0 clr XH rjmp editor_main_0 ;editor loop editor_checkb1: cpi XL,libmio_ecols-3 ;out of right bound? brcs editor_chb3 ;no cpi XH,bas_lines-1 ;last line? breq editor_chb6 ;yes -> find line end clr XL ;X=0 inc XH ;next line rjmp editor_main_0 ;editor loop editor_chb3: cpi XH,bas_lines brcs editor_chb4 ldi XH,bas_lines-1 editor_chb4: mov r16,XH ;y-coord cp r16,r13 ;check if line is visible brcc editor_chb5 mov r13,r16 editor_chb5: mov r16,r13 ;display Y subi r16,0xf1 ;+15 cp r16,XH ;check if line is visible brcc editor_chb6 mov r16,XH subi r16,0x0f mov r13,r16 editor_chb6: mov ctrl,XH call editor_fend ;find end cp ctrl,XL brcc editor_chb7 mov XL,ctrl editor_chb7: rjmp editor_main_0 ;------------------------------------------------------------------------------ ;alt+delete key ;------------------------------------------------------------------------------ editor_main_70: mov ctrl,XH cpi tempreg1,0xee ;delete brne editor_main_75 push XL push XH call editor_dline pop XH pop XL rjmp editor_change ;------------------------------------------------------------------------------ ;alt+insert key (insert line) ;------------------------------------------------------------------------------ editor_main_75: cpi tempreg1,0xef ;insert brne editor_main_8 push XH call editor_iline pop XH clr XL rjmp editor_change ;------------------------------------------------------------------------------ ;delete key ;------------------------------------------------------------------------------ editor_main_8: cpi tempreg1,0xe9 ;delete brne editor_main_9 rcall editor_dchar rjmp editor_change ;------------------------------------------------------------------------------ ;backspace key ;------------------------------------------------------------------------------ editor_main_9: cpi tempreg1,0xec ;backspace brne editor_main_a cpi XL,0 ;at the begin of the line? brne editor_main_91 ;no rjmp editor_main_1 ;loop editor_main_91: dec XL rcall editor_dchar rjmp editor_change ;loop ;------------------------------------------------------------------------------ ;check control key ;------------------------------------------------------------------------------ editor_main_a: andi tempreg2,0x04 ;left ctrl brne editor_mainc_1 rjmp editor_mai_nc ;------------------------------------------------------------------------------ ;CTRL+F3 receive program ;------------------------------------------------------------------------------ editor_mainc_1: cpi tempreg1,0xf3 brne editor_mainc_4 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"RECEIVE PROGRAM Y/N ?",0 rcall editor_yn brtc editor_mainc_2 rcall edit_sread rcall editor_renum ;renumber lines rcall editor_cset rcall editor_pclear sts libmio_vram,tempreg6 ;set change symbol editor_mainc_2: rcall editor_cstat clr ereg editor_mainc_3: rjmp editor_main_00 ;------------------------------------------------------------------------------ ;CTRL+F2 transmit program ;------------------------------------------------------------------------------ editor_mainc_4: cpi tempreg1,0xf2 brne editor_mainc_6 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"SEND PROGRAM Y/N ?",0,0 rcall editor_yn brtc editor_mainc_2 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"SENDING",0 ldi XL,1 rjmp editor_cout ;------------------------------------------------------------------------------ ;CTRL+F4 new program ;------------------------------------------------------------------------------ editor_mainc_6: cpi tempreg1,0xf4 brne editor_mainc_8 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"CLEAR PROGRAM Y/N ?",0 rcall editor_yn brtc editor_mainc_7 rcall editor_pnew ;clear prog rcall editor_renum rcall editor_cset rcall editor_pclear sts libmio_vram,tempreg6 ;set change symbol editor_mainc_7: rjmp editor_mainc_2 ;------------------------------------------------------------------------------ ;CTRL+F1 print program ;------------------------------------------------------------------------------ editor_mainc_8: cpi tempreg1,0xf1 brne editor_copy ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"PRINT PROGRAM Y/N ?",0 rcall editor_yn brtc editor_mainc_9 ldi XL,0x4b rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"PRINTING",0,0 ldi XL,0x02 editor_cout: sts libmio_channel,XL rcall edit_opr sts libmio_channel,const_0 rcall editor_cset editor_mainc_9: rjmp editor_mainc_2 ;------------------------------------------------------------------------------ ;ctrl/c copy ;------------------------------------------------------------------------------ editor_copy: cpi tempreg1,'c' brne editor_move rcall editor_wrbuf ;copy to inbuf rjmp editor_main_1 ;------------------------------------------------------------------------------ ;ctrl/x move ;------------------------------------------------------------------------------ editor_move: cpi tempreg1,'x' brne editor_paste call editor_wrbuf ;copy to inbuf rcall editor_clrline sts libmio_vram,tempreg6 ;set change symbol rjmp editor_pstend ;------------------------------------------------------------------------------ ;ctrl/v paste ;------------------------------------------------------------------------------ editor_paste: ldi YL,LOW(libmio_vram+29) ldi YH,HIGH(libmio_vram+29) cpi tempreg1,'v' brne editor_find ld tempreg3,Y cpi tempreg3,'B' brne editor_pstenx ldi tempreg3,6 editor_paste1: st Y+,const_0 ;clear buffer text dec tempreg3 brne editor_paste1 rcall editor_rdbuf rcall editor_renum sts libmio_vram,tempreg6 ;set change symbol rjmp editor_main_1 editor_pstend: clr ereg editor_pstenx: rjmp editor_main_1 ;------------------------------------------------------------------------------ ;ctrl/f find ;------------------------------------------------------------------------------ editor_find: cpi tempreg1,'f' brne editor_pstend rcall editor_tfind rjmp editor_main_1 ;------------------------------------------------------------------------------ ;F2 save ;------------------------------------------------------------------------------ editor_mai_nc: cpi tempreg1,0xf2 brne editor_main_c push XH ;save cursor pos push XL rcall editor_uc breq editor_main_b1 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"SAVE PROGRAM Y/N ?",0,0 rcall editor_yn brtc editor_main_b call mem_save call mem_load rcall editor_renum rcall editor_cset sts libmio_vram,tempreg4 ;set unchange symbol editor_main_b: rcall editor_cstat clr ereg editor_main_b1: pop XL ;restore cursor pos pop XH rjmp editor_main_0 ;------------------------------------------------------------------------------ ;F3 Load ;------------------------------------------------------------------------------ editor_main_c: cpi tempreg1,0xf3 brne editor_mainr push XH ;save cursor pos push XL rcall editor_uc breq editor_main_c1 ldi XL,0xcc rcall editor_fstat ;clear status line libmio_thistext .db 1,7,"LOST CHANGES Y/N ?",0,0 rcall editor_yn brtc editor_main_b call mem_load rcall editor_renum rcall editor_cset sts libmio_vram,tempreg4 ;set unchange symbol editor_main_c1: rjmp editor_main_b ;------------------------------------------------------------------------------ ;F1 edit programm name ;------------------------------------------------------------------------------ editor_mainr: cpi tempreg1,0xf1 brne editor_exit movw tempreg7,XL rcall editor_ren movw XL,tempreg7 sts libmio_vram,tempreg6 ;set change symbol rjmp editor_main_1 editor_main_ex: rjmp editor_main_b ;jump extender ;------------------------------------------------------------------------------ ;ESC ;------------------------------------------------------------------------------ editor_exit: cpi tempreg1,0xed brne editor_main_k push XH ;save cursor pos push XL rcall editor_uc breq editor_exit_3 editor_exit_1: ldi XL,0xcc rcall editor_fstat libmio_thistext .db 1,7,"QUIT W/O SAVE Y/N ?",0 rcall editor_yn brtc editor_main_ex editor_exit_2: lds XL,libmio_keycode cpi XL,0 brne editor_exit_2 editor_exit_3: libmio_nmode ;switch to normal mode ldi XL,0x00 libmio_setvmode pop XL pop XH rcall editor_pwrite ret ;------------------------------------------------------------------------------ ;F4 run ;------------------------------------------------------------------------------ editor_main_k: cpi tempreg1,0xf4 ;F4 brne editor_main_f ;no rcall editor_pwrite rcall editor_uc brne editor_main_l libmio_nmode ;switch to normal mode libmio_clrscr ;clear screen ret ;go back and run editor_main_l: ldi XL,0x69 ;magenta rcall editor_fstat libmio_thistext .db 1,7,"SAVE CHANGES BEFORE RUN!",0,0 libmio_waitkey rjmp editor_main_b editor_main_f: cpi tempreg1,0xeb ;tab brne editor_main_20 ;no cpi XL,25 brcc editor_main_20 ldi tempreg1,0x20 ;space rcall editor_ichar editor_mtab: ldi tempreg1,0x20 ;space mov ZL,XL editor_mtab1: subi ZL,3 breq editor_change brcc editor_mtab1 rcall editor_ichar rjmp editor_mtab ;------------------------------------------------------------------------------ ;a visible char ;------------------------------------------------------------------------------ editor_main_20: lds tempreg2,libmio_kbdstate sbrc tempreg2,2 ;left ctrl rjmp editor_main_ig ;ignore sbrc tempreg2,3 ;right ctrl rjmp editor_main_ig ;ignore cpi tempreg1,0x1c ;degree brcs editor_main_ig ;ignore less cpi tempreg1,0x80 ;last visible+1 brcc editor_main_ig ;igore greater or equal rcall editor_ichar ;insert char editor_change: sts libmio_vram,tempreg6 ;set change symbol editor_main_ig: rjmp editor_main_1 editor_ichar: cpi XL,libmio_ecols-4 ;we are at the end? breq editor_ichar2 ;yes mov tempreg2,XL ;save X-pos ldi XL,libmio_ecols-4 libmio_ecalc editor_ichar1: ld tempreg3,-Y ;char on cursor pos std Y+1,tempreg3 ;write to next dec XL cp XL,tempreg2 brne editor_ichar1 st Y,tempreg1 inc XL ret editor_ichar2: libmio_ecalc ;calculate vram address st Y,tempreg1 ret ;loop ;------------------------------------------------------------------------------ ;del char on cursor pos ;------------------------------------------------------------------------------ editor_dchar: libmio_ecalc ;get memory position mov tempreg2,XL ;copy x-coordinate editor_dchar_1: cpi tempreg2,libmio_ecols-4 ;at the end? breq editor_dchar_2 ldd tempreg1,Y+1 st Y+,tempreg1 inc tempreg2 rjmp editor_dchar_1 editor_dchar_2: ldi tempreg2,0x20 ;space st Y,tempreg2 ret ;------------------------------------------------------------------------------ ;check keys for Y/N ;------------------------------------------------------------------------------ editor_yn: libmio_waityesno ret ;------------------------------------------------------------------------------ ;check for unchanged-symbol ;------------------------------------------------------------------------------ editor_uc: lds XL,libmio_vram cpi XL,editor_unchanged ;no change ret ;------------------------------------------------------------------------------ ;clear status line ;------------------------------------------------------------------------------ editor_cstat: ldi XL,0x88 ;black on green rcall editor_fstat libmio_thistext .db 1,5,"OK",0,0 ret ;------------------------------------------------------------------------------ ;fill status line with XL ;------------------------------------------------------------------------------ editor_fstat: push ZL push ZH clr ctrl ;normal text sts libmio_estatus,XL libmio_thistext .db 1,5," ",0 pop ZH pop ZL ret ;----------------------------------------------------------------------- ; edit name ;----------------------------------------------------------------------- editor_ren: ldi XL,0 edit_ren_01: libmio_ncursor ;view cursor cpi tempreg1,0xea ;enter brne edit_ren_02 ret edit_ren_02: cpi tempreg1,0xe2 ;cursor left brne edit_ren_03 cpi XL,0 breq edit_ren_01 dec XL rjmp edit_ren_01 edit_ren_03: cpi tempreg1,0xe3 ;cursor right brne edit_ren_04 cpi XL,11 breq edit_ren_01 inc XL rjmp edit_ren_01 edit_ren_04: cpi tempreg1,0x20 brcs edit_ren_01 cpi tempreg1,0x80 brcc edit_ren_01 st Y,tempreg1 cpi XL,11 breq edit_ren_05 inc XL edit_ren_05: rjmp edit_ren_01 ;----------------------------------------------------------------------- ; output program ;----------------------------------------------------------------------- edit_opr: ldi YL,LOW(libmio_vram+1) ldi YH,HIGH(libmio_vram+1) ldi tempreg2,7 ;number of chars edit_opr_1a: ld tempreg1,Y+ libmio_outchar dec tempreg2 brne edit_opr_1a ldi tempreg2,22 ;number of chars adiw YL,2 ldi tempreg2,13 edit_opr_1b: ld tempreg1,Y+ libmio_outchar dec tempreg2 brne edit_opr_1b libmio_newline ldi tempreg1,bas_lines-1 edit_opr_2: rcall edit_chkl brts edit_opr_3 ;no empty dec tempreg1 brne edit_opr_2 edit_opr_3: mov tempreg2,tempreg1 ;max linennumber inc tempreg2 clr tempreg1 edit_opr_4: cp tempreg1,tempreg2 breq edit_opr_5 rcall edit_outl ;output line inc tempreg1 rjmp edit_opr_4 edit_opr_5: ldi tempreg1,'#' libmio_outchar libmio_newline ret ;------------------------------------------------------------------------------ ;check if line tempreg1 is empty ;------------------------------------------------------------------------------ edit_chkl: push YL push YH push tempreg2 push tempreg3 clt ;set to empty ldi YL,LOW(libmio_vram+108) ;start of text ldi YH,HIGH(libmio_vram+108) ldi tempreg2,35 mul tempreg1,tempreg2 add YL,r0 adc YH,r1 ldi tempreg2,32 ;chars per line edit_chkl_1: ld tempreg3,Y+ ;get char cpi tempreg3,0x21 brcc edit_chkl_2 dec tempreg2 brne edit_chkl_1 pop tempreg3 pop tempreg2 pop YH pop YL ret edit_chkl_2: set ;not empty pop tempreg3 pop tempreg2 pop YH pop YL ret ;------------------------------------------------------------------------------ ;output line tempreg1 ;------------------------------------------------------------------------------ edit_outl: push YH push YL push tempreg1 push tempreg2 push tempreg3 ldi YL,LOW(libmio_vram+105) ;start of text ldi YH,HIGH(libmio_vram+105) ldi tempreg2,35 mul tempreg1,tempreg2 add YL,r0 adc YH,r1 push YH ;save line address push YL adiw YL,35 ;go to end of line+1 ldi tempreg2,35 edit_outl_1: ld tempreg3,-Y ;get char cpi tempreg3,0x21 ;space+1 brcc edit_outl_2 dec tempreg2 ;char counter brne edit_outl_1 edit_outl_2: pop YL ;restore address pop YH edit_outl_3: ld tempreg1,Y+ libmio_outchar dec tempreg2 brne edit_outl_3 libmio_newline pop tempreg3 pop tempreg2 pop tempreg1 pop YL pop YH ret ;------------------------------------------------------------------------------ ;standard helpline ;------------------------------------------------------------------------------ editor_shline: push_ptr push tempreg1 ldi ZL,LOW(editor_shld*2) ldi ZH,HIGH(editor_shld*2) editor_shl0: ldi XL,LOW(libmio_vram+70) ldi XH,HIGH(libmio_vram+70) editor_shl1: lpm tempreg1,Z+ cpi tempreg1,0x00 breq editor_shl2 st X+,tempreg1 rjmp editor_shl1 editor_shl2: pop tempreg1 pop_ptr ; -------+++++++-------+++++++------- editor_shld: .db " Exit Name Save Reload Run ",0 ;------------------------------------------------------------------------------ ;control helpline ;------------------------------------------------------------------------------ editor_chline: push_ptr push tempreg1 ldi ZL,LOW(editor_chld*2) ldi ZH,HIGH(editor_chld*2) rjmp editor_shl0 ; -------+++++++-------+++++++------- editor_chld: .db " Print Send Recv New ",0 ;------------------------------------------------------------------------------ ;receive helpline ;------------------------------------------------------------------------------ editor_rhline: push_ptr push tempreg1 ldi ZL,LOW(editor_rhld*2) ldi ZH,HIGH(editor_rhld*2) rjmp editor_shl0 ; -------+++++++-------+++++++------- editor_rhld: .db " Abort ",0 ;------------------------------------------------------------------------------ ; read from serial ;------------------------------------------------------------------------------ edit_sread: rcall editor_rhline ldi XL,0xcc rcall editor_fstat libmio_thistext ;show head .db 1,5,"RECEIVING...",0,0 sts libmio_edstart,const_0 edit_lread: rcall editor_pnew rcall editor_renum clr ctrl ;start with line 0 ldi ZL,0xcc ;bk on white sts libmio_estatus,ZL ldi ZL,LOW(libmio_vram+11) ldi ZH,HIGH(libmio_vram+11) mov r14,ZL mov r15,ZH ldi tempreg1,0x11 ;XON libmio_pser ;send ldi tempreg2,0x0c ;name length edit_sreadn: libmio_gserb ;read name cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort cpi tempreg1,':' ;ignore all ecxept colon brne edit_sreadn edit_sreadn2: libmio_gserb ;get serial cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort cpi tempreg1,0x20 ;space brcs edit_sreadn4 ;is less -> control edit_sreadn3: st Z+,tempreg1 dec tempreg2 ;limit length brne edit_sreadn2 ;loop edit_sreadn4: cpi tempreg1,0x20 ;space brcs edit_sread0 ;is less -> control libmio_gserb cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort rjmp edit_sreadn4 edit_sread0: ldi ZL,LOW(libmio_vram+2*libmio_ecols) ldi ZH,HIGH(libmio_vram+2*libmio_ecols) mov r14,ZL mov r15,ZH edit_sread1: ldi tempreg2,libmio_ecols mov ZL,r14 mov ZH,r15 adiw ZL,libmio_ecols mov r14,ZL mov r15,ZH edit_sreadv: libmio_gserb cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort cpi tempreg1,0x20 ;ignore all less than space brcs edit_sreadv cpi tempreg1,'#' ;end breq edit_sread5 rjmp edit_sread2a edit_sread2: libmio_gserb ;get serial cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort cpi tempreg1,0x20 ;space brcs edit_sread3 ;is less -> control edit_sread2a: st Z+,tempreg1 dec tempreg2 brne edit_sread2 ;OK edit_sread2b: libmio_gserb ;get serial cpi tempreg1,0x1b ;ESC breq edit_sread5 ;abort cpi tempreg1,0x20 ;space brcc edit_sread2b ;wait for line feed edit_sread3: inc ctrl edit_sread4: cpi ctrl,bas_lines+1 brne edit_sread1 edit_sread5: ret ;------------------------------------------------------------------------------ ; calc line adr of XH to X ;------------------------------------------------------------------------------ editor_lcalc: ldi XL,libmio_ecols ;bytes/vram-line mul XH,XL ldi XL,LOW(libmio_vram+3*libmio_ecols) ;lines start ldi XH,HIGH(libmio_vram+3*libmio_ecols) add XL,r0 ;calc line address adc XH,r1 ret ;------------------------------------------------------------------------------ ; read line [XH] from inbuf to vram ;------------------------------------------------------------------------------ editor_rdbuf: movw tempreg7,XL rcall editor_lcalc ;set address in vram ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) ldi tempreg2,libmio_ecols ;number of chars to copy editor_rdbuf1: ld tempreg1,Y+ ;get from vram st X+,tempreg1 dec tempreg2 brne editor_rdbuf1 movw XL,tempreg7 ret ;------------------------------------------------------------------------------ ; write line [XH] from vram to inbuf ;------------------------------------------------------------------------------ editor_wrbuf: movw tempreg7,XL ldi YL,LOW(libmio_vram+29) ldi YH,HIGH(libmio_vram+29) ldi XL,'B' st Y+,XL ;set buffer text ldi XL,'U' st Y+,XL ;set buffer text ldi XL,'F' st Y+,XL ;set buffer text ldi XL,'=' st Y+,XL ;set buffer text rcall editor_lcalc ;set address in vram ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) ldi tempreg2,libmio_ecols ;number of chars to copy editor_wrbuf1: ld tempreg1,X+ ;get from vram st Y+,tempreg1 dec tempreg2 brne editor_wrbuf1 ldi YL,LOW(libmio_vram+29) ldi YH,HIGH(libmio_vram+29) ldi XL,'B' st Y+,XL ;set buffer text ldi XL,'U' st Y+,XL ;set buffer text ldi XL,'F' st Y+,XL ;set buffer text ldi XL,'=' st Y+,XL ;set buffer text lds tempreg1,bas_inbuf st Y+,tempreg1 ;copy number lds tempreg1,bas_inbuf+1 st Y+,tempreg1,tempreg1 ;copy number movw XL,tempreg7 ret ;------------------------------------------------------------------------------ ; clear line [XH] in vram ;------------------------------------------------------------------------------ editor_clrline: push XH push XL push tempreg1 push tempreg2 rcall editor_lcalc ;set address in vram adiw XL,3 ldi tempreg1,0x20 ;space ldi tempreg2,libmio_ecols-3 ;number of chars to copy editor_cline1: st X+,tempreg1 dec tempreg2 brne editor_cline1 pop tempreg2 pop tempreg1 pop XL pop XH ret ;------------------------------------------------------------------------------ ; new program ;------------------------------------------------------------------------------ editor_pnew: push_ptr push tempreg1 ldi tempreg1,0x20 ;space ldi XL,LOW(libmio_vram+3*libmio_ecols) ;lines start ldi XH,HIGH(libmio_vram+3*libmio_ecols) ldi YL,LOW(bas_lines*libmio_ecols) ldi YH,HIGH(bas_lines*libmio_ecols) editor_pnew_1: st X+,tempreg1 sbiw YL,1 brne editor_pnew_1 pop tempreg1 pop_ptr ;------------------------------------------------------------------------------ ; renumber lines ;------------------------------------------------------------------------------ editor_renum: push_ptr push tempreg1 ldi tempreg1,0x01 ;first linenumber ldi XL,LOW(libmio_vram+3*libmio_ecols) ;lines start ldi XH,HIGH(libmio_vram+3*libmio_ecols) editor_renum1: ldi YL,0x30 ;"0" mov YH,tempreg1 editor_renum2: subi YH,10 ;-10 brcs editor_renum3 inc YL rjmp editor_renum2 editor_renum3: subi YH,0xc6 ;+70 st X+,YL ;10^1 st X+,YH ;10^0 ldi YL,0x20 ;space st X+,YL ;write adiw XL,libmio_ecols-3 ;ptr to next line inc tempreg1 cpi tempreg1,bas_lines+1 brne editor_renum1 pop tempreg1 pop_ptr ;------------------------------------------------------------------------------ ;status messages ;------------------------------------------------------------------------------ errtab1: .db "BREAK",0,"OVERFLOW",0,"DIVIDE /0",0,"SQR FROM <0" errtab5: .db 0,"CONSTANT TOO BIG",0,"WRONG EXPRESSION",0,"SYNTAX ERROR",0,"UNKNOWN KEYWORD",0 errtab9: .db "WRONG FORMAT",0,"BAD LINENUMBER",0,"NEXT W/O FOR",0,"RETURN W/O GOSUB",0 errtab13: .db "STACK OVERFLOW",0,"UNTIL W/O REPEAT",0,"I2C ERROR",0,"UNKNOWN ERROR",0 errtab17: .db "DFLASH ERROR",0,"OUT OF ARRAY",0,"INCOMPLETE PAR",0,"KEYWORD IS MISSING",0 errtab21: .db "WRONG BCOPY ",0,"OUT OF SCREEN",0,"CANNOT CREATE FILE",0,"MEMORY FULL",0 errtab25: .db "FILE NOT FOUND",0,"PAGE NOT IN FILE",0,"PAGES NOT IN RANGE",0,"NOT IN GRAPHICS MODE",0 errtab29: .db "NOT IN TEXT MODE",0,"NO USR FILE",0,"SRC OUT OF SCREEN",0,"DEST OUT OF SCREEN",0 errtab33: .db "WRONG SPRITE",0,"WRONG EEPROM ADR",0,"NO PRG FILE",0,"XMODEM ERROR" errtab37: .db 0,"CANT LOAD THIS",0,"IO DISABLED",0,"SERIAL1 NOT AVAILABLE",0,"NO IO DRIVER",0,"NO LIBRARY",0 ;------------------------------------------------------------------------------ ; delete line [XH] in vram ;------------------------------------------------------------------------------ editor_dline: cpi XH,bas_lines-1 ;last line brcs editor_dline1 ret editor_dline1: push XH ;save line number editor_dline2: rcall editor_cup ;copy next line to this inc XH cpi XH,bas_lines-1 brne editor_dline2 rcall editor_clrline ;clear last line pop XH rjmp editor_renum ;renumber lines ;------------------------------------------------------------------------------ ; insert line [XH] in vram ;------------------------------------------------------------------------------ editor_iline: cpi XH,bas_lines-1 ;last line brcs editor_iline1 ret editor_iline1: push XH ;save registers push XL mov XL,XH ; dec XL ldi XH,bas_lines-2 editor_iline2: rcall editor_cdown dec XH cp XH,XL brne editor_iline2 inc XH rcall editor_clrline pop XL pop XH rjmp editor_renum ;renumber lines ;------------------------------------------------------------------------------ ; copy line [XH] to [XH+1] ;------------------------------------------------------------------------------ editor_cdown: push_ptr rcall editor_lcalc ;set address in vram adiw XL,3 ;skip linenumber movw YL,XL ldi XH,libmio_ecols-3 editor_cdown1: ld XL,Y+ std Y+libmio_ecols-1,XL dec XH brne editor_cdown1 pop_ptr ;------------------------------------------------------------------------------ ; copy line [XH+1] to [XH] ;------------------------------------------------------------------------------ editor_cup: push_ptr rcall editor_lcalc ;set address in vram adiw XL,3 ;skip linenumber movw YL,XL ldi XH,libmio_ecols-3 editor_cup1: ldd XL,Y+libmio_ecols st Y+,XL dec XH brne editor_cup1 pop_ptr ;------------------------------------------------------------------------------ ; find end of line XH (first space pos) ;------------------------------------------------------------------------------ editor_fend: push_ptr rcall editor_lcalc ;calc address movw YL,XL ;copy adiw XL,35 ;set pointer to end of line editor_fend1: ld tempreg1,-X ;get char cpi tempreg1,0x21 ;space brcs editor_fend1 cpi tempreg1,0x80 ;space brcc editor_fend1 editor_fend2: sub XL,YL ;sub start sbc XH,YL mov ctrl,XL subi ctrl,2 ;linenumber sbrc ctrl,7 clr ctrl pop_ptr ;------------------------------------------------------------------------------ ; read cursor and frame position ;------------------------------------------------------------------------------ editor_pread: rcall editor_getep libeep_read ;Y-pos cpi tempreg1,bas_lines brcs editor_pread_1 editor_pread_e: clr XL clr XH mov r13,const_0 ret editor_pread_1: mov XH,tempreg1 libeep_read ;X-pos cpi tempreg1,32 brcc editor_pread_e mov XL,tempreg1 libeep_read ;W-pos cpi tempreg1,80 brcc editor_pread_e mov r13,tempreg1 ret ;------------------------------------------------------------------------------ ; read cursor and frame position ;------------------------------------------------------------------------------ editor_pclear: clr XL clr XH mov r13,const_0 editor_pwrite: rcall editor_getep mov tempreg1,XH libeep_write ;Y-pos mov tempreg1,XL libeep_write ;X-pos mov tempreg1,r13 libeep_write ;W-pos ret ;------------------------------------------------------------------------------ ; get eeprom position ;------------------------------------------------------------------------------ editor_getep: lds r0,libmio_lastmenu ;prg to edit ldi YL,LOW(2000) ldi YH,HIGH(2000) ldi tempreg1,3 mul tempreg1,r0 add YL,r0 adc YH,r1 ret ;------------------------------------------------------------------------------ ; find text ;------------------------------------------------------------------------------ editor_tfind: movw tempreg7,XL ldi XL,0x2e ;white on blue rcall editor_fstat libmio_thistext .db 1,5,"FIND:",0 ldi ZL,0 ;start pos ldi ZH,0x80 ;cursor editor_tfind_1: ldi YL,LOW(libmio_vram+40) ldi YH,HIGH(libmio_vram+40) add YL,ZL st Y,ZH libmio_waitkey cpi tempreg1,0xed ;ESC breq editor_find_e cpi tempreg1,0xea ;ENTER breq editor_fi_01 cpi tempreg1,0xec ;BS brne editor_tfind_4 cpi ZL,0 breq editor_tfind_1 st Y,const_0 dec ZL rjmp editor_tfind_1 editor_tfind_4: cpi tempreg1,0x80 brcc editor_tfind_1 editor_tfind_5: st Y,tempreg1 editor_tfind_6: inc ZL cpi ZL,16 brne editor_tfind_1 dec ZL rjmp editor_tfind_1 editor_find_e: rcall editor_cstat ; mov ZL,r13 ;line movw XL,tempreg7 ret editor_fi_01: cpi ZL,0 ;no text to search breq editor_find_e ;exit find mode mov ZH,tempreg8 ;recent line editor_fi_02: ldi r16,libmio_ecols ;bytes per line mul r16,ZH ;* line number ldi XL,LOW(libmio_vram+3*libmio_ecols+3) ldi XH,HIGH(libmio_vram+3*libmio_ecols+3) add XL,r0 ;add offset adc XH,r1 ldi r17,32 ;number of chars remaining in recent line ;X=PTR to recent line ;ZL= number of chars in find string editor_fi_02a: ldi YL,LOW(libmio_vram+40) ;start of data to find editor_fi_03: cp r17,ZL brcs editor_fi_30 ;cannot, rest of string is too short mov tempreg5,ZL ;number of chars to compare clr r18 ;equal as preset editor_fi_10: ld r0,Y+ ;search string byte ld r1,X+ ;data string byte inc r18 cp r0,r1 ;equal? brne editor_fi_20 ;not equal dec tempreg5 ;loop counter brne editor_fi_10 ;loop rcall editor_itext ;mark text mov tempreg8,ZH ;set Y cursor ldi r16,32 ;chars per line sub r16,r17 ;-remaining mov tempreg7,r16 ;set X cursor editor_fi_12: mov r16,tempreg8 subi r16,8 brcc editor_fi_13 clr r16 editor_fi_13: cpi r16,79 brcs editor_fi_14 ldi r16,79 editor_fi_14: sts libmio_edstart,r16 libmio_waitkey cpi tempreg1,0xea ;ENTER breq editor_fi_16 cpi tempreg1,0xed ;ESC brne editor_fi_12 ;no mov r13,r16 rcall editor_itext rjmp editor_find_e editor_fi_16: rcall editor_itext ;unmark text ;next charpos editor_fi_20: dec r17 sub XL,r18 sbc XH,const_0 adiw XL,1 rjmp editor_fi_02a ;new try ;next line editor_fi_30: inc ZH cpi ZH,95 brne editor_fi_31 clr ZH editor_fi_31: lds tempreg1,libmio_keycode cpi tempreg1,0xed brne editor_fi_02 ;run again rjmp editor_find_e ;invert text block editor_itext: libmio_nokey ;wait for key release sub XL,ZL sbc XH,const_0 mov tempreg5,ZL editor_itext_1: ld r16,X subi r16,0x80 st X+,r16 dec tempreg5 brne editor_itext_1 ret SOURCE_142/SOURCE_system/modules/intro.asm0000755000175000001440000000571011725741457017425 0ustar joergusers;################################################################################ ;# # ;# chipbasic2 - single chip basic computer with ATMega 644 # ;# intro screen # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;intro screen ;------------------------------------------------------------------------------ intro_main: ldi XL,0x01 libmio_setborder clr ctrl ;normal size ldi XL,0x10 ;black on blue libmio_setcolor ;set color libmio_clrscr ;clear screen ldi YL,4 ldi YH,10 ldi ZL,55 ldi ZH,23 libmio_fbox ldi XL,0x07 ;white on black libmio_setcolor ;set color libmio_thistext .db 7,4," ",0 rcall menu_itext1 ;show version number ldi XL,0x16 libmio_setcolor ;set color ldi YL,5 ;X1 ldi YH,8 ;Y1 ldi ZL,6 ;X2 ldi ZH,9 ;Y2 intro_main_1: libmio_fbox ldi YH,24 ldi ZH,25 libmio_fbox ldi YH,8 ldi ZH,9 subi YL,0xfc ;X1+4 subi ZL,0xfc ;X2+4 cpi YL,56 brcs intro_main_1 ldi tempreg3,180 ;wait 3 seconds intro_main_w: libmio_sync lds tempreg1,libmio_kbdstate sbrc tempreg1,1 rjmp intro_ktest lds tempreg1,libmio_lastkey cpi tempreg1,0 breq intro_main_w1 intro_main_m: jmp menu_main ;a key is pressed intro_main_w1: dec tempreg3 brne intro_main_w ldi ZL,0x0c ldi ZH,0x90 ldi tempreg2,8 ;number of programs intro_sload: lpm tempreg1,Z ;get byte cpi tempreg1,'L' ;Loader brne intro_nosload ;start SLOADER ldi ZL,0x10 ;start offset lsr ZH icall ;jump to sloader rjmp intro_selpr ;sel program intro_nosload: subi ZH,0xf4 ;next prg dec tempreg2 brne intro_sload intro_selpr: lds tempreg1,libmio_sysconf1 andi tempreg1,0x70 breq intro_main_m rjmp loop2 intro_ktest: libmio_clrscr libmio_thistext .db 0,0,"Keyboard-Test",0 libmio_newline lds tempreg4,debug_scode intro_ktest_1: lds XL,debug_scode cp XL,const_0 breq intro_ktest_1 sts debug_scode,const_0 ldi ctrl,0 mov tempreg4,XL libmio_outhex libmio_outspace rjmp intro_ktest_1 SOURCE_142/SOURCE_system/modules/configpage.asm0000755000175000001440000002412511725741457020375 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# dataflash file manager # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ confp_main: ldi XL,1 libmio_chpump ;enable chargepump for serial sts libmio_channel,const_0 ;output to screen sts libmio_vidmode,const_0 ;standard video mode ldi XL,0x07 ;color scheme (white on black) libmio_setcolor ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,22 libmio_whbox ldi XL,0x70 ;color scheme (white on black) libmio_setcolor libmio_thistext .db 1,2,"ChipBasic2 configpage",0 ldi XL,0x07 ;color scheme (white on black) libmio_setcolor libmio_thistext .db 20,1,"Checksum: ",0,0 rcall confp_chksum clr r16 ;select first position ;------------------------------------------------------------------------------ ;the main loop ;------------------------------------------------------------------------------ call mem_getconf lds r18,libmio_sysconf ;recent conf lds r19,libmio_sysconf1 ;recent conf confp_loop: rcall confp_sconf ;view status confp_loop_1: ldi ZL,LOW(confp_mbar*2) ldi ZH,HIGH(confp_mbar*2) libmio_menu cpi tempreg1,0x01 ;ESC brne confp_loop_2 confp_loop_1a: ret confp_loop_2: cpi tempreg1,0x03 ;SAVE brne confp_loop_3 sts libmio_sysconf,r18 ;recent conf sts libmio_sysconf1,r19 ;recent conf call mem_setconf libmio_sync libmio_sync jmp 0 confp_loop_3: cpi tempreg1,0xe4 ;up brne confp_loop_4 cpi r16,1 brcs confp_loop_1 dec r16 rjmp confp_loop confp_loop_4: cpi tempreg1,0xe5 ;down brne confp_loop_5 cpi r16,7 brcc confp_loop_1 inc r16 rjmp confp_loop confp_loop_5: cpi tempreg1,0x02 ;F1=change brne confp_loop_1 ;------------------------------------------------------------------------------ ;change serial speed ;------------------------------------------------------------------------------ confp_main_55: cpi r16,0 brne confp_main_60 eor r18,const_1 ;change rjmp confp_loop ;------------------------------------------------------------------------------ ;change I2C speed ;------------------------------------------------------------------------------ confp_main_60: cpi r16,1 brne confp_main_65 ldi tempreg4,0x10 eor r18,tempreg4 rjmp confp_loop ;------------------------------------------------------------------------------ ;change SPI speed ;------------------------------------------------------------------------------ confp_main_65: cpi r16,2 brne confp_as_01 ldi tempreg4,0x08 eor r18,tempreg4 ;toggle bit 3 confp_main_67: rjmp confp_loop ;------------------------------------------------------------------------------ ;change Autostart ;------------------------------------------------------------------------------ confp_as_01: cpi r16,7 brne confp_main_70 mov tempreg4,r19 andi r19,0x8f subi tempreg4,0xf0 ;+0x10 andi tempreg4,0x70 or r19,tempreg4 confp_as_02: rjmp confp_loop ;------------------------------------------------------------------------------ ;change Data EEPROM address ;------------------------------------------------------------------------------ confp_main_70: cpi r16,3 brne confp_main_75 mov tempreg4,r19 inc tempreg4 andi tempreg4,0x07 andi r19,0xf8 or r19,tempreg4 rjmp confp_loop ;------------------------------------------------------------------------------ ;change Line end ;------------------------------------------------------------------------------ confp_main_75: cpi r16,4 brne confp_main_77 subi r18,0xc0 ;+0x40 brcs confp_main_76 ori r18,0x40 confp_main_76: rjmp confp_loop ;------------------------------------------------------------------------------ ;change Serin mode ;------------------------------------------------------------------------------ confp_main_77: cpi r16,5 brne confp_main_82 ldi tempreg4,0x02 eor r18,tempreg4 ;toggle bit 1 confp_main_80: rjmp confp_loop ;------------------------------------------------------------------------------ ;change Serin pin ;------------------------------------------------------------------------------ confp_main_82: cpi r16,6 brne confp_main_84 ldi tempreg4,0x20 eor r18,tempreg4 ;toggle bit 5 confp_main_84: rjmp confp_loop confp_sconf: ;show config ;------------------------------------------------------------------------------ ;show data ;------------------------------------------------------------------------------ confp_kbdtype: ldi XL,0x06 ;color scheme (yellow on black) libmio_setcolor libmio_thistext .db 3,1,"Serial speed:",0 libmio_thistext .db 5,1,"I2C speed:",0,0 libmio_thistext .db 7,1,"SPI speed:",0,0 libmio_thistext .db 9,1,"EEPROM address:",0 libmio_thistext .db 11,1,"Line end:",0 libmio_thistext .db 13,1,"Serial In/Out:",0,0 libmio_thistext .db 15,1,"Serial Input:",0 libmio_thistext .db 17,1,"Autostart:",0,0 clr r17 ;------------------------------------------------------------------------------ ;show serial speed ;------------------------------------------------------------------------------ rcall confp_cset sbrc r18,0 rjmp confp_sertype1 libmio_thistext .db 3,18,"1200 Bps",0,0 rjmp confp_sertype2 confp_sertype1: libmio_thistext .db 3,18,"2400 Bps",0,0 confp_sertype2: ;------------------------------------------------------------------------------ ;show I2C speed ;------------------------------------------------------------------------------ rcall confp_cset sbrc r18,4 rjmp confp_twitype1 libmio_thistext .db 5,18,"100 kHz",0 rjmp confp_twitype2 confp_twitype1: libmio_thistext .db 5,18,"400 kHz",0 confp_twitype2: ;------------------------------------------------------------------------------ ;show SPI speed ;------------------------------------------------------------------------------ rcall confp_cset sbrc r18,3 rjmp confp_spitype1 libmio_thistext .db 7,18,"5 MHz ",0 rjmp confp_spitype2 confp_spitype1: libmio_thistext .db 7,18,"156 kHz",0 confp_spitype2: ;------------------------------------------------------------------------------ ;show EEPROM address ;------------------------------------------------------------------------------ rcall confp_cset confp_eeadr: libmio_thistext .db 9,18,0,0 mov tempreg1,r19 andi tempreg1,0x07 subi tempreg1,0xd0 libmio_outchar ;------------------------------------------------------------------------------ ;show line end ;------------------------------------------------------------------------------ rcall confp_cset mov tempreg4,r18 andi tempreg4,0xc0 confp_lintype1: cpi tempreg4,0x80 brne confp_lintype2 libmio_thistext .db 11,18,"only LF",0 rjmp confp_lintype9 confp_lintype2: cpi tempreg4,0x40 brne confp_lintype3 libmio_thistext .db 11,18,"only CR",0 rjmp confp_lintype9 confp_lintype3: libmio_thistext .db 11,18,"CR+LF ",0 confp_lintype9: ;------------------------------------------------------------------------------ ;show serial interface ;------------------------------------------------------------------------------ rcall confp_cset sbrc r18,1 rjmp confp_sintype1 libmio_thistext .db 13,18,"simple ",0,0 rjmp confp_sintype2 confp_sintype1: libmio_thistext .db 13,18,"standard",0,0 confp_sintype2: ;------------------------------------------------------------------------------ ;show serial input pin ;------------------------------------------------------------------------------ rcall confp_cset sbrs r18,5 rjmp confp_sinput1 libmio_thistext .db 15,18,"PD3",0 rjmp confp_sinput2 confp_sinput1: libmio_thistext .db 15,18,"PD1",0 confp_sinput2: ;------------------------------------------------------------------------------ ;show autostart ;------------------------------------------------------------------------------ rcall confp_cset confp_autos: libmio_thistext .db 17,18,"PRG ",0,0 mov tempreg1,r19 swap tempreg1 andi tempreg1,0x07 breq confp_autos1 subi tempreg1,0xd0 libmio_outchar confp_autose: ldi XL,0x07 ;color scheme (white on black) libmio_setcolor ret confp_autos1: libmio_thistext .db 17,18,"off ",0 rjmp confp_autose ;------------------------------------------------------------------------------ ;calc and output checksum ;------------------------------------------------------------------------------ confp_chksum: clr XL ;sum clr YL clr YH clr ZL ;ptr clr ZH confp_chksum1: lpm r1,Z+ add YL,r1 adc YH,const_0 adc XL,const_0 cpi ZH,HIGH(end_system*2) brne confp_chksum1 clr ZL ;ptr ldi ZH,$f0 ; confp_chksum2: lpm r1,Z+ add YL,r1 adc YH,const_0 adc XL,const_0 cpi ZH,0x00 brne confp_chksum2 clr XH ldi ctrl,0x0f libmio_outhex movw XL,YL libmio_outhex ret confp_cset: ldi XL,0x05 ;cyan on black cp r16,r17 brne confp_cset1 ldi XL,0x50 confp_cset1: libmio_setcolor inc r17 ret ;------------------------------------------------------------------------------ ;the configpage menubar ;------------------------------------------------------------------------------ ; "111111222222333333444444555555" confp_mbar: .db " Exit Change Save ",2,0 ;1 level, all keys SOURCE_142/SOURCE_system/modules/tokentable.inc0000755000175000001440000001241511725741457020413 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# token table for line compressor/expander # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ tokentab: ;functions .db 0x02,"ABS(..." .db 0x03,"SGN(..." .db 0x04,"SQR(..." .db 0x05,"NOT(..." .db 0x06,"RND(..." .db 0x07,"ADC(..." .db 0x08,"IN(...." .db 0x09,"XPEEK(." .db 0x0a,"TEMP(.." .db 0x0b,"LO(...." .db 0x0c,"HI(...." .db 0x0d,"KEY(..." .db 0x0e,"EPEEK(." .db 0x0f,"ERR(..." .db 0x10,"AR(...." .db 0x11,"SIN(..." .db 0x12,"COS(..." .db 0x13,"FTYPE(." .db 0x14,"FSIZE(." .db 0x15,"PSTAT(." .db 0x16,"SPI(..." .db 0x17,"MENU(.." .db 0x18,"VPEEK(." .db 0x19,"XREC(.." .db 0x1a,"FFIND(." .db 0x1b,"DBIT(.." ;commands .db 0x80,"PRINT.." .db 0x81,"CLS...." .db 0x82,"GOTO..." .db 0x83,"BOX...." .db 0x84,"ACOPY.." .db 0x85,"SYNC..." .db 0x86,"END...." .db 0x87,"BCOPY.." .db 0x88,"THEN..." .db 0x89,"POS...." .db 0x8a,"NOTE..." .db 0x8b,"ONSYNC." .db 0x8c,"RREAD.." .db 0x8d,"RWRITE." .db 0x8e,"GOSUB.." .db 0x8f,"RETURN." .db 0x90,"VMODE.." .db 0x91,"NEXT..." .db 0x92,"INPUT.." .db 0x93,"PLOT..." .db 0x94,"WAIT..." .db 0x95,"TSET..." .db 0x96,"TGET..." .db 0x97,"FSELECT" .db 0x98,"ONERR.." .db 0x99,"SPUT..." .db 0x9a,"SGET..." .db 0x9b,"EPOKE.." .db 0x9c,"GETPIX." .db 0x9d,"CIRCLE." .db 0x9e,"COLOR.." .db 0x9f,"BORDER." .db 0xa0,"FONT..." .db 0xa1,"PUMP..." .db 0xa2,"XPOKE.." .db 0xa3,"VPOKE.." .db 0xa4,"LIMIT.." .db 0xa5,"GETCHAR" .db 0xa6,"DRAWTO." .db 0xa7,"PLAY..." .db 0xa8,"SPRITE." .db 0xa9,"SCROLL." .db 0xaa,"BREAK.." .db 0xab,"REPEAT." .db 0xac,"UNTIL.." .db 0xad,"DRAW..." .db 0xae,"ICOMM.." .db 0xaf,"DATA..." .db 0xb0,"CTEXT.." .db 0xb1,"FREAD.." .db 0xb2,"FWRITE." .db 0xb3,"CBOX..." .db 0xb4,"GETATTR" .db 0xb5,"FDELETE" .db 0xb6,"FBOX..." .db 0xb7,"PALETTE" .db 0xb8,"FOR...." .db 0xb9,"IF....." .db 0xba,"DIR...." .db 0xbb,"OUT...." .db 0xbc,"FCIRCLE" .db 0xbd,"ALERT.." .db 0xbe,"FCREATE" .db 0xbf,"ASK...." ;abbrevations and alternatives .db 0xce,"GOS...." ;gosub .db 0xc0,"?......" ;print .db 0xc1,"XSEND.." ;XSEND is alternative to CLS .db 0xc2,"GO....." ;GOTO .db 0xc3,"TO....." ;TO is alternative to BOX .db 0xc4,"LOADP.." ;LOADP is alternative to ACOPY .db 0xc5,"SCALE.." ;SCALE is alternative to SYNC .db 0xc6,"CCHAR.." ;CCHAR is alternative to END .db 0xc7,"BC....." ;bcopy .db 0xc8,"SAVEP.." ;SAVEP is alternative to THEN .db 0xc9,"ARC...." ;ARC is alternative to POS .db 0xca,"NO....." ;note .db 0xcb,"PIE...." ;PIE is alternative to ONSYNC .db 0xcc,"RRD...." ;rread .db 0xcd,"RWR...." ;rwrite .db 0xcf,"RET...." ;return .db 0xd0,"VM....." ;vmode .db 0xd1,"IBOX..." ;IBOX is alternative to NEXT .db 0xd2,"INP...." ;input .db 0xd3,"PL....." ;plot .db 0xd4,"FRAME.." ;FRAME is alternative to WAIT .db 0xd5,"HFRAME." ;HFRAME is alternative to TSET .db 0xd6,"LFIND.." ;LFIND ist alternative to TGET .db 0xd7,"FSEL..." ;fselect .db 0xd8,"VOL...." ;VOL is alternative to ONERR .db 0xda,"ASHIFT." ;ASHIFT is alternative to SGET .db 0xdb,"EP....." ;epoke .db 0xdc,"GPX...." ;getpix .db 0xdd,"CI....." ;circle .db 0xde,"COL...." ;color .db 0xdf,"BO....." ;border .db 0xe0,"CALL..." ;CALL is alternative to FONT .db 0xe1,"CA....." ;CA is alternative to PUMP .db 0xe2,"XP....." ;xpoke .db 0xe3,"VP....." ;vpoke .db 0xe4,"LIM...." ;limit .db 0xe5,"GCH...." ;gchar .db 0xe6,"DTO...." ;drawto .db 0xe7,"WRAP..." ;WRAP is alternative to PLAY .db 0xe8,"SPR...." ;sprite .db 0xeb,"REP...." ;repeat .db 0xec,"UNT...." ;until .db 0xed,"DR....." ;draw .db 0xee,"IC....." ;icomm .db 0xef,"DA....." ;data .db 0xf0,"SPISEL." ;SPISEL is alternative to CTEXT .db 0xf1,"FRD...." ;fread .db 0xf2,"FWR...." ;fwrite .db 0xf3,"BAUD..." ;BAUD is alternative to CBOX .db 0xf4,"GAT...." ;gattr .db 0xf5,"FDEL..." ;fdelete .db 0xf6,"PAGE..." ;PAGE is alternative to FBOX .db 0xf7,"PAL...." ;palette .db 0xf9,"VID...." ;VID is alternative to IF .db 0xfa,"ESPUT.." ;ESPUT is alternative to DIR .db 0xfb,"ESGET.." ;ESGET is alternative to OUT .db 0xfc,"FCI...." ;fcircle .db 0xfd,"EBAUD.." ;EBAUD is alternative to ALERT .db 0xfe,"FCR...." ;fcreate .db 0x00,"......." ;stop SOURCE_142/SOURCE_system/modules/definitions.asm0000755000175000001440000000252411725741457020605 0ustar joergusers;################################################################################ ;# # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ basram_prognr = bas_ram .equ basram_mchannel = bas_ram+1 .equ basram_mcolor = bas_ram+2 .equ basram_mfont = bas_ram+3 .equ dflash_asel = bas_ram+4 .equ basram_mborder = bas_ram+5 .equ basram_mmode = bas_ram+6 .equ bas_stackp = bas_ram+8 .equ debug_scode = bas_ram+9 SOURCE_142/SOURCE_system/modules/infopage.asm0000755000175000001440000000441711725741457020065 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# infopage # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; info box ;------------------------------------------------------------------------------ infopage_main: ldi XL,0x2e ;white on blue sts libmio_color,XL ;set colour scheme ldi YL,1 ldi YH,4 ldi ZL,28 ldi ZH,18 libmio_wbox ;clear libmio_thistext .db 5,5,0,0 call menu_itext1 ;show version libmio_thistext .db 06,3," (c) 2006-2011 ",0,0 libmio_thistext .db 07,3," by Joerg Wolfram ",0,0 ldi XL,0xa2 ;blue on cyan sts libmio_color,XL ;set colour scheme libmio_thistext .db 09,3," Dedicated to ",0,0 libmio_thistext .db 10,3,"Florian, Erik and Diana.",0,0 ldi XL,0x2e ;white on blue sts libmio_color,XL ;set colour scheme libmio_thistext .db 12,2,"This software is licensed",0 libmio_thistext .db 13,4,"under the terms of the ",0 libmio_thistext .db 14,4,"GNU PUBLIC LICENSE V.3 ",0 libmio_thistext .db 15,3,"Use it at your own risk!",0,0 ldi XL,0xc2 ;blue on yellow sts libmio_color,XL ;set colour scheme libmio_thistext .db 17,7," PRESS ANY KEY ",0 libmio_waitkey ret SOURCE_142/SOURCE_system/modules/extsearch.asm0000755000175000001440000000447511725741457020267 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# dataflash filesystem functions # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;search for extensions ;------------------------------------------------------------------------------ ;clear all entries sys_extsearch: push ZL push ZH push YL push YH push r16 push r17 push r0 ldi YL,LOW(prg_funct) ldi YH,HIGH(prg_funct) ldi r16,8 ldi r17,0xff sys_esearch_1: st Y+,r17 ;not found dec r16 brne sys_esearch_1 ldi ZH,0x90 ;first prg sys_esearch_2: ldi ZL,0x0c ;prog type lpm r16,Z+ ;get byte 0c cpi r16,'N' brne sys_esearch_6 adiw ZL,1 lpm r16,Z+ ;get byte 0e ldi YL,LOW(prg_funct) ldi YH,HIGH(prg_funct) ldi r17,8 sys_esearch_3: lsr r16 brcs sys_esearch_4 ;1=no fkt mov r0,ZH lsr r0 st Y,r0 sys_esearch_4: adiw YL,1 dec r17 brne sys_esearch_3 sys_esearch_6: subi ZH,0xf4 ;+0x0C cpi ZH,0xe5 brcs sys_esearch_2 pop r0 pop r17 pop r16 pop YH pop YL pop ZH pop ZL ret sys_extdisable: push YL push YH push r16 ldi YL,LOW(prg_funct) ldi YH,HIGH(prg_funct) ldi r16,0xff st Y,r16 ;disable vdrv std Y+1,r16 ;disable frame std Y+2,r16 ;disable sound pop r16 pop YH pop YL ret SOURCE_142/SOURCE_system/modules/memory.asm0000755000175000001440000003357411725741457017613 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# EEPROM/Flash memory interface # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ mem_getconf: ldi YL,LOW(2039) ;default -> config ldi YH,HIGH(2039) rcall mem_eeread ;get value cpi tempreg1,0xa5 breq mem_getconf1 mem_initconf_1: ldi tempreg1,0xa5 ldi YL,LOW(2039) ;default -> config ldi YH,HIGH(2039) rcall mem_eewrite_ni ldi tempreg1,0xe1 rcall mem_eewrite_ni ldi tempreg1,0x00 rcall mem_eewrite_ni rjmp mem_getconf1 ;------------------------------------------------------------------------------ ; write sysconf to eeprom ;------------------------------------------------------------------------------ mem_setconf: lds tempreg1,libmio_sysconf ;set number ldi YL,LOW(2040) ;default -> config ldi YH,HIGH(2040) rcall mem_eewrite lds tempreg1,libmio_sysconf1 rcall mem_eewrite ret ;------------------------------------------------------------------------------ ; get sysconf ;------------------------------------------------------------------------------ mem_getconf1: ldi YL,LOW(2040) ;default -> config ldi YH,HIGH(2040) rcall mem_eeread ;get value sts libmio_sysconf,tempreg1 rcall mem_eeread sts libmio_sysconf1,tempreg1 ret ;------------------------------------------------------------------------------ ; set memory pointer to prog tempreg1 ;------------------------------------------------------------------------------ mem_setprog: push ZH push ZL rcall mem_progadr_0 ;get ptr in Z sts libmio_ram+44,ZL ;program base L sts libmio_ram+45,ZH ;program base H pop ZL pop ZH ret ;------------------------------------------------------------------------------ ; read line (ctrl) from program memory to line buffer ;------------------------------------------------------------------------------ mem_readline: lds ZL,libmio_ram+44 ;base address lds ZH,libmio_ram+45 ldi XL,32 ;bytes/line mul XL,ctrl add ZL,r0 adc ZH,r1 adiw ZL,32 ;skip name mem_readline0: ldi YL,LOW(bas_linebuf) ;buffer address ldi YH,HIGH(bas_linebuf) ldi XL,32 ;no of bytes to copy mem_readline1: lpm XH,Z+ ;get from flash st Y+,XH ;put to linebuffer dec XL brne mem_readline1 ldi XH,0xff ;append an extra EOL st Y+,XH ret mem_spm: in tempreg1,SPMCSR sbrc tempreg1,0 rjmp mem_spm mem_spm1: out SPMCSR,XH spm mem_spm2: in tempreg1,SPMCSR sbrc tempreg1,0 rjmp mem_spm2 ret mem_waitrww: in tempreg1,SPMCSR sbrs tempreg1,6 ret ldi XH,0x11 rcall mem_spm rjmp mem_waitrww ;------------------------------------------------------------------------------ ; check for timer overflow ;------------------------------------------------------------------------------ mem_checktim: in tempreg1,TIFR1 sbrs tempreg1,2 ret ldi tempreg1,0x04 out TIFR1,tempreg1 add vline_l,const_1 adc vline_h,const_0 ret ;------------------------------------------------------------------------------ ; write line from Y to program memory ;------------------------------------------------------------------------------ mem_wrline: mov tempreg1,ZL ;pointer andi tempreg1,0xe0 ;mask out low bits brne mem_wrline_1 ;no first line ;erase page ldi XH,0x03 ;page erase rcall mem_spm rcall mem_waitrww mem_wrline_1: ldi XL,16 ;16 words to copy mem_wrline_2: ld r0,Y+ ;low byte ld r1,Y+ ;high byte ldi XH,0x01 ;write to buffer rcall mem_spm adiw ZL,2 ;ptr+2 dec XL ;loop counter brne mem_wrline_2 ;loop ;check for end of page cpi ZL,0x00 ;end of page breq mem_wrline_3 ;yes ret ;write page mem_wrline_3: sbiw ZL,2 ldi XH,0x05 ;page write rcall mem_spm rcall mem_waitrww adiw ZL,2 ret ;------------------------------------------------------------------------------ ; write array to program memory ;------------------------------------------------------------------------------ mem_writepage: cli mem_wpage0: push tempreg1 push XH push XL rcall sys_extdisable ldi XH,0x03 ;page erase rcall mem_spm rcall mem_waitrww sbiw ZL,2 ldi YL,LOW(bas_array+512) ;buffer address ldi YH,HIGH(bas_array+512) ldi XL,0x80 ;no. of words to copy mem_wpage1: adiw ZL,2 ld r0,Y+ ;low byte ld r1,Y+ ;high byte ldi XH,0x01 ;write to buffer rcall mem_spm dec XL brne mem_wpage1 ldi XH,0x05 ;page write rcall mem_spm mem_wpage2: rcall mem_waitrww pop XL pop XH pop tempreg1 sei ret ;------------------------------------------------------------------------------ ; read name from program memory to Y+ ;------------------------------------------------------------------------------ mem_readname: lds ZL,libmio_ram+44 ;base address of program lds ZH,libmio_ram+45 sbiw ZL,32 ;point to fname mem_readname0: ldi XL,12 ;bytes/name mem_readname1: lpm XH,Z+ st Y+,XH ;get bytes dec XL brne mem_readname1 lds XL,libmio_config sbrc XL,7 ret ldi XL,LOW(libmio_cols*libmio_rows-12) ;offset ldi XH,HIGH(libmio_cols*libmio_rows-12) add YL,XL adc YH,XH ldi XL,12 lds XH,libmio_color mem_readname2: st Y+,XH dec XL brne mem_readname2 ret ;------------------------------------------------------------------------------ ; read name from program ctrl to Y+ ;------------------------------------------------------------------------------ mem_readnamec: ldi ZL,LOW(bas_programs*2) ;base address ldi ZH,HIGH(bas_programs*2) ldi XL,LOW(3072) ;bytes/program ldi XH,HIGH(3072) mov tempreg1,ctrl mem_readnamec1: cpi tempreg1,0 breq mem_readname0 add ZL,XL adc ZH,XH dec tempreg1 rjmp mem_readnamec1 ;------------------------------------------------------------------------------ ; read first byte of program to tempreg1 ;------------------------------------------------------------------------------ mem_readfirst: lds tempreg1,libmio_lastmenu mem_readf1: andi tempreg1,0x07 push XL ldi ZL,LOW(bas_programs*2+12) ;base address ldi ZH,HIGH(bas_programs*2+12) ldi XL,12 mul XL,tempreg1 add ZH,r0 lpm tempreg1,Z+ ;type byte lpm tempreg2,Z+ ;flag byte subi ZL,14 ;set Z to start of prg pop XL ret ;------------------------------------------------------------------------------ ; save program from editor to flash ;------------------------------------------------------------------------------ mem_save: cli rcall mem_progadr ldi YL,LOW(bas_linebuf) ;base address ldi YH,HIGH(bas_linebuf) ldi XL,LOW(libmio_vram+11) ldi XH,HIGH(libmio_vram+11) ldi tempreg2,12 ;bytes/name mem_save_01: ld tempreg1,X+ ;get from filename st Y+,tempreg1 ;write to linebuf dec tempreg2 brne mem_save_01 ldi tempreg1,'B' ;BASIC st Y+,tempreg1 ldi tempreg1,0x0c ;Pages st Y+,tempreg1 ldi tempreg2,18 ;add free space ldi tempreg1,0x20 ;space char mem_save_02: st Y+,XH ;write to linebuf dec tempreg2 brne mem_save_02 sbiw YL,32 rcall mem_wrline ;write first line clr ctrl ;line number ;save lines loop mem_save_03: ldi XH,libmio_ecols ;bytes/vram-line mul XH,ctrl ldi XL,LOW(libmio_vram+3*libmio_ecols+3) ;lines start ldi XH,HIGH(libmio_vram+3*libmio_ecols+3) add XL,r0 ;calc line address in vram adc XH,r1 ;copy line to bas_inbuf ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) ldi tempreg2,libmio_ecols-3 ;number of chars to copy mem_save_04: ld tempreg1,X+ ;get from vram st Y+,tempreg1 dec tempreg2 brne mem_save_04 st Y+,const_0 ;add an extra EOL ;shrink line ldi tempreg2,libmio_ecols-3 ;max chars mem_save_05: ld tempreg1,-Y ; cpi tempreg1,0x20 ;space brne mem_save_06 st Y,const_0 ;write EOL dec tempreg2 brne mem_save_05 mem_save_06: lds YL,libmio_vram+11 cpi YL,0x5f ;'_' brne mem_save_07 ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) rjmp mem_save_08 mem_save_07: call clin_ext ;compress line ldi YL,LOW(bas_linebuf) ;buffer address ldi YH,HIGH(bas_linebuf) mem_save_08: rcall mem_wrline ;write compressed line ;next line inc ctrl ;line +1 cpi ctrl,bas_lines ;last brne mem_save_03 ;no sei ;enable interrupts ret ;OK, end here ;------------------------------------------------------------------------------ ; load program from flash to editor ;------------------------------------------------------------------------------ mem_load: rcall mem_progadr ;set Z to address ;read name ldi XL,LOW(libmio_vram+11) ldi XH,HIGH(libmio_vram+11) ldi tempreg2,12 ;bytes/name mem_load_01: lpm tempreg1,Z+ ;get from filename st X+,tempreg1 ;write to linebuf dec tempreg2 brne mem_load_01 adiw ZL,20 ;set ptr to first line clr ctrl ;line number ;load lines loop mem_load_02: ldi tempreg2,32 ;bytes per line ldi XL,LOW(bas_linebuf) ldi XH,HIGH(bas_linebuf) mem_load_03: lpm tempreg1,Z+ ;get from flash st X+,tempreg1 ;write to linebuf dec tempreg2 brne mem_load_03 ;clear text buffer ldi XL,LOW(bas_inbuf) ;text buffer address ldi XH,HIGH(bas_inbuf) ldi tempreg1,0x20 ;space ldi tempreg2,libmio_ecols lce_load_04: st X+,tempreg1 dec tempreg2 brne lce_load_04 ;loop ;expand line push ZH ;save registers push ZL push ctrl call xlin_ext ;expand line pop ctrl ;restore registers pop ZL pop ZH ;copy line to vram ldi YL,LOW(bas_inbuf) ;text buffer address ldi YH,HIGH(bas_inbuf) ldi XH,libmio_ecols ;bytes/vram-line mul XH,ctrl ldi XL,LOW(libmio_vram+3*libmio_ecols) ;lines start ldi XH,HIGH(libmio_vram+3*libmio_ecols) add XL,r0 ;calc line address adc XH,r1 ldi tempreg2,libmio_ecols lce_load_05: ld tempreg1,Y+ ;get from inbuf st X+,tempreg1 ;store to vram dec tempreg2 brne lce_load_05 ;next line inc ctrl ;line +1 cpi ctrl,bas_lines brne mem_load_02 ret ;------------------------------------------------------------------------------ ; calculate memory program address ;------------------------------------------------------------------------------ mem_progadr: lds tempreg1,libmio_lastmenu ;program to save mem_progadr_0: andi tempreg1,0x07 ;mask bits swap tempreg1 ;*16 ldi ZL,0xc0 ;*192 mul ZL,tempreg1 ldi ZL,LOW(bas_programs*2) ;base ldi ZH,HIGH(bas_programs*2) add ZL,r0 ;set ptr to start adc ZH,r1 ret ;------------------------------------------------------------------------------ ; clear program ;------------------------------------------------------------------------------ mem_clear: ldi YL,LOW(bas_array+512) ;buffer address ldi YH,HIGH(bas_array+512) ldi tempreg1,12 ;name head len ldi tempreg2,0x20 ;space mem_clear_1: st Y+,tempreg2 dec tempreg1 brne mem_clear_1 ldi tempreg2,'B' st Y+,tempreg2 ldi tempreg2,0xff ;mark as empty ldi tempreg1,256-13 ;rest of head mem_clear_1a: st Y+,tempreg2 dec tempreg1 brne mem_clear_1a rcall mem_progadr ;set program adr to Z rcall mem_writepage ;write first page adiw ZL,2 ldi YL,LOW(bas_array+512) ;buffer address ldi YH,HIGH(bas_array+512) ldi tempreg1,0x20 ;name len ldi tempreg2,0xff ;fill byte mem_clear_3: st Y+,tempreg2 ;clear name in buffer dec tempreg1 brne mem_clear_3 ldi tempreg1,0x0b ;pages to do mem_clear_4: push tempreg1 rcall mem_writepage adiw ZL,2 pop tempreg1 dec tempreg1 brne mem_clear_4 sei jmp sys_extsearch ;------------------------------------------------------------------------------ ; copy program to tempreg4 ;------------------------------------------------------------------------------ mem_copy: mov tempreg1,tempreg4 ;copy dest andi tempreg1,0x07 ;only 8 programs rcall mem_progadr_0 ;set dest pointer push ZH push ZL rcall mem_progadr ;set src pointer pop XL ;dest pointer pop XH ldi tempreg1,0x0c ;number of pages mem_copy_1: push tempreg1 ;save counter ldi YL,LOW(bas_array+512) ;buffer address ldi YH,HIGH(bas_array+512) ldi tempreg1,0x00 ;no of bytes to copy mem_copy_2: lpm tempreg2,Z+ ;get byte from flash st Y+,tempreg2 ;store to buffer dec tempreg1 ;byte counter brne mem_copy_2 ;loop push ZH ;save src pointer push ZL movw ZL,XL ;dst pointer rcall mem_writepage ;write page to flash adiw ZL,2 movw XL,ZL ;dst pointer pop ZL pop ZH pop tempreg1 dec tempreg1 brne mem_copy_1 sei jmp sys_extsearch ;------------------------------------------------------------------------------ ; read one byte (tempreg1) from EEPROM memory (Y+) ;------------------------------------------------------------------------------ mem_eeread: sbic EECR,EEPE rjmp mem_eeread out EEARH,YH out EEARL,YL sbi EECR,EERE in tempreg1,EEDR adiw YL,1 ret ;thats all ;------------------------------------------------------------------------------ ; write one byte (tempreg1) to EEPROM memory (Y+) ;------------------------------------------------------------------------------ mem_eewrite: sbic EECR,EEPE ;wait for EEPROM ready rjmp mem_eewrite out EEARH,YH out EEARL,YL out EEDR,tempreg1 ;write byte cli sbi EECR,EEMPE sbi EECR,EEPE sei adiw YL,1 ret mem_eewrite_ni: sbic EECR,EEPE ;wait for EEPROM ready rjmp mem_eewrite_ni out EEARH,YH out EEARL,YL out EEDR,tempreg1 ;write bytei sbi EECR,EEMPE sbi EECR,EEPE adiw YL,1 ret SOURCE_142/SOURCE_system/modules/monitor.asm0000755000175000001440000002660511725741457017767 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# monitor module # ;# copyright (c) 2007-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; backup and restore screen ;----------------------------------------------------------------------- mon_backup: push_regs lds XL,libmio_vidmode ;save videomode sts basram_mmode,XL clr XL libmio_setvmode ;switch to text mode lds XL,libmio_color ;save color sts basram_mcolor,XL lds XL,libmio_border ;save border color sts basram_mborder,XL lds XL,libmio_channel ;save channel sts basram_mchannel,XL sts libmio_channel,const_0 ;screen ldi ZL,LOW(libmio_vram) ;source address ldi ZH,HIGH(libmio_vram) ldi YL,LOW(mon_bpage) ;dest address ldi YH,HIGH(mon_bpage) mon_backup0: ldi XL,LOW(libmio_rows*2*libmio_cols) ldi XH,HIGH(libmio_rows*2*libmio_cols) mon_backup1: ld tempreg1,Z+ ;get byte st Y+,tempreg1 sbiw XL,1 brne mon_backup1 pop_regs mon_restore: push_regs lds XL,basram_mmode libmio_setvmode lds XL,basram_mborder ;restore border color sts libmio_border,XL lds XL,basram_mcolor ;restore color sts libmio_color,XL lds XL,basram_mchannel ;restore channel sts libmio_channel,XL ldi ZL,LOW(mon_bpage) ;source address ldi ZH,HIGH(mon_bpage) ldi YL,LOW(libmio_vram) ;dest address ldi YH,HIGH(libmio_vram) rjmp mon_backup0 ;----------------------------------------------------------------------- ; show io ;----------------------------------------------------------------------- mon_sio: ldi YL,LOW(libmio_vram+19*libmio_cols+4) ldi YH,HIGH(libmio_vram+19*libmio_cols+4) ldi ZL,LOW(libmio_vram+19*libmio_cols+694) ldi ZH,HIGH(libmio_vram+19*libmio_cols+694) in tempreg1,DDRA in tempreg2,PINA ldi tempreg3,8 mon_sio1: ldi XL,'I' ;in ldi XH,0xaf ;in lsr tempreg1 brcc mon_sio_2 ldi XL,'O' ;out ldi XH,0x2f ;out mon_sio_2: st Y+,XL st Z+,XH ldi XL,'0' ;low ldi XH,0x80 ;low lsr tempreg2 brcc mon_sio_3 ldi XL,'1' ;high ldi XH,0x4e ;high mon_sio_3: std Y+29,XL std Z+29,XH dec tempreg3 brne mon_sio1 ret ;----------------------------------------------------------------------- ; show variables ;----------------------------------------------------------------------- mon_svar: mov tempreg1,tempreg2 ldi XL,0x16 ;yellow libmio_setcolor subi tempreg1,0xbf ;+65 libmio_outchar ;write var name ldi tempreg1,'=' libmio_outchar ldi XL,0x17 ;white libmio_setcolor ldi YL,LOW(varspace) ldi YH,HIGH(varspace) add YL,tempreg2 adc YH,const_0 add YL,tempreg2 adc YH,const_0 ld XL,Y+ ld XH,Y+ ldi ctrl,0x0d ;standard format libmio_outdez ret ;----------------------------------------------------------------------- ; show stack ;----------------------------------------------------------------------- mon_viewstack: ldi XL,19 libmio_gotoxy ldi XL,5 mov YL,tempreg3 dec YL mul XL,YL ldi YL,LOW(bas_stacks) ldi YH,HIGH(bas_stacks) add YL,r0 adc YH,r1 ld XL,Y ;line number sbrs XL,6 ;check call/for flag rjmp mon_vst_02 ;for libmio_thistext .db 255,"SUB ",0 mon_vst_01: ldd XL,Y+1 ;statement number andi XL,0x0f rjmp mon_vst_11 mon_vst_02: sbrs XL,5 ;check call/for flag rjmp mon_vst_10 ;for libmio_thistext .db 255,"RPT ",0 rjmp mon_vst_01 mon_vst_10: libmio_thistext .db 255,"FOR ",0 ldd tempreg1,Y+2 ;variable offset lsr tempreg1 subi tempreg1,0xbf libmio_outchar libmio_outspace ldd XL,Y+1 ;line number mon_vst_11: clr XH inc XL ldi ctrl,2 ;min with zeroes libmio_outdez ;write line number ldi tempreg1,':' libmio_outchar clr XH ld XL,Y andi XL,0x0f ;clear bit 4-7 libmio_outdez ;write statement number ret ;----------------------------------------------------------------------- ; show monitor screen ;----------------------------------------------------------------------- mon_show: sts libmio_border,const_0 clr ctrl ldi XL,0x07 ;white on black libmio_setcolor libmio_clrscr ;clear screen libmio_thistext .db 18,0,"BIT 01234567",0,0 ;io view libmio_thistext .db 19,0,"DIR",0 ;io view libmio_thistext .db 20,0,"LEV",0 ;io view clt ;from flash ldi ZL,LOW(mon_mdata*2) ldi ZH,HIGH(mon_mdata*2) libmio_drawmenu ldi XL,0x05 ;cyan on black libmio_setcolor libmio_thistext .db 0,0,"AVR-ChipBasic2 MON P",0 ;head message lds tempreg1,libmio_ram+47 ;program number subi tempreg1,0xcf libmio_outchar libmio_thistext .db 255,":",0,0 ldi ctrl,2 ;format 2 digits clr XH mov XL,r12 ;line number inc XL libmio_outdez libmio_thistext .db 255,":",0,0 clr XH mov XL,r13 ;statement number inc XL libmio_outdez ldi ZL,LOW(bas_inbuf+3) ;copy line ldi ZH,HIGH(bas_inbuf+3) ldi YL,LOW(libmio_vram+1*libmio_cols) ldi YH,HIGH(libmio_vram+1*libmio_cols) ldi XL,libmio_cols ldi tempreg1,0xf1 mon_show0: ld XH,Z+ cpi XH,0x00 ;end of line breq mon_show00 std Y+libmio_cols,XH std Y+(2*libmio_cols),tempreg1 st Y+,tempreg1 dec XL brne mon_show0 rjmp mon_show04 mon_show00: ldi XH,0x20 std Y+libmio_cols,XH std Y+(2*libmio_cols),tempreg1 st Y+,tempreg1 dec XL brne mon_show00 mon_show04: ldi XL,0x17 ;BGD blue libmio_setcolor ldi YL,0 ldi YH,4 ldi ZL,17 ldi ZH,16 libmio_cbox ldi ctrl,0x0d ;format 5 digits/leading spaces ldi tempreg2,0x00 ;start with var A mon_show1: mov tempreg1,tempreg2 ;copy number subi tempreg1,252 ;+4 mov XH,tempreg1 clr XL libmio_gotoxy rcall mon_svar inc tempreg2 cpi tempreg2,13 brne mon_show1 mon_show2: mov tempreg1,tempreg2 ;copy number subi tempreg1,9 ;-13+4 mov XH,tempreg1 ldi XL,9 libmio_gotoxy rcall mon_svar inc tempreg2 cpi tempreg2,26 brne mon_show2 ldi XL,0x37 ;BGD magenta libmio_setcolor ldi YL,19 ldi YH,4 ldi ZL,29 ldi ZH,16 libmio_cbox libmio_thistext .db 4,19,"STACK:",0,0 clr ctrl ;format 2 digits compact clr XH lds XL,bas_stackp ;stackpointer libmio_outdez ldi tempreg3,12 mon_show4: lds YL,bas_stackp ;stackpointer cp YL,tempreg3 brcs mon_show5 sub YL,tempreg3 ldi XH,4 add XH,tempreg3 rcall mon_viewstack mon_show5: dec tempreg3 brne mon_show4 mon_show8: ret ;----------------------------------------------------------------------- ; monitor main loop ;----------------------------------------------------------------------- mon_main: push_regs push libmio_cur_x push libmio_cur_y push ereg push ctrl rcall mon_backup ;save screen rcall xlin_main ;expand line mon_main_00: rcall mon_show ;show screen mon_main_0: rcall mon_waitkey ;wait for key clr ereg lds XL,libmio_kflags cpi tempreg1,0xed ;exit brne mon_main_4 ori XL,0x01 ;set break flag rjmp mon_main_end mon_main_4: cpi tempreg1,0xf4 ;Array brne mon_main_vm rjmp mon_array mon_main_vm: lds tempreg4,libmio_vidmode cpi tempreg4,0 breq mon_main_1 cpi tempreg4,5 brne mon_main_0 mon_main_1: cpi tempreg1,0xf1 ;go brne mon_main_2 clr XL ;continue rjmp mon_main_end mon_main_2: cpi tempreg1,0xf2 ;step brne mon_main_3 ori XL,0x04 ;set monitor flag again rjmp mon_main_end mon_main_3: cpi tempreg1,0xf3 ;view brne mon_main_0 rcall mon_restore ;restore screen libmio_waitkey ;wait for keypress clr XL ;set video mode to text libmio_setvmode rjmp mon_main_00 ;monitor loop mon_main_end: sts libmio_kflags,XL ;store flags libmio_nokey rcall mon_restore pop ctrl pop ereg pop libmio_cur_y pop libmio_cur_x pop_regs mon_waitkey: sts libmio_lastkey,const_0 ;delete last pressed key mon_waitkey1: rcall mon_sio ;show IO lds tempreg1,libmio_lastkey cpi tempreg1,0 breq mon_waitkey1 jmp libmio_scrs ;screenshot ;------------------------------------------------------------------------ ;View array ;------------------------------------------------------------------------ mon_array: ldi tempreg4,0 ;array base clr tempreg5 ;no text mon_array_02: libmio_nokey mon_array_02a: rcall mon_varr ;view array mon_array_03: clt ldi ZL,LOW(mon_amdata*2) ldi ZH,HIGH(mon_amdata*2) libmio_drawmenu libmio_thistext .db 20,0,"Page:",0 lds XL,xram_page ldi ctrl,0 libmio_outhex mon_array_03a: libmio_waitkey lds XL,libmio_kflags cpi tempreg1,0xed ;exit brne mon_array_04 ori XL,0x01 ;set break flag rjmp mon_main_end mon_array_04: cpi tempreg1,0xf4 ;return to monitor brne mon_array_p1 libmio_nokey rjmp mon_main_00 mon_array_p1: cpi tempreg1,0xf1 ;page - brne mon_array_p2 lds XL,xram_page dec XL mon_array_ps: sts xram_page,XL rjmp mon_array_02a mon_array_p2: cpi tempreg1,0xf2 ;page + brne mon_array_05 lds XL,xram_page inc XL rjmp mon_array_ps mon_array_05: cpi tempreg1,0xe6 ;page up brne mon_array_10 mon_array_06: dec tempreg4 rjmp mon_array_02a mon_array_10: cpi tempreg1,0xe7 ;page down brne mon_array_12 ;no inc tempreg4 rjmp mon_array_02a mon_array_12: cpi tempreg1,0xf3 ;text insert brne mon_array_03 ;no inc tempreg5 rjmp mon_array_02 ;view array at pos mon_varr: ldi XL,0x07 ;white on black libmio_setcolor libmio_clrscr ;clear screen libmio_thistext .db 0,0,"Array View ",0 ;array view ldi XL,0x60 ;black on yellow libmio_setcolor libmio_thistext .db 2,0,"Adr ",0 ;address ldi XL,0x50 ;black on cyan libmio_setcolor libmio_thistext .db 2,5," Data ",0,0 ;data ldi tempreg3,64 mul tempreg3,tempreg4 movw YL,r0 andi YH,0x03 movw ZL,YL ldi tempreg3,3 mon_varr_02: ldi XL,0 ;X-pos mov XH,tempreg3 ;Y-pos libmio_gotoxy ;set pos ldi XL,0x06 ;yellow on black libmio_setcolor movw XL,ZL ldi ctrl,0x01 ;hex16 libmio_outhex ;show address ldi XL,5 ;X-pos mov XH,tempreg3 ;Y-pos libmio_gotoxy ;set pos ldi XL,0x05 ;cyan on black libmio_setcolor ldi ctrl,0 ;hex8 ldi tempreg2,8 mon_varr_04: push tempreg2 push tempreg3 call arr_read1 pop tempreg3 pop tempreg2 adiw YL,1 mov tempreg1,XL libmio_outhex sbrs tempreg5,0 rjmp mon_varr_10 ldi XL,0x17 ;white on blue libmio_setcolor libmio_outchar ldi XL,0x05 ;cyan on black libmio_setcolor rjmp mon_varr_12 mon_varr_10: libmio_outspace mon_varr_12: dec tempreg2 brne mon_varr_04 adiw ZL,8 andi ZH,0x03 andi YH,0x03 inc tempreg3 cpi tempreg3,19 brne mon_varr_02 ret ;111111222222333333444444555555 mon_amdata: .db " Exit Page- Page+ Char Mon ",2,0 ;one page, all keys mon_mdata: .db " Exit Go Step View Array",2,0 ;one page, all keys SOURCE_142/SOURCE_system/modules/spi.asm0000755000175000001440000000302011725741457017055 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# spi transfer module # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ spi_set: cpi XL,0xff ;reset? brne spi_set_2 spi_set_1: out SPCR,const_0 ;disable SPI ldi XL,0x5c ;standard out SPCR,XL out SPSR,const_0 ;U2X=0 ret spi_set_2: out SPCR,const_0 ;disable SPI out SPSR,const_0 ;U2X=0 sbrc XL,6 out SPSR,const_1 ;U2X=1 andi XL,0x3f ori XL,0x40 out SPCR,XL ret spi_wait: in XH,SPSR sbrs XH,SPIF rjmp spi_wait ret SOURCE_142/SOURCE_system/modules/array.asm0000755000175000001440000001005111725741457017402 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# array functions # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; read array value ;----------------------------------------------------------------------- arr_read1: movw tempreg1,YL ;copy addr to tr1/tr2 rjmp arr_read_2 arr_read: lds tempreg1,bas_ram+10 ;index low lds tempreg2,bas_ram+11 ;index high arr_read_2: push YL push YH cpi tempreg2,3 ;skip if intern breq arr_read_5 ;external rcall arr_acalc ;calc address cpi tempreg2,3 ;skip if intern breq arr_read_4 ;external ld XL,Y+ clr XH brtc arr_read_3 ld XH,Y+ ; increment array pointer arr_read_3: rjmp arr_incptr_p1 arr_read_4: lds ZH,prg_xmem sbrc ZH,7 rjmp arr_acalc_ex ldi ZL,xmem_aread icall push XL inc tempreg1 icall mov XH,XL pop XL rjmp arr_incptr_p1 arr_read_5: lds ZH,prg_xmem sbrc ZH,7 rjmp arr_acalc_ex ldi ZL,xmem_aread icall clr XH rjmp arr_incptr_p1 ;----------------------------------------------------------------------- ; write array value ;----------------------------------------------------------------------- arr_write1: movw tempreg1,YL ;copy addr to tr1/tr2 rjmp arr_write_2 arr_write: lds tempreg1,bas_partab ;index low lds tempreg2,bas_partab+1 ;index high arr_write_2: push YL push YH cpi tempreg2,3 ;skip if intern breq arr_write_5 ;external rcall arr_acalc ;calc address cpi tempreg2,3 ;skip if intern breq arr_write_4 ;external st Y+,XL brtc arr_write_3 st Y+,XH arr_write_3: ; increment array pointer2 arr_incp2: rjmp arr_incptr_p2 arr_write_4: lds ZH,prg_xmem sbrc ZH,7 rjmp arr_acalc_ex ldi ZL,xmem_awrite icall mov XL,XH rjmp arr_write_6 arr_write_5: lds ZH,prg_xmem sbrc ZH,7 rjmp arr_acalc_ex ldi ZL,xmem_awrite arr_write_6: icall ;call array write rjmp arr_incptr_p2 ;----------------------------------------------------------------------- ; calc address (tempreg1/2=element) to Y ;----------------------------------------------------------------------- arr_acalc: cpi tempreg2,0x04 ;limit brcc arr_acalc_2 ;word? clt ;byte access arr_acalc_1: ldi YH,high(bas_array) ;array ldi YL,low(bas_array) add YL,tempreg1 ;array element address adc YH,tempreg2 ret arr_acalc_2: set ;word access subi tempreg2,4 ;sub word offset lsl tempreg1 ;*2 rol tempreg2 cpi tempreg2,0x04 brcs arr_acalc_1 ;address is in range arr_acalc_e: pop XL ;kill stack (subroutine call) pop XL arr_acalc_ex: pop YH ;restore Y pop YL ldi XL,0xff ;set value to 0xff ldi ereg,18 ;out of array ret ;----------------------------------------------------------------------- ; increment array pointers ;----------------------------------------------------------------------- arr_incptr_p2: ldi YL,LOW(bas_partab) ldi YH,HIGH(bas_partab) rjmp arr_incptr_1 arr_incptr_p1: ldi YL,LOW(bas_ram+10) ldi YH,HIGH(bas_ram+10) arr_incptr_1: ld r0,Y ldd r1,Y+1 add r0,const_1 ;+1 adc r1,const_0 st Y,r0 std Y+1,r1 pop YH pop YL ret SOURCE_142/SOURCE_system/modules/fileman.asm0000755000175000001440000001657611725741457017721 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# dataflash file manager # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;main screen mask ;------------------------------------------------------------------------------ fman_main: sts libmio_channel,const_0 ;output to screen sts libmio_vidmode,const_0 ;standard video mode ldi XL,0x05 ;color scheme (cyan on black) libmio_setcolor ldi YL,0 ;maximal sized box ldi YH,0 ldi ZL,29 ldi ZH,22 libmio_whbox ldi XL,0x50 ;color scheme (cyan on black) libmio_setcolor libmio_thistext .db 1,2,"DFLASH size: ",0 call fsys_maxpage ;get flash status fman_main_001: cpi tempreg1,0x7f ;0,5M brne fman_main_002 libmio_thistext .db 255,"512 KiByte",0 rjmp fman_main_02 fman_main_002: cpi tempreg1,0xff ;1M brne fman_main_01 libmio_thistext .db 255,"1 MiByte",0 rjmp fman_main_02 fman_main_01: libmio_thistext .db 255,"0 Byte",0 rjmp fman_main_x2 fman_main_02: call fsys_checkf ;test for valid format cpi tempreg1,0x01 ;OK breq fman_main_03 fman_mainf_1: ldi ZL,LOW(fman_txt2*2) ldi ZH,HIGH(fman_txt2*2) libmio_menu cpi tempreg1,0x01 ;ESC brne fman_mainf_2 rjmp fman_wnk ;wait for no key and exit fman_mainf_2: cpi tempreg1,0x05 ;F4=rescan brne fman_mainf_3 rjmp fman_main fman_mainf_3: cpi tempreg1,0x02 ;F1=format brne fman_mainf_1 rcall fman_fmt ;format rjmp fman_main fman_main_x2: ldi ZL,LOW(fman_txt3*2) ldi ZH,HIGH(fman_txt3*2) libmio_menu cpi tempreg1,0x01 ;ESC brne fman_main_x4 rjmp fman_wnk ;wait for no key and exit fman_main_x4: cpi tempreg1,0x05 ;rescan brne fman_main_x2 rjmp fman_main ;------------------------------------------------------------------------------ ;the main loop ;------------------------------------------------------------------------------ fman_main_03: ldi ZL,LOW(fman_txt1*2) ldi ZH,HIGH(fman_txt1*2) libmio_menu ;------------------------------------------------------------------------------ ;esc key ;------------------------------------------------------------------------------ fman_main_30: cpi tempreg1,0x01 ;esc brne fman_main_c0 rjmp fman_wnk ;wait for no key and exit ;------------------------------------------------------------------------------ ;CTRL+F1 key (delete) ;------------------------------------------------------------------------------ fman_main_c0: cpi tempreg1,0x07 ;F1 brne fman_main_d0 call fsys_del rjmp fman_main ;------------------------------------------------------------------------------ ;CTRL+F4 key (format) ;------------------------------------------------------------------------------ fman_main_d0: cpi tempreg1,0x0a ;F4 brne fman_main_50 rcall fman_fmt ;format rjmp fman_main ;restart ;------------------------------------------------------------------------------ ;F1 key (info) ;------------------------------------------------------------------------------ fman_main_50: cpi tempreg1,0x02 ;F1 brne fman_main_60 rcall fman_info rjmp fman_main ;------------------------------------------------------------------------------ ;F2 key (backup) ;------------------------------------------------------------------------------ fman_main_60: cpi tempreg1,0x03 ;F2 brne fman_main_70 call fsys_backup rjmp fman_main ;------------------------------------------------------------------------------ ;F3 key (restore) ;------------------------------------------------------------------------------ fman_main_70: cpi tempreg1,0x04 ;F3 brne fman_main_80 call fsys_restore rjmp fman_main ;------------------------------------------------------------------------------ ;F4 key (rescan) ;------------------------------------------------------------------------------ fman_main_80: cpi tempreg1,0x05 ;F4 brne fman_main_03 rjmp fman_main ;------------------------------------------------------------------------------ ;wait for key release ;------------------------------------------------------------------------------ fman_wnk: lds XL,libmio_keycode cpi XL,0 brne fman_wnk ;wait for key release ret ;------------------------------------------------------------------------------ ;format medium ;------------------------------------------------------------------------------ fman_fmt: libmio_askthis .db 0x4f,"Format Medium?",0 ;show message cpi tempreg1,0x01 breq fman_fmt_1 ret fman_fmt_1: ldi XL,0x26 ;color scheme (yellow on red) libmio_setcolor ldi YL,0x02 ldi YH,0x08 ldi ZL,0x1b ldi ZH,0x0c libmio_wbox libmio_thistext .db 9,3,"Formatting... ",0 ;show message libmio_thistext .db 11,3,0,0 ;sst cursor call fsys_format cpi ereg,0x00 ;error? brne fman_fmt_err fman_fmt_2: libmio_thistext .db 9,3,"Formatting... Done!",0 ;show message fman_fmt_3: ldi XL,0x72 ;color scheme (red on white) libmio_setcolor libmio_thistext .db 11,3," Press any key! "0,0 ;sst cursor libmio_waitkey ret fman_fmt_err: libmio_thistext .db 9,3,"Formatting... Error!",0,0 ;show message rjmp fman_fmt_3 ;------------------------------------------------------------------------------ ;medium info ;------------------------------------------------------------------------------ fman_info: ldi XL,0x60 ;color scheme (black on yellow) libmio_setcolor ldi YL,4 ;alert box ldi YH,8 ldi ZL,25 ldi ZH,13 libmio_wbox libmio_thistext .db 9,5,"Available:",0,0 ;show message libmio_thistext .db 10,5,"Files: ",0 ;show message ldi ctrl,0x0c ;set format call fsys_free push YH ;save free pages push YL movw XL,ZL ;copy free files libmio_outdez libmio_thistext .db 255," /",0 call fsys_maxpage mov XL,tempreg1 ldi XH,0x00 adiw XL,1 libmio_outdez fman_info_2: libmio_thistext .db 11,5,"Blocks:",0 ;show message pop XL ;copy free data pages pop XH libmio_outdez libmio_thistext .db 255," /",0 call fsys_size ldi XL,0xf0 ;240 mul XL,tempreg1 movw XL,r0 ;size sbiw XL,0x01 ;-1 cpi XH,0x00 brne fman_info_2a sbiw XL,0x03 fman_info_2a: libmio_outdez fman_info_4: ldi XL,0x06 ;color scheme (inv. black on yellow) libmio_setcolor libmio_thistext .db 12,5," Press any key! "0,0 ;sst cursor libmio_waitkey ret fman_txt1: .db " Exit Info BackupRestorRescan",1,0 .db " Delete Format" fman_txt2: .db " Exit Format Rescan",0,0 fman_txt3: .db " Exit Rescan",0,0 SOURCE_142/SOURCE_system/modules/xm.asm0000755000175000001440000001061211725741457016713 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2M - mobile single chip basic computer with ATmega644 # ;# X-Modem routines # ;# copyright (c) 2008-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------------- ; send program to XMODEM ;----------------------------------------------------------------------------- send_prog: lds ctrl,libmio_lastmenu ;program number send_prog_a: ldi tempreg3,1 ;first block number libmio_gserb ;get char lds tempreg2,libmio_keycode ;get keycode cpi tempreg2,0xed ;ESC brne send_prog_01 ;not send_prog_00: ret ;OK, done send_prog_01: cpi tempreg1,0x15 ;NAK? brne send_prog_a ;no->loop ldi ZL,LOW(bas_programs*2) ldi ZH,HIGH(bas_programs*2) andi ctrl,0x07 ;limit programs swap ctrl ;progno*16 ldi tempreg1,0xc0 ;*192 mul ctrl,tempreg1 add ZL,r0 ;add offset adc ZH,r1 send_prog_02: ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) ldi tempreg2,0 send_prog_03: lpm tempreg1,Z+ ;copy to RAM st Y+,tempreg1 dec tempreg2 brne send_prog_03 send_prog_04: ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) libmio_sendx ;send data block libmio_gserb ;get char lds tempreg2,libmio_keycode ;get keycode cpi tempreg2,0xed ;ESC breq send_prog_00 ;yes cpi tempreg1,0x06 ;ACK? brne send_prog_04 ;no->repeat inc tempreg3 ;block+1 send_prog_05: ldi YL,LOW(bas_array+128) ldi YH,HIGH(bas_array+128) libmio_sendx ;send data block libmio_gserb ;get char lds tempreg2,libmio_keycode ;get keycode cpi tempreg2,0xed ;ESC breq send_prog_00 ;yes cpi tempreg1,0x06 ;ACK? brne send_prog_05 ;no->repeat inc tempreg3 cpi tempreg3,25 ;all done brne send_prog_02 ;no ldi tempreg1,0x04 ;send EOT libmio_pser libmio_gserb ;get char (ack or not) ret ;yes ;------------------------------------------------------------------------------ ;receive program via XMODEM ;------------------------------------------------------------------------------ recv_prog: lds ctrl,libmio_lastmenu recv_prog_a: andi ctrl,0x07 ;8 programs ldi ZL,LOW(bas_programs*2) ldi ZH,HIGH(bas_programs*2) swap ctrl ;fileno*16 ldi tempreg1,0xc0 ;*192 mul ctrl,tempreg1 add ZL,r0 ;file offset adc ZH,r1 ldi tempreg1,0x15 ;send NAK to start libmio_pser ldi tempreg3,0 ;blocks received recv_prog_00: push tempreg3 recv_prog_01: ldi YL,LOW(bas_array+512) ldi YH,HIGH(bas_array+512) libmio_recvx ;receive data block cpi ereg,0 breq recv_prog_01a cpi ereg,1 breq recv_prog_end cpi ereg,36 breq recv_prog_end ;abort condition ldi tempreg1,0x15 ;send NAK libmio_pser rjmp recv_prog_01 ;receive again recv_prog_01a: ldi tempreg1,0x06 ;send ACK libmio_pser recv_prog_02: ldi YL,LOW(bas_array+640) ldi YH,HIGH(bas_array+640) libmio_recvx ;send data block cpi ereg,0 breq recv_prog_03 cpi ereg,1 breq recv_prog_end cpi ereg,36 breq recv_prog_end ;abort condition ldi tempreg1,0x15 ;send NAK libmio_pser rjmp recv_prog_02 ;receive again recv_prog_03: call mem_writepage ;write to flash sei adiw ZL,2 ;next flash page ldi tempreg1,0x06 ;send ACK libmio_pser pop tempreg3 inc tempreg3 cpi tempreg3,12 brne recv_prog_00 recv_prog_04: libmio_gser cpi tempreg1,0x04 ;EOT brne recv_prog_04 ldi tempreg1,0x06 ;send ACK libmio_pser libmio_sync ret recv_prog_end: pop tempreg3 libmio_sync ret SOURCE_142/SOURCE_system/modules/expand_line.asm0000755000175000001440000001420711725741457020561 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# line expander # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; expand linebuf -> inbuf ;----------------------------------------------------------------------- xlin_main: ldi YL,LOW(bas_inbuf+3) ;text buffer address ldi YH,HIGH(bas_inbuf+3) ldi XL,LOW(bas_linebuf) ;code buffer address ldi XH,HIGH(bas_linebuf) ;fill buffer with space ldi tempreg1,0x20 ;space ldi ZL,34 ;32 chars xlin_main_0: st Y+,tempreg1 dec ZL brne xlin_main_0 sbiw YL,34 ;restore old pointer xlin_main_1: cpi XL,LOW(bas_linebuf+32) ;we are at the end brcc xlin_main_1a ld tempreg1,X+ ;get byte cpi tempreg1,0x02 ;minimum brcs xlin_main_1a cpi tempreg1,0xff ;end brne xlin_main_2 ;no xlin_main_1a: ret xlin_main_2: cpi tempreg1,0x20 ;fct token? brcs xlin_main_3 cpi tempreg1,0x80 ;token? brcc xlin_main_3 rcall xlin_wrc ;write char rjmp xlin_main_1 ;loop xlin_main_3: cpi tempreg1,0x1c ;1 byte dec brne xlin_main_4 ld ZL,X+ clr ZH rcall xlin_outdec rjmp xlin_main_1 xlin_main_4: cpi tempreg1,0x1d ;2 bytes dec brne xlin_main_5 ld ZH,X+ ld ZL,X+ rcall xlin_outdec rjmp xlin_main_1 xlin_main_5: cpi tempreg1,0x1e ;1 byte hex brne xlin_main_6 ldi tempreg1,'$' rcall xlin_wrc ;write char ld ZL,X+ set rcall xlin_outh_3 rjmp xlin_main_1 xlin_main_6: cpi tempreg1,0x1f ;2 bytes hex brne xlin_main_7 ldi tempreg1,'$' rcall xlin_wrc ld ZH,X+ ld ZL,X+ rcall xlin_outhex rjmp xlin_main_1 xlin_main_7: rcall xlin_outkey ;keyword rjmp xlin_main_1 ;------------------------------------------------------------------------------- ; output decimal value ;------------------------------------------------------------------------------- xlin_outdec: clt ;clear nz flag ldi tempreg1,47 ;"0"-1 xlin_outd_01: inc tempreg1 ; subi ZL,16 ;-10000 sbci ZH,39 brcc xlin_outd_01 ;no overflow subi ZL,240 ;+10000 sbci ZH,216 ; cpi tempreg1,'0' ;5 digits? breq xlin_outd_02 ;no rcall xlin_wrc set xlin_outd_02: ldi tempreg1,47 ;"0"-1 xlin_outd_03: inc tempreg1 ; subi ZL,232 ;-1000 sbci ZH,3 ; brcc xlin_outd_03 ;no overflow subi ZL,24 ;+1000 sbci ZH,252 ; brts xlin_outd_04 cpi tempreg1,'0' ;5 digits? breq xlin_outd_05 ;no xlin_outd_04: rcall xlin_wrc set xlin_outd_05: ldi tempreg1,47 ;"0"-1 xlin_outd_06: inc tempreg1 ; subi ZL,100 ;-100 sbci ZH,0 ; brcc xlin_outd_06 ;no overflow subi ZL,156 ;+100 sbci ZH,255 ; brts xlin_outd_07 cpi tempreg1,'0' ;5 digits? breq xlin_outd_08 ;no xlin_outd_07: rcall xlin_wrc set xlin_outd_08: ldi tempreg1,47 ;"0"-1 xlin_outd_09: inc tempreg1 ; subi ZL,10 ;-10 brcc xlin_outd_09 ;no overflow subi ZL,246 ;+10 brts xlin_outd_10 cpi tempreg1,'0' ;5 digits? breq xlin_outd_11 ;no xlin_outd_10: rcall xlin_wrc xlin_outd_11: ldi tempreg1,48 ;"0" add tempreg1,ZL ;LSB digit rcall xlin_wrc ret ;------------------------------------------------------------------------------- ; output hex value ;------------------------------------------------------------------------------- xlin_outhex: clt ;clear nz flag mov tempreg1,ZH swap tempreg1 andi tempreg1,0x0f breq xlin_outh_1 rcall xlin_ohexc ;out char set ;set nz flag xlin_outh_1: mov tempreg1,ZH andi tempreg1,0x0f brts xlin_outh_2 breq xlin_outh_3 xlin_outh_2: rcall xlin_ohexc ;out char set xlin_outh_3: mov tempreg1,ZL swap tempreg1 andi tempreg1,0x0f brts xlin_outh_4 breq xlin_outh_5 xlin_outh_4: rcall xlin_ohexc ;out char set xlin_outh_5: mov tempreg1,ZL andi tempreg1,0x0f rcall xlin_ohexc ;out char ret ;------------------------------------------------------------------------------- ; out hexadecimal char (tempreg1) ;------------------------------------------------------------------------------- xlin_ohexc: subi tempreg1,0xd0 ;+30 cpi tempreg1,0x3a ;>9 brcs xlin_ohexc_1 ;jump, if not subi tempreg1,0xf9 ;+6 xlin_ohexc_1: rcall xlin_wrc ret ;------------------------------------------------------------------------------- ; expand keyword tempreg1 ;------------------------------------------------------------------------------- xlin_outkey: ldi ZL,LOW(tokentab*2) ;start of token table ldi ZH,HIGH(tokentab*2) xlin_ok_1: lpm tempreg2,Z+ ;token number cpi tempreg2,0x00 ;last? brne xlin_ok_2 ret xlin_ok_2: cp tempreg1,tempreg2 ;found breq xlin_ok_3 ;yes adiw ZL,7 ;next token rjmp xlin_ok_1 ;loop xlin_ok_3: push tempreg2 ldi tempreg2,7 ;number of chars xlin_ok_4: lpm tempreg1,Z+ cpi tempreg1,'.' ;dont care bytes breq xlin_ok_5 rcall xlin_wrc xlin_ok_5: dec tempreg2 brne xlin_ok_4 pop tempreg2 cpi tempreg2,0x1c ;functions have no post-space brcs xlin_ok_6 ldi tempreg1,0x20 ;space rcall xlin_wrc xlin_ok_6: ret ;------------------------------------------------------------------------------- ; write one char (tempreg1) ;------------------------------------------------------------------------------- xlin_wrc: cpi YL,LOW(bas_inbuf+35) brcc xlin_wrc_1 st Y+,tempreg1 xlin_wrc_1: ret SOURCE_142/SOURCE_system/modules/filesys.asm0000755000175000001440000006345311725741457017760 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# dataflash filesystem functions # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ;delete file ;------------------------------------------------------------------------------ fsys_del: clr tempreg4 ;first file fsys_del_00: rcall fsys_check ;check for dataflash cpi tempreg1,0x00 ;no valid FS breq fsys_del_02 rcall fsys_fselbox4 libmio_thistext .db 3,2,"Delete file",0 fsys_del_01: rcall fsys_select ;select a file cpi tempreg1,0xed breq fsys_del_02 sts bas_partab,tempreg4 rcall fsys_gettype ;get type cpi tempreg1,0xfc ;empty breq fsys_del_01 ;non existing file rcall fsys_adel ;ask for deleting cpi tempreg1,0x01 ;yes brne fsys_del_02 mov XL,tempreg4 ;filenumber rcall fsys_wal ;draw alert box rcall fsys_delete fsys_del_02: ret ;------------------------------------------------------------------------------ ;save file ;------------------------------------------------------------------------------ fsys_savebas: clr tempreg4 ;first file fsys_save_00: rcall fsys_check ;check for dataflash cpi tempreg1,0x00 ;no valid FS breq fsys_save_e rcall fsys_fselbox4 ldi XL,0x10 ;BASIC sts bas_partab+4,XL ;set file type libmio_thistext .db 3,2,"Save P",0,0 rcall fsys_snn fsys_save_01: rcall fsys_select cpi tempreg1,0xed ;ESC breq fsys_save_e ;exit if ESC sts bas_partab,tempreg4 rcall fsys_gettype ;get type cpi tempreg1,0xe0 ;empty brcc fsys_save_02 cpi tempreg1,0x10 ;basic breq fsys_save_04 cpi tempreg1,0x18 ;native breq fsys_save_04 rcall fsys_e_cns ;cannot save on this rjmp fsys_save_00 ;loop fsys_save_02: rcall fsys_free ;count free pages cpi YH,0x00 ;<256 brne fsys_save_03 cpi YL,0x0c ;needed pages for a program brcc fsys_save_03 ;we have... rcall fsys_e_nsl ;no space left rjmp fsys_save_00 ;loop fsys_save_03: rcall fsys_wal ;box rcall fsys_bsave ;save this file ret ;end fsys_save_04: rcall fsys_over ;ask for overwrite cpi tempreg1,0x01 ;yes? brne fsys_save_00 rcall fsys_wal rcall fsys_bover fsys_save_e: ret ;------------------------------------------------------------------------------ ;backup ;------------------------------------------------------------------------------ fsys_backup: clr tempreg4 ;first file fsys_mbup_00: rcall fsys_check ;check for dataflash cpi tempreg1,0x00 ;no valid FS breq fsys_save_e ;exit rcall fsys_fselbox4 ldi XL,0x12 ;BASIC sts bas_partab+4,XL ;set file type libmio_thistext .db 3,2,"Backup",0,0 fsys_mbup_01: rcall fsys_select cpi tempreg1,0xed ;ESC breq fsys_save_e ;exit if ESC sts bas_partab,tempreg4 rcall fsys_gettype ;get type cpi tempreg1,0x90 ;empty brcc fsys_mbup_02 cpi tempreg1,0x12 ;backup breq fsys_mbup_04 rcall fsys_e_cns ;cannot save on this rjmp fsys_mbup_00 ;loop fsys_mbup_02: rcall fsys_free ;count free pages cpi YH,0x00 ;<256 brne fsys_mbup_03 cpi YL,0x60 ;needed pages for a backup brcc fsys_mbup_03 ;we have... rcall fsys_e_nsl ;no space left rjmp fsys_mbup_00 ;loop fsys_mbup_03: rcall fsys_wal rcall fsys_msave ;save this file ret ;end fsys_mbup_04: rcall fsys_over ;ask for overwrite cpi tempreg1,0x01 ;yes? brne fsys_mbup_00 rcall fsys_wal rcall fsys_mover ret ;------------------------------------------------------------------------------ ;load file ;------------------------------------------------------------------------------ fsys_loadbas: clr tempreg4 ;first file fsys_load_00: rcall fsys_check ;check for dataflash cpi tempreg1,0x00 ;no valid FS breq fsys_load_e ;exit rcall fsys_fselbox4 libmio_thistext .db 3,2,"Load P",0,0 rcall fsys_snn fsys_load_01: rcall fsys_select cpi tempreg1,0xed breq fsys_load_e sts bas_partab,tempreg4 rcall fsys_gettype ;get type cpi tempreg1,0x10 ;basic breq fsys_load_02 cpi tempreg1,0x18 ;basic breq fsys_load_02 rcall fsys_e_cnlb ;cannot load rjmp fsys_load_00 ;loop fsys_load_02: rcall fsys_bload fsys_load_e: ret ;------------------------------------------------------------------------------ ;restore ;------------------------------------------------------------------------------ fsys_restore: clr tempreg4 ;first file fsys_rest_00: rcall fsys_check ;check for dataflash cpi tempreg1,0x00 ;no valid FS breq fsys_load_e ;exit rcall fsys_fselbox4 libmio_thistext .db 3,2,"Restore",0 fsys_rest_01: rcall fsys_select cpi tempreg1,0xed breq fsys_load_e sts bas_partab,tempreg4 rcall fsys_gettype ;get type cpi tempreg1,0x12 ;backup breq fsys_rest_02 rcall fsys_e_cnlm ;cannot load rjmp fsys_rest_00 ;loop fsys_rest_02: rcall fsys_mload ret ;------------------------------------------------------------------------------ ;select an entry ;------------------------------------------------------------------------------ fsys_select: clr tempreg4 fsys_sel_01: rcall fsys_list ;list files fsys_sel_02: rcall fsys_inv ;invert selected fsys_sel_03: libmio_waitkey ;wait for key cpi tempreg1,0xed ;ESC brne fsys_sel_10 ;no rcall fsys_wnk ret ;end now fsys_sel_10: cpi tempreg1,0xea ;enter brne fsys_sel_15 ;no ret ;end fsys_sel_15: cpi tempreg1,0xe0 ;pos 1 brne fsys_sel_20 rcall fsys_reinv ;re-invert clr tempreg4 ;first pos rjmp fsys_sel_01 ;loop fsys_sel_20: cpi tempreg1,0xe1 ;pos 1 brne fsys_sel_25 rcall fsys_reinv ;re-invert lds tempreg4,bas_partab+8 ;maximum rjmp fsys_sel_01 ;loop fsys_sel_25: cpi tempreg1,0xe4 ;up brne fsys_sel_30 cpi tempreg4,0x00 breq fsys_sel_03 ;do nothing rcall fsys_reinv ;re-invert subi tempreg4,0x01 ;-1 mov tempreg1,tempreg4 andi tempreg1,0x0f cpi tempreg1,0x0f breq fsys_sel_01 ;page change rjmp fsys_sel_02 ;no page change fsys_sel_30: cpi tempreg1,0xe5 ;down brne fsys_sel_35 ;no lds tempreg1,bas_partab+8 ;maximum cp tempreg1,tempreg4 brne fsys_sel_31 rjmp fsys_sel_03 ;do nothing fsys_sel_31: rcall fsys_reinv ;re-invert inc tempreg4 ;+1 mov tempreg1,tempreg4 andi tempreg1,0x0f breq fsys_sel_01 ;page change rjmp fsys_sel_02 ;no page change fsys_sel_35: cpi tempreg1,0xe6 ;pageup brne fsys_sel_40 ;no cpi tempreg4,0x10 brcs fsys_sel_03 ;do nothing rcall fsys_reinv ;re-invert subi tempreg4,0x10 ;-16 rjmp fsys_sel_01 ;page change fsys_sel_40: cpi tempreg1,0xe7 ;pagedown brne fsys_sel_45 ;no lds tempreg1,bas_partab+8 ;max page cpi tempreg1,0x0f breq fsys_sel_45 ;no page down at EEPROM subi tempreg1,0x10 cp tempreg1,tempreg4 brcs fsys_sel_45 ;do nothing rcall fsys_reinv ;re-invert subi tempreg4,0xf0 ;+16 rjmp fsys_sel_01 ;page change fsys_sel_45: rjmp fsys_sel_03 ;loop ;------------------------------------------------------------------------------ ;check flash for useability ;------------------------------------------------------------------------------ fsys_check: call fsys_maxpage ;get flash status cpi tempreg1,0x00 ;no brne fsys_check_01 rjmp fsys_e_ndf ;show error: not found fsys_check_01: sts bas_partab+8,tempreg1 ;store no of pages fsys_check_02: libmio_sync libmio_sync rcall fsys_checkf ;test for valid format cpi tempreg1,0x01 ;OK breq fsys_check_04 rjmp fsys_e_nfor ;show error: not formatted fsys_check_04: ret ;------------------------------------------------------------------------------ ;error:not formatted ;------------------------------------------------------------------------------ fsys_e_nfor: libmio_alertthis .db 0x2f,"DFLASH not formatted",0 clr tempreg1 ret ;abort ;------------------------------------------------------------------------------ ;error:no dataflash found ;------------------------------------------------------------------------------ fsys_e_ndf:; libmio_thistext ; .db 0,0,"EREG:",0 ; clr ctrl ; push XH ; push XL ; mov XL,ereg ; libmio_outhex ; pop XL ; pop XH libmio_alertthis .db 0x2f,"DFLASH error!",0,0 clr tempreg1 ret ;end ;------------------------------------------------------------------------------ ;error:cannot save ;------------------------------------------------------------------------------ fsys_e_cns: libmio_alertthis .db 0x2f,"Can not save on this",0 ret ;end ;------------------------------------------------------------------------------ ;error:cannot load ;------------------------------------------------------------------------------ fsys_e_cnlb: libmio_alertthis .db 0x2f,"No BASIC file",0,0 ret ;end ;------------------------------------------------------------------------------ ;error:cannot restore ;------------------------------------------------------------------------------ fsys_e_cnlm: libmio_alertthis .db 0x2f,"No BACKUP file",0 ret ;end ;------------------------------------------------------------------------------ ;ask:overwrite ;------------------------------------------------------------------------------ fsys_over: libmio_askthis .db 0x60,"Overwrite file?",0,0 ret ;------------------------------------------------------------------------------ ;ask:delete ;------------------------------------------------------------------------------ fsys_adel: libmio_askthis .db 0x2f,"Delete file?",0 ret ;------------------------------------------------------------------------------ ;no space left ;------------------------------------------------------------------------------ fsys_e_nsl: libmio_alertthis .db 0x2f,"No space left",0,0 ret ;end ;------------------------------------------------------------------------------ ;list 16 files ;tempreg4=file ;------------------------------------------------------------------------------ fsys_list: push tempreg2 push tempreg3 push tempreg4 mov XL,tempreg4 ;copy pagestart andi XL,0xf0 ;table start sts dflash_asel,XL ;store first number to display fsys_list_01: ;set cursor lds XL,dflash_asel ;file number andi XL,0x0f ;only position in table subi XL,0xfb ;+5 (Y-pos) mov XH,XL ldi XL,0x04 ;X-pos libmio_gotoxy ;set cursor ldi XL,0x06 ;color scheme (yellow on black) libmio_setcolor ;output file number lds XL,dflash_asel ;file number clr XH ;max 256 files ldi ctrl,0x05 ;set format libmio_outdez ;output file number libmio_outspace ;and a space ;get file type to tempreg1 ldi XL,0x05 ;color scheme (cyan on black) libmio_setcolor lds XL,dflash_asel ;file number sts bas_partab,XL rcall fsys_gettype ;get file type rcall fsys_pft ;print file type cpi tempreg1,0xff ;empty breq fsys_list_19 ;yes ; rjmp fsys_list_17 ;debug ;read first page lds XL,dflash_asel ;position sts bas_partab,XL ;set file number ldi tempreg1,0x00 sts bas_partab+2,tempreg1 ldi tempreg1,0x02 sts bas_partab+4,tempreg1 clr ereg rcall fsys_read ;read this page cpi ereg,0x00 ;OK? brne fsys_list_17 ;no -> empty ldi YL,LOW(bas_array+512) ;no copy ldi YH,HIGH(bas_array+512) ;separating space libmio_outspace ;output file name ldi tempreg2,0x0c ;name length fsys_list_14: push tempreg2 ld tempreg1,Y+ ;get char cpi tempreg1,0x80 ;valid? brcs fsys_list_15 ;branch if yes ldi tempreg1,'.' ;replace fsys_list_15: cpi tempreg1,0x20 ;valid? brcc fsys_list_16 ;branch if yes ldi tempreg1,' ' ;replace fsys_list_16: libmio_outchar pop tempreg2 dec tempreg2 brne fsys_list_14 ;loop fsys_list_17: lds XL,dflash_asel ;file number inc XL ;+1 sts dflash_asel,XL ;store back andi XL,0x0f ;only number in table breq fsys_list_18 rjmp fsys_list_01 fsys_list_18: pop tempreg4 pop tempreg3 pop tempreg2 ret fsys_list_19: ldi tempreg2,0x0d ;name length +1 fsys_list_20: libmio_outspace ;write space char dec tempreg2 ;loop counter brne fsys_list_20 ;loop rjmp fsys_list_17 ;ok, done ;------------------------------------------------------------------------------ ;invert line tempreg4 ;------------------------------------------------------------------------------ fsys_inv: push tempreg1 push tempreg2 ldi YL,LOW(libmio_vram+690+150+4) ldi YH,HIGH(libmio_vram+690+150+4) mov tempreg1,tempreg4 ;copy line number andi tempreg1,0x0f ldi tempreg2,30 ;chars per line mul tempreg1,tempreg2 add YL,r0 ;set offset adc YH,r1 ldi tempreg2,0xf2 ;blue on white ldi tempreg1,0x17 ;23 chars fsys_inv_1: st Y+,tempreg2 dec tempreg1 ;loop counter brne fsys_inv_1 ;loop pop tempreg2 pop tempreg1 ret ;------------------------------------------------------------------------------ ;re-invert line tempreg4 ;------------------------------------------------------------------------------ fsys_reinv: push tempreg1 push tempreg2 ldi YL,LOW(libmio_vram+690+150+4) ldi YH,HIGH(libmio_vram+690+150+4) mov tempreg1,tempreg4 ;copy line number andi tempreg1,0x0f ldi tempreg2,30 ;chars per line mul tempreg1,tempreg2 add YL,r0 ;set offset adc YH,r1 ldi tempreg2,0x0c ;yellow on black ldi tempreg1,0x4 ;4 chars fsys_reinv_1: st Y+,tempreg2 dec tempreg1 ;loop counter brne fsys_reinv_1 ;loop ldi tempreg2,0x0a ;cyan on black ldi tempreg1,0x13 ;19 chars fsys_reinv_2: st Y+,tempreg2 dec tempreg1 ;loop counter brne fsys_reinv_2 ;loop pop tempreg2 pop tempreg1 ret ;------------------------------------------------------------------------------ ;wait for key release ;------------------------------------------------------------------------------ fsys_wnk: lds XL,libmio_keycode cpi XL,0 brne fsys_wnk ;wait for key release ret ;------------------------------------------------------------------------------ ;save basic ;------------------------------------------------------------------------------ fsys_bsave: sts bas_partab,tempreg4 ;file number ldi tempreg1,0x0c ;12 pages sts bas_partab+2,tempreg1 ;set ldi tempreg1,0x10 ;file type sts bas_partab+4,tempreg1 ;set rcall fsys_create ;create new file cpi ereg,0x00 ;OK? breq fsys_bover rjmp fsys_e_ndf ;dataflash error ;------------------------------------------------------------------------------ ;overwrite basic ;------------------------------------------------------------------------------ fsys_bover: sts bas_partab,tempreg4 ;file number lds ctrl,libmio_lastmenu ;program number ldi ZL,LOW(bas_programs*2+12) ldi ZH,HIGH(bas_programs*2+12) andi ctrl,0x07 ;limit programs swap ctrl ;fileno*16 ldi tempreg1,0xc0 ;*192 mul ctrl,tempreg1 add ZL,r0 ;file offset adc ZH,r1 lpm r16,Z sbiw ZL,12 ldi tempreg1,0x10 cpi r16,'N' brne fsys_bove_1 ldi tempreg1,0x18 fsys_bove_1: rcall fsys_settype ldi tempreg1,0x00 ;first data page fsys_bover_1: push tempreg1 ldi r16,0x00 ;bytes to copy ldi YL,LOW(bas_array+512) ;buffer ldi YH,HIGH(bas_array+512) fsys_bover_2: lpm r17,Z+ ;get flash data st Y+,r17 ;write to buffer dec r16 brne fsys_bover_2 sts bas_partab+2,tempreg1 ;page number ldi tempreg1,0x02 ;array pos sts bas_partab+4,tempreg1 ;set rcall fsys_write ;write page pop tempreg1 inc tempreg1 cpi tempreg1,0x0c ;all done brne fsys_bover_1 ret ;------------------------------------------------------------------------------ ;load basic ;------------------------------------------------------------------------------ fsys_bload: lds ctrl,libmio_lastmenu fsys_bload_0: andi ctrl,0x07 ;8 programs ldi ZL,LOW(bas_programs*2) ldi ZH,HIGH(bas_programs*2) swap ctrl ;fileno*16 ldi tempreg1,0xc0 ;*192 mul ctrl,tempreg1 add ZL,r0 ;file offset adc ZH,r1 ldi tempreg1,0x00 ;first data page fsys_bload1: push tempreg1 sts bas_partab+2,tempreg1 ;page number ldi tempreg1,0x02 ;array pos sts bas_partab+4,tempreg1 ;set sts bas_partab,tempreg4 ;file number rcall fsys_read ldi YL,LOW(bas_array+512) ;buffer ldi YH,HIGH(bas_array+512) call mem_writepage ;write to flash adiw ZL,2 ;next flash page pop tempreg1 inc tempreg1 ;page counter cpi tempreg1,0x0c ;last? brne fsys_bload1 ;no sei jmp sys_extsearch ;------------------------------------------------------------------------------ ;print file type (tempreg1) ;------------------------------------------------------------------------------ fsys_pft: push_ptr push tempreg1 mov tempreg4,tempreg1 ldi ZL,LOW(fsys_pftab*2) ldi ZH,HIGH(fsys_pftab*2) fsys_pft_01: lpm tempreg1,Z+ cpi tempreg1,0 brne fsys_pft_02 ldi tempreg3,4 fsys_pft_01a: ldi tempreg1,'-' libmio_outchar dec tempreg3 brne fsys_pft_01a pop tempreg1 ldi tempreg1,0xff pop_ptr fsys_pft_02: cp tempreg1,tempreg4 breq fsys_pft_03 adiw ZL,3 rjmp fsys_pft_01 fsys_pft_03: ldi tempreg3,3 fsys_pft_04: lpm tempreg1,Z+ libmio_outchar dec tempreg3 brne fsys_pft_04 ldi tempreg1,':' libmio_outchar pop tempreg1 pop_ptr fsys_pftab: .db 0x10,"BAS" ;BASIC .db 0x12,"BUP" ;Backup .db 0x14,"USR" ;User .db 0x16,"CH8" ;Chip8 .db 0x18,"AVR" ;AVR native .db 0x1a,"GPL" ;GPS list .db 0x1c,"SAM" ;Sampling data .db 0x1e,"LBL" ;logic blocks .db 0x20,"BA3" ;CB3 BASIC .db 0x22,"AV3" ;CB3 AVR native .db 0x24,"SX3" ;CB3 SX native .db 0x26,"VM3" ;CB3 VM code .db 0x28,"BU3" ;CB3 Backup .db 0x30,"TVG" ;TV GAME (experimental) .db 0x32,"ZXP" ;ZX81 P-file .db 0,0 ;------------------------------------------------------------------------------ ;create backup ;------------------------------------------------------------------------------ fsys_msave: sts bas_partab,tempreg4 ;file number ldi tempreg1,0x60 ;96 pages sts bas_partab+2,tempreg1 ;set ldi tempreg1,0x12 ;file type sts bas_partab+4,tempreg1 ;set rcall fsys_create ;create new file cpi ereg,0x00 breq fsys_mover rjmp fsys_e_ndf ;dataflash error ;------------------------------------------------------------------------------ ;overwrite backup ;------------------------------------------------------------------------------ fsys_mover: sts bas_partab,tempreg4 ;file number clr tempreg1 ;first page ldi ZL,LOW(bas_programs*2) ldi ZH,HIGH(bas_programs*2) fsys_mover1: push tempreg1 ldi YL,LOW(bas_array+512) ;buffer ldi YH,HIGH(bas_array+512) clr r0 ;256 bytes fsys_mover2: lpm r1,Z+ ;copy from flash to ram st Y+,r1 dec r0 brne fsys_mover2 ;loop sts bas_partab+2,tempreg1 ;page number ldi tempreg1,0x02 ;array pos sts bas_partab+4,tempreg1 ;set rcall fsys_write ;write page 0 pop tempreg1 inc tempreg1 ;page+1 cpi tempreg1,0x60 brne fsys_mover1 ret ;------------------------------------------------------------------------------ ;restore ;------------------------------------------------------------------------------ fsys_mload: ldi tempreg1,0x00 ;first data page ldi ZL,LOW(bas_programs*2) ;start address ldi ZH,HIGH(bas_programs*2) fsys_mload1: push tempreg1 sts bas_partab+2,tempreg1 ;page number ldi tempreg1,0x02 ;array pos sts bas_partab+4,tempreg1 ;set sts bas_partab,tempreg4 ;file number rcall fsys_read ldi YL,LOW(bas_array+512) ;buffer ldi YH,HIGH(bas_array+512) call mem_writepage adiw ZL,2 ;correct pointer pop tempreg1 inc tempreg1 cpi tempreg1,0x60 brne fsys_mload1 sei jmp sys_extsearch ;------------------------------------------------------------------------------ ;write-alertbox ;------------------------------------------------------------------------------ fsys_wal: push_ptr push tempreg1 ;save registers lds tempreg1,libmio_color ;old color sts bas_partab+9,tempreg1 ;save ldi tempreg1,0x4c ;yellow on red sts libmio_color,tempreg1 ;set new color ldi YL,6 ldi YH,10 ldi ZL,23 ldi ZH,12 libmio_wbox ;draw window libmio_thistext .db 11,7,"Writing data...",0 lds tempreg1,bas_partab+9 sts libmio_color,tempreg1 ;restore old color pop tempreg1 pop_ptr ;------------------------------------------------------------------------------ ;transfer-alertbox ;------------------------------------------------------------------------------ fsys_tal: push_ptr push tempreg1 ;save registers lds tempreg1,libmio_color ;old color sts bas_partab+9,tempreg1 ;save ldi tempreg1,0x4c ;yellow on red sts libmio_color,tempreg1 ;set new color ldi YL,5 ldi YH,10 ldi ZL,24 ldi ZH,12 libmio_wbox ;draw window libmio_thistext .db 11,6,"Data transfer...",0,0 lds tempreg1,bas_partab+9 sts libmio_color,tempreg1 ;restore old color pop tempreg1 pop_ptr ;------------------------------------------------------------------------------ ;show number and name ;------------------------------------------------------------------------------ fsys_snn: ldi YL,LOW(libmio_vram+100) ldi YL,LOW(libmio_vram+100) lds tempreg1,libmio_lastmenu mov ctrl,tempreg1 subi tempreg1,0xcf libmio_outchar ldi tempreg1,0x20 libmio_outchar lds tempreg1,libmio_config push tempreg1 ori tempreg1,0x80 sts libmio_config,tempreg1 call mem_readnamec pop tempreg1 sts libmio_config,tempreg1 ret ;------------------------------------------------------------------------------ ;subroutines ;------------------------------------------------------------------------------ fsys_fselbox4: ldi XL,0x04 ;set color to green fsys_fselbox: libmio_setcolor ldi YL,1 ;alert box ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox swap XL ;invert color scheme libmio_setcolor ret ;XL=color ;out: tempreg4=fileno, tempreg1=filetype fsys_fileselect: rcall mon_backup rcall fsys_fsel_r rcall mon_restore ret fsys_fileselect2: rcall fsys_fsel_r ret fsys_fsel_r: rcall fsys_fselbox4 ldi XL,2 ldi XH,3 libmio_gotoxy ;now print title pop r0 pop r1 pop ZH pop ZL lsl ZL rol ZH fsys_fsel_01: lpm tempreg1,Z+ cpi tempreg1,0 breq fsys_fsel_02 libmio_outchar rjmp fsys_fsel_01 fsys_fsel_02: sbiw ZL,1 lsr ZH ror ZL adiw ZL,1 push ZL ;push back return address push ZH push r1 push r0 ;select file fsys_fselx: rcall fsys_select cpi tempreg1,0xed breq fsys_fselx1 sts bas_partab,tempreg4 rcall fsys_gettype ;get file type to tempreg1 fsys_fselx1: ret ;--------------------------------------------------------------------------- ; check for external filesystems ;--------------------------------------------------------------------------- fsys_checkext: lds r0,prg_fsys ret ;--------------------------------------------------------------------------- ; filesystem functions ;--------------------------------------------------------------------------- fsys_checkf: rcall fsys_checkext sbrc r0,7 rjmp fsys_checkf_n push ZL ldi ZL,xfsys_checkf rjmp fsys_callex fsys_checkf_n: libdfl_checkformat ret ;---------------------------------------- fsys_gettype: rcall fsys_checkext sbrc r0,7 rjmp fsys_gettype_n push ZL ldi ZL,xfsys_gtype rjmp fsys_callex fsys_gettype_n: libdfl_gettype ret ;---------------------------------------- fsys_settype: rcall fsys_checkext sbrc r0,7 rjmp fsys_settype_n push ZL ldi ZL,xfsys_stype rjmp fsys_callex fsys_settype_n: libdfl_settype ret ;---------------------------------------- fsys_free: rcall fsys_checkext sbrc r0,7 rjmp fsys_free_n push ZL ldi ZL,xfsys_free rjmp fsys_callex fsys_free_n: libdfl_free ret ;---------------------------------------- fsys_size: rcall fsys_checkext sbrc r0,7 rjmp fsys_size_n push ZL ldi ZL,xfsys_size rjmp fsys_callex fsys_size_n: libdfl_size ret ;---------------------------------------- fsys_gword: rcall fsys_checkext sbrc r0,7 rjmp fsys_gword_n push ZL ldi ZL,xfsys_gword rjmp fsys_callex fsys_gword_n: libdfl_gword ret ;---------------------------------------- fsys_create: rcall fsys_checkext sbrc r0,7 rjmp fsys_create_n push ZL ldi ZL,xfsys_create rjmp fsys_callex fsys_create_n: libdfl_create ret ;---------------------------------------- fsys_delete: rcall fsys_checkext sbrc r0,7 rjmp fsys_delete_n push ZL ldi ZL,xfsys_delete rjmp fsys_callex fsys_delete_n: libdfl_delete ret ;---------------------------------------- fsys_read: rcall fsys_checkext sbrc r0,7 rjmp fsys_read_n push ZL ldi ZL,xfsys_read rjmp fsys_callex fsys_read_n: libdfl_read ret ;---------------------------------------- fsys_write: rcall fsys_checkext sbrc r0,7 rjmp fsys_write_n push ZL ldi ZL,xfsys_write rjmp fsys_callex fsys_write_n: libdfl_write ret ;---------------------------------------- fsys_maxpage: rcall fsys_checkext sbrc r0,7 rjmp fsys_maxpage_n push ZL ldi ZL,xfsys_gmax rjmp fsys_callex fsys_maxpage_n: libdfl_maxpage ret ;---------------------------------------- fsys_format: rcall fsys_checkext sbrc r0,7 rjmp fsys_format_n push ZL ldi ZL,xfsys_format rjmp fsys_callex fsys_format_n: libdfl_format ret ;---------------------------------------- fsys_readraw: rcall fsys_checkext sbrc r0,7 rjmp fsys_readraw_n push ZL ldi ZL,xfsys_rread rjmp fsys_callex fsys_readraw_n: libdfl_readraw ret ;---------------------------------------- fsys_writeraw: rcall fsys_checkext sbrc r0,7 rjmp fsys_wraw_n push ZL ldi ZL,xfsys_rwrite rjmp fsys_callex fsys_wraw_n: libdfl_writeraw ret ;call external function fsys_callex: push ZH mov ZH,r0 icall pop ZH pop ZL ret SOURCE_142/SOURCE_system/modules/exparser.asm0000755000175000001440000011446611725741457020134 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# expression parser # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ; ereg = error code ; 0 = OK ; 1 = break ; 2 = overflow (add,sub,mul) ; 3 = division by zero ; 4 = square root from negative value ; 5 = constant overflow (basic expression parser) ; 6 = garbage in expression ; 7 = syntax error (basic expression parser) ; ; expar_ros = address of stack root ;############################################################################## expar_end: rjmp expar_bp_e2 ;############################################################################## ; the basic parser ; Z= pointer in ram ;############################################################################## expar: ldi YL,LOW(expar_ros) ;set stack pointer ldi YH,HIGH(expar_ros) ; st -Y,const_0 ;write low value st -Y,const_0 ;write high value ldi ereg,0x00 ;no error push const_0 ;stack stopper clr XL ;OP L clr XH ;OP H clr tempreg1 ;clear status (last=op) ;------------------------------------------------------------------------------ ; get character from string ;------------------------------------------------------------------------------ expar_bp_01: ld tempreg4,Z+ ;get char cpi tempreg4,0x20 ;space breq expar_bp_01 expar_bp_02: cpi tempreg4,0x80 ;a token brcc expar_end cpi tempreg4,':' ;next command breq expar_end ;------------------------------------------------------------------------------ ; system variables ;------------------------------------------------------------------------------ clr XH cpi tempreg4,'~' breq expar_sysv rjmp expar_pcr_01 ;actual scanline expar_sysv: ld tempreg4,Z+ cpi tempreg4,'S' brne expar_sysv_l movw XL,r8 rjmp expar_pcr_02b ;actual program line expar_sysv_l: cpi tempreg4,'L' brne expar_sysv_p mov XL,r12 inc XL rjmp expar_pcr_02b ;actual program number expar_sysv_p: cpi tempreg4,'P' brne expar_sysv_v lds XL,libmio_prog inc XL rjmp expar_pcr_02b ;video lines expar_sysv_v: cpi tempreg4,'V' brne expar_sysv_x lds XH,libmio_config ldi XL,57 sbrs XH,2 ldi XL,7 ldi XH,1 rjmp expar_pcr_02b ;X-dimension of screen expar_sysv_x: cpi tempreg4,'X' brne expar_sysv_y lds XL,libmio_clipx2 rjmp expar_pcr_02b ;Y-dimension of screen expar_sysv_y: cpi tempreg4,'Y' brne expar_sysv_r lds XL,libmio_clipy2 rjmp expar_pcr_02b ;last RETURN value expar_sysv_r: cpi tempreg4,'R' brne expar_sysv_n lds XL,bas_values lds XH,bas_values+1 rjmp expar_pcr_02b ;number of parameters expar_sysv_n: cpi tempreg4,'N' brne expar_sysv_m lds XL,bas_values+12 rjmp expar_pcr_02b ;machine type (1=mega644 2=mega644p 4=mega1284p) expar_sysv_m: cpi tempreg4,'M' brne expar_sysv_1 lds tempreg3,libmio_config ldi XL,1 sbrc tempreg3,4 ldi XL,2 rjmp expar_pcr_02b expar_sysv_1: cpi tempreg4,'(' brne expar_mo_05 ldi tempreg4,0x1c rjmp expar_pcr_05a ;------------------------------------------------------------------------------ ; get precompressed decimal 8 bit ;------------------------------------------------------------------------------ expar_pcr_01: cpi tempreg4,0x1c ;token breq expar_pcr_02a ;------------------------------------------------------------------------------ ; get precompressed hexadecimal 8 bit ;------------------------------------------------------------------------------ expar_pcr_02: cpi tempreg4,0x1e ;token brne expar_pcr_03 expar_pcr_02a: ld XL,Z+ expar_pcr_02b: ld tempreg4,Z+ ;get next char rjmp expar_bp_n3 ;------------------------------------------------------------------------------ ; get precompressed decimal 16 bit ;------------------------------------------------------------------------------ expar_pcr_03: cpi tempreg4,0x1d ;token breq expar_pcr_04a ;------------------------------------------------------------------------------ ; get precompressed hexadecimal 16 bit ;------------------------------------------------------------------------------ expar_pcr_04: cpi tempreg4,0x1f ;token brne expar_pcr_05 expar_pcr_04a: ld XH,Z+ rjmp expar_pcr_02a ;----------------------------------------------------------------------------- ; get precompressed function ;------------------------------------------------------------------------------ expar_pcr_05: cpi tempreg4,0x1c ;upper limit for functions brcc expar_bp_n1 expar_pcr_05a: mov tempreg2,tempreg4 ;copy OP movw tempreg5,YL ;save registers movw YL,ZL ;copy RAM pointer expar_mo_pcr: push tempreg2 ;push OP mov tempreg1,tempreg2 ;set status clr XL ;clear operand movw ZL,YL movw YL,tempreg5 rjmp expar_bp_01 ;next char expar_mo_05: ldi ereg,7 ;syntax error rjmp expar_bp_err ;error handling ;------------------------------------------------------------------------------ ; check for a decimal number ;------------------------------------------------------------------------------ expar_bp_n1: cpi tempreg4,48 ;"0" brcs expar_bp_m1 ;next check cpi tempreg4,58 ;"9"+1 brcc expar_bp_m1 ;next check cpi tempreg1,0x80 ;last was op? brcs expar_bp_n2 ldi ereg,6 ;missing operator rjmp expar_bp_err ;error handling expar_bp_n2: mov XL,tempreg4 subi XL,0x30 ld tempreg4,Z+ expar_bp_n3: cpi tempreg4,0x20 brne expar_bp_n31 ld tempreg4,Z+ ;get next char rjmp expar_bp_n3 expar_bp_n31: cpi tempreg1,0x7f ;inverter? brne expar_bp_n4 rcall expar_inva ;invert value expar_bp_n4: st -Y,XL ;write low value st -Y,XH ;write high value ldi tempreg1,0x80 ;last element is a value rjmp expar_bp_02 ;next expar_bp_n5: ldi ereg,5 ;constant overflow rjmp expar_bp_err ;error handling ;------------------------------------------------------------------------------ ; multichar ops AR(, ABS(... ;------------------------------------------------------------------------------ expar_bp_m1: cpi tempreg4,65 brcs expar_bp_i1 cpi tempreg4,91 brcc expar_bp_i1 ;------------------------------------------------------------------------------ ; a variable "A...Z" ;------------------------------------------------------------------------------ expar_bp_v1: cpi tempreg1,0x80 ;last was op? brcs expar_bp_v2 ldi ereg,6 ;missing operator rjmp expar_bp_err ;error handling expar_bp_v2: subi tempreg4,65 ;-"A" lsl tempreg4 ;*2 push ZL ;save Z-reg push ZH ldi ZL,LOW(varspace) ;pointer to vars ldi ZH,HIGH(varspace) add ZL,tempreg4 ;set actual pointer adc ZH,const_0 ld XL,Z+ ld XH,Z+ pop ZH ;restore Z-reg pop ZL ld tempreg4,Z+ rjmp expar_bp_n3 ;------------------------------------------------------------------------------ ; an inverter ;------------------------------------------------------------------------------ expar_bp_i1: cpi tempreg4,45 ;"-" brne expar_bp_p1 ;no cpi tempreg1,0x7f ;is already inverted brne expar_bp_i2 ;no clr tempreg1 ; rjmp expar_bp_01 ;thats all expar_bp_i2: brcc expar_bp_i3 ;last was not an operator cpi tempreg1,0x20 brcs expar_bp_i3 ldi tempreg1,0x7f ;set inverter rjmp expar_bp_01 ;next expar_bp_i3: rjmp expar_bp_c1 ;------------------------------------------------------------------------------ ; check for parantheses ;------------------------------------------------------------------------------ expar_bp_p1: cpi tempreg4,40 ;"(" brne expar_bp_p2 ldi tempreg4,0x01 ;code for left paranthesis push tempreg4 ;push to stack clr XL ;clear operand clr XH mov tempreg1,tempreg4 rjmp expar_bp_01 ;next character expar_bp_p2: cpi tempreg4,41 ;")" breq expar_bp_p3 rjmp expar_bp_l1 expar_bp_p3: pop tempreg2 ;get operator cpi tempreg2,0x1d ;left paranthesis brcc expar_bp_p7 ;no fct ld XH,Y+ ;get high value of TOS ld XL,Y+ ;get low value of TOS push ZH ;save Y+Z pointer push ZL push YH push YL ldi r16,LOW(expar_fret) ;save return address push r16 ldi r16,HIGH(expar_fret) push r16 ldi r16,LOW(expar_jtab1) ldi r17,HIGH(expar_jtab1) add r16,tempreg2 adc r17,const_0 push r16 ;this is like an icall to r16/r17 push r17 ret expar_jtab1: ldi ereg,6 ;00 no open ret ;01 open paranthesis rjmp expar_absa ;02 ABS rjmp expar_sgn ;03 SGN rjmp expar_sqr ;04 SQR rjmp expar_cp_not ;05 NOT rjmp expar_rnd ;06 RND rjmp expar_adc ;07 ADC rjmp expar_din ;08 DIN rjmp expar_xpeek ;09 XPEEK rjmp expar_temp ;0a TEMP rjmp expar_lo ;0b LO rjmp expar_hi ;0c HI rjmp expar_key ;0d KEY rjmp expar_epeek ;0e EPEEK rjmp expar_geterr ;0f ERR rjmp expar_ar ;10 AR rjmp expar_sin ;11 SIN rjmp expar_cos ;12 COS rjmp expar_ftype ;13 FTYPE rjmp expar_fsize ;14 FSIZE rjmp expar_pstat ;15 PSTAT rjmp expar_spi ;16 SPI rjmp expar_menu ;17 MENU rjmp expar_vpeek ;18 VBYTE rjmp expar_xrec ;19 XREC rjmp expar_ffind ;1a FFIND rjmp expar_dbit ;1b DBIT rjmp expar_cval ;1c ~( expar_cp_not: com XH ;invert com XL ret ;goto end expar_bp_p7: rcall expar_bp_x cpi ereg,0x00 breq expar_bp_p3x rjmp expar_bp_err expar_bp_p3x: rjmp expar_bp_p3 ;jump extender expar_bp_p8: ldi ereg,6 ;error code expar_fret: nop pop YL pop YH pop ZL pop ZH expar_bp_pa: cpi ereg,0 breq expar_bp_pa1 rjmp expar_bp_err expar_bp_pa1: st -Y,XL ;write result to stack st -Y,XH ; expar_bp_p9: clr XL ;clear operand clr XH ldi tempreg1,0x02 ;code for right paranthesis rjmp expar_bp_01 ;next character ;------------------------------------------------------------------------------ ; check if last was an operand ;------------------------------------------------------------------------------ expar_bp_l1: cpi tempreg1,0x7f ;upper border for operators brcc expar_bp_c1 ;last was no operator cpi tempreg1,0x1f ;lower border for operators brcs expar_bp_c1 ldi ereg,6 ;missing operand rjmp expar_bp_err ;------------------------------------------------------------------------------ ; a comparsion ;------------------------------------------------------------------------------ expar_bp_c1: ld tempreg3,Z ;get next char ldi r19,0x22 ;code for ne cpi tempreg4,60 ;"<" brne expar_bp_c4 cpi tempreg3,62 ;">" breq expar_bp_d01x ;is ne ldi r19,0x23 ;code for le cpi tempreg3,61 ;"=" breq expar_bp_d01 ;yes ldi r19,0x4e ;code for left shift cpi tempreg3,60 ;"<" breq expar_bp_d01 ;yes ldi r19,0x21 ;code for less rjmp expar_bp_d02 expar_bp_d01x: rjmp expar_bp_d01 expar_bp_c4: cpi tempreg4,62 ;">" brne expar_bp_c6 ldi r19,0x25 ;code for ge cpi tempreg3,61 ;"=" breq expar_bp_d01 ;no ldi r19,0x4f ;code for right shift cpi tempreg3,62 ;">" breq expar_bp_d01 ;yes ldi r19,0x24 ;code for greater rjmp expar_bp_d02 expar_bp_c6: ldi r19,0x26 ;code for equal cpi tempreg4,61 ;"=" breq expar_bp_d02 ;------------------------------------------------------------------------------ ; an arithmetic operator ;------------------------------------------------------------------------------ ldi r19,0x37 ;code for + cpi tempreg4,43 ;"+" breq expar_bp_d02 ldi r19,0x38 ;code for - cpi tempreg4,45 ;"-" breq expar_bp_d02 ldi r19,0x59 ;code for or cpi tempreg4,35 ;"#" breq expar_bp_d02 ldi r19,0x30 ;code for eor cpi tempreg4,94 ;"^" breq expar_bp_d02 ;next level ldi r19,0x5a ;code for mult cpi tempreg4,42 ;"*" breq expar_bp_d02 ldi r19,0x5b ;code for div cpi tempreg4,47 ;"/" breq expar_bp_d02 ldi r19,0x5c ;code for mod cpi tempreg4,37 ;"%" breq expar_bp_d02 ldi r19,0x3d ;code for and cpi tempreg4,38 ;"&" breq expar_bp_d02 ;------------------------------------------------------------------------------ ; we are at the end of expression ;------------------------------------------------------------------------------ expar_bp_e2: pop tempreg2 ;get last operand cpi tempreg2,0x00 ;end? breq expar_bp_e3 ;->end cpi tempreg2,0x1f brcs expar_bp_e5 rcall expar_bp_x rjmp expar_bp_e2 expar_bp_e3: ld XH,Y+ ;get high result ld XL,Y+ ;get low result expar_bp_e4: sbiw ZL,1 ;corect Z-pointer to next char ret expar_bp_e5: ldi ereg,6 expar_bp_e6: pop tempreg2 ;get last operand cpi tempreg2,0x00 ;end? breq expar_bp_e3 ;->end rjmp expar_bp_e6 ;------------------------------------------------------------------------------ ; clear stack on error ;------------------------------------------------------------------------------ expar_bp_err: pop tempreg1 ;get operator cpi tempreg1,0 ;stack ist empty? brne expar_bp_err ;loop expar_bp_er1: ret ;thats all ;------------------------------------------------------------------------------ ; do operator function ;------------------------------------------------------------------------------ expar_bp_d01: adiw ZL,1 ;correct Z register expar_bp_d02: mov tempreg4,r19 ;copy value expar_bp_d0: pop tempreg2 ;get last operator from stack mov XL,tempreg4 ;recent operator mov XH,tempreg2 ;last operator andi XL,0xf0 ;we need only priority andi XH,0xf0 ; cp XH,XL ;compare last with recent brcs expar_bp_d2 ;branch if last is not less expar_bp_d1: rcall expar_bp_x ;do last operation cpi ereg,0x00 ;error? brne expar_bp_err ;yes rjmp expar_bp_d0 ;write last and recent operator on stack expar_bp_d2: push tempreg2 ;put last on stack push tempreg4 ;put recent on stack clr XL ;clear operand clr XH mov tempreg1,tempreg4 ;set status rjmp expar_bp_01 ;get next char ;------------------------------------------------------------------------------ ; execute function with 2 parameters ;------------------------------------------------------------------------------ expar_bp_x: push r21 push r20 ld r17,Y+ ;get high value of TOS ld r16,Y+ ;get low value of TOS ld XH,Y+ ;get high value of SEC ld XL,Y+ ;get low value of SEC ldi r18,LOW(expar_jtab2) mov r19,tempreg2 andi r19,0x0f lsl r19 lsl r19 add r18,r19 ldi r19,HIGH(expar_jtab2) adc r19,const_0 push r18 ;this is like an ijmp to r16/r17 push r19 ret expar_jtab2: eor XL,r16 ;eor eor XH,r17 rjmp expar_bp_xy nop rcall expar_gt ;< rjmp expar_bp_xy nop nop rcall expar_eq ;<> subi XL,1 andi XL,1 rjmp expar_bp_xy rcall expar_lt ;<= subi XL,1 andi XL,1 rjmp expar_bp_xy rcall expar_lt ;> rjmp expar_bp_xy nop nop rcall expar_gt ;>= subi XL,1 andi XL,1 rjmp expar_bp_xy rcall expar_eq ;= rjmp expar_bp_xy nop nop rcall expar_add ;+ rjmp expar_bp_xy nop nop rcall expar_sub ;- rjmp expar_bp_xy nop nop or XL,r16 ;or or XH,r17 rjmp expar_bp_xy nop rcall expar_mul ;* rjmp expar_bp_xy ;put TOS nop nop rcall expar_div ;call division rjmp expar_bp_xy ;put TOS nop nop rcall expar_div ;call division mov XL,r18 ;get remainder mov XH,r19 rjmp expar_bp_xy ;put TOS and XL,r16 ;and and XH,r17 rjmp expar_bp_xy nop rcall expar_ls ;left shift rjmp expar_bp_xy nop ;only filling nop rcall expar_rs ;right shift rjmp expar_bp_xy nop ;only filling nop expar_bp_xy: st -Y,XL ;write result to stack st -Y,XH pop r20 pop r21 ret ;------------------------------------------------------------------------------- ; absolute value of op1 ;------------------------------------------------------------------------------- expar_absa: sbrs XH,7 ;skip if negative ret ;return if op was positive expar_inva: com XL ;switch sign com XH ; adiw XL,1 ; ret ;thats all expar_abs1: st -Y,XL st -Y,XH ret ;------------------------------------------------------------------------------- ; absolute value of op2 ;------------------------------------------------------------------------------- expar_absb: sbrs r17,7 ;skip if negative ret ;return if op was positive expar_invb: com r16 ;switch sign com r17 ; add r16,const_1 ; adc r17,const_0 ; ret ;thats all ;------------------------------------------------------------------------------- ; signum ; TOS <= sign(TOS) (-1,0,1) ;------------------------------------------------------------------------------- expar_sgn: or XL,XH ;or to check if zero breq expar_sgn_1 ;branch if not zero bst XH,7 ;write sign to T ldi XL,0x01 ;set to 1 clr XH brtc expar_sgn_1 sbiw XL,2 expar_sgn_1: ret ;put result to stack ;------------------------------------------------------------------------------- ; 16 Bit subtraction ; (TOS) <= (SEC)-(TOS) ;------------------------------------------------------------------------------- expar_sub: rcall expar_invb ;-(TOS) ;------------------------------------------------------------------------------- ; 16 Bit addition ; (TOS) <= (TOS)+(SEC) ;------------------------------------------------------------------------------- expar_add: mov r18,XH ;High 1 eor r18,r17 ;exclusive or with high 2 add XL,r16 ;add low bytes adc XH,r17 ;add high bytes sbrc r18,7 ;skip if signs equal ret ;result is ok mov r18,XH ;High result eor r18,r17 ;High OP2 sbrc r18,7 ;skip if signs equal ldi ereg,2 ;set error ret ;thats all ;------------------------------------------------------------------------------- ; 16 Bit multiplication ; (TOS) <= (TOS) * (SEC) ;------------------------------------------------------------------------------- expar_mul: rcall mul16 expar_mul_1: movw XL,r18 ;result andi XH,0x7f ;set temp result positive brtc expar_mul_2 ;result is positive rcall expar_inva ;invert result expar_mul_2: sbrc r19,7 ;skip if no overflow rjmp expar_mul_e ;overflow in bit 15 -> error or r20,r21 brne expar_mul_e ;overflow ret expar_mul_e: ldi ereg,2 ;set error ret ;thats all ;------------------------------------------------------------------------------- ; 16*16 Bit signed multiplication ;------------------------------------------------------------------------------- mul16: rcall expar_2abs mul16a: rcall expar_absa ;absolute val 2 mul16b: mul XH,r17 ;high bytes movw r20,r0 mul XL,r16 ;low bytes movw r18,r0 mul XL,r17 ;first cross multiplication add r19,r0 adc r20,r1 adc r21,const_0 mul XH,r16 ;second cross multiplication add r19,r0 adc r20,r1 adc r21,const_0 ret ;------------------------------------------------------------------------------- ; shift value XH,XL to 0...359 ;------------------------------------------------------------------------------- expar_shan: ldi r16,LOW(360) ;interval ldi r17,HIGH(360) expar_shan1: cpi XH,0x80 ;sign brcs expar_shan2 ;branch if positive add XL,r16 ;+360 adc XH,r17 rjmp expar_shan1 expar_shan2: cp XL,r16 ;compare with 360 cpc XH,r17 brcs expar_shan4 ;OK expar_shan3: sub XL,r16 sbc XH,r17 rjmp expar_shan2 expar_shan4: ret ;------------------------------------------------------------------------------- ; calc sinus ;------------------------------------------------------------------------------- expar_sin: ldi r16,90 ;shift sub XL,r16 sbc XH,const_0 ;------------------------------------------------------------------------------- ; calc cosinus ;------------------------------------------------------------------------------- expar_cos: rcall expar_shan ;shift to 0..359 ldi ZL,LOW(bas_sintab*2) ldi ZH,HIGH(bas_sintab*2) ldi r16,LOW(90) ldi r17,HIGH(90) cp XL,r16 cpc XH,r17 brcc expar_cos_2 ;not Q1 add ZL,r16 adc ZH,r17 sub ZL,XL sbc ZH,XH expar_cos_1: lpm XL,Z clr XH ret expar_cos_2: ldi r16,LOW(180) ldi r17,HIGH(180) cp XL,r16 cpc XH,r17 brcc expar_cos_4 ;not Q2 ldi r16,LOW(90) ldi r17,HIGH(90) sub ZL,r16 sbc ZH,r17 add ZL,XL adc ZH,XH expar_cos_3: lpm XL,Z clr XH com XL ;switch sign com XH ; add XL,const_1 ; adc XH,const_0 ; ret expar_cos_4: ldi r16,LOW(270) ldi r17,HIGH(270) cp XL,r16 cpc XH,r17 brcc expar_cos_5 ;->Q4 add ZL,r16 adc ZH,r17 sub ZL,XL sbc ZH,XH rjmp expar_cos_3 expar_cos_5: ldi r16,LOW(270) ldi r17,HIGH(270) sub ZL,r16 sbc ZH,r17 add ZL,XL adc ZH,XH rjmp expar_cos_1 ;------------------------------------------------------------------------------- ; 16 Bit signed division ; r16,r17 / XL,XH => XH,XL + remainder r18,r19 ;------------------------------------------------------------------------------- expar_div: mov r18,r17 ;HIGH divisor or r18,r16 ;or LOW divisor brne expar_div_1 ;jump if no zero ldi ereg,3 ;set error ret ;return (error) expar_div_1: rcall expar_2abs clr r18 ;clear remainder L clr r19 ;clear remainder H clr r20 ;clear carry source ldi r21,17 ;loop counter expar_div_2: rol r20 rol XL ;lshift dividend rol XH ; dec r21 ;loop counter breq expar_div_3 ;end of loop rol r18 ;shift into remainder rol r19 ; ldi r20,0xff ;set carry source sub r18,r16 ;sub divisor sbc r19,r17 ; brcc expar_div_2 ;branch if no borrow add r18,r16 ;add divisor to restore adc r19,r17 ; ldi r20,0x00 ;clear carry source rjmp expar_div_2 ;goto loop expar_div_3: brtc expar_div_4 ;jump if result is positive rjmp expar_inva ;invert result expar_div_4: ret ;thats all ;------------------------------------------------------------------------------- ; get sign and absolute value ;------------------------------------------------------------------------------- expar_2abs: mov r18,XH ;High dividend eor r18,r17 ;exclusive or with high divisor bst r18,7 ;store sign of result in T rcall expar_absa ;absolute val 1 rjmp expar_absb ;absolute val 2 ;------------------------------------------------------------------------------- ; 16 Bit equal (return 1 if TOS == SEC) ;------------------------------------------------------------------------------- expar_eq: push r16 push r17 eor r16,XL ;compare low eor r17,XH ;compare high or r16,r17 ;diff bits breq expar_true rjmp expar_false ;------------------------------------------------------------------------------- ; 16 Bit greater (return 1 if TOS > SEC) ;------------------------------------------------------------------------------- expar_gt: push r16 push r17 subi XH,0x80 ;invert sign-bit of OP1 subi r17,0x80 ;invert sign-bit of OP2 sub XL,r16 ;SEC-TOS sbc XH,r17 brcs expar_true ;no carry rjmp expar_false ;------------------------------------------------------------------------------- ; 16 Bit less (return 1 if TOS < SEC) ;------------------------------------------------------------------------------- expar_lt: push r16 push r17 subi XH,0x80 ;invert sign-bit of OP1 subi r17,0x80 ;invert sign-bit of OP2 sub r16,XL ;TOS-SEC sbc r17,XH brcs expar_true ;------------------------------------------------------------------------------- ; result is true ;------------------------------------------------------------------------------- expar_false: clr XL ;set result to 0 rjmp expar_true_0 expar_true: ldi XL,0x01 expar_true_0: ldi XH,0x00 pop r17 pop r16 ret ;------------------------------------------------------------------------------- ; 16 Bit square root ; TOS <= sqrt(TOS) ; t is set, if operand is negative ;------------------------------------------------------------------------------- expar_sqr: ldi ereg,4 ;set error sbrc XH,7 ;skip if positive ret expar_sqr_u: clr ereg ;clear error mov r16,XL ;copy value mov r17,XH ldi XH,2 ;offset for tempreg clr XL ;clear result mov r18,const_1 ;set tempreg to 1 clr r19 expar_sqr_1: sub r16,r18 ;sub tempreg sbc r17,r19 brcs expar_sqr_2 ;overflow inc XL ;result+1 add r18,XH ;tempreg=tempreg+2 adc r19,const_0 ; rjmp expar_sqr_1 ;loop expar_sqr_2: clr XH ; expar_sqr_e: ret ;------------------------------------------------------------------------------- ; 16 Bit RND ;------------------------------------------------------------------------------- expar_rnd: push r20 push r21 movw r16,XL libmio_random ;calc a new value rcall mul16b ;mult mov XL,r20 mov XH,r21 pop r21 pop r20 ret ;------------------------------------------------------------------------------- ; player status ;------------------------------------------------------------------------------- expar_pstat: cpi XL,0xFF ;infinit loops breq expar_pstat_2 sts libmio_seqstat,XL expar_pstat_2: lds XL,libmio_seqstat clr XH ret ;end ;------------------------------------------------------------------------------- ; SPI IO ;------------------------------------------------------------------------------- expar_spi: out SPDR,XL ;put out LOW value call spi_wait in XL,SPDR clr XH ret ;goto end ;------------------------------------------------------------------------------- ; menu ;------------------------------------------------------------------------------- expar_menu: lds r17,libmio_vidmode ;get video mode cpi r17,0x00 breq expar_menu_1 ldi ereg,28 ;not in graphics mode ret expar_menu_1: dec XL cpi XL,94 brcs expar_menu_2 ldi ereg,10 ;bad linenumber ret expar_menu_2: ldi ZL,LOW(bas_programs*2) ;program base ldi ZH,HIGH(bas_programs*2) ldi XH,32 ;line offset is 32 mul XL,XH add ZL,r0 ;add line offset adc ZH,r1 lds XL,libmio_prog ldi XH,12 ;prog offset is 12 * 256 mul XL,XH add ZH,r0 ;add prog offset adiw ZL,33 ;skip comment char libmio_menu ;show menu mov XL,tempreg1 ;set result to 0 clr XH ret ;goto end ;------------------------------------------------------------------------------- ; arrayelement value ;------------------------------------------------------------------------------- expar_ar: sts bas_ram+11,XH ;store area sts bas_ram+10,XL ;store offset call arr_read ret ;goto end ;------------------------------------------------------------------------------- ; filetype ;------------------------------------------------------------------------------- expar_ftype: cpi XH,0xff breq expar_ftype_2 ;-1 sts bas_partab,XL ;file number call fsys_gettype ;get file type cpi ereg,0x00 breq expar_ftype_1 expar_ftype_0: ldi XL,0xff ;-1 ldi XH,0xff clr ereg ret ;goto end expar_ftype_1: mov XL,tempreg1 clr XH ret ;goto end expar_ftype_2: call fsys_size clr ereg mov XH,tempreg1 clr XL ret ;goto end ;------------------------------------------------------------------------------- ; flash/file-size ; -1 free files ; -2 free pages ; other ;------------------------------------------------------------------------------- expar_fsize: cpi XH,0xff brne expar_fsize_4 ; sbrc XL,0 rjmp expar_fsize_2 ;free data pages call fsys_free ;calc pages cpi ereg,0x00 breq expar_fsize_1 clr ereg clr YL clr YH expar_fsize_1: movw XL,YL ;copy value expar_fsize_e: ret expar_fsize_2: call fsys_free ;calc pages cpi ereg,0x00 breq expar_fsize_3 clr ereg clr ZL clr ZH expar_fsize_3: movw XL,ZL ;copy value rjmp expar_fsize_e ;goto end expar_fsize_4: sts bas_partab,XL ;file number call fsys_gettype ;get type byte (dummy) and set page cpi ereg,0x00 breq expar_fsize_6 expar_fsize_5: clr ereg clr XL ;result is 0 clr XH rjmp expar_fsize_e ;goto end expar_fsize_6: push tempreg4 clr tempreg4 expar_fsize_7: call fsys_gword ;get data word cpi YH,0xff brne expar_fsize_9 cpi YL,0xff brne expar_fsize_9 expar_fsize_8: mov XL,tempreg4 clr XH pop tempreg4 ;restore registers rjmp expar_fsize_e ;goto end expar_fsize_9: inc tempreg4 cpi tempreg4,0x80 brne expar_fsize_7 rjmp expar_fsize_8 ;------------------------------------------------------------------------------- ; analog input ;------------------------------------------------------------------------------- expar_adc: cpi XH,1 breq expar_adc_1 andi XL,0x07 ori XL,0xc0 ; expar_adc_1: sts ADMUX,XL lds XL,ADCSRA ori XL,0x40 ;set ADSC sts ADCSRA,XL expar_adc_2: lds XL,ADCSRA sbrc XL,6 rjmp expar_adc_2 lds XL,ADCL lds XH,ADCH ret ;------------------------------------------------------------------------------- ; video RAM peek ;------------------------------------------------------------------------------- expar_vpeek: cpi XH,11 brcc expar_vpeek_e cpi XH,10 brcs expar_vpeek_1 cpi XL,0xc8 brcs expar_vpeek_1 expar_vpeek_e: ldi XL,0xff ;return -1 ldi XH,0xff ret ; expar_vpeek_1: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) add YL,XL adc YH,XH ld XL,Y clr XH ret ;------------------------------------------------------------------------------- ; xmodem receive ;------------------------------------------------------------------------------- expar_xrec: cpi XH,3 brcc expar_xrec_e cpi XH,2 brcs expar_xrec_1 sbrc XL,7 expar_xrec_e: rjmp expar_bp_err expar_xrec_1: push YH push YL ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH libmio_recvx mov XL,tempreg3 clr XH ret ;------------------------------------------------------------------------------- ; digital input ;------------------------------------------------------------------------------- expar_din: cpi XH,0x04 ;sys brne expar_din_1 ;no clr XH ld XL,X expar_din_e: clr XH expar_din_e1: ret ;goto end expar_din_1: cpi XH,0x08 ;external brcs expar_din_10 ;not push ZH push ZL lds ZH,prg_vdrv ldi ZL,vdrv_inex sbrs ZH,7 icall pop ZL pop ZH ret expar_din_10: cpi XL,255 brne expar_din_12 in XL,PINA rjmp expar_din_e expar_din_12: andi XL,0x07 inc XL in XH,PINA expar_din_13: lsr XH dec XL brne expar_din_13 clr XL rol XL rjmp expar_din_e ;------------------------------------------------------------------------------- ; xpeek ;------------------------------------------------------------------------------- expar_xpeek: lds tempreg4,libmio_sysconf1;chip address andi tempreg4,0x07 libi2c_read ;get byte clr XH mov XL,tempreg2 cpi ereg,0 breq expar_xpeek_1 ldi ereg,15 expar_xpeek_1: ret ;goto end ;------------------------------------------------------------------------------- ; epeek ;------------------------------------------------------------------------------- expar_epeek: movw YL,XL cpi YH,0x0c brcc expar_fpeek libeep_read ;get byte clr XH mov XL,tempreg1 cpi ereg,0 breq expar_epeek_1 ldi ereg,34 expar_epeek_1: ret ;get value from flash expar_fpeek: ldi ZL,LOW(bas_programs*2-3072) ldi ZH,HIGH(bas_programs*2-3072) add ZL,YL adc ZH,YH lpm XL,Z clr XH ret ;goto end ;------------------------------------------------------------------------------- ; temp ;------------------------------------------------------------------------------- expar_temp: mov tempreg4,XL libi2c_rlm75 cpi ereg,0 breq expar_temp_1 ldi ereg,15 expar_temp_1: ret ;goto end ;------------------------------------------------------------------------------- ; hi/lo ;------------------------------------------------------------------------------- expar_hi: mov XL,XH expar_lo: clr XH ret ;goto end ;------------------------------------------------------------------------------- ; key ;------------------------------------------------------------------------------- expar_key: mov YL,XL clr XL ;neutral value clr XH cpi YL,0 ;getkey brne expar_key_01 ;no lds XL,libmio_keycode rjmp expar_key_end expar_key_01: cpi YL,1 ;waitkey brne expar_key_02 expar_key_01a: lds XL,libmio_keycode ;get keycode cpi XL,0x00 ;no key breq expar_key_01a rjmp expar_key_end expar_key_02: cpi YL,2 ;waitnokey brne expar_key_03 expar_key_02a: lds XL,libmio_keycode ;get keycode cpi XL,0x00 ;no key brne expar_key_02a lds XL,libmio_lastkey rjmp expar_key_end expar_key_03: cpi YL,3 brne expar_key_04 lds XL,libmio_kbdstate ;keyboard status rjmp expar_key_end expar_key_04: cpi YL,4 ;left s/c brne expar_key_05 ;jump if no lshift lds YL,libmio_kbdstate sbrc YL,0 ;left shift adiw XL,1 sbrc YL,2 ;left ctrl sbiw XL,1 rjmp expar_key_end expar_key_05: cpi YL,5 brne expar_key_06 ;jump if no rshift lds YL,libmio_kbdstate sbrc YL,1 ;right shift adiw XL,1 sbrc YL,3 ;right ctrl sbiw XL,1 rjmp expar_key_end expar_key_06: cpi YL,6 brne expar_key_07 ;jump if no xcursor lds YL,libmio_keycode cpi YL,0xe2 ;left brne expar_key_06a sbiw XL,1 expar_key_06a: cpi YL,0xe3 ;right brne expar_key_end adiw XL,1 rjmp expar_key_end expar_key_07: cpi YL,7 brne expar_key_08 lds YL,libmio_keycode cpi YL,0xe4 ;up brne expar_key_07a adiw XL,1 expar_key_07a: cpi YL,0xe5 ;down brne expar_key_end sbiw XL,1 rjmp expar_key_end expar_key_08: cpi YL,8 brne expar_key_09 lds XL,libmio_scancode ;last scancode rjmp expar_key_end expar_key_09: lds YH,libmio_keycode cp YL,YH brne expar_key_09 mov XL,YL clr XH expar_key_end: ret ;------------------------------------------------------------------------------- ; err( ;------------------------------------------------------------------------------- expar_geterr: clr XH cpi XL,0x01 ;line brne expar_geterr1 ;no lds XL,bas_ram+5 inc XL ;+1 ret ;goto end expar_geterr1: cpi XL,0x02 ;statement brne expar_geterr2 ;no lds XL,bas_ram+6 inc XL ;+1 ret ;goto end expar_geterr2: lds XL,bas_ram+7 ;errno ret ;goto end ;------------------------------------------------------------------------------- ; ffind ;------------------------------------------------------------------------------- expar_ffind: push tempreg7 push tempreg8 push tempreg1 libdfl_maxpage ;calc pages cpi tempreg1,0 ; breq expar_ffind_2 mov r19,tempreg1 inc r19 movw YL,XL ;copy array pointer call arr_read1 ;get array value cpi ereg,0 brne expar_ffind_ex adiw YL,1 ;next array byte movw tempreg7,YL mov r17,XL clr r16 ;first file expar_ffind_1: mov XL,r16 libdfl_gettype1 cp r17,tempreg1 ;found? breq expar_ffind_3 expar_ffind_7: inc r16 cp r16,r19 brne expar_ffind_1 expar_ffind_2: rjmp expar_ffind_er expar_ffind_3: movw YL,tempreg7 call arr_read1 ;get array value cpi ereg,0 brne expar_ffind_ex cpi XL,0 ;only header breq expar_ffind_ok mov r18,XL mov XL,r16 libdfl_nread movw YL,tempreg7 adiw YL,1 ldi ZL,LOW(bas_inbuf) ldi ZH,HIGH(bas_inbuf) expar_ffind_4: call arr_read1 ;get array value cpi ereg,0 brne expar_ffind_ex ld XH,Z+ cp XL,XH brne expar_ffind_7 adiw YL,1 dec r18 brne expar_ffind_4 expar_ffind_ok: mov XL,r16 clr XH rjmp expar_ffind_e expar_ffind_er: ldi XL,0xff ;-1 not found ldi XH,0xff expar_ffind_e: clr ereg expar_ffind_ex: pop tempreg1 pop tempreg8 pop tempreg7 ret ;goto end ;------------------------------------------------------------------------------- ; dbit ;------------------------------------------------------------------------------- expar_dbit: lsl XL ;ignore bit 6+7 lsl XL mov XH,XL ;copy in value clr XL ;clear result ldi YL,0x00 ;start value is 0 ldi YH,6 ;number of bits to do expar_dbit_1: eor YL,XH ;bit 7 is now difference lsl YL ;shift out into result rol XL mov YL,XH ; lsl XH ;shift left for next bit dec YH brne expar_dbit_1 lsl XL ;expand lsl XL clr XH ret ;------------------------------------------------------------------------------- ; cval ;------------------------------------------------------------------------------- expar_cval: dec XL ;-1 cpi XL,5 brcc expar_cval_e mov r0,XL ldi XL,LOW(bas_values+2) ldi XH,HIGH(bas_values+2) add XL,r0 add XL,r0 ld r0,X+ ld r1,X+ movw XL,r0 ret ;goto end expar_cval_e: clr XL clr XH ret ;goto end ;------------------------------------------------------------------------------- ; scale ;------------------------------------------------------------------------------- math_scale: ldi YL,LOW(bas_partab) ;use ldd to save code words ldi YH,HIGH(bas_partab) ld r16,Y ;Y0 ldd r17,Y+1 ldd XL,Y+2 ;Y1 ldd XH,Y+3 rcall expar_sub ;calc Y1-Y0 bst XH,7 ;store sign rcall expar_absa ;we use absolute |Y1-Y0| movw tempreg5,XL ;store this to TR5/6 ldd r16,Y+4 ;X0 ldd r17,Y+5 ldd XL,Y+6 ;X ldd XH,Y+7 rcall expar_sub ;calc X-X0 movw r16,tempreg5 ;get for mult rcall mul16a ;resultat is now in r18-r21 ldd r16,Y+4 ;Y0 ldd r17,Y+5 ldd XL,Y+8 ;Y1 ldd XH,Y+9 movw ZL,r18 rcall expar_sub ;calc Y1-Y0 rcall expar_absa ;we use absolute ;------------------------------------------------------------------------------- ; 32/16 Bit signed division ; r21,r20,ZH,ZL / XH,XL => XH,XL ;------------------------------------------------------------------------------- movw tempreg5,XL ;add 1/2 divisor to dividend lsr tempreg6 ;for rounding ror tempreg5 add ZL,tempreg5 adc ZH,tempreg6 adc tempreg1,const_0 adc tempreg2,const_0 mov tempreg5,const_0 ;set temp regs to zero mov tempreg6,const_0 movw tempreg7,tempreg5 ldi r16,32 ;loop counter expar_div32_1: lsl ZL rol ZH rol tempreg1 rol tempreg2 rol tempreg5 rol tempreg6 rol tempreg7 rol tempreg8 cp tempreg5,XL cpc tempreg6,XH cpc tempreg7,const_0 cpc tempreg8,const_0 brcs expar_div32_2 sub tempreg5,XL sbc tempreg6,XH sbc tempreg7,const_0 sbc tempreg8,const_0 inc ZL expar_div32_2: dec r16 brne expar_div32_1 movw XL,ZL expar_div32_3: brtc expar_div32_4 ;jump if result is positive rjmp expar_inva ;invert result expar_div32_4: ld r16,Y ;Y0 ldd r17,Y+1 rjmp expar_add math_scalea: push_regs movw r16,XL pop_regs ;------------------------------------------------------------------------------- ; left shift ;------------------------------------------------------------------------------- expar_ls: andi r16,0x0f expar_ls_01: cpi r16,0x00 brne expar_ls_02 ret expar_ls_02: lsl XL rol XH dec r16 rjmp expar_ls_01 ;------------------------------------------------------------------------------- ; right shift ;------------------------------------------------------------------------------- expar_rs: andi r16,0x0f expar_rs_01: cpi r16,0x00 brne expar_rs_02 ret expar_rs_02: lsr XH ror XL dec r16 rjmp expar_rs_01 SOURCE_142/SOURCE_system/modules/sintable.inc0000755000175000001440000000075111725741457020064 0ustar joergusers .db 0x00,0x04,0x08,0x0d,0x11,0x16,0x1a,0x1f,0x23,0x28,0x2c,0x30,0x35,0x39,0x3d,0x42,0x46,0x4a .db 0x4f,0x53,0x57,0x5b,0x5f,0x64,0x68,0x6c,0x70,0x74,0x78,0x7c,0x7f,0x83,0x87,0x8b,0x8f,0x92 .db 0x96,0x9a,0x9d,0xa1,0xa4,0xa7,0xab,0xae,0xb1,0xb5,0xb8,0xbb,0xbe,0xc1,0xc4,0xc6,0xc9,0xcc .db 0xcf,0xd1,0xd4,0xd6,0xd9,0xdb,0xdd,0xdf,0xe2,0xe4,0xe6,0xe8,0xe9,0xeb,0xed,0xee,0xf0,0xf2 .db 0xf3,0xf4,0xf6,0xf7,0xf8,0xf9,0xfa,0xfb,0xfc,0xfc,0xfd,0xfe,0xfe,0xff,0xff,0xff,0xff,0xff .db 0xff,0xffSOURCE_142/SOURCE_system/modules/runtime.asm0000755000175000001440000025055211725741457017763 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# BASIC runtime engine # ;# copyright (c) 2006-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This program is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU General Public License # ;# as published by the Free Software Foundation; either version 3 # ;# of the License, or (at your option) any later version. # ;# # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU # ;# General Public License for more details. # ;# # ;# You should have received a copy of the GNU General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ tbrun: ;----------------------------------------------------------------------- ; clear all variables ;----------------------------------------------------------------------- ldi ZH,HIGH(varspace) ldi ZL,LOW(varspace) ldi XL,0 ;zero ldi XH,180 ;variables tbrun_i1: st Z+,XL dec XH brne tbrun_i1 ldi ZH,HIGH(bas_ram) ldi ZL,LOW(bas_ram) ldi XH,16 ;basic system tbrun_i2: st Z+,XL dec XH brne tbrun_i2 ldi ZH,HIGH(bas_array) ldi ZL,LOW(bas_array) ldi XH,0 ;array tbrun_i3: st Z+,XL st Z+,XL st Z+,XL dec XH brne tbrun_i3 clr r13 ;statement 1 clr r12 ;line 1 sts libmio_border,const_0 sts libmio_font,const_0 ldi XL,0x0e ;white on black sts libmio_color,XL ;set color ldi XL,libmio_v0cols ;set clipping to mode 0 sts libmio_clipx2,XL ldi XL,libmio_v0rows sts libmio_clipy2,XL ldi XL,0xff ;no error handling sts bas_ram+15,XL sts bas_mta,XL ;no multitasking sts bas_mta+3,const_0 ;clear pending interrupts libmio_clrscr ;clear screen sts libmio_seqspeed,const_0 ;stop sequencer ldi XL,0xff sts libmio_volume,XL ;volume=max sts libmio_mvolume,XL ;volume=max ldi XL,0x02 sts libmio_seqstat,XL ;status=stopped ldi XL,0xc6 sts ADCSRA,XL ;enable ADC lds tempreg1,libmio_lastmenu;program number sts libmio_prog,tempreg1 ;temp program number (run) sts libmio_tprog,tempreg1 call mem_setprog ;set program number ;----------------------------------------------------------------------- ; main loop for all lines ;----------------------------------------------------------------------- tbrun_02: mov ctrl,r12 ;set line number call mem_readline ;read line from flash rcall basrun ;interpret line cpi ereg,0x00 brne tbrun_03 mov XL,r12 ;linenumber cpi XL,bas_lines brcs tbrun_02 ldi ctrl,0x0c ;standard format sts libmio_seqspeed,const_0 ;stop sequencer ret ;line numer exceeds ;error tbrun_03: sts bas_ram+5,r12 ;line sts bas_ram+6,r13 ;statement sts bas_ram+7,ereg ;error cpi ereg,1 breq tbrun_04 sts libmio_seqspeed,const_0 ;stop sequencer lds tempreg1,bas_ram+15 ;on error cpi tempreg1,bas_lines ;deactivated brcc tbrun_04 clr r13 mov r12,tempreg1 clr ereg ;clear error rjmp tbrun_02 ;error handling tbrun_04: ldi ctrl,0x0c ;standard format sts libmio_seqspeed,const_0 ;stop sequencer ret ;line numer exceeds tbrun_loop: movw ZL,r14 ;get pointer tbrun_mtest: rjmp basrun_05 ;end ;----------------------------------------------------------------------- ; interpret line from Z ;----------------------------------------------------------------------- basrun: ldi ZH,HIGH(bas_linebuf) ;start of buffer ldi ZL,LOW(bas_linebuf) ;start of buffer sts libmio_channel,const_0 ;set output to screen clr ereg ;clear Error mov XL,r13 ;statement to go clr XH basrun_01: cp XL,XH ;found? breq basrun_05 ;yes basrun_02: ld tempreg4,Z+ ;get char cpi tempreg4,0xff ;end of line breq basrun_07 ;next line cpi tempreg4,'_' ;external command brne basrun_02a jmp bas_ext basrun_02a: cpi tempreg4,0x1c ;numbers breq basrun_cnum8 cpi tempreg4,0x1e ;numbers breq basrun_cnum8 cpi tempreg4,0x1d ;numbers breq basrun_cnum16 cpi tempreg4,0x1f ;numbers breq basrun_cnum16 cpi tempreg4,0x27 ;comment breq basrun_07 ;next line cpi tempreg4,'"' ;string brne basrun_04 basrun_03: ld tempreg4,Z+ ;get char cpi tempreg4,0xff ;end of line breq basrun_07 ;yes cpi tempreg4,0x27 ;comment breq basrun_07 cpi tempreg4,'"' ;string brne basrun_03 rjmp basrun_02 basrun_04: cpi tempreg4,':' ;separator brne basrun_02 inc XH ;statement+1 cp XL,XH ;found? brne basrun_02 rjmp basrun_05 basrun_07: rjmp basrun_07x basrun_cnum16: ld tempreg4,Z+ ;ignore compressed value basrun_cnum8: ld tempreg4,Z+ ;ignore compressed value rjmp basrun_02 basrun_05: lds tempreg4,libmio_kflags ;break sbrc tempreg4,0 rjmp basrun_brk cpi ereg,0 breq basrun_mtest rjmp basrun_mtest2 basrun_brk: ldi ereg,1 ;set ereg to 1 andi tempreg4,0xfe ;clear break flag sts libmio_kflags,tempreg4 ret basrun_mtest: sbrs tempreg4,2 rjmp basrun_06 ;no monitor andi XL,0xfb ;clear monitor flag sts libmio_kflags,tempreg4 ;store back lds XL,libmio_vidmode cpi XL,0x05 breq basrun_mtest0 cpi XL,0x00 brne basrun_mtest1 basrun_mtest0: call mon_main ;call monitor basrun_mtest1: sbrs XL,0 ;esc flag rjmp basrun_06 ldi ereg,1 basrun_mtest2: pop r0 ;kill stack pop r0 ret ;end basrun_06: libmio_screenshot lds tempreg4,bas_mta+3 ;int line cpi tempreg4,0x00 ;disabled? breq basrun_06e lds XL,bas_mta ;line number dec r13 ;decrement statement sts bas_mta+3,const_0 ;clear flag jmp bas_gosub_00a ;now start gosub basrun_06e: ld tempreg4,Z+ ;get char cpi tempreg4,0xff ;EOL? brne basrun_08 basrun_07x: clr r13 ;first statement inc r12 ;next line ret ;end of line basrun_08: cpi tempreg4,'_' ;external command brne basrun_08a jmp bas_ext basrun_08a: sbrc tempreg4,7 rjmp basrun_kw ;token cpi tempreg4,32 ;space breq basrun_05 cpi tempreg4,':' brne basrun_10 inc r13 rjmp basrun_05 basrun_10: cpi tempreg4,0x27 ;comment brne basrun_10a ;next line rjmp basrun_07 ;next line basrun_10a: cpi tempreg4,'A' brcs basrun_se cpi tempreg4,'Z'+1 brcs basrun_vset subi tempreg4,0x20 ;set to caps cpi tempreg4,'A' brcs basrun_se cpi tempreg4,'Z'+1 brcc basrun_se ;----------------------------------------------------------------------- ; check for variable setting ;----------------------------------------------------------------------- basrun_vset: mov tempreg7,tempreg4 ;store variable number call bas_ispace ;space cpi tempreg4,'=' brne basrun_se rcall expar ;call parser cpi ereg,0 brne basrun_end mov tempreg4,tempreg7 subi tempreg4,'A' lsl tempreg4 ldi YH,high(varspace) ldi YL,low(varspace) add YL,tempreg4 adc YH,const_0 st Y+,XL st Y+,XH rjmp tbrun_mtest ;monitor test basrun_arse: pop ZL ;restore pointer pop ZH basrun_se: ldi ereg,7 ;syntax error basrun_end: ret cpi tempreg4,0x80 brcc basrun_kw ldi ereg,7 ;syntax error rjmp tbrun_loop ;----------------------------------------------------------------------- ; check for keywords ;----------------------------------------------------------------------- basrun_kw: movw r14,ZL ;store pointer ldi ZL,LOW(basrun_kw1) mov ZH,tempreg4 andi ZH,0x3f ;64 token add ZL,ZH ldi ZH,HIGH(basrun_kw1) adc ZH,const_0 ijmp basrun_kw1: rjmp bas_print ;80 rjmp bas_cls ;81 rjmp bas_goto ;82 rjmp bas_box ;83 rjmp bas_acopy ;84 rjmp bas_sync ;85 rjmp bas_end ;86 rjmp bas_bcopy ;87 rjmp bas_then ;88 rjmp bas_posxy ;89 rjmp bas_note ;8a rjmp bas_onsync ;8b rjmp bas_rread ;8c rjmp bas_rwrite ;8d rjmp bas_gosub ;8e rjmp bas_return ;8f rjmp bas_vmode ;90 rjmp bas_next ;91 rjmp bas_input ;92 rjmp bas_plot ;93 rjmp bas_wait ;94 rjmp bas_tset ;95 rjmp bas_tget ;96 rjmp bas_fsel ;97 rjmp bas_onerr ;98 rjmp bas_sput ;99 rjmp bas_sget ;9a rjmp bas_epoke ;9b rjmp bas_gpix ;9c rjmp bas_circle ;9d rjmp bas_color ;9e rjmp bas_border ;9f rjmp bas_font ;a0 rjmp bas_chpump ;a1 rjmp bas_xpoke ;a2 rjmp bas_vpoke ;a3 rjmp bas_limit ;a4 rjmp bas_gchar ;a5 rjmp bas_drawto ;a6 rjmp bas_play ;a7 rjmp bas_sprite ;a8 rjmp bas_scrollx ;a9 rjmp bas_breakpoint ;aa rjmp bas_repeat ;ab rjmp bas_until ;ac rjmp bas_draw ;ad rjmp bas_icomm ;ae rjmp bas_data ;af rjmp bas_ctext ;b0 rjmp bas_fread ;b1 read page rjmp bas_fwrite ;b2 write page rjmp bas_cbox ;b3 rjmp bas_gattr ;b4 rjmp bas_fdelete ;b5 rjmp bas_fbox ;b6 rjmp bas_setpal ;b7 rjmp bas_for ;b8 rjmp bas_if ;b9 rjmp bas_dir ;ba rjmp bas_out ;bb rjmp bas_fcircle ;bc rjmp bas_alert ;bd rjmp bas_fcreate ;be rjmp bas_ask ;bf tbrun_wrongpar: ldi ereg,19 ;incomplete parameter ret bas_onsync: sbrc tempreg4,6 ;upper=PIE jmp bas_pie bas_onsyncx: jmp bas_onsync_0 ;jump extender bas_scrollx: jmp bas_scroll ;jump extender bas_vpoke: jmp bas_vpoke_0 ;jump extender ;----------------------------------------------------------------------- ; keyword is PRINT ;----------------------------------------------------------------------- bas_print: call bas_rlp ;restore Z-register bas_print_01: ldi ctrl,0x0c ;standard format mov tempreg8,const_1 ;enable newline sts libmio_channel,const_0 ;print to screen bas_print_02: ld XH,Z+ cpi XH,32 ;leading space breq bas_print_02 cpi XH,':' ;end of statement breq bas_print_end cpi XH,0x27 ;comment breq bas_print_end cpi XH,0x80 ;end of line brcs bas_print_sep bas_print_end: sbiw ZL,1 ;points to this char sbrc tempreg8,0 ;newline? libmio_newline lds tempreg1,libmio_channel cpi tempreg1,5 ;I2C brcs bas_print_end1 libi2c_stop bas_print_end1: rjmp tbrun_mtest ;return to main loop ;-------------- separator ---------------------------------------------- bas_print_sep: cpi XH,0x3b ;";" brne bas_print_tab clr tempreg8 ;no newline rjmp bas_print_02 ;print loop ;-------------- tabulator ---------------------------------------------- bas_print_tab: cpi XH,',' ;tab brne bas_print_05 lds tempreg1,libmio_channel cpi tempreg1,0 ;screen brne bas_print_tab2 bas_print_tab1: libmio_outspace mov XH,libmio_cur_x andi XH,0x07 brne bas_print_tab1 rjmp bas_print_tab3 bas_print_tab2: libmio_outspace lds XH,libmio_lpos andi XH,0x07 brne bas_print_tab2 bas_print_tab3: clr tempreg8 ;no newline rjmp bas_print_02 ;print loop1 ;-------------- enable newline if no separator -------------------------- bas_print_05: mov tempreg8,const_1 ;enable newline ;------------- set channel ---------------------------------------------- bas_print_ch: cpi XH,'#' ;channel set? brne bas_print_at ;no sts bas_partab,const_0 ;set array index to 0 sts bas_partab+1,const_0 rcall expar ;get value mov tempreg1,XL ;copy value sts libmio_channel,tempreg1 ;store channel number cpi tempreg1,5 ;above 4 -> I2C brcc bas_print_ch2 bas_print_ch1: rjmp bas_print_02 ;return to print loop bas_print_ch2: libi2c_start ;start cpi tempreg3,0x08 brne bas_print_i2e lds tempreg2,libmio_channel andi tempreg2,0xfe ;mask bit 0 (write) libi2c_wbyte ;write address to bus cpi tempreg3,0x18 brne bas_print_i2e rjmp bas_print_02 ;return to print loop ;------------- set position -------------------------------------------------------- bas_print_at: cpi XH,'@' ;position set? brne bas_print_for ;no call bas_g2b ;get two byte values lds tempreg1,libmio_channel ;get channel number cpi tempreg1,3 brcc bas_print_at1 libmio_gotoxy ;set position rjmp bas_print_02 ;print loop bas_print_at1: brne bas_print_at2 sts bas_partab,XL ;set array index sts bas_partab+1,XH sts libmio_lpos,XL rjmp bas_print_02 ;print loop bas_print_at2: ldi tempreg2,0xff ;cordic statement libi2c_wbyte ;write to I2C cpi tempreg3,0x28 brne bas_print_i2e mov tempreg2,XL ;X-coord libi2c_wbyte ;write to I2C cpi tempreg3,0x28 brne bas_print_i2e mov tempreg2,XH ;Y-coord libi2c_wbyte ;write to I2C cpi tempreg3,0x28 brne bas_print_i2e bas_print_at3: rjmp bas_print_02 ;print loop bas_print_i2e: ldi ereg,15 ;I2C error ret ;------------- set format -------------------------------------------------------- bas_print_for: cpi XH,'!' ;format? brne bas_print_str ;no rcall expar mov ctrl,XL rjmp bas_print_02 bas_print_ex: rjmp bas_print_end bas_print_02x: rjmp bas_print_02 ;-------------- a string ------------------------------------------------ bas_print_str: cpi XH,'"' ;is it a string? brne bas_print_atx ;no bas_print_str1: ld tempreg1,Z+ ;get string char cpi tempreg1,0xff breq bas_print_ex ;yes cpi tempreg1,'"' ;end of string breq bas_print_02x ;yes libmio_outchar ;output char rjmp bas_print_str1 ;string loop ;------------- array text -------------------------------------------------------- bas_print_atx: cpi XH,'&' ;format? brne bas_print_char ;no rcall expar cpi XH,0x03 brcs bas_print_atx1 ldi ereg,18 ;out of array ret bas_print_atx1: ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH bas_print_atx2: ld tempreg1,Y+ cpi tempreg1,0x00 breq bas_print_atx4 libmio_outchar adiw XL,1 cpi XH,0x03 brcs bas_print_atx2 bas_print_atx4: rjmp bas_print_02 ;------------- a single char -------------------------------------------- bas_print_char: cpi XH,'%' ;char brne bas_print_equ rcall expar mov tempreg1,XL libmio_outchar rjmp bas_print_02 ;------------- an equation -------------------------------------------- bas_print_equ: sbiw ZL,1 ;set pointer to char before rcall expar ;mathematics cpi ereg,0 breq bas_print_14 ret bas_print_14: cpi ctrl,0x80 ;Hex/dez brcc bas_print_15 libmio_outdez rjmp bas_print_02 bas_print_15: libmio_outhex rjmp bas_print_02 ;----------------------------------------------------------------------- ; keyword is CLS ;----------------------------------------------------------------------- bas_cls: sbrc tempreg4,6 ;upper=XSEND jmp bas_xsend libmio_clrscr rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is color ;----------------------------------------------------------------------- bas_color: ldi XL,2 ;max 2 parameters ldi XH,1 ;min 1 rcall bas_getpar ;get parameters lds XH,bas_partab ;foreground andi XH,0x0f cpi XL,1 ;only foreground breq bas_color_1 lds XL,bas_partab+2 ;background swap XL andi XL,0xf0 or XL,XH libmio_setcolor rjmp tbrun_loop ;goto main interpreter loop bas_color_1: mov XL,XH libmio_setdrawcolor rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is acopy ;----------------------------------------------------------------------- bas_acopy: sbrc tempreg4,6 ;upper=LOAD jmp bas_pload bas_acopy_0: call bas_get3 sts bas_ram+10,XL ;copy sts bas_ram+11,XH lds XL,bas_partab+2 ;dest lds XH,bas_partab+3 sts bas_partab+0,XL ;dest sts bas_partab+1,XH lds r16,bas_partab+4 ;par3 is number lds r17,bas_partab+5 bas_acopy_1: cp r17,const_0 cpc r16,const_0 breq bas_acopy_9 bas_acopy_2: call arr_read ;read array value call arr_write ;write array value cpi ereg,0x00 ;OK? brne bas_acopy_o ;exit if error sub r16,const_1 sbc r17,const_0 rjmp bas_acopy_1 bas_acopy_9: rjmp tbrun_loop ;goto main interpreter loop bas_acopy_e: rjmp tbrun_wrongpar ;error bas_acopy_o: ret ;----------------------------------------------------------------------- ; keyword is box ;----------------------------------------------------------------------- bas_box: sbrc tempreg4,6 ;upper=TO rjmp tbrun_loop bas_box_1: ldi XL,0x05 ;max 5 pars ldi XH,0x04 ;min 4 pars rcall bas_getpar ;get parameters call bas_ccheck push tempreg4 rcall bas_g4c sts bas_ram+3,ZL ;last X sts bas_ram+4,ZH ;last Y libmio_box ;draw box pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop bas_box_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is font ;----------------------------------------------------------------------- bas_font: sbrc tempreg4,6 rjmp bas_xcall call bas_get1 andi XL,0x01 sts libmio_font,XL rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is fbox ;----------------------------------------------------------------------- bas_fbox: sbrc tempreg4,6 rjmp bas_extpage ldi XL,0x05 ;max 5 pars ldi XH,0x04 ;min 4 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 rcall bas_g4c sts bas_ram+3,ZL ;last X sts bas_ram+4,ZH ;last Y libmio_fbox ;draw box pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop bas_extpage: ldi XL,0x01 ;max 1 pars ldi XH,0x01 ;min 1 pars rcall bas_getpar ;get parameters lds XL,bas_partab sts xram_page,XL rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is circle ;----------------------------------------------------------------------- bas_circle: ldi XL,0x05 ;max 5 pars ldi XH,0x04 ;min 4 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 rcall bas_g4c sts bas_ram+3,YL ;last X sts bas_ram+4,YH ;last Y libmio_circle ;draw circle pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is fcircle ;----------------------------------------------------------------------- bas_fcircle: ldi XL,0x05 ;max 5 pars ldi XH,0x04 ;min 4 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 rcall bas_g4c sts bas_ram+3,YL ;last X sts bas_ram+4,YH ;last Y libmio_fcircle ;draw circle pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is plot ;----------------------------------------------------------------------- bas_plot: ldi XL,0x03 ;max 3 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 lds XH,bas_partab ;X1 lds XL,bas_partab+2 ;Y1 sts bas_ram+3,XL ;last X sts bas_ram+4,XH ;last Y libmio_plot pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is draw ;----------------------------------------------------------------------- bas_draw: ldi XL,0x05 ;max 5 pars ldi XH,0x04 ;min 4 pars rcall bas_getpar ;get parameters rcall bas_ccheck ;color value? push tempreg4 rcall bas_g4c sts bas_ram+3,ZL ;set new old sts bas_ram+4,ZH libmio_draw pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is alert ;----------------------------------------------------------------------- bas_alert: sbrc tempreg4,6 jmp bas_s2baud lds XL,libmio_vidmode cpi XL,0x00 breq bas_alert_tm ldi ereg,28 ;not in graphics mode ret bas_alert_tm: call bas_get1 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH lds tempreg1,libmio_color push tempreg1 ;save status push libmio_cur_x push libmio_cur_y libmio_alert ;alert pop libmio_cur_y ;restore status pop libmio_cur_x pop tempreg1 sts libmio_color,tempreg1 rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is ask ;----------------------------------------------------------------------- bas_ask: lds XL,libmio_vidmode cpi XL,0x00 breq bas_ask_tm ldi ereg,28 ;not in graphics mode ret bas_ask_tm: rcall bas_getvar ;variable rcall bas_ispace cpi tempreg4,',' brne bas_ask_err movw r14,ZL ;new position call bas_get1 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH lds tempreg1,libmio_color push tempreg1 ;save status push libmio_cur_x push libmio_cur_y libmio_ask ;ask box pop libmio_cur_y ;restore status pop libmio_cur_x rcall bas_loadv st Y+,tempreg1 ;result is 0/1 st Y+,const_0 pop tempreg1 sts libmio_color,tempreg1 clr ereg rjmp tbrun_loop ;goto main interpreter loop bas_ask_err: ldi ereg,0x07 ;syntax error 0x07 rjmp tbrun_loop ;error ;----------------------------------------------------------------------- ; keyword is fsel ;----------------------------------------------------------------------- bas_fsel: lds XL,libmio_vidmode cpi XL,0x00 breq bas_fsel_tm ldi ereg,28 ;not in graphics mode ret bas_fsel_tm: rcall bas_getvar ;variable rcall bas_ispace1 cpi tempreg4,',' brne bas_ask_err ldi XL,0x01 ;get 1 parameter ldi XH,0x01 rcall bas_getpar_0 bas_fsel_02: push libmio_cur_x ;push recent cursor position push libmio_cur_y lds tempreg1,libmio_color push tempreg1 push tempreg4 call fsys_check cpi tempreg1,0 ;no DF breq bas_nofsel call mon_backup ;backup screen lds XL,libmio_color lsr XL andi XL,0x0f call fsys_fselbox ;draw box libmio_thistext .db 3,2,0,0 ;set pos lds XL,bas_partab ;lo ptr lds XH,bas_partab+1 ;hi ptr ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH ldi XL,22 ;max chars bas_fsel_03: ld tempreg1,Y+ ;get char cpi tempreg1,32 ;space brcs bas_fsel_04 ;less cpi tempreg1,0x80 brcc bas_fsel_04 libmio_outchar dec XL brne bas_fsel_03 bas_fsel_04: call fsys_select call mon_restore ;restore screen cpi tempreg1,0xed ;ESC breq bas_nofsel rcall bas_loadv st Y+,tempreg4 ;result st Y+,const_0 bas_fsel_05: pop tempreg4 pop tempreg1 sts libmio_color,tempreg1 pop libmio_cur_y ;restore status pop libmio_cur_x clr ereg rjmp tbrun_loop ;goto main interpreter loop bas_nofsel: rcall bas_loadv ldi tempreg4,0xff st Y+,tempreg4 ;result = -1 st Y+,tempreg4 rjmp bas_fsel_05 bas_fsel_err: ldi ereg,0x07 ;syntax error rjmp tbrun_loop ;error ;----------------------------------------------------------------------- ; keyword is drawto ;----------------------------------------------------------------------- bas_drawto: ldi XL,0x03 ;max 3 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters rcall bas_ccheck ;color value? push tempreg4 lds YH,bas_ram+4 ;Y1 lds YL,bas_ram+3 ;X1 lds ZH,bas_partab+0 ;Y2 lds ZL,bas_partab+2 ;X2 sts bas_ram+3,ZL ;set new old sts bas_ram+4,ZH libmio_draw pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is cbox ;----------------------------------------------------------------------- bas_cbox: sbrc tempreg4,6 ;upper=LOAD jmp bas_baud call bas_get4 rcall bas_g4c libmio_cbox ;draw clear box rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is ibox ;----------------------------------------------------------------------- bas_ibox: call bas_get4 rcall bas_g4c libmio_ibox ;draw clear box rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is frame ;----------------------------------------------------------------------- bas_frame: call bas_get4 rcall bas_g4c libmio_wbox ;draw clear box rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is hframe ;----------------------------------------------------------------------- bas_hframe: call bas_get4 rcall bas_g4c libmio_whbox ;draw clear whbox rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is BORDER ;----------------------------------------------------------------------- bas_border: call bas_get1 libmio_setborder rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is GOTO ;----------------------------------------------------------------------- bas_goto: call bas_get1 subi XL,1 mov r12,XL clr r13 ret ;----------------------------------------------------------------------- ; keyword is onerr ;----------------------------------------------------------------------- bas_onerr: sbrc tempreg4,6 ;upper=LOAD rjmp bas_volume call bas_get1 subi XL,1 sts bas_ram+15,XL ;store number rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is volume ;----------------------------------------------------------------------- bas_volume: call bas_get1 mov XH,XL ;get parameter set ;set also master volume libmio_setvolume ;set master volume rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is palette ;----------------------------------------------------------------------- bas_setpal: ldi XL,0x07 ;max 6 palette entries ldi XH,0x02 ;min 2 parameters rcall bas_getpar ;get parameters ldi YL,LOW(bas_partab) ldi YH,HIGH(bas_partab) ld XH,Y ;set mov ZL,XL dec ZL ;-adrbyte bas_setpal_1: adiw YL,2 ld XL,Y ;get value libmio_setpalette inc XH dec ZL brne bas_setpal_1 bas_setpal_2: rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is vmode ;----------------------------------------------------------------------- bas_vmode_e: rjmp tbrun_wrongpar ;error bas_vmode: call bas_get1 andi XL,7 ;only 0..7 bas_vmode_1: libmio_setvmode lds XL,libmio_vidmode cpi XL,7 brcc bas_vmode_2 libmio_clrscr bas_vmode_2: rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is sync ;----------------------------------------------------------------------- bas_sync: sbrc tempreg4,6 ;upper=scale jmp bas_scale bas_sync_0: call bas_get1 bas_sync_1: cpi XH,0x00 brne bas_sync_2 cpi XL,0x00 brne bas_sync_2 rjmp tbrun_loop bas_sync_2: libmio_sync sbiw XL,1 rjmp bas_sync_1 bas_sync_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is play ;----------------------------------------------------------------------- bas_play: sbrc tempreg4,6 ;upper=wrap jmp bas_wrap sts libmio_seqstat,const_0 ;stopp sequencer call bas_get4 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) movw ZL,YL ;copy for end cpi XH,0x03 brcc bas_play_e add YL,XL ;add offset to array base adc YH,XH lds r16,bas_partab+2 ;get parameter 2 (len) add XL,r16 adc XH,const_0 add XL,r16 adc XH,const_0 cpi XH,0x03 brcc bas_play_e add ZL,XL adc ZH,XH lds XL,bas_partab+4 ;get parameter 3 (speed) lds XH,bas_partab+6 ;get parameter 4 (number of loops) libmio_startseq bas_play_s: rjmp tbrun_loop bas_play_e: ldi ereg,18 ;out of array rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is end ;----------------------------------------------------------------------- bas_end: sbrc tempreg4,6 ;upper=XREC bas_cchar0: rjmp bas_cchar sts libmio_seqspeed,const_0 ;stop sequencer pop XH pop XH ret ;----------------------------------------------------------------------- ; keyword is if ;----------------------------------------------------------------------- bas_if: sbrc tempreg4,6 ;upper=VIDEO jmp bas_video rcall bas_expar or XL,XH brne bas_if1 rjmp basrun_07 ;next line bas_if1: rjmp tbrun_mtest ;continue ;----------------------------------------------------------------------- ; keyword is then ;----------------------------------------------------------------------- bas_then: sbrc tempreg4,6 ;upper=PSAVE jmp bas_psave bas_then_0: rcall bas_rlp rjmp tbrun_mtest ;continue ;----------------------------------------------------------------------- ; keyword is pos ;----------------------------------------------------------------------- bas_posxy: sbrc tempreg4,6 ;upper=ARC jmp bas_arc bas_posxy_0: movw ZL,r14 ;restore pointer rcall bas_g2b ;get 2 byte parameters libmio_gotoxy bas_posxy_ext: rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is note ;----------------------------------------------------------------------- bas_note: ldi XL,0x02 ;max 2 pars ldi XH,0x01 ;min 1 PAR rcall bas_getpar ;get parameters brne bas_note_1 lds r0,libmio_mvolume ;get master volume sts libmio_volume,r0 rjmp bas_note_2 bas_note_1: lds XH,bas_partab+2 ;get parameter clt ;set no master volume libmio_setvolume ;set volume bas_note_2: lds XL,bas_partab ;get parameter libmio_note rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is GOSUB ;----------------------------------------------------------------------- bas_gosub: ldi XL,0x06 ;max 6 pars ldi XH,0x01 ;min 1 par rcall bas_getpar ;get parameters ldi XH,0x01 ;max parameters before ldi ZL,LOW(bas_partab+2) ldi ZH,HIGH(bas_partab+2) rcall bas_parset bas_gosub_00: lds XL,bas_partab ;get line number dec XL ;-1 bas_gosub_00a: cpi XL,bas_lines brcs bas_gosub_02 bas_gosub_01: ldi ereg,10 ;no valid linenumber rjmp tbrun_loop ;goto main interpreter loop bas_gosub_02: lds XH,bas_stackp ;stackpointer cpi XH,bas_stackdepth-1 ;maximum-1 brcs bas_gosub_03 ldi ereg,13 ;too many gosub rjmp tbrun_loop ;goto main interpreter loop bas_gosub_03: push XL ;this is the new linenumber rcall bas_stackplus ; ori XH,0x40 ;mark as gosub st Y+,XH ;return statement number mov XH,r12 ;our line number st Y+,XH lds XH,libmio_lastmenu ;prog number st Y+,XH ;store clr r13 ;statement=0 pop r12 ;new linenumber ret ;end of working on this line ;----------------------------------------------------------------------- ; keyword is GOSUB (XCALL) ;----------------------------------------------------------------------- bas_xcall_str: jmp bas_sxcall bas_xcall: ldi XL,0x07 ;max 7 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters cpi tempreg4,0x22 breq bas_xcall_str ;check with string ldi XH,0x02 ldi ZL,LOW(bas_partab+4) ldi ZH,HIGH(bas_partab+4) rcall bas_parset bas_xcall_p2: lds tempreg1,bas_partab ;program number dec tempreg1 call mem_readf1 ;get first char cpi tempreg1,'N' ;binary brne bas_xcall_01 lsr ZH ror ZL lds XL,bas_partab+2 ;address offset sbrs tempreg2,4 ;skip if no exec flag? rjmp bas_xcall_p3 ;is binary program add ZL,XL adc ZH,const_0 sbrs tempreg2,5 ;skip if no lib flag rjmp bas_xcall_p3 ldi ereg,41 ;no library ret bas_xcall_p3: adiw ZL,16 ;code offset clt ;par mode icall bas_xcall_lo: rjmp tbrun_loop bas_xcall_01: lds XL,bas_partab+2 ;get line number dec XL cpi XL,bas_lines brcc bas_xcall_p3 ;invalid line number ; rjmp bas_gosub_02 ;debug lds XH,bas_partab ;prog number dec XH andi XH,0x07 sts libmio_tprog,XH ;set temp prognumber bas_xcall_02: lds XH,bas_stackp ;stackpointer cpi XH,bas_stackdepth-1 ;maximum-1 brcs bas_xcall_03 ldi ereg,13 ;too many gosub rjmp tbrun_loop ;goto main interpreter loop bas_xcall_03: push XL rcall bas_stackplus ; ori XH,0x40 ;mark as gosub st Y+,XH ;return statement number mov XH,r12 ;our line number st Y+,XH lds XH,libmio_prog ;caller prog number st Y+,XH ;store clr r13 ;statement=0 pop r12 lds tempreg1,libmio_tprog ;get temp program sts libmio_prog,tempreg1 ;set as new call mem_setprog ;set program ret bas_parset: ldi YL,LOW(bas_values+2) ldi YH,HIGH(bas_values+2) mov tempreg1,XL sub tempreg1,XH sts bas_values+12,tempreg1 bas_parset_1: cpi tempreg1,0 brne bas_parset_2 ret bas_parset_2: ld tempreg2,Z+ st Y+,tempreg2 ld tempreg2,Z+ st Y+,tempreg2 dec tempreg1 rjmp bas_parset_1 ;----------------------------------------------------------------------- ; keyword is RETURN ;----------------------------------------------------------------------- bas_return: ldi XL,0x01 ;max 1 par ldi XH,0x00 ;min 0 par rcall bas_getpar ;get parameters lds XH,bas_stackp ;stackpointer cpi XH,0 brne bas_return_02 bas_return_01: ldi ereg,12 ;return without call ret bas_return_02: cpi XL,0x01 ;min 1 brne bas_return_03 lds XL,bas_partab sts bas_values,XL lds XL,bas_partab+1 sts bas_values+1,XL bas_return_03: dec XH rcall bas_stackget sts bas_stackp,XH ld XH,Y+ ;get TOS sbrs XH,6 ;check if TOS is call rjmp bas_return_01 ;no andi XH,0x0f mov r13,XH ;statement ld r12,Y+ ;linenumber ld tempreg1,Y+ ;program sts libmio_prog,tempreg1 ;set as "this" call mem_setprog ret ;----------------------------------------------------------------------- ; keyword is REPEAT ;----------------------------------------------------------------------- bas_repeat: lds XH,bas_stackp ;stackpointer cpi XH,bas_stackdepth-1 ;maximum-1 brcs bas_repeat_01 ldi ereg,13 ;too many repeat rjmp tbrun_loop ;goto main interpreter loop bas_repeat_01: rcall bas_stackplus ; ori XH,0x20 ;mark as repeat st Y+,XH ;return statement number mov XH,r12 ;our line number st Y+,XH rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is UNTIL ;----------------------------------------------------------------------- bas_until: lds XH,bas_stackp ;get stackpointer dec XH ;we need the last stack entry brcs bas_until_e ;stack is empty rcall bas_stackget ;calc stack address ld XH,Y+ sbrs XH,5 ;check if TOS is repeat rjmp bas_until_e ;no rcall bas_expar or XL,XH lds XH,bas_stackp ;get stackpointer brne bas_until_1 ;branch if we must loop dec XH ;kill stack entry sts bas_stackp,XH ; rjmp tbrun_mtest ;continue bas_until_1: dec XH ;we need the last stack entry rcall bas_stackget ;calc stack address ld XL,Y+ ;get statement ld r12,Y+ ;get line andi XL,0x0f mov r13,XL ;statement ret bas_until_e: ldi ereg,14 ;until without repeat ret ;----------------------------------------------------------------------- ; keyword is FOR ;----------------------------------------------------------------------- bas_for_err: ldi ereg,7 ret bas_for: rcall bas_rlp ;restore Z-register rcall bas_ispace ;space cpi tempreg4,'A' brcs bas_for_err cpi tempreg4,'Z'+1 brcc bas_for_err subi tempreg4,'A' lsl tempreg4 mov tempreg7,tempreg4 ;store variable number rcall bas_ispace ;space cpi tempreg4,'=' brne bas_for_err ;syntax error call expar ;call parser cpi ereg,0 breq bas_for_1 ret bas_for_1: ldi YH,high(varspace) ldi YL,low(varspace) add YL,tempreg7 adc YH,const_0 st Y+,XL ;set variable to initial value st Y+,XH rcall bas_ispace cpi tempreg4,0xc3 ;to brne bas_for_err call expar ;target value movw tempreg5,XL ;save target value cpi ereg,0x00 breq bas_for_2 ret bas_for_2: lds XH,bas_stackp ;stackpointer cpi XH,bas_stackdepth-1 ;maximum-1 brcs bas_for_3 ldi ereg,13 ;too many for ret bas_for_3: rcall bas_stackplus ori XH,0x80 ;mark as for st Y+,XH ;return statement number st Y+,r12 st Y+,tempreg7 ;variable offset st Y+,tempreg5 ;target value low st Y+,tempreg6 ;target value high rjmp tbrun_mtest bas_stackplus: rcall bas_stackget inc XH ;inc pointer sts bas_stackp,XH mov XH,r13 inc XH ;next must skip this andi XH,0x0f ret bas_stackget: ldi YL,LOW(bas_stacks) ;stack root ldi YH,HIGH(bas_stacks) ldi XL,5 ;bytes/record mul XL,XH add YL,r0 adc YH,r1 ret ;----------------------------------------------------------------------- ; keyword is NEXT ;----------------------------------------------------------------------- bas_next: cpi tempreg4,0xc0 ;upper=IBOX brcs bas_next_0 jmp bas_ibox bas_next_0: rcall bas_rlp ;restore Z-register lds XH,bas_stackp ;stackpointer cpi XH,0 brne bas_next_02 bas_next_01: ldi ereg,11 ;next without for ret bas_next_02: dec XH rcall bas_stackget ld XH,Y+ ;statement sbrs XH,7 ;check if TOS is for rjmp bas_next_01 ;no andi XH,0x0f mov r0,XH ;save statement temporary ld tempreg6,Y+ ;get line number to jump ld tempreg4,Y+ ;variable ldi XH,high(varspace) ldi XL,low(varspace) add XL,tempreg4 adc XH,const_0 ld r16,X+ ;variable low ld r17,X+ ;variable high add r16,const_1 adc r17,const_0 st -X,r17 st -X,r16 ld XL,Y+ ;target low ld XH,Y+ ;target high adiw XL,1 ;+1 cp r16,XL brne bas_next_03 cp r17,XH brne bas_next_03 lds XH,bas_stackp ;stackpointer dec XH sts bas_stackp,XH rjmp tbrun_mtest ;next statement bas_next_03: mov r12,tempreg6 mov r13,r0 ret ;----------------------------------------------------------------------- ; keyword is INPUT ;----------------------------------------------------------------------- bas_input: lds XL,libmio_vidmode cpi XL,0x00 breq bas_input_tm ldi ereg,28 ;not in graphics mode ret bas_input_tm: rcall bas_rlp ;restore Z-register ldi XH,0xff sts bas_inbuf,XH bas_input_00: ld XH,Z+ cpi XH,32 ;space breq bas_input_00 mov tempreg1,XH cpi XH,0xff brne bas_input_02 bas_input_01: libmio_newline sbiw ZL,1 rjmp tbrun_mtest bas_input_02: cpi XH,':' ;end of statement breq bas_input_01 cpi XH,0x3b ;";" ignore this breq bas_input_00 cpi XH,',' ;tab brne bas_input_04 bas_input_03: libmio_outspace mov XH,libmio_cur_x andi XH,0x07 brne bas_input_03 rjmp bas_input_00 bas_input_04: cpi XH,'"' ;is it a string? brne bas_input_06 ;no bas_input_05: ld tempreg1,Z+ ;get string char cpi tempreg1,0xff breq bas_input_01 cpi tempreg1,'"' ;end of string breq bas_input_00 ;yes libmio_outchar ;output char rjmp bas_input_05 ;string loop bas_input_06: cpi XH,'A' brcs bas_input_err cpi XH,'Z'+1 brcc bas_input_err subi XH,'A' lsl XH sts bas_ram+2,XH ;variable number ld XH,Z cpi XH,'A' brcs bas_input_07 cpi XH,'Z'+1 brcc bas_input_07 rjmp bas_input_err bas_input_07: rcall bas_inval ;get value ldi YH,high(varspace) ldi YL,low(varspace) lds r17,bas_ram+2 add YL,r17 adc YH,const_0 st Y+,XL ;set variable to initial value st Y+,XH rjmp bas_input_00 bas_input_err: ldi ereg,7 ;syntax error ret ;----------------------------------------------------------------------- ; load varpointer ;---------------------------------------------------------------------- bas_loadv: lds YL,bas_ram+10 lds YH,bas_ram+11 ret ;----------------------------------------------------------------------- ; keyword is wait ;----------------------------------------------------------------------- bas_wait: sbrc tempreg4,6 ;upper=FRAME jmp bas_frame rcall bas_expar cpi ereg,0 breq bas_wait_01 bas_wait_end: rjmp tbrun_mtest bas_wait_01: mov tempreg1,XL or tempreg1,XH breq bas_wait_end bas_wait_02: lds tempreg1,libmio_time0 cpi tempreg1,0x00 breq bas_wait_02 bas_wait_03: lds tempreg1,libmio_time0 cpi tempreg1,0x00 brne bas_wait_03 sbiw XL,1 rjmp bas_wait_01 ;----------------------------------------------------------------------- ; keyword is tset ;----------------------------------------------------------------------- bas_tset: sbrc tempreg4,6 ;upper=HFRAME jmp bas_hframe rcall bas_expar ;get value sts libmio_time_l,XL sts libmio_time_h,XH rjmp bas_wait_01 ;----------------------------------------------------------------------- ; keyword is tget ;----------------------------------------------------------------------- bas_tget: sbrc tempreg4,6 ;upper=LFIND jmp bas_lfind rcall bas_getvar ;get variable lds XL,libmio_time_l st Y+,XL ;low timer lds XL,libmio_time_h st Y+,XL ;high timer rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is sput ;----------------------------------------------------------------------- bas_sput: rcall bas_expar bas_sput_01: mov tempreg1,XL libmio_pser rcall bas_ispc cpi tempreg4,',' brne bas_sput_ext rcall bas_ispace call expar rjmp bas_sput_01 bas_sput_ext: rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is sget ;----------------------------------------------------------------------- bas_sget: sbrc tempreg4,6 ;upper=TO jmp bas_ashift libmio_gserb mov XL,tempreg1 clr XH rjmp bas_s2get_chk ;----------------------------------------------------------------------- ; keyword is epoke ;----------------------------------------------------------------------- bas_epoke: movw ZL,r14 ;restore pointer rcall bas_g2w ;get parameters mov tempreg1,XL cpi YH,HIGH(2000) ;max EEPROM adr brcc bas_epoke1 cpi YL,LOW(2000) ;max EEPROM adr brcc bas_epoke1 libeep_write bas_epoke1: rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is xpoke ;----------------------------------------------------------------------- bas_xpoke: movw ZL,r14 ;restore pointer rcall bas_g2w mov tempreg2,XL movw XL,YL ;set address lds tempreg4,libmio_sysconf1;data EEPROM address andi tempreg4,0x07 libi2c_write cpi tempreg4,6 ;addr 6,7 are for FRAM etc brcc bas_xpoke_1 libmio_sync ;wait min 32ms libmio_sync bas_xpoke_1: rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is dir ;----------------------------------------------------------------------- bas_dir: sbrc tempreg4,6 ;upper=ESPUT jmp bas_s2put rcall bas_expar rcall sys_iocheck brts bas_dir_1 ;io enabled bas_dir_e: ldi ereg,38 ;io disabled ret bas_dir_1: clr ereg out DDRA,XL bas_dir_2: rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is out (Y=pin XL=val) ;----------------------------------------------------------------------- bas_out: sbrc tempreg4,6 ;upper=ESGET jmp bas_s2get movw ZL,r14 ;restore pointer rcall bas_g2w bas_out_1: cpi YH,0x02 ;spiset? brne bas_out_2 ;no call spi_set rjmp tbrun_mtest bas_out_2: cpi YH,0x04 ;sys write? brne bas_out_3 ;no clr YH st Y,XL rjmp tbrun_loop bas_out_3: cpi YH,0x08 ;ext brcs bas_out_31 lds ZH,prg_vdrv sbrc ZH,7 rjmp bas_out_7 ;no vdriver ldi ZL,vdrv_outex ;OUT extension icall cpi ereg,0x00 breq bas_dir_2 ret bas_out_31: call sys_iocheck brtc bas_dir_1 ;io enabled bas_out_4: cpi YH,0x00 ;single bit? brne bas_out_6 ;no mov XH,YL andi XH,0x07 ;8 Bits inc XH clr tempreg4 ;or mask for reset ldi tempreg3,0x7f ;and mask for reset sbrc XL,0 ;value bit ldi tempreg4,0x80 ;or mask for set sbrc XL,0 ;value bit ldi tempreg3,0xff ;and mask for set bas_out_5: bst tempreg4,7 ;rotate or mask lsl tempreg4 bld tempreg4,0 bst tempreg3,7 ;rotate and mask lsl tempreg3 bld tempreg3,0 dec XH brne bas_out_5 in r16,PORTA or r16,tempreg4 and r16,tempreg3 out PORTA,r16 rjmp tbrun_loop bas_out_6: cpi YH,0x01 ;use mask? brne bas_out_7 ;no in XH,PORTA ;get stat com YL ;invert mask and XH,YL ;clear bits com YL ;invert mask again and YL,XL ;and value or XH,YL out PORTA,XH ;out byte bas_out_e: rjmp tbrun_loop bas_out_7: ldi ereg,40 ;no io driver ret ;----------------------------------------------------------------------- ; keyword is pump ;----------------------------------------------------------------------- bas_chpump: sbrc tempreg4,6 rjmp bas_xcall rcall bas_expar libmio_chpump rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is limit ;----------------------------------------------------------------------- bas_limit: rcall bas_getvar ;variable ld r16,Y+ ;set var value ld r17,Y+ subi r17,0x80 ;change sign bit rcall bas_ispace cpi tempreg4,',' brne bas_limit_err rcall bas_g2w ;get min & max value subi XH,0x80 ;change sign bit subi YH,0x80 cp YL,r16 ;lower limit cpc YH,r17 brcs bas_limit1 ;is greater movw r16,YL bas_limit1: cp XL,r16 cpc XH,r17 brcc bas_limit2 movw r16,XL bas_limit2: rcall bas_loadv subi r17,0x80 st Y+,r16 st Y+,r17 rjmp tbrun_mtest bas_limit_err: ldi ereg,6 ;syntax error ret ;----------------------------------------------------------------------- ; keyword is gchar ;----------------------------------------------------------------------- bas_gchar: lds XL,libmio_vidmode cpi XL,0x06 breq bas_gchar_tm andi XL,0x03 ;allow mode 0+4 cpi XL,0x00 breq bas_gchar_tm ldi ereg,28 ;not in graphics mode ret bas_gchar_tm: rcall bas_getvar ;variable movw tempreg7,YL rcall bas_ispace cpi tempreg4,',' brne bas_limit_err rcall bas_g2b ;get X & Y value ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi tempreg4,libmio_cols mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ld XL,Y bas_gchar_sval: clr XH movw YL,tempreg7 st Y+,XL st Y+,XH rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is gattr ;----------------------------------------------------------------------- bas_gattr: lds XL,libmio_vidmode andi XL,0x03 ;allow mode 0+4 cpi XL,0x00 breq bas_gattr_tm ldi ereg,28 ;not in graphics mode ret bas_gattr_tm: rcall bas_getvar ;variable movw tempreg7,YL rcall bas_ispace cpi tempreg4,',' brne bas_limit_err rcall bas_g2b ;get x & y value ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi tempreg4,libmio_cols mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ldi XL,LOW(libmio_cols*libmio_rows) add YL,XL ldi XL,HIGH(libmio_cols*libmio_rows) add YH,XL clr XH ld XL,Y lsr XL mov XH,XL andi XL,0x77 swap XH andi XH,0x80 or XL,XH rjmp bas_gchar_sval ;----------------------------------------------------------------------- ; keyword is GPIX ;----------------------------------------------------------------------- bas_gpix_err: ldi ereg,6 ;syntax error ret bas_gpix: rcall bas_getvar ;variable movw tempreg7,YL rcall bas_ispace cpi tempreg4,',' brne bas_gpix_err rcall bas_g2b ;get X & Y value ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) lds tempreg4,libmio_vidmode andi tempreg4,0x07 ;mask bits cpi tempreg4,0x00 ;mode 0 brne bas_gpix_10 bas_gpix_00: push XL ;save x coord push XH ;save y lsr XL ;X/2 lsr XH ;Y/2 ldi tempreg4,libmio_cols mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;address of char ld tempreg4,Y ;get char pop XH ;restore coords pop XL sbrc XL,0 lsr tempreg4 sbrc XH,0 lsr tempreg4 sbrc XH,0 lsr tempreg4 ldi XL,LOW(690) ldi XH,HIGH(690) add YL,XL ;address of attribute adc YH,XH ld XL,Y ;get color sbrs tempreg4,0 swap XL bas_gpix_01: lsr XL bas_gpix_02: andi XL,0x0f rjmp bas_gchar_sval bas_gpix_10: cpi tempreg4,0x01 ;mode 1 brne bas_gpix_20 push XL ;save x coord lsr XL ;/8 lsr XL lsr XL ldi tempreg4,libmio_v1bpl ;bytes per line bas_gpix_11: mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;address of byte ld tempreg4,Y ;get byte pop XL ;restore coords sbrc XL,2 swap tempreg4 sbrc XL,1 lsr tempreg4 sbrc XL,1 lsr tempreg4 sbrc XL,0 lsr tempreg4 andi tempreg4,0x01 mov XL,tempreg4 rjmp bas_gpix_02 bas_gpix_20: cpi tempreg4,0x02 ;mode 2 brne bas_gpix_30 push XL ;save x coord lsr XL ;/4 lsr XL ldi tempreg4,libmio_v2bpl ;bytes per line mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;address of byte ld tempreg4,Y ;get byte pop XL ;restore coords sbrc XL,1 swap tempreg4 sbrc XL,0 lsr tempreg4 sbrs XL,0 lsr tempreg4 andi tempreg4,0x03 mov XL,tempreg4 rjmp bas_gpix_02 bas_gpix_30: cpi tempreg4,0x03 ;mode 3 brne bas_gpix_50 push XL ;save x coord lsr XL ldi tempreg4,libmio_v3bpl ;bytes per line mul tempreg4,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;address of byte ld tempreg4,Y ;get byte pop XL ;restore coords sbrs XL,0 swap tempreg4 mov XL,tempreg4 rjmp bas_gpix_02 bas_gpix_50: push XL ;save x coord lsr XL ;/8 lsr XL lsr XL ldi tempreg4,libmio_v5bpl ;bytes per line rjmp bas_gpix_11 ;----------------------------------------------------------------------- ; keyword is sprite ;----------------------------------------------------------------------- bas_sprite: lds XL,libmio_vidmode cpi XL,0x06 breq bas_sprite_tm andi XL,0x03 ;allow mode 0+4 cpi XL,0x00 breq bas_sprite_tm ldi ereg,28 ;not in graphics mode ret bas_sprite_tm: rcall bas_get3 cpi XH,0x03 brcs bas_sprite_01 ldi ereg,18 ;out of array ret bas_sprite_01: cpi XH,0x02 brne bas_sprite_02 cpi XL,0xf7 ;max brcs bas_sprite_02 bas_sprite_oa: ldi ereg,18 ;out of array ret bas_sprite_wd: ldi ereg,33 ;wrong sprite ret bas_sprite_e: rjmp tbrun_wrongpar ;error bas_sprite_02: ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,XL adc YH,XH sts libmio_bcsrcx,YL ;address sts libmio_bcsrcy,YH ldd XL,Y+4 ;dx cpi XL,0x00 ;=0 breq bas_sprite_wd ;error cpi XL,libmio_cols ;>8 brcc bas_sprite_wd ;error ldd XH,Y+3 ;dy cpi XH,0x00 ;=0 breq bas_sprite_wd ;error cpi XH,libmio_rows ;>8 brcc bas_sprite_WD ;error lds YL,bas_partab ;adr lo lds YH,bas_partab+1 ;adr hi adiw YL,5 ;header mul XH,XL lsl r0 rol r1 lsl r0 rol r1 add YL,r0 adc YL,r1 cpi YH,3 brcc bas_sprite_wd ;error lds YH,bas_partab+2 ;Y lds YL,bas_partab+4 ;X sts libmio_bcdestx,YL ;coords sts libmio_bcdesty,YH cpi YL,0xff ;hide breq bas_sprite_03 cpi YH,0xff ;hide breq bas_sprite_03 add YL,XL ;x+dx dec YL ;-1 cpi YL,libmio_cols brcc bas_sprite_os add YH,XH ;y+dy dec YH ;-1 cpi YH,libmio_rows brcc bas_sprite_os bas_sprite_03: libmio_sprite ;now we can draw rjmp tbrun_loop bas_sprite_os: ldi ereg,22 ;out of screen ret ;----------------------------------------------------------------------- ; keyword is break ;----------------------------------------------------------------------- bas_breakpoint: lds XL,libmio_vidmode cpi XL,0x00 breq bas_break_tm ldi ereg,28 ;not in graphics mode ret bas_break_tm: rcall bas_rlp lds XL,libmio_kflags ori XL,4 ;set monitor flag sts libmio_kflags,XL rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is fread (read from dataflash) ; par1=file ; par2=page ; par3=position in array (0/1/2) ;----------------------------------------------------------------------- bas_fread: rcall bas_get3 bas_fread_1: call fsys_read ;read page cpi ereg,0x00 brne bas_fread_2 rjmp tbrun_loop bas_fread_2: ret ;----------------------------------------------------------------------- ; keyword is fwrite (write to dataflash) ; par1=file ; par2=page ; par3=position in array (0/1/2) ;----------------------------------------------------------------------- bas_fwrite: rcall bas_get3 bas_fwrite_1: call fsys_write ;write page cpi ereg,0x00 brne bas_fwrite_2 rjmp tbrun_loop bas_fwrite_2: ret ;----------------------------------------------------------------------- ; keyword is fcreate (create/delete file) ; par1=file ; par2=pages ; par3= ;----------------------------------------------------------------------- bas_fcreate: ldi XL,0x03 ;max 3 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters cpi XL,0x03 ;max 3 breq bas_fcreate_1a rjmp tbrun_wrongpar ;error bas_fcreate_1: ldi XL,0x14 ;file type sts bas_partab+4,XL bas_fcreate_1a: call fsys_create ;create new file cpi ereg,0x00 brne bas_fcreate_2 rjmp tbrun_loop bas_fcreate_2: ret ;error ;----------------------------------------------------------------------- ; keyword is dfile (delete file) ;----------------------------------------------------------------------- bas_fdelete: rcall bas_get1 bas_fdelete_1: call fsys_delete ;delete file cpi ereg,0x00 brne bas_fdelete_2 rjmp tbrun_loop bas_fdelete_2: ret ;----------------------------------------------------------------------- ; keyword is rread (raw read from dataflash) ; par1=page ; par2=position in array (0/1/2) ;----------------------------------------------------------------------- bas_rread: rcall bas_get2 bas_rread_1: lds tempreg1,bas_partab+2 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) cpi tempreg1,0x00 breq bas_rread_2 inc YH cpi tempreg1,0x01 breq bas_rread_2 inc YH cpi tempreg1,0x02 breq bas_rread_2 ldi ereg,18 ;out of array ret bas_rread_2: call fsys_readraw cpi ereg,0 breq bas_rread_3 ret bas_rread_3: rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is rwrite (raw write to dataflash) ; par1=page ; par2=position in array (0/1/2) ;----------------------------------------------------------------------- bas_rwrite: rcall bas_get2 lds tempreg1,bas_partab+2 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) cpi tempreg1,0x00 breq bas_rwrite_2 inc YH cpi tempreg1,0x01 breq bas_rwrite_2 inc YH cpi tempreg1,0x02 breq bas_rwrite_2 ldi ereg,18 ;out of array ret bas_rwrite_2: call fsys_writeraw cpi ereg,0 breq bas_rread_3 ret ;----------------------------------------------------------------------- ; keyword is icomm ;----------------------------------------------------------------------- bas_icomm_ex: rjmp bas_icomm_e ;jump extender bas_icomm: movw ZL,r14 ;restore pointer call bas_get3 lds ctrl,bas_partab lds XH,bas_partab+2 lds XL,bas_partab+4 sts bas_ram+12,XL ;number of bytes libi2c_start ;startbit cpi tempreg3,0x08 brne bas_icomm_ex ;error sbrs ctrl,0 ;skip if read rjmp bas_icomm_w ;jump to write mov tempreg2,ctrl ;address libi2c_wbyte ;output cpi tempreg3,0x40 brne bas_icomm_ex ;error cpi XL,0x00 ;read number? breq bas_icomm_r4 ;yes bas_icomm_r1: ldi YH,high(bas_array) ;array ldi YL,low(bas_array) lds tempreg1,bas_ram+12 ;number of bytes add tempreg1,XH ;add offset sub tempreg1,XL ;sub number of bytes to do add YL,tempreg1 ;array element address adc YH,const_0 cpi XL,1 ;last? breq bas_icomm_r2 libi2c_rbyte ;read byte with ack cpi tempreg3,0x50 brne bas_icomm_e ;error st Y,tempreg2 ;store byte dec XL ;dec number of bytes to read rjmp bas_icomm_r1 bas_icomm_r2: libi2c_rbyten ;read byte without ack cpi tempreg3,0x58 brne bas_icomm_e ;error st Y,tempreg2 ;store byte bas_icomm_r3: libi2c_stop ; jmp tbrun_mtest bas_icomm_r4: libi2c_rbyte ;get number of bytes cpi tempreg3,0x50 brne bas_icomm_e ;error cpi tempreg2,0x00 ;no bytes to read breq bas_icomm_r3 ;-> send stop sts bas_ram+12,tempreg2 ;store number of bytes mov XL,tempreg2 ;bytes to do rjmp bas_icomm_r1 ;read bytes bas_icomm_w: mov tempreg2,ctrl ;address libi2c_wbyte ;output cpi tempreg3,0x18 brne bas_icomm_e ;error mov r19,XL ;number of bytes bas_icomm_w1: ldi YH,high(bas_array) ;array ldi YL,low(bas_array) lds tempreg1,bas_ram+12 ;number of bytes add tempreg1,XH ;add offset sub tempreg1,XL ;sub number of bytes to do add YL,tempreg1 ;array element address adc YH,const_0 ld tempreg2,Y ;get byte cpi tempreg2,0x00 ;zero? brne bas_icomm_w2 cpi r19,0x00 ;stop at zero? breq bas_icomm_w3 ;exit loop bas_icomm_w2: libi2c_wbyte ;write byte cpi tempreg3,0x28 brne bas_icomm_e ;error dec XL ;dec number of byte to read brne bas_icomm_w1 bas_icomm_w3: libi2c_stop jmp tbrun_mtest bas_icomm_e: ldi ereg,15 ;i2c error libi2c_stop ret ;end ;----------------------------------------------------------------------- ; keyword is DATA ;----------------------------------------------------------------------- bas_data: rcall bas_expar sts bas_partab,XL ;array index sts bas_partab+1,XH ;Z points to char bas_data_01: rcall bas_ispc ;wait for no space cpi tempreg4,',' ;comma? brne bas_data_02 ;no -> end adiw ZL,1 rcall bas_ispace ;next nonspace char cpi tempreg4,'"' ;string? breq bas_data_03 ;yes sbiw ZL,1 call expar rcall arr_write ;write array value rjmp bas_data_01 bas_data_02: jmp tbrun_mtest bas_data_03: ld tempreg4,Z+ cpi tempreg4,'"' breq bas_data_04 cpi tempreg4,0xff breq bas_data_04 clr XH mov XL,tempreg4 rcall arr_write ;write array value rjmp bas_data_03 bas_data_04: ld tempreg4,Z rjmp bas_data_01 ;----------------------------------------------------------------------- ; keyword is BCOPY ;----------------------------------------------------------------------- bas_bcopy_m46: cpi XL,4 ;have brne bas_bcopy_err ;branch if not jmp bas_bcopy46 bas_bcopy: ldi XL,7 ;max 7 parameters ldi XH,4 ;min 4 pars rcall bas_getpar ;get parameters lds XH,bas_partab ;parameter 1=mode sts libmio_bcmode,XH ;mode cpi XH,0x01 ;vmem->vmem breq bas_bcopy_vv cpi XH,0x00 ;vmem->vmem breq bas_bcopy_err cpi XH,0x02 ;vmem->mem breq bas_bcopy_vm bas_copy_1: cpi XH,3 breq bas_bcopy_mv cpi XH,7 brcs bas_bcopy_m46 bas_bcopy_err: ldi ereg,21 ;bcopy def err ret bas_bcopy_vv: cpi XL,7 ;we need 7 parameters brne bas_bcopy_err ;error ldi YL,LOW(bas_partab) ldi YH,HIGH(bas_partab) ldd XH,Y+2 sts libmio_bcsrcy,XH ;source X ldd XH,Y+4 sts libmio_bcsrcx,XH ;source Y ldd XH,Y+6 sts libmio_bcdy,XH ;blocks v ldd XH,Y+8 sts libmio_bcdx,XH ;blocks h ldd XH,Y+10 sts libmio_bcdesty,XH ;dest Y ldd XH,Y+12 sts libmio_bcdestx,XH ;dest X libmio_bcopy ;transfer cpi ereg,0x00 breq bas_bcopy_vv1 ret bas_bcopy_vv1: jmp tbrun_loop ;goto main loop bas_bcopy_vm: cpi XL,6 ;we need 6 parameters brne bas_bcopy_err ;error ldi YL,LOW(bas_partab) ldi YH,HIGH(bas_partab) ldd XH,Y+2 sts libmio_bcsrcy,XH ;source y ldd XH,Y+4 sts libmio_bcsrcx,XH ;source x ldd XH,Y+6 sts libmio_bcdy,XH ;pixel columns ldd XH,Y+8 sts libmio_bcdx,XH ;pixel rows ldd XH,Y+10 ;arrayptr low sts libmio_bcdestx,XH ;low pointer ldd XH,Y+11 ;arrayptr high sts libmio_bcdesty,XH ;high pointer libmio_bcopy ;transfer cpi ereg,0x00 breq bas_bcopy_vm1 ret bas_bcopy_vm1: jmp tbrun_loop ;goto main loop bas_bcopy_errx: rjmp bas_bcopy_err ;jump extender bas_bcopy_mv: cpi XL,4 ;we need 4 parameters brne bas_bcopy_errx ;error ldi YL,LOW(bas_partab) ldi YH,HIGH(bas_partab) ldd XH,Y+2 ;arrayptr low sts libmio_bcsrcx,XH ;low pointer ldd XH,Y+3 ;arrayptr high sts libmio_bcsrcy,XH ;high pointer ldd XH,Y+4 sts libmio_bcdesty,XH ;dest y ldd XH,Y+6 sts libmio_bcdestx,XH ;dest x libmio_bcopy ;transfer cpi ereg,0x00 breq bas_bcopy_mv1 ret bas_bcopy_mv1: jmp tbrun_loop ;goto main loop ;----------------------------------------------------------------------- ; keyword is CTEXT ;----------------------------------------------------------------------- bas_ctext: sbrc tempreg4,6 jmp bas_spisel lds XL,libmio_vidmode cpi XL,0x00 breq bas_ctext_tm ldi ereg,28 ;not in graphics mode ret bas_ctext_tm: movw ZL,r14 ;restore pointer rcall bas_g2w sts bas_partab,YL ;offset sts bas_partab+1,YH ;array area lds tempreg2,bas_ram+12 ;number of chars cp XL,tempreg2 ;limit brcc bas_ctext_00 mov tempreg2,XL bas_ctext_00: ldi XL,LOW(bas_inbuf) ldi XH,HIGH(bas_inbuf) bas_ctext_01: cpi tempreg2,0 breq bas_ctext_02 ld tempreg1,X+ sts bas_ram+13,XL sts bas_ram+14,XH mov XL,tempreg1 clr XH rcall arr_write lds XL,bas_ram+13 lds XH,bas_ram+14 dec tempreg2 rjmp bas_ctext_01 bas_ctext_02: clr XL clr XH rcall arr_write jmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is scroll ;----------------------------------------------------------------------- bas_scroll: lds XL,libmio_vidmode cpi XL,0x00 breq bas_scroll_tm cpi XL,0x04 breq bas_scroll_tm cpi XL,0x06 breq bas_scroll_tm ldi ereg,28 ;not in graphics mode ret bas_scroll_tm: rcall bas_get1 lds XL,bas_partab ;lo ptr mov tempreg1,XL andi tempreg1,0x03 libmio_scroll jmp tbrun_loop ;goto main interpreter loop bas_scroll_e: jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; get XL parameters to bas_par ;----------------------------------------------------------------------- bas_getpar: movw ZL,r14 ;get line pointer bas_getpar_0: push YH push YL push XH ldi YL,LOW(bas_partab) ;set ptr ldi YH,HIGH(bas_partab) ldi tempreg1,0x00 ;no value mov tempreg2,XL ;max value count bas_getpar_3: push YH ;save registers push YL push tempreg1 push tempreg2 call expar ;call parser pop tempreg2 ;restore registers pop tempreg1 pop YL pop YH bas_getpar_4: st Y+,XL ;write low st Y+,XH ;write high inc tempreg1 ;number of params dec tempreg2 cpi tempreg2,0x00 ;all done? breq bas_getpar_6 ;end now bas_getpar_5: ld tempreg4,Z+ ;get next cpi tempreg4,32 ;space breq bas_getpar_5 ;wait for not cpi tempreg4,',' ;delimiter breq bas_getpar_3 ;OK, check next value sbiw ZL,1 ;set pointer back to this char bas_getpar_6: mov XL,tempreg1 ;number of values movw r14,ZL ;set new pointer pop XH ;restore min cp XL,XH ;< brcc bas_getpar_7 pop YL ;prepare kill stack pop YH ldi ereg,19 ;incomplete PAR bas_getpar_7: pop YL pop YH ret ;----------------------------------------------------------------------- ; get 3 byte parameters (ctrl,XH,XL) ;----------------------------------------------------------------------- bas_g4c: lds YH,bas_partab ;Y1 lds YL,bas_partab+2 ;X1 lds ZH,bas_partab+4 ;Y2 lds ZL,bas_partab+6 ;X2 bas_g4c_1: sts libmio_bcsrcx,YL sts libmio_bcsrcy,YH sts libmio_bcdx,ZL sts libmio_bcdy,ZH ret ;----------------------------------------------------------------------- ; get 2 byte parameters (XH,XL) ;----------------------------------------------------------------------- bas_g2b: ldi XL,0x02 ;2 parameters ldi XH,0x00 ;disable minimum rcall bas_getpar_0 ;get cpi XL,0x02 ;2 found brne bas_g2b_e ;no lds XH,bas_partab lds XL,bas_partab+2 ret bas_g2b_e: pop XL pop XL jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; get 2 word parameters (Y,X) ;----------------------------------------------------------------------- bas_g2w: ldi XL,0x02 ldi XH,0x00 ;disable minimum rcall bas_getpar_0 cpi XL,0x02 brne bas_g2b_e lds YL,bas_partab lds YH,bas_partab+1 lds XL,bas_partab+2 lds XH,bas_partab+3 ret ;----------------------------------------------------------------------- ; get variable address ;----------------------------------------------------------------------- bas_getvar: movw ZL,r14 ;get line pointer bas_va: rcall bas_ispace bas_va_1: cpi tempreg4,'A' brcs bas_va_err cpi tempreg4,'Z'+1 brcc bas_va_3 subi tempreg4,'A' bas_va_2: lsl tempreg4 ldi YH,high(varspace) ldi YL,low(varspace) add YL,tempreg4 adc YH,const_0 sts bas_ram+10,YL ;save var address sts bas_ram+11,YH movw r14,ZL ;store back line pointer ret bas_va_3: cpi tempreg4,'a' brcs bas_va_err cpi tempreg4,'z'+1 brcc bas_va_err subi tempreg4,'a' rjmp bas_va_2 bas_va_err: pop ereg pop ereg ldi ereg,7 ret ;----------------------------------------------------------------------- ; read until char is not space ;----------------------------------------------------------------------- bas_ispace: ld tempreg4,Z+ bas_ispc: cpi tempreg4,32 ;space breq bas_ispace bas_ignoresp01: ret ;----------------------------------------------------------------------- ; read until char is not space ;----------------------------------------------------------------------- bas_ispace1: movw ZL,r14 bas_ispace1_1: movw r14,ZL ld tempreg4,Z+ cpi tempreg4,32 ;space breq bas_ispace1_1 ret ;----------------------------------------------------------------------- ; restore line pointer ;----------------------------------------------------------------------- bas_rlp: movw ZL,r14 ;get line pointer ret ;----------------------------------------------------------------------- ; restore line pointer and get parameter ;----------------------------------------------------------------------- bas_expar: movw ZL,r14 ;get line pointer jmp expar ;----------------------------------------------------------------------- ; input value ;----------------------------------------------------------------------- bas_inval: push ZL ;save pointer push ZH libmio_calc ;calculate address movw ZL,YL ;set start of pointer ldi r16,0 ;length bas_inval_01: libmio_cursor ;view cursor lds tempreg4,libmio_kflags ;break cpi tempreg4,1 brne bas_inval_01b mov ereg,tempreg4 rjmp bas_inval_01c bas_inval_01b: cpi tempreg1,0xea ;enter brne bas_inval_04 sts bas_ram+12,r16 ;number of chars cpi r16,0 ;no char brne bas_inval_02 clr XL clr XH bas_inval_01a: clr ereg bas_inval_01c: pop ZH ;restore pointer pop ZL ret bas_inval_02: ldi YL,LOW(bas_inbuf) ldi YH,HIGH(bas_inbuf) bas_inval_03: ld XL,Z+ st Y+,XL dec r16 brne bas_inval_03 ; ldi XL,0x20 ; st Y+,XL ldi XL,0xff ;eol st Y+,XL call clin_main ;compress ldi ZL,LOW(bas_linebuf) ldi ZH,HIGH(bas_linebuf) call expar ;calculate value movw r16,XL call mem_readline movw XL,r16 rjmp bas_inval_01a bas_inval_04: cpi tempreg1,0xec ;backspace brne bas_inval_05 cpi r16,0 breq bas_inval_01 ;nothing dec libmio_cur_x libmio_calc ldi XL,0x20 st Y,XL dec r16 rjmp bas_inval_01 bas_inval_05: cpi tempreg1,0x20 brcs bas_inval cpi tempreg1,'z'+1 brcc bas_inval mov XL,libmio_cur_x cpi XL,libmio_cols-1 brcc bas_inval libmio_outchar inc r16 rjmp bas_inval_01 bas_vline: ldi ctrl,2 clr XH mov XL,r12 ;line inc XL libmio_outdez ldi tempreg1,':' libmio_outchar clr XH mov XL,r13 ;statement libmio_outdez libmio_outspace ret ;----------------------------------------------------------------------- ; check for color store and fill flag ;----------------------------------------------------------------------- bas_ccheck: lds tempreg4,libmio_color ;get recent color sbrs XL,0 ret cpi XL,3 ;3 paramters brne bas_ccheck_2 ;no lds XL,bas_partab+4 ;low of p3 bas_ccheck_1: libmio_setdrawcolor ;temporary color ret bas_ccheck_2: cpi XL,5 ;5 paramters brne bas_ccheck_3 ;no lds XL,bas_partab+8 ;low of p5 rjmp bas_ccheck_1 bas_ccheck_3: lds XL,bas_partab+12 ;low of p7 rjmp bas_ccheck_1 ;------------------------------------------------------------------------------ ;check memory for useability ;------------------------------------------------------------------------------ bas_fcheck: call fsys_maxpage ;get no of pages cpi tempreg1,0x00 brne bas_fcheck_01 clr tempreg3 ret bas_fcheck_01: sts bas_partab+8,tempreg1 ;store no of pages call fsys_checkf ;test for valid format cpi tempreg1,0x01 ;OK breq bas_fcheck_02 clr tempreg3 bas_fcheck_02: ret ;----------------------------------------------------------------------- ; keyword is onsync ;----------------------------------------------------------------------- bas_onsync_0: ldi XL,0x02 ;max 2 pars ldi XH,0x01 ;min 1 par rcall bas_getpar ;get parameters ldi XH,1 ;1 if no cycle number defined cpi XL,0x01 breq bas_onsync_1 lds XH,bas_partab+2 ;get parameter 2 bas_onsync_1: lds XL,bas_partab ;get parameter 1 subi XL,1 sts bas_mta,XL ;store line number sts bas_mta+1,XH ;store cycle number libmio_sync ;sync to prevent immediate INT sts bas_mta+2,XH ;set counter sts bas_mta+3,const_0 ;no interrupt jmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is vpoke ;----------------------------------------------------------------------- bas_vpoke_0: ldi XL,0x03 ;max 3 pars ldi XH,0x02 ;min 2 par rcall bas_getpar ;get parameters lds YL,bas_partab ;low offset lds YH,bas_partab+1 ;high offset lds tempreg1,bas_partab+2 ;value ldi r16,LOW(2760) ;limit ldi r17,HIGH(2760) ldi r18,LOW(libmio_vram) ;base ldi r19,HIGH(libmio_vram) cpi XL,0x02 ;min parameters brne bas_vpoke_1 ;multiple poke rcall bas_vpoke_wr ;write jmp tbrun_loop bas_vpoke_1: lds tempreg3,bas_partab+4 ;number of cycles (low) bas_vpoke_2: lds ZH,bas_partab+3 ;array offset high andi ZH,1 ;only sector 0+1 lds ZL,bas_partab+2 ;array offset low ldi tempreg1,LOW(bas_array) add ZL,tempreg1 ldi tempreg1,HIGH(bas_array) adc ZH,tempreg1 clr tempreg1 bas_vpoke_3: add YL,tempreg1 adc YH,const_0 ld tempreg1,Z+ ;get value rcall bas_vpoke_wr ;write ld tempreg1,Z+ ;get offset cpi tempreg1,0x80 ;end? brcs bas_vpoke_3 subi tempreg1,0x80 add YL,tempreg1 adc YH,const_0 dec tempreg3 ;cycles brne bas_vpoke_2 jmp tbrun_loop ;write value (offset=Y, value=tempreg1) bas_vpoke_wr: cp YL,r16 cpc YH,r17 brcc bas_vpoke_wre movw XL,YL ;copy add XL,r18 ;add base adc XH,r19 st X,tempreg1 bas_vpoke_wre: ret ;----------------------------------------------------------------------- ; bcopy for mode 4 and 6 ;----------------------------------------------------------------------- bas_bcopy46: push ZH push ZL ldi r16,LOW(bas_array+768) ;array limit ldi r17,HIGH(bas_array+768) ldi r18,LOW(libmio_vram+2760) ldi r19,HIGH(libmio_vram+2760) lds XH,bas_partab ;mode cpi XH,4 ;vmem->vmem brne bas_bcopy46_20 ldi ZL,LOW(libmio_vram) ;base ldi ZH,HIGH(libmio_vram) lds XL,bas_partab+2 ;get vmem source address lds XH,bas_partab+3 andi XH,0x0f ;limit to 4095 add XL,ZL adc XH,ZH lds YL,bas_partab+4 ;get vmem dest address lds YH,bas_partab+5 andi YH,0x0f ;limit to 4095 add YL,ZL adc YH,ZH lds ZL,bas_partab+6 ;bytes to copy lds ZH,bas_partab+7 bas_bcopy46_10: cp XL,r18 cpc XH,r19 brcc bas_bcopy46_11 cp YL,r18 cpc YH,r19 brcc bas_bcopy46_11 sbiw ZL,1 brcs bas_bcopy46_11 ld r0,X+ st Y+,r0 rjmp bas_bcopy46_10 bas_bcopy46_11: pop ZL pop ZH jmp tbrun_loop bas_bcopy46_20: cpi XH,5 ;vmem->array brne bas_bcopy46_30 ldi ZL,LOW(libmio_vram) ;base ldi ZH,HIGH(libmio_vram) lds XL,bas_partab+2 ;get vmem source address lds XH,bas_partab+3 andi XH,0x0f ;limit to 4095 add XL,ZL adc XH,ZH ldi ZL,LOW(bas_array) ;base ldi ZH,HIGH(bas_array) lds YL,bas_partab+4 ;get array dest address lds YH,bas_partab+5 andi YH,0x0f ;limit to 4095 add YL,ZL adc YH,ZH lds ZL,bas_partab+6 ;bytes to copy lds ZH,bas_partab+7 bas_bcopy46_21: cp XL,r18 cpc XH,r19 brcc bas_bcopy46_11 cp YL,r16 cpc YH,r17 brcc bas_bcopy46_11 sbiw ZL,1 brcs bas_bcopy46_11 ld r0,X+ st Y+,r0 rjmp bas_bcopy46_21 bas_bcopy46_30: cpi XH,6 ;array->vmem brne bas_bcopy46_40 ldi ZL,LOW(bas_array) ;base ldi ZH,HIGH(bas_array) lds XL,bas_partab+2 ;get array source address lds XH,bas_partab+3 andi XH,0x0f ;limit to 4095 add XL,ZL adc XH,ZH ldi ZL,LOW(libmio_vram) ;base ldi ZH,HIGH(libmio_vram) lds YL,bas_partab+4 ;get vmem dest address lds YH,bas_partab+5 andi YH,0x0f ;limit to 4095 add YL,ZL adc YH,ZH lds ZL,bas_partab+6 ;bytes to copy lds ZH,bas_partab+7 bas_bcopy46_31: cp XL,r16 cpc XH,r17 brcc bas_bcopy46_32 cp YL,r18 cpc YH,r19 brcc bas_bcopy46_32 sbiw ZL,1 brcs bas_bcopy46_32 ld r0,X+ st Y+,r0 rjmp bas_bcopy46_31 bas_bcopy46_32: rjmp bas_bcopy46_11 bas_bcopy46_40: pop ZL pop ZH ldi ereg,21 ;bcopy def err ret ;----------------------------------------------------------------------- ; copy char matrix in mode 4+6 ;----------------------------------------------------------------------- bas_cchar: ldi XL,0x03 ;max 3 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters lds tempreg4,libmio_vidmode ;video mode lds tempreg2,bas_partab+2 ;dest char lds tempreg1,bas_partab lds tempreg3,bas_partab+4 cpi tempreg4,0x06 ;mode 6 breq bas_cchar6 cpi tempreg4,0x04 ;mode 4 breq bas_cchar4 jmp tbrun_loop ;works not in other modes bas_cchar6: cpi XL,0x03 ;min parameters brne bas_cchar_e ;<3 is not OK libmio_copychar6 jmp tbrun_loop bas_cchar4: cpi XL,0x02 ;min parameters brne bas_cchar_e ;<2 is not OK libmio_copychar4 jmp tbrun_loop bas_cchar_e: jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; load program file ; par 1 file ; par 2 prog ;----------------------------------------------------------------------- bas_pload: ldi XL,0x02 ;max 2 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters bas_pload_1: call fsys_gettype cpi ereg,0 breq bas_pload_2 ret bas_pload_2: cpi tempreg1,0x10 ;basic file breq bas_pload_3 cpi tempreg1,0x18 ;native file breq bas_pload_3 ldi ereg,35 ;no prg file ret bas_pload_3: lds ctrl,bas_partab+2 ;prog no dec ctrl lds tempreg4,libmio_prog cp tempreg4,ctrl breq bas_pload_err lds tempreg4,bas_partab ;file no call fsys_bload_0 jmp tbrun_loop bas_pload_err: ldi ereg,37 ret ;----------------------------------------------------------------------- ; save program file ; par 1 file ; par 2 prog ;----------------------------------------------------------------------- bas_psave: ldi XL,0x02 ;max 2 pars ldi XH,0x02 ;min 2 pars rcall bas_getpar ;get parameters bas_psave_1: call fsys_gettype cpi ereg,0 breq bas_psave_2 ret bas_psave_2: cpi tempreg1,0xfc ;empty file breq bas_psave_3 ldi ereg,23 ;cannot create ret bas_psave_3: lds tempreg8,libmio_lastmenu lds tempreg4,bas_partab ;file no lds ctrl,bas_partab+2 ;prog no dec ctrl sts libmio_lastmenu,ctrl call fsys_bsave sts libmio_lastmenu,tempreg8 ;restore recent file bas_psave_4: jmp tbrun_loop ;----------------------------------------------------------------------- ; send xmodem block XSEND ;----------------------------------------------------------------------- bas_xsend: ldi XL,2 ;max 2 parameter ldi XH,2 rcall bas_getpar ;get parameters ldi XL,LOW(640) ldi XH,HIGH(640) lds tempreg3,bas_partab lds YL,bas_partab+2 lds YH,bas_partab+4 cp YL,XL cpc YH,XH brcc bas_xsend_err ldi XL,LOW(bas_array) ldi XH,HIGH(bas_array) add YL,XL adc YH,XH libmio_sendx ;send data jmp tbrun_loop bas_xsend_err: ldi ereg,18 ret ;----------------------------------------------------------------------- ; draw pie ;----------------------------------------------------------------------- bas_pie: ldi XL,0x07 ;max 7 pars ldi XH,0x06 ;min 6 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 ldi ZL,LOW(bas_ram) ldi ZH,HIGH(bas_ram) rcall bas_arcp ;get coords of pt1 sts bas_ram+3,YL ;last X sts bas_ram+4,YH ;last Y lds ZL,bas_partab+2 ;X0 lds ZH,bas_partab ;Y0 libmio_draw rcall bas_arcn_1 ;draw arc lds YL,bas_ram+3 ;last X lds YH,bas_ram+4 ;last Y lds ZL,bas_partab+2 ;X0 lds ZH,bas_partab ;Y0 libmio_draw pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp bas_psave_4 ;goto main interpreter loop ;----------------------------------------------------------------------- ; draw arc ;----------------------------------------------------------------------- bas_arc: ldi XL,0x07 ;max 7 pars ldi XH,0x06 ;min 6 pars rcall bas_getpar ;get parameters rcall bas_ccheck push tempreg4 rcall bas_arcn ;draw arc pop tempreg4 sts libmio_color,tempreg4 ;restore color rjmp bas_psave_4 ;goto main interpreter loop ;draw arc bas_arcn: ldi ZL,LOW(bas_ram) ldi ZH,HIGH(bas_ram) rcall bas_arcp ;point1 movw XL,YL ldi ZL,LOW(bas_ram) ldi ZH,HIGH(bas_ram) std Z+3,XL ;last X std Z+4,XH ;last Y libmio_plot ;draw point bas_arcn_1: ldi ZL,LOW(bas_ram) ldi ZH,HIGH(bas_ram) ldd XL,Z+24 ;angle low ldd XH,Z+25 ;angle high ldd YL,Z+26 ;angle 2 low ldd YH,Z+27 ;angle 2 high adiw YL,1 ;2+1 cp XL,YL cpc XH,YH brcs bas_arcn_2 ret bas_arcn_2: adiw XL,1 std Z+24,XL std Z+25,XH rcall bas_arcp lds ZL,bas_ram+3 lds ZH,bas_ram+4 sts bas_ram+3,YL ;last X sts bas_ram+4,YH ;last Y libmio_draw rjmp bas_arcn_1 ;draw arc point bas_arcp: ldd XL,Z+24 ;angle low ldd XH,Z+25 ;angle high rcall bas_cos ldd r16,Z+20 ;ry low clr r17 call expar_mul ;calc dy ldd YH,Z+16 ;Y0 sub YH,XH ;this is our Y coord ldd XL,Z+24 ;angle low ldd XH,Z+25 ;angle high sbiw XL,45 ;prepare sin sbiw XL,45 call bas_cos ;get sinus ldd r16,Z+22 ;rx low clr r17 call expar_mul ;calc dy ldd YL,Z+18 ;X0 add YL,XH ;this is our X coord ret ;----------------------------------------------------------------------- ; keyword is VID ;----------------------------------------------------------------------- bas_video: rcall bas_get1 sbrs XL,0 libmio_fast sbrc XL,0 bas_video_1: libmio_slow jmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is SCALE ;----------------------------------------------------------------------- bas_scale: rcall bas_getvar ;get variable push YL push YH rcall bas_ispace ldi XL,0x05 ;max 5 pars ldi XH,0x00 ;no min rcall bas_getpar_0 ;get parameters cpi XL,0x05 ;min parameters brne bas_scale_e call math_scale pop YH pop YL st Y+,XL ;low result st Y+,XH ;high result jmp tbrun_loop bas_scale_e: pop YH pop YL jmp tbrun_wrongpar bas_cos: push ZH push ZL call expar_cos ;get cosinus pop ZL pop ZH ret ;----------------------------------------------------------------------- ; keyword is lfind ;----------------------------------------------------------------------- bas_lfind: rcall bas_getvar ;variable rcall bas_ispace cpi tempreg4,',' brne bas_lfind_err ldi XL,0x01 ;get 1 parameter ldi XH,0x01 rcall bas_getpar_0 lds XL,bas_partab rcall lfind bas_lfind_02: rcall bas_loadv st Y+,tempreg2 ;LOW value st Y+,const_0 ;HIGH is zero jmp tbrun_loop bas_lfind_err: ldi ereg,0x07 ;syntax error jmp tbrun_loop ;error ;----------------------------------------------------------------------- ; keyword is ashift ;----------------------------------------------------------------------- bas_ashift: rcall bas_getvar ;variable rcall bas_ispace cpi tempreg4,',' brne bas_lfind_err ldi XL,0x01 ;get 1 parameter ldi XH,0x01 rcall bas_getpar_0 lds ZL,bas_partab ;lo value lds ZH,bas_partab+1 ;hi value clt cpi ZH,0x80 brcs bas_ashift_01 com ZL inc ZL set bas_ashift_01: rcall bas_loadv ld XL,Y ldd XH,Y+1 bas_ashift_02: subi ZL,1 brcs bas_ashift_e brts bas_ashift_03 lsl XL rol XH rjmp bas_ashift_02 bas_ashift_03: mov r0,XH lsl r0 ror XH ror XL rjmp bas_ashift_02 bas_ashift_e: st Y,XL std Y+1,XH jmp tbrun_loop ;----------------------------------------------------------------------- ; XCALL with string as second parameter ;----------------------------------------------------------------------- bas_sxcall: ld tempreg1,Z+ cpi tempreg1,0x22 ;start of string brne bas_sxcall_en movw YL,ZL ;this points to the rest of basic line bas_sxcall_1: ld tempreg1,Z+ cpi tempreg1,0x22 ;end of string breq bas_sxcall_2 cpi tempreg1,0xff ;EOL brne bas_sxcall_1 bas_sxcall_2: movw r14,ZL lds tempreg1,bas_partab ;program number dec tempreg1 call mem_readf1 ;get first char lsr ZH ror ZL cpi tempreg1,'N' ;binary brne bas_sxcall_en lds XL,bas_partab+2 ;address offset sbrs tempreg2,4 ;skip if no exec flag? rjmp bas_sxcall_p3 ;is binary program add ZL,XL adc ZH,const_0 bas_sxcall_p3: adiw ZL,16 ;code offset set ;string mode icall jmp tbrun_loop bas_sxcall_en: jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; find library ; XL=code, tempreg2=place or zero ;----------------------------------------------------------------------- lfind: ldi ZH,HIGH(bas_programs*2) ldi tempreg2,1 ;we start with one lfind_01: ldi ZL,0x0d ;ID offset lpm tempreg3,Z ;get flag byte sbrc tempreg3,3 ;skip if library rjmp lfind_02 ;no lib ldi ZL,0x0f ;ID byte lpm tempreg3,Z ;get ID cp tempreg3,XL brne lfind_02 lfind_01a: ret lfind_02: subi ZH,0xF4 ;PTR +3072 inc tempreg2 cpi tempreg2,9 brne lfind_01 ldi tempreg2,0 ret lcall: push tempreg1 dec tempreg1 andi tempreg1,0x07 ldi ZL,0x06 mul ZL,tempreg1 pop tempreg1 ldi ZL,LOW(bas_programs+8) ldi ZH,HIGH(bas_programs+8) add ZL,r0 adc ZH,r1 add ZL,tempreg2 adc ZH,const_0 ijmp ;----------------------------------------------------------------------- ; keyword is esput ;----------------------------------------------------------------------- bas_s2put: lds tempreg3,libmio_config sbrc tempreg3,4 rjmp bas_s2put_1 ldi ereg,39 ;only m644p ret bas_s2put_1: rcall bas_expar bas_s2put_01: mov tempreg1,XL libmio_pser2 rcall bas_ispc cpi tempreg4,',' brne bas_s2put_ext rcall bas_ispace call expar rjmp bas_s2put_01 bas_s2put_ext: jmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is esget ;----------------------------------------------------------------------- bas_s2get: clr ctrl lds tempreg3,libmio_config sbrc tempreg3,4 rjmp bas_s2get_1 ldi ereg,39 ;only m644p jmp tbrun_loop bas_s2get_1: libmio_gserb2 mov XL,tempreg1 clr XH bas_s2get_chk: lds tempreg1,libmio_keycode cpi tempreg1,0xed ;ESC brne bas_s2get_2 bas_s2get_esc: ldi XL,0xff ;-1 ldi XH,0xff bas_s2get_2: rcall bas_getvar ;get variable st Y+,XL ;low value st Y+,XH ;high value jmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is ebaud ;----------------------------------------------------------------------- bas_s2baud: rcall bas_get1 lds tempreg3,libmio_config sbrc tempreg3,4 ;skip if no serial 1 rjmp bas_s2baud_1 ldi ereg,39 ;only m644p ret bas_s2baud_1: libmio_baud2 jmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is baud ;----------------------------------------------------------------------- bas_baud: rcall bas_get1 andi XL,0x01 lds XH,libmio_sysconf andi XH,0xfe or XH,XL sts libmio_sysconf,XH jmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is wrap ;----------------------------------------------------------------------- bas_wrap: rcall bas_get1 bst XL,0 lds XL,libmio_config bld XL,7 sts libmio_config,XL jmp tbrun_mtest ;----------------------------------------------------------------------- ; get one parameter ;----------------------------------------------------------------------- bas_get1: ldi XL,0x01 ldi XH,0x00 rcall bas_getpar ;get parameters cpi XL,0x01 ;min parameters brcc bas_getn_r ;<1 is not OK rjmp bas_getn_e ;----------------------------------------------------------------------- ; get two parameters ;----------------------------------------------------------------------- bas_get2: ldi XL,0x02 ldi XH,0x00 rcall bas_getpar ;get parameters cpi XL,0x02 ;min parameters brcc bas_getn_r ;<1 is not OK rjmp bas_getn_e ;----------------------------------------------------------------------- ; get three parameters ;----------------------------------------------------------------------- bas_get3: ldi XL,0x03 ldi XH,0x00 rcall bas_getpar ;get parameters cpi XL,0x03 ;min parameters brcc bas_getn_r ;<1 is not OK rjmp bas_getn_e ;----------------------------------------------------------------------- ; get four parameters ;----------------------------------------------------------------------- bas_get4: ldi XL,0x04 ldi XH,0x00 rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_getn_e ;<1 is not OK bas_getn_r: lds XL,bas_partab lds XH,bas_partab+1 ret bas_getn_e: pop XL pop XL jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; external command ;----------------------------------------------------------------------- bas_ext: movw r14,ZL lds ZH,prg_basext sbrc ZH,7 rjmp bas_ext_ne ldi ZL,0x10 ;routine start icall cpi ereg,0 brne bas_ext_err ;abort with error jmp tbrun_loop bas_ext_ne: ldi ereg,8 ;unknown keyword bas_ext_err: ret bas_spisel: call bas_get1 sbrs tempreg1,0 call libdfl_unsel sbrc tempreg1,0 call libdfl_sel jmp tbrun_loop sys_iocheck: set ;io enabled lds ZH,prg_xmem sbrc ZH,7 rjmp sys_iocheck_1 ;no xmem ldi ZL,0x0d lpm ZL,Z sbrs ZL,6 clt ;io disabled sys_iocheck_1: lds ZH,prg_vdrv sbrc ZH,7 ret ;no vdriver ldi ZL,0x0d lpm ZL,Z sbrs ZL,6 clt ;io disabled ret SOURCE_142/SOURCE_vdriver/0000755000175000001440000000000011713042124014225 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_2x16/0000755000175000001440000000000011713042124015733 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_2x16/tlcd_2x16.asm0000755000175000001440000000427111725741461020167 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "definitions.asm" .equ lcd_rows = 2 ;rows on LCD .equ lcd_cols = 16 ;columns on LCD .equ lcd_colbyte = 0x80 ;color for dual display .equ lcd_dclocks = 35 ;dummy clocks = (27-cols) * 5 .equ lcd_xdelay = 20 ;20 for 16 char, 1 for 20 char .equ lcd_ystart = 90 .equ lcd_yend = 128 .equ linesort = 2 .CSEG .org 0x7200 ; "...... N" start: .db "LC2*16P4BITSN",0xb3,0xfe,0xa1 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp lcd_init ;FKT 01 init rjmp lcd_cls ;FKT 02 clear screen rjmp lcd_char ;FKT 03 output char rjmp lcd_gxy ;FKT 04 set cursor ret ;FKT 05 plot rjmp lcd_newl ;FKT 06 NL rjmp lcd_vid ;FKT 07 video display ret ;FKT 08 startup ;------------------------------------------------------------------------------- ; modules ;------------------------------------------------------------------------------- .include "io.asm" .include "routines.asm" .include "video_16.asm" lcd_ctable: .include "ctable.inc" SOURCE_142/SOURCE_vdriver/tlcd_2x16/video_16.asm0000644000175000001440000001131211725741461020064 0ustar joergusers;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd_vid: mov tempreg1,vline_l cpi tempreg1,lcd_ystart brcs lcd_nvid cpi tempreg1,lcd_yend brcc lcd_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_linedoubler,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd_c2 ;write data rjmp lcd_c1 ;prepare data lcd_nvid_1: ret ;do nothing ;prepare data lcd_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd_c3 ;CG RAM service ;update DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_c1_10 ;no Y overflow clr XH lcd_c1_10: sts lcd_colcount,XL ;new col counter sts lcd_rowcount,XH ;new row counter rcall lcd_acalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c1_20 ;yes, update ret lcd_c1_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write rcall lcd_pcalc ;calculate position in LCD ori tempreg1,0x80 ;bit for DDRAM address rjmp lcd_cout ;control output ;second cycle writes data lcd_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;update CG RAM data lcd_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd_c3_10 ;no X overflow clr XL lcd_c3_10: sts lcd_cgptr,XL ;new col counter rcall lcd_ccalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c3_20 ;yes, update ret lcd_c3_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write mov tempreg1,XL andi tempreg1,0x3f ;limit to 64 ori tempreg1,0x40 ;bit for CG RAM address rjmp lcd_cout ;control output ;calculate data for first char lcd_vline: ldi XL,20 lcd_predelay: dec XL brne lcd_predelay lds YH,lcd_pixline ;PCC lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds tempreg1,libmio_color ;2 get color byte out PORTC,tempreg1 ;1 push tempreg4 subi YH,1 brcs lcd_dline_e cpi YH,7 brcc lcd_dline ldi YL,8 ;1 8 bytes/char ld ZL,X+ ;2 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 ldi ZH,HIGH(lcd_charset) ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 ld tempreg3,Z ;2 ldi tempreg4,lcd_cols ;1 number of chars lds tempreg2,libmio_color ;2 color for pixpause lcd_vloop: mov tempreg1,tempreg2 ;1 get color sbrc tempreg3,4 ;1 skip if pix is off swap tempreg1 ;1 out PORTC,tempreg1 ;1 out pix 4 ld ZL,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 sbrc tempreg3,3 ;1 skip if pix is not changed swap tempreg1 ;1 ldi ZH,HIGH(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 3 mov tempreg1,tempreg2 ;1 sbrc tempreg3,2 ;1 skip if pix is not changed swap tempreg1 ;1 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 2 mov tempreg1,tempreg2 ;1 sbrc tempreg3,1 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 1 mov tempreg1,tempreg2 ;1 sbrc tempreg3,0 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 0 ld tempreg3,Z ;2 ld tempreg3,Z ;2 ld tempreg3,Z ;1 out PORTC,tempreg2 ;1 out pixpause dec tempreg4 ;1 loop counter brne lcd_vloop ;2/1 ldi tempreg2,1 lcd_dline_0: dec tempreg2 brne lcd_dline_0 nop nop rjmp lcd_nline lcd_dline_e: nop nop lcd_dline: ldi tempreg2,138 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop nop nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_linedoubler lds ZH,lcd_pixline ;2 character line inc YL cpi YL,2 out PORTC,tempreg2 ;1 out border brne lcd_nline_1 clr YL inc ZH cpi ZH,9 ;1 check brne lcd_nline_1 ;2 jump if not next line clr ZH ;1 character line = 0 lds XL,libmio_rampos_l lds XH,libmio_rampos_h adiw XL,lcd_cols sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position lcd_nline_1: sts lcd_linedoubler,YL sts lcd_pixline,ZH ;2 new character line rjmp get_keys SOURCE_142/SOURCE_vdriver/tlcd_2x16/definitions.asm0000755000175000001440000000373511725741461021000 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ lcd_charmap = libmio_vram .equ lcd_sys = libmio_vram+192 .equ lcd_cgmap = libmio_vram+320 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+256 .equ lcd_enable = lcd_sys ;enable update .equ lcd_colcount = lcd_sys+1 ;col counter .equ lcd_rowcount = lcd_sys+2 ;row counter .equ lcd_datavalid = lcd_sys+3 ;no write .equ lcd_databyte = lcd_sys+4 ;data to write .equ lcd_linedoubler = lcd_sys+5 ;for TV line doubling .equ lcd_pixline = lcd_sys+6 ;pixline in char .equ lcd_cgptr = lcd_sys+8 ;CG counter .equ lcd_keys = lcd_sys+9 ;key state .equ lcd_cmap_l = lcd_sys+10 ;low address of charmap .equ lcd_cmap_h = lcd_sys+11 ;high address of charmap SOURCE_142/SOURCE_vdriver/tlcd_2x16/io.asm0000755000175000001440000000654111725741461017072 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x08 ;I/O brne inex_100 inex_10: cpi XL,0x04 brne inex_12 lds XH,lcd_keys bst XH,4 inex_kin: clr XL bld XL,0 clr XH ret inex_12: cpi XL,0x05 brne inex_14 lds XH,lcd_keys bst XH,5 rjmp inex_kin inex_14: cpi XL,0x06 brne inex_16 lds XH,lcd_keys bst XH,6 rjmp inex_kin inex_16: cpi XL,0x07 brne inex_err lds XH,lcd_keys bst XH,7 rjmp inex_kin inex_100: cpi XH,0x0a ;CG RAM brne inex_err cpi XL,0x40 brcc inex_err mov r16,XL ldi XL,LOW(lcd_charset) ldi XH,HIGH(lcd_charset) add XL,r16 add XH,const_0 ld XL,X clr XH ret inex_err: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,8 brne outex_100 outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_50 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_80 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_80: rjmp outex_err outex_100: cpi YH,0x0a ;CG RAM brne outex_err cpi YL,0x40 brcc outex_err mov XH,YL ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) add YL,XH add YH,const_0 st Y,XL ret outex_err: ldi ereg,40 ;no IO driver ret get_keys: in XL,PORTA ;enable pull-up ori XL,0xf0 out PORTA,XL in XL,DDRA ;set D4-7 as input andi XL,0x0f out DDRA,XL nop nop ori XL,0xf0 in XH,PINA ;get state out DDRA,XL ;set D4-7 as output sts lcd_keys,XH ret SOURCE_142/SOURCE_vdriver/tlcd_2x16/ctable.inc0000644000175000001440000002340011725741461017674 0ustar joergusers .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x04,0x04,0x04,0x00,0x00,0x04,0x00 .db 0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00 .db 0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00 .db 0x04,0x0f,0x14,0x0e,0x05,0x1e,0x04,0x00 .db 0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00 .db 0x0c,0x12,0x14,0x08,0x14,0x12,0x0d,0x00 .db 0x0c,0x04,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00 .db 0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00 .db 0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0c,0x04,0x08,0x00 .db 0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x0c,0x0c,0x00 .db 0x00,0x00,0x01,0x02,0x04,0x08,0x00,0x00 .db 0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00 .db 0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x08,0x1f,0x00 .db 0x1f,0x02,0x04,0x02,0x01,0x11,0x0e,0x00 .db 0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00 .db 0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00 .db 0x06,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00 .db 0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x02,0x0c,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x0c,0x00,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x04,0x08,0x00 .db 0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00 .db 0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00 .db 0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 .db 0x0e,0x11,0x01,0x0d,0x15,0x15,0x0e,0x00 .db 0x0e,0x11,0x11,0x11,0x1f,0x11,0x11,0x00 .db 0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00 .db 0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00 .db 0x1c,0x12,0x11,0x11,0x11,0x12,0x1c,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x10,0x17,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00 .db 0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x07,0x02,0x02,0x02,0x02,0x12,0x0c,0x00 .db 0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00 .db 0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00 .db 0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00 .db 0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00 .db 0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00 .db 0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00 .db 0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00 .db 0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x11,0x0a,0x0a,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x15,0x15,0x0e,0x00 .db 0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00 .db 0x11,0x11,0x11,0x0a,0x04,0x04,0x04,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00 .db 0x0e,0x08,0x08,0x08,0x08,0x08,0x0e,0x00 .db 0x11,0x0a,0x1f,0x04,0x1f,0x04,0x04,0x00 .db 0x0e,0x02,0x02,0x02,0x02,0x02,0x0e,0x00 .db 0x04,0x0a,0x11,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x08,0x04,0x02,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x10,0x10,0x1e,0x11,0x11,0x11,0x1e,0x00 .db 0x00,0x00,0x0e,0x10,0x10,0x11,0x0e,0x00 .db 0x01,0x01,0x0d,0x13,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0e,0x11,0x1f,0x10,0x0e,0x00 .db 0x06,0x09,0x08,0x1c,0x08,0x08,0x08,0x00 .db 0x00,0x0f,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x10,0x10,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x04,0x00,0x0c,0x04,0x04,0x04,0x0e,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x10,0x10,0x12,0x14,0x18,0x14,0x12,0x00 .db 0x0c,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x00,0x00,0x1a,0x15,0x15,0x11,0x11,0x00 .db 0x00,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x00,0x0d,0x13,0x0f,0x01,0x01,0x00 .db 0x00,0x00,0x16,0x19,0x10,0x10,0x10,0x00 .db 0x00,0x00,0x0e,0x10,0x0e,0x01,0x1e,0x00 .db 0x08,0x08,0x1c,0x08,0x08,0x09,0x06,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x0a,0x04,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x15,0x0a,0x00 .db 0x00,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x00,0x00,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x00,0x00,0x1f,0x02,0x04,0x08,0x1f,0x00 .db 0x02,0x04,0x04,0x08,0x04,0x04,0x02,0x00 .db 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x08,0x04,0x04,0x02,0x04,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x1f,0x02,0x04,0x00,0x00 .db 0x00,0x04,0x08,0x1f,0x08,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x1c,0x14,0x1c,0x00 .db 0x07,0x04,0x04,0x04,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x04,0x04,0x04,0x1c,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x00 .db 0x00,0x00,0x00,0x0c,0x0c,0x00,0x00,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x02,0x04,0x00 .db 0x00,0x00,0x1f,0x01,0x02,0x04,0x08,0x00 .db 0x00,0x00,0x02,0x04,0x0c,0x14,0x04,0x00 .db 0x00,0x04,0x1f,0x11,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x00,0x1f,0x04,0x04,0x1f,0x00 .db 0x00,0x00,0x02,0x1f,0x06,0x0a,0x12,0x00 .db 0x00,0x00,0x08,0x1f,0x09,0x0a,0x08,0x00 .db 0x00,0x00,0x00,0x0e,0x02,0x02,0x1f,0x00 .db 0x00,0x00,0x1e,0x02,0x1e,0x02,0x1e,0x00 .db 0x00,0x00,0x15,0x15,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x1f,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x01,0x05,0x06,0x04,0x04,0x08,0x00 .db 0x01,0x02,0x04,0x0c,0x14,0x04,0x04,0x00 .db 0x04,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x1f,0x04,0x04,0x04,0x04,0x1f,0x00 .db 0x02,0x1f,0x02,0x06,0x0a,0x12,0x02,0x00 .db 0x08,0x1f,0x09,0x09,0x09,0x09,0x12,0x00 .db 0x04,0x1f,0x04,0x1f,0x04,0x04,0x04,0x00 .db 0x00,0x0f,0x09,0x11,0x01,0x02,0x0c,0x00 .db 0x08,0x0f,0x12,0x02,0x02,0x02,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x01,0x1f,0x00 .db 0x0a,0x1f,0x0a,0x0a,0x02,0x04,0x08,0x00 .db 0x00,0x18,0x01,0x19,0x01,0x02,0x1c,0x00 .db 0x00,0x1f,0x01,0x02,0x04,0x0a,0x11,0x00 .db 0x08,0x1f,0x09,0x0a,0x08,0x08,0x07,0x00 .db 0x00,0x11,0x11,0x09,0x01,0x02,0x0c,0x00 .db 0x00,0x0f,0x09,0x05,0x03,0x02,0x0c,0x00 .db 0x02,0x1c,0x04,0x1f,0x04,0x04,0x08,0x00 .db 0x00,0x15,0x15,0x15,0x01,0x02,0x04,0x00 .db 0x0e,0x00,0x1f,0x04,0x04,0x04,0x08,0x00 .db 0x08,0x08,0x08,0x0c,0x0a,0x08,0x08,0x00 .db 0x04,0x04,0x1f,0x04,0x04,0x08,0x10,0x00 .db 0x00,0x0e,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x00,0x1f,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x04,0x1f,0x02,0x04,0x0e,0x15,0x04,0x00 .db 0x02,0x02,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x11,0x11,0x11,0x11,0x00 .db 0x10,0x10,0x1f,0x10,0x10,0x10,0x0f,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x02,0x0c,0x00 .db 0x00,0x08,0x14,0x02,0x01,0x01,0x00,0x00 .db 0x04,0x1f,0x04,0x04,0x15,0x15,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x0a,0x04,0x02,0x00 .db 0x00,0x0e,0x00,0x0e,0x00,0x0e,0x01,0x00 .db 0x00,0x04,0x08,0x10,0x11,0x1f,0x01,0x00 .db 0x00,0x01,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x00,0x1f,0x08,0x1f,0x08,0x08,0x07,0x00 .db 0x08,0x08,0x1f,0x09,0x0a,0x08,0x08,0x00 .db 0x00,0x0e,0x02,0x02,0x02,0x02,0x1f,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x01,0x1f,0x00 .db 0x0e,0x00,0x1f,0x01,0x01,0x02,0x04,0x00 .db 0x12,0x12,0x12,0x12,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x14,0x14,0x15,0x15,0x16,0x00 .db 0x00,0x10,0x10,0x11,0x12,0x14,0x18,0x00 .db 0x00,0x1f,0x11,0x11,0x11,0x1f,0x00,0x00 .db 0x00,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x18,0x00,0x01,0x01,0x02,0x1c,0x00 .db 0x04,0x12,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x1c,0x14,0x1c,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x09,0x15,0x12,0x12,0x0d,0x00,0x00 .db 0x0a,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x0e,0x11,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x0e,0x10,0x0c,0x11,0x0e,0x00,0x00 .db 0x11,0x11,0x11,0x13,0x1d,0x10,0x10,0x00 .db 0x00,0x0f,0x14,0x12,0x11,0x0e,0x00,0x00 .db 0x06,0x09,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x07,0x04,0x04,0x14,0x08,0x00,0x00 .db 0x00,0x02,0x1a,0x02,0x00,0x00,0x00,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x14,0x08,0x14,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x0e,0x14,0x15,0x0e,0x04,0x00,0x00 .db 0x08,0x1c,0x08,0x1c,0x08,0x08,0x0f,0x00 .db 0x0e,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x0a,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x16,0x19,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0d,0x13,0x11,0x1f,0x01,0x01,0x01,0x00 .db 0x00,0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0b,0x15,0x1a,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00 .db 0x0a,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x1f,0x10,0x08,0x04,0x08,0x10,0x1f,0x00 .db 0x00,0x00,0x1f,0x0a,0x0a,0x0a,0x13,0x00 .db 0x1f,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x11,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x01,0x1e,0x04,0x1f,0x04,0x04,0x00 .db 0x00,0x1f,0x08,0x0f,0x09,0x11,0x00,0x00 .db 0x00,0x1f,0x15,0x1f,0x11,0x11,0x00,0x00 .db 0x00,0x04,0x00,0x1f,0x00,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f SOURCE_142/SOURCE_vdriver/tlcd_2x16/routines.asm0000755000175000001440000001642411725741461020334 0ustar joergusers;################################################################################ ;# # ;# text LCD routines # ;# copyright (c) 2005-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd_init: sts lcd_enable,const_0 ;disable update sts lcd_colcount,const_0 ;col counter sts lcd_rowcount,const_0 ;row counter sts lcd_datavalid,const_0 ;no write sts lcd_databyte,const_0 ;data to write sts lcd_cgptr,const_0 ;CG counter brtc lcd_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_setup rcall lcd_ccopy rcall lcd_cls ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr sts lcd_cmap_l,ZL sts lcd_cmap_h,ZH sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL ret lcd_setup: ldi tempreg2,10 lcd_setup_1: api_sync dec tempreg2 brne lcd_setup_1 cbi PORTB,2 ;control ldi tempreg1, 0x03 ; muss 3mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync ldi tempreg1,0x02 ;muss 2mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync ldi tempreg1,0x28 ;function set rcall lcd_cout api_sync api_sync ldi tempreg1,0x0c ;display on rcall lcd_cout api_sync api_sync ldi tempreg1,0x04 ;no shift rcall lcd_cout api_sync ret ;------------------------------------------------------------------------------- ; copy chartable ;------------------------------------------------------------------------------- lcd_ccopy: ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) ;32 empty chars 0-31 ldi XL,0x40 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ldi XL,0xc0 lcd_ccopy_1a: st Y+,const_1 dec XL brne lcd_ccopy_1a ;96 chars 32-127 ldi XH,3 clr XL lcd_ccopy_2: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_2 ;32 empty chars 128-159 ldi XL,0 lcd_ccopy_3: st Y+,const_0 dec XL brne lcd_ccopy_3 ;96 chars 160-255 ldi XH,3 clr XL lcd_ccopy_4: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_4 ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd_gxy: cpi XL,lcd_cols brcs lcd_gxy_1 ldi XL,lcd_cols-1 lcd_gxy_1: cpi XH,lcd_rows brcs lcd_gxy_2 ldi XL,lcd_rows-1 lcd_gxy_2: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd_char_1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_char_1 ;no Y overflow clr XH lcd_char_1: movw libmio_cur_x,XL st Y,tempreg1 ;store char lcd_char2: api_popxyz lcd_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd_newl_1 ;no Y overflow clr XH lcd_newl_1: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------ ; clear screen ;------------------------------------------------------------------------------ lcd_cls: api_pushxyz ldi YL,LOW(libmio_vram) ;active VRAM ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+96) ;shadow VRAM ldi ZH,HIGH(libmio_vram+96) ldi XH,96 ldi XL,0x20 lcd_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) ldi ZL,lcd_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;maximum 96 bytes movw ZL,YL adiw ZL,48 ;visible status is addr+96 adiw ZL,48 ret ;------------------------------------------------------------------------------ ; calc address of (XL) charset byte ;------------------------------------------------------------------------------ lcd_ccalc: ldi YL,LOW(lcd_charset) ;CGRAM address, first byte ldi YH,HIGH(lcd_charset) add YL,XL adc YH,const_0 ;maximum 64 Bytes movw ZL,YL adiw ZL,32 ;visible status is addr+64 adiw ZL,32 ret ;------------------------------------------------------------------------------ ; calc LCD DD-RAM address of (XL:XH) char -> tempreg1 ;------------------------------------------------------------------------------ .if linesort == 1 lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret .endif .if linesort == 2 lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif .if linesort == 3 lcd_pcalc: clr tempreg1 sbrc XH,0 subi tempreg1,0xc0 ;+0x40 sbrc XH,1 subi tempreg1,0xec ;+0x14 add tempreg1,XL ret .endif .if linesort == 4 lcd_pcalc: ldi ZL,32 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif ;------------------------------------------------------------------------------- ; output character (tempreg1=char) ;------------------------------------------------------------------------------- lcd_dout: sbi PORTB,2 ;data rjmp lcd_cout_1 ;sendet ein Controlbyte an das LCD lcd_cout: cbi PORTB,2 ;control lcd_cout_1: swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 ret lcd_outbits: sbrc tempreg1,0 sbi PORTA,4 sbrs tempreg1,0 cbi PORTA,4 sbrc tempreg1,1 sbi PORTA,5 sbrs tempreg1,1 cbi PORTA,5 sbrc tempreg1,2 sbi PORTA,6 sbrs tempreg1,2 cbi PORTA,6 sbrc tempreg1,3 sbi PORTA,7 sbrs tempreg1,3 cbi PORTA,7 ret ;enable-pulse lcd_epulse: sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 nop nop nop ret SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/0000755000175000001440000000000011713042124016151 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_4x20_2/video_20.asm0000644000175000001440000001122611725741461020301 0ustar joergusers;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd_vid: mov tempreg1,vline_l cpi tempreg1,lcd_ystart brcs lcd_nvid cpi tempreg1,lcd_yend brcc lcd_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_linedoubler,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd_c2 ;write data rjmp lcd_c1 ;prepare data lcd_nvid_1: ret ;do nothing ;prepare data lcd_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd_c3 ;CG RAM service ;update DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_c1_10 ;no Y overflow clr XH lcd_c1_10: sts lcd_colcount,XL ;new col counter sts lcd_rowcount,XH ;new row counter rcall lcd_acalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c1_20 ;yes, update ret lcd_c1_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write rcall lcd_pcalc ;calculate position in LCD ori tempreg1,0x80 ;bit for DDRAM address rjmp lcd_cout ;control output ;second cycle writes data lcd_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;update CG RAM data lcd_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd_c3_10 ;no X overflow clr XL lcd_c3_10: sts lcd_cgptr,XL ;new col counter rcall lcd_ccalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c3_20 ;yes, update ret lcd_c3_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write mov tempreg1,XL andi tempreg1,0x3f ;limit to 64 ori tempreg1,0x40 ;bit for CG RAM address rjmp lcd_cout ;control output ;calculate data for first char lcd_vline: lds YH,lcd_pixline ;PCC lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds tempreg1,libmio_color ;2 get color byte out PORTC,tempreg1 ;1 push tempreg4 subi YH,1 brcs lcd_dline_e cpi YH,7 brcc lcd_dline ldi YL,8 ;1 8 bytes/char ld ZL,X+ ;2 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 ldi ZH,HIGH(lcd_charset) ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 ld tempreg3,Z ;2 ldi tempreg4,lcd_cols ;1 number of chars lds tempreg2,libmio_color ;2 color for pixpause lcd_vloop: mov tempreg1,tempreg2 ;1 get color sbrc tempreg3,4 ;1 skip if pix is off swap tempreg1 ;1 out PORTC,tempreg1 ;1 out pix 4 ld ZL,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 sbrc tempreg3,3 ;1 skip if pix is not changed swap tempreg1 ;1 ldi ZH,HIGH(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 3 mov tempreg1,tempreg2 ;1 sbrc tempreg3,2 ;1 skip if pix is not changed swap tempreg1 ;1 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 2 mov tempreg1,tempreg2 ;1 sbrc tempreg3,1 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 1 mov tempreg1,tempreg2 ;1 sbrc tempreg3,0 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 0 ld tempreg3,Z ;2 ld tempreg3,Z ;2 ld tempreg3,Z ;1 out PORTC,tempreg2 ;1 out pixpause dec tempreg4 ;1 loop counter brne lcd_vloop ;2/1 ldi tempreg2,1 lcd_dline_0: dec tempreg2 brne lcd_dline_0 nop nop rjmp lcd_nline lcd_dline_e: nop nop lcd_dline: ldi tempreg2,172 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop nop nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_linedoubler lds ZH,lcd_pixline ;2 character line inc YL cpi YL,2 out PORTC,tempreg2 ;1 out border brne lcd_nline_1 clr YL inc ZH cpi ZH,9 ;1 check brne lcd_nline_1 ;2 jump if not next line clr ZH ;1 character line = 0 lds XL,libmio_rampos_l lds XH,libmio_rampos_h adiw XL,lcd_cols sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position lcd_nline_1: sts lcd_linedoubler,YL sts lcd_pixline,ZH ;2 new character line rjmp get_keys SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/tlcd_4x20_2.asm0000755000175000001440000000416011725741461020620 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "definitions.asm" .equ lcd_rows = 4 ;rows on LCD .equ lcd_cols = 20 ;columns on LCD .equ lcd_colbyte = 0x80 ;color for dual display .equ lcd_dclocks = 35 ;dummy clocks = (27-cols) * 5 .equ lcd_ystart = 55 .equ lcd_yend = 128 .equ linesort = 4 .CSEG .org 0x7200 ; "...... N" start: .db "LC4*20P4BIT2N",0xb3,0xfe,0xa3 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp lcd_init ;FKT 01 init rjmp lcd_cls ;FKT 02 clear screen rjmp lcd_char ;FKT 03 output char rjmp lcd_gxy ;FKT 04 set cursor ret ;FKT 05 plot rjmp lcd_newl ;FKT 06 NL rjmp lcd_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; I/O expansion ;------------------------------------------------------------------------------- .include "io.asm" .include "routines.asm" .include "video_20.asm" lcd_ctable: .include "ctable.inc" SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/definitions.asm0000755000175000001440000000373511725741461021216 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ lcd_charmap = libmio_vram .equ lcd_sys = libmio_vram+192 .equ lcd_cgmap = libmio_vram+320 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+256 .equ lcd_enable = lcd_sys ;enable update .equ lcd_colcount = lcd_sys+1 ;col counter .equ lcd_rowcount = lcd_sys+2 ;row counter .equ lcd_datavalid = lcd_sys+3 ;no write .equ lcd_databyte = lcd_sys+4 ;data to write .equ lcd_linedoubler = lcd_sys+5 ;for TV line doubling .equ lcd_pixline = lcd_sys+6 ;pixline in char .equ lcd_cgptr = lcd_sys+8 ;CG counter .equ lcd_keys = lcd_sys+9 ;key state .equ lcd_cmap_l = lcd_sys+10 ;low address of charmap .equ lcd_cmap_h = lcd_sys+11 ;high address of charmap SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/io.asm0000755000175000001440000000654111725741461017310 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x08 ;I/O brne inex_100 inex_10: cpi XL,0x04 brne inex_12 lds XH,lcd_keys bst XH,4 inex_kin: clr XL bld XL,0 clr XH ret inex_12: cpi XL,0x05 brne inex_14 lds XH,lcd_keys bst XH,5 rjmp inex_kin inex_14: cpi XL,0x06 brne inex_16 lds XH,lcd_keys bst XH,6 rjmp inex_kin inex_16: cpi XL,0x07 brne inex_err lds XH,lcd_keys bst XH,7 rjmp inex_kin inex_100: cpi XH,0x0a ;CG RAM brne inex_err cpi XL,0x40 brcc inex_err mov r16,XL ldi XL,LOW(lcd_charset) ldi XH,HIGH(lcd_charset) add XL,r16 add XH,const_0 ld XL,X clr XH ret inex_err: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,8 brne outex_100 outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_50 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_80 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_80: rjmp outex_err outex_100: cpi YH,0x0a ;CG RAM brne outex_err cpi YL,0x40 brcc outex_err mov XH,YL ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) add YL,XH add YH,const_0 st Y,XL ret outex_err: ldi ereg,40 ;no IO driver ret get_keys: in XL,PORTA ;enable pull-up ori XL,0xf0 out PORTA,XL in XL,DDRA ;set D4-7 as input andi XL,0x0f out DDRA,XL nop nop ori XL,0xf0 in XH,PINA ;get state out DDRA,XL ;set D4-7 as output sts lcd_keys,XH ret SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/ctable.inc0000644000175000001440000002340011725741461020112 0ustar joergusers .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x04,0x04,0x04,0x00,0x00,0x04,0x00 .db 0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00 .db 0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00 .db 0x04,0x0f,0x14,0x0e,0x05,0x1e,0x04,0x00 .db 0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00 .db 0x0c,0x12,0x14,0x08,0x14,0x12,0x0d,0x00 .db 0x0c,0x04,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00 .db 0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00 .db 0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0c,0x04,0x08,0x00 .db 0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x0c,0x0c,0x00 .db 0x00,0x00,0x01,0x02,0x04,0x08,0x00,0x00 .db 0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00 .db 0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x08,0x1f,0x00 .db 0x1f,0x02,0x04,0x02,0x01,0x11,0x0e,0x00 .db 0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00 .db 0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00 .db 0x06,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00 .db 0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x02,0x0c,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x0c,0x00,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x04,0x08,0x00 .db 0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00 .db 0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00 .db 0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 .db 0x0e,0x11,0x01,0x0d,0x15,0x15,0x0e,0x00 .db 0x0e,0x11,0x11,0x11,0x1f,0x11,0x11,0x00 .db 0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00 .db 0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00 .db 0x1c,0x12,0x11,0x11,0x11,0x12,0x1c,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x10,0x17,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00 .db 0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x07,0x02,0x02,0x02,0x02,0x12,0x0c,0x00 .db 0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00 .db 0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00 .db 0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00 .db 0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00 .db 0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00 .db 0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00 .db 0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00 .db 0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x11,0x0a,0x0a,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x15,0x15,0x0e,0x00 .db 0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00 .db 0x11,0x11,0x11,0x0a,0x04,0x04,0x04,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00 .db 0x0e,0x08,0x08,0x08,0x08,0x08,0x0e,0x00 .db 0x11,0x0a,0x1f,0x04,0x1f,0x04,0x04,0x00 .db 0x0e,0x02,0x02,0x02,0x02,0x02,0x0e,0x00 .db 0x04,0x0a,0x11,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x08,0x04,0x02,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x10,0x10,0x1e,0x11,0x11,0x11,0x1e,0x00 .db 0x00,0x00,0x0e,0x10,0x10,0x11,0x0e,0x00 .db 0x01,0x01,0x0d,0x13,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0e,0x11,0x1f,0x10,0x0e,0x00 .db 0x06,0x09,0x08,0x1c,0x08,0x08,0x08,0x00 .db 0x00,0x0f,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x10,0x10,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x04,0x00,0x0c,0x04,0x04,0x04,0x0e,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x10,0x10,0x12,0x14,0x18,0x14,0x12,0x00 .db 0x0c,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x00,0x00,0x1a,0x15,0x15,0x11,0x11,0x00 .db 0x00,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x00,0x0d,0x13,0x0f,0x01,0x01,0x00 .db 0x00,0x00,0x16,0x19,0x10,0x10,0x10,0x00 .db 0x00,0x00,0x0e,0x10,0x0e,0x01,0x1e,0x00 .db 0x08,0x08,0x1c,0x08,0x08,0x09,0x06,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x0a,0x04,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x15,0x0a,0x00 .db 0x00,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x00,0x00,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x00,0x00,0x1f,0x02,0x04,0x08,0x1f,0x00 .db 0x02,0x04,0x04,0x08,0x04,0x04,0x02,0x00 .db 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x08,0x04,0x04,0x02,0x04,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x1f,0x02,0x04,0x00,0x00 .db 0x00,0x04,0x08,0x1f,0x08,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x1c,0x14,0x1c,0x00 .db 0x07,0x04,0x04,0x04,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x04,0x04,0x04,0x1c,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x00 .db 0x00,0x00,0x00,0x0c,0x0c,0x00,0x00,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x02,0x04,0x00 .db 0x00,0x00,0x1f,0x01,0x02,0x04,0x08,0x00 .db 0x00,0x00,0x02,0x04,0x0c,0x14,0x04,0x00 .db 0x00,0x04,0x1f,0x11,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x00,0x1f,0x04,0x04,0x1f,0x00 .db 0x00,0x00,0x02,0x1f,0x06,0x0a,0x12,0x00 .db 0x00,0x00,0x08,0x1f,0x09,0x0a,0x08,0x00 .db 0x00,0x00,0x00,0x0e,0x02,0x02,0x1f,0x00 .db 0x00,0x00,0x1e,0x02,0x1e,0x02,0x1e,0x00 .db 0x00,0x00,0x15,0x15,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x1f,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x01,0x05,0x06,0x04,0x04,0x08,0x00 .db 0x01,0x02,0x04,0x0c,0x14,0x04,0x04,0x00 .db 0x04,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x1f,0x04,0x04,0x04,0x04,0x1f,0x00 .db 0x02,0x1f,0x02,0x06,0x0a,0x12,0x02,0x00 .db 0x08,0x1f,0x09,0x09,0x09,0x09,0x12,0x00 .db 0x04,0x1f,0x04,0x1f,0x04,0x04,0x04,0x00 .db 0x00,0x0f,0x09,0x11,0x01,0x02,0x0c,0x00 .db 0x08,0x0f,0x12,0x02,0x02,0x02,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x01,0x1f,0x00 .db 0x0a,0x1f,0x0a,0x0a,0x02,0x04,0x08,0x00 .db 0x00,0x18,0x01,0x19,0x01,0x02,0x1c,0x00 .db 0x00,0x1f,0x01,0x02,0x04,0x0a,0x11,0x00 .db 0x08,0x1f,0x09,0x0a,0x08,0x08,0x07,0x00 .db 0x00,0x11,0x11,0x09,0x01,0x02,0x0c,0x00 .db 0x00,0x0f,0x09,0x05,0x03,0x02,0x0c,0x00 .db 0x02,0x1c,0x04,0x1f,0x04,0x04,0x08,0x00 .db 0x00,0x15,0x15,0x15,0x01,0x02,0x04,0x00 .db 0x0e,0x00,0x1f,0x04,0x04,0x04,0x08,0x00 .db 0x08,0x08,0x08,0x0c,0x0a,0x08,0x08,0x00 .db 0x04,0x04,0x1f,0x04,0x04,0x08,0x10,0x00 .db 0x00,0x0e,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x00,0x1f,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x04,0x1f,0x02,0x04,0x0e,0x15,0x04,0x00 .db 0x02,0x02,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x11,0x11,0x11,0x11,0x00 .db 0x10,0x10,0x1f,0x10,0x10,0x10,0x0f,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x02,0x0c,0x00 .db 0x00,0x08,0x14,0x02,0x01,0x01,0x00,0x00 .db 0x04,0x1f,0x04,0x04,0x15,0x15,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x0a,0x04,0x02,0x00 .db 0x00,0x0e,0x00,0x0e,0x00,0x0e,0x01,0x00 .db 0x00,0x04,0x08,0x10,0x11,0x1f,0x01,0x00 .db 0x00,0x01,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x00,0x1f,0x08,0x1f,0x08,0x08,0x07,0x00 .db 0x08,0x08,0x1f,0x09,0x0a,0x08,0x08,0x00 .db 0x00,0x0e,0x02,0x02,0x02,0x02,0x1f,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x01,0x1f,0x00 .db 0x0e,0x00,0x1f,0x01,0x01,0x02,0x04,0x00 .db 0x12,0x12,0x12,0x12,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x14,0x14,0x15,0x15,0x16,0x00 .db 0x00,0x10,0x10,0x11,0x12,0x14,0x18,0x00 .db 0x00,0x1f,0x11,0x11,0x11,0x1f,0x00,0x00 .db 0x00,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x18,0x00,0x01,0x01,0x02,0x1c,0x00 .db 0x04,0x12,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x1c,0x14,0x1c,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x09,0x15,0x12,0x12,0x0d,0x00,0x00 .db 0x0a,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x0e,0x11,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x0e,0x10,0x0c,0x11,0x0e,0x00,0x00 .db 0x11,0x11,0x11,0x13,0x1d,0x10,0x10,0x00 .db 0x00,0x0f,0x14,0x12,0x11,0x0e,0x00,0x00 .db 0x06,0x09,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x07,0x04,0x04,0x14,0x08,0x00,0x00 .db 0x00,0x02,0x1a,0x02,0x00,0x00,0x00,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x14,0x08,0x14,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x0e,0x14,0x15,0x0e,0x04,0x00,0x00 .db 0x08,0x1c,0x08,0x1c,0x08,0x08,0x0f,0x00 .db 0x0e,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x0a,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x16,0x19,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0d,0x13,0x11,0x1f,0x01,0x01,0x01,0x00 .db 0x00,0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0b,0x15,0x1a,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00 .db 0x0a,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x1f,0x10,0x08,0x04,0x08,0x10,0x1f,0x00 .db 0x00,0x00,0x1f,0x0a,0x0a,0x0a,0x13,0x00 .db 0x1f,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x11,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x01,0x1e,0x04,0x1f,0x04,0x04,0x00 .db 0x00,0x1f,0x08,0x0f,0x09,0x11,0x00,0x00 .db 0x00,0x1f,0x15,0x1f,0x11,0x11,0x00,0x00 .db 0x00,0x04,0x00,0x1f,0x00,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f SOURCE_142/SOURCE_vdriver/tlcd_4x20_2/routines.asm0000755000175000001440000001642411725741461020552 0ustar joergusers;################################################################################ ;# # ;# text LCD routines # ;# copyright (c) 2005-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd_init: sts lcd_enable,const_0 ;disable update sts lcd_colcount,const_0 ;col counter sts lcd_rowcount,const_0 ;row counter sts lcd_datavalid,const_0 ;no write sts lcd_databyte,const_0 ;data to write sts lcd_cgptr,const_0 ;CG counter brtc lcd_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_setup rcall lcd_ccopy rcall lcd_cls ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr sts lcd_cmap_l,ZL sts lcd_cmap_h,ZH sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL ret lcd_setup: ldi tempreg2,10 lcd_setup_1: api_sync dec tempreg2 brne lcd_setup_1 cbi PORTB,2 ;control ldi tempreg1, 0x03 ; muss 3mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync ldi tempreg1,0x02 ;muss 2mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync ldi tempreg1,0x28 ;function set rcall lcd_cout api_sync api_sync ldi tempreg1,0x0c ;display on rcall lcd_cout api_sync api_sync ldi tempreg1,0x04 ;no shift rcall lcd_cout api_sync ret ;------------------------------------------------------------------------------- ; copy chartable ;------------------------------------------------------------------------------- lcd_ccopy: ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) ;32 empty chars 0-31 ldi XL,0x40 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ldi XL,0xc0 lcd_ccopy_1a: st Y+,const_1 dec XL brne lcd_ccopy_1a ;96 chars 32-127 ldi XH,3 clr XL lcd_ccopy_2: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_2 ;32 empty chars 128-159 ldi XL,0 lcd_ccopy_3: st Y+,const_0 dec XL brne lcd_ccopy_3 ;96 chars 160-255 ldi XH,3 clr XL lcd_ccopy_4: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_4 ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd_gxy: cpi XL,lcd_cols brcs lcd_gxy_1 ldi XL,lcd_cols-1 lcd_gxy_1: cpi XH,lcd_rows brcs lcd_gxy_2 ldi XL,lcd_rows-1 lcd_gxy_2: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd_char_1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_char_1 ;no Y overflow clr XH lcd_char_1: movw libmio_cur_x,XL st Y,tempreg1 ;store char lcd_char2: api_popxyz lcd_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd_newl_1 ;no Y overflow clr XH lcd_newl_1: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------ ; clear screen ;------------------------------------------------------------------------------ lcd_cls: api_pushxyz ldi YL,LOW(libmio_vram) ;active VRAM ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+96) ;shadow VRAM ldi ZH,HIGH(libmio_vram+96) ldi XH,96 ldi XL,0x20 lcd_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) ldi ZL,lcd_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;maximum 96 bytes movw ZL,YL adiw ZL,48 ;visible status is addr+96 adiw ZL,48 ret ;------------------------------------------------------------------------------ ; calc address of (XL) charset byte ;------------------------------------------------------------------------------ lcd_ccalc: ldi YL,LOW(lcd_charset) ;CGRAM address, first byte ldi YH,HIGH(lcd_charset) add YL,XL adc YH,const_0 ;maximum 64 Bytes movw ZL,YL adiw ZL,32 ;visible status is addr+64 adiw ZL,32 ret ;------------------------------------------------------------------------------ ; calc LCD DD-RAM address of (XL:XH) char -> tempreg1 ;------------------------------------------------------------------------------ .if linesort == 1 lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret .endif .if linesort == 2 lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif .if linesort == 3 lcd_pcalc: clr tempreg1 sbrc XH,0 subi tempreg1,0xc0 ;+0x40 sbrc XH,1 subi tempreg1,0xec ;+0x14 add tempreg1,XL ret .endif .if linesort == 4 lcd_pcalc: ldi ZL,32 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif ;------------------------------------------------------------------------------- ; output character (tempreg1=char) ;------------------------------------------------------------------------------- lcd_dout: sbi PORTB,2 ;data rjmp lcd_cout_1 ;sendet ein Controlbyte an das LCD lcd_cout: cbi PORTB,2 ;control lcd_cout_1: swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 ret lcd_outbits: sbrc tempreg1,0 sbi PORTA,4 sbrs tempreg1,0 cbi PORTA,4 sbrc tempreg1,1 sbi PORTA,5 sbrs tempreg1,1 cbi PORTA,5 sbrc tempreg1,2 sbi PORTA,6 sbrs tempreg1,2 cbi PORTA,6 sbrc tempreg1,3 sbi PORTA,7 sbrs tempreg1,3 cbi PORTA,7 ret ;enable-pulse lcd_epulse: sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 nop nop nop ret SOURCE_142/SOURCE_vdriver/glcd_24x40/0000755000175000001440000000000011713042124015777 5ustar joergusersSOURCE_142/SOURCE_vdriver/glcd_24x40/glcd_24x40.asm0000755000175000001440000005136311725741461020303 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro vchar0 out PORTC,tempreg1 ;1 output pix 7 mov tempreg2,tempreg1 ;1 copy for pix 3 lsl tempreg1 ;1 prepare pix 6 out PORTC,tempreg1 ;1 output pix 6 lsl tempreg1 ;1 prepare pix 5 swap tempreg2 ;1 prepare pix 3 out PORTC,tempreg1 ;1 output pix 5 lsl tempreg1 ;1 prepare pix 4 out PORTC,tempreg1 ;1 output pix 4 ld ZL,X+ ;2 get next char out PORTC,tempreg2 ;1 output pix 3 lsl tempreg2 ;1 prepare pix 2 swap tempreg1 ;1 prepare pix 0 out PORTC,tempreg2 ;1 output pix 2 lsl tempreg2 ;1 prepare pix 1 bld ZL,7 ;1 set charset line out PORTC,tempreg2 ;1 output pix 1 ld tempreg2,Z ;2 get next pixline out PORTC,tempreg1 ;1 output pix 0 .endm .macro vchar1 out PORTC,tempreg2 ;1 output pix 7 mov tempreg1,tempreg2 ;1 copy for pix 3 lsl tempreg2 ;1 prepare pix 6 out PORTC,tempreg2 ;1 output pix 6 lsl tempreg2 ;1 prepare pix 5 swap tempreg1 ;1 prepare pix 3 out PORTC,tempreg2 ;1 output pix 5 lsl tempreg2 ;1 prepare pix 4 out PORTC,tempreg2 ;1 output pix 4 ld ZL,X+ ;2 get next char out PORTC,tempreg1 ;1 output pix 3 lsl tempreg1 ;1 prepare pix 2 swap tempreg2 ;1 prepare pix 0 out PORTC,tempreg1 ;1 output pix 2 lsl tempreg1 ;1 prepare pix 1 bld ZL,7 ;1 set charset line out PORTC,tempreg1 ;1 output pix 1 ld tempreg1,Z ;2 get next pixline out PORTC,tempreg2 ;1 output pix 0 .endm .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_ctable = 0x7b00 .equ lcd320_switch = libmio_vram+1100 .equ lcd320_cline = libmio_vram+1101 .equ lcd320_pline = libmio_vram+1102 .equ lcd320_rampos_l = libmio_vram+1103 .equ lcd320_rampos_h = libmio_vram+1104 .equ lcd320_smode = libmio_vram+1105 .equ lcd320_start = libmio_vram+1106 .CSEG .org 0x7200 ; "...... N" start: .db "NOXMEML24*40N",0x93,0xa9,0x00 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 startup rjmp vidmode_init ;FKT 01 init rjmp vidmode_clear ;FKT 02 clear screen rjmp vidmode_char ;FKT 03 output char rjmp vidmode_gxy ;FKT 04 set cursor rjmp vidmode_plot ;FKT 05 plot rjmp vidmode_newl ;FKT 06 NL rjmp vidmode_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- vidmode_gxy: movw libmio_cur_x,XL ret ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x09 brne inex_10 inex_01: cpi XL,0x00 brne inex_err lds XL,lcd320_switch clr XH ret inex_err: ldi ereg,40 ;no IO driver ret inex_10: cpi XH,0x0a brne inex_err mov r17,XL mov r16,XL swap r16 andi r17,0x0f ;pixline cpi r17,0x0a brcc inex_err ;is beyond 9 andi r16,0x0f ;char ldi XL,0x80 ;pixline offset mul XL,r17 ldi XH,0x07 ;start of table ldi XL,0x00 ;user chars add XL,r0 ;add pixline offset adc XH,r1 add XL,r16 ;add char offset adc XH,const_0 ld XL,X ;get pixline clr XH ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,9 brne outex_10 outex_02: cpi YL,0x00 brne outex_err api_sync sts lcd320_pline,const_0 ;2 init counters sts lcd320_cline,const_0 ;2 sts lcd320_start,const_0 ;2 startup counter sts lcd320_switch,XL ldi XL,LOW(libmio_vram) sts lcd320_rampos_l,XL ;store new RAM pos ldi XL,HIGH(libmio_vram) sts lcd320_rampos_h,XL ret outex_err: ldi ereg,40 ;no IO driver ret outex_10: cpi YH,0x0a brne inex_err mov r17,YL mov r16,YL swap r16 andi r17,0x0f ;pixline cpi r17,0x0a brcc outex_err ;is beyond 9 andi r16,0x0f ;char ldi YL,0x80 ;pixline offset mul YL,r17 ldi YH,0x07 ;start of table ldi YL,0x00 ;user chars add YL,r0 ;add pixline offset adc YH,r1 add YL,r16 ;add char offset adc YH,const_0 st Y,XL ;store pixline ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- vidmode_init: brtc vidmode_exit ;exit ldi XL,0 ;all zero out PORTA,XL ldi XL,0xff ;all output out DDRA,XL ldi XL,0 out PORTC,XL ldi XL,0x80 ;enable only green out DDRC,XL sbi PORTB,2 sbi DDRB,2 rcall vidmode_cset ;copy charset from PRG7 rcall vidmode_clear sts lcd320_switch,const_0 ;CRT ldi XL,50 sts libmio_clipx2,XL sts libmio_clipy2,XL ldi XL,0 ;visible lines (all) ret vidmode_exit: push XL ldi XL,0 ;enable all video outputs out PORTC,XL ldi XL,0xff ;all output out DDRA,XL ldi XL,0x10 out PORTA,XL ldi XL,0xf0 out DDRC,XL pop XL sbi PORTB,2 ;disable VEE ret ;------------------------------------------------------------------------------- ; copy charset from PRG7 ;------------------------------------------------------------------------------- vidmode_cset: api_pushxyz lsl ZH,prg_font lsl ZH inc ZH ldi ZL,0 ldi YH,0x07 ldi YL,0x00 ldi XH,10 ;10 lines vidmode_cset_1: ldi XL,128 ;chars per set vidmode_cset_2: lpm r0,Z+ st Y+,r0 dec XL brne vidmode_cset_2 adiw ZL,32 ;skip next 128 chars adiw ZL,32 adiw ZL,32 adiw ZL,32 dec XH brne vidmode_cset_1 api_popxyz ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vidmode_clear: lds ZL,libmio_color clr ZH sbrs ZL,1 ldi ZH,0xff ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XH,LOW(24) ldi tempreg1,0x20 vidmode_clear1: ldi XL,5 vidmode_clear2: st Y+,ZH ;attr dec XL brne vidmode_clear2 ldi XL,40 vidmode_clear3: st Y+,tempreg1 ;chars dec XL brne vidmode_clear3 dec XH brne vidmode_clear1 vidmode_ret: ret vidmode_novid: set ;sync ret ;------------------------------------------------------------------------------- ; video output (24 lines a 40 chars) ;------------------------------------------------------------------------------- vidmode_vid: lds XL,lcd320_switch ;CRT/LCD sbrc XL,0 rjmp vidmode_lcd sbrc vline_h,0 rjmp vidmode_novid mov XL,vline_l cpi XL,241 brcc vidmode_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- vid_iss: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+83 ;1 brcs vid_iss ;1 loop vid_iss_01: cpi XL,libmio_hstart+84 brcs vid_iss_02 vid_iss_02: cpi XL,libmio_hstart+85 brcs vid_iss_03 vid_iss_03: cpi XL,libmio_hstart+86 brcs vid_iss_03a vid_iss_03a: cpi XL,libmio_hstart+87 brcs vid_iss_04 vid_iss_04: lds XL,libmio_rampos_l lds XH,libmio_rampos_h ldi ZH,0x07 ;start of table lds ZL,libmio_cline bst ZL,0 lsr ZL add ZH,ZL ld YL,X+ ;get attributes ld YH,X+ ld tempreg3,X+ ld r0,X+ ld r1,X+ ld ZL,X+ ;get char 1 bld ZL,7 ;set bit 7 to cline lsb ld tempreg1,Z ;get pixline ;char 0..7 sbrc YL,0 com tempreg1 vchar0 sbrc YL,1 com tempreg2 vchar1 sbrc YL,2 com tempreg1 vchar0 sbrc YL,3 com tempreg2 vchar1 sbrc YL,4 com tempreg1 vchar0 sbrc YL,5 com tempreg2 vchar1 sbrc YL,6 com tempreg1 vchar0 sbrc YL,7 com tempreg2 vchar1 ;char 8..15 sbrc YH,0 com tempreg1 vchar0 sbrc YH,1 com tempreg2 vchar1 sbrc YH,2 com tempreg1 vchar0 sbrc YH,3 com tempreg2 vchar1 sbrc YH,4 com tempreg1 vchar0 sbrc YH,5 com tempreg2 vchar1 sbrc YH,6 com tempreg1 vchar0 sbrc YH,7 com tempreg2 vchar1 ;char 16..23 sbrc tempreg3,0 com tempreg1 vchar0 sbrc tempreg3,1 com tempreg2 vchar1 sbrc tempreg3,2 com tempreg1 vchar0 sbrc tempreg3,3 com tempreg2 vchar1 sbrc tempreg3,4 com tempreg1 vchar0 sbrc tempreg3,5 com tempreg2 vchar1 sbrc tempreg3,6 com tempreg1 vchar0 sbrc tempreg3,7 com tempreg2 vchar1 ;char 24..31 sbrc r0,0 com tempreg1 vchar0 sbrc r0,1 com tempreg2 vchar1 sbrc r0,2 com tempreg1 vchar0 sbrc r0,3 com tempreg2 vchar1 sbrc r0,4 com tempreg1 vchar0 sbrc r0,5 com tempreg2 vchar1 sbrc r0,6 com tempreg1 vchar0 sbrc r0,7 com tempreg2 vchar1 ;char 32..39 sbrc r1,0 com tempreg1 vchar0 sbrc r1,1 com tempreg2 vchar1 sbrc r1,2 com tempreg1 vchar0 sbrc r1,3 com tempreg2 vchar1 sbrc r1,4 com tempreg1 vchar0 sbrc r1,5 com tempreg2 vchar1 sbrc r1,6 com tempreg1 vchar0 sbrc r1,7 com tempreg2 vchar1 lds tempreg3,libmio_border out PORTC,tempreg3 ld ZL,-X lds ZL,libmio_cline inc ZL cpi ZL,10 brne vidmode_vid1 clr ZL sts libmio_rampos_l,XL sts libmio_rampos_h,XH vidmode_vid1: sts libmio_cline,ZL sbi PORTB,2 ;disable VEE clt ret ;no sync ;------------------------------------------------------------------------------- ; LCD output ;------------------------------------------------------------------------------- vidmode_lcd: push tempreg4 push r16 ldi tempreg4,0x80 lds XL,lcd320_rampos_l ;RAM pointer lds XH,lcd320_rampos_h ldi ZH,0x07 ;start of charset lds ZL,lcd320_pline ;recent pixline bst ZL,0 ;LSB of cline -> T lsr ZL add ZH,ZL ;get attribute bytes ld YL,X+ ;char 0..7 ld YH,X+ ld tempreg3,X+ ld r0,X+ ld r1,X+ ;char 0..7 lcd320_int_2: ldi r16,8 ;1 chars per block lcd320_bk0: ld ZL,X+ ;2 get char bld ZL,7 ;1 set bit 7 to cline lsb ld tempreg1,Z ;2 get pixline lsr YL ;1 attr bit brcc lcd320_bk0_1 ;1 com tempreg1 ;1 lcd320_bk0_1: mov ZL,tempreg1 ;1 copy value swap ZL ;1 andi ZL,0x0f ;1 out PORTA,ZL ;1 first nibble out PINA,tempreg4 ;1 CP andi tempreg1,0x0f ;1 out PINA,tempreg4 ;1 /CP out PORTA,tempreg1 ;1 second nibble out PINA,tempreg4 ;1 CP dec r16 ;1 loop counter out PINA,tempreg4 ;1 /CP brne lcd320_bk0 ;2 loop ;char 8..15 ldi r16,8 ;1 chars per block lcd320_bk1: ld ZL,X+ ;2 get char bld ZL,7 ;1 set bit 7 to cline lsb ld tempreg1,Z ;2 get pixline lsr YH ;1 attr bit brcc lcd320_bk1_1 ;1 com tempreg1 ;1 lcd320_bk1_1: mov ZL,tempreg1 ;1 copy value swap ZL ;1 andi ZL,0x0f ;1 out PORTA,ZL ;1 first nibble out PINA,tempreg4 ;1 CP andi tempreg1,0x0f ;1 out PINA,tempreg4 ;1 /CP out PORTA,tempreg1 ;1 second nibble out PINA,tempreg4 ;1 CP dec r16 ;1 loop counter out PINA,tempreg4 ;1 /CP brne lcd320_bk1 ;char 16..23 ldi r16,8 ;1 chars per block lcd320_bk2: ld ZL,X+ ;2 get char bld ZL,7 ;1 set bit 7 to cline lsb ld tempreg1,Z ;2 get pixline lsr tempreg3 ;1 attr bit brcc lcd320_bk2_1 ;1 com tempreg1 ;1 lcd320_bk2_1: mov ZL,tempreg1 ;1 copy value swap ZL ;1 andi ZL,0x0f ;1 out PORTA,ZL ;1 first nibble out PINA,tempreg4 ;1 CP andi tempreg1,0x0f ;1 out PINA,tempreg4 ;1 /CP out PORTA,tempreg1 ;1 second nibble out PINA,tempreg4 ;1 CP dec r16 ;1 loop counter out PINA,tempreg4 ;1 /CP brne lcd320_bk2 ;char 24..31 ldi r16,8 ;1 chars per block lcd320_bk3: ld ZL,X+ ;2 get char bld ZL,7 ;1 set bit 7 to cline lsb ld tempreg1,Z ;2 get pixline lsr r0 ;1 attr bit brcc lcd320_bk3_1 ;1 com tempreg1 ;1 lcd320_bk3_1: mov ZL,tempreg1 ;1 copy value swap ZL ;1 andi ZL,0x0f ;1 out PORTA,ZL ;1 first nibble out PINA,tempreg4 ;1 CP andi tempreg1,0x0f ;1 out PINA,tempreg4 ;1 /CP out PORTA,tempreg1 ;1 second nibble out PINA,tempreg4 ;1 CP dec r16 ;1 loop counter out PINA,tempreg4 ;1 /CP brne lcd320_bk3 ;char 32..39 ldi r16,8 ;1 chars per block lcd320_bk4: ld ZL,X+ ;2 get char bld ZL,7 ;1 set bit 7 to cline lsb ld tempreg1,Z ;2 get pixline lsr r1 ;1 attr bit brcc lcd320_bk4_1 ;1 com tempreg1 ;1 lcd320_bk4_1: mov ZL,tempreg1 ;1 copy value swap ZL ;1 andi ZL,0x0f ;1 out PORTA,ZL ;1 first nibble out PINA,tempreg4 ;1 CP andi tempreg1,0x0f ;1 out PINA,tempreg4 ;1 /CP out PORTA,tempreg1 ;1 second nibble out PINA,tempreg4 ;1 CP dec r16 ;1 loop counter out PINA,tempreg4 ;1 /CP brne lcd320_bk4 lcd320_int_x: pop r16 pop tempreg4 lds tempreg1,lcd320_pline ;2 pixel line lds tempreg2,lcd320_cline ;2 character line ; rjmp lcd320_int_te ;debug mov tempreg3,tempreg1 ;check for first for FLM or tempreg3,tempreg2 brne lcd320_int_4 sbi PORTA,5 ;FLM lcd320_int_4: sbi PORTA,6 ;LD cbi PORTA,6 cbi PORTA,5 ;set counters to next pixline inc tempreg1 ;1 pline +1 cpi tempreg1,10 ;1 max brcs lcd320_int_10 ;1/2 clr tempreg1 ;1 pixline=0 inc tempreg2 ;1 cline + 1 cpi tempreg2,24 ;1 brcs lcd320_int_08 ;1/2 clr tempreg2 ;1 ldi XL,LOW(libmio_vram) ;set ptr to start ldi XH,HIGH(libmio_vram) cbi PORTB,2 ;enable VEE lcd320_int_08: sts lcd320_rampos_l,XL ;store new RAM pos sts lcd320_rampos_h,XH lcd320_int_10: sts lcd320_pline,tempreg1 ;2 new counters sts lcd320_cline,tempreg2 ;2 lcd320_int_te: ldi YL,LOW(libmio_ram) ldi YH,HIGH(libmio_ram) lds ZL,libmio_config sbrc vline_h,0 rjmp lcd320_sync mov XL,vline_l cpi XL,240 brcc lcd320_sync clt ;disable sync ret lcd320_sync: set ;enable sync ret ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- vidmode_plot: api_pushregs push libmio_cur_x push libmio_cur_y cpi XL,80 ;max X +1 brcc plot_os ;off screen cpi XH,48 ;max Y +1 brcc plot_os ;off screen plot_0: ldi tempreg2,1 ;bit left top sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 movw libmio_cur_x,XL ;this position lds YH,libmio_color sbrs YH,1 rjmp plot_r rcall rdata ;get data or tempreg1,tempreg2 ;set pix plot_e: rcall wdata plot_os: pop libmio_cur_y pop libmio_cur_x api_popregs plot_r: rcall rdata com tempreg2 and tempreg1,tempreg2 ;clear pix rjmp plot_e ;------------------------------------------------------------------------------- ; output a single char ;------------------------------------------------------------------------------- vidmode_newl: api_pushxyz movw XL,libmio_cur_x rjmp libmio_chr_nl vidmode_char: api_pushxyz movw XL,libmio_cur_x sbrc ctrl,6 rjmp bigchar cpi XL,40 brcc vidmode_chr_os ;out of screen cpi XH,24 brcc vidmode_chr_os ;out of screen lds YL,libmio_color com YL bst YL,1 rcall wdata_1 ;move cursor libmio_chr_m: movw XL,libmio_cur_x inc XL cpi XL,40 brcs vidmode_chr_m1 libmio_chr_nl: clr XL inc XH cpi XH,24 brcs vidmode_chr_m1 lds ZL,libmio_config ;scrollmode sbrs ZL,7 rjmp lcd320_scroll clr XH ;WRAP vidmode_chr_m1: movw libmio_cur_x,XL vidmode_chr_os: api_popxyz lcd320_scroll: rcall scroll_up ldi XL,0 ldi XH,23 rjmp vidmode_chr_m1 ;------------------------------------------------------------------------------- ; scroll up ;------------------------------------------------------------------------------- scroll_up: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+45) ldi ZH,HIGH(libmio_vram+45) ldi XH,23 scroll0: ldi XL,45 scroll1: ld r0,Z+ st Y+,r0 dec XL brne scroll1 dec XH brne scroll0 lds ZL,libmio_color clr ZH sbrs ZL,1 ldi ZH,0xff ldi XL,5 scroll2: st Y+,ZH dec XL brne scroll2 ldi XH,0x20 ;space ldi XL,40 scroll3: st Y+,XH dec XL brne scroll3 ret bigchar_no: api_popxyz ;no print bigchar: brts bigchar_no ;NL ist not supported cpi XL,77 brcc bigchar_no cpi XH,43 brcc bigchar_no push tempreg5 ;byte 1 push tempreg6 ;byte 2 push tempreg7 ;byte 3 push tempreg8 ;for stroring T-bit bld tempreg8,0 ;store T push tempreg2 ;temp value push tempreg4 bigchar_0: mov ZL,tempreg1 ;char ldi ZH,HIGH(libmio_ctable*2) ;start char ROM ldi tempreg4,5 ;10 char lines bigchar_1: clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,0 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,1 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,0 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,1 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,0 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,1 inc ZH ;next line clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,2 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,3 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,2 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,3 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,2 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,3 inc ZH bigchar_d: push ZH push ZL lds tempreg2,libmio_color movw XL,libmio_cur_x mov tempreg1,tempreg5 ;char1 sbrs tempreg2,1 com tempreg1 rcall wdata inc XL mov tempreg1,tempreg6 ;char2 sbrs tempreg2,1 com tempreg1 rcall wdata inc XL mov tempreg1,tempreg7 ;char2 sbrs tempreg2,1 com tempreg1 rcall wdata subi XL,2 inc XH movw libmio_cur_x,XL pop ZL pop ZH dec tempreg4 brne bigchar_1x subi XL,0xfd subi XH,0x05 movw libmio_cur_x,XL bigchar_e: pop tempreg4 pop tempreg2 bst tempreg8,0 ;restore T pop tempreg8 pop tempreg7 pop tempreg6 pop tempreg5 rjmp bigchar_no bigchar_1x: rjmp bigchar_1 ;------------------------------------------------------------------------------- ;char schreiben mit attr ;wdata for plot etc. ;wdata_1 - T=invert flag ;------------------------------------------------------------------------------- wdata: bst tempreg1,3 ;the inv bit sbrc tempreg1,3 com tempreg1 andi tempreg1,0x07 ori tempreg1,0x10 wdata_1: ldi YL,LOW(libmio_vram+5) ldi YH,HIGH(libmio_vram+5) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos st Y,tempreg1 ;store char ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 mov ZL,XL lsr ZL lsr ZL lsr ZL add YL,ZL ;byte offset adc YH,const_0 ;Y is now attr pos ld tempreg1,Y ;get attr byte mov ZL,XL andi ZL,0x07 ldi ZH,0x01 ;mask for char 0 wdata_2: subi ZL,1 brcs wdata_3 lsl ZH rjmp wdata_2 wdata_3: brtc wdata_4 or tempreg1,ZH st Y,tempreg1 ret wdata_4: com ZH and tempreg1,ZH st Y,tempreg1 ret ;------------------------------------------------------------------------------- ;plot-char lesen mit ;rdata for plot etc. ;XH:XL = coords, tempreg1=char ;------------------------------------------------------------------------------- rdata: ldi YL,LOW(libmio_vram+5) ldi YH,HIGH(libmio_vram+5) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos ld tempreg1,Y ;get char ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 mov ZL,XL lsr ZL lsr ZL lsr ZL add YL,ZL ;byte offset adc YH,const_0 ;Y is now attr pos ld YL,Y ;get attr byte mov ZL,XL andi ZL,0x07 rdata_1: cpi ZL,0 breq rdata_2 lsr YL dec ZL rjmp rdata_1 rdata_2: sbrc YL,0 com tempreg1 bst YL,0 andi tempreg1,0x07 ;mask bits bld tempreg1,3 ret SOURCE_142/SOURCE_vdriver/mono_24x40/0000755000175000001440000000000011713042124016036 5ustar joergusersSOURCE_142/SOURCE_vdriver/mono_24x40/mono_24x40.asm0000755000175000001440000003756411725741461020410 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro vchar0 out PORTC,tempreg1 ;1 output pix 7 mov tempreg2,tempreg1 ;1 copy for pix 3 lsl tempreg1 ;1 prepare pix 6 out PORTC,tempreg1 ;1 output pix 6 lsl tempreg1 ;1 prepare pix 5 swap tempreg2 ;1 prepare pix 3 out PORTC,tempreg1 ;1 output pix 5 lsl tempreg1 ;1 prepare pix 4 out PORTC,tempreg1 ;1 output pix 4 ld ZL,X+ ;2 get next char out PORTC,tempreg2 ;1 output pix 3 lsl tempreg2 ;1 prepare pix 2 swap tempreg1 ;1 prepare pix 0 out PORTC,tempreg2 ;1 output pix 2 lsl tempreg2 ;1 prepare pix 1 bld ZL,7 ;1 set charset line out PORTC,tempreg2 ;1 output pix 1 ld tempreg2,Z ;2 get next pixline out PORTC,tempreg1 ;1 output pix 0 .endm .macro vchar1 out PORTC,tempreg2 ;1 output pix 7 mov tempreg1,tempreg2 ;1 copy for pix 3 lsl tempreg2 ;1 prepare pix 6 out PORTC,tempreg2 ;1 output pix 6 lsl tempreg2 ;1 prepare pix 5 swap tempreg1 ;1 prepare pix 3 out PORTC,tempreg2 ;1 output pix 5 lsl tempreg2 ;1 prepare pix 4 out PORTC,tempreg2 ;1 output pix 4 ld ZL,X+ ;2 get next char out PORTC,tempreg1 ;1 output pix 3 lsl tempreg1 ;1 prepare pix 2 swap tempreg2 ;1 prepare pix 0 out PORTC,tempreg1 ;1 output pix 2 lsl tempreg1 ;1 prepare pix 1 bld ZL,7 ;1 set charset line out PORTC,tempreg1 ;1 output pix 1 ld tempreg1,Z ;2 get next pixline out PORTC,tempreg2 ;1 output pix 0 .endm .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_ctable = 0x7b00 .equ lcd320_cline = libmio_vram+1101 .equ lcd320_pline = libmio_vram+1102 .equ lcd320_rampos_l = libmio_vram+1103 .equ lcd320_rampos_h = libmio_vram+1104 .CSEG .org 0x7200 ; "...... N" start: .db "M24*40 N",0xf3,0xfe,0x80 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 rjmp vidmode_init ;FKT 01 init rjmp vidmode_clear ;FKT 02 clear screen rjmp vidmode_char ;FKT 03 output char rjmp vidmode_gxy ;FKT 04 set cursor rjmp plot ;FKT 05 plot rjmp vidmode_newl ;FKT 06 NL rjmp vidmode_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- vidmode_gxy: movw libmio_cur_x,XL ret ;------------------------------------------------------------------------------- ; plot a pixel ;------------------------------------------------------------------------------- vidmode_plot: ret ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x09 brne inex_10 inex_err: ldi ereg,40 ;no IO driver ret inex_10: cpi XH,0x0a brne inex_err mov r17,XL mov r16,XL swap r16 andi r17,0x0f ;pixline cpi r17,0x0a brcc inex_err ;is beyond 9 andi r16,0x0f ;char ldi XL,0x80 ;pixline offset mul XL,r17 ldi XH,0x07 ;start of table ldi XL,0x00 ;user chars add XL,r0 ;add pixline offset adc XH,r1 add XL,r16 ;add char offset adc XH,const_0 ld XL,X ;get pixline clr XH ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,9 brne outex_10 outex_err: ldi ereg,40 ;no IO driver ret outex_10: cpi YH,0x0a brne inex_err mov r17,YL mov r16,YL swap r16 andi r17,0x0f ;pixline cpi r17,0x0a brcc outex_err ;is beyond 9 andi r16,0x0f ;char ldi YL,0x80 ;pixline offset mul YL,r17 ldi YH,0x07 ;start of table ldi YL,0x00 ;user chars add YL,r0 ;add pixline offset adc YH,r1 add YL,r16 ;add char offset adc YH,const_0 st Y,XL ;store pixline ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- vidmode_init: brtc vidmode_exit ;exit ldi XL,0 out PORTC,XL ldi XL,0x80 ;enable only green out DDRC,XL rcall vidmode_cset ;copy charset from PRG7 rcall vidmode_clear ldi XL,80 sts libmio_clipx2,XL ldi XL,48 sts libmio_clipy2,XL ldi XL,0 ;force ext mode ret vidmode_exit: push XL ldi XL,0 ;enable all video outputs out PORTC,XL ldi XL,0xf0 out DDRC,XL pop XL ret ;------------------------------------------------------------------------------- ; copy charset from PRG7 ;------------------------------------------------------------------------------- vidmode_cset: api_pushxyz lds ZH,prg_font lsl ZH inc ZH ldi ZL,0 ldi YH,0x07 ldi YL,0x00 ldi XH,10 ;10 lines vidmode_cset_1: ldi XL,128 ;chars per set vidmode_cset_2: lpm r0,Z+ st Y+,r0 dec XL brne vidmode_cset_2 adiw ZL,32 ;skip next 128 chars adiw ZL,32 adiw ZL,32 adiw ZL,32 dec XH brne vidmode_cset_1 api_popxyz ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vidmode_clear: lds ZL,libmio_color clr ZH sbrs ZL,1 ldi ZH,0xff ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XH,LOW(24) ldi tempreg1,0x20 vidmode_clear1: ldi XL,5 vidmode_clear2: st Y+,ZH ;attr dec XL brne vidmode_clear2 ldi XL,40 vidmode_clear3: st Y+,tempreg1 ;chars dec XL brne vidmode_clear3 dec XH brne vidmode_clear1 vidmode_ret: ret vidmode_novid: set ret ;------------------------------------------------------------------------------- ; video output (24 lines a 40 chars) ;------------------------------------------------------------------------------- vidmode_vid: sbrc vline_h,0 rjmp vidmode_novid mov XL,vline_l cpi XL,241 brcc vidmode_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- vid_iss: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+83 ;1 brcs vid_iss ;1 loop vid_iss_01: cpi XL,libmio_hstart+84 brcs vid_iss_02 vid_iss_02: cpi XL,libmio_hstart+85 brcs vid_iss_03 vid_iss_03: cpi XL,libmio_hstart+86 brcs vid_iss_03a vid_iss_03a: cpi XL,libmio_hstart+87 brcs vid_iss_04 vid_iss_04: lds XL,libmio_rampos_l lds XH,libmio_rampos_h ldi ZH,0x07 ;start of table lds ZL,libmio_cline bst ZL,0 lsr ZL add ZH,ZL ld YL,X+ ;get attributes ld YH,X+ ld tempreg3,X+ ld r0,X+ ld r1,X+ ld ZL,X+ ;get char 1 bld ZL,7 ;set bit 7 to cline lsb ld tempreg1,Z ;get pixline ;char 0..7 sbrc YL,0 com tempreg1 vchar0 sbrc YL,1 com tempreg2 vchar1 sbrc YL,2 com tempreg1 vchar0 sbrc YL,3 com tempreg2 vchar1 sbrc YL,4 com tempreg1 vchar0 sbrc YL,5 com tempreg2 vchar1 sbrc YL,6 com tempreg1 vchar0 sbrc YL,7 com tempreg2 vchar1 ;char 8..15 sbrc YH,0 com tempreg1 vchar0 sbrc YH,1 com tempreg2 vchar1 sbrc YH,2 com tempreg1 vchar0 sbrc YH,3 com tempreg2 vchar1 sbrc YH,4 com tempreg1 vchar0 sbrc YH,5 com tempreg2 vchar1 sbrc YH,6 com tempreg1 vchar0 sbrc YH,7 com tempreg2 vchar1 ;char 16..23 sbrc tempreg3,0 com tempreg1 vchar0 sbrc tempreg3,1 com tempreg2 vchar1 sbrc tempreg3,2 com tempreg1 vchar0 sbrc tempreg3,3 com tempreg2 vchar1 sbrc tempreg3,4 com tempreg1 vchar0 sbrc tempreg3,5 com tempreg2 vchar1 sbrc tempreg3,6 com tempreg1 vchar0 sbrc tempreg3,7 com tempreg2 vchar1 ;char 24..31 sbrc r0,0 com tempreg1 vchar0 sbrc r0,1 com tempreg2 vchar1 sbrc r0,2 com tempreg1 vchar0 sbrc r0,3 com tempreg2 vchar1 sbrc r0,4 com tempreg1 vchar0 sbrc r0,5 com tempreg2 vchar1 sbrc r0,6 com tempreg1 vchar0 sbrc r0,7 com tempreg2 vchar1 ;char 32..39 sbrc r1,0 com tempreg1 vchar0 sbrc r1,1 com tempreg2 vchar1 sbrc r1,2 com tempreg1 vchar0 sbrc r1,3 com tempreg2 vchar1 sbrc r1,4 com tempreg1 vchar0 sbrc r1,5 com tempreg2 vchar1 sbrc r1,6 com tempreg1 vchar0 sbrc r1,7 com tempreg2 vchar1 lds tempreg3,libmio_border out PORTC,tempreg3 ld ZL,-X lds ZL,libmio_cline inc ZL cpi ZL,10 brne vidmode_vid1 clr ZL sts libmio_rampos_l,XL sts libmio_rampos_h,XH vidmode_vid1: sts libmio_cline,ZL clt ret ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- plot: api_pushregs push libmio_cur_x push libmio_cur_y cpi XL,80 ;max X +1 brcc plot_os ;off screen cpi XH,48 ;max Y +1 brcc plot_os ;off screen plot_0: ldi tempreg2,1 ;bit left top sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 movw libmio_cur_x,XL ;this position lds YH,libmio_color sbrs YH,1 rjmp plot_r rcall rdata ;get data or tempreg1,tempreg2 ;set pix plot_e: rcall wdata plot_os: pop libmio_cur_y pop libmio_cur_x api_popregs plot_r: rcall rdata com tempreg2 and tempreg1,tempreg2 ;clear pix rjmp plot_e ;------------------------------------------------------------------------------- ; output a single char ;------------------------------------------------------------------------------- vidmode_newl: api_pushxyz in XL,SREG push XL movw XL,libmio_cur_x rjmp libmio_chr_nl vidmode_char: api_pushxyz in XL,SREG push XL movw XL,libmio_cur_x sbrc ctrl,6 rjmp bigchar cpi XL,40 brcc vidmode_chr_os ;out of screen cpi XH,24 brcc vidmode_chr_os ;out of screen lds YL,libmio_color com YL bst YL,1 rcall wdata_1 ;move cursor libmio_chr_m: movw XL,libmio_cur_x inc XL cpi XL,40 brcs vidmode_chr_m1 libmio_chr_nl: clr XL inc XH cpi XH,24 brcs vidmode_chr_m1 lds ZL,libmio_config ;scrollmode sbrs ZL,7 rjmp lcd320_scroll clr XH ;WRAP vidmode_chr_m1: movw libmio_cur_x,XL vidmode_chr_os: pop XL out SREG,XL api_popxyz lcd320_scroll: rcall scroll_up ldi XL,0 ldi XH,23 rjmp vidmode_chr_m1 ;------------------------------------------------------------------------------- ; scroll up ;------------------------------------------------------------------------------- scroll_up: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+45) ldi ZH,HIGH(libmio_vram+45) ldi XH,23 scroll0: ldi XL,45 scroll1: ld r0,Z+ st Y+,r0 dec XL brne scroll1 dec XH brne scroll0 lds ZL,libmio_color clr ZH sbrs ZL,1 ldi ZH,0xff ldi XL,5 scroll2: st Y+,ZH dec XL brne scroll2 ldi XH,0x20 ;space ldi XL,40 scroll3: st Y+,XH dec XL brne scroll3 ret bigchar_no: api_popxyz ;no print bigchar: brts bigchar_no ;NL ist not supported cpi XL,77 brcc bigchar_no cpi XH,43 brcc bigchar_no push tempreg5 ;byte 1 push tempreg6 ;byte 2 push tempreg7 ;byte 3 push tempreg8 ;for stroring T-bit bld tempreg8,0 ;store T push tempreg2 ;temp value push tempreg4 bigchar_0: mov ZL,tempreg1 ;char ldi ZH,HIGH(libmio_ctable*2) ;start char ROM ldi tempreg4,5 ;10 char lines bigchar_1: clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,0 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,1 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,0 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,1 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,0 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,1 inc ZH ;next line clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,2 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,3 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,2 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,3 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,2 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,3 inc ZH bigchar_d: push ZH push ZL lds tempreg2,libmio_color movw XL,libmio_cur_x mov tempreg1,tempreg5 ;char1 sbrs tempreg2,1 com tempreg1 rcall wdata inc XL mov tempreg1,tempreg6 ;char2 sbrs tempreg2,1 com tempreg1 rcall wdata inc XL mov tempreg1,tempreg7 ;char2 sbrs tempreg2,1 com tempreg1 rcall wdata subi XL,2 inc XH movw libmio_cur_x,XL pop ZL pop ZH dec tempreg4 brne bigchar_1x subi XL,0xfd subi XH,0x05 movw libmio_cur_x,XL bigchar_e: pop tempreg4 pop tempreg2 bst tempreg8,0 ;restore T pop tempreg8 pop tempreg7 pop tempreg6 pop tempreg5 rjmp bigchar_no bigchar_1x: rjmp bigchar_1 ;------------------------------------------------------------------------------- ;char schreiben mit attr ;wdata for plot etc. ;wdata_1 - T=invert flag ;------------------------------------------------------------------------------- wdata: bst tempreg1,3 ;the inv bit sbrc tempreg1,3 com tempreg1 andi tempreg1,0x07 ori tempreg1,0x10 wdata_1: ldi YL,LOW(libmio_vram+5) ldi YH,HIGH(libmio_vram+5) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos st Y,tempreg1 ;store char ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 mov ZL,XL lsr ZL lsr ZL lsr ZL add YL,ZL ;byte offset adc YH,const_0 ;Y is now attr pos ld tempreg1,Y ;get attr byte mov ZL,XL andi ZL,0x07 ldi ZH,0x01 ;mask for char 0 wdata_2: subi ZL,1 brcs wdata_3 lsl ZH rjmp wdata_2 wdata_3: brtc wdata_4 or tempreg1,ZH st Y,tempreg1 ret wdata_4: com ZH and tempreg1,ZH st Y,tempreg1 ret ;------------------------------------------------------------------------------- ;plot-char lesen mit ;rdata for plot etc. ;XH:XL = coords, tempreg1=char ;------------------------------------------------------------------------------- rdata: ldi YL,LOW(libmio_vram+5) ldi YH,HIGH(libmio_vram+5) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos ld tempreg1,Y ;get char ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,45 mul ZL,XH add YL,r0 adc YH,r1 mov ZL,XL lsr ZL lsr ZL lsr ZL add YL,ZL ;byte offset adc YH,const_0 ;Y is now attr pos ld YL,Y ;get attr byte mov ZL,XL andi ZL,0x07 rdata_1: cpi ZL,0 breq rdata_2 lsr YL dec ZL rjmp rdata_1 rdata_2: sbrc YL,0 com tempreg1 bst YL,0 andi tempreg1,0x07 ;mask bits bld tempreg1,3 ret SOURCE_142/SOURCE_vdriver/charset_60z/0000755000175000001440000000000011713042124016355 5ustar joergusersSOURCE_142/SOURCE_vdriver/charset_60z/charset_60z.asm0000755000175000001440000000332111725741461021226 0ustar joergusers;################################################################################ ;# # ;# charset 8x10 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .CSEG .org 0x6c00 ; "...... N" start: .db " CSET 6x10uN",0xff,0xbf,0x42 ;icon def .db 0x06,0x01,0x06,0x01 .db 0x05,0x00,0x02,0x09 .db 0x02,0x01,0x02,0x01 .org 0x6c0e ret ;input ext ret ;output ext ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 .org 0x6d00 .include "ctable.inc"SOURCE_142/SOURCE_vdriver/charset_60z/ctable.inc0000644000175000001440000003460011725741461020322 0ustar joergusers .db 0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc .db 0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18,0x0c,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03 .db 0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7,0xf3,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc .db 0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18,0xf0,0x70,0x00,0x00,0x00 .db 0x00,0x20,0x50,0x50,0x20,0xc0,0x60,0x60,0x10,0x40,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x70,0x20,0x70,0xf8,0x10,0xf8,0x30,0xf8,0x70,0x70,0x00,0x00,0x10,0x00,0x40,0x70 .db 0x70,0x70,0xf0,0x70,0xf0,0xf8,0xf8,0x70,0x88,0x70,0x38,0x88,0x80,0x88,0x88,0x70 .db 0xf0,0x70,0xf0,0x70,0xf8,0x88,0x88,0x88,0x88,0x88,0xf8,0xe0,0x80,0xe0,0x20,0x00 .db 0x40,0x00,0x80,0x00,0x08,0x00,0x30,0x00,0x80,0x20,0x10,0x80,0x60,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x20,0x40,0x00,0x00 .db 0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03 .db 0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7,0x0f,0x8f,0xff,0xff,0xff .db 0xff,0xdf,0xaf,0xaf,0xdf,0x3f,0x9f,0x9f,0xef,0xbf,0xff,0xff,0xff,0xff,0xff,0xff .db 0x8f,0xdf,0x8f,0x07,0xef,0x07,0xcf,0x07,0x8f,0x8f,0xff,0xff,0xef,0xff,0xbf,0x8f .db 0x8f,0x8f,0x0f,0x8f,0x0f,0x07,0x07,0x8f,0x77,0x8f,0xc7,0x77,0x7f,0x77,0x77,0x8f .db 0x0f,0x8f,0x0f,0x8f,0x07,0x77,0x77,0x77,0x77,0x77,0x07,0x1f,0x7f,0x1f,0xdf,0xff .db 0xbf,0xff,0x7f,0xff,0xf7,0xff,0xcf,0xff,0x7f,0xdf,0xef,0x7f,0x9f,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xbf,0xff,0xff,0xff,0xff,0xff,0xff,0xef,0xdf,0xbf,0xff,0xff .db 0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc .db 0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18,0x0c,0x50,0x00,0x00,0x00 .db 0x00,0x20,0x50,0x50,0x78,0xc8,0x90,0x20,0x20,0x20,0x20,0x20,0x00,0x00,0x00,0x08 .db 0x88,0x60,0x88,0x10,0x30,0x80,0x40,0x88,0x88,0x88,0x60,0x60,0x20,0x00,0x20,0x88 .db 0x88,0x88,0x88,0x88,0x88,0x80,0x80,0x88,0x88,0x20,0x10,0x90,0x80,0xd8,0x88,0x88 .db 0x88,0x88,0x88,0x88,0x20,0x88,0x88,0x88,0x88,0x88,0x08,0x80,0x80,0x20,0x50,0x00 .db 0x20,0x00,0x80,0x00,0x08,0x00,0x48,0x00,0x80,0x00,0x00,0x80,0x20,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x20,0x20,0x00,0x20 .db 0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03 .db 0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7,0xf3,0xaf,0xff,0xff,0xff .db 0xff,0xdf,0xaf,0xaf,0x87,0x37,0x6f,0xdf,0xdf,0xdf,0xdf,0xdf,0xff,0xff,0xff,0xf7 .db 0x77,0x9f,0x77,0xef,0xcf,0x7f,0xbf,0x77,0x77,0x77,0x9f,0x9f,0xdf,0xff,0xdf,0x77 .db 0x77,0x77,0x77,0x77,0x77,0x7f,0x7f,0x77,0x77,0xdf,0xef,0x6f,0x7f,0x27,0x77,0x77 .db 0x77,0x77,0x77,0x77,0xdf,0x77,0x77,0x77,0x77,0x77,0xf7,0x7f,0x7f,0xdf,0xaf,0xff .db 0xdf,0xff,0x7f,0xff,0xf7,0xff,0xb7,0xff,0x7f,0xff,0xff,0x7f,0xdf,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xbf,0xff,0xff,0xff,0xff,0xff,0xff,0xdf,0xdf,0xdf,0xff,0xdf .db 0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc .db 0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18,0xf0,0x70,0x20,0x88,0x70 .db 0x00,0x20,0x50,0xf8,0xa0,0x10,0xa0,0x40,0x40,0x10,0xa8,0x20,0x00,0x00,0x00,0x10 .db 0x98,0x20,0x08,0x20,0x50,0xf0,0x80,0x10,0x88,0x88,0x60,0x60,0x40,0xf8,0x10,0x08 .db 0x08,0x88,0x88,0x80,0x88,0x80,0x80,0x80,0x88,0x20,0x10,0xa0,0x80,0xa8,0xc8,0x88 .db 0x88,0x88,0x88,0x80,0x20,0x88,0x88,0x88,0x50,0x88,0x10,0x80,0x40,0x20,0x88,0x00 .db 0x10,0x70,0xf0,0x70,0x68,0x70,0x40,0x78,0xb0,0x60,0x30,0x90,0x20,0xd0,0xb0,0x70 .db 0xe0,0x70,0xb0,0x70,0xe0,0x88,0x88,0x88,0x88,0x88,0xf8,0x20,0x20,0x20,0x40,0x10 .db 0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03 .db 0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7,0x0f,0x8f,0xdf,0x77,0x8f .db 0xff,0xdf,0xaf,0x07,0x5f,0xef,0x5f,0xbf,0xbf,0xef,0x57,0xdf,0xff,0xff,0xff,0xef .db 0x67,0xdf,0xf7,0xdf,0xaf,0x0f,0x7f,0xef,0x77,0x77,0x9f,0x9f,0xbf,0x07,0xef,0xf7 .db 0xf7,0x77,0x77,0x7f,0x77,0x7f,0x7f,0x7f,0x77,0xdf,0xef,0x5f,0x7f,0x57,0x37,0x77 .db 0x77,0x77,0x77,0x7f,0xdf,0x77,0x77,0x77,0xaf,0x77,0xef,0x7f,0xbf,0xdf,0x77,0xff .db 0xef,0x8f,0x0f,0x8f,0x97,0x8f,0xbf,0x87,0x4f,0x9f,0xcf,0x6f,0xdf,0x2f,0x4f,0x8f .db 0x1f,0x8f,0x4f,0x8f,0x1f,0x77,0x77,0x77,0x77,0x77,0x07,0xdf,0xdf,0xdf,0xbf,0xef .db 0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc,0x00,0xf0,0x0c,0xfc .db 0x18,0xfc,0x1c,0xf8,0x1c,0xf8,0xfc,0xfc,0x1c,0xf8,0xfc,0x0c,0x00,0x50,0x88,0x88 .db 0x00,0x20,0x00,0x50,0x70,0x20,0x40,0x00,0x40,0x10,0x70,0xf8,0x00,0xf8,0x00,0x20 .db 0xa8,0x20,0x10,0x10,0x90,0x08,0xf0,0x20,0x70,0x78,0x00,0x00,0x80,0x00,0x08,0x10 .db 0x68,0x88,0xf0,0x80,0x88,0xf0,0xf0,0xb8,0xf8,0x20,0x10,0xc0,0x80,0xa8,0xa8,0x88 .db 0xf0,0x88,0xf0,0x70,0x20,0x88,0x88,0x88,0x20,0x50,0x20,0x80,0x20,0x20,0x00,0x00 .db 0x00,0x08,0x88,0x80,0x98,0x88,0xe0,0x88,0xc8,0x20,0x10,0xa0,0x20,0xa8,0xc8,0x88 .db 0x90,0x90,0xc8,0x80,0x40,0x88,0x88,0x88,0x50,0x88,0x10,0x40,0x20,0x10,0xa8,0xf8 .db 0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03,0xff,0x0f,0xf3,0x03 .db 0xe7,0x03,0xe3,0x07,0xe3,0x07,0x03,0x03,0xe3,0x07,0x03,0xf3,0xff,0xaf,0x77,0x77 .db 0xff,0xdf,0xff,0xaf,0x8f,0xdf,0xbf,0xff,0xbf,0xef,0x8f,0x07,0xff,0x07,0xff,0xdf .db 0x57,0xdf,0xef,0xef,0x6f,0xf7,0x0f,0xdf,0x8f,0x87,0xff,0xff,0x7f,0xff,0xf7,0xef .db 0x97,0x77,0x0f,0x7f,0x77,0x0f,0x0f,0x47,0x07,0xdf,0xef,0x3f,0x7f,0x57,0x57,0x77 .db 0x0f,0x77,0x0f,0x8f,0xdf,0x77,0x77,0x77,0xdf,0xaf,0xdf,0x7f,0xdf,0xdf,0xff,0xff .db 0xff,0xf7,0x77,0x7f,0x67,0x77,0x1f,0x77,0x37,0xdf,0xef,0x5f,0xdf,0x57,0x37,0x77 .db 0x6f,0x6f,0x37,0x7f,0xbf,0x77,0x77,0x77,0xaf,0x77,0xef,0xbf,0xdf,0xef,0x57,0x07 .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x0c,0x0c,0x0c,0x0c,0xfc,0xfc,0xfc,0xfc .db 0x18,0xfc,0x1c,0xf8,0x1c,0xf8,0xfc,0xfc,0x1c,0xf8,0xfc,0xf0,0x00,0xf8,0x88,0x88 .db 0x00,0x20,0x00,0xf8,0x28,0x40,0xa0,0x00,0x40,0x10,0xa8,0x20,0x60,0x00,0x00,0x40 .db 0xc8,0x20,0x20,0x08,0xf8,0x08,0x88,0x20,0x88,0x08,0x60,0x60,0x40,0xf8,0x10,0x20 .db 0xa8,0xf8,0x88,0x80,0x88,0x80,0x80,0x88,0x88,0x20,0x10,0xa0,0x80,0x88,0x98,0x88 .db 0x80,0xa8,0xa0,0x08,0x20,0x88,0x50,0xa8,0x50,0x20,0x40,0x80,0x10,0x20,0x00,0x00 .db 0x00,0x78,0x88,0x80,0x88,0xf8,0x40,0x88,0x88,0x20,0x10,0xc0,0x20,0xa8,0x88,0x88 .db 0x90,0x90,0x80,0x70,0x40,0x88,0x88,0x88,0x20,0x68,0x20,0x20,0x20,0x20,0x10,0x10 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xf3,0xf3,0xf3,0xf3,0x03,0x03,0x03,0x03 .db 0xe7,0x03,0xe3,0x07,0xe3,0x07,0x03,0x03,0xe3,0x07,0x03,0x0f,0xff,0x07,0x77,0x77 .db 0xff,0xdf,0xff,0x07,0xd7,0xbf,0x5f,0xff,0xbf,0xef,0x57,0xdf,0x9f,0xff,0xff,0xbf .db 0x37,0xdf,0xdf,0xf7,0x07,0xf7,0x77,0xdf,0x77,0xf7,0x9f,0x9f,0xbf,0x07,0xef,0xdf .db 0x57,0x07,0x77,0x7f,0x77,0x7f,0x7f,0x77,0x77,0xdf,0xef,0x5f,0x7f,0x77,0x67,0x77 .db 0x7f,0x57,0x5f,0xf7,0xdf,0x77,0xaf,0x57,0xaf,0xdf,0xbf,0x7f,0xef,0xdf,0xff,0xff .db 0xff,0x87,0x77,0x7f,0x77,0x07,0xbf,0x77,0x77,0xdf,0xef,0x3f,0xdf,0x57,0x77,0x77 .db 0x6f,0x6f,0x7f,0x8f,0xbf,0x77,0x77,0x77,0xdf,0x97,0xdf,0xdf,0xdf,0xdf,0xef,0xef .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x0c,0x0c,0x0c,0x0c,0xfc,0xfc,0xfc,0xfc .db 0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18,0x0c,0x00,0x00,0x88,0x50 .db 0x00,0x00,0x00,0x50,0xf0,0x98,0x90,0x00,0x20,0x20,0x20,0x20,0x20,0x00,0x60,0x80 .db 0x88,0x20,0x40,0x88,0x10,0x88,0x88,0x40,0x88,0x10,0x60,0x20,0x20,0x00,0x20,0x00 .db 0xa8,0x88,0x88,0x88,0x88,0x80,0x80,0x88,0x88,0x20,0x90,0x90,0x80,0x88,0x88,0x88 .db 0x80,0x98,0x90,0x88,0x20,0x88,0x50,0xa8,0x88,0x20,0x80,0x80,0x08,0x20,0x00,0x00 .db 0x00,0x88,0x88,0x88,0x88,0x80,0x40,0x78,0x88,0x20,0x10,0xa0,0x20,0x88,0x88,0x88 .db 0xe0,0x70,0x80,0x08,0x50,0x98,0x50,0xa8,0x50,0x18,0x40,0x20,0x20,0x20,0x00,0x20 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xf3,0xf3,0xf3,0xf3,0x03,0x03,0x03,0x03 .db 0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7,0xf3,0xff,0xff,0x77,0xaf .db 0xff,0xff,0xff,0xaf,0x0f,0x67,0x6f,0xff,0xdf,0xdf,0xdf,0xdf,0xdf,0xff,0x9f,0x7f .db 0x77,0xdf,0xbf,0x77,0xef,0x77,0x77,0xbf,0x77,0xef,0x9f,0xdf,0xdf,0xff,0xdf,0xff .db 0x57,0x77,0x77,0x77,0x77,0x7f,0x7f,0x77,0x77,0xdf,0x6f,0x6f,0x7f,0x77,0x77,0x77 .db 0x7f,0x67,0x6f,0x77,0xdf,0x77,0xaf,0x57,0x77,0xdf,0x7f,0x7f,0xf7,0xdf,0xff,0xff .db 0xff,0x77,0x77,0x77,0x77,0x7f,0xbf,0x87,0x77,0xdf,0xef,0x5f,0xdf,0x77,0x77,0x77 .db 0x1f,0x8f,0x7f,0xf7,0xaf,0x67,0xaf,0x57,0xaf,0xe7,0xbf,0xdf,0xdf,0xdf,0xff,0xdf .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x0c,0x0c,0x0c,0x0c,0xfc,0xfc,0xfc,0xfc .db 0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18,0xf0,0x00,0x00,0xf0,0xd8 .db 0x00,0x20,0x00,0x50,0x20,0x18,0x68,0x00,0x10,0x40,0x00,0x00,0x40,0x00,0x60,0x00 .db 0x70,0x70,0xf8,0x70,0x10,0x70,0x70,0x40,0x70,0x60,0x00,0x40,0x10,0x00,0x40,0x20 .db 0x70,0x88,0xf0,0x70,0xf0,0xf8,0x80,0x70,0x88,0x70,0x60,0x88,0xf8,0x88,0x88,0x70 .db 0x80,0x68,0x88,0x70,0x20,0x70,0x20,0x70,0x88,0x20,0xf8,0xe0,0x08,0xe0,0x00,0xf8 .db 0x00,0x78,0xf0,0x70,0x70,0x70,0x40,0x08,0x88,0x70,0x90,0x90,0x70,0x88,0x88,0x70 .db 0x80,0x10,0x80,0xf0,0x20,0x68,0x20,0x50,0x88,0x08,0xf8,0x10,0x20,0x40,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xf3,0xf3,0xf3,0xf3,0x03,0x03,0x03,0x03 .db 0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7,0x0f,0xff,0xff,0x0f,0x27 .db 0xff,0xdf,0xff,0xaf,0xdf,0xe7,0x97,0xff,0xef,0xbf,0xff,0xff,0xbf,0xff,0x9f,0xff .db 0x8f,0x8f,0x07,0x8f,0xef,0x8f,0x8f,0xbf,0x8f,0x9f,0xff,0xbf,0xef,0xff,0xbf,0xdf .db 0x8f,0x77,0x0f,0x8f,0x0f,0x07,0x7f,0x8f,0x77,0x8f,0x9f,0x77,0x07,0x77,0x77,0x8f .db 0x7f,0x97,0x77,0x8f,0xdf,0x8f,0xdf,0x8f,0x77,0xdf,0x07,0x1f,0xf7,0x1f,0xff,0x07 .db 0xff,0x87,0x0f,0x8f,0x8f,0x8f,0xbf,0xf7,0x77,0x8f,0x6f,0x6f,0x8f,0x77,0x77,0x8f .db 0x7f,0xef,0x7f,0x0f,0xdf,0x97,0xdf,0xaf,0x77,0xf7,0x07,0xef,0xdf,0xbf,0xff,0xff .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x0c,0x0c,0x0c,0x0c,0xfc,0xfc,0xfc,0xfc .db 0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18,0x0c,0x00,0x00,0x80,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x70,0x00,0x00,0x60,0x00,0x00,0x00,0x00,0x00 .db 0x80,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x70,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xf3,0xf3,0xf3,0xf3,0x03,0x03,0x03,0x03 .db 0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7,0xf3,0xff,0xff,0x7f,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x8f,0xff,0xff,0x9f,0xff,0xff,0xff,0xff,0xff .db 0x7f,0xe7,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x8f,0xff,0xff,0xff,0xff,0xff,0xff .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x0c,0x0c,0x0c,0x0c,0xfc,0xfc,0xfc,0xfc .db 0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18,0xf0,0x00,0x00,0x80,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xf3,0xf3,0xf3,0xf3,0x03,0x03,0x03,0x03 .db 0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7,0x0f,0xff,0xff,0x7f,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff SOURCE_142/SOURCE_vdriver/pwm_8x8/0000755000175000001440000000000011713042124015537 5ustar joergusersSOURCE_142/SOURCE_vdriver/pwm_8x8/pwm_8x8.asm0000755000175000001440000002242011725741462017574 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (8 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ bas_mta = 0x0110 ;basic multitasking .equ libmio_etable = 0x4680 ;envelope table .equ libmio_ctable = 0x7b00 ;chartable font 0 .CSEG .org 0x7200 ; "...... N" start: .db " PWM 8x8 N",0xb3,0xfe,0xb1 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,0x8d,0x8d,0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 rjmp pwm8x8_init ;FKT 01 init rjmp pwm8x8_cls ;FKT 02 clear screen rjmp pwm8x8_char ;FKT 03 output char rjmp pwm8x8_gxy ;FKT 04 set cursor rjmp pwm8x8_plot ;FKT 05 plot rjmp pwm8x8_nl ;FKT 06 newline rjmp pwm8x8_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; use video mode 0 routines ;------------------------------------------------------------------------------- pwm8x8_cls: api_vm0cls pwm8x8_char: api_vm0char pwm8x8_nl: api_vm0newline pwm8x8_gxy: api_vm0gotoxy pwm8x8_plot: api_vm0plot ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- pwm8x8_init: brtc pwm8x8_exit ;exit out PORTA,const_0 ldi XL,0xff out DDRA,XL rcall pwm_cls rcall pwm8x8_clear ldi XL,0 ;force ext routine ret pwm8x8_exit: out PORTA,const_0 ;no pullup ret ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- pwm_cls: ldi tempreg1,0x20 ;space ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position ldi XL,libmio_rows pwm_cls_01: ldi XH,libmio_cols pwm_cls_02: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_02 ;loop dec XL ;decrement counter brne pwm_cls_01 ;loop lds tempreg1,libmio_color ldi XL,libmio_rows pwm_cls_05: ldi XH,libmio_cols pwm_cls_06: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_06 ;loop dec XL ;decrement counter brne pwm_cls_05 ;loop ret ;------------------------------------------------------------------------------- ; clear pwm data ;------------------------------------------------------------------------------- pwm8x8_clear: ldi XL,LOW(libmio_vram+2000) ldi XH,HIGH(libmio_vram+2000) ldi tempreg1,16 pwm8x8_clear1: st X+,const_0 dec tempreg1 brne pwm8x8_clear1 ldi tempreg1,8 ldi tempreg2,0x00 pwm8x8_clear2: st X+,tempreg2 subi tempreg2,0xe0 ;+0x20 dec tempreg1 brne pwm8x8_clear2 ret ;------------------------------------------------------------------------------- ; reduced video output (23 lines a 24 chars) ;------------------------------------------------------------------------------- pwm8x8_vid: lds tempreg1,libmio_vram+2028 ;output value out PORTA,tempreg1 ;out ;------------------------------------------------------------------------------- ; set pointer for code saving ;------------------------------------------------------------------------------- mov XL,vline_l sbrc vline_h,0 rjmp pwm8x8_novid cpi XL,235 brcc pwm8x8_novid cpi XL,5 brcs pwm8x8_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- pwm8x8_stc_00: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+89 ;1 brcs pwm8x8_stc_00 ;1 loop pwm8x8_stc_01: cpi XL,libmio_hstart+90 brcs pwm8x8_stc_02 pwm8x8_stc_02: cpi XL,libmio_hstart+91 brcs pwm8x8_stc_03 pwm8x8_stc_03: cpi XL,libmio_hstart+92 brcs pwm8x8_stc_04 pwm8x8_stc_04: cpi XL,libmio_hstart+93 brcs pwm8x8_stc_05 pwm8x8_stc_05: rcall pwm8x8_tvc clt ;disable sync rjmp pwm8x8_pwm pwm8x8_novid: set ;disable sync rjmp pwm8x8_pwm ;channel 0 pwm8x8_pwm: lds tempreg1,libmio_vram+2028 ;current output value lds XL,libmio_vram+2016 ;counter for channel 0 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_01 ;no zero lds XH,libmio_vram+2000 ;get control value sts libmio_vram+2008,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x01 ;set channel 0 pwm8x8_pwm_01: sts libmio_vram+2016,XL ;store counter lds YL,libmio_vram+2008 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_10 ;not equal andi tempreg1,0xfe ;clear channel 0 ;channel 1 pwm8x8_pwm_10: lds XL,libmio_vram+2017 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_11 ;no zero lds XH,libmio_vram+2001 ;get control value sts libmio_vram+2009,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x02 ;set channel 1 pwm8x8_pwm_11: sts libmio_vram+2017,XL ;store counter lds YL,libmio_vram+2009 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_20 ;not equal andi tempreg1,0xfd ;clear channel 1 ;channel 2 pwm8x8_pwm_20: lds XL,libmio_vram+2018 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_21 ;no zero lds XH,libmio_vram+2002 ;get control value sts libmio_vram+2010,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x04 ;set channel 1 pwm8x8_pwm_21: sts libmio_vram+2018,XL ;store counter lds YL,libmio_vram+2010 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_30 ;not equal andi tempreg1,0xfb ;clear channel 1 ;channel 3 pwm8x8_pwm_30: lds XL,libmio_vram+2019 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_31 ;no zero lds XH,libmio_vram+2003 ;get control value sts libmio_vram+2011,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x08 ;set channel 1 pwm8x8_pwm_31: sts libmio_vram+2019,XL ;store counter lds YL,libmio_vram+2011 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_40 ;not equal andi tempreg1,0xf7 ;clear channel 1 ;channel 4 pwm8x8_pwm_40: lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_41 ;no zero lds XH,libmio_vram+2004 ;get control value sts libmio_vram+2012,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x10 ;set channel 1 pwm8x8_pwm_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2012 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_50 ;not equal andi tempreg1,0xef ;clear channel 1 ;channel 5 pwm8x8_pwm_50: lds XL,libmio_vram+2021 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_51 ;no zero lds XH,libmio_vram+2005 ;get control value sts libmio_vram+2013,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x20 ;set channel 1 pwm8x8_pwm_51: sts libmio_vram+2021,XL ;store counter lds YL,libmio_vram+2013 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_60 ;not equal andi tempreg1,0xdf ;clear channel 1 ;channel 6 pwm8x8_pwm_60: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_61 ;no zero lds XH,libmio_vram+2006 ;get control value sts libmio_vram+2014,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x40 ;set channel 1 pwm8x8_pwm_61: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2014 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_70 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 pwm8x8_pwm_70: lds XL,libmio_vram+2023 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_pwm_71 ;no zero lds XH,libmio_vram+2007 ;get control value sts libmio_vram+2015,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x80 ;set channel 1 pwm8x8_pwm_71: sts libmio_vram+2023,XL ;store counter lds YL,libmio_vram+2015 ;get compare register cp YL,XL ;compare brne pwm8x8_pwm_80 ;not equal andi tempreg1,0x7f ;clear channel 1 pwm8x8_pwm_80: sts libmio_vram+2028,tempreg1 ret .include "vline_m0.asm" .include "inout.asm" SOURCE_142/SOURCE_vdriver/pwm_8x8/inout.asm0000755000175000001440000000523411725741462017424 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (4 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; no input function available ;------------------------------------------------------------------------------- inex: cpi YH,9 breq inex_90 cpi YH,8 brne inex_err inex_10: cpi YL,0x08 ;strobe brne inex_12 in XL,PINB lsr XL andi XL,0x01 clr XH ret inex_12: cpi YL,0x09 ;busy brne inex_err in XL,PINB lsr XL lsr XL andi XL,0x01 clr XH ret inex_err: ldi ereg,40 ;no IO driver ret inex_90: cpi YL,8 brcc inex_err lsl YL mov XL,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,XL adc YH,const_0 ld XL,Y+ ld XH,Y+ ret ;------------------------------------------------------------------------------- ; output from 0x900 .. 0x9ff ;------------------------------------------------------------------------------- outex: cpi YH,8 breq outex_10 outex_100: cpi YH,0x09 brne inex_err cpi YL,8 brcc inex_err lsl YL mov r0,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,r0 adc YH,const_0 st Y+,XL st Y+,XH ret outex_10: outex_18: cpi YL,0x08 ;strobe brne outex_20 sbrc XL,0 sbi PORTB,1 sbrs XL,0 cbi PORTB,1 ret outex_20: cpi YL,0x09 ;busy brne outex_50 sbrc XL,0 sbi PORTB,2 sbrs XL,0 cbi PORTB,2 ret outex_50: outex_58: cpi YL,0x18 ;strobe brne outex_60 sbrc XL,0 sbi DDRB,1 sbrs XL,0 cbi DDRB,1 ret outex_60: cpi YL,0x19 ;busy brne outex_err sbrc XL,0 sbi DDRB,2 sbrs XL,0 cbi DDRB,2 ret outex_err: ldi ereg,40 ;no IO driver ret SOURCE_142/SOURCE_vdriver/pwm_8x8/vline_m0.asm0000755000175000001440000000647211725741462020004 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 0 engine # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -256 characters are in table 6x10px each ;------------------------------------------------------------------------------- pwm8x8_tvc: lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high movw YL,XL ;2 copy values ldi ZL,LOW(690) ;1 offset color table ldi ZH,HIGH(690) ;1 add YL,ZL ;1 adc YH,ZH ;1 pwm8x8_tvc_0: ldi ZH,HIGH(libmio_ctable*2);start chartable lds ZL,libmio_cline ;2 character line add ZH,ZL ;1 push tempreg4 push tempreg5 ldi ZL,26 ;1 number of chars mov tempreg5,ZL ;1 set loop counter ld tempreg3,Y+ ;2 get color ld ZL,X+ ;2 get char lpm tempreg2,Z ;3 get pixline mov tempreg4,tempreg3 ;1 swap tempreg4 ;1 eor tempreg4,tempreg3 ;1 sbrc tempreg2,7 ;1 eor tempreg3,tempreg4 ;1 pwm8x8_tvc_1: out PORTC,tempreg3 ;1 output P0 ld ZL,X+ ;2 get char nop ;1 filling sbrc tempreg2,6 ;1 skip if no change out PINC,tempreg4 ;1 output P1 lpm r0,Z ;3 get pixline sbrc tempreg2,5 ;1 skip if no change out PINC,tempreg4 ;1 output P2 ld tempreg3,Y+ ;2 get color mov r1,tempreg3 ;1 copy color sbrc tempreg2,4 ;1 skip if no change out PINC,tempreg4 ;1 output P3 ; nop ;1 filling swap r1 ;1 swap fg/hg eor r1,tempreg3 ;1 calc diffenece sbrc tempreg2,3 ;1 skip if no change out PINC,tempreg4 ;1 output P4 sbrc r0,7 ;1 check next P0 eor tempreg3,r1 ;1 change color dec tempreg5 ;1 loop counter sbrc tempreg2,2 ;1 skip if no change out PINC,tempreg4 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline mov tempreg4,r1 ;1 prepare next colordiff brne pwm8x8_tvc_1 ;2 do loop lds tempreg3,libmio_border ;2 get border out PORTC,tempreg3 ;set pop tempreg5 pop tempreg4 ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,10 ;1 check brne pwm8x8_tvc_2 ;2 jump if not next line clr ZH ;1 character line = 0 adiw XL,4 ;2 skip 4 chars sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position pwm8x8_tvc_2: sts libmio_cline,ZH ;2 new character line ret SOURCE_142/SOURCE_vdriver/glcd_128_ncs/0000755000175000001440000000000011713042124016373 5ustar joergusersSOURCE_142/SOURCE_vdriver/glcd_128_ncs/glcd_128_ncs.asm0000755000175000001440000004067511725741461021277 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ libmio_ctable = 0x7b00 ;font 0 .equ libmio_ctable1 = 0x4340 ;font 1 .equ vidp = 7 ;video pin .equ lcd_cs1 = 4 ;latched CS1 .equ lcd_cs2 = 5 ;latched CS2 .equ lcd_di = 6 ;latched D/I .equ lcd_ks = 7 ;latched key select .equ lcd_page = libmio_vram+1200 ;lcdpage .equ lcd_row = libmio_vram+1201 ;lcdrow .equ lcd_keymode = libmio_vram+1202 ;key mode (0=PS2, 1=fixkeys) .CSEG .org 0x7200 ; "...... N" start: .db " GLCD 128x64N",0xb3,0xfe,0xa8 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp bimode_init ;FKT 01 init rjmp bimode_cls ;FKT 02 clear screen rjmp bimode_char ;FKT 03 output char rjmp bimode_gxy ;FKT 04 set cursor rjmp bimode_plot ;FKT 05 plot rjmp bimode_scrs ;FKT 06 screenshot rjmp bimode_vid ;FKT 07 video display ret ;FKT 08 init inex: ldi ereg,40 ;no IO driver ret outex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- bimode_init: brtc bimode_exit ;exit ldi XL,0xff out DDRA,XL sbi DDRB,1 sbi DDRB,2 ldi XL,0xf0 out DDRC,XL ldi XL,128 sts libmio_clipx2,XL ldi XL,64 sts libmio_clipy2,XL ldi XL,0x20 ;blue sts libmio_palette,XL ;palette 0 ldi XL,0xe0 ;white sts libmio_palette+2,XL ;palette 1 sts lcd_page,const_0 ;lcdpage 0 sts lcd_row,const_0 ;lcdrow 0 rcall bimode_cls ldi XL,180 ;visible lines (only 128 are used) cli ldi tempreg3,0x80 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0x3f ;1 Display ON out PORTA,XH ;1 LCD data ldi XH,0x20 bimode_w1: dec XH brne bimode_w1 sbi PORTB,1 ;2 raise clock ldi XH,0x20 bimode_w2: dec XH brne bimode_w2 cbi PORTB,1 ;2 lower clock ldi XH,0x00 bimode_w3: dec XH brne bimode_w3 ldi XH,0xf8 ;1 Y address=0 out PORTA,XH ;1 LCD data ldi XH,0x20 bimode_w4: dec XH brne bimode_w4 sbi PORTB,1 ;2 raise clock ldi XH,0x20 bimode_w5: dec XH brne bimode_w5 cbi PORTB,1 ;2 lower clock ldi XH,0x00 bimode_w6: dec XH brne bimode_w6 sts lcd_keymode,const_0 sei ret bimode_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy ldi XL,0xf0 out DDRC,XL pop XL ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_cls: api_pushxyz ldi XL,LOW(libmio_vram) ldi XH,HIGH(libmio_vram) ldi YL,0 bimode_cls_1: st X+,const_0 st X+,const_0 st X+,const_0 st X+,const_0 dec YL brne bimode_cls_1 api_popxyz ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_scrs: ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- bimode_char: api_pushxyz push tempreg3 push tempreg4 mov ZL,tempreg1 ;char lds tempreg3,libmio_font ;get font sbrc tempreg3,0 ;skip if font 0 rjmp bimode_gchar5 ;jump to fnt1 routine ldi ZH,HIGH(libmio_ctable*2) ;start char ROM movw XL,libmio_cur_x ;get X-position ldi YH,10 ;number of lines bimode_gchar1: lpm YL,Z ;get pixline rcall bimode_plpl inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall bimode_plpl sbrc ctrl,6 ;bigchars inc XH inc ZH ;next pixline mov XL,libmio_cur_x ;get X-position dec YH brne bimode_gchar1 mov XL,libmio_cur_x ;get X-position subi XL,0xfa ;+6 sbrc ctrl,6 subi XL,0xfa ;+6 mov libmio_cur_x,XL bimode_gchar4: pop tempreg4 pop tempreg3 api_popxyz bimode_gchar5: ldi ZH,HIGH(libmio_ctable1*2) ;start char ROM andi ZL,0x7f mov XL,ZL ldi ZL,LOW(libmio_ctable1*2) ;start char ROM add ZL,XL adc ZH,const_0 lsl XL add ZL,XL adc ZH,const_0 movw XL,libmio_cur_x ;get X-position ldi YH,6 ;number of lines bimode_gchar6: lpm YL,Z ;get pixline rcall bimode_plpl5 inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall bimode_plpl5 sbrc ctrl,6 ;bigchars inc XH sbrc YH,0 ;skip if first nibble is used adiw ZL,1 mov XL,libmio_cur_x ;get X-position dec YH brne bimode_gchar6 mov XL,libmio_cur_x ;get X-position subi XL,0xfc ;+4 sbrc ctrl,6 subi XL,0xfc ;+4 mov libmio_cur_x,XL rjmp bimode_gchar4 ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 0, YL=pixline ;------------------------------------------------------------------------------- bimode_plpl: lds tempreg3,libmio_color push tempreg3 swap tempreg3 sbrc YL,7 ;pix 1 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,6 ;pix 2 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,5 ;pix 3 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,4 ;pix 4 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,3 ;pix 5 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,2 ;pix 6 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos bimode_plpl1: pop tempreg3 ;restore color sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 1, YL=pixline ;------------------------------------------------------------------------------- bimode_plpl5: lds tempreg3,libmio_color sbrc YH,0 swap YL mov tempreg4,tempreg3 sbrs YL,7 ;pix 1 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,6 ;pix 2 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,5 ;pix 3 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,4 ;pix 4 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos bimode_plpl6: sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- bimode_plot: api_pushregs ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position cpi XL,128 brcc bimode_nplot ;yes cpi XH,64 brcc bimode_nplot ;yes rjmp bimode_plot1_0 ;OK, we can plot bimode_nplot: api_popregs ;restore registers bimode_plot1_0: mov tempreg3,XL ;X andi tempreg3,0x07 ;only bits inc tempreg3 ;+1 ldi tempreg1,0x00 ;bitmask sec ;set carry bimode_plot1_1: rol tempreg1 ;shift in bit dec tempreg3 brne bimode_plot1_1 ;bit mask is in tempreg1 lsr XL ;X/8 lsr XL lsr XL mov ZL,XL ldi tempreg3,16 mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ;address is now in Y lds XL,libmio_color ;active color lsr XL andi XL,0x01 ;we check only bit 0 brne bimode_plot1_2 ;set bimode_plot1_8: com tempreg1 ld XL,Y and XL,tempreg1 st Y,XL rjmp bimode_nplot bimode_plot1_2: ld XL,Y or XL,tempreg1 st Y,XL rjmp bimode_nplot ;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ bimode_vid: ldi YL,LOW(libmio_vram) ;2 base for LCD ldi YH,HIGH(libmio_vram) ;2 base for LCD lds XL,lcd_page ;2 page number ldi XH,128 ;1 bytes per page mul XH,XL ;2 add YL,r0 ;1 add page offset adc YH,r1 ;1 lds XL,lcd_row ;2 ldi ZH,0x80 ;1 factor for row 0 sbrc XL,2 ;1 row bit 2 swap ZH ;1 shift factor 4 bits right sbrc XL,1 ;1 row bit 1 lsr ZH ;1 shift factor 1 bit right sbrc XL,1 ;1 row bit 1 lsr ZH ;1 shift factor 1 bit right sbrc XL,0 ;1 row bit 0 lsr ZH ;1 shift factor 1 bit right lsr XL ;1 /8 lsr XL ;1 lsr XL ;1 andi XL,0x07 ;1 mask bits add YL,XL ;1 add row offset adc YH,const_0 ;1 mov XL,vline_l cpi XL,51 brcs bimode_vid_1 cpi XL,179 brne bimode_vid_2 rjmp bimode_vid_k ;do key service bimode_vid_1: ret bimode_vid_2: push tempreg7 push tempreg8 lds XL,libmio_rampos_l lds XH,libmio_rampos_h ldi tempreg1,0x20 ld tempreg2,X+ ;1 get pixline ldi tempreg3,16 ;1 8 bytes to do mov tempreg7,const_0 ;1 clear lcdbyte1 mov tempreg8,const_0 ;1 clear lcdbyte2 bimode_vid_3: bst tempreg2,0 ;1 get px 7 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 ld ZL,Y ;2 get LCD byte 1 bst tempreg2,1 ;1 get px 6 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix adiw YL,8 ;2 set pointer to other page nop ;1 filling bst tempreg2,2 ;1 get px 5 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix mul ZL,ZH ;2 get shifted bit to R0.7 lsl r0 ;1 shift out bit bst tempreg2,3 ;1 get px 4 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix sbrs tempreg3,0 ;1 skip if right side ror tempreg7 ;1 shift bit to lcdbyte 1 nop ;1 filling bst tempreg2,4 ;1 get px 3 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix sbrc tempreg3,0 ;1 skip if left side ror tempreg8 ;1 shift bit to lcdbyte 2 nop ;1 filling bst tempreg2,5 ;1 get px 2 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 filling nop ;1 filling nop ;1 filling bst tempreg2,6 ;1 get px 1 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 filling bst tempreg2,7 ;1 get px 0 ld tempreg2,X+ ;2 get next pitempreg2ine bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix dec tempreg3 ;1 brne bimode_vid_3 ;2 lds tempreg1,libmio_border ;1 output pix out PORTC,tempreg1 ;1 sbiw XL,1 ;2 correct pointer lds YL,libmio_cline inc YL cpi YL,2 brcs bimode_vid_4 clr YL ;1 set cline to 0 sts libmio_rampos_l,XL ;2 store video position sts libmio_rampos_h,XH bimode_vid_4: sts libmio_cline,YL bimode_vid_20: ;rjmp bimode_vid_e ;debug only! lds XL,lcd_row ;2 get row cpi XL,64 ;1 check if <64 brcs bimode_vid_23 ;1 no rjmp bimode_vid_40 ;1 no bimode_vid_23: ldi tempreg3,0xe0 ;1 cs1/data mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,tempreg7 ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock nop ;1 adr/data hold nop ;1 nop ;1 nop ;1 nop ;1 nop ;1 nop ;1 ldi tempreg3,0xd0 ;1 cs2/data mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,tempreg8 ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XL ;1 row+1 sts lcd_row,XL ;2 store rjmp bimode_vid_e ;2 end bimode_vid_40: brne bimode_vid_50 ;not 64 ldi tempreg3,0x80 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0x40 ;1 Y address=0 out PORTA,XH ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XL ;1 row+1 sts lcd_row,XL ;2 store rjmp bimode_vid_e ;2 end bimode_vid_50: ldi tempreg3,0x80 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output lds XH,lcd_page ;2 get page andi XH,0x07 ;1 ori XH,0xb8 ;1 sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,XH ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XH ;1 page +1 andi XH,0x07 ;1 mask bits sts lcd_page,XH ;2 store back page sts lcd_row,const_0 ;2 set address to zero bimode_vid_e: pop tempreg8 pop tempreg7 ret ;end of vout routine -> VS/Frame handling ;key service bimode_vid_k: ldi XH,0x7f ;k active out PORTA,XH ;set ctrl sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out DDRA,const_0 ;set as input nop nop nop nop in XL,PINA sbi PORTA,7 ;disable key sig sbi DDRA,7 sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0xff out DDRA,XH ldi XH,0xf0 ;disable key select signal out PORTA,XH sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ;hier Auswertung XL -> keyboard daten lds XH,lcd_keymode com XL ;1 invert because of low active andi XL,0x7f sbrs XH,0 ;skip if keys are active breq bimode_vid_k1 ;no key sts lcd_keymode,const_1 ;set keys to active state ldi tempreg1,0 ;1 no key sbrc XL,0 ;left ldi tempreg1,0xe2 sbrc XL,1 ;right ldi tempreg1,0xe3 sbrc XL,2 ;up ldi tempreg1,0xe4 sbrc XL,3 ;down ldi tempreg1,0xe5 sbrc XL,4 ;enter ldi tempreg1,0xea sbrc XL,5 ;esc ldi tempreg1,0xed sbrc XL,6 ;F5 ldi tempreg1,0xf5 sts libmio_keycode,tempreg1 ;simulated key ldi tempreg1,0 bst XL,4 ;enter bld tempreg1,2 ;left ctrl bst XL,5 ;esc bld tempreg1,0 ;left shift bst XL,2 ;up bld tempreg1,3 ;right ctrl bst XL,3 ;down bld tempreg1,1 ;right shift sts libmio_kbdstate,tempreg1 cpi tempreg1,0x0f brne bimode_vid_k0 jmp 0x0000 ;restart system bimode_vid_k0: sts libmio_scancode,XL ;all keys in one byte bimode_vid_k1: ret ;end of vout routine -> VS/Frame handling SOURCE_142/SOURCE_vdriver/tlcd_2x20/0000755000175000001440000000000011713042124015726 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_2x20/tlcd_2x20.asm0000755000175000001440000000416011725741461020152 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "definitions.asm" .equ lcd_rows = 2 ;rows on LCD .equ lcd_cols = 20 ;columns on LCD .equ lcd_colbyte = 0x80 ;color for dual display .equ lcd_dclocks = 35 ;dummy clocks = (27-cols) * 5 .equ lcd_ystart = 90 .equ lcd_yend = 128 .equ linesort = 2 .CSEG .org 0x7200 ; "...... N" start: .db "LC2*20P4BITSN",0xb3,0xfe,0xa2 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp lcd_init ;FKT 01 init rjmp lcd_cls ;FKT 02 clear screen rjmp lcd_char ;FKT 03 output char rjmp lcd_gxy ;FKT 04 set cursor ret ;FKT 05 plot rjmp lcd_newl ;FKT 06 NL rjmp lcd_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; I/O expansion ;------------------------------------------------------------------------------- .include "io.asm" .include "routines.asm" .include "video_20.asm" lcd_ctable: .include "ctable.inc" SOURCE_142/SOURCE_vdriver/tlcd_2x20/video_20.asm0000644000175000001440000001122511725741461020055 0ustar joergusers;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd_vid: mov tempreg1,vline_l cpi tempreg1,lcd_ystart brcs lcd_nvid cpi tempreg1,lcd_yend brcc lcd_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_linedoubler,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd_c2 ;write data rjmp lcd_c1 ;prepare data lcd_nvid_1: ret ;do nothing ;prepare data lcd_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd_c3 ;CG RAM service ;update DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_c1_10 ;no Y overflow clr XH lcd_c1_10: sts lcd_colcount,XL ;new col counter sts lcd_rowcount,XH ;new row counter rcall lcd_acalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c1_20 ;yes, update ret lcd_c1_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write rcall lcd_pcalc ;calculate position in LCD ori tempreg1,0x80 ;bit for DDRAM address rjmp lcd_cout ;control output ;second cycle writes data lcd_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;update CG RAM data lcd_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd_c3_10 ;no X overflow clr XL lcd_c3_10: sts lcd_cgptr,XL ;new col counter rcall lcd_ccalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c3_20 ;yes, update ret lcd_c3_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write mov tempreg1,XL andi tempreg1,0x3f ;limit to 64 ori tempreg1,0x40 ;bit for CG RAM address rjmp lcd_cout ;control output ;calculate data for first char lcd_vline: lds YH,lcd_pixline ;PCC lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds tempreg1,libmio_color ;2 get color byte out PORTC,tempreg1 ;1 push tempreg4 subi YH,1 brcs lcd_dline_e cpi YH,7 brcc lcd_dline ldi YL,8 ;1 8 bytes/char ld ZL,X+ ;2 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 ldi ZH,HIGH(lcd_charset) ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 ld tempreg3,Z ;2 ldi tempreg4,lcd_cols ;1 number of chars lds tempreg2,libmio_color ;2 color for pixpause lcd_vloop: mov tempreg1,tempreg2 ;1 get color sbrc tempreg3,4 ;1 skip if pix is off swap tempreg1 ;1 out PORTC,tempreg1 ;1 out pix 4 ld ZL,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 sbrc tempreg3,3 ;1 skip if pix is not changed swap tempreg1 ;1 ldi ZH,HIGH(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 3 mov tempreg1,tempreg2 ;1 sbrc tempreg3,2 ;1 skip if pix is not changed swap tempreg1 ;1 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 2 mov tempreg1,tempreg2 ;1 sbrc tempreg3,1 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 1 mov tempreg1,tempreg2 ;1 sbrc tempreg3,0 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 0 ld tempreg3,Z ;2 ld tempreg3,Z ;2 ld tempreg3,Z ;1 out PORTC,tempreg2 ;1 out pixpause dec tempreg4 ;1 loop counter brne lcd_vloop ;2/1 ldi tempreg2,1 lcd_dline_0: dec tempreg2 brne lcd_dline_0 nop nop rjmp lcd_nline lcd_dline_e: nop nop lcd_dline: ldi tempreg2,172 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop nop nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_linedoubler lds ZH,lcd_pixline ;2 character line inc YL cpi YL,2 out PORTC,tempreg2 ;1 out border brne lcd_nline_1 clr YL inc ZH cpi ZH,9 ;1 check brne lcd_nline_1 ;2 jump if not next line clr ZH ;1 character line = 0 lds XL,libmio_rampos_l lds XH,libmio_rampos_h adiw XL,lcd_cols sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position lcd_nline_1: sts lcd_linedoubler,YL sts lcd_pixline,ZH ;2 new character line rjmp get_keys SOURCE_142/SOURCE_vdriver/tlcd_2x20/definitions.asm0000755000175000001440000000373511725741461020773 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ lcd_charmap = libmio_vram .equ lcd_sys = libmio_vram+192 .equ lcd_cgmap = libmio_vram+320 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+256 .equ lcd_enable = lcd_sys ;enable update .equ lcd_colcount = lcd_sys+1 ;col counter .equ lcd_rowcount = lcd_sys+2 ;row counter .equ lcd_datavalid = lcd_sys+3 ;no write .equ lcd_databyte = lcd_sys+4 ;data to write .equ lcd_linedoubler = lcd_sys+5 ;for TV line doubling .equ lcd_pixline = lcd_sys+6 ;pixline in char .equ lcd_cgptr = lcd_sys+8 ;CG counter .equ lcd_keys = lcd_sys+9 ;key state .equ lcd_cmap_l = lcd_sys+10 ;low address of charmap .equ lcd_cmap_h = lcd_sys+11 ;high address of charmap SOURCE_142/SOURCE_vdriver/tlcd_2x20/io.asm0000755000175000001440000000654111725741461017065 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x08 ;I/O brne inex_100 inex_10: cpi XL,0x04 brne inex_12 lds XH,lcd_keys bst XH,4 inex_kin: clr XL bld XL,0 clr XH ret inex_12: cpi XL,0x05 brne inex_14 lds XH,lcd_keys bst XH,5 rjmp inex_kin inex_14: cpi XL,0x06 brne inex_16 lds XH,lcd_keys bst XH,6 rjmp inex_kin inex_16: cpi XL,0x07 brne inex_err lds XH,lcd_keys bst XH,7 rjmp inex_kin inex_100: cpi XH,0x0a ;CG RAM brne inex_err cpi XL,0x40 brcc inex_err mov r16,XL ldi XL,LOW(lcd_charset) ldi XH,HIGH(lcd_charset) add XL,r16 add XH,const_0 ld XL,X clr XH ret inex_err: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,8 brne outex_100 outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_50 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_80 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_80: rjmp outex_err outex_100: cpi YH,0x0a ;CG RAM brne outex_err cpi YL,0x40 brcc outex_err mov XH,YL ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) add YL,XH add YH,const_0 st Y,XL ret outex_err: ldi ereg,40 ;no IO driver ret get_keys: in XL,PORTA ;enable pull-up ori XL,0xf0 out PORTA,XL in XL,DDRA ;set D4-7 as input andi XL,0x0f out DDRA,XL nop nop ori XL,0xf0 in XH,PINA ;get state out DDRA,XL ;set D4-7 as output sts lcd_keys,XH ret SOURCE_142/SOURCE_vdriver/tlcd_2x20/ctable.inc0000644000175000001440000002340011725741461017667 0ustar joergusers .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x04,0x04,0x04,0x00,0x00,0x04,0x00 .db 0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00 .db 0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00 .db 0x04,0x0f,0x14,0x0e,0x05,0x1e,0x04,0x00 .db 0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00 .db 0x0c,0x12,0x14,0x08,0x14,0x12,0x0d,0x00 .db 0x0c,0x04,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00 .db 0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00 .db 0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0c,0x04,0x08,0x00 .db 0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x0c,0x0c,0x00 .db 0x00,0x00,0x01,0x02,0x04,0x08,0x00,0x00 .db 0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00 .db 0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x08,0x1f,0x00 .db 0x1f,0x02,0x04,0x02,0x01,0x11,0x0e,0x00 .db 0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00 .db 0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00 .db 0x06,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00 .db 0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x02,0x0c,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x0c,0x00,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x04,0x08,0x00 .db 0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00 .db 0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00 .db 0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 .db 0x0e,0x11,0x01,0x0d,0x15,0x15,0x0e,0x00 .db 0x0e,0x11,0x11,0x11,0x1f,0x11,0x11,0x00 .db 0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00 .db 0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00 .db 0x1c,0x12,0x11,0x11,0x11,0x12,0x1c,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x10,0x17,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00 .db 0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x07,0x02,0x02,0x02,0x02,0x12,0x0c,0x00 .db 0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00 .db 0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00 .db 0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00 .db 0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00 .db 0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00 .db 0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00 .db 0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00 .db 0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x11,0x0a,0x0a,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x15,0x15,0x0e,0x00 .db 0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00 .db 0x11,0x11,0x11,0x0a,0x04,0x04,0x04,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00 .db 0x0e,0x08,0x08,0x08,0x08,0x08,0x0e,0x00 .db 0x11,0x0a,0x1f,0x04,0x1f,0x04,0x04,0x00 .db 0x0e,0x02,0x02,0x02,0x02,0x02,0x0e,0x00 .db 0x04,0x0a,0x11,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x08,0x04,0x02,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x10,0x10,0x1e,0x11,0x11,0x11,0x1e,0x00 .db 0x00,0x00,0x0e,0x10,0x10,0x11,0x0e,0x00 .db 0x01,0x01,0x0d,0x13,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0e,0x11,0x1f,0x10,0x0e,0x00 .db 0x06,0x09,0x08,0x1c,0x08,0x08,0x08,0x00 .db 0x00,0x0f,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x10,0x10,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x04,0x00,0x0c,0x04,0x04,0x04,0x0e,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x10,0x10,0x12,0x14,0x18,0x14,0x12,0x00 .db 0x0c,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x00,0x00,0x1a,0x15,0x15,0x11,0x11,0x00 .db 0x00,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x00,0x0d,0x13,0x0f,0x01,0x01,0x00 .db 0x00,0x00,0x16,0x19,0x10,0x10,0x10,0x00 .db 0x00,0x00,0x0e,0x10,0x0e,0x01,0x1e,0x00 .db 0x08,0x08,0x1c,0x08,0x08,0x09,0x06,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x0a,0x04,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x15,0x0a,0x00 .db 0x00,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x00,0x00,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x00,0x00,0x1f,0x02,0x04,0x08,0x1f,0x00 .db 0x02,0x04,0x04,0x08,0x04,0x04,0x02,0x00 .db 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x08,0x04,0x04,0x02,0x04,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x1f,0x02,0x04,0x00,0x00 .db 0x00,0x04,0x08,0x1f,0x08,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x1c,0x14,0x1c,0x00 .db 0x07,0x04,0x04,0x04,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x04,0x04,0x04,0x1c,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x00 .db 0x00,0x00,0x00,0x0c,0x0c,0x00,0x00,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x02,0x04,0x00 .db 0x00,0x00,0x1f,0x01,0x02,0x04,0x08,0x00 .db 0x00,0x00,0x02,0x04,0x0c,0x14,0x04,0x00 .db 0x00,0x04,0x1f,0x11,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x00,0x1f,0x04,0x04,0x1f,0x00 .db 0x00,0x00,0x02,0x1f,0x06,0x0a,0x12,0x00 .db 0x00,0x00,0x08,0x1f,0x09,0x0a,0x08,0x00 .db 0x00,0x00,0x00,0x0e,0x02,0x02,0x1f,0x00 .db 0x00,0x00,0x1e,0x02,0x1e,0x02,0x1e,0x00 .db 0x00,0x00,0x15,0x15,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x1f,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x01,0x05,0x06,0x04,0x04,0x08,0x00 .db 0x01,0x02,0x04,0x0c,0x14,0x04,0x04,0x00 .db 0x04,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x1f,0x04,0x04,0x04,0x04,0x1f,0x00 .db 0x02,0x1f,0x02,0x06,0x0a,0x12,0x02,0x00 .db 0x08,0x1f,0x09,0x09,0x09,0x09,0x12,0x00 .db 0x04,0x1f,0x04,0x1f,0x04,0x04,0x04,0x00 .db 0x00,0x0f,0x09,0x11,0x01,0x02,0x0c,0x00 .db 0x08,0x0f,0x12,0x02,0x02,0x02,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x01,0x1f,0x00 .db 0x0a,0x1f,0x0a,0x0a,0x02,0x04,0x08,0x00 .db 0x00,0x18,0x01,0x19,0x01,0x02,0x1c,0x00 .db 0x00,0x1f,0x01,0x02,0x04,0x0a,0x11,0x00 .db 0x08,0x1f,0x09,0x0a,0x08,0x08,0x07,0x00 .db 0x00,0x11,0x11,0x09,0x01,0x02,0x0c,0x00 .db 0x00,0x0f,0x09,0x05,0x03,0x02,0x0c,0x00 .db 0x02,0x1c,0x04,0x1f,0x04,0x04,0x08,0x00 .db 0x00,0x15,0x15,0x15,0x01,0x02,0x04,0x00 .db 0x0e,0x00,0x1f,0x04,0x04,0x04,0x08,0x00 .db 0x08,0x08,0x08,0x0c,0x0a,0x08,0x08,0x00 .db 0x04,0x04,0x1f,0x04,0x04,0x08,0x10,0x00 .db 0x00,0x0e,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x00,0x1f,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x04,0x1f,0x02,0x04,0x0e,0x15,0x04,0x00 .db 0x02,0x02,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x11,0x11,0x11,0x11,0x00 .db 0x10,0x10,0x1f,0x10,0x10,0x10,0x0f,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x02,0x0c,0x00 .db 0x00,0x08,0x14,0x02,0x01,0x01,0x00,0x00 .db 0x04,0x1f,0x04,0x04,0x15,0x15,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x0a,0x04,0x02,0x00 .db 0x00,0x0e,0x00,0x0e,0x00,0x0e,0x01,0x00 .db 0x00,0x04,0x08,0x10,0x11,0x1f,0x01,0x00 .db 0x00,0x01,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x00,0x1f,0x08,0x1f,0x08,0x08,0x07,0x00 .db 0x08,0x08,0x1f,0x09,0x0a,0x08,0x08,0x00 .db 0x00,0x0e,0x02,0x02,0x02,0x02,0x1f,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x01,0x1f,0x00 .db 0x0e,0x00,0x1f,0x01,0x01,0x02,0x04,0x00 .db 0x12,0x12,0x12,0x12,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x14,0x14,0x15,0x15,0x16,0x00 .db 0x00,0x10,0x10,0x11,0x12,0x14,0x18,0x00 .db 0x00,0x1f,0x11,0x11,0x11,0x1f,0x00,0x00 .db 0x00,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x18,0x00,0x01,0x01,0x02,0x1c,0x00 .db 0x04,0x12,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x1c,0x14,0x1c,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x09,0x15,0x12,0x12,0x0d,0x00,0x00 .db 0x0a,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x0e,0x11,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x0e,0x10,0x0c,0x11,0x0e,0x00,0x00 .db 0x11,0x11,0x11,0x13,0x1d,0x10,0x10,0x00 .db 0x00,0x0f,0x14,0x12,0x11,0x0e,0x00,0x00 .db 0x06,0x09,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x07,0x04,0x04,0x14,0x08,0x00,0x00 .db 0x00,0x02,0x1a,0x02,0x00,0x00,0x00,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x14,0x08,0x14,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x0e,0x14,0x15,0x0e,0x04,0x00,0x00 .db 0x08,0x1c,0x08,0x1c,0x08,0x08,0x0f,0x00 .db 0x0e,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x0a,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x16,0x19,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0d,0x13,0x11,0x1f,0x01,0x01,0x01,0x00 .db 0x00,0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0b,0x15,0x1a,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00 .db 0x0a,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x1f,0x10,0x08,0x04,0x08,0x10,0x1f,0x00 .db 0x00,0x00,0x1f,0x0a,0x0a,0x0a,0x13,0x00 .db 0x1f,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x11,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x01,0x1e,0x04,0x1f,0x04,0x04,0x00 .db 0x00,0x1f,0x08,0x0f,0x09,0x11,0x00,0x00 .db 0x00,0x1f,0x15,0x1f,0x11,0x11,0x00,0x00 .db 0x00,0x04,0x00,0x1f,0x00,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f SOURCE_142/SOURCE_vdriver/tlcd_2x20/routines.asm0000755000175000001440000001642411725741461020327 0ustar joergusers;################################################################################ ;# # ;# text LCD routines # ;# copyright (c) 2005-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd_init: sts lcd_enable,const_0 ;disable update sts lcd_colcount,const_0 ;col counter sts lcd_rowcount,const_0 ;row counter sts lcd_datavalid,const_0 ;no write sts lcd_databyte,const_0 ;data to write sts lcd_cgptr,const_0 ;CG counter brtc lcd_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_setup rcall lcd_ccopy rcall lcd_cls ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr sts lcd_cmap_l,ZL sts lcd_cmap_h,ZH sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL ret lcd_setup: ldi tempreg2,10 lcd_setup_1: api_sync dec tempreg2 brne lcd_setup_1 cbi PORTB,2 ;control ldi tempreg1, 0x03 ; muss 3mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync ldi tempreg1,0x02 ;muss 2mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync ldi tempreg1,0x28 ;function set rcall lcd_cout api_sync api_sync ldi tempreg1,0x0c ;display on rcall lcd_cout api_sync api_sync ldi tempreg1,0x04 ;no shift rcall lcd_cout api_sync ret ;------------------------------------------------------------------------------- ; copy chartable ;------------------------------------------------------------------------------- lcd_ccopy: ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) ;32 empty chars 0-31 ldi XL,0x40 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ldi XL,0xc0 lcd_ccopy_1a: st Y+,const_1 dec XL brne lcd_ccopy_1a ;96 chars 32-127 ldi XH,3 clr XL lcd_ccopy_2: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_2 ;32 empty chars 128-159 ldi XL,0 lcd_ccopy_3: st Y+,const_0 dec XL brne lcd_ccopy_3 ;96 chars 160-255 ldi XH,3 clr XL lcd_ccopy_4: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_4 ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd_gxy: cpi XL,lcd_cols brcs lcd_gxy_1 ldi XL,lcd_cols-1 lcd_gxy_1: cpi XH,lcd_rows brcs lcd_gxy_2 ldi XL,lcd_rows-1 lcd_gxy_2: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd_char_1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_char_1 ;no Y overflow clr XH lcd_char_1: movw libmio_cur_x,XL st Y,tempreg1 ;store char lcd_char2: api_popxyz lcd_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd_newl_1 ;no Y overflow clr XH lcd_newl_1: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------ ; clear screen ;------------------------------------------------------------------------------ lcd_cls: api_pushxyz ldi YL,LOW(libmio_vram) ;active VRAM ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+96) ;shadow VRAM ldi ZH,HIGH(libmio_vram+96) ldi XH,96 ldi XL,0x20 lcd_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) ldi ZL,lcd_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;maximum 96 bytes movw ZL,YL adiw ZL,48 ;visible status is addr+96 adiw ZL,48 ret ;------------------------------------------------------------------------------ ; calc address of (XL) charset byte ;------------------------------------------------------------------------------ lcd_ccalc: ldi YL,LOW(lcd_charset) ;CGRAM address, first byte ldi YH,HIGH(lcd_charset) add YL,XL adc YH,const_0 ;maximum 64 Bytes movw ZL,YL adiw ZL,32 ;visible status is addr+64 adiw ZL,32 ret ;------------------------------------------------------------------------------ ; calc LCD DD-RAM address of (XL:XH) char -> tempreg1 ;------------------------------------------------------------------------------ .if linesort == 1 lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret .endif .if linesort == 2 lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif .if linesort == 3 lcd_pcalc: clr tempreg1 sbrc XH,0 subi tempreg1,0xc0 ;+0x40 sbrc XH,1 subi tempreg1,0xec ;+0x14 add tempreg1,XL ret .endif .if linesort == 4 lcd_pcalc: ldi ZL,32 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif ;------------------------------------------------------------------------------- ; output character (tempreg1=char) ;------------------------------------------------------------------------------- lcd_dout: sbi PORTB,2 ;data rjmp lcd_cout_1 ;sendet ein Controlbyte an das LCD lcd_cout: cbi PORTB,2 ;control lcd_cout_1: swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 ret lcd_outbits: sbrc tempreg1,0 sbi PORTA,4 sbrs tempreg1,0 cbi PORTA,4 sbrc tempreg1,1 sbi PORTA,5 sbrs tempreg1,1 cbi PORTA,5 sbrc tempreg1,2 sbi PORTA,6 sbrs tempreg1,2 cbi PORTA,6 sbrc tempreg1,3 sbi PORTA,7 sbrs tempreg1,3 cbi PORTA,7 ret ;enable-pulse lcd_epulse: sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 nop nop nop ret SOURCE_142/SOURCE_vdriver/pwm_4x8/0000755000175000001440000000000011713042124015533 5ustar joergusersSOURCE_142/SOURCE_vdriver/pwm_4x8/inout.asm0000755000175000001440000000660011725741462017416 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (4 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; no input function available ;------------------------------------------------------------------------------- inex: cpi YH,9 breq inex_90 cpi YH,8 brne inex_err inex_10: cpi YL,0x08 ;strobe brne inex_12 in XL,PINB lsr XL andi XL,0x01 clr XH ret inex_12: cpi YL,0x09 ;busy brne inex_err in XL,PINB lsr XL lsr XL andi XL,0x01 clr XH ret inex_err: ldi ereg,40 ;no IO driver ret inex_90: cpi YL,4 brcc inex_err lsl YL mov XL,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,XL adc YH,const_0 ld XL,Y+ ld XH,Y+ ret ;------------------------------------------------------------------------------- ; output from 0x900 .. 0x9ff ;------------------------------------------------------------------------------- outex: cpi YH,8 breq outex_10 outex_100: cpi YH,0x09 brne inex_err cpi YL,4 brcc inex_err lsl YL mov r0,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,r0 adc YH,const_0 st Y+,XL st Y+,XH ret outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_18 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_18: cpi YL,0x08 ;strobe brne outex_20 sbrc XL,0 sbi PORTB,1 sbrs XL,0 cbi PORTB,1 ret outex_20: cpi YL,0x09 ;busy brne outex_50 sbrc XL,0 sbi PORTB,2 sbrs XL,0 cbi PORTB,2 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_58 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_58: cpi YL,0x18 ;strobe brne outex_60 sbrc XL,0 sbi DDRB,1 sbrs XL,0 cbi DDRB,1 ret outex_60: cpi YL,0x19 ;busy brne outex_err sbrc XL,0 sbi DDRB,2 sbrs XL,0 cbi DDRB,2 ret outex_err: ldi ereg,40 ;no IO driver ret SOURCE_142/SOURCE_vdriver/pwm_4x8/pwm_4x8.asm0000755000175000001440000001706611725741462017576 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (8 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ bas_mta = 0x0110 ;basic multitasking .equ libmio_etable = 0x4680 ;envelope table .equ libmio_ctable = 0x7b00 ;chartable font 0 .CSEG .org 0x7200 ; "...... N" start: .db " PWM 4x8 N",0xb3,0xfe,0xb0 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,0x8d,0x8d,0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 rjmp pwm4x8_init ;FKT 01 init rjmp pwm4x8_cls ;FKT 02 clear screen rjmp pwm4x8_char ;FKT 03 output char rjmp pwm4x8_gxy ;FKT 04 set cursor rjmp pwm4x8_plot ;FKT 05 plot rjmp pwm4x8_nl ;FKT 06 newline rjmp pwm4x8_vid ;FKT 07 video display ret ;------------------------------------------------------------------------------- ; use video mode 0 routines ;------------------------------------------------------------------------------- pwm4x8_cls: api_vm0cls pwm4x8_char: api_vm0char pwm4x8_nl: api_vm0newline pwm4x8_gxy: api_vm0gotoxy pwm4x8_plot: api_vm0plot ;------------------------------------------------------------------------------- ; i/o ;------------------------------------------------------------------------------- .include "inout.asm" ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- pwm4x8_init: brtc pwm4x8_exit ;exit cbi PORTA,4 cbi PORTA,5 cbi PORTA,6 cbi PORTA,7 sbi DDRA,4 sbi DDRA,5 sbi DDRA,6 sbi DDRA,7 rcall pwm_cls rcall pwm4x8_clear ldi XL,0 ;force ext routine ret pwm4x8_exit: cbi PORTA,4 ;set to zero cbi PORTA,5 cbi PORTA,6 cbi PORTA,7 ret ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- pwm_cls: ldi tempreg1,0x20 ;space ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position ldi XL,libmio_rows pwm_cls_01: ldi XH,libmio_cols pwm_cls_02: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_02 ;loop dec XL ;decrement counter brne pwm_cls_01 ;loop lds tempreg1,libmio_color ldi XL,libmio_rows pwm_cls_05: ldi XH,libmio_cols pwm_cls_06: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_06 ;loop dec XL ;decrement counter brne pwm_cls_05 ;loop ret ;------------------------------------------------------------------------------- ; clear pwm data ;------------------------------------------------------------------------------- pwm4x8_clear: ldi XL,LOW(libmio_vram+2000) ldi XH,HIGH(libmio_vram+2000) ldi tempreg1,16 pwm4x8_clear1: st X+,const_0 dec tempreg1 brne pwm4x8_clear1 ldi tempreg1,8 ldi tempreg2,0x00 pwm4x8_clear2: st X+,tempreg2 subi tempreg2,0xe0 ;+0x20 dec tempreg1 brne pwm4x8_clear2 ret ;------------------------------------------------------------------------------- ; reduced video output (23 lines a 24 chars) ;------------------------------------------------------------------------------- pwm4x8_vid: in XL,PORTA ;current value andi XL,0x0f lds tempreg1,libmio_vram+2028 ;output value andi tempreg1,0xf0 or tempreg1,XL out PORTA,tempreg1 ;out ;------------------------------------------------------------------------------- ; set pointer for code saving ;------------------------------------------------------------------------------- mov XL,vline_l sbrc vline_h,0 rjmp pwm4x8_novid cpi XL,235 brcc pwm4x8_novid cpi XL,5 brcs pwm4x8_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- pwm4x8_stc_00: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+93 ;1 brcs pwm4x8_stc_00 ;1 loop pwm4x8_stc_01: cpi XL,libmio_hstart+94 brcs pwm4x8_stc_02 pwm4x8_stc_02: cpi XL,libmio_hstart+95 brcs pwm4x8_stc_03 pwm4x8_stc_03: cpi XL,libmio_hstart+96 brcs pwm4x8_stc_04 pwm4x8_stc_04: cpi XL,libmio_hstart+97 brcs pwm4x8_stc_05 pwm4x8_stc_05: rcall pwm4x8_tvc clt ;disable sync rjmp pwm4x8_pwm pwm4x8_novid: set ;enable sync rjmp pwm4x8_pwm ;channel 4 pwm4x8_pwm: lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_pwm_41 ;no zero lds XH,libmio_vram+2000 ;get control value sts libmio_vram+2012,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x10 ;set channel 1 pwm4x8_pwm_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2012 ;get compare register cp YL,XL ;compare brne pwm4x8_pwm_50 ;not equal andi tempreg1,0xef ;clear channel 1 ;channel 5 pwm4x8_pwm_50: lds XL,libmio_vram+2021 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_pwm_51 ;no zero lds XH,libmio_vram+2001 ;get control value sts libmio_vram+2013,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x20 ;set channel 1 pwm4x8_pwm_51: sts libmio_vram+2021,XL ;store counter lds YL,libmio_vram+2013 ;get compare register cp YL,XL ;compare brne pwm4x8_pwm_60 ;not equal andi tempreg1,0xdf ;clear channel 1 ;channel 6 pwm4x8_pwm_60: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_pwm_61 ;no zero lds XH,libmio_vram+2002 ;get control value sts libmio_vram+2014,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x40 ;set channel 1 pwm4x8_pwm_61: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2014 ;get compare register cp YL,XL ;compare brne pwm4x8_pwm_70 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 pwm4x8_pwm_70: lds XL,libmio_vram+2023 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_pwm_71 ;no zero lds XH,libmio_vram+2003 ;get control value sts libmio_vram+2015,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x80 ;set channel 1 pwm4x8_pwm_71: sts libmio_vram+2023,XL ;store counter lds YL,libmio_vram+2015 ;get compare register cp YL,XL ;compare brne pwm4x8_pwm_80 ;not equal andi tempreg1,0x7f ;clear channel 1 pwm4x8_pwm_80: sts libmio_vram+2028,tempreg1 ret .include "vline_m0.asm" SOURCE_142/SOURCE_vdriver/pwm_4x8/vline_m0.asm0000755000175000001440000000647211725741462020000 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 0 engine # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -256 characters are in table 6x10px each ;------------------------------------------------------------------------------- pwm4x8_tvc: lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high movw YL,XL ;2 copy values ldi ZL,LOW(690) ;1 offset color table ldi ZH,HIGH(690) ;1 add YL,ZL ;1 adc YH,ZH ;1 pwm4x8_tvc_0: ldi ZH,HIGH(libmio_ctable*2);start chartable lds ZL,libmio_cline ;2 character line add ZH,ZL ;1 push tempreg4 push tempreg5 ldi ZL,26 ;1 number of chars mov tempreg5,ZL ;1 set loop counter ld tempreg3,Y+ ;2 get color ld ZL,X+ ;2 get char lpm tempreg2,Z ;3 get pixline mov tempreg4,tempreg3 ;1 swap tempreg4 ;1 eor tempreg4,tempreg3 ;1 sbrc tempreg2,7 ;1 eor tempreg3,tempreg4 ;1 pwm4x8_tvc_1: out PORTC,tempreg3 ;1 output P0 ld ZL,X+ ;2 get char nop ;1 filling sbrc tempreg2,6 ;1 skip if no change out PINC,tempreg4 ;1 output P1 lpm r0,Z ;3 get pixline sbrc tempreg2,5 ;1 skip if no change out PINC,tempreg4 ;1 output P2 ld tempreg3,Y+ ;2 get color mov r1,tempreg3 ;1 copy color sbrc tempreg2,4 ;1 skip if no change out PINC,tempreg4 ;1 output P3 ; nop ;1 filling swap r1 ;1 swap fg/hg eor r1,tempreg3 ;1 calc diffenece sbrc tempreg2,3 ;1 skip if no change out PINC,tempreg4 ;1 output P4 sbrc r0,7 ;1 check next P0 eor tempreg3,r1 ;1 change color dec tempreg5 ;1 loop counter sbrc tempreg2,2 ;1 skip if no change out PINC,tempreg4 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline mov tempreg4,r1 ;1 prepare next colordiff brne pwm4x8_tvc_1 ;2 do loop lds tempreg3,libmio_border ;2 get border out PORTC,tempreg3 ;set pop tempreg5 pop tempreg4 ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,10 ;1 check brne pwm4x8_tvc_2 ;2 jump if not next line clr ZH ;1 character line = 0 adiw XL,4 ;2 skip 4 chars sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position pwm4x8_tvc_2: sts libmio_cline,ZH ;2 new character line ret SOURCE_142/SOURCE_vdriver/mtext_24x60/0000755000175000001440000000000011713042124016231 5ustar joergusersSOURCE_142/SOURCE_vdriver/mtext_24x60/textout.asm0000755000175000001440000000633611725741462020500 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine Y*X text (generic text out) # ;# copyright (c) 2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vidmode_clear: lds ZL,libmio_color ldi tempreg1,0x20 sbrc ZL,1 ldi tempreg1,0xa0 ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XH,vidmode_rows ldi tempreg1,0x20 vidmode_clear1:ldi XL,vidmode_cols vidmode_clear2: st Y+,tempreg1 ;chars dec XL brne vidmode_clear2 dec XH brne vidmode_clear1 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 ret ;------------------------------------------------------------------------------- ; output a single char ;------------------------------------------------------------------------------- vidmode_newl: api_pushxyz movw XL,libmio_cur_x rjmp libmio_chr_nl vidmode_char: api_pushxyz movw XL,libmio_cur_x cpi XL,vidmode_cols brcc vidmode_chr_os ;out of screen cpi XH,vidmode_rows brcc vidmode_chr_os ;out of screen lds ZH,libmio_color wdata_1: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos mov ZL,tempreg1 sbrs ZH,1 subi ZL,0x80 wdata_2: st Y,ZL ;store char ;move cursor libmio_chr_m: movw XL,libmio_cur_x inc XL cpi XL,vidmode_cols brcs vidmode_chr_m1 libmio_chr_nl: clr XL inc XH cpi XH,vidmode_rows brcs vidmode_chr_m1 lds ZL,libmio_config ;scrollmode sbrs ZL,7 rjmp vidmode_scroll clr XH ;WRAP vidmode_chr_m1: movw libmio_cur_x,XL vidmode_chr_os: api_popxyz ;------------------------------------------------------------------------------- ; scroll up ;------------------------------------------------------------------------------- vidmode_scroll: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+vidmode_cols) ldi ZH,HIGH(libmio_vram+vidmode_cols) ldi XH,vidmode_rows-1 scroll0: ldi XL,vidmode_cols scroll1: ld r0,Z+ st Y+,r0 dec XL brne scroll1 dec XH brne scroll0 ldi XH,0x20 ;space ldi XL,vidmode_cols scroll3: st Y+,XH dec XL brne scroll3 ldi XL,0 ldi XH,vidmode_rows-1 rjmp vidmode_chr_m1 SOURCE_142/SOURCE_vdriver/mtext_24x60/mtext_24x60.asm0000755000175000001440000001411611725741462020763 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ vidmode_cols = 60 .equ vidmode_rows = 24 .macro vchar ld ZL,X+ ;2 lpm tempreg1,Z ;3 get pixline out PORTC,tempreg1 ;1 output pix 7 lsl tempreg1 ;1 prepare pix 6 out PORTC,tempreg1 ;1 output pix 6 lsl tempreg1 ;1 prepare pix 5 out PORTC,tempreg1 ;1 output pix 5 lsl tempreg1 ;1 prepare pix 4 out PORTC,tempreg1 ;1 output pix 4 lsl tempreg1 ;1 prepare pix 3 out PORTC,tempreg1 ;1 output pix 3 lsl tempreg1 ;1 prepare pix 2 out PORTC,tempreg1 ;1 output pix 2 .endm .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_ctable = 0x7b00 .equ vidmode_cline = libmio_vram+1301 .equ vidmode_pline = libmio_vram+1302 .equ vidmode_rampos_l = libmio_vram+1303 .equ vidmode_rampos_h = libmio_vram+1304 .CSEG .org 0x7200 ; "...... N" start: .db "M24*60 TEXT N",0xf3,0xfe,0x83 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VT",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext rjmp startup ;FKT 00 rjmp vidmode_init ;FKT 01 init rjmp vidmode_clear ;FKT 02 clear screen rjmp vidmode_char ;FKT 03 output char rjmp vidmode_gxy ;FKT 04 set cursor ret ;FKT 05 plot ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- startup: ldi XL,0xff out DDRA,XL out PORTA,const_0 sbi DDRB,1 sbi DDRB,2 sbi PORTB,1 sbi PORTB,2 in XL,MCUSR andi XL,0x1f breq startup_1 ;no RESET (is warmboot) startup_1: ret ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- vidmode_gxy: movw libmio_cur_x,XL ret ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- vidmode_init: brtc vidmode_exit ;exit ldi XL,0 out PORTC,XL ldi XL,0x80 ;enable only green out DDRC,XL rcall vidmode_clear ldi XL,vidmode_cols*2 sts libmio_clipx2,XL ldi XL,vidmode_rows*2 sts libmio_clipy2,XL ldi XL,0x02 ;disable border end interrupt sts TIMSK1,XL ldi XL,0 ;extended mode sts libmio_border,XL ;set border to black ret vidmode_exit: push XL ldi XL,0 ;enable all video outputs out PORTC,XL ldi XL,0xf0 out DDRC,XL ldi XL,0x06 ;enable border end interrupt sts TIMSK1,XL pop XL ret ;------------------------------------------------------------------------------- ; video output (24 lines a 60 chars) ;------------------------------------------------------------------------------- vidmode_z9: adiw XL,vidmode_cols sts libmio_rampos_l,XL sts libmio_rampos_h,XH sts libmio_cline,const_0 clt ret vidmode_z0: sts libmio_cline,const_1 clt ret vidmode_novid: set ret vidmode_vid: sbrc vline_h,0 rjmp vidmode_novid mov XL,vline_l cpi XL,240 brcc vidmode_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- vid_iss: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+83 ;1 brcs vid_iss ;1 loop vid_iss_01: cpi XL,libmio_hstart+84 brcs vid_iss_02 vid_iss_02: cpi XL,libmio_hstart+85 brcs vid_iss_03 vid_iss_03: cpi XL,libmio_hstart+86 brcs vid_iss_03a vid_iss_03a: cpi XL,libmio_hstart+87 brcs vid_iss_04 vid_iss_04: out PORTC,const_0 ;no border lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds ZH,prg_font ;start of table lsl ZH ;*2 (we use bytes) subi ZH,0xfe ;+2 lds ZL,libmio_cline add ZH,ZL cpi ZL,0 breq vidmode_z0 cpi ZL,9 breq vidmode_z9 ;char 0..9 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 10..19 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 20..29 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 30..39 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 40..49 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 50..59 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar vidmode_vid0: lds ZL,libmio_cline inc ZL sts libmio_cline,ZL out PORTC,const_0 vidmode_vid1: clt ret .include "textout.asm" SOURCE_142/SOURCE_vdriver/mono_24x50/0000755000175000001440000000000011713042124016037 5ustar joergusersSOURCE_142/SOURCE_vdriver/mono_24x50/funct_m24x50.asm0000755000175000001440000001546511725741461020732 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine Y*X text (generic text out) # ;# copyright (c) 2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- vidmode_gxy: movw libmio_cur_x,XL ret ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- vidmode_plot: api_pushregs push libmio_cur_x push libmio_cur_y cpi XL,vidmode_cols*2 ;max X +1 brcc plot_os ;off screen cpi XH,vidmode_rows*2 ;max Y +1 brcc plot_os ;off screen plot_0: ldi tempreg2,1 ;bit left top sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos ld tempreg1,Y ;get char andi tempreg1,0x0f lds ZH,libmio_color sbrs ZH,1 rjmp plot_r or tempreg1,tempreg2 ;set pix plot_e: st Y,tempreg1 plot_os: pop libmio_cur_y pop libmio_cur_x api_popregs plot_r: com tempreg2 and tempreg1,tempreg2 ;clear pix rjmp plot_e ;------------------------------------------------------------------------------- ; output a single char ;------------------------------------------------------------------------------- vidmode_newl: api_pushxyz movw XL,libmio_cur_x rjmp libmio_chr_nl vidmode_char: api_pushxyz movw XL,libmio_cur_x sbrc ctrl,6 rjmp bigchar cpi XL,vidmode_cols brcc vidmode_chr_os ;out of screen cpi XH,vidmode_rows brcc vidmode_chr_os ;out of screen ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos lds ZH,libmio_color mov ZL,tempreg1 sbrs ZH,1 subi ZL,0x80 st Y,ZL ;store char ;move cursor libmio_chr_m: movw XL,libmio_cur_x inc XL cpi XL,vidmode_cols brcs vidmode_chr_m1 libmio_chr_nl: clr XL inc XH cpi XH,vidmode_rows brcs vidmode_chr_m1 lds ZL,libmio_config ;scrollmode sbrs ZL,7 rjmp vidmode_scroll clr XH ;WRAP vidmode_chr_m1: movw libmio_cur_x,XL vidmode_chr_os: api_popxyz vidmode_scroll: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+vidmode_cols) ldi ZH,HIGH(libmio_vram+vidmode_cols) ldi XH,vidmode_rows-1 scroll0: ldi XL,vidmode_cols scroll1: ld r0,Z+ st Y+,r0 dec XL brne scroll1 dec XH brne scroll0 lds ZL,libmio_color ldi ZH,0x20 sbrs ZL,1 ldi ZH,0xA0 ldi XL,vidmode_cols scroll2: st Y+,ZH dec XL brne scroll2 ldi XL,0 ldi XH,23 rjmp vidmode_chr_m1 ;------------------------------------------------------------------------------- ; output a big char ;------------------------------------------------------------------------------- bigchar_no: api_popxyz ;no print bigchar: cpi XL,vidmode_cols*2-3 brcc bigchar_no cpi XH,vidmode_rows*2-5 brcc bigchar_no push tempreg5 ;byte 1 push tempreg6 ;byte 2 push tempreg7 ;byte 3 push tempreg8 ;for storing T-bit bld tempreg8,0 ;store T push tempreg2 ;temp value push tempreg4 bigchar_0: mov ZL,tempreg1 ;char ldi ZH,HIGH(libmio_ctable*2) ;start char ROM (system only) ldi tempreg4,5 ;10 char lines bigchar_1: clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,0 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,1 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,0 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,1 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,0 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,1 inc ZH ;next line clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,2 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,3 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,2 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,3 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,2 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,3 inc ZH bigchar_d: push ZH push ZL lds tempreg2,libmio_color movw XL,libmio_cur_x ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos mov tempreg1,tempreg5 ;char1 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 inc XL mov tempreg1,tempreg6 ;char2 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 inc XL mov tempreg1,tempreg7 ;char2 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 subi XL,2 inc XH movw libmio_cur_x,XL pop ZL pop ZH dec tempreg4 brne bigchar_1x subi XL,0xfd subi XH,0x05 movw libmio_cur_x,XL bigchar_e: pop tempreg4 pop tempreg2 bst tempreg8,0 ;restore T pop tempreg8 pop tempreg7 pop tempreg6 pop tempreg5 rjmp bigchar_no bigchar_1x: rjmp bigchar_1 ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vidmode_clear: lds ZL,libmio_color ldi tempreg1,0x20 sbrc ZL,1 ldi tempreg1,0xa0 ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XH,vidmode_rows ldi tempreg1,0x20 vidmode_clear1:ldi XL,vidmode_cols vidmode_clear2: st Y+,tempreg1 ;chars dec XL brne vidmode_clear2 dec XH brne vidmode_clear1 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 ret SOURCE_142/SOURCE_vdriver/mono_24x50/mono_24x50.asm0000755000175000001440000000507711725741461020404 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ vidmode_cols = 50 .equ vidmode_rows = 24 .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_ctable = 0x7b00 .equ vidmode_cline = libmio_vram+1301 .equ vidmode_pline = libmio_vram+1302 .equ vidmode_rampos_l = libmio_vram+1303 .equ vidmode_rampos_h = libmio_vram+1304 .CSEG .org 0x7200 ; "...... N" start: .db "M24*50 N",0xf3,0xfe,0x81 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VT",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext rjmp vidmode_start ;FKT 00 rjmp vidmode_init ;FKT 01 init rjmp vidmode_clear ;FKT 02 clear screen rjmp vidmode_char ;FKT 03 output char rjmp vidmode_gxy ;FKT 04 set cursor rjmp vidmode_plot ;FKT 05 plot rjmp vidmode_newl ;FKT 06 NL rjmp vidmode_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: ldi ereg,40 ;no IO driver ret .include "vout_m24x50.asm" .include "funct_m24x50.asm" SOURCE_142/SOURCE_vdriver/mono_24x50/vout_m24x50.asm0000755000175000001440000000777511725741461020615 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .macro vchar lpm tempreg1,Z ;3 get pixline out PORTC,tempreg1 ;1 output pix 7 lsl tempreg1 ;1 prepare pix 6 nop ;1 out PORTC,tempreg1 ;1 output pix 6 mov tempreg2,tempreg1 ;1 copy for pix 2 lsl tempreg1 ;1 prepare pix 5 out PORTC,tempreg1 ;1 output pix 5 swap tempreg2 ;1 prepare for pix 2 lsl tempreg1 ;1 prepare pix 4 out PORTC,tempreg1 ;1 output pix 4 lsl tempreg1 ;1 prepare pix 3 nop ;1 out PORTC,tempreg1 ;1 output pix 3 ld ZL,X+ ;1 out PORTC,tempreg2 ;1 output pix 2 .endm ;------------------------------------------------------------------------------- ; startup ;------------------------------------------------------------------------------- vidmode_start: ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- vidmode_init: brtc vidmode_exit ;exit ldi XL,0 out PORTC,XL ldi XL,0x80 ;enable only green out DDRC,XL rcall vidmode_clear ldi XL,100 sts libmio_clipx2,XL ldi XL,48 sts libmio_clipy2,XL ldi XL,0 ;force ext mode ret vidmode_exit: push XL ldi XL,0 ;enable all video outputs out PORTC,XL ldi XL,0xf0 out DDRC,XL pop XL ret ;------------------------------------------------------------------------------- ; video output (24 lines a 50 chars) ;------------------------------------------------------------------------------- vidmode_novid: set ret vidmode_vid: sbrc vline_h,0 rjmp vidmode_novid mov XL,vline_l cpi XL,241 brcc vidmode_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- vid_iss: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+83 ;1 brcs vid_iss ;1 loop vid_iss_01: cpi XL,libmio_hstart+84 brcs vid_iss_02 vid_iss_02: cpi XL,libmio_hstart+85 brcs vid_iss_03 vid_iss_03: cpi XL,libmio_hstart+86 brcs vid_iss_03a vid_iss_03a: cpi XL,libmio_hstart+87 brcs vid_iss_04 vid_iss_04: lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds ZH,prg_font ;start of table lsl ZH subi ZH,0xfe ;+2 lds ZL,libmio_cline add ZH,ZL ld ZL,X+ ;get char 1 ;char 0..9 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 10..19 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 20..29 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 30..39 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 40..49 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar lds tempreg3,libmio_border out PORTC,tempreg3 ld ZL,-X lds ZL,libmio_cline inc ZL cpi ZL,10 brne vidmode_vid1 clr ZL sts libmio_rampos_l,XL sts libmio_rampos_h,XH vidmode_vid1: sts libmio_cline,ZL clt ret SOURCE_142/SOURCE_vdriver/tlcd_1x16/0000755000175000001440000000000011713042124015732 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_1x16/tlcd_1x16.asm0000755000175000001440000000377311725741461020173 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "definitions.asm" .equ lcd_rows = 1 ;rows on LCD .equ lcd_cols = 16 ;columns on LCD .equ lcd_colbyte = 0x80 ;color for dual display .equ lcd_dclocks = 35 ;dummy clocks = (27-cols) * 5 .equ lcd_ystart = 100 ;Y start line .equ lcd_yend = 118 ;Y end line .equ linesort = 1 .CSEG .org 0x7200 ; "...... N" start: .db "LC1*16P4BITSN",0xb3,0xfe,0xa0 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp lcd_init ;FKT 01 init rjmp lcd_cls ;FKT 02 clear screen rjmp lcd_char ;FKT 03 output char rjmp lcd_gxy ;FKT 04 set cursor ret ;FKT 05 plot rjmp lcd_newl ;FKT 06 NL rjmp lcd_vid ;FKT 07 video display ret ;FKT 08 no startup .include "io.asm" .include "routines.asm" .include "video_16.asm" lcd_ctable: .include "ctable.inc" SOURCE_142/SOURCE_vdriver/tlcd_1x16/video_16.asm0000644000175000001440000001131211725741461020063 0ustar joergusers;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd_vid: mov tempreg1,vline_l cpi tempreg1,lcd_ystart brcs lcd_nvid cpi tempreg1,lcd_yend brcc lcd_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_linedoubler,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd_c2 ;write data rjmp lcd_c1 ;prepare data lcd_nvid_1: ret ;do nothing ;prepare data lcd_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd_c3 ;CG RAM service ;update DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_c1_10 ;no Y overflow clr XH lcd_c1_10: sts lcd_colcount,XL ;new col counter sts lcd_rowcount,XH ;new row counter rcall lcd_acalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c1_20 ;yes, update ret lcd_c1_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write rcall lcd_pcalc ;calculate position in LCD ori tempreg1,0x80 ;bit for DDRAM address rjmp lcd_cout ;control output ;second cycle writes data lcd_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;update CG RAM data lcd_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd_c3_10 ;no X overflow clr XL lcd_c3_10: sts lcd_cgptr,XL ;new col counter rcall lcd_ccalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c3_20 ;yes, update ret lcd_c3_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write mov tempreg1,XL andi tempreg1,0x3f ;limit to 64 ori tempreg1,0x40 ;bit for CG RAM address rjmp lcd_cout ;control output ;calculate data for first char lcd_vline: ldi XL,20 lcd_predelay: dec XL brne lcd_predelay lds YH,lcd_pixline ;PCC lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds tempreg1,libmio_color ;2 get color byte out PORTC,tempreg1 ;1 push tempreg4 subi YH,1 brcs lcd_dline_e cpi YH,7 brcc lcd_dline ldi YL,8 ;1 8 bytes/char ld ZL,X+ ;2 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 ldi ZH,HIGH(lcd_charset) ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 ld tempreg3,Z ;2 ldi tempreg4,lcd_cols ;1 number of chars lds tempreg2,libmio_color ;2 color for pixpause lcd_vloop: mov tempreg1,tempreg2 ;1 get color sbrc tempreg3,4 ;1 skip if pix is off swap tempreg1 ;1 out PORTC,tempreg1 ;1 out pix 4 ld ZL,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 sbrc tempreg3,3 ;1 skip if pix is not changed swap tempreg1 ;1 ldi ZH,HIGH(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 3 mov tempreg1,tempreg2 ;1 sbrc tempreg3,2 ;1 skip if pix is not changed swap tempreg1 ;1 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 2 mov tempreg1,tempreg2 ;1 sbrc tempreg3,1 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 1 mov tempreg1,tempreg2 ;1 sbrc tempreg3,0 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 0 ld tempreg3,Z ;2 ld tempreg3,Z ;2 ld tempreg3,Z ;1 out PORTC,tempreg2 ;1 out pixpause dec tempreg4 ;1 loop counter brne lcd_vloop ;2/1 ldi tempreg2,1 lcd_dline_0: dec tempreg2 brne lcd_dline_0 nop nop rjmp lcd_nline lcd_dline_e: nop nop lcd_dline: ldi tempreg2,138 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop nop nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_linedoubler lds ZH,lcd_pixline ;2 character line inc YL cpi YL,2 out PORTC,tempreg2 ;1 out border brne lcd_nline_1 clr YL inc ZH cpi ZH,9 ;1 check brne lcd_nline_1 ;2 jump if not next line clr ZH ;1 character line = 0 lds XL,libmio_rampos_l lds XH,libmio_rampos_h adiw XL,lcd_cols sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position lcd_nline_1: sts lcd_linedoubler,YL sts lcd_pixline,ZH ;2 new character line rjmp get_keys SOURCE_142/SOURCE_vdriver/tlcd_1x16/definitions.asm0000755000175000001440000000364711725741461021001 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ lcd_charmap = libmio_vram .equ lcd_sys = libmio_vram+192 .equ lcd_cgmap = libmio_vram+320 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+256 .equ lcd_enable = lcd_sys ;enable update .equ lcd_colcount = lcd_sys+1 ;col counter .equ lcd_rowcount = lcd_sys+2 ;row counter .equ lcd_datavalid = lcd_sys+3 ;no write .equ lcd_databyte = lcd_sys+4 ;data to write .equ lcd_pixline = lcd_sys+5 ;pixline .equ lcd_linedoubler = lcd_sys+6 ;charline .equ lcd_cgptr = lcd_sys+8 ;CG counter .equ lcd_keys = lcd_sys+9 ;key state .equ lcd_cmap_l = lcd_sys+10 ;charset address .equ lcd_cmap_h = lcd_sys+11 SOURCE_142/SOURCE_vdriver/tlcd_1x16/io.asm0000755000175000001440000000654111725741461017071 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x08 ;I/O brne inex_100 inex_10: cpi XL,0x04 brne inex_12 lds XH,lcd_keys bst XH,4 inex_kin: clr XL bld XL,0 clr XH ret inex_12: cpi XL,0x05 brne inex_14 lds XH,lcd_keys bst XH,5 rjmp inex_kin inex_14: cpi XL,0x06 brne inex_16 lds XH,lcd_keys bst XH,6 rjmp inex_kin inex_16: cpi XL,0x07 brne inex_err lds XH,lcd_keys bst XH,7 rjmp inex_kin inex_100: cpi XH,0x0a ;CG RAM brne inex_err cpi XL,0x40 brcc inex_err mov r16,XL ldi XL,LOW(lcd_charset) ldi XH,HIGH(lcd_charset) add XL,r16 add XH,const_0 ld XL,X clr XH ret inex_err: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,8 brne outex_100 outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_50 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_80 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_80: rjmp outex_err outex_100: cpi YH,0x0a ;CG RAM brne outex_err cpi YL,0x40 brcc outex_err mov XH,YL ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) add YL,XH add YH,const_0 st Y,XL ret outex_err: ldi ereg,40 ;no IO driver ret get_keys: in XL,PORTA ;enable pull-up ori XL,0xf0 out PORTA,XL in XL,DDRA ;set D4-7 as input andi XL,0x0f out DDRA,XL nop nop ori XL,0xf0 in XH,PINA ;get state out DDRA,XL ;set D4-7 as output sts lcd_keys,XH ret SOURCE_142/SOURCE_vdriver/tlcd_1x16/ctable.inc0000644000175000001440000002340011725741461017673 0ustar joergusers .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x04,0x04,0x04,0x00,0x00,0x04,0x00 .db 0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00 .db 0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00 .db 0x04,0x0f,0x14,0x0e,0x05,0x1e,0x04,0x00 .db 0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00 .db 0x0c,0x12,0x14,0x08,0x14,0x12,0x0d,0x00 .db 0x0c,0x04,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00 .db 0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00 .db 0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0c,0x04,0x08,0x00 .db 0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x0c,0x0c,0x00 .db 0x00,0x00,0x01,0x02,0x04,0x08,0x00,0x00 .db 0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00 .db 0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x08,0x1f,0x00 .db 0x1f,0x02,0x04,0x02,0x01,0x11,0x0e,0x00 .db 0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00 .db 0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00 .db 0x06,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00 .db 0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x02,0x0c,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x0c,0x00,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x04,0x08,0x00 .db 0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00 .db 0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00 .db 0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 .db 0x0e,0x11,0x01,0x0d,0x15,0x15,0x0e,0x00 .db 0x0e,0x11,0x11,0x11,0x1f,0x11,0x11,0x00 .db 0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00 .db 0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00 .db 0x1c,0x12,0x11,0x11,0x11,0x12,0x1c,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x10,0x17,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00 .db 0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x07,0x02,0x02,0x02,0x02,0x12,0x0c,0x00 .db 0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00 .db 0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00 .db 0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00 .db 0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00 .db 0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00 .db 0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00 .db 0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00 .db 0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x11,0x0a,0x0a,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x15,0x15,0x0e,0x00 .db 0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00 .db 0x11,0x11,0x11,0x0a,0x04,0x04,0x04,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00 .db 0x0e,0x08,0x08,0x08,0x08,0x08,0x0e,0x00 .db 0x11,0x0a,0x1f,0x04,0x1f,0x04,0x04,0x00 .db 0x0e,0x02,0x02,0x02,0x02,0x02,0x0e,0x00 .db 0x04,0x0a,0x11,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x08,0x04,0x02,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x10,0x10,0x1e,0x11,0x11,0x11,0x1e,0x00 .db 0x00,0x00,0x0e,0x10,0x10,0x11,0x0e,0x00 .db 0x01,0x01,0x0d,0x13,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0e,0x11,0x1f,0x10,0x0e,0x00 .db 0x06,0x09,0x08,0x1c,0x08,0x08,0x08,0x00 .db 0x00,0x0f,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x10,0x10,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x04,0x00,0x0c,0x04,0x04,0x04,0x0e,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x10,0x10,0x12,0x14,0x18,0x14,0x12,0x00 .db 0x0c,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x00,0x00,0x1a,0x15,0x15,0x11,0x11,0x00 .db 0x00,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x00,0x0d,0x13,0x0f,0x01,0x01,0x00 .db 0x00,0x00,0x16,0x19,0x10,0x10,0x10,0x00 .db 0x00,0x00,0x0e,0x10,0x0e,0x01,0x1e,0x00 .db 0x08,0x08,0x1c,0x08,0x08,0x09,0x06,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x0a,0x04,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x15,0x0a,0x00 .db 0x00,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x00,0x00,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x00,0x00,0x1f,0x02,0x04,0x08,0x1f,0x00 .db 0x02,0x04,0x04,0x08,0x04,0x04,0x02,0x00 .db 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x08,0x04,0x04,0x02,0x04,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x1f,0x02,0x04,0x00,0x00 .db 0x00,0x04,0x08,0x1f,0x08,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x1c,0x14,0x1c,0x00 .db 0x07,0x04,0x04,0x04,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x04,0x04,0x04,0x1c,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x00 .db 0x00,0x00,0x00,0x0c,0x0c,0x00,0x00,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x02,0x04,0x00 .db 0x00,0x00,0x1f,0x01,0x02,0x04,0x08,0x00 .db 0x00,0x00,0x02,0x04,0x0c,0x14,0x04,0x00 .db 0x00,0x04,0x1f,0x11,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x00,0x1f,0x04,0x04,0x1f,0x00 .db 0x00,0x00,0x02,0x1f,0x06,0x0a,0x12,0x00 .db 0x00,0x00,0x08,0x1f,0x09,0x0a,0x08,0x00 .db 0x00,0x00,0x00,0x0e,0x02,0x02,0x1f,0x00 .db 0x00,0x00,0x1e,0x02,0x1e,0x02,0x1e,0x00 .db 0x00,0x00,0x15,0x15,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x1f,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x01,0x05,0x06,0x04,0x04,0x08,0x00 .db 0x01,0x02,0x04,0x0c,0x14,0x04,0x04,0x00 .db 0x04,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x1f,0x04,0x04,0x04,0x04,0x1f,0x00 .db 0x02,0x1f,0x02,0x06,0x0a,0x12,0x02,0x00 .db 0x08,0x1f,0x09,0x09,0x09,0x09,0x12,0x00 .db 0x04,0x1f,0x04,0x1f,0x04,0x04,0x04,0x00 .db 0x00,0x0f,0x09,0x11,0x01,0x02,0x0c,0x00 .db 0x08,0x0f,0x12,0x02,0x02,0x02,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x01,0x1f,0x00 .db 0x0a,0x1f,0x0a,0x0a,0x02,0x04,0x08,0x00 .db 0x00,0x18,0x01,0x19,0x01,0x02,0x1c,0x00 .db 0x00,0x1f,0x01,0x02,0x04,0x0a,0x11,0x00 .db 0x08,0x1f,0x09,0x0a,0x08,0x08,0x07,0x00 .db 0x00,0x11,0x11,0x09,0x01,0x02,0x0c,0x00 .db 0x00,0x0f,0x09,0x05,0x03,0x02,0x0c,0x00 .db 0x02,0x1c,0x04,0x1f,0x04,0x04,0x08,0x00 .db 0x00,0x15,0x15,0x15,0x01,0x02,0x04,0x00 .db 0x0e,0x00,0x1f,0x04,0x04,0x04,0x08,0x00 .db 0x08,0x08,0x08,0x0c,0x0a,0x08,0x08,0x00 .db 0x04,0x04,0x1f,0x04,0x04,0x08,0x10,0x00 .db 0x00,0x0e,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x00,0x1f,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x04,0x1f,0x02,0x04,0x0e,0x15,0x04,0x00 .db 0x02,0x02,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x11,0x11,0x11,0x11,0x00 .db 0x10,0x10,0x1f,0x10,0x10,0x10,0x0f,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x02,0x0c,0x00 .db 0x00,0x08,0x14,0x02,0x01,0x01,0x00,0x00 .db 0x04,0x1f,0x04,0x04,0x15,0x15,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x0a,0x04,0x02,0x00 .db 0x00,0x0e,0x00,0x0e,0x00,0x0e,0x01,0x00 .db 0x00,0x04,0x08,0x10,0x11,0x1f,0x01,0x00 .db 0x00,0x01,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x00,0x1f,0x08,0x1f,0x08,0x08,0x07,0x00 .db 0x08,0x08,0x1f,0x09,0x0a,0x08,0x08,0x00 .db 0x00,0x0e,0x02,0x02,0x02,0x02,0x1f,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x01,0x1f,0x00 .db 0x0e,0x00,0x1f,0x01,0x01,0x02,0x04,0x00 .db 0x12,0x12,0x12,0x12,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x14,0x14,0x15,0x15,0x16,0x00 .db 0x00,0x10,0x10,0x11,0x12,0x14,0x18,0x00 .db 0x00,0x1f,0x11,0x11,0x11,0x1f,0x00,0x00 .db 0x00,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x18,0x00,0x01,0x01,0x02,0x1c,0x00 .db 0x04,0x12,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x1c,0x14,0x1c,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x09,0x15,0x12,0x12,0x0d,0x00,0x00 .db 0x0a,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x0e,0x11,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x0e,0x10,0x0c,0x11,0x0e,0x00,0x00 .db 0x11,0x11,0x11,0x13,0x1d,0x10,0x10,0x00 .db 0x00,0x0f,0x14,0x12,0x11,0x0e,0x00,0x00 .db 0x06,0x09,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x07,0x04,0x04,0x14,0x08,0x00,0x00 .db 0x00,0x02,0x1a,0x02,0x00,0x00,0x00,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x14,0x08,0x14,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x0e,0x14,0x15,0x0e,0x04,0x00,0x00 .db 0x08,0x1c,0x08,0x1c,0x08,0x08,0x0f,0x00 .db 0x0e,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x0a,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x16,0x19,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0d,0x13,0x11,0x1f,0x01,0x01,0x01,0x00 .db 0x00,0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0b,0x15,0x1a,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00 .db 0x0a,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x1f,0x10,0x08,0x04,0x08,0x10,0x1f,0x00 .db 0x00,0x00,0x1f,0x0a,0x0a,0x0a,0x13,0x00 .db 0x1f,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x11,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x01,0x1e,0x04,0x1f,0x04,0x04,0x00 .db 0x00,0x1f,0x08,0x0f,0x09,0x11,0x00,0x00 .db 0x00,0x1f,0x15,0x1f,0x11,0x11,0x00,0x00 .db 0x00,0x04,0x00,0x1f,0x00,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f SOURCE_142/SOURCE_vdriver/tlcd_1x16/routines.asm0000755000175000001440000001642411725741461020333 0ustar joergusers;################################################################################ ;# # ;# text LCD routines # ;# copyright (c) 2005-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd_init: sts lcd_enable,const_0 ;disable update sts lcd_colcount,const_0 ;col counter sts lcd_rowcount,const_0 ;row counter sts lcd_datavalid,const_0 ;no write sts lcd_databyte,const_0 ;data to write sts lcd_cgptr,const_0 ;CG counter brtc lcd_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_setup rcall lcd_ccopy rcall lcd_cls ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr sts lcd_cmap_l,ZL sts lcd_cmap_h,ZH sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL ret lcd_setup: ldi tempreg2,10 lcd_setup_1: api_sync dec tempreg2 brne lcd_setup_1 cbi PORTB,2 ;control ldi tempreg1, 0x03 ; muss 3mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync ldi tempreg1,0x02 ;muss 2mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync ldi tempreg1,0x28 ;function set rcall lcd_cout api_sync api_sync ldi tempreg1,0x0c ;display on rcall lcd_cout api_sync api_sync ldi tempreg1,0x04 ;no shift rcall lcd_cout api_sync ret ;------------------------------------------------------------------------------- ; copy chartable ;------------------------------------------------------------------------------- lcd_ccopy: ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) ;32 empty chars 0-31 ldi XL,0x40 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ldi XL,0xc0 lcd_ccopy_1a: st Y+,const_1 dec XL brne lcd_ccopy_1a ;96 chars 32-127 ldi XH,3 clr XL lcd_ccopy_2: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_2 ;32 empty chars 128-159 ldi XL,0 lcd_ccopy_3: st Y+,const_0 dec XL brne lcd_ccopy_3 ;96 chars 160-255 ldi XH,3 clr XL lcd_ccopy_4: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_4 ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd_gxy: cpi XL,lcd_cols brcs lcd_gxy_1 ldi XL,lcd_cols-1 lcd_gxy_1: cpi XH,lcd_rows brcs lcd_gxy_2 ldi XL,lcd_rows-1 lcd_gxy_2: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd_char_1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_char_1 ;no Y overflow clr XH lcd_char_1: movw libmio_cur_x,XL st Y,tempreg1 ;store char lcd_char2: api_popxyz lcd_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd_newl_1 ;no Y overflow clr XH lcd_newl_1: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------ ; clear screen ;------------------------------------------------------------------------------ lcd_cls: api_pushxyz ldi YL,LOW(libmio_vram) ;active VRAM ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+96) ;shadow VRAM ldi ZH,HIGH(libmio_vram+96) ldi XH,96 ldi XL,0x20 lcd_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) ldi ZL,lcd_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;maximum 96 bytes movw ZL,YL adiw ZL,48 ;visible status is addr+96 adiw ZL,48 ret ;------------------------------------------------------------------------------ ; calc address of (XL) charset byte ;------------------------------------------------------------------------------ lcd_ccalc: ldi YL,LOW(lcd_charset) ;CGRAM address, first byte ldi YH,HIGH(lcd_charset) add YL,XL adc YH,const_0 ;maximum 64 Bytes movw ZL,YL adiw ZL,32 ;visible status is addr+64 adiw ZL,32 ret ;------------------------------------------------------------------------------ ; calc LCD DD-RAM address of (XL:XH) char -> tempreg1 ;------------------------------------------------------------------------------ .if linesort == 1 lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret .endif .if linesort == 2 lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif .if linesort == 3 lcd_pcalc: clr tempreg1 sbrc XH,0 subi tempreg1,0xc0 ;+0x40 sbrc XH,1 subi tempreg1,0xec ;+0x14 add tempreg1,XL ret .endif .if linesort == 4 lcd_pcalc: ldi ZL,32 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif ;------------------------------------------------------------------------------- ; output character (tempreg1=char) ;------------------------------------------------------------------------------- lcd_dout: sbi PORTB,2 ;data rjmp lcd_cout_1 ;sendet ein Controlbyte an das LCD lcd_cout: cbi PORTB,2 ;control lcd_cout_1: swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 ret lcd_outbits: sbrc tempreg1,0 sbi PORTA,4 sbrs tempreg1,0 cbi PORTA,4 sbrc tempreg1,1 sbi PORTA,5 sbrs tempreg1,1 cbi PORTA,5 sbrc tempreg1,2 sbi PORTA,6 sbrs tempreg1,2 cbi PORTA,6 sbrc tempreg1,3 sbi PORTA,7 sbrs tempreg1,3 cbi PORTA,7 ret ;enable-pulse lcd_epulse: sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 nop nop nop ret SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/0000755000175000001440000000000011713042124016150 5ustar joergusersSOURCE_142/SOURCE_vdriver/tlcd_4x20_1/video_20.asm0000644000175000001440000001122611725741461020300 0ustar joergusers;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd_vid: mov tempreg1,vline_l cpi tempreg1,lcd_ystart brcs lcd_nvid cpi tempreg1,lcd_yend brcc lcd_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_linedoubler,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd_c2 ;write data rjmp lcd_c1 ;prepare data lcd_nvid_1: ret ;do nothing ;prepare data lcd_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd_c3 ;CG RAM service ;update DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_c1_10 ;no Y overflow clr XH lcd_c1_10: sts lcd_colcount,XL ;new col counter sts lcd_rowcount,XH ;new row counter rcall lcd_acalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c1_20 ;yes, update ret lcd_c1_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write rcall lcd_pcalc ;calculate position in LCD ori tempreg1,0x80 ;bit for DDRAM address rjmp lcd_cout ;control output ;second cycle writes data lcd_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;update CG RAM data lcd_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd_c3_10 ;no X overflow clr XL lcd_c3_10: sts lcd_cgptr,XL ;new col counter rcall lcd_ccalc ;calc vram address ld tempreg1,Y ;to write ld tempreg2,Z ;visible char cp tempreg1,tempreg2 ;differ? brne lcd_c3_20 ;yes, update ret lcd_c3_20: st Z,tempreg1 ;set visible as written sts lcd_datavalid,const_1 ;set write flag sts lcd_databyte,tempreg1 ;data to write mov tempreg1,XL andi tempreg1,0x3f ;limit to 64 ori tempreg1,0x40 ;bit for CG RAM address rjmp lcd_cout ;control output ;calculate data for first char lcd_vline: lds YH,lcd_pixline ;PCC lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds tempreg1,libmio_color ;2 get color byte out PORTC,tempreg1 ;1 push tempreg4 subi YH,1 brcs lcd_dline_e cpi YH,7 brcc lcd_dline ldi YL,8 ;1 8 bytes/char ld ZL,X+ ;2 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 ldi ZH,HIGH(lcd_charset) ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 ld tempreg3,Z ;2 ldi tempreg4,lcd_cols ;1 number of chars lds tempreg2,libmio_color ;2 color for pixpause lcd_vloop: mov tempreg1,tempreg2 ;1 get color sbrc tempreg3,4 ;1 skip if pix is off swap tempreg1 ;1 out PORTC,tempreg1 ;1 out pix 4 ld ZL,X+ ;2 get next byte mov tempreg1,tempreg2 ;1 sbrc tempreg3,3 ;1 skip if pix is not changed swap tempreg1 ;1 ldi ZH,HIGH(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 3 mov tempreg1,tempreg2 ;1 sbrc tempreg3,2 ;1 skip if pix is not changed swap tempreg1 ;1 mul ZL,YL ;2 ldi ZL,LOW(lcd_charset) ;1 out PORTC,tempreg1 ;1 out pix 2 mov tempreg1,tempreg2 ;1 sbrc tempreg3,1 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,r0 ;1 add character offset adc ZH,r1 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 1 mov tempreg1,tempreg2 ;1 sbrc tempreg3,0 ;1 skip if pix is not changed swap tempreg1 ;1 add ZL,YH ;1 add cline offset adc ZH,const_0 ;1 nop ;1 out PORTC,tempreg1 ;1 out pix 0 ld tempreg3,Z ;2 ld tempreg3,Z ;2 ld tempreg3,Z ;1 out PORTC,tempreg2 ;1 out pixpause dec tempreg4 ;1 loop counter brne lcd_vloop ;2/1 ldi tempreg2,1 lcd_dline_0: dec tempreg2 brne lcd_dline_0 nop nop rjmp lcd_nline lcd_dline_e: nop nop lcd_dline: ldi tempreg2,172 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop nop nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_linedoubler lds ZH,lcd_pixline ;2 character line inc YL cpi YL,2 out PORTC,tempreg2 ;1 out border brne lcd_nline_1 clr YL inc ZH cpi ZH,9 ;1 check brne lcd_nline_1 ;2 jump if not next line clr ZH ;1 character line = 0 lds XL,libmio_rampos_l lds XH,libmio_rampos_h adiw XL,lcd_cols sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position lcd_nline_1: sts lcd_linedoubler,YL sts lcd_pixline,ZH ;2 new character line rjmp get_keys SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/tlcd_4x20_1.asm0000755000175000001440000000416011725741461020616 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "definitions.asm" .equ lcd_rows = 4 ;rows on LCD .equ lcd_cols = 20 ;columns on LCD .equ lcd_colbyte = 0x80 ;color for dual display .equ lcd_dclocks = 35 ;dummy clocks = (27-cols) * 5 .equ lcd_ystart = 55 .equ lcd_yend = 128 .equ linesort = 3 .CSEG .org 0x7200 ; "...... N" start: .db "LC4*20P4BIT1N",0xb3,0xfe,0xa3 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"LC",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp lcd_init ;FKT 01 init rjmp lcd_cls ;FKT 02 clear screen rjmp lcd_char ;FKT 03 output char rjmp lcd_gxy ;FKT 04 set cursor ret ;FKT 05 plot rjmp lcd_newl ;FKT 06 NL rjmp lcd_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; I/O expansion ;------------------------------------------------------------------------------- .include "io.asm" .include "routines.asm" .include "video_20.asm" lcd_ctable: .include "ctable.inc" SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/definitions.asm0000755000175000001440000000373511725741461021215 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ lcd_charmap = libmio_vram .equ lcd_sys = libmio_vram+192 .equ lcd_cgmap = libmio_vram+320 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+256 .equ lcd_enable = lcd_sys ;enable update .equ lcd_colcount = lcd_sys+1 ;col counter .equ lcd_rowcount = lcd_sys+2 ;row counter .equ lcd_datavalid = lcd_sys+3 ;no write .equ lcd_databyte = lcd_sys+4 ;data to write .equ lcd_linedoubler = lcd_sys+5 ;for TV line doubling .equ lcd_pixline = lcd_sys+6 ;pixline in char .equ lcd_cgptr = lcd_sys+8 ;CG counter .equ lcd_keys = lcd_sys+9 ;key state .equ lcd_cmap_l = lcd_sys+10 ;low address of charmap .equ lcd_cmap_h = lcd_sys+11 ;high address of charmap SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/io.asm0000755000175000001440000000654111725741461017307 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (LCD 20x2) # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: cpi XH,0x08 ;I/O brne inex_100 inex_10: cpi XL,0x04 brne inex_12 lds XH,lcd_keys bst XH,4 inex_kin: clr XL bld XL,0 clr XH ret inex_12: cpi XL,0x05 brne inex_14 lds XH,lcd_keys bst XH,5 rjmp inex_kin inex_14: cpi XL,0x06 brne inex_16 lds XH,lcd_keys bst XH,6 rjmp inex_kin inex_16: cpi XL,0x07 brne inex_err lds XH,lcd_keys bst XH,7 rjmp inex_kin inex_100: cpi XH,0x0a ;CG RAM brne inex_err cpi XL,0x40 brcc inex_err mov r16,XL ldi XL,LOW(lcd_charset) ldi XH,HIGH(lcd_charset) add XL,r16 add XH,const_0 ld XL,X clr XH ret inex_err: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: cpi YH,8 brne outex_100 outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_50 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_80 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_80: rjmp outex_err outex_100: cpi YH,0x0a ;CG RAM brne outex_err cpi YL,0x40 brcc outex_err mov XH,YL ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) add YL,XH add YH,const_0 st Y,XL ret outex_err: ldi ereg,40 ;no IO driver ret get_keys: in XL,PORTA ;enable pull-up ori XL,0xf0 out PORTA,XL in XL,DDRA ;set D4-7 as input andi XL,0x0f out DDRA,XL nop nop ori XL,0xf0 in XH,PINA ;get state out DDRA,XL ;set D4-7 as output sts lcd_keys,XH ret SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/ctable.inc0000644000175000001440000002340011725741461020111 0ustar joergusers .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x04,0x04,0x04,0x00,0x00,0x04,0x00 .db 0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00 .db 0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00 .db 0x04,0x0f,0x14,0x0e,0x05,0x1e,0x04,0x00 .db 0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00 .db 0x0c,0x12,0x14,0x08,0x14,0x12,0x0d,0x00 .db 0x0c,0x04,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00 .db 0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00 .db 0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x0c,0x04,0x08,0x00 .db 0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x0c,0x0c,0x00 .db 0x00,0x00,0x01,0x02,0x04,0x08,0x00,0x00 .db 0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00 .db 0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x08,0x1f,0x00 .db 0x1f,0x02,0x04,0x02,0x01,0x11,0x0e,0x00 .db 0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00 .db 0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00 .db 0x06,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00 .db 0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x02,0x0c,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x0c,0x00,0x00 .db 0x00,0x0c,0x0c,0x00,0x0c,0x04,0x08,0x00 .db 0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00 .db 0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00 .db 0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00 .db 0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 .db 0x0e,0x11,0x01,0x0d,0x15,0x15,0x0e,0x00 .db 0x0e,0x11,0x11,0x11,0x1f,0x11,0x11,0x00 .db 0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00 .db 0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00 .db 0x1c,0x12,0x11,0x11,0x11,0x12,0x1c,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00 .db 0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x10,0x17,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00 .db 0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x07,0x02,0x02,0x02,0x02,0x12,0x0c,0x00 .db 0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00 .db 0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00 .db 0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00 .db 0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00 .db 0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00 .db 0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00 .db 0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00 .db 0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00 .db 0x11,0x11,0x11,0x11,0x0a,0x0a,0x04,0x00 .db 0x11,0x11,0x11,0x11,0x15,0x15,0x0e,0x00 .db 0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00 .db 0x11,0x11,0x11,0x0a,0x04,0x04,0x04,0x00 .db 0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00 .db 0x0e,0x08,0x08,0x08,0x08,0x08,0x0e,0x00 .db 0x11,0x0a,0x1f,0x04,0x1f,0x04,0x04,0x00 .db 0x0e,0x02,0x02,0x02,0x02,0x02,0x0e,0x00 .db 0x04,0x0a,0x11,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x08,0x04,0x02,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x10,0x10,0x1e,0x11,0x11,0x11,0x1e,0x00 .db 0x00,0x00,0x0e,0x10,0x10,0x11,0x0e,0x00 .db 0x01,0x01,0x0d,0x13,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0e,0x11,0x1f,0x10,0x0e,0x00 .db 0x06,0x09,0x08,0x1c,0x08,0x08,0x08,0x00 .db 0x00,0x0f,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x10,0x10,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x04,0x00,0x0c,0x04,0x04,0x04,0x0e,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x10,0x10,0x12,0x14,0x18,0x14,0x12,0x00 .db 0x0c,0x04,0x04,0x04,0x04,0x04,0x0e,0x00 .db 0x00,0x00,0x1a,0x15,0x15,0x11,0x11,0x00 .db 0x00,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x00,0x0d,0x13,0x0f,0x01,0x01,0x00 .db 0x00,0x00,0x16,0x19,0x10,0x10,0x10,0x00 .db 0x00,0x00,0x0e,0x10,0x0e,0x01,0x1e,0x00 .db 0x08,0x08,0x1c,0x08,0x08,0x09,0x06,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x0a,0x04,0x00 .db 0x00,0x00,0x11,0x11,0x11,0x15,0x0a,0x00 .db 0x00,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x00,0x00,0x11,0x11,0x0f,0x01,0x0e,0x00 .db 0x00,0x00,0x1f,0x02,0x04,0x08,0x1f,0x00 .db 0x02,0x04,0x04,0x08,0x04,0x04,0x02,0x00 .db 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x00 .db 0x08,0x04,0x04,0x02,0x04,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x1f,0x02,0x04,0x00,0x00 .db 0x00,0x04,0x08,0x1f,0x08,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x1c,0x14,0x1c,0x00 .db 0x07,0x04,0x04,0x04,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x04,0x04,0x04,0x1c,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x00 .db 0x00,0x00,0x00,0x0c,0x0c,0x00,0x00,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x02,0x04,0x00 .db 0x00,0x00,0x1f,0x01,0x02,0x04,0x08,0x00 .db 0x00,0x00,0x02,0x04,0x0c,0x14,0x04,0x00 .db 0x00,0x04,0x1f,0x11,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x00,0x1f,0x04,0x04,0x1f,0x00 .db 0x00,0x00,0x02,0x1f,0x06,0x0a,0x12,0x00 .db 0x00,0x00,0x08,0x1f,0x09,0x0a,0x08,0x00 .db 0x00,0x00,0x00,0x0e,0x02,0x02,0x1f,0x00 .db 0x00,0x00,0x1e,0x02,0x1e,0x02,0x1e,0x00 .db 0x00,0x00,0x15,0x15,0x01,0x06,0x00,0x00 .db 0x00,0x00,0x1f,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x01,0x05,0x06,0x04,0x04,0x08,0x00 .db 0x01,0x02,0x04,0x0c,0x14,0x04,0x04,0x00 .db 0x04,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x1f,0x04,0x04,0x04,0x04,0x1f,0x00 .db 0x02,0x1f,0x02,0x06,0x0a,0x12,0x02,0x00 .db 0x08,0x1f,0x09,0x09,0x09,0x09,0x12,0x00 .db 0x04,0x1f,0x04,0x1f,0x04,0x04,0x04,0x00 .db 0x00,0x0f,0x09,0x11,0x01,0x02,0x0c,0x00 .db 0x08,0x0f,0x12,0x02,0x02,0x02,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x01,0x1f,0x00 .db 0x0a,0x1f,0x0a,0x0a,0x02,0x04,0x08,0x00 .db 0x00,0x18,0x01,0x19,0x01,0x02,0x1c,0x00 .db 0x00,0x1f,0x01,0x02,0x04,0x0a,0x11,0x00 .db 0x08,0x1f,0x09,0x0a,0x08,0x08,0x07,0x00 .db 0x00,0x11,0x11,0x09,0x01,0x02,0x0c,0x00 .db 0x00,0x0f,0x09,0x05,0x03,0x02,0x0c,0x00 .db 0x02,0x1c,0x04,0x1f,0x04,0x04,0x08,0x00 .db 0x00,0x15,0x15,0x15,0x01,0x02,0x04,0x00 .db 0x0e,0x00,0x1f,0x04,0x04,0x04,0x08,0x00 .db 0x08,0x08,0x08,0x0c,0x0a,0x08,0x08,0x00 .db 0x04,0x04,0x1f,0x04,0x04,0x08,0x10,0x00 .db 0x00,0x0e,0x00,0x00,0x00,0x00,0x1f,0x00 .db 0x00,0x1f,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x04,0x1f,0x02,0x04,0x0e,0x15,0x04,0x00 .db 0x02,0x02,0x02,0x02,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x02,0x11,0x11,0x11,0x11,0x00 .db 0x10,0x10,0x1f,0x10,0x10,0x10,0x0f,0x00 .db 0x00,0x1f,0x01,0x01,0x01,0x02,0x0c,0x00 .db 0x00,0x08,0x14,0x02,0x01,0x01,0x00,0x00 .db 0x04,0x1f,0x04,0x04,0x15,0x15,0x04,0x00 .db 0x00,0x1f,0x01,0x01,0x0a,0x04,0x02,0x00 .db 0x00,0x0e,0x00,0x0e,0x00,0x0e,0x01,0x00 .db 0x00,0x04,0x08,0x10,0x11,0x1f,0x01,0x00 .db 0x00,0x01,0x01,0x0a,0x04,0x0a,0x10,0x00 .db 0x00,0x1f,0x08,0x1f,0x08,0x08,0x07,0x00 .db 0x08,0x08,0x1f,0x09,0x0a,0x08,0x08,0x00 .db 0x00,0x0e,0x02,0x02,0x02,0x02,0x1f,0x00 .db 0x00,0x1f,0x01,0x1f,0x01,0x01,0x1f,0x00 .db 0x0e,0x00,0x1f,0x01,0x01,0x02,0x04,0x00 .db 0x12,0x12,0x12,0x12,0x02,0x04,0x08,0x00 .db 0x00,0x04,0x14,0x14,0x15,0x15,0x16,0x00 .db 0x00,0x10,0x10,0x11,0x12,0x14,0x18,0x00 .db 0x00,0x1f,0x11,0x11,0x11,0x1f,0x00,0x00 .db 0x00,0x1f,0x11,0x11,0x01,0x02,0x04,0x00 .db 0x00,0x18,0x00,0x01,0x01,0x02,0x1c,0x00 .db 0x04,0x12,0x08,0x00,0x00,0x00,0x00,0x00 .db 0x1c,0x14,0x1c,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x09,0x15,0x12,0x12,0x0d,0x00,0x00 .db 0x0a,0x00,0x0e,0x01,0x0f,0x11,0x0f,0x00 .db 0x0e,0x11,0x1e,0x11,0x1e,0x10,0x10,0x00 .db 0x00,0x0e,0x10,0x0c,0x11,0x0e,0x00,0x00 .db 0x11,0x11,0x11,0x13,0x1d,0x10,0x10,0x00 .db 0x00,0x0f,0x14,0x12,0x11,0x0e,0x00,0x00 .db 0x06,0x09,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0e,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x07,0x04,0x04,0x14,0x08,0x00,0x00 .db 0x00,0x02,0x1a,0x02,0x00,0x00,0x00,0x00 .db 0x02,0x00,0x06,0x02,0x02,0x12,0x0c,0x00 .db 0x14,0x08,0x14,0x00,0x00,0x00,0x00,0x00 .db 0x04,0x0e,0x14,0x15,0x0e,0x04,0x00,0x00 .db 0x08,0x1c,0x08,0x1c,0x08,0x08,0x0f,0x00 .db 0x0e,0x00,0x16,0x19,0x11,0x11,0x11,0x00 .db 0x0a,0x00,0x0e,0x11,0x11,0x11,0x0e,0x00 .db 0x16,0x19,0x11,0x11,0x1e,0x10,0x10,0x00 .db 0x0d,0x13,0x11,0x1f,0x01,0x01,0x01,0x00 .db 0x00,0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00 .db 0x00,0x00,0x0b,0x15,0x1a,0x00,0x00,0x00 .db 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00 .db 0x0a,0x00,0x11,0x11,0x11,0x13,0x0d,0x00 .db 0x1f,0x10,0x08,0x04,0x08,0x10,0x1f,0x00 .db 0x00,0x00,0x1f,0x0a,0x0a,0x0a,0x13,0x00 .db 0x1f,0x00,0x11,0x0a,0x04,0x0a,0x11,0x00 .db 0x11,0x11,0x11,0x0f,0x01,0x01,0x0e,0x00 .db 0x00,0x01,0x1e,0x04,0x1f,0x04,0x04,0x00 .db 0x00,0x1f,0x08,0x0f,0x09,0x11,0x00,0x00 .db 0x00,0x1f,0x15,0x1f,0x11,0x11,0x00,0x00 .db 0x00,0x04,0x00,0x1f,0x00,0x04,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f SOURCE_142/SOURCE_vdriver/tlcd_4x20_1/routines.asm0000755000175000001440000001642411725741461020551 0ustar joergusers;################################################################################ ;# # ;# text LCD routines # ;# copyright (c) 2005-2011 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd_init: sts lcd_enable,const_0 ;disable update sts lcd_colcount,const_0 ;col counter sts lcd_rowcount,const_0 ;row counter sts lcd_datavalid,const_0 ;no write sts lcd_databyte,const_0 ;data to write sts lcd_cgptr,const_0 ;CG counter brtc lcd_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_setup rcall lcd_ccopy rcall lcd_cls ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr sts lcd_cmap_l,ZL sts lcd_cmap_h,ZH sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL ret lcd_setup: ldi tempreg2,10 lcd_setup_1: api_sync dec tempreg2 brne lcd_setup_1 cbi PORTB,2 ;control ldi tempreg1, 0x03 ; muss 3mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync rcall lcd_epulse api_sync api_sync ldi tempreg1,0x02 ;muss 2mal hintereinander gesendet rcall lcd_outbits rcall lcd_epulse api_sync api_sync ldi tempreg1,0x28 ;function set rcall lcd_cout api_sync api_sync ldi tempreg1,0x0c ;display on rcall lcd_cout api_sync api_sync ldi tempreg1,0x04 ;no shift rcall lcd_cout api_sync ret ;------------------------------------------------------------------------------- ; copy chartable ;------------------------------------------------------------------------------- lcd_ccopy: ldi XL,LOW(lcd_ctable-start) ldi XH,HIGH(lcd_ctable-start) api_dataptr ldi YL,LOW(lcd_charset) ldi YH,HIGH(lcd_charset) ;32 empty chars 0-31 ldi XL,0x40 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ldi XL,0xc0 lcd_ccopy_1a: st Y+,const_1 dec XL brne lcd_ccopy_1a ;96 chars 32-127 ldi XH,3 clr XL lcd_ccopy_2: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_2 ;32 empty chars 128-159 ldi XL,0 lcd_ccopy_3: st Y+,const_0 dec XL brne lcd_ccopy_3 ;96 chars 160-255 ldi XH,3 clr XL lcd_ccopy_4: lpm tempreg1,Z+ st Y+,tempreg1 sbiw XL,1 brne lcd_ccopy_4 ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd_gxy: cpi XL,lcd_cols brcs lcd_gxy_1 ldi XL,lcd_cols-1 lcd_gxy_1: cpi XH,lcd_rows brcs lcd_gxy_2 ldi XL,lcd_rows-1 lcd_gxy_2: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd_char_1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd_char_1 ;no Y overflow clr XH lcd_char_1: movw libmio_cur_x,XL st Y,tempreg1 ;store char lcd_char2: api_popxyz lcd_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd_newl_1 ;no Y overflow clr XH lcd_newl_1: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------ ; clear screen ;------------------------------------------------------------------------------ lcd_cls: api_pushxyz ldi YL,LOW(libmio_vram) ;active VRAM ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+96) ;shadow VRAM ldi ZH,HIGH(libmio_vram+96) ldi XH,96 ldi XL,0x20 lcd_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) ldi ZL,lcd_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;maximum 96 bytes movw ZL,YL adiw ZL,48 ;visible status is addr+96 adiw ZL,48 ret ;------------------------------------------------------------------------------ ; calc address of (XL) charset byte ;------------------------------------------------------------------------------ lcd_ccalc: ldi YL,LOW(lcd_charset) ;CGRAM address, first byte ldi YH,HIGH(lcd_charset) add YL,XL adc YH,const_0 ;maximum 64 Bytes movw ZL,YL adiw ZL,32 ;visible status is addr+64 adiw ZL,32 ret ;------------------------------------------------------------------------------ ; calc LCD DD-RAM address of (XL:XH) char -> tempreg1 ;------------------------------------------------------------------------------ .if linesort == 1 lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret .endif .if linesort == 2 lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif .if linesort == 3 lcd_pcalc: clr tempreg1 sbrc XH,0 subi tempreg1,0xc0 ;+0x40 sbrc XH,1 subi tempreg1,0xec ;+0x14 add tempreg1,XL ret .endif .if linesort == 4 lcd_pcalc: ldi ZL,32 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret .endif ;------------------------------------------------------------------------------- ; output character (tempreg1=char) ;------------------------------------------------------------------------------- lcd_dout: sbi PORTB,2 ;data rjmp lcd_cout_1 ;sendet ein Controlbyte an das LCD lcd_cout: cbi PORTB,2 ;control lcd_cout_1: swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 swap tempreg1 rcall lcd_outbits sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 ret lcd_outbits: sbrc tempreg1,0 sbi PORTA,4 sbrs tempreg1,0 cbi PORTA,4 sbrc tempreg1,1 sbi PORTA,5 sbrs tempreg1,1 cbi PORTA,5 sbrc tempreg1,2 sbi PORTA,6 sbrs tempreg1,2 cbi PORTA,6 sbrc tempreg1,3 sbi PORTA,7 sbrs tempreg1,3 cbi PORTA,7 ret ;enable-pulse lcd_epulse: sbi PORTB,1 ; Enable high nop nop nop nop cbi PORTB,1 nop nop nop ret SOURCE_142/SOURCE_vdriver/tilemode/0000755000175000001440000000000011713042124016027 5ustar joergusersSOURCE_142/SOURCE_vdriver/tilemode/tilemode.asm0000755000175000001440000012176511725741462020370 0ustar joergusers;################################################################################ ;# # ;# tile mode 7 engine # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ tm_y_start = libmio_vram ;y start .equ tm_x_start = libmio_vram+1 ;x start .equ temp_tile = libmio_vram+2 ;temp tile .CSEG .org 0x7200 ; "...... N" start: .db " Tile -01- N",0xf3,0xfe,0x90 ;video driver ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;IN 5xx rjmp outex ;OUT 5xx ret ;FKT 00 ID rjmp tilemode_init ;FKT 01 init rjmp tilemode_cls ;FKT 02 clear screen rjmp tilemode_char ;FKT 03 output char rjmp tilemode_gxy ;FKT 04 set cursor ret ;FKT 05 plot ret ;FKT 06 new line rjmp tilemode_vid ;FKT 07 video display ret ;FKT 08 startup ;specific functions rjmp tilemode_fmap ;FKT 09 fill map (value) ret ;FKT 10 fill map from array (one tile) ret ;FKT 11 fill map area rjmp tilemode_smap ;FKT 12 set map (Y,X,value) rjmp tilemode_gmap ;FKT 13 get map (Y,X) to ~R rjmp tile_solid ;FKT 14 fill tile N solid with COLOR c rjmp tile_fpattern ;FKT 15 draw tile N with flash pattern M COLOR C rjmp tile_rpattern ;FKT 16 draw tile N with ram pattern from array cell M COLOR C rjmp tile_cpattern ;FKT 17 draw tile N with char cell M COLOR C rjmp tile_xflip ;FKT 18 flip tile horizontal rjmp tile_yflip ;FKT 19 flip tile vertical rjmp tile_cw ;FKT 20 rotate tile clockwise rjmp tile_ccw ;FKT 21 rotate tile counterclockwise rjmp tile_copy ;FKT 22 tile copy (T1,T2) rjmp tile_add ;FKt 23 add tile information (T1,T2,Tcolor) rjmp tile_rot ;FKT 24 rotate 2 tiles (T1,T2,DIR) rjmp tile_spinit ;FKT 25 init sprite area rjmp tile_stype ;FKT 26 set sprite tile (sprite,tile,transcolor) and activate rjmp tile_scoords ;FKT 27 set coordinates and direction rjmp tile_senable ;FKT 28 activate sprite in sequence rjmp tile_sdisable ;FKT 29 de-actiate sprite in sequence rjmp ti_spdraw ;FKT 30 draw sprite rjmp ti_undraw ;FKT 31 undraw sprite rjmp tile_dseq ;FKT 32 draw sprite sequence rjmp tile_useq ;FKT 33 undraw sprite sequence rjmp tile_movea ;FKT 34 move all sprites (set coords) rjmp tile_movea_drw ;FKT 35 move all sprites and draw ret ;FKT 36 ret ;FKT 37 inex: ldi ereg,40 ;no IO driver ret outex: ldi ereg,40 ;no IO driver ret retzero: clr XL clr XH retvalue: api_getvalues st Y,XL std Y+1,XH ret ;upper text line tilemode_t1: ldi XL,LOW(libmio_vram+2632) ;1 ldi XH,HIGH(libmio_vram+2632) ;1 ldi YL,LOW(libmio_vram+2692) ;1 ldi YH,HIGH(libmio_vram+2692) ;1 subi tempreg1,0xf6 ;1 +10 sts libmio_cline,tempreg1 ;2 api_vm0line ;view textline ;lower text line tilemode_t2: ldi XL,LOW(libmio_vram+2662) ;1 ldi XH,HIGH(libmio_vram+2662) ;1 ldi YL,LOW(libmio_vram+2722) ;1 ldi YH,HIGH(libmio_vram+2722) ;1 subi tempreg1,208 ;1 sts libmio_cline,tempreg1 ;2 api_vm0line ;view textline tilemode_novid: ret tilemode_vid: mov tempreg1,vline_l ;y-line subi tempreg1,5 brcs tilemode_novid subi tempreg1,10 ;upper text? brcs tilemode_t1 ;yes cpi tempreg1,208 ;lower text? brcc tilemode_t2 ;yes push tempreg4 ;save additional registers push tempreg5 push tempreg6 push tempreg7 lds tempreg7,libmio_border ;get border color lsr tempreg1 ;line / 2 (0...206) lds XH,tm_y_start ;Y start add XH,tempreg1 ;this is the line to display mov tempreg2,XH ;copy andi tempreg2,0x07 ;this is the pixline lsl tempreg2 ;4 bytes per pixline lsl tempreg2 ; mov tempreg6,tempreg2 ;copy tile offset andi XH,0xf8 ;this is the tile line *8 ldi XL,4 ;32 tiles hor (/8) mul XL,XH ;offset mov XH,r1 subi XH,0xfe ;start at 0x200 mov XL,r0 mov tempreg5,XL ;save this as start mask lds YL,tm_x_start ;X start mov tempreg2,YL ;copy lsr YL ;tempreg1=tile offset lsr YL lsr YL add XL,YL ;set new address ;tempreg7 = border color ;tempreg6 = tiledata-offset ;tempreg5 = HIGH-Bits from LOW-byte of tilemap ldi tempreg4,32 ;1 bytes/Tile ld tempreg3,X ;2 get first data andi tempreg3,0x3f ;1 limit data mul tempreg3,tempreg4 ;2 calc tiletable offset movw YL,r0 ;2 offset add YL,tempreg6 ;1 add pixline offset subi YH,0xfa ;1 add base 0x600 sbrc tempreg2,1 inc YL sbrc tempreg2,2 subi YL,0xfe ld tempreg1,Y+ ;2 get pixel byte P0/P1 of next andi tempreg2,0x07 brne tilemode_v1 dec XL tilemode_v1: inc XL ;1 next tile andi XL,0x1f ;1 limit to 32 tiles or XL,tempreg5 ;1 add offset ld tempreg3,X ;2 lsl tempreg2 lsl tempreg2 lsl tempreg2 lds ZH,prg_vdrv ldi ZL,LOW(ti_jtab) add ZL,tempreg2 adc ZH,const_0 ldi tempreg2,127 ;1 16*8-1 (visible size) ijmp ti_jtab: ;pix 0 ld tempreg3,X ;2 (filling) ld tempreg3,X ;2 (filling) nop ;1 filling nop ;1 filling nop ;1 filling rjmp bloop_0 ;2 jump to pixel output rjmp bloop_0 ;(dummy) nop ;(dummy) ;pix 1 ld tempreg3,X ;2 (filling) ld tempreg3,X ;2 (filling) nop ;1 filling nop ;1 filling swap tempreg1 ;1 rjmp bloop_1 ;2 jump to pixel output rjmp bloop_1 ;(dummy) nop ;(dummy) ;pix 2 ld tempreg3,X ;2 (filling) ld tempreg3,X ;2 (filling) nop ;1 filling nop ;1 filling nop ;1 filling rjmp bloop_2 ;2 jump to pixel output rjmp bloop_2 ;(dummy) nop ;(dummy) ;pix 3 ld tempreg3,X ;2 (filling) nop ;1 filling nop ;1 filling ld tempreg3,X ;2 get next data swap tempreg1 ;1 prepare P1 rjmp bloop_3 ;2 jump to pixel output rjmp bloop_3 ;(dummy) nop ;(dummy) ;pix4 ld tempreg3,X ;2 (filling) nop ;1 filling nop ;1 filling ld tempreg3,X ;2 get next data andi tempreg3,0x3f ;1 limit data rjmp bloop_4 ;2 jump to pixel output rjmp bloop_4 ;(dummy) nop ;(dummy) ;pix5 nop ;1 filling ld tempreg3,X ;2 get next data andi tempreg3,0x3f ;1 limit data mul tempreg3,tempreg4 ;2 calc tiletable offset swap tempreg1 ;1 prepare P1 rjmp bloop_5 ;2 jump to pixel output rjmp bloop_5 ;(dummy) nop ;(dummy) ;pix 6 nop ;1 filling ld tempreg3,X ;2 get next data andi tempreg3,0x3f ;1 limit data mul tempreg3,tempreg4 ;2 calc tiletable offset movw YL,r0 ;2 offset rjmp bloop_6 ;2 jump to pixel output nop ;(dummy) nop ;(dummy) ;pix 7 andi tempreg3,0x3f ;1 limit data mul tempreg3,tempreg4 ;2 calc tiletable offset movw YL,r0 ;2 offset add YL,tempreg6 ;1 add pixline offset subi YH,0xfa ;1 add base 0x600 swap tempreg1 ;1 rjmp bloop_7 ;2 jump to pixel output nop ;(dummy) ;---- P0 --------------------------------------------------------------- bloop_0: out PORTC,tempreg1 ;1 out P0 inc XL ;1 next tile andi XL,0x1f ;1 limit to 32 tiles swap tempreg1 ;1 prepare P1 sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P1 --------------------------------------------------------------- bloop_1: out PORTC,tempreg1 ;1 out P1 ld tempreg1,Y+ ;2 get pixel byte P2/P3 or XL,tempreg5 ;1 add offset sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P2 --------------------------------------------------------------- bloop_2: out PORTC,tempreg1 ;1 out P2 swap tempreg1 ;1 prepare P3 ld tempreg3,X ;2 get next data sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P3 --------------------------------------------------------------- bloop_3: out PORTC,tempreg1 ;1 out P3 ld tempreg1,Y+ ;2 get pixel byte P4/P5 andi tempreg3,0x3f ;1 limit data sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P4 --------------------------------------------------------------- bloop_4: out PORTC,tempreg1 ;1 out P4 swap tempreg1 ;1 prepare P5 mul tempreg3,tempreg4 ;2 calc tiletable offset sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P5 --------------------------------------------------------------- bloop_5: out PORTC,tempreg1 ;1 out P5 ld tempreg1,Y+ ;2 get pixel byte P6/P7 movw YL,r0 ;2 offset sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P6 --------------------------------------------------------------- bloop_6: out PORTC,tempreg1 ;1 out P6 swap tempreg1 ;1 prepare P7 add YL,tempreg6 ;1 add pixline offset subi YH,0xfa ;1 add base 0x600 sub tempreg2,const_1 ;1 decrement pix to do brcs bend ;1/2 ;---- P7 --------------------------------------------------------------- bloop_7: out PORTC,tempreg1 ;1 out P7 ld tempreg1,Y+ ;2 get pixel byte P0/P1 of next sub tempreg2,const_1 ;1 byte counter brcc bloop_0 ;2 byte loop nop ;1 filling bend_1: nop ;1 filling ;---- Border ----------------------------------------------------------- bend: out PORTC,tempreg7 ;1 out border pop tempreg7 ;restore registers pop tempreg6 pop tempreg5 pop tempreg4 ret ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- tilemode_cls: rcall tilemode_ctxt ;clear text rcall tilemode_cmap ;clear tile map rcall tilemode_cts ;clear tile data sts tm_y_start,const_0 ;set viewpoint to 0,0 sts tm_x_start,const_0 ret ;------------------------------------------------------------------------------- ; clear text area ;------------------------------------------------------------------------------- tilemode_ctxt: api_pushxyz ldi YL,LOW(libmio_vram+2632) ldi YH,HIGH(libmio_vram+2632) ldi XL,60 ;chars ldi XH,32 ;space lds r0,libmio_color tilemode_ctxt1: std Y+60,r0 ;write attr st Y+,XH ;write char dec XL brne tilemode_ctxt1 api_popxyz tilemode_cmap: api_pushxyz ldi YL,LOW(0x200) ldi YH,HIGH(0x200) ldi XL,32 ;Y tilemode_cmap1: ldi XH,32 ;X tilemode_cmap2: st Y+,const_0 dec XH brne tilemode_cmap2 dec XL brne tilemode_cmap1 api_popxyz tilemode_cts: api_pushxyz ldi YL,LOW(0x600) ldi YH,HIGH(0x600) ldi XL,49 ;Tiles tilemode_cts1: ldi XH,32 ;X tilemode_cts2: st Y+,const_0 dec XH brne tilemode_cts2 dec XL brne tilemode_cts1 api_popxyz ;------------------------------------------------------------------------------ ; set video mode ;------------------------------------------------------------------------------ tilemode_init: brtc tilemode_i_e ;no exit ldi XL,libmio_v0cols sts libmio_clipx2,XL ldi XL,2 sts libmio_clipy2,XL rcall tilemode_ctxt rcall tilemode_cmap rcall tilemode_cts ldi XL,233 tilemode_i_e: ret ;------------------------------------------------------------------------------- ; output character and calculate new position (tempreg1=char) ;------------------------------------------------------------------------------- tilemode_char: push XL push XH push YL push YH movw XL,libmio_cur_x ;X ldi YH,HIGH(libmio_vram+2632) ;home position ldi YL,LOW(libmio_vram+2632) ;home position add YL,XL ;position+x adc YH,const_0 ldi XL,0 sbrc XH,0 ldi XL,30 add YL,XL ;position+(cols*y) adc YH,const_0 st Y,tempreg1 ;write char ldi XH,60 add YL,XH ;position+(cols*y) adc YH,const_0 lds XH,libmio_color st Y,XH movw XL,libmio_cur_x ;X inc XL cpi XL,30 brcs tilemode_chr_1 clr XL inc XH tilemode_chr_1: andi XH,1 movw libmio_cur_x,XL pop YH pop YL pop XH pop XL ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- tilemode_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; fill map ;------------------------------------------------------------------------------- tilemode_fmap: api_getvalues ldd tempreg2,Y+2 cpi tempreg2,0x31 brcc tile_smap_e ldi YL,LOW(0x200) ldi YH,HIGH(0x200) ldi XL,32 ;Y tilemode_fmap1: ldi XH,32 ;X tilemode_fmap2: st Y+,tempreg2 dec XH brne tilemode_fmap2 dec XL brne tilemode_fmap1 rjmp retzero ;------------------------------------------------------------------------------- ; set map value ;------------------------------------------------------------------------------- tilemode_smap: api_getvalues ldd tempreg2,Y+6 ;tile no cpi tempreg2,0x31 brcc tile_smap_e ldd XH,Y+2 ;Y andi XH,0x1f ldi XL,32 mul XL,XH ldd XL,Y+4 andi XL,0x1f ldi YL,LOW(0x200) ldi YH,HIGH(0x200) add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 st Y,tempreg2 sts temp_tile,tempreg2 rjmp retzero tile_smap_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------- ; get map value ;------------------------------------------------------------------------------- tilemode_gmap: api_getvalues ldd XH,Y+2 ;Y andi XH,0x1f ldi XL,32 mul XL,XH ldd XL,Y+4 ;X andi XL,0x1f ldi YL,LOW(0x200) ldi YH,HIGH(0x200) add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ld XL,Y clr XH rjmp retvalue ;------------------------------------------------------------------------------- ; set tile solid ;------------------------------------------------------------------------------- tile_solid: api_getvalues ldd XL,Y+2 ;tile cpi XL,49 brcc tile_solid_e ldd XH,Y+4 ;color andi XH,0x0f lsl XH mov tempreg1,XH swap tempreg1 or tempreg1,XH ldi XH,32 mul XH,XL ldi YL,LOW(0x600) ldi YH,HIGH(0x600) add YL,r0 adc YH,r1 ldi XL,32 tile_solid_1: st Y+,tempreg1 dec XL brne tile_solid_1 tile_solid_end: rjmp retzero tile_solid_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------- ; set flash tile pattern ;------------------------------------------------------------------------------- tile_fpattern: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_solid_e ldd tempreg2,Y+4 ;pattern andi tempreg2,0x1f ;max 32 pattern ldd tempreg3,Y+6 ;color rcall tile_ccolor ;convert color ldi XL,LOW(ptab-start) ldi XH,HIGH(ptab-start) api_dataptr ldi XH,8 ;bytes per pattern mul XH,tempreg2 ;*pattern nr add ZL,r0 adc ZH,r1 rcall tile_taddr ;set Y to tile addres ldi tempreg1,8 ;Y loop counter tile_pattern_1: lpm tempreg4,Z+ ;get pattern data rcall tile_pline dec tempreg1 brne tile_pattern_1 rjmp retzero ;------------------------------------------------------------------------------- ; set tile pattern line ; tempreg3 = color ; tempreg4 = pattern line ;------------------------------------------------------------------------------- tile_pline: ldi tempreg2,4 ;X loop counter andi tempreg3,0x0f tile_pline_1: ld XL,Y ;get tile sbrc tempreg4,6 andi XL,0xf0 ;clear second pix sbrc tempreg4,6 or XL,tempreg3 swap tempreg3 sbrc tempreg4,7 andi XL,0x0f ;clear first pix sbrc tempreg4,7 or XL,tempreg3 swap tempreg3 st Y+,XL lsl tempreg4 lsl tempreg4 dec tempreg2 brne tile_pline_1 ret ;------------------------------------------------------------------------------- ; set array tile pattern ;------------------------------------------------------------------------------- tile_rpattern: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_solid_e ldd tempreg2,Y+4 ;pattern address ldd tempreg3,Y+6 ;color rcall tile_ccolor ;konvert color api_getarray add YL,tempreg2 adc YH,const_0 movw ZL,YL rcall tile_taddr ;set Y to tile addres ldi tempreg1,8 ;Y tile_rpatt_1: ld tempreg4,Z+ ;get pattern data rcall tile_pline dec tempreg1 brne tile_rpatt_1 rjmp retzero ;------------------------------------------------------------------------------- ; set array charset pattern ;------------------------------------------------------------------------------- tile_cpat_e: ldi ereg,5 ;constant out of range rjmp retzero tile_cpattern: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_cpat_e ldd tempreg2,Y+4 ;char ldd tempreg3,Y+6 ;color rcall tile_ccolor ;convert color rcall tile_taddr ;set Y to tile addres api_getchart0 ;set base of character table 0 mov ZL,tempreg2 ;char offset inc ZH ;skip first pixline ldi r19,8 ;pixlines to do tile_cpat_01: lpm r16,Z ;get pixline mov tempreg4,r16 lsr tempreg4 ldi tempreg1,0x3f ldi tempreg2,5 tile_cpat_02: sbrc r16,6 eor tempreg4,tempreg1 lsl r16 lsr tempreg1 dec tempreg2 brne tile_cpat_02 rcall tile_pline inc ZH ;next pixline dec r19 ;pixline loop counter brne tile_cpat_01 ;pixline loop rjmp retzero ;all done ;------------------------------------------------------------------------------- ; copy tile ;------------------------------------------------------------------------------- tile_copy: api_getvalues ldd r16,Y+2 ;src tile cpi r16,49 brcc tile_copy_e ldd r17,Y+4 ;src tile cpi r17,49 brcc tile_copy_e rcall tilecopy rjmp retzero tile_copy_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------- ; flip tile horizontal ;------------------------------------------------------------------------------- tile_xflip: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_xflip_e rcall tile_taddr ldi tempreg4,8 tile_xflip_1: ld r16,Y ldd r17,Y+3 swap r16 swap r17 st Y,r17 std Y+3,r16 ldd r16,Y+1 ldd r17,Y+2 swap r16 swap r17 std Y+1,r17 std Y+2,r16 dec tempreg4 brne tile_xflip_1 rjmp retzero tile_xflip_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------- ; flip tile vertical ;------------------------------------------------------------------------------- tile_yflip: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_xflip_e rcall tile_taddr movw ZL,YL adiw ZL,28 ldi tempreg4,4 tile_yflip_1: ldi tempreg3,4 tile_yflip_2: ld r16,Y ld r17,Z st Y+,r17 st Z+,r16 dec tempreg3 brne tile_yflip_2 sbiw ZL,8 dec tempreg4 brne tile_yflip_1 rjmp retzero ;------------------------------------------------------------------------------- ; rotate tile clockwise ;------------------------------------------------------------------------------- tile_cw: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_xflip_e rcall tile_taddr ldi ZL,0xe3 ;temporary ldi ZH,0x01 movw tempreg7,YL ;save ptr tile_cw_2: ldi tempreg4,4 tile_cw_4: ldi tempreg3,4 tile_cw2: ld r16,Y+ ldd r17,Y+3 movw r18,r16 swap r17 swap r18 andi r19,0xf0 andi r17,0xf0 andi r18,0x0f andi r16,0x0f or r19,r18 or r17,r16 st Z,r19 std Z+4,r17 adiw ZL,8 dec tempreg3 brne tile_cw_4 sbiw ZL,33 dec tempreg4 brne tile_cw_2 ;now copy back sprite tile_cback: ldi ZL,0xe0 ;temporary ldi ZH,0x01 movw YL,tempreg7 ;restore ptr ldi tempreg4,32 tile_cback_1: ld tempreg1,Z+ st Y+,tempreg1 dec tempreg4 brne tile_cback_1 rjmp retzero ;------------------------------------------------------------------------------- ; rotate tile counterclockwise ;------------------------------------------------------------------------------- tile_ccw: api_getvalues ldd tempreg1,Y+2 ;tile cpi tempreg1,49 brcc tile_ccw_e rcall tile_taddr ldi ZL,0xf8 ;temporary ldi ZH,0x01 movw tempreg7,YL ;save ptr tile_ccw_2: ldi tempreg4,4 tile_ccw_4: ldi tempreg3,4 tile_ccw2: ld r16,Y+ ldd r17,Y+3 movw r18,r16 swap r16 swap r19 andi r19,0x0f andi r17,0x0f andi r18,0xf0 andi r16,0xf0 or r19,r18 or r17,r16 st Z,r17 std Z+4,r19 sbiw ZL,8 dec tempreg3 brne tile_ccw_4 adiw ZL,33 dec tempreg4 brne tile_ccw_2 rjmp tile_cback tile_ccw_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------- ; add tile information ;------------------------------------------------------------------------------- tile_add: rcall tile_par2 ;get 2 tile adressses rcall tile_ccolor andi tempreg3,0x0f mov tempreg4,tempreg3 swap tempreg4 ldi tempreg2,32 tile_add_1: ld r16,Z ;get data 1 ld r17,Y ;get data 2 andi r16,0xf0 andi r17,0xf0 cp r17,tempreg4 breq tile_add_2 mov r16,r17 tile_add_2: ld r19,Z ;get data 1 ld r17,Y+ ;get data 2 andi r19,0x0f andi r17,0x0f cp r17,tempreg3 breq tile_add_3 mov r19,r17 tile_add_3: or r16,r19 st Z+,r16 dec tempreg2 brne tile_add_1 rjmp retzero ;------------------------------------------------------------------------------- ; rotate 2 tiles ;------------------------------------------------------------------------------- tile_rot: rcall tile_par2 ;get 2 tile adressses andi tempreg3,0x03 brne tile_rot_10 ;not up ;rotate up ld tempreg5,Y ldd tempreg6,Y+1 ldd tempreg7,Y+2 ldd tempreg8,Y+3 ldi r16,28 tile_rot_02: ldd tempreg1,Y+4 st Y+,tempreg1 dec r16 brne tile_rot_02 ldi r16,4 tile_rot_04: ld tempreg1,Z+ st Y+,tempreg1 dec r16 brne tile_rot_04 sbiw ZL,4 ldi r16,28 tile_rot_06: ldd tempreg1,Z+4 st Z+,tempreg1 dec r16 brne tile_rot_06 st Z+,tempreg5 st Z+,tempreg6 st Z+,tempreg7 st Z+,tempreg8 rjmp retzero ;rotate down tile_rot_10: cpi tempreg3,0x02 ;down brne tile_rot_20 ;not down adiw ZL,32 adiw YL,32 ld tempreg8,-Z ld tempreg7,-Z ld tempreg6,-Z ld tempreg5,-Z ldi r16,28 tile_rot_12: ld tempreg1,-Z std Z+4,tempreg1 dec r16 brne tile_rot_12 ldi r16,4 adiw ZL,4 tile_rot_14: ld tempreg1,-Y st -Z,tempreg1 dec r16 brne tile_rot_14 sbiw ZL,4 ldi r16,28 tile_rot_16: ld tempreg1,-Y std Y+4,tempreg1 dec r16 brne tile_rot_16 st Y,tempreg5 std Y+1,tempreg6 std Y+2,tempreg7 std Y+3,tempreg8 rjmp retzero ;rotate right tile_rot_20: cpi tempreg3,0x01 ;right brne tile_rot_30 ;not right ldi r16,8 tile_rot_22: ldd tempreg2,Z+3 ;save ldd tempreg1,Z+2 std Z+3,tempreg1 ldd tempreg1,Z+1 std Z+2,tempreg1 ld tempreg1,Z std Z+1,tempreg1 ldd tempreg1,Y+3 st Z,tempreg1 ldd tempreg1,Y+2 std Y+3,tempreg1 ldd tempreg1,Y+1 std Y+2,tempreg1 ld tempreg1,Y std Y+1,tempreg1 st Y,tempreg2 adiw YL,4 adiw ZL,4 dec r16 brne tile_rot_22 rjmp retzero ;rotate left tile_rot_30: ldi r16,8 tile_rot_32: ld tempreg2,Y ;save ldd tempreg1,Y+1 st Y,tempreg1 ldd tempreg1,Y+2 std Y+1,tempreg1 ldd tempreg1,Y+3 std Y+2,tempreg1 ld tempreg1,Z std Y+3,tempreg1 ldd tempreg1,Z+1 st Z,tempreg1 ldd tempreg1,Z+2 std Z+1,tempreg1 ldd tempreg1,Z+3 std Z+2,tempreg1 std Z+3,tempreg2 adiw YL,4 adiw ZL,4 dec r16 brne tile_rot_32 rjmp retzero ;------------------------------------------------------------------------------- ;get tile address ;tempreg1 = tile number ;------------------------------------------------------------------------------- tile_taddr: push tempreg4 ldi tempreg4,32 mul tempreg4,tempreg1 movw YL,r0 subi YH,0xfa pop tempreg4 ret ;------------------------------------------------------------------------------- ; set color for 8C/16C ; tempreg3=color (in/out) ;------------------------------------------------------------------------------- tile_ccolor: push tempreg4 mov tempreg4,tempreg3 andi tempreg4,0x88 andi tempreg3,0x77 lsl tempreg3 lsr tempreg4 lsr tempreg4 lsr tempreg4 or tempreg3,tempreg4 pop tempreg4 ret ;------------------------------------------------------------------------------- ; get 2 tile adr (Y,Z) and 1 parameter in tempreg3 ; tempreg3=color (in/out) ;------------------------------------------------------------------------------- tile_par2_e: pop r16 ;kill stack pop r16 ldi ereg,5 ;constant out of range rjmp retzero tile_par2: api_getvalues ldd tempreg1,Y+2 ;src/dest tile ldd tempreg2,Y+4 ;src tile 2 ldd tempreg3,Y+6 ;transp. color cpi tempreg1,49 brcc tile_par2_e cpi tempreg2,49 brcc tile_par2_e rcall tile_taddr ;Z= t1 address movw ZL,YL mov tempreg1,tempreg2 rjmp tile_taddr ;Y= t2 address ;------------------------------------------------------------------------------- ; draw sprite ; par1=array adr ; par2=new y ; par3=new x ;------------------------------------------------------------------------------- ti_spdraw: api_getvalues ldd XL,Y+2 ;array pos ldd XH,Y+3 cpi XH,2 brcs ti_spdraw_02 cpi XL,0xf1 brcs ti_spdraw_02 ldi ereg,18 ;out of array ret ti_spdraw_02: ldd tempreg2,Y+4 ;new y ldd tempreg3,Y+6 ;new x api_getarray add YL,XL adc YH,XH ldd tempreg1,Y+7 ;visible flag sbrc tempreg1,0 rcall ti_restore st Y,tempreg2 ;store new coordinates std Y+1,tempreg3 std Y+7,const_1 ;set as visible rcall ti_backup rcall ti_draw rjmp retzero ;------------------------------------------------------------------------------ ;backup tiles for sprite struct Y ;+0 Ynew Byte ;+1 Xnew Byte ;+2 Yold Byte ;+3 Xold Byte ;+4 Sprite tile Byte ;+5 bstart tile Byte ;+6 tcolor Byte ;+7 visible (0/1) ;+8 active (0/1) for sequential drawing ;+9 collision flag ;+a Y step ;+b X step ;+c tile number at pos Y0X0 ;+d tile number at pos Y0X1 ;+e tile number at pos Y1X0 ;+f tile number at pos Y1X1 ;------------------------------------------------------------------------------ ti_backup: ld XH,Y ;Ynew std Y+2,XH ;save as old ldd XL,Y+1 ;Xnew std Y+3,XL ;save as old rcall ti_calcpos ;calculate sprite pos and size ldd r17,Y+5 ;bstart ldi tempreg3,32 ;tile mem size ;calculate bstart tile address mul r17,tempreg3 movw XL,r0 subi XH,0xfa ;add tiledata start 0x600 ;copy tile Y0X0 ld r16,Z ;tile 0 std Y+12,r16 st Z,r17 ;set this pos to tile bstart+0 rcall ti_btile ;copy tile Y+0,X+0 ;copy tile Y0X1 inc r17 ;next backup tile push ZL ;save pos mov r19,ZL ;copy pos andi r19,0xe0 inc ZL andi ZL,0x1f or ZL,r19 ld r16,Z ;tile 1 std Y+13,r16 st Z,r17 ;set this pos to tile bstart+1 rcall ti_btile ;copy tile Y+0,X+1 pop ZL ;copy tile Y1X0 inc r17 ;next backup tile adiw ZL,32 cpi ZH,0x06 brcs ti_backup_5 subi ZH,0x04 ti_backup_5: ld r16,Z ;tile 0 std Y+14,r16 st Z,r17 ;set this pos to tile bstart+0 rcall ti_btile ;copy tile Y+0,X+0 ;copy tile Y1X1 inc r17 ;next backup tile mov r19,ZL ;copy pos andi r19,0xe0 inc ZL andi ZL,0x1f or ZL,r19 ld r16,Z ;tile 1 std Y+15,r16 st Z,r17 ;set this pos to tile bstart+1 rcall ti_btile ;copy tile Y+0,X+1 ret ;copy tile data from tile r16 to X+ ti_btile: movw tempreg5,YL mul r16,tempreg3 movw YL,r0 subi YH,0xfa ;add tiledata start 0x600 ldi tempreg2,8 ti_btile_1: ld tempreg1,Y+ st X+,tempreg1 ld tempreg1,Y+ st X+,tempreg1 ld tempreg1,Y+ st X+,tempreg1 ld tempreg1,Y+ st X+,tempreg1 dec tempreg2 brne ti_btile_1 movw YL,tempreg5 ret ;------------------------------------------------------------------------------ ;draw tiles for sprite struct Y ;+0 Ynew Byte ;+1 Xnew Byte ;+2 Yold Byte ;+3 Xold Byte ;+4 Sprite tile Byte ;+5 bstart tile Byte ;+6 tcolor Byte ;+7 visible (0/1) ;+8 active (0/1) for sequential drawing ;+9 collision flag ;+a Y step ;+b X step ;+c tile number at pos Y0X0 ;+d tile number at pos Y0X1 ;+e tile number at pos Y1X0 ;+f tile number at pos Y1X1 ;------------------------------------------------------------------------------ ti_draw: ldd ZH,Y+4 ;sprite tile ldd tempreg3,Y+6 ;tcolor rcall tile_ccolor mov r18,tempreg3 ;save transparent color ldi tempreg3,32 ;bytes per tile (used as constant) mul tempreg3,ZH ;sprite tile * tile size movw ZL,r0 subi ZH,0xfa ;calc sprite tile address to Z ;Z is now sprite tile address ldd XH,Y+5 ;backup tile mul tempreg3,XH ;backup tile * tile size movw YL,r0 subi YH,0xfa ;calc backup tile address to Y movw tempreg5,YL ;save backup tile address ;Y is now backup tile address ;set r19 to vertical offset mov r19,tempreg4 ;copy offset byte swap r19 ;we need upper nibble andi r19,0x07 ;mask bits ;set tempreg4 to horizontal offset andi tempreg4,0x07 ;mask bits ldi tempreg2,8 ;pixlines to do ti_draw_10: ldi tempreg1,8 ;pixel to do ti_draw_12: ld r17,Z ;get sprite data sbrs tempreg1,0 ;skip if second nibble swap r17 ;swap data sbrc tempreg1,0 ;skip if first nibble adiw ZL,1 ;prepare next byte andi r17,0x0f ;mask data to write cp r17,r18 ;check if transparent color breq ti_draw_14 ;branch if transparent ;r17/0..3 is now source nibble mov YH,r19 ;vertical offset lsl YH ;*4 (4 bytes per pixline) lsl YH bst YH,5 ;tile select vertical bld YH,6 ;store to new position andi YH,0x5c ;mask bits mov YL,tempreg4 ;horizontal offset lsr YL ;shift right bst YL,2 ;tile select horizontal bld YL,5 ;store to new position andi YL,0x23 ;mask bits or YL,YH clr YH add YL,tempreg5 adc YH,tempreg6 ldi XH,0xf0 ;bit bmask sbrs tempreg4,0 ;skip if lower nibble is to be replaced swap XH ;swap bit mask sbrs tempreg4,0 ;skip if upper nibble is to be replaced swap r17 ;swap source nibble ld XL,Y ;get data and XL,XH ;mask bits or XL,r17 ;replace bits st Y,XL ;store back data ti_draw_14: inc tempreg4 dec tempreg1 brne ti_draw_12 subi tempreg4,8 inc r19 dec tempreg2 brne ti_draw_10 ret ;------------------------------------------------------------------------------- ; undraw sprite ; par1=array adr ;------------------------------------------------------------------------------- ti_undraw: api_getvalues ldd XL,Y+2 ;array pos ldd XH,Y+3 cpi XH,2 brcs ti_undraw_02 cpi XL,0xf9 brcs ti_undraw_02 ldi ereg,18 ;out of array ret ti_undraw_02: api_getarray add YL,XL adc YH,XH ldd tempreg1,Y+7 ;visible flag sbrc tempreg1,0 rcall ti_restore std Y+7,const_0 ;clear visible flag rjmp retzero ;------------------------------------------------------------------------------ ;calc addresses of tile Y(n)X(m) and Y(n)X(m+1) ;tempreg5/6 = address of tile YnXm ;tempreg7/8 = address of tile YnXm+1 ;------------------------------------------------------------------------------ ;calc addresss of tile Y0X0 ti_calc2: ld r16,X ;get tile X=0 mul r16,tempreg3 ;* tile size movw YL,r0 subi YH,0xfa ;+0x600 tile data base movw tempreg5,YL ;tile address Y0X0 ;calc addresss of tile Y0X1 push XL mov YL,XL andi YL,0xe0 inc XL andi XL,0x1f or XL,YL ld r16,X ;get tile X=0 mul r16,tempreg3 movw YL,r0 subi YH,0xfa ;+0x600 tile data base movw tempreg7,YL ;tile address X0Y0 pop XL ret ;------------------------------------------------------------------------------ ;draw tiles for sprite struct Y ;+0 Ynew Byte ;+1 Xnew Byte ;+2 Yold Byte ;+3 Xold Byte ;+4 Sprite tile Byte ;+5 bstart tile Byte ;+6 tcolor Byte ;+7 visible (0/1) ;+8 active (0/1) for sequential drawing ;+9 collision flag ;+a Y step ;+b X step ;+c tile number at pos Y0X0 ;+d tile number at pos Y0X1 ;+e tile number at pos Y1X0 ;+f tile number at pos Y1X1 ;------------------------------------------------------------------------------ ti_restore: ldd XH,Y+2 ;Yold ldd XL,Y+3 ;Xold rcall ti_calcpos ;calculate sprite pos and size ;restore tile Y0X0 ldd r16,Y+12 st Z,r16 ;tile 0 ;restore tile Y0X1 mov XL,ZL ;save pos mov XH,ZL ;copy pos andi XH,0xe0 inc ZL andi ZL,0x1f or ZL,XH ldd r16,Y+13 st Z,r16 ;tile 1 mov ZL,XL ;restore tile Y1X0 adiw ZL,32 cpi ZH,0x06 brcs ti_restore_1 subi ZH,0x04 ti_restore_1: ldd r16,Y+14 st Z,r16 ;tile 2 ;restore tile Y1X1 mov XH,ZL ;copy pos andi XH,0xe0 inc ZL andi ZL,0x1f or ZL,XH ldd r16,Y+15 st Z,r16 ;tile 3 ret ;------------------------------------------------------------------------------ ; calc map position ; XL=Xpos ; XH=Ypos ; > Z=map position ; > tempreg4 = pixel pos ; bit 6..4 vertical ; bit 2..0 horizontal ;------------------------------------------------------------------------------ ti_calcpos: mov tempreg4,XL ;offset andi tempreg4,0x07 swap tempreg4 lsr XL ;X pos/8 lsr XL lsr XL lsr XH ;y-pos/2 ror tempreg4 ;shift bit into pixel pos lsr XH ;y-pos/2 ror tempreg4 ;shift bit into pixel pos lsr XH ;y-pos/2 ror tempreg4 ;shift bit into pixel pos lsr tempreg4 ;one additional shift ldi ZL,32 mul ZL,XH movw ZL,r0 ;Y offset add ZL,XL ;X offset subi ZH,0xfe ;map offset ret ;------------------------------------------------------------------------------ ; set sprite start and number ;------------------------------------------------------------------------------ tile_spinit: api_getvalues ldd XL,Y+2 ;array pos ldd XH,Y+3 andi XH,0x01 ldd r16,Y+4 ;number dec r16 andi r16,0x07 ;max 8 sprites api_getarray add YL,XL adc YH,XH sts 0x1dc,YL ;store ptr sts 0x1dd,YH inc r16 sts 0x1de,r16 ;store num ldi tempreg1,45 ;backup tiles tile_spinit_1: st Y+,const_0 ;+0 Ynew Byte st Y+,const_0 ;+1 Xnew Byte st Y+,const_0 ;+2 Yold Byte st Y+,const_0 ;+3 Xold Byte st Y+,const_0 ;+4 Sprite tile Byte st Y+,tempreg1 ;+5 bstart tile Byte st Y+,const_0 ;+6 tcolor Byte st Y+,const_0 ;+7 visible (0/1) st Y+,const_0 ;+8 active (0/1) for sequential drawing st Y+,const_0 ;+9 collision flag st Y+,const_0 ;+a Y step st Y+,const_0 ;+b X step st Y+,const_0 ;+c tile number at pos Y0X0 st Y+,const_0 ;+d tile number at pos Y0X1 st Y+,const_0 ;+e tile number at pos Y1X0 st Y+,const_0 ;+f tile number at pos Y1X1 subi tempreg1,4 ;4 backup tiles per sprite dec r16 brne tile_spinit_1 subi tempreg1,0xfd ;+3 mov XL,tempreg1 clr XH rjmp retvalue ;return max sprite nr ;------------------------------------------------------------------------------ ; undraw sprite seq ;------------------------------------------------------------------------------ tile_useq: rcall tile_gap dec r16 ldi tempreg1,16 mul tempreg1,r16 add YL,r0 adc YH,r1 inc r16 tile_useq_1: ldd tempreg1,Y+7 ;visible flag cpi tempreg1,0 breq tile_useq_4 ;not active push YL push YH push r16 rcall ti_restore pop r16 pop YH pop YL std Y+7,const_0 ;set as visible tile_useq_4: sbiw YL,16 dec r16 brne tile_useq_1 rjmp retzero ;------------------------------------------------------------------------------ ; get array pointer ;------------------------------------------------------------------------------ tile_gap: lds YL,0x1dc ;get array ptr lds YH,0x1dd lds r16,0x1de ;get num ret ;------------------------------------------------------------------------------ ; draw sprite seq ;------------------------------------------------------------------------------ tile_dseq: rcall tile_gap ;get array ptr tile_dseq_1: ldd tempreg1,Y+8 ;active flag cpi tempreg1,0 breq tile_dseq_4 ;not active std Y+7,const_1 ;set as visible push YL push YH push r16 rcall ti_backup rcall ti_draw pop r16 pop YH pop YL tile_dseq_4: adiw YL,16 dec r16 brne tile_dseq_1 rjmp retzero ;------------------------------------------------------------------------------ ; set sprite type ;------------------------------------------------------------------------------ tile_stype: api_getvalues ldd XL,Y+2 ;sprite no ldd XH,Y+4 ;tile_no ldd tempreg2,Y+6 ;transp. color rcall tile_gap ;get array ptr cp XL,r16 brcc tile_stype_e cpi XH,49 brcc tile_stype_e ldi tempreg1,16 mul tempreg1,XL add YL,r0 adc YH,r1 std Y+4,XH ;set sprite tile std Y+8,const_1 ;activate std Y+6,tempreg2 ;transp color rjmp retzero tile_stype_e: ldi ereg,5 ;constant out of range rjmp retzero ;------------------------------------------------------------------------------ ; set sprite coords ;------------------------------------------------------------------------------ tile_scoords: api_getvalues ldd XL,Y+2 ;sprite no ldd XH,Y+4 ;Y ldd tempreg2,Y+6 ;X ldd tempreg3,Y+8 ;dy ldd tempreg4,Y+10 ;dx rcall tile_gap ;get array ptr cp XL,r16 brcc tile_stype_e ldi tempreg1,16 mul tempreg1,XL add YL,r0 adc YH,r1 std Y+0,XH std Y+1,tempreg2 std Y+10,tempreg3 std Y+11,tempreg4 rjmp retzero ;------------------------------------------------------------------------------ ; disable sprite in sequence ;------------------------------------------------------------------------------ tile_sdisable: api_getvalues ldd XL,Y+2 ;sprite no rcall tile_gap ;get array ptr cp XL,r16 brcc tile_stype_e ldi tempreg1,16 dec XL mul tempreg1,XL add YL,r0 adc YH,r1 std Y+8,const_0 ;de-activate rjmp retzero ;------------------------------------------------------------------------------ ; enable sprite in sequence ;------------------------------------------------------------------------------ tile_senable: api_getvalues ldd XL,Y+2 ;sprite no rcall tile_gap ;get array ptr cp XL,r16 brcc tile_stype_e ldi tempreg1,16 dec XL mul tempreg1,XL add YL,r0 adc YH,r1 std Y+8,const_1 ;activate rjmp retzero ;------------------------------------------------------------------------------ ; move all sprites ;------------------------------------------------------------------------------ tile_movea: rcall tile_gap ;get array ptr tile_movea_1: ldd tempreg1,Y+8 ;active flag cpi tempreg1,0 breq tile_movea_4 ;not active push YL push YH push r16 ;calc new Y ldd tempreg2,Y+2 ldd tempreg3,Y+10 add tempreg2,tempreg3 st Y,tempreg2 ;calc new X ldd tempreg2,Y+3 ldd tempreg3,Y+11 add tempreg2,tempreg3 std Y+1,tempreg2 pop r16 pop YH pop YL tile_movea_4: adiw YL,16 dec r16 brne tile_movea_1 rjmp retzero ;------------------------------------------------------------------------------ ; undraw-move-draw all sprites ;------------------------------------------------------------------------------ tile_movea_drw: ldi tempreg1,223 tile_movea_d1: cp vline_l,tempreg1 brne tile_movea_d1 rcall tile_useq rcall tile_movea rjmp tile_dseq ;------------------------------------------------------------------------------ ; copy tile R16 to tile R17 ;------------------------------------------------------------------------------ tilecopy: api_pushxyz ldi XH,32 ;bytes per tile mul r16,XH movw YL,r0 subi YH,0xfa ;+0x600 tile data base mul r17,XH movw ZL,r0 subi ZH,0xfa ;+0x600 tile data base tilecopy_1: ld XL,Y+ st Z+,XL dec XH brne tilecopy_1 api_popxyz ;------------------------------------------------------------------------------- ; pattern table 1 ;------------------------------------------------------------------------------- ptab: .db 0xaa,0x55,0xaa,0x55,0xaa,0x55,0xaa,0x55 ;00 pepper and salt .db 0xff,0x80,0x80,0x80,0xff,0x08,0x08,0x08 ;01 wall .db 0x3c,0x7e,0xff,0xff,0xff,0xff,0x7e,0x3c ;02 ball .db 0x3c,0x42,0x81,0x81,0x81,0x81,0x42,0x3c ;03 ring .db 0x18,0x3c,0x7e,0xff,0xff,0x7e,0x3c,0x18 ;04 rhombus .db 0xff,0x81,0x81,0x81,0x81,0x81,0x81,0xff ;05 rect .db 0xff,0xc3,0xa5,0x99,0x99,0xa5,0xc3,0xff ;06 crossed rect .db 0x66,0xff,0x7e,0x7e,0x3c,0x3c,0x18,0x18 ;07 heart .db 0x65,0x94,0xe1,0x26,0x48,0x64,0x92,0x4c ;08 random 1 .db 0x3c,0xff,0xbd,0xff,0xc3,0xbd,0xff,0xdb ;09 ghost 1 .db 0x3c,0xff,0xbd,0xff,0xbd,0xff,0xff,0xdb ;0a ghost 2 .db 0x3c,0x7e,0xff,0xff,0x18,0x18,0x18,0x18 ;0B mushroom .db 0x3c,0x7e,0xff,0x7e,0x3c,0x18,0x18,0x3c ;0C tree 1 .db 0x18,0x18,0x3c,0x3c,0x7e,0x7e,0x18,0x18 ;0D tree 2 .db 0x7e,0xff,0xff,0xff,0xff,0xff,0xff,0x7e ;0E rect .db 0x18,0x18,0x3c,0x3c,0x7e,0x7e,0xff,0xff ;0F triangle .db 0x3c,0x7e,0xbd,0xe7,0xff,0xc3,0x7e,0x3c ;10 smile 1 .db 0x3c,0x7e,0xbd,0xe7,0xbd,0xc3,0x7e,0x3c ;11 smile 2 .db 0x3c,0x3c,0x18,0x3c,0xff,0x3c,0x24,0x24 ;12 man 1 .db 0x3c,0x3c,0x18,0x3c,0xff,0x3c,0x24,0xc3 ;13 man 2 .db 0x99,0xff,0xbd,0x3c,0x3c,0xbd,0xff,0xbd ;14 car 1 .db 0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff ;15 diag 1 .db 0x00,0x00,0x7e,0x7e,0x7e,0x7e,0x00,0x00 ;16 brick 1 .db 0x18,0x3c,0x3c,0x3c,0x3c,0x7e,0xff,0xbd ;17 rocket .db 0x3c,0x3c,0xdb,0xff,0xff,0xdb,0x3c,0x3c ;18 flower/cross .db 0x18,0x3c,0x7e,0xdb,0x18,0x18,0x18,0x18 ;19 arrow 1 .db 0x18,0x3c,0x7e,0xff,0x18,0x18,0x18,0x18 ;1a arrow 2 .db 0x18,0x18,0x18,0xff,0xff,0x18,0x18,0x18 ;1b crosshair 1 .db 0x10,0x10,0x10,0xfe,0x10,0x10,0x10,0x00 ;1c crosshair 2 .db 0xfe,0x92,0x92,0xfe,0x92,0x92,0xfe,0x00 ;1d crosshair 3 .db 0x18,0x3c,0x7e,0x7e,0x7e,0x7e,0xff,0x18 ;1e bell .db 0xdb,0x3c,0xbd,0x7e,0x7e,0xbd,0x24,0xc3 ;1f spider SOURCE_142/SOURCE_vdriver/glcd_128_pcs/0000755000175000001440000000000011713042124016375 5ustar joergusersSOURCE_142/SOURCE_vdriver/glcd_128_pcs/glcd_128_pcs.asm0000755000175000001440000004067611725741461021304 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine # ;# copyright (c) 2005-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ libmio_ctable = 0x7b00 ;font 0 .equ libmio_ctable1 = 0x4340 ;font 1 .equ vidp = 7 ;video pin .equ lcd_cs1 = 4 ;latched CS1 .equ lcd_cs2 = 5 ;latched CS2 .equ lcd_di = 6 ;latched D/I .equ lcd_ks = 7 ;latched key select .equ lcd_page = libmio_vram+1200 ;lcdpage .equ lcd_row = libmio_vram+1201 ;lcdrow .equ lcd_keymode = libmio_vram+1202 ;key mode (0=PS2, 1=fixkeys) .CSEG .org 0x7200 ; "...... N" start: .db " GLCD 128x64N",0xb3,0xfe,0xa8 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;video, no IO rjmp outex ;IO ext ret ;FKT 00 rjmp bimode_init ;FKT 01 init rjmp bimode_cls ;FKT 02 clear screen rjmp bimode_char ;FKT 03 output char rjmp bimode_gxy ;FKT 04 set cursor rjmp bimode_plot ;FKT 05 plot rjmp bimode_scrs ;FKT 06 screenshot rjmp bimode_vid ;FKT 07 video display ret ;FKT 08 init inex: ldi ereg,40 ;no IO driver ret outex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- bimode_init: brtc bimode_exit ;exit ldi XL,0xff out DDRA,XL sbi DDRB,1 sbi DDRB,2 ldi XL,0xf0 out DDRC,XL ldi XL,128 sts libmio_clipx2,XL ldi XL,64 sts libmio_clipy2,XL ldi XL,0x20 ;blue sts libmio_palette,XL ;palette 0 ldi XL,0xe0 ;white sts libmio_palette+2,XL ;palette 1 sts lcd_page,const_0 ;lcdpage 0 sts lcd_row,const_0 ;lcdrow 0 rcall bimode_cls ldi XL,180 ;visible lines (only 128 are used) cli ldi tempreg3,0xb0 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0x3f ;1 Y address=0 out PORTA,XH ;1 LCD data ldi XH,0x20 bimode_w1: dec XH brne bimode_w1 sbi PORTB,1 ;2 raise clock ldi XH,0x20 bimode_w2: dec XH brne bimode_w2 cbi PORTB,1 ;2 lower clock ldi XH,0x00 bimode_w3: dec XH brne bimode_w3 ldi XH,0xf8 ;1 Y address=0 out PORTA,XH ;1 LCD data ldi XH,0x20 bimode_w4: dec XH brne bimode_w4 sbi PORTB,1 ;2 raise clock ldi XH,0x20 bimode_w5: dec XH brne bimode_w5 cbi PORTB,1 ;2 lower clock ldi XH,0x00 bimode_w6: dec XH brne bimode_w6 sts lcd_keymode,const_0 sei ret bimode_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy ldi XL,0xf0 out DDRC,XL pop XL ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_cls: api_pushxyz ldi XL,LOW(libmio_vram) ldi XH,HIGH(libmio_vram) ldi YL,0 bimode_cls_1: st X+,const_0 st X+,const_0 st X+,const_0 st X+,const_0 dec YL brne bimode_cls_1 api_popxyz ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- bimode_scrs: ret ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- bimode_char: api_pushxyz push tempreg3 push tempreg4 mov ZL,tempreg1 ;char lds tempreg3,libmio_font ;get font sbrc tempreg3,0 ;skip if font 0 rjmp bimode_gchar5 ;jump to fnt1 routine ldi ZH,HIGH(libmio_ctable*2) ;start char ROM movw XL,libmio_cur_x ;get X-position ldi YH,10 ;number of lines bimode_gchar1: lpm YL,Z ;get pixline rcall bimode_plpl inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall bimode_plpl sbrc ctrl,6 ;bigchars inc XH inc ZH ;next pixline mov XL,libmio_cur_x ;get X-position dec YH brne bimode_gchar1 mov XL,libmio_cur_x ;get X-position subi XL,0xfa ;+6 sbrc ctrl,6 subi XL,0xfa ;+6 mov libmio_cur_x,XL bimode_gchar4: pop tempreg4 pop tempreg3 api_popxyz bimode_gchar5: ldi ZH,HIGH(libmio_ctable1*2) ;start char ROM andi ZL,0x7f mov XL,ZL ldi ZL,LOW(libmio_ctable1*2) ;start char ROM add ZL,XL adc ZH,const_0 lsl XL add ZL,XL adc ZH,const_0 movw XL,libmio_cur_x ;get X-position ldi YH,6 ;number of lines bimode_gchar6: lpm YL,Z ;get pixline rcall bimode_plpl5 inc XH mov XL,libmio_cur_x ;get X-position sbrc ctrl,6 ;bigchars rcall bimode_plpl5 sbrc ctrl,6 ;bigchars inc XH sbrc YH,0 ;skip if first nibble is used adiw ZL,1 mov XL,libmio_cur_x ;get X-position dec YH brne bimode_gchar6 mov XL,libmio_cur_x ;get X-position subi XL,0xfc ;+4 sbrc ctrl,6 subi XL,0xfc ;+4 mov libmio_cur_x,XL rjmp bimode_gchar4 ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 0, YL=pixline ;------------------------------------------------------------------------------- bimode_plpl: lds tempreg3,libmio_color push tempreg3 swap tempreg3 sbrc YL,7 ;pix 1 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,6 ;pix 2 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,5 ;pix 3 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,4 ;pix 4 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,3 ;pix 5 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos sbrc YL,2 ;pix 6 swap tempreg3 sts libmio_color,tempreg3 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos bimode_plpl1: pop tempreg3 ;restore color sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; plot pixline in graphics mode with font 1, YL=pixline ;------------------------------------------------------------------------------- bimode_plpl5: lds tempreg3,libmio_color sbrc YH,0 swap YL mov tempreg4,tempreg3 sbrs YL,7 ;pix 1 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,6 ;pix 2 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,5 ;pix 3 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos mov tempreg4,tempreg3 sbrs YL,4 ;pix 4 swap tempreg4 sts libmio_color,tempreg4 rcall bimode_plot ;output pix inc XL ;next pos sbrc ctrl,6 ;no bigchar rcall bimode_plot ;output pix again sbrc ctrl,6 ;no bigchar inc XL ;next pos bimode_plpl6: sts libmio_color,tempreg3 ret ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- bimode_plot: api_pushregs ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position cpi XL,128 brcc bimode_nplot ;yes cpi XH,64 brcc bimode_nplot ;yes rjmp bimode_plot1_0 ;OK, we can plot bimode_nplot: api_popregs ;restore registers bimode_plot1_0: mov tempreg3,XL ;X andi tempreg3,0x07 ;only bits inc tempreg3 ;+1 ldi tempreg1,0x00 ;bitmask sec ;set carry bimode_plot1_1: rol tempreg1 ;shift in bit dec tempreg3 brne bimode_plot1_1 ;bit mask is in tempreg1 lsr XL ;X/8 lsr XL lsr XL mov ZL,XL ldi tempreg3,16 mul XH,tempreg3 add YL,XL adc YH,const_0 add YL,r0 adc YH,r1 ;address is now in Y lds XL,libmio_color ;active color lsr XL andi XL,0x01 ;we check only bit 0 brne bimode_plot1_2 ;set bimode_plot1_8: com tempreg1 ld XL,Y and XL,tempreg1 st Y,XL rjmp bimode_nplot bimode_plot1_2: ld XL,Y or XL,tempreg1 st Y,XL rjmp bimode_nplot ;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ bimode_vid: ldi YL,LOW(libmio_vram) ;2 base for LCD ldi YH,HIGH(libmio_vram) ;2 base for LCD lds XL,lcd_page ;2 page number ldi XH,128 ;1 bytes per page mul XH,XL ;2 add YL,r0 ;1 add page offset adc YH,r1 ;1 lds XL,lcd_row ;2 ldi ZH,0x80 ;1 factor for row 0 sbrc XL,2 ;1 row bit 2 swap ZH ;1 shift factor 4 bits right sbrc XL,1 ;1 row bit 1 lsr ZH ;1 shift factor 1 bit right sbrc XL,1 ;1 row bit 1 lsr ZH ;1 shift factor 1 bit right sbrc XL,0 ;1 row bit 0 lsr ZH ;1 shift factor 1 bit right lsr XL ;1 /8 lsr XL ;1 lsr XL ;1 andi XL,0x07 ;1 mask bits add YL,XL ;1 add row offset adc YH,const_0 ;1 mov XL,vline_l cpi XL,51 brcs bimode_vid_1 cpi XL,179 brne bimode_vid_2 rjmp bimode_vid_k ;do key service bimode_vid_1: ret bimode_vid_2: push tempreg7 push tempreg8 lds XL,libmio_rampos_l lds XH,libmio_rampos_h ldi tempreg1,0x20 ld tempreg2,X+ ;1 get pixline ldi tempreg3,16 ;1 8 bytes to do mov tempreg7,const_0 ;1 clear lcdbyte1 mov tempreg8,const_0 ;1 clear lcdbyte2 bimode_vid_3: bst tempreg2,0 ;1 get px 7 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 ld ZL,Y ;2 get LCD byte 1 bst tempreg2,1 ;1 get px 6 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix adiw YL,8 ;2 set pointer to other page nop ;1 filling bst tempreg2,2 ;1 get px 5 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix mul ZL,ZH ;2 get shifted bit to R0.7 lsl r0 ;1 shift out bit bst tempreg2,3 ;1 get px 4 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix sbrs tempreg3,0 ;1 skip if right side ror tempreg7 ;1 shift bit to lcdbyte 1 nop ;1 filling bst tempreg2,4 ;1 get px 3 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix sbrc tempreg3,0 ;1 skip if left side ror tempreg8 ;1 shift bit to lcdbyte 2 nop ;1 filling bst tempreg2,5 ;1 get px 2 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 filling nop ;1 filling nop ;1 filling bst tempreg2,6 ;1 get px 1 bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix nop ;1 filling bst tempreg2,7 ;1 get px 0 ld tempreg2,X+ ;2 get next pitempreg2ine bld tempreg1,vidp ;1 copy to outmask out PORTC,tempreg1 ;1 output pix dec tempreg3 ;1 brne bimode_vid_3 ;2 lds tempreg1,libmio_border ;1 output pix out PORTC,tempreg1 ;1 sbiw XL,1 ;2 correct pointer lds YL,libmio_cline inc YL cpi YL,2 brcs bimode_vid_4 clr YL ;1 set cline to 0 sts libmio_rampos_l,XL ;2 store video position sts libmio_rampos_h,XH bimode_vid_4: sts libmio_cline,YL bimode_vid_20: ;rjmp bimode_vid_e ;debug only! lds XL,lcd_row ;2 get row cpi XL,64 ;1 check if <64 brcs bimode_vid_23 ;1 no rjmp bimode_vid_40 ;1 no bimode_vid_23: ldi tempreg3,0xd0 ;1 cs1/data mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,tempreg7 ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock nop ;1 adr/data hold nop ;1 nop ;1 nop ;1 nop ;1 nop ;1 nop ;1 ldi tempreg3,0xe0 ;1 cs2/data mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,tempreg8 ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XL ;1 row+1 sts lcd_row,XL ;2 store rjmp bimode_vid_e ;2 end bimode_vid_40: brne bimode_vid_50 ;not 64 ldi tempreg3,0xb0 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0x40 ;1 Y address=0 out PORTA,XH ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XL ;1 row+1 sts lcd_row,XL ;2 store rjmp bimode_vid_e ;2 end bimode_vid_50: ldi tempreg3,0xb0 ;1 cs1/cs2/instruction mode out PORTA,tempreg3 ;1 output lds XH,lcd_page ;2 get page andi XH,0x07 ;1 ori XH,0xb8 ;1 sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out PORTA,XH ;1 LCD data sbi PORTB,1 ;2 raise clock cbi PORTB,1 ;2 lower clock inc XH ;1 page +1 andi XH,0x07 ;1 mask bits sts lcd_page,XH ;2 store back page sts lcd_row,const_0 ;2 set address to zero bimode_vid_e: pop tempreg8 pop tempreg7 ret ;end of vout routine -> VS/Frame handling ;key service bimode_vid_k: ldi XH,0x7f ;k active out PORTA,XH ;set ctrl sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 out DDRA,const_0 ;set as input nop nop nop nop in XL,PINA sbi PORTA,7 ;disable key sig sbi DDRA,7 sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ldi XH,0xff out DDRA,XH ldi XH,0xc0 ;disable key select signal out PORTA,XH sbi PORTB,2 ;2 latch signals cbi PORTB,2 ;2 ;hier Auswertung XL -> keyboard daten lds XH,lcd_keymode com XL ;1 invert because of low active andi XL,0x7f sbrs XH,0 ;skip if keys are active breq bimode_vid_k1 ;no key sts lcd_keymode,const_1 ;set keys to active state ldi tempreg1,0 ;1 no key sbrc XL,0 ;left ldi tempreg1,0xe2 sbrc XL,1 ;right ldi tempreg1,0xe3 sbrc XL,2 ;up ldi tempreg1,0xe4 sbrc XL,3 ;down ldi tempreg1,0xe5 sbrc XL,4 ;enter ldi tempreg1,0xea sbrc XL,5 ;esc ldi tempreg1,0xed sbrc XL,6 ;F5 ldi tempreg1,0xf5 sts libmio_keycode,tempreg1 ;simulated key ldi tempreg1,0 bst XL,4 ;enter bld tempreg1,2 ;left ctrl bst XL,5 ;esc bld tempreg1,0 ;left shift bst XL,2 ;up bld tempreg1,3 ;right ctrl bst XL,3 ;down bld tempreg1,1 ;right shift sts libmio_kbdstate,tempreg1 cpi tempreg1,0x0f brne bimode_vid_k0 jmp 0x0000 ;restart system bimode_vid_k0: sts libmio_scancode,XL ;all keys in one byte bimode_vid_k1: ret ;end of vout routine -> VS/Frame handling SOURCE_142/SOURCE_vdriver/mono_24x60/0000755000175000001440000000000011713042124016040 5ustar joergusersSOURCE_142/SOURCE_vdriver/mono_24x60/textout2.asm0000755000175000001440000001514011725741461020361 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine Y*X text (generic text out) # ;# copyright (c) 2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- vidmode_plot: api_pushregs push libmio_cur_x push libmio_cur_y cpi XL,vidmode_cols*2 ;max X +1 brcc plot_os ;off screen cpi XH,vidmode_rows*2 ;max Y +1 brcc plot_os ;off screen plot_0: ldi tempreg2,1 ;bit left top sbrc XH,0 lsl tempreg2 sbrc XH,0 lsl tempreg2 sbrc XL,0 lsl tempreg2 ;tempreg2 = bitmask lsr XH ;Y/2 lsr XL ;X/2 ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos ld tempreg1,Y ;get char andi tempreg1,0x0f lds ZH,libmio_color sbrs ZH,1 rjmp plot_r or tempreg1,tempreg2 ;set pix plot_e: st Y,tempreg1 plot_os: pop libmio_cur_y pop libmio_cur_x api_popregs plot_r: com tempreg2 and tempreg1,tempreg2 ;clear pix rjmp plot_e ;------------------------------------------------------------------------------- ; output a single char ;------------------------------------------------------------------------------- vidmode_newl: api_pushxyz movw XL,libmio_cur_x rjmp libmio_chr_nl vidmode_char: api_pushxyz movw XL,libmio_cur_x sbrc ctrl,6 rjmp bigchar cpi XL,vidmode_cols brcc vidmode_chr_os ;out of screen cpi XH,vidmode_rows brcc vidmode_chr_os ;out of screen ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos lds ZH,libmio_color mov ZL,tempreg1 sbrs ZH,1 subi ZL,0x80 st Y,ZL ;store char ;move cursor libmio_chr_m: movw XL,libmio_cur_x inc XL cpi XL,vidmode_cols brcs vidmode_chr_m1 libmio_chr_nl: clr XL inc XH cpi XH,vidmode_rows brcs vidmode_chr_m1 lds ZL,libmio_config ;scrollmode sbrs ZL,7 rjmp vidmode_scroll clr XH ;WRAP vidmode_chr_m1: movw libmio_cur_x,XL vidmode_chr_os: api_popxyz vidmode_scroll: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+vidmode_cols) ldi ZH,HIGH(libmio_vram+vidmode_cols) ldi XH,vidmode_rows-1 scroll0: ldi XL,vidmode_cols scroll1: ld r0,Z+ st Y+,r0 dec XL brne scroll1 dec XH brne scroll0 lds ZL,libmio_color ldi ZH,0x20 sbrs ZL,1 ldi ZH,0xA0 ldi XL,vidmode_cols scroll2: st Y+,ZH dec XL brne scroll2 ldi XL,0 ldi XH,23 rjmp vidmode_chr_m1 ;------------------------------------------------------------------------------- ; output a big char ;------------------------------------------------------------------------------- bigchar_no: api_popxyz ;no print bigchar: cpi XL,vidmode_cols*2-3 brcc bigchar_no cpi XH,vidmode_rows*2-5 brcc bigchar_no push tempreg5 ;byte 1 push tempreg6 ;byte 2 push tempreg7 ;byte 3 push tempreg8 ;for storing T-bit bld tempreg8,0 ;store T push tempreg2 ;temp value push tempreg4 bigchar_0: mov ZL,tempreg1 ;char ldi ZH,HIGH(libmio_ctable*2) ;start char ROM (system only) ldi tempreg4,5 ;10 char lines bigchar_1: clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,0 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,1 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,0 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,1 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,0 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,1 inc ZH ;next line clr tempreg2 ;clear temp value lpm XL,Z ;get pixel line sbrc XL,7 ;pixel 0 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,2 sbrc XL,6 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg5,3 sbrc XL,5 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,2 sbrc XL,4 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg6,3 sbrc XL,3 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,2 sbrc XL,2 inc tempreg2 bst tempreg2,0 ;copy pix bld tempreg7,3 inc ZH bigchar_d: push ZH push ZL lds tempreg2,libmio_color movw XL,libmio_cur_x ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,vidmode_cols mul ZL,XH add YL,r0 adc YH,r1 add YL,XL adc YH,const_0 ;Y is now char pos mov tempreg1,tempreg5 ;char1 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 inc XL mov tempreg1,tempreg6 ;char2 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 inc XL mov tempreg1,tempreg7 ;char2 andi tempreg1,0x0f sbrs tempreg2,1 subi tempreg1,0x80 st Y+,tempreg1 subi XL,2 inc XH movw libmio_cur_x,XL pop ZL pop ZH dec tempreg4 brne bigchar_1x subi XL,0xfd subi XH,0x05 movw libmio_cur_x,XL bigchar_e: pop tempreg4 pop tempreg2 bst tempreg8,0 ;restore T pop tempreg8 pop tempreg7 pop tempreg6 pop tempreg5 rjmp bigchar_no bigchar_1x: rjmp bigchar_1 ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vidmode_clear: lds ZL,libmio_color ldi tempreg1,0x20 sbrc ZL,1 ldi tempreg1,0xa0 ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XH,vidmode_rows ldi tempreg1,0x20 vidmode_clear1:ldi XL,vidmode_cols vidmode_clear2: st Y+,tempreg1 ;chars dec XL brne vidmode_clear2 dec XH brne vidmode_clear1 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 ret SOURCE_142/SOURCE_vdriver/mono_24x60/mono_24x60.asm0000755000175000001440000001272611725741461020405 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine 40x24 text # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .equ vidmode_cols = 60 .equ vidmode_rows = 24 .macro vchar ld ZL,X+ ;2 lpm tempreg1,Z ;3 get pixline out PORTC,tempreg1 ;1 output pix 7 lsl tempreg1 ;1 prepare pix 6 out PORTC,tempreg1 ;1 output pix 6 lsl tempreg1 ;1 prepare pix 5 out PORTC,tempreg1 ;1 output pix 5 lsl tempreg1 ;1 prepare pix 4 out PORTC,tempreg1 ;1 output pix 4 lsl tempreg1 ;1 prepare pix 3 out PORTC,tempreg1 ;1 output pix 3 lsl tempreg1 ;1 prepare pix 2 out PORTC,tempreg1 ;1 output pix 2 .endm .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_ctable = 0x7b00 .equ vidmode_cline = libmio_vram+1450 .equ vidmode_pline = libmio_vram+1452 .equ vidmode_rampos_l = libmio_vram+1453 .equ vidmode_rampos_h = libmio_vram+1454 .CSEG .org 0x7200 ; "...... N" start: .db "M24*60 N",0xf3,0xfe,0x82 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 rjmp vidmode_init ;FKT 01 init rjmp vidmode_clear ;FKT 02 clear screen rjmp vidmode_char ;FKT 03 output char rjmp vidmode_gxy ;FKT 04 set cursor rjmp vidmode_plot ;FKT 05 plot rjmp vidmode_newl ;FKT 06 NL rjmp vidmode_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; set cursor ;------------------------------------------------------------------------------- vidmode_gxy: movw libmio_cur_x,XL ret ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output expansion ;------------------------------------------------------------------------------- outex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- vidmode_init: brtc vidmode_exit ;exit ldi XL,0 out PORTC,XL ldi XL,0x80 ;enable only green out DDRC,XL rcall vidmode_clear ldi XL,vidmode_cols*2 sts libmio_clipx2,XL ldi XL,vidmode_rows*2 sts libmio_clipy2,XL ldi XL,0 ;extended mode ret vidmode_exit: push XL ldi XL,0 ;enable all video outputs out PORTC,XL ldi XL,0xf0 out DDRC,XL pop XL ret ;------------------------------------------------------------------------------- ; video output (24 lines a 60 chars) ;------------------------------------------------------------------------------- vidmode_novid: set ret vidmode_vid: sbrc vline_h,0 rjmp vidmode_novid mov XL,vline_l cpi XL,241 brcc vidmode_novid ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- vid_iss: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+83 ;1 brcs vid_iss ;1 loop vid_iss_01: cpi XL,libmio_hstart+84 brcs vid_iss_02 vid_iss_02: cpi XL,libmio_hstart+85 brcs vid_iss_03 vid_iss_03: cpi XL,libmio_hstart+86 brcs vid_iss_03a vid_iss_03a: cpi XL,libmio_hstart+87 brcs vid_iss_04 vid_iss_04: lds XL,libmio_rampos_l lds XH,libmio_rampos_h lds ZH,prg_font ;start of table lsl ZH subi ZH,0xfe ;+2 lds ZL,libmio_cline add ZH,ZL ;char 0..9 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 10..19 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 20..29 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 30..39 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 40..49 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar ;char 50..59 vchar vchar vchar vchar vchar vchar vchar vchar vchar vchar lds tempreg1,libmio_border lds ZL,libmio_cline inc ZL out PORTC,tempreg1 cpi ZL,10 brne vidmode_vid1 clr ZL sts libmio_rampos_l,XL sts libmio_rampos_h,XH vidmode_vid1: sts libmio_cline,ZL clt ret .include "textout2.asm" SOURCE_142/SOURCE_vdriver/vecmode/0000755000175000001440000000000011713042124015647 5ustar joergusersSOURCE_142/SOURCE_vdriver/vecmode/vecmode.asm0000755000175000001440000004000711725741462020015 0ustar joergusers;################################################################################ ;# # ;# vector mode 7 engine # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .CSEG .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .org 0x7200 ; "...... N" start: .db "Vector mode N",0xf3,0xfe,0x91 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,"VM",0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;IO ext rjmp outex ;IO ext ret ;FKT 00 ID rjmp vecmode_init ;FKT 01 init rjmp vecmode_cls ;FKT 02 clear screen rjmp vecmode_char ;FKT 03 output char rjmp vecmode_gxy ;FKT 04 set cursor ret ;FKT 05 plot ret ;FKT 06 NL rjmp vecmode_vid ;FKT 07 video display ret ;FKT 08 startup rjmp vecmode_cvec ;FKT 09 clear vector rjmp vecmode_cfill ;FKT 10 lineptr constant fill rjmp vecmode_ifill ;FKT 11 lineptr incremental fill rjmp vecmode_dfill ;FKT 12 lineptr decremental fill rjmp vecmode_afill ;FKT 13 lineptr array fill rjmp vecmode_pcopy ;FKT 14 lineptr copy rjmp vecmode_kfill ;FKT 15 line fill from array (constant) rjmp vecmode_lfill ;FKT 16 line fill from array ret ;FKT 17 ret ;FKT 18 ret ;FKT 19 ret ;FKT 20 inex: ldi ereg,40 ;no IO driver ret outex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; -output character lines and vector area, 9 clocks per pixel ;------------------------------------------------------------------------------- ;upper text line vecmode_t1: ldi XL,LOW(libmio_vram) ;1 ldi XH,HIGH(libmio_vram) ;1 ldi YL,LOW(libmio_vram+60) ;1 ldi YH,HIGH(libmio_vram+60) ;1 subi tempreg1,0xf6 ;1 +10 sts libmio_cline,tempreg1 ;2 api_vm0line ;view textline ;lower text line vecmode_t2: ldi XL,LOW(libmio_vram+30) ;1 ldi XH,HIGH(libmio_vram+30) ;1 ldi YL,LOW(libmio_vram+90) ;1 ldi YH,HIGH(libmio_vram+90) ;1 subi tempreg1,210 ;1 sts libmio_cline,tempreg1 ;2 api_vm0line ;view textline vecmode_novid: ret vecmode_vid: mov tempreg1,vline_l ;1 subi tempreg1,5 brcs vecmode_novid subi tempreg1,10 ;1 brcc vecmode_01 ;1/2 rjmp vecmode_t1 ;2 upper text line vecmode_01: cpi tempreg1,210 ;1 brcs vecmode_02 ;1/2 rjmp vecmode_t2 ;2 lower text line vecmode_02: ;jmp libmio_is_15 ;DEBUG ldi tempreg2,24 ;1 lsr tempreg1 ;1 ldi XL,LOW(libmio_vram+120) ;1 ldi XH,HIGH(libmio_vram+120);1 add XL,tempreg1 ;1 adc XH,const_0 ;1 ld tempreg1,X ;2 mul tempreg1,tempreg2 ;1 ldi XL,LOW(libmio_vram+225) ;1 ldi XH,HIGH(libmio_vram+225);1 add XL,r0 ;1 adc XH,r1 ;1 ldi YL,159 ;1 set initial counter ;set 1 ld tempreg1,X+ ;2 position ld tempreg2,X+ ;value vecmode_10: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_11 ;2 nop ;1 nop ;1 nop ;1 cp YL,const_0 ;1 brne vecmode_10 ;2 rjmp vecmode_e ;set 2 vecmode_11: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_12: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_13 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_12 ;2 rjmp vecmode_e ;set 3 vecmode_13: ld tempreg1,X+ ;2 position out PORTC,tempreg3 ;1 set cvalue ld tempreg2,X+ ;2 value vecmode_14: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_15 ;2 nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_14 ;2 rjmp vecmode_e ;set 4 vecmode_15: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_16: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_17 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_16 ;2 rjmp vecmode_e ;set 5 vecmode_17: ld tempreg1,X+ ;2 position out PORTC,tempreg3 ;1 set cvalue ld tempreg2,X+ ;2 value vecmode_18: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_19 ;2 nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_18 ;2 rjmp vecmode_e ;set 6 vecmode_19: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_20: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_21 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_20 ;2 rjmp vecmode_e ;set 7 vecmode_21: ld tempreg1,X+ ;2 position out PORTC,tempreg3 ;1 set cvalue ld tempreg2,X+ ;2 value vecmode_22: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_23 ;2 nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_22 ;2 rjmp vecmode_e ;set 8 vecmode_23: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_24: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_25 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_24 ;2 rjmp vecmode_e ;set 9 vecmode_25: ld tempreg1,X+ ;2 position out PORTC,tempreg3 ;1 set cvalue ld tempreg2,X+ ;2 value vecmode_26: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_27 ;2 nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_26 ;2 rjmp vecmode_e ;set 10 vecmode_27: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_28: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_29 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_28 ;2 rjmp vecmode_e ;set 11 vecmode_29: ld tempreg1,X+ ;2 position out PORTC,tempreg3 ;1 set cvalue ld tempreg2,X+ ;2 value vecmode_30: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_31 ;2 nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_30 ;2 rjmp vecmode_e ;set 12 vecmode_31: ld tempreg1,X+ ;2 position out PORTC,tempreg2 ;1 set cvalue ld tempreg3,X+ ;2 value vecmode_32: inc YL ;1 cp YL,tempreg1 ;1 breq vecmode_33 ;2 nop ;1 swap tempreg2 ;1 out PORTC,tempreg2 ;1 cp YL,const_0 ;1 brne vecmode_32 ;2 rjmp vecmode_e ;set 12x vecmode_33: nop nop out PORTC,tempreg3 ;1 set cvalue nop nop vecmode_34: inc YL ;1 cp YL,tempreg1 ;1 nop nop ;1 swap tempreg3 ;1 out PORTC,tempreg3 ;1 cp YL,const_0 ;1 brne vecmode_34 ;2 rjmp vecmode_e vecmode_e: ;the end vecmode_1x: lds tempreg2,libmio_border ;2 nop nop out PORTC,tempreg2 ;1 ret ;------------------------------------------------------------------------------- ; clear vector area ;------------------------------------------------------------------------------- vecmode_cvec: api_pushxyz ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) ldi XL,105 vecmode_cvec_0: st Y+,const_0 dec XL brne vecmode_cvec_0 ldi XL,LOW(105*12) ;lines * (bytesperline+1) ldi XH,HIGH(105*12) vecmode_cvec_1: st Y+,const_1 st Y+,const_0 sbiw XL,1 brne vecmode_cvec_1 api_popxyz ;------------------------------------------------------------------------------ ;output screenshot ;------------------------------------------------------------------------------ vecmode_scrs: ldi ZH,92 ;number of charlines vecmode_scrs1: ldi ZL,libmio_cols ;number of chars per line api_hexline dec ZH brne vecmode_scrs1 ret ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- vecmode_cls: rcall vecmode_ctxt ;clear text ret ;------------------------------------------------------------------------------- ; clear text area ;------------------------------------------------------------------------------- vecmode_ctxt: api_pushxyz ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XL,60 ;chars ldi XH,32 ;space lds r0,libmio_color vecmode_ctxt1: std Y+60,r0 ;write attr st Y+,XH ;write char dec XL brne vecmode_ctxt1 api_popxyz ;------------------------------------------------------------------------------ ; set video mode ;------------------------------------------------------------------------------ vecmode_init: brtc vecmode_i_e ;no exit ldi XL,libmio_v0cols sts libmio_clipx2,XL ldi XL,2 sts libmio_clipy2,XL rcall vecmode_ctxt rcall vecmode_cvec ldi XL,235 vecmode_i_e: ret ;------------------------------------------------------------------------------- ; output character and calculate new position (tempreg1=char) ;------------------------------------------------------------------------------- vecmode_char: push XL push XH push YL push YH movw XL,libmio_cur_x ;X ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position add YL,XL ;position+x adc YH,const_0 ldi XL,0 sbrc XH,0 ldi XL,30 add YL,XL ;position+(cols*y) adc YH,const_0 st Y,tempreg1 ;write char ldi XH,60 add YL,XH ;position+(cols*y) adc YH,const_0 lds XH,libmio_color st Y,XH movw XL,libmio_cur_x ;X inc XL cpi XL,30 brcs vecmode_chr_1 clr XL inc XH vecmode_chr_1: andi XH,1 movw libmio_cur_x,XL pop YH pop YL pop XH pop XL ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- vecmode_gxy: movw libmio_cur_x,XL ;save X,Y-position ret retzero: ldi XL,0 ldi XH,0 retvalue: api_getvalues st Y+,XL st Y+,XH ret ;------------------------------------------------------------------------------- ; fill linepointers constant ;------------------------------------------------------------------------------- vecmode_cfill: api_getvalues ldd r16,Y+2 ;start pointer ldd r17,Y+4 ;pointers ldd r18,Y+6 ;value vecmode_cf_1: cpi r16,105 brcs vecmode_cf_2 subi r16,105 rjmp vecmode_cf_1 vecmode_cf_2: cpi r18,105 brcs vecmode_cf_3 subi r18,105 rjmp vecmode_cf_2 vecmode_cf_3: ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 st Y,r18 inc r16 dec r17 brne vecmode_cf_1 rjmp retzero ;------------------------------------------------------------------------------- ; fill linepointers incremental ;------------------------------------------------------------------------------- vecmode_ifill: api_getvalues ldd r16,Y+2 ;start pointer ldd r17,Y+4 ;pointers ldd r18,Y+6 ;value vecmode_if_1: cpi r16,105 brcs vecmode_if_2 subi r16,105 rjmp vecmode_if_1 vecmode_if_2: cpi r18,105 brcs vecmode_if_3 subi r18,105 rjmp vecmode_if_2 vecmode_if_3: ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 st Y,r18 inc r18 inc r16 dec r17 brne vecmode_if_1 rjmp retzero ;------------------------------------------------------------------------------- ; fill linepointers decremental ;------------------------------------------------------------------------------- vecmode_dfill: api_getvalues ldd r16,Y+2 ;start pointer ldd r17,Y+4 ;pointers ldd r18,Y+6 ;value vecmode_df_1: cpi r16,105 brcs vecmode_df_2 subi r16,105 rjmp vecmode_df_1 vecmode_df_2: cpi r18,105 brcs vecmode_df_3 subi r18,105 rjmp vecmode_df_2 vecmode_df_3: ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 st Y,r18 inc r16 dec r18 brcc vecmode_df_4 ldi r18,104 vecmode_df_4: dec r17 brne vecmode_df_1 rjmp retzero ;------------------------------------------------------------------------------- ; fill linepointers from array ;------------------------------------------------------------------------------- vecmode_afill: api_getvalues ldd r16,Y+2 ;start pointer ldd r17,Y+4 ;pointers ldd XL,Y+6 ;array ptr ldd XH,Y+7 api_getarray movw r0,YL vecmode_af_1: cpi r16,105 brcs vecmode_af_2 subi r16,105 rjmp vecmode_af_1 vecmode_af_2: cpi XH,3 brcs vecmode_af_3 clr XH movw YL,r0 add YL,XL adc YH,XH ld r18,Y vecmode_af_3: cpi r18,105 brcs vecmode_af_4 subi r18,105 rjmp vecmode_af_3 vecmode_af_4: ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 st Y,r18 inc r16 adiw XL,1 dec r17 brne vecmode_af_1 rjmp retzero ;------------------------------------------------------------------------------- ; copy linepointers ;------------------------------------------------------------------------------- vecmode_pcopy: api_getvalues ldd r16,Y+2 ;source pointer ldd r17,Y+4 ;target ptr ldd r18,Y+6 ;number ldd XH,Y+7 sbrc XH,7 rjmp vecmode_pcpn ;negative vecmode_pcp_1: cpi r16,105 brcs vecmode_pcp_2 subi r16,105 rjmp vecmode_pcp_1 vecmode_pcp_2: cpi r17,105 brcs vecmode_pcp_3 subi r17,105 rjmp vecmode_pcp_2 vecmode_pcp_3: ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 ld r0,Y ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r17 adc YH,const_0 st Y,r0 inc r16 inc r17 dec r18 brne vecmode_pcp_1 rjmp retzero vecmode_pcpn: neg r18 add r16,r18 dec r16 add r17,r18 dec r17 vecmode_pcp_5: cpi r16,105 brcs vecmode_pcp_6 subi r16,105 rjmp vecmode_pcp_5 vecmode_pcp_6: cpi r17,105 brcs vecmode_pcp_7 subi r17,105 rjmp vecmode_pcp_6 vecmode_pcp_7: sbrc r16,7 ldi r16,104 sbrc r17,7 ldi r17,104 ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r16 adc YH,const_0 ld r0,Y ldi YL,LOW(libmio_vram+120) ldi YH,HIGH(libmio_vram+120) add YL,r17 adc YH,const_0 st Y,r0 dec r16 dec r17 dec r18 brne vecmode_pcp_5 rjmp retzero ;------------------------------------------------------------------------------- ; fill lines from array ;------------------------------------------------------------------------------- vecmode_lfill: api_getvalues ldd r16,Y+2 ;start line ldd r17,Y+4 ;number of lines ldd XL,Y+6 ;array ptr ldd XH,Y+7 vecmode_lf_1: cpi r16,105 brcs vecmode_lf_2 subi r16,105 rjmp vecmode_lf_1 vecmode_lf_2: ldi ZL,LOW(libmio_vram+225) ldi ZH,HIGH(libmio_vram+225) ldi r18,24 ;bytes per line mul r18,r16 add ZL,r0 adc ZH,r1 vecmode_lf_3: cpi XH,3 brcs vecmode_lf_4 clr XH vecmode_lf_4: api_getarray add YL,XL adc YH,XH ld r0,Y st Z+,r0 adiw XL,1 ;inc array ptr dec r18 brne vecmode_lf_3 inc r16 ;next line dec r17 brne vecmode_lf_1 rjmp retzero ;------------------------------------------------------------------------------- ; fill lines from array ;------------------------------------------------------------------------------- vecmode_kfill: api_getvalues ldd r16,Y+2 ;start line ldd r17,Y+4 ;number of lines ldd XL,Y+6 ;array ptr ldd XH,Y+7 vecmode_kf_1: cpi r16,105 brcs vecmode_kf_2 subi r16,105 rjmp vecmode_kf_1 vecmode_kf_2: ldi ZL,LOW(libmio_vram+225) ldi ZH,HIGH(libmio_vram+225) ldi r18,24 ;bytes per line mul r18,r16 add ZL,r0 adc ZH,r1 vecmode_kf_3: cpi XH,3 brcs vecmode_kf_4 clr XH vecmode_kf_4: api_getarray add YL,XL adc YH,XH ld r0,Y st Z+,r0 adiw XL,1 ;inc array ptr dec r18 brne vecmode_kf_3 inc r16 ;next line dec r17 sbiw XL,24 brne vecmode_kf_1 rjmp retzero SOURCE_142/SOURCE_vdriver/charset_50z/0000755000175000001440000000000011713042123016353 5ustar joergusersSOURCE_142/SOURCE_vdriver/charset_50z/ctable.inc0000644000175000001440000003460011725741461020321 0ustar joergusers .db 0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc .db 0x30,0x00,0x00,0x00,0x30,0x30,0x00,0x30,0x30,0x30,0x30,0xa8,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03 .db 0xcf,0xff,0xff,0xff,0xcf,0xcf,0xff,0xcf,0xcf,0xcf,0xcf,0x57,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc .db 0x30,0x00,0x00,0x00,0x30,0x30,0x00,0x30,0x30,0x30,0x30,0x54,0x38,0x00,0x00,0x00 .db 0x00,0x10,0x28,0x28,0x10,0x60,0x30,0x30,0x08,0x20,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x38,0x10,0x38,0x7c,0x08,0x7c,0x18,0x7c,0x38,0x38,0x00,0x00,0x08,0x00,0x20,0x38 .db 0x38,0x38,0x78,0x38,0x78,0x7c,0x7c,0x38,0x44,0x38,0x1c,0x44,0x40,0x44,0x44,0x38 .db 0x78,0x38,0x78,0x38,0x7c,0x44,0x44,0x44,0x44,0x44,0x7c,0x70,0x40,0x70,0x10,0x00 .db 0x20,0x00,0x40,0x00,0x04,0x00,0x18,0x00,0x40,0x10,0x08,0x40,0x30,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x10,0x20,0x00,0x00 .db 0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03 .db 0xcf,0xff,0xff,0xff,0xcf,0xcf,0xff,0xcf,0xcf,0xcf,0xcf,0xab,0xc7,0xff,0xff,0xff .db 0xff,0xef,0xd7,0xd7,0xef,0x9f,0xcf,0xcf,0xf7,0xdf,0xff,0xff,0xff,0xff,0xff,0xff .db 0xc7,0xef,0xc7,0x83,0xf7,0x83,0xe7,0x83,0xc7,0xc7,0xff,0xff,0xf7,0xff,0xdf,0xc7 .db 0xc7,0xc7,0x87,0xc7,0x87,0x83,0x83,0xc7,0xbb,0xc7,0xe3,0xbb,0xbf,0xbb,0xbb,0xc7 .db 0x87,0xc7,0x87,0xc7,0x83,0xbb,0xbb,0xbb,0xbb,0xbb,0x83,0x8f,0xbf,0x8f,0xef,0xff .db 0xdf,0xff,0xbf,0xff,0xfb,0xff,0xe7,0xff,0xbf,0xef,0xf7,0xbf,0xcf,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xdf,0xff,0xff,0xff,0xff,0xff,0xff,0xf7,0xef,0xdf,0xff,0xff .db 0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc .db 0x30,0x00,0x00,0x00,0x30,0x30,0x00,0x30,0x30,0x30,0x30,0xa8,0x28,0x00,0x00,0x00 .db 0x00,0x10,0x28,0x28,0x3c,0x64,0x48,0x10,0x10,0x10,0x10,0x10,0x00,0x00,0x00,0x04 .db 0x44,0x30,0x44,0x08,0x18,0x40,0x20,0x44,0x44,0x44,0x30,0x30,0x10,0x00,0x10,0x44 .db 0x44,0x44,0x44,0x44,0x44,0x40,0x40,0x44,0x44,0x10,0x08,0x48,0x40,0x6c,0x44,0x44 .db 0x44,0x44,0x44,0x44,0x10,0x44,0x44,0x44,0x44,0x44,0x04,0x40,0x40,0x10,0x28,0x00 .db 0x10,0x00,0x40,0x00,0x04,0x00,0x24,0x00,0x40,0x00,0x00,0x40,0x10,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x10,0x10,0x00,0x10 .db 0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03 .db 0xcf,0xff,0xff,0xff,0xcf,0xcf,0xff,0xcf,0xcf,0xcf,0xcf,0x57,0xd7,0xff,0xff,0xff .db 0xff,0xef,0xd7,0xd7,0xc3,0x9b,0xb7,0xef,0xef,0xef,0xef,0xef,0xff,0xff,0xff,0xfb .db 0xbb,0xcf,0xbb,0xf7,0xe7,0xbf,0xdf,0xbb,0xbb,0xbb,0xcf,0xcf,0xef,0xff,0xef,0xbb .db 0xbb,0xbb,0xbb,0xbb,0xbb,0xbf,0xbf,0xbb,0xbb,0xef,0xf7,0xb7,0xbf,0x93,0xbb,0xbb .db 0xbb,0xbb,0xbb,0xbb,0xef,0xbb,0xbb,0xbb,0xbb,0xbb,0xfb,0xbf,0xbf,0xef,0xd7,0xff .db 0xef,0xff,0xbf,0xff,0xfb,0xff,0xdb,0xff,0xbf,0xff,0xff,0xbf,0xef,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xdf,0xff,0xff,0xff,0xff,0xff,0xff,0xef,0xef,0xef,0xff,0xef .db 0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc .db 0x30,0x00,0x00,0x00,0x30,0x30,0x00,0x30,0x30,0x30,0x30,0x54,0x38,0x10,0x44,0x38 .db 0x00,0x10,0x28,0x7c,0x50,0x08,0x50,0x20,0x20,0x08,0x54,0x10,0x00,0x00,0x00,0x08 .db 0x4c,0x10,0x04,0x10,0x28,0x78,0x40,0x08,0x44,0x44,0x30,0x30,0x20,0x7c,0x08,0x04 .db 0x04,0x44,0x44,0x40,0x44,0x40,0x40,0x40,0x44,0x10,0x08,0x50,0x40,0x54,0x64,0x44 .db 0x44,0x44,0x44,0x40,0x10,0x44,0x44,0x44,0x28,0x44,0x08,0x40,0x20,0x10,0x44,0x00 .db 0x08,0x38,0x78,0x38,0x34,0x38,0x20,0x3c,0x58,0x30,0x18,0x48,0x10,0x68,0x58,0x38 .db 0x70,0x38,0x58,0x38,0x70,0x44,0x44,0x44,0x44,0x44,0x7c,0x10,0x10,0x10,0x20,0x08 .db 0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03 .db 0xcf,0xff,0xff,0xff,0xcf,0xcf,0xff,0xcf,0xcf,0xcf,0xcf,0xab,0xc7,0xef,0xbb,0xc7 .db 0xff,0xef,0xd7,0x83,0xaf,0xf7,0xaf,0xdf,0xdf,0xf7,0xab,0xef,0xff,0xff,0xff,0xf7 .db 0xb3,0xef,0xfb,0xef,0xd7,0x87,0xbf,0xf7,0xbb,0xbb,0xcf,0xcf,0xdf,0x83,0xf7,0xfb .db 0xfb,0xbb,0xbb,0xbf,0xbb,0xbf,0xbf,0xbf,0xbb,0xef,0xf7,0xaf,0xbf,0xab,0x9b,0xbb .db 0xbb,0xbb,0xbb,0xbf,0xef,0xbb,0xbb,0xbb,0xd7,0xbb,0xf7,0xbf,0xdf,0xef,0xbb,0xff .db 0xf7,0xc7,0x87,0xc7,0xcb,0xc7,0xdf,0xc3,0xa7,0xcf,0xe7,0xb7,0xef,0x97,0xa7,0xc7 .db 0x8f,0xc7,0xa7,0xc7,0x8f,0xbb,0xbb,0xbb,0xbb,0xbb,0x83,0xef,0xef,0xef,0xdf,0xf7 .db 0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc,0x00,0xe0,0x1c,0xfc .db 0x30,0xfc,0x3c,0xf0,0x3c,0xf0,0xfc,0xfc,0x3c,0xf0,0xfc,0xa8,0x00,0x28,0x44,0x44 .db 0x00,0x10,0x00,0x28,0x38,0x10,0x20,0x00,0x20,0x08,0x38,0x7c,0x00,0x7c,0x00,0x10 .db 0x54,0x10,0x08,0x08,0x48,0x04,0x78,0x10,0x38,0x3c,0x00,0x00,0x40,0x00,0x04,0x08 .db 0x34,0x44,0x78,0x40,0x44,0x78,0x78,0x5c,0x7c,0x10,0x08,0x60,0x40,0x54,0x54,0x44 .db 0x78,0x44,0x78,0x38,0x10,0x44,0x44,0x44,0x10,0x28,0x10,0x40,0x10,0x10,0x00,0x00 .db 0x00,0x04,0x44,0x40,0x4c,0x44,0x70,0x44,0x64,0x10,0x08,0x50,0x10,0x54,0x64,0x44 .db 0x48,0x48,0x64,0x40,0x20,0x44,0x44,0x44,0x28,0x44,0x08,0x20,0x10,0x08,0x54,0x7c .db 0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03,0xff,0x1f,0xe3,0x03 .db 0xcf,0x03,0xc3,0x0f,0xc3,0x0f,0x03,0x03,0xc3,0x0f,0x03,0x57,0xff,0xd7,0xbb,0xbb .db 0xff,0xef,0xff,0xd7,0xc7,0xef,0xdf,0xff,0xdf,0xf7,0xc7,0x83,0xff,0x83,0xff,0xef .db 0xab,0xef,0xf7,0xf7,0xb7,0xfb,0x87,0xef,0xc7,0xc3,0xff,0xff,0xbf,0xff,0xfb,0xf7 .db 0xcb,0xbb,0x87,0xbf,0xbb,0x87,0x87,0xa3,0x83,0xef,0xf7,0x9f,0xbf,0xab,0xab,0xbb .db 0x87,0xbb,0x87,0xc7,0xef,0xbb,0xbb,0xbb,0xef,0xd7,0xef,0xbf,0xef,0xef,0xff,0xff .db 0xff,0xfb,0xbb,0xbf,0xb3,0xbb,0x8f,0xbb,0x9b,0xef,0xf7,0xaf,0xef,0xab,0x9b,0xbb .db 0xb7,0xb7,0x9b,0xbf,0xdf,0xbb,0xbb,0xbb,0xd7,0xbb,0xf7,0xdf,0xef,0xf7,0xab,0x83 .db 0x00,0x00,0x00,0x00,0xe0,0xe0,0xe0,0xe0,0x1c,0x1c,0x1c,0x1c,0xfc,0xfc,0xfc,0xfc .db 0x30,0xfc,0x3c,0xf0,0x3c,0xf0,0xfc,0xfc,0x3c,0xf0,0xfc,0x54,0x00,0x7c,0x44,0x44 .db 0x00,0x10,0x00,0x7c,0x14,0x20,0x50,0x00,0x20,0x08,0x54,0x10,0x30,0x00,0x00,0x20 .db 0x64,0x10,0x10,0x04,0x7c,0x04,0x44,0x10,0x44,0x04,0x30,0x30,0x20,0x7c,0x08,0x10 .db 0x54,0x7c,0x44,0x40,0x44,0x40,0x40,0x44,0x44,0x10,0x08,0x50,0x40,0x44,0x4c,0x44 .db 0x40,0x54,0x50,0x04,0x10,0x44,0x28,0x54,0x28,0x10,0x20,0x40,0x08,0x10,0x00,0x00 .db 0x00,0x3c,0x44,0x40,0x44,0x7c,0x20,0x44,0x44,0x10,0x08,0x60,0x10,0x54,0x44,0x44 .db 0x48,0x48,0x40,0x38,0x20,0x44,0x44,0x44,0x10,0x34,0x10,0x10,0x10,0x10,0x08,0x08 .db 0xff,0xff,0xff,0xff,0x1f,0x1f,0x1f,0x1f,0xe3,0xe3,0xe3,0xe3,0x03,0x03,0x03,0x03 .db 0xcf,0x03,0xc3,0x0f,0xc3,0x0f,0x03,0x03,0xc3,0x0f,0x03,0xab,0xff,0x83,0xbb,0xbb .db 0xff,0xef,0xff,0x83,0xeb,0xdf,0xaf,0xff,0xdf,0xf7,0xab,0xef,0xcf,0xff,0xff,0xdf .db 0x9b,0xef,0xef,0xfb,0x83,0xfb,0xbb,0xef,0xbb,0xfb,0xcf,0xcf,0xdf,0x83,0xf7,0xef .db 0xab,0x83,0xbb,0xbf,0xbb,0xbf,0xbf,0xbb,0xbb,0xef,0xf7,0xaf,0xbf,0xbb,0xb3,0xbb .db 0xbf,0xab,0xaf,0xfb,0xef,0xbb,0xd7,0xab,0xd7,0xef,0xdf,0xbf,0xf7,0xef,0xff,0xff .db 0xff,0xc3,0xbb,0xbf,0xbb,0x83,0xdf,0xbb,0xbb,0xef,0xf7,0x9f,0xef,0xab,0xbb,0xbb .db 0xb7,0xb7,0xbf,0xc7,0xdf,0xbb,0xbb,0xbb,0xef,0xcb,0xef,0xef,0xef,0xef,0xf7,0xf7 .db 0x00,0x00,0x00,0x00,0xe0,0xe0,0xe0,0xe0,0x1c,0x1c,0x1c,0x1c,0xfc,0xfc,0xfc,0xfc .db 0x30,0x00,0x30,0x30,0x00,0x00,0x30,0x00,0x30,0x30,0x30,0xa8,0x00,0x00,0x44,0x28 .db 0x00,0x00,0x00,0x28,0x78,0x4c,0x48,0x00,0x10,0x10,0x10,0x10,0x10,0x00,0x30,0x40 .db 0x44,0x10,0x20,0x44,0x08,0x44,0x44,0x20,0x44,0x08,0x30,0x10,0x10,0x00,0x10,0x00 .db 0x54,0x44,0x44,0x44,0x44,0x40,0x40,0x44,0x44,0x10,0x48,0x48,0x40,0x44,0x44,0x44 .db 0x40,0x4c,0x48,0x44,0x10,0x44,0x28,0x54,0x44,0x10,0x40,0x40,0x04,0x10,0x00,0x00 .db 0x00,0x44,0x44,0x44,0x44,0x40,0x20,0x3c,0x44,0x10,0x08,0x50,0x10,0x44,0x44,0x44 .db 0x70,0x38,0x40,0x04,0x28,0x4c,0x28,0x54,0x28,0x0c,0x20,0x10,0x10,0x10,0x00,0x10 .db 0xff,0xff,0xff,0xff,0x1f,0x1f,0x1f,0x1f,0xe3,0xe3,0xe3,0xe3,0x03,0x03,0x03,0x03 .db 0xcf,0xff,0xcf,0xcf,0xff,0xff,0xcf,0xff,0xcf,0xcf,0xcf,0x57,0xff,0xff,0xbb,0xd7 .db 0xff,0xff,0xff,0xd7,0x87,0xb3,0xb7,0xff,0xef,0xef,0xef,0xef,0xef,0xff,0xcf,0xbf .db 0xbb,0xef,0xdf,0xbb,0xf7,0xbb,0xbb,0xdf,0xbb,0xf7,0xcf,0xef,0xef,0xff,0xef,0xff .db 0xab,0xbb,0xbb,0xbb,0xbb,0xbf,0xbf,0xbb,0xbb,0xef,0xb7,0xb7,0xbf,0xbb,0xbb,0xbb .db 0xbf,0xb3,0xb7,0xbb,0xef,0xbb,0xd7,0xab,0xbb,0xef,0xbf,0xbf,0xfb,0xef,0xff,0xff .db 0xff,0xbb,0xbb,0xbb,0xbb,0xbf,0xdf,0xc3,0xbb,0xef,0xf7,0xaf,0xef,0xbb,0xbb,0xbb .db 0x8f,0xc7,0xbf,0xfb,0xd7,0xb3,0xd7,0xab,0xd7,0xf3,0xdf,0xef,0xef,0xef,0xff,0xef .db 0x00,0x00,0x00,0x00,0xe0,0xe0,0xe0,0xe0,0x1c,0x1c,0x1c,0x1c,0xfc,0xfc,0xfc,0xfc .db 0x30,0x00,0x30,0x30,0x00,0x00,0x30,0x00,0x30,0x30,0x30,0x54,0x00,0x00,0x78,0x6c .db 0x00,0x10,0x00,0x28,0x10,0x0c,0x34,0x00,0x08,0x20,0x00,0x00,0x20,0x00,0x30,0x00 .db 0x38,0x38,0x7c,0x38,0x08,0x38,0x38,0x20,0x38,0x30,0x00,0x20,0x08,0x00,0x20,0x10 .db 0x38,0x44,0x78,0x38,0x78,0x7c,0x40,0x38,0x44,0x38,0x30,0x44,0x7c,0x44,0x44,0x38 .db 0x40,0x34,0x44,0x38,0x10,0x38,0x10,0x38,0x44,0x10,0x7c,0x70,0x04,0x70,0x00,0x7c .db 0x00,0x3c,0x78,0x38,0x38,0x38,0x20,0x04,0x44,0x38,0x48,0x48,0x38,0x44,0x44,0x38 .db 0x40,0x08,0x40,0x78,0x10,0x34,0x10,0x28,0x44,0x04,0x7c,0x08,0x10,0x20,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x1f,0x1f,0x1f,0x1f,0xe3,0xe3,0xe3,0xe3,0x03,0x03,0x03,0x03 .db 0xcf,0xff,0xcf,0xcf,0xff,0xff,0xcf,0xff,0xcf,0xcf,0xcf,0xab,0xff,0xff,0x87,0x93 .db 0xff,0xef,0xff,0xd7,0xef,0xf3,0xcb,0xff,0xf7,0xdf,0xff,0xff,0xdf,0xff,0xcf,0xff .db 0xc7,0xc7,0x83,0xc7,0xf7,0xc7,0xc7,0xdf,0xc7,0xcf,0xff,0xdf,0xf7,0xff,0xdf,0xef .db 0xc7,0xbb,0x87,0xc7,0x87,0x83,0xbf,0xc7,0xbb,0xc7,0xcf,0xbb,0x83,0xbb,0xbb,0xc7 .db 0xbf,0xcb,0xbb,0xc7,0xef,0xc7,0xef,0xc7,0xbb,0xef,0x83,0x8f,0xfb,0x8f,0xff,0x83 .db 0xff,0xc3,0x87,0xc7,0xc7,0xc7,0xdf,0xfb,0xbb,0xc7,0xb7,0xb7,0xc7,0xbb,0xbb,0xc7 .db 0xbf,0xf7,0xbf,0x87,0xef,0xcb,0xef,0xd7,0xbb,0xfb,0x83,0xf7,0xef,0xdf,0xff,0xff .db 0x00,0x00,0x00,0x00,0xe0,0xe0,0xe0,0xe0,0x1c,0x1c,0x1c,0x1c,0xfc,0xfc,0xfc,0xfc .db 0x30,0x00,0x30,0x30,0x00,0x00,0x30,0x00,0x30,0x30,0x30,0xa8,0x00,0x00,0x40,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x38,0x00,0x00,0x30,0x00,0x00,0x00,0x00,0x00 .db 0x40,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x38,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x1f,0x1f,0x1f,0x1f,0xe3,0xe3,0xe3,0xe3,0x03,0x03,0x03,0x03 .db 0xcf,0xff,0xcf,0xcf,0xff,0xff,0xcf,0xff,0xcf,0xcf,0xcf,0x57,0xff,0xff,0xbf,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xc7,0xff,0xff,0xcf,0xff,0xff,0xff,0xff,0xff .db 0xbf,0xf3,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xc7,0xff,0xff,0xff,0xff,0xff,0xff .db 0x00,0x00,0x00,0x00,0xe0,0xe0,0xe0,0xe0,0x1c,0x1c,0x1c,0x1c,0xfc,0xfc,0xfc,0xfc .db 0x30,0x00,0x30,0x30,0x00,0x00,0x30,0x00,0x30,0x30,0x30,0x54,0x00,0x00,0x80,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0xff,0xff,0xff,0x1f,0x1f,0x1f,0x1f,0xe3,0xe3,0xe3,0xe3,0x03,0x03,0x03,0x03 .db 0xcf,0xff,0xcf,0xcf,0xff,0xff,0xcf,0xff,0xcf,0xcf,0xcf,0xab,0xff,0xff,0x7f,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff SOURCE_142/SOURCE_vdriver/charset_50z/charset_50z.asm0000755000175000001440000000333211725741461021226 0ustar joergusers;################################################################################ ;# # ;# charset 8x10 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .CSEG .org 0x6c00 ; "...... N" start: .db " CSET 6x10 N",0xff,0xbf,0x41 ;is font ;icon def .db 0x06,0x01,0x06,0x01 .db 0x05,0x00,0x02,0x09 .db 0x02,0x01,0x02,0x01 .org 0x6c0e ret ;input ext ret ;output ext ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 .org 0x6d00 .include "ctable.inc"SOURCE_142/SOURCE_vdriver/charset_10/0000755000175000001440000000000011713042123016155 5ustar joergusersSOURCE_142/SOURCE_vdriver/charset_10/ctable.inc0000644000175000001440000003462411725741461020131 0ustar joergusers .db 0x00,0x22,0x55,0xee,0xff,0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18 .db 0x00,0xf0,0x0f,0xff,0x00,0xf0,0x0f,0xff,0x66,0x66,0x66,0x36,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x00 .db 0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0xdd,0xaa,0x11,0x00,0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7 .db 0xff,0x0f,0xf0,0x00,0xff,0x0f,0xf0,0x00,0x99,0x99,0x99,0xc9,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xe7,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xef,0xff .db 0xcf,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0x00,0x88,0xaa,0xbb,0xff,0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18 .db 0x00,0xf0,0x0f,0xff,0x00,0xf0,0x0f,0xff,0x66,0x66,0x66,0x36,0x66,0x66,0x00,0x18 .db 0x00,0x18,0x36,0x6c,0x18,0x00,0x38,0x18,0x0c,0x30,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x7c,0x18,0x3c,0x3c,0x1c,0x7e,0x1c,0x7e,0x3c,0x3c,0x00,0x00,0x0c,0x00,0x30,0x3c .db 0x7c,0x18,0x7c,0x3c,0x78,0x7e,0x7e,0x3c,0x66,0x3c,0x1e,0x66,0x60,0xc6,0xc6,0x38 .db 0x7c,0x3c,0x7c,0x3c,0x7e,0x66,0x66,0xc6,0xc6,0x66,0xfe,0x3c,0x00,0x3c,0x38,0x00 .db 0x30,0x00,0x60,0x00,0x1c,0x00,0x1c,0x00,0x60,0x18,0x0c,0x60,0x30,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x10,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0x18,0x70,0x00,0x7e .db 0xff,0x77,0x55,0x44,0x00,0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7 .db 0xff,0x0f,0xf0,0x00,0xff,0x0f,0xf0,0x00,0x99,0x99,0x99,0xc9,0x99,0x99,0xff,0xe7 .db 0xff,0xe7,0xc9,0x93,0xe7,0xff,0xc7,0xe7,0xf3,0xcf,0xff,0xff,0xff,0xff,0xff,0xff .db 0x83,0xe7,0xc3,0xc3,0xe3,0x81,0xe3,0x81,0xc3,0xc3,0xff,0xff,0xf3,0xff,0xcf,0xc3 .db 0x83,0xe7,0x83,0xc3,0x87,0x81,0x81,0xc3,0x99,0xc3,0xe1,0x99,0x9f,0x39,0x39,0xc7 .db 0x83,0xc3,0x83,0xc3,0x81,0x99,0x99,0x39,0x39,0x99,0x01,0xc3,0xff,0xc3,0xc7,0xff .db 0xcf,0xff,0x9f,0xff,0xe3,0xff,0xe3,0xff,0x9f,0xe7,0xf3,0x9f,0xcf,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xef,0xff,0xff,0xff,0xff,0xff,0xff,0xf1,0xe7,0x8f,0xff,0x81 .db 0x00,0x22,0x55,0xee,0xff,0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18 .db 0x00,0xf0,0x0f,0xff,0x00,0xf0,0x0f,0xff,0x00,0x00,0x00,0x00,0x66,0x66,0x00,0x24 .db 0x00,0x18,0x36,0x6c,0x3c,0xc6,0x6c,0x30,0x18,0x18,0x66,0x18,0x00,0x00,0x00,0x06 .db 0xc6,0x38,0x66,0x66,0x3c,0x60,0x30,0x06,0x66,0x66,0x18,0x18,0x18,0x00,0x18,0x66 .db 0xc6,0x3c,0x66,0x66,0x6c,0x60,0x60,0x66,0x66,0x18,0x0c,0x66,0x60,0xee,0xe6,0x6c .db 0x66,0x66,0x66,0x66,0x18,0x66,0x66,0xc6,0xc6,0x66,0x06,0x30,0xc0,0x0c,0x6c,0x00 .db 0x18,0x00,0x60,0x00,0x0c,0x00,0x36,0x00,0x60,0x00,0x00,0x60,0x30,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x18,0x00,0x42 .db 0xff,0xdd,0xaa,0x11,0x00,0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7 .db 0xff,0x0f,0xf0,0x00,0xff,0x0f,0xf0,0x00,0xff,0xff,0xff,0xff,0x99,0x99,0xff,0xdb .db 0xff,0xe7,0xc9,0x93,0xc3,0x39,0x93,0xcf,0xe7,0xe7,0x99,0xe7,0xff,0xff,0xff,0xf9 .db 0x39,0xc7,0x99,0x99,0xc3,0x9f,0xcf,0xf9,0x99,0x99,0xe7,0xe7,0xe7,0xff,0xe7,0x99 .db 0x39,0xc3,0x99,0x99,0x93,0x9f,0x9f,0x99,0x99,0xe7,0xf3,0x99,0x9f,0x11,0x19,0x93 .db 0x99,0x99,0x99,0x99,0xe7,0x99,0x99,0x39,0x39,0x99,0xf9,0xcf,0x3f,0xf3,0x93,0xff .db 0xe7,0xff,0x9f,0xff,0xf3,0xff,0xc9,0xff,0x9f,0xff,0xff,0x9f,0xcf,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xcf,0xff,0xff,0xff,0xff,0xff,0xff,0xe7,0xe7,0xe7,0xff,0xbd .db 0x00,0x88,0xaa,0xbb,0xff,0x18,0x00,0x00,0x00,0x18,0x18,0x00,0x18,0x18,0x18,0x18 .db 0x00,0xf0,0x0f,0xff,0x00,0xf0,0x0f,0xff,0x3c,0x3c,0x66,0x3c,0x00,0x00,0xcc,0x24 .db 0x00,0x18,0x36,0xfe,0x60,0xcc,0x38,0x00,0x30,0x0c,0x3c,0x18,0x00,0x00,0x00,0x0c .db 0xce,0x58,0x06,0x06,0x6c,0x7c,0x60,0x06,0x66,0x66,0x18,0x18,0x30,0x7e,0x0c,0x06 .db 0xde,0x66,0x66,0xc0,0x66,0x60,0x60,0xc0,0x66,0x18,0x0c,0x6c,0x60,0xfe,0xf6,0xc6 .db 0x66,0x66,0x66,0x70,0x18,0x66,0x66,0xc6,0x6c,0x66,0x0c,0x30,0x60,0x0c,0xc6,0x00 .db 0x00,0x78,0x60,0x3c,0x0c,0x3c,0x30,0x76,0x6c,0x18,0x0c,0x66,0x30,0xcc,0x7c,0x3c .db 0x7c,0x7c,0x5c,0x3e,0x7c,0x66,0x66,0xc6,0xc6,0xcc,0x7e,0x18,0x18,0x18,0x76,0x42 .db 0xff,0x77,0x55,0x44,0x00,0xe7,0xff,0xff,0xff,0xe7,0xe7,0xff,0xe7,0xe7,0xe7,0xe7 .db 0xff,0x0f,0xf0,0x00,0xff,0x0f,0xf0,0x00,0xc3,0xc3,0x99,0xc3,0xff,0xff,0x33,0xdb .db 0xff,0xe7,0xc9,0x01,0x9f,0x33,0xc7,0xff,0xcf,0xf3,0xc3,0xe7,0xff,0xff,0xff,0xf3 .db 0x31,0xa7,0xf9,0xf9,0x93,0x83,0x9f,0xf9,0x99,0x99,0xe7,0xe7,0xcf,0x81,0xf3,0xf9 .db 0x21,0x99,0x99,0x3f,0x99,0x9f,0x9f,0x3f,0x99,0xe7,0xf3,0x93,0x9f,0x01,0x09,0x39 .db 0x99,0x99,0x99,0x8f,0xe7,0x99,0x99,0x39,0x93,0x99,0xf3,0xcf,0x9f,0xf3,0x39,0xff .db 0xff,0x87,0x9f,0xc3,0xf3,0xc3,0xcf,0x89,0x93,0xe7,0xf3,0x99,0xcf,0x33,0x83,0xc3 .db 0x83,0x83,0xa3,0xc1,0x83,0x99,0x99,0x39,0x39,0x33,0x81,0xe7,0xe7,0xe7,0x89,0xbd .db 0x00,0x22,0x55,0xee,0xff,0x18,0xff,0x1f,0xf8,0x1f,0xf8,0xff,0xff,0x1f,0xf8,0xff .db 0x00,0xf0,0x0f,0xff,0x00,0xf0,0x0f,0xff,0x66,0x66,0x66,0x06,0x3c,0x66,0xcc,0x18 .db 0x00,0x18,0x00,0x6c,0x3c,0x18,0x76,0x00,0x30,0x0c,0xff,0x7e,0x00,0x7e,0x00,0x18 .db 0xd6,0x18,0x1c,0x1c,0xcc,0x06,0x7c,0x0c,0x3c,0x3e,0x00,0x00,0x60,0x00,0x06,0x0c .db 0xde,0x66,0x7c,0xc0,0x66,0x78,0x78,0xc0,0x7e,0x18,0x0c,0x78,0x60,0xfe,0xde,0xc6 .db 0x7c,0x66,0x7c,0x38,0x18,0x66,0x66,0xd6,0x38,0x3c,0x18,0x30,0x30,0x0c,0x00,0x00 .db 0x00,0x0c,0x7c,0x66,0x7c,0x66,0x78,0xcc,0x76,0x18,0x0c,0x6c,0x30,0xfe,0x66,0x66 .db 0x66,0xcc,0x76,0x60,0x30,0x66,0x66,0xd6,0x6c,0xcc,0x0c,0x70,0x18,0x0e,0xdc,0x42 .db 0xff,0xdd,0xaa,0x11,0x00,0xe7,0x00,0xe0,0x07,0xe0,0x07,0x00,0x00,0xe0,0x07,0x00 .db 0xff,0x0f,0xf0,0x00,0xff,0x0f,0xf0,0x00,0x99,0x99,0x99,0xf9,0xc3,0x99,0x33,0xe7 .db 0xff,0xe7,0xff,0x93,0xc3,0xe7,0x89,0xff,0xcf,0xf3,0x00,0x81,0xff,0x81,0xff,0xe7 .db 0x29,0xe7,0xe3,0xe3,0x33,0xf9,0x83,0xf3,0xc3,0xc1,0xff,0xff,0x9f,0xff,0xf9,0xf3 .db 0x21,0x99,0x83,0x3f,0x99,0x87,0x87,0x3f,0x81,0xe7,0xf3,0x87,0x9f,0x01,0x21,0x39 .db 0x83,0x99,0x83,0xc7,0xe7,0x99,0x99,0x29,0xc7,0xc3,0xe7,0xcf,0xcf,0xf3,0xff,0xff .db 0xff,0xf3,0x83,0x99,0x83,0x99,0x87,0x33,0x89,0xe7,0xf3,0x93,0xcf,0x01,0x99,0x99 .db 0x99,0x33,0x89,0x9f,0xcf,0x99,0x99,0x29,0x93,0x33,0xf3,0x8f,0xe7,0xf1,0x23,0xbd .db 0x00,0x88,0xaa,0xbb,0xff,0x18,0xff,0x1f,0xf8,0x1f,0xf8,0xff,0xff,0x1f,0xf8,0xff .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x7e,0x66,0x66,0x3e,0x66,0x66,0xcc,0x00 .db 0x00,0x18,0x00,0xfe,0x04,0x30,0xdc,0x00,0x30,0x0c,0x3c,0x18,0x00,0x00,0x00,0x30 .db 0xe6,0x18,0x30,0x06,0xfe,0x06,0x66,0x18,0x66,0x06,0x00,0x00,0x30,0x00,0x0c,0x18 .db 0xde,0x7e,0x66,0xc0,0x66,0x60,0x60,0xce,0x66,0x18,0xcc,0x6c,0x60,0xd6,0xce,0xc6 .db 0x60,0x6e,0x6c,0x0c,0x18,0x66,0x66,0xfe,0x6c,0x18,0x30,0x30,0x18,0x0c,0x00,0x00 .db 0x00,0x7c,0x66,0x60,0xcc,0x7e,0x30,0xcc,0x66,0x18,0x0c,0x78,0x30,0xfe,0x66,0x66 .db 0x66,0xcc,0x60,0x3c,0x30,0x66,0x66,0xfe,0x38,0xcc,0x18,0x18,0x18,0x18,0x00,0x42 .db 0xff,0x77,0x55,0x44,0x00,0xe7,0x00,0xe0,0x07,0xe0,0x07,0x00,0x00,0xe0,0x07,0x00 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0x81,0x99,0x99,0xc1,0x99,0x99,0x33,0xff .db 0xff,0xe7,0xff,0x01,0xfb,0xcf,0x23,0xff,0xcf,0xf3,0xc3,0xe7,0xff,0xff,0xff,0xcf .db 0x19,0xe7,0xcf,0xf9,0x01,0xf9,0x99,0xe7,0x99,0xf9,0xff,0xff,0xcf,0xff,0xf3,0xe7 .db 0x21,0x81,0x99,0x3f,0x99,0x9f,0x9f,0x31,0x99,0xe7,0x33,0x93,0x9f,0x29,0x31,0x39 .db 0x9f,0x91,0x93,0xf3,0xe7,0x99,0x99,0x01,0x93,0xe7,0xcf,0xcf,0xe7,0xf3,0xff,0xff .db 0xff,0x83,0x99,0x9f,0x33,0x81,0xcf,0x33,0x99,0xe7,0xf3,0x87,0xcf,0x01,0x99,0x99 .db 0x99,0x33,0x9f,0xc3,0xcf,0x99,0x99,0x01,0xc7,0x33,0xe7,0xe7,0xe7,0xe7,0xff,0xbd .db 0x00,0x22,0x55,0xee,0xff,0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18 .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x66,0x66,0x66,0x66,0x66,0x66,0xcc,0x00 .db 0x00,0x00,0x00,0x6c,0x7c,0x66,0xcc,0x00,0x18,0x18,0x66,0x18,0x18,0x00,0x18,0x60 .db 0xc6,0x18,0x60,0x66,0x0c,0x66,0x66,0x18,0x66,0x0c,0x18,0x18,0x18,0x7e,0x18,0x00 .db 0xc0,0x66,0x66,0x66,0x6c,0x60,0x60,0x66,0x66,0x18,0xcc,0x66,0x60,0xc6,0xc6,0x6c .db 0x60,0x3e,0x66,0x66,0x18,0x66,0x3c,0xee,0xc6,0x18,0x60,0x30,0x0c,0x0c,0x00,0x00 .db 0x00,0xcc,0x66,0x66,0xcc,0x60,0x30,0x7c,0x66,0x18,0xcc,0x6c,0x34,0xd6,0x66,0x66 .db 0x7c,0x7c,0x60,0x06,0x34,0x66,0x3c,0xfe,0x6c,0x7c,0x30,0x18,0x18,0x18,0x00,0x42 .db 0xff,0xdd,0xaa,0x11,0x00,0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0x99,0x99,0x99,0x99,0x99,0x99,0x33,0xff .db 0xff,0xff,0xff,0x93,0x83,0x99,0x33,0xff,0xe7,0xe7,0x99,0xe7,0xe7,0xff,0xe7,0x9f .db 0x39,0xe7,0x9f,0x99,0xf3,0x99,0x99,0xe7,0x99,0xf3,0xe7,0xe7,0xe7,0x81,0xe7,0xff .db 0x3f,0x99,0x99,0x99,0x93,0x9f,0x9f,0x99,0x99,0xe7,0x33,0x99,0x9f,0x39,0x39,0x93 .db 0x9f,0xc1,0x99,0x99,0xe7,0x99,0xc3,0x11,0x39,0xe7,0x9f,0xcf,0xf3,0xf3,0xff,0xff .db 0xff,0x33,0x99,0x99,0x33,0x9f,0xcf,0x83,0x99,0xe7,0x33,0x93,0xcb,0x29,0x99,0x99 .db 0x83,0x83,0x9f,0xf9,0xcb,0x99,0xc3,0x01,0x93,0x83,0xcf,0xe7,0xe7,0xe7,0xff,0xbd .db 0x00,0x88,0xaa,0xbb,0xff,0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18 .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x66,0x3c,0x3c,0x3b,0x3c,0x38,0xf6,0x00 .db 0x00,0x18,0x00,0x6c,0x18,0xc6,0x76,0x00,0x0c,0x30,0x00,0x00,0x18,0x00,0x18,0xc0 .db 0x7c,0x7e,0x7e,0x3c,0x0c,0x3c,0x3c,0x18,0x3c,0x38,0x18,0x18,0x0c,0x00,0x30,0x18 .db 0x78,0x66,0x7c,0x3c,0x78,0x7e,0x60,0x3e,0x66,0x3c,0x78,0x66,0x7e,0xc6,0xc6,0x38 .db 0x60,0x0c,0x66,0x3c,0x18,0x3c,0x18,0xc6,0xc6,0x18,0xfe,0x3c,0x06,0x3c,0x00,0x00 .db 0x00,0x76,0x7c,0x3c,0x76,0x3c,0x30,0x0c,0x66,0x18,0xcc,0x66,0x18,0xc6,0x66,0x3c .db 0x60,0x0c,0x60,0x7c,0x18,0x3a,0x18,0x6c,0xc6,0x0c,0x7e,0x0e,0x18,0x70,0x00,0x42 .db 0xff,0x77,0x55,0x44,0x00,0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0x99,0xc3,0xc3,0xc4,0xc3,0xc7,0x09,0xff .db 0xff,0xe7,0xff,0x93,0xe7,0x39,0x89,0xff,0xf3,0xcf,0xff,0xff,0xe7,0xff,0xe7,0x3f .db 0x83,0x81,0x81,0xc3,0xf3,0xc3,0xc3,0xe7,0xc3,0xc7,0xe7,0xe7,0xf3,0xff,0xcf,0xe7 .db 0x87,0x99,0x83,0xc3,0x87,0x81,0x9f,0xc1,0x99,0xc3,0x87,0x99,0x81,0x39,0x39,0xc7 .db 0x9f,0xf3,0x99,0xc3,0xe7,0xc3,0xe7,0x39,0x39,0xe7,0x01,0xc3,0xf9,0xc3,0xff,0xff .db 0xff,0x89,0x83,0xc3,0x89,0xc3,0xcf,0xf3,0x99,0xe7,0x33,0x99,0xe7,0x39,0x99,0xc3 .db 0x9f,0xf3,0x9f,0x83,0xe7,0xc5,0xe7,0x93,0x39,0xf3,0x81,0xf1,0xe7,0x8f,0xff,0xbd .db 0x00,0x22,0x55,0xee,0xff,0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18 .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0x00,0x00,0x78,0x00,0x00,0x00,0x00,0x00 .db 0x60,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf8,0x00,0x00,0x00,0x00,0x00,0x7e .db 0xff,0xdd,0xaa,0x11,0x00,0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xff,0xff,0xff,0xff,0xff,0xff,0x3f,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xcf,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xcf,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x07,0xff,0xff,0x87,0xff,0xff,0xff,0xff,0xff .db 0x9f,0xf3,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x07,0xff,0xff,0xff,0xff,0xff,0x81 .db 0x00,0x88,0xaa,0xbb,0xff,0x18,0x00,0x18,0x18,0x00,0x00,0x18,0x00,0x18,0x18,0x18 .db 0x00,0x00,0x00,0x00,0xf0,0xf0,0xf0,0xf0,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xff .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0xff,0x77,0x55,0x44,0x00,0xe7,0xff,0xe7,0xe7,0xff,0xff,0xe7,0xff,0xe7,0xe7,0xe7 .db 0xff,0xff,0xff,0xff,0x0f,0x0f,0x0f,0x0f,0xff,0xff,0xff,0xff,0xff,0xff,0x3f,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x00 .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff SOURCE_142/SOURCE_vdriver/charset_10/charset10.asm0000755000175000001440000000333311725741461020474 0ustar joergusers;################################################################################ ;# # ;# charset 8x10 # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .CSEG .org 0x6c00 ; "...... N" start: .db " CSET 8x10 N",0xff,0xbf,0x40 ;is font ;icon def .db 0x06,0x01,0x06,0x01 .db 0x05,0x00,0x02,0x09 .db 0x02,0x01,0x02,0x01 .org 0x6c0e ret ;input ext ret ;output ext ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 ret ;FKT 00 .org 0x6c80 .include "ctable.inc"SOURCE_142/SOURCE_vdriver/pwm_servo/0000755000175000001440000000000011713042124016246 5ustar joergusersSOURCE_142/SOURCE_vdriver/pwm_servo/pulse.asm0000755000175000001440000003617111725741462020131 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video-bootloader # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;pulse putput channel A+B ;16 clocks ;------------------------------------------------------------------------------- .macro rcio_pulse sbiw XL,1 ;2 sbrs XH,7 ;1 sbi PORTA,4 ;2 sbrc XH,7 ;1 cbi PORTA,4 ;2 sbiw YL,1 ;2 sbrs YH,7 ;1 sbi PORTA,5 ;2 sbrc YH,7 ;1 cbi PORTA,5 ;2 .endmacro ;------------------------------------------------------------------------------- ; output pwm channel 6+7 ;------------------------------------------------------------------------------- .macro rcio_pwmout in ZL,PORTA ;current value andi ZL,0x3f lds tempreg1,libmio_vram+2028 ;output value andi tempreg1,0xc0 ;only two pwm channels (6+7) or tempreg1,ZL out PORTA,tempreg1 ;out .endmacro ;------------------------------------------------------------------------------- ; calculate PWM channel 6 ;------------------------------------------------------------------------------- .macro rcio_pwm6 ;channel 6 is normal PWM 1 lds tempreg1,libmio_vram+2028 lds ZL,libmio_vram+2020 ;2 counter for channel 1 inc ZL ;1 +1 cpi ZL,0xff ;1 end brne rcio_pwm6_1 ;1/2 no zero lds ZH,libmio_vram+2004 ;2 get control value sts libmio_vram+2021,ZH ;2 write to compare register ldi ZL,0x00 ;1 set counter ori tempreg1,0x40 ;1 set channel 1 rcio_pwm6_1: sts libmio_vram+2020,ZL ;2 store counter lds tempreg3,libmio_vram+2021 ;2 get compare register cp tempreg3,ZL ;1 compare brne rcio_pwm6_2 ;1/2 not equal andi tempreg1,0xbf ;1 clear channel 1 rcio_pwm6_2: sts libmio_vram+2028,tempreg1 .endmacro ;------------------------------------------------------------------------------- ; calculate PWM channel 7 ;------------------------------------------------------------------------------- .macro rcio_pwm7 ;channel 7 is normal PWM 2 lds tempreg1,libmio_vram+2028 lds ZL,libmio_vram+2022 ;counter for channel 1 inc ZL ;+1 cpi ZL,0xff ;end brne rcio_pwm7_1 ;no zero lds ZH,libmio_vram+2006 ;get control value sts libmio_vram+2023,ZH ;write to compare register ldi ZL,0x00 ;set counter ori tempreg1,0x80 ;set channel 1 rcio_pwm7_1: sts libmio_vram+2022,ZL ;store counter lds tempreg3,libmio_vram+2023 ;get compare register cp tempreg3,ZL ;compare brne rcio_pwm7_2 ;not equal andi tempreg1,0x7f ;clear channel 1 rcio_pwm7_2: sts libmio_vram+2028,tempreg1 .endmacro ;------------------------------------------------------------------------------- ; pseudo-random generator (39C) ;------------------------------------------------------------------------------- .macro rcio_random rcio_rand: push YH push YL ldi YL,LOW(libmio_ram) ;1 set ptr ldi YH,HIGH(libmio_ram) ;1 lds ZL,libmio_rand1 ;2 lds ZH,libmio_rand2 ;2 lds tempreg1,libmio_rand3 ;2 lds tempreg2,libmio_rand4 ;2 mov tempreg3,tempreg2 lsl tempreg3 ;1 rol ZL rol ZH rol tempreg1 rol tempreg2 brcc rcio_rand_1 ldi tempreg3,0x5D eor ZL,tempreg3 ldi tempreg3,0xD5 eor ZH,tempreg3 ldi tempreg3,0x2A eor tempreg1,tempreg3 ldi tempreg3,0xD5 eor tempreg2,tempreg3 rcio_rand_1: sts libmio_rand1,ZL ;2 sts libmio_rand2,ZH ;2 sts libmio_rand3,tempreg1 ;2 sts libmio_rand4,tempreg2 ;2 pop YL ;2 pop YH ;2 .endmacro ;------------------------------------------------------------------------------- ; calculate sound (42c) ;------------------------------------------------------------------------------- .macro rcio_soundgen rcio_sound: push YH push YL ldi YL,LOW(libmio_ram) ;1 set ptr ldi YH,HIGH(libmio_ram) ;1 ldd tempreg2,Y+lmo_rand2 ;2 noise signal ldd tempreg3,Y+lmo_wpos_l ;2 wave pointer low ldd ZL,Y+lmo_wpos_h ;2 wave pointer high ldd r0,Y+lmo_woff_l ;2 wave offset low ldd r1,Y+lmo_woff_h ;2 wave offset high add tempreg3,r0 ;1 calculate new pointer adc ZL,r1 ;1 std Y+lmo_wpos_l,tempreg3 ;2 writeback new pointer std Y+lmo_wpos_h,ZL ;2 ldd ZH,Y+lmo_wavtab ;1 start wavetable high lpm tempreg1,Z ;3 get wave value ldd tempreg3,Y+lmo_note_val ;2 note val andi tempreg3,0x3f ;1 mask bits cpi tempreg3,0x3f ;1 noise? brne rcio_sound_1 ;1/2 mov tempreg1,tempreg2 ;1 rcio_sound_1: ldd tempreg2,Y+lmo_envv ;2 envelope value ldd tempreg3,Y+lmo_volume ;2 volume setting mul tempreg3,tempreg2 ;2 mov tempreg2,r1 ;1 mulsu tempreg1,tempreg2 ;2 shaped value ldi tempreg3,0x80 ;1 neutral signal add tempreg3,r1 ;1 add result sts OCR2A,tempreg3 ;1 set level pop YL ;2 pop YH ;2 .endmacro ;------------------------------------------------------------------------------- ;serial port (receive 2400) ; ;------------------------------------------------------------------------------- .macro rcio_receive_2400 rcio_s24rx: lds tempreg1,libmio_sysconf sbrs tempreg1,0 rjmp rcio_s24rx_n lds tempreg2,libmio_serio ;2 get signal byte lds ZL,libmio_rcnt ;2 clock counter cpi ZL,0x00 ;1 end breq rcio_s24rx_e ;1/2 cpi ZL,0xff ;1 wait for sig brne rcio_s24rx_1 ;1/2 sbrc tempreg2,0 ;1 skip if line is 0 rjmp rcio_s24rx_e ;1/2 ldi ZL,62 ;1 start value 2400 rjmp rcio_s24rx_e ;2 ;+9 rcio_s24rx_1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm tempreg3,Z ;3 sbrs tempreg3,5 ;1 skip if sample bit rjmp rcio_s24rx_e ;2 lds tempreg3,libmio_rdat ;2 serial data lsr tempreg3 ;1 bst tempreg2,0 ;1 RXD data bld tempreg3,7 ;1 shift in sts libmio_rdat,tempreg3 ;2 rcio_s24rx_e: sts libmio_rcnt,ZL ;2 rcio_s24rx_n: .endmacro ;------------------------------------------------------------------------------- ;serial port (transmit 2400) ;------------------------------------------------------------------------------- .macro rcio_transmit_2400 lds tempreg1,libmio_sysconf sbrs tempreg1,0 rjmp rcio_s24tx_n rcio_s24tx: lds ZL,libmio_tcnt ;2 clock counter cpi ZL,0x00 ;1 breq rcio_s24tx_n ;1/2 nothing to do cpi ZL,0xff ;1 wait for start brne rcio_s24tx_1 ;1/2 ldi ZL,80 ;1 andi tempreg2,0x7f ;1 clear bit rjmp rcio_s24tx_e ;2 ;+7 clk rcio_s24tx_1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm tempreg3,Z ;3 sbrs tempreg3,4 ;1 skip if setout bit rjmp rcio_s24tx_e ;2 lds tempreg3,libmio_tdat ;2 bst tempreg3,0 ;1 sec ;1 ror tempreg3 ;1 bld tempreg2,7 ;1 sts libmio_tdat,tempreg3 ;2 rcio_s24tx_e: sts libmio_tcnt,ZL ;2 sts libmio_serio,tempreg2 ;2 rcio_s24tx_n: .endmacro ;------------------------------------------------------------------------------- ;serial port (receive 1200) ;------------------------------------------------------------------------------- .macro rcio_receive_1200 lds tempreg1,libmio_sysconf sbrc tempreg1,0 rjmp rcio_s12rx_n rcio_s12rx_: lds tempreg2,libmio_serio ;2 get signal byte lds ZL,libmio_rcnt ;2 clock counter cpi ZL,0x00 ;1 end breq rcio_s12rx_e ;1/2 cpi ZL,0xff ;1 wait for sig brne rcio_s12rx_1 ;1/2 sbrc tempreg2,0 ;1 skip if line is 0 rjmp rcio_s12rx_e ;1/2 ldi ZL,124 ;1 start value 1200 rjmp rcio_s12rx_e ;2 ;+9 rcio_s12rx_1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm tempreg3,Z ;3 sbrs tempreg3,7 ;1 skip if sample bit rjmp rcio_s12rx_e ;2 lds tempreg3,libmio_rdat ;2 serial data lsr tempreg3 ;1 bst tempreg2,0 ;1 RXD data bld tempreg3,7 ;1 shift in sts libmio_rdat,tempreg3 ;2 rcio_s12rx_e: sts libmio_rcnt,ZL ;2 rcio_s12rx_n: .endmacro ;------------------------------------------------------------------------------- ;serial port (transmit 1200) ;------------------------------------------------------------------------------- .macro rcio_transmit_1200 lds tempreg1,libmio_sysconf sbrc tempreg1,0 rjmp rcio_s12tx_n rcio_s12tx_: lds ZL,libmio_tcnt ;2 clock counter cpi ZL,0x00 ;1 breq rcio_s12tx_n ;1/2 nothing to do cpi ZL,0xff ;1 wait for start brne rcio_s12tx_1 ;1/2 ldi ZL,144 ;1 start value 1200 andi tempreg2,0x7f ;1 clear bit rjmp rcio_s12tx_e ;2 ;+7 clk rcio_s12tx_1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm tempreg3,Z ;3 sbrs tempreg3,6 ;1 skip if setout bit rjmp rcio_s12tx_e ;2 lds tempreg3,libmio_tdat ;2 bst tempreg3,0 ;1 sec ;1 ror tempreg3 ;1 bld tempreg2,7 ;1 sts libmio_tdat,tempreg3 ;2 rcio_s12tx_e: sts libmio_tcnt,ZL ;2 sts libmio_serio,tempreg2 ;2 rcio_s12tx_n: .endmacro ;now start rcio_main: sts TIMSK1,const_0 ;disable timer 1 interrupts lds XL,libmio_vram+2000 lds XH,libmio_vram+2001 lds YL,libmio_vram+2002 lds YH,libmio_vram+2003 out PORTC,const_0 ;black rcio_wfirst: lds tempreg1,TCNT1L ;read low register, dummy lds tempreg1,TCNT1H ;read high register cpi tempreg1,0 breq rcio_wfirst ldi tempreg3,35 ;number of lines rcio_lloop: push tempreg3 ;the line loop rcall rcio_wstart ;do one line pop tempreg3 dec tempreg3 ;line loop counter brne rcio_lloop ;do line loop rcio_lend: lds tempreg1,TCNT1L ;read low register, dummy lds tempreg1,TCNT1H ;read high register cpi tempreg1,1 brne rcio_lend cbi PORTA,4 ;clear channel 1 cbi PORTA,5 ;clear channel 2 ldi XL,0x06 ;1 enable timer 1 interrupts sts TIMSK1,XL set ;enable sync ret ;wait for TCNT1H is = 0 rcio_wstart: lds tempreg2,TCNT1L ;read low register, dummy lds tempreg1,TCNT1H ;read high register cpi tempreg1,0 brne rcio_wstart sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse inc vline_l ;wait for TCNT1 is = 80 rcio_wcount_01: lds tempreg1,TCNT1L ;2 read low register andi tempreg1,0xf8 ;1 cpi tempreg1,80 ;1 brne rcio_wcount_01 ;2 rcio_pulse ;16 output pulse ;wait for TCNT1 is = 160 rcio_wcount_02: lds tempreg1,TCNT1L ;2 read low register andi tempreg1,0xf8 ;1 cpi tempreg1,160 ;1 brne rcio_wcount_02 ;2 rcio_pulse ;16 output pulse ;------------------------------------------------------------------------------- ;serial port io (21 clocks) ;------------------------------------------------------------------------------- lds tempreg1,libmio_serio ;2 serial io sbrs tempreg1,7 ;1 skip if 1-bit cbi PORTD,4 ;2 clear pin sbrc tempreg1,7 ;1 skip if 0-bit sbi PORTD,4 ;2 set pin lds ZL,libmio_sysconf ;2 get conf (bit 5=force M644) lds tempreg2,libmio_sysconf1 ;2 get conf2 (bit 7=invert) in ZH,PIND ;1 input data bst ZH,3 ;1 default for M644 sbrs ZL,5 ;1 skip if force M644 bst ZH,1 ;1 default for M644P bld tempreg1,0 ;1 store to register sbrs tempreg2,7 ;1 skip if no max eor tempreg1,const_1 ;1 invert signal sts libmio_serio,tempreg1 ;2 store for input ;wait for TCNT1 is = 240 rcio_wcount_03: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,240 ;1 brne rcio_wcount_03 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_pwmout ;wait for TCNT1 is = 320 rcio_wcount_04: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(320) ;1 brne rcio_wcount_04 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse ;wait for TCNT1 is = 400 rcio_wcount_05: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(400) ;1 brne rcio_wcount_05 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_soundgen ;wait for TCNT1 is = 480 rcio_wcount_06: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(480) ;1 brne rcio_wcount_06 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_random ;wait for TCNT1 is = 560 rcio_wcount_07: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(560) ;1 brne rcio_wcount_07 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_transmit_2400 ;wait for TCNT1 is = 640 rcio_wcount_08: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(640) ;1 brne rcio_wcount_08 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_receive_2400 ;wait for TCNT1 is = 720 rcio_wcount_09: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(720) ;1 brne rcio_wcount_09 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_transmit_1200 ;wait for TCNT1 is = 800 rcio_wcount_10: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(800) ;1 brne rcio_wcount_10 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_receive_1200 ;wait for TCNT1 is = 880 rcio_wcount_11: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(880) ;1 brne rcio_wcount_11 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_pwm6 ;wait for TCNT1 is = 960 rcio_wcount_12: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(960) ;1 brne rcio_wcount_12 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse rcio_pwm7 ;wait for TCNT1 is = 1040 rcio_wcount_13: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(1040) ;1 brne rcio_wcount_13 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse ;wait for TCNT1 is = 1120 rcio_wcount_14: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(1120) ;1 brne rcio_wcount_14 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse ;wait for TCNT1 is = 1200 rcio_wcount_15: lds tempreg1,TCNT1L ;2 read low register mov tempreg2,tempreg1 andi tempreg1,0xf8 ;1 cpi tempreg1,LOW(1200) ;1 brne rcio_wcount_15 ;2 sbrs tempreg2,2 lpm r0,Z rcio_pulse ;16 output pulse ret SOURCE_142/SOURCE_vdriver/pwm_servo/pwm_servo.asm0000755000175000001440000001776111725741462021026 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (8 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ .include "/usr/local/include/chipbasic2/m644Pdef.inc" .include "/usr/local/include/chipbasic2/api_macros.inc" .include "/usr/local/include/chipbasic2/libdef.asm" .include "/usr/local/include/chipbasic2/definitions.asm" .equ libmio_palette = 0x0100 ;palette .equ bas_mta = 0x0110 ;basic multitasking .equ libmio_etable = 0x4680 ;envelope table .equ libmio_ctable = 0x7b00 ;chartable font 0 .equ libmio_kstab = 0x7a80 ;key and serial table .CSEG .org 0x7200 ; "...... N" start: .db "NOXMEMPWM+2SN",0xb3,0xfe,0xb2 ;icon def .db 0xf2,0xf1,0xf1,0xf3 .db 0xf0,0x8d,0x8d,0xf0 .db 0xf4,0xf1,0xf1,0xf5 .org 0x720e rjmp inex ;input ext rjmp outex ;output ext ret ;FKT 00 rjmp servo_init ;FKT 01 init rjmp servo_cls ;FKT 02 clear screen rjmp servo_char ;FKT 03 output char rjmp servo_gxy ;FKT 04 set cursor rjmp servo_plot ;FKT 05 plot rjmp servo_nl ;FKT 06 newline rjmp servo_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; use video mode 0 routines ;------------------------------------------------------------------------------- servo_cls: api_vm0cls servo_char: api_vm0char servo_nl: api_vm0newline servo_gxy: api_vm0gotoxy servo_plot: api_vm0plot ;------------------------------------------------------------------------------- ; i/o ;------------------------------------------------------------------------------- .include "inout.asm" ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- servo_init: brtc servo_exit ;exit cbi PORTA,4 cbi PORTA,5 cbi PORTA,6 cbi PORTA,7 sbi DDRA,4 sbi DDRA,5 sbi DDRA,6 sbi DDRA,7 rcall pwm_cls rcall servo_clear ldi XL,0 ;force ext routine ret servo_exit: cbi PORTA,4 ;set to zero cbi PORTA,5 cbi PORTA,6 cbi PORTA,7 ret ;------------------------------------------------------------------------------- ; clear screen ;------------------------------------------------------------------------------- pwm_cls: ldi tempreg1,0x20 ;space ldi YH,HIGH(libmio_vram) ;home position ldi YL,LOW(libmio_vram) ;home position ldi XL,libmio_rows pwm_cls_01: ldi XH,libmio_cols pwm_cls_02: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_02 ;loop dec XL ;decrement counter brne pwm_cls_01 ;loop lds tempreg1,libmio_color ldi XL,libmio_rows pwm_cls_05: ldi XH,libmio_cols pwm_cls_06: st Y+,tempreg1 ;write to RAM dec XH ;decrement counter brne pwm_cls_06 ;loop dec XL ;decrement counter brne pwm_cls_05 ;loop ret ;------------------------------------------------------------------------------- ; clear pwm data ;------------------------------------------------------------------------------- servo_clear: ldi XL,LOW(libmio_vram+2000) ldi XH,HIGH(libmio_vram+2000) ldi tempreg1,16 servo_clear1: st X+,const_0 dec tempreg1 brne servo_clear1 ldi tempreg1,8 ldi tempreg2,0x00 servo_clear2: st X+,tempreg2 subi tempreg2,0xe0 ;+0x20 dec tempreg1 brne servo_clear2 ret ;------------------------------------------------------------------------------- ; reduced video output (23 lines a 24 chars) ;------------------------------------------------------------------------------- servo_vid: in XL,PORTA ;current value andi XL,0x3f lds tempreg1,libmio_vram+2028 ;output value andi tempreg1,0xc0 ;only two pwm channels (6+7) or tempreg1,XL out PORTA,tempreg1 ;out ;------------------------------------------------------------------------------- ; check what to do ;------------------------------------------------------------------------------- mov XL,vline_l sbrc vline_h,0 rjmp servo_nvid ;>255 cpi XL,5 brcs servo_nvid ;upper border cpi XL,205 brcs servo_stc_00 ;display brne servo_nvid ;after pulse rjmp pulse_out ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- servo_stc_00: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+93 ;1 brcs servo_stc_00 ;1 loop servo_stc_01: cpi XL,libmio_hstart+94 brcs servo_stc_02 servo_stc_02: cpi XL,libmio_hstart+95 brcs servo_stc_03 servo_stc_03: cpi XL,libmio_hstart+96 brcs servo_stc_04 servo_stc_04: cpi XL,libmio_hstart+97 brcs servo_stc_05 servo_stc_05: rcall servo_tvc ;channel 6 is normal PWM 1 servo_vid_40: lds tempreg1,libmio_vram+2028 lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne servo_vid_41 ;no zero lds XH,libmio_vram+2004 ;get control value sts libmio_vram+2021,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x40 ;set channel 1 servo_vid_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2021 ;get compare register cp YL,XL ;compare brne servo_vid_50 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 is normal PWM 2 servo_vid_50: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne servo_vid_51 ;no zero lds XH,libmio_vram+2006 ;get control value sts libmio_vram+2023,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x80 ;set channel 1 servo_vid_51: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2023 ;get compare register cp YL,XL ;compare brne servo_vid_80 ;not equal andi tempreg1,0x7f ;clear channel 1 servo_vid_80: sts libmio_vram+2028,tempreg1 clt ;disable sync ret ;NO VIDEO ;channel 6 is normal PWM 1 servo_nvid: lds tempreg1,libmio_vram+2028 lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne servo_nvid_41 ;no zero lds XH,libmio_vram+2004 ;get control value sts libmio_vram+2021,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x40 ;set channel 1 servo_nvid_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2021 ;get compare register cp YL,XL ;compare brne servo_nvid_50 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 is normal PWM 2 servo_nvid_50: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne servo_nvid_51 ;no zero lds XH,libmio_vram+2006 ;get control value sts libmio_vram+2023,XH ;write to compare register ldi XL,0x00 ;set counter ori tempreg1,0x80 ;set channel 1 servo_nvid_51: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2023 ;get compare register cp YL,XL ;compare brne servo_nvid_80 ;not equal andi tempreg1,0x7f ;clear channel 1 servo_nvid_80: sts libmio_vram+2028,tempreg1 set ;enable sync ret ;------------------------------------------------------------------------------- ; ;-------------------------------------------------------------------------------- pulse_out: .include "pulse.asm" .include "vline_m0.asm" SOURCE_142/SOURCE_vdriver/pwm_servo/inout.asm0000755000175000001440000000660011725741462020131 0ustar joergusers;################################################################################ ;# # ;# mode 7 engine (4 channel PWM) # ;# copyright (c) 2009-2010 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; no input function available ;------------------------------------------------------------------------------- inex: cpi YH,9 breq inex_90 cpi YH,8 brne inex_err inex_10: cpi YL,0x08 ;strobe brne inex_12 in XL,PINB lsr XL andi XL,0x01 clr XH ret inex_12: cpi YL,0x09 ;busy brne inex_err in XL,PINB lsr XL lsr XL andi XL,0x01 clr XH ret inex_err: ldi ereg,40 ;no IO driver ret inex_90: cpi YL,4 brcc inex_err lsl YL mov XL,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,XL adc YH,const_0 ld XL,Y+ ld XH,Y+ ret ;------------------------------------------------------------------------------- ; output from 0x900 .. 0x9ff ;------------------------------------------------------------------------------- outex: cpi YH,8 breq outex_10 outex_100: cpi YH,0x09 brne inex_err cpi YL,4 brcc inex_err lsl YL mov r0,YL ldi YL,LOW(libmio_vram+2000) ldi YH,HIGH(libmio_vram+2000) add YL,r0 adc YH,const_0 st Y+,XL st Y+,XH ret outex_10: cpi YL,0x00 brne outex_12 sbrc XL,0 sbi PORTA,0 sbrs XL,0 cbi PORTA,0 ret outex_12: cpi YL,0x01 brne outex_14 sbrc XL,0 sbi PORTA,1 sbrs XL,0 cbi PORTA,1 ret outex_14: cpi YL,0x02 brne outex_16 sbrc XL,0 sbi PORTA,2 sbrs XL,0 cbi PORTA,2 ret outex_16: cpi YL,0x03 brne outex_18 sbrc XL,0 sbi PORTA,3 sbrs XL,0 cbi PORTA,3 ret outex_18: cpi YL,0x08 ;strobe brne outex_20 sbrc XL,0 sbi PORTB,1 sbrs XL,0 cbi PORTB,1 ret outex_20: cpi YL,0x09 ;busy brne outex_50 sbrc XL,0 sbi PORTB,2 sbrs XL,0 cbi PORTB,2 ret outex_50: cpi YL,0x10 brne outex_52 sbrc XL,0 sbi DDRA,0 sbrs XL,0 cbi DDRA,0 ret outex_52: cpi YL,0x11 brne outex_54 sbrc XL,0 sbi DDRA,1 sbrs XL,0 cbi DDRA,1 ret outex_54: cpi YL,0x12 brne outex_56 sbrc XL,0 sbi DDRA,2 sbrs XL,0 cbi DDRA,2 ret outex_56: cpi YL,0x13 brne outex_58 sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_58: cpi YL,0x18 ;strobe brne outex_60 sbrc XL,0 sbi DDRB,1 sbrs XL,0 cbi DDRB,1 ret outex_60: cpi YL,0x19 ;busy brne outex_err sbrc XL,0 sbi DDRB,2 sbrs XL,0 cbi DDRB,2 ret outex_err: ldi ereg,40 ;no IO driver ret SOURCE_142/SOURCE_vdriver/pwm_servo/vline_m0.asm0000755000175000001440000000646411725741462020514 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 0 engine # ;# copyright (c) 2005-2009 Joerg Wolfram (joerg@jcwolfram.de) # ;# # ;# This library is free software; you can redistribute it and/or # ;# modify it under the terms of the GNU Lesser General Public # ;# License as published by the Free Software Foundation; either # ;# version 3 of the License, or (at your option) any later version. # ;# # ;# This library is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # ;# Lesser General Public License for more details. # ;# # ;# You should have received a copy of the GNU Lesser General Public # ;# License along with this library; if not, write to the # ;# Free Software Foundation, Inc., 59 Temple Place - Suite 330, # ;# Boston, MA 02111-1307, USA. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; -output character line 5 clocks per pixel ; -256 characters are in table 6x10px each ;------------------------------------------------------------------------------- servo_tvc: lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high movw YL,XL ;2 copy values ldi ZL,LOW(690) ;1 offset color table ldi ZH,HIGH(690) ;1 add YL,ZL ;1 adc YH,ZH ;1 servo_tvc_0: ldi ZH,HIGH(libmio_ctable*2);start chartable lds ZL,libmio_cline ;2 character line add ZH,ZL ;1 push tempreg4 push tempreg5 ldi ZL,28 ;1 number of chars mov tempreg5,ZL ;1 set loop counter ld tempreg3,Y+ ;2 get color ld ZL,X+ ;2 get char lpm tempreg2,Z ;3 get pixline mov tempreg4,tempreg3 ;1 swap tempreg4 ;1 eor tempreg4,tempreg3 ;1 sbrc tempreg2,7 ;1 eor tempreg3,tempreg4 ;1 servo_tvc_1: out PORTC,tempreg3 ;1 output P0 ld ZL,X+ ;2 get char nop ;1 filling sbrc tempreg2,6 ;1 skip if no change out PINC,tempreg4 ;1 output P1 lpm r0,Z ;3 get pixline sbrc tempreg2,5 ;1 skip if no change out PINC,tempreg4 ;1 output P2 ld tempreg3,Y+ ;2 get color mov r1,tempreg3 ;1 copy color sbrc tempreg2,4 ;1 skip if no change out PINC,tempreg4 ;1 output P3 ; nop ;1 filling swap r1 ;1 swap fg/hg eor r1,tempreg3 ;1 calc diffenece sbrc tempreg2,3 ;1 skip if no change out PINC,tempreg4 ;1 output P4 sbrc r0,7 ;1 check next P0 eor tempreg3,r1 ;1 change color dec tempreg5 ;1 loop counter sbrc tempreg2,2 ;1 skip if no change out PINC,tempreg4 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline mov tempreg4,r1 ;1 prepare next colordiff brne servo_tvc_1 ;2 do loop lds tempreg3,libmio_border ;2 get border out PORTC,tempreg3 ;set pop tempreg5 pop tempreg4 ld ZL,-X ;2 correct X-register lds ZH,libmio_cline ;2 character line inc ZH cpi ZH,10 ;1 check brne servo_tvc_2 ;2 jump if not next line clr ZH ;1 character line = 0 adiw XL,2 ;2 skip 2 chars sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position servo_tvc_2: sts libmio_cline,ZH ;2 new character line ret SOURCE_142/license0000644000175000001440000010451311725741462013053 0ustar joergusers GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Copyright (C) 2007 Free Software Foundation, Inc. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things. To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the GNU General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the GNU General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: Copyright (C) This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, your program's commands might be different; for a GUI interface, you would use an "about box". You should also get your employer (if you work as a programmer) or school, if any, to sign a "copyright disclaimer" for the program, if necessary. For more information on this, and how to apply and follow the GNU GPL, see . The GNU General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. But first, please read . SOURCE_142/liesmich0000755000175000001440000000063511725741462013231 0ustar joergusersavr-chipbasic2: ein Einchip-Computer ==================================== Das Projekt wurde unter Linux mit dem avra Assembler sowie avr-libmake entwickelt. Um das Programm unter anderen Betriebssystemen zu assemblieren, müssen auf jeden Fall die Pfadangaben bei den Includedateien beachtet werden. Fuse-Einstellungen (Mega644): ---------------------------- FUSE LOW = 0xe6 FUSE HIGH = 0xd1 FUSE EXT = 0xfc