407. 2626 0 0. 0. 0 0 1
040000: 012703 	mov	$177304,r3
040002: 177304
040004: 010600 	mov	sp,r0
040006: 011646 	mov	(sp),-(sp)
040010: 005720 	tst	(r0)+
040012: 010066 	mov	r0,2(sp)
040014: 000002
040016: 016746 	mov	40040,-(sp)
040020: 000016
040022: 012705 	mov	$40030,r5
040024: 040030
040026: 000135 	jmp	*(r5)+
040030: 042500 	bic	(r5)+,r0
040032: 000000 	halt	r0,r0
040034: 040036 	bic	r0,*(sp)+
040036: 104401 	trap	1

040040: 040042 	.+2
040042: 042550	vec; 22
040044: 000022
040046: 042540	setstk; 32
040050: 000032
040052: 042360	va; -30
040054: 177750
040056: 042350	a; 4
040060: 000004
040062: 041726	=_
040064: 042350	a; -30
040066: 177750
040070: 042404	c; 1
040072: 000001
040074: 041770	==
040076: 042566	f; L2
040100: 040130
040102: 042350	a; 6
040104: 000006
040106: 042404	c; S1
040110: 040612
040112: 041726	=_
040114: 042360	va; -30
040116: 177750
040120: 042224	++b_
040122: 042360	va; 6
040124: 000006
040126: 042276	--w_
L2:
040130: 042360	va; -30
040132: 177750
040134: 042250	--b
040136: 042566	f; L3
040140: 040604
040142: 042360	va; 6
040144: 000006
040146: 042242	++w_
040150: 042360	va; -26
040152: 177752
040154: 042404	c; 0
040156: 000000
040160: 042350	a; 6
040162: 000006
040164: 042164	*wp
040166: 042400	x; _open
040170: 041544
040172: 042450	call; 4
040174: 000004
040176: 041732	=
040200: 042404	c; 0
040202: 000000
040204: 042020	<
040206: 042566	f; L4
040210: 040242
040212: 042350	a; 6
040214: 000006
040216: 042164	*wp
040220: 042404	c; S2
040222: 040620
040224: 042400	x; _printf
040226: 041022
040230: 042500	call_; 4
040232: 000004
040234: 042400	x; st_L1
040236: 040636
040240: 042534	goto
L4:
040242: 042404	c; 20
040244: 000020
040246: 042350	a; -24
040250: 177754
040252: 042350	a; -26
040254: 177752
040256: 042400	x; _read
040260: 041664
040262: 042500	call_; 6
040264: 000006
040266: 042350	a; -24
040270: 177754
040272: 042404	c; 0
040274: 000000
040276: 042416	idxw
040300: 042404	c; 407
040302: 000407
040304: 042000	!=
040306: 042566	f; L5
040310: 040356
040312: 042350	a; 6
040314: 000006
040316: 042164	*wp
040320: 042404	c; S3
040322: 040640
040324: 042400	x; _printf
040326: 041022
040330: 042500	call_; 4
040332: 000004
040334: 042350	a; -26
040336: 177752
040340: 042400	x; _close
040342: 041522
040344: 042500	call_; 2
040346: 000002
040350: 042400	x; st_L1
040352: 040636
040354: 042534	goto
L5:
040356: 042350	a; 4
040360: 000004
040362: 042404	c; 2
040364: 000002
040366: 042040	>
040370: 042566	f; L6
040372: 040416
040374: 042350	a; 6
040376: 000006
040400: 042164	*wp
040402: 042404	c; S4
040404: 040660
040406: 042400	x; _printf
040410: 041022
040412: 042500	call_; 4
040414: 000004
L6:
040416: 042350	a; -24
040420: 177754
040422: 042404	c; 3
040424: 000003
040426: 042416	idxw
040430: 042350	a; -24
040432: 177754
040434: 042404	c; 2
040436: 000002
040440: 042416	idxw
040442: 042350	a; -24
040444: 177754
040446: 042404	c; 1
040450: 000001
040452: 042416	idxw
040454: 042404	c; S5
040456: 040666
040460: 042400	x; _printf
040462: 041022
040464: 042500	call_; 10
040466: 000010
040470: 042360	va; -32
040472: 177746
040474: 042350	a; -24
040476: 177754
040500: 042404	c; 1
040502: 000001
040504: 042416	idxw
040506: 042350	a; -24
040510: 177754
040512: 042404	c; 2
040514: 000002
040516: 042416	idxw
040520: 042106	+
040522: 042350	a; -24
040524: 177754
040526: 042404	c; 3
040530: 000003
040532: 042416	idxw
040534: 042106	+
040536: 041726	=_
040540: 042350	a; -32
040542: 177746
040544: 042404	c; S6
040546: 040704
040550: 042400	x; _printf
040552: 041022
040554: 042500	call_; 4
040556: 000004
040560: 042350	a; -26
040562: 177752
040564: 042400	x; _close
040566: 041522
040570: 042500	call_; 2
040572: 000002
L1:
040574: 042540	setstk; 32
040576: 000032
040600: 042562	t; L2
040602: 040130
L3:
040604: 042540	setstk; 2
040606: 000002
040610: 042530	return

