;-------------------------------------------------------------------------------- ; GenerateSeedTags ;-------------------------------------------------------------------------------- GenerateSeedTags: PHA : PHX : PHY : PHP REP #$20 ; set 16-bit accumulator LDA $00 : PHA LDA $02 : PHA LDA $04 : PHA LDA $06 : PHA JSL.l NameHash ; get the titlecard hashes LDA $00 : AND.w #$1F1F : STA $00 ; keep it under 0x20 or we'll run out of items LDA $02 : AND.w #$1F1F : STA $02 LDA $04 : AND.w #$1F1F : STA $04 LDA $06 : AND.w #$1F1F : STA $06 REP #$30 ; set 8-bit accumulator & index registers LDY #$08 - DEY : BNE - REP #20 ; set 16-bit accumulator PLA : STA $06 PLA : STA $04 PLA : STA $02 PLA : STA $00 PLP : PLY : PLX : PLA RTL ;--------------------------------------------------------------------------------