Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix
This commit is contained in:
Warren Toomey
+49
-47
@@ -1,21 +1,23 @@
|
|||||||
" db
|
" db
|
||||||
|
"** pages 2-21 of 07-13-19.pdf
|
||||||
|
" Usage: db [ corefile [ namelist ] ]
|
||||||
|
|
||||||
narg = ..+07777
|
narg = ..+07777
|
||||||
lac i narg
|
lac i narg
|
||||||
sad d4
|
sad d4
|
||||||
jmp start
|
jmp start " no args
|
||||||
lac narg
|
lac narg
|
||||||
tad d5
|
tad d5 " pointer to first arg
|
||||||
dac rcorep
|
dac rcorep
|
||||||
dac wcorep
|
dac wcorep
|
||||||
lac i narg
|
lac i narg
|
||||||
sad d8
|
sad d8 " one arg?
|
||||||
jmp start
|
jmp start " yes: start
|
||||||
sad d12
|
sad d12 " two args?
|
||||||
skp
|
skp " yes
|
||||||
jmp error
|
jmp error " no: error
|
||||||
lac narg
|
lac narg
|
||||||
tad d9
|
tad d9 " pointer to second arg
|
||||||
dac nlnamep
|
dac nlnamep
|
||||||
"
|
"
|
||||||
start:
|
start:
|
||||||
@@ -41,7 +43,7 @@ start:
|
|||||||
dac nlsize
|
dac nlsize
|
||||||
jmp 3f
|
jmp 3f
|
||||||
1:
|
1:
|
||||||
sys read; nlbuff; namesize;0
|
sys read; nlbuff; namesize:0
|
||||||
spa
|
spa
|
||||||
jmp 2b
|
jmp 2b
|
||||||
dac nlcnt
|
dac nlcnt
|
||||||
@@ -58,7 +60,7 @@ wcorep: corename; 1
|
|||||||
spa
|
spa
|
||||||
jmp error
|
jmp error
|
||||||
"
|
"
|
||||||
lac o52012
|
lac o52012 " prompt: "*\n"
|
||||||
jms wchar
|
jms wchar
|
||||||
law dotdot
|
law dotdot
|
||||||
dac nsearch
|
dac nsearch
|
||||||
@@ -96,7 +98,7 @@ error:
|
|||||||
jmp mloop
|
jmp mloop
|
||||||
cmd:
|
cmd:
|
||||||
lacq
|
lacq
|
||||||
sad o41
|
sad o41 " '!'?
|
||||||
jmp patch
|
jmp patch
|
||||||
lac opfound
|
lac opfound
|
||||||
sna
|
sna
|
||||||
@@ -111,27 +113,27 @@ cmd:
|
|||||||
dac dotrel
|
dac dotrel
|
||||||
1:
|
1:
|
||||||
lacq
|
lacq
|
||||||
sad o42
|
sad o42 " '"'?
|
||||||
jmp ascii
|
jmp ascii
|
||||||
sad o12
|
sad o12 " NL?
|
||||||
jmp newln
|
jmp newln
|
||||||
sad o77
|
sad o77 " '?'?
|
||||||
jmp symbol
|
jmp symbol
|
||||||
sad o47
|
sad o47 " "'"?
|
||||||
jmp saddress
|
jmp saddress
|
||||||
sad o75
|
sad o75 " '='?
|
||||||
jmp address
|
jmp address
|
||||||
sad o57
|
sad o57 " '/'?
|
||||||
jmp octal
|
jmp octal
|
||||||
sad o72
|
sad o72 " ':'
|
||||||
jmp decimal
|
jmp decimal
|
||||||
sad o136
|
sad o136 " '^'
|
||||||
skp
|
skp
|
||||||
jmp 1f
|
jmp 1f
|
||||||
dac sysflag
|
dac sysflag
|
||||||
jmp mloop
|
jmp mloop
|
||||||
1:
|
1:
|
||||||
sad o45
|
sad o45 " '%'?
|
||||||
skp
|
skp
|
||||||
jmp 1f
|
jmp 1f
|
||||||
dzm sysflag
|
dzm sysflag
|
||||||
@@ -139,7 +141,7 @@ cmd:
|
|||||||
1:
|
1:
|
||||||
sad d1
|
sad d1
|
||||||
sys exit
|
sys exit
|
||||||
sad o54
|
sad o54 " ','?
|
||||||
skp
|
skp
|
||||||
jmp error
|
jmp error
|
||||||
" comma
|
" comma
|
||||||
@@ -215,7 +217,7 @@ address:
|
|||||||
jms wchar
|
jms wchar
|
||||||
jmp mloop
|
jmp mloop
|
||||||
1:
|
1:
|
||||||
lac o162012
|
lac o162012 " r\n
|
||||||
jms wchar
|
jms wchar
|
||||||
jmp mloop
|
jmp mloop
|
||||||
"
|
"
|
||||||
@@ -500,7 +502,7 @@ getsym:0
|
|||||||
dac skipt
|
dac skipt
|
||||||
skp
|
skp
|
||||||
storech:
|
storech:
|
||||||
imq
|
lmq
|
||||||
lac i symbufp
|
lac i symbufp
|
||||||
and o177000
|
and o177000
|
||||||
sna
|
sna
|
||||||
@@ -595,7 +597,7 @@ getnum:0
|
|||||||
dzm value
|
dzm value
|
||||||
num1:
|
num1:
|
||||||
tad om60
|
tad om60
|
||||||
imq
|
lmq
|
||||||
lac value
|
lac value
|
||||||
alss 3
|
alss 3
|
||||||
omq
|
omq
|
||||||
@@ -674,7 +676,7 @@ prsym:0
|
|||||||
and o760000
|
and o760000
|
||||||
sad o760000
|
sad o760000
|
||||||
jmp plaw
|
jmp plaw
|
||||||
sad o20000
|
sad o20000 " cal i == "sys"
|
||||||
jmp pcal
|
jmp pcal
|
||||||
and o740000
|
and o740000
|
||||||
sad o640000
|
sad o640000
|
||||||
@@ -715,7 +717,7 @@ symadr:
|
|||||||
pradr:
|
pradr:
|
||||||
dac addr
|
dac addr
|
||||||
jms nlsearch
|
jms nlsearch
|
||||||
jmp octals
|
jmp octala
|
||||||
pr1:
|
pr1:
|
||||||
dzm relflg
|
dzm relflg
|
||||||
jms wrname
|
jms wrname
|
||||||
@@ -758,7 +760,7 @@ plaw:
|
|||||||
law
|
law
|
||||||
dac relflg
|
dac relflg
|
||||||
lac addr
|
lac addr
|
||||||
lms nlsearch
|
jms nlsearch
|
||||||
jmp poct
|
jmp poct
|
||||||
dac symindex
|
dac symindex
|
||||||
law laws
|
law laws
|
||||||
@@ -823,7 +825,7 @@ octala:
|
|||||||
jmp 1f
|
jmp 1f
|
||||||
lacq
|
lacq
|
||||||
tad mrelocv
|
tad mrelocv
|
||||||
imq
|
lmq
|
||||||
1:
|
1:
|
||||||
lacq
|
lacq
|
||||||
jms octw
|
jms octw
|
||||||
@@ -873,7 +875,7 @@ wrname:0
|
|||||||
1:
|
1:
|
||||||
lac i 10
|
lac i 10
|
||||||
dac 2f
|
dac 2f
|
||||||
imq
|
lmq
|
||||||
cla
|
cla
|
||||||
llss 9
|
llss 9
|
||||||
sad o40
|
sad o40
|
||||||
@@ -924,7 +926,7 @@ nloop:
|
|||||||
skp
|
skp
|
||||||
jmp nloop
|
jmp nloop
|
||||||
isz np
|
isz np
|
||||||
iac i np
|
lac i np
|
||||||
dac tvalue
|
dac tvalue
|
||||||
sad match
|
sad match
|
||||||
jmp nlok
|
jmp nlok
|
||||||
@@ -1025,7 +1027,7 @@ nlok:
|
|||||||
dac value
|
dac value
|
||||||
lac treloc
|
lac treloc
|
||||||
dac reloc
|
dac reloc
|
||||||
lac cnip
|
lac cnlp
|
||||||
isz nlsearch
|
isz nlsearch
|
||||||
jmp i nlsearch
|
jmp i nlsearch
|
||||||
"
|
"
|
||||||
@@ -1063,11 +1065,11 @@ wchar:0
|
|||||||
"
|
"
|
||||||
octw: 0
|
octw: 0
|
||||||
isz octw
|
isz octw
|
||||||
imq
|
lmq
|
||||||
cla cll
|
cla cll
|
||||||
llss 3
|
llss 3
|
||||||
alss 6
|
alss 6
|
||||||
llss3
|
llss 3
|
||||||
tad o60060
|
tad o60060
|
||||||
dac obuf
|
dac obuf
|
||||||
cla
|
cla
|
||||||
@@ -1090,7 +1092,7 @@ m10: -10
|
|||||||
"
|
"
|
||||||
o54:054
|
o54:054
|
||||||
d6:6
|
d6:6
|
||||||
o52012:052012
|
o52012:052012 " "*\n"
|
||||||
d5:5
|
d5:5
|
||||||
d9:9
|
d9:9
|
||||||
d12:12
|
d12:12
|
||||||
@@ -1126,7 +1128,7 @@ type:proct
|
|||||||
o162:0162
|
o162:0162
|
||||||
nl:012
|
nl:012
|
||||||
om100:-0100
|
om100:-0100
|
||||||
d2:2
|
"d2:2
|
||||||
symbuf: .=.+5
|
symbuf: .=.+5
|
||||||
inbuf:.=.+64
|
inbuf:.=.+64
|
||||||
o100:0100
|
o100:0100
|
||||||
@@ -1137,10 +1139,10 @@ rcore:0
|
|||||||
o56:056
|
o56:056
|
||||||
om60:-060
|
om60:-060
|
||||||
om10:-010
|
om10:-010
|
||||||
o56:056
|
"o56:056
|
||||||
om141:-0141
|
om141:-0141
|
||||||
o141: 0141
|
o141: 0141
|
||||||
oO44: 044
|
o044: 044
|
||||||
o151: 0151
|
o151: 0151
|
||||||
o161: 0161
|
o161: 0161
|
||||||
om101: -0101
|
om101: -0101
|
||||||
@@ -1157,7 +1159,7 @@ trafill: jmp fill
|
|||||||
nchar1:0
|
nchar1:0
|
||||||
nchar:0
|
nchar:0
|
||||||
o177000:0177000
|
o177000:0177000
|
||||||
o56040:056040
|
o56040:056040 " ". "
|
||||||
nsearch:0
|
nsearch:0
|
||||||
word:0
|
word:0
|
||||||
relflg:0
|
relflg:0
|
||||||
@@ -1168,15 +1170,15 @@ o700000:0700000
|
|||||||
o17777:017777
|
o17777:017777
|
||||||
o20000:020000
|
o20000:020000
|
||||||
o10000: 010000
|
o10000: 010000
|
||||||
o151040:0151040
|
o151040:0151040 " "i "
|
||||||
eaes:0145141;0145040
|
eaes:0145141;0145040 " "eae "
|
||||||
laws: 0154141;0167040
|
laws: 0154141;0167040 " "law "
|
||||||
oprs:0157160;0162040
|
oprs:0157160;0162040 " "opr "
|
||||||
iots:0151157;0164040
|
iots:0151157;0164040 " "iot "
|
||||||
syss:0163171;0163040
|
syss:0163171;0163040 " "sys "
|
||||||
corename:0143157;0162145;040040;040040
|
corename:0143157;0162145;040040;040040 " "core"
|
||||||
nlname:0156056;0157165;0164040;040040
|
nlname:0156056;0157165;0164040;040040 " "n.out"
|
||||||
dotdot: <..>; 040040; 040040; 040040
|
dotdot: <..>; 040040; 040040; 040040 " (relocation base symbol)
|
||||||
addr:0
|
addr:0
|
||||||
o37777:037777
|
o37777:037777
|
||||||
dm1:-1
|
dm1:-1
|
||||||
|
|||||||
Reference in New Issue
Block a user