mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
26 lines
521 B
NASM
26 lines
521 B
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; test DAC instruction
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
org 00100
|
|
; check simple DAC
|
|
lwc 1 ; AC <- 0177777 (-1)
|
|
dac dactest ; store
|
|
cla ; clear AC
|
|
lac dactest ; did we store -1?
|
|
sam minus1 ; skip if so
|
|
hlt ;
|
|
; check indirect DAC
|
|
lwc 2 ; AC <- 0177776 (-2)
|
|
dac *inddac ; store indirect to dactest
|
|
cla ; clear AC
|
|
lac dactest ; did we store -2?
|
|
sam minus2 ; skip if so
|
|
hlt ;
|
|
hlt ;
|
|
; data for tests
|
|
dactest data 0 ;
|
|
minus1 data 0177777 ;
|
|
minus2 data 0177776 ;
|
|
inddac data dactest ;
|
|
end
|