Research PDP7 development

[unix-history] / db.s

" db

   narg = ..+07777
   lac i narg
   sad d4
   jmp start
   lac narg
   tad d5
   dac rcorep
   dac wcorep
   lac i narg
   sad d8
   jmp start
   sad d12
   skp
   jmp error
   lac narg
   tad d9
   dac nlnamep
   "
start:
   lac nlbufp
   cma
   tad o17777
   cll
   idiv
   6
   cll
   lacq
   mul
   6
   lacq
   dac namesize
   sys open; nlnamep: nlname; 0
   dac symindex
   sma
   jmp 1f
2:
   dzm nlcnt
   lac nlbufp
   dac nlsize
   jmp 3f
1:
   sys read; nlbuff; namesize:0
   spa
   jmp 2b
   dac nlcnt
   tad nlbufp
   dac nlsize
3:
   lac symindex
   sys close
   sys open
wcorep: corename; 1
   dac wcore
   sys open; rcorep: corename; 0
   dac rcore
   spa
   jmp error
   "
   lac o52012
   jms wchar
   law dotdot
   dac nsearch
   jms nlsearch
   jmp mloop
   lac value
   dac relocval
   cma
   tad d1
   dac mrelocv
   dzm sysflag
mloop:
   -1
   dac nwords
ml1:
   jms rch
   dac nchar1
   sad o52
   skp
   jmp 1f
   dzm nchar1
   dac indflg
1:
   jms getexp
   lac errf
   sna
   jmp cmd
error:
   dzm indflg
   lac o40
   dac rator
   dzm errf
   lac d1
   sys write; errmes; 1
   jmp mloop
cmd:
   lacq
   sad o41
   jmp patch
   lac opfound
   sna
   jmp 1f
   lac comflg
   dzm comflg
   sza
   jmp 1f
   lac curval
   dac curdot
   lac curreloc
   dac dotrel
1:
   lacq
   sad o42
   jmp ascii
   sad o12
   jmp newln
   sad o77
   jmp symbol
   sad o47
   jmp saddress
   sad o75
   jmp address
   sad o57
   jmp octal
   sad o72
   jmp decimal
   sad o136
   skp
   jmp 1f
   dac sysflag
   jmp mloop
1:
   sad o45
   skp
   jmp 1f
   dzm sysflag
   jmp mloop
1:
   sad d1
   sys exit
   sad o54
   skp
   jmp error
   " comma
   jms getexp
   lac errf
   sza
   jmp error
   law
   dac comflg
   lac curreloc
   sza
   jmp 1f
   lac value
   cma
   dac nwords
   jmp cmd
1:
   lac reldot
   sna
   jmp error
   lac curval
   cma
   tad curdot
   sma
   jmp error
   dac nwords
   jmp cmd
   "
saddress:
   lac curdot
   dac 9f
   dzm curdot
   lac reldot
   sza
   lac relocval
   tad 9f
   jms prsym
   lac o12
   jms wchar
   lac 9f
   dac curdot
   jmp mloop
9:0
   "
symbol:
   law prsym
   dac type
   jmp print
   "
octal:
   law proct
   dac type
   jmp print
   "
ascii:
   law prasc
   dac type
   jmp print
   "
decimal:
   law prdec
   dac type
   jmp print
   "
address:
   lac curdot
   jms octw
   5
   lac curreloc
   sza
   jmp 1f
   lac o12
   jms wchar
   jmp mloop
1:
   lac o162012
   jms wchar
   jmp mloop
   "
print:
   lac sysflag
   sza
   jmp 2f
   lac reldot
   sza
   jmp 1f
   lac curdot
   dac addr
   jmp sprint
2:
   lac curdot
   dac addr
   jmp sprint
1:
   law inbuf
   dac addr
   lac curdot
   dac 1f
   lac rcore
   sys seek; 1:0; 0
   spa
   jmp error
   lac rcore
   sys read; inbuf; 64
   spa
   jmp error
   sna
   jmp error
   "
sprint:
   lac indflg
   sna
   jmp 2f
   dzm indflg
   lac i addr
   and o17777
   dac curdot
   dzm reldot
   tad mrelocv
   spa
   jmp print
   dac curdot
   lac d1
   dac reldot
   jmp print
   "
2:
   lac o40
   jms wchar
   lac addr
   dac 3f
   lac i addr
   jms i type
   lac 3f
   dac addr
   isz addr
   law prasc
   sad type
   jmp 1f
   lac nl
   jms wchar
1:
   isz nwords
   jmp 1f
   law prasc
   sad type
   skp
   jmp mloop
   lac nl
   jms wchar
   jmp mloop
1:
   isz curdot
   nop
   lac nwords
   spa
   jmp print
   jmp 2b
3:0
   "
prdec:     "temp
proct:0
   jms octw
   6
   jmp i proct
   "
