[avrcpm.git] / macros.inc

;    Commonly used macros
;
;    Copyright (C) 2010 Leo C.
;
;    This file is part of avrcpm.
;
;    avrcpm 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.
;
;    avrcpm 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 avrcpm.  If not, see <http://www.gnu.org/licenses/>.
;
;    $Id$
;

;------------------------------------------------
; 
.macro	outm8
.if	@0 > 0x3f
	sts	@0,@1
.else
	out	@0,@1
.endif
.endm

;------------------------------------------------
; 
.macro	inm8
.if	@1 > 0x3f
	lds	@0,@1
.else
	in	@0,@1
.endif
.endm

;------------------------------------------------
; 
.macro	sbism8
.if	@0 > 0x1f
	in	_tmp0,@0
	sbrs	_tmp0,@1
.else
	sbis	@0,@1
.endif
.endm

;------------------------------------------------
; load 16 bit constant to register pair

.macro	ldiw
	ldi    @0l, low(@1)  
	ldi    @0h, high(@1)
.endm

;------------------------------------------------
; add 16 bit constant to register pair

.macro	addiw
	subi    @0l, low(-@1)  
	sbci    @0h, high(-@1)
.endm

;------------------------------------------------
; Move single bit between two registers
;
;	bmov	dstreg,dstbit,srcreg.srcbit

.macro	bmov
	bst	@2,@3
	bld	@0,@1
.endm

;------------------------------------------------
; Print string.
;	printstring "String"

.macro	printstring
  call	printstr
  .if strlen(@0) % 2
    .db @0,0
  .else
    .db @0,0,0
  .endif
.endm

;------------------------------------------------
; Print newline
;	print cr, lf

.macro	printnewline
  rcall	printstr
  .db 13,0
.endm


;------------------------------------------------
; Print a Z80 flag
;	print_zflag F
;	  where F is the flag to print

.macro print_zflag

.set S_ = 'S'
.set Z_ = 'Z'
.set H_ = 'H'
.set P_ = 'P'
.set N_ = 'N'
.set C_ = 'C'

	ldi	temp, ' '
	sbrc	z_flags,ZFL_@0
	 ldi	temp, @0_
	rcall	uartputc
.endm

;------------------------------------------------
;	db_version VMAJOR, VMINOR

.macro	db_version

  .set	maj1_	= @0 / 10
  .set	maj0_	= @0 % 10
  .set	min1_	= @1 / 10
  .set	min0_	= @1 % 10

  .if maj1_
    .if min1_
      .db maj1_+'0',maj0_+'0','.',min1_+'0',min0_+'0',0
    .else
      .db maj1_+'0',maj0_+'0','.',          min0_+'0',0,0
    .endif
  .else
    .if min1_
      .db           maj0_+'0','.',min1_+'0',min0_+'0',0,0
    .else
      .db           maj0_+'0','.',          min0_+'0',0
    .endif
  .endif
.endm

; vim:set ts=8 noet nowrap
Commit	Line	Data
f0d2aa0e L	1	; Commonly used macros
	2	;
	3	; Copyright (C) 2010 Leo C.
	4	;
	5	; This file is part of avrcpm.
	6	;
	7	; avrcpm is free software: you can redistribute it and/or modify it
	8	; under the terms of the GNU General Public License as published by
	9	; the Free Software Foundation, either version 3 of the License, or
	10	; (at your option) any later version.
	11	;
	12	; avrcpm is distributed in the hope that it will be useful,
	13	; but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	; GNU General Public License for more details.
	16	;
	17	; You should have received a copy of the GNU General Public License
	18	; along with avrcpm. If not, see <http://www.gnu.org/licenses/>.
	19	;
	20	; $Id$
	21	;
	22
	23	;------------------------------------------------
	24	;
	25	.macro outm8
	26	.if @0 > 0x3f
	27	sts @0,@1
	28	.else
	29	out @0,@1
	30	.endif
	31	.endm
	32
	33	;------------------------------------------------
	34	;
	35	.macro inm8
	36	.if @1 > 0x3f
	37	lds @0,@1
	38	.else
	39	in @0,@1
	40	.endif
	41	.endm
	42
	43	;------------------------------------------------
	44	;
	45	.macro sbism8
	46	.if @0 > 0x1f
	47	in _tmp0,@0
	48	sbrs _tmp0,@1
	49	.else
	50	sbis @0,@1
	51	.endif
	52	.endm
	53
	54	;------------------------------------------------
	55	; load 16 bit constant to register pair
	56
	57	.macro ldiw
	58	ldi @0l, low(@1)
	59	ldi @0h, high(@1)
	60	.endm
	61
	62	;------------------------------------------------
	63	; add 16 bit constant to register pair
	64
65	.macro addiw
66	subi @0l, low(-@1)
67	sbci @0h, high(-@1)
68	.endm
69
70	;------------------------------------------------
71	; Move single bit between two registers
72	;
73	; bmov dstreg,dstbit,srcreg.srcbit
74
75	.macro bmov
76	bst @2,@3
77	bld @0,@1
78	.endm
79
80	;------------------------------------------------
81	; Print string.
82	; printstring "String"
83
84	.macro printstring
8b13b36c	85	call printstr
f0d2aa0e L	86	.if strlen(@0) % 2
	87	.db @0,0
	88	.else
	89	.db @0,0,0
	90	.endif
	91	.endm
	92
	93	;------------------------------------------------
	94	; Print newline
	95	; print cr, lf
	96
	97	.macro printnewline
	98	rcall printstr
	99	.db 13,0
	100	.endm
	101
	102
	103	;------------------------------------------------
	104	; Print a Z80 flag
	105	; print_zflag F
	106	; where F is the flag to print
	107
	108	.macro print_zflag
	109
	110	.set S_ = 'S'
	111	.set Z_ = 'Z'
	112	.set H_ = 'H'
	113	.set P_ = 'P'
	114	.set N_ = 'N'
	115	.set C_ = 'C'
	116
	117	ldi temp, ' '
	118	sbrc z_flags,ZFL_@0
	119	ldi temp, @0_
	120	rcall uartputc
	121	.endm
	122
	123	;------------------------------------------------
	124	; db_version VMAJOR, VMINOR
	125
	126	.macro db_version
	127
	128	.set maj1_ = @0 / 10
	129	.set maj0_ = @0 % 10
	130	.set min1_ = @1 / 10
	131	.set min0_ = @1 % 10
	132
	133	.if maj1_
	134	.if min1_
	135	.db maj1_+'0',maj0_+'0','.',min1_+'0',min0_+'0',0
	136	.else
	137	.db maj1_+'0',maj0_+'0','.', min0_+'0',0,0
	138	.endif
	139	.else
	140	.if min1_
	141	.db maj0_+'0','.',min1_+'0',min0_+'0',0,0
	142	.else
	143	.db maj0_+'0','.', min0_+'0',0
	144	.endif
	145	.endif
	146	.endm
	147
	148	; vim:set ts=8 noet nowrap
	149