disp.asm

乒乓球游戏机设计

proc disp
disp: push a
      mov dptr,#sgtb
      mov r0,#00h
      mov r1,#01h
      mov a,#0
      movx @r0,a
      movx @r1,a  ;乒乓球消失
      clr  ti

      mov a,41h
      anl a,#0fh
      movc a, @a+dptr
      mov sbuf,a
      jnb ti,$
      clr ti

      mov a,41h
      swap a
      anl a,#0fh
      movc a, @a+dptr
      mov sbuf,a
      jnb ti,$
      clr  ti

      mov a,40h
      anl a,#0fh
      movc a, @a+dptr
      mov sbuf,a
      jnb ti,$
      clr ti

      mov a,40h
      swap a
      anl a,#0fh
      movc a, @a+dptr
      mov sbuf,a
      jnb ti,$
      clr ti

      pop a
  ret

 sgtb:db 3fh,06h,5bh,4fh,66h
      db 6dh,7dh,07h,7fh,6fh
end