[unix-history] / trysys.s

" trysys

   sys open; a.out; 0
   spa
   jmp error
   sys read; buf; 3072
   sad .-1
   jmp error
   iof
   caf
   cdf
   clof
   law buf
   dac t1
   dzm t2
   -3072
   dac c1
1:
   lac t1 i
   dac t2 i
   isz t1
   isz t2
   isz c1
   jmp 1b
   jmp 0100

error:
   lac d1
   sys write; 1f; 1
   sys exit
1: 077012

a.out:
   <a.>;<ou>;<t 040; 040040
t1: 0
t2: 0
c1: 0
d1: 1
buf:
Commit	Line	Data
69f28986 KT	1	" trysys
	2
	3	sys open; a.out; 0
	4	spa
	5	jmp error
	6	sys read; buf; 3072
	7	sad .-1
	8	jmp error
	9	iof
	10	caf
	11	cdf
	12	clof
	13	law buf
	14	dac t1
	15	dzm t2
	16	-3072
	17	dac c1
	18	1:
	19	lac t1 i
	20	dac t2 i
	21	isz t1
	22	isz t2
	23	isz c1
	24	jmp 1b
	25	jmp 0100
	26
	27	error:
	28	lac d1
	29	sys write; 1f; 1
	30	sys exit
	31	1: 077012
	32
	33	a.out:
	34	<a.>;<ou>;<t 040; 040040
	35	t1: 0
	36	t2: 0
	37	c1: 0
	38	d1: 1
	39	buf: