124 lines
3.6 KiB
ArmAsm
124 lines
3.6 KiB
ArmAsm
" ops and system calls from as7; as.s has no initial symbol table
|
|
" so this needs to be included in any assembly of user programs
|
|
|
|
" "sys" has it's own sop.s which includes I/O instructions, but lacks
|
|
" system call definitions, and lacks some instructions used in
|
|
" commands but not in the kernel, so it can't have been the file used
|
|
" for user assemblies.
|
|
|
|
save = 1 " saves core dump & user area!
|
|
getuid = 2
|
|
open = 3
|
|
read = 4
|
|
write = 5
|
|
creat = 6
|
|
seek = 7
|
|
tell = 8
|
|
close = 9
|
|
link = 10
|
|
unlink = 11
|
|
setuid = 12
|
|
rename = 13
|
|
exit = 14
|
|
time = 15
|
|
intrp = 16
|
|
chdir = 17
|
|
chmod = 18
|
|
chown = 19
|
|
" 20 removed
|
|
sysloc = 21 " return system addresses
|
|
" 22 removed
|
|
capt = 23 " capture display?
|
|
rele = 24 " release display?
|
|
status = 25 " "stat"
|
|
smes = 27
|
|
rmes = 28
|
|
fork = 29
|
|
|
|
" List of instruction names and machine code values
|
|
" These come from https://raw.githubusercontent.com/simh/
|
|
|
|
sys = 0020000 " "cal i" instruction (trap indirect thru 020)
|
|
i = 0020000 " indirect bit
|
|
|
|
" memory reference instructions
|
|
dac = 0040000 " deposit AC
|
|
jms = 0100000 " jump to subroutine
|
|
dzm = 0140000 " deposit zero in memory
|
|
lac = 0200000 " load AC
|
|
xor = 0240000 " exclusive or
|
|
add = 0300000 " one's complement add
|
|
tad = 0340000 " two's complement add
|
|
xct = 0400000 " execute
|
|
isz = 0440000 " increment and skip if zero
|
|
and = 0500000 " AND with contents of Y
|
|
sad = 0540000 " skip if AC different from content of Y
|
|
jmp = 0600000 " jump to Y
|
|
|
|
" Type 177 Extended Arithmetic Element (EAE)
|
|
eae = 0640000 " base instruction (nop)
|
|
osc = 0640001 " OR SC into AC
|
|
omq = 0640002 " OR MQ into AC
|
|
cmq = 0640004 " Complement MQ
|
|
div = 0640323 " divide
|
|
norm = 0640444 " normalize unsigned
|
|
lls = 0640600 " long left shift
|
|
als = 0640700 " AC shift
|
|
lrs = 0640500 " long right shift
|
|
lacs = 0641001 " load AC with SC
|
|
lacq = 0641002 " load AC with MQ
|
|
abs = 0644000 " absolute value
|
|
divs = 0644323 " divide signed
|
|
|
|
clq = 0650000 " clear MQ
|
|
frdiv = 0650323 " fractional divide
|
|
lmq = 0652000 " load MQ from AC
|
|
mul = 0653122 " multiply
|
|
idiv = 0653323 " integer divide
|
|
idivs = 0657323 " integer divide signed
|
|
frdivs = 0654323 " fractional divide signed
|
|
muls = 0657122 " multiply signed
|
|
|
|
norms = 0660444 " normalize signed
|
|
gsm = 0664000 " get sign and magnitude
|
|
lrss = 0660500 " long right shift signed
|
|
llss = 0660600 " long left shift signed
|
|
alss = 0660700 " AC left shift signed
|
|
|
|
" Operate Instructions
|
|
|
|
" Group 1 (OPR 1) instructions
|
|
opr = 0740000 " base operate instruction (nop)
|
|
nop = 0740000
|
|
cma = 0740001 " complement accumulator
|
|
cml = 0740002 " complement link
|
|
oas = 0740004 " inclusive or accumulator switches
|
|
ral = 0740010 " rotate (ac link) left
|
|
rar = 0740020 " rotate (ac link) right
|
|
hlt = 0740040 " HALT
|
|
xx = 0740040
|
|
sma = 0740100 " skip on minus accumulator
|
|
sza = 0740200 " skip on zero accumulator
|
|
snl = 0740400 " skip on non-zero link
|
|
|
|
skp = 0741000 " unconditional skip
|
|
spa = 0741100 " skip on positive accumulator
|
|
sna = 0741200 " skip on negative accumulator
|
|
szl = 0741400 " skip on zero link
|
|
|
|
rtl = 0742010 " rotate two left (ral*2)
|
|
rtr = 0742020 " rotate two right (rar*2)
|
|
|
|
cll = 0744000 " clear link
|
|
stl = 0744002 " set link
|
|
rcl = 0744010 " clear link rotate left
|
|
rcr = 0744020 " clear link rotate right
|
|
|
|
cla = 0750000 " clear accumulator
|
|
clc = 0750001 " clear and complement acc
|
|
las = 0750004 " load acc from switches
|
|
glk = 0750010 " get link
|
|
|
|
" Group 2 operate
|
|
law = 0760000 " load accumulator with (instruction)
|