Press & Store 6510 ASM

READY.
1 REM OPEN15,8,15,"S0:INSCREEN.ATA":CLOSE15:SAVE"INSCREEN.ATA",8
10 SYS $7000
20 .OPT P,OO
30 *=$033C
40 GETIN=$FFE4
50 CHKSTOP=$FFE1
60 SCREEN1=$0400
70 SCREEN2=SCREEN1+$FF
80 SCREEN3=SCREEN2+$FF
90 SCREEN4=SCREEN3+$FF
100 NX JSR GETIN
110 BEQ NX
120 LDX #00
130 S1 STA SCREEN1,X
140 INX
150 CPX #$FF
160 BNE S1
170 LDX #00
180 S2 STA SCREEN2,X
190 INX
200 CPX #$FF
210 BNE S2
220 LDX #00
230 S3 STA SCREEN3,X
240 INX
250 CPX #$FF
260 BNE S3
270 LDX #00
280 S4 STA SCREEN4,X
290 INX
300 CPX #$FF
310 BNE S4
320 JSR CHKSTOP
330 BNE NX
340 LDA #$93
350 JSR $FFD2
360 RTS
370 .END

READY.