patch:
   lac opfound
   sna
   jmp error
   lac curreloc
   sna
   jmp 1f
   lac curval
   tad relocval
   skp
1:
   lac curval
   dac inbuf
   lac sysflag
   sna
   jmp 1f
   lac inbuf
   dac i curdot
   jmp bump
1:
   lac reldot
   sna
   jmp error
   lac curdot
   dac 2f
   lac wcore
   spa
   jmp error
   sys seek; 2:0; 0
   spa
   jmp error
   lac wcore
   sys write; inbuf; 1
   spa
   jmp error
bump:
   -1
   dac nwords
   isz curdot
   jmp print
   "
newln:
   lac opfound
   sna
   jmp bump
   jmp print
   "
getexp:0
   dzm errf
   lac o40
   dac rator
   dzm curval
   dzm curreloc
   dzm reloc
   dzm value
   dzm opfound
xloop:
   jms rch
   lmq
   sad o44
   skp
   jmp 1f
   jms getspec
   jms oprand
   jmp xloop
1:
   tad om60
   spa
   jmp 1f
   tad om10
   sma
   jmp 1f
   lacq
   jms getnum  " ??? getnur
   jms oprand
   jmp xloop
1:
   lacq
   sad o56
   jmp 1f
   tad om141
   spa
   jmp 2f
   tad om32
   sma
   jmp 2f
1:
   lacq
   jms getsym
   jms oprand
   jmp xloop
2:
   lacq
   tad om101
   spa
   jmp 1f
   tad om32
   spa
   jmp 1b
1:
   lacq
   sad o74
   skp
   jmp 1f
   jms rch
   alss 9
   dac value
   dzm reloc
   jms oprand
   jmp xloop
1:
   sad o40
   jmp xloop
   sad o55 "-
   skp
   jmp 1f
2:
   lac o40
   sad rator
   skp
   jmp error
   lacq
   dac rator
   jmp xloop
1:
   sad o53 "+
   jmp 2b
   lac curreloc
   sna
   jmp 1f
   sad d1
   skp
   dac errf
1:
   lac o40
   sad rator
   jmp i getexp
   dac errf
   jmp i getexp
   "
getspec: 0
      jms rch
      sad o141
      jmp spcac
      sad o161 "q
      jmp spcmq
      sad o151 "i
      jmp spcic
      lmq
      tad om60
      spa
      jmp 2f
      tad om10
      sma
      jmp 2f
      lacq
      jms getnum
      jmp spcai
2:
      law
      dac errf
      jmp getspec i
spcac:
      cla
      jmp 1f
spcmq:
      lac d1
      jmp 1f
spcic:
      lac d10
      jmp 1f
spcai:
      lac value
      tad dm6

1:
      tad o10000
      dac value
      lac d1
      dac reloc
      jmp i getspec
   "
getsym:0
   lmq
   law symbuf
   dac symbufp
   dzm symbuf
   -8
   dac symcnt
   dzm nchar1
   lac nopcom
   dac skipt
   skp
storech:
   lmq
   lac i symbufp
   and o177000
   sna
   jmp 1f
   omq
   dac i symbufp
   isz symbufp
   dzm i symbufp
   jmp 2f
1:
   llss 27
   dac i symbufp
   "
2:
   isz symcnt
   skp
   jmp endsym
skipt:
   nop " or jmp fill
   jms rch
   sad o76
   skp
   jmp 1f
   lac symbuf
   lrss 9
   and o177
   dac value
   dzm reloc
   jmp i getsym
1:
   sad o56
   jmp storech
   dac nchar1
   tad om60
   spa
   jmp fill
   tad m10
   spa
   jmp 2f
   lac nchar1
   tad om141
   spa
   jmp 1f
   tad om32
   spa
   jmp 2f
1:
   lac nchar1
   tad om101
   spa
   jmp fill
   tad om32
   sma
   jmp fill
2:
   lac nchar1
   dzm nchar1
   jmp storech
   "
fill:
   lac trafill
   dac skipt
   lac o40
   jmp storech
   "
endsym:
   lac symbuf
   sad o56040
   jmp dotsym
   law symbuf
   dac nsearch
   jms nlsearch
   jmp undef
   dzm nsearch
   jmp i getsym
   "
dotsym:
   lac curdot
   dac value
   lac dotrel
   dac reloc
   jmp i getsym
   "
undef:
   dzm nsearch
   law
   dac errf
   jmp i getsym
   "
getnum:0
   dzm reloc
   dzm value
num1:
   tad om60
   lmq
   lac value
   alss 3
   omq
   dac value
   jms rch
   dac nchar1
   sad o162
   jmp nrel
   tad om60
   spa
   jmp i getnum
   tad om10
   sma
   jmp i getnum
   lac nchar1
   dzm nchar1
   jmp num1