S1:
040612: 027141	<a.out\0>
040614: 072557
040616: 000164
S2:
040620: 071445	<%s not found\n\0>
040622: 067040
040624: 072157
040626: 063040
040630: 072557
040632: 062156
040634: 000012
st_L1:
040636: 040574	L1
S3:
040640: 060502	<Bad format: %s\n\0>
040642: 020144
040644: 067546
040646: 066562
040650: 072141
040652: 020072
040654: 071445
040656: 000012
S4:
040660: 071445	<%s: \0>
040662: 020072
040664: 000000
S5:
040666: 022460	<0%o+0%o+0%o =\0>
040670: 025557
040672: 022460
040674: 025557
040676: 022460
040700: 036557
040702: 000000
S6:
040704: 022460	<0%o\n\0>
040706: 005157
040710: 000000

_printn:
040712: 040714	.+2
040714: 042540	setstk; 4
040716: 000004
040720: 042360	va; -4
040722: 177774
040724: 042350	a; 4
040726: 000004
040730: 042350	a; 6
040732: 000006
040734: 042144
040736: 041732	=
040740: 042566
040742: 040764
040744: 042350	a; 6
040746: 000006
040750: 042350	a; -4
040752: 177774
040754: 042400
040756: 040712
040760: 042500
040762: 000004
040764: 042350	a; 4
040766: 000004
040770: 042350	a; 6
040772: 000006
040774: 042116
040776: 042404	c; 60
041000: 000060
041002: 042106
041004: 042400
041006: 041602
041010: 042500
041012: 000002
041014: 042540	setstk; 2
041016: 000002
041020: 042530	return

_printf:
041022: 041024
041024: 042540	setstk; 2
041026: 000012
041030: 042360	va; -6
041032: 177772
041034: 042360	va; 6
041036: 000006
041040: 041726	=_
041042: 042540	setstk; 12
041044: 000012
041046: 042360	va; -12
041050: 177766
041052: 042360	va; 4
041054: 000004
041056: 042304
041060: 042170
041062: 041732	=
041064: 042404	c; 45
041066: 000045
041070: 042000
041072: 042566
041074: 041136
041076: 042350	a; -12
041100: 177766
041102: 042404
041104: 000000
041106: 041770
041110: 042566
041112: 041116
041114: 042530	return
041116: 042350	a; -12
041120: 177766
041122: 042400
041124: 041602
041126: 042500
041130: 000002
041132: 042562
041134: 041046
041136: 042360	va; -10
041140: 177770
041142: 042360	va; -6
041144: 177772
041146: 042314
041150: 042164	*wp
041152: 041726	=_
041154: 042360	va; -12
041156: 177766
041160: 042360	va; -4
041162: 000004
041164: 042304
041166: 042170
041170: 041732	=
041172: 042600
041174: 041430
041176: 042350	a; -10
041200: 177770
041202: 042404
041204: 000000
041206: 042020
041210: 042566
041212: 041244
041214: 042360	va; -10
041216: 177770
041220: 042350	a; -10
041222: 177770
041224: 042160
041226: 041726	=_
041230: 042404
041232: 000055
041234: 042400
041236: 041602
041240: 042500
041242: 000002
041244: 042350	a; -12
041246: 177766
041250: 042404
041252: 000157
041254: 041770
041256: 042566
041260: 041272
041262: 042404
041264: 000010
041266: 042562
041270: 041276
041272: 042404
041274: 000012
041276: 042350	a; -10
041300: 177770
041302: 042400
041304: 040712
041306: 042500
041310: 000004
041312: 042400
041314: 041520
041316: 042534
041320: 042350	a; -10
041322: 177770
041324: 042400
041326: 041602
041330: 042500
041332: 000002
041334: 042400
041336: 041520
041340: 042534
041342: 042360	va; -4
041344: 177774
041346: 042350	a; -10
041350: 177770
041352: 041726	=_
041354: 042360	va; -12
041356: 177766
041360: 042360	va; -4
041362: 177774
041364: 042304
041366: 042170
041370: 041732	=
041372: 042566
041374: 041416
041376: 042350	a; -12
041400: 177766
041402: 042400
041404: 041602
041406: 042500
041410: 000002
041412: 042562
041414: 041354
041416: 042400
041420: 041520
041422: 042534
041424: 042562
041426: 041454
041430: 000144
041432: 041176
041434: 000157
041436: 041176
041440: 000143
041442: 041320
041444: 000163
041446: 041342
041450: 000000
041452: 000000
041454: 042404
041456: 000045
041460: 042400
041462: 041602
041464: 042500
041466: 000002
041470: 042360	va; 4
041472: 000004
041474: 042260
041476: 042360	va; 6
041500: 177772
041502: 042276
041504: 042400
041506: 041520
041510: 042534
041512: 042540	setstk; 2
041514: 000002
041516: 042530	return
041520: 041042

