Author Topic: RSX Strings - 464 Only.  (Read 1388 times)

0 Members and 1 Guest are viewing this topic.

Offline AMSDOS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 3.939
  • Country: au
    • index.php?action=treasury
    • Programs for Turbo Pascal 3
    • Awards
RSX Strings - 464 Only.
« on: 12:16, 29 July 10 »
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]

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
like
0
No reactions
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3