AppleIIAsm-Collection/source/disk20_minidisk_A/T.FPRINT.SUB.MIN

FPRINT
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         LDY   #$01       ; POINT TO NEXT INSTR
:LP
         LDA   (RETADR),Y
         BEQ   :DONE
         JSR   FCOUT
         INY
         BNE   :LP
:DONE
         CLC              ; RESTORE INSTR POINTER
         TYA
         ADC   RETADR
         STA   RETADR
         LDA   RETADR+1
         ADC   #$00
         PHA
         LDA   RETADR
         PHA
         RTS
FileIO 0.2.0 updates - various bugfixes - integrated required library - created minified sources - made macros slightly more flexible 2018-12-24 08:14:04 +00:00			`FPRINT`
			`PLA`
			`STA RETADR`
			`PLA`
			`STA RETADR+1`
FINISHED 0.3.0 updates - added rudimentary error detection to some fileio routines - separated fileio lib into individual routine files - changed txtmode to amode - added automatic applesoft mode to binsave,binload - a couple minor bugfixes / tweaks 2019-01-23 19:12:29 +00:00			`LDY #$01 ; POINT TO NEXT INSTR`
FileIO 0.2.0 updates - various bugfixes - integrated required library - created minified sources - made macros slightly more flexible 2018-12-24 08:14:04 +00:00			`:LP`
			`LDA (RETADR),Y`
			`BEQ :DONE`
			`JSR FCOUT`
			`INY`
			`BNE :LP`
			`:DONE`
FINISHED 0.3.0 updates - added rudimentary error detection to some fileio routines - separated fileio lib into individual routine files - changed txtmode to amode - added automatic applesoft mode to binsave,binload - a couple minor bugfixes / tweaks 2019-01-23 19:12:29 +00:00			`CLC ; RESTORE INSTR POINTER`
FileIO 0.2.0 updates - various bugfixes - integrated required library - created minified sources - made macros slightly more flexible 2018-12-24 08:14:04 +00:00			`TYA`
			`ADC RETADR`
			`STA RETADR`
			`LDA RETADR+1`
			`ADC #$00`
			`PHA`
			`LDA RETADR`
			`PHA`
			`RTS`