;*** generated clipping (simple) ***
.clipping7 ld l,e : rst #20 :  jp clipwidth3sub
.clipping4 .clipping5 .clipping6 .clipping1 ld a,-4 : .id65shortB8L7 : rst #20 : .id65shortL7 :  jp clipwidth7subadde
.clipping3 .clipping2 ld a,-4 : jr .id65shortB8L7