mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
73 lines
1.3 KiB
NASM
73 lines
1.3 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; test the conditional skip instructions
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
org 00100
|
|
; check ASZ - skip if AC is zero
|
|
lwc 1 ; AC <- 0177777 (-1)
|
|
asz ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
law 0 ;
|
|
asz ; should skip
|
|
hlt ;
|
|
|
|
; check ASN - skip if AC is not zero
|
|
lwc 1 ; AC <- 0177777 (-1)
|
|
asn ; should skip
|
|
hlt ;
|
|
law 0 ;
|
|
asn ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
|
|
; check ASP - skip if AC is a positive number
|
|
; zero is positive here, as the test is for bit 0 set
|
|
law 0 ; AC <- 0
|
|
asp ; should skip
|
|
hlt ;
|
|
law 1 ; AC <- 1
|
|
asp ; should skip
|
|
hlt ;
|
|
lwc 1 ;
|
|
asp ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
|
|
; check ASM - skip if AC is a negative number
|
|
; zero is positive here, as the test is for bit 0 set
|
|
law 0 ; AC <- 0
|
|
asm ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
law 1 ; AC <- 1
|
|
asm ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
lwc 1 ;
|
|
asm ; should skip
|
|
hlt ;
|
|
|
|
; check LSZ - skip if L is zero
|
|
stl ; L <- 1
|
|
lsz ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
cll ; L <- 0
|
|
lsz ; should skip
|
|
hlt ;
|
|
|
|
; check LSN - skip if L is not zero
|
|
stl ; L <- 1
|
|
lsn ; should skip
|
|
hlt ;
|
|
cll ; L <- 0
|
|
lsn ; should not skip
|
|
jmp .+2 ;
|
|
hlt ;
|
|
|
|
; can't easily test DSF, DSN, KSF, KSN, RSF, RSN,
|
|
; TSF, TSN, SSF, SSN, HSF, HSN as they test hardware
|
|
|
|
hlt ;
|
|
end
|