mirror of
https://github.com/wfjm/w11.git
synced 2026-02-26 00:53:40 +00:00
39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
; $Id: test_0200_fpp_1op.mac 1184 2019-07-10 20:39:44Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; test fpp opcodes with 0 or 1 operands
|
|
;
|
|
.asect
|
|
.blkw 400
|
|
|
|
a: .word 0,0
|
|
.word 0,0
|
|
pa: .word a
|
|
s: .word 0,0
|
|
ps: .word s
|
|
|
|
; 0 operand opcodes
|
|
|
|
cfcc ;;!! 170000
|
|
setf ;;!! 170001
|
|
setd ;;!! 170011
|
|
seti ;;!! 170002
|
|
setl ;;!! 170012
|
|
|
|
; 1 operand opcodes
|
|
|
|
ldfps s ;;!! 170167 177754
|
|
stfps @#s ;;!! 170237 001012
|
|
stst @ps ;;!! 170377 177750
|
|
clrf r0 ;;!! 170400
|
|
clrd @r1 ;;!! 170411
|
|
tstf (r2)+ ;;!! 170522
|
|
tstd @(r3)+ ;;!! 170533
|
|
absf -(r4) ;;!! 170644
|
|
absd @-(r5) ;;!! 170655
|
|
negf a(r1) ;;!! 170761 001000
|
|
negd @pa(r2) ;;!! 170772 001010
|
|
|
|
.end
|