mirror of
https://github.com/wfjm/w11.git
synced 2026-04-26 04:08:17 +00:00
28 lines
796 B
Plaintext
28 lines
796 B
Plaintext
; $Id: test_0120_op_rg.mac 1184 2019-07-10 20:39:44Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2014- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; test opcodes with 1 1/2 operands
|
|
;
|
|
.asect
|
|
.blkw 400
|
|
|
|
a: .word 0
|
|
pa: .word a
|
|
|
|
sub: rts pc ;;!! 001004: 000207
|
|
jsr pc,sub ;;!! 001006: 004767 177772
|
|
|
|
xor r1,a ;;!! 074167 177762
|
|
|
|
mul a,r2 ;;!! 070267 177756
|
|
div @pa,r2 ;;!! 071277 177754
|
|
ash #12,r3 ;;!! 072327 000012
|
|
ashc @#a,r4 ;;!! 073437 001000
|
|
|
|
; test call + return aliases too
|
|
sub1: return ;;!! 000207
|
|
call sub1 ;;!! 004767 177772
|
|
|
|
.end
|