mirror of
https://github.com/wfjm/w11.git
synced 2026-03-02 18:14:53 +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
39 lines
976 B
Plaintext
39 lines
976 B
Plaintext
; $Id: test_0440_iff.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 basics
|
|
;
|
|
.asect
|
|
. = 1000
|
|
;
|
|
.list cnd
|
|
;
|
|
a = 1
|
|
b = 2
|
|
c = a + b
|
|
;
|
|
.if eq,0 ; eq 0 ----------
|
|
.word 001001 ;;!! 001001
|
|
.iff
|
|
.word 011001 ; not assembled
|
|
.iftf
|
|
.word 021001 ;;!! 021001
|
|
.ift
|
|
.word 031001 ;;!! 031001
|
|
.endc
|
|
1000$: ;;!! 001006:
|
|
;
|
|
.if eq,a ; eq 1 ----------
|
|
.word 002001 ; not assembled
|
|
.iff
|
|
.word 012001 ;;!! 012001
|
|
.iftf
|
|
.word 022001 ;;!! 022001
|
|
.ift
|
|
.word 032001 ; not assembled
|
|
.endc
|
|
1100$: ;;!! 001012:
|
|
;
|
|
.end
|