.export _read
.constructor initstdin
- .import popax
+ .import popax, popptr1
.importzp ptr1, ptr2, ptr3
.forceimport disable_caps
eor #$FF
sta ptr2+1 ; Remember -count-1
- jsr popax ; get buf
- sta ptr1
- stx ptr1+1
+ jsr popptr1 ; get buf
jsr popax ; get fd and discard
L1: inc ptr2
;--------------------------------------------------------------------------
-.bss
+.segment "INIT"
text_count:
.res 1
-