Guest User

Untitled

a guest
Feb 20th, 2013
133
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     org 200h
  2.  
  3.     ldx #0d  ; clear X register
  4.     ldy #0d  ; clear Y register
  5.  
  6.  
  7.  
  8. NextX *
  9.     lda 0e000h,x ; load E000+X into A register
  10.     cmp #0d      ; compare A register to 0
  11.     beq IncY     ; if A == 0, IncY
  12.     inx          ; increment X
  13.     cpx #0ffh    ; compare X to 255
  14.     bne NextX    ; if X != 255, NextX
  15.     sty 0275h    ; store Y register into 0275
  16.     brk          ; end program
  17.  
  18. IncY *
  19.     iny          ; increment Y
  20.     inx          ; increment X
  21.     jmp NextX    ; jump to NextX
  22.  
  23.     end
Advertisement
Add Comment
Please, Sign In to add comment