-2,4,/;BQT/
	.ident	/1.0.03/
	.enabl	gbl

;	17-Oct-96  13:29:10 Johnny Billquist
;				Corrected a bug if attribute packets
;				was zero length.
;
-223,231,/;BQT/
sn.typ: movb    #42     ,(r4)+          ; attribute type
        movb    #41     ,(r4)+          ; /49/ Length of what follows
        movb    #'A&137 ,@r4            ; assume ascii
        cmpb    image   ,#binary        ; already decided that it's binary?
        bne     10$                     ; no
        movb    #'B&137 ,@r4            ; yes, say it's BINARY mode today
10$:    clrb    1(r4)                   ; insure .asciz
        clr     r0                      ; flag success and exit
        return                          ; bye

-296,296,/;BQT/
	ble	90$			; /49/ Again, nothing was there
/