RSC II
Desenhando


Você está em: MarMSX >> Cursos >> Assembly Z80 >> RSC II   Neste capítulo, você verá como fazer um desenho simples no MSX 2 em linguagem de máquina.

  O desenho que iremos fazer, utilizará a screen 5 do MSX. Portanto, é necessário um MSX 2.

  Digite o programa que está nas duas próximas figuras ao lado.
  Este programa chama uma rotina da sub-rom, que está em outro sub-slot. A função EXTROM chama esta rotina da sub-rom.
  Assemble-o, com o comando EN, opción 1 e modo H. Volte para o Basic com BA.

  Código: 
 10  ORG &HC000
 20  CHMOD: EQU &H5F
 30  CHGET: EQU &H9F
 40  EXTROM: EQU &H015F
 50  NVBXLN: EQU &HC9
 60  LD A,5
 70  CALL CHGMOD

 80  LD BC,168
 90  LD DE,135
 100 LD (&HFCB3),BC
 110 LD (&HFCB5),BC
 120 LD A,&HF
 130 LD (&HF3F2),A
 140 LD A,0
 150 LD (&HFB02),A
 160 LD BC,88
 170 LD DE,35
 180 LD IX,NVBXLN
 190 CALL EXTROM
 200 CALL CHGET
 210 LD A,0
 220 CALL CHGMOD
 230 RET
  No Basic, digite: 
 DEFUSR=&HC000
  Para rodar, digite: 
 X=USR(0)
  Eis o retângulo!! Tecle qualquer coisa para voltar para o Basic.

  Observe no código a sub-rotina CHGET. Ela espera que um caractere seja pressionado.
  Por sua vez, CHGMOD muda o modo de screen, de acordo com o valor do registrador A.
  Vejamos como salvar o programa.

  Digitar: 
 GB"rect.bin",&HC000,&HC032


<< Anterior RSC II Próxima >>