_close:
041522: 041524 	.+2
041524: 041526 	.+2
041526: 016400 	mov	4(r4),r0
041530: 000004
041532: 005001 	clr	r1
041534: 104406 	trap	6
041536: 005501 	adc	r1
041540: 010100 	mov	r1,r0
041542: 000207 	rts	pc

_open:
041544: 041546 	bic	(r5),-(sp)
041546: 041550 	bic	(r5),*-(r0)
041550: 016467 	mov	4(r4),41566
041552: 000004
041554: 000010
041556: 016467 	mov	6(r4),41570
041560: 000006
041562: 000004
041564: 104405 	trap	5
041566: 040000 	bic	r0,r0
041570: 040000 	bic	r0,r0
041572: 103002 	bcc	41600
041574: 012700 	mov	$177777,r0
041576: 177777
041600: 000207 	rts	pc
041602: 041604 	bic	(sp),r4
041604: 041606 	bic	(sp),sp
041606: 016467 	mov	4(r4),41660
041610: 000004
041612: 000044
041614: 016700 	mov	41662,r0
041616: 000042
041620: 105767 	tstb	41661
041622: 000035
041624: 001404 	beq	41636
041626: 104404 	trap	4
041630: 041660 	bic	(sp),2(r0)
041632: 000002
041634: 000403 	br	41644
041636: 104404 	trap	4
041640: 041660 	bic	(sp),1(r0)
041642: 000001
041644: 016700 	mov	41660,r0
041646: 000010
041650: 000207 	rts	pc
041652: 041654 	bic	(sp),*-(r4)
041654: 041656 	bic	(sp),*-(sp)
041656: 000207 	rts	pc
041660: 000000 	halt	r0,r0
041662: 000001 	wait	r0,r1


_read:
041664: 041666 	.+2
041666: 041670	.+2
041670: 016400 	mov	4(r4),r0
041672: 000004
041674: 016467 	mov	6(r4),41712
041676: 000006
041700: 000010
041702: 016467 	mov	10(r4),41714
041704: 000010
041706: 000004
041710: 104403 	trap	3
041712: 040000 	bic	r0,r0
041714: 040000 	bic	r0,r0
041716: 103002 	bcc	41724
041720: 012700 	mov	$177777,r0
041722: 177777
041724: 000207 	rts	pc



/ =_
041726: 012636 	mov	(sp)+,*(sp)+
041730: 000135 	jmp	*(r5)+

/ =
041732: 012600 	mov	(sp)+,r0
041734: 010036 	mov	r0,*(sp)+
041736: 010046 	mov	r0,-(sp)
041740: 000135 	jmp	*(r5)+

041742: 112636 	movb	(sp)+,*(sp)+
041744: 000135 	jmp	*(r5)+

041746: 012600 	mov	(sp)+,r0
041750: 110036 	movb	r0,*(sp)+
041752: 010046 	mov	r0,-(sp)
041754: 000135 	jmp	*(r5)+

041756: 052616 	bis	(sp)+,(sp)
041760: 000135 	jmp	*(r5)+

041762: 005116 	com	(sp)
041764: 042616 	bic	(sp)+,(sp)
041766: 000135 	jmp	*(r5)+