nrel:
   dzm nchar1
   lac d1
   dac reloc
   jmp i getnum
   "
oprand:0
   lac rator
   sad o53
   jmp opplus
   sad o40
   jmp opor
   sad o55
   jmp opminus
opplus:
   lac value
   tad curval
   dac curval
1:
   lac curreloc
   tad reloc
   dac curreloc
   jmp retop
   "
opor:
   lac value
   lmq
   lac curval
   omq
   dac curval
   jmp 1b
   "
opminus:
   lac curval
   cma
   tad value
   cma
   dac curval
   lac reloc
   cma
   tad d1
   tad curreloc
   dac curreloc
retop:
   lac o40
   dac rator
   dac opfound
   jmp i oprand
   "
prasc:0
   jms wchar
   jmp i prasc
   "
prsym:0
   dac word
   dzm relflg
   dzm relocflg
   dzm nsearch
   and o760000
   sad o760000
   jmp plaw
   sad o20000
   jmp pcal
   and o740000
   sad o640000
   jmp peae
   sad o740000
   jmp popr
   sad o700000
   jmp piot
   sna
   jmp poct
   jms nlsearch
   jmp poct
   jms wrname
   lac o40
   jms wchar
   lac word
   and o20000
   sna
   jmp 1f
   lac o151040
   jms wchar
   lac word
   xor o20000
   dac word
1:
symadr:
   lac d1
   dac relflg
   dac relocflg
   lac word
   and o17777
   tad mrelocv
   sma
   jmp 1f
   tad relocval
   dzm relocflg
1:
pradr:
   dac addr
   jms nlsearch
   jmp octala
pr1:
   dzm relflg
   jms wrname
   lac value
   sad addr
   jmp i prsym
   cma
   tad d1
   tad addr
   sma
   jmp 1f
   cma
   tad d1
   dac addr
   lac o55
   jms wchar
   jmp 2f
1:
   dac addr
   lac o53
   jms wchar
2:
   lac addr
   jms octw
   1
   jmp i prsym
   "
plaw:
   lac d1
   dac relocflg
   lac word
   and o17777
   tad mrelocv
   sma
   jmp 1f
   tad relocval
   dzm relocflg
1:
   dac addr
   law
   dac relflg
   lac addr
   jms nlsearch
   jmp poct
   dac symindex
   law laws
   jms wrname
   lac o40
   jms wchar
3:
   lac symindex
   jmp pr1
2:0
9:0
   "
peae:
   lac word
   jms nlsearch
   jmp 1f
   jms wrname
   jmp i prsym
1:
   lac word
   and o777700
   jms nlsearch
   jmp 1f
   jms wrname
   lac o40
   jms wchar
   lac word
   and o77
   jms octw
   1
   jmp i prsym
1:
   law eaes
   dac addr
   jmp nfnd
   "
popr:
   law oprs
   jmp 1f
piot:
   law iots
1:
   dac addr
   lac word
   jms nlsearch
   jmp 1f
   jms wrname
   jmp i prsym
1:
nfnd:
   lac addr
   jms wrname
octala:
   dzm relflg
   lac o40
   jms wchar
   lac word
   and o37777
   lmq
   lac relocflg
   sna
   jmp 1f
   lacq
   tad mrelocv
   lmq
1:
   lacq
   jms octw
   1
   lac relocflg
   sna
   jmp i prsym
   lac o162
   jms wchar
   dzm relocflg
   jmp i prsym
   "
poct:
   lac word
   jms octw
   6
   jmp i prsym
   "
pcal:
   lac word
   sna
   jmp poct
   and o17777
   jms nlsearch
   jmp 1f
   dac addr
   law syss
   jms wrname
   lac o40
   jms wchar
   lac addr
   jms wrname
   jmp i prsym
   "
1:
   lac word
   and o20000
   sza
   jmp poct
   jmp symadr
   "
wrname:0
   tad dm1
   dac 10
   -4
   dac 3f
1:
   lac i 10
   dac 2f
   lmq
   cla
   llss 9
   sad o40
   jmp i wrname
   jms wchar
   lac 2f
   and o177
   sad o40
   jmp i wrname
   jms wchar
   isz 3f
   jmp 1b
   jmp i wrname
2:0
3:0
   "
nlsearch:0
   dac match
   lac brack
   dac best
   dzm minp
1:
   lac nlbufp
   tad dm6
   dac cnlp
