ac0=r0
	ac1=r1
	ac2=r2
	ac3=r3
	ac4=r4
	ac5=r5

	.title	DUMMY 
	P$VER==21.

.psect	global,d,ovr,gbl
$G$:	.=.+6

.psect	tables,d,ovr,gbl
$bits:	.word 1001
	.word 4004
	.word 20020
	.word 100100
	.word 1
	.word 2
	.word 4
	.word 10
	.word 20
	.word 40
	.word 100
	.word 200
	.word 400
	.word 1000
	.word 2000
	.word 4000
	.word 10000
	.word 20000
	.word 40000
	.word 100000

.psect	consts,d,con,lcl
$const:
	.word 64550
	.word 72040
	.word 62550
	.word 62562

.psect	,i,lcl
$code:

p$bgn::
	jsr	pc,P$59
.globl	P$59
	mov	#$G$+2,-(sp)
	mov	#$G$+0,-(sp)
	jsr	pc,P$33
.globl	P$33
	mov	#$const+0,-(sp)
	mov	#10,-(sp)
	mov	@sp,-(sp)
	jsr	pc,P$32
.globl	P$32
	jsr	pc,P$36
.globl	P$36
	jsr	pc,P$63
.globl	P$63
.psect	diags,d,con,lcl
.psect	diags
$stdg:	.word	$endg-$stdg
	.word	$code
	.word	$last-$code
	.word	6010
	.word	16346
	.word	25353
.psect
$last=.
	.word	0,0,0,$stdg
.psect	diags
	.word	130000
$endg:	.word	$stdg-$endg
.psect	p$dynl,d,ovr,gbl
$dynl:	.word	0
.globl	p$pma
	.word	p$pma

	.end	p$bgn