100 SYS 700 ;PAL 64
110 .OPT OO
120 ;  "SEAM"
130 ; PUTS A SPRITE ANYWHERE
140 ; ON THE SCREEN
150 ; PUT X/2 IN XPOS,
160 ; Y IN YLO,
170 ; AND SPRITE # IN XPSNUM.
180 ;
190 SEAM =* ;USES XPOS, YLO, XPSNUM
200 LDA #0
210 STA XHI
220 LDA XPOS
230 ASL
240 ROL XHI ;HOLDS HIGH BIT
250 SEAM2 =* ;USES XLO, XHI, YLO, XPSNUM
260 STA XLO
270 LDA XPSNUM
280 ASL: TAX
290 LDA YLO
300 STA 53249,X
310 LDA XLO
320 STA 53248,X
330 LDA XHI
340 BNE XPN1
350 ;CLEAR HIGH BIT
360 LDX XPSNUM
370 LDA #255
380 SEC
390 SBC XPNUM,X
400 AND 53264
410 STA 53264
420 RTS
430 XPN1 =* ;SET HIGH BIT
440 LDX XPSNUM
450 LDA 53264
460 ORA XPNUM,X
470 STA 53264
480 RTS
490 ;
500 XPOS   .BYTE 80  ;SPRITE X POS / 2
510 YLO    .BYTE 120 ;Y POSITION
520 XLO    .BYTE 100 ;SPRITE X POS LOW
530 XHI    .BYTE 0   ;SPRITE X HIGH BIT
540 XPSNUM .BYTE 0   ;SPRITE # (0-7)
550 XPNUM  .BYTE 1,2,4,8,16,32,64,128