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

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  ; PUT LENGTH AT START
:LP
         LDA   $0200,Y    ; KEYBOARD BUFFER
         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`
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			`STA (ADDR1),Y ; PUT LENGTH AT START`
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`
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			`LDA $0200,Y ; KEYBOARD BUFFER`
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`