RSX Strings - 464 Only.

[AMSDOS]

This Type-in from AA53 always stood out in my mind as being a really useful routine for 464 Users to be able to include Strings in RSXes. Before one would have to declare a variable and store the contents of the String in that and then initiate the RSX with an @variable$

Code Select Expand


1 ' RSX Strings
2 ' Dominic Wise
3 ' AA53 - Feb 1990
10 MODE 1
20 INPUT"Assemble to &BEC0 ?",a$: IF UPPER$(a$)="Y" THEN st=&BEC0:GOTO 40
30 INPUT"Assembly address ?",a$: st=VAL(a$):IF st<=HIMEM THEN MEMORY st-1
40 FOR n=0 TO 6:t=0
50 FOR m=0 TO 8:READ a$:x=VAL("&"+a$):t=t+x:POKE st+d,x:d=d+1:NEXT
60 READ a$:IF VAL("&"+a$)=t THEN NEXT ELSE PRINT"Error in line ";10*n+70:PRINT HEX$(t,3):STOP
70 FOR n=0 TO 2:POKE st+26+n,PEEK(&AC04+n):NEXT
80 CALL st+39,st:CLS:PRINT"RSX strings utility installed at &";HEX$(st,4);".":PRINT
90 DATA 7b,fe,0d.20,14,e1,d1,d5,e5,526
100 DATA 21,3b,01,19,20,0a,3e,02,32,112
110 DATA c1,b0,e1,2a,c2,b0,37,5f,c9,54d
120 DATA c9,c9,21,9c,b0,22,9a,b0,b7,522
130 DATA 08,d9,c9,3e,c3,32,04,ac,eb,478
140 DATA 22,05,ac,3e,cd,32,ac,b9,11,386
150 DATA 1d,00,19,22,ad,b9,c9,00,00,287