mirror of
https://github.com/wfjm/w11.git
synced 2026-04-25 11:51:51 +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
38 lines
744 B
Plaintext
38 lines
744 B
Plaintext
; $Id: test_0450_if_macro.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 .if with macros
|
|
;
|
|
.asect
|
|
. = 1000
|
|
|
|
; list macro expansion
|
|
.list me
|
|
.list cnd
|
|
;
|
|
.macro movclr,dst,src
|
|
.if b,dst
|
|
.mexit
|
|
.endc
|
|
.if b,src
|
|
clr dst
|
|
.iff
|
|
mov src,dst
|
|
.endc
|
|
.endm movclr
|
|
;
|
|
movclr
|
|
1000$: ;;!! 001000:
|
|
;
|
|
movclr a
|
|
1100$: ;;!! 001004:
|
|
;
|
|
movclr b,#1
|
|
1200$: ;;!! 001012:
|
|
;
|
|
a: .word 0
|
|
b: .word 0
|
|
;
|
|
.end
|