Research PDP7 development

[unix-history] / dmabs.s

  " dmabs

  lac o17
  sys creat; punout
  spa
  sys save
  dac fo
  lac 017777
  tad d1
  dac name
  jms space
  100

loop:
  dzm oldsum
  lac initcmd
  dac comand
  lac i 017777
  sad d4
  jmp stop
  tad dm4
  dac i 017777
  lac name
  tad d4
  dac name

dump1:
  lac comand
  xor dactra
  dac tracmd

dump2:
  sys open; name: 0; 0
  spa
  jmp opnerr
  dac fi
  -bootsiz
  dac c1
  law boot-1
  dac 8
1:
  lac i 8
  jms put
  isz c1
  jmp 1b
  lac bootcmd
  lrs 12
  jms put1
  lac bootcmd
  lrs 6
  jms put1
  lac bootcmd
  and o77
  xor o300
  jms put2

  jms space
  3

dump3:
  -1
  tad bufp
  dac 8
  -64
  dac c1
1:
  dzm i 8
  isz c1
  jmp 1b
  lac fi
  sys read; bufp: buf; 64
  sna
  jmp done
  dac count
  -1
  tad bufp
  dac 8
  -64
  dac c1
  cla
1:
  add i 8
  isz c1
  jmp 1b
  sna
  jmp dump4
  dac newsum
  lac comand
  jms put
  lac count
  jms put
  lac oldsum
  add comand
  add count
  jms put
  lac newsum
  dac oldsum
  jms space
  3
  -1
  tad bufp
  dac 8
  -1
  tad count
  cma
  dac c1
1:
  lac i 8
  jms put
  isz c1
  jmp 1b
  jms space
  10

dump4:
  lac comand
  tad count
  dac comand
  jmp dump3

done:
  lac tracmd
  jms put
  cla
  jms put
  lac oldsum
  add tracmd
  jms put
  jms space
  20
  lac fi
  sys close
  jmp loop

stop:
  cla
  jms put
  jms space
  100
  sys exit

space: 0
  -1
  tad i space
  cma
  dac c1
  isz space
1:
  lac o400
  jms put2
  isz c1
  jmp 1b
  jmp i space

put: 0
  dac 1f
  lrs 12
  jms put1
  lac 1f
  lrs 6
  jms put1
  lac 1f
  jms put1
  jmp i put
1:0

put1:0
  and o77
  xor o200
  jms put2
  jmp i put1

put2: 0
  dac 1f
  lac fo
  sys write; 1f; 1
  jmp i put2
1: 0

boot:
  org = 017740
2:
  jms get1-boot+org
  dac cmd-boot+org
  jms get1-boot+org
  cma
  dac cnt-boot+org
  jms get2-boot+org
  xor sum-boot+org
  dzm sum-boot+org
  cla cll sza
  hlt
  isz cnt-boot+org
1:
  jms get1-boot+org
cmd: 0
  isz cmd-boot+org
  isz cnt-boot+org
  jmp 1b-boot+org
  jmp 2b-boot+org
get1: 0
  jms get2-boot+org
  dac get2-boot+org
  add sum-boot+org
  dac sum-boot+org
  lac get2-boot+org
  jmp i get1-boot+org
get2: 0
  iot 0144
1:
  iot 0101
  jmp 1b-boot+org
  iot 0112
  jmp i get2-boot+org
sum: 0
  cnt = sum+1
  bootsiz = .-boot
bootcmd: jmp org

opnerr:
  lac name
  dac 1f
  lac d1
  sys write; 1: 0; 4
  lac d1
  sys write; mes; 2
  jmp loop
mes:
  040;077012

comand: 0
tracmd: 0
  d1: 1
.17777: 017777
o77: 077
o200: 0200
o300: 0300
d4: 4
d64: 64
dm4: -4
o400: 0400
punout: <pp>;<to>;<ut>;040040
o17: 017

fi: 0
fo: 0
count: 0
oldsum: 0
newsum: 0
daccmd: dac
dactra: dac jmp
initcmd: dac 0
c1: 0
buf:

iot = 0700000