mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
65 lines
1.1 KiB
NASM
65 lines
1.1 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; check the microcoded instruction
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
org 00100
|
|
; first, simple 'known' instructions
|
|
lwc 1 ;
|
|
nop ; NOP - no change
|
|
cla ; CLA - AC -> 0
|
|
sam zero ;
|
|
hlt ;
|
|
lwc 1 ;
|
|
cma ; CMA - AC -> 0
|
|
sam zero ;
|
|
hlt ;
|
|
cla ;
|
|
cma ; CMA - AC -> 0177777
|
|
sam minus1 ;
|
|
hlt ;
|
|
sta ; STA - AC -> 0177777
|
|
sam minus1 ;
|
|
hlt ;
|
|
law 0 ;
|
|
iac ; IAC - AC -> 1
|
|
sam one ;
|
|
hlt ;
|
|
lwc 1 ;
|
|
iac ; IAC - AC -> 0, L complemented
|
|
sam zero ;
|
|
hlt ;
|
|
lwc 0 ;
|
|
coa ; COA - AC -> 1
|
|
sam one ;
|
|
hlt ;
|
|
cia ; CIA - AC -> 0177777
|
|
sam minus1 ;
|
|
hlt ;
|
|
cll ; CLL - L -> 0
|
|
lsz ; skip if link is zero
|
|
hlt ;
|
|
cml ; CML - L -> 1
|
|
lsn ; skip if L not 0
|
|
hlt ;
|
|
cal ; CAL - AC->0, L->0
|
|
sam zero ;
|
|
hlt ;
|
|
lsz ; skip if link is zero
|
|
hlt ;
|
|
stl ; STL - L->1
|
|
lsn ; skip if L not 0
|
|
hlt ;
|
|
; now for some unknown compound instructions
|
|
data 0100007 ; clr AC, ~AC, ++AC
|
|
sam zero ; AC should be 0
|
|
hlt ;
|
|
hlt ;
|
|
; test ODA and LDA instrunction
|
|
;
|
|
; DO THIS ONCE WE CAN RELIABLY SET DATA SWITCHES
|
|
;
|
|
; data for tests
|
|
zero data 0 ;
|
|
one data 1 ;
|
|
minus1 data 0177777 ;
|
|
end
|