AppleIIAsm-Collection/source/disk5_strings/T.SUBDEL.SUB.MIN

SUBDEL
         PLA
         TAY
         PLA
         TAX
         PLA
         STA   :SCNT
         PLA
         STA   :SINDEX
         PLA
         STA   ADDR1
         PLA
         STA   ADDR1+1
         TXA
         PHA
         TYA
         PHA
         LDY   #0
         STY   :SCERR
         LDA   (ADDR1),Y
         STA   :S1LEN     ; GET STRING LENGTH
         LDA   :SCNT
         BEQ   :OKEXIT
         LDA   :SINDEX
         BEQ   :ERREXIT   ; ERR EXIT IF START = 0
         LDA   :S1LEN
         CMP   :SINDEX
         BCC   :ERREXIT
         LDA   :SINDEX
         CLC
         ADC   :SCNT
         BCS   :TRUNC     ;TRUNCATE IF INDEX
         STA   :SIDX      ; SAVE INDEX + COUNT AS
         TAX              ; X = INDEX + COUNT
         DEX
         CPX   :S1LEN
         BCC   :CNTOK     ; BR IF IND + CNT - 1
         BEQ   :TRUNC     ; TRUNC BUT NO ERROR--
         LDA   #$0FF
         STA   :SCERR     ; INDICATE ERROR - NOT
:TRUNC
         LDX   :SINDEX    ; STRING LENGTH =
         DEX
         STX   :S1LEN
         LDA   :SCERR
         BEQ   :OKEXIT
         BNE   :ERREXIT
:CNTOK
         LDA   :S1LEN     ; GET STR LENGTH
         SEC
         SBC   :SIDX      ; SUBTRACT START INDEX
         TAX
         INX
         BEQ   :OKEXIT    ; ADD 1 TO INCLUDE LAST
:MVLP
         LDY   :SIDX
         LDA   (ADDR1),Y  ; GET NEXT CHAR
         LDY   :SINDEX
         STA   (ADDR1),Y  ;MOVE IT DOWN
         INC   :SINDEX
         INC   :SIDX      ; INC DEST, SRC INDEXES
         DEX
         BNE   :MVLP      ; CONT UNTIL CNT = 0
         LDX   :SINDEX
         DEX              ; START LENGTH = FINAL
         STX   :S1LEN
:OKEXIT
         CLC
         BCC   :EXIT
:ERREXIT
         SEC
:EXIT
         LDA   :S1LEN
         LDY   #0
         STA   (ADDR1),Y  ; SET LENGTH OF STRING
         RTS
:S1LEN   DS    1
:SCNT    DS    1
:SINDEX  DS    1
:SIDX    DS    1
:SCERR   DS    1
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`SUBDEL`
			`PLA`
			`TAY`
			`PLA`
			`TAX`
			`PLA`
			`STA :SCNT`
			`PLA`
			`STA :SINDEX`
			`PLA`
			`STA ADDR1`
			`PLA`
			`STA ADDR1+1`
			`TXA`
			`PHA`
			`TYA`
			`PHA`
			`LDY #0`
			`STY :SCERR`
			`LDA (ADDR1),Y`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`STA :S1LEN ; GET STRING LENGTH`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDA :SCNT`
			`BEQ :OKEXIT`
			`LDA :SINDEX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`BEQ :ERREXIT ; ERR EXIT IF START = 0`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDA :S1LEN`
			`CMP :SINDEX`
			`BCC :ERREXIT`
			`LDA :SINDEX`
			`CLC`
			`ADC :SCNT`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`BCS :TRUNC ;TRUNCATE IF INDEX`
			`STA :SIDX ; SAVE INDEX + COUNT AS`
			`TAX ; X = INDEX + COUNT`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`DEX`
			`CPX :S1LEN`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`BCC :CNTOK ; BR IF IND + CNT - 1`
			`BEQ :TRUNC ; TRUNC BUT NO ERROR--`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDA #$0FF`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`STA :SCERR ; INDICATE ERROR - NOT`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`:TRUNC`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`LDX :SINDEX ; STRING LENGTH =`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`DEX`
			`STX :S1LEN`
			`LDA :SCERR`
			`BEQ :OKEXIT`
			`BNE :ERREXIT`
			`:CNTOK`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`LDA :S1LEN ; GET STR LENGTH`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`SEC`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`SBC :SIDX ; SUBTRACT START INDEX`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`TAX`
			`INX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`BEQ :OKEXIT ; ADD 1 TO INCLUDE LAST`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`:MVLP`
			`LDY :SIDX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`LDA (ADDR1),Y ; GET NEXT CHAR`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDY :SINDEX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`STA (ADDR1),Y ;MOVE IT DOWN`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`INC :SINDEX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`INC :SIDX ; INC DEST, SRC INDEXES`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`DEX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`BNE :MVLP ; CONT UNTIL CNT = 0`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDX :SINDEX`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`DEX ; START LENGTH = FINAL`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`STX :S1LEN`
			`:OKEXIT`
			`CLC`
			`BCC :EXIT`
			`:ERREXIT`
			`SEC`
			`:EXIT`
			`LDA :S1LEN`
			`LDY #0`
Disk 5: STRINGS 0.3.0 updates - separated subroutines into own files - added some, but very little, additional error handling; Leventhal's routines already handle errors pretty well, so there isn't much to add in that regard until a total rewrite of each 2019-01-21 18:27:30 +00:00			`STA (ADDR1),Y ; SET LENGTH OF STRING`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`RTS`
			`:S1LEN DS 1`
			`:SCNT DS 1`
			`:SINDEX DS 1`
			`:SIDX DS 1`
			`:SCERR DS 1`