passport/src/modify.a

;-------------------------------
; modify subroutine
; in:  A = starting address (high byte)
;      X = starting address (low byte)
;      Y = string length
;      stack = string to set
; out  $BASEPAGE buffer changed
;      $gPatchCount++
;      $modsrc zero page clobbered
;      $moddest zero page clobbered
;      stack set to return to
;        code after string
;      A,X preserved
;      Y clobbered
;      oVerflow bit clear
;      all other flags clobbered
;-------------------------------
modify
         sta   gDisplayBytes
         clc
         adc   #BASEPAGE
         sta   moddest+1
         stx   moddest
         stx   gDisplayBytes+1
         pla
         sta   modsrc
         pla
         sta   modsrc+1
         tax
         tya
         clc
         adc   modsrc
         bcc   +
         inx
+        sta   tmp
         txa
         pha
         lda   tmp
         pha
         sty   modtmp
         bit   gMode
         bpl   @exitnomod ; verify mode -> no modify
         lda   #s_modify
         jsr   PrintByID
         ldy   #0
-        lda   (moddest), y
         jsr   PrintByte
         iny
         cpy   modtmp
         bne   -
         lda   #s_modifyto
         jsr   PrintByID
         ldy   #0
-        iny
         lda   (modsrc), y
         jsr   PrintByte
         cpy   modtmp
         bne   -
         lda   #$8D
         jsr   PrintA
         bvc   +
-        sta   (moddest), y
+        lda   (modsrc), y
         dey
         bpl   -
@exit
         inc   gPatchCount
@exitnomod
         lda   gDisplayBytes
         ldx   moddest
         clv
         rts
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`;-------------------------------`
			`; modify subroutine`
			`; in: A = starting address (high byte)`
			`; X = starting address (low byte)`
			`; Y = string length`
			`; stack = string to set`
			`; out $BASEPAGE buffer changed`
			`; $gPatchCount++`
			`; $modsrc zero page clobbered`
			`; $moddest zero page clobbered`
			`; stack set to return to`
			`; code after string`
modify now preserves A,X 2018-01-12 15:47:25 +00:00			`; A,X preserved`
			`; Y clobbered`
update patchers/ssprot with variant where checksum in 080F is 27 2017-12-26 23:28:56 +00:00			`; oVerflow bit clear`
			`; all other flags clobbered`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`;-------------------------------`
			`modify`
			`sta gDisplayBytes`
			`clc`
			`adc #BASEPAGE`
			`sta moddest+1`
			`stx moddest`
			`stx gDisplayBytes+1`
			`pla`
			`sta modsrc`
			`pla`
			`sta modsrc+1`
			`tax`
			`tya`
			`clc`
			`adc modsrc`
some formatting changes 2021-04-20 04:27:11 +00:00			`bcc +`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`inx`
some formatting changes 2021-04-20 04:27:11 +00:00			`+ sta tmp`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`txa`
			`pha`
			`lda tmp`
			`pha`
			`sty modtmp`
			`bit gMode`
some formatting changes 2021-04-20 04:27:11 +00:00			`bpl @exitnomod ; verify mode -> no modify`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`lda #s_modify`
			`jsr PrintByID`
			`ldy #0`
some formatting changes 2021-04-20 04:27:11 +00:00			`- lda (moddest), y`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`jsr PrintByte`
			`iny`
			`cpy modtmp`
some formatting changes 2021-04-20 04:27:11 +00:00			`bne -`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`lda #s_modifyto`
			`jsr PrintByID`
			`ldy #0`
some formatting changes 2021-04-20 04:27:11 +00:00			`- iny`
			`lda (modsrc), y`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`jsr PrintByte`
			`cpy modtmp`
some formatting changes 2021-04-20 04:27:11 +00:00			`bne -`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`lda #$8D`
			`jsr PrintA`
pack T00 analyzers define a global page for shared content make nib table global autoclear filters instead of case-by-case cache IDs in global variables where useful merge some near-duplicated routines optimise sector reordering allow cancel when writing from RAM pack universal RWTS dynamically to allow easier modification consolidate output when modifying sequential nibble table entries make Standard Delivery accept a parameter to specify table switch unpacker to Exomizer for cross-platform support make relbase dynamic for easier building makefile for windows 2017-11-09 05:47:12 +00:00			`bvc +`
some formatting changes 2021-04-20 04:27:11 +00:00			`- sta (moddest), y`
			`+ lda (modsrc), y`
pack T00 analyzers define a global page for shared content make nib table global autoclear filters instead of case-by-case cache IDs in global variables where useful merge some near-duplicated routines optimise sector reordering allow cancel when writing from RAM pack universal RWTS dynamically to allow easier modification consolidate output when modifying sequential nibble table entries make Standard Delivery accept a parameter to specify table switch unpacker to Exomizer for cross-platform support make relbase dynamic for easier building makefile for windows 2017-11-09 05:47:12 +00:00			`dey`
some formatting changes 2021-04-20 04:27:11 +00:00			`bpl -`
			`@exit`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`inc gPatchCount`
some formatting changes 2021-04-20 04:27:11 +00:00			`@exitnomod`
modify now preserves A,X 2018-01-12 15:47:25 +00:00			`lda gDisplayBytes`
			`ldx moddest`
update patchers/ssprot with variant where checksum in 080F is 27 2017-12-26 23:28:56 +00:00			`clv`
migrate from 2016-12-30 Merlin source 2017-01-08 03:35:35 +00:00			`rts`