Palete no MSX1

[Walter Nunes]

Já postei acho alguma vez essa rptina, ia levar pra JAÚ e apresentar decemte.

Foi na época que o Adriano me ajudou com o SCENE, esse dava pra remontar o mapa/cenário do SuperBros da Zemina.

Fiquei feliz que há youtubers usando essa técnica junto com comando SPRITE$(ZZ) onde se coloca tabela de imagem justo na VRAM &h1800 e permite animação rápida de linhas de tiles e sprite (oito por vez) e modos de video da coleção de dicas.

Contente mesmo que não me citem ou só tenham visto o loader Disc-Games que distribuí e mostrava scroll e texto invertido ou menus saltantes.

Entrando no assunto é código pra rodar. Carregado depois do bloco LM tem uma linha 10001 de bload"",s que usa em modo direto (deleta o número e dá enter) e carrega em bez de bload"" ou bload"cas:" no endereço cabalístico. 

Originalmente é pra SCREEN1 e 2, mas ia aproveitar pra animação em páginas gráficas daí essa versão é .SC3 e muda nas setas-espaço. Divertido pra mostrar a amigos.

Quem experimentar/fuçar em cima é justo citar fonte da DICA. Por gentileza.

MARUJO.

1 CLEAR200,&H8FFF:COLOR1,15,6:SCREEN3,0,0:CLS

2 '

3 DEFINT A-Z: RESTORE10010:FORT=&H9010TO&H9058:READA$:POKET,VAL("&H"+A$):NEXT

9 '

10 X=10:GOTO 600

20 Y=PEEK(X+&H9000)AND 15

21 COLOR,,X

22 A$=INPUT$(1):IFA$>CHR$(33)OR A$<CHR$(27)THEN22 ELSEA=ASC(A$)-26

30 ONAGOTO50,100,200,300,400,600

40 GOTO20

50 SCREEN 0: END

100 X=(X+1) AND 15

110 GOTO 20

200 X=X-1:IFX<0 THEN X=15

210 GOTO 20

300 Y=Y-1:IFY<0 THEN Y=15

310 GOTO 500

400 Y=(Y+1) AND 15

500 POKE(X AND15)+&H9000,(Y AND15)*17

501 DEFUSR = &H902A:Z=USR(0):GOTO 20

502 '

600 FOR T= &H9000 TO &H900F:POKE T, 17 *(T AND15):NEXT

601 DEFUSR=&H901C:Z=USR(0):GOTO20

700 '

10000 ' DEFINT A-Z: RESTORE10010:FORT=&H9010TO&H9058:READA$:POKET,VAL("&H"+A$):NEXT

10001 'screen3:bload"anime6.sc3",s:DEFUSR = &H9010:Z=USR(0):A$=INPUT$(2)

10002 END

10010 DATA21,0,0,11,79,92,1,0,06,C3,59,0,21,79,92,11,00,0,1,00,06,C3,5c,00,C9,C9

10011 DATA 21,0,0,11,79,92,1,0,6,CD,53,0,26,90,1A,1F,1F,1F,1F,E6,F,6F,7E,E6,F0,8,1A,E6,F,6F,7E,E6,F,6F,8,B5,D3,98,13,B,78,B1,20,E2,C9,C9,