0:		0:		cflg	0
02:		br	04
04:		mov	$0157000,sp
010:		clr	r4
012:		mov	sp,r5
014:		cmp	pc,r5
016:		bcc	032
020:		mov	(r4)+,(r5)+
022:		cmp	r5,$0157777
026:		bcs	020
030:		jmp	(sp)
032:		clr	(r4)+
034:		cmp	r4,sp
036:		bcs	032
040:		mov	r0,0175566
044:		mov	r1,0175400
050:		clr	(r1)+
052:		mov	$04000,r5
056:		mov	$0157064,r4
062:		br	074
064:		bpl	066
066:		bisb	-(r4),sp
070:		halt
072:		wait
074:		tst	(r1)
076:		bmi	076
0100:		bit	r5,(r1)
0102:		beq	074
0104:		mov	(r4)+,(r1)
0106:		asl	r5
0110:		bpl	074
0112:		mov	$044,0175502
0120:		mov	r0,0175512
0124:		mov	$011,0175516
0132:		mov	$0154406,r2
0136:		mov	$0154422,(r2)+
0142:		mov	r5,(r2)+
0144:		mov	$0154506,(r2)+
0150:		mov	r5,(r2)+
0152:		mov	0177776(r1),r0
0156:		tst	0175410
0162:		bmi	0156
0164:		mov	0175456,0175570
0172:		mov	0175460,0175572
0200:		br	0224
0202:		movb	$056,0764
0210:		movb	$0142,0765
0216:		movb	$0165,0766
0224:		mov	$0154574,r0
0230:		clr	(r0)+
0232:		cmp	r0,sp
0234:		bcs	0230
0236:		mov	$0157760,r1
0242:		mov	$02,r0
0246:		clr	0177674
0252:		jsr	pc,0430
0256:		tstb	(r1)
0260:		beq	0342
0262:		jsr	pc,0512
0266:		br	0202
0270:		mov	$0154574,r2
0274:		mov	r1,r3
0276:		mov	r2,r4
0300:		add	$020,r2
0304:		tst	(r4)+
0306:		beq	0332
0310:		cmpb	(r3)+,(r4)+
0312:		bne	0332
0314:		cmp	r4,r2
0316:		bcs	0310
0320:		mov	0177760(r2),r0
0324:		add	$016,r1
0330:		br	0246
0332:		cmp	r2,$0156574
0336:		bcs	0274
0340:		br	0262
0342:		clr	r1
0344:		jsr	pc,0512
0350:		br	0370
0352:		mov	$0154574,r2
0356:		mov	(r2)+,(r1)+
0360:		cmp	r2,$0156574
0364:		bcs	0356
0366:		br	0344
0370:		mov	0175566,r0
0374:		mov	$02,r1
0400:		mov	0175570,r2
0404:		mov	0175572,r3
0410:		mov	0175400,r4
0414:		clr	r5
0416:		mov	020(r5),(r5)+
0422:		cmp	r5,sp
0424:		bcs	0416
0426:		clr	pc
0430:		add	$037,r0
0434:		mov	r0,r5
0436:		ash	$0177774,r0
0442:		bic	$0170000,r0
0446:		mov	r0,0177676
0452:		clr	r0
0454:		jsr	pc,0650
0460:		bic	$0177760,r5
0464:		mul	$0100,r5
0470:		add	$0154574,r5
0474:		mov	$0156574,r4
0500:		mov	(r5)+,(r4)+
0502:		cmp	r4,$0156674
0506:		bcs	0500
0510:		rts	pc
0512:		add	$02,(sp)
0516:		mov	0177674,r0
0522:		cmp	r0,$04
0526:		blt	0534
0530:		mov	$04,r0
0534:		mov	r0,-(sp)
0536:		asl	r0
0540:		add	(sp)+,r0
0542:		add	$0156611,r0
0546:		movb	(r0)+,0177676
0552:		movb	(r0)+,0177677
0556:		movb	0177775(r0),r0
0562:		bne	0572
0564:		tst	0177676
0570:		beq	0642
0572:		jsr	pc,0650
0576:		mov	0177674,r0
0602:		inc	0177674
0606:		sub	$04,r0
0612:		blt	0646
0614:		ash	$02,r0
0620:		mov	0154576(r0),0177676
0626:		mov	0154574(r0),r0
0632:		bne	0650
0634:		tst	0177676
0640:		bne	0650
0642:		sub	$02,(sp)
0646:		rts	pc
0650:		mov	r1,-(sp)
0652:		mov	0177676,r1
0656:		ashc	$01,r0
0662:		mov	$041,0175516
0670:		mov	$02000,0175522
0676:		mov	$0154574,0175526
0704:		mov	r1,0175542
0710:		mov	(sp)+,r1
0712:		mov	r0,0175544
0716:		mov	$0100000,0175410
0724:		mov	$0100000,0175414
0732:		mov	*0175400,r0
0736:		tst	0175410
0742:		bmi	0736
0744:		tstb	0175434
0750:		beq	0756
0752:		jmp	0200202
0756:		rts	pc
0760:		add	*072157(r5),-(r2)
0764:		halt
0766:		halt
0770:		halt
0772:		halt
0774:		halt
0776:		halt
01000:
text address not found