nloop:
   lac cnlp
   tad d6
   dac cnlp
   lmq
   cma
   tad nlsize
   spa
   jmp nlend
   lac nsearch
   sza
   jmp testn
   lacq
   tad d3
   dac np
   lac i np
   sna
   jmp nloop
   isz np
   lac i np
   dac treloc
   sad relocflg
   skp
   jmp nloop
   isz np
   lac i np
   dac tvalue
   sad match
   jmp nlok
   lac relocflg
   sna
   jmp nloop
   lac relflg
   sna
   jmp nloop
   -1
   tad tvalue
   cma
   tad match
   spa
   jmp nloop
   dac 2f
   tad mbrack
   sma
   jmp nloop
   lac best
   cma
   tad d1
   tad 2f
   sma
   jmp nloop
   lac 2f
   dac best
   lac tvalue
   dac value
   lac treloc
   dac reloc
   lac cnlp
   dac minp
   jmp nloop
   "
2:0
   "
testn:
   lacq
   dac minp
   -4
   dac value
   lac match
   dac inbuf
1:
   lac i minp
   sad i inbuf
   skp
   jmp nloop
   isz minp
   isz inbuf
   isz value
   jmp 1b
   lac i minp
   dac treloc
   isz minp
   lac i minp
   dac tvalue
   jmp nlok
   "
nlend:
   lac relflg
   sna
   jmp i nlsearch
   lac dotrel
   sad relocflg
   skp
   jmp 1f
   -1
   tad curdot
   cma
   tad match
   spa
   jmp 2f
   cma
   tad d1
2:
   tad brack
   spa
   jmp 1f
   tad mbrack
   tad best
   spa
   jmp 1f
   lac curdot
   dac value
   lac dotrel
   dac reloc
   law o56040
   dac minp
1:
   lac minp
   sza
   isz nlsearch
   jmp i nlsearch
nlok:
   lac tvalue
   dac value
   lac treloc
   dac reloc
   lac cnlp
   isz nlsearch
   jmp i nlsearch
   "
nlerr:
   law
   dac errf
   jmp i nlsearch
   "
rch:0
   lac nchar1
   dzm nchar1
   sza
   jmp i rch
1:
   lac nchar
   dzm nchar
   sza
   jmp i rch
   cla
   sys read; char; 1
   lac char
   and o177
   dac nchar
   lac char
   lrss 9
   sna
   jmp 1b
   jmp i rch
   "
wchar:0
   dac char
   lac d1
   sys write; char; 1
   jmp i wchar
   "
octw: 0
   isz octw
   lmq
   cla cll
   llss 3
   alss 6
   llss 3
   tad o60060
   dac obuf
   cla
   llss 3
   alss 6
   llss 3
   tad o60060
   dac obuf+1
   cla
   llss 3
   alss 6
   llss 3
   tad o60060
   dac obuf+2
   lac d1
   sys write; obuf; 3
   jmp i octw
m10: -10
   "
   "
o54:054
d6:6
o52012:052012
d5:5
d9:9
d12:12
d8:8
d3:3
o177:0177
o136: 0136
o45: 045
sysflag: 0
char:0
d2:2
o162012:0162012
mrelocv:-010000
relocval:010000
nwords:0
errf:0
rator:0
d1:1
errmes:077012
o12:012
curval:0
curreloc:0
curdot:0
reldot:
dotrel:0
value:0
reloc:0
o77:077
o57:057
o72:072
o50:050
type:proct
o162:0162
nl:012
om100:-0100
" d2:2		" Duplicate
symbuf: .=.+5
inbuf:.=.+64
o100:0100
opfound:0
wcore:0
symindex:0
rcore:0
o56:056
om60:-060
om10:-010
" o56:056	" Duplicate
om141:-0141
o141: 0141
o44: 044
o151: 0151
o161: 0161
om101: -0101
om32:-032
o40:040
o55:055
o53:053
symbufp:0
symcnt:0
nopcom:nop
dm6: -6
d10: 10
trafill: jmp fill
nchar1:0
nchar:0
o177000:0177000
o56040:056040
nsearch:0
word:0
relflg:0
relocflg:0
o740000:0740000
o640000:0640000
o700000:0700000
o17777:017777
o20000:020000
o10000: 010000
o151040:0151040
eaes:0145141;0145040
laws: 0154141;0167040
oprs:0157160;0162040
iots:0151157;0164040
syss:0163171;0163040
corename:0143157;0162145;040040;040040
nlname:0156056;0157165;0164040;040040
dotdot: <..>; 040040; 040040; 040040
addr:0
o37777:037777
dm1:-1
match:0
rwdflg:0
nlbufp:nlbuff
nlsize:0
" dm6:-6	" Duplicate
cnlp:0
o377777:0377777
minp:0
d4:4
np:0
nlcnt:0
obuf:.=.+3
o60060:060060
o75:075
best: 0
o60000:060000
comflg:0
" nlbufp:nlbuff	" Duplicate
brack: 30
mbrack: -30
o777700:0777700
o41:041
o42:042
o760000:0760000
o40000:040000
tvalue: 0
treloc: 0
" o151:0151	" Duplicate
o47: 047
o52:052
indflg: 0
o74:074
o76:076
" nlbufp: nlbuff " Duplicate
   nlbuff = .