041770: 022626 	cmp	(sp)+,(sp)+
041772: 001426 	beq	42050
041774: 005046 	clr	-(sp)
041776: 000135 	jmp	*(r5)+
042000: 022626 	cmp	(sp)+,(sp)+
042002: 001022 	bne	42050
042004: 005046 	clr	-(sp)
042006: 000135 	jmp	*(r5)+
042010: 022626 	cmp	(sp)+,(sp)+
042012: 002016 	bge	42050
042014: 005046 	clr	-(sp)
042016: 000135 	jmp	*(r5)+
042020: 022626 	cmp	(sp)+,(sp)+
042022: 003012 	bgt	42050
042024: 005046 	clr	-(sp)
042026: 000135 	jmp	*(r5)+
042030: 022626 	cmp	(sp)+,(sp)+
042032: 003406 	ble	42050
042034: 005046 	clr	-(sp)
042036: 000135 	jmp	*(r5)+
042040: 022626 	cmp	(sp)+,(sp)+
042042: 002402 	blt	42050
042044: 005046 	clr	-(sp)
042046: 000135 	jmp	*(r5)+
042050: 012746 	mov	$1,-(sp)
042052: 000001
042054: 000135 	jmp	*(r5)+
042056: 016643 	mov	2(sp),-(r3)
042060: 000002
042062: 162667 	sub	(sp)+,177314
042064: 135226
042066: 012316 	mov	(r3)+,(sp)
042070: 000135 	jmp	*(r5)+
042072: 016613 	mov	2(sp),(r3)
042074: 000002
042076: 012667 	mov	(sp)+,177314
042100: 135212
042102: 011316 	mov	(r3),(sp)
042104: 000135 	jmp	*(r5)+

/ +
042106: 062616 	add	(sp)+,(sp)
042110: 000135 	jmp	*(r5)+
042112: 162616 	sub	(sp)+,(sp)
042114: 000135 	jmp	*(r5)+
042116: 016613 	mov	2(sp),(r3)
042120: 000002
042122: 012667 	mov	(sp)+,177300
042124: 135152
042126: 016716 	mov	177302,(sp)
042130: 135150
042132: 000135 	jmp	*(r5)+
042134: 012623 	mov	(sp)+,(r3)+
042136: 012613 	mov	(sp)+,(r3)
042140: 014346 	mov	-(r3),-(sp)
042142: 000135 	jmp	*(r5)+
042144: 016613 	mov	2(sp),(r3)
042146: 000002
042150: 012667 	mov	(sp)+,177300
042152: 135124
042154: 011316 	mov	(r3),(sp)
042156: 000135 	jmp	*(r5)+
042160: 005416 	neg	(sp)
042162: 000135 	jmp	*(r5)+

/ *wp
042164: 013646 	mov	*(sp)+,-(sp)
042166: 000135 	jmp	*(r5)+

042170: 113600 	movb	*(sp)+,r0
042172: 010046 	mov	r0,-(sp)
042174: 000135 	jmp	*(r5)+
042176: 005726 	tst	(sp)+
042200: 001003 	bne	42210
042202: 012746 	mov	$1,-(sp)
042204: 000001
042206: 000135 	jmp	*(r5)+
042210: 005046 	clr	-(sp)
042212: 000135 	jmp	*(r5)+
042214: 005276 	inc	*0(sp)
042216: 000000
042220: 013646 	mov	*(sp)+,-(sp)
042222: 000135 	jmp	*(r5)+

/ ++b_
042224: 005236 	inc	*(sp)+
042226: 000135 	jmp	*(r5)+

042230: 062776 	add	$2,*0(sp)
042232: 000002
042234: 000000
042236: 013646 	mov	*(sp)+,-(sp)
042240: 000135 	jmp	*(r5)+

/ ++w_
042242: 062736 	add	$2,*(sp)+
042244: 000002
042246: 000135 	jmp	*(r5)+

/ --b
042250: 005376 	dec	*0(sp)
042252: 000000
042254: 013646 	mov	*(sp)+,-(sp)
042256: 000135 	jmp	*(r5)+

042260: 005336 	dec	*(sp)+
042262: 000135 	jmp	*(r5)+
042264: 162776 	sub	$2,*0(sp)
042266: 000002
042270: 000000
042272: 013646 	mov	*(sp)+,-(sp)
042274: 000135 	jmp	*(r5)+

/ --w_
042276: 162736 	sub	$2,*(sp)+
042300: 000002
042302: 000135 	jmp	*(r5)+

042304: 012600 	mov	(sp)+,r0
042306: 011046 	mov	(r0),-(sp)
042310: 005210 	inc	(r0)
042312: 000135 	jmp	*(r5)+
042314: 012600 	mov	(sp)+,r0
042316: 011046 	mov	(r0),-(sp)
042320: 062710 	add	$2,(r0)
042322: 000002
042324: 000135 	jmp	*(r5)+
042326: 012600 	mov	(sp)+,r0
042330: 011046 	mov	(r0),-(sp)
042332: 005310 	dec	(r0)
042334: 000135 	jmp	*(r5)+
042336: 012600 	mov	(sp)+,r0
042340: 011046 	mov	(r0),-(sp)
042342: 162710 	sub	$2,(r0)
042344: 000002
042346: 000135 	jmp	*(r5)+

