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