1
0
mirror of https://github.com/wfjm/w11.git synced 2026-03-07 11:50:01 +00:00
Files
wfjm.w11/tools/asm-11/tests/test_0360_macro_mexit.mac
wfjm 6b7c25a961 asm-11 BUGFIX; add ip_delete_tap; update 211bsd_eth.tcl
- tools
  - bin/asm-11: BUGFIX: fix directly nested .if behavior
  - bin/ip_delete_tap: added
  - asm-11/tests: add zbug_0007.mac, test_0460_if_nest.mac
  - oskit/test/os/211bsd/211bsd_eth.tcl: use 'ip' command
2023-02-16 12:29:45 +01:00

59 lines
1.3 KiB
Plaintext

; $Id: test_0360_macro_mexit.mac 1373 2023-02-16 11:21:26Z mueller $
; SPDX-License-Identifier: GPL-3.0-or-later
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
;
; test .macro and .mexit
;
.asect
. = 1000
; list macro expansion
.list me,cnd
;
; nested macro calls, ensure that .mexit individually
.macro mtop,src
mbot #1,a
mbot src,b
.mexit
bad code ; never assembled
.endm
;
.macro mbot,src,dst
mov src,dst
.mexit
bad code ; never assembled
.endm
;
mtop #2
1000$: ;;!! 001014:
mtop #3
1100$: ;;!! 001030:
;
; nested macro calls, ensure that dangling .if are closed properly
.macro mtop1
mbot1 0
.if ne,0
.iff
mbot1 1
.ift
.word 001001 ; never assembled
.iff
.word 001002 ; written once
.endc
.endm
;
.macro mbot1,val
.word 002001 ; written twice
.if ne,val
.mexit
.endc
.word 002002 ; written once
.endm
;
mtop1
2000$: ;;!! 001040:
;
a: .word 0
b: .word 0
.end