a:
042350: 012500 	mov	(r5)+,r0
042352: 060400 	add	r4,r0
042354: 011046 	mov	(r0),-(sp)
042356: 000135 	jmp	*(r5)+

va:
042360: 012546 	mov	(r5)+,-(sp)
042362: 060416 	add	r4,(sp)
042364: 000135 	jmp	*(r5)+

042366: 012500 	mov	(r5)+,r0
042370: 060400 	add	r4,r0
042372: 111000 	movb	(r0),r0
042374: 010046 	mov	r0,-(sp)
042376: 000135 	jmp	*(r5)+

x:
042400: 013546 	mov	*(r5)+,-(sp)
042402: 000135 	jmp	*(r5)+

c:
042404: 012546 	mov	(r5)+,-(sp)
042406: 000135 	jmp	*(r5)+

042410: 113500 	movb	*(r5)+,r0
042412: 010046 	mov	r0,-(sp)
042414: 000135 	jmp	*(r5)+

idxw:
042416: 006316 	asl	(sp)
042420: 062616 	add	(sp)+,(sp)
042422: 013646 	mov	*(sp)+,-(sp)
042424: 000135 	jmp	*(r5)+
042426: 062616 	add	(sp)+,(sp)
042430: 113600 	movb	*(sp)+,r0
042432: 010046 	mov	r0,-(sp)
042434: 000135 	jmp	*(r5)+
042436: 006316 	asl	(sp)
042440: 062616 	add	(sp)+,(sp)
042442: 000135 	jmp	*(r5)+
042444: 006316 	asl	(sp)
042446: 000135 	jmp	*(r5)+

call:
042450: 012600 	mov	(sp)+,r0
042452: 010546 	mov	r5,-(sp)
042454: 010446 	mov	r4,-(sp)
042456: 010604 	mov	sp,r4
042460: 010005 	mov	r0,r5
042462: 004735 	jsr	pc,*(r5)+
042464: 010406 	mov	r4,sp
042466: 012604 	mov	(sp)+,r4
042470: 012605 	mov	(sp)+,r5
042472: 062506 	add	(r5)+,sp
042474: 010046 	mov	r0,-(sp)
042476: 000135 	jmp	*(r5)+

call_:
042500: 012600 	mov	(sp)+,r0
042502: 010546 	mov	r5,-(sp)
042504: 010446 	mov	r4,-(sp)
042506: 010604 	mov	sp,r4
042510: 010005 	mov	r0,r5
042512: 004735 	jsr	pc,*(r5)+
042514: 010406 	mov	r4,sp
042516: 012604 	mov	(sp)+,r4
042520: 012605 	mov	(sp)+,r5
042522: 062506 	add	(r5)+,sp
042524: 000135 	jmp	*(r5)+
042526: 011600 	mov	(sp),r0
return:
042530: 000174 	jmp	*-2(r4)
042532: 177776

goto:
042534: 012605 	mov	(sp)+,r5
042536: 000135 	jmp	*(r5)+

setstk:
042540: 010400 	mov	r4,r0
042542: 162500 	sub	(r5)+,r0
042544: 010006 	mov	r0,sp
042546: 000135 	jmp	*(r5)+
vec:
042550: 010400 	mov	r4,r0
042552: 162500 	sub	(r5)+,r0
042554: 010006 	mov	r0,sp
042556: 010046 	mov	r0,-(sp)
042560: 000135 	jmp	*(r5)+

t:
042562: 012505 	mov	(r5)+,r5
042564: 000135 	jmp	*(r5)+

f:
042566: 012500 	mov	(r5)+,r0
042570: 005726 	tst	(sp)+
042572: 001001 	bne	42576
042574: 010005 	mov	r0,r5
042576: 000135 	jmp	*(r5)+

sw:
042600: 012505 	mov	(r5)+,r5
042602: 012600 	mov	(sp)+,r0
042604: 020025 	cmp	r0,(r5)+
042606: 001403 	beq	42616
042610: 005725 	tst	(r5)+
042612: 001374 	bne	42604
042614: 000135 	jmp	*(r5)+
042616: 012500 	mov	(r5)+,r0
042620: 001401 	beq	42624
042622: 010005 	mov	r0,r5
042624: 000135 	jmp	*(r5)+