mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
29 lines
693 B
NASM
29 lines
693 B
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; test JMS instruction
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
org 00100
|
|
; check simple JMS
|
|
jms jmstest ; call test, AC contains return address
|
|
here sam retadr ; skip if so
|
|
hlt ;
|
|
lac jmstest ; make sure saved return address is correct
|
|
sam retadr ;
|
|
hlt ;
|
|
; check indirect JMS
|
|
test2 jms *indjms ; call same test, AC=return address
|
|
here2 sam retadr2 ; skip if so
|
|
hlt ;
|
|
lac jmstest ; make sure saved return address is correct
|
|
sam retadr2 ;
|
|
hlt ;
|
|
hlt ;
|
|
; test routine for JMS - returns return address
|
|
jmstest data 0 ;
|
|
lac jmstest ; return with AC holding return address
|
|
jmp *jmstest;
|
|
; data for tests
|
|
retadr data here ;
|
|
retadr2 data here2 ;
|
|
indjms data jmstest ;
|
|
end
|