chipbasic2_1.28_source/0000755000000000000000000000000011360426460013615 5ustar rootrootchipbasic2_1.28_source/liesmich0000777000175000001440000000074411360426460015700 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. Die Verzeichnisse: ------------------ system Die Source-dateien des Grundsystems library verschiedene Bibliotheken vdriver diverse Video-Treiber program verschiedene Programme chipbasic2_1.28_source/library/0000755000000000000000000000000011360423304015253 5ustar rootrootchipbasic2_1.28_source/library/make_library0000755000000000000000000000022011360423277017645 0ustar rootroot#!/bin/sh rmdir -f libaray_bin mkdir library_bin cd fixlib build-bin fixlib mv *.bin ../library_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. chipbasic2_1.28_source/library/fixlib/0000777000175000001440000000000011360423301017060 5ustar joerguserschipbasic2_1.28_source/library/fixlib/func/0000777000175000001440000000000011327347166020034 5ustar joerguserschipbasic2_1.28_source/library/fixlib/func/script.asm0000755000175000001440000001557111327347131022042 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 chipbasic2_1.28_source/library/fixlib/func/add_sub_cmp.asm0000755000175000001440000001322511327346735023001 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 chipbasic2_1.28_source/library/fixlib/func/const.asm0000755000175000001440000000534611327347042021664 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) chipbasic2_1.28_source/library/fixlib/func/import_export.asm0000755000175000001440000003167711327347103023455 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 chipbasic2_1.28_source/library/fixlib/func/single_op.asm0000755000175000001440000001022011327347141022500 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 chipbasic2_1.28_source/library/fixlib/func/util.asm0000755000175000001440000000272311327347166021516 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 chipbasic2_1.28_source/library/fixlib/func/init.asm0000755000175000001440000001104211327347112021465 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 chipbasic2_1.28_source/library/fixlib/func/div.asm0000755000175000001440000001523611327347051021317 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 chipbasic2_1.28_source/library/fixlib/func/mult.asm0000755000175000001440000001050611327347121021507 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 chipbasic2_1.28_source/library/fixlib/fixlib.asm0000755000175000001440000000671611355230221021051 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/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 "FIXLIBV0.22cN",0xff,0x10,0x01 ;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 "func/init.asm" .include "func/import_export.asm" .include "func/add_sub_cmp.asm" .include "func/single_op.asm" .include "func/mult.asm" .include "func/div.asm" .include "func/const.asm" .include "func/script.asm" .include "func/util.asm" chipbasic2_1.28_source/program/0000755000000000000000000000000011360425734015267 5ustar rootrootchipbasic2_1.28_source/program/make_apps0000755000000000000000000000062511360423074017153 0ustar rootroot#!/bin/sh rmdir -f apps_bin mkdir apps_bin cd cbterm build-bin cbterm mv *.bin ../apps_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd clone build-bin clone mv *.bin ../apps_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd kbd_de build-bin kbd_de mv *.bin ../apps_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd kbd_us build-bin kbd_us mv *.bin ../apps_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. chipbasic2_1.28_source/program/kbd_de/0000755000175000001440000000000011360425632017023 5ustar joerguserschipbasic2_1.28_source/program/kbd_de/kbd_de.asm0000755000175000001440000000521611354417360020746 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/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 0x6c00 ; "...... N" start: .db "SETKBD -DE- N",0xff,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" chipbasic2_1.28_source/program/kbd_de/keytable_de.inc0000777000175000001440000001265611315654125022010 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# keytable - DE layout # ;# copyright (c) 2007-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; 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 ;------------------------------------------------------------------------------- ;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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,0x00 ;scancode 78-7f chipbasic2_1.28_source/program/cbterm/0000755000175000001440000000000011360425631017066 5ustar joerguserschipbasic2_1.28_source/program/cbterm/cbterm.asm0000755000175000001440000003460211355733747021072 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/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 0x6c00 ; "...... N" start: .db "CBTerm-mini-N",0xff,0xff,0x00 ;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 0x4f,"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 0x4f,"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" chipbasic2_1.28_source/program/kbd_us/0000755000175000001440000000000011360425632017062 5ustar joerguserschipbasic2_1.28_source/program/kbd_us/keytable_us.inc0000777000175000001440000001263311315654203022076 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# keytable - EN layout # ;# copyright (c) 2007-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; 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 ;------------------------------------------------------------------------------- ;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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,0x00 ;scancode 78-7f chipbasic2_1.28_source/program/kbd_us/kbd_us.asm0000755000175000001440000000511711354417444021047 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/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 0x6c00 ; "...... N" start: .db "SETKBD -US- N",0xff,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,'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" chipbasic2_1.28_source/program/clone/0000755000175000001440000000000011360425632016713 5ustar joerguserschipbasic2_1.28_source/program/clone/clone.asm0000755000175000001440000004132311360425620020520 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/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 0x6c00 ; "...... N" start: .db "CLONE- M644 N",0xff,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 cbi PORTB,4 ;start (reset) 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: sbi PORTB,4 ;end (deactivate reset) 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 chipbasic2_1.28_source/vdriver/0000755000000000000000000000000011360424623015275 5ustar rootrootchipbasic2_1.28_source/vdriver/mono_24x40/0000755000175000001440000000000011360424605017435 5ustar joerguserschipbasic2_1.28_source/vdriver/mono_24x40/mono_24x40.asm0000755000175000001440000003743111345017702021762 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 " MONO 24*40 N",0xff,0xe2,0x00 ;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 ldi ZH,0xd9 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 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 chipbasic2_1.28_source/vdriver/make_drivers0000755000000000000000000000201411360424600017666 0ustar rootroot#!/bin/sh rmdir -f drivers_bin mkdir drivers_bin cd charset10 build-bin charset10 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd dual_24x40 build-bin dual_24x40 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd lcd_1x16 build-bin lcd116 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd lcd_2x16 build-bin lcd216 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd lcd_2x20 build-bin lcd220 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd mono_24x40 build-bin mono_24x40 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd pwm_4x8bit build-bin pwm4x8 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd pwm_8x8bit build-bin pwm8x8 mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd tilemode build-bin tilemode mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. cd vecmode build-bin vecmode mv *.bin ../drivers_bin rm -f *.hex rm -f *.cof rm -f *.obj cd .. chipbasic2_1.28_source/vdriver/lcd_1x16/0000755000175000001440000000000011360424604017144 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_1x16/vline.asm0000600000175000001440000000475111333333653020765 0ustar joergusers;calculate data for first char lcd_vline: ldi XL,20 lcd_predelay: dec XL brne lcd_predelay lds YH,lcd_charline ;cline lds YL,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 cpi YH,1 brcs lcd_dline_e subi YH,1 cpi YL,4 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 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 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_pixline lds ZH,lcd_charline ;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_pixline,YL sts lcd_charline,ZH ;2 new character line ret chipbasic2_1.28_source/vdriver/lcd_1x16/generator/0000777000175000001440000000000011330224517021134 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_1x16/generator/ctable.inc0000644000175000001440000002340011330224524023052 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 chipbasic2_1.28_source/vdriver/lcd_1x16/generator/generate_chartables.pl0000777000175000001440000000557011330224517025465 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # table generator for lcd driver # # copyright (c) 2009-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)>4) { $pix1=&get_pixel(); $pix2=&get_pixel(); $pix3=&get_pixel(); $pix4=&get_pixel(); $pix5=&get_pixel(); $mbyte=0; if ($pix1 > 0) { $mbyte+=16; } if ($pix2 > 0) { $mbyte+=8; } if ($pix3 > 0) { $mbyte+=4; } if ($pix4 > 0) { $mbyte+=2; } if ($pix5 > 0) { $mbyte+=1; } $mcell[$count*8+($cline)]=$mbyte; $cline++; if ($cline==8) { $cline=0; $count++; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### open (WTAB, ">ctable.inc"); for($i=32;$i<128;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } for($i=160;$i<256;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); chipbasic2_1.28_source/vdriver/lcd_1x16/generator/ctab_f0.dat0000777000175000001440000003633611330136463023144 0ustar joerguserscell-00 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-01 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-02 CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-03 CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-04 CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-05 CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-06 CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-07 CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-08 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-09 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-0a CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-0b CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-0c CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-0d CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-0e CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-0f CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-10 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-11 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-12 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-13 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-14 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-15 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-16 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-17 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-18 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-19 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-20-space ..... ..... ..... ..... ..... ..... ..... ..... cell-21-! ..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... ..... 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 xxx.. x..x. x...x x...x x...x x..x. xxx.. ..... 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..x. .xx.x ..... cell-52-R 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-YEN x...x .x.x. xxxxx ..x.. xxxxx ..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. .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 ..... ..... xxxx. x...x xxxx. x.... x.... ..... cell-71-q ..... ..... .xx.x x..xx .xxxx ....x ....x ..... 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 ..xx. ..... 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 .xxxx ....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 -> ..... ..x.. ...x. xxxxx ...x. ..x.. ..... ..... cell-7f <- ..... ..x.. .x... xxxxx .x... ..x.. ..... ..... cell-80 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-81 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-82 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-83 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-84 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-85 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-86 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-87 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-88 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-89 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-90 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-91 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-92 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-93 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-94 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-95 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-96 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-97 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-98 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-99 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-a0 ext ..... ..... ..... ..... ..... ..... ..... ..... cell-a1 ext ..... ..... ..... ..... xxx.. x.x.. xxx.. ..... cell-a2 ext ..xxx ..x.. ..x.. ..x.. ..... ..... ..... ..... cell-a3 ext ..... ..... ..... ..x.. ..x.. ..x.. xxx.. ..... cell-a4 ext ..... ..... ..... ..... x.... .x... ..x.. ..... cell-a5 ext ..... ..... ..... .xx.. .xx.. ..... ..... ..... cell-a6 ext ..... xxxxx ....x xxxxx ....x ...x. ..x.. ..... cell-a7 ext ..... ..... xxxxx ....x ...x. ..x.. .x... ..... cell-a8 ext ..... ..... ...x. ..x.. .xx.. x.x.. ..x.. ..... cell-a9 ext ..... ..x.. xxxxx x...x ....x ..xx. ..... ..... cell-aa ext ..... ..... ..... xxxxx ..x.. ..x.. xxxxx ..... cell-ab ext ..... ..... ...x. xxxxx ..xx. .x.x. x..x. ..... cell-ac ext ..... ..... .x... xxxxx .x..x .x.x. .x... ..... cell-ad ext ..... ..... ..... .xxx. ...x. ...x. xxxxx ..... cell-ae ext ..... ..... xxxx. ...x. xxxx. ...x. xxxx. ..... cell-af ext ..... ..... x.x.x x.x.x ....x ..xx. ..... ..... cell-b0 ext ..... ..... xxxxx ..... ..... ..... ..... ..... cell-b1 ext xxxxx ....x ..x.x ..xx. ..x.. ..x.. .x... ..... cell-b2 ext ....x ...x. ..x.. .xx.. x.x.. ..x.. ..x.. ..... cell-b3 ext ..x.. xxxxx x...x x...x ....x ...x. ..x.. ..... cell-b4 ext ..... xxxxx ..x.. ..x.. ..x.. ..x.. xxxxx ..... cell-b5 ext ...x. xxxxx ...x. ..xx. .x.x. x..x. ...x. ..... cell-b6 ext .x... xxxxx .x..x .x..x .x..x .x..x x..x. ..... cell-b7 ext ..x.. xxxxx ..x.. xxxxx ..x.. ..x.. ..x.. ..... cell-b8 ext ..... .xxxx .x..x x...x ....x ...x. .xx.. ..... cell-b9 ext .x... .xxxx x..x. ...x. ...x. ...x. ..x.. ..... cell-ba ext ..... xxxxx ....x ....x ....x ....x xxxxx ..... cell-bb ext .x.x. xxxxx .x.x. .x.x. ...x. ..x.. .x... ..... cell-bc ext ..... xx... ....x xx..x ....x ...x. xxx.. ..... cell-bd ext ..... xxxxx ....x ...x. ..x.. .x.x. x...x ..... cell-be ext .x... xxxxx .x..x .x.x. .x... .x... ..xxx ..... cell-bf ext ..... x...x x...x .x..x ....x ...x. .xx.. ..... cell-c0 ext ..... .xxxx .x..x ..x.x ...xx ...x. .xx.. ..... cell-c1 ext ...x. xxx.. ..x.. xxxxx ..x.. ..x.. .x... ..... cell-c2 ext ..... x.x.x x.x.x x.x.x ....x ...x. ..x.. ..... cell-c3 ext .xxx. ..... xxxxx ..x.. ..x.. ..x.. .x... ..... cell-c4 ext .x... .x... .x... .xx.. .x.x. .x... .x... ..... cell-c5 ext ..x.. ..x.. xxxxx ..x.. ..x.. .x... x.... ..... cell-c6 ext ..... .xxx. ..... ..... ..... ..... xxxxx ..... cell-c7 ext ..... xxxxx ....x .x.x. ..x.. .x.x. x.... ..... cell-c8 ext ..x.. xxxxx ...x. ..x.. .xxx. x.x.x ..x.. ..... cell-c9 ext ...x. ...x. ...x. ...x. ...x. ..x.. .x... ..... cell-ca ext ..... ..x.. ...x. x...x x...x x...x x...x ..... cell-cb ext x.... x.... xxxxx x.... x.... x.... .xxxx ..... cell-cc ext ..... xxxxx ....x ....x ....x ...x. .xx.. ..... cell-cd ext ..... .x... x.x.. ...x. ....x ....x ..... ..... cell-ce ext ..x.. xxxxx ..x.. ..x.. x.x.x x.x.x ..x.. ..... cell-cf ext ..... xxxxx ....x ....x .x.x. ..x.. ...x. ..... cell-d0 ext ..... .xxx. ..... .xxx. ..... .xxx. ....x ..... cell-d1 ext ..... ..x.. .x... x.... x...x xxxxx ....x ..... cell-d2 ext ..... ....x ....x .x.x. ..x.. .x.x. x.... ..... cell-d3 ext ..... xxxxx .x... xxxxx .x... .x... ..xxx ..... cell-d4 ext .x... .x... xxxxx .x..x .x.x. .x... .x... ..... cell-d5 ext ..... .xxx. ...x. ...x. ...x. ...x. xxxxx ..... cell-d6 ext ..... xxxxx ....x xxxxx ....x ....x xxxxx ..... cell-d7 ext .xxx. ..... xxxxx ....x ....x ...x. ..x.. ..... cell-d8 ext x..x. x..x. x..x. x..x. ...x. ..x.. .x... ..... cell-d9 ext ..... ..x.. x.x.. x.x.. x.x.x x.x.x x.xx. ..... cell-da ext ..... x.... x.... x...x x..x. x.x.. xx... ..... cell-db ext ..... xxxxx x...x x...x x...x xxxxx ..... ..... cell-dc ext ..... xxxxx x...x x...x ....x ...x. ..x.. ..... cell-dd ext ..... xx... ..... ....x ....x ...x. xxx.. ..... cell-de ext ..x.. x..x. .x... ..... ..... ..... ..... ..... cell-df ext xxx.. x.x.. xxx.. ..... ..... ..... ..... ..... cell-e0 ext ..... .x..x x.x.x x..x. x..x. .xx.x ..... ..... cell-e1 ext .x.x. ..... .xxx. ....x .xxxx x...x .xxxx ..... cell-e2 ext .xxx. x...x xxxx. x...x xxxx. x.... x.... ..... cell-e3 ext ..... .xxx. x.... .xx.. x...x .xxx. ..... ..... cell-e4 ext x...x x...x x...x x..xx xxx.x x.... x.... ..... cell-e5 ext ..... .xxxx x.x.. x..x. x...x .xxx. ..... ..... cell-e6 ext ..xx. .x..x x...x x...x xxxx. x.... x.... ..... cell-e7 ext .xxx. x...x x...x .xxxx ....x ....x .xxx. ..... cell-e8 ext ..... ..xxx ..x.. ..x.. x.x.. .x... ..... ..... cell-e9 ext ..... ...x. xx.x. ...x. ..... ..... ..... ..... cell-ea ext ...x. ..... ..xx. ...x. ...x. x..x. .xx.. ..... cell-eb ext x.x.. .x... x.x.. ..... ..... ..... ..... ..... cell-ec ext ..x.. .xxx. x.x.. x.x.x .xxx. ..x.. ..... ..... cell-ed ext .x... xxx.. .x... xxx.. .x... .x... .xxxx ..... cell-ee ext .xxx. ..... x.xx. xx..x x...x x...x x...x ..... cell-ef ext .x.x. ..... .xxx. x...x x...x x...x .xxx. ..... cell-f0 ext x.xx. xx..x x...x x...x xxxx. x.... x.... ..... cell-f1 ext .xx.x x..xx x...x xxxxx ....x ....x ....x ..... cell-f2 ext ..... .xxx. x...x xxxxx x...x x...x .xxx. ..... cell-f3 ext ..... ..... .x.xx x.x.x xx.x. ..... ..... ..... cell-f4 ext ..... ..... .xxx. x...x x...x .x.x. xx.xx ..... cell-f5 ext .x.x. ..... x...x x...x x...x x..xx .xx.x ..... cell-f6 ext xxxxx x.... .x... ..x.. .x... x.... xxxxx ..... cell-f7 ext ..... ..... xxxxx .x.x. .x.x. .x.x. x..xx ..... cell-f8 ext xxxxx ..... x...x .x.x. ..x.. .x.x. x...x ..... cell-f9 ext x...x x...x x...x .xxxx ....x ....x .xxx. ..... cell-fa ext ..... ....x xxxx. ..x.. xxxxx ..x.. ..x.. ..... cell-fb ext ..... xxxxx .x... .xxxx .x..x x...x ..... ..... cell-fc ext ..... xxxxx x.x.x xxxxx x...x x...x ..... ..... cell-fd ext ..... ..x.. ..... xxxxx ..... ..x.. ..... ..... cell-fe ext ..... ..... ..... ..... ..... ..... ..... ..... cell-ff ext xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx chipbasic2_1.28_source/vdriver/lcd_1x16/lcd116.asm0000755000175000001440000003007411336704422020651 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_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_charmap = libmio_vram .equ lcd_charmap_c = libmio_vram+256 .equ lcd_sys = libmio_vram+512 .equ lcd_cgmap = libmio_vram+704 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+640 .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_charline = lcd_sys+6 ;charline .equ lcd_cgptr = lcd_sys+8 ;CG counter .CSEG .org 0x7200 ; "...... N" start: .db " DUAL 1*16 N",0xff,0xf0,0x10 ;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 lcd116_init ;FKT 01 init rjmp lcd116_cls ;FKT 02 clear screen rjmp lcd116_char ;FKT 03 output char rjmp lcd116_gxy ;FKT 04 set cursor rjmp lcd116_plot ;FKT 05 plot rjmp lcd116_newl ;FKT 06 NL rjmp lcd116_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: 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 ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd116_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 lcd116_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_init rcall lcd_ccopy rcall lcd116_cls sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd116_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL 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,0 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ;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 ;------------------------------------------------------------------------------- lcd116_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd116_cls: api_pushxyz ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+256) ldi ZH,HIGH(libmio_vram+256) ldi XH,0 ldi XL,0x20 lcd116_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd116_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd116_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd116_char1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd116_char1 ;no Y overflow clr XH lcd116_char1: movw libmio_cur_x,XL st Y,tempreg1 lcd116_char2: api_popxyz lcd116_newl: api_pushxyz clr XL clr XH movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- lcd116_plot: ret ;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd116_vid: mov tempreg1,vline_l cpi tempreg1,100 brcs lcd116_nvid cpi tempreg1,118 brcc lcd116_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd116_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_charline,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd116_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd116_c2 ;write data rjmp lcd116_c1 ;prepare data lcd116_nvid_1: ret ;do nothing ;prepare data lcd116_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd116_c3 ;CG RAM service ;DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd116_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd116_c1_10 ;no Y overflow clr XH lcd116_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 lcd116_c1_20 ;yes, update ret lcd116_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 lcd116_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;CG RAM data lcd116_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd116_c3_10 ;no X overflow clr XL lcd116_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 lcd116_c3_20 ;yes, update ret lcd116_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 ;------------------------------------------------------------------------------ ; calc address of (XL:XH) char ;------------------------------------------------------------------------------ lcd_acalc: ldi YL,LOW(lcd_charmap) ;VRAM address, first LCD char ldi YH,HIGH(lcd_charmap) add YL,XL adc YH,const_0 ;maximum 255 Bytes movw ZL,YL inc ZH ;visible status is addr+256 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 ;------------------------------------------------------------------------------ lcd_pcalc: ldi ZL,56 mov tempreg1,XL sbrc tempreg1,3 add tempreg1,ZL ret ;------------------------------------------------------------------------------- ; 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 ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden lcd_init: ldi tempreg2,10 lcd_init_1: api_sync dec tempreg2 brne lcd_init_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 .include "vline.asm" lcd_ctable: .include "generator/ctable.inc"chipbasic2_1.28_source/vdriver/tilemode/0000755000175000001440000000000011360424606017427 5ustar joerguserschipbasic2_1.28_source/vdriver/tilemode/tilemode.asm0000755000175000001440000012171011352714100021730 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 "VMODE-Tile01N",0xff,0xe1,0x01 ;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 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, do not use!!! ;specific functions rjmp tilemode_fmap ;FKT 08 fill map (value) ret ;FKT 09 fill map from array (one tile) ret ;FKT 10 fill map area rjmp tilemode_smap ;FKT 11 set map (Y,X,value) rjmp tilemode_gmap ;FKT 12 get map (Y,X) to ~R rjmp tile_solid ;FKT 13 fill tile N solid with COLOR c rjmp tile_fpattern ;FKT 14 draw tile N with flash pattern M COLOR C rjmp tile_rpattern ;FKT 15 draw tile N with ram pattern from array cell M COLOR C rjmp tile_cpattern ;FKT 16 draw tile N with char cell M COLOR C rjmp tile_xflip ;FKT 17 flip tile horizontal rjmp tile_yflip ;FKT 18 flip tile vertical rjmp tile_cw ;FKT 19 rotate tile clockwise rjmp tile_ccw ;FKT 20 rotate tile counterclockwise rjmp tile_copy ;FKT 21 tile copy (T1,T2) rjmp tile_add ;FKt 22 add tile information (T1,T2,Tcolor) rjmp tile_rot ;FKT 23 rotate 2 tiles (T1,T2,DIR) rjmp tile_spinit ;FKT 24 init sprite area rjmp tile_stype ;FKT 25 set sprite tile (sprite,tile,transcolor) and activate rjmp tile_scoords ;FKT 26 set coordinates and direction rjmp tile_senable ;FKT 27 activate sprite in sequence rjmp tile_sdisable ;FKT 28 de-actiate sprite in sequence rjmp ti_spdraw ;FKT 29 draw sprite rjmp ti_undraw ;FKT 30 undraw sprite rjmp tile_dseq ;FKT 31 draw sprite sequence rjmp tile_useq ;FKT 32 undraw sprite sequence rjmp tile_movea ;FKT 33 move all sprites (set coords) rjmp tile_movea_drw ;FKT 34 move all sprites and draw 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 ldi ZH,HIGH(ti_jtab) 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 chipbasic2_1.28_source/vdriver/dual_24x40/0000755000175000001440000000000011360424604017411 5ustar joerguserschipbasic2_1.28_source/vdriver/dual_24x40/dual_24x40.asm0000755000175000001440000005157711345016660021725 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 " DUAL 24*40ZN",0xff,0xf4,0x01 ;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 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_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 ldi ZH,0xd9 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 ;------------------------------------------------------------------------------- ; 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 ;------------------------------------------------------------------------------- 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 chipbasic2_1.28_source/vdriver/charset10/0000755000000000000000000000000011360424604017066 5ustar rootrootchipbasic2_1.28_source/vdriver/charset10/charset10.asm0000755000175000001440000000332111333135413021710 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,0xff,0xff ;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"chipbasic2_1.28_source/vdriver/charset10/ctab_08_10.dat0000666000175000001440000003122711333135743021643 0ustar joergusers#cell 0 ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ #cell 1 ..x...x. x...x... ..x...x. x...x... ..x...x. x...x... ..x...x. x...x... ..x...x. x...x... #cell 2 .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.x.x. .x.x.x.x x.x.x.x. #cell 3 xxx.xxx. x.xxx.xx xxx.xxx. x.xxx.xx xxx.xxx. x.xxx.xx xxx.xxx. x.xxx.xx xxx.xxx. x.xxx.xx #cell 4 xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx #cell 5 vertical line ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... #cell 6 horizontal line ........ ........ ........ ........ xxxxxxxx xxxxxxxx ........ ........ ........ ........ #cell 7 upleft corner ........ ........ ........ ........ ...xxxxx ...xxxxx ...xx... ...xx... ...xx... ...xx... #cell 8 upright corner ........ ........ ........ ........ xxxxx... xxxxx... ...xx... ...xx... ...xx... ...xx... #cell 9 downleft corner ...xx... ...xx... ...xx... ...xx... ...xxxxx ...xxxxx ........ ........ ........ ........ #cell 10 downright corner ...xx... ...xx... ...xx... ...xx... xxxxx... xxxxx... ........ ........ ........ ........ #cell 11 upper T ........ ........ ........ ........ xxxxxxxx xxxxxxxx ...xx... ...xx... ...xx... ...xx... #cell 12 lower T ...xx... ...xx... ...xx... ...xx... xxxxxxxx xxxxxxxx ........ ........ ........ ........ #cell 13 left T ...xx... ...xx... ...xx... ...xx... ...xxxxx ...xxxxx ...xx... ...xx... ...xx... ...xx... #cell 14 right T ...xx... ...xx... ...xx... ...xx... xxxxx... xxxxx... ...xx... ...xx... ...xx... ...xx... #cell 15 cross ...xx... ...xx... ...xx... ...xx... xxxxxxxx xxxxxxxx ...xx... ...xx... ...xx... ...xx... #cell 16 ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ #cell 17 xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... ........ ........ ........ ........ ........ #cell 18 ....xxxx ....xxxx ....xxxx ....xxxx ....xxxx ........ ........ ........ ........ ........ #cell 19 xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx ........ ........ ........ ........ ........ #cell 20 ........ ........ ........ ........ ........ xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... #cell 21 xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... #cell 22 ....xxxx ....xxxx ....xxxx ....xxxx ....xxxx xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... #cell 23 xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxx.... xxxx.... xxxx.... xxxx.... xxxx.... #cell 24 .xx..xx. .xx..xx. ........ ..xxxx.. .xx..xx. .xxxxxx. .xx..xx. .xx..xx. ........ ........ #cell 25 .xx..xx. .xx..xx. ........ ..xxxx.. .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 26 .xx..xx. .xx..xx. ........ .xx..xx. .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 27 ..xx.xx. ..xx.xx. ........ ..xxxx.. .....xx. ..xxxxx. .xx..xx. ..xxx.xx ........ ........ #cell 28 ........ .xx..xx. .xx..xx. ........ ..xxxx.. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 29 ........ .xx..xx. .xx..xx. ........ .xx..xx. .xx..xx. .xx..xx. ..xxx... ........ ........ #cell 30 ........ ........ ........ xx..xx.. xx..xx.. xx..xx.. xx..xx.. xxxx.xx. xx...... xx...... #cell 31 ........ ...xx... ..x..x.. ..x..x.. ...xx... ........ ........ ........ ........ ........ #cell 32 ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ #cell 33 ........ ...xx... ...xx... ...xx... ...xx... ...xx... ........ ...xx... ........ ........ #cell 34 ........ ..xx.xx. ..xx.xx. ..xx.xx. ........ ........ ........ ........ ........ ........ #cell 35 ........ .xx.xx.. .xx.xx.. xxxxxxx. .xx.xx.. xxxxxxx. .xx.xx.. .xx.xx.. ........ ........ #cell 36 ........ ...xx... ..xxxx.. .xx..... ..xxxx.. .....x.. .xxxxx.. ...xx... ........ ........ #cell 37 ........ ........ xx...xx. xx..xx.. ...xx... ..xx.... .xx..xx. xx...xx. ........ ........ #cell 38 ........ ..xxx... .xx.xx.. ..xxx... .xxx.xx. xx.xxx.. xx..xx.. .xxx.xx. ........ ........ #cell 39 ...xx... ...xx... ..xx.... ........ ........ ........ ........ ........ ........ ........ #cell 40 ........ ....xx.. ...xx... ..xx.... ..xx.... ..xx.... ...xx... ....xx.. ........ ........ #cell 41 ........ ..xx.... ...xx... ....xx.. ....xx.. ....xx.. ...xx... ..xx.... ........ ........ #cell 42 ........ ........ .xx..xx. ..xxxx.. xxxxxxxx ..xxxx.. .xx..xx. ........ ........ ........ #cell 43 ........ ........ ...xx... ...xx... .xxxxxx. ...xx... ...xx... ........ ........ ........ #cell 44 ........ ........ ........ ........ ........ ........ ...xx... ...xx... ..xx.... ........ #cell 45 ........ ........ ........ ........ .xxxxxx. ........ ........ ........ ........ ........ #cell 46 ........ ........ ........ ........ ........ ........ ...xx... ...xx... ........ ........ #cell 47 ........ ........ .....xx. ....xx.. ...xx... ..xx.... .xx..... xx...... ........ ........ #cell 48 ........ .xxxxx.. xx...xx. xx..xxx. xx.x.xx. xxx..xx. xx...xx. .xxxxx.. ........ ........ #cell 49 ........ ...xx... ..xxx... .x.xx... ...xx... ...xx... ...xx... .xxxxxx. ........ ........ #cell 50 ........ ..xxxx.. .xx..xx. .....xx. ...xxx.. ..xx.... .xx..... .xxxxxx. ........ ........ #cell 51 ........ ..xxxx.. .xx..xx. .....xx. ...xxx.. .....xx. .xx..xx. ..xxxx.. ........ ........ #cell 52 ........ ...xxx.. ..xxxx.. .xx.xx.. xx..xx.. xxxxxxx. ....xx.. ....xx.. ........ ........ #cell 53 ........ .xxxxxx. .xx..... .xxxxx.. .....xx. .....xx. .xx..xx. ..xxxx.. ........ ........ #cell 54 ........ ...xxx.. ..xx.... .xx..... .xxxxx.. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 55 ........ .xxxxxx. .....xx. .....xx. ....xx.. ...xx... ...xx... ...xx... ........ ........ #cell 56 ........ ..xxxx.. .xx..xx. .xx..xx. ..xxxx.. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 57 ........ ..xxxx.. .xx..xx. .xx..xx. ..xxxxx. .....xx. ....xx.. ..xxx... ........ ........ #cell 58 ........ ........ ...xx... ...xx... ........ ........ ...xx... ...xx... ........ ........ #cell 59 ........ ........ ...xx... ...xx... ........ ........ ...xx... ...xx... ..xx.... ........ #cell 60 ........ ....xx.. ...xx... ..xx.... .xx..... ..xx.... ...xx... ....xx.. ........ ........ #cell 61 ........ ........ ........ .xxxxxx. ........ ........ .xxxxxx. ........ ........ ........ #cell 62 ........ ..xx.... ...xx... ....xx.. .....xx. ....xx.. ...xx... ..xx.... ........ ........ #cell 63 ........ ..xxxx.. .xx..xx. .....xx. ....xx.. ...xx... ........ ...xx... ........ ........ #cell 64 ........ .xxxxx.. xx...xx. xx.xxxx. xx.xxxx. xx.xxxx. xx...... .xxxx... ........ ........ #cell 65 ........ ...xx... ..xxxx.. .xx..xx. .xx..xx. .xxxxxx. .xx..xx. .xx..xx. ........ ........ #cell 66 ........ .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. ........ ........ #cell 67 ........ ..xxxx.. .xx..xx. xx...... xx...... xx...... .xx..xx. ..xxxx.. ........ ........ #cell 68 ........ .xxxx... .xx.xx.. .xx..xx. .xx..xx. .xx..xx. .xx.xx.. .xxxx... ........ ........ #cell 69 ........ .xxxxxx. .xx..... .xx..... .xxxx... .xx..... .xx..... .xxxxxx. ........ ........ #cell 70 ........ .xxxxxx. .xx..... .xx..... .xxxx... .xx..... .xx..... .xx..... ........ ........ #cell 71 ........ ..xxxx.. .xx..xx. xx...... xx...... xx..xxx. .xx..xx. ..xxxxx. ........ ........ #cell 72 ........ .xx..xx. .xx..xx. .xx..xx. .xxxxxx. .xx..xx. .xx..xx. .xx..xx. ........ ........ #cell 73 ........ ..xxxx.. ...xx... ...xx... ...xx... ...xx... ...xx... ..xxxx.. ........ ........ #cell 74 ........ ...xxxx. ....xx.. ....xx.. ....xx.. xx..xx.. xx..xx.. .xxxx... ........ ........ #cell 75 ........ .xx..xx. .xx..xx. .xx.xx.. .xxxx... .xx.xx.. .xx..xx. .xx..xx. ........ ........ #cell 76 ........ .xx..... .xx..... .xx..... .xx..... .xx..... .xx..... .xxxxxx. ........ ........ #cell 77 ........ xx...xx. xxx.xxx. xxxxxxx. xxxxxxx. xx.x.xx. xx...xx. xx...xx. ........ ........ #cell 78 ........ xx...xx. xxx..xx. xxxx.xx. xx.xxxx. xx..xxx. xx...xx. xx...xx. ........ ........ #cell 79 ........ ..xxx... .xx.xx.. xx...xx. xx...xx. xx...xx. .xx.xx.. ..xxx... ........ ........ #cell 80 ........ .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. .xx..... .xx..... .xx..... ........ ........ #cell 81 ........ ..xxxx.. .xx..xx. .xx..xx. .xx..xx. .xx.xxx. ..xxxxx. ....xx.. ........ ........ #cell 82 ........ .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. .xx.xx.. .xx..xx. .xx..xx. ........ ........ #cell 83 ........ ..xxxx.. .xx..xx. .xxx.... ..xxx... ....xx.. .xx..xx. ..xxxx.. ........ ........ #cell 84 ........ .xxxxxx. ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ........ ........ #cell 85 ........ .xx..xx. .xx..xx. .xx..xx. .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 86 ........ .xx..xx. .xx..xx. .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ...xx... ........ ........ #cell 87 ........ xx...xx. xx...xx. xx...xx. xx.x.xx. xxxxxxx. xxx.xxx. xx...xx. ........ ........ #cell 88 ........ xx...xx. xx...xx. .xx.xx.. ..xxx... .xx.xx.. xx...xx. xx...xx. ........ ........ #cell 89 ........ .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ...xx... ...xx... ...xx... ........ ........ #cell 90 ........ xxxxxxx. .....xx. ....xx.. ...xx... ..xx.... .xx..... xxxxxxx. ........ ........ #cell 91 ........ ..xxxx.. ..xx.... ..xx.... ..xx.... ..xx.... ..xx.... ..xxxx.. ........ ........ #cell 92 ........ ........ xx...... .xx..... ..xx.... ...xx... ....xx.. .....xx. ........ ........ #cell 93 ........ ..xxxx.. ....xx.. ....xx.. ....xx.. ....xx.. ....xx.. ..xxxx.. ........ ........ #cell 94 ...x.... ..xxx... .xx.xx.. xx...xx. ........ ........ ........ ........ ........ ........ #cell 95 ........ ........ ........ ........ ........ ........ ........ ........ ........ xxxxxxxx #cell 96 ..xx.... ..xx.... ...xx... ........ ........ ........ ........ ........ ........ ........ #cell 97 ........ ........ ........ .xxxx... ....xx.. .xxxxx.. xx..xx.. .xxx.xx. ........ ........ #cell 98 ........ .xx..... .xx..... .xx..... .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. ........ ........ #cell 99 ........ ........ ........ ..xxxx.. .xx..xx. .xx..... .xx..xx. ..xxxx.. ........ ........ #cell 100 ........ ...xxx.. ....xx.. ....xx.. .xxxxx.. xx..xx.. xx..xx.. .xxx.xx. ........ ........ #cell 101 ........ ........ ........ ..xxxx.. .xx..xx. .xxxxxx. .xx..... ..xxxx.. ........ ........ #cell 102 ........ ...xxx.. ..xx.xx. ..xx.... .xxxx... ..xx.... ..xx.... ..xx.... ........ ........ #cell 103 ........ ........ ........ .xxx.xx. xx..xx.. xx..xx.. .xxxxx.. ....xx.. xxxxx... ........ #cell 104 ........ .xx..... .xx..... .xx.xx.. .xxx.xx. .xx..xx. .xx..xx. .xx..xx. ........ ........ #cell 105 ........ ...xx... ........ ...xx... ...xx... ...xx... ...xx... ...xx... ........ ........ #cell 106 ........ ....xx.. ........ ....xx.. ....xx.. ....xx.. xx..xx.. xx..xx.. .xxxx... ........ #cell 107 ........ .xx..... .xx..... .xx..xx. .xx.xx.. .xxxx... .xx.xx.. .xx..xx. ........ ........ #cell 108 ........ ..xx.... ..xx.... ..xx.... ..xx.... ..xx.... ..xx.x.. ...xx... ........ ........ #cell 109 ........ ........ ........ xx..xx.. xxxxxxx. xxxxxxx. xx.x.xx. xx...xx. ........ ........ #cell 110 ........ ........ ........ .xxxxx.. .xx..xx. .xx..xx. .xx..xx. .xx..xx. ........ ........ #cell 111 ........ ........ ........ ..xxxx.. .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ........ ........ #cell 112 ........ ........ ........ .xxxxx.. .xx..xx. .xx..xx. .xxxxx.. .xx..... .xx..... ........ #cell 113 ........ ........ ........ .xxxxx.. xx..xx.. xx..xx.. .xxxxx.. ....xx.. ....xx.. ........ #cell 114 ........ ........ ........ .x.xxx.. .xxx.xx. .xx..... .xx..... .xx..... ........ ........ #cell 115 ........ ........ ........ ..xxxxx. .xx..... ..xxxx.. .....xx. .xxxxx.. ........ ........ #cell 116 ........ ...x.... ..xx.... .xxxxx.. ..xx.... ..xx.... ..xx.x.. ...xx... ........ ........ #cell 117 ........ ........ ........ .xx..xx. .xx..xx. .xx..xx. .xx..xx. ..xxx.x. ........ ........ #cell 118 ........ ........ ........ .xx..xx. .xx..xx. .xx..xx. ..xxxx.. ...xx... ........ ........ #cell 119 ........ ........ ........ xx...xx. xx.x.xx. xxxxxxx. xxxxxxx. .xx.xx.. ........ ........ #cell 120 ........ ........ ........ xx...xx. .xx.xx.. ..xxx... .xx.xx.. xx...xx. ........ ........ #cell 121 ........ ........ ........ xx..xx.. xx..xx.. xx..xx.. .xxxxx.. ....xx.. xxxxx... ........ #cell 122 ........ ........ ........ .xxxxxx. ....xx.. ...xx... ..xx.... .xxxxxx. ........ ........ #cell 123 ........ ....xxx. ...xx... ...xx... .xxx.... ...xx... ...xx... ....xxx. ........ ........ #cell 124 ........ ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ...xx... ........ ........ #cell 125 ........ .xxx.... ...xx... ...xx... ....xxx. ...xx... ...xx... .xxx.... ........ ........ #cell 126 ........ ........ ........ .xxx.xx. xx.xxx.. ........ ........ ........ ........ ........ #cell 127 ........ .xxxxxx. .x....x. .x....x. .x....x. .x....x. .x....x. .x....x. .xxxxxx. ........ chipbasic2_1.28_source/vdriver/charset10/ctable.inc0000644000175000001440000003462411333135745021360 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 chipbasic2_1.28_source/vdriver/charset10/generate_chartable.pl0000777000175000001440000000574711331136217023573 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # table generator for libmio # # copyright (c) 2006/2007 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 2 # # 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<4096;$i++) { $mcell[$i]=0; } } sub get_pixel { $nb=0; if ($z =~ /^\./) {$nb=0} elsif ($z =~ /^x/) {$nb=1} $z=$'; return $nb; } &clear_cells; $lines=10; ############################################################################### # read character cells ############################################################################### $ofile="ctab_08_".$lines.".dat"; open (RTAB, $ofile); $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(); $pix7=&get_pixel(); $pix8=&get_pixel(); $mbyte=0; if ($pix1 > 0 ) { $mbyte+=128; } if ($pix2 > 0) { $mbyte+=64; } if ($pix3 > 0) { $mbyte+=32; } if ($pix4 > 0) { $mbyte+=16; } if ($pix5 > 0) { $mbyte+=8; } if ($pix6 > 0) { $mbyte+=4; } if ($pix7 > 0) { $mbyte+=2; } if ($pix8 > 0) { $mbyte+=1; } $mcell[$count+256*($cline)]=$mbyte; $mcell[$count+256*($cline)+128]=255-$mbyte; $cline++; if ($cline==$lines) { $cline=0; $count++; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### $ofile=">ctable.inc"; open (WTAB, $ofile); for($i=0;$i<$lines;$i++) { print WTAB "\n"; for($j=0;$j<16;$j++) { print WTAB " .db "; for($k=0;$k<16;$k++) { $cellpos=256*$i+16*$j+$k; $y=$mcell[$cellpos]; if ($y<1) { printf WTAB "0x00" } else { printf WTAB "%#2.2x",$y }; if ($k<15) {print WTAB ","} } print WTAB "\n"; } print WTAB "\n"; } close(WTAB); chipbasic2_1.28_source/vdriver/pwm_4x8bit/0000755000175000001440000000000011360424605017631 5ustar joerguserschipbasic2_1.28_source/vdriver/pwm_4x8bit/pwm4x8_io.asm0000755000175000001440000000465311337024414022202 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: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output from 0x900 .. 0x9ff ;------------------------------------------------------------------------------- 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_err sbrc XL,0 sbi DDRA,3 sbrs XL,0 cbi DDRA,3 ret outex_100: cpi YH,0x09 brne outex_err cpi YL,8 brcc outex_err rjmp pwm4x8_set outex_err: ldi ereg,40 ;no IO driver ret chipbasic2_1.28_source/vdriver/pwm_4x8bit/vline_m0.asm0000777000175000001440000000647211337065505022070 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 chipbasic2_1.28_source/vdriver/pwm_4x8bit/pwm4x8.asm0000755000175000001440000002006611337065174021517 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 "PWM4x8+TMODEN",0xff,0xf8,0x01 ;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 ;------------------------------------------------------------------------------- ; 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 "pwm4x8_io.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 ;------------------------------------------------------------------------------- ; set channel XH with value XL (GOTOXY channel,value) ;------------------------------------------------------------------------------- pwm4x8_set: api_pushxyz ldi ZL,LOW(libmio_vram+2000) ldi ZH,HIGH(libmio_vram+2000) andi YL,0x07 add ZL,YL adc ZH,const_0 st Z,XL api_popxyz ;------------------------------------------------------------------------------- ; 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_vid_40 cpi XL,235 brcc pwm4x8_vid_40 cpi XL,5 brcs pwm4x8_vid_40 ;------------------------------------------------------------------------------- ;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 ;channel 4 pwm4x8_vid_40: lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_vid_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 pwm4x8_vid_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2012 ;get compare register cp YL,XL ;compare brne pwm4x8_vid_50 ;not equal andi tempreg1,0xef ;clear channel 1 ;channel 5 pwm4x8_vid_50: lds XL,libmio_vram+2021 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_vid_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 pwm4x8_vid_51: sts libmio_vram+2021,XL ;store counter lds YL,libmio_vram+2013 ;get compare register cp YL,XL ;compare brne pwm4x8_vid_60 ;not equal andi tempreg1,0xdf ;clear channel 1 ;channel 6 pwm4x8_vid_60: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_vid_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 pwm4x8_vid_61: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2014 ;get compare register cp YL,XL ;compare brne pwm4x8_vid_70 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 pwm4x8_vid_70: lds XL,libmio_vram+2023 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm4x8_vid_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 pwm4x8_vid_71: sts libmio_vram+2023,XL ;store counter lds YL,libmio_vram+2015 ;get compare register cp YL,XL ;compare brne pwm4x8_vid_80 ;not equal andi tempreg1,0x7f ;clear channel 1 pwm4x8_vid_80: sts libmio_vram+2028,tempreg1 int_te: ldi YL,LOW(libmio_ram) ldi YH,HIGH(libmio_ram) lds ZL,libmio_config mov XL,vline_l sbrc vline_h,0 rjmp enable_sync cpi XL,240 brcc enable_sync clt ;disable sync ret enable_sync: set ;enable sync ret .include "vline_m0.asm" chipbasic2_1.28_source/vdriver/pwm_8x8bit/0000755000175000001440000000000011360424606017636 5ustar joerguserschipbasic2_1.28_source/vdriver/pwm_8x8bit/vline_m0.asm0000777000175000001440000000647211333367403022072 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 chipbasic2_1.28_source/vdriver/pwm_8x8bit/pwm8x8.asm0000755000175000001440000002443311336707206021527 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 "PWM8x8+TMODEN",0xff,0xf9,0x01 ;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 ;------------------------------------------------------------------------------- ; no input function available ;------------------------------------------------------------------------------- inex: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; output from 0x900 .. 0x9ff ;------------------------------------------------------------------------------- outex: cpi YH,0x09 brne outex_1 cpi YL,0x08 brcc outex_1 rjmp pwm8x8_set outex_1: ldi ereg,40 ;no IO driver ret ;------------------------------------------------------------------------------- ; 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 ;------------------------------------------------------------------------------- ; set channel XH with value XL (GOTOXY channel,value) ;------------------------------------------------------------------------------- pwm8x8_set: api_pushxyz ldi ZL,LOW(libmio_vram+2000) ldi ZH,HIGH(libmio_vram+2000) andi YL,0x07 add ZL,YL adc ZH,const_0 st Z,XL api_popxyz ;------------------------------------------------------------------------------- ; 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_vid_00 cpi XL,235 brcc pwm8x8_vid_00 cpi XL,5 brcs pwm8x8_vid_00 ;------------------------------------------------------------------------------- ;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 ;channel 0 pwm8x8_vid_00: lds tempreg1,libmio_vram+2028 ;output value lds XL,libmio_vram+2016 ;counter for channel 0 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_01: sts libmio_vram+2016,XL ;store counter lds YL,libmio_vram+2008 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_10 ;not equal andi tempreg1,0xfe ;clear channel 0 ;channel 1 pwm8x8_vid_10: lds XL,libmio_vram+2017 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_11: sts libmio_vram+2017,XL ;store counter lds YL,libmio_vram+2009 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_20 ;not equal andi tempreg1,0xfd ;clear channel 1 ;channel 2 pwm8x8_vid_20: lds XL,libmio_vram+2018 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_21: sts libmio_vram+2018,XL ;store counter lds YL,libmio_vram+2010 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_30 ;not equal andi tempreg1,0xfb ;clear channel 1 ;channel 3 pwm8x8_vid_30: lds XL,libmio_vram+2019 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_31: sts libmio_vram+2019,XL ;store counter lds YL,libmio_vram+2011 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_40 ;not equal andi tempreg1,0xf7 ;clear channel 1 ;channel 4 pwm8x8_vid_40: lds XL,libmio_vram+2020 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_41: sts libmio_vram+2020,XL ;store counter lds YL,libmio_vram+2012 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_50 ;not equal andi tempreg1,0xef ;clear channel 1 ;channel 5 pwm8x8_vid_50: lds XL,libmio_vram+2021 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_51: sts libmio_vram+2021,XL ;store counter lds YL,libmio_vram+2013 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_60 ;not equal andi tempreg1,0xdf ;clear channel 1 ;channel 6 pwm8x8_vid_60: lds XL,libmio_vram+2022 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_61: sts libmio_vram+2022,XL ;store counter lds YL,libmio_vram+2014 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_70 ;not equal andi tempreg1,0xbf ;clear channel 1 ;channel 7 pwm8x8_vid_70: lds XL,libmio_vram+2023 ;counter for channel 1 inc XL ;+1 cpi XL,0xff ;end brne pwm8x8_vid_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_vid_71: sts libmio_vram+2023,XL ;store counter lds YL,libmio_vram+2015 ;get compare register cp YL,XL ;compare brne pwm8x8_vid_80 ;not equal andi tempreg1,0x7f ;clear channel 1 pwm8x8_vid_80: sts libmio_vram+2028,tempreg1 int_te: ldi YL,LOW(libmio_ram) ldi YH,HIGH(libmio_ram) lds ZL,libmio_config mov XL,vline_l sbrc vline_h,0 rjmp enable_sync cpi XL,240 brcc enable_sync clt ;disable sync ret enable_sync: set ;enable sync ret .include "vline_m0.asm" chipbasic2_1.28_source/vdriver/lcd_2x16/0000755000175000001440000000000011360424604017145 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_2x16/lcd216.asm0000755000175000001440000003034011336704467020660 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_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_charmap = libmio_vram .equ lcd_charmap_c = libmio_vram+256 .equ lcd_sys = libmio_vram+512 .equ lcd_cgmap = libmio_vram+704 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+640 .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_charline = lcd_sys+6 ;charline .equ lcd_cgptr = lcd_sys+8 ;CG counter .CSEG .org 0x7200 ; "...... N" start: .db " DUAL 2*16 N",0xff,0xf0,0x20 ;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 lcd216_init ;FKT 01 init rjmp lcd216_cls ;FKT 02 clear screen rjmp lcd216_char ;FKT 03 output char rjmp lcd216_gxy ;FKT 04 set cursor rjmp lcd216_plot ;FKT 05 plot rjmp lcd216_newl ;FKT 06 NL rjmp lcd216_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: 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 ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd216_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 lcd216_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_init rcall lcd_ccopy rcall lcd216_cls sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd216_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL 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,0 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ;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 ;------------------------------------------------------------------------------- lcd216_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd216_cls: api_pushxyz ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+256) ldi ZH,HIGH(libmio_vram+256) ldi XH,0 ldi XL,0x20 lcd216_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd216_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd216_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd216_char1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd216_char1 ;no Y overflow clr XH lcd216_char1: movw libmio_cur_x,XL st Y,tempreg1 lcd216_char2: api_popxyz lcd216_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd216_char4 ;no Y overflow clr XH lcd216_char4: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- lcd216_plot: ret ;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd216_vid: mov tempreg1,vline_l cpi tempreg1,90 brcs lcd216_nvid cpi tempreg1,128 brcc lcd216_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd216_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_charline,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd216_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd216_c2 ;write data rjmp lcd216_c1 ;prepare data lcd216_nvid_1: ret ;do nothing ;prepare data lcd216_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd216_c3 ;CG RAM service ;DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd216_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd216_c1_10 ;no Y overflow clr XH lcd216_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 lcd216_c1_20 ;yes, update ret lcd216_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 lcd216_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;CG RAM data lcd216_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd216_c3_10 ;no X overflow clr XL lcd216_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 lcd216_c3_20 ;yes, update ret lcd216_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 ;------------------------------------------------------------------------------ ; 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 255 Bytes movw ZL,YL inc ZH ;visible status is addr+256 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 ;------------------------------------------------------------------------------ lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret ;------------------------------------------------------------------------------- ; 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 ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden lcd_init: ldi tempreg2,10 lcd_init_1: api_sync dec tempreg2 brne lcd_init_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 .include "vline.asm" lcd_ctable: .include "generator/ctable.inc"chipbasic2_1.28_source/vdriver/lcd_2x16/vline.asm0000600000175000001440000000475111333333653020766 0ustar joergusers;calculate data for first char lcd_vline: ldi XL,20 lcd_predelay: dec XL brne lcd_predelay lds YH,lcd_charline ;cline lds YL,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 cpi YH,1 brcs lcd_dline_e subi YH,1 cpi YL,4 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 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 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_pixline lds ZH,lcd_charline ;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_pixline,YL sts lcd_charline,ZH ;2 new character line ret chipbasic2_1.28_source/vdriver/lcd_2x16/generator/0000777000175000001440000000000011330224517021135 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_2x16/generator/ctable.inc0000644000175000001440000002340011330224524023053 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 chipbasic2_1.28_source/vdriver/lcd_2x16/generator/generate_chartables.pl0000777000175000001440000000557011330224517025466 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # table generator for lcd driver # # copyright (c) 2009-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)>4) { $pix1=&get_pixel(); $pix2=&get_pixel(); $pix3=&get_pixel(); $pix4=&get_pixel(); $pix5=&get_pixel(); $mbyte=0; if ($pix1 > 0) { $mbyte+=16; } if ($pix2 > 0) { $mbyte+=8; } if ($pix3 > 0) { $mbyte+=4; } if ($pix4 > 0) { $mbyte+=2; } if ($pix5 > 0) { $mbyte+=1; } $mcell[$count*8+($cline)]=$mbyte; $cline++; if ($cline==8) { $cline=0; $count++; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### open (WTAB, ">ctable.inc"); for($i=32;$i<128;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } for($i=160;$i<256;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); chipbasic2_1.28_source/vdriver/lcd_2x16/generator/ctab_f0.dat0000777000175000001440000003633611330136463023145 0ustar joerguserscell-00 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-01 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-02 CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-03 CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-04 CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-05 CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-06 CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-07 CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-08 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-09 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-0a CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-0b CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-0c CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-0d CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-0e CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-0f CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-10 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-11 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-12 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-13 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-14 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-15 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-16 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-17 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-18 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-19 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-20-space ..... ..... ..... ..... ..... ..... ..... ..... cell-21-! ..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... ..... 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 xxx.. x..x. x...x x...x x...x x..x. xxx.. ..... 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..x. .xx.x ..... cell-52-R 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-YEN x...x .x.x. xxxxx ..x.. xxxxx ..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. .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 ..... ..... xxxx. x...x xxxx. x.... x.... ..... cell-71-q ..... ..... .xx.x x..xx .xxxx ....x ....x ..... 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 ..xx. ..... 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 .xxxx ....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 -> ..... ..x.. ...x. xxxxx ...x. ..x.. ..... ..... cell-7f <- ..... ..x.. .x... xxxxx .x... ..x.. ..... ..... cell-80 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-81 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-82 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-83 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-84 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-85 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-86 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-87 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-88 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-89 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-90 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-91 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-92 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-93 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-94 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-95 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-96 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-97 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-98 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-99 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-a0 ext ..... ..... ..... ..... ..... ..... ..... ..... cell-a1 ext ..... ..... ..... ..... xxx.. x.x.. xxx.. ..... cell-a2 ext ..xxx ..x.. ..x.. ..x.. ..... ..... ..... ..... cell-a3 ext ..... ..... ..... ..x.. ..x.. ..x.. xxx.. ..... cell-a4 ext ..... ..... ..... ..... x.... .x... ..x.. ..... cell-a5 ext ..... ..... ..... .xx.. .xx.. ..... ..... ..... cell-a6 ext ..... xxxxx ....x xxxxx ....x ...x. ..x.. ..... cell-a7 ext ..... ..... xxxxx ....x ...x. ..x.. .x... ..... cell-a8 ext ..... ..... ...x. ..x.. .xx.. x.x.. ..x.. ..... cell-a9 ext ..... ..x.. xxxxx x...x ....x ..xx. ..... ..... cell-aa ext ..... ..... ..... xxxxx ..x.. ..x.. xxxxx ..... cell-ab ext ..... ..... ...x. xxxxx ..xx. .x.x. x..x. ..... cell-ac ext ..... ..... .x... xxxxx .x..x .x.x. .x... ..... cell-ad ext ..... ..... ..... .xxx. ...x. ...x. xxxxx ..... cell-ae ext ..... ..... xxxx. ...x. xxxx. ...x. xxxx. ..... cell-af ext ..... ..... x.x.x x.x.x ....x ..xx. ..... ..... cell-b0 ext ..... ..... xxxxx ..... ..... ..... ..... ..... cell-b1 ext xxxxx ....x ..x.x ..xx. ..x.. ..x.. .x... ..... cell-b2 ext ....x ...x. ..x.. .xx.. x.x.. ..x.. ..x.. ..... cell-b3 ext ..x.. xxxxx x...x x...x ....x ...x. ..x.. ..... cell-b4 ext ..... xxxxx ..x.. ..x.. ..x.. ..x.. xxxxx ..... cell-b5 ext ...x. xxxxx ...x. ..xx. .x.x. x..x. ...x. ..... cell-b6 ext .x... xxxxx .x..x .x..x .x..x .x..x x..x. ..... cell-b7 ext ..x.. xxxxx ..x.. xxxxx ..x.. ..x.. ..x.. ..... cell-b8 ext ..... .xxxx .x..x x...x ....x ...x. .xx.. ..... cell-b9 ext .x... .xxxx x..x. ...x. ...x. ...x. ..x.. ..... cell-ba ext ..... xxxxx ....x ....x ....x ....x xxxxx ..... cell-bb ext .x.x. xxxxx .x.x. .x.x. ...x. ..x.. .x... ..... cell-bc ext ..... xx... ....x xx..x ....x ...x. xxx.. ..... cell-bd ext ..... xxxxx ....x ...x. ..x.. .x.x. x...x ..... cell-be ext .x... xxxxx .x..x .x.x. .x... .x... ..xxx ..... cell-bf ext ..... x...x x...x .x..x ....x ...x. .xx.. ..... cell-c0 ext ..... .xxxx .x..x ..x.x ...xx ...x. .xx.. ..... cell-c1 ext ...x. xxx.. ..x.. xxxxx ..x.. ..x.. .x... ..... cell-c2 ext ..... x.x.x x.x.x x.x.x ....x ...x. ..x.. ..... cell-c3 ext .xxx. ..... xxxxx ..x.. ..x.. ..x.. .x... ..... cell-c4 ext .x... .x... .x... .xx.. .x.x. .x... .x... ..... cell-c5 ext ..x.. ..x.. xxxxx ..x.. ..x.. .x... x.... ..... cell-c6 ext ..... .xxx. ..... ..... ..... ..... xxxxx ..... cell-c7 ext ..... xxxxx ....x .x.x. ..x.. .x.x. x.... ..... cell-c8 ext ..x.. xxxxx ...x. ..x.. .xxx. x.x.x ..x.. ..... cell-c9 ext ...x. ...x. ...x. ...x. ...x. ..x.. .x... ..... cell-ca ext ..... ..x.. ...x. x...x x...x x...x x...x ..... cell-cb ext x.... x.... xxxxx x.... x.... x.... .xxxx ..... cell-cc ext ..... xxxxx ....x ....x ....x ...x. .xx.. ..... cell-cd ext ..... .x... x.x.. ...x. ....x ....x ..... ..... cell-ce ext ..x.. xxxxx ..x.. ..x.. x.x.x x.x.x ..x.. ..... cell-cf ext ..... xxxxx ....x ....x .x.x. ..x.. ...x. ..... cell-d0 ext ..... .xxx. ..... .xxx. ..... .xxx. ....x ..... cell-d1 ext ..... ..x.. .x... x.... x...x xxxxx ....x ..... cell-d2 ext ..... ....x ....x .x.x. ..x.. .x.x. x.... ..... cell-d3 ext ..... xxxxx .x... xxxxx .x... .x... ..xxx ..... cell-d4 ext .x... .x... xxxxx .x..x .x.x. .x... .x... ..... cell-d5 ext ..... .xxx. ...x. ...x. ...x. ...x. xxxxx ..... cell-d6 ext ..... xxxxx ....x xxxxx ....x ....x xxxxx ..... cell-d7 ext .xxx. ..... xxxxx ....x ....x ...x. ..x.. ..... cell-d8 ext x..x. x..x. x..x. x..x. ...x. ..x.. .x... ..... cell-d9 ext ..... ..x.. x.x.. x.x.. x.x.x x.x.x x.xx. ..... cell-da ext ..... x.... x.... x...x x..x. x.x.. xx... ..... cell-db ext ..... xxxxx x...x x...x x...x xxxxx ..... ..... cell-dc ext ..... xxxxx x...x x...x ....x ...x. ..x.. ..... cell-dd ext ..... xx... ..... ....x ....x ...x. xxx.. ..... cell-de ext ..x.. x..x. .x... ..... ..... ..... ..... ..... cell-df ext xxx.. x.x.. xxx.. ..... ..... ..... ..... ..... cell-e0 ext ..... .x..x x.x.x x..x. x..x. .xx.x ..... ..... cell-e1 ext .x.x. ..... .xxx. ....x .xxxx x...x .xxxx ..... cell-e2 ext .xxx. x...x xxxx. x...x xxxx. x.... x.... ..... cell-e3 ext ..... .xxx. x.... .xx.. x...x .xxx. ..... ..... cell-e4 ext x...x x...x x...x x..xx xxx.x x.... x.... ..... cell-e5 ext ..... .xxxx x.x.. x..x. x...x .xxx. ..... ..... cell-e6 ext ..xx. .x..x x...x x...x xxxx. x.... x.... ..... cell-e7 ext .xxx. x...x x...x .xxxx ....x ....x .xxx. ..... cell-e8 ext ..... ..xxx ..x.. ..x.. x.x.. .x... ..... ..... cell-e9 ext ..... ...x. xx.x. ...x. ..... ..... ..... ..... cell-ea ext ...x. ..... ..xx. ...x. ...x. x..x. .xx.. ..... cell-eb ext x.x.. .x... x.x.. ..... ..... ..... ..... ..... cell-ec ext ..x.. .xxx. x.x.. x.x.x .xxx. ..x.. ..... ..... cell-ed ext .x... xxx.. .x... xxx.. .x... .x... .xxxx ..... cell-ee ext .xxx. ..... x.xx. xx..x x...x x...x x...x ..... cell-ef ext .x.x. ..... .xxx. x...x x...x x...x .xxx. ..... cell-f0 ext x.xx. xx..x x...x x...x xxxx. x.... x.... ..... cell-f1 ext .xx.x x..xx x...x xxxxx ....x ....x ....x ..... cell-f2 ext ..... .xxx. x...x xxxxx x...x x...x .xxx. ..... cell-f3 ext ..... ..... .x.xx x.x.x xx.x. ..... ..... ..... cell-f4 ext ..... ..... .xxx. x...x x...x .x.x. xx.xx ..... cell-f5 ext .x.x. ..... x...x x...x x...x x..xx .xx.x ..... cell-f6 ext xxxxx x.... .x... ..x.. .x... x.... xxxxx ..... cell-f7 ext ..... ..... xxxxx .x.x. .x.x. .x.x. x..xx ..... cell-f8 ext xxxxx ..... x...x .x.x. ..x.. .x.x. x...x ..... cell-f9 ext x...x x...x x...x .xxxx ....x ....x .xxx. ..... cell-fa ext ..... ....x xxxx. ..x.. xxxxx ..x.. ..x.. ..... cell-fb ext ..... xxxxx .x... .xxxx .x..x x...x ..... ..... cell-fc ext ..... xxxxx x.x.x xxxxx x...x x...x ..... ..... cell-fd ext ..... ..x.. ..... xxxxx ..... ..x.. ..... ..... cell-fe ext ..... ..... ..... ..... ..... ..... ..... ..... cell-ff ext xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx chipbasic2_1.28_source/vdriver/lcd_2x20/0000755000175000001440000000000011360424605017141 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_2x20/lcd220.asm0000755000175000001440000003034011336704534020641 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_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_charmap = libmio_vram .equ lcd_charmap_c = libmio_vram+256 .equ lcd_sys = libmio_vram+512 .equ lcd_cgmap = libmio_vram+704 ;CG RAM viewed buffer .equ lcd_charset = libmio_vram+640 .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_charline = lcd_sys+6 ;charline .equ lcd_cgptr = lcd_sys+8 ;CG counter .CSEG .org 0x7200 ; "...... N" start: .db " DUAL 2*20 N",0xff,0xf0,0x30 ;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 lcd220_init ;FKT 01 init rjmp lcd220_cls ;FKT 02 clear screen rjmp lcd220_char ;FKT 03 output char rjmp lcd220_gxy ;FKT 04 set cursor rjmp lcd220_plot ;FKT 05 plot rjmp lcd220_newl ;FKT 06 NL rjmp lcd220_vid ;FKT 07 video display ;------------------------------------------------------------------------------- ; input expansion ;------------------------------------------------------------------------------- inex: 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 ;------------------------------------------------------------------------------- ; init mode ;------------------------------------------------------------------------------- lcd220_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 lcd220_exit ;exit ldi XL,0xf0 out DDRA,XL sbi DDRB,1 sbi DDRB,2 rcall lcd_init rcall lcd_ccopy rcall lcd220_cls sts lcd_enable,const_1 ;enable update ldi XL,224 ;visible lines ret lcd220_exit: push XL out DDRA,const_0 ;input cbi DDRB,2 ;busy pop XL 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,0 lcd_ccopy_1: st Y+,const_0 dec XL brne lcd_ccopy_1 ;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 ;------------------------------------------------------------------------------- lcd220_gxy: movw libmio_cur_x,XL ;save X,Y-position ret ;------------------------------------------------------------------------------- ; set cursor to position XL:XH ;------------------------------------------------------------------------------- lcd220_cls: api_pushxyz ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi ZL,LOW(libmio_vram+256) ldi ZH,HIGH(libmio_vram+256) ldi XH,0 ldi XL,0x20 lcd220_cls_2: st Y+,XL st Z+,const_0 dec XH brne lcd220_cls_2 mov libmio_cur_x,const_0 mov libmio_cur_y,const_0 api_popxyz ;------------------------------------------------------------------------------- ; output char ;------------------------------------------------------------------------------- lcd220_char: api_pushxyz movw XL,libmio_cur_x ;get coordinates rcall lcd_acalc inc XL cpi XL,lcd_cols brcs lcd220_char1 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd220_char1 ;no Y overflow clr XH lcd220_char1: movw libmio_cur_x,XL st Y,tempreg1 lcd220_char2: api_popxyz lcd220_newl: api_pushxyz movw XL,libmio_cur_x ;get coordinates clr XL inc XH cpi XH,lcd_rows brcs lcd220_char4 ;no Y overflow clr XH lcd220_char4: movw libmio_cur_x,XL api_popxyz ;------------------------------------------------------------------------------- ; plot XL=X XH=Y ;------------------------------------------------------------------------------- lcd220_plot: ret ;------------------------------------------------------------------------------ ; dual mode (BAS/LCD) out ;------------------------------------------------------------------------------ lcd220_vid: mov tempreg1,vline_l cpi tempreg1,90 brcs lcd220_nvid cpi tempreg1,128 brcc lcd220_nvid rcall lcd_vline ;tv color line ret ;end of vout routine -> VS/Frame handling lcd220_nvid: sts lcd_pixline,const_0 ;pixline sts lcd_charline,const_0 ;charline lds XL,lcd_enable ;enable update? cpi XL,0 breq lcd220_nvid_1 ;no update lds XL,lcd_datavalid ;data to write? cpi XL,1 ;check breq lcd220_c2 ;write data rjmp lcd220_c1 ;prepare data lcd220_nvid_1: ret ;do nothing ;prepare data lcd220_c1: sbrc vline_l,2 ;cg/dd switch rjmp lcd220_c3 ;CG RAM service ;DD RAM data lds XL,lcd_colcount ;col counter lds XH,lcd_rowcount ;row counter inc XL cpi XL,lcd_cols brcs lcd220_c1_10 ;no X overflow clr XL inc XH cpi XH,lcd_rows brcs lcd220_c1_10 ;no Y overflow clr XH lcd220_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 lcd220_c1_20 ;yes, update ret lcd220_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 lcd220_c2: sts lcd_datavalid,const_0 ;clear write flag lds tempreg1,lcd_databyte ;data to write rjmp lcd_dout ;data output ;CG RAM data lcd220_c3: lds XL,lcd_cgptr ;cg ram counter inc XL cpi XL,64 brcs lcd220_c3_10 ;no X overflow clr XL lcd220_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 lcd220_c3_20 ;yes, update ret lcd220_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 ;------------------------------------------------------------------------------ ; 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 255 Bytes movw ZL,YL inc ZH ;visible status is addr+256 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 ;------------------------------------------------------------------------------ lcd_pcalc: ldi ZL,64 mul ZL,XH mov tempreg1,r0 add tempreg1,XL ret ;------------------------------------------------------------------------------- ; 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 ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden lcd_init: ldi tempreg2,10 lcd_init_1: api_sync dec tempreg2 brne lcd_init_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 .include "vline.asm" lcd_ctable: .include "generator/ctable.inc"chipbasic2_1.28_source/vdriver/lcd_2x20/vline.asm0000600000175000001440000000465011333331764020760 0ustar joergusers;calculate data for first char lcd_vline: lds YH,lcd_charline ;cline lds YL,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 cpi YH,1 brcs lcd_dline_e subi YH,1 cpi YL,4 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 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 nop lcd_dline: ldi tempreg2,172 lcd_dline_1: dec tempreg2 nop nop brne lcd_dline_1 nop lcd_nline: pop tempreg4 lds tempreg2,libmio_border ;2 lds YL,lcd_pixline lds ZH,lcd_charline ;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_pixline,YL sts lcd_charline,ZH ;2 new character line ret chipbasic2_1.28_source/vdriver/lcd_2x20/generator/0000777000175000001440000000000011330224517021130 5ustar joerguserschipbasic2_1.28_source/vdriver/lcd_2x20/generator/ctable.inc0000644000175000001440000002340011330224524023046 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 chipbasic2_1.28_source/vdriver/lcd_2x20/generator/generate_chartables.pl0000777000175000001440000000557011330224517025461 0ustar joergusers#!/usr/bin/perl ################################################################################# # # # table generator for lcd driver # # copyright (c) 2009-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)>4) { $pix1=&get_pixel(); $pix2=&get_pixel(); $pix3=&get_pixel(); $pix4=&get_pixel(); $pix5=&get_pixel(); $mbyte=0; if ($pix1 > 0) { $mbyte+=16; } if ($pix2 > 0) { $mbyte+=8; } if ($pix3 > 0) { $mbyte+=4; } if ($pix4 > 0) { $mbyte+=2; } if ($pix5 > 0) { $mbyte+=1; } $mcell[$count*8+($cline)]=$mbyte; $cline++; if ($cline==8) { $cline=0; $count++; } } } close(RTAB); ############################################################################### # write chartable ############################################################################### open (WTAB, ">ctable.inc"); for($i=32;$i<128;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } for($i=160;$i<256;$i++) { print WTAB " .db "; for($j=0;$j<8;$j++) { $cellpos=$i*8+$j; $y=$mcell[$cellpos]; if ($y<1) {printf WTAB "0x00"} else {printf WTAB "%#2.2x",$y}; if ($j<7) {print WTAB ","} else {print WTAB "\n"}; } } close(WTAB); chipbasic2_1.28_source/vdriver/lcd_2x20/generator/ctab_f0.dat0000777000175000001440000003633611330136463023140 0ustar joerguserscell-00 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-01 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-02 CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-03 CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-04 CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-05 CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-06 CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-07 CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-08 CG1 ..... ..... ..... ..... ..... ..... ..... ..... cell-09 CG2 ..... ..... ..... ..... ..... ..... ..... ..... cell-0a CG3 ..... ..... ..... ..... ..... ..... ..... ..... cell-0b CG4 ..... ..... ..... ..... ..... ..... ..... ..... cell-0c CG5 ..... ..... ..... ..... ..... ..... ..... ..... cell-0d CG6 ..... ..... ..... ..... ..... ..... ..... ..... cell-0e CG7 ..... ..... ..... ..... ..... ..... ..... ..... cell-0f CG8 ..... ..... ..... ..... ..... ..... ..... ..... cell-10 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-11 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-12 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-13 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-14 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-15 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-16 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-17 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-18 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-19 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-1f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-20-space ..... ..... ..... ..... ..... ..... ..... ..... cell-21-! ..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... ..... 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 xxx.. x..x. x...x x...x x...x x..x. xxx.. ..... 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..x. .xx.x ..... cell-52-R 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-YEN x...x .x.x. xxxxx ..x.. xxxxx ..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. .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 ..... ..... xxxx. x...x xxxx. x.... x.... ..... cell-71-q ..... ..... .xx.x x..xx .xxxx ....x ....x ..... 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 ..xx. ..... 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 .xxxx ....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 -> ..... ..x.. ...x. xxxxx ...x. ..x.. ..... ..... cell-7f <- ..... ..x.. .x... xxxxx .x... ..x.. ..... ..... cell-80 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-81 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-82 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-83 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-84 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-85 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-86 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-87 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-88 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-89 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-8f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-90 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-91 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-92 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-93 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-94 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-95 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-96 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-97 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-98 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-99 unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9a unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9b unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9c unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9d unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9e unused ..... ..... ..... ..... ..... ..... ..... ..... cell-9f unused ..... ..... ..... ..... ..... ..... ..... ..... cell-a0 ext ..... ..... ..... ..... ..... ..... ..... ..... cell-a1 ext ..... ..... ..... ..... xxx.. x.x.. xxx.. ..... cell-a2 ext ..xxx ..x.. ..x.. ..x.. ..... ..... ..... ..... cell-a3 ext ..... ..... ..... ..x.. ..x.. ..x.. xxx.. ..... cell-a4 ext ..... ..... ..... ..... x.... .x... ..x.. ..... cell-a5 ext ..... ..... ..... .xx.. .xx.. ..... ..... ..... cell-a6 ext ..... xxxxx ....x xxxxx ....x ...x. ..x.. ..... cell-a7 ext ..... ..... xxxxx ....x ...x. ..x.. .x... ..... cell-a8 ext ..... ..... ...x. ..x.. .xx.. x.x.. ..x.. ..... cell-a9 ext ..... ..x.. xxxxx x...x ....x ..xx. ..... ..... cell-aa ext ..... ..... ..... xxxxx ..x.. ..x.. xxxxx ..... cell-ab ext ..... ..... ...x. xxxxx ..xx. .x.x. x..x. ..... cell-ac ext ..... ..... .x... xxxxx .x..x .x.x. .x... ..... cell-ad ext ..... ..... ..... .xxx. ...x. ...x. xxxxx ..... cell-ae ext ..... ..... xxxx. ...x. xxxx. ...x. xxxx. ..... cell-af ext ..... ..... x.x.x x.x.x ....x ..xx. ..... ..... cell-b0 ext ..... ..... xxxxx ..... ..... ..... ..... ..... cell-b1 ext xxxxx ....x ..x.x ..xx. ..x.. ..x.. .x... ..... cell-b2 ext ....x ...x. ..x.. .xx.. x.x.. ..x.. ..x.. ..... cell-b3 ext ..x.. xxxxx x...x x...x ....x ...x. ..x.. ..... cell-b4 ext ..... xxxxx ..x.. ..x.. ..x.. ..x.. xxxxx ..... cell-b5 ext ...x. xxxxx ...x. ..xx. .x.x. x..x. ...x. ..... cell-b6 ext .x... xxxxx .x..x .x..x .x..x .x..x x..x. ..... cell-b7 ext ..x.. xxxxx ..x.. xxxxx ..x.. ..x.. ..x.. ..... cell-b8 ext ..... .xxxx .x..x x...x ....x ...x. .xx.. ..... cell-b9 ext .x... .xxxx x..x. ...x. ...x. ...x. ..x.. ..... cell-ba ext ..... xxxxx ....x ....x ....x ....x xxxxx ..... cell-bb ext .x.x. xxxxx .x.x. .x.x. ...x. ..x.. .x... ..... cell-bc ext ..... xx... ....x xx..x ....x ...x. xxx.. ..... cell-bd ext ..... xxxxx ....x ...x. ..x.. .x.x. x...x ..... cell-be ext .x... xxxxx .x..x .x.x. .x... .x... ..xxx ..... cell-bf ext ..... x...x x...x .x..x ....x ...x. .xx.. ..... cell-c0 ext ..... .xxxx .x..x ..x.x ...xx ...x. .xx.. ..... cell-c1 ext ...x. xxx.. ..x.. xxxxx ..x.. ..x.. .x... ..... cell-c2 ext ..... x.x.x x.x.x x.x.x ....x ...x. ..x.. ..... cell-c3 ext .xxx. ..... xxxxx ..x.. ..x.. ..x.. .x... ..... cell-c4 ext .x... .x... .x... .xx.. .x.x. .x... .x... ..... cell-c5 ext ..x.. ..x.. xxxxx ..x.. ..x.. .x... x.... ..... cell-c6 ext ..... .xxx. ..... ..... ..... ..... xxxxx ..... cell-c7 ext ..... xxxxx ....x .x.x. ..x.. .x.x. x.... ..... cell-c8 ext ..x.. xxxxx ...x. ..x.. .xxx. x.x.x ..x.. ..... cell-c9 ext ...x. ...x. ...x. ...x. ...x. ..x.. .x... ..... cell-ca ext ..... ..x.. ...x. x...x x...x x...x x...x ..... cell-cb ext x.... x.... xxxxx x.... x.... x.... .xxxx ..... cell-cc ext ..... xxxxx ....x ....x ....x ...x. .xx.. ..... cell-cd ext ..... .x... x.x.. ...x. ....x ....x ..... ..... cell-ce ext ..x.. xxxxx ..x.. ..x.. x.x.x x.x.x ..x.. ..... cell-cf ext ..... xxxxx ....x ....x .x.x. ..x.. ...x. ..... cell-d0 ext ..... .xxx. ..... .xxx. ..... .xxx. ....x ..... cell-d1 ext ..... ..x.. .x... x.... x...x xxxxx ....x ..... cell-d2 ext ..... ....x ....x .x.x. ..x.. .x.x. x.... ..... cell-d3 ext ..... xxxxx .x... xxxxx .x... .x... ..xxx ..... cell-d4 ext .x... .x... xxxxx .x..x .x.x. .x... .x... ..... cell-d5 ext ..... .xxx. ...x. ...x. ...x. ...x. xxxxx ..... cell-d6 ext ..... xxxxx ....x xxxxx ....x ....x xxxxx ..... cell-d7 ext .xxx. ..... xxxxx ....x ....x ...x. ..x.. ..... cell-d8 ext x..x. x..x. x..x. x..x. ...x. ..x.. .x... ..... cell-d9 ext ..... ..x.. x.x.. x.x.. x.x.x x.x.x x.xx. ..... cell-da ext ..... x.... x.... x...x x..x. x.x.. xx... ..... cell-db ext ..... xxxxx x...x x...x x...x xxxxx ..... ..... cell-dc ext ..... xxxxx x...x x...x ....x ...x. ..x.. ..... cell-dd ext ..... xx... ..... ....x ....x ...x. xxx.. ..... cell-de ext ..x.. x..x. .x... ..... ..... ..... ..... ..... cell-df ext xxx.. x.x.. xxx.. ..... ..... ..... ..... ..... cell-e0 ext ..... .x..x x.x.x x..x. x..x. .xx.x ..... ..... cell-e1 ext .x.x. ..... .xxx. ....x .xxxx x...x .xxxx ..... cell-e2 ext .xxx. x...x xxxx. x...x xxxx. x.... x.... ..... cell-e3 ext ..... .xxx. x.... .xx.. x...x .xxx. ..... ..... cell-e4 ext x...x x...x x...x x..xx xxx.x x.... x.... ..... cell-e5 ext ..... .xxxx x.x.. x..x. x...x .xxx. ..... ..... cell-e6 ext ..xx. .x..x x...x x...x xxxx. x.... x.... ..... cell-e7 ext .xxx. x...x x...x .xxxx ....x ....x .xxx. ..... cell-e8 ext ..... ..xxx ..x.. ..x.. x.x.. .x... ..... ..... cell-e9 ext ..... ...x. xx.x. ...x. ..... ..... ..... ..... cell-ea ext ...x. ..... ..xx. ...x. ...x. x..x. .xx.. ..... cell-eb ext x.x.. .x... x.x.. ..... ..... ..... ..... ..... cell-ec ext ..x.. .xxx. x.x.. x.x.x .xxx. ..x.. ..... ..... cell-ed ext .x... xxx.. .x... xxx.. .x... .x... .xxxx ..... cell-ee ext .xxx. ..... x.xx. xx..x x...x x...x x...x ..... cell-ef ext .x.x. ..... .xxx. x...x x...x x...x .xxx. ..... cell-f0 ext x.xx. xx..x x...x x...x xxxx. x.... x.... ..... cell-f1 ext .xx.x x..xx x...x xxxxx ....x ....x ....x ..... cell-f2 ext ..... .xxx. x...x xxxxx x...x x...x .xxx. ..... cell-f3 ext ..... ..... .x.xx x.x.x xx.x. ..... ..... ..... cell-f4 ext ..... ..... .xxx. x...x x...x .x.x. xx.xx ..... cell-f5 ext .x.x. ..... x...x x...x x...x x..xx .xx.x ..... cell-f6 ext xxxxx x.... .x... ..x.. .x... x.... xxxxx ..... cell-f7 ext ..... ..... xxxxx .x.x. .x.x. .x.x. x..xx ..... cell-f8 ext xxxxx ..... x...x .x.x. ..x.. .x.x. x...x ..... cell-f9 ext x...x x...x x...x .xxxx ....x ....x .xxx. ..... cell-fa ext ..... ....x xxxx. ..x.. xxxxx ..x.. ..x.. ..... cell-fb ext ..... xxxxx .x... .xxxx .x..x x...x ..... ..... cell-fc ext ..... xxxxx x.x.x xxxxx x...x x...x ..... ..... cell-fd ext ..... ..x.. ..... xxxxx ..... ..x.. ..... ..... cell-fe ext ..... ..... ..... ..... ..... ..... ..... ..... cell-ff ext xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx xxxxx chipbasic2_1.28_source/vdriver/vecmode/0000755000175000001440000000000011360424606017247 5ustar joerguserschipbasic2_1.28_source/vdriver/vecmode/vecmode.asm0000755000175000001440000003764511356040754021420 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 "VMODE-Vect01N",0xff,0xe0,0x01 ;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 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 rjmp vecmode_cvec ;FKT 08 clear vector rjmp vecmode_cfill ;FKT 09 lineptr constant fill rjmp vecmode_ifill ;FKT 10 lineptr incremental fill rjmp vecmode_dfill ;FKT 11 lineptr decremental fill rjmp vecmode_afill ;FKT 12 lineptr array fill rjmp vecmode_pcopy ;FKT 13 lineptr copy rjmp vecmode_kfill ;FKT 14 line fill from array (constant) rjmp vecmode_lfill ;FKT 15 line fill from array 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 chipbasic2_1.28_source/license0000666000175000001440000010451311170442503015514 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 . chipbasic2_1.28_source/system/0000777000175000001440000000000011360424340015467 5ustar joerguserschipbasic2_1.28_source/system/api.asm0000777000175000001440000002317011355732655016767 0ustar joergusers;################################################################################ ;# # ;# AVR-ChipBasic2 - single chip basic computer with ATmega644 # ;# binfile API # ;# 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 # ;# 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. # ;# # ;################################################################################ ;-------------------------------------------------------------------------------- ;get access to compress and decompress routines ;-------------------------------------------------------------------------------- clin_ext: api_token: jmp clin_main xlin_ext: api_untoken: jmp xlin_main ;-------------------------------------------------------------------------------- ;API version ;-------------------------------------------------------------------------------- api_version: ldi tempreg1,0x02 ret ;-------------------------------------------------------------------------------- ;push/pop functions ;-------------------------------------------------------------------------------- api_popxyz: rjmp popxyz api_pushxyz: rjmp pushxyz api_popregs: rjmp popxyzr api_pushregs: rjmp pushxyzr ;-------------------------------------------------------------------------------- ;pointer functions ;-------------------------------------------------------------------------------- ;get vram address to Y api_getvram: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ret ;get sysram address to Y api_getsysram: ldi YL,LOW(libmio_ram) ldi YH,HIGH(libmio_ram) ret ;get palette address to Y api_getpal: ldi YL,LOW(libmio_palette) ldi YH,HIGH(libmio_palette) ret ;get array address to Y api_getarray: ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) ret ;get charset 0 address to Z api_getchart0: ldi ZL,LOW(libmio_ctable*2) ldi ZH,HIGH(libmio_ctable*2) ret ;get charset 1 address to Z api_getchart1: ldi ZL,LOW(libmio_ctable*2) ldi ZH,HIGH(libmio_ctable*2) ret ;get address of basic buffers api_getbuffer: ldi YL,LOW(bas_inbuf) ldi YH,HIGH(bas_inbuf) ret ;get values address to Y api_getvalues: ldi YL,LOW(bas_values) ldi YH,HIGH(bas_values) ret ;get program base address to Z api_getbase_0: pop ZH ;get return address high byte push ZH mov ZL,ZH subi ZL,0x48 ;sub base ldi ZH,0x42 ;base api_getbase_1: subi ZH,0xfa ;+6 subi ZL,0x06 brcc api_getbase_1 clr ZL brtc api_getbase_2 add ZL,XL adc ZH,XH lsl ZL rol ZH api_getbase_2: ret ;get program address (offset X) to Z api_dataptr: set rjmp api_getbase_0 api_getbase: clt rjmp api_getbase_0 ;get program number (0..7) to ZL api_getprog: pop ZH ;get return address high byte push ZH ldi ZL,0 subi ZL,0x48 ;sub base api_getprog_1: subi ZL,0x06 brcs api_getprog_2 inc ZL rjmp api_getprog_1 api_getprog_2: ret ;-------------------------------------------------------------------------------- ;settings XL=value ;-------------------------------------------------------------------------------- api_setcolor: jmp libmio_setcol api_setfcolor: jmp libmio_setfgc api_setborder: jmp libmio_setbrd api_setvmode: jmp libmio_svmode api_setpalette: jmp libmio_setpal api_sync: jmp libmio_sync api_slow: jmp libmio_vidon api_fast: jmp libmio_vidoff api_setchannel: jmp libmio_setchan api_setfont: jmp libmio_setfont ;-------------------------------------------------------------------------------- ;text functions r20=value ;-------------------------------------------------------------------------------- api_clrscr: jmp libmio_clr api_outchar: jmp libmio_char api_outdez: jmp libmio_outd api_outhex: jmp libmio_outh api_gotoxy: jmp libmio_gxy api_romtext: jmp libmio_orom api_thistext: jmp libmio_othis api_cbox: clt jmp libmio_cbox api_ibox: set jmp libmio_cbox api_scroll: jmp libmio_scrl api_newline: jmp libmio_newline api_sprite: jmp libmio_spritex api_cursor: call libmio_gxy jmp libmio_cursor ;-------------------------------------------------------------------------------- ;keyboard functions r20=value ;-------------------------------------------------------------------------------- api_waitkey: jmp libmio_waitkey api_nokey: jmp libmio_nokey api_kstate: lds tempreg1,libmio_kbdstate andi tempreg1,0x1f ret api_kflags: lds tempreg1,libmio_kflags ret api_getkey: lds tempreg1,libmio_keycode ret api_lastkey: lds tempreg1,libmio_lastkey ret ;------------------------------------------------------------------------------- ; comm functions ;------------------------------------------------------------------------------- api_putser: jmp libmio_pser api_getser: jmp libmio_gser api_getserb: jmp libmio_gserb api_putser2: jmp libmio_pser2 api_getser2: jmp libmio_gser2 api_getserb2: jmp libmio_gserb2 api_putpar: jmp libmio_ppar api_putxm: jmp libmio_txbl api_getxm: jmp libmio_rxbl api_putsernl: jmp libmio_sernl api_putsernl2: jmp libmio_sernl2 api_baud2: jmp libmio_baud2 api_hexline: jmp libmio_scrs_li ;------------------------------------------------------------------------------- ; graphic functions ;------------------------------------------------------------------------------- api_plot: jmp libmio_plot api_draw: jmp libmio_draw api_box: jmp libmio_box api_fbox: jmp libmio_fbox api_circle: call bas_g4c_1 jmp libmio_circle api_fcircle: call bas_g4c_1 jmp libmio_fcircle api_bcopy1: jmp libmio_bc1 api_bcopy2: jmp libmio_bc2 api_bcopy3: jmp libmio_bc3 ;------------------------------------------------------------------------------- ; GUI ;------------------------------------------------------------------------------- api_menu: jmp libmio_dmenu api_drawmenu: jmp libmio_domenu api_alert: jmp libmio_abox1 api_ask: jmp libmio_ynbox1 api_alertthis: jmp libmio_abox api_askthis: jmp libmio_ynbox api_wbox: jmp libmio_wbox api_whbox: jmp libmio_whbox ;------------------------------------------------------------------------------- ; sound ;------------------------------------------------------------------------------- api_note: jmp libmio_note api_setvolume: jmp libmio_setvol api_startseq: jmp libmio_startsq api_setseq: jmp libmio_setseq api_getseq: jmp libmio_getseq ;------------------------------------------------------------------------------- ; I2C ;------------------------------------------------------------------------------- api_i2c_read: jmp libi2c_read api_i2c_write: jmp libi2c_write api_i2c_start: jmp libi2c_start api_i2c_stop: jmp libi2c_stop api_i2c_rbyte: jmp libi2c_rbyte api_i2c_rbyten: jmp libi2c_rbyten api_i2c_wbyte: jmp libi2c_wbyte api_i2c_rlm75: jmp libi2c_rlm75 ;------------------------------------------------------------------------------- ; EEPROM ;------------------------------------------------------------------------------- api_eep_read: jmp libeep_read api_eep_write: jmp libeep_write ;------------------------------------------------------------------------------- ; Math ;------------------------------------------------------------------------------- api_abs: jmp expar_absa api_add: jmp expar_add api_sub: jmp expar_sub api_mul: jmp expar_mul api_div: jmp expar_div api_sin: jmp expar_sin api_cos: jmp expar_cos api_eq: jmp expar_eq api_lt: jmp expar_gt api_gt: jmp expar_lt api_sqr: jmp expar_sqr_u api_rnd: jmp expar_rnd api_adc: jmp expar_adc api_dbit: jmp expar_dbit ;------------------------------------------------------------------------------- ; Dataflash ;------------------------------------------------------------------------------- api_fs_create: jmp libdfl_createa api_fs_delete: jmp libdfl_dela api_fs_read: jmp libdfl_read api_fs_write: jmp libdfl_write api_fs_cfree: jmp libdfl_cfree api_fs_size: jmp libdfl_size api_fs_checkf: jmp libdfl_cif api_fs_gettype: call libdfl_gheada jmp libdfl_gtype api_fs_rread: clr ereg call libdfl_bread jmp libdfl_rdbuf api_fs_rwrite: clr ereg call libdfl_wrbuf jmp libdfl_bwrite api_fs_fsize: jmp expar_fsize api_fs_ffind: jmp expar_ffind ;------------------------------------------------------------------------------- ; misc ;------------------------------------------------------------------------------- api_copychar4: jmp libmio_cpbits4 api_copychar6: jmp libmio_cpbits6 api_basrun: jmp basrun api_exparser: jmp expar api_tparser: jmp tparser api_lfind: jmp lfind api_lcall: jmp lcall api_preceive: jmp recv_prog_a api_psend: jmp send_prog_a api_wpage: jmp mem_writepage ;------------------------------------------------------------------------------- ; VM0 jumps ;------------------------------------------------------------------------------- api_vm0line: pop r0 pop r0 jmp libmio_tvc_0 api_vm0cls: rcall pushxyz jmp libmio_fill api_vm0char: push XL push XH jmp libmio_char_ap api_vm0gotoxy: jmp libmio_gxy_ap api_vm0plot: jmp libmio_iplot api_vm0newline: push XL push XH jmp libmio_nlap ;------------------------------------------------------------------------------- ; screen save/restore ;------------------------------------------------------------------------------- api_sbackup: jmp mon_backup api_srestore: jmp mon_restore api_screenshot: jmp libmio_scrs chipbasic2_1.28_source/system/api.inc0000666000175000001440000001173511357172272016754 0ustar joergusers;###################################################################### ;# # ;# AVR ChipBasic2 API V1.25 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_dataptr = 0x004f .equ api_getbase = 0x0051 .equ api_getprog = 0x0053 .equ api_getprog_1 = 0x0057 .equ api_getprog_2 = 0x005b .equ api_setcolor = 0x005c .equ api_setfcolor = 0x005e .equ api_setborder = 0x0060 .equ api_setvmode = 0x0062 .equ api_setpalette = 0x0064 .equ api_sync = 0x0066 .equ api_slow = 0x0068 .equ api_fast = 0x006a .equ api_setchannel = 0x006c .equ api_setfont = 0x006e .equ api_clrscr = 0x0070 .equ api_outchar = 0x0072 .equ api_outdez = 0x0074 .equ api_outhex = 0x0076 .equ api_gotoxy = 0x0078 .equ api_romtext = 0x007a .equ api_thistext = 0x007c .equ api_cbox = 0x007e .equ api_ibox = 0x0081 .equ api_scroll = 0x0084 .equ api_newline = 0x0086 .equ api_sprite = 0x0088 .equ api_cursor = 0x008a .equ api_waitkey = 0x008e .equ api_nokey = 0x0090 .equ api_kstate = 0x0092 .equ api_kflags = 0x0096 .equ api_getkey = 0x0099 .equ api_lastkey = 0x009c .equ api_putser = 0x009f .equ api_getser = 0x00a1 .equ api_getserb = 0x00a3 .equ api_putser2 = 0x00a5 .equ api_getser2 = 0x00a7 .equ api_getserb2 = 0x00a9 .equ api_putpar = 0x00ab .equ api_putxm = 0x00ad .equ api_getxm = 0x00af .equ api_putsernl = 0x00b1 .equ api_putsernl2 = 0x00b3 .equ api_baud2 = 0x00b5 .equ api_hexline = 0x00b7 .equ api_plot = 0x00b9 .equ api_draw = 0x00bb .equ api_box = 0x00bd .equ api_fbox = 0x00bf .equ api_circle = 0x00c1 .equ api_fcircle = 0x00c5 .equ api_bcopy1 = 0x00c9 .equ api_bcopy2 = 0x00cb .equ api_bcopy3 = 0x00cd .equ api_menu = 0x00cf .equ api_drawmenu = 0x00d1 .equ api_alert = 0x00d3 .equ api_ask = 0x00d5 .equ api_alertthis = 0x00d7 .equ api_askthis = 0x00d9 .equ api_wbox = 0x00db .equ api_whbox = 0x00dd .equ api_note = 0x00df .equ api_setvolume = 0x00e1 .equ api_startseq = 0x00e3 .equ api_setseq = 0x00e5 .equ api_getseq = 0x00e7 .equ api_i2c_read = 0x00e9 .equ api_i2c_write = 0x00eb .equ api_i2c_start = 0x00ed .equ api_i2c_stop = 0x00ef .equ api_i2c_rbyte = 0x00f1 .equ api_i2c_rbyten = 0x00f3 .equ api_i2c_wbyte = 0x00f5 .equ api_i2c_rlm75 = 0x00f7 .equ api_eep_read = 0x00f9 .equ api_eep_write = 0x00fb .equ api_abs = 0x00fd .equ api_add = 0x00ff .equ api_sub = 0x0101 .equ api_mul = 0x0103 .equ api_div = 0x0105 .equ api_sin = 0x0107 .equ api_cos = 0x0109 .equ api_eq = 0x010b .equ api_lt = 0x010d .equ api_gt = 0x010f .equ api_sqr = 0x0111 .equ api_rnd = 0x0113 .equ api_adc = 0x0115 .equ api_dbit = 0x0117 .equ api_fs_create = 0x0119 .equ api_fs_delete = 0x011b .equ api_fs_read = 0x011d .equ api_fs_write = 0x011f .equ api_fs_cfree = 0x0121 .equ api_fs_size = 0x0123 .equ api_fs_checkf = 0x0125 .equ api_fs_gettype = 0x0127 .equ api_fs_rread = 0x012b .equ api_fs_rwrite = 0x0130 .equ api_fs_fsize = 0x0135 .equ api_fs_ffind = 0x0137 .equ api_copychar4 = 0x0139 .equ api_copychar6 = 0x013b .equ api_basrun = 0x013d .equ api_exparser = 0x013f .equ api_tparser = 0x0141 .equ api_lfind = 0x0143 .equ api_lcall = 0x0145 .equ api_preceive = 0x0147 .equ api_psend = 0x0149 .equ api_wpage = 0x014b .equ api_vm0line = 0x014d .equ api_vm0cls = 0x0151 .equ api_vm0char = 0x0154 .equ api_vm0gotoxy = 0x0158 .equ api_vm0plot = 0x015a .equ api_vm0newline = 0x015c .equ api_sbackup = 0x0160 .equ api_srestore = 0x0162 .equ api_screenshot = 0x0164 chipbasic2_1.28_source/system/main.asm0000777000175000001440000001555411353223020017124 0ustar joergusers;################################################################################ ;# # ;# single chip basic computer with ATmega644 # ;# 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 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. # ;# # ;################################################################################ .CSEG .include "m644Pdef.inc" .include "libdef.asm" ;register definitions .equ libmio_palette = 0x100 ;16 bytes video palette .equ bas_mta = 0x110 ;4 bytes basic multitasking .equ libmio_ram = 0x114 ;84 bytes libmio system RAM .equ bas_ram = 0x168 ;16 bytes basic system RAM .equ bas_partab = 0x178 ;16 bytes basic parameter .equ bcopy_buffer = 0x188 ;bcopy line buffer uses the input space .equ bas_inbuf = 0x188 ;40 bytes input buffer .equ bas_linebuf = 0x1b0 ;40 bytes line buffer .equ libmio_vram = 0x1d8 ;690 bytes of video RAM (pixel) .equ libmio_vram_a = 0x48a ;690 bytes of video RAM (attributes) .equ mon_bpage = 0x73c ;690 bytes backup page (pixel) .equ mon_bpage_a = 0x9ee ;690 bytes backup page (attributes) .equ varspace = 0xca0 ;52 bytes basic variables .equ expar_ros = 0xcfa ;38 bytes calculator stack .equ bas_stacks = 0xcfc ;55 bytes basic stacks .equ bas_values = 0xd2e ;14 Bytes parameters and return values .equ bas_array = 0xd3c ;768 Bytes Array .equ libdfl_buffer = 0xf3c ;libdfl uses a part of the array .equ libi2c_buffer = 0xf30 ;libi2c uses a part of the array .equ libdfl_ram = 0x109c ;16 Bytes libdfl system RAM .equ stack = 0x10ff ;60 bytes stack .include "modules/definitions.asm" .include "libmio/definitions.asm" .include "libeep/definitions.asm" .include "libi2c/definitions.asm" .include "macros.inc" .set bas_lines=95 .set bas_stackdepth = 10 .set bas_maxprog = 8 .org 0x0000 rjmp start .org 0x0004 .db 0x56,0x78 .org OC1Aaddr libmio_vint ;video interrupt .org OC1Baddr libmio_bint ;border-end-interrupt .org 0x001e .include "api.asm" start: cli ldi XL,0x00 mov const_0,XL ldi XL,0x01 mov const_1,XL ldi XL,HIGH(stack) out SPH,XL ldi XL,LOW(stack) out SPL,XL libmio_init libi2c_init call mem_getconf libmio_sysconf ldi ZL,0xcc ;UBRR1L clr ZH ld tempreg1,Z ldi tempreg2,0xa5 st Z,tempreg2 ld tempreg2,Z st Z,tempreg1 lds XL,libmio_config andi XL,0xef cpi tempreg2,0xa5 brne main_m644 lds XH,libmio_sysconf sbrs XH,5 ;skip if PD3 is serial IN ori XL,0x10 main_m644: sts libmio_config,XL libmio_clrscr ldi XL,0xff sts bas_mta,XL sts libmio_serio,XL sts libmio_lastmenu,const_0 ;reset menu clr XL libmio_setvmode sts libmio_seqspeed,const_0 wloop4: clr ereg sts libmio_kflags,const_0 sts libmio_keycode,const_0 sei loop: jmp intro_main ;main menu loop2: swap tempreg1 dec tempreg1 sts libmio_lastmenu,tempreg1 ldi XL,0x07 libmio_setcolor clr XL libmio_setborder libmio_clrscr call menu_runprog ;run program libmio_waitkey rjmp start ;run again popxyz: pop XL pop XH pop YL pop YH pop ZL pop ZH ret pushxyz: pop r0 pop r1 push ZH push ZL push YH push YL push XH push XL push r1 push r0 ret .macro pop_ptr jmp popxyz .endm .macro push_ptr call pushxyz .endm popxyzr: pop tempreg4 pop tempreg3 pop tempreg2 pop tempreg1 rjmp popxyz pushxyzr: pop r0 pop r1 push ZH push ZL push YH push YL push XH push XL push tempreg1 push tempreg2 push tempreg3 push tempreg4 push r1 push r0 ret .macro pop_regs jmp popxyzr .endm .macro push_regs call pushxyzr .endm .include "modules/intro.asm" .include "modules/menu.asm" .include "modules/editor.asm" .include "modules/exparser.asm" .include "modules/runtime.asm" .include "modules/spi.asm" .include "modules/array.asm" .include "modules/compress_line.asm" .include "modules/expand_line.asm" .include "modules/monitor.asm" .include "modules/fileman.asm" .include "modules/filesys.asm" .include "modules/configpage.asm" .include "modules/infopage.asm" .include "modules/xm.asm" .include "modules/tokentable.inc" .include "libmio/vidm_tvc.asm" .include "libmio/vidm_tvg.asm" .include "libmio/vidm_tvm.asm" .include "libmio/vidm_tvs.asm" .include "libmio/vidm_tvu.asm" .include "libs.inc" bas_sintab: .include "modules/sintable.inc" .org 0x4340 libmio_ctable1: .include "libmio/ctable_f1.inc" .org 0x4400 libmio_ktables: .include "libmio/keytable_de.inc" .org 0x4500 libmio_costab: .include "libmio/costab.inc" .org 0x4580 .include "libmio/soundtables.inc" .org 0x4700 end_system: .include "libmio/bootloader.asm" .org 0x4800 bas_programs: ;program 1 4800-4dff .org 0x4800 .include "prog/loader.asm" ;program 2 4e00-53ff .org 0x4e00 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 3 5400-59ff .org 0x5400 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 4 5a00-5fff .org 0x5a00 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 5 6000-65ff .org 0x6000 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 6 6600-6bff .org 0x6600 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 7 6c00-71ff .org 0x6c00 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;program 8 7200-77ff .org 0x7200 .db " ",0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff .db 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff ;--------------------------------------------------------------------------------- ;start of nrww-section ;--------------------------------------------------------------------------------- .org 0x7800 .include "libmio/bootvid.asm" .include "modules/memory.asm" .org 0x7a80 libmio_kstab: .include "libmio/kstable.inc" .org 0x7b00 libmio_ctable: .include "libmio/ctable_f0.inc" chipbasic2_1.28_source/system/modules/0000777000175000001440000000000011360420075017140 5ustar joerguserschipbasic2_1.28_source/system/modules/xm.asm0000777000175000001440000001061211355204232020270 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 chipbasic2_1.28_source/system/modules/exparser.asm0000777000175000001440000011175211360341463021510 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 brcc expar_end cpi tempreg4,':' breq expar_end ;------------------------------------------------------------------------------ ; system variables ;------------------------------------------------------------------------------ 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 clr XH rjmp expar_pcr_02b ;actual program number expar_sysv_p: cpi tempreg4,'P' brne expar_sysv_v lds XL,libmio_prog inc XL clr XH 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 clr XH rjmp expar_pcr_02b ;Y-dimension of screen expar_sysv_y: cpi tempreg4,'Y' brne expar_sysv_r lds XL,libmio_clipy2 clr XH 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 clr XH rjmp expar_pcr_02b ;machine type (1=mega644 2=mega644p) expar_sysv_m: cpi tempreg4,'M' brne expar_sysv_1 lds tempreg3,libmio_config ldi XL,1 sbrc tempreg3,4 ldi XL,2 clr XH 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+ clr XH 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+ ld XL,Z+ ld tempreg4,Z+ ;get next char rjmp expar_bp_n3 ;----------------------------------------------------------------------------- ; 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 clr XH 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 clr XH ld tempreg4,Z+ expar_bp_n3: 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+ ;get next char 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) 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 ret 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,0x0f ;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_d01 ;is ne ldi r19,0x23 ;code for le cpi tempreg3,61 ;"=" breq expar_bp_d01 ;no ldi r19,0x21 ;code for less rjmp expar_bp_d02 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,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,0x39 ;code for or cpi tempreg4,35 ;"#" breq expar_bp_d02 ;next level ldi r19,0x4a ;code for mult cpi tempreg4,42 ;"*" breq expar_bp_d02 ldi r19,0x4b ;code for div cpi tempreg4,47 ;"/" breq expar_bp_d02 ldi r19,0x4c ;code for mod cpi tempreg4,37 ;"%" breq expar_bp_d02 ldi r19,0x4d ;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: rjmp expar_bp_xy ;0 nop ;only filling nop 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 rjmp expar_bp_xy ;e nop ;only filling nop 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: ldi r16,LOW(708) ldi r17,HIGH(708) cp XL,r16 cpc XH,r17 brcs expar_menu_2 ldi ereg,18 ;out of array ret expar_menu_2: ldi ZH,HIGH(bas_array) ldi ZL,LOW(bas_array) add ZL,XL adc ZH,XH set ;read menu data from RAM 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: andi XL,0x07 ori XL,0xc0 sts ADMUX,XL lds XL,ADCSRA ori XL,0x40 ;set ADSC sts ADCSRA,XL expar_adc1: lds XL,ADCSRA sbrc XL,6 rjmp expar_adc1 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 call get_iosel sbrs tempreg1,0 ldi ereg,40 ;no IO driver sbrc tempreg1,0 ;external active expar_din_2: jmp 0x720e ;external in 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: lds YH,libmio_keycode cp YL,YH brne expar_key_08 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 chipbasic2_1.28_source/system/modules/tokentable.inc0000777000175000001440000001233211333730043021766 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 0xd9,"LSHIFT." ;LSHIFT is alternative to SPUT .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 0xf1,"FRD...." ;fread .db 0xf2,"FWR...." ;fwrite .db 0xf3,"BAUD..." ;BAUD is alternative to CBOX .db 0xf4,"GAT...." ;gattr .db 0xf5,"FDEL..." ;fdelete .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 chipbasic2_1.28_source/system/modules/configpage.asm0000777000175000001440000002436411355210157021762 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: libmio_nokey rcall confp_sconf ;view status ldi ZL,LOW(confp_mbar*2) ldi ZH,HIGH(confp_mbar*2) clt ;read menu from flash libmio_drawmenu confp_loop_1: libmio_waitkey cpi tempreg1,0xed ;ESC brne confp_loop_2 confp_loop_1a: ret confp_loop_2: cpi tempreg1,0xf2 ;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,0xf1 ;F1=change brne confp_loop_1 ;------------------------------------------------------------------------------ ;change serial speed ;------------------------------------------------------------------------------ confp_main_55: cpi r16,0 brne confp_main_60 mov tempreg4,r18 inc tempreg4 ;baud +1 andi tempreg4,0x01 andi r18,0xf8 or r18,tempreg4 rjmp confp_loop ;------------------------------------------------------------------------------ ;change I2C speed ;------------------------------------------------------------------------------ confp_main_60: cpi r16,1 brne confp_main_65 lds tempreg1,libmio_sysconf ;recent conf 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 " chipbasic2_1.28_source/system/modules/compress_line.asm0000777000175000001440000002247011315475334022524 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 clin_main_clr: st X+,tempreg1 dec tempreg2 brne clin_main_clr ;find last active char in line and set pos to tempreg5 ldi YL,LOW(bas_inbuf+32) ;text buffer address ldi YH,HIGH(bas_inbuf+32) ldi tempreg1,32 ;last pos +1 clin_main_fend: ld tempreg2,-Y ;get char cpi tempreg2,0x20 ;space brne clin_main_fen1 dec tempreg1 brne clin_main_fend clin_main_fen1: mov tempreg5,tempreg1 ;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) add tempreg5,YL ;stopp byte clin_main_01: cpi XL,LOW(bas_linebuf+32) brcc clin_main_end cp YL,tempreg5 brcc clin_main_end ld tempreg1,Y ;get char cpi tempreg1,0x00 ;end brne clin_main_02 clin_main_end: ret clin_main_02: rcall clin_comment ;comment? cpi tempreg1,0xff ;OK breq clin_main_end 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 ;------------------------------------------------------------------------------- ;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 tempreg1,0x00 ;end? brne clin_string_4 ldi tempreg1,'"' st X+,tempreg1 ldi tempreg1,0xff ;end code 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 clr tempreg1 ;not found ret clin_comment_1: adiw YL,1 ;goto next char clin_comment_2: st X+,tempreg1 ;store char ld tempreg1,Y+ ;get char cpi tempreg1,0x00 ;end brne clin_comment_2 ;branch if not ldi tempreg1,0xff st X+,tempreg1 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 chipbasic2_1.28_source/system/modules/monitor.asm0000777000175000001440000002603611355042201021336 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: 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 XH,libmio_rows*2 mon_backup1: ldi XL,libmio_cols mon_backup2: ld tempreg1,Z+ ;get byte st Y+,tempreg1 dec XL brne mon_backup2 dec XH brne mon_backup1 ret mon_restore: 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 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_1 ori XL,0x01 ;set break flag rjmp mon_main_end 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_4 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_4: cpi tempreg1,0xf4 ;Array brne mon_main_0 rjmp mon_array mon_main_end: sts libmio_kflags,XL ;store flags mon_main_end1: lds tempreg1,libmio_keycode ;wait until key is released cpi tempreg1,0 brne mon_main_end1 rcall mon_restore mme1: 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: libmio_nokey ldi tempreg4,0 ;array base clr tempreg5 ;no text mon_array_02: rcall mon_varr ;view array mon_array_03: ldi ZL,LOW(mon_amdata*2) ldi ZH,HIGH(mon_amdata*2) libmio_drawmenu mon_array_03a: libmio_waitkey 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_05 libmio_nokey rjmp mon_main_00 mon_array_05: cpi tempreg1,0xe6 ;page up brne mon_array_10 cpi tempreg4,0 breq mon_array_03 ;we are at first pos mon_array_06: dec tempreg4 libmio_nokey rjmp mon_array_02 mon_array_10: cpi tempreg1,0xe7 ;page down brne mon_array_12 ;no cpi tempreg4,10 brcc mon_array_03 ;last position? inc tempreg4 libmio_nokey rjmp mon_array_02 mon_array_12: cpi tempreg1,0xf3 ;text insert brne mon_array_03 ;no inc tempreg5 libmio_nokey 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 ldi YL,LOW(bas_array) ldi YH,HIGH(bas_array) add YL,r0 adc YH,r1 movw ZL,r0 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: ld XL,Y+ ldi XH,0 libmio_outhex mov tempreg1,tempreg5 sbrs tempreg1,0 rjmp mon_varr_10 ldi XL,0x17 ;white on blue libmio_setcolor sbiw YL,1 ld tempreg1,Y+ 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 inc tempreg3 cpi tempreg3,19 brne mon_varr_02 ret ;111111222222333333444444555555 mon_amdata: .db " Exit Char Mon " mon_mdata: .db " Exit Go Step View Array" chipbasic2_1.28_source/system/modules/memory.asm0000777000175000001440000003202611333624242021162 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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; 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_getconf: 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 ;------------------------------------------------------------------------------ ; write line from Y to program memory ;------------------------------------------------------------------------------ mem_wrline: cli 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 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 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 subi ZL,0xfe ;+2 lpm tempreg2,Z ;libtype subi ZL,14 pop XL ret ;------------------------------------------------------------------------------ ; save program from editor to flash ;------------------------------------------------------------------------------ mem_save: cli ;disable INT 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 tempreg2,19 ;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,0xff ;mark as empty st Y+,tempreg2 ldi tempreg1,19 ;rest of head ldi tempreg2,0x20 ;space mem_clear_1a: st Y+,tempreg2 dec tempreg1 brne mem_clear_1a ldi tempreg1,0xf0 ldi tempreg2,0xff ;fill byte mem_clear_2: st Y+,tempreg2 dec tempreg1 brne mem_clear_2 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 ret ;------------------------------------------------------------------------------ ; 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 ret ;------------------------------------------------------------------------------ ; 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 chipbasic2_1.28_source/system/modules/spi.asm0000777000175000001440000000317111315523363020446 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 brne spi_set_2 spi_set_1: sbi PORTB,4 ;end transfer out SPCR,const_0 ;disable SPI ldi XL,0x5c ;standard out SPCR,XL out SPSR,const_0 ;U2X=0 ret spi_set_2: bld XL,7 ;SS enable bit 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 in XL,PORTB bst XL,4 out PORTB,XL ;start transfer ret spi_wait: in XH,SPSR sbrs XH,SPIF rjmp spi_wait ret chipbasic2_1.28_source/system/modules/expand_line.asm0000777000175000001440000001506311315523231022136 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,0x20 ;32 chars xlin_main_0: st Y+,tempreg1 dec ZL brne xlin_main_0 sbiw YL,0x20 ;restore old pointer xlin_main_1: cpi XL,LOW(bas_linebuf+32) breq xlin_main_1a ld tempreg1,X+ ;get byte cpi tempreg1,0x02 ;minimum brcs xlin_main_1a cpi tempreg1,0xff ;end brne xlin_main_2 xlin_main_1a: st Y+,const_0 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_wrc1 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_wrc1 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_wrc1 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_wrc1 xlin_outd_11: ldi tempreg1,48 ;"0" add tempreg1,ZL ;LSB digit rcall xlin_wrc1 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_wrc1 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_wrc1 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_wrc1 xlin_ok_6: ret ;------------------------------------------------------------------------------- ; write one char (tempreg1) ;------------------------------------------------------------------------------- xlin_wrc: st Y+,tempreg1 cpi YL,LOW(bas_inbuf+35) brcs xlin_wrc_1 st Y+,const_0 xlin_wrc_0: pop tempreg1 ;kill stack pop tempreg1 xlin_wrc_1: ret ;------------------------------------------------------------------------------- ; write one char less (level+1) ;------------------------------------------------------------------------------- xlin_wrc1: st Y+,tempreg1 cpi YL,LOW(bas_inbuf+35) brcs xlin_wrc_1 st Y+,const_0 pop tempreg1 ;kill stack pop tempreg1 rjmp xlin_wrc_0 chipbasic2_1.28_source/system/modules/infopage.asm0000777000175000001440000000441711334104140021434 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-2010 ",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 chipbasic2_1.28_source/system/modules/intro.asm0000777000175000001440000000571111353213002020774 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 chipbasic2_1.28_source/system/modules/sintable.inc0000777000175000001440000000075111164135257021451 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,0xffchipbasic2_1.28_source/system/modules/filesys.asm0000777000175000001440000005574011355171510021337 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 ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;alert box ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox ldi XL,0x40 ;color scheme (green on black) libmio_setcolor libmio_thistext .db 3,2,"Delete file",0 fsys_del_01: rcall fsys_select ;select a file 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 ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;window box ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox ldi XL,0x40 ;color scheme (green on black) libmio_setcolor 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 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 ret ;------------------------------------------------------------------------------ ;backup ;------------------------------------------------------------------------------ fsys_backup: clr tempreg4 ;first file fsys_mbup_00: rcall fsys_check ;check for dataflash ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;alert box ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox ldi XL,0x40 ;color scheme (green on black) libmio_setcolor 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 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 ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;alert box ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox ldi XL,0x40 ;color scheme (green on black) libmio_setcolor libmio_thistext .db 3,2,"Load P",0,0 rcall fsys_snn fsys_load_01: rcall fsys_select 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 ret ;------------------------------------------------------------------------------ ;restore ;------------------------------------------------------------------------------ fsys_restore: clr tempreg4 ;first file fsys_rest_00: rcall fsys_check ;check for dataflash ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;alert box ldi YH,2 ldi ZL,28 ldi ZH,22 libmio_whbox ldi XL,0x40 ;color scheme (green on black) libmio_setcolor libmio_thistext .db 3,2,"Restore",0 fsys_rest_01: rcall fsys_select 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 pop tempreg1 ;kill stack pop tempreg1 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 pop tempreg1 ;kill stack pop tempreg1 ;kill stack 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 pop tempreg1 ;kill stack pop tempreg1 ;killstack rjmp fsys_e_nfor ;show error: not formatted fsys_check_04: ret ;------------------------------------------------------------------------------ ;error:not formatted ;------------------------------------------------------------------------------ fsys_e_nfor: libmio_alertthis .db 0x4f,"DFLASH not formatted",0 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 0x4f,"DFLASH error!",0,0 ret ;end ;------------------------------------------------------------------------------ ;error:cannot save ;------------------------------------------------------------------------------ fsys_e_cns: libmio_alertthis .db 0x4f,"Can not save on this",0 ret ;end ;------------------------------------------------------------------------------ ;error:cannot load ;------------------------------------------------------------------------------ fsys_e_cnlb: libmio_alertthis .db 0x4f,"No BASIC file",0,0 ret ;end ;------------------------------------------------------------------------------ ;error:cannot restore ;------------------------------------------------------------------------------ fsys_e_cnlm: libmio_alertthis .db 0x4f,"No BACKUP file",0 ret ;end ;------------------------------------------------------------------------------ ;ask:overwrite ;------------------------------------------------------------------------------ fsys_over: libmio_askthis .db 0xc0,"Overwrite file?",0,0 ret ;------------------------------------------------------------------------------ ;ask:delete ;------------------------------------------------------------------------------ fsys_adel: libmio_askthis .db 0x4f,"Delete file?",0 ret ;------------------------------------------------------------------------------ ;no space left ;------------------------------------------------------------------------------ fsys_e_nsl: libmio_alertthis .db 0x4f,"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: libdfl_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 ret ;------------------------------------------------------------------------------ ;print file type (tempreg1) ;------------------------------------------------------------------------------ fsys_pft: cpi tempreg1,0x10 ;BASIC brne fsys_pft_01 ;no libmio_thistext .db 255,"BAS:",0 ldi tempreg1,0x10 ret fsys_pft_01: cpi tempreg1,0x12 ;BACKUP brne fsys_pft_02 ;no libmio_thistext .db 255,"BUP:",0 ldi tempreg1,0x12 ret fsys_pft_02: cpi tempreg1,0x14 ;USER brne fsys_pft_03 ;no libmio_thistext .db 255,"USR:",0 ldi tempreg1,0x14 ret fsys_pft_03: cpi tempreg1,0x16 ;chip8 brne fsys_pft_04 ;no libmio_thistext .db 255,"CH8:",0 ldi tempreg1,0x16 ret fsys_pft_04: cpi tempreg1,0x18 ;native brne fsys_pft_05 ;no libmio_thistext .db 255,"BIN:",0 ldi tempreg1,0x18 ret fsys_pft_05: cpi tempreg1,0x1a ;GPS position list brne fsys_pft_06 ;no libmio_thistext .db 255,"GPO:",0 ldi tempreg1,0x1a ret fsys_pft_06: cpi tempreg1,0x1c ;Sampling data brne fsys_pft_07 ;no libmio_thistext .db 255,"SAM:",0 ldi tempreg1,0x1c ret fsys_pft_07: cpi tempreg1,0x1e ;logic blocks brne fsys_pft_08 ;no libmio_thistext .db 255,"LBL:",0 ldi tempreg1,0x1e ret fsys_pft_08: cpi tempreg1,0x1f ;image file brne fsys_pft_09 ;no libmio_thistext .db 255,"IMG:",0 ldi tempreg1,0x1e ret fsys_pft_09: cpi tempreg1,0x20 ;screenshot file brne fsys_pft_99 ;no libmio_thistext .db 255,"SCR:",0 ldi tempreg1,0x20 ret fsys_pft_99: libmio_thistext ;no/unknown file .db 255,"----",0 ldi tempreg1,0xff ;empty ret ;------------------------------------------------------------------------------ ;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 ret ;------------------------------------------------------------------------------ ;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_free: libdfl_free ret fsys_gettype: libdfl_gettype ret fsys_size: libdfl_size ret fsys_gword: libdfl_gword ret fsys_checkf: libdfl_checkformat ret fsys_create: libdfl_create ret fsys_delete: libdfl_delete ret fsys_read: libdfl_read ret fsys_write: libdfl_write ret fsys_maxpage: libdfl_maxpage ret fsys_format: libdfl_format ret chipbasic2_1.28_source/system/modules/fileman.asm0000777000175000001440000001701611315523305021265 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) clt ;data from Flash 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) clt ;data from Flash 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) clt ;data from Flash 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" .db " Delete Format" fman_txt2: .db " Exit Format Rescan" .db " " fman_txt3: .db " Exit Rescan" .db " " chipbasic2_1.28_source/system/modules/definitions.asm0000777000175000001440000000252411315523210022156 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 chipbasic2_1.28_source/system/modules/array.asm0000777000175000001440000000615311315475172021000 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 push YL push YH rjmp arr_read_2 arr_read: push YL push YH lds tempreg1,bas_ram+10 ;index low lds tempreg2,bas_ram+11 ;index high arr_read_2: rcall arr_acalc ;calc address ld XL,Y+ clr XH brtc arr_read_3 ld XH,Y+ ; increment array pointer arr_read_3: rjmp arr_incptr_p1 ;----------------------------------------------------------------------- ; write array value ;----------------------------------------------------------------------- arr_write: push YL push YH lds tempreg1,bas_partab ;index low lds tempreg2,bas_partab+1 ;index high arr_write_2: rcall arr_acalc ;calc address st Y+,XL brtc arr_write_3 st Y+,XH arr_write_3: ; increment array pointer2 arr_incp2: rjmp arr_incptr_p2 ;----------------------------------------------------------------------- ; calc address (tempreg1/2=element) to Y ;----------------------------------------------------------------------- arr_acalc: ldi YH,high(bas_array) ;array ldi YL,low(bas_array) cpi tempreg2,0x03 ;limit breq arr_acalc_e ;is between byte and word brcc arr_acalc_2 ;word? clt ;byte access arr_acalc_1: add YL,tempreg1 ;array element address adc YH,tempreg2 ret arr_acalc_2: set ;word access subi tempreg2,4 lsl tempreg1 ;*2 rol tempreg2 cpi tempreg2,0x03 brcs arr_acalc_1 arr_acalc_e: pop tempreg1 ;kill stack pop tempreg1 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 chipbasic2_1.28_source/system/modules/menu.asm0000777000175000001440000003771611360420075020627 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 rcall menu_mbar ;draw menu bar at bottom line 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: push tempreg3 rcall menu_keys pop tempreg3 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 tempreg3,0x08 ;program brcs menu_main_20 ;branch if yes cpi tempreg1,0xea ;enter breq menu_main_9 cpi tempreg1,0xf4 ;F4 (Run) brne menu_main_4 menu_main_9: sts libmio_lastmenu,tempreg3 cpi tempreg3,0x08 ;flash brne menu_main_10 cpi tempreg1,0xea ;ENTER brne menu_main_4 rcall menu_wnk call fman_main ;call flash manager rjmp menu_mainloop menu_main_10: cpi tempreg3,0x09 ;config brne menu_main_11 cpi tempreg1,0xea ;ENTER brne menu_main_4 rcall menu_wnk call confp_main ;call config rjmp menu_mainloop menu_main_11: rcall menu_wnk cpi tempreg1,0xea ;ENTER brne menu_main_4 call infopage_main ;call info rjmp menu_mainloop ;a program menu_main_20: push tempreg1 lds tempreg1,libmio_kbdstate sbrc tempreg1,2 ;skip if no left control rjmp menu_main_40 ;ctrl pop tempreg1 cpi tempreg1,0xea ;enter breq menu_main_21 cpi tempreg1,0xf4 ;run brne menu_main_22 menu_main_21: rcall menu_wnk0 clr ereg call menu_runprog ;run pogram rjmp menu_mainloop menu_main_22: cpi tempreg1,0xf1 ;edit brne menu_main_23 rcall menu_wnk0 clr ereg call menu_editloop ;edit program rjmp menu_mainloop menu_main_23: cpi tempreg1,0xf2 ;save brne menu_main_24 rcall menu_wnk0 call fsys_savebas rjmp menu_mainloop menu_main_24: cpi tempreg1,0xf3 ;load brne menu_main_25 rcall menu_wnk0 call fsys_loadbas ;edit program call editor_pclear rjmp menu_mainloop menu_main_25: rjmp menu_main_4 menu_main_40: pop tempreg1 cpi tempreg1,0xf1 ;copy brne menu_main_41 rcall menu_wnk0 call menu_copy ;copy program rjmp menu_mainloop menu_main_41: cpi tempreg1,0xf2 ;recv brne menu_main_42 rcall menu_wnk0 call fsys_tal call send_prog ;send program rjmp menu_mainloop menu_main_42: cpi tempreg1,0xf3 ;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,0xf4 ;clear brne menu_main_25 rcall menu_wnk0 call menu_clear ;clear program call editor_pclear rjmp menu_mainloop ;------------------------------------------------------------------------------ ;info text (version) ;------------------------------------------------------------------------------ menu_itext1: libmio_thistext .db 255,"AVR-ChipBasic2 V1.28",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_pric0: cpi r16,'L' brne menu_pric_l ldi tempreg1,0x04 ;red on black rjmp menu_pric_1 menu_pric_l: lpm r16,Z ;first byte cpi r16,0x5f ;non-startable brne menu_pric_1 ldi tempreg1,0x08 ;green on black rjmp menu_pric_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 lpm r16,Z ;first byte cpi r16,0x5f ;non-startable breq menu_pric0 mov r16,tempreg1 ldi tempreg1,0x0e ;white on black cpi r16,'N' brne menu_pric0 ldi tempreg1,0x0c ;yellow on back cpi tempreg2,0xff breq menu_pric_1 ldi tempreg1,0x0a ;cyan on black cpi tempreg2,0xe0 brcs menu_pric_1 ldi tempreg1,0x06 ;magenta on black menu_pric_1: cp tempreg3,r18 brne menu_prgicon_0 swap tempreg1 menu_prgicon_0: sts libmio_color,tempreg1 libmio_gotoxy 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 mov tempreg1,r18 call mem_readf1 ;start address cpi tempreg1,'L' ;loader breq menu_prgi_ld cpi tempreg1,'N' ;native brne menu_prgi_1 menu_prgi_ld: adiw ZL,16 ;start of icon dec XH 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 dec XH rjmp menu_prgi_e menu_prgi_1: 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 menu_prgi_e: mov tempreg1,r18 call mem_progadr_0 ;start address inc XH 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 ;------------------------------------------------------------------------------ ;the main loop ;------------------------------------------------------------------------------ menu_keys: ldi r19,0xdd ;dummy value sts libmio_lastkey,const_0 menu_keys_01: lds tempreg1,libmio_kbdstate andi tempreg1,0x04 ;mask control bit cp tempreg1,r19 breq menu_keys_03 ;equal mov r19,tempreg1 ;copy to old cpi tempreg1,0x00 ;normal brne menu_keys_02 ;not rcall menu_mbar ;standard menu rjmp menu_keys_01 menu_keys_02: rcall menu_cmbar ;control menu rjmp menu_keys_01 menu_keys_03: lds tempreg1,libmio_lastkey ;get key cpi tempreg1,0x00 breq menu_keys_01 call libmio_scrs ;enable screenshots ret ;------------------------------------------------------------------------------ ;copy program ;------------------------------------------------------------------------------ menu_copy: ldi XL,0x04 ;color scheme (green on black) libmio_setcolor ldi YL,1 ;maximal sized box ldi YH,15 ldi ZL,28 ldi ZH,19 libmio_whbox ldi XL,0x40 ;color scheme (black on green) libmio_setcolor call editor_pclear libmio_thistext .db 16,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,18 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: libmio_askthis .db 0x4f,"Clear this Program? ",0 cpi tempreg1,0x01 ;yes? breq menu_clear_1 ret menu_clear_1: call mem_clear 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 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,'L' ;loader breq menu_rp0 ;cannot run this cpi tempreg1,'N' ;native brne menu_runprg_0 menu_runn: adiw ZL,19 ;offset lsr ZH ror ZL 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 ;------------------------------------------------------------------------------ ;the menu bar at bottom line ;------------------------------------------------------------------------------ menu_mbar: ldi ZL,LOW(menu_data*2) ldi ZH,HIGH(menu_data*2) menu_mbar_01: libmio_drawmenu ret ;------------------------------------------------------------------------------ ;the menu bar at bottom line (ctrl mode) ;------------------------------------------------------------------------------ menu_cmbar: ldi ZL,LOW(menu_cdata*2) ldi ZH,HIGH(menu_cdata*2) rjmp menu_mbar_01 ;111111222222333333444444555555 menu_data: .db " Edit Save Load Run " menu_cdata: .db " Copy Send Recv Clear" chipbasic2_1.28_source/system/modules/editor.asm0000777000175000001440000010327411353500602021137 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,0 sts libmio_channel,const_1 rcall edit_opr sts libmio_channel,const_0 rcall editor_cset editor_mainc_5: rjmp editor_mainc_2 ;------------------------------------------------------------------------------ ;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 ldi XL,0x02 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_pstend ld tempreg3,Y cpi tempreg3,'B' brne editor_pstenx ldi tempreg3,' ' st Y+,tempreg3 ;clear buffer text st Y+,tempreg3 ;clear buffer text st Y+,tempreg3 ;clear buffer text st Y+,tempreg3 ;clear copy symbol st Y+,tempreg3 ;clear number st Y+,tempreg3 ;clear number 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 ;------------------------------------------------------------------------------ ;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 mov tempreg7,XL mov tempreg8,XH rcall editor_ren mov XL,tempreg7 mov XH,tempreg8 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_waitkey cpi tempreg1,'Y' breq editor_yn1 cpi tempreg1,'y' breq editor_yn1 cpi tempreg1,0xea ;ENTER breq editor_yn1 cpi tempreg1,'N' breq editor_yn2 cpi tempreg1,'n' breq editor_yn2 cpi tempreg1,0xed ;ESC breq editor_yn2 rjmp editor_yn editor_yn1: set ;set T-flag ret editor_yn2: clt ;res T-flag 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,12 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: push XH push 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 pop XL pop XH ret ;------------------------------------------------------------------------------ ; write line [XH] from vram to inbuf ;------------------------------------------------------------------------------ editor_wrbuf: push XH push 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 lds tempreg1,bas_inbuf sts libmio_vram+33,tempreg1 ;copy number lds tempreg1,bas_inbuf+1 sts libmio_vram+34,tempreg1 ;copy number pop XL pop XH 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,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_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 ;------------------------------------------------------------------------------ ; read cursor and frame position ;------------------------------------------------------------------------------ editor_pclear: rcall editor_getep mov tempreg1,const_0 libeep_write ;Y-pos mov tempreg1,const_0 libeep_write ;X-pos mov tempreg1,const_0 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 chipbasic2_1.28_source/system/modules/runtime.asm0000777000175000001440000025342311352457372021354 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 EEPROM 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,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: 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 breq basrun_07 ;next line 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 basrun_kw2: ldi ereg,8 ;unknown ret basrun_noval: ldi ereg,20 ;no value expected ret 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,0xff ;end of line brne 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 ldi XL,0 ;max 1 parameter rcall bas_getpar ;get parameters libmio_clrscr rjmp tbrun_loop ;goto main interpreter loop ;----------------------------------------------------------------------- ; keyword is color ;----------------------------------------------------------------------- bas_color: ldi XL,2 ;max 0 parameters rcall bas_getpar ;get parameters cpi XL,0 ;no parameter breq bas_color_e 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 bas_color_e: rjmp tbrun_wrongpar ;----------------------------------------------------------------------- ; 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 rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_box_e ;<4 is not OK 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: ldi XL,0x05 ;max 5 pars rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_fbox_e ;<4 is not OK 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_fbox_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is circle ;----------------------------------------------------------------------- bas_circle: ldi XL,0x05 ;max 5 pars rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_circle_e ;<4 is not OK 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 bas_circle_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is fcircle ;----------------------------------------------------------------------- bas_fcircle: ldi XL,0x05 ;max 5 pars rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_fcircle_e ;<4 is not OK 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 bas_fcircle_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is plot ;----------------------------------------------------------------------- bas_plot: ldi XL,0x03 rcall bas_getpar ;get parameters cpi XL,0x02 ;with color brcs bas_plot_e ;<2 is not OK 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 bas_plot_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is draw ;----------------------------------------------------------------------- bas_draw: ldi XL,0x05 ;max 5 pars rcall bas_getpar ;get parameters cpi XL,0x04 ;min parameters brcs bas_draw_e 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 bas_draw_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; 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 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 rjmp tbrun_loop ;goto main interpreter loop bas_ask_err: ldi ereg,0x07 ;syntax error 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_ispace cpi tempreg4,',' brne bas_ask_err call bas_get1 bas_fsel_02: push ZH push ZL push libmio_cur_x push libmio_cur_y lds tempreg1,libmio_color push tempreg1 ;save status push tempreg4 andi tempreg1,0x0f ;set bg to black sts libmio_color,tempreg1 call mon_backup ldi YL,1 ldi YH,2 ldi ZL,28 ldi ZH,21 libmio_whbox lds YL,libmio_color swap YL sts libmio_color,YL 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: clr tempreg4 ;file 1 ldi tempreg3,0x01 ;no valid selection rcall bas_fsel_tcall ;select file call mon_restore cpi tempreg3,0x02 ;valid brne bas_fsel_05 rcall bas_loadv st Y+,tempreg4 ;result st Y+,const_0 pop tempreg4 pop tempreg1 sts libmio_color,tempreg1 pop libmio_cur_y ;restore status pop libmio_cur_x pop ZL pop ZH rjmp tbrun_loop ;goto main interpreter loop bas_fsel_05: pop tempreg4 pop tempreg1 sts libmio_color,tempreg1 pop libmio_cur_y ;restore status pop libmio_cur_x pop ZL pop ZH rcall bas_loadv ldi tempreg1,0xff st Y+,tempreg1 ;result is -1 st Y+,tempreg1 rjmp tbrun_loop ;goto main interpreter loop bas_fsel_err: ldi ereg,0x07 ;syntax error rjmp tbrun_loop ;error ;use this! bas_fsel_tcall: call bas_fcheck ;check for flash clr ereg cpi tempreg3,0x00 brne bas_fsel_tc1 ret bas_fsel_tc1: call fsys_select ;call selector clr ereg ldi tempreg3,0x02 ;set to valid ret ;----------------------------------------------------------------------- ; keyword is drawto ;----------------------------------------------------------------------- bas_drawto: ldi XL,0x03 ;max 5 pars rcall bas_getpar ;get parameters cpi XL,0x02 ;only end parameters brcs bas_drawto_e 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 bas_drawto_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; 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 bas_goto_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; 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 bas_onerr_e: rjmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; 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 rcall bas_getpar ;get parameters cpi XL,0x02 ;min 2 brcs bas_onerr_e 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=scale 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 rcall bas_getpar ;get parameters cpi XL,0x01 ;min 1 brcs bas_note_e 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 bas_note_e: rjmp tbrun_wrongpar ;----------------------------------------------------------------------- ; keyword is GOSUB ;----------------------------------------------------------------------- bas_gosub: ldi XL,0x06 ;max 3 pars rcall bas_getpar ;get parameters cpi XL,0x01 brcs bas_note_e ;error 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 3 pars rcall bas_getpar ;get parameters cpi XL,0x02 brcs bas_note_e ;error 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 cpi tempreg2,0xff ;no lib? breq bas_xcall_p3 add ZL,XL adc ZH,const_0 bas_xcall_p3: adiw ZL,16 ;code offset clt ;par mode icall bas_xcall_lo: rjmp tbrun_loop bas_xcall_01: cpi tempreg1,'N' ;binary breq bas_xcall_lo 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 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: sbrc tempreg4,6 ;upper=LSHIFT jmp bas_lshift 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 libmio_sync ;wait min 32ms libmio_sync rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is dir ;----------------------------------------------------------------------- bas_dir: sbrc tempreg4,6 ;upper=LSHIFT jmp bas_s2put rcall bas_expar rcall check_io out DDRA,XL rjmp tbrun_mtest ;----------------------------------------------------------------------- ; keyword is out (Y=pin XL=val) ;----------------------------------------------------------------------- bas_out: sbrc tempreg4,6 ;upper=LSHIFT jmp bas_s2get movw ZL,r14 ;restore pointer rcall bas_g2w cpi YH,0x00 ;single bit? brne bas_out_2 ;no rcall check_io 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_1: 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_1 in r16,PORTA or r16,tempreg4 and r16,tempreg3 out PORTA,r16 rjmp tbrun_mtest bas_out_2: cpi YH,0x01 ;use mask? brne bas_out_3 ;no rcall check_io 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_mtest bas_out_3: cpi YH,0x02 ;spiset? brne bas_out_4 ;no call spi_set rjmp tbrun_mtest bas_out_4: cpi YH,0x04 ;sys write? brne bas_out_5 ;no clr YH st Y,XL rjmp tbrun_mtest bas_out_5: cpi YH,0x08 ;write? brcs bas_out_e ;no rcall get_iosel sbrs tempreg1,0 ;skip if vidlib ldi ereg,40 sbrc tempreg1,0 ;skip if no vidlib call 0x720f ;call external out routine bas_out_6: rjmp tbrun_mtest ;----------------------------------------------------------------------- ; 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_gettype cpi tempreg1,0x30 ;user file brcs bas_fread_3 ldi ereg,30 ;no user file bas_fread_2: ret bas_fread_3: call fsys_read ;read page cpi ereg,0x00 brne bas_fread_2 rjmp tbrun_loop ;----------------------------------------------------------------------- ; 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_gettype cpi tempreg1,0x30 ;user file brcs bas_fwrite_3 ldi ereg,30 ;no user file bas_fwrite_2: ret bas_fwrite_3: call fsys_write ;write page cpi ereg,0x00 brne bas_fwrite_2 rjmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is fcreate (create/delete file) ; par1=file ; par2=pages ; par3= ;----------------------------------------------------------------------- bas_fcreate: ldi XL,0x03 ;max 3 pars rcall bas_getpar ;get parameters cpi XL,0x02 ;min 2 breq bas_fcreate_1 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_gettype cpi tempreg1,0x14 ;user file breq bas_fdelete_3 ldi ereg,30 ;no user file bas_fdelete_2: ret bas_fdelete_3: call fsys_delete ;delete file cpi ereg,0x00 brne bas_fdelete_2 rjmp tbrun_loop ;----------------------------------------------------------------------- ; 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: libdfl_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: libdfl_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 libi2c_stop ; jmp tbrun_mtest bas_icomm_r4: libi2c_rbyte ;get number of bytes cpi tempreg2,0x00 ;no bytes to read breq bas_icomm_r2 ;so it is 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 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: 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: cpi XL,0x00 ;parameters brne bas_getpar_1 ;yes ret bas_getpar_1: push YH push YL 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_2: cpi tempreg2,0x00 ;all done? brne bas_getpar_3 mov XL,tempreg1 ;numver of values movw r14,ZL ;set new pointer pop YL pop YH ret 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 cpi ereg,0x19 ;end of list? brne bas_getpar_4 ;yes clr ereg ;ignore this error movw r14,ZL ;set new pointer mov XL,tempreg1 ;set number ret 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_2 ;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 mov XL,tempreg1 ;numver of values movw r14,ZL ;set new pointer 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 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 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 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 ;----------------------------------------------------------------------- ; 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 rcall bas_getpar ;get parameters cpi XL,0x01 ;min parameters brcs bas_onsync_e ;<1 is not OK 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 bas_onsync_e: jmp tbrun_wrongpar ;error ;----------------------------------------------------------------------- ; keyword is vpoke ;----------------------------------------------------------------------- bas_vpoke_0: ldi XL,0x03 ;max 3 pars 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 brcs bas_onsync_e ;<2 is not OK 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 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: rjmp bas_onsync_e ;----------------------------------------------------------------------- ; load program file ; par 1 file ; par 2 prog ;----------------------------------------------------------------------- bas_pload: ldi XL,0x02 ;max 2 pars rcall bas_getpar ;get parameters cpi XL,0x02 ;min 2 breq bas_pload_1 jmp tbrun_wrongpar ;error 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 rcall bas_getpar ;get parameters cpi XL,0x02 ;min 2 breq bas_psave_1 bas_psave_e: jmp tbrun_wrongpar ;error 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 cpi ereg,0 breq bas_psave_4 bas_psave_4: jmp tbrun_loop ;----------------------------------------------------------------------- ; send xmodem block XSEND ;----------------------------------------------------------------------- bas_xsend: ldi XL,2 ;max 2 parameter rcall bas_getpar ;get parameters cpi XL,2 brne bas_psave_4 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 rcall bas_getpar ;get parameters cpi XL,0x06 ;min parameters brcs bas_arc_e ;<6 is not OK rcall bas_ccheck push tempreg4 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 rcall bas_getpar ;get parameters cpi XL,0x06 ;min parameters brcs bas_arc_e ;<6 is not OK 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 bas_arc_e: rjmp bas_onsync_e ;error ;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 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 rjmp bas_arc_e 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 rcall bas_getpar_0 cpi XL,0x01 brne bas_lfind_e2 ;error rcall lfind bas_lfind_02: rcall bas_loadv st Y+,tempreg2 st Y+,const_0 jmp tbrun_loop bas_lfind_err: ldi ereg,0x07 ;syntax error jmp tbrun_loop ;error bas_lfind_e2: jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; keyword is lshift ;----------------------------------------------------------------------- bas_lshift: rcall bas_getvar ;variable rcall bas_ispace cpi tempreg4,',' brne bas_lfind_err ldi XL,0x01 ;get 1 parameter rcall bas_getpar_0 cpi XL,0x01 brne bas_lfind_e2 ;error lds ZL,bas_partab ;lo value lds ZH,bas_partab+1 ;hi value clt cpi ZH,0x80 brcs bas_lshift_01 com ZL inc ZL set bas_lshift_01: rcall bas_loadv ld XL,Y ldd XH,Y+1 bas_lshift_02: subi ZL,1 brcs bas_lshift_e brts bas_lshift_03 lsl XL rol XH rjmp bas_lshift_02 bas_lshift_03: lsr XH ror XL rjmp bas_lshift_02 bas_lshift_e: st Y,XL std Y+1,XH jmp tbrun_loop ;----------------------------------------------------------------------- ; keyword is ashift ;----------------------------------------------------------------------- bas_ashift: rcall bas_getvar ;variable rcall bas_ispace cpi tempreg4,',' brne bas_lfind_err ldi XL,0x01 ;get 1 parameter rcall bas_getpar_0 cpi XL,0x01 brne bas_lfind_e2 ;error 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 adiw ZL,0x11 ;start addr cpi tempreg1,'N' ;binary brne bas_sxcall_en set ;string mode icall jmp tbrun_loop bas_sxcall_en: jmp tbrun_wrongpar ;----------------------------------------------------------------------- ; find library ; X=code, tempreg2=place or zero ;----------------------------------------------------------------------- lfind: ldi ZL,LOW(bas_programs*2) ldi ZH,HIGH(bas_programs*2) adiw ZL,14 ;ID offset ldi tempreg2,1 ;we start with one lfind_01: lpm tempreg3,Z+ ;get ID HI cp tempreg3,XH brne lfind_02 cpi XL,0 ;dont care breq lfind_01a lpm tempreg3,Z+ ;get ID LO cp tempreg3,XL brne lfind_02 lfind_01a: ret lfind_02: subi ZH,0xF4 ;PTR +3072 ldi ZL,14 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 ;----------------------------------------------------------------------- ; check if IO is disabled by driver ;----------------------------------------------------------------------- check_io: rcall get_iosel ;check program 8 sbrs tempreg1,1 ;skip id IO disabled check_io_1: ret ;IO OK check_iodis: pop r0 ;kill last stack entry pop r0 ldi ereg,38 ;IO disabled jmp tbrun_loop get_iosel: push ZL ;save Z register push ZH ldi ZL,0x0e ;get config byte ldi ZH,0xe4 lpm ZL,Z clr tempreg1 ;nothing cpi ZL,0xe0 brcs get_iosel_1 ;no vid library cpi ZL,0xff ;binary program breq get_iosel_1 ori tempreg1,1 ;video/IO lib cpi ZL,0xf0 brcs get_iosel_1 ori tempreg1,2 ;IO is disabled get_iosel_1: pop ZH pop ZL ret ;----------------------------------------------------------------------- ; 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 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 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 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 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 chipbasic2_1.28_source/system/libs.inc0000644000000000000000000000046611360423353016571 0ustar rootroot;############################################################# ;# generated by avr_libmake v0.20 (c) 2006 Joerg Wolfram # ;############################################################# .include "libmio/library.asm" .include "libi2c/library.asm" .include "libeep/library.asm" .include "libdfl/library.asm" chipbasic2_1.28_source/system/libdfl/0000777000175000001440000000000011326150431016722 5ustar joerguserschipbasic2_1.28_source/system/libdfl/library.asm0000777000175000001440000007303311307260701021102 0ustar joergusers;################################################################################ ;# # ;# libdfl - Dataflash library # ;# copyright (c) 2007-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 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 ;------------------------------------------------------------------------------ ; wait for Dataflash ready status ;------------------------------------------------------------------------------ libdfl_stat: clr ereg cbi PORTB,4 ;start transfer 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 cbi PORTB,4 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 cbi PORTB,4 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 cbi PORTB,4 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 cbi PORTB,4 ;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 cbi PORTB,4 ;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 cbi PORTB,4 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 cbi PORTB,4 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 cbi PORTB,4 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 cbi PORTB,4 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 cbi PORTB,4 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_createa: rcall libdfl_rput 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_dela: rcall libdfl_rput 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 ; size is in bas_partab+2 ; arraypos is in bas_partab+4 ;------------------------------------------------------------------------------ libdfl_write: push_ptr ;save registers push tempreg1 push tempreg2 push tempreg4 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 tempreg4 pop tempreg2 pop tempreg1 pop_ptr ;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_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_read_1 ldi ereg,30 ;file not exist libdfl_read_e: pop tempreg4 ;restore registers pop tempreg2 pop tempreg1 pop_ptr ;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 chipbasic2_1.28_source/system/libdfl/macros.asm0000777000175000001440000000373311315523575020734 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 chipbasic2_1.28_source/system/libdfl/definitions.asm0000777000175000001440000000256711315523553021763 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 ;--------------------------------------------------------------------------------chipbasic2_1.28_source/system/libmio/0000777000175000001440000000000011360424377016754 5ustar joerguserschipbasic2_1.28_source/system/libmio/circle.asm0000777000175000001440000000663211222443712020720 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# circles # ;# copyright (c) 2005-2008 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 .endifchipbasic2_1.28_source/system/libmio/bcopy.asm0000777000175000001440000003104311242571153020570 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# block copy # ;# copyright (c) 2007-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; 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 chipbasic2_1.28_source/system/libmio/vidm_tvg.asm0000777000175000001440000002215711345140112021270 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video signal engine for mode 1,2,3,5 # ;# 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. # ;# # ;################################################################################ 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,50 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 chipbasic2_1.28_source/system/libmio/bootloader.asm0000777000175000001440000002047011322456740021613 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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;bootloader init ;------------------------------------------------------------------------------- libmio_bl_init: cli ldi XL,0x00 mov const_0,XL ldi XL,0x01 mov const_1,XL ldi XL,HIGH(stack) out SPH,XL ldi XL,LOW(stack) out SPL,XL ldi XH,0x00 libmio_bl_lo1: ldi XL,0x00 libmio_bl_lo2: dec XL brne libmio_bl_lo2 dec XH brne libmio_bl_lo1 ldi XL,0xba ;port direction (+SPI) out DDRB,XL ldi XL,0xff out PORTB,XL ldi XL,0x80 ;port direction only green enabled 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-4 = config) andi XL,0x0f ;clear editor mode bit sts libmio_config,XL ;store configuration call mem_getconf call libmio_blsc1 sbrs XH,0 ;serial pin rjmp libmio_bl_end ;is high ;------------------------------------------------------------------------------- ;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 sts OCR1AL,ZH ldi XL,0x02 sts TIMSK1,XL ;enable compare OC1A int ldi XL,0x40 ;ctc and enable output out TCCR0A,XL ldi XL,0x01 out TCCR0B,XL ldi XL,49 ;ca. 200KHz out OCR0A,XL ;------------------------------------------------------------------------------- ;usart configuration (synchronous for keyboard) ;------------------------------------------------------------------------------- sts UCSR0A,const_0 ldi XL,0x10 sts UCSR0B,XL ldi XL,0x66 sts UCSR0C,XL ;------------------------------------------------------------------------------- ;clear video-RAM and set pointers ;------------------------------------------------------------------------------- ldi ZL,LOW(libmio_bl_txt1*2) ldi ZH,HIGH(libmio_bl_txt1*2) rcall libmio_bl_ct ldi XL,34 ;no of chars libmio_bl_lo3: lpm XH,Z+ ;copy text to screen st Y+,XH dec XL brne libmio_bl_lo3 ;set vector table to bootloader in r16,MCUCR ;get MCUCR ori r16,0x03 ;set out MCUCR,r16 ;out andi r16,0xfe ; out MCUCR,r16 sei ;enable Interrupts ;------------------------------------------------------------------------------- ;the main loop ;------------------------------------------------------------------------------- libmio_bl_m01: ldi XL,200 ;wait loop (2s) libmio_bl_m02: rcall libmio_bl_sy ;sync lds XH,UDR0 cpi XH,0x78 ;F11 key breq libmio_bl_m03 ;yes->start BL dec XL ;loop counter brne libmio_bl_m02 ;loop rjmp libmio_bl_end ;end libmio_bl_m03: ldi ZL,LOW(libmio_bl_txt2*2) ldi ZH,HIGH(libmio_bl_txt2*2) rcall libmio_bl_ct ldi tempreg1,0x15 ;NAK rcall libmio_bl_ps ;send libmio_bl_m08: ldi YL,LOW(libmio_vram) ;set adr ldi YH,HIGH(libmio_vram) rcall libmio_bl_gb ;read first block (0) to vram ldi tempreg1,0x06 ;ACK rcall libmio_bl_ps ;send ldi ZL,0x00 ;set pointer to start of Flash ldi ZH,0x00 libmio_bl_m10: ldi YL,LOW(bas_array+512) ;buffer address ldi YH,HIGH(bas_array+512) rcall libmio_bl_gb ;get block ldi tempreg1,0x06 ;ACK rcall libmio_bl_ps ;send ldi YL,LOW(bas_array+640) ;buffer address ldi YH,HIGH(bas_array+640) rcall libmio_bl_gb ;get block cpi ZH,0x8e ;end brcc libmio_bl_m11 ;beyond end call mem_writepage adiw ZL,2 sei libmio_bl_m11: ldi tempreg1,0x06 ;ACK rcall libmio_bl_ps ;send ldi XL,LOW(libmio_vram+22) ;set adr ldi XH,HIGH(libmio_vram+22) rcall libmio_bl_sbn ;show block number rjmp libmio_bl_m10 ;loop libmio_bl_end: cli ;disable Interrupts ;set vector table to main in r16,MCUCR ;get MCUCR ori r16,0x01 ;set out MCUCR,r16 ;out andi r16,0xfc ; out MCUCR,r16 ; jmp 0x000 ;restart system ;------------------------------------------------------------------------------ ;get block to bas_array+512 ;------------------------------------------------------------------------------ libmio_bl_gb: rcall libmio_bl_gs ;get SOH/EOT (0x01) and ignore cpi tempreg1,0x04 ;EOT brne libmio_bl_gb2 ;no ldi tempreg1,0x06 ;ACK rcall libmio_bl_ps ;send libmio_bl_gb1: lds XH,libmio_tcnt ;counter cpi XH,0x00 ;ready? brne libmio_bl_gb1 ;loop rjmp libmio_bl_end ;end libmio_bl_gb2: ldi tempreg2,0x80 ;data bytes rcall libmio_bl_gs ;get blockno and ignore rcall libmio_bl_gs ;get inv blockno and ignore libmio_bl_gb3: rcall libmio_bl_gs ;get data st Y+,tempreg1 dec tempreg2 brne libmio_bl_gb3 rjmp libmio_bl_gs ;get checksum and ignore ;------------------------------------------------------------------------------ ;write blocknumber as hex ;------------------------------------------------------------------------------ libmio_bl_sbn: mov tempreg1,ZH ; swap tempreg1 ;high-nibble rcall libmio_bl_oh mov tempreg1,ZH ; ; out hexadecimal char (tempreg1) libmio_bl_oh: andi tempreg1,0x0f ;mask nibble subi tempreg1,0xd0 ;+30 cpi tempreg1,0x3a ;>9 brcs libmio_bl_oh_1 ;jump, if not subi tempreg1,0xf9 ;+6 libmio_bl_oh_1: st X+,tempreg1 ret ;------------------------------------------------------------------------------ ;put tempreg1 to serial output ;------------------------------------------------------------------------------ libmio_bl_ps: push XH libmio_bl_ps_1: lds XH,libmio_tcnt ;counter cpi XH,0x00 ;ready? brne libmio_bl_ps_1 ;loop sts libmio_tdat,tempreg1 ;store data dec XH ;prepare 0xff sts libmio_tcnt,XH ;store start pop XH ret ;thats all ;------------------------------------------------------------------------------ ;get tempreg1 from serial input ;------------------------------------------------------------------------------ libmio_bl_gs: push XH libmio_bl_gs_1: lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_bl_gs_1 ;loop dec XH ;prepare 0xff sts libmio_rcnt,XH ;store start libmio_bl_gs_2: lds XH,libmio_rcnt ;counter cpi XH,0x00 ;ready? brne libmio_bl_gs_2 ;loop lds tempreg1,libmio_rdat ;get char pop XH ret ;thats all ;------------------------------------------------------------------------------- ; wait for the end of visible frame ;------------------------------------------------------------------------------- libmio_bl_sy: push XL libmio_bl_sy_1: mov XL,vline_l cpi XL,libmio_pixel_rows+1 breq libmio_bl_sy_1 libmio_bl_sy_2: mov XL,vline_l cpi XL,libmio_pixel_rows+1 brne libmio_bl_sy_2 pop XL ret ;------------------------------------------------------------------------------- ; copy text ;------------------------------------------------------------------------------- libmio_bl_ct: ldi YL,LOW(libmio_vram) ldi YH,HIGH(libmio_vram) ldi XL,34 ;no of chars libmio_bl_ct1: lpm XH,Z+ ;copy text to screen st Y+,XH dec XL brne libmio_bl_ct1 ret libmio_bl_txt1: .db "AVR-ChipBasic2 (F11=Update Sys) " libmio_bl_txt2: .db "Bootloader Error (ESC to exit) " chipbasic2_1.28_source/system/libmio/sq.asm0000777000175000001440000000143211227455770020107 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 chipbasic2_1.28_source/system/libmio/alert.asm0000777000175000001440000001130711354557320020570 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# drawing alert boxes # ;# copyright (c) 2007-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------ ; draw alert box, color followed by nullterminated text (without backup) ; Y=8-12 X=2-27 24 chars available ;------------------------------------------------------------------------------ libmio_abox: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_abox1: 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 rcall libmio_nokey call mon_restore ret ;------------------------------------------------------------------------------ ; 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 lsr tempreg1 push tempreg1 ;save andi tempreg1,0x07 st Y+,tempreg1 ;store FG pop tempreg1 swap tempreg1 andi tempreg1,0x07 st Y+,tempreg1 ;store BG 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_ynbox: pop ZH ;get return address pop ZL rcall libmio_boxp push ZL ;push new return address push ZH libmio_ynbox1: 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 libmio_ynbox_1: rcall libmio_waitkey cpi tempreg1,'y' breq libmio_ynbox_3 cpi tempreg1,'Y' breq libmio_ynbox_3 cpi tempreg1,'n' breq libmio_ynbox_2 cpi tempreg1,'N' breq libmio_ynbox_2 cpi tempreg1,0xea ;ENTER breq libmio_ynbox_3 cpi tempreg1,0xed ;ESC brne libmio_ynbox_1 libmio_ynbox_2: rcall libmio_nokey call mon_restore clr tempreg1 ;false ret libmio_ynbox_3: rcall libmio_nokey call mon_restore ldi tempreg1,0x01 ;true 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 ld XH,Y+ ;hg swap XH andi XH,0xf0 andi XL,0x0f add XL,XH call libmio_setcol ;new color push YH push YL call mon_backup 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 chipbasic2_1.28_source/system/libmio/costab.inc0000777000175000001440000000471511164136333020726 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# cosinus table for circle drawing # ;# copyright (c) 2007-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. # ;# # ;################################################################################ .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 chipbasic2_1.28_source/system/libmio/kstable.inc0000777000175000001440000000567511327704153021110 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# Keyboard and serial control table # ;# 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. # ;# # ;################################################################################ .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,0x00 ;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 chipbasic2_1.28_source/system/libmio/bootvid.asm0000777000175000001440000002455011322456723021133 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. # ;# # ;################################################################################ libmio_bl: jmp libmio_bl_init ;0 nop ;+2 nop ;use int area for additional code libmio_blsc1: lds ZL,libmio_sysconf ;2w get conf (bit 5=force M644) lds XL,libmio_sysconf1 ;2w get conf2 (bit 7=invert) in ZH,PIND ;1w input data bst ZH,3 ;1w default for M644 sbrs ZL,5 ;1w skip if force M644 bst ZH,1 ;1w default for M644P bld XH,0 ;1w store to register sbrs XL,7 ;1w skip if no max eor XH,const_1 ;1w invert signal ret ;1w end nop ;+10 nop nop ;+12 nop nop ;+14 nop nop ;+16 nop nop ;+18 nop ;------------------------------------------------------------------------------- ;video-interrupt (no registers destroyed, stack=13) ;save registers ;------------------------------------------------------------------------------- libmio_bli: push tempreg1 ;2 push tempreg2 ;2 push tempreg3 ;2 push ZH ;2 save Z-register push ZL ;2 save Z-register push YH ;2 save Y-register push YL ;2 save Y-register push XH ;2 save Y-register push XL ;2 save Y-register push r0 ;2 save r0 push r1 ;2 save r1 in ZH,SREG ;1 save status push ZH ;2 ;------------------------------------------------------------------------------- ; set pointer for code saving ;------------------------------------------------------------------------------- ldi YL,LOW(libmio_ram) ;1 set ptr ldi YH,HIGH(libmio_ram) ;1 ;------------------------------------------------------------------------------- ;serial port io ;------------------------------------------------------------------------------- ldd XH,Y+lmo_serio ;2 serial io sbrs XH,7 ;1 skip if 1-bit cbi PORTD,4 ;2 clear pin sbrc XH,7 ;1 skip if 0-bit sbi PORTD,4 ;2 set pin rcall libmio_blsc1 std Y+lmo_serio,XH ;2 ;------------------------------------------------------------------------------- ;count line up and set border ;------------------------------------------------------------------------------- add vline_l,const_1 ;1 adc vline_h,const_0 ;1 ;------------------------------------------------------------------------------- ;check if line is image ;------------------------------------------------------------------------------- ldd ZL,Y+lmo_config ;2 configuration mov ZH,vline_h ;1 10 max visible lines cpi ZH,0x00 brne libmio_bli_02 mov ZH,vline_l cpi ZH,10 ;1 max lines brcs libmio_bli_50 ;2 goto image-line cpi ZH,230 brcs libmio_bli_06 ;------------------------------------------------------------------------------- ;no image line ;------------------------------------------------------------------------------- libmio_bli_02: ldi ZH,libmio_vstart_p ;1 vstart pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_vstart_n ;1 vstart ntsc cp vline_l,ZH brne libmio_bli_03 ;no vsync start cbi PORTD,6 sbrs ZL,3 ;csync bit rjmp libmio_bli_06 ldi XH,0x82 ;invert CSYNC sts TCCR1A,XH rjmp libmio_bli_06 libmio_bli_03: ldi ZH,libmio_vstop_p ;1 vstop pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_vstop_n ;1 vstop ntsc cp vline_l,ZH brne libmio_bli_04 ;no vsync stop sbi PORTD,6 sbrs ZL,3 ;csync bit rjmp libmio_bli_06 ldi XH,0xc2 ;normal CSYNC sts TCCR1A,XH rjmp libmio_bli_06 libmio_bli_04: ldi ZH,57 ;1 maxlines pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,7 ;1 maxlines ntsc cp vline_l,ZH brne libmio_bli_06 ;2 end of frame libmio_bli_05: clr vline_l ;line_l=0 clr vline_h ;line_h=0 libmio_bli_06: rjmp libmio_bli_ser ;goto serial ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- libmio_bli_50: lds XL,TCNT1L ;1 get timer cpi XL,libmio_hstart+70 ;1 brcs libmio_bli_50 ;1 loop libmio_bli_51: cpi XL,libmio_hstart+71 brcs libmio_bli_52 libmio_bli_52: cpi XL,libmio_hstart+72 brcs libmio_bli_53 libmio_bli_53: cpi XL,libmio_hstart+73 brcs libmio_bli_54 libmio_bli_54: cpi XL,libmio_hstart+74 brcs libmio_bli_55 libmio_bli_55: ;------------------------------------------------------------------------------- ; -output character line 4 clocks per pixel ; -256 characters are in table 6x12px each ;------------------------------------------------------------------------------- libmio_bli_60: ldi XL,LOW(libmio_vram) ;2 BS low ldi XH,HIGH(libmio_vram) ;1 BS high ldi ZH,HIGH(libmio_ctable*2) ;start chartable add ZH,vline_l ;1 ldi YL,32 ;1 no of chars ld ZL,X+ ;2 get char lpm tempreg2,Z ;3 get pixline ldi tempreg1,0x00 ;2 black ldi tempreg3,0x80 libmio_bli_61: out PORTC,tempreg1 ;1 out P0 ld ZL,X+ ;2 get next char sbrc tempreg2,6 ;1 check P1 out PINC,tempreg3 ;1 out P1 nop ;1 filling nop ;1 filling sbrc tempreg2,5 ;1 check P2 out PINC,tempreg3 ;1 out P2 lpm r0,Z ;3 sbrc tempreg2,4 ;1 check P3 out PINC,tempreg3 ;1 out P3 dec YL ;1 nop ;1 filling sbrc tempreg2,3 ;1 check P4 out PINC,tempreg3 ;1 out P4 nop ;1 filling nop ;1 filling sbrc tempreg2,2 ;1 check P4 out PINC,tempreg3 ;1 out P5=0 mov tempreg2,r0 ;1 brne libmio_bli_61 ;2 loop nop ;1 filling out PORTC,const_0 ;1 end of line libmio_bli_ser: rcall libmio_bl_2rx ;serio 2400 Bps ;------------------------------------------------------------------------------- ;abort if esc (scan 0x76) received ;------------------------------------------------------------------------------- lds ZL,UDR0 ;2 cpi ZL,0x76 ;esc brne libmio_bli_90 ;no jmp libmio_bl_end ;yes ;------------------------------------------------------------------------------- ;restore registers and exit ;------------------------------------------------------------------------------- libmio_bli_90: pop ZH ;2 restore sreg out SREG,ZH ;1 put back pop r1 ;2 restore r1 pop r0 ;2 restore r0 pop XL ;2 restore Y-register pop XH ;2 restore Y-register pop YL ;2 restore Y-register pop YH ;2 restore Y-register pop ZL ;2 restore Z-register pop ZH ;2 restore Z-register pop tempreg3 ; pop tempreg2 ;2 pop tempreg1 ;2 restore register reti ;4 thats all ;------------------------------------------------------------------------------- ;serial port (receive 2400) ;------------------------------------------------------------------------------- libmio_bl_2rx: lds XL,libmio_serio ;2 get signal byte lds ZL,libmio_rcnt ;2 clock counter cpi ZL,0x00 ;1 end breq libmio_bl_2rxe ;1/2 cpi ZL,0xff ;1 wait for sig brne libmio_bl_2rx1 ;1/2 sbrc XL,0 ;1 skip if line is 0 rjmp libmio_bl_2rxe ;1/2 ldi ZL,62 ;1 start value 2400 rjmp libmio_bl_2rxe ;2 ;+9 libmio_bl_2rx1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm XH,Z ;3 sbrs XH,5 ;1 skip if sample bit rjmp libmio_bl_2rxe ;2 lds XH,libmio_rdat ;2 serial data lsr XH ;1 bst XL,0 ;1 RXD data bld XH,7 ;1 shift in sts libmio_rdat,XH ;2 libmio_bl_2rxe: sts libmio_rcnt,ZL ;2 ;------------------------------------------------------------------------------- ;serial port (transmit 2400) ;------------------------------------------------------------------------------- libmio_bl_2tx: lds ZL,libmio_tcnt ;2 clock counter cpi ZL,0x00 ;1 breq libmio_bl_2txe ;1/2 nothing to do cpi ZL,0xff ;1 wait for start brne libmio_bl_2tx1 ;1/2 ldi ZL,80 ;1 andi XL,0x7f ;1 clear bit rjmp libmio_bl_2txe ;2 ;+7 clk libmio_bl_2tx1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm XH,Z ;3 sbrs XH,4 ;1 skip if setout bit rjmp libmio_bl_2txe ;2 lds XH,libmio_tdat ;2 bst XH,0 ;1 sec ;1 ror XH ;1 bld XL,7 ;1 sts libmio_tdat,XH ;2 libmio_bl_2txe: sts libmio_tcnt,ZL ;2 sts libmio_serio,XL ;2 ret ;------------------------------------------------------------------------------- ;serial port (receive 1200) ;------------------------------------------------------------------------------- libmio_bl_1rx: lds XL,libmio_serio ;2 get signal byte lds ZL,libmio_rcnt ;2 clock counter cpi ZL,0x00 ;1 end breq libmio_bl_1rxe ;1/2 cpi ZL,0xff ;1 wait for sig brne libmio_bl_1rx1 ;1/2 sbrc XL,0 ;1 skip if line is 0 rjmp libmio_bl_1rxe ;1/2 ldi ZL,124 ;1 start value 1200 rjmp libmio_bl_1rxe ;2 ;+9 libmio_bl_1rx1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm XH,Z ;3 sbrs XH,7 ;1 skip if sample bit rjmp libmio_bl_1rxe ;2 lds XH,libmio_rdat ;2 serial data lsr XH ;1 bst XL,0 ;1 RXD data bld XH,7 ;1 shift in sts libmio_rdat,XH ;2 libmio_bl_1rxe: sts libmio_rcnt,ZL ;2 ;------------------------------------------------------------------------------- ;serial port (transmit 1200) ;------------------------------------------------------------------------------- libmio_bl_1tx: lds ZL,libmio_tcnt ;2 clock counter cpi ZL,0x00 ;1 breq libmio_bl_2txe ;1/2 nothing to do cpi ZL,0xff ;1 wait for start brne libmio_bl_1tx1 ;1/2 ldi ZL,144 ;1 start value 1200 andi XL,0x7f ;1 clear bit rjmp libmio_bl_2txe ;2 ;+7 clk libmio_bl_1tx1: dec ZL ;1 counter -1 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm XH,Z ;3 sbrs XH,6 ;1 skip if setout bit rjmp libmio_bl_2txe ;2 lds XH,libmio_tdat ;2 bst XH,0 ;1 sec ;1 ror XH ;1 bld XL,7 ;1 sts libmio_tdat,XH ;2 rjmp libmio_bl_2txe chipbasic2_1.28_source/system/libmio/vidm_tvs.asm0000777000175000001440000000705411331605441021311 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 6 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. # ;# # ;################################################################################ 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 chipbasic2_1.28_source/system/libmio/vidm_tvc.asm0000777000175000001440000000661611331630272021274 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. # ;# # ;################################################################################ 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 chipbasic2_1.28_source/system/libmio/vidm_tvu.asm0000777000175000001440000000675111331611546021321 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# viedo mode 4 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. # ;# # ;################################################################################ 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 chipbasic2_1.28_source/system/libmio/library.asm0000777000175000001440000024362611360210165021126 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# main library # ;# 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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;border-end-interrupt (no registers destroyed) ;------------------------------------------------------------------------------- libmio_bisr: out PORTC,const_0 ;2 reti ;------------------------------------------------------------------------------- ;video-interrupt (no registers destroyed, stack=13) ;save registers ;------------------------------------------------------------------------------- libmio_aisr: push tempreg1 ;2 push tempreg2 ;2 push tempreg3 ;2 push ZH ;2 save Z-register push ZL ;2 save Z-register push YH ;2 save Y-register push YL ;2 save Y-register push XH ;2 save Y-register push XL ;2 save Y-register push r0 ;2 save r0 push r1 ;2 save r1 in ZH,SREG ;1 save status push ZH ;2 ;------------------------------------------------------------------------------- ;serial port io ;------------------------------------------------------------------------------- lds XH,libmio_serio ;2 serial io sbrs XH,7 ;1 skip if 1-bit cbi PORTD,4 ;2 clear pin sbrc XH,7 ;1 skip if 0-bit sbi PORTD,4 ;2 set pin lds YL,libmio_sysconf ;2 get conf (bit 5=force M644) in YH,PIND ;1 input data bst YH,3 ;1 default for M644 sbrs YL,5 ;1 skip if force M644 bst YH,1 ;1 default for M644P bld XH,0 ;1 store to register sbrs YL,1 ;1 skip if no max eor XH,const_1 ;1 invert signal sts libmio_serio,XH ;2 ;------------------------------------------------------------------------------- ; set pointer for code saving ;------------------------------------------------------------------------------- ldi YL,LOW(libmio_ram) ;1 set ptr ldi YH,HIGH(libmio_ram) ;1 ;------------------------------------------------------------------------------- ; calculate sound (34c) ;------------------------------------------------------------------------------- ldd tempreg2,Y+lmo_rand2 ;2 noise signal ldd XL,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 XL,r0 ;1 calculate new pointer adc ZL,r1 ;1 std Y+lmo_wpos_l,XL ;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 XL,Y+lmo_note_val ;2 note val andi XL,0x3f ;1 mask bits cpi XL,0x3f ;1 noise? brne libmio_wa_01 ;1/2 mov tempreg1,tempreg2 ;1 libmio_wa_01: ldd tempreg2,Y+lmo_envv ;2 envelope value ldd XH,Y+lmo_volume ;2 volume setting mul XH,tempreg2 ;2 mov tempreg2,r1 ;1 mulsu tempreg1,tempreg2 ;2 shaped value ldi XH,0x80 ;1 neutral signal add XH,r1 ;1 add result sts OCR2A,XH ;1 set level ;------------------------------------------------------------------------------- ; pseudo-random generator (31C) ;------------------------------------------------------------------------------- lds ZL,libmio_rand1 ;2 lds ZH,libmio_rand2 ;2 lds tempreg1,libmio_rand3 ;2 lds tempreg2,libmio_rand4 ;2 mov XL,tempreg2 lsl XL ;1 rol ZL rol ZH rol tempreg1 rol tempreg2 brcc libmio_ird1 ldi XL,0x5D eor ZL,XL ldi XL,0xD5 eor ZH,XL ldi XL,0x2A eor tempreg1,XL ldi XL,0xD5 eor tempreg2,XL libmio_ird1: sts libmio_rand1,ZL ;2 sts libmio_rand2,ZH ;2 sts libmio_rand3,tempreg1 ;2 sts libmio_rand4,tempreg2 ;2 ;------------------------------------------------------------------------------- ;count line up and set border ;------------------------------------------------------------------------------- add vline_l,const_1 ;1 adc vline_h,const_0 ;1 ldd ZL,Y+lmo_sborder ;2 ldd ZH,Y+lmo_border ;2 and ZL,ZH ;1 out PORTC,ZL ;1 sei ;1 enable border interrupt ;------------------------------------------------------------------------------- ;check if line is image ;------------------------------------------------------------------------------- ldd ZL,Y+lmo_config ;2 configuration ldd ZH,Y+lmo_vislines ;1 maximum lines cp ZH,const_0 ;1 breq libmio_ismode7 ;1/2 goto forced image line libmio_ismode0: sbrc vline_h,0 ;1 skip if less than 256 rjmp libmio_is_02 ;2 no visible line libmio_ismode1: cp vline_l,ZH ;1 max lines brcc libmio_is_02 ;2 goto no image-line libmio_ismode2: rjmp libmio_iss ;2 goto image line libmio_ismode7: call 0x7217 ;user defined mode brtc libmio_is_05 ;no sync ;------------------------------------------------------------------------------- ;no image line ;------------------------------------------------------------------------------- libmio_is_02: brne libmio_is_04 ;no sync lds tempreg1,bas_mta ;mt line cpi tempreg1,0xff ;disabled? breq libmio_is_04 ;branch if disabled lds tempreg1,bas_mta+2 ;counter dec tempreg1 ;-1 brne libmio_is_03 ; lds tempreg1,bas_mta+1 ;reaload counter sts bas_mta+3,const_1 ;1 set flag libmio_is_03: sts bas_mta+2,tempreg1 libmio_is_04: ldi ZH,libmio_vstart_p ;1 vstart pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_vstart_n ;1 vstart ntsc cp vline_l,ZH brne libmio_is_09 ;no vsync start cbi PORTD,6 sbrs ZL,3 ;csync bit rjmp libmio_is_15 ldi XH,0x82 ;invert CSYNC sts TCCR1A,XH libmio_is_05: rjmp libmio_is_15 libmio_is_09: ldi ZH,libmio_vstop_p ;1 vstop pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_vstop_n ;1 vstop ntsc cp vline_l,ZH brne libmio_is_10 ;no vsync stop sbi PORTD,6 sbrs ZL,3 ;csync bit rjmp libmio_is_15 ldi XH,0xc2 ;normal CSYNC sts TCCR1A,XH rjmp libmio_is_15 libmio_is_10: ldi ZH,libmio_bstart_p ;1 border start pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_bstart_n ;1 border start ntsc cp vline_l,ZH brne libmio_is_11 ;no border start ldi ZL,0xff sts libmio_sborder,ZL rjmp libmio_is_15 libmio_is_11: ldi ZH,libmio_bstop_p ;1 border stop pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,libmio_bstop_n ;1 border stop ntsc cp vline_l,ZH brne libmio_is_13 ;no border stop sts libmio_sborder,const_0 rjmp libmio_is_15 libmio_is_13: ldi ZH,57 ;1 maxlines pal sbrs ZL,2 ;1 pal/ntsc bit ldi ZH,7 ;1 maxlines ntsc cp vline_l,ZH breq libmio_is_14 ;2 end of frame rjmp libmio_is_15 libmio_is_14: ldi XL,LOW(libmio_vram) ;1 set vram start std Y+lmo_rampos_l,XL ;2 ldi XL,HIGH(libmio_vram) ;1 std Y+lmo_rampos_h,XL ;2 std Y+lmo_cline,const_0 ;2 store cline clr vline_l ;line_l=0 clr vline_h ;line_h=0 ldi XL,0x0a ;editor head color std Y+lmo_elcolor,XL ;increment counters ldi XL,5 ;1 fps/10 for pal sbrs ZL,2 ;1 pal/ntsc bit inc XL ;1 fps/10 for ntsc ldi tempreg1,50 ;1 fps for pal sbrs ZL,2 ;1 pal/ntsc bit ldi tempreg1,60 ;1 fps for ntsc ldd XH,Y+lmo_time0 ;2 timer inc XH cp XH,XL ;1 frames (5/6) brne libmio_is_06a clr XH ldd ZL,Y+lmo_time_l ldd ZH,Y+lmo_time_h adiw ZL,1 std Y+lmo_time_l,ZL std Y+lmo_time_h,ZH libmio_is_06a: std Y+lmo_time0,XH ldd ZL,Y+lmo_frames ;2 get frame counter inc ZL ;1 +1 cp ZL,tempreg1 ;1 frames (50/60) brne libmio_is_07 ;2 frame oveflow clr ZL ;1 set frames=0 libmio_is_07: std Y+lmo_frames,ZL ;2 set frames=0 ;------------------------------------------------------------------------------- ; calculate envelope position ;------------------------------------------------------------------------------- ldi ZH,HIGH(libmio_etable*2);1 start envtable high ldi ZL,LOW(libmio_etable*2) ;1 start envtable low lds XL,libmio_note_val sbrc XL,7 adiw ZL,32 ldd XL,Y+lmo_env ;2 envelope pointer add ZL,XL ;1 envelope-position adc ZH,const_0 ;1 lpm XH,Z ;get envelope value cp XH,const_0 ;must be zero to stop breq libmio_is_11a ;the end is reached inc XL ;+1 std Y+lmo_env,XL ;write back libmio_is_11a: std Y+lmo_envv,XH ;write envelope value ;------------------------------------------------------------------------------- ; check sequencer ;------------------------------------------------------------------------------- libmio_is_seq: lds tempreg3,libmio_seqstat cpi tempreg3,0x00 ;enabled? breq libmio_is_seq8 ;yes libmio_is_seq1: lds XH,libmio_seqcount ;counter dec XH sts libmio_seqcount,XH ;store back brne libmio_is_seq8 lds XH,libmio_seqspeed ;speed sts libmio_seqcount,XH lds XH,libmio_seqtick ;ticks of recent dec XH sts libmio_seqtick,XH brne libmio_is_seq8 lds ZL,libmio_seql lds ZH,libmio_seqh lds YL,libmio_seqbl lds YH,libmio_seqbh sbiw YL,1 ld XL,Z+ ;note ld XH,Z+ ;no of ticks/volume mov tempreg1,XH ;copy value swap XH ;swap for volume checking andi XH,0x0f breq libmio_is_seqv ;branch if no volume set clt ;only local volume call libmio_setvol ;set volume libmio_is_seqv: andi tempreg1,0x0f ;mask tick bits sts libmio_seqtick,tempreg1 ;store rcall libmio_note libmio_is_seq2: cp ZL,YL ;compare hi cpc ZH,YH ;compare low brcs libmio_is_seq7 ;is less sbrs tempreg3,7 ;skip counting if bit 7 is high dec tempreg3 sts libmio_seqstat,tempreg3 ;write status libmio_is_seq6: lds ZL,libmio_seqal ;get start pointer lds ZH,libmio_seqah libmio_is_seq7: sts libmio_seql,ZL ;store pointer sts libmio_seqh,ZH libmio_is_seq8: rjmp libmio_is_15 ;------------------------------------------------------------------------------- ;sync to counter ;------------------------------------------------------------------------------- libmio_iss: lds XL,TCNT1L ;1 get timer cpi XL,232 ;1 brcs libmio_iss ;1 loop libmio_iss_01: cpi XL,233 brcs libmio_iss_02 libmio_iss_02: cpi XL,234 brcs libmio_iss_03 libmio_iss_03: cpi XL,235 brcs libmio_iss_03a libmio_iss_03a: cpi XL,236 brcs libmio_iss_04 libmio_iss_04: sbrc ZL,5 ;1 fast flag rjmp libmio_is_15 ;2 no visible lines lds ZL,libmio_vidmode lsl ZL ldi ZH,LOW(libmio_isj) add ZL,ZH ldi ZH,HIGH(libmio_isj) adc ZH,const_0 ijmp libmio_isj: jmp libmio_tvc ;standard mode jmp libmio_tvg2 ;2 color graphics jmp libmio_tvg4 ;4 color graphics jmp libmio_tvg8 ;8 color graphics jmp libmio_tvu ;user charset mode 1 jmp libmio_tvg1 ;2 color graphics jmp libmio_tvs ;user charset mode 2 jmp libmio_extmode ;ext driver jmp libmio_tvm ;editor mode libmio_extmode: call 0x7217 libmio_is_15: ;------------------------------------------------------------------------------ ;the keyboard routine ;09 no char from keyboard ;26 key, but released ;43 key, state 1 ;------------------------------------------------------------------------------ libmio_kir: lds XL,libmio_kbdstate ;2 sbrc XL,5 ;1 skip if not state2 rjmp libmio_kir_s2 ;2 jump to next state ;+4 lds ZL,UCSR0A ;2 status sbrs ZL,RXC0 ;1 RXC? rjmp libmio_kir_end ;2 no byte available lds ZL,UDR0 ;2 get data sts debug_scode,ZL ;2 save scancode for debug only ;+10 ldi ZH,HIGH(libmio_kstab*2) ;1 set start of table lpm XH,Z ;3 get config byte ;+14 sbrs XH,0 ;1 skip if char rjmp libmio_kir_nch ;2 no char ;+16 sbrs XL,7 ;1 check release flag rjmp libmio_kir_01 ;2 sts libmio_keycode,const_0 ;2 clear keycode rjmp libmio_kir_enb ;2 ;+19 libmio_kir_01: cpi ZL,0x83 ;1 change this one code brne libmio_kir_02 ;1 jump if not ldi ZL,0x10 ;1 replacement ;+22 libmio_kir_02: ldi ZH,HIGH(libmio_ktables*2) ;1 start ext keytable ;+23 ;check for extended andi ZL,0x7f ;1 clear bit 7 of low sbrs XL,4 ;1 skip if alt sbrc XL,6 ;1 skip if extended inc ZH ;1 table 3 (extended) sbrs XL,4 ;1 alt sbrc XL,0 ;1 left shift ori ZL,0x80 ;1 part 2 of table sbrc XL,1 ;1 right shift ori ZL,0x80 ;1 part 2 of table ;+30 lpm ZL,Z ;3 get value sts libmio_scancode,ZL ;2 ori XL,0x20 ;1 set state 2 rjmp libmio_kir_enc ;2 ;second cycle (+5) libmio_kir_s2: lds ZL,libmio_scancode ;2 get code back ;+7 sts libmio_keycode,ZL ;store result sts libmio_lastkey,ZL cpi ZL,0xee ;1 alt+del brne libmio_kir_03 ;1/2 sbrc XL,2 ;2 left control jmp start ;4 restart ;+11 libmio_kir_03: lds tempreg1,libmio_kflags ;2 keyboard control cpi ZL,'c' ;1 Break? brne libmio_kir_04 ;1/2 sbrc XL,2 ;1 left control? ori tempreg1,1 ;1 set break bit libmio_kir_04: cpi ZL,'p' ;Screenshot? brne libmio_kir_05 ;1/2 sbrc XL,3 ;1 right control? ori tempreg1,2 ;set screenshot bit libmio_kir_05: cpi ZL,0xfc ;monitor? brne libmio_kir_06 ori tempreg1,4 ;set monitor bit libmio_kir_06: sts libmio_kflags,tempreg1 ;save keyboard control rjmp libmio_kir_enb ;end ;no char (+17) libmio_kir_nch: cpi ZL,0xf0 brne libmio_kir_nc1 ori XL,0x80 ;1 set release flag rjmp libmio_kir_enc ;+20 libmio_kir_nc1: cpi ZL,0xe0 brne libmio_kir_nc2 ori XL,0x40 ;1 set extended flag rjmp libmio_kir_enc ;+23 libmio_kir_nc2: cpi ZL,0x12 ;left shift brne libmio_kir_nc3 ;no sbrc XL,6 ;skip if not extended rjmp libmio_kir_enb ;extended->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 ;------------------------------------------------------------------------------- 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: pop ZH ;2 restore sreg out SREG,ZH ;1 put back pop r1 ;2 restore r1 pop r0 ;2 restore r0 pop XL ;2 restore Y-register pop XH ;2 restore Y-register libmio_is_30: pop YL ;2 restore Y-register pop YH ;2 restore Y-register pop ZL ;2 restore Z-register pop ZH ;2 restore Z-register pop tempreg3 ;2 pop tempreg2 ;2 pop tempreg1 ;2 restore register reti ;4 thats all ;------------------------------------------------------------------------------- ;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) ;------------------------------------------------------------------------------- sts UCSR1B,const_0 ;disable RX,TX call mem_getconf lds XH,libmio_sysconf sbrc XH,5 rjmp libmio_u1e ldi XL,3 ;9600 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) ;------------------------------------------------------------------------------- ldi XL,0x5c ;f/4 sbrc XH,3 ldi XL,0x5f ;f/128 out SPCR,XL ldi XL,0x00 out SPSR,XL ;------------------------------------------------------------------------------- ;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 routine call 0x7211 ;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 XL,libmio_v0cols sts libmio_clipx2,XL ldi XL,libmio_v0rows sts libmio_clipy2,XL ldi XL,235 rjmp libmio_vmodes libmio_vmode1: cpi XL,0x01 brne libmio_vmode2 ldi XL,libmio_v1cols sts libmio_clipx2,XL ldi XL,libmio_v1rows sts libmio_clipy2,XL sts libmio_palette,const_0 ;palette 0 ldi XL,0xe0 ;white sts libmio_palette+1,XL ;palette 1 ldi XL,237 rjmp libmio_vmodes libmio_vmode2: cpi XL,0x02 brne libmio_vmode3 ldi XL,libmio_v2cols sts libmio_clipx2,XL ldi XL,libmio_v2rows sts libmio_clipy2,XL 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 XL,235 rjmp libmio_vmodes libmio_vmode3: cpi XL,0x03 brne libmio_vmode5 ldi XL,libmio_v3cols sts libmio_clipx2,XL ldi XL,libmio_v3rows sts libmio_clipy2,XL clr XL clr XH libmio_vmode3a: rcall libmio_setpal inc XL inc XH cpi XH,0x10 brne libmio_vmode3a libmio_vmode13: ldi XL,237 rjmp libmio_vmodes libmio_vmode5: cpi XL,0x05 brne libmio_vmode6 ldi XL,libmio_v5cols sts libmio_clipx2,XL ldi XL,libmio_v5rows 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 ldi XL,184 libmio_vmodes: sts libmio_vislines,XL sts libmio_vidmode,r19 ;set videomode ret libmio_vmode6: cpi XL,0x06 brne libmio_vmode7 ldi XL,libmio_v0cols sts libmio_clipx2,XL ldi XL,libmio_v0rows sts libmio_clipy2,XL call libmio_copytab ldi XL,230 rjmp libmio_vmodes libmio_vmode7: movw r0,ZL ;save Z register ldi ZL,0x0e ldi ZH,0xe4 lpm XH,Z movw ZL,r0 cpi XH,0xff breq libmio_vmode7e andi XH,0xe0 cpi XH,0xe0 ;ID for video ext breq libmio_vmode7a libmio_vmode7e: ldi ereg,5 ;constant too big ret libmio_vmode7a: set ;set init flag call 0x7211 ;call init routine (1) rjmp libmio_vmodes ;------------------------------------------------------------------------------ ; 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: call 0x7212 ;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 jmp 0x7216 ;fkt 6 (newline) 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 pop XH pop XL ret libmio_char0: pop XH pop XL lds XL,libmio_channel cpi XL,1 ;serial brne libmio_char0a jmp libmio_pser ;write serial (ch1) libmio_char0a: cpi XL,2 ;serial 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 pop ZL pop XH pop XL jmp 0x7213 ;fkt 3 (char) 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) ;------------------------------------------------------------------------------- .ifdef use_libmio_orom 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 .endif ;------------------------------------------------------------------------------- ; 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 pop ZL brne libmio_gxy_1 jmp 0x7214 ;fkt 4 (pos) 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 jmp 0x7215 ;fkt 5 (plot) 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) ;------------------------------------------------------------------------------- .ifdef use_libmio_note libmio_note: push_ptr 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 pop_ptr .endif ;------------------------------------------------------------------------------ ;wait for a key ;------------------------------------------------------------------------------ .ifdef use_libmio_waitkey libmio_waitkey: sts libmio_lastkey,const_0 libmio_wkey1: lds tempreg1,libmio_lastkey cpi tempreg1,0 breq libmio_wkey1 .ifdef use_libmio_screenshot rjmp libmio_scrs .else ret .endif .endif ;------------------------------------------------------------------------------ ;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: 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 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 XH push tempreg1 call get_iosel mov XH,tempreg1 pop tempreg1 sbrs XH,0 ;skip if allowed breq libmio_ppar_4 libmio_ppar_0: ldi XH,0xff out DDRA,XH ;set port A0-7 as outputs nop libmio_ppar_1: sbic PINB,2 ;busy rjmp libmio_ppar_1 ;yes out PORTA,tempreg1 ;data ldi XH,100 ;pause libmio_ppar_2: dec XH brne libmio_ppar_2 cbi PORTB,1 ;clear strobe (active) ldi XH,100 ;pause libmio_ppar_3: dec XH brne libmio_ppar_3 sbi PORTB,1 ;set strobe (inactive) libmio_ppar_4: pop XH 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 push_ptr mov XH,XL 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 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 T=0 Flash T=1 RAM ;------------------------------------------------------------------------------- libmio_dmenu: push YH push YL push XH push XL push ZH push ZL 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 libmio_menu_1: pop ZL pop ZH push ZH push ZL rcall libmio_scrs ldi YL,LOW(libmio_vram+660) ;char address ldi YH,HIGH(libmio_vram+660) lds XH,libmio_kbdstate sbrc XH,2 ;left ctrl adiw ZL,30 ;ctrl level libmio_menu_2: brts libmio_menu_3 ;branch if RAM rcall libmio_menu_fc ;copy from flash rjmp libmio_menu_4 libmio_menu_3: rcall libmio_menu_rc ;copy from ram libmio_menu_4: lds tempreg1,libmio_keycode ;get keycode 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 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 ZL pop ZH libmio_menu_13: pop XL pop XH pop YL pop YH ret ;copy from RAM libmio_menu_rc: ldi XH,30 libmio_menu_r1: ld XL,Z+ st Y+,XL dec XH brne libmio_menu_r1 ret ;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 YH push YL push XH push XL push ZH push ZL 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 ZL pop ZH push ZH push ZL ldi YL,LOW(libmio_vram+660) ;char address ldi YH,HIGH(libmio_vram+660) rcall libmio_menu_fc ;copy from flash rjmp libmio_menu_12 ;------------------------------------------------------------------------------- ; set config for I2C and SPI ;------------------------------------------------------------------------------- libmio_setconf: ldi XL,0x5c ;f/4 lds XH,libmio_sysconf sbrc XH,3 ldi XL,0x5f ;f/128 out SPCR,XL 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" chipbasic2_1.28_source/system/libmio/keytable_de.inc0000777000175000001440000001265611315654247021735 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# keytable - DE layout # ;# copyright (c) 2007-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ; 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 ;------------------------------------------------------------------------------- ;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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+', '3', '-', '*', '9',0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,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,0x00 ;scancode 70-77 .db 0xfb, '+',0xe7, '-', '*',0xe6,0x00,0x00 ;scancode 78-7f chipbasic2_1.28_source/system/libmio/macros.asm0000777000175000001440000001647111315744712020754 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega 644 # ;# macro definitions # ;# 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. # ;# # ;################################################################################ .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 .set use_libmio_orom = 1 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_dmenu .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 chipbasic2_1.28_source/system/libmio/generator/0000777000175000001440000000000011353503623020734 5ustar joerguserschipbasic2_1.28_source/system/libmio/generator/generate_sound.pl0000777000175000001440000001037711315754173024314 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); chipbasic2_1.28_source/system/libmio/generator/generate_chartables.pl0000777000175000001440000000771511315754145025275 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); chipbasic2_1.28_source/system/libmio/generator/generate_cirtab.pl0000777000175000001440000000335611315754161024424 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); chipbasic2_1.28_source/system/libmio/generator/ctab_f1.dat0000777000175000001440000001262511064556576022754 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... .... chipbasic2_1.28_source/system/libmio/generator/ctab_f0.dat0000777000175000001440000005324511353503623022740 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... ...... ...... chipbasic2_1.28_source/system/libmio/ctable_f1.inc0000666000175000001440000000424011306305726021263 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 chipbasic2_1.28_source/system/libmio/xmodem.asm0000777000175000001440000000603711326150736020755 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# xmodem library # ;# 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. # ;# # ;################################################################################ ;----------------------------------------------------------------------------- ; read XMODEM block, tempreg3=blocknum, Y=address ;----------------------------------------------------------------------------- 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,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 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 chipbasic2_1.28_source/system/libmio/scroll.asm0000777000175000001440000001271211222573020020745 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# scroll routines # ;# copyright (c) 2008-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. # ;# # ;################################################################################ ;------------------------------------------------------------------------------- ;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 chipbasic2_1.28_source/system/libmio/definitions.asm0000777000175000001440000001445711345010177021777 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# 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. # ;# # ;################################################################################ ;-------------------------------------------------------------------------------- ; 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_env = libmio_ram+20 .equ libmio_note_val = 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 = 20 .equ lmo_note_val = 21 .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 chipbasic2_1.28_source/system/libmio/sprites.asm0000777000175000001440000001717711222722021021147 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# sprites # ;# copyright (c) 2006-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. # ;# # ;################################################################################ .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 chipbasic2_1.28_source/system/libmio/ctable_f0.inc0000666000175000001440000003460011306305726021265 0ustar joergusers .db 0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80 .db 0xfc,0x28,0x28,0x80,0x04,0xc0,0x14,0x50,0x28,0x28,0x28,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 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x28,0xc0,0x04,0xc0,0x00,0x00,0x00,0x00,0x20,0x88,0xfc,0x34,0xb4,0x00,0x00,0x80 .db 0x64,0x00,0x64,0x00,0x64,0x00,0x3c,0x3c,0x18,0x18,0x18,0x18,0x00,0x00,0x00,0x00 .db 0x00,0x28,0x00,0x00,0x08,0xa0,0x80,0x80,0x00,0x00,0x04,0xc0,0x28,0x80,0x00,0x24 .db 0x28,0x00,0x80,0x00,0x00,0x00,0x44,0x28,0x80,0x00,0xc0,0x04,0xc4,0x18,0x00,0x00 .db 0x00,0x28,0x28,0x28,0x28,0x00,0x28,0x28,0x18,0x18,0x28,0x00,0x00,0x00,0x00,0x00 .db 0x80,0x90,0x80,0x80,0x08,0xa0,0x84,0x40,0x80,0x80,0xc8,0xa4,0x00,0x00,0x4c,0x84 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x60,0x18,0x00,0x80,0x28,0x28 .db 0x28,0x00,0x00,0x00,0x28,0x28,0x00,0x28,0x28,0x28,0x28,0x00,0x00,0x2c,0xe8,0x90 .db 0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80 .db 0x7c,0x44,0x44,0x80,0xa8,0xa8,0x14,0x50,0x48,0x44,0x44,0x00,0x24,0x00,0x00,0x00 .db 0x00,0x18,0x3c,0x3c,0x18,0x50,0x28,0x28,0x0c,0x30,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x24,0x18,0x24,0x40,0x0c,0x40,0x14,0x40,0x24,0x24,0x00,0x00,0x0c,0x00,0x30,0x24 .db 0x24,0x24,0x44,0x24,0x44,0x40,0x40,0x24,0x64,0x24,0x10,0x64,0x60,0x64,0x64,0x24 .db 0x44,0x24,0x44,0x24,0x40,0x64,0x64,0x64,0x64,0x64,0x40,0x48,0x60,0x48,0x18,0x00 .db 0x30,0x00,0x60,0x00,0x04,0x00,0x14,0x00,0x60,0x18,0x0c,0x60,0x28,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x0c,0x18,0x30,0x00,0x00 .db 0x28,0xa0,0x04,0xc0,0x28,0x00,0x00,0x28,0x40,0x84,0x7c,0x6c,0x58,0x44,0xa8,0x80 .db 0x00,0x3c,0x00,0x3c,0x00,0x3c,0x18,0x18,0x3c,0x3c,0x3c,0x3c,0x24,0x00,0x40,0x30 .db 0x18,0x28,0x00,0x00,0x10,0x90,0x80,0x80,0x04,0xc0,0x04,0xc0,0x28,0xfc,0x28,0x7c .db 0x28,0x44,0x0c,0x00,0x00,0x00,0x44,0xec,0x80,0x00,0xc0,0x04,0xc4,0x24,0x00,0x00 .db 0x00,0x28,0x28,0x28,0x28,0x6c,0x28,0x28,0xc0,0x18,0x28,0x64,0x00,0x00,0x00,0x00 .db 0x80,0x88,0xa4,0x10,0x10,0x90,0x84,0x40,0xc0,0x04,0xc8,0xa4,0x00,0x00,0x8c,0x80 .db 0x28,0x7c,0x00,0x80,0x80,0x00,0x40,0x84,0xfc,0xf8,0x30,0x30,0x00,0x00,0x24,0x48 .db 0x28,0x00,0x00,0x00,0x28,0x28,0x00,0x28,0x28,0x28,0x28,0x00,0x00,0x2c,0xe8,0xc0 .db 0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80 .db 0xfc,0x44,0x44,0x80,0x80,0x80,0x14,0x50,0x44,0x44,0x44,0x28,0x3c,0x00,0x00,0x00 .db 0x00,0x18,0x3c,0x3c,0x20,0x54,0x6c,0x18,0x18,0x18,0x18,0x18,0x00,0x00,0x00,0x04 .db 0x64,0x28,0x64,0x0c,0x14,0x60,0x30,0x64,0x64,0x64,0x28,0x28,0x18,0x00,0x18,0x64 .db 0x64,0x64,0x64,0x64,0x64,0x60,0x60,0x64,0x64,0x18,0x0c,0x6c,0x60,0x58,0x64,0x64 .db 0x64,0x64,0x64,0x64,0x18,0x64,0x64,0x64,0x64,0x64,0x04,0x60,0x60,0x18,0x3c,0x00 .db 0x18,0x00,0x60,0x00,0x04,0x00,0x34,0x00,0x60,0x00,0x00,0x60,0x18,0x00,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x18,0x00,0x18 .db 0x44,0x90,0x08,0xa0,0x6c,0x1c,0x18,0x6c,0x40,0x84,0xfc,0x34,0xb4,0x44,0xa8,0x80 .db 0x24,0x00,0x24,0x00,0x64,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x64,0x24,0x18,0x30 .db 0x24,0x28,0x28,0x28,0x20,0x88,0x80,0x80,0xa4,0xa0,0x0c,0x60,0x44,0x80,0x44,0x40 .db 0x28,0x44,0x0c,0x40,0x84,0x44,0x44,0x80,0x00,0x00,0xc0,0x04,0x6c,0x24,0x00,0x44 .db 0x00,0x28,0x28,0x28,0x28,0x6c,0x80,0x80,0xc0,0x18,0x44,0x54,0x40,0x84,0x48,0x10 .db 0x80,0x84,0xbc,0xb0,0x20,0x88,0x88,0x20,0xd8,0x34,0xc8,0xa4,0x40,0x84,0x8c,0x80 .db 0x2c,0x7c,0x00,0xc4,0xc4,0x44,0x80,0x80,0xc0,0x08,0x28,0x30,0x00,0x80,0x20,0x88 .db 0x28,0x00,0x00,0x00,0x28,0x28,0x00,0x28,0x28,0x28,0x28,0x00,0x00,0x2c,0xe8,0xa0 .db 0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80 .db 0x7c,0x80,0x80,0x80,0x80,0x80,0x10,0x90,0x84,0x80,0x80,0x44,0x24,0x18,0x64,0x24 .db 0x00,0x18,0x3c,0x40,0x78,0x0c,0x78,0x30,0x30,0x0c,0x7c,0x18,0x00,0x00,0x00,0x0c .db 0x68,0x18,0x04,0x18,0x3c,0x44,0x60,0x0c,0x64,0x64,0x28,0x28,0x30,0x40,0x0c,0x04 .db 0x04,0x64,0x64,0x60,0x64,0x60,0x60,0x60,0x64,0x18,0x0c,0x78,0x60,0x7c,0x54,0x64 .db 0x64,0x64,0x64,0x60,0x18,0x64,0x64,0x64,0x3c,0x64,0x0c,0x60,0x30,0x18,0x64,0x00 .db 0x0c,0x24,0x44,0x24,0x2c,0x24,0x30,0x20,0x74,0x28,0x14,0x6c,0x18,0x5c,0x74,0x24 .db 0x48,0x24,0x74,0x24,0x48,0x64,0x64,0x64,0x64,0x64,0x40,0x18,0x18,0x18,0x30,0x0c .db 0x44,0x88,0x10,0x90,0x6c,0x34,0x28,0x6c,0x80,0x80,0x7c,0xd8,0xec,0x6c,0x6c,0x80 .db 0x64,0x24,0x64,0x24,0x64,0x64,0x24,0x24,0x24,0x24,0x24,0x28,0x60,0x60,0x18,0x48 .db 0x40,0x44,0x44,0x44,0x20,0x88,0x40,0x84,0x90,0xa0,0x0c,0x60,0x44,0xfc,0x28,0x64 .db 0x80,0x44,0x0c,0x40,0x84,0x44,0x44,0x28,0x00,0x00,0xc0,0x04,0x6c,0x24,0x00,0x80 .db 0x28,0x44,0x44,0x44,0x44,0x6c,0x80,0x80,0x60,0x18,0xc4,0x4c,0x60,0x0c,0x18,0x18 .db 0x80,0x80,0xbc,0x10,0x40,0x84,0x88,0x20,0xe8,0x2c,0xc8,0xa4,0x80,0x80,0x4c,0x84 .db 0xec,0x24,0x00,0xc4,0xec,0x44,0x80,0x80,0xc0,0x08,0x14,0x48,0x00,0x80,0x20,0x88 .db 0x28,0x00,0x00,0x00,0x28,0x28,0x00,0x28,0x28,0x28,0x28,0x00,0x00,0x2c,0xe8,0xe4 .db 0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80,0x00,0x90,0x10,0x80 .db 0xfc,0x80,0x80,0x80,0xb0,0x98,0x10,0x90,0x80,0xec,0xec,0x44,0x00,0x3c,0x64,0x64 .db 0x00,0x18,0x00,0x3c,0x24,0x18,0x30,0x00,0x30,0x0c,0x24,0x40,0x00,0x40,0x00,0x18 .db 0x7c,0x18,0x0c,0x0c,0x6c,0x04,0x44,0x18,0x24,0x20,0x00,0x00,0x60,0x00,0x04,0x0c .db 0x2c,0x64,0x44,0x60,0x64,0x44,0x44,0x70,0x40,0x18,0x0c,0x50,0x60,0x7c,0x7c,0x64 .db 0x44,0x64,0x44,0x24,0x18,0x64,0x64,0x64,0x18,0x3c,0x18,0x60,0x18,0x18,0x00,0x00 .db 0x00,0x04,0x64,0x60,0x68,0x64,0x48,0x64,0x54,0x18,0x0c,0x78,0x18,0x7c,0x54,0x64 .db 0x6c,0x6c,0x54,0x60,0x30,0x64,0x64,0x64,0x3c,0x64,0x0c,0x30,0x18,0x0c,0x7c,0x80 .db 0x80,0x84,0x10,0x90,0x6c,0x40,0x40,0x48,0x80,0x80,0xfc,0x6c,0xb4,0x6c,0x6c,0x80 .db 0x64,0x04,0x64,0x64,0x64,0x64,0x64,0x04,0x64,0x04,0x18,0x18,0x24,0x24,0x18,0x30 .db 0x18,0x80,0x44,0x28,0x40,0x84,0x40,0x84,0x80,0x84,0x18,0x30,0x80,0x80,0x28,0x24 .db 0x00,0x44,0x0c,0x40,0x84,0x44,0x44,0x44,0x00,0x00,0xc0,0x04,0x28,0x24,0x18,0x80 .db 0x80,0x80,0x84,0x40,0x80,0xa8,0x00,0x00,0x60,0x18,0xc4,0x80,0xa0,0x08,0x40,0x24 .db 0xa4,0xb0,0xbc,0x40,0x80,0x80,0x80,0x80,0xe8,0x2c,0xc8,0xa4,0x88,0x10,0x40,0x84 .db 0xe4,0x24,0x28,0xc4,0xec,0x44,0xd4,0x80,0xc0,0x08,0x14,0x84,0x80,0x80,0x20,0x88 .db 0x28,0x80,0x20,0x88,0x20,0x88,0x80,0x80,0x20,0x88,0x80,0x20,0x88,0x2c,0xe8,0xf0 .db 0x00,0x00,0x00,0x00,0x90,0x90,0x90,0x90,0x10,0x10,0x10,0x10,0x80,0x80,0x80,0x80 .db 0x7c,0x80,0x80,0x80,0x10,0x90,0xb0,0x98,0x40,0x80,0x80,0x44,0x00,0x40,0x64,0x64 .db 0x00,0x18,0x00,0x40,0x1c,0x30,0x78,0x00,0x30,0x0c,0x7c,0x18,0x28,0x00,0x00,0x30 .db 0x54,0x18,0x18,0x04,0x40,0x04,0x64,0x18,0x64,0x04,0x28,0x28,0x30,0x40,0x0c,0x18 .db 0x7c,0x40,0x64,0x60,0x64,0x60,0x60,0x64,0x64,0x18,0x0c,0x78,0x60,0x64,0x68,0x64 .db 0x60,0x7c,0x78,0x04,0x18,0x64,0x3c,0x7c,0x3c,0x18,0x30,0x60,0x0c,0x18,0x00,0x00 .db 0x00,0x20,0x64,0x60,0x64,0x40,0x30,0x64,0x64,0x18,0x0c,0x50,0x18,0x7c,0x64,0x64 .db 0x6c,0x6c,0x60,0x24,0x30,0x64,0x64,0x64,0x18,0x2c,0x18,0x18,0x18,0x18,0x0c,0x0c .db 0x80,0x84,0x20,0x88,0xc4,0x30,0x28,0x6c,0x80,0x80,0x7c,0xd8,0xec,0x6c,0x6c,0x80 .db 0x40,0x20,0x64,0x64,0x64,0x64,0x64,0x20,0x64,0x20,0x18,0x18,0x04,0x04,0x18,0x3c .db 0x18,0x00,0x80,0x44,0x40,0x84,0x40,0x84,0x80,0x80,0x30,0x18,0x80,0xfc,0x80,0x18 .db 0x44,0x44,0x80,0x40,0x84,0x44,0x44,0x44,0x00,0x00,0xc0,0x04,0x28,0x00,0x24,0x44 .db 0x80,0x80,0x84,0x40,0x80,0xa8,0x00,0x44,0x30,0x18,0xc4,0x80,0xa0,0x08,0x24,0x40 .db 0xbc,0xd0,0xa4,0x10,0x84,0x40,0x40,0x84,0xe8,0x2c,0xc8,0xa4,0x4c,0x84,0x80,0x80 .db 0x48,0x24,0x28,0xc4,0xec,0x44,0xf8,0x80,0xc0,0x08,0x14,0x84,0x80,0x80,0x20,0x88 .db 0x28,0x80,0x20,0x88,0x20,0x88,0x80,0x80,0x20,0x88,0x80,0x20,0x88,0x2c,0xe8,0x28 .db 0x00,0x00,0x00,0x00,0x90,0x90,0x90,0x90,0x10,0x10,0x10,0x10,0x80,0x80,0x80,0x80 .db 0xfc,0x80,0x80,0x80,0x10,0x90,0x80,0x80,0x84,0xc4,0xa8,0x44,0x00,0x00,0x64,0x3c .db 0x00,0x00,0x00,0x3c,0x44,0x68,0x6c,0x00,0x18,0x18,0x18,0x18,0x18,0x00,0x28,0x60 .db 0x64,0x18,0x30,0x64,0x0c,0x64,0x64,0x30,0x64,0x0c,0x28,0x18,0x18,0x00,0x18,0x00 .db 0x7c,0x64,0x64,0x64,0x64,0x60,0x60,0x64,0x64,0x18,0x6c,0x6c,0x60,0x64,0x64,0x64 .db 0x60,0x68,0x6c,0x64,0x18,0x64,0x3c,0x7c,0x64,0x18,0x60,0x60,0x04,0x18,0x00,0x00 .db 0x00,0x64,0x64,0x64,0x64,0x60,0x30,0x20,0x64,0x18,0x0c,0x78,0x18,0x64,0x64,0x64 .db 0x48,0x24,0x60,0x04,0x3c,0x68,0x3c,0x7c,0x3c,0x08,0x30,0x18,0x18,0x18,0x00,0x18 .db 0x44,0x88,0x20,0x88,0x80,0x18,0x18,0x6c,0x80,0x80,0xfc,0x34,0xb4,0x6c,0x6c,0x80 .db 0x64,0x64,0x64,0x64,0x64,0x68,0x40,0x64,0x40,0x64,0x18,0x18,0x64,0x44,0x18,0x18 .db 0x40,0x00,0x80,0x80,0x40,0x84,0x20,0x88,0x80,0x84,0x30,0x18,0xdc,0x80,0x28,0x40 .db 0x00,0x44,0x60,0x40,0x84,0x44,0x44,0x28,0x00,0x00,0xc0,0x04,0x6c,0x00,0x24,0xc4 .db 0x44,0x44,0x44,0x44,0x44,0x6c,0x80,0x44,0x30,0x18,0xc4,0x4c,0x60,0x0c,0x18,0x18 .db 0xbc,0xb0,0x80,0x80,0x84,0x40,0x20,0x88,0xe4,0x4c,0xc4,0xc4,0x4c,0x84,0x80,0x80 .db 0x28,0x24,0x00,0xc4,0xec,0x44,0xd4,0xd0,0xfc,0xf8,0x14,0x84,0x80,0x00,0x28,0x28 .db 0x28,0x00,0x28,0x28,0x00,0x00,0x28,0x00,0x28,0x28,0x28,0x20,0x88,0x2c,0xe8,0x30 .db 0x00,0x00,0x00,0x00,0x90,0x90,0x90,0x90,0x10,0x10,0x10,0x10,0x80,0x80,0x80,0x80 .db 0x7c,0x44,0x80,0x44,0x14,0x50,0x80,0x80,0x44,0xec,0x44,0x28,0x00,0x00,0x44,0x58 .db 0x00,0x18,0x00,0x3c,0x18,0x08,0x2c,0x00,0x0c,0x30,0x00,0x00,0x30,0x00,0x28,0x00 .db 0x24,0x24,0x40,0x24,0x0c,0x24,0x24,0x30,0x24,0x28,0x00,0x30,0x0c,0x00,0x30,0x18 .db 0x24,0x64,0x44,0x24,0x44,0x40,0x60,0x24,0x64,0x24,0x28,0x64,0x40,0x64,0x64,0x24 .db 0x60,0x2c,0x64,0x24,0x18,0x24,0x18,0x24,0x64,0x18,0x40,0x48,0x04,0x48,0x00,0x40 .db 0x00,0x20,0x44,0x24,0x24,0x24,0x30,0x04,0x64,0x24,0x6c,0x6c,0x24,0x64,0x64,0x24 .db 0x60,0x0c,0x60,0x44,0x18,0x2c,0x18,0x3c,0x64,0x04,0x40,0x0c,0x18,0x30,0x00,0x00 .db 0x44,0x90,0x40,0x84,0x28,0x00,0x00,0x48,0x40,0x84,0x7c,0x6c,0x58,0xa8,0x44,0x80 .db 0x64,0x20,0x24,0x24,0x24,0x2c,0x64,0x20,0x64,0x20,0x24,0x24,0x24,0x00,0x00,0x00 .db 0x24,0x00,0x80,0x28,0x80,0x80,0x20,0x88,0x90,0xa0,0x60,0x0c,0xdc,0xfc,0x44,0x18 .db 0x28,0x44,0x60,0x40,0x84,0x44,0x44,0xec,0x00,0x00,0xc0,0x04,0x6c,0x00,0x24,0x00 .db 0x28,0x00,0x28,0x28,0x28,0x6c,0x80,0x44,0x18,0x18,0x44,0x54,0x40,0x84,0x10,0x48 .db 0xbc,0xb0,0x80,0x80,0x80,0x80,0x10,0x90,0xd0,0x94,0xc0,0x04,0x8c,0x80,0x40,0x84 .db 0x28,0x40,0x00,0xc4,0xc4,0x44,0xfc,0xf8,0x80,0x80,0x28,0x84,0x80,0x00,0x28,0x28 .db 0x28,0x00,0x28,0x28,0x00,0x00,0x28,0x00,0x28,0x28,0x28,0x20,0x88,0x2c,0xe8,0x30 .db 0x00,0x00,0x00,0x00,0x90,0x90,0x90,0x90,0x10,0x10,0x10,0x10,0x80,0x80,0x80,0x80 .db 0xfc,0x44,0x80,0x44,0x14,0x50,0xa8,0xa8,0x40,0x80,0x44,0x00,0x00,0x00,0x60,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,0x24,0x00,0x00,0x28,0x00,0x00,0x00,0x00,0x00 .db 0x60,0x08,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x24,0x00,0x00,0x00,0x00,0x00,0x00 .db 0x28,0xa0,0x80,0x80,0x00,0x00,0x00,0x60,0x40,0x84,0xfc,0x34,0xec,0xa8,0x44,0x80 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x18,0x18 .db 0x18,0x00,0x44,0x44,0x80,0x80,0x10,0x90,0xa4,0xa0,0xc0,0x04,0xdc,0x80,0x6c,0x3c .db 0x00,0x44,0x60,0x00,0x00,0x44,0x00,0x80,0x00,0x80,0xc0,0x04,0xc4,0x00,0x24,0x00 .db 0x28,0x00,0x28,0x28,0x28,0x6c,0x28,0x28,0x18,0x18,0x28,0x64,0x00,0x00,0x00,0x00 .db 0xa4,0xb0,0x80,0x80,0x84,0x40,0x08,0xa0,0xc8,0xa4,0x80,0x80,0x8c,0x80,0x00,0x00 .db 0x44,0x40,0x00,0x80,0x80,0x00,0xd4,0xf8,0x40,0x84,0x30,0x48,0x00,0x00,0x28,0x28 .db 0x28,0x00,0x28,0x28,0x00,0x00,0x28,0x00,0x28,0x28,0x28,0x24,0x48,0x2c,0xe8,0x00 .db 0x00,0x00,0x00,0x00,0x90,0x90,0x90,0x90,0x10,0x10,0x10,0x10,0x80,0x80,0x80,0x80 .db 0x7c,0x28,0x80,0x28,0x14,0x50,0x10,0x90,0x80,0xec,0x28,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,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 0x28,0xc0,0x80,0x80,0x00,0x00,0x00,0x00,0x20,0x88,0x7c,0xd8,0x58,0x00,0x00,0x80 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x30,0x30,0x30 .db 0x00,0x00,0x44,0x80,0x80,0x80,0x08,0xa0,0x04,0xc0,0xc0,0x04,0x8c,0xfc,0xa8,0x58 .db 0x00,0x00,0x60,0x00,0x00,0x44,0x00,0x28,0x00,0x80,0xc0,0x04,0xc4,0x00,0x00,0x00 .db 0x28,0x00,0x28,0x28,0x28,0x00,0x28,0x28,0x18,0x18,0x28,0x00,0x00,0x00,0x00,0x00 .db 0x80,0x80,0x00,0x00,0x84,0x40,0x00,0x00,0xc8,0xa4,0x00,0x00,0x48,0x24,0x00,0x00 .db 0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x00,0x00,0x60,0x00,0x80,0x00,0x28,0x28 .db 0x28,0x00,0x28,0x28,0x00,0x00,0x28,0x00,0x28,0x28,0x28,0x28,0x28,0x2c,0xe8,0x00 chipbasic2_1.28_source/system/libmio/soundtables.inc0000777000175000001440000001027711145646254022005 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,0x14chipbasic2_1.28_source/system/libmio/vidm_tvm.asm0000777000175000001440000002165711331653511021311 0ustar joergusers;################################################################################ ;# # ;# libmio - multi i/o for ATMega644 # ;# video signal generation for editor # ;# 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. # ;# # ;################################################################################ ;-------------------------------------------------------------------------------- ;macro for char 1..5 ;-------------------------------------------------------------------------------- .macro libmio_oc2a out PORTC,tempreg3 ;1 output P0 (=0) mov r1,tempreg4 ;1 get color sbrc tempreg2,6 ;1 skip if no change out PINC,r1 ;1 output P1 mov tempreg3,YL ;1 get color mov tempreg4,YL ;1 swap tempreg4 ;1 sbrc tempreg2,5 ;1 skip if no change out PINC,r1 ;1 output P2 sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 sbrc tempreg2,4 ;1 skip if no change out PINC,r1 ;1 output P3 andi ZL,0x7f ;1 mask bits nop ;1 filling sbrc tempreg2,3 ;1 skip if no change out PINC,r1 ;1 output P4 lpm r0,Z ;3 get pixline sbrc tempreg2,2 ;1 skip if no change out PINC,r1 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline ld ZL,X+ ;2 get char .endm ;-------------------------------------------------------------------------------- ;macro for char 6..11 ;-------------------------------------------------------------------------------- .macro libmio_oc2b out PORTC,tempreg3 ;1 output P0 (=0) mov r1,tempreg4 ;1 get color sbrc tempreg2,6 ;1 skip if no change out PINC,r1 ;1 output P1 mov tempreg3,YH ;1 get color mov tempreg4,YH ;1 swap tempreg4 ;1 sbrc tempreg2,5 ;1 skip if no change out PINC,r1 ;1 output P2 sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 sbrc tempreg2,4 ;1 skip if no change out PINC,r1 ;1 output P3 andi ZL,0x7f ;1 mask bits nop ;1 filling sbrc tempreg2,3 ;1 skip if no change out PINC,r1 ;1 output P4 lpm r0,Z ;3 get pixline sbrc tempreg2,2 ;1 skip if no change out PINC,r1 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline ld ZL,X+ ;2 get char .endm ;-------------------------------------------------------------------------------- ;macro for char 12..17 ;-------------------------------------------------------------------------------- .macro libmio_oc2c out PORTC,tempreg3 ;1 output P0 (=0) mov r1,tempreg4 ;1 get color sbrc tempreg2,6 ;1 skip if no change out PINC,r1 ;1 output P1 mov tempreg3,r16 ;1 get color mov tempreg4,r16 ;1 swap tempreg4 ;1 sbrc tempreg2,5 ;1 skip if no change out PINC,r1 ;1 output P2 sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 sbrc tempreg2,4 ;1 skip if no change out PINC,r1 ;1 output P3 andi ZL,0x7f ;1 mask bits nop ;1 filling sbrc tempreg2,3 ;1 skip if no change out PINC,r1 ;1 output P4 lpm r0,Z ;3 get pixline sbrc tempreg2,2 ;1 skip if no change out PINC,r1 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline ld ZL,X+ ;2 get char .endm ;-------------------------------------------------------------------------------- ;macro for char 18..23 ;-------------------------------------------------------------------------------- .macro libmio_oc2d out PORTC,tempreg3 ;1 output P0 (=0) mov r1,tempreg4 ;1 get color sbrc tempreg2,6 ;1 skip if no change out PINC,r1 ;1 output P1 mov tempreg3,r17 ;1 get color mov tempreg4,r17 ;1 swap tempreg4 ;1 sbrc tempreg2,5 ;1 skip if no change out PINC,r1 ;1 output P2 sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 sbrc tempreg2,4 ;1 skip if no change out PINC,r1 ;1 output P3 andi ZL,0x7f ;1 mask bits nop ;1 filling sbrc tempreg2,3 ;1 skip if no change out PINC,r1 ;1 output P4 lpm r0,Z ;3 get pixline sbrc tempreg2,2 ;1 skip if no change out PINC,r1 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline ld ZL,X+ ;2 get char .endm ;-------------------------------------------------------------------------------- ;macro for char 18..23 ;-------------------------------------------------------------------------------- .macro libmio_oc2e out PORTC,tempreg3 ;1 output P0 (=0) mov r1,tempreg4 ;1 get color sbrc tempreg2,6 ;1 skip if no change out PINC,r1 ;1 output P1 mov tempreg3,r18 ;1 get color mov tempreg4,r18 ;1 swap tempreg4 ;1 sbrc tempreg2,5 ;1 skip if no change out PINC,r1 ;1 output P2 sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 sbrc tempreg2,4 ;1 skip if no change out PINC,r1 ;1 output P3 andi ZL,0x7f ;1 mask bits nop ;1 filling sbrc tempreg2,3 ;1 skip if no change out PINC,r1 ;1 output P4 lpm r0,Z ;3 get pixline sbrc tempreg2,2 ;1 skip if no change out PINC,r1 ;1 output P5 mov tempreg2,r0 ;1 prepare next pixline ld ZL,X+ ;2 get char .endm ;------------------------------------------------------------------------------- ; -output character line 4 clocks per pixel ; -256 characters are in table 6x12px each ;------------------------------------------------------------------------------- libmio_tvm: mov YH,vline_l cpi YH,7 brcs libmio_tvm1e lds XL,libmio_rampos_l ;2 BS low lds XH,libmio_rampos_h ;1 BS high lds YL,libmio_elcolor ;2 recent line color ldi ZH,HIGH(libmio_ctable*2);start chartable lds ZL,libmio_cline ;2 character line add ZH,ZL ;1 inc ZL ;1 cline+1 sts libmio_cline,ZL ;2 store back character line cpi ZL,10 brcs libmio_tvm5 ;a visible line cpi ZL,12 brne libmio_tvm4 adiw XL,35 ;1 next line sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position sts libmio_cline,const_0 ;2 clear cline libmio_tvm1: cpi YH,20 ;1 start of second line brcc libmio_tvm2 ;no lds YH,libmio_estatus ;get color of status line libmio_tvm1a: sts libmio_elcolor,YH libmio_tvm1e: jmp libmio_is_15 libmio_tvm2: cpi YH,31 ;1 last of head brcc libmio_tvm3 ldi XL,LOW(libmio_vram+3*libmio_ecols) ldi XH,HIGH(libmio_vram+3*libmio_ecols) lds YL,libmio_edstart ldi YH,libmio_ecols mul YL,YH add XL,r0 adc XH,r1 ldi YL,0x0e ;1 dark white on black sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position sts libmio_elcolor,YL jmp libmio_is_15 libmio_tvm3: cpi YH,221 ;start of help line brcs libmio_tvm4 ldi YL,0x4b ;white on red ldi XL,LOW(libmio_vram+2*libmio_ecols) ldi XH,HIGH(libmio_vram+2*libmio_ecols) sts libmio_rampos_l,XL ;2 new memory position sts libmio_rampos_h,XH ;2 new memory position sts libmio_elcolor,YL libmio_tvm4: jmp libmio_is_15 libmio_tvm5: push r16 push r17 push r18 cpi YH,221 brcc libmio_tvm6 mov YH,YL ;copy color mov r16,YL ;copy color mov r17,YL ;copy color mov r18,YL ;copy color rjmp libmio_tvm7 libmio_tvm6: ldi r18,0x68 ;white on magenta ldi r17,0x2c ;white on blue ldi r16,0x88 ;black on green ldi YH,0xcc ;black on yellow ldi YL,0x4a ;white on red libmio_tvm7: mov tempreg3,YL ;1 get color 1 mov tempreg4,YL ;1 get cdiff 1 swap tempreg4 ;1 ld ZL,X+ ;2 get char sbrc ZL,7 ;1 skip if no invert eor tempreg3,tempreg4 ;1 andi ZL,0x7f ;1 mask bits lpm tempreg2,Z ;3 get pixline ld ZL,X+ libmio_oc2a ;char 1 libmio_oc2a ;char 2 libmio_oc2a ;char 3 libmio_oc2a ;char 4 libmio_oc2a ;char 5 libmio_oc2a ;char 6 libmio_oc2b ;char 7 libmio_oc2b ;char 8 libmio_oc2b ;char 9 libmio_oc2b ;char 10 libmio_oc2b ;char 11 libmio_oc2b ;char 12 libmio_oc2b ;char 13 libmio_oc2c ;char 14 libmio_oc2c ;char 15 libmio_oc2c ;char 16 libmio_oc2c ;char 17 libmio_oc2c ;char 18 libmio_oc2c ;char 19 libmio_oc2d ;char 20 libmio_oc2d ;char 21 libmio_oc2d ;char 22 libmio_oc2d ;char 23 libmio_oc2d ;char 24 libmio_oc2d ;char 25 libmio_oc2d ;char 26 libmio_oc2d ;char 27 libmio_oc2e ;char 28 libmio_oc2e ;char 29 libmio_oc2e ;char 30 libmio_oc2e ;char 31 libmio_oc2e ;char 32 libmio_oc2e ;char 33 libmio_oc2e ;char 34 libmio_oc2e ;char 35 out PORTC,const_0 ;1 set to border pop r18 pop r17 pop r16 jmp libmio_is_15 chipbasic2_1.28_source/system/libmio/copybits.asm0000777000175000001440000000377711232352536021326 0ustar joergusers;################################################################################ ;# # ;# avr-chipbasic2 - single chip basic computer with ATmega644 # ;# BASIC runtime engine # ;# 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. # ;# # ;################################################################################ ;----------------------------------------------------------------------- ; 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 chipbasic2_1.28_source/system/libi2c/0000777000175000001440000000000011315754125016642 5ustar joerguserschipbasic2_1.28_source/system/libi2c/library.asm0000777000175000001440000001475411315754115021025 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< 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 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 retchipbasic2_1.28_source/system/macros.inc0000644000000000000000000003013411360423355017121 0ustar rootroot;################################################################################ ;# # ;# libmio - multi i/o for ATMega 644 # ;# macro definitions # ;# 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. # ;# # ;################################################################################ .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 .set use_libmio_orom = 1 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_dmenu .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 ;################################################################################ ;# # ;# 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 chipbasic2_1.28_source/system/libeep/0000777000175000001440000000000011326150562016733 5ustar joerguserschipbasic2_1.28_source/system/libeep/library.asm0000777000175000001440000000506011326150562021105 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 chipbasic2_1.28_source/system/libeep/macros.asm0000777000175000001440000000231611315754067020736 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 chipbasic2_1.28_source/system/libeep/definitions.asm0000777000175000001440000000265711315754043021767 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)