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

FINPUT
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         PLA
         STA   ADDR1
         PLA
         STA   ADDR1+1
         LDX   #0
         JSR   FGETLN
         STX   :SLEN
         CPX   #0
         BEQ   :EXIT
:INP_CLR
         LDY   #0
         LDA   :SLEN
         STA   (ADDR1),Y  
:LP
         LDA   $0200,Y    
         INY
         STA   (ADDR1),Y
         CPY   :SLEN
         BNE   :LP
:EXIT
         LDA   RETADR+1
         PHA
         LDA   RETADR
         PHA
         RTS
:SLEN    DS    1
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			`FINPUT`
			`PLA`
			`STA RETADR`
			`PLA`
			`STA RETADR+1`
			`PLA`
			`STA ADDR1`
			`PLA`
			`STA ADDR1+1`
			`LDX #0`
			`JSR FGETLN`
			`STX :SLEN`
			`CPX #0`
			`BEQ :EXIT`
			`:INP_CLR`
			`LDY #0`
			`LDA :SLEN`
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`
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`
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 $0200,Y`
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			`INY`
			`STA (ADDR1),Y`
			`CPY :SLEN`
			`BNE :LP`
			`:EXIT`
			`LDA RETADR+1`
			`PHA`
			`LDA RETADR`
			`PHA`
			`RTS`
			`:SLEN DS 1`