mirror of
https://github.com/wfjm/w11.git
synced 2026-04-25 20:01:57 +00:00
82349ddcee
- tools/bin
- asm-11
- add minimal .list,.nlist (cnd,me,meb) directive support
- add -(n)list options
- tools/asm-11
- tests(-err): some tuneups
- mlib: some macros added, some tuneups
- tools/tcode/cpu_(details|mmu).mac: use rt?jmp, hta??? macros
32 lines
806 B
Plaintext
32 lines
806 B
Plaintext
; $Id: test_0350_macro_concat.mac 1359 2023-01-27 20:58:50Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; test .macro concatination, the ' operator
|
|
;
|
|
.asect
|
|
. = 1000
|
|
|
|
; list macro expansion
|
|
.list me
|
|
.list cnd
|
|
;
|
|
; define and use macro with a concatinated label
|
|
; check label creation with .if df
|
|
;
|
|
.macro tconc1 a,b,dst
|
|
a'b: clr dst
|
|
.endm
|
|
tconc1 xx,yy,(r0)
|
|
.if ndf,xxyy
|
|
.error ; label xxyy not defined
|
|
.endc
|
|
;
|
|
; define and use macro with a concatinated string
|
|
.macro tconc2 a,b
|
|
.ascii /a'b/ ;;!! $l1
|
|
.endm
|
|
tconc2 dc,ba ;;!= l1 = 144 143 142 141
|
|
|
|
.end
|