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

	.title	MSL   
	P$VER==21.

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

.psect	tables,ro,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,ro,d,con,lcl
$const:
	.word 0
	.word 0

.psect	p$code,ro,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
	setd	
	tst	-(sp)
	mov	#$G$+54,-(sp)
	jsr	pc,MSGLEN
	.globl	MSGLEN
	mov	(sp)+,@#$G$+372
	jsr	pc,P$63
.globl	P$63
.psect	diags,ro,d,con,lcl
.psect	diags
$stdg:	.word	$endg-$stdg
	.word	$code
	.word	$last-$code
	.word	6047
	.word	15515
.psect	p$code
$last=.
	.word	0,0,0,$stdg
.psect	diags
	.word	173320
$endg:	.word	$stdg-$endg
.psect	p$dynl,d,ovr,gbl
$dynl:	.word	0
.globl	p$pma
	.word	p$pma

;length of object code = 18. words.
	.end	p$bgn