NEW
  AUTO 3,1
*--------------------------------------
GetMPattern
				clc
				rts
*--------------------------------------
GetCPattern		tax
				and #$f
				sta D
				asl
				asl
				asl
				asl
				ora D
				tay
				txa
				and #$f0
				sta D
				lsr
				lsr
				lsr
				lsr
				ora D

				ldx #7
.1				sta PAT.Buf+S.BM,x
				dex
				pha
				tya
				sta PAT.Buf+S.BM,x
				pla
				dex
				bpl .1
				lda #S.BM.F.BBP1
				sta PAT.Buf+S.BM.F
				clc
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.pat
LOAD usr/src/lib/libgui.s
ASM