Guest User

Untitled

a guest
Jun 23rd, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. org 44000
  2.  
  3. DI
  4. LD HL,$FEFE ; table
  5. LD DE,$FEFE + 1
  6. LD BC,257
  7. LD A,$FE ; IM2 vector
  8. ld (hl),a
  9. LDIR
  10. ld a,$b0
  11. LD I,A
  12. IM2
  13.  
  14. bong:
  15.  
  16. ei
  17. halt    ;wait for vertical retrace
  18.  
  19. di      
  20. ld bc,3242
  21. ldir
  22.  
  23. ld sp,renkler
  24.  
  25. pop hl
  26. pop de
  27. pop af
  28. pop bc
  29.  
  30.  
  31. ld sp,22536
  32. push hl
  33. push de
  34. push af
  35. push bc
  36.  
  37.  
  38. ld sp,3000
  39.  
  40. pop hl
  41. pop de
  42. pop af
  43. pop bc
  44.  
  45.  
  46. ld sp,22536
  47. push hl
  48. push de
  49. push af
  50. push bc
  51.  
  52.  
  53.  
  54. jp bong
  55.  
  56. ret
  57.  
  58. renkler:
  59.  
  60. defb 0,8,16,24,32,40,48,56
  61.  
  62.  
  63.  
  64. end 44000
Add Comment
Please, Sign In to add comment