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

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     
         LDA   :SCNT
         BEQ   :OKEXIT

         LDA   :SINDEX
         BEQ   :ERREXIT   
         LDA   :S1LEN
         CMP   :SINDEX
         BCC   :ERREXIT
         LDA   :SINDEX
         CLC
         ADC   :SCNT
         BCS   :TRUNC     ;TRUNCATE IF INDEX

         STA   :SIDX      

         TAX   
         DEX
         CPX   :S1LEN
         BCC   :CNTOK     


         BEQ   :TRUNC     

         LDA   #$0FF
         STA   :SCERR     

:TRUNC
         LDX   :SINDEX    

         DEX
         STX   :S1LEN
         LDA   :SCERR
         BEQ   :OKEXIT
         BNE   :ERREXIT
:CNTOK
         LDA   :S1LEN     
         SEC
         SBC   :SIDX      
         TAX
         INX
         BEQ   :OKEXIT    
                          ; CHAR
:MVLP
         LDY   :SIDX
         LDA   (ADDR1),Y  
         LDY   :SINDEX
         STA   (ADDR1),Y  ;MOVE IT DOWN
         INC   :SINDEX
         INC   :SIDX      
         DEX
         BNE   :MVLP      
         LDX   :SINDEX
         DEX   

         STX   :S1LEN
:OKEXIT
         CLC
         BCC   :EXIT
:ERREXIT
         SEC
:EXIT
         LDA   :S1LEN
         LDY   #0
         STA   (ADDR1),Y  
         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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`STA :S1LEN`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDA :SINDEX`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`BEQ :ERREXIT`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00
			`STA :SIDX`

			`TAX`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`BCC :CNTOK`


			`BEQ :TRUNC`

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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`STA :SCERR`

Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`:TRUNC`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`LDX :SINDEX`

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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`LDA :S1LEN`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`SEC`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`SBC :SIDX`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`BEQ :OKEXIT`
			`; CHAR`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`LDA (ADDR1),Y`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`INC :SIDX`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`DEX`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`BNE :MVLP`
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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`DEX`

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`
Rev 0.4 updates Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries. 2019-04-26 22:49:10 +00:00			`STA (ADDR1),Y`
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`