mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
94 lines
1.8 KiB
NASM
94 lines
1.8 KiB
NASM
; typed in from uppermemorytest.pdf
|
|
|
|
org 0100
|
|
|
|
s law 1 ; 0100
|
|
dac twd
|
|
s1 lac twd
|
|
ral 1
|
|
dac twd
|
|
lwc 1
|
|
dac 010010
|
|
l1 lac twd
|
|
dac *010010 ; 0110
|
|
cma
|
|
dac *010010
|
|
lac lit1
|
|
sam 010010
|
|
jmp l1
|
|
lwc 1
|
|
dac 010010
|
|
l2 lac twd ; 0120
|
|
sam *010010
|
|
jms e
|
|
cma
|
|
sam *010010
|
|
jms e
|
|
lac lit1
|
|
sam 010010
|
|
jmp l2 ; 0130
|
|
jmp s1
|
|
e bss 1
|
|
dac sav
|
|
lac 010010
|
|
hlt
|
|
dac tmp
|
|
lac *tmp
|
|
hlt ; 0140
|
|
lac sav
|
|
jmp *e ; 0142
|
|
|
|
#s2 bss 020
|
|
|
|
twd data 0
|
|
sav data 0
|
|
tmp data 0
|
|
sva data 0
|
|
svb data 0
|
|
sve data 0
|
|
svc data 0
|
|
blm data 0
|
|
|
|
lit1 data 007771
|
|
lit2 data 007776
|
|
lit3 data 010000
|
|
lit4 data 010006
|
|
|
|
org 0163
|
|
|
|
p lwc 1 ; 0163
|
|
xam *lit2
|
|
dac sva
|
|
lac lit2 ; (007776)
|
|
dac svb
|
|
dac sve ; 0170
|
|
l4 dac svb
|
|
add lit3 ; (010000)
|
|
dac svb
|
|
cla
|
|
xam *svb
|
|
dac svc
|
|
lac *sve
|
|
asm ; 0200
|
|
jmp l3
|
|
lac svc
|
|
dac *svb
|
|
jmp l4
|
|
l3 lac sva
|
|
dac *lit2 ; (007776)
|
|
lac svb
|
|
sub lit4 ; 0210 (010006)
|
|
dac blm
|
|
jmp s
|
|
|
|
rel 007714
|
|
jmp 007400
|
|
|
|
rel 007400
|
|
hof
|
|
jmp *.+1
|
|
zro p ; 010163
|
|
|
|
rel s2
|
|
end
|