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

PRNSTR
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         PLA
         STA   ADDR1      ; ADDRESS OF STRING
         PLA
         STA   ADDR1+1
         LDY   #0
         LDA   (ADDR1),Y  ; GET STRING LENGTH
         STA   :S1LEN
:LP
         INY
         LDA   (ADDR1),Y  ; GET CHARACTER
         JSR   SCOUT1     ; PRINT CHARACTER TO SCREEN
         CPY   :S1LEN     ; IF Y < LENGTH
         BNE   :LP
                          ; LOOP; ELSE
         LDY   #0
         LDA   (ADDR1),Y
         LDA   RETADR+1
         PHA
         LDA   RETADR
         PHA
         LDY   #0
         LDA   (ADDR1),Y  ; STRING LENGTH IN A
         LDY   ADDR1
         LDX   ADDR1+1    ; ADDRESS IN Y,X
         RTS
:S1LEN   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			`PRNSTR`
			`PLA`
			`STA RETADR`
			`PLA`
			`STA RETADR+1`
			`PLA`
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 ; ADDRESS 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			`PLA`
			`STA ADDR1+1`
			`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			`LDA (ADDR1),Y ; 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			`STA :S1LEN`
			`:LP`
			`INY`
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 CHARACTER`
			`JSR SCOUT1 ; PRINT CHARACTER TO SCREEN`
			`CPY :S1LEN ; IF Y < LENGTH`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`BNE :LP`
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			`; LOOP; ELSE`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDY #0`
			`LDA (ADDR1),Y`
			`LDA RETADR+1`
			`PHA`
			`LDA RETADR`
			`PHA`
			`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			`LDA (ADDR1),Y ; STRING LENGTH IN A`
Strings 0.2.0 update - bugfixes - implemented required library - commenting updates - .min of every routine 2018-12-23 01:35:05 +00:00			`LDY ADDR1`
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 ADDR1+1 ; ADDRESS IN Y,X`
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`