home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / listing1 < prev    next >
Text File  |  2023-02-26  |  539b  |  12 lines
  1. fill1     stx $fb       ;save low byte of block in zero page
  2.           sty $fc       ;save high byte of block in zero page
  3.           lda #$00      ;Acc. holds value to store in block
  4.           ldy #$00      ;set index register to zero
  5.           sta ($fb),y   ;do first byte in block
  6. ;
  7. loop1     iny           ;move index pointer up one
  8.           sta ($fb),y   ;stuff value of Acc. into memory
  9.           cpy #$ff      ;when Y=FF we are done
  10.           bne loop1     ;not done yet...
  11.           rts           ;now we're done, return to caller
  12.