mirror of
https://github.com/wfjm/w11.git
synced 2026-04-25 20:01:57 +00:00
3b033ebfa8
- tools/bin
- asm-11
- add .if, .if(f|t|tf), .endc, .rept, .endr, .mexit directives
- add .error, .print, .mcall, .mdelete directives
- add .narg, .nchr, .ntype directives
- rewrite macro definition and call argument parsing & handling
- add -L option (to set .mcall pathlist)
- add auto-generated ...top label
- add flag (MRmrd) column in output format
- asm-11_expect
- add simple substitution mechanism (for macro testing)
- handle new flag column in output format
- tools/asm-11
- tests(-err): many tests added
- tests(-err)/Makefile: distclean target added
- mlib: macro library, accessed by .mcall
55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
; $Id: test_0500_rept.mac 1353 2023-01-23 18:13:53Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; test .rept basics
|
|
;
|
|
.asect
|
|
. = 1000
|
|
|
|
; list macro expansion
|
|
.list me
|
|
;
|
|
a = 1
|
|
b = 2
|
|
;
|
|
; single level .rept
|
|
;
|
|
.rept a-b ; .rept -1
|
|
.word 001001 ; not assembled
|
|
.endr
|
|
1000$: ;;!! 001000:
|
|
;
|
|
.rept a-a ; .rept 0
|
|
.word 002001 ; not assembled
|
|
.endr
|
|
1100$: ;;!! 001000:
|
|
;
|
|
.rept a ; .rept 1
|
|
.word 003001 ;;!! 003001
|
|
.word 003002 ;;!! 003002
|
|
.endr
|
|
1200$: ;;!! 001004:
|
|
;
|
|
.rept a+a ; .rept 2
|
|
.word 004001 ;;!! 004001
|
|
.word 004002 ;;!! 004002
|
|
.word 004003 ;;!! 004003
|
|
.word 004004 ;;!! 004004
|
|
.endr
|
|
1300$: ;;!! 001024:
|
|
;
|
|
; double level .rept
|
|
;
|
|
c = 1
|
|
.rept a+b
|
|
.ascii /abcd/
|
|
.rept c
|
|
.byte 010,c
|
|
.endr
|
|
c = c + 1
|
|
.endr
|
|
2000$: ;;!! 001054:
|
|
;
|
|
.end
|