[unix-history] / cat.s

" cat

   lac 017777 i
   sad d4
   jmp nofiles
   lac 017777
   tad d1
   tad d4
   dac name

loop:
   sys open; name: 0; 0
   spa
   jmp badfile
   dac fi

1:
   jms getc
   sad o4
   jmp 1f
   jms putc
   jmp 1b

1:
   lac fi
   sys close

loop1:
   -4
   tad 017777 i
   dac 017777 i
   sad d4
   jmp done
   lac name
   tad d4
   dac name
   jmp loop

badfile:
   lac name
   dac 1f
   lac d8
   sys write; 1:0; 4
   lac d8
   sys write; 1f; 2
   jmp loop1

1: 040;077012
nofiles:
   lac d8
   sys write; 1f; 5
   sys exit

1: <no>; 040;  <fi>;<le>;<s 012

done:
   lac noc
   sns
   sys exit
   and d1
   sna cla
   jmp 1f
   jms putc
   jmp done
1:
   lac noc
   rcr
   dac 1f
   lac fo
   sys write; iopt+1; 1:..
   sys exit

getc: 0
   lac ipt
   sad eipt
   jmp 1f
   dac 2f
   add o400000
   dac ipt
   ral
   lac 2f i
   szl
   lrss 9
   and o177
   sna
   jmp getc+1
   jmp getc i
1:
   lac fi
   sys read; iipt+1; 64
   sna
   jmp 1f
   tad iipt
   dac eipt
   lac iipt
   dac ipt
   jmp getc+1
1:
   lac o4
   jmp getc i

putc: 0
   and o177
   dac 2f+1
   lac opt
   dac 2f
   add o400000
   dac opt
   spa
   jmp 1f
   lac 2f i
   xor 2f+1
   jmp 3f
1:
   lac 2f+1
   alss 9
3:
   dac 2f i
   isz noc
   lac noc
   sad d128
   skp
   jmp putc i
   lac fo
   sys write; iopt+1; 64
   lac iopt
   dac opt
   dzm noc
   jmp putc i
2: 0;0
ipt: 0
eipt: 0
iipt: .+1; .=.+64
fi: 0
opt: .+2
iopt: .+1; .=.+64
noc: 0
fo: 1

d1: 1
o4:d4: 4
d8: 8
o400000: 0400000
o177: 0177
d128: 128
Commit	Line	Data
69f28986 KT	1	" cat
	2
	3	lac 017777 i
	4	sad d4
	5	jmp nofiles
	6	lac 017777
	7	tad d1
	8	tad d4
	9	dac name
	10
	11	loop:
	12	sys open; name: 0; 0
	13	spa
	14	jmp badfile
	15	dac fi
	16
	17	1:
	18	jms getc
	19	sad o4
	20	jmp 1f
	21	jms putc
	22	jmp 1b
	23
	24	1:
	25	lac fi
	26	sys close
	27
	28	loop1:
	29	-4
	30	tad 017777 i
	31	dac 017777 i
	32	sad d4
	33	jmp done
	34	lac name
	35	tad d4
	36	dac name
	37	jmp loop
	38
	39	badfile:
	40	lac name
	41	dac 1f
	42	lac d8
	43	sys write; 1:0; 4
	44	lac d8
	45	sys write; 1f; 2
	46	jmp loop1
	47
	48	1: 040;077012
	49	nofiles:
	50	lac d8
	51	sys write; 1f; 5
	52	sys exit
	53
	54	1: <no>; 040; <fi>;<le>;<s 012
	55
	56	done:
	57	lac noc
	58	sns
	59	sys exit
	60	and d1
	61	sna cla
	62	jmp 1f
	63	jms putc
	64	jmp done
65	1:
66	lac noc
67	rcr
68	dac 1f
69	lac fo
70	sys write; iopt+1; 1:..
71	sys exit
72
73	getc: 0
74	lac ipt
75	sad eipt
76	jmp 1f
77	dac 2f
78	add o400000
79	dac ipt
80	ral
81	lac 2f i
82	szl
83	lrss 9
84	and o177
85	sna
86	jmp getc+1
87	jmp getc i
88	1:
89	lac fi
90	sys read; iipt+1; 64
91	sna
92	jmp 1f
93	tad iipt
94	dac eipt
95	lac iipt
96	dac ipt
97	jmp getc+1
98	1:
99	lac o4
100	jmp getc i
101
102	putc: 0
103	and o177
104	dac 2f+1
105	lac opt
106	dac 2f
107	add o400000
108	dac opt
109	spa
110	jmp 1f
111	lac 2f i
112	xor 2f+1
113	jmp 3f
114	1:
115	lac 2f+1
116	alss 9
117	3:
118	dac 2f i
119	isz noc
120	lac noc
121	sad d128
122	skp
123	jmp putc i
124	lac fo
125	sys write; iopt+1; 64
126	lac iopt
127	dac opt
128	dzm noc
129	jmp putc i
130	2: 0;0
131	ipt: 0
132	eipt: 0
133	iipt: .+1; .=.+64
134	fi: 0
135	opt: .+2
136	iopt: .+1; .=.+64
137	noc: 0
138	fo: 1
139
140	d1: 1
141	o4:d4: 4
142	d8: 8
143	o400000: 0400000
144	o177: 0177
145	d128: 128