;
; pdp11dasm version 0.0.3
; disassembly of rqdx3.bin
;
;
;
				;--------------------------------------------------------
				;
;
;	File:	rqdx3.mac
;

				rw$ptr	==	140000
				rw$pll	==	140002
				w$fpl	==	140004
				r$fps	==	140006
				r$dat	==	140010
				r$cmd	==	140012
				w$dat	==	140020
				w$cmd	==	140022
				rw$csr	==	160006
				r$sard	==	160010
				r$sawr	==	160012
				w$q22l	==	160200
				w$q22h	==	160202
				w$wcnt	==	160204
				w$sard	==	160210
				w$vec	==	160214
				w$req	==	160216
				
				;.psect	c$code	i, r
				.asect
				. = 0
000000: 000167 000244       		jmp	m$init			; w.$.
;
000004: 000200 000340       		.word	badint,340
000010: 000200 000340       		.word	badint,340
000014: 000200 000340       		.word	badint,340
000020: 000200 000340       		.word	badint,340
000024: 000200 000340       		.word	badint,340
000030: 000200 000340       		.word	badint,340
000034: 000200 000340       		.word	badint,340
;
000040: 177777 177777			.word	177777,177777
000044: 177777 177777			.word	177777,177777
000050: 177777 177777			.word	177777,177777
000054: 177777 177777			.word	177777,177777
;
000060: 000214 000340       		.word	udcint,340
000064: 000220 000340       		.word	dmaint,340
000070: 000224 000340       		.word	clkint,340
;
000074: 177777 177777			.word	177777,177777
000100: 177777 177777			.word	177777,177777
000104: 177777 177777			.word	177777,177777
000110: 177777 177777			.word	177777,177777
000114: 177777 177777			.word	177777,177777
;
000120: 000230 000340       		.word	ipwint,340
000124: 000234 000340       		.word	iprint,340
000130: 000240 000340       		.word	sawint,340
000134: 000244 000340       		.word	secint,340
				. = 140
000140: 032672 032734	     		.word	progress, terminate	; `.:5\5
000144: 032346 032520       		.word	get$host, put$host	; f4P5
;
000150: 177777 177777       		.word	177777,177777		; ....
000154: 177777 177777       		.word	177777,177777		; ....
000160: 177777 177777       		.word	177777,177777		; ....
000164: 177777 177777       		.word	177777,177777		; ....
000170: 177777 177777       		.word	177777,177777		; ....
000174: 177777 177777       		.word	177777,177777		; ....
;
				badint::
000200: 012706 140000       		mov	#140000,sp		; F..@
000204: 012746 000733       		mov	#733,-(sp)		; f.[.
000210: 004767 035116       		call	fatal.error			; w.N:
				udcint::
000214: 000177 077562       		jmp	@100002			; ..r.
;
				dmaint::
000220: 000177 077560       		jmp	@100004			; ..p.
;
				clkint::
000224: 000177 077556       		jmp	@100006			; ..n.
;
				ipwint::
000230: 000177 077554       		jmp	@100010			; ..l.
;
				iprint::
000234: 000177 077552       		jmp	@100012			; ..j.
;
				sawint::
000240: 000177 077550       		jmp	@100014			; ..h.
;
				secint::
000244: 000177 077546       		jmp	@100016			; ..f.
;
				m$init::
000250: 005067 077544       		clr	100020			; 7.d.
000254: 012767 072460 077540		mov	#72460,100022		; w.0u`.
000262: 000167 057724       		jmp	60212			; w.T_
;
				m$main::
000266: 106427 000340       		mtps	#340			; ..`.
000272: 012700 100024       		mov	#100024,r0		; @...
000276: 012701 017766       		mov	#17766,r1		; A.v.
000302: 005020              		clr	(r0)+			; ..
000304: 077102              		sob	r1,302			; B~
000306: 012706 140000       		mov	#140000,sp		; F..@
000312: 012737 000011 140002		mov	#11,@#rw$pll		; _....@
000320: 005037 140004       		clr	@#w$fpl			; ...@
000324: 112737 000000 140022		movb	#0,@#w$cmd		; _....@
000332: 005067 077722       		clr	100260			; 7.R.
000336: 032737 020000 140006		bit	#20000,@#r$fps		; _5. .@
000344: 001422              		beq	412			; ..
000346: 112737 000111 140022		movb	#111,@#w$cmd		; _.I..@
000354: 112737 000040 140020		movb	#40,@#w$dat		; _. ..@
000362: 112737 000001 140022		movb	#1,@#w$cmd		; _....@
000370: 012700 001000       		mov	#1000,r0		; @...
000374: 077001              		sob	r0,374			; .~
000376: 032737 020000 140006		bit	#20000,@#r$fps		; _5. .@
000404: 001002              		bne	412			; ..
000406: 005267 077646       		inc	udc$bug			; 7.&.
000412: 012767 000472 077362		mov	#m$udc,i$udc		; w.:.r~
000420: 012767 000704 077356		mov	#m$dma,i$dma		; w.D.n~
000426: 012767 000712 077352		mov	#m$clk,i$clk		; w.J.j~
000434: 012767 000764 077346		mov	#m$ipw,i$ipw		; w.t.f~
000442: 012767 001020 077342		mov	#m$ipr,i$ipr		; w...b~
000450: 012767 001050 077336		mov	#m$saw,i$saw		; w.(.^~
000456: 012767 001100 077332		mov	#m$sec,i$sec		; w.@.Z~
000464: 000167 043270       		jmp	43760			; w.8F
;
				m$rti::
000470: 000002              		rti				; ..
;
				m$udc::
000472: 005767 077562       		tst	100260			; w.r.
000476: 001405              		beq	512			; ..
000500: 032737 020000 140006		bit	#20000,@#r$fps		; _5. .@
000506: 001401              		beq	512			; ..
000510: 000002              		rti				; ..
;
000512: 113746 140012       		movb	@#r$cmd,-(sp)		; f..@
000516: 142716 000035       		bicb	#35,(sp)		; NE..
000522: 122726 000240       		cmpb	#240,(sp)+		; V% .
000526: 001062              		bne	674			; 2.
000530: 005767 077444       		tst	100200			; w.$.
000534: 003436              		ble	632			; ..
000536: 132737 000030 140012		bitb	#30,@#r$cmd		; _5...@
000544: 001030              		bne	626			; ..
000546: 005367 077426       		dec	100200			; w...
000552: 001427              		beq	632			; ..
000554: 112737 000103 140022		movb	#103,@#w$cmd		; _.C..@
000562: 117737 077276 140020		movb	@100064,@#w$dat		; _.>~.@
000570: 112737 000106 140022		movb	#106,@#w$cmd		; _.F..@
000576: 112737 000001 140020		movb	#1,@#w$dat		; _....@
000604: 112737 000112 140022		movb	#112,@#w$cmd		; _.J..@
000612: 116737 077360 140022		movb	100176,@#w$cmd		; _.p~.@
000620: 005267 077240       		inc	100064			; 7. ~
000624: 000002              		rti				; ..
;
000626: 005467 077346       		neg	100200			; 7.f~
000632: 005267 077376       		inc	100234			; 7.~~
000636: 005767 077166       		tst	100030			; w.v~
000642: 100415              		bmi	676			; ..
000644: 012767 000001 077156		mov	#1,100030		; w...n~
000652: 005767 077150       		tst	100026			; w.h~
000656: 100407              		bmi	676			; ..
000660: 012767 000001 077140		mov	#1,100026		; w...`~
000666: 005767 077334       		tst	100226			; w.\~
000672: 001001              		bne	676			; ..
000674: 000002              		rti				; ..
;
000676: 004067 043112       		jsr	r0,intdis		; 7.JF
000702: 035466 				.word	udcisr

				m$dma::
000704: 005267 077326      		inc	dma.flag
000710: 000002              		rti				; ..
;
				m$clk::
000712: 005267 077322       		inc	100240			; 7.R~
000716: 032767 000360 077256		bit	#360,100202		; w5p..~
000724: 001010              		bne	746			; ..
000726: 005037 140004       		clr	@#w$fpl			; ...@
000732: 013767 140006 077244		mov	@#r$fps,100204		; w..@$~
000740: 016737 077236 140004		mov	100202,@#w$fpl		; _..~.@
000746: 005767 077050       		tst	100022			; w.(~
000752: 001402              		beq	760			; ..
000754: 005367 077042       		dec	100022			; w."~
000760: 004067 043176       		jsr	r0,tick			; 7.~F

				m$ipw::
000764: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
000772: 001007              		bne	1012			; ..
000774: 005737 160010       		tst	@#r$sard		; _..`
001000: 001405              		beq	1014			; ..
001002: 026737 077250 160010		cmp	vector,@#r$sard		; _-(~.`
001010: 001001              		bne	1014			; ..
001012: 000002              		rti				; ..
;
001014: 000167 057172       		jmp	60212			; w.z^
;
				m$ipr::
001020: 005267 077216       		inc	100242			; 7..~
001024: 005767 076774       		tst	100024			; w.|}
001030: 100404              		bmi	1042			; ..
001032: 012767 000001 076764		mov	#1,100024		; w...t}
001040: 000002              		rti				; ..
;
001042: 004067 042746       		jsr	r0,intdis		; 7.fE
001046: 033146              		.word	iprisr
;
				m$saw::
001050: 005267 077170       		inc	saw.flag			; 7.x~
001054: 005037 160210       		clr	@#w$sard		; ...`
001060: 032767 000002 101562		bit	#2,102650		; w5..r.
001066: 001403              		beq	1076			; ..
001070: 016737 077162 160210		mov	vector,@#w$sard		; _.r~.`
001076: 000002              		rti				; ..
;
				m$sec::
001100: 005267 077142       		inc	100246			; 7.b~
001104: 005767 076716       		tst	100026			; w.N}
001110: 100404              		bmi	1122			; ..
001112: 012767 000001 076706		mov	#1,100026		; w...F}
001120: 000002              		rti				; ..
;
001122: 004067 042666       		jsr	r0,intdis		; 7.6E
001126: 035720              		.word	secisr

				;--------------------------------------------------------
;
;	File: main.c
;
;
				;	start( )
				start::
001130: 004567 075744       		jsr	r5,csv$			; 
001134: 012746 101102       		mov	#101102,-(sp)		; stack
001140: 005046              		clr	-(sp)			; priority
001142: 012746 001166       		mov	#main,-(sp)		; entry
001146: 012746 102546       		mov	#102546,-(sp)		; jcb
001152: 004767 043404       		call	$create			; 
001156: 062706 000010       		add	#10,sp			; 
001162: 000167 075726       		jmp	cret$			; 
;
				;	main( )
				main::
001166: 004567 075706       		jsr	r5,csv$			; 
001172: 004767 001124       		call	clear			; 
001176: 004767 001776       		call	init			; 
001202: 004767 025742       		call	setup			; 
001206: 005004              		clr	r4			; 
001210: 000434              		br	1302			; 
;
001212: 010246              		mov	r2,-(sp)		; 
001214: 012746 000620       		mov	#2*work$size,-(sp)	; 
001220: 010446              		mov	r4,-(sp)		; 
001222: 004767 075216       		call	76444			; 
001226: 022626              		cmp	(sp)+,(sp)+		; 
001230: 010046              		mov	r0,-(sp)		; 
001232: 062716 133610       		add	#133610,(sp)		; 
001236: 062716 000620       		add	#620,(sp)		; stack
001242: 012746 000004       		mov	#4,-(sp)		; priority
001246: 012746 001714       		mov	#work,-(sp)		; entry
001252: 010400              		mov	r4,r0			; 
001254: 006300              		asl	r0			; 
001256: 006300              		asl	r0			; 
001260: 006300              		asl	r0			; 
001262: 010046              		mov	r0,-(sp)		; 
001264: 062716 102606       		add	#102606,(sp)		; jcb
001270: 004767 043266       		call	$create			; 
001274: 062706 000012       		add	#12,sp			; 
001300: 005204              		inc	r4			; 
001302: 010446              		mov	r4,-(sp)		; 
001304: 066716 076742       		add	100252,(sp)		; 
001310: 004767 042006       		call	get.ucb			; 
001314: 005726              		tst	(sp)+			; 
001316: 010002              		mov	r0,r2			; 
001320: 001334              		bne	1212			; 

001322: 012746 101722       		mov	#101722,-(sp)		; 
001326: 012746 000003       		mov	#3,-(sp)		; 
001332: 012746 033172       		mov	#poll,-(sp)		; 
001336: 012746 102556       		mov	#102556,-(sp)		; 
001342: 004767 043214       		call	$create			; 
001346: 062706 000010       		add	#10,sp			; 
001352: 012746 102542       		mov	#102542,-(sp)		; 
001356: 012746 000002       		mov	#2,-(sp)		; 
001362: 012746 001610       		mov	#time,-(sp)		; 
001366: 012746 102576       		mov	#102576,-(sp)		; 
001372: 004767 043164       		call	$create			; 
001376: 062706 000010       		add	#10,sp			; 
001402: 012746 102232       		mov	#102232,-(sp)		; 
001406: 012746 000001       		mov	#1,-(sp)		; 
001412: 012746 001534       		mov	#scan,-(sp)		; 
001416: 012746 102566       		mov	#102566,-(sp)		; 
001422: 004767 043134       		call	$create			; 
001426: 062706 000010       		add	#10,sp			; 
001432: 036727 101212 000004		bit	102650,#4		; 
001440: 001412              		beq	1466			; 
001442: 036727 101222 000001		bit	102670,#1		; 
001450: 001406              		beq	1466			; 
001452: 042767 000001 101210		bic	#1,102670		; 
001460: 004777 101176       		call	@102662			; 
001464: 000420              		br	1526			; 
;
001466: 012746 001750       		mov	#1750,-(sp)		; 
001472: 004767 043162       		call	$sleep			; 
001476: 005726              		tst	(sp)+			; 
001500: 005767 076512       		tst	100216			; 
001504: 001410              		beq	1526			; 
001506: 005367 076504       		dec	100216			; 
001512: 001005              		bne	1526			; 
001514: 012746 000011       		mov	#11,-(sp)		; 
001520: 004767 033606       		call	fatal.error		; 
001524: 005726              		tst	(sp)+			; 
001526: 000741              		br	1432			; 
;
001530: 000167 075360       		jmp	cret$			; 
				;--------------------------------------------------------
;
;	File:	scan.c
;
				;	scan ( )
				scan::
001534: 004567 075340       		jsr	r5,csv$			; w.`z
001540: 005004              		clr	r4			; ..
001542: 000407              		br	1562			; ..
;
001544: 010446              		mov	r4,-(sp)		; &.
001546: 066716 076500       		add	100252,(sp)		; Nm@}
001552: 004767 041544       		call	get.ucb			; w.dC
001556: 005726              		tst	(sp)+			; V.
001560: 005204              		inc	r4			; ..
001562: 020427 000004       		cmp	r4,#4			; .!..
001566: 002766              		blt	1544			; v.
001570: 012746 001750       		mov	#1000.,-(sp)		; f.h.
001574: 004767 043060       		call	$sleep			; w.0F
001600: 005726              		tst	(sp)+			; V.
001602: 000756              		br	1540			; n.
;
001604: 000167 075304       		jmp	cret$			; w.Dz
				;--------------------------------------------------------
;
;	File:	time.c	
;
;
;
				;	time( )
				time::
001610: 004567 075264       		jsr	r5,csv$			; w.4z
001614: 005767 076400       		tst	100220			; w..}
001620: 001405              		beq	1634			; ..
001622: 005367 076372       		dec	100220			; w.z|
001626: 001002              		bne	1634			; ..
001630: 004767 014762       		call	sd$tmo			; w.r.
001634: 005767 076362       		tst	100222			; w.r|
001640: 001405              		beq	1654			; ..
001642: 005367 076354       		dec	100222			; w.l|
001646: 001002              		bne	1654			; ..
001650: 004767 015036       		call	mo$tmo			; w...
001654: 005767 076344       		tst	100224			; w.d|
001660: 001405              		beq	1674			; ..
001662: 005367 076336       		dec	100224			; w.^|
001666: 001002              		bne	1674			; ..
001670: 004767 015134       		call	cd$tmo			; w.\.
001674: 012746 001750       		mov	#1000.,-(sp)		; f.h.
001700: 004767 042754       		call	$sleep			; w.lE
001704: 005726              		tst	(sp)+			; V.
001706: 000742              		br	1614			; b.
;
001710: 000167 075200       		jmp	cret$			; w..z
;
				;--------------------------------------------------------
;
;	File:	work.c
;
;
;
				;	work ( ucb )
				work::
001714: 004567 075160       		jsr	r5,csv$			; w.pz
001720: 016504 000004       		mov	4(r5),r4		; D...
001724: 010446              		mov	r4,-(sp)		; while( true )
001726: 062716 000126       		add	#126,(sp)		; NeV.
001732: 004767 042302       		call	$acquire			; w.BD
001736: 005726              		tst	(sp)+			; V.
001740: 016403 000004       		mov	4(r4),r3		; ....
001744: 010364 000136       		mov	r3,136(r4)		; t.^.
001750: 001450              		beq	2072			; (.
001752: 011364 000004       		mov	(r3),4(r4)		; t...
001756: 010446              		mov	r4,-(sp)		; &.
001760: 062716 000126       		add	#126,(sp)		; NeV.
001764: 004767 042344       		call	$release			; w.dD
001770: 005726              		tst	(sp)+			; V.
001772: 036327 000026 100000		bit	26(r3),#100000		; W<....
002000: 001021              		bne	2044			; ..
002002: 016364 000006 000032		mov	6(r3),32(r4)		; t.....
002010: 016364 000010 000034		mov	10(r3),34(r4)		; t.....
002016: 036327 000024 040000		bit	24(r3),#40000		; W<...@
002024: 001404              		beq	2036			; ..
002026: 052764 040000 000030		bis	#40000,30(r4)		; tU.@..
002034: 000403              		br	2044			; ..
;
002036: 042764 040000 000030		bic	#40000,30(r4)		; tE.@..
002044: 010346              		mov	r3,-(sp)		; f.
002046: 004767 053312       		call	$do$rw			; w.JV
002052: 005726              		tst	(sp)+			; V.
002054: 010446              		mov	r4,-(sp)		; &.
002056: 062716 000126       		add	#126,(sp)		; NeV.
002062: 004767 042152       		call	$acquire			; w.jD
002066: 005726              		tst	(sp)+			; V.
002070: 000723              		br	1740			; S.
;
002072: 016402 000002       		mov	2(r4),r2		; ....
002076: 001424              		beq	2150			; ..
002100: 005064 000002       		clr	2(r4)			; 4...
002104: 010446              		mov	r4,-(sp)		; &.
002106: 062716 000126       		add	#126,(sp)		; NeV.
002112: 004767 042216       		call	$release			; w..D
002116: 005726              		tst	(sp)+			; V.
002120: 005702              		tst	r2			; B.
002122: 001411              		beq	2146			; ..
002124: 011265 177770       		mov	(r2),177770(r5)		; 5.x.
002130: 010246              		mov	r2,-(sp)		; &.
002132: 004767 000370       		call	do$mscp			; w.x.
002136: 005726              		tst	(sp)+			; V.
002140: 016502 177770       		mov	177770(r5),r2		; B.x.
002144: 000765              		br	2120			; u.
;
002146: 000406              		br	2164			; ..
;
002150: 010446              		mov	r4,-(sp)		; &.
002152: 062716 000126       		add	#126,(sp)		; NeV.
002156: 004767 042152       		call	$release			; w.jD
002162: 005726              		tst	(sp)+			; V.
002164: 010446              		mov	r4,-(sp)		; &.
002166: 004767 042226       		call	$block			; w..D
002172: 005726              		tst	(sp)+			; V.
002174: 000653              		br	1724			; +.
;
002176: 000167 074712       		jmp	cret$			; w.Jy
				;--------------------------------------------------------
;
;	File:	data.c
;
;
				main$size =	200.
				poll$size =	200.
				scan$size =	100.
				time$size =	100.
				work$size =	200.
				data$size =	18.*512.
				max$programs =	1.
				max$commands =	16.
				max$errors =	4
				max$packets =	max$commands+max$errors



				;.psect	c$data	d, rw
				savepc=.
				. = 100000
				board$okay::
					.blkw	1			; 100000
				i$udc::	.blkw	1
				i$dma::	.blkw	1
				i$clk::	.blkw	1
				i$ipw::	.blkw	1
				i$ipr::	.blkw	1
				i$saw::	.blkw	1
				i$sec::	.blkw	1
				port$error::
					.blkw	1
				stalling::
					.blkw	1
					
				ipr$job::.blkw	1			; list
				sec$job::.blkw	1			; list
				udc$job::.blkw	1			; list
				pd$jobs::.blkw	4			; list
				dma::	.blkw	1			; list
				mem::	.blkw	1			; list
				udc::	.blkw	1			; list
				pkts::	.blkw	1			; list
				tcbs::	.blkw	1			; list
				ucbs::	.blkw	4			; *byte
				rx$sector::
					.blkw	1			; *byte
				id$table::
					.blkb	18.*4.			; byte
				rx$opcode::
					.blkw	1			; word
				rx$number::
					.blkw	1			; word
				fpl::
					.blkw	1			; word
				fps::
					.blkw	1			; word
				reg$7::
					.blkw	1			; word
				reg$8::
					.blkw	1			; word
				reg$9::
					.blkw	1			; word
				pd$mask:
					.blkw	1			; word
				ha$time::
					.blkw	1			; word
				sd$time::
					.blkw	1			; word
				mo$time::
					.blkw	1			; word
				cd$time::
					.blkw	1			; word
				pd$flag::
					.blkw	1			; word
				ha$flag::
					.blkw	1			; word
				sd$flag::
					.blkw	1			; word
				udc$flag::
					.blkw	1			; word
				dma.flag::
					.blkw	1			; word
				clk$flag::
					.blkw	1			; word
				ipr$flag::
					.blkw	1			; word
				saw.flag::
					.blkw	1			; word
				sec$flag::
					.blkw	1			; word
				total$sectors::
					.blkw	1			; word
				unit$base::
					.blkw	1			; word
				credits::
					.blkw	1			; word
				vector::
					.blkw	1			; word
				udc$bug::
					.blkw	1			; word
				main$stack::
					.blkw	main$size		; word
				poll$stack::
					.blkw	poll$size		; word
				scan$stack::
					.blkw	scan$size		; word
				time$stack::
					.blkw	time$size		; word
				purge$flag::
					.blkw	2			; long
				main$jcb::
					.blkw	4			; $jcb
				poll$jcb::
					.blkw	4			; $jcb
				scan$jcb::
					.blkw	4			; $jcb
				time$jcb::
					.blkw	4			; $jcb
				work$jcb::
					.blkw	4*4			; $jcb
				$ccb.flags::
					.blkw	1			; $ccb
				$ccb.state::
					.blkw	1			; $ccb
				$ccb.timeout::
					.blkw	1			; $ccb
				$ccb.type::
					.blkw	1			; $ccb
				$pcb::
					.blkw	8.			; $pcb
				$tcb::
					.blkw	28. * max$packets	; $tcb
				$ucb::
					.blkw	49. * 4.		; $ucb
				$pkt::
					.blkb	66. * max$packets	; $pkt
				cmd.ring::
					.blkw	7.			; $ring
				rsp.ring::
					.blkw	7.			; $ring

				. = 110416
					.blkw	20			; kernel stack
				kstack::				; 110456
					.blkw	4			; null stack
				nstack::				; 110466
				intlev::.blkw	1			; interrupt level
				usersp::.blkw	1			; user stack pointer
				curjob::.blkw	1			; current job pointer
				runjob::.blkw	1			; list of running jobs
				hibjob::.blkw	1			; list of hibernating jobs

				;.psect	c$buff	d, rw
				data::	.blkb	data$size+4
				temp::	.blkb	512.+4.
				work$stack::
					.blkw	work$size*4	
				data$end = .
				;.psect	c$code	i, r

				.=savepc				
				rx$table::
002202: 001401          		.byte	1., 3.
002204: 003405          		.byte	5., 7.
002206: 001011          		.byte	9., 2.
002210: 003004          		.byte	4., 6.			; ..
002212: 005010          		.byte	8., 10.			; ..
002214: 002403          		.byte	3., 5.			; ..
002216: 004407          		.byte	7., 9.			; ..
002220: 002001          		.byte	1., 4.			; ..
002222: 004006          		.byte	6., 8.			; ..
002224: 001012          		.byte	10., 2.			; ..
002226: 003405          		.byte	5., 7.			; ..
002230: 000411          		.byte	9., 1.			; ..
002232: 003003          		.byte	3., 6.			; ..
002234: 005010          		.byte	8., 10.			; ..
002236: 002002          		.byte	2., 4.			; ..
002240: 004407          		.byte	7., 9.			; ..
002242: 001401          		.byte	1., 3.			; ..
002244: 004005          		.byte	5., 8.			; ..
002246: 001012          		.byte	10., 2.			; ..
002250: 003004          		.byte	4., 6.			; ..
002252: 000411          		.byte	9., 1.			; ..
002254: 002403          		.byte	3., 5.			; ..
002256: 005007          		.byte	7., 10.			; ..
002260: 002002          		.byte	2., 4.			; ..
002262: 004006          		.byte	6., 8.			; ..
				..bit0::
002264: 000001          		.word	1.
002266: 000002          		.word	2.
002270: 000004          		.word	4.
002272: 000010          		.word	8.
				..bit1::
002274: 000020          		.word	16.
002276: 000040          		.word	32.
002300: 000100          		.word	64.
002302: 000200          		.word	128.
;
				lcl$prog::
					.ascii	/FORMAT/
002312: 000011          		.word	pf$sta!pf$sdd
002314: 063574          		.word	format
002314: 000001          		.word	1
002320: 000074          		.word	60

				;--------------------------------------------------------
				;
				;	File:	clear.c
				;
				;	clear( )
				clear::
002322: 004567 074552       		jsr	r5,csv$			; 
002326: 012767 000074 100316		mov	#74,102652		; 
002334: 012767 100000 100304		mov	#100000,102646		; 
002342: 012767 000423 100304		mov	#423,102654		; 
002350: 012767 000074 100314		mov	#74,102672		; 
002356: 004767 010150       		call	init$udc		
002362: 012746 000006       		mov	#6,-(sp)		; 
002366: 016746 135414       		mov	r$fps,-(sp)		; 
002372: 042716 140377       		bic	#140377,(sp)		; 
002376: 004767 074002       		call	76404			; 
002402: 022626              		cmp	(sp)+,(sp)+		; 
002404: 010067 075642       		mov	r0,100252		; 
002410: 005767 075644       		tst	100260			; 
002414: 001403              		beq	2424			; 
002416: 042767 177603 075626		bic	#177603,100252		; 
002424: 012767 000017 075622		mov	#17,100254		; 
002432: 012767 000075 075556		mov	#75,100216		; 
002440: 012703 105646       		mov	#105646,r3		; 
002444: 012702 102676       		mov	#102676,r2		; 
002450: 012704 000024       		mov	#24,r4			; 
002454: 000420              		br	2516			; 
;
002456: 010346              		mov	r3,-(sp)		; 
002460: 012746 100050       		mov	#100050,-(sp)		; 
002464: 004767 041120       		call	$enq.head		
002470: 022626              		cmp	(sp)+,(sp)+		; 
002472: 010246              		mov	r2,-(sp)		; 
002474: 012746 100052       		mov	#100052,-(sp)		; 
002500: 004767 041104       		call	$enq.head		
002504: 022626              		cmp	(sp)+,(sp)+		; 
002506: 062703 000102       		add	#102,r3			; 
002512: 062702 000070       		add	#70,r2			; 
002516: 005304              		dec	r4			; 
002520: 002356              		bge	2456			; 
002522: 000167 074366       		jmp	cret$			; 
				;--------------------------------------------------------
				;
				;	File:	mscp.c
				;
				;	do$mscp( pkt )
				;
				do$mscp::
002526: 004567 074346   		jsr	r5,csv$			; w.fx
002532: 016504 000004   		mov	4(r5),r4		; D...
002536: 116400 000016   		movb	16(r4),r0		; ....
002542: 000476          		br	2740			; >.
;
				op$abo:
002544: 010446          		mov	r4,-(sp)		; &.
002546: 004767 042266   		call	do$abo			; w.6D
002552: 005726          		tst	(sp)+			; V.
002554: 000511          		br	3000			; I.
;
				op$avl:
002556: 010446          		mov	r4,-(sp)		; &.
002560: 004767 043046   		call	do$avl			; w.&F
002564: 005726          		tst	(sp)+			; V.
002566: 000504          		br	3000			; D.
;
				op$new:
				op$fmt:
002570: 010446          		mov	r4,-(sp)		; &.
002572: 004767 045462   		call	do$fmt			; w.2K
002576: 005726          		tst	(sp)+			; V.
002600: 000477          		br	3000			; ?.
;
				op$gcs:
002602: 010446          		mov	r4,-(sp)		; &.
002604: 004767 047152   		call	do$gcs			; w.jN
002610: 005726          		tst	(sp)+			; V.
002612: 000472          		br	3000			; :.
;
				op$gus:
002614: 010446          		mov	r4,-(sp)		; &.
002616: 004767 047552   		call	do$gus			; w.jO
002622: 005726          		tst	(sp)+			; V.
002624: 000465          		br	3000			; 5.
;
				op$onl:
002626: 010446          		mov	r4,-(sp)		; &.
002630: 004767 050142   		call	do$onl			; w.bP
002634: 005726          		tst	(sp)+			; V.
002636: 000460          		br	3000			; 0.
;
				op$scc:
002640: 010446          		mov	r4,-(sp)		; &.
002642: 004767 053654   		call	do$scc			; w.,W
002646: 005726          		tst	(sp)+			; V.
002650: 000453          		br	3000			; +.
;
				op$suc:
002652: 010446          		mov	r4,-(sp)		; &.
002654: 004767 054432   		call	do$suc			; w..Y
002660: 005726          		tst	(sp)+			; V.
002662: 000446          		br	3000			; &.
;
				op$acc:
				op$ers:
				op$cmd:
				op$rd:
				op$wr:
002664: 010446          		mov	r4,-(sp)		; &.
002666: 004767 051634   		call	do$rw			; w..S
002672: 005726          		tst	(sp)+			; V.
002674: 000441          		br	3000			; !.
;
				op$dab:
				op$ccd:
				op$flu:
002676: 152764 000200 000016		bisb	#200,16(r4)		; tU....
002704: 105064 000017       		clrb	17(r4)			; 4...
002710: 005064 000020       		clr	20(r4)			; 4...
002714: 000420              		br	2756			; ..
;
				op$default:
002716: 112764 000200 000016		movb	#200,16(r4)		; t.....
002724: 105064 000017       		clrb	17(r4)			; 4...
002730: 012764 004001 000020		mov	#4001,20(r4)		; t.....
002736: 000407              		br	2756			; ..
;
002740: 005300              		dec	r0			; @.
002742: 020027 000056       		cmp	r0,#56			; . ..
002746: 101363              		bhi	2716			; s.
002750: 006300              		asl	r0			; @.
002752: 000170 077132       		jmp	@swmscp(r0)		; x.Z~
;
002756: 012764 000014 000002		mov	#14,2(r4)		; t.....
002764: 105064 000004       		clrb	4(r4)			; 4...
002770: 010446              		mov	r4,-(sp)		; &.
002772: 004767 030520       		call	put.packet			; w.P1
002776: 005726              		tst	(sp)+			; V.
003000: 000167 074110       		jmp	cret$			; w.Hx
				;--------------------------------------------------------
				;
				;	File:	dup.c
				;
				;
				;	do$dup( pkt )
				;
				do$dup::
003004: 004567 074070   		jsr	r5,csv$			; w.8x
003010: 016504 000004   		mov	4(r5),r4		; D...
003014: 116400 000016   		movb	16(r4),r0		; ....
003020: 000442          		br	3126			; ".
;
				op$ap:
003022: 010446          		mov	r4,-(sp)		; &.
003024: 004767 042504   		call	do$ap			; w.DE
003030: 005726          		tst	(sp)+			; V.
003032: 000460          		br	3174			; 0.
;
				op$elp:
003034: 010446          		mov	r4,-(sp)		; &.
003036: 004767 044320   		call	do$elp			; w.PH
003042: 005726          		tst	(sp)+			; V.
003044: 000453          		br	3174			; +.
;
				op$esp:
003046: 010446          		mov	r4,-(sp)		; &.
003050: 004767 044612   		call	do$esp			; w..I
003054: 005726          		tst	(sp)+			; V.
003056: 000446          		br	3174			; &.
;
				op$gds:
003060: 010446          		mov	r4,-(sp)		; &.
003062: 004767 047146   		call	do$gds			; w.fN
003066: 005726          		tst	(sp)+			; V.
003070: 000441          		br	3174			; !.
;
				op$rcv:
003072: 010446          		mov	r4,-(sp)		; &.
003074: 004767 051034   		call	do$rcv			; w..R
003100: 005726          		tst	(sp)+			; V.
003102: 000434          		br	3174			; ..
;
				op$snd:
003104: 010446          		mov	r4,-(sp)		; &.
003106: 004767 053630   		call	do$snd			; w..W
003112: 005726          		tst	(sp)+			; V.
003114: 000427          		br	3174			; ..
;
				dup$default:
003116: 012764 004001 000020		mov	#4001,20(r4)		; t.....
003124: 000407              		br	3144			; ..
;
003126: 005300              		dec	r0			; @.
003130: 020027 000005       		cmp	r0,#5			; . ..
003134: 101370              		bhi	3116			; x.
003136: 006300              		asl	r0			; @.
003140: 000170 077270       		jmp	@swdup(r0)		; x.8~
;
003144: 112764 000200 000016		movb	#200,16(r4)		; t.....
003152: 012764 000014 000002		mov	#14,2(r4)		; t.....
003160: 105064 000004       		clrb	4(r4)			; 4...
003164: 010446              		mov	r4,-(sp)		; &.
003166: 004767 030324       		call	put.packet			; w.T0
003172: 005726              		tst	(sp)+			; V.
003174: 000167 073714       		jmp	cret$			; w.Lw
;
				;--------------------------------------------------------
				;
				;	File:	uqssp.mac
				;
				init::
003200: 010246              		mov	r2,-(sp)		; 
003202: 010346              		mov	r3,-(sp)		; 
003204: 010446              		mov	r4,-(sp)		; 
003206: 012746 100044       		mov	#mem,-(sp)		; 
003212: 004767 041022       		call	$acquire		
003216: 042767 000002 077424		bic	#2,$ccb.state		; $ccb.state
003224: 052767 000001 077416		bis	#1,$ccb.state		; $ccb.state
003232: 005767 075006       		tst	saw.flag		; 
003236: 001004              		bne	3250			; 
003240: 012737 005500 160210		mov	#5500,@#w$sard		; 
003246: 000771              		br	3232			; 
;
003250: 005367 074770       		dec	saw.flag		; w.xy
003254: 013704 160012       		mov	@#r$sawr,r4		; 
003260: 100364              		bpl	3232			; 
003262: 032704 040000       		bit	#40000,r4		; 
003266: 001410              		beq	3310			; 
003270: 010437 160210       		mov	r4,@#w$sard		; 
003274: 005767 074744       		tst	saw.flag		; w.dy
003300: 001774              		beq	3272			; 
003302: 013704 160012       		mov	@#r$sawr,r4		; 
003306: 000770              		br	3270			; 
;
003310: 010400              		mov	r4,r0			; 
003312: 042700 177600       		bic	#177600,r0		; 
003316: 006300              		asl	r0			; 
003320: 006300              		asl	r0			; 
003322: 010067 074730       		mov	r0,vector		; 
003326: 010037 160214       		mov	r0,@#w$vec		; 
003332: 010400              		mov	r4,r0			; 
003334: 000300              		swab	r0			; 
003336: 006200              		asr	r0			; 
003340: 006200              		asr	r0			; 
003342: 006200              		asr	r0			; 
003344: 012701 000001       		mov	#1,r1			; 
003350: 042700 177770       		bic	#177770,r0		; 
003354: 001402              		beq	3362			; 
003356: 006301              		asl	r1			; 
003360: 077002              		sob	r0,3356			; 
003362: 010167 104740       		mov	r1,110326		; cmd.ring->size
003366: 005301              		dec	r1			; 
003370: 006301              		asl	r1			; 
003372: 006301              		asl	r1			; 
003374: 005101              		com	r1			; 
003376: 010167 104726       		mov	r1,110330		; cmd.ring->mask
003402: 010400              		mov	r4,r0			; 
003404: 000300              		swab	r0			; 
003406: 012701 000001       		mov	#1,r1			; 
003412: 042700 177770       		bic	#177770,r0		; 
003416: 001402              		beq	3424			; 
003420: 006301              		asl	r1			; 
003422: 077002              		sob	r0,3420			; 
003424: 010167 104714       		mov	r1,110344		; rsp.ring->size
003430: 005301              		dec	r1			; 
003432: 006301              		asl	r1			; 
003434: 006301              		asl	r1			; 
003436: 005101              		com	r1			; 
003440: 010167 104702       		mov	r1,110346		; rsp.ring->mask
003444: 012716 100046       		mov	#udc,(sp)		; 
003450: 004767 040564       		call	$acquire		; 
003454: 012716 114600       		mov	#114600,(sp)		; 
003460: 012746 112600       		mov	#112600,-(sp)		; 
003464: 004767 055162       		call	t$port			; 
003470: 005726              		tst	(sp)+			; 
003472: 005700              		tst	r0			; 
003474: 001403              		beq	3504			; 
003476: 010016              		mov	r0,(sp)			; 
003500: 004767 031626       		call	fatal.error		; 
003504: 004767 007022       		call	init$udc		; 
003510: 012716 100046       		mov	#udc,(sp)		; 
003514: 004767 040614       		call	$release		; 
003520: 012700 010000       		mov	#10000,r0		; 
003524: 010401              		mov	r4,r1			; 
003526: 000301              		swab	r1			; 
003530: 150100              		bisb	r1,r0			; 
003532: 010037 160210       		mov	r0,@#w$sard		; 
003536: 004767 000576       		call	poke.host		; 
003542: 013703 160012       		mov	@#r$sawr,r3		; 
003546: 012700 020000       		mov	#20000,r0		; 
003552: 150400              		bisb	r4,r0			; 
003554: 010037 160210       		mov	r0,@#w$sard		; 
003560: 004767 000554       		call	poke.host		; 
003564: 013702 160012       		mov	@#r$sawr,r2		; 
003570: 032702 100000       		bit	#100000,r2		; 
003574: 001423              		beq	3644			; 
003576: 005067 074440       		clr	100242			; 
003602: 005037 160210       		clr	@#w$sard		; 
003606: 005767 074432       		tst	saw.flag		;
003612: 001775              		beq	3606			; 
003614: 005367 074424       		dec	saw.flag		;
003620: 005737 160012       		tst	@#r$sawr		; 
003624: 001404              		beq	3636			; 
003626: 012716 000025       		mov	#25,(sp)		; 
003632: 004767 031474       		call	fatal.error		;
003636: 005767 074400       		tst	100242			; ipr_flag
003642: 001775              		beq	3636			; 
003644: 010301              		mov	r3,r1			; 
003646: 042701 000001       		bic	#1,r1			; 
003652: 010200              		mov	r2,r0			; 
003654: 042700 100000       		bic	#100000,r0		; ringbase
003660: 010067 104450       		mov	r0,110334		; rsp.ring->base
003664: 010167 104446       		mov	r1,110336		; rsp.ring->base+2
003670: 010067 104422       		mov	r0,110316		; cmd.ring->base
003674: 010167 104420       		mov	r1,110320		; cmd.ring->base+2
003700: 016702 104440       		mov	110344,r2		; rsp.ring->size
003704: 006302              		asl	r2			; 
003706: 006302              		asl	r2			; *4
003710: 060267 104404       		add	r2,110320		; cmd.ring->base += r2
003714: 005567 104376       		adc	110316			; 
003720: 162701 000002       		sub	#2,r1			; 
003724: 005600              		sbc	r0			; 
003726: 010067 104406       		mov	r0,110340		; rsp.ring->flag
003732: 010167 104404       		mov	r1,110342		; rsp.ring->flag+2
003736: 162701 000002       		sub	#2,r1			; 
003742: 005600              		sbc	r0			; 
003744: 010067 104352       		mov	r0,110322		; cmd.ring->flag
003750: 010167 104350       		mov	r1,110324		; cmd.ring->flag+2
003754: 016702 104364       		mov	110344,r2		; cmd.ring->size
003760: 066702 104342       		add	110326,r2		; +rsp.ring->size
003764: 005202              		inc	r2			; 
003766: 032703 000001       		bit	#1,r3			; PI flag?
003772: 001414              		beq	4024			; 
003774: 162701 000002       		sub	#2,r1			; 
004000: 005600              		sbc	r0			; 
004002: 010067 076534       		mov	r0,102542		; 
004006: 010167 076532       		mov	r1,102544		; 
004012: 005202              		inc	r2			; 
004014: 162701 000002       		sub	#2,r1			; 
004020: 005600              		sbc	r0			; 
004022: 000404              		br	4034			; 
;
004024: 005067 076512       		clr	102542			; 
004030: 005067 076510       		clr	102544			; 
004034: 010216              		mov	r2,(sp)			; 
004036: 010146              		mov	r1,-(sp)		; 
004040: 010046              		mov	r0,-(sp)		; 
004042: 004767 000132       		call	test.memory		; erase host memory
004046: 022626              		cmp	(sp)+,(sp)+		; 
004050: 005067 104256       		clr	110332			; rsp.ring->index = 0
004054: 005067 104270       		clr	110350			; cmd.ring->index = 0
004060: 012737 040464 160210		mov	#40464,@#w$sard		; 
004066: 004767 000246       		call	poke.host		; write_sa
004072: 013701 160012       		mov	@#r$sawr,r1		; 
004076: 032701 000001       		bit	#1,r1			; 
004102: 001773              		beq	4072			; 
004104: 032701 000002       		bit	#2,r1			; 
004110: 001411              		beq	4134			; 
004112: 005767 073702       		tst	100020			; 
004116: 001406              		beq	4134			; 
004120: 016716 073674       		mov	100020,(sp)		; 
004124: 004767 047616       		call	do.plf			; 
004130: 005067 073664       		clr	100020			; 
004134: 042767 000001 076506		bic	#1,102650		; ccb.state
004142: 052767 000002 076500		bis	#2,102650		; ccb.state
004150: 012716 100044       		mov	#mem,(sp)		; 
004154: 004767 040154       		call	$release		
004160: 016737 074072 160210		mov	vector,@#w$sard		; 
004166: 005726              		tst	(sp)+			; 
004170: 012604              		mov	(sp)+,r4		; 
004172: 012603              		mov	(sp)+,r3		; 
004174: 012602              		mov	(sp)+,r2		; 
004176: 000207              		return				; 
;
				test.memory::
004200: 012700 110600       		mov	#data,r0		; 
004204: 016601 000006       		mov	6(sp),r1		; 
004210: 005020              		clr	(r0)+			; 
004212: 005020              		clr	(r0)+			; 
004214: 077103              		sob	r1,4210			; 
004216: 012746 100042       		mov	#dma,-(sp)		; 
004222: 004767 040012       		call	$acquire		
004226: 012737 000022 160006		mov	#22,@#rw$csr		; 
004234: 012737 110600 140000		mov	#data,@#140000		; 
004242: 016637 000006 160200		mov	6(sp),@#w$q22l		; 
004250: 016637 000004 160202		mov	4(sp),@#w$q22h		; 
004256: 016600 000010       		mov	10(sp),r0		; 
004262: 006300              		asl	r0			; 
004264: 010037 160204       		mov	r0,@#w$wcnt		; 
004270: 005237 160006       		inc	@#rw$csr		; 
004274: 032737 000001 160006		bit	#1,@#rw$csr		; 
004302: 001374              		bne	4274			; 
004304: 032737 000300 160006		bit	#300,@#rw$csr		; 
004312: 001404              		beq	4324			; 
004314: 012716 000007       		mov	#7,(sp)			; 
004320: 004767 031006       		call	fatal.error		
004324: 012716 100042       		mov	#dma,(sp)		; 
004330: 004767 040000       		call	$release		
004334: 005726              		tst	(sp)+			; 
004336: 000207              		return				; 
				poke.host::
004340: 032704 000200       		bit	#200,r4			; 
004344: 001405              		beq	4360			; 
004346: 005767 073704       		tst	vector			; 
004352: 001402              		beq	4360			; 
004354: 005037 160216       		clr	@#w$req			; 
004360: 005767 073660       		tst	saw.flag		
004364: 001775              		beq	4360			; 
004366: 005367 073652       		dec	saw.flag		
004372: 000207              		return				; 
				;--------------------------------------------------------
				;
				;	File:	disk.c
				;
				;	word rd$cmd( tcb )
				rd$cmd::
004374: 004567 072500       		jsr	r5,csv$			; w.@u
004400: 016504 000004       		mov	4(r5),r4		; D...
004404: 005003              		clr	r3			; ..
004406: 016402 000002       		mov	2(r4),r2		; ....
004412: 036427 000024 000040		bit	24(r4),#40		; .=.. .
004420: 001466              		beq	4576			; 6.
004422: 166264 000010 000010		sub	10(r2),10(r4)		; 4l....
004430: 005664 000006       		sbc	6(r4)			; 4...
004434: 166264 000006 000006		sub	6(r2),6(r4)		; 4l....
004442: 012746 100044       		mov	#mem,-(sp)		; f.$.
004446: 004767 037566       		call	$acquire			; w.v?
004452: 005726              		tst	(sp)+			; V.
004454: 012746 110600       		mov	#data,-(sp)		; f...
004460: 016400 000010       		mov	10(r4),r0		; ....
004464: 010046              		mov	r0,-(sp)		; &.
004466: 010446              		mov	r4,-(sp)		; &.
004470: 004767 002724       		call	rd$rct			; w.T.
004474: 062706 000006       		add	#6,sp			; Fe..
004500: 010003              		mov	r0,r3			; ..
004502: 001134              		bne	4774			; \.
004504: 012746 100042       		mov	#dma,-(sp)		; f.".
004510: 004767 037524       		call	$acquire			; w.T?
004514: 005726              		tst	(sp)+			; V.
004516: 016467 000004 103640		mov	4(r4),110364		; 7... .
004524: 012746 001000       		mov	#1000,-(sp)		; f...
004530: 012746 110600       		mov	#data,-(sp)		; f...
004534: 016446 000020       		mov	20(r4),-(sp)		; &...
004540: 016446 000016       		mov	16(r4),-(sp)		; &...
004544: 004767 030050       		call	put.buffer			; w.(0
004550: 062706 000010       		add	#10,sp			; Fe..
004554: 010064 000060       		mov	r0,60(r4)		; 4.0.
004560: 001405              		beq	4574			; ..
004562: 010446              		mov	r4,-(sp)		; &.
004564: 004767 005272       		call	st$err			; w.:.
004570: 005726              		tst	(sp)+			; V.
004572: 010003              		mov	r0,r3			; ..
004574: 000472              		br	4762			; :.
;
004576: 066264 000046 000010		add	46(r2),10(r4)		; 4l&...
004604: 005564 000006       		adc	6(r4)			; t...
004610: 066264 000044 000006		add	44(r2),6(r4)		; 4l$...
004616: 036227 000030 000004		bit	30(r2),#4		; .<....
004624: 001404              		beq	4636			; ..
004626: 010446              		mov	r4,-(sp)		; &.
004630: 004767 036276       		call	calc.pbn			; w.><
004634: 005726              		tst	(sp)+			; V.
004636: 012746 100044       		mov	#mem,-(sp)		; f.$.
004642: 004767 037372       		call	$acquire			; w.z>
004646: 005726              		tst	(sp)+			; V.
004650: 016401 000014       		mov	14(r4),r1		; ....
004654: 016400 000012       		mov	12(r4),r0		; ....
004660: 162701 000001       		sub	#1,r1			; Ae..
004664: 005600              		sbc	r0			; ..
004666: 002434              		blt	4760			; ..
004670: 026427 000014 022000		cmp	14(r4),#22000		; .-...$
004676: 101006              		bhi	4714			; ..
004700: 005764 000012       		tst	12(r4)			; t...
004704: 001003              		bne	4714			; ..
004706: 016446 000014       		mov	14(r4),-(sp)		; &...
004712: 000402              		br	4720			; ..
;
004714: 012746 022000       		mov	#22000,-(sp)		; f..$
004720: 012746 110600       		mov	#data,-(sp)		; f...
004724: 010446              		mov	r4,-(sp)		; &.
004726: 004767 003372       		call	fill$tcb			; w.z.
004732: 062706 000006       		add	#6,sp			; Fe..
004736: 012746 000001       		mov	#1,-(sp)		; f...
004742: 010446              		mov	r4,-(sp)		; &.
004744: 004767 001150       		call	rd$seg			; w.h.
004750: 022626              		cmp	(sp)+,(sp)+		; .%
004752: 010003              		mov	r0,r3			; ..
004754: 001007              		bne	4774			; ..
004756: 000734              		br	4650			; \.
;
004760: 000405              		br	4774			; ..
;
004762: 012746 100042       		mov	#dma,-(sp)		; f.".
004766: 004767 037342       		call	$release			; w.b>
004772: 005726              		tst	(sp)+			; V.
004774: 012746 100044       		mov	#mem,-(sp)		; f.$.
005000: 004767 037330       		call	$release			; w.X>
005004: 005726              		tst	(sp)+			; V.
005006: 010300              		mov	r3,r0			; @.
005010: 000167 072100       		jmp	cret$			; w.@t

				;	wr$cmd( tcb )
				wr$cmd::
005014: 004567 072060       		jsr	r5,csv$			; 
005020: 016504 000004       		mov	4(r5),r4		; TCB
005024: 005003              		clr	r3			; error
005026: 016402 000002       		mov	2(r4),r2		; ucb
005032: 066264 000046 000010		add	46(r2),10(r4)		; TCB.block += UCB.lbnbase
005040: 005564 000006       		adc	6(r4)			; 
005044: 066264 000044 000006		add	44(r2),6(r4)		; 
005052: 036227 000030 000004		bit	30(r2),#4		; UCB-state & us$rd
005060: 001404              		beq	5072			; 
005062: 010446              		mov	r4,-(sp)		; 
005064: 004767 036042       		call	calc.pbn		;
005070: 005726              		tst	(sp)+			;
005072: 012746 100044       		mov	#mem,-(sp)		; f.$.
005076: 004767 037136       		call	$acquire			; w.^>
005102: 005726              		tst	(sp)+			; V.
005104: 036427 000024 000020		bit	24(r4),#20		; if(TCB.type & tt$rfq)
005112: 001004              		bne	5124			; ..
005114: 010446              		mov	r4,-(sp)		; &.
005116: 004767 005302       		call	zero			; w.B.
005122: 005726              		tst	(sp)+			; V.
005124: 016401 000014       		mov	14(r4),r1		; ....
005130: 016400 000012       		mov	12(r4),r0		; ....
005134: 162701 000001       		sub	#1,r1			; Ae..
005140: 005600              		sbc	r0			; ..
005142: 002434              		blt	5234			; ..
005144: 026427 000014 022000		cmp	14(r4),#22000		; .-...$
005152: 101006              		bhi	5170			; ..
005154: 005764 000012       		tst	12(r4)			; t...
005160: 001003              		bne	5170			; ..
005162: 016446 000014       		mov	14(r4),-(sp)		; &...
005166: 000402              		br	5174			; ..
;
005170: 012746 022000       		mov	#22000,-(sp)		; f..$
005174: 012746 110600       		mov	#data,-(sp)		; f...
005200: 010446              		mov	r4,-(sp)		; &.
005202: 004767 003116       		call	fill$tcb			; w.N.
005206: 062706 000006       		add	#6,sp			; Fe..
005212: 012746 000002       		mov	#2,-(sp)		; f...
005216: 010446              		mov	r4,-(sp)		; &.
005220: 004767 000674       		call	rd$seg			; w.<.
005224: 022626              		cmp	(sp)+,(sp)+		; .%
005226: 010003              		mov	r0,r3			; ..
005230: 001001              		bne	5234			; ..
005232: 000734              		br	5124			; \.
;
005234: 012746 100044       		mov	#mem,-(sp)		; f.$.
005240: 004767 037070       		call	$release			; w.8>
005244: 005726              		tst	(sp)+			; V.
005246: 010300              		mov	r3,r0			; @.
005250: 000167 071640       		jmp	cret$			; w. s
;
				;	word cmd$cmd( tcb )
				cmd$cmd::
005254: 004567 071620       		jsr	r5,csv$			; w..s
005260: 162706 000010       		sub	#10,sp			; word i, j, k, error
005264: 016504 000004       		mov	4(r5),r4		; ucb = TCB.ucb
005270: 005065 177762       		clr	177762(r5)		; error = st$suc
005274: 016465 000002 177760		mov	2(r4),177760(r5)	; 5...p.
005302: 036427 000024 000040		bit	24(r4),#40		; if(TCB.type && tt$rct)
005310: 001403              		beq	5320			; ..
005312: 005000              		clr	r0			; ..
005314: 000167 000574       		jmp	6114			; w.|.
;
005320: 016500 177760       		mov	177760(r5),r0		; TCB.block += UCB.lbnbase
005324: 066064 000046 000010		add	46(r0),10(r4)		; 4l&...
005332: 005564 000006       		adc	6(r4)			; t...
005336: 066064 000044 000006		add	44(r0),6(r4)		; 4l$...
005344: 016500 177760       		mov	177760(r5),r0		; @.p.
005350: 036027 000030 000004		bit	30(r0),#4		; .<....
005356: 001404              		beq	5370			; ..
005360: 010446              		mov	r4,-(sp)		; &.
005362: 004767 035544       		call	calc.pbn			; w.d;
005366: 005726              		tst	(sp)+			; V.
005370: 012746 100044       		mov	#mem,-(sp)		; f.$.
005374: 004767 036640       		call	$acquire			; w. =
005400: 005726              		tst	(sp)+			; V.
005402: 016401 000014       		mov	14(r4),r1		; ....
005406: 016400 000012       		mov	12(r4),r0		; ....
005412: 162701 000001       		sub	#1,r1			; Ae..
005416: 005600              		sbc	r0			; ..
005420: 002002              		bge	5426			; ..
005422: 000167 000434       		jmp	6062			; w...
;
005426: 016500 177760       		mov	177760(r5),r0		; @.p.
005432: 036027 000030 000010		bit	30(r0),#10		; .<....
005440: 001403              		beq	5450			; ..
005442: 012700 001000       		mov	#1000,r0		; @...
005446: 000402              		br	5454			; ..
;
005450: 012700 014000       		mov	#14000,r0		; @...
005454: 010065 177770       		mov	r0,177770(r5)		; 5.x.
005460: 016501 177770       		mov	177770(r5),r1		; A.x.
005464: 006700              		sxt	r0			; @.
005466: 166401 000014       		sub	14(r4),r1		; .m..
005472: 005600              		sbc	r0			; ..
005474: 166400 000012       		sub	12(r4),r0		; .m..
005500: 162701 000001       		sub	#1,r1			; Ae..
005504: 005600              		sbc	r0			; ..
005506: 002003              		bge	5516			; ..
005510: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
005514: 000403              		br	5524			; ..
;
005516: 016400 000014       		mov	14(r4),r0		; ....
005522: 010046              		mov	r0,-(sp)		; &.
005524: 012746 110600       		mov	#data,-(sp)		; f...
005530: 010446              		mov	r4,-(sp)		; &.
005532: 004767 002566       		call	fill$tcb			; w.v.
005536: 062706 000006       		add	#6,sp			; Fe..
005542: 012746 000001       		mov	#1,-(sp)		; f...
005546: 010446              		mov	r4,-(sp)		; &.
005550: 004767 000344       		call	rd$seg			; w.d.
005554: 022626              		cmp	(sp)+,(sp)+		; .%
005556: 010065 177762       		mov	r0,177762(r5)		; 5.r.
005562: 001145              		bne	6076			; e.
005564: 005065 177770       		clr	177770(r5)		; 5.x.
005570: 000526              		br	6046			; V.
;
005572: 016400 000042       		mov	42(r4),r0		; ..".
005576: 166500 177770       		sub	177770(r5),r0		; @mx.
005602: 010065 177764       		mov	r0,177764(r5)		; 5.t.
005606: 026527 177764 001000		cmp	177764(r5),#1000	; W-t...
005614: 003403              		ble	5624			; ..
005616: 012765 001000 177764		mov	#1000,177764(r5)	; u...t.
005624: 012746 100042       		mov	#dma,-(sp)		; f.".
005630: 004767 036404       		call	$acquire			; w..=
005634: 005726              		tst	(sp)+			; V.
005636: 016467 000004 102520		mov	4(r4),110364		; 7...P.
005644: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
005650: 012746 132604       		mov	#132604,-(sp)		; f..5
005654: 016446 000020       		mov	20(r4),-(sp)		; &...
005660: 016446 000016       		mov	16(r4),-(sp)		; &...
005664: 004767 026720       		call	get.buffer			; w.P-
005670: 062706 000010       		add	#10,sp			; Fe..
005674: 010064 000060       		mov	r0,60(r4)		; 4.0.
005700: 001407              		beq	5720			; ..
005702: 010446              		mov	r4,-(sp)		; &.
005704: 004767 004152       		call	st$err			; w.j.
005710: 005726              		tst	(sp)+			; V.
005712: 010065 177762       		mov	r0,177762(r5)		; 5.r.
005716: 000462              		br	6064			; 2.
;
005720: 012746 100042       		mov	#dma,-(sp)		; f.".
005724: 004767 036404       		call	$release			; w..=
005730: 005726              		tst	(sp)+			; V.
005732: 066564 177764 000020		add	177764(r5),20(r4)	; tmt...
005740: 005564 000016       		adc	16(r4)			; t...
005744: 012703 110600       		mov	#data,r3		; C...
005750: 066503 177770       		add	177770(r5),r3		; Cmx.
005754: 012702 132604       		mov	#132604,r2		; B..5
005760: 016500 177764       		mov	177764(r5),r0		; @.t.
005764: 000241              		clc				; !.
005766: 006000              		ror	r0			; ..
005770: 010065 177766       		mov	r0,177766(r5)		; 5.v.
005774: 000416              		br	6032			; ..
;
005776: 022322              		cmp	(r3)+,(r2)+		; R$
006000: 001414              		beq	6032			; ..
006002: 016400 000042       		mov	42(r4),r0		; ..".
006006: 166500 177770       		sub	177770(r5),r0		; @mx.
006012: 060064 000014       		add	r0,14(r4)		; 4`..
006016: 005564 000012       		adc	12(r4)			; t...
006022: 012765 000007 177762		mov	#7,177762(r5)		; u...r.
006030: 000422              		br	6076			; ..
;
006032: 005365 177766       		dec	177766(r5)		; u.v.
006036: 002357              		bge	5776			; o.
006040: 062765 001000 177770		add	#1000,177770(r5)	; ue..x.
006046: 026564 177770 000042		cmp	177770(r5),42(r4)	; t-x.".
006054: 002646              		blt	5572			; &.
006056: 000167 177320       		jmp	5402			; w.P~
;
006062: 000405              		br	6076			; ..
;
006064: 012746 100042       		mov	#dma,-(sp)		; f.".
006070: 004767 036240       		call	$release			; w. <
006074: 005726              		tst	(sp)+			; V.
006076: 012746 100044       		mov	#mem,-(sp)		; f.$.
006102: 004767 036226       		call	$release			; w..<
006106: 005726              		tst	(sp)+			; V.
006110: 016500 177762       		mov	177762(r5),r0		; @.r.
006114: 000167 070774       		jmp	cret$			; w.|q
;
				;	word rd$seg( tcb )	
				rd$seg::
006120: 004567 070754       		jsr	r5,csv$			; w.lq
006124: 005746              		tst	-(sp)			; f.
006126: 016504 000004       		mov	4(r5),r4		; D...
006132: 016403 000002       		mov	2(r4),r3		; ....
006136: 005764 000036       		tst	36(r4)			; t...
006142: 003525              		ble	6416			; U.
006144: 026527 000006 000001		cmp	6(r5),#1		; W-....
006152: 001005              		bne	6166			; ..
006154: 010446              		mov	r4,-(sp)		; &.
006156: 004767 030666       		call	read			; w.61
006162: 005726              		tst	(sp)+			; V.
006164: 000404              		br	6176			; ..
;
006166: 010446              		mov	r4,-(sp)		; &.
006170: 004767 030704       		call	write			; w.D1
006174: 005726              		tst	(sp)+			; V.
006176: 010065 177770       		mov	r0,177770(r5)		; 5.x.
006202: 001007              		bne	6222			; ..
006204: 005764 000056       		tst	56(r4)			; t...
006210: 001404              		beq	6222			; ..
006212: 010446              		mov	r4,-(sp)		; &.
006214: 004767 003642       		call	st$err			; w.".
006220: 005726              		tst	(sp)+			; V.
006222: 005764 000040       		tst	40(r4)			; t. .
006226: 003406              		ble	6244			; ..
006230: 016446 000040       		mov	40(r4),-(sp)		; &. .
006234: 010446              		mov	r4,-(sp)		; &.
006236: 004767 002532       		call	update$tcb		; w.Z.
006242: 022626              		cmp	(sp)+,(sp)+		; .%
006244: 036427 000024 000400		bit	24(r4),#400		; .=....
006252: 001403              		beq	6262			; ..
006254: 012700 000002       		mov	#2,r0			; @...
006260: 000457              		br	6420			; /.
;
006262: 005765 177770       		tst	177770(r5)		; u.x.
006266: 001452              		beq	6414			; *.
006270: 036527 177770 000030		bit	177770(r5),#30		; W=x...
006276: 001441              		beq	6402			; !.
006300: 036327 000030 000004		bit	30(r3),#4		; W<....
006306: 001435              		beq	6402			; ..
006310: 016546 000006       		mov	6(r5),-(sp)		; f...
006314: 010446              		mov	r4,-(sp)		; &.
006316: 004767 000102       		call	rd$rpl			; w.B.
006322: 022626              		cmp	(sp)+,(sp)+		; .%
006324: 010065 177766       		mov	r0,177766(r5)		; 5.v.
006330: 001415              		beq	6364			; ..
006332: 036527 177766 000002		bit	177766(r5),#2		; W=v...
006340: 001403              		beq	6350			; ..
006342: 012700 000010       		mov	#10,r0			; @...
006346: 000424              		br	6420			; ..
;
006350: 010446              		mov	r4,-(sp)		; &.
006352: 004767 003504       		call	st$err			; w.D.
006356: 005726              		tst	(sp)+			; V.
006360: 000417              		br	6420			; ..
;
006362: 000406              		br	6400			; ..
;
006364: 012746 000001       		mov	#1,-(sp)		; f...
006370: 010446              		mov	r4,-(sp)		; &.
006372: 004767 002376       		call	update$tcb		; w.~.
006376: 022626              		cmp	(sp)+,(sp)+		; .%
006400: 000405              		br	6414			; ..
;
006402: 010446              		mov	r4,-(sp)		; &.
006404: 004767 003452       		call	st$err			; w.*.
006410: 005726              		tst	(sp)+			; V.
006412: 000402              		br	6420			; ..
;
006414: 000650              		br	6136			; (.
;
006416: 005000              		clr	r0			; ..
006420: 000167 070470       		jmp	cret$			; w.8q
;
				;	word rd$rpl( tcb )
				rd$rpl::
006424: 004567 070450       		jsr	r5,csv$			; w.(q
006430: 162706 000004       		sub	#4,sp			; Fe..
006434: 016504 000004       		mov	4(r5),r4		; D...
006440: 012746 100052       		mov	#100052,-(sp)		; f.*.
006444: 004767 035254       		call	$deqf.head			; w.,:
006450: 005726              		tst	(sp)+			; V.
006452: 010002              		mov	r0,r2			; ..
006454: 016403 000002       		mov	2(r4),r3		; ....
006460: 016401 000010       		mov	10(r4),r1		; ....
006464: 016400 000006       		mov	6(r4),r0		; ....
006470: 166301 000046       		sub	46(r3),r1		; Al&.
006474: 005600              		sbc	r0			; ..
006476: 166300 000044       		sub	44(r3),r0		; @l$.
006502: 010065 177764       		mov	r0,177764(r5)		; 5.t.
006506: 010165 177766       		mov	r1,177766(r5)		; u.v.
006512: 016462 000002 000002		mov	2(r4),2(r2)		; 2.....
006520: 016462 000004 000004		mov	4(r4),4(r2)		; 2.....
006526: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
006532: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
006536: 010246              		mov	r2,-(sp)		; &.
006540: 004767 010336       		call	get$rbn			; w.^.
006544: 062706 000006       		add	#6,sp			; Fe..
006550: 010065 177770       		mov	r0,177770(r5)		; 5.x.
006554: 001402              		beq	6562			; ..
006556: 000167 000612       		jmp	7374			; w...
;
006562: 005762 000046       		tst	46(r2)			; r.&.
006566: 002146              		bge	7104			; f.
006570: 016462 000006 000006		mov	6(r4),6(r2)		; 2.....
006576: 016462 000010 000010		mov	10(r4),10(r2)		; 2.....
006604: 012701 001000       		mov	#1000,r1		; A...
006610: 005000              		clr	r0			; ..
006612: 166401 000014       		sub	14(r4),r1		; .m..
006616: 005600              		sbc	r0			; ..
006620: 166400 000012       		sub	12(r4),r0		; .m..
006624: 162701 000001       		sub	#1,r1			; Ae..
006630: 005600              		sbc	r0			; ..
006632: 002405              		blt	6646			; ..
006634: 016401 000014       		mov	14(r4),r1		; ....
006640: 016400 000012       		mov	12(r4),r0		; ....
006644: 000403              		br	6654			; ..
;
006646: 012701 001000       		mov	#1000,r1		; A...
006652: 005000              		clr	r0			; ..
006654: 010062 000012       		mov	r0,12(r2)		; 2...
006660: 010162 000014       		mov	r1,14(r2)		; r...
006664: 016400 000024       		mov	24(r4),r0		; ....
006670: 052700 101000       		bis	#101000,r0		; @U..
006674: 010062 000024       		mov	r0,24(r2)		; 2...
006700: 016462 000026 000026		mov	26(r4),26(r2)		; 2.....
006706: 016462 000016 000016		mov	16(r4),16(r2)		; 2.....
006714: 016462 000020 000020		mov	20(r4),20(r2)		; 2.....
006722: 016200 000014       		mov	14(r2),r0		; ....
006726: 010046              		mov	r0,-(sp)		; &.
006730: 016446 000044       		mov	44(r4),-(sp)		; &.$.
006734: 010246              		mov	r2,-(sp)		; &.
006736: 004767 001362       		call	fill$tcb			; w.r.
006742: 062706 000006       		add	#6,sp			; Fe..
006746: 026527 000006 000001		cmp	6(r5),#1		; W-....
006754: 001005              		bne	6770			; ..
006756: 010246              		mov	r2,-(sp)		; &.
006760: 004767 030064       		call	read			; w.40
006764: 005726              		tst	(sp)+			; V.
006766: 000404              		br	7000			; ..
;
006770: 010246              		mov	r2,-(sp)		; &.
006772: 004767 030102       		call	write			; w.B0
006776: 005726              		tst	(sp)+			; V.
007000: 010065 177770       		mov	r0,177770(r5)		; 5.x.
007004: 001002              		bne	7012			; ..
007006: 000167 000362       		jmp	7374			; w.r.
;
007012: 005046              		clr	-(sp)			; &.
007014: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
007020: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
007024: 010246              		mov	r2,-(sp)		; &.
007026: 004767 011330       		call	put$rbn			; w.X.
007032: 062706 000010       		add	#10,sp			; Fe..
007036: 010065 177770       		mov	r0,177770(r5)		; 5.x.
007042: 001154              		bne	7374			; l.
007044: 005762 000046       		tst	46(r2)			; r.&.
007050: 002015              		bge	7104			; ..
007052: 016401 000010       		mov	10(r4),r1		; ....
007056: 016400 000006       		mov	6(r4),r0		; ....
007062: 166301 000056       		sub	56(r3),r1		; Al..
007066: 005600              		sbc	r0			; ..
007070: 166300 000054       		sub	54(r3),r0		; @l,.
007074: 010062 000046       		mov	r0,46(r2)		; 2.&.
007100: 010162 000050       		mov	r1,50(r2)		; r.(.
007104: 016201 000050       		mov	50(r2),r1		; ..(.
007110: 016200 000046       		mov	46(r2),r0		; ..&.
007114: 066301 000056       		add	56(r3),r1		; Al..
007120: 005500              		adc	r0			; @.
007122: 066300 000054       		add	54(r3),r0		; @l,.
007126: 010062 000006       		mov	r0,6(r2)		; 2...
007132: 010162 000010       		mov	r1,10(r2)		; r...
007136: 012701 001000       		mov	#1000,r1		; A...
007142: 005000              		clr	r0			; ..
007144: 166401 000014       		sub	14(r4),r1		; .m..
007150: 005600              		sbc	r0			; ..
007152: 166400 000012       		sub	12(r4),r0		; .m..
007156: 162701 000001       		sub	#1,r1			; Ae..
007162: 005600              		sbc	r0			; ..
007164: 002405              		blt	7200			; ..
007166: 016401 000014       		mov	14(r4),r1		; ....
007172: 016400 000012       		mov	12(r4),r0		; ....
007176: 000403              		br	7206			; ..
;
007200: 012701 001000       		mov	#1000,r1		; A...
007204: 005000              		clr	r0			; ..
007206: 010062 000012       		mov	r0,12(r2)		; 2...
007212: 010162 000014       		mov	r1,14(r2)		; r...
007216: 016400 000024       		mov	24(r4),r0		; ....
007222: 052700 100000       		bis	#100000,r0		; @U..
007226: 010062 000024       		mov	r0,24(r2)		; 2...
007232: 016462 000026 000026		mov	26(r4),26(r2)		; 2.....
007240: 016462 000016 000016		mov	16(r4),16(r2)		; 2.....
007246: 016462 000020 000020		mov	20(r4),20(r2)		; 2.....
007254: 016200 000014       		mov	14(r2),r0		; ....
007260: 010046              		mov	r0,-(sp)		; &.
007262: 016446 000044       		mov	44(r4),-(sp)		; &.$.
007266: 010246              		mov	r2,-(sp)		; &.
007270: 004767 001030       		call	fill$tcb			; w...
007274: 062706 000006       		add	#6,sp			; Fe..
007300: 026527 000006 000002		cmp	6(r5),#2		; W-....
007306: 001010              		bne	7330			; ..
007310: 036427 000024 000020		bit	24(r4),#20		; .=....
007316: 001004              		bne	7330			; ..
007320: 010446              		mov	r4,-(sp)		; &.
007322: 004767 003076       		call	zero			; w.>.
007326: 005726              		tst	(sp)+			; V.
007330: 026527 000006 000001		cmp	6(r5),#1		; W-....
007336: 001005              		bne	7352			; ..
007340: 010246              		mov	r2,-(sp)		; &.
007342: 004767 027502       		call	read			; w.B/
007346: 005726              		tst	(sp)+			; V.
007350: 000404              		br	7362			; ..
;
007352: 010246              		mov	r2,-(sp)		; &.
007354: 004767 027520       		call	write			; w.P/
007360: 005726              		tst	(sp)+			; V.
007362: 010065 177770       		mov	r0,177770(r5)		; 5.x.
007366: 030027 000030       		bit	r0,#30			; .0..
007372: 001207              		bne	7012			; ..
007374: 010246              		mov	r2,-(sp)		; &.
007376: 012746 100052       		mov	#100052,-(sp)		; f.*.
007402: 004767 034202       		call	$enq.head			; w..8
007406: 022626              		cmp	(sp)+,(sp)+		; .%
007410: 016500 177770       		mov	177770(r5),r0		; @.x.
007414: 000167 067474       		jmp	cret$			; w.<o
;
				;	word rd$rct( tcb, i, buffer )
				rd$rct::
007420: 004567 067454       		jsr	r5,csv$			; w.,o
007424: 162706 000004       		sub	#4,sp			; Fe..
007430: 016504 000004       		mov	4(r5),r4		; D...
007434: 016465 000002 177764		mov	2(r4),177764(r5)	; 5...t.
007442: 005064 000026       		clr	26(r4)			; 4...
007446: 016500 177764       		mov	177764(r5),r0		; @.t.
007452: 016046 000010       		mov	10(r0),-(sp)		; &...
007456: 016046 000006       		mov	6(r0),-(sp)		; &...
007462: 016500 177764       		mov	177764(r5),r0		; @.t.
007466: 016001 000046       		mov	46(r0),r1		; ..&.
007472: 016000 000044       		mov	44(r0),r0		; ..$.
007476: 062600              		add	(sp)+,r0		; .e
007500: 062601              		add	(sp)+,r1		; .e
007502: 005500              		adc	r0			; @.
007504: 066501 000006       		add	6(r5),r1		; Am..
007510: 005500              		adc	r0			; @.
007512: 010064 000006       		mov	r0,6(r4)		; 4...
007516: 010164 000010       		mov	r1,10(r4)		; t...
007522: 012764 100000 000024		mov	#100000,24(r4)		; t.....
007530: 016500 177764       		mov	177764(r5),r0		; @.t.
007534: 016065 000026 177770		mov	26(r0),177770(r5)	; 5...x.
007542: 000467              		br	7722			; 7.
;
007544: 012746 001000       		mov	#1000,-(sp)		; f...
007550: 016546 000010       		mov	10(r5),-(sp)		; f...
007554: 010446              		mov	r4,-(sp)		; &.
007556: 004767 000542       		call	fill$tcb			; w.b.
007562: 062706 000006       		add	#6,sp			; Fe..
007566: 010446              		mov	r4,-(sp)		; &.
007570: 004767 027254       		call	read			; w.,.
007574: 005726              		tst	(sp)+			; V.
007576: 005700              		tst	r0			; @.
007600: 001033              		bne	7670			; ..
007602: 012764 132604 000044		mov	#132604,44(r4)		; t..5$.
007610: 010446              		mov	r4,-(sp)		; &.
007612: 004767 027232       		call	read			; w...
007616: 005726              		tst	(sp)+			; V.
007620: 005700              		tst	r0			; @.
007622: 001022              		bne	7670			; ..
007624: 016503 000010       		mov	10(r5),r3		; C...
007630: 012702 132604       		mov	#132604,r2		; B..5
007634: 012765 000400 177766		mov	#400,177766(r5)		; u...v.
007642: 000402              		br	7650			; ..
;
007644: 022322              		cmp	(r3)+,(r2)+		; R$
007646: 001003              		bne	7656			; ..
007650: 005365 177766       		dec	177766(r5)		; u.v.
007654: 002373              		bge	7644			; {.
007656: 005765 177766       		tst	177766(r5)		; u.v.
007662: 002002              		bge	7670			; ..
007664: 005000              		clr	r0			; ..
007666: 000422              		br	7734			; ..
;
007670: 016564 000010 000044		mov	10(r5),44(r4)		; t...$.
007676: 016500 177764       		mov	177764(r5),r0		; @.t.
007702: 066064 000024 000010		add	24(r0),10(r4)		; 4l....
007710: 005564 000006       		adc	6(r4)			; t...
007714: 012764 100000 000024		mov	#100000,24(r4)		; t.....
007722: 005365 177770       		dec	177770(r5)		; u.x.
007726: 002306              		bge	7544			; F.
007730: 012700 000005       		mov	#5,r0			; @...
007734: 000167 067154       		jmp	cret$			; w.ln
;
				;	word wr$rct( tcb, i, buffer )
				wr$rct::
007740: 004567 067134       		jsr	r5,csv$			; w.\n
007744: 162706 000006       		sub	#6,sp			; Fe..
007750: 016504 000004       		mov	4(r5),r4		; D...
007754: 005065 177770       		clr	177770(r5)		; 5.x.
007760: 016465 000002 177762		mov	2(r4),177762(r5)	; 5...r.
007766: 005064 000026       		clr	26(r4)			; 4...
007772: 016500 177762       		mov	177762(r5),r0		; @.r.
007776: 016046 000010       		mov	10(r0),-(sp)		; &...
010002: 016046 000006       		mov	6(r0),-(sp)		; &...
010006: 016500 177762       		mov	177762(r5),r0		; @.r.
010012: 016001 000046       		mov	46(r0),r1		; ..&.
010016: 016000 000044       		mov	44(r0),r0		; ..$.
010022: 062600              		add	(sp)+,r0		; .e
010024: 062601              		add	(sp)+,r1		; .e
010026: 005500              		adc	r0			; @.
010030: 066501 000006       		add	6(r5),r1		; Am..
010034: 005500              		adc	r0			; @.
010036: 010064 000006       		mov	r0,6(r4)		; 4...
010042: 010164 000010       		mov	r1,10(r4)		; t...
010046: 012764 100000 000024		mov	#100000,24(r4)		; t.....
010054: 016500 177762       		mov	177762(r5),r0		; @.r.
010060: 016065 000026 177766		mov	26(r0),177766(r5)	; 5...v.
010066: 000502              		br	10274			; B.
;
010070: 012746 001000       		mov	#1000,-(sp)		; f...
010074: 016546 000010       		mov	10(r5),-(sp)		; f...
010100: 010446              		mov	r4,-(sp)		; &.
010102: 004767 000216       		call	fill$tcb			; w...
010106: 062706 000006       		add	#6,sp			; Fe..
010112: 010446              		mov	r4,-(sp)		; &.
010114: 004767 026760       		call	write			; w.p-
010120: 005726              		tst	(sp)+			; V.
010122: 005700              		tst	r0			; @.
010124: 001046              		bne	10242			; &.
010126: 012764 132604 000044		mov	#132604,44(r4)		; t..5$.
010134: 010446              		mov	r4,-(sp)		; &.
010136: 004767 026706       		call	read			; w.F-
010142: 005726              		tst	(sp)+			; V.
010144: 005700              		tst	r0			; @.
010146: 001035              		bne	10242			; ..
010150: 016503 000010       		mov	10(r5),r3		; C...
010154: 012702 132604       		mov	#132604,r2		; B..5
010160: 012765 000400 177764		mov	#400,177764(r5)		; u...t.
010166: 000402              		br	10174			; ..
;
010170: 022322              		cmp	(r3)+,(r2)+		; R$
010172: 001003              		bne	10202			; ..
010174: 005365 177764       		dec	177764(r5)		; u.t.
010200: 002373              		bge	10170			; {.
010202: 005765 177764       		tst	177764(r5)		; u.t.
010206: 002004              		bge	10220			; ..
010210: 012765 000001 177770		mov	#1,177770(r5)		; u...x.
010216: 000411              		br	10242			; ..
;
010220: 012764 010000 000026		mov	#10000,26(r4)		; t.....
010226: 010446              		mov	r4,-(sp)		; &.
010230: 004767 026644       		call	write			; w.$-
010234: 005726              		tst	(sp)+			; V.
010236: 005064 000026       		clr	26(r4)			; 4...
010242: 016564 000010 000044		mov	10(r5),44(r4)		; t...$.
010250: 016500 177762       		mov	177762(r5),r0		; @.r.
010254: 066064 000024 000010		add	24(r0),10(r4)		; 4l....
010262: 005564 000006       		adc	6(r4)			; t...
010266: 012764 100000 000024		mov	#100000,24(r4)		; t.....
010274: 005365 177766       		dec	177766(r5)		; u.v.
010300: 002273              		bge	10070			; ;.
010302: 005765 177770       		tst	177770(r5)		; u.x.
010306: 001402              		beq	10314			; ..
010310: 005000              		clr	r0			; ..
010312: 000402              		br	10320			; ..
;
010314: 012700 000005       		mov	#5,r0			; @...
010320: 000167 066570       		jmp	cret$			; w.xm
;
				;	fill$tcb( tcb, buffer, count )
				fill$tcb::
010324: 004567 066550       		jsr	r5,csv$			; w.hm
010330: 016504 000004       		mov	4(r5),r4		; D...
010334: 016403 000002       		mov	2(r4),r3		; ....
010340: 036327 000030 000004		bit	30(r3),#4		; W<....
010346: 001422              		beq	10414			; ..
010350: 036427 000024 100000		bit	24(r4),#100000		; .=....
010356: 001407              		beq	10376			; ..
010360: 042764 100000 000024		bic	#100000,24(r4)		; tE....
010366: 010446              		mov	r4,-(sp)		; &.
010370: 004767 032536       		call	calc.pbn			; w.^5
010374: 005726              		tst	(sp)+			; V.
010376: 016300 000110       		mov	110(r3),r0		; @.H.
010402: 166400 000034       		sub	34(r4),r0		; .m..
010406: 010064 000036       		mov	r0,36(r4)		; 4...
010412: 000534              		br	10704			; \.
;
010414: 016402 000010       		mov	10(r4),r2		; ....
010420: 036327 000030 002000		bit	30(r3),#2000		; W<....
010426: 001452              		beq	10554			; *.
010430: 012746 000012       		mov	#12,-(sp)		; f...
010434: 010246              		mov	r2,-(sp)		; &.
010436: 004767 066106       		call	76550			; w.Fl
010442: 022626              		cmp	(sp)+,(sp)+		; .%
010444: 010064 000030       		mov	r0,30(r4)		; 4...
010450: 005064 000032       		clr	32(r4)			; 4...
010454: 012746 000062       		mov	#62,-(sp)		; f.2.
010460: 010246              		mov	r2,-(sp)		; &.
010462: 004767 066070       		call	76556			; w.8l
010466: 022626              		cmp	(sp)+,(sp)+		; .%
010470: 062700 002202       		add	#2202,r0		; @e..
010474: 010064 000034       		mov	r0,34(r4)		; 4...
010500: 005264 000030       		inc	30(r4)			; 4...
010504: 016400 000030       		mov	30(r4),r0		; ....
010510: 020027 000117       		cmp	r0,#117			; . O.
010514: 003402              		ble	10522			; ..
010516: 005064 000030       		clr	30(r4)			; 4...
010522: 012746 000012       		mov	#12,-(sp)		; f...
010526: 010246              		mov	r2,-(sp)		; &.
010530: 004767 066022       		call	76556			; w..l
010534: 022626              		cmp	(sp)+,(sp)+		; .%
010536: 010046              		mov	r0,-(sp)		; &.
010540: 012700 000012       		mov	#12,r0			; @...
010544: 162600              		sub	(sp)+,r0		; .e
010546: 010064 000036       		mov	r0,36(r4)		; 4...
010552: 000454              		br	10704			; ,.
;
010554: 016300 000110       		mov	110(r3),r0		; @.H.
010560: 006300              		asl	r0			; @.
010562: 010046              		mov	r0,-(sp)		; &.
010564: 010246              		mov	r2,-(sp)		; &.
010566: 004767 065756       		call	76550			; w.nk
010572: 022626              		cmp	(sp)+,(sp)+		; .%
010574: 010064 000030       		mov	r0,30(r4)		; 4...
010600: 016446 000030       		mov	30(r4),-(sp)		; &...
010604: 016300 000110       		mov	110(r3),r0		; @.H.
010610: 006300              		asl	r0			; @.
010612: 010046              		mov	r0,-(sp)		; &.
010614: 004767 065624       		call	76444			; w..k
010620: 022626              		cmp	(sp)+,(sp)+		; .%
010622: 160002              		sub	r0,r2			; .`
010624: 005202              		inc	r2			; ..
010626: 020263 000110       		cmp	r2,110(r3)		; 3 H.
010632: 003005              		bgt	10646			; ..
010634: 005064 000032       		clr	32(r4)			; 4...
010640: 010264 000034       		mov	r2,34(r4)		; 4...
010644: 000410              		br	10666			; ..
;
010646: 012764 000001 000032		mov	#1,32(r4)		; t.....
010654: 010200              		mov	r2,r0			; ..
010656: 166300 000110       		sub	110(r3),r0		; @lH.
010662: 010064 000034       		mov	r0,34(r4)		; 4...
010666: 016300 000110       		mov	110(r3),r0		; @.H.
010672: 005200              		inc	r0			; ..
010674: 166400 000034       		sub	34(r4),r0		; .m..
010700: 010064 000036       		mov	r0,36(r4)		; 4...
010704: 016400 000036       		mov	36(r4),r0		; ....
010710: 000300              		swab	r0			; @.
010712: 105000              		clrb	r0			; ..
010714: 006300              		asl	r0			; @.
010716: 010064 000042       		mov	r0,42(r4)		; 4.".
010722: 026564 000010 000042		cmp	10(r5),42(r4)		; t-..".
010730: 002014              		bge	10762			; ..
010732: 016500 000010       		mov	10(r5),r0		; @...
010736: 062700 000777       		add	#777,r0			; @e..
010742: 105000              		clrb	r0			; ..
010744: 000300              		swab	r0			; @.
010746: 006200              		asr	r0			; ..
010750: 010064 000036       		mov	r0,36(r4)		; 4...
010754: 016564 000010 000042		mov	10(r5),42(r4)		; t...".
010762: 016564 000006 000044		mov	6(r5),44(r4)		; t...$.
010770: 000167 066120       		jmp	cret$			; w.Pl
;
				;	update$tcb ( tcb, number )
				update$tcb::
010774: 004567 066100       		jsr	r5,csv$			; w.@l
011000: 016504 000004       		mov	4(r5),r4		; D...
011004: 016503 000006       		mov	6(r5),r3		; C...
011010: 016402 000002       		mov	2(r4),r2		; ....
011014: 036227 000030 000010		bit	30(r2),#10		; .<....
011022: 001405              		beq	11036			; ..
011024: 005064 000036       		clr	36(r4)			; 4...
011030: 005064 000034       		clr	34(r4)			; 4...
011034: 000402              		br	11042			; ..
;
011036: 160364 000036       		sub	r3,36(r4)		; t`..
011042: 010300              		mov	r3,r0			; @.
011044: 000300              		swab	r0			; @.
011046: 105000              		clrb	r0			; ..
011050: 006300              		asl	r0			; @.
011052: 010065 177770       		mov	r0,177770(r5)		; 5.x.
011056: 166564 177770 000014		sub	177770(r5),14(r4)	; tmx...
011064: 005664 000012       		sbc	12(r4)			; 4...
011070: 016401 000014       		mov	14(r4),r1		; ....
011074: 016400 000012       		mov	12(r4),r0		; ....
011100: 162701 000001       		sub	#1,r1			; Ae..
011104: 005600              		sbc	r0			; ..
011106: 002462              		blt	11254			; 2.
011110: 060364 000010       		add	r3,10(r4)		; t`..
011114: 005564 000006       		adc	6(r4)			; t...
011120: 060364 000034       		add	r3,34(r4)		; t`..
011124: 016400 000034       		mov	34(r4),r0		; ....
011130: 020062 000110       		cmp	r0,110(r2)		; 2 H.
011134: 002427              		blt	11214			; ..
011136: 005064 000034       		clr	34(r4)			; 4...
011142: 005264 000032       		inc	32(r4)			; 4...
011146: 016400 000032       		mov	32(r4),r0		; ....
011152: 020062 000112       		cmp	r0,112(r2)		; 2 J.
011156: 002416              		blt	11214			; ..
011160: 005064 000032       		clr	32(r4)			; 4...
011164: 005264 000030       		inc	30(r4)			; 4...
011170: 012746 000002       		mov	#2,-(sp)		; f...
011174: 004767 033530       		call	$setpriority			; w.X7
011200: 005726              		tst	(sp)+			; V.
011202: 012746 000004       		mov	#4,-(sp)		; f...
011206: 004767 033516       		call	$setpriority			; w.N7
011212: 005726              		tst	(sp)+			; V.
011214: 066564 177770 000044		add	177770(r5),44(r4)	; tmx.$.
011222: 036427 000024 000030		bit	24(r4),#30		; .=....
011230: 001410              		beq	11252			; ..
011232: 066564 177770 000020		add	177770(r5),20(r4)	; tmx...
011240: 005564 000016       		adc	16(r4)			; t...
011244: 166564 177770 000042		sub	177770(r5),42(r4)	; tmx.".
011252: 000404              		br	11264			; ..
;
011254: 005064 000012       		clr	12(r4)			; 4...
011260: 005064 000014       		clr	14(r4)			; 4...
011264: 000167 065624       		jmp	cret$			; w..k
;
				;	insert$tcb( tcb )
				insert$tcb::
011270: 004567 065604       		jsr	r5,csv$			; w..k
011274: 016504 000004       		mov	4(r5),r4		; D...
011300: 016403 000002       		mov	2(r4),r3		; ....
011304: 010302              		mov	r3,r2			; B.
011306: 062702 000004       		add	#4,r2			; Be..
011312: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011316: 017502 177770       		mov	@177770(r5),r2		; B.x.
011322: 005702              		tst	r2			; B.
011324: 001002              		bne	11332			; ..
011326: 000167 000424       		jmp	11756			; w...
;
011332: 036227 000026 100000		bit	26(r2),#100000		; .<....
011340: 001411              		beq	11364			; ..
011342: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011346: 017502 177770       		mov	@177770(r5),r2		; B.x.
011352: 005702              		tst	r2			; B.
011354: 001002              		bne	11362			; ..
011356: 000167 000374       		jmp	11756			; w.|.
;
011362: 000763              		br	11332			; s.
;
011364: 036427 000026 100000		bit	26(r4),#100000		; .=....
011372: 001402              		beq	11400			; ..
011374: 000167 000356       		jmp	11756			; w.n.
;
011400: 036327 000030 040000		bit	30(r3),#40000		; W<...@
011406: 001475              		beq	11602			; =.
011410: 026463 000006 000032		cmp	6(r4),32(r3)		; 3-....
011416: 003005              		bgt	11432			; ..
011420: 002437              		blt	11520			; ..
011422: 026463 000010 000034		cmp	10(r4),34(r3)		; 3-....
011430: 101433              		blos	11520			; ..
011432: 052764 040000 000024		bis	#40000,24(r4)		; tU.@..
011440: 036227 000024 040000		bit	24(r2),#40000		; .<...@
011446: 001422              		beq	11514			; ..
011450: 026462 000006 000006		cmp	6(r4),6(r2)		; 2-....
011456: 003005              		bgt	11472			; ..
011460: 002415              		blt	11514			; ..
011462: 026462 000010 000010		cmp	10(r4),10(r2)		; 2-....
011470: 103411              		bcs	11514			; ..
011472: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011476: 017502 177770       		mov	@177770(r5),r2		; B.x.
011502: 005702              		tst	r2			; B.
011504: 001002              		bne	11512			; ..
011506: 000167 000336       		jmp	12050			; w.^.
;
011512: 000752              		br	11440			; j.
;
011514: 000167 000330       		jmp	12050			; w.X.
;
011520: 036227 000024 040000		bit	24(r2),#40000		; .<...@
011526: 001011              		bne	11552			; ..
011530: 026462 000006 000006		cmp	6(r4),6(r2)		; 2-....
011536: 002405              		blt	11552			; ..
011540: 003015              		bgt	11574			; ..
011542: 026462 000010 000010		cmp	10(r4),10(r2)		; 2-....
011550: 101011              		bhi	11574			; ..
011552: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011556: 017502 177770       		mov	@177770(r5),r2		; B.x.
011562: 005702              		tst	r2			; B.
011564: 001002              		bne	11572			; ..
011566: 000167 000256       		jmp	12050			; w...
;
011572: 000752              		br	11520			; j.
;
011574: 000167 000250       		jmp	12050			; w.(.
;
011600: 000466              		br	11756			; 6.
;
011602: 026463 000006 000032		cmp	6(r4),32(r3)		; 3-....
011610: 002405              		blt	11624			; ..
011612: 003031              		bgt	11676			; ..
011614: 026463 000010 000034		cmp	10(r4),34(r3)		; 3-....
011622: 103025              		bcc	11676			; ..
011624: 036227 000024 040000		bit	24(r2),#40000		; .<...@
011632: 001020              		bne	11674			; ..
011634: 026462 000006 000006		cmp	6(r4),6(r2)		; 2-....
011642: 002405              		blt	11656			; ..
011644: 003013              		bgt	11674			; ..
011646: 026462 000010 000010		cmp	10(r4),10(r2)		; 2-....
011654: 101007              		bhi	11674			; ..
011656: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011662: 017502 177770       		mov	@177770(r5),r2		; B.x.
011666: 005702              		tst	r2			; B.
011670: 001467              		beq	12050			; 7.
011672: 000754              		br	11624			; l.
;
011674: 000465              		br	12050			; 5.
;
011676: 052764 040000 000024		bis	#40000,24(r4)		; tU.@..
011704: 036227 000024 040000		bit	24(r2),#40000		; .<...@
011712: 001411              		beq	11736			; ..
011714: 026462 000006 000006		cmp	6(r4),6(r2)		; 2-....
011722: 003005              		bgt	11736			; ..
011724: 002413              		blt	11754			; ..
011726: 026462 000010 000010		cmp	10(r4),10(r2)		; 2-....
011734: 103407              		bcs	11754			; ..
011736: 010265 177770       		mov	r2,177770(r5)		; 5.x.
011742: 017502 177770       		mov	@177770(r5),r2		; B.x.
011746: 005702              		tst	r2			; B.
011750: 001437              		beq	12050			; ..
011752: 000754              		br	11704			; l.
;
011754: 000435              		br	12050			; ..
;
011756: 036327 000030 040000		bit	30(r3),#40000		; W<...@
011764: 001415              		beq	12020			; ..
011766: 026463 000006 000032		cmp	6(r4),32(r3)		; 3-....
011774: 003005              		bgt	12010			; ..
011776: 002407              		blt	12016			; ..
012000: 026463 000010 000034		cmp	10(r4),34(r3)		; 3-....
012006: 101403              		blos	12016			; ..
012010: 052764 040000 000024		bis	#40000,24(r4)		; tU.@..
012016: 000414              		br	12050			; ..
;
012020: 026463 000006 000032		cmp	6(r4),32(r3)		; 3-....
012026: 003005              		bgt	12042			; ..
012030: 002407              		blt	12050			; ..
012032: 026463 000010 000034		cmp	10(r4),34(r3)		; 3-....
012040: 103403              		bcs	12050			; ..
012042: 052764 040000 000024		bis	#40000,24(r4)		; tU.@..
012050: 010475 177770       		mov	r4,@177770(r5)		; =.x.
012054: 010214              		mov	r2,(r4)			; ..
012056: 000167 065032       		jmp	cret$			; w..j
;
				;	word st$err( tcb )
				st$err::
012062: 004567 065012       		jsr	r5,csv$			; w..j
012066: 016504 000004       		mov	4(r5),r4		; D...
012072: 016403 000060       		mov	60(r4),r3		; ..0.
012076: 001006              		bne	12114			; ..
012100: 016403 000056       		mov	56(r4),r3		; ....
012104: 001003              		bne	12114			; ..
012106: 005000              		clr	r0			; ..
012110: 000167 000304       		jmp	12420			; w.D.
;
012114: 030327 000040       		bit	r3,#40			; W0 .
012120: 001403              		beq	12130			; ..
012122: 012700 000012       		mov	#12,r0			; @...
012126: 000534              		br	12420			; \.
;
012130: 030327 000002       		bit	r3,#2			; W0..
012134: 001403              		beq	12144			; ..
012136: 012700 000010       		mov	#10,r0			; @...
012142: 000526              		br	12420			; V.
;
012144: 030327 000001       		bit	r3,#1			; W0..
012150: 001403              		beq	12160			; ..
012152: 012700 000043       		mov	#43,r0			; @.#.
012156: 000520              		br	12420			; P.
;
012160: 030327 010000       		bit	r3,#10000		; W0..
012164: 001411              		beq	12210			; ..
012166: 012703 000151       		mov	#151,r3			; C.i.
012172: 010346              		mov	r3,-(sp)		; f.
012174: 010446              		mov	r4,-(sp)		; &.
012176: 004767 034346       		call	do$hbe			; w.f8
012202: 022626              		cmp	(sp)+,(sp)+		; .%
012204: 010300              		mov	r3,r0			; @.
012206: 000504              		br	12420			; D.
;
012210: 030327 004000       		bit	r3,#4000		; W0..
012214: 001411              		beq	12240			; ..
012216: 012703 000211       		mov	#211,r3			; C...
012222: 010346              		mov	r3,-(sp)		; f.
012224: 010446              		mov	r4,-(sp)		; &.
012226: 004767 034316       		call	do$hbe			; w.N8
012232: 022626              		cmp	(sp)+,(sp)+		; .%
012234: 010300              		mov	r3,r0			; @.
012236: 000470              		br	12420			; 8.
;
012240: 030327 002000       		bit	r3,#2000		; W0..
012244: 001411              		beq	12270			; ..
012246: 012703 000251       		mov	#251,r3			; C.).
012252: 010346              		mov	r3,-(sp)		; f.
012254: 010446              		mov	r4,-(sp)		; &.
012256: 004767 034266       		call	do$hbe			; w.68
012262: 022626              		cmp	(sp)+,(sp)+		; .%
012264: 010300              		mov	r3,r0			; @.
012266: 000454              		br	12420			; ,.
;
012270: 030327 000020       		bit	r3,#20			; W0..
012274: 001411              		beq	12320			; ..
012276: 012703 000110       		mov	#110,r3			; C.H.
012302: 010346              		mov	r3,-(sp)		; f.
012304: 010446              		mov	r4,-(sp)		; &.
012306: 004767 034236       		call	do$hbe			; w..8
012312: 022626              		cmp	(sp)+,(sp)+		; .%
012314: 010300              		mov	r3,r0			; @.
012316: 000440              		br	12420			;  .
;
012320: 030327 000010       		bit	r3,#10			; W0..
012324: 001411              		beq	12350			; ..
012326: 012703 000350       		mov	#350,r3			; C.h.
012332: 010346              		mov	r3,-(sp)		; f.
012334: 010446              		mov	r4,-(sp)		; &.
012336: 004767 034206       		call	do$hbe			; w..8
012342: 022626              		cmp	(sp)+,(sp)+		; .%
012344: 010300              		mov	r3,r0			; @.
012346: 000424              		br	12420			; ..
;
012350: 030327 000004       		bit	r3,#4			; W0..
012354: 001411              		beq	12400			; ..
012356: 012703 000353       		mov	#353,r3			; C.k.
012362: 010346              		mov	r3,-(sp)		; f.
012364: 010446              		mov	r4,-(sp)		; &.
012366: 004767 034156       		call	do$hbe			; w.n8
012372: 022626              		cmp	(sp)+,(sp)+		; .%
012374: 010300              		mov	r3,r0			; @.
012376: 000410              		br	12420			; ..
;
012400: 012703 000013       		mov	#13,r3			; C...
012404: 010346              		mov	r3,-(sp)		; f.
012406: 010446              		mov	r4,-(sp)		; &.
012410: 004767 034134       		call	do$hbe			; w.\8
012414: 022626              		cmp	(sp)+,(sp)+		; .%
012416: 010300              		mov	r3,r0			; @.
012420: 000167 064470       		jmp	cret$			; w.8i
;
				;	zero( tcb )
				zero::
012424: 004567 064450       		jsr	r5,csv$			; w.(i
012430: 016504 000004       		mov	4(r5),r4		; D...
012434: 012701 022000       		mov	#22000,r1		; A..$
012440: 005000              		clr	r0			; ..
012442: 166401 000014       		sub	14(r4),r1		; .m..
012446: 005600              		sbc	r0			; ..
012450: 166400 000012       		sub	12(r4),r0		; .m..
012454: 162701 000001       		sub	#1,r1			; Ae..
012460: 005600              		sbc	r0			; ..
012462: 002411              		blt	12506			; ..
012464: 016402 000014       		mov	14(r4),r2		; ....
012470: 062702 000777       		add	#777,r2			; Be..
012474: 042702 000777       		bic	#777,r2			; BE..
012500: 000241              		clc				; !.
012502: 006002              		ror	r2			; ..
012504: 000402              		br	12512			; ..
;
012506: 012702 011000       		mov	#11000,r2		; B...
012512: 012703 110600       		mov	#data,r3		; C...
012516: 000401              		br	12522			; ..
;
012520: 005023              		clr	(r3)+			; ..
012522: 005302              		dec	r2			; B.
012524: 002375              		bge	12520			; }.
012526: 000167 064362       		jmp	cret$			; w.rh
				;----------------------------------------------
				;
				;	File:	9224.c
				;
				;	word init$udc( )
				init$udc::
012532: 004567 064342       		jsr	r5,csv$			; w.bh
012536: 005067 065464       		clr	100226			; 7.4k
012542: 005067 065464       		clr	100232			; 7.4k
012546: 105067 125250       		clrb	w$cmd			; 7.(*
012552: 012767 000362 065426		mov	#362,100206		; w.r..k
012560: 012767 000202 065422		mov	#202,100210		; w....k
012566: 012767 000271 065416		mov	#271,100212		; w.9..k
012574: 112767 000107 125220		movb	#107,w$cmd		; w.G..*
012602: 116767 065400 125210		movb	100206,w$dat		; w..k.*
012610: 116767 065374 125202		movb	100210,w$dat		; w.|j.*
012616: 116767 065370 125174		movb	100212,w$dat		; w.xj|*
012624: 012746 000001       		mov	#1,-(sp)		; f...
012630: 004767 000006       		call	put$udc			; w...
012634: 005726              		tst	(sp)+			; V.
012636: 000167 064252       		jmp	cret$			; w.*h
;
				;	word put$udc( opcode )
				put$udc::
012642: 004567 064232       		jsr	r5,csv$			; w..h
012646: 016504 000004       		mov	4(r5),r4		; D...
012652: 005067 065152       		clr	100030			; 7.jj
012656: 112767 000112 125136		movb	#112,w$cmd		; w.J.^*
012664: 110467 125132       		movb	r4,w$cmd		; 7.Z*
012670: 012746 100030       		mov	#100030,-(sp)		; f...
012674: 004767 031520       		call	$block			; w.P3
012700: 005726              		tst	(sp)+			; V.
012702: 000167 064206       		jmp	cret$			; w..h
;
				;	word get$udc( type, tcb )
				get$udc::
012706: 004567 064166       		jsr	r5,csv$			; w.vh
012712: 005746              		tst	-(sp)			; f.
012714: 016504 000006       		mov	6(r5),r4		; D...
012720: 116700 125066       		movb	r$cmd,r0		; @.6*
012724: 042700 177747       		bic	#177747,r0		; @Eg.
012730: 010065 177770       		mov	r0,177770(r5)		; 5.x.
012734: 001003              		bne	12744			; ..
012736: 005000              		clr	r0			; ..
012740: 000167 000452       		jmp	13416			; w.*.
;
012744: 116764 125042 000062		movb	r$cmd,62(r4)		; t."*2.
012752: 112767 000110 125042		movb	#110,w$cmd		; w.H."*
012760: 116703 125024       		movb	r$dat,r3		; C..*
012764: 110364 000063       		movb	r3,63(r4)		; t.3.
012770: 116702 125014       		movb	r$dat,r2		; B..*
012774: 110264 000064       		movb	r2,64(r4)		; 4.4.
013000: 112767 000103 125014		movb	#103,w$cmd		; w.C..*
013006: 116764 124776 000065		movb	r$dat,65(r4)		; t.~)5.
013014: 116764 124770 000066		movb	r$dat,66(r4)		; t.x)6.
013022: 116764 124762 000067		movb	r$dat,67(r4)		; t.r)7.
013030: 016465 000002 177766		mov	2(r4),177766(r5)	; 5...v.
013036: 016500 177766       		mov	177766(r5),r0		; @.v.
013042: 036027 000030 001000		bit	30(r0),#1000		; .<....
013050: 001427              		beq	13130			; ..
013052: 112767 000107 124742		movb	#107,w$cmd		; w.G.b)
013060: 016700 065122       		mov	100206,r0		; @.Rj
013064: 042700 000004       		bic	#4,r0			; @E..
013070: 110067 124724       		movb	r0,w$dat		; 7.T)
013074: 016746 065132       		mov	100232,-(sp)		; f.Zj
013100: 004767 177536       		call	put$udc			; w.^.
013104: 005726              		tst	(sp)+			; V.
013106: 112767 000111 124706		movb	#111,w$cmd		; w.I.F)
013114: 136727 124670 000002		bitb	r$dat,#2		; W=8)..
013122: 001402              		beq	13130			; ..
013124: 042702 000002       		bic	#2,r2			; BE..
013130: 012746 000001       		mov	#1,-(sp)		; f...
013134: 004767 177502       		call	put$udc			; w.B.
013140: 005726              		tst	(sp)+			; V.
013142: 112767 000107 124652		movb	#107,w$cmd		; w.G.*)
013150: 116767 065032 124642		movb	100206,w$dat		; w..j")
013156: 116767 065026 124634		movb	100210,w$dat		; w..j.)
013164: 016746 065042       		mov	100232,-(sp)		; f."j
013170: 004767 177446       		call	put$udc			; w.&.
013174: 005726              		tst	(sp)+			; V.
013176: 030227 000002       		bit	r2,#2			; .0..
013202: 001003              		bne	13212			; ..
013204: 012700 000101       		mov	#101,r0			; @.A.
013210: 000502              		br	13416			; B.
;
013212: 036527 000004 000002		bit	4(r5),#2		; W=....
013220: 001406              		beq	13236			; ..
013222: 030227 000001       		bit	r2,#1			; .0..
013226: 001403              		beq	13236			; ..
013230: 012700 000004       		mov	#4,r0			; @...
013234: 000470              		br	13416			; 8.
;
013236: 036527 177770 000020		bit	177770(r5),#20		; W=x...
013244: 001007              		bne	13264			; ..
013246: 030327 000050       		bit	r3,#50			; W0(.
013252: 001403              		beq	13262			; ..
013254: 012700 100020       		mov	#100020,r0		; @...
013260: 000456              		br	13416			; ..
;
013262: 000453              		br	13412			; +.
;
013264: 036527 177770 000010		bit	177770(r5),#10		; W=x...
013272: 001021              		bne	13336			; ..
013274: 030327 000054       		bit	r3,#54			; W0,.
013300: 001403              		beq	13310			; ..
013302: 012700 040020       		mov	#40020,r0		; @..@
013306: 000443              		br	13416			; #.
;
013310: 036527 000004 000001		bit	4(r5),#1		; W=....
013316: 001406              		beq	13334			; ..
013320: 030327 000020       		bit	r3,#20			; W0..
013324: 001403              		beq	13334			; ..
013326: 012700 040102       		mov	#40102,r0		; @.B@
013332: 000431              		br	13416			; ..
;
013334: 000426              		br	13412			; ..
;
013336: 030327 000040       		bit	r3,#40			; W0 .
013342: 001403              		beq	13352			; ..
013344: 012700 020010       		mov	#20010,r0		; @.. 
013350: 000422              		br	13416			; ..
;
013352: 030327 000010       		bit	r3,#10			; W0..
013356: 001403              		beq	13366			; ..
013360: 012700 020020       		mov	#20020,r0		; @.. 
013364: 000414              		br	13416			; ..
;
013366: 036527 000004 000001		bit	4(r5),#1		; W=....
013374: 001406              		beq	13412			; ..
013376: 030327 000020       		bit	r3,#20			; W0..
013402: 001403              		beq	13412			; ..
013404: 012700 020102       		mov	#20102,r0		; @.B 
013410: 000402              		br	13416			; ..
;
013412: 012700 160000       		mov	#160000,r0		; @..`
013416: 000167 063472       		jmp	cret$			; w.:g
;
				;	word rx$read( tcb )
				rx$read::
013422: 004567 063452       		jsr	r5,csv$			; 
013426: 162706 000010       		sub	#10,sp			; 
013432: 016504 000004       		mov	4(r5),r4		; tcb
013436: 016403 000002       		mov	2(r4),r3		; ucb
013442: 012767 000135 064526		mov	#135,100176		; rx$opcode = op$rsl;
013450: 005067 064546       		clr	100222			; mo$time = 0;
013454: 016765 064526 177770		mov	100206,177770(r5)	; i = reg$7;
013462: 052767 000001 064516		bis	#1,100206		; reg$7 |= bit0;
013470: 036327 000030 001000		bit	30(r3),#1000		; if( UCB.state & us$33 )
013476: 001413              		beq	13526			; ..
013500: 026463 000030 000066		cmp	30(r4),66(r3)		; if( TCB.cylinder >= UCB.rccyl )
013506: 002404              		blt	13520			; 
013510: 052767 000010 064470		bis	#10,100206		; reg$7 |= bit3;
013516: 000403              		br	13526			; 
									; else
013520: 042767 000010 064460		bic	#10,100206		; reg$7 &= ~bit3;
013526: 026765 064454 177770		cmp	100206,177770(r5)	; if( reg$7 != i )
013534: 001413              		beq	13564			; 
013536: 112767 000107 124256		movb	#107,w$cmd		; w$cmd = op$srp + 7;
013544: 116767 064436 124246		movb	100206,w$dat		; w$dat = reg$7;
013552: 016746 064454       		mov	100232,-(sp)		; 
013556: 004767 177060       		call	put$udc			; put$udc( sd$flag );
013562: 005726              		tst	(sp)+			; 
;
013564: 005067 074624       		clr	110414			; 7..y
013570: 036427 000026 000400		bit	26(r4),#400		; .=....
013576: 001403              		beq	13606			; ..
013600: 012700 000002       		mov	#2,r0			; @...
013604: 000402              		br	13612			; ..
;
013606: 012700 000011       		mov	#11,r0			; @...
013612: 010065 177770       		mov	r0,177770(r5)		; 5.x.
013616: 000167 001012       		jmp	14634			; w...
;
013622: 016467 000034 064234		mov	34(r4),100064		; 7....h
013630: 036327 000030 002000		bit	30(r3),#2000		; W<....
013636: 001416              		beq	13674			; ..
013640: 016700 064220       		mov	100064,r0		; @..h
013644: 005267 064214       		inc	100064			; 7..h
013650: 111000              		movb	(r0),r0			; ..
013652: 010065 177764       		mov	r0,177764(r5)		; 5.t.
013656: 012765 000001 177762		mov	#1,177762(r5)		; u...r.
013664: 016465 000036 177760		mov	36(r4),177760(r5)	; 5...p.
013672: 000410              		br	13714			; ..
;
013674: 016465 000034 177764		mov	34(r4),177764(r5)	; 5...t.
013702: 016465 000036 177762		mov	36(r4),177762(r5)	; 5...r.
013710: 005065 177760       		clr	177760(r5)		; 5.p.
013714: 112767 000100 124100		movb	#100,w$cmd		; w.@.@(
013722: 116467 000044 124070		movb	44(r4),w$dat		; 7.$.8(
013730: 116467 000045 124062		movb	45(r4),w$dat		; 7.%.2(
013736: 105067 124056       		clrb	w$dat			; 7..(
013742: 116567 177764 124050		movb	177764(r5),w$dat	; w.t.((
013750: 016400 000030       		mov	30(r4),r0		; ....
013754: 006200              		asr	r0			; ..
013756: 006200              		asr	r0			; ..
013760: 006200              		asr	r0			; ..
013762: 006200              		asr	r0			; ..
013764: 042700 177417       		bic	#177417,r0		; @E..
013770: 066400 000032       		add	32(r4),r0		; .m..
013774: 110067 124020       		movb	r0,w$dat		; 7..(
014000: 116467 000030 124012		movb	30(r4),w$dat		; 7....(
014006: 116567 177762 124004		movb	177762(r5),w$dat	; w.r..(
014014: 016567 177760 064156		mov	177760(r5),100200	; w.p.nh
014022: 036427 000024 000010		bit	24(r4),#10		; .=....
014030: 001554              		beq	14362			; l.
014032: 005067 064210       		clr	100246			; 7..h
014036: 005067 064206       		clr	100250			; 7..h
014042: 005067 063760       		clr	100026			; 7.pg
014046: 005067 063756       		clr	100030			; 7.ng
014052: 112767 000112 123742		movb	#112,w$cmd		; w.J.b'
014060: 012767 000004 064136		mov	#4,100224		; w...^h
014066: 116767 064104 123726		movb	100176,w$cmd		; w.DhV'
014074: 016467 000044 074300		mov	44(r4),110402		; 7.$.@x
014102: 016467 000016 074276		mov	16(r4),110406		; 7...>x
014110: 016467 000020 074272		mov	20(r4),110410		; 7...:x
014116: 016467 000042 074266		mov	42(r4),110412		; 7.".6x
014124: 012746 100026       		mov	#100026,-(sp)		; f...
014130: 004767 030264       		call	$block			; w.40
014134: 005726              		tst	(sp)+			; V.
014136: 005767 064062       		tst	100224			; w.2h
014142: 001006              		bne	14160			; ..
014144: 005064 000040       		clr	40(r4)			; 4. .
014150: 012700 000101       		mov	#101,r0			; @.A.
014154: 000167 000546       		jmp	14726			; w.f.
;
014160: 012746 100042       		mov	#dma,-(sp)		; f.".
014164: 004767 030050       		call	$acquire			; w.(0
014170: 005726              		tst	(sp)+			; V.
014172: 016467 000004 074164		mov	4(r4),110364		; 7...tx
014200: 005767 064042       		tst	100246			; w."h
014204: 003451              		ble	14330			; ).
014206: 005367 064034       		dec	100246			; w..h
014212: 005267 064032       		inc	100250			; 7..h
014216: 005767 074170       		tst	110412			; w.xx
014222: 003426              		ble	14300			; ..
014224: 026727 074162 001000		cmp	110412,#1000		; W-rx..
014232: 002003              		bge	14242			; ..
014234: 016746 074152       		mov	110412,-(sp)		; f.jx
014240: 000402              		br	14246			; ..
;
014242: 012746 001000       		mov	#1000,-(sp)		; f...
014246: 016746 074130       		mov	110402,-(sp)		; f.Xx
014252: 016746 074132       		mov	110410,-(sp)		; f.Zx
014256: 016746 074124       		mov	110406,-(sp)		; f.Tx
014262: 004767 020332       		call	put.buffer			; w.Z 
014266: 062706 000010       		add	#10,sp			; Fe..
014272: 010002              		mov	r0,r2			; ..
014274: 050264 000060       		bis	r2,60(r4)		; 4P0.
014300: 062767 001000 074074		add	#1000,110402		; we..<x
014306: 062767 001000 074074		add	#1000,110410		; we..<x
014314: 005567 074066       		adc	110406			; w.6x
014320: 162767 001000 074064		sub	#1000,110412		; we..4x
014326: 000724              		br	14200			; T.
;
014330: 012746 100042       		mov	#dma,-(sp)		; f.".
014334: 004767 027774       		call	$release			; w.|/
014340: 005726              		tst	(sp)+			; V.
014342: 005767 063462       		tst	100030			; w.2g
014346: 001403              		beq	14356			; ..
014350: 005767 063672       		tst	100246			; w.:g
014354: 003401              		ble	14360			; ..
014356: 000662              		br	14124			; 2.
;
014360: 000425              		br	14434			; ..
;
014362: 005067 063660       		clr	100246			; 7.0g
014366: 012767 000004 063630		mov	#4,100224		; w....g
014374: 016746 063576       		mov	100176,-(sp)		; f.~g
014400: 004767 176236       		call	put$udc			; w..|
014404: 005726              		tst	(sp)+			; V.
014406: 005767 063612       		tst	100224			; w..g
014412: 001005              		bne	14426			; ..
014414: 005064 000040       		clr	40(r4)			; 4. .
014420: 012700 000101       		mov	#101,r0			; @.A.
014424: 000540              		br	14726			; `.
;
014426: 016767 063614 063614		mov	100246,100250		; w..g.g
014434: 005067 063564       		clr	100224			; 7.tg
014440: 136727 123346 000030		bitb	r$cmd,#30		; W=f&..
014446: 001441              		beq	14552			; !.
014450: 010446              		mov	r4,-(sp)		; &.
014452: 012746 000001       		mov	#1,-(sp)		; f...
014456: 004767 176224       		call	get$udc			; w..|
014462: 022626              		cmp	(sp)+,(sp)+		; .%
014464: 010065 177766       		mov	r0,177766(r5)		; 5.v.
014470: 036327 000030 002000		bit	30(r3),#2000		; W<....
014476: 001407              		beq	14516			; ..
014500: 016400 000036       		mov	36(r4),r0		; ....
014504: 066700 063470       		add	100200,r0		; @m8g
014510: 010064 000040       		mov	r0,40(r4)		; 4. .
014514: 000411              		br	14540			; ..
;
014516: 112767 000103 123276		movb	#103,w$cmd		; w.C.>&
014524: 116700 123260       		movb	r$dat,r0		; @.0&
014530: 166400 000034       		sub	34(r4),r0		; .m..
014534: 010064 000040       		mov	r0,40(r4)		; 4. .
014540: 036527 177766 000100		bit	177766(r5),#100		; W=v.@.
014546: 001037              		bne	14646			; ..
014550: 000406              		br	14566			; ..
;
014552: 005065 177766       		clr	177766(r5)		; 5.v.
014556: 016464 000036 000040		mov	36(r4),40(r4)		; 4... .
014564: 000430              		br	14646			; ..
;
014566: 036527 177766 000010		bit	177766(r5),#10		; W=v...
014574: 001412              		beq	14622			; ..
014576: 010446              		mov	r4,-(sp)		; &.
014600: 004767 025550       		call	apply.ecc		; w.h+
014604: 005726              		tst	(sp)+			; V.
014606: 010065 177766       		mov	r0,177766(r5)		; 5.v.
014612: 001003              		bne	14622			; ..
014614: 005267 063430       		inc	100250			; 7..g
014620: 000412              		br	14646			; ..
;
014622: 012746 000044       		mov	#44,-(sp)		; f.$.
014626: 004767 030026       		call	$sleep			; w..0
014632: 005726              		tst	(sp)+			; V.
014634: 005365 177770       		dec	177770(r5)		; u.x.
014640: 002402              		blt	14646			; ..
014642: 000167 176754       		jmp	13622			; w.l}
;
014646: 036527 177766 040000		bit	177766(r5),#40000	; W=v..@
014654: 001406              		beq	14672			; ..
014656: 036527 177766 000002		bit	177766(r5),#2		; W=v...
014664: 001402              		beq	14672			; ..
014666: 005364 000040       		dec	40(r4)			; t. .
014672: 036527 177766 000002		bit	177766(r5),#2		; W=v...
014700: 001402              		beq	14706			; ..
014702: 005367 063342       		dec	100250			; w.bf
014706: 026764 063336 000040		cmp	100250,40(r4)		; t-^f .
014714: 001402              		beq	14722			; ..
014716: 000167 176646       		jmp	13570			; w.&}
;
014722: 016500 177766       		mov	177766(r5),r0		; @.v.
014726: 000167 062162       		jmp	cret$			; w.rd
;
				;	word rx$write( tcb )
				rx$write::
014732: 004567 062142       		jsr	r5,csv$			; w.bd
014736: 162706 000014       		sub	#14,sp			; Fe..
014742: 016504 000004       		mov	4(r5),r4		; D...
014746: 016402 000002       		mov	2(r4),r2		; ....
014752: 012767 000240 063216		mov	#240,100176		; w. ..f
014760: 026462 000030 000064		cmp	30(r4),64(r2)		; 2-..4.
014766: 002404              		blt	15000			; ..
014770: 052767 000004 063200		bis	#4,100176		; wU...f
014776: 000403              		br	15006			; ..
;
015000: 052767 000001 063170		bis	#1,100176		; wU..xf
015006: 005067 063210       		clr	100222			; 7..f
015012: 016765 063170 177770		mov	100206,177770(r5)	; u.xfx.
015020: 052767 000001 063160		bis	#1,100206		; wU..pf
015026: 026462 000030 000066		cmp	30(r4),66(r2)		; 2-..6.
015034: 002404              		blt	15046			; ..
015036: 052767 000010 063142		bis	#10,100206		; wU..bf
015044: 000415              		br	15100			; ..
;
015046: 042767 000010 063132		bic	#10,100206		; wE..Zf
015054: 005767 073334       		tst	110414			; w.\v
015060: 002007              		bge	15100			; ..
015062: 036727 073326 000010		bit	110414,#10		; W=Vv..
015070: 001403              		beq	15100			; ..
015072: 052765 000010 177770		bis	#10,177770(r5)		; uU..x.
015100: 026765 063102 177770		cmp	100206,177770(r5)	; u-Bfx.
015106: 001450              		beq	15230			; (.
015110: 112767 000107 122704		movb	#107,w$cmd		; w.G.D%
015116: 116767 063064 122674		movb	100206,w$dat		; w.4f<%
015124: 016746 063102       		mov	100232,-(sp)		; f.Bf
015130: 004767 175506       		call	put$udc			; w.F{
015134: 005726              		tst	(sp)+			; V.
015136: 016700 063044       		mov	100206,r0		; @.$f
015142: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
015146: 040065 177770       		bic	r0,177770(r5)		; 5@x.
015152: 042600              		bic	(sp)+,r0		; .E
015154: 050065 177770       		bis	r0,177770(r5)		; 5Px.
015160: 036227 000030 001000		bit	30(r2),#1000		; .<....
015166: 001403              		beq	15176			; ..
015170: 012701 177766       		mov	#177766,r1		; A.v.
015174: 000402              		br	15202			; ..
;
015176: 012701 177776       		mov	#177776,r1		; A.~.
015202: 005101              		com	r1			; A.
015204: 040165 177770       		bic	r1,177770(r5)		; u@x.
015210: 005765 177770       		tst	177770(r5)		; u.x.
015214: 001405              		beq	15230			; ..
015216: 012746 000764       		mov	#764,-(sp)		; f.t.
015222: 004767 027432       		call	$sleep			; w../
015226: 005726              		tst	(sp)+			; V.
015230: 005067 073160       		clr	110414			; 7.pv
015234: 036427 000026 000400		bit	26(r4),#400		; .=....
015242: 001403              		beq	15252			; ..
015244: 012700 000002       		mov	#2,r0			; @...
015250: 000402              		br	15256			; ..
;
015252: 012700 000011       		mov	#11,r0			; @...
015256: 010065 177770       		mov	r0,177770(r5)		; 5.x.
015262: 000167 001306       		jmp	16574			; w.F.
;
015266: 016467 000034 062570		mov	34(r4),100064		; 7...xe
015274: 036227 000030 002000		bit	30(r2),#2000		; .<....
015302: 001416              		beq	15340			; ..
015304: 016700 062554       		mov	100064,r0		; @.le
015310: 005267 062550       		inc	100064			; 7.he
015314: 111000              		movb	(r0),r0			; ..
015316: 010065 177760       		mov	r0,177760(r5)		; 5.p.
015322: 012765 000001 177756		mov	#1,177756(r5)		; u...n.
015330: 016465 000036 177754		mov	36(r4),177754(r5)	; 5...l.
015336: 000410              		br	15360			; ..
;
015340: 016465 000034 177760		mov	34(r4),177760(r5)	; 5...p.
015346: 016465 000036 177756		mov	36(r4),177756(r5)	; 5...n.
015354: 005065 177754       		clr	177754(r5)		; 5.l.
015360: 112767 000100 122434		movb	#100,w$cmd		; w.@..%
015366: 116467 000044 122424		movb	44(r4),w$dat		; 7.$..%
015374: 116467 000045 122416		movb	45(r4),w$dat		; 7.%..%
015402: 105067 122412       		clrb	w$dat			; 7..%
015406: 116567 177760 122404		movb	177760(r5),w$dat	; w.p..%
015414: 016400 000030       		mov	30(r4),r0		; ....
015420: 006200              		asr	r0			; ..
015422: 006200              		asr	r0			; ..
015424: 006200              		asr	r0			; ..
015426: 006200              		asr	r0			; ..
015430: 042700 177417       		bic	#177417,r0		; @E..
015434: 066400 000032       		add	32(r4),r0		; .m..
015440: 110067 122354       		movb	r0,w$dat		; 7.l$
015444: 116467 000030 122346		movb	30(r4),w$dat		; 7...f$
015452: 116567 177756 122340		movb	177756(r5),w$dat	; w.n.`$
015460: 012765 000004 177766		mov	#4,177766(r5)		; u...v.
015466: 000446              		br	15604			; &.
;
015470: 012767 000004 062526		mov	#4,100224		; w...Ve
015476: 012746 000124       		mov	#124,-(sp)		; f.T.
015502: 004767 175134       		call	put$udc			; w.\z
015506: 005726              		tst	(sp)+			; V.
015510: 005767 062510       		tst	100224			; w.He
015514: 001006              		bne	15532			; ..
015516: 005064 000040       		clr	40(r4)			; 4. .
015522: 012700 000101       		mov	#101,r0			; @.A.
015526: 000167 001060       		jmp	16612			; w.0.
;
015532: 005067 062466       		clr	100224			; 7.6e
015536: 012746 000044       		mov	#44,-(sp)		; f.$.
015542: 004767 027112       		call	$sleep			; w.J.
015546: 005726              		tst	(sp)+			; V.
015550: 010446              		mov	r4,-(sp)		; &.
015552: 012746 000002       		mov	#2,-(sp)		; f...
015556: 004767 175124       		call	get$udc			; w.Tz
015562: 022626              		cmp	(sp)+,(sp)+		; .%
015564: 010065 177762       		mov	r0,177762(r5)		; 5.r.
015570: 001404              		beq	15602			; ..
015572: 036527 177762 000100		bit	177762(r5),#100		; W=r.@.
015600: 001401              		beq	15604			; ..
015602: 000403              		br	15612			; ..
;
015604: 005365 177766       		dec	177766(r5)		; u.v.
015610: 002327              		bge	15470			; W.
015612: 005765 177762       		tst	177762(r5)		; u.r.
015616: 001402              		beq	15624			; ..
015620: 000167 000740       		jmp	16564			; w.`.
;
015624: 016567 177754 062346		mov	177754(r5),100200	; w.l.fd
015632: 036427 000024 000020		bit	24(r4),#20		; .=....
015640: 001002              		bne	15646			; ..
015642: 000167 000510       		jmp	16356			; w.H.
;
015646: 012767 177777 062372		mov	#177777,100246		; w...zd
015654: 005067 062150       		clr	100030			; 7.hd
015660: 016467 000044 072516		mov	44(r4),110404		; 7.$.Nu
015666: 016467 000016 072512		mov	16(r4),110406		; 7...Ju
015674: 016467 000020 072506		mov	20(r4),110410		; 7...Fu
015702: 016467 000042 072502		mov	42(r4),110412		; 7.".Bu
015710: 012746 100042       		mov	#dma,-(sp)		; f.".
015714: 004767 026320       		call	$acquire			; w.P,
015720: 005726              		tst	(sp)+			; V.
015722: 016467 000004 072434		mov	4(r4),110364		; 7....u
015730: 026727 072456 001000		cmp	110412,#1000		; W-.u..
015736: 002003              		bge	15746			; ..
015740: 016746 072446       		mov	110412,-(sp)		; f.&u
015744: 000402              		br	15752			; ..
;
015746: 012746 001000       		mov	#1000,-(sp)		; f...
015752: 016746 072426       		mov	110404,-(sp)		; f..u
015756: 016746 072426       		mov	110410,-(sp)		; f..u
015762: 016746 072420       		mov	110406,-(sp)		; f..u
015766: 004767 016616       		call	get.buffer			; w...
015772: 062706 000010       		add	#10,sp			; Fe..
015776: 010001              		mov	r0,r1			; ..
016000: 050164 000060       		bis	r1,60(r4)		; tP0.
016004: 062767 001000 072372		add	#1000,110404		; we..zt
016012: 062767 001000 072370		add	#1000,110410		; we..xt
016020: 005567 072362       		adc	110406			; w.rt
016024: 162767 001000 072360		sub	#1000,110412		; we..pt
016032: 036427 000042 000777		bit	42(r4),#777		; .="...
016040: 001424              		beq	16112			; ..
016042: 016401 000042       		mov	42(r4),r1		; ..".
016046: 042701 177000       		bic	#177000,r1		; AE.~
016052: 012700 001000       		mov	#1000,r0		; @...
016056: 160100              		sub	r1,r0			; @`
016060: 000241              		clc				; !.
016062: 006000              		ror	r0			; ..
016064: 010065 177764       		mov	r0,177764(r5)		; 5.t.
016070: 016403 000044       		mov	44(r4),r3		; ..$.
016074: 066403 000042       		add	42(r4),r3		; .m".
016100: 000401              		br	16104			; ..
;
016102: 005023              		clr	(r3)+			; ..
016104: 005365 177764       		dec	177764(r5)		; u.t.
016110: 002374              		bge	16102			; |.
016112: 112767 000112 121702		movb	#112,w$cmd		; w.J.B#
016120: 012767 000004 062076		mov	#4,100224		; w...>d
016126: 116767 062044 121666		movb	100176,w$cmd		; w.$d6#
016134: 005767 072252       		tst	110412			; w.*t
016140: 003463              		ble	16310			; 3.
016142: 026727 072244 001000		cmp	110412,#1000		; W-$t..
016150: 002003              		bge	16160			; ..
016152: 016746 072234       		mov	110412,-(sp)		; f..t
016156: 000402              		br	16164			; ..
;
016160: 012746 001000       		mov	#1000,-(sp)		; f...
016164: 016746 072214       		mov	110404,-(sp)		; f..t
016170: 016746 072214       		mov	110410,-(sp)		; f..t
016174: 016746 072206       		mov	110406,-(sp)		; f..t
016200: 004767 016404       		call	get.buffer			; w...
016204: 062706 000010       		add	#10,sp			; Fe..
016210: 010001              		mov	r0,r1			; ..
016212: 050164 000060       		bis	r1,60(r4)		; tP0.
016216: 062767 001000 072160		add	#1000,110404		; we..pt
016224: 062767 001000 072156		add	#1000,110410		; we..nt
016232: 005567 072150       		adc	110406			; w.ht
016236: 162767 001000 072146		sub	#1000,110412		; we..ft
016244: 005767 061776       		tst	100246			; w.~c
016250: 002414              		blt	16302			; ..
016252: 012746 100042       		mov	#dma,-(sp)		; f.".
016256: 004767 026052       		call	$release			; w.*,
016262: 005726              		tst	(sp)+			; V.
016264: 012746 100030       		mov	#100030,-(sp)		; f...
016270: 004767 026124       		call	$block			; w.T,
016274: 005726              		tst	(sp)+			; V.
016276: 000167 176732       		jmp	15234			; w.Z}
;
016302: 005367 061740       		dec	100246			; w.`c
016306: 000712              		br	16134			; J.
;
016310: 012746 100042       		mov	#dma,-(sp)		; f.".
016314: 004767 026014       		call	$release			; w..,
016320: 005726              		tst	(sp)+			; V.
016322: 012746 100030       		mov	#100030,-(sp)		; f...
016326: 004767 026066       		call	$block			; w.6,
016332: 005726              		tst	(sp)+			; V.
016334: 005767 061664       		tst	100224			; w.4c
016340: 001005              		bne	16354			; ..
016342: 005064 000040       		clr	40(r4)			; 4. .
016346: 012700 000101       		mov	#101,r0			; @.A.
016352: 000517              		br	16612			; O.
;
016354: 000420              		br	16416			; ..
;
016356: 012767 000004 061640		mov	#4,100224		; w... c
016364: 016746 061606       		mov	100176,-(sp)		; f..c
016370: 004767 174246       		call	put$udc			; w.&x
016374: 005726              		tst	(sp)+			; V.
016376: 005767 061622       		tst	100224			; w..c
016402: 001005              		bne	16416			; ..
016404: 005064 000040       		clr	40(r4)			; 4. .
016410: 012700 000101       		mov	#101,r0			; @.A.
016414: 000476              		br	16612			; >.
;
016416: 005067 061602       		clr	100224			; 7..c
016422: 012746 000003       		mov	#3,-(sp)		; f...
016426: 004767 026226       		call	$sleep			; w..,
016432: 005726              		tst	(sp)+			; V.
016434: 136727 121352 000030		bitb	r$cmd,#30		; W=j"..
016442: 001441              		beq	16546			; !.
016444: 010446              		mov	r4,-(sp)		; &.
016446: 012746 000002       		mov	#2,-(sp)		; f...
016452: 004767 174230       		call	get$udc			; w..x
016456: 022626              		cmp	(sp)+,(sp)+		; .%
016460: 010065 177762       		mov	r0,177762(r5)		; 5.r.
016464: 036227 000030 002000		bit	30(r2),#2000		; .<....
016472: 001407              		beq	16512			; ..
016474: 016400 000036       		mov	36(r4),r0		; ....
016500: 066700 061474       		add	100200,r0		; @m<c
016504: 010064 000040       		mov	r0,40(r4)		; 4. .
016510: 000411              		br	16534			; ..
;
016512: 112767 000103 121302		movb	#103,w$cmd		; w.C.B"
016520: 116700 121264       		movb	r$dat,r0		; @.4"
016524: 166400 000034       		sub	34(r4),r0		; .m..
016530: 010064 000040       		mov	r0,40(r4)		; 4. .
016534: 036527 177762 000100		bit	177762(r5),#100		; W=r.@.
016542: 001021              		bne	16606			; ..
016544: 000406              		br	16562			; ..
;
016546: 005065 177762       		clr	177762(r5)		; 5.r.
016552: 016464 000036 000040		mov	36(r4),40(r4)		; 4... .
016560: 000412              		br	16606			; ..
;
016562: 000404              		br	16574			; ..
;
016564: 036527 177762 000100		bit	177762(r5),#100		; W=r.@.
016572: 001005              		bne	16606			; ..
016574: 005365 177770       		dec	177770(r5)		; u.x.
016600: 002402              		blt	16606			; ..
016602: 000167 176460       		jmp	15266			; w.0}
;
016606: 016500 177762       		mov	177762(r5),r0		; @.r.
016612: 000167 060276       		jmp	cret$			; w.>`
;
				;	sd$tmo( )
				sd$tmo::
016616: 004567 060256       		jsr	r5,csv$			; w..`
016622: 012746 100046       		mov	#udc,-(sp)		; f.&.
016626: 004767 025406       		call	$acquire			; w..+
016632: 005726              		tst	(sp)+			; V.
016634: 005767 061366       		tst	100226			; w.vb
016640: 001406              		beq	16656			; ..
016642: 012746 000001       		mov	#1,-(sp)		; f...
016646: 004767 026006       		call	$sleep			; w..,
016652: 005726              		tst	(sp)+			; V.
016654: 000767              		br	16634			; w.
;
016656: 012746 000001       		mov	#1,-(sp)		; f...
016662: 004767 173754       		call	put$udc			; w.lw
016666: 005726              		tst	(sp)+			; V.
016670: 005067 061336       		clr	100232			; 7.^b
016674: 012746 100046       		mov	#udc,-(sp)		; f.&.
016700: 004767 025430       		call	$release			; w..+
016704: 005726              		tst	(sp)+			; V.
016706: 000167 060202       		jmp	cret$			; w..`
;
				;	mo$tmo( )
				mo$tmo::
016712: 004567 060162       		jsr	r5,csv$			; w.r`
016716: 012746 100046       		mov	#udc,-(sp)		; f.&.
016722: 004767 025312       		call	$acquire			; w.J*
016726: 005726              		tst	(sp)+			; V.
016730: 005767 061272       		tst	100226			; w.:b
016734: 001406              		beq	16752			; ..
016736: 012746 000001       		mov	#1,-(sp)		; f...
016742: 004767 025712       		call	$sleep			; w.J+
016746: 005726              		tst	(sp)+			; V.
016750: 000767              		br	16730			; w.
;
016752: 042767 000001 061226		bic	#1,100206		; wE...b
016760: 112767 000107 121034		movb	#107,w$cmd		; w.G.."
016766: 116767 061214 121024		movb	100206,w$dat		; w..b."
016774: 012746 000001       		mov	#1,-(sp)		; f...
017000: 004767 173636       		call	put$udc			; w..w
017004: 005726              		tst	(sp)+			; V.
017006: 005067 061220       		clr	100232			; 7..b
017012: 012746 100046       		mov	#udc,-(sp)		; f.&.
017016: 004767 025312       		call	$release			; w.J*
017022: 005726              		tst	(sp)+			; V.
017024: 000167 060064       		jmp	cret$			; w.4`
;
				;	cd$tmo( )
				cd$tmo::
017030: 004567 060044       		jsr	r5,csv$			; w.$`
017034: 105067 120762       		clrb	w$cmd			; 7.r!
017040: 112767 000107 120754		movb	#107,w$cmd		; w.G.l!
017046: 116767 061134 120744		movb	100206,w$dat		; w.\bd!
017054: 116767 061130 120736		movb	100210,w$dat		; w.Xb^!
017062: 116767 061124 120730		movb	100212,w$dat		; w.TbX!
017070: 116767 061136 120724		movb	100232,w$cmd		; w.^bT!
017076: 000167 060012       		jmp	cret$			; w..`
				;--------------------------------------------------------
				;
				;	File	cibbr.c
				;
				;
				;	get$rbn( tcb, lbn )
				get$rbn::
017102: 004567 057772       		jsr	r5,csv$			; w.z_
017106: 162706 000020       		sub	#20,sp			; Fe..
017112: 016504 000004       		mov	4(r5),r4		; D...
017116: 016402 000002       		mov	2(r4),r2		; ....
017122: 012764 177777 000050		mov	#177777,50(r4)		; t...(.
017130: 006764 000046       		sxt	46(r4)			; t.&.
017134: 012764 177777 000054		mov	#177777,54(r4)		; t...,.
017142: 006764 000052       		sxt	52(r4)			; t.*.
017146: 036227 000030 000020		bit	30(r2),#20		; .<....
017154: 001404              		beq	17166			; ..
017156: 012700 000005       		mov	#5,r0			; @...
017162: 000167 001170       		jmp	20356			; w.x.
;
017166: 016565 000010 177762		mov	10(r5),177762(r5)	; u...r.
017174: 016500 000006       		mov	6(r5),r0		; @...
017200: 042700 170000       		bic	#170000,r0		; @E.p
017204: 052700 030000       		bis	#30000,r0		; @U.0
017210: 010065 177760       		mov	r0,177760(r5)		; 5.p.
017214: 016246 000052       		mov	52(r2),-(sp)		; &.*.
017220: 016246 000050       		mov	50(r2),-(sp)		; &.(.
017224: 016246 000062       		mov	62(r2),-(sp)		; &.2.
017230: 016246 000060       		mov	60(r2),-(sp)		; &.0.
017234: 016546 000010       		mov	10(r5),-(sp)		; f...
017240: 016546 000006       		mov	6(r5),-(sp)		; f...
017244: 004767 057476       		call	76746			; w.>_
017250: 062706 000010       		add	#10,sp			; Fe..
017254: 010146              		mov	r1,-(sp)		; f.
017256: 010046              		mov	r0,-(sp)		; &.
017260: 004767 056660       		call	76144			; w.0]
017264: 062706 000010       		add	#10,sp			; Fe..
017270: 010165 177754       		mov	r1,177754(r5)		; u.l.
017274: 012746 000007       		mov	#7,-(sp)		; f...
017300: 016546 177754       		mov	177754(r5),-(sp)	; f.l.
017304: 004767 057074       		call	76404			; w.<^
017310: 022626              		cmp	(sp)+,(sp)+		; .%
017312: 062700 000002       		add	#2,r0			; @e..
017316: 010065 177756       		mov	r0,177756(r5)		; 5.n.
017322: 016500 177754       		mov	177754(r5),r0		; @.l.
017326: 042700 177600       		bic	#177600,r0		; @E..
017332: 006300              		asl	r0			; @.
017334: 010065 177752       		mov	r0,177752(r5)		; 5.j.
017340: 012746 126610       		mov	#126610,-(sp)		; f..-
017344: 016546 177756       		mov	177756(r5),-(sp)	; f.n.
017350: 010446              		mov	r4,-(sp)		; &.
017352: 004767 170042       		call	rd$rct			; w."p
017356: 062706 000006       		add	#6,sp			; Fe..
017362: 010065 177750       		mov	r0,177750(r5)		; 5.h.
017366: 001404              		beq	17400			; ..
017370: 016500 177750       		mov	177750(r5),r0		; @.h.
017374: 000167 000756       		jmp	20356			; w.n.
;
017400: 016503 177752       		mov	177752(r5),r3		; C.j.
017404: 006303              		asl	r3			; C.
017406: 062703 126610       		add	#126610,r3		; Ce.-
017412: 005763 000002       		tst	2(r3)			; s...
017416: 001010              		bne	17440			; ..
017420: 016564 177754 000054		mov	177754(r5),54(r4)	; t.l.,.
017426: 006764 000052       		sxt	52(r4)			; t.*.
017432: 005000              		clr	r0			; ..
017434: 000167 000716       		jmp	20356			; w.N.
;
017440: 021365 177762       		cmp	(r3),177762(r5)		; u"r.
017444: 001011              		bne	17470			; ..
017446: 026365 000002 177760		cmp	2(r3),177760(r5)	; u,..p.
017454: 001005              		bne	17470			; ..
017456: 016564 177754 000050		mov	177754(r5),50(r4)	; t.l.(.
017464: 006764 000046       		sxt	46(r4)			; t.&.
017470: 012765 000002 177770		mov	#2,177770(r5)		; u...x.
017476: 000167 000340       		jmp	20042			; w.`.
;
017502: 016500 177752       		mov	177752(r5),r0		; @.j.
017506: 066500 177770       		add	177770(r5),r0		; @mx.
017512: 010065 177766       		mov	r0,177766(r5)		; 5.v.
017516: 026527 177766 000376		cmp	177766(r5),#376		; W-v.~.
017524: 003054              		bgt	17656			; ,.
017526: 016503 177766       		mov	177766(r5),r3		; C.v.
017532: 006303              		asl	r3			; C.
017534: 062703 126610       		add	#126610,r3		; Ce.-
017540: 005763 000002       		tst	2(r3)			; s...
017544: 001014              		bne	17576			; ..
017546: 016500 177770       		mov	177770(r5),r0		; @.x.
017552: 006200              		asr	r0			; ..
017554: 066500 177754       		add	177754(r5),r0		; @ml.
017560: 010064 000054       		mov	r0,54(r4)		; 4.,.
017564: 006764 000052       		sxt	52(r4)			; t.*.
017570: 005000              		clr	r0			; ..
017572: 000167 000560       		jmp	20356			; w.p.
;
017576: 026327 000002 100000		cmp	2(r3),#100000		; W,....
017604: 001004              		bne	17616			; ..
017606: 012765 000002 177764		mov	#2,177764(r5)		; u...t.
017614: 000523              		br	20064			; S.
;
017616: 021365 177762       		cmp	(r3),177762(r5)		; u"r.
017622: 001015              		bne	17656			; ..
017624: 026365 000002 177760		cmp	2(r3),177760(r5)	; u,..p.
017632: 001011              		bne	17656			; ..
017634: 016500 177770       		mov	177770(r5),r0		; @.x.
017640: 006200              		asr	r0			; ..
017642: 066500 177754       		add	177754(r5),r0		; @ml.
017646: 010064 000050       		mov	r0,50(r4)		; 4.(.
017652: 006764 000046       		sxt	46(r4)			; t.&.
017656: 016500 177752       		mov	177752(r5),r0		; @.j.
017662: 166500 177770       		sub	177770(r5),r0		; @mx.
017666: 010065 177766       		mov	r0,177766(r5)		; 5.v.
017672: 005765 177766       		tst	177766(r5)		; u.v.
017676: 002456              		blt	20034			; ..
017700: 016503 177766       		mov	177766(r5),r3		; C.v.
017704: 006303              		asl	r3			; C.
017706: 062703 126610       		add	#126610,r3		; Ce.-
017712: 005763 000002       		tst	2(r3)			; s...
017716: 001015              		bne	17752			; ..
017720: 016501 177770       		mov	177770(r5),r1		; A.x.
017724: 006201              		asr	r1			; ..
017726: 016500 177754       		mov	177754(r5),r0		; @.l.
017732: 160100              		sub	r1,r0			; @`
017734: 010064 000054       		mov	r0,54(r4)		; 4.,.
017740: 006764 000052       		sxt	52(r4)			; t.*.
017744: 005000              		clr	r0			; ..
017746: 000167 000404       		jmp	20356			; w...
;
017752: 026327 000002 100000		cmp	2(r3),#100000		; W,....
017760: 001004              		bne	17772			; ..
017762: 012765 000002 177764		mov	#2,177764(r5)		; u...t.
017770: 000435              		br	20064			; ..
;
017772: 021365 177762       		cmp	(r3),177762(r5)		; u"r.
017776: 001016              		bne	20034			; ..
020000: 026365 000002 177760		cmp	2(r3),177760(r5)	; u,..p.
020006: 001012              		bne	20034			; ..
020010: 016501 177770       		mov	177770(r5),r1		; A.x.
020014: 006201              		asr	r1			; ..
020016: 016500 177754       		mov	177754(r5),r0		; @.l.
020022: 160100              		sub	r1,r0			; @`
020024: 010064 000050       		mov	r0,50(r4)		; 4.(.
020030: 006764 000046       		sxt	46(r4)			; t.&.
020034: 062765 000002 177770		add	#2,177770(r5)		; ue..x.
020042: 026527 177770 000400		cmp	177770(r5),#400		; W-x...
020050: 002614              		blt	17502			; ..
020052: 016500 177756       		mov	177756(r5),r0		; @.n.
020056: 005200              		inc	r0			; ..
020060: 010065 177764       		mov	r0,177764(r5)		; 5.t.
020064: 016565 177764 177770		mov	177764(r5),177770(r5)	; u.t.x.
020072: 012746 126610       		mov	#126610,-(sp)		; f..-
020076: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
020102: 010446              		mov	r4,-(sp)		; &.
020104: 004767 167310       		call	rd$rct			; w.Hn
020110: 062706 000006       		add	#6,sp			; Fe..
020114: 010065 177750       		mov	r0,177750(r5)		; 5.h.
020120: 001403              		beq	20130			; ..
020122: 016500 177750       		mov	177750(r5),r0		; @.h.
020126: 000513              		br	20356			; K.
;
020130: 005065 177766       		clr	177766(r5)		; 5.v.
020134: 000501              		br	20340			; A.
;
020136: 026565 177770 177756		cmp	177770(r5),177756(r5)	; u-x.n.
020144: 001007              		bne	20164			; ..
020146: 026565 177766 177752		cmp	177766(r5),177752(r5)	; u-v.j.
020154: 001003              		bne	20164			; ..
020156: 012700 000005       		mov	#5,r0			; @...
020162: 000475              		br	20356			; =.
;
020164: 016503 177766       		mov	177766(r5),r3		; C.v.
020170: 006303              		asl	r3			; C.
020172: 062703 126610       		add	#126610,r3		; Ce.-
020176: 005763 000002       		tst	2(r3)			; s...
020202: 001017              		bne	20242			; ..
020204: 016500 177770       		mov	177770(r5),r0		; @.x.
020210: 162700 000002       		sub	#2,r0			; @e..
020214: 000300              		swab	r0			; @.
020216: 105000              		clrb	r0			; ..
020220: 066500 177766       		add	177766(r5),r0		; @mv.
020224: 006200              		asr	r0			; ..
020226: 010064 000054       		mov	r0,54(r4)		; 4.,.
020232: 006764 000052       		sxt	52(r4)			; t.*.
020236: 005000              		clr	r0			; ..
020240: 000446              		br	20356			; &.
;
020242: 026327 000002 100000		cmp	2(r3),#100000		; W,....
020250: 001004              		bne	20262			; ..
020252: 012765 000002 177764		mov	#2,177764(r5)		; u...t.
020260: 000701              		br	20064			; A.
;
020262: 021365 177762       		cmp	(r3),177762(r5)		; u"r.
020266: 001021              		bne	20332			; ..
020270: 026365 000002 177760		cmp	2(r3),177760(r5)	; u,..p.
020276: 001015              		bne	20332			; ..
020300: 016500 177770       		mov	177770(r5),r0		; @.x.
020304: 162700 000002       		sub	#2,r0			; @e..
020310: 000300              		swab	r0			; @.
020312: 105000              		clrb	r0			; ..
020314: 066500 177766       		add	177766(r5),r0		; @mv.
020320: 006200              		asr	r0			; ..
020322: 010064 000050       		mov	r0,50(r4)		; 4.(.
020326: 006764 000046       		sxt	46(r4)			; t.&.
020332: 062765 000002 177766		add	#2,177766(r5)		; ue..v.
020340: 026527 177766 000400		cmp	177766(r5),#400		; W-v...
020346: 002673              		blt	20136			; ;.
020350: 005265 177770       		inc	177770(r5)		; 5.x.
020354: 000646              		br	20072			; &.
;
020356: 000167 056532       		jmp	cret$			; w.Z]
				;
				;	put$rbn( tcb, lbn, flag )
				;
				put$rbn::
020362: 004567 056512       		jsr	r5,csv$			; w.J]
020366: 162706 000022       		sub	#22,sp			; Fe..
020372: 016504 000004       		mov	4(r5),r4		; D...
020376: 012765 177777 177762		mov	#177777,177762(r5)	; u...r.
020404: 012765 177777 177754		mov	#177777,177754(r5)	; u...l.
020412: 016402 000002       		mov	2(r4),r2		; ....
020416: 036227 000030 000020		bit	30(r2),#20		; .<....
020424: 001403              		beq	20434			; ..
020426: 005000              		clr	r0			; ..
020430: 000167 003556       		jmp	24212			; w.n.
;
020434: 005765 000006       		tst	6(r5)			; u...
020440: 002407              		blt	20460			; ..
020442: 036227 000012 030000		bit	12(r2),#30000		; .<...0
020450: 001402              		beq	20456			; ..
020452: 000167 003530       		jmp	24206			; w.X.
;
020456: 000570              		br	21040			; x.
;
020460: 012746 124600       		mov	#124600,-(sp)		; f..)
020464: 005046              		clr	-(sp)			; &.
020466: 010446              		mov	r4,-(sp)		; &.
020470: 004767 166724       		call	rd$rct			; w.Tm
020474: 062706 000006       		add	#6,sp			; Fe..
020500: 010065 177764       		mov	r0,177764(r5)		; 5.t.
020504: 001402              		beq	20512			; ..
020506: 000167 003424       		jmp	24136			; w...
;
020512: 036227 000012 030000		bit	12(r2),#30000		; .<...0
020520: 001402              		beq	20526			; ..
020522: 000167 003010       		jmp	23536			; w...
;
020526: 012746 124600       		mov	#124600,-(sp)		; f..)
020532: 005046              		clr	-(sp)			; &.
020534: 010446              		mov	r4,-(sp)		; &.
020536: 004767 167176       		call	wr$rct			; w.~n
020542: 062706 000006       		add	#6,sp			; Fe..
020546: 010065 177764       		mov	r0,177764(r5)		; 5.t.
020552: 001402              		beq	20560			; ..
020554: 000167 003356       		jmp	24136			; w.n.
;
020560: 012746 125604       		mov	#125604,-(sp)		; f..+
020564: 012746 000001       		mov	#1,-(sp)		; f...
020570: 010446              		mov	r4,-(sp)		; &.
020572: 004767 166622       		call	rd$rct			; w..m
020576: 062706 000006       		add	#6,sp			; Fe..
020602: 012746 125604       		mov	#125604,-(sp)		; f..+
020606: 012746 000001       		mov	#1,-(sp)		; f...
020612: 010446              		mov	r4,-(sp)		; &.
020614: 004767 167120       		call	wr$rct			; w.Pn
020620: 062706 000006       		add	#6,sp			; Fe..
020624: 016700 103760       		mov	124610,r0		; @.p.
020630: 042700 177577       		bic	#177577,r0		; @E..
020634: 010065 177766       		mov	r0,177766(r5)		; 5.v.
020640: 016765 103750 000010		mov	124614,10(r5)		; u.h...
020646: 016765 103744 000006		mov	124616,6(r5)		; u.d...
020654: 016765 103740 177754		mov	124620,177754(r5)	; u.`.l.
020662: 016765 103736 177762		mov	124624,177762(r5)	; u.^.r.
020670: 016564 177754 000054		mov	177754(r5),54(r4)	; t.l.,.
020676: 006764 000052       		sxt	52(r4)			; t.*.
020702: 016564 177762 000050		mov	177762(r5),50(r4)	; t.r.(.
020710: 006764 000046       		sxt	46(r4)			; t.&.
020714: 036727 103670 100000		bit	124610,#100000		; W=8...
020722: 001420              		beq	20764			; ..
020724: 012746 125604       		mov	#125604,-(sp)		; f..+
020730: 012746 000001       		mov	#1,-(sp)		; f...
020734: 010446              		mov	r4,-(sp)		; &.
020736: 004767 166456       		call	rd$rct			; w..m
020742: 062706 000006       		add	#6,sp			; Fe..
020746: 010065 177764       		mov	r0,177764(r5)		; 5.t.
020752: 001402              		beq	20760			; ..
020754: 000167 003156       		jmp	24136			; w.n.
;
020760: 000167 000376       		jmp	21362			; w.~.
;
020764: 036727 103620 040000		bit	124610,#40000		; W=...@
020772: 001420              		beq	21034			; ..
020774: 012746 125604       		mov	#125604,-(sp)		; f..+
021000: 012746 000001       		mov	#1,-(sp)		; f...
021004: 010446              		mov	r4,-(sp)		; &.
021006: 004767 166406       		call	rd$rct			; w..m
021012: 062706 000006       		add	#6,sp			; Fe..
021016: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021022: 001402              		beq	21030			; ..
021024: 000167 003106       		jmp	24136			; w.F.
;
021030: 000167 001364       		jmp	22420			; w.t.
;
021034: 000167 002476       		jmp	23536			; w.>.
;
021040: 005065 177770       		clr	177770(r5)		; 5.x.
021044: 000407              		br	21064			; ..
;
021046: 012700 125604       		mov	#125604,r0		; @..+
021052: 066500 177770       		add	177770(r5),r0		; @mx.
021056: 105010              		clrb	(r0)			; ..
021060: 005265 177770       		inc	177770(r5)		; 5.x.
021064: 026527 177770 001000		cmp	177770(r5),#1000	; W-x...
021072: 002765              		blt	21046			; u.
021074: 005064 000026       		clr	26(r4)			; 4...
021100: 016501 000010       		mov	10(r5),r1		; A...
021104: 016500 000006       		mov	6(r5),r0		; @...
021110: 066201 000046       		add	46(r2),r1		; .l&.
021114: 005500              		adc	r0			; @.
021116: 066200 000044       		add	44(r2),r0		; .l$.
021122: 010064 000006       		mov	r0,6(r4)		; 4...
021126: 010164 000010       		mov	r1,10(r4)		; t...
021132: 012764 100000 000024		mov	#100000,24(r4)		; t.....
021140: 012746 001000       		mov	#1000,-(sp)		; f...
021144: 012746 125604       		mov	#125604,-(sp)		; f..+
021150: 010446              		mov	r4,-(sp)		; &.
021152: 004767 167146       		call	fill$tcb			; w.fn
021156: 062706 000006       		add	#6,sp			; Fe..
021162: 010446              		mov	r4,-(sp)		; &.
021164: 004767 015660       		call	read			; w.0.
021170: 005726              		tst	(sp)+			; V.
021172: 010065 177766       		mov	r0,177766(r5)		; 5.v.
021176: 012746 125604       		mov	#125604,-(sp)		; f..+
021202: 012746 000001       		mov	#1,-(sp)		; f...
021206: 010446              		mov	r4,-(sp)		; &.
021210: 004767 166524       		call	wr$rct			; w.Tm
021214: 062706 000006       		add	#6,sp			; Fe..
021220: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021224: 001402              		beq	21232			; ..
021226: 000167 002704       		jmp	24136			; w.D.
;
021232: 012746 124600       		mov	#124600,-(sp)		; f..)
021236: 005046              		clr	-(sp)			; &.
021240: 010446              		mov	r4,-(sp)		; &.
021242: 004767 166152       		call	rd$rct			; w.jl
021246: 062706 000006       		add	#6,sp			; Fe..
021252: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021256: 001402              		beq	21264			; ..
021260: 000167 002574       		jmp	24060			; w.|.
;
021264: 042767 170200 103316		bic	#170200,124610		; wE.pN.
021272: 052767 100000 103310		bis	#100000,124610		; wU..H.
021300: 005765 177766       		tst	177766(r5)		; u.v.
021304: 001403              		beq	21314			; ..
021306: 052767 000200 103274		bis	#200,124610		; wU..<.
021314: 016567 000010 103272		mov	10(r5),124614		; w...:.
021322: 016567 000006 103266		mov	6(r5),124616		; w...6.
021330: 012746 124600       		mov	#124600,-(sp)		; f..)
021334: 005046              		clr	-(sp)			; &.
021336: 010446              		mov	r4,-(sp)		; &.
021340: 004767 166374       		call	wr$rct			; w.|l
021344: 062706 000006       		add	#6,sp			; Fe..
021350: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021354: 001402              		beq	21362			; ..
021356: 000167 002554       		jmp	24136			; w.l.
;
021362: 005765 000012       		tst	12(r5)			; u...
021366: 001402              		beq	21374			; ..
021370: 000167 000646       		jmp	22242			; w.&.
;
021374: 012764 001400 000026		mov	#1400,26(r4)		; t.....
021402: 016501 000010       		mov	10(r5),r1		; A...
021406: 016500 000006       		mov	6(r5),r0		; @...
021412: 066201 000046       		add	46(r2),r1		; .l&.
021416: 005500              		adc	r0			; @.
021420: 066200 000044       		add	44(r2),r0		; .l$.
021424: 010064 000006       		mov	r0,6(r4)		; 4...
021430: 010164 000010       		mov	r1,10(r4)		; t...
021434: 012764 100000 000024		mov	#100000,24(r4)		; t.....
021442: 012746 001000       		mov	#1000,-(sp)		; f...
021446: 012746 132604       		mov	#132604,-(sp)		; f..5
021452: 010446              		mov	r4,-(sp)		; &.
021454: 004767 166644       		call	fill$tcb			; w.$m
021460: 062706 000006       		add	#6,sp			; Fe..
021464: 012703 132604       		mov	#132604,r3		; C..5
021470: 012765 000200 177770		mov	#200,177770(r5)		; u...x.
021476: 000404              		br	21510			; ..
;
021500: 012723 133333       		mov	#133333,(r3)+		; S.[6
021504: 012723 165555       		mov	#165555,(r3)+		; S.mk
021510: 005365 177770       		dec	177770(r5)		; u.x.
021514: 002371              		bge	21500			; y.
021516: 010446              		mov	r4,-(sp)		; &.
021520: 004767 015354       		call	write			; w.l.
021524: 005726              		tst	(sp)+			; V.
021526: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021532: 001402              		beq	21540			; ..
021534: 000167 000502       		jmp	22242			; w.B.
;
021540: 010446              		mov	r4,-(sp)		; &.
021542: 004767 015302       		call	read			; w.B.
021546: 005726              		tst	(sp)+			; V.
021550: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021554: 001402              		beq	21562			; ..
021556: 000167 000460       		jmp	22242			; w.0.
;
021562: 012703 132604       		mov	#132604,r3		; C..5
021566: 012765 000200 177770		mov	#200,177770(r5)		; u...x.
021574: 000412              		br	21622			; ..
;
021576: 022327 133333       		cmp	(r3)+,#133333		; W$[6
021602: 001402              		beq	21610			; ..
021604: 000167 000432       		jmp	22242			; w...
;
021610: 022327 165555       		cmp	(r3)+,#165555		; W$mk
021614: 001402              		beq	21622			; ..
021616: 000167 000420       		jmp	22242			; w...
;
021622: 005365 177770       		dec	177770(r5)		; u.x.
021626: 002363              		bge	21576			; s.
021630: 012703 132604       		mov	#132604,r3		; C..5
021634: 012765 000200 177770		mov	#200,177770(r5)		; u...x.
021642: 000404              		br	21654			; ..
;
021644: 012723 044444       		mov	#44444,(r3)+		; S.$I
021650: 012723 012222       		mov	#12222,(r3)+		; S...
021654: 005365 177770       		dec	177770(r5)		; u.x.
021660: 002371              		bge	21644			; y.
021662: 010446              		mov	r4,-(sp)		; &.
021664: 004767 015210       		call	write			; w...
021670: 005726              		tst	(sp)+			; V.
021672: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021676: 001402              		beq	21704			; ..
021700: 000167 000336       		jmp	22242			; w.^.
;
021704: 010446              		mov	r4,-(sp)		; &.
021706: 004767 015136       		call	read			; w.^.
021712: 005726              		tst	(sp)+			; V.
021714: 010065 177764       		mov	r0,177764(r5)		; 5.t.
021720: 001402              		beq	21726			; ..
021722: 000167 000314       		jmp	22242			; w.L.
;
021726: 012703 132604       		mov	#132604,r3		; C..5
021732: 012765 000200 177770		mov	#200,177770(r5)		; u...x.
021740: 000406              		br	21756			; ..
;
021742: 022327 044444       		cmp	(r3)+,#44444		; W$$I
021746: 001135              		bne	22242			; ].
021750: 022327 012222       		cmp	(r3)+,#12222		; W$..
021754: 001132              		bne	22242			; Z.
021756: 005365 177770       		dec	177770(r5)		; u.x.
021762: 002367              		bge	21742			; w.
021764: 005765 177766       		tst	177766(r5)		; u.v.
021770: 001403              		beq	22000			; ..
021772: 012700 011400       		mov	#11400,r0		; @...
021776: 000402              		br	22004			; ..
;
022000: 012700 001400       		mov	#1400,r0		; @...
022004: 010064 000026       		mov	r0,26(r4)		; 4...
022010: 016501 000010       		mov	10(r5),r1		; A...
022014: 016500 000006       		mov	6(r5),r0		; @...
022020: 066201 000046       		add	46(r2),r1		; .l&.
022024: 005500              		adc	r0			; @.
022026: 066200 000044       		add	44(r2),r0		; .l$.
022032: 010064 000006       		mov	r0,6(r4)		; 4...
022036: 010164 000010       		mov	r1,10(r4)		; t...
022042: 012764 100000 000024		mov	#100000,24(r4)		; t.....
022050: 012746 001000       		mov	#1000,-(sp)		; f...
022054: 012746 125604       		mov	#125604,-(sp)		; f..+
022060: 010446              		mov	r4,-(sp)		; &.
022062: 004767 166236       		call	fill$tcb			; w..l
022066: 062706 000006       		add	#6,sp			; Fe..
022072: 010446              		mov	r4,-(sp)		; &.
022074: 004767 015000       		call	write			; w...
022100: 005726              		tst	(sp)+			; V.
022102: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022106: 001055              		bne	22242			; -.
022110: 012746 001000       		mov	#1000,-(sp)		; f...
022114: 012746 132604       		mov	#132604,-(sp)		; f..5
022120: 010446              		mov	r4,-(sp)		; &.
022122: 004767 166176       		call	fill$tcb			; w.~l
022126: 062706 000006       		add	#6,sp			; Fe..
022132: 010446              		mov	r4,-(sp)		; &.
022134: 004767 014710       		call	read			; w.H.
022140: 005726              		tst	(sp)+			; V.
022142: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022146: 001410              		beq	22170			; ..
022150: 036527 177764 000002		bit	177764(r5),#2		; W=t...
022156: 001403              		beq	22166			; ..
022160: 005765 177766       		tst	177766(r5)		; u.v.
022164: 001001              		bne	22170			; ..
022166: 000425              		br	22242			; ..
;
022170: 012765 125604 177746		mov	#125604,177746(r5)	; u..+f.
022176: 012703 132604       		mov	#132604,r3		; C..5
022202: 012765 000400 177770		mov	#400,177770(r5)		; u...x.
022210: 000407              		br	22230			; ..
;
022212: 016500 177746       		mov	177746(r5),r0		; @.f.
022216: 062765 000002 177746		add	#2,177746(r5)		; ue..f.
022224: 021023              		cmp	(r0),(r3)+		; ."
022226: 001005              		bne	22242			; ..
022230: 005365 177770       		dec	177770(r5)		; u.x.
022234: 002366              		bge	22212			; v.
022236: 000167 001140       		jmp	23402			; w.`.
;
022242: 016546 000010       		mov	10(r5),-(sp)		; f...
022246: 016546 000006       		mov	6(r5),-(sp)		; f...
022252: 010446              		mov	r4,-(sp)		; &.
022254: 004767 174622       		call	get$rbn			; w..y
022260: 062706 000006       		add	#6,sp			; Fe..
022264: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022270: 001402              		beq	22276			; ..
022272: 000167 001446       		jmp	23744			; w.&.
;
022276: 016465 000054 177754		mov	54(r4),177754(r5)	; 5.,.l.
022304: 016465 000050 177762		mov	50(r4),177762(r5)	; 5.(.r.
022312: 042767 170000 102270		bic	#170000,124610		; wE.p8.
022320: 052767 040000 102262		bis	#40000,124610		; wU.@2.
022326: 005765 177762       		tst	177762(r5)		; u.r.
022332: 002403              		blt	22342			; ..
022334: 052767 020000 102246		bis	#20000,124610		; wU. &.
022342: 016567 177754 102250		mov	177754(r5),124620	; w.l.(.
022350: 005067 102246       		clr	124622			; 7.&.
022354: 016567 177762 102242		mov	177762(r5),124624	; w.r.".
022362: 005067 102240       		clr	124626			; 7. .
022366: 012746 124600       		mov	#124600,-(sp)		; f..)
022372: 005046              		clr	-(sp)			; &.
022374: 010446              		mov	r4,-(sp)		; &.
022376: 004767 165336       		call	wr$rct			; w.^j
022402: 062706 000006       		add	#6,sp			; Fe..
022406: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022412: 001402              		beq	22420			; ..
022414: 000167 001324       		jmp	23744			; w.T.
;
022420: 012746 000007       		mov	#7,-(sp)		; f...
022424: 016546 177754       		mov	177754(r5),-(sp)	; f.l.
022430: 004767 053750       		call	76404			; w.hW
022434: 022626              		cmp	(sp)+,(sp)+		; .%
022436: 062700 000002       		add	#2,r0			; @e..
022442: 010065 177752       		mov	r0,177752(r5)		; 5.j.
022446: 016500 177754       		mov	177754(r5),r0		; @.l.
022452: 042700 177600       		bic	#177600,r0		; @E..
022456: 006300              		asl	r0			; @.
022460: 010065 177750       		mov	r0,177750(r5)		; 5.h.
022464: 012746 126610       		mov	#126610,-(sp)		; f..-
022470: 016546 177752       		mov	177752(r5),-(sp)	; f.j.
022474: 010446              		mov	r4,-(sp)		; &.
022476: 004767 164716       		call	rd$rct			; w.Ni
022502: 062706 000006       		add	#6,sp			; Fe..
022506: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022512: 001402              		beq	22520			; ..
022514: 000167 001224       		jmp	23744			; w...
;
022520: 016500 177750       		mov	177750(r5),r0		; @.h.
022524: 006300              		asl	r0			; @.
022526: 062700 126610       		add	#126610,r0		; @e.-
022532: 016510 000010       		mov	10(r5),(r0)		; H...
022536: 016546 000006       		mov	6(r5),-(sp)		; f...
022542: 042716 170000       		bic	#170000,(sp)		; NE.p
022546: 052716 030000       		bis	#30000,(sp)		; NU.0
022552: 016500 177750       		mov	177750(r5),r0		; @.h.
022556: 005200              		inc	r0			; ..
022560: 006300              		asl	r0			; @.
022562: 062700 126610       		add	#126610,r0		; @e.-
022566: 012610              		mov	(sp)+,(r0)		; ..
022570: 005765 177762       		tst	177762(r5)		; u.r.
022574: 002517              		blt	23034			; O.
022576: 012746 000007       		mov	#7,-(sp)		; f...
022602: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
022606: 004767 053572       		call	76404			; w.zW
022612: 022626              		cmp	(sp)+,(sp)+		; .%
022614: 062700 000002       		add	#2,r0			; @e..
022620: 010065 177760       		mov	r0,177760(r5)		; 5.p.
022624: 016500 177762       		mov	177762(r5),r0		; @.r.
022630: 042700 177600       		bic	#177600,r0		; @E..
022634: 006300              		asl	r0			; @.
022636: 010065 177756       		mov	r0,177756(r5)		; 5.n.
022642: 026565 177760 177752		cmp	177760(r5),177752(r5)	; u-p.j.
022650: 001453              		beq	23000			; +.
022652: 012746 127614       		mov	#127614,-(sp)		; f../
022656: 016546 177760       		mov	177760(r5),-(sp)	; f.p.
022662: 010446              		mov	r4,-(sp)		; &.
022664: 004767 164530       		call	rd$rct			; w.Xi
022670: 062706 000006       		add	#6,sp			; Fe..
022674: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022700: 001402              		beq	22706			; ..
022702: 000167 001036       		jmp	23744			; w...
;
022706: 016500 177756       		mov	177756(r5),r0		; @.n.
022712: 006300              		asl	r0			; @.
022714: 062700 127614       		add	#127614,r0		; @e./
022720: 005010              		clr	(r0)			; ..
022722: 016500 177756       		mov	177756(r5),r0		; @.n.
022726: 005200              		inc	r0			; ..
022730: 006300              		asl	r0			; @.
022732: 062700 127614       		add	#127614,r0		; @e./
022736: 012710 040000       		mov	#40000,(r0)		; H..@
022742: 012746 127614       		mov	#127614,-(sp)		; f../
022746: 016546 177760       		mov	177760(r5),-(sp)	; f.p.
022752: 010446              		mov	r4,-(sp)		; &.
022754: 004767 164760       		call	wr$rct			; w.pi
022760: 062706 000006       		add	#6,sp			; Fe..
022764: 010065 177764       		mov	r0,177764(r5)		; 5.t.
022770: 001402              		beq	22776			; ..
022772: 000167 000560       		jmp	23556			; w.p.
;
022776: 000416              		br	23034			; ..
;
023000: 016500 177756       		mov	177756(r5),r0		; @.n.
023004: 006300              		asl	r0			; @.
023006: 062700 126610       		add	#126610,r0		; @e.-
023012: 005010              		clr	(r0)			; ..
023014: 016500 177756       		mov	177756(r5),r0		; @.n.
023020: 005200              		inc	r0			; ..
023022: 006300              		asl	r0			; @.
023024: 062700 126610       		add	#126610,r0		; @e.-
023030: 012710 040000       		mov	#40000,(r0)		; H..@
023034: 012746 126610       		mov	#126610,-(sp)		; f..-
023040: 016546 177752       		mov	177752(r5),-(sp)	; f.j.
023044: 010446              		mov	r4,-(sp)		; &.
023046: 004767 164666       		call	wr$rct			; w.6i
023052: 062706 000006       		add	#6,sp			; Fe..
023056: 010065 177764       		mov	r0,177764(r5)		; 5.t.
023062: 001402              		beq	23070			; ..
023064: 000167 000562       		jmp	23652			; w.r.
;
023070: 005765 177766       		tst	177766(r5)		; u.v.
023074: 001403              		beq	23104			; ..
023076: 012700 010000       		mov	#10000,r0		; @...
023102: 000401              		br	23106			; ..
;
023104: 005000              		clr	r0			; ..
023106: 010064 000026       		mov	r0,26(r4)		; 4...
023112: 016501 177754       		mov	177754(r5),r1		; A.l.
023116: 006700              		sxt	r0			; @.
023120: 066201 000056       		add	56(r2),r1		; .l..
023124: 005500              		adc	r0			; @.
023126: 066200 000054       		add	54(r2),r0		; .l,.
023132: 010064 000006       		mov	r0,6(r4)		; 4...
023136: 010164 000010       		mov	r1,10(r4)		; t...
023142: 012764 100000 000024		mov	#100000,24(r4)		; t.....
023150: 012746 001000       		mov	#1000,-(sp)		; f...
023154: 012746 125604       		mov	#125604,-(sp)		; f..+
023160: 010446              		mov	r4,-(sp)		; &.
023162: 004767 165136       		call	fill$tcb			; w.^j
023166: 062706 000006       		add	#6,sp			; Fe..
023172: 010446              		mov	r4,-(sp)		; &.
023174: 004767 013700       		call	write			; w.@.
023200: 005726              		tst	(sp)+			; V.
023202: 010065 177764       		mov	r0,177764(r5)		; 5.t.
023206: 001402              		beq	23214			; ..
023210: 000167 177026       		jmp	22242			; w..~
;
023214: 012746 001000       		mov	#1000,-(sp)		; f...
023220: 012746 132604       		mov	#132604,-(sp)		; f..5
023224: 010446              		mov	r4,-(sp)		; &.
023226: 004767 165072       		call	fill$tcb			; w.:j
023232: 062706 000006       		add	#6,sp			; Fe..
023236: 010446              		mov	r4,-(sp)		; &.
023240: 004767 013604       		call	read			; w...
023244: 005726              		tst	(sp)+			; V.
023246: 010065 177764       		mov	r0,177764(r5)		; 5.t.
023252: 001411              		beq	23276			; ..
023254: 036527 177764 000002		bit	177764(r5),#2		; W=t...
023262: 001403              		beq	23272			; ..
023264: 005765 177766       		tst	177766(r5)		; u.v.
023270: 001002              		bne	23276			; ..
023272: 000167 176744       		jmp	22242			; w.d}
;
023276: 012765 125604 177746		mov	#125604,177746(r5)	; u..+f.
023304: 012703 132604       		mov	#132604,r3		; C..5
023310: 012765 000400 177770		mov	#400,177770(r5)		; u...x.
023316: 000411              		br	23342			; ..
;
023320: 016500 177746       		mov	177746(r5),r0		; @.f.
023324: 062765 000002 177746		add	#2,177746(r5)		; ue..f.
023332: 021023              		cmp	(r0),(r3)+		; ."
023334: 001402              		beq	23342			; ..
023336: 000167 176700       		jmp	22242			; w.@}
;
023342: 005365 177770       		dec	177770(r5)		; u.x.
023346: 002364              		bge	23320			; t.
023350: 016546 000010       		mov	10(r5),-(sp)		; f...
023354: 016546 000006       		mov	6(r5),-(sp)		; f...
023360: 010446              		mov	r4,-(sp)		; &.
023362: 004767 000630       		call	replace			; w...
023366: 062706 000006       		add	#6,sp			; Fe..
023372: 005700              		tst	r0			; @.
023374: 001402              		beq	23402			; ..
023376: 000167 000534       		jmp	24136			; w.\.
;
023402: 042767 170200 101200		bic	#170200,124610		; wE.p..
023410: 005067 101200       		clr	124614			; 7...
023414: 005067 101176       		clr	124616			; 7.~.
023420: 005067 101174       		clr	124620			; 7.|.
023424: 005067 101172       		clr	124622			; 7.z.
023430: 005067 101170       		clr	124624			; 7.x.
023434: 005067 101166       		clr	124626			; 7.v.
023440: 012746 124600       		mov	#124600,-(sp)		; f..)
023444: 005046              		clr	-(sp)			; &.
023446: 010446              		mov	r4,-(sp)		; &.
023450: 004767 164264       		call	wr$rct			; w.4h
023454: 062706 000006       		add	#6,sp			; Fe..
023460: 010065 177764       		mov	r0,177764(r5)		; 5.t.
023464: 001402              		beq	23472			; ..
023466: 000167 000366       		jmp	24060			; w.v.
;
023472: 005765 177754       		tst	177754(r5)		; u.l.
023476: 002403              		blt	23506			; ..
023500: 012746 000001       		mov	#1,-(sp)		; f...
023504: 000401              		br	23510			; ..
;
023506: 005046              		clr	-(sp)			; &.
023510: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
023514: 016546 000010       		mov	10(r5),-(sp)		; f...
023520: 016546 000006       		mov	6(r5),-(sp)		; f...
023524: 010446              		mov	r4,-(sp)		; &.
023526: 004767 022332       		call	do$bbr			; w.Z$
023532: 062706 000012       		add	#12,sp			; Fe..
023536: 016564 177754 000050		mov	177754(r5),50(r4)	; t.l.(.
023544: 006764 000046       		sxt	46(r4)			; t.&.
023550: 005000              		clr	r0			; ..
023552: 000167 000434       		jmp	24212			; w...
;
023556: 016500 177756       		mov	177756(r5),r0		; @.n.
023562: 006300              		asl	r0			; @.
023564: 062700 127614       		add	#127614,r0		; @e./
023570: 016510 000010       		mov	10(r5),(r0)		; H...
023574: 016546 000006       		mov	6(r5),-(sp)		; f...
023600: 042716 170000       		bic	#170000,(sp)		; NE.p
023604: 052716 030000       		bis	#30000,(sp)		; NU.0
023610: 016500 177756       		mov	177756(r5),r0		; @.n.
023614: 005200              		inc	r0			; ..
023616: 006300              		asl	r0			; @.
023620: 062700 127614       		add	#127614,r0		; @e./
023624: 012610              		mov	(sp)+,(r0)		; ..
023626: 012746 127614       		mov	#127614,-(sp)		; f../
023632: 016546 177760       		mov	177760(r5),-(sp)	; f.p.
023636: 010446              		mov	r4,-(sp)		; &.
023640: 004767 164074       		call	wr$rct			; w.<h
023644: 062706 000006       		add	#6,sp			; Fe..
023650: 000435              		br	23744			; ..
;
023652: 016500 177750       		mov	177750(r5),r0		; @.h.
023656: 006300              		asl	r0			; @.
023660: 062700 126610       		add	#126610,r0		; @e.-
023664: 005010              		clr	(r0)			; ..
023666: 016500 177750       		mov	177750(r5),r0		; @.h.
023672: 005200              		inc	r0			; ..
023674: 006300              		asl	r0			; @.
023676: 062700 126610       		add	#126610,r0		; @e.-
023702: 005010              		clr	(r0)			; ..
023704: 012746 126610       		mov	#126610,-(sp)		; f..-
023710: 016546 177752       		mov	177752(r5),-(sp)	; f.j.
023714: 010446              		mov	r4,-(sp)		; &.
023716: 004767 164016       		call	wr$rct			; w..h
023722: 062706 000006       		add	#6,sp			; Fe..
023726: 005765 177762       		tst	177762(r5)		; u.r.
023732: 002404              		blt	23744			; ..
023734: 026565 177760 177752		cmp	177760(r5),177752(r5)	; u-p.j.
023742: 001305              		bne	23556			; E.
023744: 005765 177766       		tst	177766(r5)		; u.v.
023750: 001403              		beq	23760			; ..
023752: 012700 010000       		mov	#10000,r0		; @...
023756: 000401              		br	23762			; ..
;
023760: 005000              		clr	r0			; ..
023762: 010064 000026       		mov	r0,26(r4)		; 4...
023766: 016501 000010       		mov	10(r5),r1		; A...
023772: 016500 000006       		mov	6(r5),r0		; @...
023776: 066201 000046       		add	46(r2),r1		; .l&.
024002: 005500              		adc	r0			; @.
024004: 066200 000044       		add	44(r2),r0		; .l$.
024010: 010064 000006       		mov	r0,6(r4)		; 4...
024014: 010164 000010       		mov	r1,10(r4)		; t...
024020: 012764 100000 000024		mov	#100000,24(r4)		; t.....
024026: 012746 001000       		mov	#1000,-(sp)		; f...
024032: 012746 125604       		mov	#125604,-(sp)		; f..+
024036: 010446              		mov	r4,-(sp)		; &.
024040: 004767 164260       		call	fill$tcb			; w.0h
024044: 062706 000006       		add	#6,sp			; Fe..
024050: 010446              		mov	r4,-(sp)		; &.
024052: 004767 013022       		call	write			; w...
024056: 005726              		tst	(sp)+			; V.
024060: 042767 170200 100522		bic	#170200,124610		; wE.pR.
024066: 005067 100522       		clr	124614			; 7.R.
024072: 005067 100520       		clr	124616			; 7.P.
024076: 005067 100516       		clr	124620			; 7.N.
024102: 005067 100514       		clr	124622			; 7.L.
024106: 005067 100512       		clr	124624			; 7.J.
024112: 005067 100510       		clr	124626			; 7.H.
024116: 012746 124600       		mov	#124600,-(sp)		; f..)
024122: 005046              		clr	-(sp)			; &.
024124: 010446              		mov	r4,-(sp)		; &.
024126: 004767 163606       		call	wr$rct			; w..g
024132: 062706 000006       		add	#6,sp			; Fe..
024136: 042762 000021 000030		bic	#21,30(r2)		; rE....
024144: 042762 057577 000012		bic	#57577,12(r2)		; rE._..
024152: 016201 000040       		mov	40(r2),r1		; .. .
024156: 005101              		com	r1			; A.
024160: 005101              		com	r1			; A.
024162: 040167 054014       		bic	r1,100202		; w@.X
024166: 036227 000030 000002		bit	30(r2),#2		; .<....
024174: 001004              		bne	24206			; ..
024176: 010246              		mov	r2,-(sp)		; &.
024200: 004767 033570       		call	do$una			; w.x7
024204: 005726              		tst	(sp)+			; V.
024206: 012700 000005       		mov	#5,r0			; @...
024212: 000167 052676       		jmp	cret$			; w.>U
;
				;	replace( tcb, lbn )
				replace::
024216: 004567 052656       		jsr	r5,csv$			; w..U
024222: 162706 000016       		sub	#16,sp			; Fe..
024226: 016504 000004       		mov	4(r5),r4		; D...
024232: 016403 000002       		mov	2(r4),r3		; ....
024236: 016501 000010       		mov	10(r5),r1		; A...
024242: 016500 000006       		mov	6(r5),r0		; @...
024246: 066301 000046       		add	46(r3),r1		; Al&.
024252: 005500              		adc	r0			; @.
024254: 066300 000044       		add	44(r3),r0		; @l$.
024260: 010064 000006       		mov	r0,6(r4)		; 4...
024264: 010164 000010       		mov	r1,10(r4)		; t...
024270: 012764 100000 000024		mov	#100000,24(r4)		; t.....
024276: 012746 001000       		mov	#1000,-(sp)		; f...
024302: 012746 125604       		mov	#125604,-(sp)		; f..+
024306: 010446              		mov	r4,-(sp)		; &.
024310: 004767 164010       		call	fill$tcb			; w..h
024314: 062706 000006       		add	#6,sp			; Fe..
024320: 010446              		mov	r4,-(sp)		; &.
024322: 004767 001552       		call	fill$id			; w.j.
024326: 005726              		tst	(sp)+			; V.
024330: 016465 000034 177764		mov	34(r4),177764(r5)	; 5...t.
024336: 016465 000032 177762		mov	32(r4),177762(r5)	; 5...r.
024344: 016465 000030 177760		mov	30(r4),177760(r5)	; 5...p.
024352: 016501 000010       		mov	10(r5),r1		; A...
024356: 016500 000006       		mov	6(r5),r0		; @...
024362: 166401 000034       		sub	34(r4),r1		; .m..
024366: 005600              		sbc	r0			; ..
024370: 010065 177752       		mov	r0,177752(r5)		; 5.j.
024374: 010165 177754       		mov	r1,177754(r5)		; u.l.
024400: 036727 100204 010000		bit	124610,#10000		; W=....
024406: 001402              		beq	24414			; ..
024410: 000167 000370       		jmp	25004			; w.x.
;
024414: 005065 177770       		clr	177770(r5)		; 5.x.
024420: 000167 000350       		jmp	24774			; w.h.
;
024424: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
024430: 006746              		sxt	-(sp)			; f.
024432: 066566 177754 000002		add	177754(r5),2(sp)	; vml...
024440: 005516              		adc	(sp)			; N.
024442: 066516 177752       		add	177752(r5),(sp)		; Nmj.
024446: 010446              		mov	r4,-(sp)		; &.
024450: 004767 172426       		call	get$rbn			; w..u
024454: 062706 000006       		add	#6,sp			; Fe..
024460: 005700              		tst	r0			; @.
024462: 001034              		bne	24554			; ..
024464: 005764 000046       		tst	46(r4)			; t.&.
024470: 002431              		blt	24554			; ..
024472: 005065 177766       		clr	177766(r5)		; 5.v.
024476: 000402              		br	24504			; ..
;
024500: 005265 177766       		inc	177766(r5)		; 5.v.
024504: 016500 177766       		mov	177766(r5),r0		; @.v.
024510: 006300              		asl	r0			; @.
024512: 006300              		asl	r0			; @.
024514: 062700 100066       		add	#100066,r0		; @e6.
024520: 116000 000002       		movb	2(r0),r0		; ....
024524: 020065 177770       		cmp	r0,177770(r5)		; 5 x.
024530: 001363              		bne	24500			; s.
024532: 016500 177766       		mov	177766(r5),r0		; @.v.
024536: 006300              		asl	r0			; @.
024540: 006300              		asl	r0			; @.
024542: 062700 100066       		add	#100066,r0		; @e6.
024546: 112760 177777 000002		movb	#177777,2(r0)		; p.....
024554: 036327 000030 100000		bit	30(r3),#100000		; W<....
024562: 001102              		bne	24770			; B.
024564: 005064 000026       		clr	26(r4)			; 4...
024570: 016501 177770       		mov	177770(r5),r1		; A.x.
024574: 006700              		sxt	r0			; @.
024576: 066501 177754       		add	177754(r5),r1		; Aml.
024602: 005500              		adc	r0			; @.
024604: 066500 177752       		add	177752(r5),r0		; @mj.
024610: 066301 000046       		add	46(r3),r1		; Al&.
024614: 005500              		adc	r0			; @.
024616: 066300 000044       		add	44(r3),r0		; @l$.
024622: 010064 000006       		mov	r0,6(r4)		; 4...
024626: 010164 000010       		mov	r1,10(r4)		; t...
024632: 012764 100000 000024		mov	#100000,24(r4)		; t.....
024640: 012746 001000       		mov	#1000,-(sp)		; f...
024644: 012746 125604       		mov	#125604,-(sp)		; f..+
024650: 010446              		mov	r4,-(sp)		; &.
024652: 004767 163446       		call	fill$tcb			; w.&g
024656: 062706 000006       		add	#6,sp			; Fe..
024662: 010446              		mov	r4,-(sp)		; &.
024664: 004767 012160       		call	read			; w.p.
024670: 005726              		tst	(sp)+			; V.
024672: 012746 125604       		mov	#125604,-(sp)		; f..+
024676: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
024702: 062716 000003       		add	#3,(sp)			; Ne..
024706: 010446              		mov	r4,-(sp)		; &.
024710: 004767 000646       		call	wr$xbn			; w.&.
024714: 062706 000006       		add	#6,sp			; Fe..
024720: 042767 110000 077662		bic	#110000,124610		; wE..2.
024726: 052767 010000 077654		bis	#10000,124610		; wU..,.
024734: 012746 124600       		mov	#124600,-(sp)		; f..)
024740: 005046              		clr	-(sp)			; &.
024742: 010446              		mov	r4,-(sp)		; &.
024744: 004767 162770       		call	wr$rct			; w.xe
024750: 062706 000006       		add	#6,sp			; Fe..
024754: 010065 177756       		mov	r0,177756(r5)		; 5.n.
024760: 001403              		beq	24770			; ..
024762: 012700 000001       		mov	#1,r0			; @...
024766: 000546              		br	25304			; f.
;
024770: 005265 177770       		inc	177770(r5)		; 5.x.
024774: 026563 177770 000110		cmp	177770(r5),110(r3)	; s-x.H.
025002: 002610              		blt	24424			; ..
025004: 016564 177762 000032		mov	177762(r5),32(r4)	; t.r...
025012: 016564 177760 000030		mov	177760(r5),30(r4)	; t.p...
025020: 010446              		mov	r4,-(sp)		; &.
025022: 004767 001524       		call	reformat		; w.T.
025026: 005726              		tst	(sp)+			; V.
025030: 036327 000030 100000		bit	30(r3),#100000		; W<....
025036: 001110              		bne	25260			; H.
025040: 005065 177770       		clr	177770(r5)		; 5.x.
025044: 000460              		br	25206			; 0.
;
025046: 012746 125604       		mov	#125604,-(sp)		; f..+
025052: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
025056: 062716 000003       		add	#3,(sp)			; Ne..
025062: 010446              		mov	r4,-(sp)		; &.
025064: 004767 000220       		call	rd$xbn			; w...
025070: 062706 000006       		add	#6,sp			; Fe..
025074: 005064 000026       		clr	26(r4)			; 4...
025100: 016501 177770       		mov	177770(r5),r1		; A.x.
025104: 006700              		sxt	r0			; @.
025106: 066501 177754       		add	177754(r5),r1		; Aml.
025112: 005500              		adc	r0			; @.
025114: 066500 177752       		add	177752(r5),r0		; @mj.
025120: 066301 000046       		add	46(r3),r1		; Al&.
025124: 005500              		adc	r0			; @.
025126: 066300 000044       		add	44(r3),r0		; @l$.
025132: 010064 000006       		mov	r0,6(r4)		; 4...
025136: 010164 000010       		mov	r1,10(r4)		; t...
025142: 012764 100000 000024		mov	#100000,24(r4)		; t.....
025150: 012746 001000       		mov	#1000,-(sp)		; f...
025154: 012746 125604       		mov	#125604,-(sp)		; f..+
025160: 010446              		mov	r4,-(sp)		; &.
025162: 004767 163136       		call	fill$tcb			; w.^f
025166: 062706 000006       		add	#6,sp			; Fe..
025172: 010446              		mov	r4,-(sp)		; &.
025174: 004767 011700       		call	write			; w.@.
025200: 005726              		tst	(sp)+			; V.
025202: 005265 177770       		inc	177770(r5)		; 5.x.
025206: 026563 177770 000110		cmp	177770(r5),110(r3)	; s-x.H.
025214: 002714              		blt	25046			; L.
025216: 042767 110000 077364		bic	#110000,124610		; wE..t~
025224: 012746 124600       		mov	#124600,-(sp)		; f..)
025230: 005046              		clr	-(sp)			; &.
025232: 010446              		mov	r4,-(sp)		; &.
025234: 004767 162500       		call	wr$rct			; w.@e
025240: 062706 000006       		add	#6,sp			; Fe..
025244: 010065 177756       		mov	r0,177756(r5)		; 5.n.
025250: 001403              		beq	25260			; ..
025252: 012700 000001       		mov	#1,r0			; @...
025256: 000412              		br	25304			; ..
;
025260: 016564 177762 000032		mov	177762(r5),32(r4)	; t.r...
025266: 016564 177760 000030		mov	177760(r5),30(r4)	; t.p...
025274: 016564 177764 000034		mov	177764(r5),34(r4)	; t.t...
025302: 005000              		clr	r0			; ..
025304: 000167 051604       		jmp	cret$			; w..S
;
				;	rd$xbn( tcb, i, buffer )
				rd$xbn::
025310: 004567 051564       		jsr	r5,csv$			; w.tS
025314: 162706 000004       		sub	#4,sp			; Fe..
025320: 016504 000004       		mov	4(r5),r4		; D...
025324: 016465 000002 177764		mov	2(r4),177764(r5)	; 5...t.
025332: 005064 000026       		clr	26(r4)			; 4...
025336: 016564 000006 000010		mov	6(r5),10(r4)		; t.....
025344: 006764 000006       		sxt	6(r4)			; t...
025350: 012764 100000 000024		mov	#100000,24(r4)		; t.....
025356: 012765 000003 177770		mov	#3,177770(r5)		; u...x.
025364: 000467              		br	25544			; 7.
;
025366: 012746 001000       		mov	#1000,-(sp)		; f...
025372: 016546 000010       		mov	10(r5),-(sp)		; f...
025376: 010446              		mov	r4,-(sp)		; &.
025400: 004767 162720       		call	fill$tcb			; w.Pe
025404: 062706 000006       		add	#6,sp			; Fe..
025410: 010446              		mov	r4,-(sp)		; &.
025412: 004767 011432       		call	read			; w...
025416: 005726              		tst	(sp)+			; V.
025420: 005700              		tst	r0			; @.
025422: 001033              		bne	25512			; ..
025424: 012764 132604 000044		mov	#132604,44(r4)		; t..5$.
025432: 010446              		mov	r4,-(sp)		; &.
025434: 004767 011410       		call	read			; w...
025440: 005726              		tst	(sp)+			; V.
025442: 005700              		tst	r0			; @.
025444: 001022              		bne	25512			; ..
025446: 016503 000010       		mov	10(r5),r3		; C...
025452: 012702 132604       		mov	#132604,r2		; B..5
025456: 012765 000400 177766		mov	#400,177766(r5)		; u...v.
025464: 000402              		br	25472			; ..
;
025466: 022322              		cmp	(r3)+,(r2)+		; R$
025470: 001003              		bne	25500			; ..
025472: 005365 177766       		dec	177766(r5)		; u.v.
025476: 002373              		bge	25466			; {.
025500: 005765 177766       		tst	177766(r5)		; u.v.
025504: 002002              		bge	25512			; ..
025506: 005000              		clr	r0			; ..
025510: 000422              		br	25556			; ..
;
025512: 016564 000010 000044		mov	10(r5),44(r4)		; t...$.
025520: 016500 177764       		mov	177764(r5),r0		; @.t.
025524: 066064 000110 000010		add	110(r0),10(r4)		; 4lH...
025532: 005564 000006       		adc	6(r4)			; t...
025536: 012764 100000 000024		mov	#100000,24(r4)		; t.....
025544: 005365 177770       		dec	177770(r5)		; u.x.
025550: 002306              		bge	25366			; F.
025552: 012700 000005       		mov	#5,r0			; @...
025556: 000167 051332       		jmp	cret$			; w.ZR
;
				;	wr$xbn( tcb, i, buffer )
				wr$xbn::
025562: 004567 051312       		jsr	r5,csv$			; w.JR
025566: 162706 000006       		sub	#6,sp			; Fe..
025572: 016504 000004       		mov	4(r5),r4		; D...
025576: 005065 177770       		clr	177770(r5)		; 5.x.
025602: 016465 000002 177762		mov	2(r4),177762(r5)	; 5...r.
025610: 005064 000026       		clr	26(r4)			; 4...
025614: 016564 000006 000010		mov	6(r5),10(r4)		; t.....
025622: 006764 000006       		sxt	6(r4)			; t...
025626: 012764 100000 000024		mov	#100000,24(r4)		; t.....
025634: 012765 000003 177766		mov	#3,177766(r5)		; u...v.
025642: 000502              		br	26050			; B.
;
025644: 012746 001000       		mov	#1000,-(sp)		; f...
025650: 016546 000010       		mov	10(r5),-(sp)		; f...
025654: 010446              		mov	r4,-(sp)		; &.
025656: 004767 162442       		call	fill$tcb			; w."e
025662: 062706 000006       		add	#6,sp			; Fe..
025666: 010446              		mov	r4,-(sp)		; &.
025670: 004767 011204       		call	write			; w...
025674: 005726              		tst	(sp)+			; V.
025676: 005700              		tst	r0			; @.
025700: 001046              		bne	26016			; &.
025702: 012764 132604 000044		mov	#132604,44(r4)		; t..5$.
025710: 010446              		mov	r4,-(sp)		; &.
025712: 004767 011132       		call	read			; w.Z.
025716: 005726              		tst	(sp)+			; V.
025720: 005700              		tst	r0			; @.
025722: 001035              		bne	26016			; ..
025724: 016503 000010       		mov	10(r5),r3		; C...
025730: 012702 132604       		mov	#132604,r2		; B..5
025734: 012765 000400 177764		mov	#400,177764(r5)		; u...t.
025742: 000402              		br	25750			; ..
;
025744: 022322              		cmp	(r3)+,(r2)+		; R$
025746: 001003              		bne	25756			; ..
025750: 005365 177764       		dec	177764(r5)		; u.t.
025754: 002373              		bge	25744			; {.
025756: 005765 177764       		tst	177764(r5)		; u.t.
025762: 002004              		bge	25774			; ..
025764: 012765 000001 177770		mov	#1,177770(r5)		; u...x.
025772: 000411              		br	26016			; ..
;
025774: 012764 010000 000026		mov	#10000,26(r4)		; t.....
026002: 010446              		mov	r4,-(sp)		; &.
026004: 004767 011070       		call	write			; w.8.
026010: 005726              		tst	(sp)+			; V.
026012: 005064 000026       		clr	26(r4)			; 4...
026016: 016564 000010 000044		mov	10(r5),44(r4)		; t...$.
026024: 016500 177762       		mov	177762(r5),r0		; @.r.
026030: 066064 000110 000010		add	110(r0),10(r4)		; 4lH...
026036: 005564 000006       		adc	6(r4)			; t...
026042: 012764 100000 000024		mov	#100000,24(r4)		; t.....
026050: 005365 177766       		dec	177766(r5)		; u.v.
026054: 002273              		bge	25644			; ;.
026056: 005765 177770       		tst	177770(r5)		; u.x.
026062: 001402              		beq	26070			; ..
026064: 005000              		clr	r0			; ..
026066: 000402              		br	26074			; ..
;
026070: 012700 000005       		mov	#5,r0			; @...
026074: 000167 051014       		jmp	cret$			; w..R
;
				;	fill$id( tcb )
				fill$id::
026100: 004567 050774       		jsr	r5,csv$			; w.|Q
026104: 162706 000004       		sub	#4,sp			; Fe..
026110: 016504 000004       		mov	4(r5),r4		; D...
026114: 016403 000002       		mov	2(r4),r3		; ....
026120: 016346 000110       		mov	110(r3),-(sp)		; f.H.
026124: 016446 000030       		mov	30(r4),-(sp)		; &...
026130: 016346 000122       		mov	122(r3),-(sp)		; f.R.
026134: 006746              		sxt	-(sp)			; f.
026136: 004767 050564       		call	76726			; w.tQ
026142: 062706 000006       		add	#6,sp			; Fe..
026146: 010146              		mov	r1,-(sp)		; f.
026150: 010046              		mov	r0,-(sp)		; &.
026152: 016446 000032       		mov	32(r4),-(sp)		; &...
026156: 016346 000120       		mov	120(r3),-(sp)		; f.P.
026162: 006746              		sxt	-(sp)			; f.
026164: 004767 050536       		call	76726			; w.^Q
026170: 062706 000006       		add	#6,sp			; Fe..
026174: 060166 000002       		add	r1,2(sp)		; v`..
026200: 005516              		adc	(sp)			; N.
026202: 060016              		add	r0,(sp)			; .`
026204: 004767 047672       		call	76102			; w.:O
026210: 062706 000006       		add	#6,sp			; Fe..
026214: 010165 177764       		mov	r1,177764(r5)		; u.t.
026220: 005065 177766       		clr	177766(r5)		; 5.v.
026224: 000412              		br	26252			; ..
;
026226: 016500 177766       		mov	177766(r5),r0		; @.v.
026232: 006300              		asl	r0			; @.
026234: 006300              		asl	r0			; @.
026236: 062700 100066       		add	#100066,r0		; @e6.
026242: 105060 000003       		clrb	3(r0)			; 0...
026246: 005265 177766       		inc	177766(r5)		; 5.v.
026252: 026563 177766 000110		cmp	177766(r5),110(r3)	; s-v.H.
026260: 002762              		blt	26226			; r.
026262: 005065 177770       		clr	177770(r5)		; 5.x.
026266: 000523              		br	26536			; S.
;
026270: 016346 000110       		mov	110(r3),-(sp)		; f.H.
026274: 016346 000116       		mov	116(r3),-(sp)		; f.N.
026300: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
026304: 004767 050134       		call	76444			; w.\P
026310: 022626              		cmp	(sp)+,(sp)+		; .%
026312: 010046              		mov	r0,-(sp)		; &.
026314: 066516 177764       		add	177764(r5),(sp)		; Nmt.
026320: 004767 050232       		call	76556			; w..P
026324: 022626              		cmp	(sp)+,(sp)+		; .%
026326: 010065 177766       		mov	r0,177766(r5)		; 5.v.
026332: 016500 177766       		mov	177766(r5),r0		; @.v.
026336: 006300              		asl	r0			; @.
026340: 006300              		asl	r0			; @.
026342: 062700 100066       		add	#100066,r0		; @e6.
026346: 105760 000003       		tstb	3(r0)			; p...
026352: 001413              		beq	26402			; ..
026354: 016346 000110       		mov	110(r3),-(sp)		; f.H.
026360: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
026364: 005216              		inc	(sp)			; ..
026366: 004767 050164       		call	76556			; w.tP
026372: 022626              		cmp	(sp)+,(sp)+		; .%
026374: 010065 177766       		mov	r0,177766(r5)		; 5.v.
026400: 000754              		br	26332			; l.
;
026402: 016500 177766       		mov	177766(r5),r0		; @.v.
026406: 006300              		asl	r0			; @.
026410: 006300              		asl	r0			; @.
026412: 062700 100066       		add	#100066,r0		; @e6.
026416: 116410 000030       		movb	30(r4),(r0)		; ....
026422: 016402 000030       		mov	30(r4),r2		; ....
026426: 006202              		asr	r2			; ..
026430: 006202              		asr	r2			; ..
026432: 006202              		asr	r2			; ..
026434: 006202              		asr	r2			; ..
026436: 042702 177417       		bic	#177417,r2		; BE..
026442: 066402 000032       		add	32(r4),r2		; .m..
026446: 016500 177766       		mov	177766(r5),r0		; @.v.
026452: 006300              		asl	r0			; @.
026454: 006300              		asl	r0			; @.
026456: 062700 100066       		add	#100066,r0		; @e6.
026462: 110260 000001       		movb	r2,1(r0)		; 0...
026466: 016500 177766       		mov	177766(r5),r0		; @.v.
026472: 006300              		asl	r0			; @.
026474: 006300              		asl	r0			; @.
026476: 062700 100066       		add	#100066,r0		; @e6.
026502: 116560 177770 000002		movb	177770(r5),2(r0)	; p.x...
026510: 016500 177766       		mov	177766(r5),r0		; @.v.
026514: 006300              		asl	r0			; @.
026516: 006300              		asl	r0			; @.
026520: 062700 100066       		add	#100066,r0		; @e6.
026524: 112760 000002 000003		movb	#2,3(r0)		; p.....
026532: 005265 177770       		inc	177770(r5)		; 5.x.
026536: 026563 177770 000110		cmp	177770(r5),110(r3)	; s-x.H.
026544: 002651              		blt	26270			; ).
026546: 000167 050342       		jmp	cret$			; w.bP
;
				;	reformat( tcb )
				reformat::
026552: 004567 050322       		jsr	r5,csv$			; w.RP
026556: 005746              		tst	-(sp)			; f.
026560: 016504 000004       		mov	4(r5),r4		; D...
026564: 016403 000002       		mov	2(r4),r3		; ....
026570: 010346              		mov	r3,-(sp)		; f.
026572: 004767 013024       		call	select			; w...
026576: 005726              		tst	(sp)+			; V.
026600: 010346              		mov	r3,-(sp)		; f.
026602: 004767 007556       		call	restore			; w.n.
026606: 005726              		tst	(sp)+			; V.
026610: 005065 177770       		clr	177770(r5)		; 5.x.
026614: 000407              		br	26634			; ..
;
026616: 012746 000005       		mov	#5,-(sp)		; f...
026622: 004767 164014       		call	put$udc			; w..h
026626: 005726              		tst	(sp)+			; V.
026630: 005265 177770       		inc	177770(r5)		; 5.x.
026634: 026564 177770 000030		cmp	177770(r5),30(r4)	; t-x...
026642: 002765              		blt	26616			; u.
026644: 012765 000140 177766		mov	#140,177766(r5)		; u.`.v.
026652: 026463 000030 000064		cmp	30(r4),64(r3)		; 3-..4.
026660: 002403              		blt	26670			; ..
026662: 052765 000002 177766		bis	#2,177766(r5)		; uU..v.
026670: 012765 100066 177770		mov	#100066,177770(r5)	; u.6.x.
026676: 112767 000100 111116		movb	#100,w$cmd		; w.@.N.
026704: 116567 177770 111106		movb	177770(r5),w$dat	; w.x.F.
026712: 116567 177771 111100		movb	177771(r5),w$dat	; w.y.@.
026720: 105067 111074       		clrb	w$dat			; 7.<.
026724: 016746 051302       		mov	100232,-(sp)		; f.BR
026730: 004767 163706       		call	put$udc			; w.Fg
026734: 005726              		tst	(sp)+			; V.
026736: 112767 000100 111056		movb	#100,w$cmd		; w.@...
026744: 016300 000076       		mov	76(r3),r0		; @.>.
026750: 005400              		neg	r0			; ..
026752: 110067 111042       		movb	r0,w$dat		; 7.".
026756: 016300 000100       		mov	100(r3),r0		; @.@.
026762: 005400              		neg	r0			; ..
026764: 110067 111030       		movb	r0,w$dat		; 7...
026770: 016300 000102       		mov	102(r3),r0		; @.B.
026774: 005400              		neg	r0			; ..
026776: 110067 111016       		movb	r0,w$dat		; 7...
027002: 016300 000104       		mov	104(r3),r0		; @.D.
027006: 005400              		neg	r0			; ..
027010: 110067 111004       		movb	r0,w$dat		; 7...
027014: 116467 000032 110776		movb	32(r4),w$dat		; 7...~.
027022: 016300 000106       		mov	106(r3),r0		; @.F.
027026: 005100              		com	r0			; @.
027030: 110067 110764       		movb	r0,w$dat		; 7.t.
027034: 016300 000110       		mov	110(r3),r0		; @.H.
027040: 005100              		com	r0			; @.
027042: 110067 110752       		movb	r0,w$dat		; 7.j.
027046: 112767 177773 110744		movb	#177773,w$dat		; w.{.d.
027054: 005065 177770       		clr	177770(r5)		; 5.x.
027060: 000413              		br	27110			; ..
;
027062: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
027066: 004767 163550       		call	put$udc			; w.hg
027072: 005726              		tst	(sp)+			; V.
027074: 136727 110712 000030		bitb	r$cmd,#30		; W=J...
027102: 001406              		beq	27120			; ..
027104: 005265 177770       		inc	177770(r5)		; 5.x.
027110: 026527 177770 000010		cmp	177770(r5),#10		; W-x...
027116: 002761              		blt	27062			; q.
027120: 112767 000107 110674		movb	#107,w$cmd		; w.G.<.
027126: 116767 051054 110664		movb	100206,w$dat		; w.,R4.
027134: 010346              		mov	r3,-(sp)		; f.
027136: 004767 013000       		call	deselect			; w...
027142: 005726              		tst	(sp)+			; V.
027144: 000167 047744       		jmp	cret$			; w.dO
				;--------------------------------------------------------
				;
				;	File:	setup.c
				;
				;
				;	word setup( )		
				setup::
027150: 004567 047724       		jsr	r5,csv$			; w.TO
027154: 162706 000004       		sub	#4,sp			; Fe..
027160: 012746 100046       		mov	#udc,-(sp)		; f.&.
027164: 004767 015050       		call	$acquire			; w.(.
027170: 005726              		tst	(sp)+			; V.
027172: 005065 177766       		clr	177766(r5)		; 5.v.
027176: 012703 105036       		mov	#$ucb,r3		; C...
027202: 012765 000002 177764		mov	#2,177764(r5)		; u...t.
027210: 000167 000446       		jmp	27662			; w.&.
;
027214: 016504 177764       		mov	177764(r5),r4		; D.t.
027220: 042704 177774       		bic	#177774,r4		; DE|.
027224: 012767 000010 110550		mov	#10,rw$pll		; w...h.
027232: 112767 000104 110562		movb	#104,w$cmd		; w.D.r.
027240: 105067 110554       		clrb	w$dat			; 7.l.
027244: 112767 000107 110550		movb	#107,w$cmd		; w.G.h.
027252: 112767 000362 110540		movb	#362,w$dat		; w.r.`.
027260: 112767 000202 110532		movb	#202,w$dat		; w...Z.
027266: 112767 000271 110524		movb	#271,w$dat		; w.9.T.
027274: 010446              		mov	r4,-(sp)		; &.
027276: 062716 000044       		add	#44,(sp)		; Ne$.
027302: 004767 163334       		call	put$udc			; w.\f
027306: 005726              		tst	(sp)+			; V.
027310: 036727 110472 140000		bit	r$fps,#140000		; W=:..@
027316: 001416              		beq	27354			; ..
027320: 016500 177766       		mov	177766(r5),r0		; @.v.
027324: 005265 177766       		inc	177766(r5)		; 5.v.
027330: 006300              		asl	r0			; @.
027332: 062700 100054       		add	#100054,r0		; @e,.
027336: 010310              		mov	r3,(r0)			; H.
027340: 010346              		mov	r3,-(sp)		; f.
027342: 010446              		mov	r4,-(sp)		; &.
027344: 004767 000350       		call	rd$drive		; w.h.
027350: 022626              		cmp	(sp)+,(sp)+		; .%
027352: 000537              		br	27652			; _.
;
027354: 012767 000011 110420		mov	#11,rw$pll		; w.....
027362: 112767 000107 110432		movb	#107,w$cmd		; w.G...
027370: 112767 000367 110422		movb	#367,w$dat		; w.w...
027376: 010446              		mov	r4,-(sp)		; &.
027400: 062716 000054       		add	#54,(sp)		; Ne,.
027404: 004767 163232       		call	put$udc			; w..f
027410: 005726              		tst	(sp)+			; V.
027412: 005065 177770       		clr	177770(r5)		; 5.x.
027416: 000434              		br	27510			; ..
;
027420: 112767 000111 110374		movb	#111,w$cmd		; w.I.|.
027426: 136727 110356 000020		bitb	r$dat,#20		; W=n...
027434: 001031              		bne	27520			; ..
027436: 026527 177770 000120		cmp	177770(r5),#120		; W-x.P.
027444: 002412              		blt	27472			; ..
027446: 026527 177770 000202		cmp	177770(r5),#202		; W-x...
027454: 003006              		bgt	27472			; ..
027456: 012746 000005       		mov	#5,-(sp)		; f...
027462: 004767 163154       		call	put$udc			; w.lf
027466: 005726              		tst	(sp)+			; V.
027470: 000405              		br	27504			; ..
;
027472: 012746 000007       		mov	#7,-(sp)		; f...
027476: 004767 163140       		call	put$udc			; w.`f
027502: 005726              		tst	(sp)+			; V.
027504: 005265 177770       		inc	177770(r5)		; 5.x.
027510: 026527 177770 000240		cmp	177770(r5),#240		; W-x. .
027516: 002740              		blt	27420			; `.
027520: 112767 000111 110274		movb	#111,w$cmd		; w.I.<.
027526: 136727 110256 000020		bitb	r$dat,#20		; W=....
027534: 001446              		beq	27652			; &.
027536: 016500 177766       		mov	177766(r5),r0		; @.v.
027542: 005265 177766       		inc	177766(r5)		; 5.v.
027546: 006300              		asl	r0			; @.
027550: 062700 100054       		add	#100054,r0		; @e,.
027554: 010310              		mov	r3,(r0)			; H.
027556: 112767 000104 110236		movb	#104,w$cmd		; w.D...
027564: 112767 000001 110226		movb	#1,w$dat		; w.....
027572: 010446              		mov	r4,-(sp)		; &.
027574: 062716 000054       		add	#54,(sp)		; Ne,.
027600: 004767 163036       		call	put$udc			; w..f
027604: 005726              		tst	(sp)+			; V.
027606: 112767 000111 110206		movb	#111,w$cmd		; w.I...
027614: 136727 110170 000020		bitb	r$dat,#20		; W=x...
027622: 001406              		beq	27640			; ..
027624: 010346              		mov	r3,-(sp)		; f.
027626: 010446              		mov	r4,-(sp)		; &.
027630: 004767 000254       		call	rx33$drive		; w.,.
027634: 022626              		cmp	(sp)+,(sp)+		; .%
027636: 000405              		br	27652			; ..
;
027640: 010346              		mov	r3,-(sp)		; f.
027642: 010446              		mov	r4,-(sp)		; &.
027644: 004767 000344       		call	rx50$drive		; w.d.
027650: 022626              		cmp	(sp)+,(sp)+		; .%
027652: 005265 177764       		inc	177764(r5)		; 5.t.
027656: 062703 000142       		add	#142,r3			; Ceb.
027662: 026527 177764 000006		cmp	177764(r5),#6		; W-t...
027670: 002002              		bge	27676			; ..
027672: 000167 177316       		jmp	27214			; w.N~
;
027676: 004767 162630       		call	init$udc			; w..e
027702: 012746 100046       		mov	#udc,-(sp)		; f.&.
027706: 004767 014422       		call	$release			; w...
027712: 005726              		tst	(sp)+			; V.
027714: 000167 047174       		jmp	cret$			; w.|N
;
				;	rd$drive( unit, ucb )
				rd$drive::
027720: 004567 047154       		jsr	r5,csv$			; w.lN
027724: 016504 000004       		mov	4(r5),r4		; D...
027730: 016503 000006       		mov	6(r5),r3		; C...
027734: 010400              		mov	r4,r0			; ..
027736: 006300              		asl	r0			; @.
027740: 062700 002264       		add	#2264,r0		; @e4.
027744: 011063 000042       		mov	(r0),42(r3)		; 3.".
027750: 010400              		mov	r4,r0			; ..
027752: 006300              		asl	r0			; @.
027754: 062700 002264       		add	#2264,r0		; @e4.
027760: 011063 000040       		mov	(r0),40(r3)		; 3. .
027764: 010400              		mov	r4,r0			; ..
027766: 006300              		asl	r0			; @.
027770: 062700 002274       		add	#2274,r0		; @e<.
027774: 011063 000036       		mov	(r0),36(r3)		; 3...
030000: 012763 100000 000012		mov	#100000,12(r3)		; s.....
030006: 012763 000300 000070		mov	#300,70(r3)		; s.@.8.
030014: 010400              		mov	r4,r0			; ..
030016: 062700 000044       		add	#44,r0			; @e$.
030022: 010063 000072       		mov	r0,72(r3)		; 3.:.
030026: 036727 107754 040000		bit	r$fps,#40000		; W=l..@
030034: 001403              		beq	30044			; ..
030036: 012700 000010       		mov	#10,r0			; @...
030042: 000402              		br	30050			; ..
;
030044: 012700 000012       		mov	#12,r0			; @...
030050: 010063 000074       		mov	r0,74(r3)		; 3.<.
030054: 012763 000244 000030		mov	#244,30(r3)		; s.$...
030062: 016763 047216 000014		mov	77304,14(r3)		; s..N..
030070: 016763 047212 000016		mov	77306,16(r3)		; s..N..
030076: 012763 001006 000140		mov	#1006,140(r3)		; s...`.
030104: 000167 047004       		jmp	cret$			; w..N
;
				;	rx33$drive( unit, ucb )
				rx33$drive::
030110: 004567 046764       		jsr	r5,csv$			; w.tM
030114: 016504 000004       		mov	4(r5),r4		; D...
030120: 016503 000006       		mov	6(r5),r3		; C...
030124: 012763 100200 000012		mov	#100200,12(r3)		; s.....
030132: 012763 000202 000070		mov	#202,70(r3)		; s...8.
030140: 010400              		mov	r4,r0			; ..
030142: 062700 000054       		add	#54,r0			; @e,.
030146: 010063 000072       		mov	r0,72(r3)		; 3.:.
030152: 012763 000011 000074		mov	#11,74(r3)		; s...<.
030160: 012763 001010 000030		mov	#1010,30(r3)		; s.....
030166: 016763 047116 000014		mov	77310,14(r3)		; s.NN..
030174: 016763 047112 000016		mov	77312,16(r3)		; s.JN..
030202: 012763 001012 000140		mov	#1012,140(r3)		; s...`.
030210: 000167 046700       		jmp	cret$			; w.@M
;
				;	rx50$drive( unit, ucb )
				rx50$drive::
030214: 004567 046660       		jsr	r5,csv$			; w.0M
030220: 016504 000004       		mov	4(r5),r4		; D...
030224: 016503 000006       		mov	6(r5),r3		; C...
030230: 012763 100200 000012		mov	#100200,12(r3)		; s.....
030236: 012763 000202 000070		mov	#202,70(r3)		; s...8.
030244: 010400              		mov	r4,r0			; ..
030246: 062700 000054       		add	#54,r0			; @e,.
030252: 010063 000072       		mov	r0,72(r3)		; 3.:.
030256: 012763 000011 000074		mov	#11,74(r3)		; s...<.
030264: 012763 000410 000030		mov	#410,30(r3)		; s.....
030272: 016763 047016 000014		mov	77314,14(r3)		; s..N..
030300: 016763 047012 000016		mov	77316,16(r3)		; s..N..
030306: 012763 001007 000140		mov	#1007,140(r3)		; s...`.
030314: 000167 046574       		jmp	cret$			; w.|M
				;--------------------------------------------------------
				;
				;	File:	media.c
				;
				;
				;	rd$media( ucb )
				rd$media::
030320: 004567 046554       		jsr	r5,csv$			; w.lM
030324: 016504 000004       		mov	4(r5),r4		; D...
030330: 012746 100052       		mov	#100052,-(sp)		; f.*.
030334: 004767 013364       		call	$deqf.head			; w.t.
030340: 005726              		tst	(sp)+			; V.
030342: 010002              		mov	r0,r2			; ..
030344: 010462 000002       		mov	r4,2(r2)		; 2...
030350: 012746 100044       		mov	#mem,-(sp)		; f.$.
030354: 004767 013660       		call	$acquire			; w.0.
030360: 005726              		tst	(sp)+			; V.
030362: 010246              		mov	r2,-(sp)		; &.
030364: 004767 001446       		call	rd$uib			; w.&.
030370: 005726              		tst	(sp)+			; V.
030372: 010003              		mov	r0,r3			; ..
030374: 001102              		bne	30602			; B.
030376: 010446              		mov	r4,-(sp)		; &.
030400: 016246 000044       		mov	44(r2),-(sp)		; &.$.
030404: 004767 000572       		call	uib$to$ucb		; w.z.
030410: 022626              		cmp	(sp)+,(sp)+		; .%
030412: 042764 000040 000030		bic	#40,30(r4)		; tE ...
030420: 010446              		mov	r4,-(sp)		; &.
030422: 004767 011174       		call	select			; w.|.
030426: 005726              		tst	(sp)+			; V.
030430: 112767 000107 107364		movb	#107,w$cmd		; w.G.t.
030436: 016700 047544       		mov	100206,r0		; @.dO
030442: 052700 000010       		bis	#10,r0			; @U..
030446: 110067 107346       		movb	r0,w$dat		; 7.f.
030452: 016746 047554       		mov	100232,-(sp)		; f.lO
030456: 004767 162160       		call	put$udc			; w.pd
030462: 005726              		tst	(sp)+			; V.
030464: 112767 000100 107330		movb	#100,w$cmd		; w.@.X.
030472: 116267 000044 107320		movb	44(r2),w$dat		; 7.$.P.
030500: 116267 000045 107312		movb	45(r2),w$dat		; 7.%.J.
030506: 105067 107306       		clrb	w$dat			; 7.F.
030512: 012746 000132       		mov	#132,-(sp)		; f.Z.
030516: 004767 162120       		call	put$udc			; w.Pd
030522: 005726              		tst	(sp)+			; V.
030524: 136727 060051 000017		bitb	110601,#17		; W=)`..
030532: 001003              		bne	30542			; ..
030534: 042764 000200 000030		bic	#200,30(r4)		; tE....
030542: 112767 000107 107252		movb	#107,w$cmd		; w.G.*.
030550: 116767 047432 107242		movb	100206,w$dat		; w..O".
030556: 016746 047450       		mov	100232,-(sp)		; f.(O
030562: 004767 162054       		call	put$udc			; w.,d
030566: 005726              		tst	(sp)+			; V.
030570: 010446              		mov	r4,-(sp)		; &.
030572: 004767 011344       		call	deselect			; w.d.
030576: 005726              		tst	(sp)+			; V.
030600: 000411              		br	30624			; ..
;
030602: 020327 000005       		cmp	r3,#5			; W ..
030606: 001006              		bne	30624			; ..
030610: 052764 000100 000030		bis	#100,30(r4)		; tU@...
030616: 042764 000040 000030		bic	#40,30(r4)		; tE ...
030624: 012746 100044       		mov	#mem,-(sp)		; f.$.
030630: 004767 013500       		call	$release			; w.@.
030634: 005726              		tst	(sp)+			; V.
030636: 010246              		mov	r2,-(sp)		; &.
030640: 012746 100052       		mov	#100052,-(sp)		; f.*.
030644: 004767 012740       		call	$enq.head			; w.`.
030650: 022626              		cmp	(sp)+,(sp)+		; .%
030652: 000167 046236       		jmp	cret$			; w..L
;
				;	rx33$media( ucb )
				rx33$media::
030656: 004567 046216       		jsr	r5,csv$			; w..L
030662: 016504 000004       		mov	4(r5),r4		; D...
030666: 052764 000400 000074		bis	#400,74(r4)		; tU..<.
030674: 042764 000004 000072		bic	#4,72(r4)		; tE..:.
030702: 012764 000202 000070		mov	#202,70(r4)		; t...8.
030710: 005064 000064       		clr	64(r4)			; 4.4.
030714: 012764 000120 000066		mov	#120,66(r4)		; t.P.6.
030722: 012764 000017 000110		mov	#17,110(r4)		; t...H.
030730: 012764 000002 000112		mov	#2,112(r4)		; t...J.
030736: 012764 000120 000114		mov	#120,114(r4)		; t.P.L.
030744: 012764 004540 000010		mov	#4540,10(r4)		; t.`...
030752: 006764 000006       		sxt	6(r4)			; t...
030756: 012764 000017 000130		mov	#17,130(r4)		; t...X.
030764: 012764 000002 000132		mov	#2,132(r4)		; t...Z.
030772: 012764 000001 000134		mov	#1,134(r4)		; t...\.
031000: 042764 002000 000030		bic	#2000,30(r4)		; tE....
031006: 000167 046102       		jmp	cret$			; w.BL
;
				;	rx50$media( ucb )
				rx50$media::
031012: 004567 046062       		jsr	r5,csv$			; w.2L
031016: 016504 000004       		mov	4(r5),r4		; D...
031022: 042764 000400 000074		bic	#400,74(r4)		; tE..<.
031030: 052764 000004 000072		bis	#4,72(r4)		; tU..:.
031036: 036427 000030 000400		bit	30(r4),#400		; .=....
031044: 001412              		beq	31072			; ..
031046: 012764 000202 000070		mov	#202,70(r4)		; t...8.
031054: 012764 000070 000064		mov	#70,64(r4)		; t.8.4.
031062: 012764 000054 000066		mov	#54,66(r4)		; t.,.6.
031070: 000410              		br	31112			; ..
;
031072: 012764 000201 000070		mov	#201,70(r4)		; t...8.
031100: 012764 000120 000064		mov	#120,64(r4)		; t.P.4.
031106: 005064 000066       		clr	66(r4)			; 4.6.
031112: 012764 000012 000110		mov	#12,110(r4)		; t...H.
031120: 012764 000001 000112		mov	#1,112(r4)		; t...J.
031126: 012764 000120 000114		mov	#120,114(r4)		; t.P.L.
031134: 012764 001440 000010		mov	#1440,10(r4)		; t. ...
031142: 006764 000006       		sxt	6(r4)			; t...
031146: 012764 000012 000130		mov	#12,130(r4)		; t...X.
031154: 012764 000005 000132		mov	#5,132(r4)		; t...Z.
031162: 012764 000020 000134		mov	#20,134(r4)		; t...\.
031170: 052764 002000 000030		bis	#2000,30(r4)		; tU....
031176: 000167 045712       		jmp	cret$			; w.JK
;
				;	uib$to$ucb( uib, ucb )
				uib$to$ucb::
031202: 004567 045672       		jsr	r5,csv$			; w.:K
031206: 162706 000006       		sub	#6,sp			; Fe..
031212: 016504 000004       		mov	4(r5),r4		; D...
031216: 016503 000006       		mov	6(r5),r3		; C...
031222: 016465 000012 177770		mov	12(r4),177770(r5)	; 5...x.
031230: 016465 000014 177766		mov	14(r4),177766(r5)	; 5...v.
031236: 016465 000016 177764		mov	16(r4),177764(r5)	; 5...t.
031244: 016465 000020 177762		mov	20(r4),177762(r5)	; 5...r.
031252: 016463 000022 000052		mov	22(r4),52(r3)		; 3...*.
031260: 016463 000024 000050		mov	24(r4),50(r3)		; 3...(.
031266: 016463 000026 000062		mov	26(r4),62(r3)		; 3...2.
031274: 016463 000030 000060		mov	30(r4),60(r3)		; 3...0.
031302: 016501 177770       		mov	177770(r5),r1		; A.x.
031306: 016500 177766       		mov	177766(r5),r0		; @.v.
031312: 066501 177764       		add	177764(r5),r1		; Amt.
031316: 005500              		adc	r0			; @.
031320: 066500 177762       		add	177762(r5),r0		; @mr.
031324: 010063 000044       		mov	r0,44(r3)		; 3.$.
031330: 010163 000046       		mov	r1,46(r3)		; s.&.
031334: 016301 000046       		mov	46(r3),r1		; A.&.
031340: 016300 000044       		mov	44(r3),r0		; @.$.
031344: 066301 000052       		add	52(r3),r1		; Al*.
031350: 005500              		adc	r0			; @.
031352: 066300 000050       		add	50(r3),r0		; @l(.
031356: 010063 000054       		mov	r0,54(r3)		; 3.,.
031362: 010163 000056       		mov	r1,56(r3)		; s...
031366: 016463 000054 000016		mov	54(r4),16(r3)		; 3.,...
031374: 016463 000056 000014		mov	56(r4),14(r3)		; 3.....
031402: 016463 000140 000022		mov	140(r4),22(r3)		; 3.`...
031410: 016463 000142 000020		mov	142(r4),20(r3)		; 3.b...
031416: 016463 000032 000110		mov	32(r4),110(r3)		; 3...H.
031424: 016463 000034 000112		mov	34(r4),112(r3)		; 3...J.
031432: 016463 000036 000114		mov	36(r4),114(r3)		; 3...L.
031440: 016463 000040 000064		mov	40(r4),64(r3)		; 3. .4.
031446: 016463 000050 000024		mov	50(r4),24(r3)		; 3.(...
031454: 016463 000052 000026		mov	52(r4),26(r3)		; 3.*...
031462: 016346 000026       		mov	26(r3),-(sp)		; f...
031466: 016346 000024       		mov	24(r3),-(sp)		; f...
031472: 004767 044746       		call	76444			; w.fI
031476: 022626              		cmp	(sp)+,(sp)+		; .%
031500: 010046              		mov	r0,-(sp)		; &.
031502: 016301 000052       		mov	52(r3),r1		; A.*.
031506: 016300 000050       		mov	50(r3),r0		; @.(.
031512: 162601              		sub	(sp)+,r1		; .e
031514: 005600              		sbc	r0			; ..
031516: 010063 000006       		mov	r0,6(r3)		; 3...
031522: 010163 000010       		mov	r1,10(r3)		; s...
031526: 016463 000066 000076		mov	66(r4),76(r3)		; 3.6.>.
031534: 016463 000070 000100		mov	70(r4),100(r3)		; 3.8.@.
031542: 016463 000072 000102		mov	72(r4),102(r3)		; 3.:.B.
031550: 016463 000074 000104		mov	74(r4),104(r3)		; 3.<.D.
031556: 016463 000076 000106		mov	76(r4),106(r3)		; 3.>.F.
031564: 016463 000060 000116		mov	60(r4),116(r3)		; 3.0.N.
031572: 016346 000110       		mov	110(r3),-(sp)		; f.H.
031576: 016446 000062       		mov	62(r4),-(sp)		; &.2.
031602: 004767 044750       		call	76556			; w.hI
031606: 022626              		cmp	(sp)+,(sp)+		; .%
031610: 010063 000120       		mov	r0,120(r3)		; 3.P.
031614: 016346 000110       		mov	110(r3),-(sp)		; f.H.
031620: 016346 000112       		mov	112(r3),-(sp)		; f.J.
031624: 016346 000120       		mov	120(r3),-(sp)		; f.P.
031630: 004767 044610       		call	76444			; w..I
031634: 022626              		cmp	(sp)+,(sp)+		; .%
031636: 010046              		mov	r0,-(sp)		; &.
031640: 066416 000064       		add	64(r4),(sp)		; .m4.
031644: 004767 044706       		call	76556			; w.FI
031650: 022626              		cmp	(sp)+,(sp)+		; .%
031652: 010063 000122       		mov	r0,122(r3)		; 3.R.
031656: 016363 000110 000130		mov	110(r3),130(r3)		; s.H.X.
031664: 016363 000112 000132		mov	112(r3),132(r3)		; s.J.Z.
031672: 012763 000001 000134		mov	#1,134(r3)		; s...\.
031700: 105764 000044       		tstb	44(r4)			; t.$.
031704: 001410              		beq	31726			; ..
031706: 126427 000045 000002		cmpb	45(r4),#2		; .-%...
031714: 001004              		bne	31726			; ..
031716: 016463 000044 000140		mov	44(r4),140(r3)		; 3.$.`.
031724: 000442              		br	32032			; ".
;
031726: 016402 000054       		mov	54(r4),r2		; ..,.
031732: 042702 177600       		bic	#177600,r2		; BE..
031736: 020227 000037       		cmp	r2,#37			; . ..
031742: 001003              		bne	31752			; ..
031744: 012700 000014       		mov	#14,r0			; @...
031750: 000424              		br	32022			; ..
;
031752: 020227 000064       		cmp	r2,#64			; . 4.
031756: 001003              		bne	31766			; ..
031760: 012700 000010       		mov	#10,r0			; @...
031764: 000416              		br	32022			; ..
;
031766: 020227 000065       		cmp	r2,#65			; . 5.
031772: 001003              		bne	32002			; ..
031774: 012700 000011       		mov	#11,r0			; @...
032000: 000410              		br	32022			; ..
;
032002: 020227 000066       		cmp	r2,#66			; . 6.
032006: 001003              		bne	32016			; ..
032010: 012700 000015       		mov	#15,r0			; @...
032014: 000402              		br	32022			; ..
;
032016: 012700 000006       		mov	#6,r0			; @...
032022: 062700 001000       		add	#1000,r0		; @e..
032026: 010063 000140       		mov	r0,140(r3)		; 3.`.
032032: 000167 045056       		jmp	cret$			; w..J
;
				;	rd$uib( tcb )
				rd$uib::
032036: 004567 045036       		jsr	r5,csv$			; w..J
032042: 005746              		tst	-(sp)			; f.
032044: 016504 000004       		mov	4(r5),r4		; D...
032050: 016403 000002       		mov	2(r4),r3		; ....
032054: 010346              		mov	r3,-(sp)		; f.
032056: 004767 003652       		call	get.disk			; w.*.
032062: 005726              		tst	(sp)+			; V.
032064: 030027 000002       		bit	r0,#2			; .0..
032070: 001015              		bne	32124			; ..
032072: 005767 045724       		tst	100022			; w.TK
032076: 001406              		beq	32114			; ..
032100: 012746 000012       		mov	#12,-(sp)		; f...
032104: 004767 012550       		call	$sleep			; w.h.
032110: 005726              		tst	(sp)+			; V.
032112: 000403              		br	32122			; ..
;
032114: 012700 000003       		mov	#3,r0			; @...
032120: 000510              		br	32342			; H.
;
032122: 000754              		br	32054			; l.
;
032124: 005064 000024       		clr	24(r4)			; 4...
032130: 005064 000026       		clr	26(r4)			; 4...
032134: 005064 000030       		clr	30(r4)			; 4...
032140: 005064 000032       		clr	32(r4)			; 4...
032144: 012764 000001 000036		mov	#1,36(r4)		; t.....
032152: 012764 110600 000044		mov	#data,44(r4)		; t...$.
032160: 005064 000034       		clr	34(r4)			; 4...
032164: 000460              		br	32326			; 0.
;
032166: 010446              		mov	r4,-(sp)		; &.
032170: 004767 004654       		call	read			; w.,.
032174: 005726              		tst	(sp)+			; V.
032176: 005700              		tst	r0			; @.
032200: 001050              		bne	32322			; (.
032202: 005065 177770       		clr	177770(r5)		; 5.x.
032206: 000410              		br	32230			; ..
;
032210: 012700 110600       		mov	#data,r0		; @...
032214: 066500 177770       		add	177770(r5),r0		; @mx.
032220: 111000              		movb	(r0),r0			; ..
032222: 001034              		bne	32314			; ..
032224: 005265 177770       		inc	177770(r5)		; 5.x.
032230: 026527 177770 000011		cmp	177770(r5),#11		; W-x...
032236: 002764              		blt	32210			; t.
032240: 126727 056345 000066		cmpb	110611,#66		; W-e\6.
032246: 001022              		bne	32314			; ..
032250: 005065 177766       		clr	177766(r5)		; 5.v.
032254: 012702 110600       		mov	#data,r2		; B...
032260: 012765 000377 177770		mov	#377,177770(r5)		; u...x.
032266: 000402              		br	32274			; ..
;
032270: 062265 177766       		add	(r2)+,177766(r5)	; 5dv.
032274: 005365 177770       		dec	177770(r5)		; u.x.
032300: 002373              		bge	32270			; {.
032302: 022265 177766       		cmp	(r2)+,177766(r5)	; 5$v.
032306: 001002              		bne	32314			; ..
032310: 005000              		clr	r0			; ..
032312: 000413              		br	32342			; ..
;
032314: 012764 000001 000036		mov	#1,36(r4)		; t.....
032322: 005264 000034       		inc	34(r4)			; 4...
032326: 026427 000034 000003		cmp	34(r4),#3		; .-....
032334: 002714              		blt	32166			; L.
032336: 012700 000005       		mov	#5,r0			; @...
032342: 000167 044546       		jmp	cret$			; w.fI
				;--------------------------------------------------------
				;
				;	File:	prog.c	
				;
				;
				;	get$host( buffer, count )
				get$host::
032346: 004567 044526       		jsr	r5,csv$			; w.VI
032352: 036727 050312 000002		bit	102670,#2		; W=JP..
032360: 001403              		beq	32370			; ..
032362: 012700 000001       		mov	#1,r0			; @...
032366: 000452              		br	32514			; *.
;
032370: 052767 000004 050272		bis	#4,102670		; wU..:P
032376: 016567 000006 050252		mov	6(r5),102656		; w...*P
032404: 016567 000004 050246		mov	4(r5),102660		; w...&P
032412: 012746 102674       		mov	#102674,-(sp)		; f.<.
032416: 004767 011256       		call	$deq.head			; w...
032422: 005726              		tst	(sp)+			; V.
032424: 010004              		mov	r0,r4			; ..
032426: 001404              		beq	32440			; ..
032430: 010446              		mov	r4,-(sp)		; &.
032432: 004767 150346       		call	do$dup			; w.fP
032436: 005726              		tst	(sp)+			; V.
032440: 005767 050214       		tst	102660			; w..P
032444: 001415              		beq	32500			; ..
032446: 036727 050216 000002		bit	102670,#2		; W=.P..
032454: 001403              		beq	32464			; ..
032456: 012700 000001       		mov	#1,r0			; @...
032462: 000414              		br	32514			; ..
;
032464: 012746 000001       		mov	#1,-(sp)		; f...
032470: 004767 012164       		call	$sleep			; w.t.
032474: 005726              		tst	(sp)+			; V.
032476: 000760              		br	32440			; p.
;
032500: 062767 000001 050160		add	#1,102666		; we..pP
032506: 005567 050152       		adc	102664			; w.jP
032512: 005000              		clr	r0			; ..
032514: 000167 044374       		jmp	cret$			; w.|H
;
				;	put$host( buffer, count )
				put$host::
032520: 004567 044354       		jsr	r5,csv$			; w.lH
032524: 036727 050140 000002		bit	102670,#2		; W=`P..
032532: 001403              		beq	32542			; ..
032534: 012700 000001       		mov	#1,r0			; @...
032540: 000452              		br	32666			; *.
;
032542: 052767 000010 050120		bis	#10,102670		; wU..PP
032550: 016567 000006 050100		mov	6(r5),102656		; w...@P
032556: 016567 000004 050074		mov	4(r5),102660		; w...<P
032564: 012746 102674       		mov	#102674,-(sp)		; f.<.
032570: 004767 011104       		call	$deq.head			; w.D.
032574: 005726              		tst	(sp)+			; V.
032576: 010004              		mov	r0,r4			; ..
032600: 001404              		beq	32612			; ..
032602: 010446              		mov	r4,-(sp)		; &.
032604: 004767 150174       		call	do$dup			; w.|P
032610: 005726              		tst	(sp)+			; V.
032612: 005767 050042       		tst	102660			; w."P
032616: 001415              		beq	32652			; ..
032620: 036727 050044 000002		bit	102670,#2		; W=$P..
032626: 001403              		beq	32636			; ..
032630: 012700 000001       		mov	#1,r0			; @...
032634: 000414              		br	32666			; ..
;
032636: 012746 000001       		mov	#1,-(sp)		; f...
032642: 004767 012012       		call	$sleep			; w...
032646: 005726              		tst	(sp)+			; V.
032650: 000760              		br	32612			; p.
;
032652: 062767 000001 050006		add	#1,102666		; we...P
032660: 005567 050000       		adc	102664			; w..P
032664: 005000              		clr	r0			; ..
032666: 000167 044222       		jmp	cret$			; w..H
;
				;	progress( )
				progress::
032672: 004567 044202       		jsr	r5,csv$			; w..H
032676: 036727 047766 000002		bit	102670,#2		; W=vO..
032704: 001403              		beq	32714			; ..
032706: 012700 000001       		mov	#1,r0			; @...
032712: 000406              		br	32730			; ..
;
032714: 062767 000001 047744		add	#1,102666		; we..dO
032722: 005567 047736       		adc	102664			; w.^O
032726: 005000              		clr	r0			; ..
032730: 000167 044160       		jmp	cret$			; w.pH
;
				;	terminate( )
				terminate::
032734: 004567 044140       		jsr	r5,csv$			; w.`H
032740: 005067 047716       		clr	102662			; 7.NO
032744: 005067 047714       		clr	102664			; 7.LO
032750: 005067 047712       		clr	102666			; 7.JO
032754: 005067 047710       		clr	102670			; 7.HO
032760: 012767 000074 047704		mov	#74,102672		; w.<.DO
032766: 012746 102674       		mov	#102674,-(sp)		; f.<.
032772: 004767 010702       		call	$deq.head			; w.B.
032776: 005726              		tst	(sp)+			; V.
033000: 010004              		mov	r0,r4			; ..
033002: 001405              		beq	33016			; ..
033004: 010446              		mov	r4,-(sp)		; &.
033006: 004767 147772       		call	do$dup			; w.zO
033012: 005726              		tst	(sp)+			; V.
033014: 000764              		br	32766			; t.
;
033016: 042767 000004 047624		bic	#4,102650		; wE...O
033024: 012746 100044       		mov	#mem,-(sp)		; f.$.
033030: 004767 011300       		call	$release			; w.@.
033034: 005726              		tst	(sp)+			; V.
033036: 000167 044052       		jmp	cret$			; w.*H
				;--------------------------------------------------------
				;
				;	File:	
				;
				;
033042: 004567 044032       		jsr	r5,csv$			; w..H
033046: 016546 000010       		mov	10(r5),-(sp)		; f...
033052: 016546 000006       		mov	6(r5),-(sp)		; f...
033056: 016546 000004       		mov	4(r5),-(sp)		; f...
033062: 004767 043026       		call	76114			; w..F
033066: 062706 000006       		add	#6,sp			; Fe..
033072: 010002              		mov	r0,r2			; ..
033074: 010103              		mov	r1,r3			; C.
033076: 016500 000012       		mov	12(r5),r0		; @...
033102: 010210              		mov	r2,(r0)			; ..
033104: 010360 000002       		mov	r3,2(r0)		; p...
033110: 016546 000010       		mov	10(r5),-(sp)		; f...
033114: 016546 000006       		mov	6(r5),-(sp)		; f...
033120: 016546 000004       		mov	4(r5),-(sp)		; f...
033124: 004767 042752       		call	76102			; w.jE
033130: 062706 000006       		add	#6,sp			; Fe..
033134: 010002              		mov	r0,r2			; ..
033136: 010103              		mov	r1,r3			; C.
033140: 010300              		mov	r3,r0			; @.
033142: 000167 043746       		jmp	cret$			; w.fG
				;--------------------------------------------------------
				;
				;	uqsspm.mac
				;
				;
				iprisr::
033146: 032767 000002 047474		bit	#2,102650		; w5..<O
033154: 001405              		beq	33170			; ..
033156: 012746 100024       		mov	#100024,-(sp)		; f...
033162: 004767 011312       		call	$unblock			; w.J.
033166: 005726              		tst	(sp)+			; V.
033170: 000207              		return				; ..
;
				poll::
033172: 005746              		tst	-(sp)			; f.
033174: 004767 000100       		call	get.packet			; w.@.
033200: 010016              		mov	r0,(sp)			; ..
033202: 001421              		beq	33246			; ..
033204: 132760 000360 000004		bitb	#360,4(r0)		; p5p...
033212: 001026              		bne	33270			; ..
033214: 105760 000005       		tstb	5(r0)			; p...
033220: 001003              		bne	33230			; ..
033222: 004767 147300       		call	do$mscp			; w.@N
033226: 000762              		br	33174			; r.
;
033230: 122760 000002 000005		cmpb	#2,5(r0)		; p%....
033236: 001010              		bne	33260			; ..
033240: 004767 147540       		call	do$dup			; w.`O
033244: 000753              		br	33174			; k.
;
033246: 012716 100024       		mov	#100024,(sp)		; N...
033252: 004767 011142       		call	$block			; w.b.
033256: 000746              		br	33174			; f.
;
033260: 012746 000016       		mov	#16,-(sp)		; f...
033264: 004767 002042       		call	fatal.error			; w.".
033270: 012746 000024       		mov	#24,-(sp)		; f...
033274: 004767 002032       		call	fatal.error			; w...

				get.packet::
033300: 010246              		mov	r2,-(sp)		; &.
033302: 012702 110316       		mov	#110316,r2		; B.N.
033306: 005746              		tst	-(sp)			; f.
033310: 012716 100042       		mov	#dma,(sp)		; N.".
033314: 004767 010720       		call	$acquire			; w.P.
033320: 004767 000510       		call	get.descriptor			; w.H.
033324: 100403              		bmi	33334			; ..
033326: 005067 055032       		clr	110364			; 7..Z
033332: 000453              		br	33462			; +.
;
033334: 012716 100050       		mov	#100050,(sp)		; N.(.
033340: 004767 010360       		call	$deqf.head			; w.p.
033344: 010067 055014       		mov	r0,110364		; 7..Z
033350: 005267 044654       		inc	100230			; 7.,I
033354: 005067 044636       		clr	100216			; 7..I
033360: 012737 000020 160006		mov	#20,@#rw$csr		; _....`
033366: 062700 000002       		add	#2,r0			; @e..
033372: 010037 140000       		mov	r0,@#140000		; ...@
033376: 016700 054752       		mov	110354,r0		; @.jY
033402: 016701 054750       		mov	110356,r1		; A.hY
033406: 162701 000004       		sub	#4,r1			; Ae..
033412: 005600              		sbc	r0			; ..
033414: 010137 160200       		mov	r1,@#w$q22l		; _..`
033420: 010037 160202       		mov	r0,@#w$q22h		; ...`
033424: 012737 000040 160204		mov	#40,@#w$wcnt		; _. ..`
033432: 005237 160006       		inc	@#rw$csr		; ...`
033436: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
033444: 001374              		bne	33436			; |.
033446: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
033454: 001014              		bne	33506			; ..
033456: 004767 000562       		call	put.descriptor			; w.r.
033462: 016702 054676       		mov	110364,r2		; B.>Y
033466: 012716 100042       		mov	#dma,(sp)		; N.".
033472: 004767 010636       		call	$release			; w...
033476: 005726              		tst	(sp)+			; V.
033500: 010200              		mov	r2,r0			; ..
033502: 012602              		mov	(sp)+,r2		; ..
033504: 000207              		return				; ..
;
033506: 012746 000001       		mov	#1,-(sp)		; f...
033512: 004767 001614       		call	fatal.error			; w...

				put.packet::
033516: 010246              		mov	r2,-(sp)		; &.
033520: 012702 110334       		mov	#110334,r2		; B.\.
033524: 005746              		tst	-(sp)			; f.
033526: 012716 100042       		mov	#dma,(sp)		; N.".
033532: 004767 010502       		call	$acquire			; w.B.
033536: 004767 000272       		call	get.descriptor			; w.:.
033542: 100411              		bmi	33566			; ..
033544: 012716 100042       		mov	#dma,(sp)		; N.".
033550: 004767 010560       		call	$release			; w.p.
033554: 012716 000005       		mov	#5,(sp)			; N...
033560: 004767 011074       		call	$sleep			; w.<.
033564: 000760              		br	33526			; p.
;
033566: 016600 000006       		mov	6(sp),r0		; ....
033572: 016001 000002       		mov	2(r0),r1		; ....
033576: 062701 000004       		add	#4,r1			; Ae..
033602: 006201              		asr	r1			; ..
033604: 010116              		mov	r1,(sp)			; N.
033606: 132760 000360 000004		bitb	#360,4(r0)		; p5p...
033614: 001020              		bne	33656			; ..
033616: 105760 000016       		tstb	16(r0)			; p...
033622: 100015              		bpl	33656			; ..
033624: 016701 044424       		mov	100254,r1		; A..I
033630: 001407              		beq	33650			; ..
033632: 022701 000016       		cmp	#16,r1			; A%..
033636: 002002              		bge	33644			; ..
033640: 012701 000016       		mov	#16,r1			; A...
033644: 160167 044404       		sub	r1,100254		; w`.I
033650: 005201              		inc	r1			; ..
033652: 150160 000004       		bisb	r1,4(r0)		; pP..
033656: 012737 000022 160006		mov	#22,@#rw$csr		; _....`
033664: 062700 000002       		add	#2,r0			; @e..
033670: 010037 140000       		mov	r0,@#140000		; ...@
033674: 016700 054454       		mov	110354,r0		; @.,Y
033700: 016701 054452       		mov	110356,r1		; A.*Y
033704: 162701 000004       		sub	#4,r1			; Ae..
033710: 005600              		sbc	r0			; ..
033712: 010137 160200       		mov	r1,@#w$q22l		; _..`
033716: 010037 160202       		mov	r0,@#w$q22h		; ...`
033722: 011637 160204       		mov	(sp),@#w$wcnt		; ...`
033726: 005237 160006       		inc	@#rw$csr		; ...`
033732: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
033740: 001374              		bne	33732			; |.
033742: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
033750: 001025              		bne	34024			; ..
033752: 004767 000266       		call	put.descriptor			; w.6.
033756: 012716 100042       		mov	#dma,(sp)		; N.".
033762: 004767 010346       		call	$release			; w.f.
033766: 016616 000006       		mov	6(sp),(sp)		; ....
033772: 012746 100050       		mov	#100050,-(sp)		; f.(.
033776: 004767 007606       		call	$enq.head			; w...
034002: 022626              		cmp	(sp)+,(sp)+		; .%
034004: 005367 044220       		dec	100230			; w..H
034010: 001003              		bne	34020			; ..
034012: 016767 046634 044176		mov	102652,100216		; w..M~H
034020: 012602              		mov	(sp)+,r2		; ..
034022: 000207              		return				; ..
;
034024: 012746 000002       		mov	#2,-(sp)		; f...
034030: 004767 001276       		call	fatal.error			; w.>.

				get.descriptor::
034034: 016200 000000       		mov	0(r2),r0		; ....
034040: 016201 000014       		mov	14(r2),r1		; ....
034044: 062701 000002       		add	#2,r1			; Ae..
034050: 066201 000002       		add	2(r2),r1		; .l..
034054: 005500              		adc	r0			; @.
034056: 012737 000020 160006		mov	#20,@#rw$csr		; _....`
034064: 012737 110354 140000		mov	#110354,@#140000	; _.l..@
034072: 010137 160200       		mov	r1,@#w$q22l		; _..`
034076: 010037 160202       		mov	r0,@#w$q22h		; ...`
034102: 012737 000001 160204		mov	#1,@#w$wcnt		; _....`
034110: 005237 160006       		inc	@#rw$csr		; ...`
034114: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034122: 001374              		bne	34114			; |.
034124: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
034132: 001040              		bne	34234			;  .
034134: 005767 054214       		tst	110354			; w..X
034140: 100034              		bpl	34232			; ..
034142: 010067 054212       		mov	r0,110360		; 7..X
034146: 010167 054210       		mov	r1,110362		; w..X
034152: 162701 000002       		sub	#2,r1			; Ae..
034156: 005600              		sbc	r0			; ..
034160: 012737 110356 140000		mov	#110356,@#140000	; _.n..@
034166: 010137 160200       		mov	r1,@#w$q22l		; _..`
034172: 010037 160202       		mov	r0,@#w$q22h		; ...`
034176: 012737 000001 160204		mov	#1,@#w$wcnt		; _....`
034204: 005237 160006       		inc	@#rw$csr		; ...`
034210: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034216: 001374              		bne	34210			; |.
034220: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
034226: 001002              		bne	34234			; ..
034230: 000270              		sen				; 8.
034232: 000207              		return				; ..
;
034234: 012746 000006       		mov	#6,-(sp)		; f...
034240: 004767 001066       		call	fatal.error			; w.6.

				put.descriptor::
034244: 012737 000022 160006		mov	#22,@#rw$csr		; _....`
034252: 016746 054076       		mov	110354,-(sp)		; f.>X
034256: 052716 040000       		bis	#40000,(sp)		; NU.@
034262: 042716 100000       		bic	#100000,(sp)		; NE..
034266: 010637 140000       		mov	sp,@#140000		; ...@
034272: 016737 054064 160200		mov	110362,@#w$q22l		; _.4X.`
034300: 016737 054054 160202		mov	110360,@#w$q22h		; _.,X.`
034306: 012737 000001 160204		mov	#1,@#w$wcnt		; _....`
034314: 005237 160006       		inc	@#rw$csr		; ...`
034320: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034326: 001374              		bne	34320			; |.
034330: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
034336: 001120              		bne	34600			; P.
034340: 032767 040000 054006		bit	#40000,110354		; w5.@.X
034346: 001504              		beq	34560			; D.
034350: 022762 000001 000010		cmp	#1,10(r2)		; r%....
034356: 001445              		beq	34472			; %.
034360: 016200 000000       		mov	0(r2),r0		; ....
034364: 016201 000014       		mov	14(r2),r1		; ....
034370: 162701 000004       		sub	#4,r1			; Ae..
034374: 046201 000012       		bic	12(r2),r1		; .L..
034400: 062701 000002       		add	#2,r1			; Ae..
034404: 066201 000002       		add	2(r2),r1		; .l..
034410: 005500              		adc	r0			; @.
034412: 012737 000020 160006		mov	#20,@#rw$csr		; _....`
034420: 010637 140000       		mov	sp,@#140000		; ...@
034424: 010137 160200       		mov	r1,@#w$q22l		; _..`
034430: 010037 160202       		mov	r0,@#w$q22h		; ...`
034434: 012737 000001 160204		mov	#1,@#w$wcnt		; _....`
034442: 005237 160006       		inc	@#rw$csr		; ...`
034446: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034454: 001374              		bne	34446			; |.
034456: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
034464: 001045              		bne	34600			; %.
034466: 005716              		tst	(sp)			; N.
034470: 100033              		bpl	34560			; ..
034472: 012737 000022 160006		mov	#22,@#rw$csr		; _....`
034500: 012716 000001       		mov	#1,(sp)			; N...
034504: 010637 140000       		mov	sp,@#140000		; ...@
034510: 016237 000006 160200		mov	6(r2),@#w$q22l		; .....`
034516: 016237 000004 160202		mov	4(r2),@#w$q22h		; .....`
034524: 012737 000001 160204		mov	#1,@#w$wcnt		; _....`
034532: 005237 160006       		inc	@#rw$csr		; ...`
034536: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034544: 001374              		bne	34536			; |.
034546: 005767 043504       		tst	vector			; w.DG
034552: 001402              		beq	34560			; ..
034554: 005037 160216       		clr	@#w$req		; ...`
034560: 062762 000004 000014		add	#4,14(r2)		; re....
034566: 046262 000012 000014		bic	12(r2),14(r2)		; 2L....
034574: 005726              		tst	(sp)+			; V.
034576: 000207              		return				; ..
;
034600: 012746 000007       		mov	#7,-(sp)		; f...
034604: 004767 000522       		call	fatal.error			; w.R.

				get.buffer::
034610: 012767 000020 053534		mov	#20,110352		; w...\W
034616: 000403              		br	34626			; ..
;
				put.buffer::
034620: 012767 000022 053524		mov	#22,110352		; w...TW
034626: 016737 053520 160006		mov	110352,@#rw$csr		; _.PW.`
034634: 016600 000010       		mov	10(sp),r0		; ....
034640: 001441              		beq	34744			; !.
034642: 016637 000006 140000		mov	6(sp),@#140000		; .....@
034650: 016637 000004 160200		mov	4(sp),@#w$q22l		; .....`
034656: 016637 000002 160202		mov	2(sp),@#w$q22h		; .....`
034664: 100430              		bmi	map.buffer			; ..
034666: 006200              		asr	r0			; ..
034670: 010037 160204       		mov	r0,@#w$wcnt		; ...`
034674: 005237 160006       		inc	@#rw$csr		; ...`
034700: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
034706: 001374              		bne	34700			; |.
034710: 005000              		clr	r0			; ..
034712: 032737 000200 160006		bit	#200,@#rw$csr		; _5...`
034720: 001403              		beq	34730			; ..
034722: 012700 004000       		mov	#4000,r0		; @...
034726: 000406              		br	34744			; ..
;
034730: 032737 000100 160006		bit	#100,@#rw$csr		; _5@..`
034736: 001402              		beq	34744			; ..
034740: 012700 010000       		mov	#10000,r0		; @...
034744: 000207              		return				; ..
;
				map.buffer::
034746: 010246              		mov	r2,-(sp)		; &.
034750: 005000              		clr	r0			; ..
034752: 156600 000005       		bisb	5(sp),r0		; .]..
034756: 005001              		clr	r1			; ..
034760: 156601 000004       		bisb	4(sp),r1		; .]..
034764: 000301              		swab	r1			; A.
034766: 156601 000007       		bisb	7(sp),r1		; .]..
034772: 006201              		asr	r1			; ..
034774: 006301              		asl	r1			; A.
034776: 006301              		asl	r1			; A.
035000: 006100              		rol	r0			; @.
035002: 016702 053356       		mov	110364,r2		; B.nV
035006: 066201 000032       		add	32(r2),r1		; .l..
035012: 005500              		adc	r0			; @.
035014: 066200 000034       		add	34(r2),r0		; .l..
035020: 012737 000020 160006		mov	#20,@#rw$csr		; _....`
035026: 012737 110366 140000		mov	#110366,@#140000	; _.v..@
035034: 010137 160200       		mov	r1,@#w$q22l		; _..`
035040: 010037 160202       		mov	r0,@#w$q22h		; ...`
035044: 012737 000002 160204		mov	#2,@#w$wcnt		; _....`
035052: 005237 160006       		inc	@#rw$csr		; ...`
035056: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
035064: 001374              		bne	35056			; |.
035066: 032737 000300 160006		bit	#300,@#rw$csr		; _5@..`
035074: 001112              		bne	35322			; J.
035076: 005767 053266       		tst	110370			; w.6V
035102: 100403              		bmi	35112			; ..
035104: 012700 002000       		mov	#2000,r0		; @...
035110: 000502              		br	35316			; B.
;
035112: 016737 053234 160006		mov	110352,@#rw$csr		; _..V.`
035120: 016637 000010 140000		mov	10(sp),@#140000		; .....@
035126: 005000              		clr	r0			; ..
035130: 156700 053233       		bisb	110367,r0		; @].V
035134: 005001              		clr	r1			; ..
035136: 156701 053224       		bisb	110366,r1		; A].V
035142: 000301              		swab	r1			; A.
035144: 006301              		asl	r1			; A.
035146: 006100              		rol	r0			; @.
035150: 016602 000006       		mov	6(sp),r2		; ....
035154: 042702 177000       		bic	#177000,r2		; BE.~
035160: 050201              		bis	r2,r1			; .P
035162: 010137 160200       		mov	r1,@#w$q22l		; _..`
035166: 010037 160202       		mov	r0,@#w$q22h		; ...`
035172: 012700 001000       		mov	#1000,r0		; @...
035176: 160200              		sub	r2,r0			; .`
035200: 026600 000012       		cmp	12(sp),r0		; .-..
035204: 003002              		bgt	35212			; ..
035206: 016600 000012       		mov	12(sp),r0		; ....
035212: 010001              		mov	r0,r1			; ..
035214: 006200              		asr	r0			; ..
035216: 010037 160204       		mov	r0,@#w$wcnt		; ...`
035222: 005237 160006       		inc	@#rw$csr		; ...`
035226: 032737 000001 160006		bit	#1,@#rw$csr		; _5...`
035234: 001374              		bne	35226			; |.
035236: 032737 000200 160006		bit	#200,@#rw$csr		; _5...`
035244: 001403              		beq	35254			; ..
035246: 012700 004000       		mov	#4000,r0		; @...
035252: 000421              		br	35316			; ..
;
035254: 032737 000100 160006		bit	#100,@#rw$csr		; _5@..`
035262: 001403              		beq	35272			; ..
035264: 012700 010000       		mov	#10000,r0		; @...
035270: 000412              		br	35316			; ..
;
035272: 060166 000006       		add	r1,6(sp)		; v`..
035276: 005566 000004       		adc	4(sp)			; v...
035302: 060166 000010       		add	r1,10(sp)		; v`..
035306: 160166 000012       		sub	r1,12(sp)		; v`..
035312: 003216              		bgt	34750			; ..
035314: 005000              		clr	r0			; ..
035316: 012602              		mov	(sp)+,r2		; ..
035320: 000207              		return				; ..
;
035322: 012746 000026       		mov	#26,-(sp)		; f...
035326: 004767 000000       		call	fatal.error			; w...


				fatal.error::
035332: 106427 000340       		mtps	#340			; ..`.
035336: 016600 000002       		mov	2(sp),r0		; ....
035342: 010067 042452       		mov	r0,100020		; 7.*E
035346: 005037 140004       		clr	@#w$fpl		; ...@
035352: 012737 000000 140022		mov	#0,@#w$cmd		; _....@
035360: 012737 000107 140022		mov	#107,@#w$cmd		; _.G..@
035366: 012737 000002 140020		mov	#2,@#w$dat		; _....@
035374: 012737 000001 140022		mov	#1,@#w$cmd		; _....@
035402: 010037 160210       		mov	r0,@#w$sard		; ...`
035406: 052700 100000       		bis	#100000,r0		; @U..
035412: 010037 160210       		mov	r0,@#w$sard		; ...`
035416: 005767 042634       		tst	vector			; w..E
035422: 001402              		beq	35430			; ..
035424: 005037 160216       		clr	@#w$req		; ...`
035430: 012767 000764 042352		mov	#764,100010		; w.t.jD
035436: 012767 000470 042346		mov	#470,100012		; w.8.fD
035444: 012767 000470 042342		mov	#470,100014		; w.8.bD
035452: 012767 000470 042336		mov	#470,100016		; w.8.^D
035460: 106427 000200       		mtps	#200			; ....
035464: 000777              		br	35464			; ..

				;----------------------------------------------
				;
				;	9224m.mac
				;
				udcisr::
035466: 005746              		tst	-(sp)			; f.
035470: 005767 042532       		tst	100226			; w.ZE
035474: 001464              		beq	35646			; 4.
035476: 005067 042524       		clr	100226			; 7.TE
035502: 112737 000110 140022		movb	#110,@#w$cmd		; _.H..@
035510: 113700 140010       		movb	@#r$dat,r0		; @..@
035514: 006300              		asl	r0			; @.
035516: 042700 177771       		bic	#177771,r0		; @Ey.
035522: 016001 035710       		mov	35710(r0),r1		; ..H;
035526: 030167 042462       		bit	r1,100214		; w02E
035532: 001005              		bne	35546			; ..
035534: 006201              		asr	r1			; ..
035536: 005740              		tst	-(r0)			; `.
035540: 042700 177771       		bic	#177771,r0		; @Ey.
035544: 000770              		br	35526			; x.
;
035546: 040167 042442       		bic	r1,100214		; w@"E
035552: 062700 100032       		add	#100032,r0		; @e..
035556: 005710              		tst	(r0)			; H.
035560: 100403              		bmi	35570			; ..
035562: 012710 000001       		mov	#1,(r0)			; H...
035566: 000403              		br	35576			; ..
;
035570: 010016              		mov	r0,(sp)			; ..
035572: 004767 006702       		call	$unblock			; w.B.
035576: 005767 042412       		tst	100214			; w..E
035602: 001440              		beq	35704			;  .
035604: 112737 000001 140022		movb	#1,@#w$cmd		; _....@
035612: 132737 000040 140012		bitb	#40,@#r$cmd		; _5 ..@
035620: 001774              		beq	35612			; |.
035622: 012700 000020       		mov	#20,r0			; @...
035626: 066700 042362       		add	100214,r0		; @mrD
035632: 010067 042370       		mov	r0,100226		; 7.xD
035636: 116737 042364 140022		movb	100226,@#w$cmd		; _.tD.@
035644: 000417              		br	35704			; ..
;
035646: 012716 100030       		mov	#100030,(sp)		; N...
035652: 004767 006622       		call	$unblock			; w...
035656: 005767 042144       		tst	100026			; w.dD
035662: 100404              		bmi	35674			; ..
035664: 012767 000001 042134		mov	#1,100026		; w...\D
035672: 000404              		br	35704			; ..
;
035674: 012716 100026       		mov	#100026,(sp)		; N...
035700: 004767 006574       		call	$unblock			; w.|.
035704: 005726              		tst	(sp)+			; V.
035706: 000207              		return				; ..
;
035710: 000021              		.word	21			; ..
035712: 000042              		.word	42			; ".
035714: 000104              		.word	104			; D.
035716: 000210              		.word	210			; ..

				secisr::
035720: 012746 100026   		mov	#100026,-(sp)		; f...
035724: 004767 006550   		call	$unblock			; w.h.
035730: 005726          		tst	(sp)+			; V.
035732: 000207          		return				; ..
;
				get.disk::
035734: 012746 100046   		mov	#udc,-(sp)		; f.&.
035740: 004767 006274   		call	$acquire			; w.<.
035744: 005767 042256   		tst	100226			; w..D
035750: 001405          		beq	35764			; ..
035752: 012716 000001   		mov	#1,(sp)			; N...
035756: 004767 006676   		call	$sleep			; w.>.
035762: 000770          		br	35744			; x.
;
035764: 016601 000004       		mov	4(sp),r1		; ....
035770: 016700 042212       		mov	100206,r0		; @..D
035774: 042700 000004       		bic	#4,r0			; @E..
036000: 112737 000107 140022		movb	#107,@#w$cmd		; _.G..@
036006: 110037 140020       		movb	r0,@#w$dat		; ...@
036012: 005067 042216       		clr	100234			; 7..D
036016: 116137 000072 140022		movb	72(r1),@#w$cmd		; _.:..@
036024: 005767 042204       		tst	100234			; w..D
036030: 001775              		beq	36024			; }.
036032: 112737 000111 140022		movb	#111,@#w$cmd		; _.I..@
036040: 113700 140010       		movb	@#r$dat,r0		; @..@
036044: 032761 001000 000030		bit	#1000,30(r1)		; q5....
036052: 001423              		beq	36122			; ..
036054: 032700 000002       		bit	#2,r0			; @5..
036060: 001415              		beq	36114			; ..
036062: 005067 042146       		clr	100234			; 7.fD
036066: 112737 000006 140022		movb	#6,@#w$cmd		; _....@
036074: 005767 042134       		tst	100234			; w.\D
036100: 001775              		beq	36074			; }.
036102: 112737 000111 140022		movb	#111,@#w$cmd		; _.I..@
036110: 113700 140010       		movb	@#r$dat,r0		; @..@
036114: 012701 000002       		mov	#2,r1			; A...
036120: 074100              		xor	r1,r0			; @x
036122: 016701 042104       		mov	100232,r1		; A.DD
036126: 001002              		bne	36134			; ..
036130: 012701 000001       		mov	#1,r1			; A...
036134: 112737 000107 140022		movb	#107,@#w$cmd		; _.G..@
036142: 116737 042040 140020		movb	100206,@#w$dat		; _. D.@
036150: 005067 042060       		clr	100234			; 7.0D
036154: 110137 140022       		movb	r1,@#w$cmd		; _..@
036160: 005767 042050       		tst	100234			; w.(D
036164: 001775              		beq	36160			; }.
036166: 010016              		mov	r0,(sp)			; ..
036170: 012746 100046       		mov	#udc,-(sp)		; f.&.
036174: 004767 006134       		call	$release			; w.\.
036200: 005726              		tst	(sp)+			; V.
036202: 012600              		mov	(sp)+,r0		; ..
036204: 000207              		return				; ..
;
				seek::
036206: 004567 040666       		jsr	r5,csv$			; w.6A
036212: 016504 000004       		mov	4(r5),r4		; D...
036216: 016403 000002       		mov	2(r4),r3		; ....
036222: 004767 003414       		call	.select			; w...
036226: 112737 000104 140022		movb	#104,@#w$cmd		; _.D..@
036234: 016400 000030       		mov	30(r4),r0		; ....
036240: 006200              		asr	r0			; ..
036242: 006200              		asr	r0			; ..
036244: 006200              		asr	r0			; ..
036246: 006200              		asr	r0			; ..
036250: 042700 000017       		bic	#17,r0			; @E..
036254: 066400 000032       		add	32(r4),r0		; .m..
036260: 110037 140020       		movb	r0,@#w$dat		; ...@
036264: 116437 000030 140020		movb	30(r4),@#w$dat		; .....@
036272: 050067 052116       		bis	r0,110414		; 7PNT
036276: 005067 041526       		clr	100030			; 7.VC
036302: 112737 000124 140022		movb	#124,@#w$cmd		; _.T..@
036310: 016302 000072       		mov	72(r3),r2		; B.:.
036314: 042702 177774       		bic	#177774,r2		; BE|.
036320: 156367 000042 041666		bisb	42(r3),100214		; w\".6C
036326: 060202              		add	r2,r2			; .`
036330: 062702 100032       		add	#100032,r2		; Be..
036334: 005012              		clr	(r2)			; ..
036336: 012716 100030       		mov	#100030,(sp)		; N...
036342: 004767 006052       		call	$block			; w.*.
036346: 004767 003610       		call	.deselect			; w...
036352: 010216              		mov	r2,(sp)			; ..
036354: 004767 006040       		call	$block			; w. .
036360: 000167 040530       		jmp	cret$			; w.XA
;
				restore::
036364: 004567 040510       		jsr	r5,csv$			; w.HA
036370: 016503 000004       		mov	4(r5),r3		; C...
036374: 032763 000400 000030		bit	#400,30(r3)		; s5....
036402: 001407              		beq	36422			; ..
036404: 012702 000030       		mov	#30,r2			; B...
036410: 012716 000005       		mov	#5,(sp)			; N...
036414: 004767 154222       		call	put$udc			; w..X
036420: 077205              		sob	r2,36410		; .~
036422: 032763 000010 000030		bit	#10,30(r3)		; s5....
036430: 001006              		bne	36446			; ..
036432: 112737 000110 140022		movb	#110,@#w$cmd		; _.H..@
036440: 112737 000306 140020		movb	#306,@#w$dat		; _.F..@
036446: 012716 000003       		mov	#3,(sp)			; N...
036452: 004767 154164       		call	put$udc			; w.tX
036456: 112737 000111 140022		movb	#111,@#w$cmd		; _.I..@
036464: 132737 000020 140010		bitb	#20,@#r$dat		; _5...@
036472: 001765              		beq	36446			; u.
036474: 112737 000110 140022		movb	#110,@#w$cmd		; _.H..@
036502: 116737 041502 140020		movb	100210,@#w$dat		; _.BC.@
036510: 000167 040400       		jmp	cret$			; w..A
;
				size.media::
036514: 004567 040360       		jsr	r5,csv$			; w.p@
036520: 016503 000004       		mov	4(r5),r3		; C...
036524: 052767 000001 041454		bis	#1,100206		; wU..,C
036532: 005067 041474       		clr	100232			; 7.<C
036536: 004767 003100       		call	.select			; w.@.
036542: 005067 041454       		clr	100222			; 7.,C
036546: 005067 041466       		clr	100240			; 7.6C
036552: 112737 000111 140022		movb	#111,@#w$cmd		; _.I..@
036560: 132737 000100 140010		bitb	#100,@#r$dat		; _5@..@
036566: 001007              		bne	36606			; ..
036570: 022767 003720 041442		cmp	#3720,100240		; w%P."C
036576: 101365              		bhi	36552			; u.
036600: 012702 000043       		mov	#43,r2			; B.#.
036604: 000450              		br	36726			; (.
;
036606: 010316              		mov	r3,(sp)			; N.
036610: 004767 177550       		call	restore			; w.h.
036614: 004767 003342       		call	.deselect			; w.b.
036620: 010316              		mov	r3,(sp)			; N.
036622: 004767 172164       		call	rx50$media		; w.tt
036626: 052767 000010 041352		bis	#10,100206		; wU..jB
036634: 005067 041372       		clr	100232			; 7.zB
036640: 004767 002776       		call	.select			; w.~.
036644: 005067 041352       		clr	100222			; 7.jB
036650: 004767 000064       		call	170$			; w.4.
036654: 001424              		beq	36726			; ..
036656: 032763 001000 000030		bit	#1000,30(r3)		; s5....
036664: 001420              		beq	36726			; ..
036666: 004767 003270       		call	.deselect			; w.8.
036672: 010316              		mov	r3,(sp)			; N.
036674: 004767 171756       		call	rx33$media		; w.ns
036700: 042767 000010 041300		bic	#10,100206		; wE..@B
036706: 005067 041320       		clr	100232			; 7.PB
036712: 004767 002724       		call	.select			; w.T.
036716: 005067 041300       		clr	100222			; 7.@B
036722: 004767 000012       		call	170$			; w...
036726: 004767 003230       		call	.deselect			; w...
036732: 010200              		mov	r2,r0			; ..
036734: 000167 040154       		jmp	cret$			; w.l@
;
				170$:
036740: 112737 000103 140022		movb	#103,@#w$cmd		; _.C..@
036746: 112737 000001 140020		movb	#1,@#w$dat		; _....@
036754: 105037 140020       		clrb	@#w$dat		; ...@
036760: 105037 140020       		clrb	@#w$dat		; ...@
036764: 005067 041244       		clr	100234			; 7.$B
036770: 005067 041244       		clr	100240			; 7.$B
036774: 112737 000127 140022		movb	#127,@#w$cmd		; _.W..@
037002: 005767 041226       		tst	100234			; w..B
037006: 001007              		bne	37026			; ..
037010: 022767 003720 041222		cmp	#3720,100240		; w%P..B
037016: 101371              		bhi	37002			; y.
037020: 105037 140022       		clrb	@#w$cmd		; ...@
037024: 000406              		br	37042			; ..
;
037026: 132737 000030 140012		bitb	#30,@#r$cmd		; _5...@
037034: 001002              		bne	37042			; ..
037036: 005002              		clr	r2			; ..
037040: 000402              		br	37046			; ..
;
037042: 012702 000005       		mov	#5,r2			; B...
037046: 000207              		return				; ..
;
				read::
037050: 004567 040024       		jsr	r5,csv$			; w..@
037054: 016504 000004       		mov	4(r5),r4		; D...
037060: 016403 000002       		mov	2(r4),r3		; ....
037064: 004767 002552       		call	.select			; w.j.
037070: 012767 037254 051274		mov	#.read,110372		; w.,><R
037076: 000413              		br	37126			; ..
;
				write::
037100: 004567 037774       		jsr	r5,csv$			; w.|?
037104: 016504 000004       		mov	4(r5),r4		; D...
037110: 016403 000002       		mov	2(r4),r3		; ....
037114: 004767 002522       		call	.select			; w.R.
037120: 012767 040174 051244		mov	#.write,110372		; w.|@$R
037126: 005064 000056       		clr	56(r4)			; 4...
037132: 005064 000060       		clr	60(r4)			; 4.0.
037136: 004777 051230       		call	@110372			; ...R
037142: 005700              		tst	r0			; @.
037144: 001435              		beq	37240			; ..
037146: 010064 000056       		mov	r0,56(r4)		; 4...
037152: 032764 000400 000026		bit	#400,26(r4)		; t5....
037160: 001025              		bne	37234			; ..
037162: 032700 000100       		bit	#100,r0			; @5@.
037166: 001011              		bne	37212			; ..
037170: 010316              		mov	r3,(sp)			; N.
037172: 004767 177166       		call	restore			; w.v~
037176: 004777 051170       		call	@110372			; ..xR
037202: 005700              		tst	r0			; @.
037204: 001415              		beq	37240			; ..
037206: 010064 000056       		mov	r0,56(r4)		; 4...
037212: 032700 000010       		bit	#10,r0			; @5..
037216: 001406              		beq	37234			; ..
037220: 032764 001000 000026		bit	#1000,26(r4)		; t5....
037226: 001002              		bne	37234			; ..
037230: 004767 003144       		call	.apply.ecc			; w.d.
037234: 050064 000060       		bis	r0,60(r4)		; 4P0.
037240: 004767 002716       		call	.deselect			; w.N.
037244: 016400 000060       		mov	60(r4),r0		; ..0.
037250: 000167 037640       		jmp	cret$			; w. ?
;
				.read::
037254: 032763 000010 000030		bit	#10,30(r3)		; s5....
037262: 001405              		beq	37276			; ..
037264: 010446              		mov	r4,-(sp)		; &.
037266: 004767 154130       		call	rx$read			; w.XX
037272: 005726              		tst	(sp)+			; V.
037274: 000207              		return				; ..
;
037276: 012746 100042       		mov	#dma,-(sp)		; f.".
037302: 004767 004732       		call	$acquire			; w.Z.
037306: 016467 000004 051050		mov	4(r4),110364		; 7...(R
037314: 032764 000400 000026		bit	#400,26(r4)		; t5....
037322: 001404              		beq	37334			; ..
037324: 012767 000001 051046		mov	#1,110400		; w...&R
037332: 000403              		br	37342			; ..
;
037334: 012767 000010 051036		mov	#10,110400		; w....R
037342: 012767 000135 051024		mov	#135,110374		; w.]..R
037350: 016767 051024 051020		mov	110400,110376		; w..R.R
037356: 112737 000100 140022		movb	#100,@#w$cmd		; _.@..@
037364: 116437 000044 140020		movb	44(r4),@#w$dat		; ..$..@
037372: 116437 000045 140020		movb	45(r4),@#w$dat		; ..%..@
037400: 105037 140020       		clrb	@#w$dat		; ...@
037404: 116437 000034 140020		movb	34(r4),@#w$dat		; .....@
037412: 016400 000030       		mov	30(r4),r0		; ....
037416: 006200              		asr	r0			; ..
037420: 006200              		asr	r0			; ..
037422: 006200              		asr	r0			; ..
037424: 006200              		asr	r0			; ..
037426: 042700 000017       		bic	#17,r0			; @E..
037432: 066400 000032       		add	32(r4),r0		; .m..
037436: 110037 140020       		movb	r0,@#w$dat		; ...@
037442: 116437 000030 140020		movb	30(r4),@#w$dat		; .....@
037450: 116437 000036 140020		movb	36(r4),@#w$dat		; .....@
037456: 050067 050732       		bis	r0,110414		; 7PZQ
037462: 032764 000010 000024		bit	#10,24(r4)		; t5....
037470: 001002              		bne	37476			; ..
037472: 000167 000222       		jmp	37720			; w...
;
037476: 005067 040546       		clr	100250			; 7.fA
037502: 005067 040526       		clr	100234			; 7.VA
037506: 005067 040534       		clr	100246			; 7.\A
037512: 112737 000112 140022		movb	#112,@#w$cmd		; _.J..@
037520: 116737 050650 140022		movb	110374,@#w$cmd		; _.(Q.@
037526: 016467 000044 050646		mov	44(r4),110402		; 7.$.&Q
037534: 016467 000016 050644		mov	16(r4),110406		; 7...$Q
037542: 016467 000020 050640		mov	20(r4),110410		; 7... Q
037550: 016467 000042 050634		mov	42(r4),110412		; 7."..Q
037556: 005767 040464       		tst	100246			; w.4A
037562: 003006              		bgt	37600			; ..
037564: 005767 040444       		tst	100234			; w.$A
037570: 001772              		beq	37556			; z.
037572: 005767 040450       		tst	100246			; w.(A
037576: 001470              		beq	37760			; 8.
037600: 005367 040442       		dec	100246			; w."A
037604: 005267 040440       		inc	100250			; 7. A
037610: 005767 050576       		tst	110412			; w.~Q
037614: 003760              		ble	37556			; p.
037616: 022767 001000 050566		cmp	#1000,110412		; w%..vQ
037624: 002403              		blt	37634			; ..
037626: 016746 050560       		mov	110412,-(sp)		; f.pQ
037632: 000402              		br	37640			; ..
;
037634: 012746 001000       		mov	#1000,-(sp)		; f...
037640: 016746 050536       		mov	110402,-(sp)		; f.^Q
037644: 016746 050540       		mov	110410,-(sp)		; f.`Q
037650: 016746 050532       		mov	110406,-(sp)		; f.ZQ
037654: 004767 174740       		call	put.buffer			; w.`y
037660: 062706 000010       		add	#10,sp			; Fe..
037664: 050064 000060       		bis	r0,60(r4)		; 4P0.
037670: 062767 001000 050504		add	#1000,110402		; we..DQ
037676: 062767 001000 050504		add	#1000,110410		; we..DQ
037704: 005567 050476       		adc	110406			; w.>Q
037710: 162767 001000 050474		sub	#1000,110412		; we..<Q
037716: 000717              		br	37556			; O.
;
037720: 005067 040310       		clr	100234			; 7.H@
037724: 005067 040316       		clr	100246			; 7.N@
037730: 112737 000112 140022		movb	#112,@#w$cmd		; _.J..@
037736: 116737 050432 140022		movb	110374,@#w$cmd		; _..Q.@
037744: 005767 040264       		tst	100234			; w.4@
037750: 001775              		beq	37744			; }.
037752: 016767 040270 040270		mov	100246,100250		; w.8@8@
037760: 132737 000030 140012		bitb	#30,@#r$cmd		; _5...@
037766: 001002              		bne	37774			; ..
037770: 005002              		clr	r2			; ..
037772: 000463              		br	40142			; 3.
;
037774: 010416              		mov	r4,(sp)			; ..
037776: 012746 000001       		mov	#1,-(sp)		; f...
040002: 004767 152700       		call	get$udc			; w.@U
040006: 005726              		tst	(sp)+			; V.
040010: 010002              		mov	r0,r2			; ..
040012: 001453              		beq	40142			; +.
040014: 026767 050356 050356		cmp	110376,110400		; w-nPnP
040022: 001413              		beq	40052			; ..
040024: 010264 000056       		mov	r2,56(r4)		; 4...
040030: 032702 000100       		bit	#100,r2			; B5@.
040034: 001013              		bne	40064			; ..
040036: 022702 040020       		cmp	#40020,r2		; B%.@
040042: 001003              		bne	40052			; ..
040044: 052702 000100       		bis	#100,r2			; BU@.
040050: 000405              		br	40064			; ..
;
040052: 005367 050320       		dec	110376			; w.PP
040056: 002402              		blt	40064			; ..
040060: 000167 177272       		jmp	37356			; w.:~
;
040064: 112737 000103 140022		movb	#103,@#w$cmd		; _.C..@
040072: 113700 140010       		movb	@#r$dat,r0		; @..@
040076: 166400 000034       		sub	34(r4),r0		; .m..
040102: 010064 000040       		mov	r0,40(r4)		; 4. .
040106: 032702 040000       		bit	#40000,r2		; B5.@
040112: 001405              		beq	40126			; ..
040114: 032702 000002       		bit	#2,r2			; B5..
040120: 001413              		beq	40150			; ..
040122: 005364 000040       		dec	40(r4)			; t. .
040126: 032702 000002       		bit	#2,r2			; B5..
040132: 001406              		beq	40150			; ..
040134: 005367 040110       		dec	100250			; w.H@
040140: 000403              		br	40150			; ..
;
040142: 016464 000036 000040		mov	36(r4),40(r4)		; 4... .
040150: 026764 040074 000040		cmp	100250,40(r4)		; t-<@ .
040156: 001402              		beq	40164			; ..
040160: 000167 177164       		jmp	37350			; w.t~
;
040164: 004767 001034       		call	.update.tcb			; w...
040170: 000167 177146       		jmp	37342			; w.f~
;
				.write::
040174: 032763 000010 000030		bit	#10,30(r3)		; s5....
040202: 001405              		beq	40216			; ..
040204: 010446              		mov	r4,-(sp)		; &.
040206: 004767 154520       		call	rx$write			; w.PY
040212: 005726              		tst	(sp)+			; V.
040214: 000207              		return				; ..
;
040216: 012746 100042       		mov	#dma,-(sp)		; f.".
040222: 004767 004012       		call	$acquire			; w...
040226: 016467 000004 050130		mov	4(r4),110364		; 7...XP
040234: 032764 000400 000026		bit	#400,26(r4)		; t5....
040242: 001404              		beq	40254			; ..
040244: 012767 000001 050126		mov	#1,110400		; w...VP
040252: 000403              		br	40262			; ..
;
040254: 012767 000010 050116		mov	#10,110400		; w...NP
040262: 012767 000240 050104		mov	#240,110374		; w. .DP
040270: 032764 010000 000026		bit	#10000,26(r4)		; t5....
040276: 001403              		beq	40306			; ..
040300: 052767 000020 050066		bis	#20,110374		; wU..6P
040306: 026463 000030 000064		cmp	30(r4),64(r3)		; 3-..4.
040314: 002403              		blt	40324			; ..
040316: 052767 000002 050050		bis	#2,110374		; wU..(P
040324: 016767 050050 050044		mov	110400,110376		; w.(P$P
040332: 112737 000100 140022		movb	#100,@#w$cmd		; _.@..@
040340: 116437 000044 140020		movb	44(r4),@#w$dat		; ..$..@
040346: 116437 000045 140020		movb	45(r4),@#w$dat		; ..%..@
040354: 105037 140020       		clrb	@#w$dat		; ...@
040360: 116437 000034 140020		movb	34(r4),@#w$dat		; .....@
040366: 016400 000030       		mov	30(r4),r0		; ....
040372: 006200              		asr	r0			; ..
040374: 006200              		asr	r0			; ..
040376: 006200              		asr	r0			; ..
040400: 006200              		asr	r0			; ..
040402: 042700 000017       		bic	#17,r0			; @E..
040406: 066400 000032       		add	32(r4),r0		; .m..
040412: 110037 140020       		movb	r0,@#w$dat		; ...@
040416: 116437 000030 140020		movb	30(r4),@#w$dat		; .....@
040424: 116437 000036 140020		movb	36(r4),@#w$dat		; .....@
040432: 050067 047756       		bis	r0,110414		; 7PnO
040436: 032764 000020 000024		bit	#20,24(r4)		; t5....
040444: 001002              		bne	40452			; ..
040446: 000167 000356       		jmp	41030			; w.n.
;
040452: 005067 037556       		clr	100234			; 7.n?
040456: 012767 177777 037562		mov	#177777,100246		; w...r?
040464: 016467 000044 047712		mov	44(r4),110404		; 7.$.JO
040472: 016467 000016 047706		mov	16(r4),110406		; 7...FO
040500: 016467 000020 047702		mov	20(r4),110410		; 7...BO
040506: 016467 000042 047676		mov	42(r4),110412		; 7.".>O
040514: 022767 001000 047670		cmp	#1000,110412		; w%..8O
040522: 002403              		blt	40532			; ..
040524: 016746 047662       		mov	110412,-(sp)		; f.2O
040530: 000402              		br	40536			; ..
;
040532: 012746 001000       		mov	#1000,-(sp)		; f...
040536: 016746 047642       		mov	110404,-(sp)		; f."O
040542: 016746 047642       		mov	110410,-(sp)		; f."O
040546: 016746 047634       		mov	110406,-(sp)		; f..O
040552: 004767 174032       		call	get.buffer			; w..x
040556: 062706 000010       		add	#10,sp			; Fe..
040562: 050064 000060       		bis	r0,60(r4)		; 4P0.
040566: 062767 001000 047610		add	#1000,110404		; we...O
040574: 062767 001000 047606		add	#1000,110410		; we...O
040602: 005567 047600       		adc	110406			; w..O
040606: 162767 001000 047576		sub	#1000,110412		; we..~O
040614: 032764 000777 000042		bit	#777,42(r4)		; t5..".
040622: 001416              		beq	40660			; ..
040624: 012700 001000       		mov	#1000,r0		; @...
040630: 016401 000042       		mov	42(r4),r1		; ..".
040634: 042701 177000       		bic	#177000,r1		; AE.~
040640: 160100              		sub	r1,r0			; @`
040642: 006200              		asr	r0			; ..
040644: 016401 000044       		mov	44(r4),r1		; ..$.
040650: 066401 000042       		add	42(r4),r1		; .m".
040654: 005021              		clr	(r1)+			; ..
040656: 077002              		sob	r0,40654		; .~
040660: 112737 000112 140022		movb	#112,@#w$cmd		; _.J..@
040666: 116737 047502 140022		movb	110374,@#w$cmd		; _.BO.@
040674: 005767 047512       		tst	110412			; w.JO
040700: 003463              		ble	41050			; 3.
040702: 022767 001000 047502		cmp	#1000,110412		; w%..BO
040710: 002403              		blt	40720			; ..
040712: 016746 047474       		mov	110412,-(sp)		; f.<O
040716: 000402              		br	40724			; ..
;
040720: 012746 001000       		mov	#1000,-(sp)		; f...
040724: 016746 047454       		mov	110404,-(sp)		; f.,O
040730: 016746 047454       		mov	110410,-(sp)		; f.,O
040734: 016746 047446       		mov	110406,-(sp)		; f.&O
040740: 004767 173644       		call	get.buffer			; w.$w
040744: 062706 000010       		add	#10,sp			; Fe..
040750: 050064 000060       		bis	r0,60(r4)		; 4P0.
040754: 062767 001000 047422		add	#1000,110404		; we...O
040762: 062767 001000 047420		add	#1000,110410		; we...O
040770: 005567 047412       		adc	110406			; w..O
040774: 162767 001000 047410		sub	#1000,110412		; we...O
041002: 005767 037240       		tst	100246			; w. >
041006: 002405              		blt	41022			; ..
041010: 005767 037220       		tst	100234			; w..>
041014: 001775              		beq	41010			; }.
041016: 000167 177302       		jmp	40324			; w.B~
;
041022: 005367 037220       		dec	100246			; w..>
041026: 000722              		br	40674			; R.
;
041030: 005067 037200       		clr	100234			; 7..>
041034: 112737 000112 140022		movb	#112,@#w$cmd		; _.J..@
041042: 116737 047326 140022		movb	110374,@#w$cmd		; _.VN.@
041050: 005767 037160       		tst	100234			; w.p>
041054: 001775              		beq	41050			; }.
041056: 132737 000030 140012		bitb	#30,@#r$cmd		; _5...@
041064: 001002              		bne	41072			; ..
041066: 005002              		clr	r2			; ..
041070: 000446              		br	41206			; &.
;
041072: 010416              		mov	r4,(sp)			; ..
041074: 012746 000002       		mov	#2,-(sp)		; f...
041100: 004767 151602       		call	get$udc			; w..S
041104: 005726              		tst	(sp)+			; V.
041106: 010002              		mov	r0,r2			; ..
041110: 001436              		beq	41206			; ..
041112: 026767 047260 047260		cmp	110376,110400		; w-0N0N
041120: 001413              		beq	41150			; ..
041122: 010264 000056       		mov	r2,56(r4)		; 4...
041126: 032702 000100       		bit	#100,r2			; B5@.
041132: 001013              		bne	41162			; ..
041134: 022702 040020       		cmp	#40020,r2		; B%.@
041140: 001003              		bne	41150			; ..
041142: 052702 000100       		bis	#100,r2			; BU@.
041146: 000405              		br	41162			; ..
;
041150: 005367 047222       		dec	110376			; w..N
041154: 002402              		blt	41162			; ..
041156: 000167 177150       		jmp	40332			; w.h~
;
041162: 112737 000103 140022		movb	#103,@#w$cmd		; _.C..@
041170: 113700 140010       		movb	@#r$dat,r0		; @..@
041174: 166400 000034       		sub	34(r4),r0		; .m..
041200: 010064 000040       		mov	r0,40(r4)		; 4. .
041204: 000403              		br	41214			; ..
;
041206: 016464 000036 000040		mov	36(r4),40(r4)		; 4... .
041214: 004767 000004       		call	.update.tcb			; w...
041220: 000167 177036       		jmp	40262			; w..~
;
				.update.tcb::
041224: 005702              		tst	r2			; B.
041226: 001166              		bne	41604			; v.
041230: 032764 000030 000024		bit	#30,24(r4)		; t5....
041236: 001562              		beq	41604			; r.
041240: 166464 000042 000014		sub	42(r4),14(r4)		; 4m"...
041246: 001004              		bne	41260			; ..
041250: 005664 000012       		sbc	12(r4)			; 4...
041254: 003543              		ble	41564			; c.
041256: 000403              		br	41266			; ..
;
041260: 005664 000012       		sbc	12(r4)			; 4...
041264: 002537              		blt	41564			; _.
041266: 022767 000001 036546		cmp	#1,100042		; w%..f=
041274: 001406              		beq	41312			; ..
041276: 012746 100042       		mov	#dma,-(sp)		; f.".
041302: 004767 003026       		call	$release			; w...
041306: 005726              		tst	(sp)+			; V.
041310: 005202              		inc	r2			; ..
041312: 066464 000040 000010		add	40(r4),10(r4)		; 4m ...
041320: 005564 000006       		adc	6(r4)			; t...
041324: 066464 000040 000034		add	40(r4),34(r4)		; 4m ...
041332: 026463 000034 000110		cmp	34(r4),110(r3)		; 3-..H.
041340: 002430              		blt	41422			; ..
041342: 005064 000034       		clr	34(r4)			; 4...
041346: 005264 000032       		inc	32(r4)			; 4...
041352: 026463 000032 000112		cmp	32(r4),112(r3)		; 3-..J.
041360: 002420              		blt	41422			; ..
041362: 005064 000032       		clr	32(r4)			; 4...
041366: 005264 000030       		inc	30(r4)			; 4...
041372: 005777 047076       		tst	@runjob			; ..>N
041376: 001411              		beq	41422			; ..
041400: 012746 000002       		mov	#2,-(sp)		; f...
041404: 004767 003320       		call	$setpriority			; w.P.
041410: 012716 000004       		mov	#4,(sp)			; N...
041414: 004767 003310       		call	$setpriority			; w.H.
041420: 005726              		tst	(sp)+			; V.
041422: 066464 000042 000020		add	42(r4),20(r4)		; 4m"...
041430: 005564 000016       		adc	16(r4)			; t...
041434: 016300 000110       		mov	110(r3),r0		; @.H.
041440: 166400 000034       		sub	34(r4),r0		; .m..
041444: 022700 000022       		cmp	#22,r0			; @%..
041450: 002002              		bge	41456			; ..
041452: 012700 000022       		mov	#22,r0			; @...
041456: 010064 000036       		mov	r0,36(r4)		; 4...
041462: 000300              		swab	r0			; @.
041464: 105000              		clrb	r0			; ..
041466: 006300              		asl	r0			; @.
041470: 010064 000042       		mov	r0,42(r4)		; 4.".
041474: 005764 000012       		tst	12(r4)			; t...
041500: 001016              		bne	41536			; ..
041502: 020064 000014       		cmp	r0,14(r4)		; 4 ..
041506: 101413              		blos	41536			; ..
041510: 016400 000014       		mov	14(r4),r0		; ....
041514: 010064 000042       		mov	r0,42(r4)		; 4.".
041520: 062700 000777       		add	#777,r0			; @e..
041524: 105000              		clrb	r0			; ..
041526: 000300              		swab	r0			; @.
041530: 006200              		asr	r0			; ..
041532: 010064 000036       		mov	r0,36(r4)		; 4...
041536: 012764 110600 000044		mov	#data,44(r4)		; t...$.
041544: 005702              		tst	r2			; B.
041546: 001405              		beq	41562			; ..
041550: 012746 100042       		mov	#dma,-(sp)		; f.".
041554: 004767 002460       		call	$acquire			; w.0.
041560: 005726              		tst	(sp)+			; V.
041562: 000207              		return				; ..
;
041564: 005064 000012       		clr	12(r4)			; 4...
041570: 005064 000014       		clr	14(r4)			; 4...
041574: 005064 000040       		clr	40(r4)			; 4. .
041600: 005064 000036       		clr	36(r4)			; 4...
041604: 012716 100042       		mov	#dma,(sp)		; N.".
041610: 004767 002520       		call	$release			; w.P.
041614: 022626              		cmp	(sp)+,(sp)+		; .%
041616: 010200              		mov	r2,r0			; ..
041620: 000207              		return				; ..
;
				select::
041622: 004567 035252       		jsr	r5,csv$			; w.*:
041626: 016503 000004       		mov	4(r5),r3		; C...
041632: 004767 000004       		call	.select			; w...
041636: 000167 035252       		jmp	cret$			; w.*:
				.select::
041642: 012746 100046       		mov	#udc,-(sp)		; f.&.
041646: 004767 002366       		call	$acquire			; w.v.
041652: 005726              		tst	(sp)+			; V.
041654: 005767 036346       		tst	100226			; w.f<
041660: 001421              		beq	41724			; ..
041662: 112737 000000 140022		movb	#0,@#w$cmd		; _....@
041670: 005067 036332       		clr	100226			; 7.Z<
041674: 112737 000107 140022		movb	#107,@#w$cmd		; _.G..@
041702: 116737 036300 140020		movb	100206,@#w$dat		; _.@<.@
041710: 116737 036274 140020		movb	100210,@#w$dat		; _.<<.@
041716: 116737 036270 140020		movb	100212,@#w$dat		; _.8<.@
041724: 005067 036270       		clr	100220			; 7.8<
041730: 026763 036276 000072		cmp	100232,72(r3)		; s-><:.
041736: 001465              		beq	42112			; 5.
041740: 016367 000072 036264		mov	72(r3),100232		; w.:.4<
041746: 042767 000004 036232		bic	#4,100206		; wE...<
041754: 032763 001000 000030		bit	#1000,30(r3)		; s5....
041762: 001403              		beq	41772			; ..
041764: 052767 000004 036214		bis	#4,100206		; wU...<
041772: 032763 000200 000030		bit	#200,30(r3)		; s5....
042000: 001406              		beq	42016			; ..
042002: 042767 000010 036176		bic	#10,100206		; wE..~<
042010: 052767 100000 046376		bis	#100000,110414		; wU..~L
042016: 016367 000070 036164		mov	70(r3),100210		; w.8.t<
042024: 016337 000074 140002		mov	74(r3),@#rw$pll		; _.<..@
042032: 112737 000104 140022		movb	#104,@#w$cmd		; _.D..@
042040: 105037 140020       		clrb	@#w$dat		; ...@
042044: 105037 140020       		clrb	@#w$dat		; ...@
042050: 112737 000107 140022		movb	#107,@#w$cmd		; _.G..@
042056: 116737 036124 140020		movb	100206,@#w$dat		; _.T<.@
042064: 116737 036120 140020		movb	100210,@#w$dat		; _.P<.@
042072: 005067 036136       		clr	100234			; 7.^<
042076: 116737 036130 140022		movb	100232,@#w$cmd		; _.X<.@
042104: 005767 036124       		tst	100234			; w.T<
042110: 001775              		beq	42104			; }.
042112: 005037 140004       		clr	@#w$fpl		; ...@
042116: 056367 000036 036056		bis	36(r3),100202		; w\...<
042124: 013767 140006 036052		mov	@#r$fps,100204		; w..@*<
042132: 016737 036044 140004		mov	100202,@#w$fpl		; _.$<.@
042140: 000207              		return				; ..
;
				deselect::
042142: 004567 034732       		jsr	r5,csv$			; w.Z9
042146: 016503 000004       		mov	4(r5),r3		; C...
042152: 004767 000004       		call	.deselect			; w...
042156: 000167 034732       		jmp	cret$			; w.Z9
;
				.deselect::
042162: 005037 140004       		clr	@#w$fpl		; ...@
042166: 046367 000036 036006		bic	36(r3),100202		; wL...<
042174: 013767 140006 036002		mov	@#r$fps,100204		; w..@.<
042202: 016737 035774 140004		mov	100202,@#w$fpl		; _.|;.@
042210: 012767 000002 036002		mov	#2,100220		; w....<
042216: 032763 000010 000030		bit	#10,30(r3)		; s5....
042224: 001403              		beq	42234			; ..
042226: 012767 000004 035766		mov	#4,100222		; w...v;
042234: 005767 035754       		tst	100214			; w.l;
042240: 001437              		beq	42340			; ..
042242: 012737 000010 140002		mov	#10,@#rw$pll		; _....@
042250: 042767 000004 035730		bic	#4,100206		; wE..X;
042256: 112737 000107 140022		movb	#107,@#w$cmd		; _.G..@
042264: 116737 035716 140020		movb	100206,@#w$dat		; _.N;.@
042272: 005067 035736       		clr	100234			; 7.^;
042276: 112737 000001 140022		movb	#1,@#w$cmd		; _....@
042304: 005767 035724       		tst	100234			; w.T;
042310: 001775              		beq	42304			; }.
042312: 005067 035714       		clr	100232			; 7.L;
042316: 012700 000020       		mov	#20,r0			; @...
042322: 066700 035666       		add	100214,r0		; @m6;
042326: 010067 035674       		mov	r0,100226		; 7.<;
042332: 116737 035670 140022		movb	100226,@#w$cmd		; _.8;.@
042340: 012746 100046       		mov	#udc,-(sp)		; f.&.
042344: 004767 001764       		call	$release			; w.t.
042350: 005726              		tst	(sp)+			; V.
042352: 000207              		return				; ..
				;--------------------------------------------------------
				;
				;	File:	eccm.mac
				;
				apply.ecc::
042354: 004567 034520       		jsr	r5,csv$			; w.P9
042360: 016504 000004       		mov	4(r5),r4		; D...
042364: 016403 000002       		mov	2(r4),r3		; ....
042370: 004767 000004       		call	.apply.ecc			; w...
042374: 000167 034514       		jmp	cret$			; w.L9
;
				.apply.ecc::
042400: 010346              		mov	r3,-(sp)		; f.
042402: 010446              		mov	r4,-(sp)		; &.
042404: 010546              		mov	r5,-(sp)		; f.
042406: 016405 000040       		mov	40(r4),r5		; .. .
042412: 000305              		swab	r5			; E.
042414: 006305              		asl	r5			; E.
042416: 066405 000044       		add	44(r4),r5		; .m$.
042422: 032763 000010 000030		bit	#10,30(r3)		; s5....
042430: 001432              		beq	42516			; ..
042432: 012703 161225       		mov	#161225,r3		; C..b
042436: 012701 000401       		mov	#401,r1			; A...
042442: 012504              		mov	(r5)+,r4		; D.
042444: 000304              		swab	r4			; D.
042446: 074403              		xor	r4,r3			; .y
042450: 012700 000020       		mov	#20,r0			; @...
042454: 006303              		asl	r3			; C.
042456: 103003              		bcc	42466			; ..
042460: 012704 010041       		mov	#10041,r4		; D.!.
042464: 074403              		xor	r4,r3			; .y
042466: 077006              		sob	r0,42454		; .~
042470: 077114              		sob	r1,42442		; L~
042472: 005703              		tst	r3			; C.
042474: 001006              		bne	42512			; ..
042476: 016604 000002       		mov	2(sp),r4		; ....
042502: 005064 000056       		clr	56(r4)			; 4...
042506: 000167 000254       		jmp	42766			; w.,.
;
042512: 000167 000400       		jmp	43116			; w...
;
042516: 012702 024417       		mov	#24417,r2		; B..)
042522: 012703 023240       		mov	#23240,r3		; C. &
042526: 012701 000402       		mov	#402,r1			; A...
042532: 012504              		mov	(r5)+,r4		; D.
042534: 000304              		swab	r4			; D.
042536: 074402              		xor	r4,r2			; .y
042540: 012700 000020       		mov	#20,r0			; @...
042544: 006303              		asl	r3			; C.
042546: 006102              		rol	r2			; B.
042550: 103006              		bcc	42566			; ..
042552: 012704 004005       		mov	#4005,r4		; D...
042556: 074403              		xor	r4,r3			; .y
042560: 012704 000240       		mov	#240,r4			; D. .
042564: 074402              		xor	r4,r2			; .y
042566: 077012              		sob	r0,42544		; .~
042570: 077120              		sob	r1,42532		; P~
042572: 005702              		tst	r2			; B.
042574: 001010              		bne	42616			; ..
042576: 005703              		tst	r3			; C.
042600: 001006              		bne	42616			; ..
042602: 016604 000002       		mov	2(sp),r4		; ....
042606: 005064 000056       		clr	56(r4)			; 4...
042612: 000167 000150       		jmp	42766			; w.h.
;
042616: 012701 123753       		mov	#123753,r1		; A.k'
042622: 006303              		asl	r3			; C.
042624: 006102              		rol	r2			; B.
042626: 103006              		bcc	42644			; ..
042630: 012704 004005       		mov	#4005,r4		; D...
042634: 074403              		xor	r4,r3			; .y
042636: 012704 000240       		mov	#240,r4			; D. .
042642: 074402              		xor	r4,r2			; .y
042644: 005702              		tst	r2			; B.
042646: 001003              		bne	42656			; ..
042650: 022703 000001       		cmp	#1,r3			; C%..
042654: 001402              		beq	42662			; ..
042656: 077117              		sob	r1,42622		; O~
042660: 000516              		br	43116			; N.
;
042662: 012703 010100       		mov	#10100,r3		; C.@.
042666: 160103              		sub	r1,r3			; C`
042670: 010302              		mov	r3,r2			; B.
042672: 002511              		blt	43116			; I.
042674: 022702 010000       		cmp	#10000,r2		; B%..
042700: 003506              		ble	43116			; F.
042702: 006202              		asr	r2			; ..
042704: 006202              		asr	r2			; ..
042706: 006202              		asr	r2			; ..
042710: 006202              		asr	r2			; ..
042712: 006302              		asl	r2			; B.
042714: 016604 000002       		mov	2(sp),r4		; ....
042720: 016405 000040       		mov	40(r4),r5		; .. .
042724: 000305              		swab	r5			; E.
042726: 006305              		asl	r5			; E.
042730: 066405 000044       		add	44(r4),r5		; .m$.
042734: 060502              		add	r5,r2			; Ba
042736: 042703 177760       		bic	#177760,r3		; CEp.
042742: 012746 000017       		mov	#17,-(sp)		; f...
042746: 160316              		sub	r3,(sp)			; N`
042750: 012746 000001       		mov	#1,-(sp)		; f...
042754: 004767 033430       		call	76410			; w..7
042760: 022626              		cmp	(sp)+,(sp)+		; .%
042762: 000300              		swab	r0			; @.
042764: 074012              		xor	r0,(r2)			; 
042766: 005264 000040       		inc	40(r4)			; 4. .
042772: 032764 000010 000024		bit	#10,24(r4)		; t5....
043000: 001444              		beq	43112			; $.
043002: 005767 045404       		tst	110412			; w..K
043006: 003441              		ble	43112			; !.
043010: 012746 100042       		mov	#dma,-(sp)		; f.".
043014: 004767 001220       		call	$acquire			; w...
043020: 016467 000004 045336		mov	4(r4),110364		; 7...^J
043026: 022767 001000 045356		cmp	#1000,110412		; w%..nJ
043034: 002403              		blt	43044			; ..
043036: 016746 045350       		mov	110412,-(sp)		; f.hJ
043042: 000402              		br	43050			; ..
;
043044: 012746 001000       		mov	#1000,-(sp)		; f...
043050: 016746 045326       		mov	110402,-(sp)		; f.VJ
043054: 016746 045330       		mov	110410,-(sp)		; f.XJ
043060: 016746 045322       		mov	110406,-(sp)		; f.RJ
043064: 004767 171530       		call	put.buffer			; w.Xs
043070: 062706 000010       		add	#10,sp			; Fe..
043074: 050064 000060       		bis	r0,60(r4)		; 4P0.
043100: 012716 100042       		mov	#dma,(sp)		; N.".
043104: 004767 001224       		call	$release			; w...
043110: 005726              		tst	(sp)+			; V.
043112: 005000              		clr	r0			; ..
043114: 000402              		br	43122			; ..
;
043116: 012700 020010       		mov	#20010,r0		; @.. 
043122: 012605              		mov	(sp)+,r5		; ..
043124: 012604              		mov	(sp)+,r4		; ..
043126: 012603              		mov	(sp)+,r3		; ..
043130: 000207              		return				; ..
				;--------------------------------------------------------
				;
				;	File:	subsm.mac
				;
				;
				calc.pbn::
043132: 004567 033742       		jsr	r5,csv$			; w.b7
043136: 016504 000004       		mov	4(r5),r4		; D...
043142: 016403 000002       		mov	2(r4),r3		; ....
043146: 016302 000110       		mov	110(r3),r2		; B.H.
043152: 016401 000006       		mov	6(r4),r1		; ....
043156: 016400 000010       		mov	10(r4),r0		; ....
043162: 012703 000020       		mov	#20,r3			; C...
043166: 006300              		asl	r0			; @.
043170: 006101              		rol	r1			; A.
043172: 001404              		beq	43204			; ..
043174: 020102              		cmp	r1,r2			; B 
043176: 103402              		bcs	43204			; ..
043200: 160201              		sub	r2,r1			; .`
043202: 005200              		inc	r0			; ..
043204: 077310              		sob	r3,43166		; H~
043206: 010164 000034       		mov	r1,34(r4)		; t...
043212: 016403 000002       		mov	2(r4),r3		; ....
043216: 016302 000112       		mov	112(r3),r2		; B.J.
043222: 005001              		clr	r1			; ..
043224: 012703 000020       		mov	#20,r3			; C...
043230: 006300              		asl	r0			; @.
043232: 006101              		rol	r1			; A.
043234: 001404              		beq	43246			; ..
043236: 020102              		cmp	r1,r2			; B 
043240: 103402              		bcs	43246			; ..
043242: 160201              		sub	r2,r1			; .`
043244: 005200              		inc	r0			; ..
043246: 077310              		sob	r3,43230		; H~
043250: 010164 000032       		mov	r1,32(r4)		; t...
043254: 010064 000030       		mov	r0,30(r4)		; 4...
043260: 016403 000002       		mov	2(r4),r3		; ....
043264: 166300 000124       		sub	124(r3),r0		; @lT.
043270: 002001              		bge	43274			; ..
043272: 005400              		neg	r0			; ..
043274: 022700 000005       		cmp	#5,r0			; @%..
043300: 002003              		bge	43310			; ..
043302: 010416              		mov	r4,(sp)			; ..
043304: 004767 172676       		call	seek			; w.>u
043310: 016463 000030 000124		mov	30(r4),124(r3)		; 3...T.
043316: 000167 033572       		jmp	cret$			; w.z7
;
				get.ucb::
043322: 016600 000002       		mov	2(sp),r0		; ....
043326: 166700 034720       		sub	100252,r0		; @mP9
043332: 002524              		blt	43604			; T.
043334: 022700 000003       		cmp	#3,r0			; @%..
043340: 002521              		blt	43604			; Q.
043342: 006300              		asl	r0			; @.
043344: 016000 100054       		mov	100054(r0),r0		; ..,.
043350: 001516              		beq	43606			; N.
043352: 010066 000002       		mov	r0,2(sp)		; 6...
043356: 032760 000010 000030		bit	#10,30(r0)		; p5....
043364: 001036              		bne	43462			; ..
043366: 036067 000040 034610		bit	40(r0),100204		; 7< ..9
043374: 001404              		beq	43406			; ..
043376: 052760 020000 000012		bis	#20000,12(r0)		; pU. ..
043404: 000403              		br	43414			; ..
;
043406: 042760 020000 000012		bic	#20000,12(r0)		; pE. ..
043414: 032760 000040 000030		bit	#40,30(r0)		; p5 ...
043422: 001412              		beq	43450			; ..
043424: 010046              		mov	r0,-(sp)		; &.
043426: 004767 164666       		call	rd$media			; w.6i
043432: 005726              		tst	(sp)+			; V.
043434: 016600 000002       		mov	2(sp),r0		; ....
043440: 032760 000040 000030		bit	#40,30(r0)		; p5 ...
043446: 001031              		bne	43532			; ..
043450: 036067 000036 034526		bit	36(r0),100204		; 7<..V9
043456: 001434              		beq	43550			; ..
043460: 000424              		br	43532			; ..
;
043462: 010046              		mov	r0,-(sp)		; &.
043464: 004767 172244       		call	get.disk			; w.$t
043470: 005726              		tst	(sp)+			; V.
043472: 010001              		mov	r0,r1			; ..
043474: 016600 000002       		mov	2(sp),r0		; ....
043500: 032701 000001       		bit	#1,r1			; A5..
043504: 001404              		beq	43516			; ..
043506: 052760 020000 000012		bis	#20000,12(r0)		; pU. ..
043514: 000403              		br	43524			; ..
;
043516: 042760 020000 000012		bic	#20000,12(r0)		; pE. ..
043524: 032701 000002       		bit	#2,r1			; A5..
043530: 001007              		bne	43550			; ..
043532: 042760 000021 000030		bic	#21,30(r0)		; pE....
043540: 052760 000002 000030		bis	#2,30(r0)		; pU....
043546: 000417              		br	43606			; ..
;
043550: 032760 000002 000030		bit	#2,30(r0)		; p5....
043556: 001413              		beq	43606			; ..
043560: 042760 000002 000030		bic	#2,30(r0)		; pE....
043566: 010046              		mov	r0,-(sp)		; &.
043570: 004767 014200       		call	do$una			; w...
043574: 005726              		tst	(sp)+			; V.
043576: 016600 000002       		mov	2(sp),r0		; ....
043602: 000401              		br	43606			; ..
;
043604: 005000              		clr	r0			; ..
043606: 000207              		return				; ..
;
				$enq.head::
043610: 011646              		mov	(sp),-(sp)		; &.
043612: 106766 000002       		mfps	2(sp)			; v...
043616: 106427 000340       		mtps	#340			; ..`.
043622: 016601 000004       		mov	4(sp),r1		; ....
043626: 016600 000006       		mov	6(sp),r0		; ....
043632: 011110              		mov	(r1),(r0)		; H.
043634: 010011              		mov	r0,(r1)			; ..
043636: 000002              		rti				; ..
;
				$enq.tail::
043640: 011646              		mov	(sp),-(sp)		; &.
043642: 106766 000002       		mfps	2(sp)			; v...
043646: 106427 000340       		mtps	#340			; ..`.
043652: 016601 000004       		mov	4(sp),r1		; ....
043656: 016600 000006       		mov	6(sp),r0		; ....
043662: 005711              		tst	(r1)			; I.
043664: 001402              		beq	43672			; ..
043666: 011101              		mov	(r1),r1			; A.
043670: 000774              		br	43662			; |.
;
043672: 005010              		clr	(r0)			; ..
043674: 010011              		mov	r0,(r1)			; ..
043676: 000002              		rti				; ..
;
				$deq.head::
043700: 106701              		mfps	r1			; A.
043702: 106427 000340       		mtps	#340			; ..`.
043706: 017600 000002       		mov	@2(sp),r0		; ....
043712: 001402              		beq	43720			; ..
043714: 011076 000002       		mov	(r0),@2(sp)		; >...
043720: 106401              		mtps	r1			; ..
043722: 000207              		return				; ..
;
				$deqf.head::
043724: 106701              		mfps	r1			; A.
043726: 106427 000340       		mtps	#340			; ..`.
043732: 017600 000002       		mov	@2(sp),r0		; ....
043736: 001404              		beq	43750			; ..
043740: 011076 000002       		mov	(r0),@2(sp)		; >...
043744: 106401              		mtps	r1			; ..
043746: 000207              		return				; ..
;
043750: 012746 000736       		mov	#736,-(sp)		; f.^.
043754: 004767 171352       		call	fatal.error			; w.jr
;
				;--------------------------------------------------------
				;
				;	File:	opsys.mac
				;
				;
				;
				$start::
043760: 012706 110466       		mov	#nstack,sp		; F.6.
043764: 005046              		clr	-(sp)			; &.
043766: 012746 044160       		mov	#null,-(sp)		; f.pH
043772: 005046              		clr	-(sp)			; &.
043774: 005046              		clr	-(sp)			; &.
043776: 012706 110456       		mov	#kstack,sp		; F...
044002: 012767 177777 044456		mov	#177777,intlev		; 110466
044010: 000167 135114       		jmp	start			; w.L:
;
				intdis::
044014: 010146              		mov	r1,-(sp)		; f.
044016: 005267 044444       		inc	110466			; 7.$I
044022: 003004              		bgt	44034			; ..
044024: 010667 044440       		mov	sp,usersp		; 110470
044030: 012706 110456       		mov	#kstack,sp		; F...
044034: 004730              		call	@(r0)+			; X.
044036: 005367 044424       		dec	110466			; w..I
044042: 002035              		bge	44136			; ..
044044: 016706 044420       		mov	110470,sp		; F..I

				sysret::
044050: 026767 044416 044416		cmp	110472,runjob		; w-.I.I
044056: 001427              		beq	44136			; ..
044060: 005767 044402       		tst	110466			; w..I
044064: 002024              		bge	44136			; ..
044066: 016700 044400       		mov	110472,r0		; @..I
044072: 001406              		beq	44110			; ..
044074: 010246              		mov	r2,-(sp)		; &.
044076: 010346              		mov	r3,-(sp)		; f.
044100: 010446              		mov	r4,-(sp)		; &.
044102: 010546              		mov	r5,-(sp)		; f.
044104: 010660 000004       		mov	sp,4(r0)		; 0...
044110: 016700 044360       		mov	runjob,r0		; @.pH
044114: 001413              		beq	44144			; ..
044116: 010067 044350       		mov	r0,110472		; 7.hH
044122: 016006 000004       		mov	4(r0),sp		; ....
044126: 012605              		mov	(sp)+,r5		; ..
044130: 012604              		mov	(sp)+,r4		; ..
044132: 012603              		mov	(sp)+,r3		; ..
044134: 012602              		mov	(sp)+,r2		; ..
044136: 012601              		mov	(sp)+,r1		; ..
044140: 012600              		mov	(sp)+,r0		; ..
044142: 000002              		rti				; ..
;
044144: 005067 044322       		clr	110472			; 7.RH
044150: 012706 110466       		mov	#110466,sp		; F.6.
044154: 106427 000000       		mtps	#0			; ....
				;
				; null job
				;
				null::
044160: 000777              			br	null			; ..
;
				tick::
044162: 016700 044310       		mov	hibjob,r0		; @.HH
044166: 001002              		bne	44174			; ..
044170: 012600              		mov	(sp)+,r0		; ..
044172: 000002              		rti				; ..
;
044174: 010146              		mov	r1,-(sp)		; f.
044176: 012701 hibjob       		mov	#hibjob,r1		; A.>.
044202: 005360 000002       		dec	2(r0)			; p...
044206: 002010              		bge	44230			; ..
044210: 011011              		mov	(r0),(r1)		; ..
044212: 012760 runjob 000002		mov	#runjob,2(r0)		; p.<...
044220: 010146              		mov	r1,-(sp)		; f.
044222: 004767 000554       		call	link			; w.l.
044226: 012600              		mov	(sp)+,r0		; ..
044230: 010001              		mov	r0,r1			; ..
044232: 011000              		mov	(r0),r0			; ..
044234: 001362              		bne	44202			; r.
044236: 000704              		br	sysret			; D.
;
				$acquire::
044240: 011646              		mov	(sp),-(sp)		; &.
044242: 106766 000002       		mfps	2(sp)			; v...
044246: 106427 000340       		mtps	#340			; ..`.
044252: 016601 000004       		mov	4(sp),r1		; ....
044256: 005711              		tst	(r1)			; I.
044260: 001003              		bne	44270			; ..
044262: 012711 000001       		mov	#1,(r1)			; I...
044266: 000002              		rti				; ..
;
044270: 016700 044200       		mov	runjob,r0		; @..H
044274: 011067 044174       		mov	(r0),runjob		; 7.|H
044300: 010160 000002       		mov	r1,2(r0)		; p...
044304: 022711 000001       		cmp	#1,(r1)			; I%..
044310: 001003              		bne	44320			; ..
044312: 010011              		mov	r0,(r1)			; ..
044314: 005010              		clr	(r0)			; ..
044316: 000402              		br	44324			; ..
;
044320: 004767 000456       		call	link			; w...
044324: 010046              		mov	r0,-(sp)		; &.
044326: 010146              		mov	r1,-(sp)		; f.
044330: 000167 177514       		jmp	sysret			; w.L.
;
				$release::
044334: 011646              		mov	(sp),-(sp)		; &.
044336: 106766 000002       		mfps	2(sp)			; v...
044342: 106427 000340       		mtps	#340			; ..`.
044346: 016601 000004       		mov	4(sp),r1		; ....
044352: 022711 000001       		cmp	#1,(r1)			; I%..
044356: 001002              		bne	44364			; ..
044360: 005011              		clr	(r1)			; ..
044362: 000002              		rti				; ..
;
044364: 011100              		mov	(r1),r0			; @.
044366: 011011              		mov	(r0),(r1)		; ..
044370: 001002              		bne	44376			; ..
044372: 012711 000001       		mov	#1,(r1)			; I...
044376: 012760 runjob 000002		mov	#runjob,2(r0)		; p.<...
044404: 004767 000372       		call	link			; w.z.
044410: 010046              		mov	r0,-(sp)		; &.
044412: 010146              		mov	r1,-(sp)		; f.
044414: 000167 177430       		jmp	sysret			; w...
;
				$block::
044420: 011646              		mov	(sp),-(sp)		; &.
044422: 106766 000002       		mfps	2(sp)			; v...
044426: 106427 000340       		mtps	#340			; ..`.
044432: 016601 000004       		mov	4(sp),r1		; ....
044436: 022711 000001       		cmp	#1,(r1)			; I%..
044442: 001002              		bne	44450			; ..
044444: 005011              		clr	(r1)			; ..
044446: 000002              		rti				; ..
;
044450: 016700 044020       		mov	runjob,r0		; @..H
044454: 011067 044014       		mov	(r0),runjob		; 7..H
044460: 010160 000002       		mov	r1,2(r0)		; p...
044464: 004767 000312       		call	link			; w.J.
044470: 010046              		mov	r0,-(sp)		; &.
044472: 010146              		mov	r1,-(sp)		; f.
044474: 000167 177350       		jmp	sysret			; w.h~
;
				$unblock::
044500: 011646              		mov	(sp),-(sp)		; &.
044502: 106766 000002       		mfps	2(sp)			; v...
044506: 106427 000340       		mtps	#340			; ..`.
044512: 016601 000004       		mov	4(sp),r1		; ....
044516: 011100              		mov	(r1),r0			; @.
044520: 001403              		beq	44530			; ..
044522: 022700 000001       		cmp	#1,r0			; @%..
044526: 001003              		bne	44536			; ..
044530: 012711 000001       		mov	#1,(r1)			; I...
044534: 000002              		rti				; ..
;
044536: 011011              		mov	(r0),(r1)		; ..
044540: 012760 runjob 000002		mov	#runjob,2(r0)		; p.<...
044546: 004767 000230       		call	link			; w...
044552: 010046              		mov	r0,-(sp)		; &.
044554: 010146              		mov	r1,-(sp)		; f.
044556: 000167 177266       		jmp	sysret			; w.6~
;
				$create::
044562: 011646              		mov	(sp),-(sp)		; &.
044564: 106766 000002       		mfps	2(sp)			; v...
044570: 106427 000340       		mtps	#340			; ..`.
044574: 016600 000004       		mov	4(sp),r0		; ....
044600: 016601 000012       		mov	12(sp),r1		; ....
044604: 016641 000014       		mov	14(sp),-(r1)		; !...
044610: 005041              		clr	-(r1)			; !.
044612: 005041              		clr	-(r1)			; !.
044614: 016641 000006       		mov	6(sp),-(r1)		; !...
044620: 162701 000014       		sub	#14,r1			; Ae..
044624: 010160 000004       		mov	r1,4(r0)		; p...
044630: 016660 000010 000006		mov	10(sp),6(r0)		; 0.....
044636: 012760 runjob 000002		mov	#runjob,2(r0)		; p.<...
044644: 004767 000132       		call	link			; w.Z.
044650: 010046              		mov	r0,-(sp)		; &.
044652: 010146              		mov	r1,-(sp)		; f.
044654: 000167 177170       		jmp	sysret			; w.x~
;
				$sleep::
044660: 011646              		mov	(sp),-(sp)		; &.
044662: 106766 000002       		mfps	2(sp)			; v...
044666: 106427 000340       		mtps	#340			; ..`.
044672: 016700 043576       		mov	runjob,r0		; @.~G
044676: 011067 043572       		mov	(r0),runjob		; 7.zG
044702: 016710 043570       		mov	hibjob,(r0)		; H.xG
044706: 010067 043564       		mov	r0,hibjob		; 7.tG
044712: 016660 000004 000002		mov	4(sp),2(r0)		; 0.....
044720: 010046              		mov	r0,-(sp)		; &.
044722: 010146              		mov	r1,-(sp)		; f.
044724: 000167 177120       		jmp	sysret			; w.P~
;
				$setpriority::
044730: 011646              		mov	(sp),-(sp)		; &.
044732: 106766 000002       		mfps	2(sp)			; v...
044736: 106427 000340       		mtps	#340			; ..`.
044742: 016700 043526       		mov	runjob,r0		; @.VG
044746: 011067 043522       		mov	(r0),runjob		; 7.RG
044752: 016660 000004 000006		mov	4(sp),6(r0)		; 0.....
044760: 012760 runjob 000002		mov	#runjob,2(r0)		; p.<...
044766: 004767 000010       		call	link			; w...
044772: 010046              		mov	r0,-(sp)		; &.
044774: 010146              		mov	r1,-(sp)		; f.
044776: 000167 177046       		jmp	sysret			; w.&~
;
				link::
045002: 010246              		mov	r2,-(sp)		; &.
045004: 016001 000002       		mov	2(r0),r1		; ....
045010: 011102              		mov	(r1),r2			; B.
045012: 001406              		beq	45030			; ..
045014: 026062 000006 000006		cmp	6(r0),6(r2)		; 2,....
045022: 003002              		bgt	45030			; ..
045024: 010201              		mov	r2,r1			; ..
045026: 000770              		br	45010			; x.
;
045030: 010210              		mov	r2,(r0)			; ..
045032: 010011              		mov	r0,(r1)			; ..
045034: 012602              		mov	(sp)+,r2		; ..
045036: 000207              		return				; ..
				;--------------------------------------------------------
				;
				;	doabo.c
				;
				;
				;	do$abo( ptk )
				do$abo::
045040: 004567 032034       		jsr	r5,csv$			; w..4
045044: 016504 000004       		mov	4(r5),r4		; D...
045050: 105064 000017       		clrb	17(r4)			; 4...
045054: 005064 000020       		clr	20(r4)			; 4...
045060: 016446 000024       		mov	24(r4),-(sp)		; &...
045064: 016446 000022       		mov	22(r4),-(sp)		; &...
045070: 016446 000012       		mov	12(r4),-(sp)		; &...
045074: 004767 000040       		call	$do$abo			; w. .
045100: 062706 000006       		add	#6,sp			; Fe..
045104: 152764 000200 000016		bisb	#200,16(r4)		; tU....
045112: 012764 000020 000002		mov	#20,2(r4)		; t.....
045120: 105064 000004       		clrb	4(r4)			; 4...
045124: 010446              		mov	r4,-(sp)		; &.
045126: 004767 166364       		call	put.packet			; w.tl
045132: 005726              		tst	(sp)+			; V.
045134: 000167 031754       		jmp	cret$			; w.l3
;
				;	$do$abo( pkt )
				$do$abo::
045140: 004567 031734       		jsr	r5,csv$			; w.\3
045144: 005746              		tst	-(sp)			; f.
045146: 016546 000004       		mov	4(r5),-(sp)		; f...
045152: 004767 176144       		call	get.ucb			; w.d|
045156: 005726              		tst	(sp)+			; V.
045160: 010002              		mov	r0,r2			; ..
045162: 001002              		bne	45170			; ..
045164: 000167 000340       		jmp	45530			; w.`.
;
045170: 010246              		mov	r2,-(sp)		; &.
045172: 062716 000126       		add	#126,(sp)		; NeV.
045176: 004767 177036       		call	$acquire			; w..~
045202: 005726              		tst	(sp)+			; V.
045204: 016203 000136       		mov	136(r2),r3		; ..^.
045210: 016304 000004       		mov	4(r3),r4		; D...
045214: 026564 000006 000006		cmp	6(r5),6(r4)		; t-....
045222: 001010              		bne	45244			; ..
045224: 026564 000010 000010		cmp	10(r5),10(r4)		; t-....
045232: 001004              		bne	45244			; ..
045234: 052763 000400 000024		bis	#400,24(r3)		; sU....
045242: 000524              		br	45514			; T.
;
045244: 010204              		mov	r2,r4			; ..
045246: 062704 000002       		add	#2,r4			; De..
045252: 010465 177770       		mov	r4,177770(r5)		; 5.x.
045256: 011400              		mov	(r4),r0			; ..
045260: 010004              		mov	r0,r4			; ..
045262: 005704              		tst	r4			; D.
045264: 001435              		beq	45360			; ..
045266: 026564 000006 000006		cmp	6(r5),6(r4)		; t-....
045274: 001030              		bne	45356			; ..
045276: 026564 000010 000010		cmp	10(r5),10(r4)		; t-....
045304: 001024              		bne	45356			; ..
045306: 011475 177770       		mov	(r4),@177770(r5)	; =.x.
045312: 105064 000017       		clrb	17(r4)			; 4...
045316: 012764 000002 000020		mov	#2,20(r4)		; t.....
045324: 152764 000200 000016		bisb	#200,16(r4)		; tU....
045332: 012764 000014 000002		mov	#14,2(r4)		; t.....
045340: 105064 000004       		clrb	4(r4)			; 4...
045344: 010446              		mov	r4,-(sp)		; &.
045346: 004767 166144       		call	put.packet			; w.dl
045352: 005726              		tst	(sp)+			; V.
045354: 000457              		br	45514			; /.
;
045356: 000735              		br	45252			; ].
;
045360: 010203              		mov	r2,r3			; ..
045362: 062703 000004       		add	#4,r3			; Ce..
045366: 010365 177766       		mov	r3,177766(r5)		; u.v.
045372: 011300              		mov	(r3),r0			; @.
045374: 010003              		mov	r0,r3			; ..
045376: 005703              		tst	r3			; C.
045400: 001445              		beq	45514			; %.
045402: 016304 000004       		mov	4(r3),r4		; D...
045406: 026564 000006 000006		cmp	6(r5),6(r4)		; t-....
045414: 001036              		bne	45512			; ..
045416: 026564 000010 000010		cmp	10(r5),10(r4)		; t-....
045424: 001032              		bne	45512			; ..
045426: 011375 177766       		mov	(r3),@177766(r5)	; }.v.
045432: 105064 000017       		clrb	17(r4)			; 4...
045436: 012764 000002 000020		mov	#2,20(r4)		; t.....
045444: 152764 000200 000016		bisb	#200,16(r4)		; tU....
045452: 012764 000014 000002		mov	#14,2(r4)		; t.....
045460: 105064 000004       		clrb	4(r4)			; 4...
045464: 010446              		mov	r4,-(sp)		; &.
045466: 004767 166024       		call	put.packet			; w..l
045472: 005726              		tst	(sp)+			; V.
045474: 010346              		mov	r3,-(sp)		; f.
045476: 012746 100052       		mov	#100052,-(sp)		; f.*.
045502: 004767 176102       		call	$enq.head			; w.B|
045506: 022626              		cmp	(sp)+,(sp)+		; .%
045510: 000401              		br	45514			; ..
;
045512: 000725              		br	45366			; U.
;
045514: 010246              		mov	r2,-(sp)		; &.
045516: 062716 000126       		add	#126,(sp)		; NeV.
045522: 004767 176606       		call	$release			; w..}
045526: 005726              		tst	(sp)+			; V.
045530: 000167 031360       		jmp	cret$			; w.p2
				;--------------------------------------------------------
				;
				;	doap.c
				;
				;
				;	do$ap( ptk )
				do$ap::
045534: 004567 031340       		jsr	r5,csv$			; w.`2
045540: 016504 000004       		mov	4(r5),r4		; D...
045544: 036727 035100 000004		bit	102650,#4		; W=@:..
045552: 001406              		beq	45570			; ..
045554: 052767 000002 035106		bis	#2,102670		; wU..F:
045562: 005064 000020       		clr	20(r4)			; 4...
045566: 000403              		br	45576			; ..
;
045570: 012764 000001 000020		mov	#1,20(r4)		; t.....
045576: 152764 000200 000016		bisb	#200,16(r4)		; tU....
045604: 012764 000014 000002		mov	#14,2(r4)		; t.....
045612: 105064 000004       		clrb	4(r4)			; 4...
045616: 010446              		mov	r4,-(sp)		; &.
045620: 004767 165672       		call	put.packet			; w.:k
045624: 005726              		tst	(sp)+			; V.
045626: 000167 031262       		jmp	cret$			; w.22
				;--------------------------------------------------------
				;
				;	doavl.c
				;
				;
				;	do$avl( ptk )
				do$avl::
045632: 004567 031242       		jsr	r5,csv$			; w."2
045636: 016504 000004       		mov	4(r5),r4		; D...
045642: 105064 000017       		clrb	17(r4)			; 4...
045646: 016446 000012       		mov	12(r4),-(sp)		; &...
045652: 004767 175444       		call	get.ucb			; w.${
045656: 005726              		tst	(sp)+			; V.
045660: 010003              		mov	r0,r3			; ..
045662: 001004              		bne	45674			; ..
045664: 012764 000003 000020		mov	#3,20(r4)		; t.....
045672: 000456              		br	46030			; ..
;
045674: 010346              		mov	r3,-(sp)		; f.
045676: 062716 000126       		add	#126,(sp)		; NeV.
045702: 004767 176332       		call	$acquire			; w.Z|
045706: 005726              		tst	(sp)+			; V.
045710: 005763 000136       		tst	136(r3)			; s.^.
045714: 001003              		bne	45724			; ..
045716: 005763 000004       		tst	4(r3)			; s...
045722: 001416              		beq	45760			; ..
045724: 010446              		mov	r4,-(sp)		; &.
045726: 010346              		mov	r3,-(sp)		; f.
045730: 062716 000002       		add	#2,(sp)			; Ne..
045734: 004767 175700       		call	$enq.tail			; w.@{
045740: 022626              		cmp	(sp)+,(sp)+		; .%
045742: 010346              		mov	r3,-(sp)		; f.
045744: 062716 000126       		add	#126,(sp)		; NeV.
045750: 004767 176360       		call	$release			; w.p|
045754: 005726              		tst	(sp)+			; V.
045756: 000440              		br	46060			;  .
;
045760: 042763 000021 000030		bic	#21,30(r3)		; sE....
045766: 042763 057577 000012		bic	#57577,12(r3)		; sE._..
045774: 016302 000040       		mov	40(r3),r2		; B. .
046000: 005102              		com	r2			; B.
046002: 005102              		com	r2			; B.
046004: 040267 032172       		bic	r2,100202		; 7@z4
046010: 005064 000020       		clr	20(r4)			; 4...
046014: 010346              		mov	r3,-(sp)		; f.
046016: 062716 000126       		add	#126,(sp)		; NeV.
046022: 004767 176306       		call	$release			; w.F|
046026: 005726              		tst	(sp)+			; V.
046030: 152764 000200 000016		bisb	#200,16(r4)		; tU....
046036: 012764 000014 000002		mov	#14,2(r4)		; t.....
046044: 105064 000004       		clrb	4(r4)			; 4...
046050: 010446              		mov	r4,-(sp)		; &.
046052: 004767 165440       		call	put.packet			; w. k
046056: 005726              		tst	(sp)+			; V.
046060: 000167 031030       		jmp	cret$			; w..2
				;--------------------------------------------------------
				;
				;	File:	dobbr.c
				;
				;
				;	do$bbr( tcb, lbn, ddm, replaced )
				do$bbr::
046064: 004567 031010       		jsr	r5,csv$			; w..2
046070: 016504 000004       		mov	4(r5),r4		; D...
046074: 036727 034546 000020		bit	102646,#20		; W=f9..
046102: 001002              		bne	46110			; ..
046104: 000167 000434       		jmp	46544			; w...
;
046110: 012746 100050       		mov	#100050,-(sp)		; f.(.
046114: 004767 175604       		call	$deqf.head			; w..{
046120: 005726              		tst	(sp)+			; V.
046122: 010003              		mov	r0,r3			; ..
046124: 016402 000002       		mov	2(r4),r2		; ....
046130: 016400 000004       		mov	4(r4),r0		; ....
046134: 016063 000006 000006		mov	6(r0),6(r3)		; 3.....
046142: 016063 000010 000010		mov	10(r0),10(r3)		; 3.....
046150: 016400 000004       		mov	4(r4),r0		; ....
046154: 016063 000012 000012		mov	12(r0),12(r3)		; 3.....
046162: 005063 000014       		clr	14(r3)			; 3...
046166: 112763 000011 000016		movb	#11,16(r3)		; s.....
046174: 112763 000201 000017		movb	#201,17(r3)		; s.....
046202: 012763 000024 000020		mov	#24,20(r3)		; s.....
046210: 005063 000022       		clr	22(r3)			; 3...
046214: 005063 000024       		clr	24(r3)			; 3...
046220: 005063 000026       		clr	26(r3)			; 3...
046224: 016763 034424 000030		mov	102654,30(r3)		; s..9..
046232: 112763 000004 000032		movb	#4,32(r3)		; s.....
046240: 112763 000001 000033		movb	#1,33(r3)		; s.....
046246: 016400 000004       		mov	4(r4),r0		; ....
046252: 016063 000012 000034		mov	12(r0),34(r3)		; 3.....
046260: 016400 000004       		mov	4(r4),r0		; ....
046264: 016063 000012 000036		mov	12(r0),36(r3)		; 3.....
046272: 005063 000040       		clr	40(r3)			; 3. .
046276: 005063 000042       		clr	42(r3)			; 3.".
046302: 016263 000140 000044		mov	140(r2),44(r3)		; 3.`.$.
046310: 105063 000046       		clrb	46(r3)			; 3.&.
046314: 105063 000047       		clrb	47(r3)			; 3.'.
046320: 005063 000050       		clr	50(r3)			; 3.(.
046324: 016263 000022 000052		mov	22(r2),52(r3)		; 3...*.
046332: 016263 000020 000054		mov	20(r2),54(r3)		; 3...,.
046340: 016563 000010 000056		mov	10(r5),56(r3)		; s.....
046346: 016563 000006 000060		mov	6(r5),60(r3)		; s...0.
046354: 005063 000062       		clr	62(r3)			; 3.2.
046360: 005063 000064       		clr	64(r3)			; 3.4.
046364: 005063 000066       		clr	66(r3)			; 3.6.
046370: 005063 000070       		clr	70(r3)			; 3.8.
046374: 012763 000350 000072		mov	#350,72(r3)		; s.h.:.
046402: 005765 000014       		tst	14(r5)			; u...
046406: 001433              		beq	46476			; ..
046410: 052763 120000 000050		bis	#120000,50(r3)		; sU. (.
046416: 005765 000012       		tst	12(r5)			; u...
046422: 001403              		beq	46432			; ..
046424: 052763 040000 000050		bis	#40000,50(r3)		; sU.@(.
046432: 005764 000046       		tst	46(r4)			; t.&.
046436: 002411              		blt	46462			; ..
046440: 052763 002000 000050		bis	#2000,50(r3)		; sU..(.
046446: 016463 000050 000062		mov	50(r4),62(r3)		; 3.(.2.
046454: 016463 000046 000064		mov	46(r4),64(r3)		; 3.&.4.
046462: 016463 000054 000066		mov	54(r4),66(r3)		; 3.,.6.
046470: 016463 000052 000070		mov	52(r4),70(r3)		; 3.*.8.
046476: 016400 000004       		mov	4(r4),r0		; ....
046502: 152760 000040 000017		bisb	#40,17(r0)		; pU ...
046510: 012763 000066 000002		mov	#66,2(r3)		; s.6...
046516: 112763 000020 000004		movb	#20,4(r3)		; s.....
046524: 105063 000005       		clrb	5(r3)			; 3...
046530: 005267 031474       		inc	100230			; 7.<3
046534: 010346              		mov	r3,-(sp)		; f.
046536: 004767 164754       		call	put.packet			; w.li
046542: 005726              		tst	(sp)+			; V.
046544: 000167 030344       		jmp	cret$			; w.d0
				;--------------------------------------------------------
				;
				;	File:	dohbe.c
				;
				;
				;	do$hbe( tcb, error )
				do$hbe::
046550: 004567 030324       		jsr	r5,csv$			; w.T0
046554: 016504 000004       		mov	4(r5),r4		; D...
046560: 036727 034062 000020		bit	102646,#20		; W=28..
046566: 001002              		bne	46574			; ..
046570: 000167 000562       		jmp	47356			; w.r.
;
046574: 012746 100050       		mov	#100050,-(sp)		; f.(.
046600: 004767 175120       		call	$deqf.head			; w.Pz
046604: 005726              		tst	(sp)+			; V.
046606: 010003              		mov	r0,r3			; ..
046610: 016402 000002       		mov	2(r4),r2		; ....
046614: 026527 000006 000151		cmp	6(r5),#151		; W-..i.
046622: 001562              		beq	47170			; r.
046624: 026527 000006 000211		cmp	6(r5),#211		; W-....
046632: 001556              		beq	47170			; n.
046634: 026527 000006 000251		cmp	6(r5),#251		; W-..).
046642: 001552              		beq	47170			; j.
046644: 016400 000004       		mov	4(r4),r0		; ....
046650: 016063 000006 000006		mov	6(r0),6(r3)		; 3.....
046656: 016063 000010 000010		mov	10(r0),10(r3)		; 3.....
046664: 016400 000004       		mov	4(r4),r0		; ....
046670: 016063 000012 000012		mov	12(r0),12(r3)		; 3.....
046676: 005063 000014       		clr	14(r3)			; 3...
046702: 112763 000004 000016		movb	#4,16(r3)		; s.....
046710: 005764 000060       		tst	60(r4)			; t.0.
046714: 001403              		beq	46724			; ..
046716: 012700 000001       		mov	#1,r0			; @...
046722: 000402              		br	46730			; ..
;
046724: 012700 000201       		mov	#201,r0			; @...
046730: 110063 000017       		movb	r0,17(r3)		; 3...
046734: 016563 000006 000020		mov	6(r5),20(r3)		; s.....
046742: 005063 000022       		clr	22(r3)			; 3...
046746: 005063 000024       		clr	24(r3)			; 3...
046752: 005063 000026       		clr	26(r3)			; 3...
046756: 016763 033672 000030		mov	102654,30(r3)		; s.:7..
046764: 112763 000004 000032		movb	#4,32(r3)		; s.....
046772: 112763 000001 000033		movb	#1,33(r3)		; s.....
047000: 016400 000004       		mov	4(r4),r0		; ....
047004: 016063 000012 000034		mov	12(r0),34(r3)		; 3.....
047012: 016400 000004       		mov	4(r4),r0		; ....
047016: 016063 000012 000036		mov	12(r0),36(r3)		; 3.....
047024: 005063 000040       		clr	40(r3)			; 3. .
047030: 005063 000042       		clr	42(r3)			; 3.".
047034: 016263 000140 000044		mov	140(r2),44(r3)		; 3.`.$.
047042: 105063 000046       		clrb	46(r3)			; 3.&.
047046: 105063 000047       		clrb	47(r3)			; 3.'.
047052: 016463 000030 000050		mov	30(r4),50(r3)		; 3...(.
047060: 016263 000022 000052		mov	22(r2),52(r3)		; 3...*.
047066: 016263 000020 000054		mov	20(r2),54(r3)		; 3...,.
047074: 116463 000062 000056		movb	62(r4),56(r3)		; 3.2...
047102: 116463 000063 000057		movb	63(r4),57(r3)		; 3.3./.
047110: 116400 000064       		movb	64(r4),r0		; ..4.
047114: 010046              		mov	r0,-(sp)		; &.
047116: 016700 031136       		mov	100260,r0		; @.^2
047122: 006300              		asl	r0			; @.
047124: 006300              		asl	r0			; @.
047126: 006300              		asl	r0			; @.
047130: 062600              		add	(sp)+,r0		; .e
047132: 110063 000060       		movb	r0,60(r3)		; 3.0.
047136: 116463 000065 000061		movb	65(r4),61(r3)		; 3.5.1.
047144: 116463 000066 000062		movb	66(r4),62(r3)		; 3.6.2.
047152: 116463 000067 000063		movb	67(r4),63(r3)		; 3.7.3.
047160: 012763 000056 000002		mov	#56,2(r3)		; s.....
047166: 000453              		br	47316			; +.
;
047170: 016400 000004       		mov	4(r4),r0		; ....
047174: 016063 000006 000006		mov	6(r0),6(r3)		; 3.....
047202: 016063 000010 000010		mov	10(r0),10(r3)		; 3.....
047210: 005063 000014       		clr	14(r3)			; 3...
047214: 112763 000001 000016		movb	#1,16(r3)		; s.....
047222: 112763 000001 000017		movb	#1,17(r3)		; s.....
047230: 016563 000006 000020		mov	6(r5),20(r3)		; s.....
047236: 005063 000022       		clr	22(r3)			; 3...
047242: 005063 000024       		clr	24(r3)			; 3...
047246: 005063 000026       		clr	26(r3)			; 3...
047252: 016763 033376 000030		mov	102654,30(r3)		; s.~6..
047260: 112763 000004 000032		movb	#4,32(r3)		; s.....
047266: 112763 000001 000033		movb	#1,33(r3)		; s.....
047274: 016463 000020 000036		mov	20(r4),36(r3)		; 3.....
047302: 016463 000016 000040		mov	16(r4),40(r3)		; 3... .
047310: 012763 000034 000002		mov	#34,2(r3)		; s.....
047316: 016400 000004       		mov	4(r4),r0		; ....
047322: 152760 000040 000017		bisb	#40,17(r0)		; pU ...
047330: 112763 000020 000004		movb	#20,4(r3)		; s.....
047336: 105063 000005       		clrb	5(r3)			; 3...
047342: 005267 030662       		inc	100230			; 7.21
047346: 010346              		mov	r3,-(sp)		; f.
047350: 004767 164142       		call	put.packet			; w.bh
047354: 005726              		tst	(sp)+			; V.
047356: 000167 027532       		jmp	cret$			; w.Z/
				;--------------------------------------------------------
				;
				;	doelp.c
				;
				;
				;	do$elp( ptk )
				do$elp::
047362: 004567 027512       		jsr	r5,csv$			; w.J/
047366: 016504 000004       		mov	4(r5),r4		; D...
047372: 036727 033252 000004		bit	102650,#4		; W=*6..
047400: 001111              		bne	47624			; I.
047402: 012702 002304       		mov	#2304,r2		; B.D.
047406: 012703 000001       		mov	#1,r3			; C...
047412: 000472              		br	47600			; :.
;
047414: 021264 000022       		cmp	(r2),22(r4)		; 4"..
047420: 001065              		bne	47574			; 5.
047422: 026264 000002 000024		cmp	2(r2),24(r4)		; 4,....
047430: 001061              		bne	47574			; 1.
047432: 026264 000004 000026		cmp	4(r2),26(r4)		; 4,....
047440: 001055              		bne	47574			; -.
047442: 036227 000006 000001		bit	6(r2),#1		; .<....
047450: 001410              		beq	47472			; ..
047452: 036427 000020 000001		bit	20(r4),#1		; .=....
047460: 001004              		bne	47472			; ..
047462: 012764 000006 000020		mov	#6,20(r4)		; t.....
047470: 000445              		br	47604			; %.
;
047472: 012746 100044       		mov	#mem,-(sp)		; f.$.
047476: 004767 174536       		call	$acquire			; w.^y
047502: 005726              		tst	(sp)+			; V.
047504: 005064 000020       		clr	20(r4)			; 4...
047510: 016264 000012 000022		mov	12(r2),22(r4)		; 4.....
047516: 116264 000014 000024		movb	14(r2),24(r4)		; 4.....
047524: 116264 000006 000025		movb	6(r2),25(r4)		; 4.....
047532: 052767 000004 033110		bis	#4,102650		; wU..H6
047540: 016267 000010 033114		mov	10(r2),102662		; 7...L6
047546: 005067 033112       		clr	102664			; 7.J6
047552: 005067 033110       		clr	102666			; 7.H6
047556: 012767 000001 033104		mov	#1,102670		; w...D6
047564: 016267 000014 033100		mov	14(r2),102672		; 7...@6
047572: 000404              		br	47604			; ..
;
047574: 062702 000016       		add	#16,r2			; Be..
047600: 005303              		dec	r3			; C.
047602: 002304              		bge	47414			; D.
047604: 036727 033040 000004		bit	102650,#4		; W= 6..
047612: 001003              		bne	47622			; ..
047614: 012764 000004 000020		mov	#4,20(r4)		; t.....
047622: 000403              		br	47632			; ..
;
047624: 012764 000001 000020		mov	#1,20(r4)		; t.....
047632: 152764 000200 000016		bisb	#200,16(r4)		; tU....
047640: 012764 000020 000002		mov	#20,2(r4)		; t.....
047646: 105064 000004       		clrb	4(r4)			; 4...
047652: 010446              		mov	r4,-(sp)		; &.
047654: 004767 163636       		call	put.packet			; w..g
047660: 005726              		tst	(sp)+			; V.
047662: 000167 027226       		jmp	cret$			; w...
				;--------------------------------------------------------
				;
				;	doesp.c
				;
				;
				;	do$esp( ptk )
				do$esp::
047666: 004567 027206       		jsr	r5,csv$			; w...
047672: 162706 000006       		sub	#6,sp			; Fe..
047676: 016504 000004       		mov	4(r5),r4		; D...
047702: 036727 032742 000004		bit	102650,#4		; W=b5..
047710: 001142              		bne	50216			; b.
047712: 016465 000022 177770		mov	22(r4),177770(r5)	; 5...x.
047720: 016465 000024 177766		mov	24(r4),177766(r5)	; 5...v.
047726: 016465 000026 177764		mov	26(r4),177764(r5)	; 5...t.
047734: 016465 000030 177762		mov	30(r4),177762(r5)	; 5...r.
047742: 005765 177766       		tst	177766(r5)		; u.v.
047746: 002414              		blt	50000			; ..
047750: 012701 022000       		mov	#22000,r1		; A..$
047754: 005000              		clr	r0			; ..
047756: 166501 177770       		sub	177770(r5),r1		; Amx.
047762: 005600              		sbc	r0			; ..
047764: 166500 177766       		sub	177766(r5),r0		; @mv.
047770: 162701 000001       		sub	#1,r1			; Ae..
047774: 005600              		sbc	r0			; ..
047776: 002004              		bge	50010			; ..
050000: 012764 006001 000020		mov	#6001,20(r4)		; t.....
050006: 000502              		br	50214			; B.
;
050010: 012746 100044       		mov	#mem,-(sp)		; f.$.
050014: 004767 174220       		call	$acquire			; w..x
050020: 005726              		tst	(sp)+			; V.
050022: 012746 100042       		mov	#dma,-(sp)		; f.".
050026: 004767 174206       		call	$acquire			; w..x
050032: 005726              		tst	(sp)+			; V.
050034: 010467 040324       		mov	r4,110364		; 7.T@
050040: 016500 177770       		mov	177770(r5),r0		; @.x.
050044: 010046              		mov	r0,-(sp)		; &.
050046: 012746 110600       		mov	#data,-(sp)		; f...
050052: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
050056: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
050062: 004767 164522       		call	get.buffer			; w.Ri
050066: 062706 000010       		add	#10,sp			; Fe..
050072: 012746 100042       		mov	#dma,-(sp)		; f.".
050076: 004767 174232       		call	$release			; w..x
050102: 005726              		tst	(sp)+			; V.
050104: 136727 040510 000001		bitb	110620,#1		; W=HA..
050112: 001415              		beq	50146			; ..
050114: 036427 000020 000001		bit	20(r4),#1		; .=....
050122: 001011              		bne	50146			; ..
050124: 012746 100044       		mov	#mem,-(sp)		; f.$.
050130: 004767 174200       		call	$release			; w..x
050134: 005726              		tst	(sp)+			; V.
050136: 012764 000006 000020		mov	#6,20(r4)		; t.....
050144: 000423              		br	50214			; ..
;
050146: 005064 000020       		clr	20(r4)			; 4...
050152: 052767 000004 032470		bis	#4,102650		; wU..85
050160: 012767 110622 032474		mov	#110622,102662		; w...<5
050166: 005067 032472       		clr	102664			; 7.:5
050172: 005067 032470       		clr	102666			; 7.85
050176: 012767 000001 032464		mov	#1,102670		; w...45
050204: 116700 040411       		movb	110621,r0		; @..A
050210: 010067 032456       		mov	r0,102672		; 7..5
050214: 000403              		br	50224			; ..
;
050216: 012764 000001 000020		mov	#1,20(r4)		; t.....
050224: 152764 000200 000016		bisb	#200,16(r4)		; tU....
050232: 012764 000014 000002		mov	#14,2(r4)		; t.....
050240: 105064 000004       		clrb	4(r4)			; 4...
050244: 010446              		mov	r4,-(sp)		; &.
050246: 004767 163244       		call	put.packet			; w.$f
050252: 005726              		tst	(sp)+			; V.
050254: 000167 026634       		jmp	cret$			; w..-
				;--------------------------------------------------------
				;
				;	dofmt.c
				;
				;
				;	do$fmt( ptk )
				do$fmt::
050260: 004567 026614       		jsr	r5,csv$			; w..-
050264: 016504 000004       		mov	4(r5),r4		; D...
050270: 105064 000017       		clrb	17(r4)			; 4...
050274: 016446 000012       		mov	12(r4),-(sp)		; &...
050300: 004767 173016       		call	get.ucb			; w..v
050304: 005726              		tst	(sp)+			; V.
050306: 010003              		mov	r0,r3			; ..
050310: 001005              		bne	50324			; ..
050312: 012764 000003 000020		mov	#3,20(r4)		; t.....
050320: 000167 000432       		jmp	50756			; w...
;
050324: 010346              		mov	r3,-(sp)		; f.
050326: 062716 000126       		add	#126,(sp)		; NeV.
050332: 004767 173702       		call	$acquire			; w.Bw
050336: 005726              		tst	(sp)+			; V.
050340: 005763 000136       		tst	136(r3)			; s.^.
050344: 001003              		bne	50354			; ..
050346: 005763 000004       		tst	4(r3)			; s...
050352: 001417              		beq	50412			; ..
050354: 010446              		mov	r4,-(sp)		; &.
050356: 010346              		mov	r3,-(sp)		; f.
050360: 062716 000002       		add	#2,(sp)			; Ne..
050364: 004767 173250       		call	$enq.tail			; w.(v
050370: 022626              		cmp	(sp)+,(sp)+		; .%
050372: 010346              		mov	r3,-(sp)		; f.
050374: 062716 000126       		add	#126,(sp)		; NeV.
050400: 004767 173730       		call	$release			; w.Xw
050404: 005726              		tst	(sp)+			; V.
050406: 000167 000374       		jmp	51006			; w.|.
;
050412: 036327 000030 001000		bit	30(r3),#1000		; W<....
050420: 001005              		bne	50434			; ..
050422: 012764 004001 000020		mov	#4001,20(r4)		; t.....
050430: 000167 000306       		jmp	50742			; w.F.
;
050434: 126427 000016 000057		cmpb	16(r4),#57		; .-../.
050442: 001043              		bne	50552			; #.
050444: 036327 000030 000001		bit	30(r3),#1		; W<....
050452: 001420              		beq	50514			; ..
050454: 012764 002004 000020		mov	#2004,20(r4)		; t.....
050462: 042763 000021 000030		bic	#21,30(r3)		; sE....
050470: 042763 057577 000012		bic	#57577,12(r3)		; sE._..
050476: 016302 000040       		mov	40(r3),r2		; B. .
050502: 005102              		com	r2			; B.
050504: 005102              		com	r2			; B.
050506: 040267 027470       		bic	r2,100202		; 7@8/
050512: 000416              		br	50550			; ..
;
050514: 036427 000044 100000		bit	44(r4),#100000		; .=$...
050522: 001004              		bne	50534			; ..
050524: 012764 016001 000020		mov	#16001,20(r4)		; t.....
050532: 000406              		br	50550			; ..
;
050534: 010346              		mov	r3,-(sp)		; f.
050536: 004767 000250       		call	$do$fmt			; w.(.
050542: 005726              		tst	(sp)+			; V.
050544: 010064 000020       		mov	r0,20(r4)		; 4...
050550: 000474              		br	50742			; <.
;
050552: 126427 000016 000030		cmpb	16(r4),#30		; .-....
050560: 001070              		bne	50742			; 8.
050562: 036327 000030 000002		bit	30(r3),#2		; W<....
050570: 001404              		beq	50602			; ..
050572: 012764 000003 000020		mov	#3,20(r4)		; t.....
050600: 000460              		br	50742			; 0.
;
050602: 036327 000030 000001		bit	30(r3),#1		; W<....
050610: 001004              		bne	50622			; ..
050612: 012764 000004 000020		mov	#4,20(r4)		; t.....
050620: 000450              		br	50742			; (.
;
050622: 036327 000030 000020		bit	30(r3),#20		; W<....
050630: 001004              		bne	50642			; ..
050632: 012764 002004 000020		mov	#2004,20(r4)		; t.....
050640: 000424              		br	50712			; ..
;
050642: 005764 000044       		tst	44(r4)			; t.$.
050646: 001007              		bne	50666			; ..
050650: 026427 000042 000432		cmp	42(r4),#432		; .-"...
050656: 001407              		beq	50676			; ..
050660: 005764 000042       		tst	42(r4)			; t.".
050664: 001404              		beq	50676			; ..
050666: 012764 016001 000020		mov	#16001,20(r4)		; t.....
050674: 000422              		br	50742			; ..
;
050676: 010346              		mov	r3,-(sp)		; f.
050700: 004767 000106       		call	$do$fmt			; w.F.
050704: 005726              		tst	(sp)+			; V.
050706: 010064 000020       		mov	r0,20(r4)		; 4...
050712: 042763 000021 000030		bic	#21,30(r3)		; sE....
050720: 042763 057577 000012		bic	#57577,12(r3)		; sE._..
050726: 016302 000040       		mov	40(r3),r2		; B. .
050732: 005102              		com	r2			; B.
050734: 005102              		com	r2			; B.
050736: 040267 027240       		bic	r2,100202		; 7@ .
050742: 010346              		mov	r3,-(sp)		; f.
050744: 062716 000126       		add	#126,(sp)		; NeV.
050750: 004767 173360       		call	$release			; w.pv
050754: 005726              		tst	(sp)+			; V.
050756: 152764 000200 000016		bisb	#200,16(r4)		; tU....
050764: 012764 000014 000002		mov	#14,2(r4)		; t.....
050772: 105064 000004       		clrb	4(r4)			; 4...
050776: 010446              		mov	r4,-(sp)		; &.
051000: 004767 162512       		call	put.packet			; w.Je
051004: 005726              		tst	(sp)+			; V.
051006: 000167 026102       		jmp	cret$			; w.B,
;
				;	$do$fmt( ucb )
				$do$fmt::
051012: 004567 026062       		jsr	r5,csv$			; w.2,
051016: 162706 000102       		sub	#102,sp			; FeB.
051022: 016504 000004       		mov	4(r5),r4		; D...
051026: 036427 000030 000002		bit	30(r4),#2		; .=....
051034: 001404              		beq	51046			; ..
051036: 012700 000043       		mov	#43,r0			; @.#.
051042: 000167 000710       		jmp	51756			; w.H.
;
051046: 036427 000012 020000		bit	12(r4),#20000		; .=... 
051054: 001404              		beq	51066			; ..
051056: 012700 020006       		mov	#20006,r0		; @.. 
051062: 000167 000670       		jmp	51756			; w.8.
;
051066: 010446              		mov	r4,-(sp)		; &.
051070: 004767 157562       		call	rx33$media		; w.r_
051074: 005726              		tst	(sp)+			; V.
051076: 005067 027130       		clr	100232			; 7.X.
051102: 010446              		mov	r4,-(sp)		; &.
051104: 004767 170512       		call	select			; w.Jq
051110: 005726              		tst	(sp)+			; V.
051112: 010446              		mov	r4,-(sp)		; &.
051114: 004767 165244       		call	restore			; w.$j
051120: 005726              		tst	(sp)+			; V.
051122: 005067 027074       		clr	100222			; 7.<.
051126: 052767 000001 027052		bis	#1,100206		; wU..*.
051134: 042767 000010 027044		bic	#10,100206		; wE..$.
051142: 112767 000107 066652		movb	#107,w$cmd		; w.G.*m
051150: 116767 027032 066642		movb	100206,w$dat		; w..."m
051156: 016746 027050       		mov	100232,-(sp)		; f.(.
051162: 004767 141454       		call	put$udc			; w.,C
051166: 005726              		tst	(sp)+			; V.
051170: 012746 000764       		mov	#764,-(sp)		; f.t.
051174: 004767 173460       		call	$sleep			; w.0w
051200: 005726              		tst	(sp)+			; V.
051202: 005065 177666       		clr	177666(r5)		; 5.6.
051206: 005067 027026       		clr	100240			; 7...
051212: 112767 000111 066602		movb	#111,w$cmd		; w.I..m
051220: 136727 066564 000100		bitb	r$dat,#100		; W=tm@.
051226: 001012              		bne	51254			; ..
051230: 026727 027004 003720		cmp	100240,#3720		; W-..P.
051236: 002405              		blt	51252			; ..
051240: 012765 000043 177666		mov	#43,177666(r5)		; u.#.6.
051246: 000167 000460       		jmp	51732			; w.0.
;
051252: 000757              		br	51212			; o.
;
051254: 005065 177674       		clr	177674(r5)		; 5.<.
051260: 000167 000432       		jmp	51716			; w...
;
051264: 005065 177672       		clr	177672(r5)		; 5.:.
051270: 000167 000370       		jmp	51664			; w.x.
;
051274: 005065 177670       		clr	177670(r5)		; 5.8.
051300: 000444              		br	51412			; $.
;
051302: 016500 177670       		mov	177670(r5),r0		; @.8.
051306: 006300              		asl	r0			; @.
051310: 006300              		asl	r0			; @.
051312: 060500              		add	r5,r0			; @a
051314: 116560 177674 177676		movb	177674(r5),177676(r0)	; p.<.>.
051322: 016500 177670       		mov	177670(r5),r0		; @.8.
051326: 006300              		asl	r0			; @.
051330: 006300              		asl	r0			; @.
051332: 060500              		add	r5,r0			; @a
051334: 116560 177672 177677		movb	177672(r5),177677(r0)	; p.:.?.
051342: 016503 177670       		mov	177670(r5),r3		; C.8.
051346: 005203              		inc	r3			; ..
051350: 016500 177670       		mov	177670(r5),r0		; @.8.
051354: 006300              		asl	r0			; @.
051356: 006300              		asl	r0			; @.
051360: 060500              		add	r5,r0			; @a
051362: 110360 177700       		movb	r3,177700(r0)		; p.@.
051366: 016500 177670       		mov	177670(r5),r0		; @.8.
051372: 006300              		asl	r0			; @.
051374: 006300              		asl	r0			; @.
051376: 060500              		add	r5,r0			; @a
051400: 112760 000002 177701		movb	#2,177701(r0)		; p...A.
051406: 005265 177670       		inc	177670(r5)		; 5.8.
051412: 026564 177670 000110		cmp	177670(r5),110(r4)	; t-8.H.
051420: 002730              		blt	51302			; X.
051422: 010500              		mov	r5,r0			; @.
051424: 062700 177676       		add	#177676,r0		; @e>.
051430: 010065 177670       		mov	r0,177670(r5)		; 5.8.
051434: 112767 000100 066360		movb	#100,w$cmd		; w.@.pl
051442: 116567 177670 066350		movb	177670(r5),w$dat	; w.8.hl
051450: 116567 177671 066342		movb	177671(r5),w$dat	; w.9.bl
051456: 105067 066336       		clrb	w$dat			; 7.^l
051462: 016746 026544       		mov	100232,-(sp)		; f.d-
051466: 004767 141150       		call	put$udc			; w.hB
051472: 005726              		tst	(sp)+			; V.
051474: 112767 000100 066320		movb	#100,w$cmd		; w.@.Pl
051502: 112767 177660 066310		movb	#177660,w$dat		; w.0.Hl
051510: 112767 177716 066302		movb	#177716,w$dat		; w.N.Bl
051516: 112767 177752 066274		movb	#177752,w$dat		; w.j.<l
051524: 112767 177654 066266		movb	#177654,w$dat		; w.,.6l
051532: 116567 177672 066260		movb	177672(r5),w$dat	; w.:.0l
051540: 112767 177763 066252		movb	#177763,w$dat		; w.s.*l
051546: 016400 000110       		mov	110(r4),r0		; ..H.
051552: 005100              		com	r0			; @.
051554: 110067 066240       		movb	r0,w$dat		; 7. l
051560: 112767 177773 066232		movb	#177773,w$dat		; w.{..l
051566: 012767 000004 026430		mov	#4,100224		; w....-
051574: 012746 000144       		mov	#144,-(sp)		; f.d.
051600: 004767 141036       		call	put$udc			; w..B
051604: 005726              		tst	(sp)+			; V.
051606: 136727 066200 000030		bitb	r$cmd,#30		; W=.l..
051614: 001003              		bne	51624			; ..
051616: 005767 026402       		tst	100224			; w..-
051622: 001003              		bne	51632			; ..
051624: 012765 000013 177666		mov	#13,177666(r5)		; u...6.
051632: 005067 026366       		clr	100224			; 7.v,
051636: 112767 000107 066156		movb	#107,w$cmd		; w.G.nl
051644: 116767 026336 066146		movb	100206,w$dat		; w.^,fl
051652: 005765 177666       		tst	177666(r5)		; u.6.
051656: 001025              		bne	51732			; ..
051660: 005265 177672       		inc	177672(r5)		; 5.:.
051664: 026564 177672 000112		cmp	177672(r5),112(r4)	; t-:.J.
051672: 002002              		bge	51700			; ..
051674: 000167 177374       		jmp	51274			; w.|~
;
051700: 012746 000005       		mov	#5,-(sp)		; f...
051704: 004767 140732       		call	put$udc			; w.ZA
051710: 005726              		tst	(sp)+			; V.
051712: 005265 177674       		inc	177674(r5)		; 5.<.
051716: 026564 177674 000114		cmp	177674(r5),114(r4)	; t-<.L.
051724: 002002              		bge	51732			; ..
051726: 000167 177332       		jmp	51264			; w.Z~
;
051732: 010446              		mov	r4,-(sp)		; &.
051734: 004767 164424       		call	restore			; w..i
051740: 005726              		tst	(sp)+			; V.
051742: 010446              		mov	r4,-(sp)		; &.
051744: 004767 170172       		call	deselect			; w.zp
051750: 005726              		tst	(sp)+			; V.
051752: 016500 177666       		mov	177666(r5),r0		; @.6.
051756: 000167 025132       		jmp	cret$			; w.Z*
				;--------------------------------------------------------
				;
				;	dogcs.c
				;
				;
				;	do$gcs( ptk )
				do$gcs::
051762: 004567 025112       		jsr	r5,csv$			; w.J*
051766: 016504 000004       		mov	4(r5),r4		; D...
051772: 105064 000017       		clrb	17(r4)			; 4...
051776: 005064 000020       		clr	20(r4)			; 4...
052002: 010446              		mov	r4,-(sp)		; &.
052004: 062716 000026       		add	#26,(sp)		; Ne..
052010: 016446 000024       		mov	24(r4),-(sp)		; &...
052014: 016446 000022       		mov	22(r4),-(sp)		; &...
052020: 016446 000012       		mov	12(r4),-(sp)		; &...
052024: 004767 000040       		call	$do$gcs			; w. .
052030: 062706 000010       		add	#10,sp			; Fe..
052034: 152764 000200 000016		bisb	#200,16(r4)		; tU....
052042: 012764 000024 000002		mov	#24,2(r4)		; t.....
052050: 105064 000004       		clrb	4(r4)			; 4...
052054: 010446              		mov	r4,-(sp)		; &.
052056: 004767 161434       		call	put.packet			; w..c
052062: 005726              		tst	(sp)+			; V.
052064: 000167 025024       		jmp	cret$			; w..*
;
				;	$do$gcs( pkt )
				$do$gcs::
052070: 004567 025004       		jsr	r5,csv$			; w..*
052074: 005075 000012       		clr	@12(r5)			; =...
052100: 016500 000012       		mov	12(r5),r0		; @...
052104: 005060 000002       		clr	2(r0)			; 0...
052110: 016546 000004       		mov	4(r5),-(sp)		; f...
052114: 004767 171202       		call	get.ucb			; w..r
052120: 005726              		tst	(sp)+			; V.
052122: 010002              		mov	r0,r2			; ..
052124: 001441              		beq	52230			; !.
052126: 010246              		mov	r2,-(sp)		; &.
052130: 062716 000126       		add	#126,(sp)		; NeV.
052134: 004767 172100       		call	$acquire			; w.@t
052140: 005726              		tst	(sp)+			; V.
052142: 016203 000136       		mov	136(r2),r3		; ..^.
052146: 001422              		beq	52214			; ..
052150: 016304 000004       		mov	4(r3),r4		; D...
052154: 026564 000006 000006		cmp	6(r5),6(r4)		; t-....
052162: 001014              		bne	52214			; ..
052164: 026564 000010 000010		cmp	10(r5),10(r4)		; t-....
052172: 001010              		bne	52214			; ..
052174: 016375 000014 000012		mov	14(r3),@12(r5)		; }.....
052202: 016500 000012       		mov	12(r5),r0		; @...
052206: 016360 000012 000002		mov	12(r3),2(r0)		; p.....
052214: 010246              		mov	r2,-(sp)		; &.
052216: 062716 000126       		add	#126,(sp)		; NeV.
052222: 004767 172106       		call	$release			; w.Ft
052226: 005726              		tst	(sp)+			; V.
052230: 000167 024660       		jmp	cret$			; w.0)
				;--------------------------------------------------------
				;
				;	dogds.c
				;
				;
				;	do$gds( ptk )
				do$gds::
052234: 004567 024640       		jsr	r5,csv$			; w. )
052240: 016504 000004       		mov	4(r5),r4		; D...
052244: 005064 000020       		clr	20(r4)			; 4...
052250: 112764 000122 000022		movb	#122,22(r4)		; t.R...
052256: 112764 000121 000023		movb	#121,23(r4)		; t.Q...
052264: 112764 000063 000024		movb	#63,24(r4)		; t.3...
052272: 112764 000003 000025		movb	#3,25(r4)		; t.....
052300: 036727 030344 000004		bit	102650,#4		; W=d0..
052306: 001403              		beq	52316			; ..
052310: 152764 000010 000025		bisb	#10,25(r4)		; tU....
052316: 016764 030344 000026		mov	102666,26(r4)		; t.d0..
052324: 016764 030334 000030		mov	102664,30(r4)		; t.\0..
052332: 016764 030334 000032		mov	102672,32(r4)		; t.\0..
052340: 152764 000200 000016		bisb	#200,16(r4)		; tU....
052346: 012764 000026 000002		mov	#26,2(r4)		; t.....
052354: 105064 000004       		clrb	4(r4)			; 4...
052360: 010446              		mov	r4,-(sp)		; &.
052362: 004767 161130       		call	put.packet			; w.Xb
052366: 005726              		tst	(sp)+			; V.
052370: 000167 024520       		jmp	cret$			; w.P)
				;--------------------------------------------------------
				;
				;	dogus.c
				;
				;
				;	do$gus( ptk )
				do$gus::
052374: 004567 024500       		jsr	r5,csv$			; w.@)
052400: 016504 000004       		mov	4(r5),r4		; D...
052404: 016403 000012       		mov	12(r4),r3		; ....
052410: 105064 000017       		clrb	17(r4)			; 4...
052414: 036427 000020 000001		bit	20(r4),#1		; .=....
052422: 001424              		beq	52474			; ..
052424: 020367 025622       		cmp	r3,100252		; w .+
052430: 002002              		bge	52436			; ..
052432: 016703 025614       		mov	100252,r3		; C..+
052436: 016700 025610       		mov	100252,r0		; @..+
052442: 062700 000003       		add	#3,r0			; @e..
052446: 020003              		cmp	r0,r3			; . 
052450: 002406              		blt	52466			; ..
052452: 010346              		mov	r3,-(sp)		; f.
052454: 004767 170642       		call	get.ucb			; w."q
052460: 005726              		tst	(sp)+			; V.
052462: 005700              		tst	r0			; @.
052464: 001001              		bne	52470			; ..
052466: 005003              		clr	r3			; ..
052470: 010364 000012       		mov	r3,12(r4)		; t...
052474: 010346              		mov	r3,-(sp)		; f.
052476: 004767 170620       		call	get.ucb			; w..q
052502: 005726              		tst	(sp)+			; V.
052504: 010002              		mov	r0,r2			; ..
052506: 001004              		bne	52520			; ..
052510: 012764 000003 000020		mov	#3,20(r4)		; t.....
052516: 000505              		br	52732			; E.
;
052520: 036227 000030 000002		bit	30(r2),#2		; .<....
052526: 001404              		beq	52540			; ..
052530: 012764 000043 000020		mov	#43,20(r4)		; t.#...
052536: 000412              		br	52564			; ..
;
052540: 036227 000030 000001		bit	30(r2),#1		; .<....
052546: 001004              		bne	52560			; ..
052550: 012764 000004 000020		mov	#4,20(r4)		; t.....
052556: 000402              		br	52564			; ..
;
052560: 005064 000020       		clr	20(r4)			; 4...
052564: 010364 000022       		mov	r3,22(r4)		; t...
052570: 016264 000012 000024		mov	12(r2),24(r4)		; 4.....
052576: 010364 000032       		mov	r3,32(r4)		; t...
052602: 005064 000034       		clr	34(r4)			; 4...
052606: 005064 000036       		clr	36(r4)			; 4...
052612: 016264 000140 000040		mov	140(r2),40(r4)		; 4.`. .
052620: 016264 000016 000042		mov	16(r2),42(r4)		; 4...".
052626: 016264 000014 000044		mov	14(r2),44(r4)		; 4...$.
052634: 016264 000130 000052		mov	130(r2),52(r4)		; 4.X.*.
052642: 016264 000132 000054		mov	132(r2),54(r4)		; 4.Z.,.
052650: 016264 000134 000056		mov	134(r2),56(r4)		; 4.\...
052656: 105064 000060       		clrb	60(r4)			; 4.0.
052662: 105064 000061       		clrb	61(r4)			; 4.1.
052666: 016264 000024 000062		mov	24(r2),62(r4)		; 4...2.
052674: 036227 000030 000010		bit	30(r2),#10		; .<....
052702: 001405              		beq	52716			; ..
052704: 105064 000064       		clrb	64(r4)			; 4.4.
052710: 105064 000065       		clrb	65(r4)			; 4.5.
052714: 000406              		br	52732			; ..
;
052716: 112764 000001 000064		movb	#1,64(r4)		; t...4.
052724: 112764 000001 000065		movb	#1,65(r4)		; t...5.
052732: 010364 000046       		mov	r3,46(r4)		; t.&.
052736: 005064 000050       		clr	50(r4)			; 4.(.
052742: 152764 000200 000016		bisb	#200,16(r4)		; tU....
052750: 012764 000060 000002		mov	#60,2(r4)		; t.0...
052756: 105064 000004       		clrb	4(r4)			; 4...
052762: 010446              		mov	r4,-(sp)		; &.
052764: 004767 160526       		call	put.packet			; w.Va
052770: 005726              		tst	(sp)+			; V.
052772: 000167 024116       		jmp	cret$			; w.N(
				;--------------------------------------------------------
				;
				;	doonl.c
				;
				;
				;	do$onl( ptk )
				do$onl::
052776: 004567 024076       		jsr	r5,csv$			; w.>(
053002: 162706 000004       		sub	#4,sp			; Fe..
053006: 016504 000004       		mov	4(r5),r4		; D...
053012: 016465 000012 177770		mov	12(r4),177770(r5)	; 5...x.
053020: 016465 000020 177766		mov	20(r4),177766(r5)	; 5...v.
053026: 105064 000017       		clrb	17(r4)			; 4...
053032: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
053036: 004767 170260       		call	get.ucb			; w.0p
053042: 005726              		tst	(sp)+			; V.
053044: 010002              		mov	r0,r2			; ..
053046: 001005              		bne	53062			; ..
053050: 012764 000003 000020		mov	#3,20(r4)		; t.....
053056: 000167 000616       		jmp	53700			; w...
;
053062: 010246              		mov	r2,-(sp)		; &.
053064: 062716 000126       		add	#126,(sp)		; NeV.
053070: 004767 171144       		call	$acquire			; w.dr
053074: 005726              		tst	(sp)+			; V.
053076: 036227 000030 000100		bit	30(r2),#100		; .<..@.
053104: 001405              		beq	53120			; ..
053106: 012764 000305 000020		mov	#305,20(r4)		; t.E...
053114: 000167 000440       		jmp	53560			; w. .
;
053120: 036227 000030 000002		bit	30(r2),#2		; .<....
053126: 001405              		beq	53142			; ..
053130: 012764 000043 000020		mov	#43,20(r4)		; t.#...
053136: 000167 000416       		jmp	53560			; w...
;
053142: 005762 000136       		tst	136(r2)			; r.^.
053146: 001003              		bne	53156			; ..
053150: 005762 000004       		tst	4(r2)			; r...
053154: 001417              		beq	53214			; ..
053156: 010446              		mov	r4,-(sp)		; &.
053160: 010246              		mov	r2,-(sp)		; &.
053162: 062716 000002       		add	#2,(sp)			; Ne..
053166: 004767 170446       		call	$enq.tail			; w.&q
053172: 022626              		cmp	(sp)+,(sp)+		; .%
053174: 010246              		mov	r2,-(sp)		; &.
053176: 062716 000126       		add	#126,(sp)		; NeV.
053202: 004767 171126       		call	$release			; w.Vr
053206: 005726              		tst	(sp)+			; V.
053210: 000167 000526       		jmp	53742			; w.V.
;
053214: 036227 000030 000001		bit	30(r2),#1		; .<....
053222: 001405              		beq	53236			; ..
053224: 012764 000400 000020		mov	#400,20(r4)		; t.....
053232: 000167 000322       		jmp	53560			; w.R.
;
053236: 012746 100052       		mov	#100052,-(sp)		; f.*.
053242: 004767 170456       		call	$deqf.head			; w..q
053246: 005726              		tst	(sp)+			; V.
053250: 010003              		mov	r0,r3			; ..
053252: 010263 000002       		mov	r2,2(r3)		; 3...
053256: 010463 000004       		mov	r4,4(r3)		; 3...
053262: 012746 100044       		mov	#mem,-(sp)		; f.$.
053266: 004767 170746       		call	$acquire			; w.fq
053272: 005726              		tst	(sp)+			; V.
053274: 036227 000030 000004		bit	30(r2),#4		; .<....
053302: 001425              		beq	53356			; ..
053304: 036527 177766 000002		bit	177766(r5),#2		; W=v...
053312: 001021              		bne	53356			; ..
053314: 005046              		clr	-(sp)			; &.
053316: 012746 177777       		mov	#177777,-(sp)		; f...
053322: 012746 177777       		mov	#177777,-(sp)		; f...
053326: 010346              		mov	r3,-(sp)		; f.
053330: 004767 145026       		call	put$rbn			; w..J
053334: 062706 000010       		add	#10,sp			; Fe..
053340: 010065 177764       		mov	r0,177764(r5)		; 5.t.
053344: 001404              		beq	53356			; ..
053346: 016564 177764 000020		mov	177764(r5),20(r4)	; t.t...
053354: 000466              		br	53532			; 6.
;
053356: 036227 000030 000010		bit	30(r2),#10		; .<....
053364: 001417              		beq	53424			; ..
053366: 010246              		mov	r2,-(sp)		; &.
053370: 004767 163120       		call	size.media			; w.Pf
053374: 005726              		tst	(sp)+			; V.
053376: 010065 177764       		mov	r0,177764(r5)		; 5.t.
053402: 001410              		beq	53424			; ..
053404: 036527 177766 000002		bit	177766(r5),#2		; W=v...
053412: 001004              		bne	53424			; ..
053414: 016564 177764 000020		mov	177764(r5),20(r4)	; t.t...
053422: 000443              		br	53532			; #.
;
053424: 005064 000020       		clr	20(r4)			; 4...
053430: 042762 057577 000012		bic	#57577,12(r2)		; rE._..
053436: 016401 000024       		mov	24(r4),r1		; ....
053442: 042701 177774       		bic	#177774,r1		; AE|.
053446: 050162 000012       		bis	r1,12(r2)		; rP..
053452: 036527 177766 000004		bit	177766(r5),#4		; W=v...
053460: 001412              		beq	53506			; ..
053462: 036427 000024 010000		bit	24(r4),#10000		; .=....
053470: 001406              		beq	53506			; ..
053472: 052762 010000 000012		bis	#10000,12(r2)		; rU....
053500: 056267 000040 024474		bis	40(r2),100202		; 7\ .<)
053506: 052762 000001 000030		bis	#1,30(r2)		; rU....
053514: 036527 177766 000002		bit	177766(r5),#2		; W=v...
053522: 001403              		beq	53532			; ..
053524: 052762 000020 000030		bis	#20,30(r2)		; rU....
053532: 012746 100044       		mov	#mem,-(sp)		; f.$.
053536: 004767 170572       		call	$release			; w.zq
053542: 005726              		tst	(sp)+			; V.
053544: 010346              		mov	r3,-(sp)		; f.
053546: 012746 100052       		mov	#100052,-(sp)		; f.*.
053552: 004767 170032       		call	$enq.head			; w..p
053556: 022626              		cmp	(sp)+,(sp)+		; .%
053560: 016564 177770 000022		mov	177770(r5),22(r4)	; t.x...
053566: 016264 000012 000024		mov	12(r2),24(r4)		; 4.....
053574: 016564 177770 000032		mov	177770(r5),32(r4)	; t.x...
053602: 005064 000034       		clr	34(r4)			; 4...
053606: 005064 000036       		clr	36(r4)			; 4...
053612: 016264 000140 000040		mov	140(r2),40(r4)		; 4.`. .
053620: 016264 000016 000042		mov	16(r2),42(r4)		; 4...".
053626: 016264 000014 000044		mov	14(r2),44(r4)		; 4...$.
053634: 016264 000010 000052		mov	10(r2),52(r4)		; 4...*.
053642: 016264 000006 000054		mov	6(r2),54(r4)		; 4...,.
053650: 016264 000022 000056		mov	22(r2),56(r4)		; 4.....
053656: 016264 000020 000060		mov	20(r2),60(r4)		; 4...0.
053664: 010246              		mov	r2,-(sp)		; &.
053666: 062716 000126       		add	#126,(sp)		; NeV.
053672: 004767 170436       		call	$release			; w..q
053676: 005726              		tst	(sp)+			; V.
053700: 016564 177770 000046		mov	177770(r5),46(r4)	; t.x.&.
053706: 005064 000050       		clr	50(r4)			; 4.(.
053712: 152764 000200 000016		bisb	#200,16(r4)		; tU....
053720: 012764 000054 000002		mov	#54,2(r4)		; t.,...
053726: 105064 000004       		clrb	4(r4)			; 4...
053732: 010446              		mov	r4,-(sp)		; &.
053734: 004767 157556       		call	put.packet			; w.n_
053740: 005726              		tst	(sp)+			; V.
053742: 000167 023146       		jmp	cret$			; w.f&
				;--------------------------------------------------------
				;
				;	doplf.c
				;
				;
				;	do$plf( ptk )
				do.plf::
053746: 004567 023126       		jsr	r5,csv$			; w.V&
053752: 012746 100050       		mov	#100050,-(sp)		; f.(.
053756: 004767 167742       		call	$deqf.head			; w.bo
053762: 005726              		tst	(sp)+			; V.
053764: 010004              		mov	r0,r4			; ..
053766: 005064 000006       		clr	6(r4)			; 4...
053772: 005064 000010       		clr	10(r4)			; 4...
053776: 005064 000012       		clr	12(r4)			; 4...
054002: 005064 000014       		clr	14(r4)			; 4...
054006: 105064 000016       		clrb	16(r4)			; 4...
054012: 112764 000001 000017		movb	#1,17(r4)		; t.....
054020: 012764 000012 000020		mov	#12,20(r4)		; t.....
054026: 005064 000022       		clr	22(r4)			; 4...
054032: 005064 000024       		clr	24(r4)			; 4...
054036: 005064 000026       		clr	26(r4)			; 4...
054042: 016764 026606 000030		mov	102654,30(r4)		; t..-..
054050: 112764 000004 000032		movb	#4,32(r4)		; t.....
054056: 112764 000001 000033		movb	#1,33(r4)		; t.....
054064: 016564 000004 000034		mov	4(r5),34(r4)		; t.....
054072: 012764 000030 000002		mov	#30,2(r4)		; t.....
054100: 112764 000020 000004		movb	#20,4(r4)		; t.....
054106: 112764 000377 000005		movb	#377,5(r4)		; t.....
054114: 005267 024110       		inc	100230			; 7.H(
054120: 010446              		mov	r4,-(sp)		; &.
054122: 004767 157370       		call	put.packet			; w.x^
054126: 005726              		tst	(sp)+			; V.
054130: 000167 022760       		jmp	cret$			; w.p%
				;--------------------------------------------------------
				;
				;	dorcv.c
				;
				;
				;	do$rcv( ptk )
				do$rcv::
054134: 004567 022740       		jsr	r5,csv$			; w.`%
054140: 162706 000006       		sub	#6,sp			; Fe..
054144: 016504 000004       		mov	4(r5),r4		; D...
054150: 036727 026474 000004		bit	102650,#4		; W=<-..
054156: 001542              		beq	54464			; b.
054160: 005767 026474       		tst	102660			; w.<-
054164: 001007              		bne	54204			; ..
054166: 010446              		mov	r4,-(sp)		; &.
054170: 012746 102674       		mov	#102674,-(sp)		; f.<.
054174: 004767 167440       		call	$enq.tail			; w. o
054200: 022626              		cmp	(sp)+,(sp)+		; .%
054202: 000547              		br	54522			; g.
;
054204: 016465 000022 177770		mov	22(r4),177770(r5)	; 5...x.
054212: 016465 000024 177766		mov	24(r4),177766(r5)	; 5...v.
054220: 016465 000026 177764		mov	26(r4),177764(r5)	; 5...t.
054226: 016465 000030 177762		mov	30(r4),177762(r5)	; 5...r.
054234: 012701 000002       		mov	#2,r1			; A...
054240: 005000              		clr	r0			; ..
054242: 166501 177770       		sub	177770(r5),r1		; Amx.
054246: 005600              		sbc	r0			; ..
054250: 166500 177766       		sub	177766(r5),r0		; @mv.
054254: 162701 000001       		sub	#1,r1			; Ae..
054260: 005600              		sbc	r0			; ..
054262: 002404              		blt	54274			; ..
054264: 012764 006001 000020		mov	#6001,20(r4)		; t.....
054272: 000473              		br	54462			; ;.
;
054274: 036727 026370 000010		bit	102670,#10		; W=x,..
054302: 001004              		bne	54314			; ..
054304: 012764 004001 000020		mov	#4001,20(r4)		; t.....
054312: 000463              		br	54462			; 3.
;
054314: 016701 026336       		mov	102656,r1		; A.^,
054320: 006700              		sxt	r0			; @.
054322: 166501 177770       		sub	177770(r5),r1		; Amx.
054326: 005600              		sbc	r0			; ..
054330: 166500 177766       		sub	177766(r5),r0		; @mv.
054334: 162701 000001       		sub	#1,r1			; Ae..
054340: 005600              		sbc	r0			; ..
054342: 002403              		blt	54352			; ..
054344: 016567 177770 026304		mov	177770(r5),102656	; w.x.D,
054352: 012746 100042       		mov	#dma,-(sp)		; f.".
054356: 004767 167656       		call	$acquire			; w..o
054362: 005726              		tst	(sp)+			; V.
054364: 010467 033774       		mov	r4,110364		; 7.|7
054370: 016746 026262       		mov	102656,-(sp)		; f.2,
054374: 016746 026260       		mov	102660,-(sp)		; f.0,
054400: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
054404: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
054410: 004767 160204       		call	put.buffer			; w..`
054414: 062706 000010       		add	#10,sp			; Fe..
054420: 012746 100042       		mov	#dma,-(sp)		; f.".
054424: 004767 167704       		call	$release			; w.Do
054430: 005726              		tst	(sp)+			; V.
054432: 042767 000010 026230		bic	#10,102670		; wE...,
054440: 005067 026214       		clr	102660			; 7..,
054444: 016764 026206 000022		mov	102656,22(r4)		; t..,..
054452: 005064 000024       		clr	24(r4)			; 4...
054456: 005064 000020       		clr	20(r4)			; 4...
054462: 000403              		br	54472			; ..
;
054464: 012764 000001 000020		mov	#1,20(r4)		; t.....
054472: 152764 000200 000016		bisb	#200,16(r4)		; tU....
054500: 012764 000020 000002		mov	#20,2(r4)		; t.....
054506: 105064 000004       		clrb	4(r4)			; 4...
054512: 010446              		mov	r4,-(sp)		; &.
054514: 004767 156776       		call	put.packet			; w.~]
054520: 005726              		tst	(sp)+			; V.
054522: 000167 022366       		jmp	cret$			; w.v$
				;--------------------------------------------------------
				;
				;	dorw.c
				;
				;
				;	do$rw( ptk )
				do$rw::
054526: 004567 022346       		jsr	r5,csv$			; w.f$
054532: 016504 000004       		mov	4(r5),r4		; D...
054536: 105064 000017       		clrb	17(r4)			; 4...
054542: 016446 000012       		mov	12(r4),-(sp)		; &...
054546: 004767 166550       		call	get.ucb			; w.hm
054552: 005726              		tst	(sp)+			; V.
054554: 010002              		mov	r0,r2			; ..
054556: 001005              		bne	54572			; ..
054560: 012764 000003 000020		mov	#3,20(r4)		; t.....
054566: 000167 000526       		jmp	55320			; w.V.
;
054572: 010246              		mov	r2,-(sp)		; &.
054574: 062716 000126       		add	#126,(sp)		; NeV.
054600: 004767 167434       		call	$acquire			; w..o
054604: 005726              		tst	(sp)+			; V.
054606: 005762 000002       		tst	2(r2)			; r...
054612: 001417              		beq	54652			; ..
054614: 010446              		mov	r4,-(sp)		; &.
054616: 010246              		mov	r2,-(sp)		; &.
054620: 062716 000002       		add	#2,(sp)			; Ne..
054624: 004767 167010       		call	$enq.tail			; w..n
054630: 022626              		cmp	(sp)+,(sp)+		; .%
054632: 010246              		mov	r2,-(sp)		; &.
054634: 062716 000126       		add	#126,(sp)		; NeV.
054640: 004767 167470       		call	$release			; w.8o
054644: 005726              		tst	(sp)+			; V.
054646: 000167 000506       		jmp	55360			; w.F.
;
;
054652: 012746 100052       		mov	#100052,-(sp)		; f.*.
054656: 004767 167042       		call	$deqf.head			; w."n
054662: 005726              		tst	(sp)+			; V.
054664: 010003              		mov	r0,r3			; ..
054666: 010263 000002       		mov	r2,2(r3)		; 3...
054672: 016463 000020 000026		mov	20(r4),26(r3)		; 3.....
054700: 116400 000016       		movb	16(r4),r0		; ....
054704: 000510              		br	55126			; H.
;
;
				setrwcmd::
054706: 012765 055614 177770		mov	#$do$rw,177770(r5)	; u..[x.
054714: 012763 004374 000022		mov	#rd$cmd,22(r3)		; s.|...
054722: 012763 000011 000024		mov	#11,24(r3)		; s.....
054730: 036427 000020 040000		bit	20(r4),#40000		; .=...@
054736: 001004              		bne	54750			; ..
054740: 036227 000012 000001		bit	12(r2),#1		; .<....
054746: 001403              		beq	54756			; ..
054750: 052763 000100 000024		bis	#100,24(r3)		; sU@...
054756: 000472              		br	55144			; :.
;
054760: 012765 056310 177770		mov	#ok$wr,177770(r5)	; u.H\x.
054766: 012763 005014 000022		mov	#wr$cmd,22(r3)		; s.....
054774: 012763 000022 000024		mov	#22,24(r3)		; s.....
055002: 036427 000020 040000		bit	20(r4),#40000		; .=...@
055010: 001004              		bne	55022			; ..
055012: 036227 000012 000002		bit	12(r2),#2		; .<....
055020: 001403              		beq	55030			; ..
055022: 052763 000200 000024		bis	#200,24(r3)		; sU....
055030: 000445              		br	55144			; %.
;
;
				setrdcmd::
055032: 012765 055614 177770		mov	#$do$rw,177770(r5)	; u..[x.
055040: 012763 004374 000022		mov	#rd$cmd,22(r3)		; s.|...
055046: 012763 000001 000024		mov	#1,24(r3)		; s.....
055054: 000433              		br	55144			; ..
;
				setwrcmd::
055056: 012765 056310 177770		mov	#ok$wr,177770(r5)	; u.H\x.
055064: 012763 005014 000022		mov	#wr$cmd,22(r3)		; s.....
055072: 012763 000002 000024		mov	#2,24(r3)		; s.....
055100: 000421              		br	55144			; ..
;
				setcmdcmd::
055102: 012765 055614 177770		mov	#$do$rw,177770(r5)	; u..[x.
055110: 012763 005254 000022		mov	#cmd$cmd,22(r3)		; s.,...
055116: 012763 000004 000024		mov	#4,24(r3)		; s.....
055124: 000407              		br	55144			; ..
;
;
;
055126: 012701 077320       		mov	#rwoptbl,r1		; A.P~
055132: 020021              		cmp	r0,(r1)+		; . 
055134: 101376              		bhi	55132			; ~.
055136: 001361              		bne	55102			; q.
055140: 000171 000010       		jmp	@10(r1)			; y...
;
;
;
055144: 016463 000022 000014		mov	22(r4),14(r3)		; 3.....
055152: 016463 000024 000012		mov	24(r4),12(r3)		; 3.....
055160: 016463 000042 000010		mov	42(r4),10(r3)		; 3."...
055166: 016463 000044 000006		mov	44(r4),6(r3)		; 3.$...
055174: 016463 000026 000020		mov	26(r4),20(r3)		; 3.....
055202: 016463 000030 000016		mov	30(r4),16(r3)		; 3.....
055210: 010463 000004       		mov	r4,4(r3)		; 3...
055214: 010346              		mov	r3,-(sp)		; f.
055216: 004775 177770       		call	@177770(r5)		; }.x.
055222: 005726              		tst	(sp)+			; V.
055224: 010064 000020       		mov	r0,20(r4)		; 4...
055230: 001017              		bne	55270			; ..
055232: 010346              		mov	r3,-(sp)		; f.
055234: 004767 134030       		call	insert$tcb			; w..8
055240: 005726              		tst	(sp)+			; V.
055242: 010246              		mov	r2,-(sp)		; &.
055244: 062716 000126       		add	#126,(sp)		; NeV.
055250: 004767 167060       		call	$release			; w.0n
055254: 005726              		tst	(sp)+			; V.
055256: 010246              		mov	r2,-(sp)		; &.
055260: 004767 167214       		call	$unblock			; w..n
055264: 005726              		tst	(sp)+			; V.
055266: 000434              		br	55360			; ..
;
055270: 010346              		mov	r3,-(sp)		; f.
055272: 012746 100052       		mov	#100052,-(sp)		; f.*.
055276: 004767 166306       		call	$enq.head			; w.Fl
055302: 022626              		cmp	(sp)+,(sp)+		; .%
055304: 010246              		mov	r2,-(sp)		; &.
055306: 062716 000126       		add	#126,(sp)		; NeV.
055312: 004767 167016       		call	$release			; w..n
055316: 005726              		tst	(sp)+			; V.
055320: 005064 000022       		clr	22(r4)			; 4...
055324: 005064 000024       		clr	24(r4)			; 4...
055330: 152764 000200 000016		bisb	#200,16(r4)		; tU....
055336: 012764 000040 000002		mov	#40,2(r4)		; t. ...
055344: 105064 000004       		clrb	4(r4)			; 4...
055350: 010446              		mov	r4,-(sp)		; &.
055352: 004767 156140       		call	put.packet			; w.`\
055356: 005726              		tst	(sp)+			; V.
055360: 000167 021530       		jmp	cret$			; w.X#
;
				;	$do$rw( tcb )
				$do$rw::
055364: 004567 021510       		jsr	r5,csv$			; w.H#
055370: 016504 000004       		mov	4(r5),r4		; D...
055374: 016403 000004       		mov	4(r4),r3		; ....
055400: 010446              		mov	r4,-(sp)		; &.
055402: 004774 000022       		call	@22(r4)			; |...
055406: 005726              		tst	(sp)+			; V.
055410: 010063 000020       		mov	r0,20(r3)		; 3...
055414: 001406              		beq	55432			; ..
055416: 010346              		mov	r3,-(sp)		; f.
055420: 010446              		mov	r4,-(sp)		; &.
055422: 004767 001002       		call	fix$count			; w...
055426: 022626              		cmp	(sp)+,(sp)+		; .%
055430: 000445              		br	55544			; %.
;
055432: 036427 000024 000300		bit	24(r4),#300		; .=..@.
055440: 001441              		beq	55544			; !.
055442: 042764 000030 000024		bic	#30,24(r4)		; tE....
055450: 016364 000022 000014		mov	22(r3),14(r4)		; t.....
055456: 016364 000024 000012		mov	24(r3),12(r4)		; t.....
055464: 016364 000042 000010		mov	42(r3),10(r4)		; t."...
055472: 016364 000044 000006		mov	44(r3),6(r4)		; t.$...
055500: 016364 000026 000020		mov	26(r3),20(r4)		; t.....
055506: 016364 000030 000016		mov	30(r3),16(r4)		; t.....
055514: 010446              		mov	r4,-(sp)		; &.
055516: 004767 127532       		call	cmd$cmd			; w.Z/
055522: 005726              		tst	(sp)+			; V.
055524: 010063 000020       		mov	r0,20(r3)		; 3...
055530: 001405              		beq	55544			; ..
055532: 010346              		mov	r3,-(sp)		; f.
055534: 010446              		mov	r4,-(sp)		; &.
055536: 004767 000666       		call	fix$count			; w.6.
055542: 022626              		cmp	(sp)+,(sp)+		; .%
055544: 010446              		mov	r4,-(sp)		; &.
055546: 012746 100052       		mov	#100052,-(sp)		; f.*.
055552: 004767 166032       		call	$enq.head			; w..l
055556: 022626              		cmp	(sp)+,(sp)+		; .%
055560: 152763 000200 000016		bisb	#200,16(r3)		; sU....
055566: 012763 000040 000002		mov	#40,2(r3)		; s. ...
055574: 105063 000004       		clrb	4(r3)			; 3...
055600: 010346              		mov	r3,-(sp)		; f.
055602: 004767 155710       		call	put.packet			; w.H[
055606: 005726              		tst	(sp)+			; V.
055610: 000167 021300       		jmp	cret$			; w.@"
;
				;	ok$rd( tcb )
				ok$rd::
055614: 004567 021260       		jsr	r5,csv$			; w.0"
055620: 016504 000004       		mov	4(r5),r4		; D...
055624: 016403 000002       		mov	2(r4),r3		; ....
055630: 036327 000030 000002		bit	30(r3),#2		; W<....
055636: 001404              		beq	55650			; ..
055640: 012700 000043       		mov	#43,r0			; @.#.
055644: 000167 000434       		jmp	56304			; w...
;
055650: 036327 000030 000001		bit	30(r3),#1		; W<....
055656: 001004              		bne	55670			; ..
055660: 012700 000004       		mov	#4,r0			; @...
055664: 000167 000414       		jmp	56304			; w...
;
055670: 036327 000030 000100		bit	30(r3),#100		; W<..@.
055676: 001404              		beq	55710			; ..
055700: 012700 000005       		mov	#5,r0			; @...
055704: 000167 000374       		jmp	56304			; w.|.
;
055710: 036427 000024 000034		bit	24(r4),#34		; .=....
055716: 001410              		beq	55740			; ..
055720: 036427 000020 000001		bit	20(r4),#1		; .=....
055726: 001404              		beq	55740			; ..
055730: 012700 000051       		mov	#51,r0			; @.).
055734: 000167 000344       		jmp	56304			; w.d.
;
055740: 036427 000012 170000		bit	12(r4),#170000		; .=...p
055746: 001404              		beq	55760			; ..
055750: 012700 006001       		mov	#6001,r0		; @...
055754: 000167 000324       		jmp	56304			; w.T.
;
055760: 036427 000006 170000		bit	6(r4),#170000		; .=...p
055766: 001404              		beq	56000			; ..
055770: 012700 016001       		mov	#16001,r0		; @...
055774: 000167 000304       		jmp	56304			; w.D.
;
056000: 036427 000020 000001		bit	20(r4),#1		; .=....
056006: 001403              		beq	56016			; ..
056010: 012700 000051       		mov	#51,r0			; @.).
056014: 000533              		br	56304			; [.
;
056016: 036427 000014 000001		bit	14(r4),#1		; .=....
056024: 001403              		beq	56034			; ..
056026: 012700 000111       		mov	#111,r0			; @.I.
056032: 000524              		br	56304			; T.
;
056034: 026463 000006 000006		cmp	6(r4),6(r3)		; 3-....
056042: 003005              		bgt	56056			; ..
056044: 002447              		blt	56164			; '.
056046: 026463 000010 000010		cmp	10(r4),10(r3)		; 3-....
056054: 103443              		bcs	56164			; #.
056056: 052764 000040 000024		bis	#40,24(r4)		; tU ...
056064: 016301 000024       		mov	24(r3),r1		; A...
056070: 006700              		sxt	r0			; @.
056072: 066301 000010       		add	10(r3),r1		; Al..
056076: 005500              		adc	r0			; @.
056100: 066300 000006       		add	6(r3),r0		; @l..
056104: 166401 000010       		sub	10(r4),r1		; .m..
056110: 005600              		sbc	r0			; ..
056112: 166400 000006       		sub	6(r4),r0		; .m..
056116: 162701 000001       		sub	#1,r1			; Ae..
056122: 005600              		sbc	r0			; ..
056124: 002003              		bge	56134			; ..
056126: 012700 016001       		mov	#16001,r0		; @...
056132: 000464              		br	56304			; 4.
;
056134: 026427 000014 001000		cmp	14(r4),#1000		; .-....
056142: 001003              		bne	56152			; ..
056144: 005764 000012       		tst	12(r4)			; t...
056150: 001403              		beq	56160			; ..
056152: 012700 006001       		mov	#6001,r0		; @...
056156: 000452              		br	56304			; *.
;
056160: 005000              		clr	r0			; ..
056162: 000450              		br	56304			; (.
;
056164: 026427 000014 001000		cmp	14(r4),#1000		; .-....
056172: 001003              		bne	56202			; ..
056174: 005764 000012       		tst	12(r4)			; t...
056200: 001440              		beq	56302			;  .
056202: 012701 000777       		mov	#777,r1			; A...
056206: 005000              		clr	r0			; ..
056210: 066401 000014       		add	14(r4),r1		; .m..
056214: 005500              		adc	r0			; @.
056216: 066400 000012       		add	12(r4),r0		; .m..
056222: 105001              		clrb	r1			; ..
056224: 150001              		bisb	r0,r1			; .P
056226: 000301              		swab	r1			; A.
056230: 105000              		clrb	r0			; ..
056232: 000300              		swab	r0			; @.
056234: 006200              		asr	r0			; ..
056236: 006001              		ror	r1			; ..
056240: 066401 000010       		add	10(r4),r1		; .m..
056244: 005500              		adc	r0			; @.
056246: 066400 000006       		add	6(r4),r0		; .m..
056252: 166301 000010       		sub	10(r3),r1		; Al..
056256: 005600              		sbc	r0			; ..
056260: 166300 000006       		sub	6(r3),r0		; @l..
056264: 162701 000001       		sub	#1,r1			; Ae..
056270: 005600              		sbc	r0			; ..
056272: 002403              		blt	56302			; ..
056274: 012700 006001       		mov	#6001,r0		; @...
056300: 000401              		br	56304			; ..
;
056302: 005000              		clr	r0			; ..
056304: 000167 020604       		jmp	cret$			; w..!
;
				;	ok$wr( tcb )
				ok$wr::
056310: 004567 020564       		jsr	r5,csv$			; w.t!
056314: 016504 000004       		mov	4(r5),r4		; D...
056320: 016403 000002       		mov	2(r4),r3		; ....
056324: 010446              		mov	r4,-(sp)		; &.
056326: 004767 177262       		call	$do$rw			; w.2~
056332: 005726              		tst	(sp)+			; V.
056334: 010065 177770       		mov	r0,177770(r5)		; 5.x.
056340: 001403              		beq	56350			; ..
056342: 016500 177770       		mov	177770(r5),r0		; @.x.
056346: 000426              		br	56424			; ..
;
056350: 036427 000024 000040		bit	24(r4),#40		; .=.. .
056356: 001403              		beq	56366			; ..
056360: 012700 016001       		mov	#16001,r0		; @...
056364: 000417              		br	56424			; ..
;
056366: 036327 000012 010000		bit	12(r3),#10000		; W<....
056374: 001403              		beq	56404			; ..
056376: 012700 010006       		mov	#10006,r0		; @...
056402: 000410              		br	56424			; ..
;
056404: 036327 000012 020000		bit	12(r3),#20000		; W<... 
056412: 001403              		beq	56422			; ..
056414: 012700 020006       		mov	#20006,r0		; @.. 
056420: 000401              		br	56424			; ..
;
056422: 005000              		clr	r0			; ..
056424: 000167 020464       		jmp	cret$			; w.4!
;
				;	fix$count( tcb, pkt )
				fix$count::
056430: 004567 020444       		jsr	r5,csv$			; w.$!
056434: 005746              		tst	-(sp)			; f.
056436: 016504 000004       		mov	4(r5),r4		; D...
056442: 016503 000006       		mov	6(r5),r3		; C...
056446: 016365 000022 177770		mov	22(r3),177770(r5)	; u...x.
056454: 016365 000024 177766		mov	24(r3),177766(r5)	; u...v.
056462: 166465 000014 177770		sub	14(r4),177770(r5)	; 5m..x.
056470: 005665 177766       		sbc	177766(r5)		; 5.v.
056474: 166465 000012 177766		sub	12(r4),177766(r5)	; 5m..v.
056502: 016563 177770 000022		mov	177770(r5),22(r3)	; s.x...
056510: 016563 177766 000024		mov	177766(r5),24(r3)	; s.v...
056516: 000167 020372       		jmp	cret$			; w.z 
				;--------------------------------------------------------
				;
				;	doscc.c
				;
				;
				;	do$scc( ptk )
				do$scc::
056522: 004567 020352       		jsr	r5,csv$			; w.j 
056526: 016504 000004       		mov	4(r5),r4		; D...
056532: 105064 000017       		clrb	17(r4)			; 4...
056536: 005764 000022       		tst	22(r4)			; t...
056542: 003406              		ble	56560			; ..
056544: 105064 000016       		clrb	16(r4)			; 4...
056550: 012764 006001 000020		mov	#6001,20(r4)		; t.....
056556: 000453              		br	56706			; +.
;
056560: 005064 000020       		clr	20(r4)			; 4...
056564: 016467 000026 024060		mov	26(r4),102652		; 7...0(
056572: 001403              		beq	56602			; ..
056574: 062767 000002 024050		add	#2,102652		; we..((
056602: 042767 077777 024036		bic	#77777,102646		; wE...(
056610: 016403 000024       		mov	24(r4),r3		; ....
056614: 042703 177417       		bic	#177417,r3		; CE..
056620: 050367 024022       		bis	r3,102646		; wP.(
056624: 016764 024016 000024		mov	102646,24(r4)		; t..(..
056632: 012764 000170 000026		mov	#170,26(r4)		; t.x...
056640: 112764 000004 000030		movb	#4,30(r4)		; t.....
056646: 112764 000001 000031		movb	#1,31(r4)		; t.....
056654: 005064 000032       		clr	32(r4)			; 4...
056660: 005064 000034       		clr	34(r4)			; 4...
056664: 005064 000036       		clr	36(r4)			; 4...
056670: 016764 023760 000040		mov	102654,40(r4)		; t.p' .
056676: 005064 000042       		clr	42(r4)			; 4.".
056702: 005064 000044       		clr	44(r4)			; 4.$.
056706: 152764 000200 000016		bisb	#200,16(r4)		; tU....
056714: 012764 000040 000002		mov	#40,2(r4)		; t. ...
056722: 105064 000004       		clrb	4(r4)			; 4...
056726: 010446              		mov	r4,-(sp)		; &.
056730: 004767 154562       		call	put.packet			; w.rY
056734: 005726              		tst	(sp)+			; V.
056736: 000167 020152       		jmp	cret$			; w.j 
				;--------------------------------------------------------
				;
				;	dosnd.c
				;
				;
				;	do$snd( ptk )
				do$snd::
056742: 004567 020132       		jsr	r5,csv$			; w.Z 
056746: 162706 000006       		sub	#6,sp			; Fe..
056752: 016504 000004       		mov	4(r5),r4		; D...
056756: 036727 023666 000004		bit	102650,#4		; W=6'..
056764: 001531              		beq	57250			; Y.
056766: 005767 023666       		tst	102660			; w.6'
056772: 001007              		bne	57012			; ..
056774: 010446              		mov	r4,-(sp)		; &.
056776: 012746 102674       		mov	#102674,-(sp)		; f.<.
057002: 004767 164632       		call	$enq.tail			; w..i
057006: 022626              		cmp	(sp)+,(sp)+		; .%
057010: 000536              		br	57306			; ^.
;
057012: 016465 000022 177770		mov	22(r4),177770(r5)	; 5...x.
057020: 016465 000024 177766		mov	24(r4),177766(r5)	; 5...v.
057026: 016465 000026 177764		mov	26(r4),177764(r5)	; 5...t.
057034: 016465 000030 177762		mov	30(r4),177762(r5)	; 5...r.
057042: 005765 177766       		tst	177766(r5)		; u.v.
057046: 002004              		bge	57060			; ..
057050: 012764 006001 000020		mov	#6001,20(r4)		; t.....
057056: 000473              		br	57246			; ;.
;
057060: 036727 023604 000004		bit	102670,#4		; W=.'..
057066: 001004              		bne	57100			; ..
057070: 012764 004001 000020		mov	#4001,20(r4)		; t.....
057076: 000463              		br	57246			; 3.
;
057100: 016701 023552       		mov	102656,r1		; A.j'
057104: 006700              		sxt	r0			; @.
057106: 166501 177770       		sub	177770(r5),r1		; Amx.
057112: 005600              		sbc	r0			; ..
057114: 166500 177766       		sub	177766(r5),r0		; @mv.
057120: 162701 000001       		sub	#1,r1			; Ae..
057124: 005600              		sbc	r0			; ..
057126: 002403              		blt	57136			; ..
057130: 016567 177770 023520		mov	177770(r5),102656	; w.x.P'
057136: 012746 100042       		mov	#dma,-(sp)		; f.".
057142: 004767 165072       		call	$acquire			; w.:j
057146: 005726              		tst	(sp)+			; V.
057150: 010467 031210       		mov	r4,110364		; 7..2
057154: 016746 023476       		mov	102656,-(sp)		; f.>'
057160: 016746 023474       		mov	102660,-(sp)		; f.<'
057164: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
057170: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
057174: 004767 155410       		call	get.buffer			; w..[
057200: 062706 000010       		add	#10,sp			; Fe..
057204: 012746 100042       		mov	#dma,-(sp)		; f.".
057210: 004767 165120       		call	$release			; w.Pj
057214: 005726              		tst	(sp)+			; V.
057216: 042767 000004 023444		bic	#4,102670		; wE..$'
057224: 005067 023430       		clr	102660			; 7..'
057230: 016764 023422 000022		mov	102656,22(r4)		; t..'..
057236: 005064 000024       		clr	24(r4)			; 4...
057242: 005064 000020       		clr	20(r4)			; 4...
057246: 000403              		br	57256			; ..
;
057250: 012764 000001 000020		mov	#1,20(r4)		; t.....
057256: 152764 000200 000016		bisb	#200,16(r4)		; tU....
057264: 012764 000020 000002		mov	#20,2(r4)		; t.....
057272: 105064 000004       		clrb	4(r4)			; 4...
057276: 010446              		mov	r4,-(sp)		; &.
057300: 004767 154212       		call	put.packet			; w..X
057304: 005726              		tst	(sp)+			; V.
057306: 000167 017602       		jmp	cret$			; w...
				;--------------------------------------------------------
				;
				;	File:	dosuc.c
				;
				;	Set Unit Characteristics
				;
				;	do$suc( ptk )
				do$suc::
057312: 004567 017562       		jsr	r5,csv$			; w.r.
057316: 016504 000004       		mov	4(r5),r4		; D...
057322: 016403 000012       		mov	12(r4),r3		; ....
057326: 016465 000020 177770		mov	20(r4),177770(r5)	; 5...x.
057334: 105064 000017       		clrb	17(r4)			; 4...
057340: 010346              		mov	r3,-(sp)		; f.
057342: 004767 163754       		call	get.ucb			; w.lg
057346: 005726              		tst	(sp)+			; V.
057350: 010002              		mov	r0,r2			; ..
057352: 001005              		bne	57366			; ..
057354: 012764 000003 000020		mov	#3,20(r4)		; t.....
057362: 000167 000342       		jmp	57730			; w.b.
;
057366: 010246              		mov	r2,-(sp)		; &.
057370: 062716 000126       		add	#126,(sp)		; NeV.
057374: 004767 164640       		call	$acquire			; w. i
057400: 005726              		tst	(sp)+			; V.
057402: 036227 000030 000014		bit	30(r2),#14		; .<....
057410: 001004              		bne	57422			; ..
057412: 012764 000305 000020		mov	#305,20(r4)		; t.E...
057420: 000475              		br	57614			; =.
;
057422: 036227 000030 000002		bit	30(r2),#2		; .<....
057430: 001404              		beq	57442			; ..
057432: 012764 000043 000020		mov	#43,20(r4)		; t.#...
057440: 000465              		br	57614			; 5.
;
057442: 036227 000030 000001		bit	30(r2),#1		; .<....
057450: 001004              		bne	57462			; ..
057452: 012764 000004 000020		mov	#4,20(r4)		; t.....
057460: 000455              		br	57614			; -.
;
057462: 005762 000136       		tst	136(r2)			; r.^.
057466: 001003              		bne	57476			; ..
057470: 005762 000004       		tst	4(r2)			; r...
057474: 001416              		beq	57532			; ..
057476: 010446              		mov	r4,-(sp)		; &.
057500: 010246              		mov	r2,-(sp)		; &.
057502: 062716 000002       		add	#2,(sp)			; Ne..
057506: 004767 164126       		call	$enq.tail			; w.Vh
057512: 022626              		cmp	(sp)+,(sp)+		; .%
057514: 010246              		mov	r2,-(sp)		; &.
057516: 062716 000126       		add	#126,(sp)		; NeV.
057522: 004767 164606       		call	$release			; w..i
057526: 005726              		tst	(sp)+			; V.
057530: 000517              		br	57770			; O.
;
057532: 005064 000020       		clr	20(r4)			; 4...
057536: 042762 057577 000012		bic	#57577,12(r2)		; rE._..
057544: 016401 000024       		mov	24(r4),r1		; ....
057550: 042701 177774       		bic	#177774,r1		; AE|.
057554: 050162 000012       		bis	r1,12(r2)		; rP..
057560: 036527 177770 000004		bit	177770(r5),#4		; W=x...
057566: 001412              		beq	57614			; ..
057570: 036427 000024 010000		bit	24(r4),#10000		; .=....
057576: 001406              		beq	57614			; ..
057600: 052762 010000 000012		bis	#10000,12(r2)		; rU....
057606: 056267 000040 020366		bis	40(r2),100202		; 7\ .v 
057614: 010364 000022       		mov	r3,22(r4)		; t...
057620: 016264 000012 000024		mov	12(r2),24(r4)		; 4.....
057626: 010364 000032       		mov	r3,32(r4)		; t...
057632: 005064 000034       		clr	34(r4)			; 4...
057636: 005064 000036       		clr	36(r4)			; 4...
057642: 016264 000140 000040		mov	140(r2),40(r4)		; 4.`. .
057650: 016264 000016 000042		mov	16(r2),42(r4)		; 4...".
057656: 016264 000014 000044		mov	14(r2),44(r4)		; 4...$.
057664: 016264 000010 000052		mov	10(r2),52(r4)		; 4...*.
057672: 016264 000006 000054		mov	6(r2),54(r4)		; 4...,.
057700: 016264 000022 000056		mov	22(r2),56(r4)		; 4.....
057706: 016264 000020 000060		mov	20(r2),60(r4)		; 4...0.
057714: 010246              		mov	r2,-(sp)		; &.
057716: 062716 000126       		add	#126,(sp)		; NeV.
057722: 004767 164406       		call	$release			; w..i
057726: 005726              		tst	(sp)+			; V.
057730: 010364 000046       		mov	r3,46(r4)		; t.&.
057734: 005064 000050       		clr	50(r4)			; 4.(.
057740: 152764 000200 000016		bisb	#200,16(r4)		; tU....
057746: 012764 000054 000002		mov	#54,2(r4)		; t.,...
057754: 105064 000004       		clrb	4(r4)			; 4...
057760: 010446              		mov	r4,-(sp)		; &.
057762: 004767 153530       		call	put.packet			; w.XW
057766: 005726              		tst	(sp)+			; V.
057770: 000167 017120       		jmp	cret$			; w.P.
;
				;--------------------------------------------------------
				;
				;	File:	douna.c
				;
				;	do$una( ucb )
				do$una::
057774: 004567 017100       		jsr	r5,csv$			; w.@.
060000: 016504 000004       		mov	4(r5),r4		; D...
060004: 036727 022636 000200		bit	102646,#200		; W=.%..
060012: 001473              		beq	60202			; ;.
060014: 005003              		clr	r3			; ..
060016: 000401              		br	60022			; ..
;
060020: 005203              		inc	r3			; ..
060022: 010300              		mov	r3,r0			; @.
060024: 006300              		asl	r0			; @.
060026: 062700 100054       		add	#100054,r0		; @e,.
060032: 021004              		cmp	(r0),r4			; ."
060034: 001371              		bne	60020			; y.
060036: 066703 020210       		add	100252,r3		; Cm. 
060042: 012746 100050       		mov	#100050,-(sp)		; f.(.
060046: 004767 163652       		call	$deqf.head			; w.*g
060052: 005726              		tst	(sp)+			; V.
060054: 010002              		mov	r0,r2			; ..
060056: 005062 000006       		clr	6(r2)			; 2...
060062: 005062 000010       		clr	10(r2)			; 2...
060066: 010362 000012       		mov	r3,12(r2)		; r...
060072: 112762 000100 000016		movb	#100,16(r2)		; r.@...
060100: 010362 000022       		mov	r3,22(r2)		; r...
060104: 016462 000012 000024		mov	12(r4),24(r2)		; 2.....
060112: 010362 000032       		mov	r3,32(r2)		; r...
060116: 005062 000034       		clr	34(r2)			; 2...
060122: 005062 000036       		clr	36(r2)			; 2...
060126: 016462 000140 000040		mov	140(r4),40(r2)		; 2.`. .
060134: 016462 000016 000042		mov	16(r4),42(r2)		; 2...".
060142: 016462 000014 000044		mov	14(r4),44(r2)		; 2...$.
060150: 012762 000040 000002		mov	#40,2(r2)		; r. ...
060156: 105062 000004       		clrb	4(r2)			; 2...
060162: 105062 000005       		clrb	5(r2)			; 2...
060166: 005267 020036       		inc	100230			; 7.. 
060172: 010246              		mov	r2,-(sp)		; &.
060174: 004767 153316       		call	put.packet			; w.NV
060200: 005726              		tst	(sp)+			; V.
060202: 000167 016706       		jmp	cret$			; w.F.
				;--------------------------------------------------------
				;
				;	File:	tsmac.mac
				;
				;	This section deos not match at all the source code available
;
060206: 060414 060462       		.word	60414,60462		; .a2a
				;
				;	File:	tsmac.mac
				;
				t$power::
060212: 106427 000340       		mtps	#340			; ..`.
060216: 012706 140000       		mov	#140000,sp		; F..@
060222: 012737 037477 160110		mov	#37477,@#160110		; _.??H`
060230: 012737 001500 160210		mov	#1500,@#w$sard		; _.@..`
060236: 012737 005500 160210		mov	#5500,@#w$sard		; _.@..`
060244: 022737 000001 160112		cmp	#1,@#160112		; _%..J`
060252: 001407              		beq	60272			; ..
060254: 012737 000401 160110		mov	#401,@#160110		; _...H`
060262: 022737 151515 100000		cmp	#151515,@#100000	; _%MS..
060270: 001405              		beq	60304			; ..
060272: 000137 060334       		jmp	@#60334			; _.\`
;
060276: 012737 151515 100000		mov	#151515,@#100000	; _.MS..
060304: 012706 140000       		mov	#140000,sp		; F..@
060310: 012737 005401 160110		mov	#5401,@#160110		; _...H`
060316: 004737 063514       		call	@#63514			; _.Lg
060322: 012737 006001 160110		mov	#6001,@#160110		; _...H`
060330: 000137 000266       		jmp	@#m$main		; _.6.
;
060334: 012737 060212 100010		mov	#60212,@#100010		; _..`..
060342: 012737 060212 100012		mov	#60212,@#100012		; _..`..
060350: 012737 060212 100014		mov	#60212,@#100014		; _..`..
060356: 012737 060212 100016		mov	#60212,@#100016		; _..`..
060364: 106427 000200       		mtps	#200			; ....
060370: 012704 060532       		mov	#60532,r4		; D.Za
060374: 012705 001001       		mov	#1001,r5		; E...
060400: 012706 060206       		mov	#60206,sp		; F..`
060404: 010537 160110       		mov	r5,@#160110		; _.H`
060410: 000174 000000       		jmp	@0(r4)			; |...
;
060414: 005700              		tst	r0			; @.
060416: 002421              		blt	60462			; ..
060420: 062705 000400       		add	#400,r5			; Ee..
060424: 062704 000004       		add	#4,r4			; De..
060430: 020427 060576       		cmp	r4,#60576		; .!~a
060434: 002761              		blt	60400			; q.
060436: 106427 000340       		mtps	#340			; ..`.
060442: 000137 060276       		jmp	@#60276			; _.>`
;
060446: 012706 060210       		mov	#60210,sp		; F..`
060452: 010537 160110       		mov	r5,@#160110		; _.H`
060456: 000174 000000       		jmp	@0(r4)			; |...
;
060462: 005700              		tst	r0			; @.
060464: 002010              		bge	60506			; ..
060466: 010501              		mov	r5,r1			; A.
060470: 000301              		swab	r1			; A.
060472: 042701 177400       		bic	#177400,r1		; AE..
060476: 062701 000702       		add	#702,r1			; AeB.
060502: 010137 160210       		mov	r1,@#w$sard		; _..`
060506: 005205              		inc	r5			; ..
060510: 032705 000100       		bit	#100,r5			; E5@.
060514: 001754              		beq	60446			; l.
060516: 042705 000377       		bic	#377,r5			; EE..
060522: 005205              		inc	r5			; ..
060524: 000750              		br	60446			; h.
;
060526: 000000              		.word	0			; ..
060530: 000000              		.word	0			; ..
;
060532: 063220              		.word	63220, 0		; .f
;
060536:	061272 000006			.word	61272, 6
060542:	061272 000014			.word	61272, 14
060546:	061272 000022			.word	61272, 22
060552:	061272 000000			.word	61272, 0
060556:	061272 000044			.word	61272, 44
060562:	061114 000036			.word	61114, 36
060566: 061154 000030			.word	61154, 30
060572: 063266 000000			.word	63266, 0
060576: 000000              		.word	0, 0			
060602: 000000              		.word	0, 0			
;
060606: 061330 002000           	.word	61330, 2000
060612: 061330 002050           	.word	61330, 2050
060616: 061330 002062           	.word	61330, 2062
060622: 061330 002074           	.word	61330, 2074
060626: 061522 002000           	.word	61522, 2000
060632: 061574 002000       		.word	61574, 2000
060636: 061662 000400       		.word	61662, 400
060642: 063450 000000           	.word	63450, 0
060646: 061764 000000       		.word	61764, 0


				t$port::
060652: 004537 077100       		jsr	r5,@#csv$		; _.@~
060656: 012704 060606       		mov	#60606,r4		; D..a
060662: 012746 000001       		mov	#1,-(sp)		; f...
060666: 112766 000015 000001		movb	#15,1(sp)		; v.....
060674: 011637 160110       		mov	(sp),@#160110		; ..H`
060700: 010546              		mov	r5,-(sp)		; f.
060702: 010446              		mov	r4,-(sp)		; &.
060704: 016546 000006       		mov	6(r5),-(sp)		; f...
060710: 016546 000004       		mov	4(r5),-(sp)		; f...
060714: 004774 000000       		call	@0(r4)			; |...
060720: 022626              		cmp	(sp)+,(sp)+		; .%
060722: 012604              		mov	(sp)+,r4		; ..
060724: 012605              		mov	(sp)+,r5		; ..
060726: 005700              		tst	r0			; @.
060730: 002011              		bge	60754			; ..
060732: 105266 000000       		incb	0(sp)			; 6...
060736: 011637 160110       		mov	(sp),@#160110		; ..H`
060742: 116600 000001       		movb	1(sp),r0		; ....
060746: 062700 000702       		add	#702,r0			; @eB.
060752: 000413              		br	61002			; ..
;
060754: 105266 000001       		incb	1(sp)			; 6...
060760: 112766 000001 000000		movb	#1,0(sp)		; v.....
060766: 062704 000004       		add	#4,r4			; De..
060772: 020427 060652       		cmp	r4,#60652		; .!*a
060776: 002736              		blt	60674			; ^.
061000: 005000              		clr	r0			; ..
061002: 000137 077114       		jmp	@#cret$			; _.L~
;
;
;
;
061006: 160206              		.word	160206			; .`
061010: 160006              		.word	160006			; .`
061012: 167741 160200       		.word	167741, 160200		; ao.`
061016: 160000              		.word	160000			; .`
061020: 000001              		.word	000001			; ..
061022: 160202              		.word	160202			; .`
061024: 160002              		.word	160002			; .`
061026: 177700              		.word	177700			; @.
061030: 160214              		.word	160214			; .`
061032: 160014              		.word	160014			; .`
061034: 000000              		.word	000000			; ..
;
061036: 140000              		.word	140000			; .@
061040: 140000              		.word	140000			; .@
061042: 140001              		.word	140001			; .@
061044: 140002           		.word	140002			; .@
061046: 140002              		.word	140002			; .@
061050: 177670 160204       		.word	177670, 160204 		; 8..`
061054: 160004              		.word	160004			; .`
061056: 000000              		.word	000000			; ..
;
061060: 177777 140014       		.word	177777, 140014		; ...@
061064: 177777 000000       		.word	177777, 000000		; ....
061070: 000000              		.word	000000			; ..
061072: 000000              		.word	000000			; ..
061074: 000000              		.word	000000			; ..
;
061076: 000377 000377       		.word	377, 377		; ....
061102: 177777 177777       		.word	177777, 177777		; ....
061106: 000377 177777       		.word	377, 17777		; ....
061112: 000377 016401       		.word	377, 16401		; ....
061116: 000002              		rti				; ..
;
061120: 042701 177400       		bic	#177400,r1		; AE..
061124: 062701 061006       		add	#61006,r1		; Ae.b
061130: 017101 000002       		mov	@2(r1),r1		; A...
061134: 012700 000000       		mov	#0,r0			; @...
061140: 032701 000010       		bit	#10,r1			; A5..
061144: 001402              		beq	61152			; ..
061146: 012700 177777       		mov	#177777,r0		; @...
061152: 000207              		return				; ..
;
061154: 016401 000002       		mov	2(r4),r1		; ....
061160: 042701 177400       		bic	#177400,r1		; AE..
061164: 062701 061006       		add	#61006,r1		; Ae.b
061170: 005002              		clr	r2			; ..
061172: 010203              		mov	r2,r3			; ..
061174: 046103 000004       		bic	4(r1),r3		; CL..
061200: 010371 000000       		mov	r3,@0(r1)		; y...
061204: 017100 000002       		mov	@2(r1),r0		; @...
061210: 020300              		cmp	r3,r0			; @ 
061212: 001024              		bne	61264			; ..
061214: 005702              		tst	r2			; B.
061216: 100403              		bmi	61226			; ..
061220: 006302              		asl	r2			; B.
061222: 005202              		inc	r2			; ..
061224: 000762              		br	61172			; r.
;
061226: 006002              		ror	r2			; ..
061230: 010203              		mov	r2,r3			; ..
061232: 046103 000004       		bic	4(r1),r3		; CL..
061236: 010371 000000       		mov	r3,@0(r1)		; y...
061242: 017100 000002       		mov	@2(r1),r0		; @...
061246: 020300              		cmp	r3,r0			; @ 
061250: 001005              		bne	61264			; ..
061252: 005702              		tst	r2			; B.
061254: 001364              		bne	61226			; t.
061256: 012700 000000       		mov	#0,r0			; @...
061262: 000402              		br	61270			; ..
;
061264: 012700 177777       		mov	#177777,r0		; @...
061270: 000207              		return				; ..
;
061272: 016401 000002       		mov	2(r4),r1		; ....
061276: 042701 177400       		bic	#177400,r1		; AE..
061302: 062701 061006       		add	#61006,r1		; Ae.b
061306: 016101 000002       		mov	2(r1),r1		; A...
061312: 012700 000000       		mov	#0,r0			; @...
061316: 020111              		cmp	r1,(r1)			; I 
061320: 001002              		bne	61326			; ..
061322: 012700 177777       		mov	#177777,r0		; @...
061326: 000207              		return				; ..
;
061330: 016601 000004       		mov	4(sp),r1		; ....
061334: 016405 000002       		mov	2(r4),r5		; ....
061340: 042705 177400       		bic	#177400,r5		; EE..
061344: 060105              		add	r1,r5			; E`
061346: 062705 000010       		add	#10,r5			; Ee..
061352: 004737 062042       		call	@#62042			; _."d
061356: 016504 000010       		mov	10(r5),r4		; D...
061362: 016503 000004       		mov	4(r5),r3		; C...
061366: 005103              		com	r3			; C.
061370: 040304              		bic	r3,r4			; D@
061372: 005002              		clr	r2			; ..
061374: 010203              		mov	r2,r3			; ..
061376: 046503 000004       		bic	4(r5),r3		; CM..
061402: 050403              		bis	r4,r3			; .Q
061404: 010375 000000       		mov	r3,@0(r5)		; }...
061410: 010365 000010       		mov	r3,10(r5)		; u...
061414: 046565 000006 000010		bic	6(r5),10(r5)		; uM....
061422: 004737 062164       		call	@#62164			; _.td
061426: 103431              		bcs	61512			; ..
061430: 005702              		tst	r2			; B.
061432: 100403              		bmi	61442			; ..
061434: 006302              		asl	r2			; B.
061436: 005202              		inc	r2			; ..
061440: 000755              		br	61374			; m.
;
061442: 006002              		ror	r2			; ..
061444: 010203              		mov	r2,r3			; ..
061446: 046503 000004       		bic	4(r5),r3		; CM..
061452: 050403              		bis	r4,r3			; .Q
061454: 010375 000000       		mov	r3,@0(r5)		; }...
061460: 010365 000010       		mov	r3,10(r5)		; u...
061464: 046565 000006 000010		bic	6(r5),10(r5)		; uM....
061472: 004737 062164       		call	@#62164			; _.td
061476: 103405              		bcs	61512			; ..
061500: 005702              		tst	r2			; B.
061502: 001357              		bne	61442			; o.
061504: 012700 000000       		mov	#0,r0			; @...
061510: 000207              		return				; ..
;
061512: 016561 000010 000000		mov	10(r5),0(r1)		; q.....
061520: 000207              		return				; ..
;
061522: 016601 000004       		mov	4(sp),r1		; ....
061526: 004737 062266       		call	@#62266			; _.6d
061532: 012704 000010       		mov	#10,r4			; D...
061536: 012705 000011       		mov	#11,r5			; E...
061542: 004737 062412       		call	@#62412			; _..e
061546: 103411              		bcs	61572			; ..
061550: 012704 000367       		mov	#367,r4			; D.w.
061554: 012705 177757       		mov	#177757,r5		; E.o.
061560: 004737 062412       		call	@#62412			; _..e
061564: 103402              		bcs	61572			; ..
061566: 012700 000000       		mov	#0,r0			; @...
061572: 000207              		return				; ..
;
061574: 016601 000004       		mov	4(sp),r1		; ....
061600: 004737 062042       		call	@#62042			; _."d
061604: 004737 062266       		call	@#62266			; _.6d
061610: 012703 000100       		mov	#100,r3			; C.@.
061614: 005004              		clr	r4			; ..
061616: 005005              		clr	r5			; ..
061620: 004737 062516       		call	@#62516			; _.Ne
061624: 103415              		bcs	61660			; ..
061626: 105704              		tstb	r4			; D.
061630: 100403              		bmi	61640			; ..
061632: 006304              		asl	r4			; D.
061634: 005204              		inc	r4			; ..
061636: 000770              		br	61620			; x.
;
061640: 006004              		ror	r4			; ..
061642: 004737 062516       		call	@#62516			; _.Ne
061646: 103404              		bcs	61660			; ..
061650: 105704              		tstb	r4			; D.
061652: 001372              		bne	61640			; z.
061654: 012700 000000       		mov	#0,r0			; @...
061660: 000207              		return				; ..
;
061662: 016601 000004       		mov	4(sp),r1		; ....
061666: 012737 000000 140022		mov	#0,@#w$cmd		; _....@
061674: 012737 000107 140022		mov	#107,@#w$cmd		; _.G..@
061702: 105037 140020      		clrb	@#w$dat		; ...@
061706: 012737 000111 140022		mov	#111,@#w$cmd		; _.I..@
061714: 112737 000040 140020		movb	#40,@#w$dat		; _. ..@
061722: 005037 100234       		clr	@#100234		; ....
061726: 004737 062734       		call	@#62734			; _.\e
061732: 103413              		bcs	61762			; ..
061734: 005737 100234       		tst	@#100234		; _...
061740: 001006              		bne	61756			; ..
061742: 013761 140012 000000		mov	@#r$cmd,0(r1)		; q..@..
061750: 012700 177766       		mov	#177766,r0		; @.v.
061754: 000402              		br	61762			; ..
;
061756: 012700 000000       		mov	#0,r0			; @...
061762: 000207              		return				; ..
;
061764: 016601 000004       		mov	4(sp),r1		; ....
061770: 012737 000000 140022		mov	#0,@#w$cmd		; _....@
061776: 012737 000107 140022		mov	#107,@#w$cmd		; _.G..@
062004: 112737 000002 140020		movb	#2,@#w$dat		; _....@
062012: 012737 000111 140022		mov	#111,@#w$cmd		; _.I..@
062020: 112737 000010 140020		movb	#10,@#w$dat		; _....@
062026: 004737 062734       		call	@#62734			; _.\e
062032: 103402              		bcs	62040			; ..
062034: 012700 000000       		mov	#0,r0			; @...
062040: 000207              		return				; ..
;
062042: 012700 061006       		mov	#61006,r0		; @..b
062046: 012702 000010       		mov	#10,r2			; B...
062052: 060102              		add	r1,r2			; B`
062054: 016062 000000 000000		mov	0(r0),0(r2)		; 2.....
062062: 016062 000002 000002		mov	2(r0),2(r2)		; 2.....
062070: 016062 000004 000004		mov	4(r0),4(r2)		; 2.....
062076: 017062 000002 000010		mov	@2(r0),10(r2)		; 2.....
062104: 012762 007340 000006		mov	#7340,6(r2)		; r.`...
062112: 020027 061014       		cmp	r0,#61014		; . .b
062116: 002407              		blt	62136			; ..
062120: 005062 000006       		clr	6(r2)			; 2...
062124: 020027 061036       		cmp	r0,#61036		; . .b
062130: 002002              		bge	62136			; ..
062132: 005162 000006       		com	6(r2)			; r...
062136: 046262 000006 000010		bic	6(r2),10(r2)		; 2L....
062144: 062702 000012       		add	#12,r2			; Be..
062150: 062700 000006       		add	#6,r0			; @e..
062154: 020027 061066       		cmp	r0,#61066		; . 6b
062160: 002735              		blt	62054			; ].
062162: 000207              		return				; ..
;
062164: 010346              		mov	r3,-(sp)		; f.
062166: 010246              		mov	r2,-(sp)		; &.
062170: 012700 000010       		mov	#10,r0			; @...
062174: 060100              		add	r1,r0			; @`
062176: 012703 000010       		mov	#10,r3			; C...
062202: 017002 000002       		mov	@2(r0),r2		; ....
062206: 046002 000006       		bic	6(r0),r2		; .L..
062212: 026002 000010       		cmp	10(r0),r2		; .,..
062216: 001005              		bne	62232			; ..
062220: 062700 000012       		add	#12,r0			; @e..
062224: 077312              		sob	r3,62202		; J~
062226: 000241              		clc				; !.
062230: 000413              		br	62260			; ..
;
062232: 016061 000002 000002		mov	2(r0),2(r1)		; 1.....
062240: 010261 000004       		mov	r2,4(r1)		; 1...
062244: 016061 000010 000006		mov	10(r0),6(r1)		; 1.....
062252: 012700 177763       		mov	#177763,r0		; @.s.
062256: 000261              		sec				; 1.
062260: 012602              		mov	(sp)+,r2		; ..
062262: 012603              		mov	(sp)+,r3		; ..
062264: 000207              		return				; ..
;
062266: 012737 000000 140022		mov	#0,@#w$cmd		; _....@
062274: 012737 000100 140022		mov	#100,@#w$cmd		; _.@..@
062302: 012700 061066       		mov	#61066,r0		; @.6b
062306: 012702 000130       		mov	#130,r2			; B.X.
062312: 060102              		add	r1,r2			; B`
062314: 116062 000000 000004		movb	0(r0),4(r2)		; 2.....
062322: 105062 000005       		clrb	5(r2)			; 2...
062326: 116062 000001 000006		movb	1(r0),6(r2)		; 2.....
062334: 105062 000007       		clrb	7(r2)			; 2...
062340: 105062 000000       		clrb	0(r2)			; 2...
062344: 113762 140010 000002		movb	@#r$dat,2(r2)		; r..@..
062352: 105062 000003       		clrb	3(r2)			; 2...
062356: 146262 000006 000002		bicb	6(r2),2(r2)		; 2L....
062364: 016262 000002 000010		mov	2(r2),10(r2)		; 2.....
062372: 062702 000012       		add	#12,r2			; Be..
062376: 062700 000002       		add	#2,r0			; @e..
062402: 020027 061114       		cmp	r0,#61114		; . Lb
062406: 002742              		blt	62314			; b.
062410: 000207              		return				; ..
;
062412: 012703 000100       		mov	#100,r3			; C.@.
062416: 004737 062516       		call	@#62516			; _.Ne
062422: 103427              		bcs	62502			; ..
062424: 012705 000306       		mov	#306,r5			; E.F.
062430: 060105              		add	r1,r5			; E`
062432: 012704 000013       		mov	#13,r4			; D...
062436: 060403              		add	r4,r3			; .a
062440: 162705 000012       		sub	#12,r5			; Ee..
062444: 005303              		dec	r3			; C.
062446: 010337 140022      		mov	r3,@#w$cmd		; _..@
062452: 113765 140010 000002		movb	@#r$dat,2(r5)		; u..@..
062460: 146565 000006 000002		bicb	6(r5),2(r5)		; uM....
062466: 126565 000002 000010		cmpb	2(r5),10(r5)		; u-....
062474: 001003              		bne	62504			; ..
062476: 077420              		sob	r4,62440		; ..
062500: 000241              		clc				; !.
062502: 000207              		return				; ..
;
062504: 010500              		mov	r5,r0			; @.
062506: 010402              		mov	r4,r2			; ..
062510: 004737 063034       		call	@#63034			; _..f
062514: 000207              		return				; ..
;
062516: 004737 063100       		call	@#63100			; _.@f
062522: 010337 140022       		mov	r3,@#w$cmd		; _..@
062526: 012700 000013       		mov	#13,r0			; @...
062532: 012702 000130       		mov	#130,r2			; B.X.
062536: 060102              		add	r1,r2			; B`
062540: 122762 177777 000004		cmpb	#177777,4(r2)		; r%....
062546: 001404              		beq	62560			; ..
062550: 116237 000000 140020		movb	0(r2),@#w$dat		; .....@
062556: 000403              		br	62566			; ..
;
062560: 113762 140010 000002		movb	@#r$dat,2(r2)		; r..@..
062566: 062702 000012       		add	#12,r2			; Be..
062572: 077016              		sob	r0,62540		; .~
062574: 005705              		tst	r5			; E.
062576: 001025              		bne	62652			; ..
062600: 012700 000072       		mov	#72,r0			; @.:.
062604: 060100              		add	r1,r0			; @`
062606: 052760 000020 000010		bis	#20,10(r0)		; pU....
062614: 042760 000040 000010		bic	#40,10(r0)		; pE ...
062622: 012700 000116       		mov	#116,r0			; @.N.
062626: 060100              		add	r1,r0			; @`
062630: 017060 000002 000010		mov	@2(r0),10(r0)		; 0.....
062636: 004737 062164       		call	@#62164			; _.td
062642: 103003              		bcc	62652			; ..
062644: 010461 000000       		mov	r4,0(r1)		; 1...
062650: 000425              		br	62724			; ..
;
062652: 010337 140022      		mov	r3,@#w$cmd		; _..@
062656: 012700 000130       		mov	#130,r0			; @.X.
062662: 060100              		add	r1,r0			; @`
062664: 012702 000013       		mov	#13,r2			; B...
062670: 113760 140010 000002		movb	@#r$dat,2(r0)		; p..@..
062676: 146060 000006 000002		bicb	6(r0),2(r0)		; 0L....
062704: 126060 000002 000010		cmpb	2(r0),10(r0)		; 0,....
062712: 001005              		bne	62726			; ..
062714: 062700 000012       		add	#12,r0			; @e..
062720: 077215              		sob	r2,62670		; .~
062722: 000241              		clc				; !.
062724: 000207              		return				; ..
;
062726: 004737 063034       		call	@#63034			; _..f
062732: 000207              		return				; ..
;
062734: 010246              		mov	r2,-(sp)		; &.
062736: 010146              		mov	r1,-(sp)		; f.
062740: 012700 000144       		mov	#144,r0			; @.d.
062744: 012737 000001 140022		mov	#1,@#w$cmd		; _....@
062752: 004737 063200       		call	@#63200			; _..f
062756: 013702 140012       		mov	@#r$cmd,r2		; B..@
062762: 032702 000040       		bit	#40,r2			; B5 .
062766: 001003              		bne	62776			; ..
062770: 012700 177770       		mov	#177770,r0		; @.x.
062774: 000407              		br	63014			; ..
;
062776: 010200              		mov	r2,r0			; ..
063000: 042700 177747       		bic	#177747,r0		; @Eg.
063004: 005700              		tst	r0			; @.
063006: 001404              		beq	63020			; ..
063010: 012700 177767       		mov	#177767,r0		; @.w.
063014: 000261              		sec				; 1.
063016: 000401              		br	63022			; ..
;
063020: 000241              		clc				; !.
063022: 012601              		mov	(sp)+,r1		; ..
063024: 010261 000000       		mov	r2,0(r1)		; 1...
063030: 012602              		mov	(sp)+,r2		; ..
063032: 000207              		return				; ..
;
063034: 013761 140012 000000		mov	@#r$cmd,0(r1)		; q..@..
063042: 016061 000002 000004		mov	2(r0),4(r1)		; 1.....
063050: 016061 000010 000006		mov	10(r0),6(r1)		; 1.....
063056: 012761 000013 000002		mov	#13,2(r1)		; q.....
063064: 160261 000002       		sub	r2,2(r1)		; 1`..
063070: 012700 177764       		mov	#177764,r0		; @.t.
063074: 000261              		sec				; 1.
063076: 000207              		return				; ..
;
063100: 010146              		mov	r1,-(sp)		; f.
063102: 012700 000013       		mov	#13,r0			; @...
063106: 062701 000130       		add	#130,r1			; AeX.
063112: 010402              		mov	r4,r2			; ..
063114: 122761 177777 000004		cmpb	#177777,4(r1)		; q%....
063122: 001420              		beq	63164			; ..
063124: 110261 000000       		movb	r2,0(r1)		; 1...
063130: 146161 000004 000000		bicb	4(r1),0(r1)		; qL....
063136: 116161 000000 000002		movb	0(r1),2(r1)		; q.....
063144: 105161 000002       		comb	2(r1)			; q...
063150: 116161 000000 000010		movb	0(r1),10(r1)		; q.....
063156: 146161 000006 000010		bicb	6(r1),10(r1)		; qL....
063164: 062701 000012       		add	#12,r1			; Ae..
063170: 060502              		add	r5,r2			; Ba
063172: 077030              		sob	r0,63114		; .~
063174: 012601              		mov	(sp)+,r1		; ..
063176: 000207              		return				; ..
;
063200: 012701 000204       		mov	#204,r1			; A...
063204: 005737 100240       		tst	@#100240		; _. .
063210: 000400              		br	63212			; ..
;
063212: 077104              		sob	r1,63204		; D~
063214: 077007              		sob	r0,63200		; .~
063216: 000207              		return				; ..
;
063220: 012700 077776       		mov	#77776,r0		; @.~.
063224: 011001              		mov	(r0),r1			; ..
063226: 006200              		asr	r0			; ..
063230: 005003              		clr	r3			; ..
063232: 005002              		clr	r2			; ..
063234: 062302              		add	(r3)+,r2		; Bd
063236: 005502              		adc	r2			; B.
063240: 077003              		sob	r0,63234		; .~
063242: 020201              		cmp	r2,r1			; . 
063244: 001405              		beq	63260			; ..
063246: 005701              		tst	r1			; A.
063250: 001403              		beq	63260			; ..
063252: 012700 177776       		mov	#177776,r0		; @.~.
063256: 000402              		br	63264			; ..
;
063260: 012700 000001       		mov	#1,r0			; @...
063264: 000207              		return				; ..
;
063266: 012701 100024       		mov	#100024,r1		; A...
063272: 005002              		clr	r2			; ..
063274: 012700 140000       		mov	#140000,r0		; @..@
063300: 160100              		sub	r1,r0			; @`
063302: 006200              		asr	r0			; ..
063304: 010211              		mov	r2,(r1)			; ..
063306: 062701 000002       		add	#2,r1			; Ae..
063312: 077004              		sob	r0,63304		; .~
063314: 005003              		clr	r3			; ..
063316: 010300              		mov	r3,r0			; @.
063320: 006303              		asl	r3			; C.
063322: 005203              		inc	r3			; ..
063324: 012701 100024       		mov	#100024,r1		; A...
063330: 011102              		mov	(r1),r2			; B.
063332: 020002              		cmp	r0,r2			; . 
063334: 001041              		bne	63440			; !.
063336: 010311              		mov	r3,(r1)			; I.
063340: 011102              		mov	(r1),r2			; B.
063342: 020302              		cmp	r3,r2			; B 
063344: 001036              		bne	63442			; ..
063346: 062701 000002       		add	#2,r1			; Ae..
063352: 020127 140000       		cmp	r1,#140000		; W .@
063356: 103764              		bcs	63330			; t.
063360: 005703              		tst	r3			; C.
063362: 100355              		bpl	63316			; m.
063364: 010300              		mov	r3,r0			; @.
063366: 005701              		tst	r1			; A.
063370: 006003              		ror	r3			; ..
063372: 012701 140000       		mov	#140000,r1		; A..@
063376: 162701 000002       		sub	#2,r1			; Ae..
063402: 011102              		mov	(r1),r2			; B.
063404: 020002              		cmp	r0,r2			; . 
063406: 001014              		bne	63440			; ..
063410: 010311              		mov	r3,(r1)			; I.
063412: 011102              		mov	(r1),r2			; B.
063414: 020302              		cmp	r3,r2			; B 
063416: 001011              		bne	63442			; ..
063420: 020127 100024       		cmp	r1,#100024		; W ..
063424: 001364              		bne	63376			; t.
063426: 005703              		tst	r3			; C.
063430: 001355              		bne	63364			; m.
063432: 012700 000000       		mov	#0,r0			; @...
063436: 000403              		br	63446			; ..
;
063440: 010003              		mov	r0,r3			; ..
063442: 012700 177775       		mov	#177775,r0		; @.}.
063446: 000207              		return				; ..
;
063450: 016601 000004       		mov	4(sp),r1		; ....
063454: 013702 140002       		mov	@#rw$pll,r2		; B..@
063460: 052702 000010       		bis	#10,r2			; BU..
063464: 010237 140002       		mov	r2,@#rw$pll		; ...@
063470: 011102              		mov	(r1),r2			; B.
063472: 005102              		com	r2			; B.
063474: 010211              		mov	r2,(r1)			; ..
063476: 012700 000001       		mov	#1,r0			; @...
063502: 020211              		cmp	r2,(r1)			; . 
063504: 001402              		beq	63512			; ..
063506: 012700 177777       		mov	#177777,r0		; @...
063512: 000207              		return				; ..

;
063514: 032737 177400 160112		bit	#177400,@#160112	; _5..J`
063522: 001012              		bne	63550			; ..
063524: 032737 000004 160112		bit	#4,@#160112		; _5..J`
063532: 001007              		bne	63552			; ..
063534: 022737 000240 140100		cmp	#240,@#140100		; _% .@@
063542: 001002              		bne	63550			; ..
063544: 004737 140100       		call	@#140100		; _.@@
063550: 000207              		return				; ..
;
063552: 005037 100000       		clr	@#100000		; ....
063556: 000137 060212       		jmp	@#60212			; _..`
				;--------------------------------------------------------
				;
				;
				;	FORMAT local program
				;
063562: 075537              		.word	75537			; _{
063564: 075554              		.word	75554			; l{
063566: 075571              		.word	75571			; y{
063570: 075606              		.word	75606			; .{
063572: 075623              		.word	75623			; .{
				format::
063574: 004567 013300       		jsr	r5,csv$			; w.@.
063600: 012746 100052       		mov	#100052,-(sp)		; f.*.
063604: 004767 160070       		call	$deq.head			; w.8`
063610: 005726              		tst	(sp)+			; V.
063612: 010003              		mov	r0,r3			; ..
063614: 012746 011000       		mov	#11000,-(sp)		; f...
063620: 012746 110600       		mov	#data,-(sp)		; f...
063624: 004767 010270       		call	74120			; w.8.
063630: 022626              		cmp	(sp)+,(sp)+		; .%
063632: 012704 110600       		mov	#data,r4		; D...
063636: 012702 111604       		mov	#111604,r2		; B...
063642: 012712 177777       		mov	#177777,(r2)		; J...
063646: 010446              		mov	r4,-(sp)		; &.
063650: 010246              		mov	r2,-(sp)		; &.
063652: 010346              		mov	r3,-(sp)		; f.
063654: 004767 004764       		call	70644			; w.t.
063660: 062706 000006       		add	#6,sp			; Fe..
063664: 010065 177770       		mov	r0,177770(r5)		; 5.x.
063670: 005765 177770       		tst	177770(r5)		; u.x.
063674: 001011              		bne	63720			; ..
063676: 010446              		mov	r4,-(sp)		; &.
063700: 010246              		mov	r2,-(sp)		; &.
063702: 010346              		mov	r3,-(sp)		; f.
063704: 004767 000232       		call	64142			; w...
063710: 062706 000006       		add	#6,sp			; Fe..
063714: 010065 177770       		mov	r0,177770(r5)		; 5.x.
063720: 005765 177770       		tst	177770(r5)		; u.x.
063724: 001011              		bne	63750			; ..
063726: 010446              		mov	r4,-(sp)		; &.
063730: 010246              		mov	r2,-(sp)		; &.
063732: 010346              		mov	r3,-(sp)		; f.
063734: 004767 006300       		call	72240			; w.@.
063740: 062706 000006       		add	#6,sp			; Fe..
063744: 010065 177770       		mov	r0,177770(r5)		; 5.x.
063750: 005765 177770       		tst	177770(r5)		; u.x.
063754: 001011              		bne	64000			; ..
063756: 010446              		mov	r4,-(sp)		; &.
063760: 010246              		mov	r2,-(sp)		; &.
063762: 010346              		mov	r3,-(sp)		; f.
063764: 004767 001642       		call	65632			; w.".
063770: 062706 000006       		add	#6,sp			; Fe..
063774: 010065 177770       		mov	r0,177770(r5)		; 5.x.
064000: 005765 177770       		tst	177770(r5)		; u.x.
064004: 001006              		bne	64022			; ..
064006: 010246              		mov	r2,-(sp)		; &.
064010: 004767 001446       		call	65462			; w.&.
064014: 005726              		tst	(sp)+			; V.
064016: 010065 177770       		mov	r0,177770(r5)		; 5.x.
064022: 012746 000001       		mov	#1,-(sp)		; f...
064026: 004767 126610       		call	put$udc			; w..-
064032: 005726              		tst	(sp)+			; V.
064034: 010346              		mov	r3,-(sp)		; f.
064036: 012746 100052       		mov	#100052,-(sp)		; f.*.
064042: 004767 157542       		call	$enq.head			; w.b_
064046: 022626              		cmp	(sp)+,(sp)+		; .%
064050: 026527 177770 000001		cmp	177770(r5),#1		; W-x...
064056: 001413              		beq	64106			; ..
064060: 012746 111632       		mov	#111632,-(sp)		; f...
064064: 012746 110600       		mov	#data,-(sp)		; f...
064070: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
064074: 004767 010250       		call	74350			; w.(.
064100: 062706 000006       		add	#6,sp			; Fe..
064104: 000412              		br	64132			; ..
;
064106: 012746 111632       		mov	#111632,-(sp)		; f...
064112: 012746 110600       		mov	#data,-(sp)		; f...
064116: 012746 075654       		mov	#75654,-(sp)		; f.,{
064122: 004767 010222       		call	74350			; w...
064126: 062706 000006       		add	#6,sp			; Fe..
064132: 004767 146576       		call	terminate		; w.~M
064136: 000167 012752       		jmp	cret$			; w.j.
;
064142: 004567 012732       		jsr	r5,csv$			; w.Z.
064146: 016504 000004       		mov	4(r5),r4		; D...
064152: 016503 000006       		mov	6(r5),r3		; C...
064156: 016502 000010       		mov	10(r5),r2		; B...
064162: 105067 016477       		clrb	102665			; 7.?.
064166: 105067 016472       		clrb	102664			; 7.:.
064172: 005067 016470       		clr	102666			; 7.8.
064176: 012746 111632       		mov	#111632,-(sp)		; f...
064202: 012746 111632       		mov	#111632,-(sp)		; f...
064206: 012746 075513       		mov	#75513,-(sp)		; f.K{
064212: 004767 010132       		call	74350			; w.Z.
064216: 062706 000006       		add	#6,sp			; Fe..
064222: 005700              		tst	r0			; @.
064224: 001052              		bne	64352			; *.
064226: 010346              		mov	r3,-(sp)		; f.
064230: 010446              		mov	r4,-(sp)		; &.
064232: 004767 000120       		call	64356			; w.P.
064236: 022626              		cmp	(sp)+,(sp)+		; .%
064240: 005700              		tst	r0			; @.
064242: 001043              		bne	64352			; #.
064244: 010246              		mov	r2,-(sp)		; &.
064246: 010446              		mov	r4,-(sp)		; &.
064250: 004767 000646       		call	65122			; w.&.
064254: 022626              		cmp	(sp)+,(sp)+		; .%
064256: 005700              		tst	r0			; @.
064260: 001034              		bne	64352			; ..
064262: 016264 000012 000010		mov	12(r2),10(r4)		; 4.....
064270: 006764 000006       		sxt	6(r4)			; t...
064274: 012764 000400 000026		mov	#400,26(r4)		; t.....
064302: 010346              		mov	r3,-(sp)		; f.
064304: 062716 000020       		add	#20,(sp)		; Ne..
064310: 012746 111632       		mov	#111632,-(sp)		; f...
064314: 016246 000016       		mov	16(r2),-(sp)		; &...
064320: 010446              		mov	r4,-(sp)		; &.
064322: 004767 003524       		call	70052			; w.T.
064326: 062706 000010       		add	#10,sp			; Fe..
064332: 005046              		clr	-(sp)			; &.
064334: 010346              		mov	r3,-(sp)		; f.
064336: 010246              		mov	r2,-(sp)		; &.
064340: 010446              		mov	r4,-(sp)		; &.
064342: 004767 003324       		call	67672			; w.T.
064346: 062706 000010       		add	#10,sp			; Fe..
064352: 000167 012536       		jmp	cret$			; w.^.
;
064356: 004567 012516       		jsr	r5,csv$			; w.N.
064362: 005746              		tst	-(sp)			; f.
064364: 016504 000004       		mov	4(r5),r4		; D...
064370: 062704 000030       		add	#30,r4			; De..
064374: 016503 000004       		mov	4(r5),r3		; C...
064400: 062703 000032       		add	#32,r3			; Ce..
064404: 016502 000004       		mov	4(r5),r2		; B...
064410: 016202 000002       		mov	2(r2),r2		; ....
064414: 005014              		clr	(r4)			; ..
064416: 000467              		br	64576			; 7.
;
064420: 005013              		clr	(r3)			; ..
064422: 000461              		br	64566			; 1.
;
064424: 036727 016240 000002		bit	102670,#2		; W= ...
064432: 001403              		beq	64442			; ..
064434: 012700 000001       		mov	#1,r0			; @...
064440: 000464              		br	64612			; 4.
;
064442: 016546 000006       		mov	6(r5),-(sp)		; f...
064446: 016546 000004       		mov	4(r5),-(sp)		; f...
064452: 004767 000140       		call	64616			; w.`.
064456: 022626              		cmp	(sp)+,(sp)+		; .%
064460: 005700              		tst	r0			; @.
064462: 001433              		beq	64552			; ..
064464: 016500 000004       		mov	4(r5),r0		; @...
064470: 005060 000034       		clr	34(r0)			; 0...
064474: 010546              		mov	r5,-(sp)		; f.
064476: 062716 177766       		add	#177766,(sp)		; Nev.
064502: 016546 000004       		mov	4(r5),-(sp)		; f...
064506: 004767 007536       		call	74250			; w.^.
064512: 022626              		cmp	(sp)+,(sp)+		; .%
064514: 026562 177766 000044		cmp	177766(r5),44(r2)	; r-v.$.
064522: 002405              		blt	64536			; ..
064524: 003007              		bgt	64544			; ..
064526: 026562 177770 000046		cmp	177770(r5),46(r2)	; r-x.&.
064534: 103003              		bcc	64544			; ..
064536: 012700 075716       		mov	#75716,r0		; @.N{
064542: 000423              		br	64612			; ..
;
064544: 012700 075763       		mov	#75763,r0		; @.s{
064550: 000420              		br	64612			; ..
;
064552: 066267 000110 016106		add	110(r2),102666		; 7lH.F.
064560: 005567 016100       		adc	102664			; w.@.
064564: 005213              		inc	(r3)			; ..
064566: 021362 000112       		cmp	(r3),112(r2)		; r"J.
064572: 002714              		blt	64424			; L.
064574: 005214              		inc	(r4)			; ..
064576: 016200 000114       		mov	114(r2),r0		; ..L.
064602: 005300              		dec	r0			; @.
064604: 020014              		cmp	r0,(r4)			; . 
064606: 003304              		bgt	64420			; D.
064610: 005000              		clr	r0			; ..
064612: 000167 012276       		jmp	cret$			; w.>.
;
064616: 004567 012256       		jsr	r5,csv$			; w...
064622: 005746              		tst	-(sp)			; f.
064624: 016504 000004       		mov	4(r5),r4		; D...
064630: 016403 000002       		mov	2(r4),r3		; ....
064634: 010346              		mov	r3,-(sp)		; f.
064636: 004767 154760       		call	select			; w.pY
064642: 005726              		tst	(sp)+			; V.
064644: 010446              		mov	r4,-(sp)		; &.
064646: 004767 141226       		call	fill$id			; w..B
064652: 005726              		tst	(sp)+			; V.
064654: 012765 000140 177766		mov	#140,177766(r5)		; u.`.v.
064662: 026463 000030 000064		cmp	30(r4),64(r3)		; 3-..4.
064670: 002403              		blt	64700			; ..
064672: 052765 000002 177766		bis	#2,177766(r5)		; uU..v.
064700: 012765 100066 177770		mov	#100066,177770(r5)	; u.6.x.
064706: 012767 000100 053106		mov	#100,w$cmd		; w.@.FV
064714: 116500 177770       		movb	177770(r5),r0		; @.x.
064720: 010067 053074       		mov	r0,w$dat		; 7.<V
064724: 116500 177771       		movb	177771(r5),r0		; @.y.
064730: 010067 053064       		mov	r0,w$dat		; 7.4V
064734: 005067 053060       		clr	w$dat			; 7.0V
064740: 016746 013266       		mov	100232,-(sp)		; f.6.
064744: 004767 125672       		call	put$udc			; w.:+
064750: 005726              		tst	(sp)+			; V.
064752: 012767 000100 053042		mov	#100,w$cmd		; w.@."V
064760: 016300 000076       		mov	76(r3),r0		; @.>.
064764: 005400              		neg	r0			; ..
064766: 010067 053026       		mov	r0,w$dat		; 7..V
064772: 016300 000100       		mov	100(r3),r0		; @.@.
064776: 005400              		neg	r0			; ..
065000: 010067 053014       		mov	r0,w$dat		; 7..V
065004: 016300 000102       		mov	102(r3),r0		; @.B.
065010: 005400              		neg	r0			; ..
065012: 010067 053002       		mov	r0,w$dat		; 7..V
065016: 016300 000104       		mov	104(r3),r0		; @.D.
065022: 005400              		neg	r0			; ..
065024: 010067 052770       		mov	r0,w$dat		; 7.xU
065030: 016467 000032 052762		mov	32(r4),w$dat		; 7...rU
065036: 016300 000106       		mov	106(r3),r0		; @.F.
065042: 005100              		com	r0			; @.
065044: 010067 052750       		mov	r0,w$dat		; 7.hU
065050: 016300 000110       		mov	110(r3),r0		; @.H.
065054: 005100              		com	r0			; @.
065056: 010067 052736       		mov	r0,w$dat		; 7.^U
065062: 012767 177773 052730		mov	#177773,w$dat		; w.{.XU
065070: 016446 000030       		mov	30(r4),-(sp)		; &...
065074: 016546 000006       		mov	6(r5),-(sp)		; f...
065100: 010346              		mov	r3,-(sp)		; f.
065102: 016546 177766       		mov	177766(r5),-(sp)	; f.v.
065106: 004767 003050       		call	70162			; w.(.
065112: 062706 000010       		add	#10,sp			; Fe..
065116: 000167 011772       		jmp	cret$			; w.z.
;
065122: 004567 011752       		jsr	r5,csv$			; w.j.
065126: 005746              		tst	-(sp)			; f.
065130: 012746 000400       		mov	#400,-(sp)		; f...
065134: 012746 124600       		mov	#124600,-(sp)		; f..)
065140: 004767 006754       		call	74120			; w.l.
065144: 022626              		cmp	(sp)+,(sp)+		; .%
065146: 012746 000004       		mov	#4,-(sp)		; f...
065152: 012746 124600       		mov	#124600,-(sp)		; f..)
065156: 016546 000006       		mov	6(r5),-(sp)		; f...
065162: 062716 000140       		add	#140,(sp)		; Ne`.
065166: 004767 006700       		call	74072			; w.@.
065172: 062706 000006       		add	#6,sp			; Fe..
065176: 016502 000004       		mov	4(r5),r2		; B...
065202: 016202 000002       		mov	2(r2),r2		; ....
065206: 005065 177766       		clr	177766(r5)		; 5.v.
065212: 005065 177770       		clr	177770(r5)		; 5.x.
065216: 005004              		clr	r4			; ..
065220: 000512              		br	65446			; J.
;
065222: 020427 000002       		cmp	r4,#2			; .!..
065226: 002470              		blt	65410			; 8.
065230: 005003              		clr	r3			; ..
065232: 000463              		br	65402			; 3.
;
065234: 010300              		mov	r3,r0			; @.
065236: 005203              		inc	r3			; ..
065240: 006300              		asl	r0			; @.
065242: 062700 124600       		add	#124600,r0		; @e.)
065246: 005010              		clr	(r0)			; ..
065250: 026562 177766 000060		cmp	177766(r5),60(r2)	; r-v.0.
065256: 002405              		blt	65272			; ..
065260: 003013              		bgt	65310			; ..
065262: 026562 177770 000062		cmp	177770(r5),62(r2)	; r-x.2.
065270: 103007              		bcc	65310			; ..
065272: 010300              		mov	r3,r0			; @.
065274: 005203              		inc	r3			; ..
065276: 006300              		asl	r0			; @.
065300: 062700 124600       		add	#124600,r0		; @e.)
065304: 005010              		clr	(r0)			; ..
065306: 000430              		br	65370			; ..
;
065310: 026562 177766 000060		cmp	177766(r5),60(r2)	; r-v.0.
065316: 003005              		bgt	65332			; ..
065320: 002414              		blt	65352			; ..
065322: 026562 177770 000062		cmp	177770(r5),62(r2)	; r-x.2.
065330: 101410              		blos	65352			; ..
065332: 010300              		mov	r3,r0			; @.
065334: 005203              		inc	r3			; ..
065336: 006300              		asl	r0			; @.
065340: 062700 124600       		add	#124600,r0		; @e.)
065344: 012710 040000       		mov	#40000,(r0)		; H..@
065350: 000407              		br	65370			; ..
;
065352: 010300              		mov	r3,r0			; @.
065354: 005203              		inc	r3			; ..
065356: 006300              		asl	r0			; @.
065360: 062700 124600       		add	#124600,r0		; @e.)
065364: 012710 100000       		mov	#100000,(r0)		; H...
065370: 062765 000001 177770		add	#1,177770(r5)		; ue..x.
065376: 005565 177766       		adc	177766(r5)		; u.v.
065402: 020327 000400       		cmp	r3,#400			; W ..
065406: 002712              		blt	65234			; J.
065410: 012746 124600       		mov	#124600,-(sp)		; f..)
065414: 010446              		mov	r4,-(sp)		; &.
065416: 016546 000004       		mov	4(r5),-(sp)		; f...
065422: 004767 122312       		call	wr$rct			; w.J$
065426: 062706 000006       		add	#6,sp			; Fe..
065432: 005700              		tst	r0			; @.
065434: 001403              		beq	65444			; ..
065436: 012700 076006       		mov	#76006,r0		; @..|
065442: 000405              		br	65456			; ..
;
065444: 005204              		inc	r4			; ..
065446: 020462 000024       		cmp	r4,24(r2)		; 2!..
065452: 002663              		blt	65222			; 3.
065454: 005000              		clr	r0			; ..
065456: 000167 011432       		jmp	cret$			; w...
;
065462: 004567 011412       		jsr	r5,csv$			; w...
065466: 016504 000004       		mov	4(r5),r4		; D...
065472: 012702 111632       		mov	#111632,r2		; B...
065476: 010246              		mov	r2,-(sp)		; &.
065500: 010246              		mov	r2,-(sp)		; &.
065502: 012746 075525       		mov	#75525,-(sp)		; f.U{
065506: 004767 006636       		call	74350			; w...
065512: 062706 000006       		add	#6,sp			; Fe..
065516: 005700              		tst	r0			; @.
065520: 001042              		bne	65626			; ".
065522: 005003              		clr	r3			; ..
065524: 000424              		br	65576			; ..
;
065526: 010300              		mov	r3,r0			; @.
065530: 006300              		asl	r0			; @.
065532: 010046              		mov	r0,-(sp)		; &.
065534: 060416              		add	r4,(sp)			; .a
065536: 062716 000014       		add	#14,(sp)		; Ne..
065542: 010246              		mov	r2,-(sp)		; &.
065544: 010300              		mov	r3,r0			; @.
065546: 006300              		asl	r0			; @.
065550: 062700 063562       		add	#63562,r0		; @erg
065554: 011000              		mov	(r0),r0			; ..
065556: 010046              		mov	r0,-(sp)		; &.
065560: 004767 006564       		call	74350			; w.t.
065564: 062706 000006       		add	#6,sp			; Fe..
065570: 005700              		tst	r0			; @.
065572: 001015              		bne	65626			; ..
065574: 005203              		inc	r3			; ..
065576: 020327 000005       		cmp	r3,#5			; W ..
065602: 002751              		blt	65526			; i.
065604: 005764 000012       		tst	12(r4)			; t...
065610: 001403              		beq	65620			; ..
065612: 012700 075654       		mov	#75654,r0		; @.,{
065616: 000403              		br	65626			; ..
;
065620: 012700 075666       		mov	#75666,r0		; @.6{
065624: 000400              		br	65626			; ..
;
065626: 000167 011262       		jmp	cret$			; w.2.
;
065632: 004567 011242       		jsr	r5,csv$			; w.".
065636: 016500 000006       		mov	6(r5),r0		; @...
065642: 005060 000024       		clr	24(r0)			; 0...
065646: 016500 000006       		mov	6(r5),r0		; @...
065652: 026027 000006 000002		cmp	6(r0),#2		; .,....
065660: 001003              		bne	65670			; ..
065662: 012703 000002       		mov	#2,r3			; C...
065666: 000402              		br	65674			; ..
;
065670: 012703 000006       		mov	#6,r3			; C...
065674: 000455              		br	66030			; -.
;
065676: 012746 000022       		mov	#22,-(sp)		; f...
065702: 010346              		mov	r3,-(sp)		; f.
065704: 012746 111632       		mov	#111632,-(sp)		; f...
065710: 004767 006230       		call	74144			; w...
065714: 062706 000006       		add	#6,sp			; Fe..
065720: 010300              		mov	r3,r0			; @.
065722: 005203              		inc	r3			; ..
065724: 110067 014735       		movb	r0,102665		; 7.].
065730: 105067 014730       		clrb	102664			; 7.X.
065734: 005067 014726       		clr	102666			; 7.V.
065740: 016546 000004       		mov	4(r5),-(sp)		; f...
065744: 004767 000260       		call	66230			; w.0.
065750: 005726              		tst	(sp)+			; V.
065752: 010004              		mov	r0,r4			; ..
065754: 001402              		beq	65762			; ..
065756: 010400              		mov	r4,r0			; ..
065760: 000521              		br	66224			; Q.
;
065762: 010300              		mov	r3,r0			; @.
065764: 005203              		inc	r3			; ..
065766: 110067 014673       		movb	r0,102665		; 7.;.
065772: 105067 014666       		clrb	102664			; 7.6.
065776: 005067 014664       		clr	102666			; 7.4.
066002: 016546 000006       		mov	6(r5),-(sp)		; f...
066006: 016546 000004       		mov	4(r5),-(sp)		; f...
066012: 004767 000560       		call	66576			; w.p.
066016: 022626              		cmp	(sp)+,(sp)+		; .%
066020: 010004              		mov	r0,r4			; ..
066022: 001402              		beq	66030			; ..
066024: 010400              		mov	r4,r0			; ..
066026: 000476              		br	66224			; >.
;
066030: 020327 000010       		cmp	r3,#10			; W ..
066034: 002720              		blt	65676			; P.
066036: 012746 000400       		mov	#400,-(sp)		; f...
066042: 012746 111632       		mov	#111632,-(sp)		; f...
066046: 004767 006046       		call	74120			; w.&.
066052: 022626              		cmp	(sp)+,(sp)+		; .%
066054: 016500 000004       		mov	4(r5),r0		; @...
066060: 016065 000002 177770		mov	2(r0),177770(r5)	; 5...x.
066066: 016500 177770       		mov	177770(r5),r0		; @.x.
066072: 016046 000056       		mov	56(r0),-(sp)		; &...
066076: 016046 000054       		mov	54(r0),-(sp)		; &.,.
066102: 016500 000004       		mov	4(r5),r0		; @...
066106: 012660 000006       		mov	(sp)+,6(r0)		; 0...
066112: 012660 000010       		mov	(sp)+,10(r0)		; 0...
066116: 016500 000004       		mov	4(r5),r0		; @...
066122: 005060 000026       		clr	26(r0)			; 0...
066126: 016546 000006       		mov	6(r5),-(sp)		; f...
066132: 062716 000016       		add	#16,(sp)		; Ne..
066136: 012746 111632       		mov	#111632,-(sp)		; f...
066142: 016502 177770       		mov	177770(r5),r2		; B.x.
066146: 016200 000062       		mov	62(r2),r0		; ..2.
066152: 010046              		mov	r0,-(sp)		; &.
066154: 016546 000004       		mov	4(r5),-(sp)		; f...
066160: 004767 001666       		call	70052			; w.6.
066164: 062706 000010       		add	#10,sp			; Fe..
066170: 012746 000001       		mov	#1,-(sp)		; f...
066174: 016546 000006       		mov	6(r5),-(sp)		; f...
066200: 016546 000010       		mov	10(r5),-(sp)		; f...
066204: 016546 000004       		mov	4(r5),-(sp)		; f...
066210: 004767 001456       		call	67672			; w...
066214: 062706 000010       		add	#10,sp			; Fe..
066220: 010004              		mov	r0,r4			; ..
066222: 010400              		mov	r4,r0			; ..
066224: 000167 010664       		jmp	cret$			; w.4.
;
066230: 004567 010644       		jsr	r5,csv$			; w.$.
066234: 016504 000004       		mov	4(r5),r4		; D...
066240: 016402 000002       		mov	2(r4),r2		; ....
066244: 012764 100000 000024		mov	#100000,24(r4)		; t.....
066252: 005064 000026       		clr	26(r4)			; 4...
066256: 016264 000044 000006		mov	44(r2),6(r4)		; 4.$...
066264: 016264 000046 000010		mov	46(r2),10(r4)		; 4.&...
066272: 012746 001000       		mov	#1000,-(sp)		; f...
066276: 016246 000010       		mov	10(r2),-(sp)		; &...
066302: 016246 000006       		mov	6(r2),-(sp)		; &...
066306: 004767 010414       		call	76726			; w...
066312: 062706 000006       		add	#6,sp			; Fe..
066316: 010064 000012       		mov	r0,12(r4)		; 4...
066322: 010164 000014       		mov	r1,14(r4)		; t...
066326: 016401 000014       		mov	14(r4),r1		; ....
066332: 016400 000012       		mov	12(r4),r0		; ....
066336: 162701 000001       		sub	#1,r1			; Ae..
066342: 005600              		sbc	r0			; ..
066344: 002511              		blt	66570			; I.
066346: 012701 022000       		mov	#22000,r1		; A..$
066352: 005000              		clr	r0			; ..
066354: 166401 000014       		sub	14(r4),r1		; .m..
066360: 005600              		sbc	r0			; ..
066362: 166400 000012       		sub	12(r4),r0		; .m..
066366: 162701 000001       		sub	#1,r1			; Ae..
066372: 005600              		sbc	r0			; ..
066374: 002003              		bge	66404			; ..
066376: 012746 022000       		mov	#22000,-(sp)		; f..$
066402: 000403              		br	66412			; ..
;
066404: 016400 000014       		mov	14(r4),r0		; ....
066410: 010046              		mov	r0,-(sp)		; &.
066412: 012746 111632       		mov	#111632,-(sp)		; f...
066416: 010446              		mov	r4,-(sp)		; &.
066420: 004767 121700       		call	fill$tcb			; w.@#
066424: 062706 000006       		add	#6,sp			; Fe..
066430: 005764 000036       		tst	36(r4)			; t...
066434: 003454              		ble	66566			; ,.
066436: 036727 014226 000002		bit	102670,#2		; W=....
066444: 001403              		beq	66454			; ..
066446: 012700 000001       		mov	#1,r0			; @...
066452: 000447              		br	66572			; '.
;
066454: 010446              		mov	r4,-(sp)		; &.
066456: 004767 150416       		call	write			; w..Q
066462: 005726              		tst	(sp)+			; V.
066464: 010003              		mov	r0,r3			; ..
066466: 016446 000040       		mov	40(r4),-(sp)		; &. .
066472: 010446              		mov	r4,-(sp)		; &.
066474: 004767 122274       		call	update$tcb			; w.<$
066500: 022626              		cmp	(sp)+,(sp)+		; .%
066502: 066467 000040 014156		add	40(r4),102666		; 7m .n.
066510: 005567 014150       		adc	102664			; w.h.
066514: 030327 000020       		bit	r3,#20			; W0..
066520: 001414              		beq	66552			; ..
066522: 012746 000001       		mov	#1,-(sp)		; f...
066526: 010446              		mov	r4,-(sp)		; &.
066530: 004767 122240       		call	update$tcb			; w. $
066534: 022626              		cmp	(sp)+,(sp)+		; .%
066536: 062767 000001 014122		add	#1,102666		; we..R.
066544: 005567 014114       		adc	102664			; w.L.
066550: 000405              		br	66564			; ..
;
066552: 005703              		tst	r3			; C.
066554: 001403              		beq	66564			; ..
066556: 012700 076067       		mov	#76067,r0		; @.7|
066562: 000403              		br	66572			; ..
;
066564: 000721              		br	66430			; Q.
;
066566: 000657              		br	66326			; /.
;
066570: 005000              		clr	r0			; ..
066572: 000167 010316       		jmp	cret$			; w.N.
;
066576: 004567 010276       		jsr	r5,csv$			; w.>.
066602: 016504 000004       		mov	4(r5),r4		; D...
066606: 016402 000002       		mov	2(r4),r2		; ....
066612: 012764 100000 000024		mov	#100000,24(r4)		; t.....
066620: 012764 000400 000026		mov	#400,26(r4)		; t.....
066626: 016264 000044 000006		mov	44(r2),6(r4)		; 4.$...
066634: 016264 000046 000010		mov	46(r2),10(r4)		; 4.&...
066642: 012746 001000       		mov	#1000,-(sp)		; f...
066646: 016246 000010       		mov	10(r2),-(sp)		; &...
066652: 016246 000006       		mov	6(r2),-(sp)		; &...
066656: 004767 010044       		call	76726			; w.$.
066662: 062706 000006       		add	#6,sp			; Fe..
066666: 010064 000012       		mov	r0,12(r4)		; 4...
066672: 010164 000014       		mov	r1,14(r4)		; t...
066676: 016401 000014       		mov	14(r4),r1		; ....
066702: 016400 000012       		mov	12(r4),r0		; ....
066706: 162701 000001       		sub	#1,r1			; Ae..
066712: 005600              		sbc	r0			; ..
066714: 002524              		blt	67166			; T.
066716: 012701 022000       		mov	#22000,r1		; A..$
066722: 005000              		clr	r0			; ..
066724: 166401 000014       		sub	14(r4),r1		; .m..
066730: 005600              		sbc	r0			; ..
066732: 166400 000012       		sub	12(r4),r0		; .m..
066736: 162701 000001       		sub	#1,r1			; Ae..
066742: 005600              		sbc	r0			; ..
066744: 002003              		bge	66754			; ..
066746: 012746 022000       		mov	#22000,-(sp)		; f..$
066752: 000403              		br	66762			; ..
;
066754: 016400 000014       		mov	14(r4),r0		; ....
066760: 010046              		mov	r0,-(sp)		; &.
066762: 012746 111632       		mov	#111632,-(sp)		; f...
066766: 010446              		mov	r4,-(sp)		; &.
066770: 004767 121330       		call	fill$tcb			; w.X"
066774: 062706 000006       		add	#6,sp			; Fe..
067000: 005764 000036       		tst	36(r4)			; t...
067004: 003467              		ble	67164			; 7.
067006: 036727 013656 000002		bit	102670,#2		; W=....
067014: 001403              		beq	67024			; ..
067016: 012700 000001       		mov	#1,r0			; @...
067022: 000462              		br	67170			; 2.
;
067024: 010446              		mov	r4,-(sp)		; &.
067026: 004767 150016       		call	read			; w..P
067032: 005726              		tst	(sp)+			; V.
067034: 010003              		mov	r0,r3			; ..
067036: 016446 000040       		mov	40(r4),-(sp)		; &. .
067042: 010446              		mov	r4,-(sp)		; &.
067044: 004767 121724       		call	update$tcb			; w.T#
067050: 022626              		cmp	(sp)+,(sp)+		; .%
067052: 066467 000040 013606		add	40(r4),102666		; 7m ...
067060: 005567 013600       		adc	102664			; w...
067064: 030327 000030       		bit	r3,#30			; W0..
067070: 001427              		beq	67150			; ..
067072: 016546 000006       		mov	6(r5),-(sp)		; f...
067076: 010446              		mov	r4,-(sp)		; &.
067100: 004767 000070       		call	67174			; w.8.
067104: 022626              		cmp	(sp)+,(sp)+		; .%
067106: 005700              		tst	r0			; @.
067110: 001403              		beq	67120			; ..
067112: 012700 000001       		mov	#1,r0			; @...
067116: 000424              		br	67170			; ..
;
067120: 012746 000001       		mov	#1,-(sp)		; f...
067124: 010446              		mov	r4,-(sp)		; &.
067126: 004767 121642       		call	update$tcb			; w."#
067132: 022626              		cmp	(sp)+,(sp)+		; .%
067134: 062767 000001 013524		add	#1,102666		; we..T.
067142: 005567 013516       		adc	102664			; w.N.
067146: 000405              		br	67162			; ..
;
067150: 005703              		tst	r3			; C.
067152: 001403              		beq	67162			; ..
067154: 012700 076067       		mov	#76067,r0		; @.7|
067160: 000403              		br	67170			; ..
;
067162: 000706              		br	67000			; F.
;
067164: 000644              		br	66676			; $.
;
067166: 005000              		clr	r0			; ..
067170: 000167 007720       		jmp	cret$			; w.P.
;
067174: 004567 007700       		jsr	r5,csv$			; w.@.
067200: 162706 000006       		sub	#6,sp			; Fe..
067204: 016504 000004       		mov	4(r5),r4		; D...
067210: 012746 100052       		mov	#100052,-(sp)		; f.*.
067214: 004767 154504       		call	$deqf.head			; w.DY
067220: 005726              		tst	(sp)+			; V.
067222: 010002              		mov	r0,r2			; ..
067224: 016403 000002       		mov	2(r4),r3		; ....
067230: 016401 000010       		mov	10(r4),r1		; ....
067234: 016400 000006       		mov	6(r4),r0		; ....
067240: 166301 000046       		sub	46(r3),r1		; Al&.
067244: 005600              		sbc	r0			; ..
067246: 166300 000044       		sub	44(r3),r0		; @l$.
067252: 010065 177762       		mov	r0,177762(r5)		; 5.r.
067256: 010165 177764       		mov	r1,177764(r5)		; u.t.
067262: 016462 000002 000002		mov	2(r4),2(r2)		; 2.....
067270: 016462 000004 000004		mov	4(r4),4(r2)		; 2.....
067276: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
067302: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
067306: 010246              		mov	r2,-(sp)		; &.
067310: 004767 127566       		call	get$rbn			; w.v/
067314: 062706 000006       		add	#6,sp			; Fe..
067320: 010065 177770       		mov	r0,177770(r5)		; 5.x.
067324: 001114              		bne	67556			; L.
067326: 005762 000046       		tst	46(r2)			; r.&.
067332: 002041              		bge	67436			; !.
067334: 005065 177766       		clr	177766(r5)		; 5.v.
067340: 012746 000001       		mov	#1,-(sp)		; f...
067344: 016546 177764       		mov	177764(r5),-(sp)	; f.t.
067350: 016546 177762       		mov	177762(r5),-(sp)	; f.r.
067354: 010246              		mov	r2,-(sp)		; &.
067356: 004767 131000       		call	put$rbn			; w..2
067362: 062706 000010       		add	#10,sp			; Fe..
067366: 010065 177770       		mov	r0,177770(r5)		; 5.x.
067372: 001071              		bne	67556			; 9.
067374: 005762 000046       		tst	46(r2)			; r.&.
067400: 002015              		bge	67434			; ..
067402: 016401 000010       		mov	10(r4),r1		; ....
067406: 016400 000006       		mov	6(r4),r0		; ....
067412: 166301 000056       		sub	56(r3),r1		; Al..
067416: 005600              		sbc	r0			; ..
067420: 166300 000054       		sub	54(r3),r0		; @l,.
067424: 010062 000046       		mov	r0,46(r2)		; 2.&.
067430: 010162 000050       		mov	r1,50(r2)		; r.(.
067434: 000403              		br	67444			; ..
;
067436: 012765 000001 177766		mov	#1,177766(r5)		; u...v.
067444: 016201 000050       		mov	50(r2),r1		; ..(.
067450: 016200 000046       		mov	46(r2),r0		; ..&.
067454: 066301 000056       		add	56(r3),r1		; Al..
067460: 005500              		adc	r0			; @.
067462: 066300 000054       		add	54(r3),r0		; @l,.
067466: 010062 000006       		mov	r0,6(r2)		; 2...
067472: 010162 000010       		mov	r1,10(r2)		; r...
067476: 016400 000024       		mov	24(r4),r0		; ....
067502: 052700 100000       		bis	#100000,r0		; @U..
067506: 010062 000024       		mov	r0,24(r2)		; 2...
067512: 016462 000026 000026		mov	26(r4),26(r2)		; 2.....
067520: 012746 001000       		mov	#1000,-(sp)		; f...
067524: 016446 000044       		mov	44(r4),-(sp)		; &.$.
067530: 010246              		mov	r2,-(sp)		; &.
067532: 004767 120566       		call	fill$tcb			; w.v!
067536: 062706 000006       		add	#6,sp			; Fe..
067542: 010246              		mov	r2,-(sp)		; &.
067544: 004767 147300       		call	read			; w.@N
067550: 005726              		tst	(sp)+			; V.
067552: 010065 177770       		mov	r0,177770(r5)		; 5.x.
067556: 010246              		mov	r2,-(sp)		; &.
067560: 012746 100052       		mov	#100052,-(sp)		; f.*.
067564: 004767 154020       		call	$enq.head			; w..X
067570: 022626              		cmp	(sp)+,(sp)+		; .%
067572: 005765 177770       		tst	177770(r5)		; u.x.
067576: 001404              		beq	67610			; ..
067600: 036527 177770 000002		bit	177770(r5),#2		; W=x...
067606: 001415              		beq	67642			; ..
067610: 005765 177766       		tst	177766(r5)		; u.v.
067614: 001010              		bne	67636			; ..
067616: 016500 000006       		mov	6(r5),r0		; @...
067622: 005260 000014       		inc	14(r0)			; 0...
067626: 016500 000006       		mov	6(r5),r0		; @...
067632: 005260 000024       		inc	24(r0)			; 0...
067636: 005000              		clr	r0			; ..
067640: 000412              		br	67666			; ..
;
067642: 026527 177770 000005		cmp	177770(r5),#5		; W-x...
067650: 001003              		bne	67660			; ..
067652: 012700 076017       		mov	#76017,r0		; @..|
067656: 000403              		br	67666			; ..
;
067660: 012700 075751       		mov	#75751,r0		; @.i{
067664: 000400              		br	67666			; ..
;
067666: 000167 007222       		jmp	cret$			; w...
;
067672: 004567 007202       		jsr	r5,csv$			; w...
067676: 016504 000004       		mov	4(r5),r4		; D...
067702: 005002              		clr	r2			; ..
067704: 005003              		clr	r3			; ..
067706: 000406              		br	67724			; ..
;
067710: 010300              		mov	r3,r0			; @.
067712: 006300              		asl	r0			; @.
067714: 066500 000006       		add	6(r5),r0		; @m..
067720: 061002              		add	(r0),r2			; .b
067722: 005203              		inc	r3			; ..
067724: 020327 000377       		cmp	r3,#377			; W ..
067730: 002767              		blt	67710			; w.
067732: 005765 000012       		tst	12(r5)			; u...
067736: 001001              		bne	67742			; ..
067740: 005202              		inc	r2			; ..
067742: 016500 000006       		mov	6(r5),r0		; @...
067746: 010260 000776       		mov	r2,776(r0)		; 0.~.
067752: 005064 000006       		clr	6(r4)			; 4...
067756: 005064 000010       		clr	10(r4)			; 4...
067762: 005064 000026       		clr	26(r4)			; 4...
067766: 016546 000010       		mov	10(r5),-(sp)		; f...
067772: 062716 000022       		add	#22,(sp)		; Ne..
067776: 016546 000006       		mov	6(r5),-(sp)		; f...
070002: 012746 000003       		mov	#3,-(sp)		; f...
070006: 010446              		mov	r4,-(sp)		; &.
070010: 004767 000036       		call	70052			; w...
070014: 062706 000010       		add	#10,sp			; Fe..
070020: 016500 000010       		mov	10(r5),r0		; @...
070024: 026027 000022 000003		cmp	22(r0),#3		; .,....
070032: 001003              		bne	70042			; ..
070034: 012700 075775       		mov	#75775,r0		; @.}{
070040: 000402              		br	70046			; ..
;
070042: 005000              		clr	r0			; ..
070044: 000400              		br	70046			; ..
;
070046: 000167 007042       		jmp	cret$			; w.".
;
070052: 004567 007022       		jsr	r5,csv$			; w...
070056: 016504 000004       		mov	4(r5),r4		; D...
070062: 016503 000006       		mov	6(r5),r3		; C...
070066: 005303              		dec	r3			; C.
070070: 002432              		blt	70156			; ..
070072: 052764 100000 000024		bis	#100000,24(r4)		; tU....
070100: 012746 001000       		mov	#1000,-(sp)		; f...
070104: 016546 000010       		mov	10(r5),-(sp)		; f...
070110: 010446              		mov	r4,-(sp)		; &.
070112: 004767 120206       		call	fill$tcb			; w.. 
070116: 062706 000006       		add	#6,sp			; Fe..
070122: 010446              		mov	r4,-(sp)		; &.
070124: 004767 146750       		call	write			; w.hM
070130: 005726              		tst	(sp)+			; V.
070132: 005700              		tst	r0			; @.
070134: 001402              		beq	70142			; ..
070136: 005275 000012       		inc	@12(r5)			; =...
070142: 062764 000001 000010		add	#1,10(r4)		; te....
070150: 005564 000006       		adc	6(r4)			; t...
070154: 000744              		br	70066			; d.
;
070156: 000167 006732       		jmp	cret$			; w.Z.
;
070162: 004567 006712       		jsr	r5,csv$			; w.J.
070166: 016504 000006       		mov	6(r5),r4		; D...
070172: 010446              		mov	r4,-(sp)		; &.
070174: 016546 000012       		mov	12(r5),-(sp)		; f...
070200: 016546 000010       		mov	10(r5),-(sp)		; f...
070204: 004767 000106       		call	70316			; w.F.
070210: 062706 000006       		add	#6,sp			; Fe..
070214: 010003              		mov	r0,r3			; ..
070216: 001022              		bne	70264			; ..
070220: 012702 000004       		mov	#4,r2			; B...
070224: 000411              		br	70250			; ..
;
070226: 016546 000004       		mov	4(r5),-(sp)		; f...
070232: 004767 122404       		call	put$udc			; w..%
070236: 005726              		tst	(sp)+			; V.
070240: 036727 047546 000030		bit	r$cmd,#30		; W=fO..
070246: 001402              		beq	70254			; ..
070250: 005302              		dec	r2			; B.
070252: 002365              		bge	70226			; u.
070254: 005702              		tst	r2			; B.
070256: 002002              		bge	70264			; ..
070260: 012703 000001       		mov	#1,r3			; C...
070264: 012767 000107 047530		mov	#107,w$cmd		; w.G.XO
070272: 016767 007710 047520		mov	100206,w$dat		; w.H.PO
070300: 010446              		mov	r4,-(sp)		; &.
070302: 004767 151634       		call	deselect			; w..S
070306: 005726              		tst	(sp)+			; V.
070310: 010300              		mov	r3,r0			; @.
070312: 000167 006576       		jmp	cret$			; w.~.
;
070316: 004567 006556       		jsr	r5,csv$			; w.n.
070322: 016504 000004       		mov	4(r5),r4		; D...
070326: 016503 000006       		mov	6(r5),r3		; C...
070332: 021427 177777       		cmp	(r4),#177777		; .#..
070336: 001006              		bne	70354			; ..
070340: 005014              		clr	(r4)			; ..
070342: 016546 000010       		mov	10(r5),-(sp)		; f...
070346: 004767 146012       		call	restore			; w..L
070352: 005726              		tst	(sp)+			; V.
070354: 005065 177770       		clr	177770(r5)		; 5.x.
070360: 021403              		cmp	(r4),r3			; .#
070362: 001475              		beq	70556			; =.
070364: 021403              		cmp	(r4),r3			; .#
070366: 002016              		bge	70424			; ..
070370: 010302              		mov	r3,r2			; B.
070372: 161402              		sub	(r4),r2			; .c
070374: 000410              		br	70416			; ..
;
070376: 005067 007632       		clr	100234			; 7...
070402: 012767 000005 047412		mov	#5,w$cmd		; w....O
070410: 005767 007620       		tst	100234			; w...
070414: 001775              		beq	70410			; }.
070416: 005302              		dec	r2			; B.
070420: 002366              		bge	70376			; v.
070422: 010314              		mov	r3,(r4)			; L.
070424: 021403              		cmp	(r4),r3			; .#
070426: 003416              		ble	70464			; ..
070430: 011402              		mov	(r4),r2			; ..
070432: 160302              		sub	r3,r2			; B`
070434: 000410              		br	70456			; ..
;
070436: 005067 007572       		clr	100234			; 7.z.
070442: 012767 000007 047352		mov	#7,w$cmd		; w...jN
070450: 005767 007560       		tst	100234			; w.p.
070454: 001775              		beq	70450			; }.
070456: 005302              		dec	r2			; B.
070460: 002366              		bge	70436			; v.
070462: 010314              		mov	r3,(r4)			; L.
070464: 012767 000111 047330		mov	#111,w$cmd		; w.I.XN
070472: 036727 047312 000040		bit	r$dat,#40		; W=JN .
070500: 001001              		bne	70504			; ..
070502: 000770              		br	70464			; x.
;
070504: 005703              		tst	r3			; C.
070506: 003422              		ble	70554			; ..
070510: 012767 000111 047304		mov	#111,w$cmd		; w.I.DN
070516: 036727 047266 000020		bit	r$dat,#20		; W=6N..
070524: 001413              		beq	70554			; ..
070526: 005014              		clr	(r4)			; ..
070530: 005265 177770       		inc	177770(r5)		; 5.x.
070534: 016500 177770       		mov	177770(r5),r0		; @.x.
070540: 020027 000003       		cmp	r0,#3			; . ..
070544: 003403              		ble	70554			; ..
070546: 012700 075742       		mov	#75742,r0		; @.b{
070552: 000402              		br	70560			; ..
;
070554: 000701              		br	70360			; A.
;
070556: 005000              		clr	r0			; ..
070560: 000167 006330       		jmp	cret$			; w.X.
;
070564: 004567 006310       		jsr	r5,csv$			; w.H.
070570: 016504 000006       		mov	6(r5),r4		; D...
070574: 010446              		mov	r4,-(sp)		; &.
070576: 004767 135276       		call	fill$id			; w.>:
070602: 005726              		tst	(sp)+			; V.
070604: 016500 000004       		mov	4(r5),r0		; @...
070610: 006300              		asl	r0			; @.
070612: 006300              		asl	r0			; @.
070614: 062700 100066       		add	#100066,r0		; @e6.
070620: 116000 000002       		movb	2(r0),r0		; ....
070624: 000167 006264       		jmp	cret$			; w.4.
;
070630: 075346              		.word	075346			; fz
070632: 075352              		.word	075352			; jz
070634: 075356              		.word	075356			; nz
070636: 075332              		.word	075332			; Zz
070640: 075362              		.word	075362			; rz
070642: 075340              		.word	075340			; `z

070644: 004567 006230       		jsr	r5,csv$			; w...
070650: 162706 000020       		sub	#20,sp			; Fe..
070654: 016504 000006       		mov	6(r5),r4		; D...
070660: 012702 111632       		mov	#111632,r2		; B...
070664: 010200              		mov	r2,r0			; ..
070666: 062700 001000       		add	#1000,r0		; @e..
070672: 010065 177750       		mov	r0,177750(r5)		; 5.h.
070676: 005064 000010       		clr	10(r4)			; 4...
070702: 005064 000006       		clr	6(r4)			; 4...
070706: 005003              		clr	r3			; ..
070710: 000167 000364       		jmp	71300			; w.t.
;
070714: 010546              		mov	r5,-(sp)		; f.
070716: 062716 177770       		add	#177770,(sp)		; Nex.
070722: 010246              		mov	r2,-(sp)		; &.
070724: 010246              		mov	r2,-(sp)		; &.
070726: 016546 177750       		mov	177750(r5),-(sp)	; f.h.
070732: 010300              		mov	r3,r0			; @.
070734: 006300              		asl	r0			; @.
070736: 062700 070630       		add	#70630,r0		; @e.q
070742: 011000              		mov	(r0),r0			; ..
070744: 010046              		mov	r0,-(sp)		; &.
070746: 004767 001202       		call	72154			; w...
070752: 062706 000012       		add	#12,sp			; Fe..
070756: 005700              		tst	r0			; @.
070760: 001402              		beq	70766			; ..
070762: 000167 000356       		jmp	71344			; w.n.
;
070766: 010300              		mov	r3,r0			; @.
070770: 000534              		br	71262			; \.
;
070772: 016546 000004       		mov	4(r5),-(sp)		; f...
070776: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
071002: 010246              		mov	r2,-(sp)		; &.
071004: 004767 000340       		call	71350			; w.`.
071010: 062706 000006       		add	#6,sp			; Fe..
071014: 005700              		tst	r0			; @.
071016: 001402              		beq	71024			; ..
071020: 000167 000320       		jmp	71344			; w.P.
;
071024: 000524              		br	71276			; T.
;
071026: 010546              		mov	r5,-(sp)		; f.
071030: 062716 177766       		add	#177766,(sp)		; Nev.
071034: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
071040: 010246              		mov	r2,-(sp)		; &.
071042: 004767 004160       		call	75226			; w.p.
071046: 062706 000006       		add	#6,sp			; Fe..
071052: 005700              		tst	r0			; @.
071054: 001133              		bne	71344			; [.
071056: 010300              		mov	r3,r0			; @.
071060: 000442              		br	71166			; ".
;
071062: 005765 177766       		tst	177766(r5)		; u.v.
071066: 001405              		beq	71102			; ..
071070: 012764 000001 000006		mov	#1,6(r4)		; t.....
071076: 012703 000003       		mov	#3,r3			; C...
071102: 000440              		br	71204			;  .
;
071104: 005765 177766       		tst	177766(r5)		; u.v.
071110: 001010              		bne	71132			; ..
071112: 012764 000002 000006		mov	#2,6(r4)		; t.....
071120: 012764 000001 000010		mov	#1,10(r4)		; t.....
071126: 012703 000004       		mov	#4,r3			; C...
071132: 000424              		br	71204			; ..
;
071134: 005765 177766       		tst	177766(r5)		; u.v.
071140: 001404              		beq	71152			; ..
071142: 012764 000001 000010		mov	#1,10(r4)		; t.....
071150: 000405              		br	71164			; ..
;
071152: 005764 000006       		tst	6(r4)			; t...
071156: 001402              		beq	71164			; ..
071160: 012703 000005       		mov	#5,r3			; C...
071164: 000407              		br	71204			; ..
;
071166: 005300              		dec	r0			; @.
071170: 020027 000003       		cmp	r0,#3			; . ..
071174: 101003              		bhi	71204			; ..
071176: 006300              		asl	r0			; @.
071200: 000170 077344       		jmp	@jtblfmt1(r0)		; x.d~
;
071204: 000434              		br	71276			; ..
;
071206: 016546 000010       		mov	10(r5),-(sp)		; f...
071212: 010246              		mov	r2,-(sp)		; &.
071214: 004767 000364       		call	71604			; w.t.
071220: 022626              		cmp	(sp)+,(sp)+		; .%
071222: 005700              		tst	r0			; @.
071224: 001047              		bne	71344			; '.
071226: 000423              		br	71276			; ..
;
071230: 010546              		mov	r5,-(sp)		; f.
071232: 062716 177752       		add	#177752,(sp)		; Nej.
071236: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
071242: 010246              		mov	r2,-(sp)		; &.
071244: 004767 003442       		call	74712			; w.".
071250: 062706 000006       		add	#6,sp			; Fe..
071254: 005700              		tst	r0			; @.
071256: 001032              		bne	71344			; ..
071260: 000406              		br	71276			; ..
;
071262: 020027 000005       		cmp	r0,#5			; . ..
071266: 101374              		bhi	71260			; |.
071270: 006300              		asl	r0			; @.
071272: 000170 077354       		jmp	@jtblfmt2(r0)		; x.l~
;
071276: 005203              		inc	r3			; ..
071300: 020327 000006       		cmp	r3,#6			; W ..
071304: 002603              		blt	70714			; ..
071306: 010546              		mov	r5,-(sp)		; f.
071310: 062716 177756       		add	#177756,(sp)		; Nen.
071314: 010546              		mov	r5,-(sp)		; f.
071316: 062716 177752       		add	#177752,(sp)		; Nej.
071322: 016546 000004       		mov	4(r5),-(sp)		; f...
071326: 016546 000010       		mov	10(r5),-(sp)		; f...
071332: 010446              		mov	r4,-(sp)		; &.
071334: 004767 000322       		call	71662			; w.R.
071340: 062706 000012       		add	#12,sp			; Fe..
071344: 000167 005544       		jmp	cret$			; w.d.
;
071350: 004567 005524       		jsr	r5,csv$			; w.T.
071354: 016504 000010       		mov	10(r5),r4		; D...
071360: 010546              		mov	r5,-(sp)		; f.
071362: 062716 177770       		add	#177770,(sp)		; Nex.
071366: 016546 000006       		mov	6(r5),-(sp)		; f...
071372: 016546 000004       		mov	4(r5),-(sp)		; f...
071376: 004767 003304       		call	74706			; w.D.
071402: 062706 000006       		add	#6,sp			; Fe..
071406: 005700              		tst	r0			; @.
071410: 001073              		bne	71600			; ;.
071412: 016546 177770       		mov	177770(r5),-(sp)	; f.x.
071416: 004767 151700       		call	get.ucb			; w.@S
071422: 005726              		tst	(sp)+			; V.
071424: 010003              		mov	r0,r3			; ..
071426: 001003              		bne	71436			; ..
071430: 012700 075704       		mov	#75704,r0		; @.D{
071434: 000461              		br	71600			; 1.
;
071436: 036327 000012 020000		bit	12(r3),#20000		; W<... 
071444: 001403              		beq	71454			; ..
071446: 012700 075775       		mov	#75775,r0		; @.}{
071452: 000452              		br	71600			; *.
;
071454: 036327 000030 000010		bit	30(r3),#10		; W<....
071462: 001434              		beq	71554			; ..
071464: 012746 111632       		mov	#111632,-(sp)		; f...
071470: 012746 111632       		mov	#111632,-(sp)		; f...
071474: 012746 075513       		mov	#75513,-(sp)		; f.K{
071500: 004767 002644       		call	74350			; w.$.
071504: 062706 000006       		add	#6,sp			; Fe..
071510: 005700              		tst	r0			; @.
071512: 001032              		bne	71600			; ..
071514: 036327 000030 001000		bit	30(r3),#1000		; W<....
071522: 001411              		beq	71546			; ..
071524: 010346              		mov	r3,-(sp)		; f.
071526: 004767 157260       		call	$do$fmt			; w.0^
071532: 005726              		tst	(sp)+			; V.
071534: 005700              		tst	r0			; @.
071536: 001003              		bne	71546			; ..
071540: 012700 075666       		mov	#75666,r0		; @.6{
071544: 000415              		br	71600			; ..
;
071546: 012700 075763       		mov	#75763,r0		; @.s{
071552: 000412              		br	71600			; ..
;
071554: 036327 000030 000002		bit	30(r3),#2		; W<....
071562: 001403              		beq	71572			; ..
071564: 012700 075704       		mov	#75704,r0		; @.D{
071570: 000403              		br	71600			; ..
;
071572: 010364 000002       		mov	r3,2(r4)		; t...
071576: 005000              		clr	r0			; ..
071600: 000167 005310       		jmp	cret$			; w.H.
;
071604: 004567 005270       		jsr	r5,csv$			; w.8.
071610: 016504 000004       		mov	4(r5),r4		; D...
071614: 016503 000006       		mov	6(r5),r3		; C...
071620: 012702 000012       		mov	#12,r2			; B...
071624: 060302              		add	r3,r2			; B`
071626: 012746 000050       		mov	#50,-(sp)		; f.(.
071632: 010246              		mov	r2,-(sp)		; &.
071634: 010446              		mov	r4,-(sp)		; &.
071636: 004767 002230       		call	74072			; w...
071642: 062706 000006       		add	#6,sp			; Fe..
071646: 112763 000066 000011		movb	#66,11(r3)		; s.6...
071654: 005000              		clr	r0			; ..
071656: 000167 005232       		jmp	cret$			; w...
;
071662: 004567 005212       		jsr	r5,csv$			; w...
071666: 016504 000006       		mov	6(r5),r4		; D...
071672: 016503 000012       		mov	12(r5),r3		; C...
071676: 016502 000010       		mov	10(r5),r2		; B...
071702: 016202 000002       		mov	2(r2),r2		; ....
071706: 016500 000004       		mov	4(r5),r0		; @...
071712: 005760 000006       		tst	6(r0)			; p...
071716: 001425              		beq	71772			; ..
071720: 016546 000010       		mov	10(r5),-(sp)		; f...
071724: 004767 140106       		call	rd$uib			; w.F@
071730: 005726              		tst	(sp)+			; V.
071732: 005700              		tst	r0			; @.
071734: 001403              		beq	71744			; ..
071736: 012700 075730       		mov	#75730,r0		; @.X{
071742: 000502              		br	72150			; B.
;
071744: 016500 000004       		mov	4(r5),r0		; @...
071750: 005760 000010       		tst	10(r0)			; p...
071754: 001006              		bne	71772			; ..
071756: 010300              		mov	r3,r0			; @.
071760: 016210 000020       		mov	20(r2),(r0)		; ....
071764: 016260 000022 000002		mov	22(r2),2(r0)		; 0.....
071772: 016364 000002 000140		mov	2(r3),140(r4)		; t...`.
072000: 011364 000142       		mov	(r3),142(r4)		; t.b.
072004: 005064 000144       		clr	144(r4)			; 4.d.
072010: 005064 000146       		clr	146(r4)			; 4.f.
072014: 012764 000001 000132		mov	#1,132(r4)		; t...Z.
072022: 012764 126736 000134		mov	#126736,134(r4)		; t.^-\.
072030: 012746 000004       		mov	#4,-(sp)		; f...
072034: 010446              		mov	r4,-(sp)		; &.
072036: 062716 000160       		add	#160,(sp)		; Nep.
072042: 016546 000014       		mov	14(r5),-(sp)		; f...
072046: 004767 002020       		call	74072			; w...
072052: 062706 000006       		add	#6,sp			; Fe..
072056: 016500 000004       		mov	4(r5),r0		; @...
072062: 005760 000006       		tst	6(r0)			; p...
072066: 001015              		bne	72122			; ..
072070: 012746 000004       		mov	#4,-(sp)		; f...
072074: 010446              		mov	r4,-(sp)		; &.
072076: 062716 000150       		add	#150,(sp)		; Neh.
072102: 016546 000014       		mov	14(r5),-(sp)		; f...
072106: 004767 001760       		call	74072			; w.p.
072112: 062706 000006       		add	#6,sp			; Fe..
072116: 005064 000136       		clr	136(r4)			; 4.^.
072122: 005264 000136       		inc	136(r4)			; 4.^.
072126: 010246              		mov	r2,-(sp)		; &.
072130: 010446              		mov	r4,-(sp)		; &.
072132: 004767 137044       		call	uib$to$ucb		; w.$>
072136: 022626              		cmp	(sp)+,(sp)+		; .%
072140: 012762 040004 000030		mov	#40004,30(r2)		; r..@..
072146: 005000              		clr	r0			; ..
072150: 000167 004740       		jmp	cret$			; w.`.
;
072154: 004567 004720       		jsr	r5,csv$			; w.P.
072160: 016546 000010       		mov	10(r5),-(sp)		; f...
072164: 016546 000006       		mov	6(r5),-(sp)		; f...
072170: 016546 000004       		mov	4(r5),-(sp)		; f...
072174: 004767 002150       		call	74350			; w.h.
072200: 062706 000006       		add	#6,sp			; Fe..
072204: 005700              		tst	r0			; @.
072206: 001012              		bne	72234			; ..
072210: 016546 000014       		mov	14(r5),-(sp)		; f...
072214: 016546 000012       		mov	12(r5),-(sp)		; f...
072220: 016546 000004       		mov	4(r5),-(sp)		; f...
072224: 004767 002646       		call	75076			; w.&.
072230: 062706 000006       		add	#6,sp			; Fe..
072234: 000167 004654       		jmp	cret$			; w.,.
;
072240: 004537 077100       		jsr	r5,@#csv$		; _.@~
072244: 112737 000001 102665		movb	#1,@#102665		; _...5.
072252: 016502 000004       		mov	4(r5),r2		; B...
072256: 016503 000006       		mov	6(r5),r3		; C...
072262: 016504 000010       		mov	10(r5),r4		; D...
072266: 005063 000012       		clr	12(r3)			; 3...
072272: 026327 000006 000002		cmp	6(r3),#2		; W,....
072300: 001456              		beq	72436			; ..
072302: 005062 000032       		clr	32(r2)			; 2...
072306: 012762 112632 000044		mov	#112632,44(r2)		; r...$.
072314: 116237 000032 102664		movb	32(r2),@#102664		; ....4.
072322: 005037 102666       		clr	@#102666		; ..6.
072326: 004737 072444       		call	@#72444			; _.$u
072332: 004737 074012       		call	@#74012			; _..x
072336: 005700              		tst	r0			; @.
072340: 001015              		bne	72374			; ..
072342: 012763 000001 000012		mov	#1,12(r3)		; s.....
072350: 004737 073450       		call	@#73450			; _.(w
072354: 005700              		tst	r0			; @.
072356: 001030              		bne	72440			; ..
072360: 005262 000032       		inc	32(r2)			; 2...
072364: 026264 000032 000034		cmp	32(r2),34(r4)		; 4,....
072372: 002745              		blt	72306			; e.
072374: 010002              		mov	r0,r2			; ..
072376: 012700 076032       		mov	#76032,r0		; @..|
072402: 005763 000012       		tst	12(r3)			; s...
072406: 001403              		beq	72416			; ..
072410: 005702              		tst	r2			; B.
072412: 001012              		bne	72440			; ..
072414: 000410              		br	72436			; ..
;
072416: 012700 076043       		mov	#76043,r0		; @.#|
072422: 005763 000010       		tst	10(r3)			; s...
072426: 001404              		beq	72440			; ..
072430: 012763 000002 000006		mov	#2,6(r3)		; s.....
072436: 005000              		clr	r0			; ..
072440: 000137 077114       		jmp	@#cret$			; _.L~
;
072444: 010446              		mov	r4,-(sp)		; &.
072446: 012746 000004       		mov	#4,-(sp)		; f...
072452: 016446 000036       		mov	36(r4),-(sp)		; &...
072456: 005316              		dec	(sp)			; N.
072460: 005366 000002       		dec	2(sp)			; v...
072464: 001577              		beq	73064			; ..
072466: 016204 000002       		mov	2(r2),r4		; ....
072472: 010446              		mov	r4,-(sp)		; &.
072474: 004737 041622       		call	@#select			; _..C
072500: 005726              		tst	(sp)+			; V.
072502: 012737 000100 140022		mov	#100,@#w$cmd		; _.@..@
072510: 016200 000044       		mov	44(r2),r0		; ..$.
072514: 012701 140020       		mov	#w$dat,r1		; A..@
072520: 010011              		mov	r0,(r1)			; ..
072522: 000300              		swab	r0			; @.
072524: 010011              		mov	r0,(r1)			; ..
072526: 005011              		clr	(r1)			; ..
072530: 005011              		clr	(r1)			; ..
072532: 016211 000032       		mov	32(r2),(r1)		; ....
072536: 011611              		mov	(sp),(r1)		; ..
072540: 012711 000001       		mov	#1,(r1)			; I...
072544: 013711 100206       		mov	@#100206,(r1)		; I...
072550: 016411 000070       		mov	70(r4),(r1)		; ..8.
072554: 016446 000072       		mov	72(r4),-(sp)		; &.:.
072560: 004737 012642       		call	@#put$udc			; _.".
072564: 005726              		tst	(sp)+			; V.
072566: 012713 177777       		mov	#177777,(r3)		; K...
072572: 010346              		mov	r3,-(sp)		; f.
072574: 010446              		mov	r4,-(sp)		; &.
072576: 012746 000133       		mov	#133,-(sp)		; f.[.
072602: 004737 070162       		call	@#70162			; _.rp
072606: 062706 000006       		add	#6,sp			; Fe..
072612: 005700              		tst	r0			; @.
072614: 001321              		bne	72460			; Q.
072616: 012700 000044       		mov	#44,r0			; @.$.
072622: 060200              		add	r2,r0			; .`
072624: 005063 000002       		clr	2(r3)			; 3...
072630: 005063 000004       		clr	4(r3)			; 3...
072634: 004737 073424       		call	@#73424			; _..w
072640: 020027 000001       		cmp	r0,#1			; . ..
072644: 001705              		beq	72460			; E.
072646: 012701 000376       		mov	#376,r1			; A.~.
072652: 116604 000001       		movb	1(sp),r4		; ....
072656: 074104              		xor	r1,r4			; Dx
072660: 122004              		cmpb	(r0)+,r4		; .$
072662: 001360              		bne	72624			; p.
072664: 122016              		cmpb	(r0)+,(sp)		; .$
072666: 001356              		bne	72624			; n.
072670: 122062 000032       		cmpb	(r0)+,32(r2)		; 2$..
072674: 001353              		bne	72624			; k.
072676: 062700 000003       		add	#3,r0			; @e..
072702: 004737 073424       		call	@#73424			; _..w
072706: 020027 000001       		cmp	r0,#1			; . ..
072712: 001662              		beq	72460			; 2.
072714: 122027 000370       		cmpb	(r0)+,#370		; .$x.
072720: 001341              		bne	72624			; a.
072722: 005746              		tst	-(sp)			; f.
072724: 112016              		movb	(r0)+,(sp)		; ..
072726: 112066 000001       		movb	(r0)+,1(sp)		; 6...
072732: 011601              		mov	(sp),r1			; ..
072734: 112016              		movb	(r0)+,(sp)		; ..
072736: 112066 000001       		movb	(r0)+,1(sp)		; 6...
072742: 012604              		mov	(sp)+,r4		; ..
072744: 020127 024260       		cmp	r1,#24260		; W 0(
072750: 101325              		bhi	72624			; U.
072752: 005701              		tst	r1			; A.
072754: 001002              		bne	72762			; ..
072756: 005704              		tst	r4			; D.
072760: 001440              		beq	73062			;  .
072762: 010446              		mov	r4,-(sp)		; &.
072764: 042716 177760       		bic	#177760,(sp)		; NEp.
072770: 026226 000032       		cmp	32(r2),(sp)+		; .,..
072774: 001313              		bne	72624			; K.
072776: 006204              		asr	r4			; ..
073000: 006204              		asr	r4			; ..
073002: 006204              		asr	r4			; ..
073004: 006204              		asr	r4			; ..
073006: 005704              		tst	r4			; D.
073010: 003705              		ble	72624			; E.
073012: 020416              		cmp	r4,(sp)			; .!
073014: 003303              		bgt	72624			; C.
073016: 010462 000030       		mov	r4,30(r2)		; 2...
073022: 016604 000004       		mov	4(sp),r4		; ....
073026: 026364 000002 000106		cmp	2(r3),106(r4)		; t,..F.
073034: 002211              		bge	72460			; ..
073036: 010046              		mov	r0,-(sp)		; &.
073040: 004737 073072       		call	@#73072			; _.:v
073044: 012600              		mov	(sp)+,r0		; ..
073046: 005263 000002       		inc	2(r3)			; 3...
073052: 026327 000002 000100		cmp	2(r3),#100		; W,..@.
073060: 002720              		blt	72722			; P.
073062: 005000              		clr	r0			; ..
073064: 022626              		cmp	(sp)+,(sp)+		; .%
073066: 012604              		mov	(sp)+,r4		; ..
073070: 000207              		return				; ..
;
073072: 004537 077100       		jsr	r5,@#csv$		; _.@~
073076: 162706 000006       		sub	#6,sp			; Fe..
073102: 016402 000076       		mov	76(r4),r2		; ..>.
073106: 066402 000046       		add	46(r4),r2		; .m&.
073112: 006302              		asl	r2			; B.
073114: 066402 000072       		add	72(r4),r2		; .m:.
073120: 066402 000074       		add	74(r4),r2		; .m<.
073124: 062702 001013       		add	#1013,r2		; Be..
073130: 166401 000066       		sub	66(r4),r1		; .m6.
073134: 166401 000070       		sub	70(r4),r1		; .m8.
073140: 016403 000110       		mov	110(r4),r3		; ..H.
073144: 010346              		mov	r3,-(sp)		; f.
073146: 005416              		neg	(sp)			; ..
073150: 020126              		cmp	r1,(sp)+		; V 
073152: 002476              		blt	73350			; >.
073154: 010346              		mov	r3,-(sp)		; f.
073156: 016400 000032       		mov	32(r4),r0		; ....
073162: 060216              		add	r2,(sp)			; .`
073164: 077002              		sob	r0,73162		; .~
073166: 020126              		cmp	r1,(sp)+		; V 
073170: 003067              		bgt	73350			; 7.
073172: 010546              		mov	r5,-(sp)		; f.
073174: 062716 177766       		add	#177766,(sp)		; Nev.
073200: 010246              		mov	r2,-(sp)		; &.
073202: 010146              		mov	r1,-(sp)		; f.
073204: 005046              		clr	-(sp)			; &.
073206: 004737 033042       		call	@#33042			; _."6
073212: 062706 000006       		add	#6,sp			; Fe..
073216: 010301              		mov	r3,r1			; A.
073220: 012603              		mov	(sp)+,r3		; ..
073222: 005723              		tst	(r3)+			; S.
073224: 016446 000032       		mov	32(r4),-(sp)		; &...
073230: 005316              		dec	(sp)			; N.
073232: 021326              		cmp	(r3),(sp)+		; V"
073234: 003014              		bgt	73266			; ..
073236: 001406              		beq	73254			; ..
073240: 160102              		sub	r1,r2			; B`
073242: 020002              		cmp	r0,r2			; . 
073244: 003403              		ble	73254			; ..
073246: 011343              		mov	(r3),-(r3)		; c.
073250: 005213              		inc	(r3)			; ..
073252: 000406              		br	73270			; ..
;
073254: 005713              		tst	(r3)			; K.
073256: 003404              		ble	73270			; ..
073260: 020001              		cmp	r0,r1			; . 
073262: 003002              		bgt	73270			; ..
073264: 011343              		mov	(r3),-(r3)		; c.
073266: 005313              		dec	(r3)			; K.
073270: 010504              		mov	r5,r4			; D.
073272: 062704 177762       		add	#177762,r4		; Der.
073276: 016502 177772       		mov	177772(r5),r2		; B.z.
073302: 010246              		mov	r2,-(sp)		; &.
073304: 012346              		mov	(r3)+,-(sp)		; f.
073306: 004737 070564       		call	@#70564			; _.tq
073312: 022626              		cmp	(sp)+,(sp)+		; .%
073314: 010062 000034       		mov	r0,34(r2)		; 2...
073320: 010446              		mov	r4,-(sp)		; &.
073322: 010246              		mov	r2,-(sp)		; &.
073324: 004737 074250       		call	@#74250			; _.(x
073330: 022626              		cmp	(sp)+,(sp)+		; .%
073332: 004737 073354       		call	@#73354			; _.lv
073336: 010500              		mov	r5,r0			; @.
073340: 062700 177770       		add	#177770,r0		; @ex.
073344: 020300              		cmp	r3,r0			; @ 
073346: 003753              		ble	73276			; k.
073350: 000137 077114       		jmp	@#cret$			; _.L~
;
073354: 012701 111632       		mov	#111632,r1		; A...
073360: 016502 177774       		mov	177774(r5),r2		; B.|.
073364: 062702 000004       		add	#4,r2			; Be..
073370: 011200              		mov	(r2),r0			; ..
073372: 001407              		beq	73412			; ..
073374: 021421              		cmp	(r4),(r1)+		; .#
073376: 001003              		bne	73406			; ..
073400: 026411 000002       		cmp	2(r4),(r1)		; .-..
073404: 001406              		beq	73422			; ..
073406: 005721              		tst	(r1)+			; Q.
073410: 077007              		sob	r0,73374		; .~
073412: 011421              		mov	(r4),(r1)+		; ..
073414: 016421 000002       		mov	2(r4),(r1)+		; ....
073420: 005212              		inc	(r2)			; ..
073422: 000207              		return				; ..
;
073424: 020027 135751       		cmp	r0,#135751		; . i;
073430: 103004              		bcc	73442			; ..
073432: 122027 000241       		cmpb	(r0)+,#241		; .$!.
073436: 001372              		bne	73424			; z.
073440: 000207              		return				; ..
;
073442: 012700 000001       		mov	#1,r0			; @...
073446: 000207              		return				; ..
;
073450: 010446              		mov	r4,-(sp)		; &.
073452: 024646              		cmp	-(sp),-(sp)		; &)
073454: 012704 111632       		mov	#111632,r4		; D...
073460: 005763 000004       		tst	4(r3)			; s...
073464: 001546              		beq	74002			; f.
073466: 005237 102666       		inc	@#102666		; ..6.
073472: 016201 000002       		mov	2(r2),r1		; ....
073476: 012700 000020       		mov	#20,r0			; @...
073502: 016166 000046 000002		mov	46(r1),2(sp)		; v.&...
073510: 016116 000044       		mov	44(r1),(sp)		; N.$.
073514: 021416              		cmp	(r4),(sp)		; .#
073516: 103475              		bcs	73712			; =.
073520: 101004              		bhi	73532			; ..
073522: 026466 000002 000002		cmp	2(r4),2(sp)		; 6-....
073530: 103470              		bcs	73712			; 8.
073532: 066166 000010 000002		add	10(r1),2(sp)		; vl....
073540: 005516              		adc	(sp)			; N.
073542: 066116 000006       		add	6(r1),(sp)		; Nl..
073546: 021416              		cmp	(r4),(sp)		; .#
073550: 101005              		bhi	73564			; ..
073552: 103462              		bcs	73720			; 2.
073554: 026466 000002 000002		cmp	2(r4),2(sp)		; 6-....
073562: 103456              		bcs	73720			; ..
073564: 012700 000016       		mov	#16,r0			; @...
073570: 016166 000056 000002		mov	56(r1),2(sp)		; v.....
073576: 016116 000054       		mov	54(r1),(sp)		; N.,.
073602: 021416              		cmp	(r4),(sp)		; .#
073604: 101005              		bhi	73620			; ..
073606: 103441              		bcs	73712			; !.
073610: 026466 000002 000002		cmp	2(r4),2(sp)		; 6-....
073616: 103435              		bcs	73712			; ..
073620: 066166 000062 000002		add	62(r1),2(sp)		; vl2...
073626: 005516              		adc	(sp)			; N.
073630: 066116 000060       		add	60(r1),(sp)		; Nl0.
073634: 021416              		cmp	(r4),(sp)		; .#
073636: 101054              		bhi	73770			; ,.
073640: 103404              		bcs	73652			; ..
073642: 026466 000002 000002		cmp	2(r4),2(sp)		; 6-....
073650: 103047              		bcc	73770			; '.
073652: 011416              		mov	(r4),(sp)		; ..
073654: 016466 000002 000002		mov	2(r4),2(sp)		; 6.....
073662: 166166 000046 000002		sub	46(r1),2(sp)		; vl&...
073670: 005616              		sbc	(sp)			; ..
073672: 166116 000044       		sub	44(r1),(sp)		; Nl$.
073676: 010246              		mov	r2,-(sp)		; &.
073700: 004737 024216       		call	@#24216			; _..(
073704: 005726              		tst	(sp)+			; V.
073706: 012700 000016       		mov	#16,r0			; @...
073712: 060300              		add	r3,r0			; @`
073714: 005210              		inc	(r0)			; ..
073716: 000424              		br	73770			; ..
;
073720: 011462 000006       		mov	(r4),6(r2)		; 2...
073724: 016462 000002 000010		mov	2(r4),10(r2)		; 2.....
073732: 052761 100000 000030		bis	#100000,30(r1)		; qU....
073740: 010346              		mov	r3,-(sp)		; f.
073742: 010246              		mov	r2,-(sp)		; &.
073744: 004737 067174       		call	@#67174			; _.|n
073750: 022626              		cmp	(sp)+,(sp)+		; .%
073752: 016201 000002       		mov	2(r2),r1		; ....
073756: 042761 100000 000030		bic	#100000,30(r1)		; qE....
073764: 005700              		tst	r0			; @.
073766: 001006              		bne	74004			; ..
073770: 062704 000004       		add	#4,r4			; De..
073774: 005363 000004       		dec	4(r3)			; s...
074000: 003232              		bgt	73466			; ..
074002: 005000              		clr	r0			; ..
074004: 022626              		cmp	(sp)+,(sp)+		; .%
074006: 012604              		mov	(sp)+,r4		; ..
074010: 000207              		return				; ..
;
074012: 010046              		mov	r0,-(sp)		; &.
074014: 016246 000002       		mov	2(r2),-(sp)		; &...
074020: 004737 041622       		call	@#select			; _..C
074024: 005726              		tst	(sp)+			; V.
074026: 016246 000002       		mov	2(r2),-(sp)		; &...
074032: 005046              		clr	-(sp)			; &.
074034: 010346              		mov	r3,-(sp)		; f.
074036: 012776 177777 000000		mov	#177777,@0(sp)		; ~.....
074044: 004737 070316       		call	@#70316			; _.Np
074050: 062706 000006       		add	#6,sp			; Fe..
074054: 016246 000002       		mov	2(r2),-(sp)		; &...
074060: 004737 042142       		call	@#deselect			; _.bD
074064: 005726              		tst	(sp)+			; V.
074066: 012600              		mov	(sp)+,r0		; ..
074070: 000207              		return				; ..
;
074072: 010246              		mov	r2,-(sp)		; &.
074074: 016600 000004       		mov	4(sp),r0		; ....
074100: 016601 000006       		mov	6(sp),r1		; ....
074104: 016602 000010       		mov	10(sp),r2		; ....
074110: 012021              		mov	(r0)+,(r1)+		; ..
074112: 077202              		sob	r2,74110		; .~
074114: 012602              		mov	(sp)+,r2		; ..
074116: 000207              		return				; ..
;
074120: 016600 000002       		mov	2(sp),r0		; ....
074124: 016601 000004       		mov	4(sp),r1		; ....
074130: 005020              		clr	(r0)+			; ..
074132: 077102              		sob	r1,74130		; B~
074134: 000207              		return				; ..
;
074136: 155555              		bisb	@-(r5),@-(r5)		; m[
074140: 133333              		bitb	@(r3)+,@(r3)+		; [6
074142: 066666 004537 077100		add	4537(sp),77100(sp)	; 6m_.@~
074150: 016503 000004       		mov	4(r5),r3		; C...
074154: 016502 000006       		mov	6(r5),r2		; B...
074160: 010346              		mov	r3,-(sp)		; f.
074162: 010213              		mov	r2,(r3)			; ..
074164: 005223              		inc	(r3)+			; ..
074166: 010346              		mov	r3,-(sp)		; f.
074170: 012746 075637       		mov	#75637,-(sp)		; f..{
074174: 004737 074350       		call	@#74350			; _.hx
074200: 022626              		cmp	(sp)+,(sp)+		; .%
074202: 012603              		mov	(sp)+,r3		; ..
074204: 005700              		tst	r0			; @.
074206: 001016              		bne	74244			; ..
074210: 006302              		asl	r2			; B.
074212: 016204 074136       		mov	74136(r2),r4		; ..^x
074216: 016500 000010       		mov	10(r5),r0		; @...
074222: 012701 000400       		mov	#400,r1			; A...
074226: 010402              		mov	r4,r2			; ..
074230: 010223              		mov	r2,(r3)+		; ..
074232: 006302              		asl	r2			; B.
074234: 100001              		bpl	74240			; ..
074236: 005202              		inc	r2			; ..
074240: 077105              		sob	r1,74230		; E~
074242: 077011              		sob	r0,74222		; .~
074244: 000137 077114       		jmp	@#cret$			; _.L~
;
074250: 004537 077100       		jsr	r5,@#csv$		; _.@~
074254: 016504 000004       		mov	4(r5),r4		; D...
074260: 016403 000002       		mov	2(r4),r3		; ....
074264: 016401 000032       		mov	32(r4),r1		; ....
074270: 005000              		clr	r0			; ..
074272: 016302 000112       		mov	112(r3),r2		; B.J.
074276: 066401 000030       		add	30(r4),r1		; .m..
074302: 005500              		adc	r0			; @.
074304: 077204              		sob	r2,74276		; .~
074306: 016302 000110       		mov	110(r3),r2		; B.H.
074312: 005003              		clr	r3			; ..
074314: 005046              		clr	-(sp)			; &.
074316: 060103              		add	r1,r3			; C`
074320: 005516              		adc	(sp)			; N.
074322: 060016              		add	r0,(sp)			; .`
074324: 077204              		sob	r2,74316		; .~
074326: 066403 000034       		add	34(r4),r3		; .m..
074332: 005516              		adc	(sp)			; N.
074334: 016504 000006       		mov	6(r5),r4		; D...
074340: 012624              		mov	(sp)+,(r4)+		; ..
074342: 010314              		mov	r3,(r4)			; L.
074344: 000137 077114       		jmp	@#cret$			; _.L~
;
074350: 004537 077100       		jsr	r5,@#csv$		; _.@~
074354: 016504 000004       		mov	4(r5),r4		; D...
074360: 016503 000006       		mov	6(r5),r3		; C...
074364: 016402 000000       		mov	0(r4),r2		; ....
074370: 020427 075332       		cmp	r4,#75332		; .!Zz
074374: 103441              		bcs	74500			; !.
074376: 020427 075366       		cmp	r4,#75366		; .!vz
074402: 103401              		bcs	74406			; ..
074404: 010402              		mov	r4,r2			; ..
074406: 112223              		movb	(r2)+,(r3)+		; ..
074410: 112223              		movb	(r2)+,(r3)+		; ..
074412: 016546 000010       		mov	10(r5),-(sp)		; f...
074416: 121227 000000       		cmpb	(r2),#0			; ."..
074422: 001413              		beq	74452			; ..
074424: 121227 000045       		cmpb	(r2),#45		; ."%.
074430: 001006              		bne	74446			; ..
074432: 010346              		mov	r3,-(sp)		; f.
074434: 004737 074576       		call	@#74576			; _.~y
074440: 012603              		mov	(sp)+,r3		; ..
074442: 005202              		inc	r2			; ..
074444: 000764              		br	74416			; t.
;
074446: 112223              		movb	(r2)+,(r3)+		; ..
074450: 000762              		br	74416			; r.
;
074452: 012604              		mov	(sp)+,r4		; ..
074454: 010300              		mov	r3,r0			; @.
074456: 166500 000006       		sub	6(r5),r0		; @m..
074462: 032700 000001       		bit	#1,r0			; @5..
074466: 001427              		beq	74546			; ..
074470: 005200              		inc	r0			; ..
074472: 112723 000040       		movb	#40,(r3)+		; S. .
074476: 000423              		br	74546			; ..
;
074500: 016400 000002       		mov	2(r4),r0		; ....
074504: 005001              		clr	r1			; ..
074506: 112223              		movb	(r2)+,(r3)+		; ..
074510: 005201              		inc	r1			; ..
074512: 020100              		cmp	r1,r0			; @ 
074514: 002774              		blt	74506			; |.
074516: 020427 075332       		cmp	r4,#75332		; .!Zz
074522: 103011              		bcc	74546			; ..
074524: 016502 000010       		mov	10(r5),r2		; B...
074530: 016400 000004       		mov	4(r4),r0		; ....
074534: 020100              		cmp	r1,r0			; @ 
074536: 001403              		beq	74546			; ..
074540: 112223              		movb	(r2)+,(r3)+		; ..
074542: 005201              		inc	r1			; ..
074544: 000773              		br	74534			; {.
;
074546: 010046              		mov	r0,-(sp)		; &.
074550: 016546 000006       		mov	6(r5),-(sp)		; f...
074554: 004737 032520       		call	@#put$host		; _.P5
074560: 022626              		cmp	(sp)+,(sp)+		; .%
074562: 005700              		tst	r0			; @.
074564: 001402              		beq	74572			; ..
074566: 012700 000001       		mov	#1,r0			; @...
074572: 000137 077114       		jmp	@#cret$			; _.L~
;
074576: 004537 077100       		jsr	r5,@#csv$		; _.@~
074602: 016504 000006       		mov	6(r5),r4		; D...
074606: 012403              		mov	(r4)+,r3		; ..
074610: 010465 000006       		mov	r4,6(r5)		; 5...
074614: 016504 000004       		mov	4(r5),r4		; D...
074620: 012701 074676       		mov	#74676,r1		; A.>y
074624: 005000              		clr	r0			; ..
074626: 020311              		cmp	r3,(r1)			; I 
074630: 103403              		bcs	74640			; ..
074632: 161103              		sub	(r1),r3			; Cb
074634: 005200              		inc	r0			; ..
074636: 000773              		br	74626			; {.
;
074640: 062700 000060       		add	#60,r0			; @e0.
074644: 110024              		movb	r0,(r4)+		; ..
074646: 062701 000002       		add	#2,r1			; Ae..
074652: 020127 074706       		cmp	r1,#74706		; W Fy
074656: 103762              		bcs	74624			; r.
074660: 062703 000060       		add	#60,r3			; Ce0.
074664: 110324              		movb	r3,(r4)+		; T.
074666: 010465 000004       		mov	r4,4(r5)		; 5...
074672: 000137 077114       		jmp	@#cret$			; _.L~
;
074676: 023420              		cmp	@(r4)+,(r0)+		; .'
074700: 001750              		beq	74622			; h.
074702: 000144              		jmp	-(r4)			; d.
;
074704: 000012              		.word	000012			; ..
074706: 005001              		clr	r1			; ..
074710: 000402              		br	74716			; ..
;
074712: 012701 000001       		mov	#1,r1			; A...
074716: 004537 077100       		jsr	r5,@#csv$		; _.@~
074722: 016502 000004       		mov	4(r5),r2		; B...
074726: 010246              		mov	r2,-(sp)		; &.
074730: 066516 000006       		add	6(r5),(sp)		; Nm..
074734: 005003              		clr	r3			; ..
074736: 005004              		clr	r4			; ..
074740: 020216              		cmp	r2,(sp)			; . 
074742: 103041              		bcc	75046			; !.
074744: 105712              		tstb	(r2)			; J.
074746: 001437              		beq	75046			; ..
074750: 121227 000015       		cmpb	(r2),#15		; ."..
074754: 001434              		beq	75046			; ..
074756: 121227 000012       		cmpb	(r2),#12		; ."..
074762: 001431              		beq	75046			; ..
074764: 121227 000060       		cmpb	(r2),#60		; ."0.
074770: 103423              		bcs	75040			; ..
074772: 121227 000071       		cmpb	(r2),#71		; ."9.
074776: 101020              		bhi	75040			; ..
075000: 012700 000011       		mov	#11,r0			; @...
075004: 010446              		mov	r4,-(sp)		; &.
075006: 010346              		mov	r3,-(sp)		; f.
075010: 061603              		add	(sp),r3			; .c
075012: 005504              		adc	r4			; D.
075014: 066604 000002       		add	2(sp),r4		; .m..
075020: 077005              		sob	r0,75010		; .~
075022: 022626              		cmp	(sp)+,(sp)+		; .%
075024: 112200              		movb	(r2)+,r0		; ..
075026: 162700 000060       		sub	#60,r0			; @e0.
075032: 060003              		add	r0,r3			; .`
075034: 005504              		adc	r4			; D.
075036: 000740              		br	74740			; `.
;
075040: 012700 076055       		mov	#76055,r0		; @.-|
075044: 000412              		br	75072			; ..
;
075046: 005000              		clr	r0			; ..
075050: 016502 000010       		mov	10(r5),r2		; B...
075054: 005701              		tst	r1			; A.
075056: 001404              		beq	75070			; ..
075060: 010422              		mov	r4,(r2)+		; ..
075062: 001002              		bne	75070			; ..
075064: 005703              		tst	r3			; C.
075066: 001764              		beq	75040			; t.
075070: 010312              		mov	r3,(r2)			; J.
075072: 000137 077114       		jmp	@#cret$			; _.L~
;
075076: 004537 077100       		jsr	r5,@#csv$		; _.@~
075102: 016502 000004       		mov	4(r5),r2		; B...
075106: 005003              		clr	r3			; ..
075110: 020227 075332       		cmp	r2,#75332		; . Zz
075114: 103010              		bcc	75136			; ..
075116: 016246 000004       		mov	4(r2),-(sp)		; &...
075122: 020227 075332       		cmp	r2,#75332		; . Zz
075126: 103012              		bcc	75154			; ..
075130: 016203 000006       		mov	6(r2),r3		; ....
075134: 000407              		br	75154			; ..
;
075136: 016246 000002       		mov	2(r2),-(sp)		; &...
075142: 020227 075346       		cmp	r2,#75346		; . fz
075146: 103002              		bcc	75154			; ..
075150: 016203 000004       		mov	4(r2),r3		; ....
075154: 016546 000006       		mov	6(r5),-(sp)		; f...
075160: 004737 032346       		call	@#get$host		; _.f4
075164: 022626              		cmp	(sp)+,(sp)+		; .%
075166: 013775 102656 000010		mov	@#102656,@10(r5)	; }.....
075174: 005700              		tst	r0			; @.
075176: 001403              		beq	75206			; ..
075200: 012700 000001       		mov	#1,r0			; @...
075204: 000406              		br	75222			; ..
;
075206: 005775 000010       		tst	@10(r5)			; }...
075212: 001003              		bne	75222			; ..
075214: 005703              		tst	r3			; C.
075216: 001401              		beq	75222			; ..
075220: 010300              		mov	r3,r0			; @.
075222: 000137 077114       		jmp	@#cret$			; _.L~
;
075226: 016600 000006       		mov	6(sp),r0		; ....
075232: 005010              		clr	(r0)			; ..
075234: 005766 000004       		tst	4(sp)			; v...
075240: 001432              		beq	75326			; ..
075242: 016601 000002       		mov	2(sp),r1		; ....
075246: 121127 000131       		cmpb	(r1),#131		; W"Y.
075252: 001424              		beq	75324			; ..
075254: 121127 000171       		cmpb	(r1),#171		; W"y.
075260: 001421              		beq	75324			; ..
075262: 121127 000116       		cmpb	(r1),#116		; W"N.
075266: 001417              		beq	75326			; ..
075270: 121127 000156       		cmpb	(r1),#156		; W"n.
075274: 001414              		beq	75326			; ..
075276: 105711              		tstb	(r1)			; I.
075300: 001412              		beq	75326			; ..
075302: 121127 000012       		cmpb	(r1),#12		; W"..
075306: 001407              		beq	75326			; ..
075310: 121127 000015       		cmpb	(r1),#15		; W"..
075314: 001404              		beq	75326			; ..
075316: 012700 076055       		mov	#76055,r0		; @.-|
075322: 000402              		br	75330			; ..
;
075324: 005210              		inc	(r0)			; ..
075326: 005000              		clr	r0			; ..
075330: 000207              		return				; ..
;
075332: 075366              		.word	075366			; vz
075334: 000144              		.word	000144			; d.
;
075336: 076055              		.word	076055			; -|
075340: 075502              		.word	075502			; B{
075342: 000012              		.word	000012			; ..
075344: 076055              		.word	076055			; -|
075346: 075375              		.word	075375			; }z
075350: 000006              		.word	000006			; ..
;
075352: 075411              		.word	075411			; .{
075354: 000002              		.word	000002			; ..
;
075356: 075437              		.word	075437			; .{
075360: 000002              		.word	000002			; ..
;
075362: 075453              		.word	075453			; +{
075364: 000002              		.word	000002			; ..
;
075366: 060002              		.word	060002              		; .`
075370: 044525              		.word	044525              		; UI
075372: 037524 000400       		.word	037524, 000400       		; T?..
075376: 052440              		.word	052440              		;  U
075400: 064556              		.word	064556              		; ni
075402: 020164 030074       		.word	020164, 030074       		; t <0
075406: 037476 002000 052440		.word	037476, 002000, 052440		; >?.. U
075414: 062563 062440       		.word	062563, 062440       		; se e
075420: 064570 072163       		.word	064570, 072163       		; xist
075424: 064440              		.word	064440              		;  i
075426: 063156              		.word	063156              		; nf
075430: 020157              		.word	020157              		; o 
075432: 047074 037476 002400		.word	047074, 037476, 002400		; <N>?..
075440: 046040 060557       		.word	046040, 060557       		;  Loa
075444: 020144              		.word	020144              		; d 
075446: 047074 037476 003000		.word	047074, 037476, 003000		; <N>?..
075454: 041440              		.word	041440              		;  C
075456: 067157 064564       		.word	067157, 064564       		; onti
075462: 020156              		.word	020156              		; n 
075464: 063151              		.word	063151              		; if
075466: 064440              		.word	064440              		;  i
075470: 060556              		.word	060556              		; na
075472: 061543              		.word	061543              		; cc
075474: 036040 037116       		.word	036040, 037116       		;  <N>
075500: 000077              		.word	000077              		; ?.
075502: 010007              		.word	010007              		; ..
075504: 062523              		.word	062523              		; Se
075506: 020162 037443       		.word	020162, 037443       		; r #?
075512: 000000              		.word	000000              		; ..
075514: 043060 072155       		.word	043060, 072155       		; 0Fmt
075520: 041040              		.word	041040              		;  B
075522: 063545              		.word	063545              		; eg
075524: 000400              		.word	000400              		; ..
075526: 043060 072155       		.word	043060, 072155       		; 0Fmt
075532: 042040              		.word	042040              		;  D
075534: 067157 001000       		.word	067157, 001000       		; on..
075540: 022460 051040       		.word	022460, 051040       		; 0% R
075544: 073145              		.word	073145              		; ev
075546: 046040 047102       		.word	046040, 047102       		;  LBN
075552: 000163 030005       		.word	000163, 030005       		; s..0
075556: 020045              		.word	020045              		; % 
075560: 060502              		.word	060502              		; Ba
075562: 020144              		.word	020144              		; d 
075564: 041122              		.word	041122              		; RB
075566: 071516              		.word	071516              		; Ns
075570: 003400              		.word	003400              		; ..
075572: 022460 041040       		.word	022460, 041040       		; 0% B
075576: 062141              		.word	062141              		; ad
075600: 042040              		.word	042040              		;  D
075602: 047102 000163       		.word	047102, 000163       		; BNs.
075606: 030011              		.word	030011              		; .0
075610: 020045              		.word	020045              		; % 
075612: 060502              		.word	060502              		; Ba
075614: 020144              		.word	020144              		; d 
075616: 041130              		.word	041130              		; XB
075620: 071516              		.word	071516              		; Ns
075622: 005400              		.word	005400              		; ..
075624: 022460 071040       		.word	022460, 071040       		; 0% r
075630: 072145              		.word	072145              		; et
075632: 071151              		.word	071151              		; ir
075634: 062145              		.word	062145              		; ed
075636: 010000              		.word	010000              		; ..
075640: 050060 071541       		.word	050060, 071541       		; 0Pas
075644: 020163 020045       		.word	020163, 020045       		; s % 
075650: 062502              		.word	062502              		; Be
075652: 000147              		.word	000147              		; g.
075654: 040014              		.word	040014              		; .@
075656: 041506              		.word	041506              		; FC
075660: 020124              		.word	020124              		; T 
075662: 071565 000144       		.word	071565, 000144       		; usd.
075666: 040015              		.word	040015              		; .@
075670: 041506              		.word	041506              		; FC
075672: 020124              		.word	020124              		; T 
075674: 067556 020164       		.word	067556, 020164       		; not 
075700: 071565 000144       		.word	071565, 000144       		; usd.
075704: 050007              		.word	050007              		; .P
075706: 062516              		.word	062516              		; Ne
075710: 020170 067165       		.word	020170, 067165       		; x un
075714: 000164 050010       		.word	000164, 050010       		; t..P
075720: 041104              		.word	041104              		; DB
075722: 020116              		.word	020116              		; N 
075724: 066546 000164       		.word	066546, 000164       		; fmt.
075730: 050011              		.word	050011              		; .P
075732: 041506              		.word	041506              		; FC
075734: 020124              		.word	020124              		; T 
075736: 067543 000160       		.word	067543, 000160       		; cop.
075742: 050012              		.word	050012              		; .P
075744: 042523              		.word	042523              		; SE
075746: 045505              		.word	045505              		; EK
075750: 005400              		.word	005400              		; ..
075752: 051120              		.word	051120              		; PR
075754: 052103              		.word	052103              		; CT
075756: 061440              		.word	061440              		;  c
075760: 070157              		.word	070157              		; op
075762: 006000              		.word	006000              		; ..
075764: 046120 047102       		.word	046120, 047102       		; PLBN
075770: 063040              		.word	063040              		;  f
075772: 072155              		.word	072155              		; mt
075774: 006400              		.word	006400              		; ..
075776: 043120              		.word	043120              		; PF
076000: 052103              		.word	052103              		; CT
076002: 073440              		.word	073440              		;  w
076004: 000162 050017       		.word	000162, 050017       		; r..P
076010: 041522              		.word	041522              		; RC
076012: 020124              		.word	020124              		; T 
076014: 071167 010000       		.word	071167, 010000       		; wr..
076020: 051120              		.word	051120              		; PR
076022: 052103              		.word	052103              		; CT
076024: 063040              		.word	063040              		;  f
076026: 066165 000154 050021		.word	066165, 000154, 050021		; ull..P
076034: 041506              		.word	041506              		; FC
076036: 020124              		.word	020124              		; T 
076040: 062162 011000       		.word	062162, 011000       		; rd..
076044: 043120              		.word	043120              		; PF
076046: 052103              		.word	052103              		; CT
076050: 067040 074145       		.word	067040, 074145       		;  nex
076054: 012400              		.word	012400              		; ..
076056: 044520              		.word	044520              		; PI
076060: 066154 071040       		.word	066154, 071040       		; ll r
076064: 070163 013000       		.word	070163, 013000       		; sp..
076070: 051120              		.word	051120              		; PR
076072: 067165 062040 060551		.word	067165, 062040, 060551		; un dia
076100: 000147              		.word	000147              		; g.
				;--------------------------------------------------------
				;
				;	File:	C library routines
				;
				;
076102: 004567 000772       		jsr	r5,csv$			; w.z.
076106: 004767 000056       		call	76170			; w...
076112: 000411              		br	76136			; ..
;
076114: 004567 000760       		jsr	r5,csv$			; w.p.
076120: 004767 000044       		call	76170			; w.$.
076124: 000413              		br	76154			; ..
;
076126: 004567 000746       		jsr	r5,csv$			; w.f.
076132: 004767 000046       		call	76204			; w.&.
076136: 010400              		mov	r4,r0			; ..
076140: 010501              		mov	r5,r1			; A.
076142: 000404              		br	76154			; ..
;
076144: 004567 000730       		jsr	r5,csv$			; w.X.
076150: 004767 000030       		call	76204			; w...
076154: 005726              		tst	(sp)+			; V.
076156: 012602              		mov	(sp)+,r2		; ..
076160: 012603              		mov	(sp)+,r3		; ..
076162: 012604              		mov	(sp)+,r4		; ..
076164: 012605              		mov	(sp)+,r5		; ..
076166: 000207              		return				; ..
;
076170: 010504              		mov	r5,r4			; D.
076172: 062704 000010       		add	#10,r4			; De..
076176: 011403              		mov	(r4),r3			; ..
076200: 006702              		sxt	r2			; B.
076202: 000405              		br	76216			; ..
;
076204: 010504              		mov	r5,r4			; D.
076206: 062704 000012       		add	#12,r4			; De..
076212: 011403              		mov	(r4),r3			; ..
076214: 014402              		mov	-(r4),r2		; ..
076216: 012746 000041       		mov	#41,-(sp)		; f.!.
076222: 014401              		mov	-(r4),r1		; ..
076224: 014400              		mov	-(r4),r0		; ..
076226: 100005              		bpl	76242			; ..
076230: 005400              		neg	r0			; ..
076232: 005401              		neg	r1			; ..
076234: 005600              		sbc	r0			; ..
076236: 062716 040000       		add	#40000,(sp)		; Ne.@
076242: 005004              		clr	r4			; ..
076244: 005005              		clr	r5			; ..
076246: 005702              		tst	r2			; B.
076250: 100404              		bmi	76262			; ..
076252: 003010              		bgt	76274			; ..
076254: 005703              		tst	r3			; C.
076256: 001444              		beq	76370			; $.
076260: 000405              		br	76274			; ..
;
076262: 062716 100000       		add	#100000,(sp)		; Ne..
076266: 005402              		neg	r2			; ..
076270: 005403              		neg	r3			; ..
076272: 005602              		sbc	r2			; ..
076274: 020002              		cmp	r0,r2			; . 
076276: 002403              		blt	76306			; ..
076300: 003007              		bgt	76320			; ..
076302: 020103              		cmp	r1,r3			; C 
076304: 103005              		bcc	76320			; ..
076306: 010004              		mov	r0,r4			; ..
076310: 010105              		mov	r1,r5			; E.
076312: 005000              		clr	r0			; ..
076314: 005001              		clr	r1			; ..
076316: 000424              		br	76370			; ..
;
076320: 006105              		rol	r5			; E.
076322: 006104              		rol	r4			; D.
076324: 020204              		cmp	r2,r4			; . 
076326: 101007              		bhi	76346			; ..
076330: 001002              		bne	76336			; ..
076332: 020305              		cmp	r3,r5			; E 
076334: 101004              		bhi	76346			; ..
076336: 160305              		sub	r3,r5			; E`
076340: 005604              		sbc	r4			; ..
076342: 160204              		sub	r2,r4			; .`
076344: 000261              		sec				; 1.
076346: 006101              		rol	r1			; A.
076350: 006100              		rol	r0			; @.
076352: 105316              		decb	(sp)			; N.
076354: 003361              		bgt	76320			; q.
076356: 006316              		asl	(sp)			; N.
076360: 102003              		bvc	76370			; ..
076362: 005400              		neg	r0			; ..
076364: 005401              		neg	r1			; ..
076366: 005600              		sbc	r0			; ..
076370: 005726              		tst	(sp)+			; V.
076372: 100003              		bpl	76402			; ..
076374: 005404              		neg	r4			; ..
076376: 005405              		neg	r5			; ..
076400: 005604              		sbc	r4			; ..
076402: 000207              		return				; ..
;
076404: 005466 000004       		neg	4(sp)			; 6...
076410: 016600 000002       		mov	2(sp),r0		; ....
076414: 016601 000004       		mov	4(sp),r1		; ....
076420: 100003              		bpl	76430			; ..
076422: 000404              		br	76434			; ..
;
076424: 006300              		asl	r0			; @.
076426: 005301              		dec	r1			; A.
076430: 003375              		bgt	76424			; }.
076432: 000207              		return				; ..
;
076434: 006200              		asr	r0			; ..
076436: 005201              		inc	r1			; ..
076440: 002775              		blt	76434			; }.
076442: 000207              		return				; ..
;
076444: 010246              		mov	r2,-(sp)		; &.
076446: 010346              		mov	r3,-(sp)		; f.
076450: 010446              		mov	r4,-(sp)		; &.
076452: 005002              		clr	r2			; ..
076454: 016601 000010       		mov	10(sp),r1		; ....
076460: 100002              		bpl	76466			; ..
076462: 005401              		neg	r1			; ..
076464: 005102              		com	r2			; B.
076466: 016603 000012       		mov	12(sp),r3		; ....
076472: 100002              		bpl	76500			; ..
076474: 005403              		neg	r3			; ..
076476: 005102              		com	r2			; B.
076500: 005000              		clr	r0			; ..
076502: 012704 000020       		mov	#20,r4			; D...
076506: 032701 000001       		bit	#1,r1			; A5..
076512: 001401              		beq	76516			; ..
076514: 060300              		add	r3,r0			; @`
076516: 000241              		clc				; !.
076520: 006000              		ror	r0			; ..
076522: 006001              		ror	r1			; ..
076524: 005304              		dec	r4			; D.
076526: 001367              		bne	76506			; w.
076530: 005702              		tst	r2			; B.
076532: 001401              		beq	76536			; ..
076534: 005401              		neg	r1			; ..
076536: 010100              		mov	r1,r0			; @.
076540: 012604              		mov	(sp)+,r4		; ..
076542: 012603              		mov	(sp)+,r3		; ..
076544: 012602              		mov	(sp)+,r2		; ..
076546: 000207              		return				; ..
;
076550: 004767 000012       		call	76566			; w...
076554: 000207              		return				; ..
;
076556: 004767 000004       		call	76566			; w...
076562: 010100              		mov	r1,r0			; @.
076564: 000207              		return				; ..
;
076566: 010446              		mov	r4,-(sp)		; &.
076570: 010346              		mov	r3,-(sp)		; f.
076572: 010246              		mov	r2,-(sp)		; &.
076574: 005004              		clr	r4			; ..
076576: 016602 000014       		mov	14(sp),r2		; ....
076602: 003004              		bgt	76614			; ..
076604: 001442              		beq	76712			; ".
076606: 012704 100000       		mov	#100000,r4		; D...
076612: 005402              		neg	r2			; ..
076614: 016600 000012       		mov	12(sp),r0		; ....
076620: 003004              		bgt	76632			; ..
076622: 001433              		beq	76712			; ..
076624: 062704 040000       		add	#40000,r4		; De.@
076630: 005400              		neg	r0			; ..
076632: 012703 000010       		mov	#10,r3			; C...
076636: 005001              		clr	r1			; ..
076640: 000300              		swab	r0			; @.
076642: 001402              		beq	76650			; ..
076644: 006303              		asl	r3			; C.
076646: 000300              		swab	r0			; @.
076650: 006300              		asl	r0			; @.
076652: 006101              		rol	r1			; A.
076654: 001405              		beq	76670			; ..
076656: 005200              		inc	r0			; ..
076660: 160201              		sub	r2,r1			; .`
076662: 103002              		bcc	76670			; ..
076664: 060201              		add	r2,r1			; .`
076666: 005300              		dec	r0			; @.
076670: 005303              		dec	r3			; C.
076672: 003366              		bgt	76650			; v.
076674: 006304              		asl	r4			; D.
076676: 102001              		bvc	76702			; ..
076700: 005400              		neg	r0			; ..
076702: 005704              		tst	r4			; D.
076704: 100004              		bpl	76716			; ..
076706: 005401              		neg	r1			; ..
076710: 000402              		br	76716			; ..
;
076712: 005000              		clr	r0			; ..
076714: 005001              		clr	r1			; ..
076716: 012602              		mov	(sp)+,r2		; ..
076720: 012603              		mov	(sp)+,r3		; ..
076722: 012604              		mov	(sp)+,r4		; ..
076724: 000207              		return				; ..
;
076726: 004567 000146       		jsr	r5,csv$			; w.f.
076732: 005046              		clr	-(sp)			; &.
076734: 016503 000010       		mov	10(r5),r3		; C...
076740: 006702              		sxt	r2			; B.
076742: 100015              		bpl	76776			; ..
076744: 000410              		br	76766			; ..
;
076746: 004567 000126       		jsr	r5,csv$			; w.V.
076752: 005046              		clr	-(sp)			; &.
076754: 016503 000012       		mov	12(r5),r3		; C...
076760: 016502 000010       		mov	10(r5),r2		; B...
076764: 100004              		bpl	76776			; ..
076766: 005402              		neg	r2			; ..
076770: 005403              		neg	r3			; ..
076772: 005602              		sbc	r2			; ..
076774: 005116              		com	(sp)			; N.
076776: 005765 000004       		tst	4(r5)			; u...
077002: 100007              		bpl	77022			; ..
077004: 005465 000004       		neg	4(r5)			; 5...
077010: 005465 000006       		neg	6(r5)			; 5...
077014: 005665 000004       		sbc	4(r5)			; 5...
077020: 005116              		com	(sp)			; N.
077022: 012704 000040       		mov	#40,r4			; D. .
077026: 005000              		clr	r0			; ..
077030: 005001              		clr	r1			; ..
077032: 006301              		asl	r1			; A.
077034: 006100              		rol	r0			; @.
077036: 006303              		asl	r3			; C.
077040: 006102              		rol	r2			; B.
077042: 103005              		bcc	77056			; ..
077044: 066501 000006       		add	6(r5),r1		; Am..
077050: 005500              		adc	r0			; @.
077052: 066500 000004       		add	4(r5),r0		; @m..
077056: 005304              		dec	r4			; D.
077060: 001364              		bne	77032			; t.
077062: 005726              		tst	(sp)+			; V.
077064: 001403              		beq	77074			; ..
077066: 005400              		neg	r0			; ..
077070: 005401              		neg	r1			; ..
077072: 005600              		sbc	r0			; ..
077074: 000167 000014       		jmp	cret$			; w...
;
				csv$::
077100: 010500              		mov	r5,r0			; @.
077102: 010605              		mov	sp,r5			; ..
077104: 010446              		mov	r4,-(sp)		; &.
077106: 010346              		mov	r3,-(sp)		; f.
077110: 010246              		mov	r2,-(sp)		; &.
077112: 004710              		call	(r0)			; H.
				cret$::
077114: 010502              		mov	r5,r2			; B.
077116: 014204              		mov	-(r2),r4		; ..
077120: 014203              		mov	-(r2),r3		; ..
077122: 014202              		mov	-(r2),r2		; ..
077124: 010506              		mov	r5,sp			; F.
077126: 012605              		mov	(sp)+,r5		; ..
077130: 000207              		return				; ..
				;
				;	switch jump tables form do_mscp and do_dup
				;
				swmscp::
077132: 002544          		.word	op$abo			; d.
077134: 002602          		.word	op$gcs			; ..
077136: 002614          		.word	op$gus			; ..
077140: 002640          		.word	op$scc			;  .
077142: 002716          		.word	op$default		; N.
077144: 002716          		.word	op$default		; N.
077146: 002716          		.word	op$default		; N.
077150: 002556          		.word	op$avl			; n.
077152: 002626          		.word	op$onl			; ..
077154: 002652          		.word	op$suc			; *.
077156: 002676          		.word	op$dab			; >.
077160: 002716          		.word	op$default		; N.
077162: 002716          		.word	op$default		; N.
077164: 002716          		.word	op$default		; N.
077166: 002716          		.word	op$default		; N.
077170: 002664          		.word	op$acc			; 4.
077172: 002676          		.word	op$ccd			; >.
077174: 002664          		.word	op$ers			; 4.
077176: 002676          		.word	op$flu			; >.
077200: 002716          		.word	op$default		; N.
077202: 002716          		.word	op$default		; N.
077204: 002716          		.word	op$default		; N.
077206: 002716          		.word	op$default		; N.
077210: 002570          		.word	op$new			; x.
077212: 002716          		.word	op$default		; N.
077214: 002716          		.word	op$default		; N.
077216: 002716          		.word	op$default		; N.
077220: 002716          		.word	op$default		; N.
077222: 002716          		.word	op$default		; N.
077224: 002716          		.word	op$default		; N.
077226: 002716          		.word	op$default		; N.
077230: 002664          		.word	op$cmd			; 4.
077232: 002664          		.word	op$rd			; 4.
077234: 002664          		.word	op$wr			; 4.
077236: 002716          		.word	op$default		; N.
077240: 002716          		.word	op$default		; N.
077242: 002716          		.word	op$default		; N.
077244: 002716          		.word	op$default		; N.
077246: 002716          		.word	op$default		; N.
077250: 002716          		.word	op$default		; N.
077252: 002716          		.word	op$default		; N.
077254: 002716          		.word	op$default		; N.
077256: 002716          		.word	op$default		; N.
077260: 002716          		.word	op$default		; N.
077262: 002716          		.word	op$default		; N.
077264: 002716          		.word	op$default		; N.
077266: 002570          		.word	op$fmt			; x.

				swdup::
077270: 003060          		.word	op$ap			; 0.
077272: 003046          		.word	op$elp			; &.
077274: 003034          		.word	op$esp			; ..
077276: 003104          		.word	op$gds			; D.
077300: 003072          		.word	op$rcv			; :.
077302: 003022          		.word	op$snd			; ..
				;
				; Tables
				;

077304: 022544 040063       	rd.media::	.word	022544, 040063 
077310: 022545 100041       	rx33.media::	.word	022544, 040063 
077314: 022545 100062       	rx50.media::	.word	022544, 040063 

				rwoptbl::
077320: 000020              		.word	op$acc		; ..
077322: 000022              		.word	op$ers		; ..
077324: 000041              		.word	op$rd		; !.
077326: 000042              		.word	op$wr		; ".
077330: 177777       			.word	177777

077332: 055032				.word	setrdcmd
077334: 055056          		.word	setwrcmd
077336: 054706          		.word	setrwcmd
077340: 054760				.word	setrwcmd
077342: 055102       			.word	setcmdcmd

				jtblfmt1::
077344: 071062       			.word	071062
077346: 071104       			.word	071104
077350: 071204              		.word	071204
077352: 071134              		.word	071134

				jtblfmt2::
077354: 070772              		.word	070772
077354: 071026              		.word	071026
077360: 071026              		.word	071026
077362: 071206              		.word	071206
077364: 071026              		.word	071026
077366: 071230              		.word	071230
				;
				; Unused & Checksum
				;
077370: 177777 177777       		.word	177777, 177777
077374: 177777 177777       		.word	177777, 177777
077400: 177777 177777       		.word	177777, 177777
077404: 177777 177777       		.word	177777, 177777
077410: 177777 177777       		.word	177777, 177777
077414: 177777 177777       		.word	177777, 177777
077420: 177777 177777       		.word	177777, 177777
077424: 177777 177777       		.word	177777, 177777
077430: 177777 177777       		.word	177777, 177777
077434: 177777 177777       		.word	177777, 177777
077440: 177777 177777       		.word	177777, 177777
077444: 177777 177777       		.word	177777, 177777
077450: 177777 177777       		.word	177777, 177777
077454: 177777 177777       		.word	177777, 177777
077460: 177777 177777       		.word	177777, 177777
077464: 177777 177777       		.word	177777, 177777
077470: 177777 177777       		.word	177777, 177777
077474: 177777 177777       		.word	177777, 177777
077500: 177777 177777       		.word	177777, 177777
077504: 177777 177777       		.word	177777, 177777
077510: 177777 177777       		.word	177777, 177777
077514: 177777 177777       		.word	177777, 177777
077520: 177777 177777       		.word	177777, 177777
077524: 177777 177777       		.word	177777, 177777
077530: 177777 177777       		.word	177777, 177777
077534: 177777 177777       		.word	177777, 177777
077540: 177777 177777       		.word	177777, 177777
077544: 177777 177777       		.word	177777, 177777
077550: 177777 177777       		.word	177777, 177777
077554: 177777 177777       		.word	177777, 177777
077560: 177777 177777       		.word	177777, 177777
077564: 177777 177777       		.word	177777, 177777
077570: 177777 177777       		.word	177777, 177777
077574: 177777 177777       		.word	177777, 177777
077600: 177777 177777       		.word	177777, 177777
077604: 177777 177777       		.word	177777, 177777
077610: 177777 177777       		.word	177777, 177777
077614: 177777 177777       		.word	177777, 177777
077620: 177777 177777       		.word	177777, 177777
077624: 177777 177777       		.word	177777, 177777
077630: 177777 177777       		.word	177777, 177777
077634: 177777 177777       		.word	177777, 177777
077640: 177777 177777       		.word	177777, 177777
077644: 177777 177777       		.word	177777, 177777
077650: 177777 177777       		.word	177777, 177777
077654: 177777 177777       		.word	177777, 177777
077660: 177777 177777       		.word	177777, 177777
077664: 177777 177777       		.word	177777, 177777
077670: 177777 177777       		.word	177777, 177777
077674: 177777 177777       		.word	177777, 177777
077700: 177777 177777       		.word	177777, 177777
077704: 177777 177777       		.word	177777, 177777
077710: 177777 177777       		.word	177777, 177777
077714: 177777 177777       		.word	177777, 177777
077720: 177777 177777       		.word	177777, 177777
077724: 177777 177777       		.word	177777, 177777
077730: 177777 177777       		.word	177777, 177777
077734: 177777 177777       		.word	177777, 177777
077740: 177777 177777       		.word	177777, 177777
077744: 177777 177777       		.word	177777, 177777
077750: 177777 177777       		.word	177777, 177777
077754: 177777 177777       		.word	177777, 177777
077760: 177777 177777       		.word	177777, 177777
077764: 177777 177777       		.word	177777, 177777
077770: 177777 177777       		.word	177777, 177777
077774: 177777 001227       		.word	177777, 001227
