Jump to content
IGNORED

RXB 2024 update


RXB

Recommended Posts

Ran some more timing tests:

 


90 ! ROUTINE SET UP SPRITES TEST SO NOT PART OF TIMING ROUTINE
100 CALL CLEAR
110 OPEN #1:"CLOCK"
120 INPUT #1:A$,B$,C$
130 FOR C=1 TO 10000
140 ! ROUTINE INSERTED HERE TO TEST
150 NEXT C
160 INPUT #1:D$,E$,F$
170 PRINT A$,D$:B$,E$,C$,F$
180 END 

   XB       XB3     XBGEM   MyarcXB2   RXB   command
-------------------------------------------------------------------------
  11:5      9:10     3:11      5:6     3:21  CALL CHAR(65,"FFFFFFFF")
2:57:15    34:18     5:33      6:19    4:42  CALL CHAR(65,Z$) ! LENGTH 64
  11:32     7:19     4:1       5:14    4:5   CALL CHARPAT(65,Z$)
  32:44     33:6  1:11:47      5:1     4:8   CALL CHARSET
   3:49     3:29     3:43      8:48    3:41  CALL CLEAR
   6:25     6:25     6:24      7:22    6:19  CALL COINC(#1,20,20,8,Z)
   3:0      3:0      3:0       4:3     3:4   CALL COINC(ALL,Z)
   4:33     4:15     4:15      5:4     4:24  CALL COLOR(1,2,8)
   3:9      3:9      3:9       4:6     2:36  CALL DELSPRITE(#1)
   6:22     6:23     6:22      4:18    5:33  CALL DELSPRITE(ALL)  
   6:5      6:6      6:6       6:0     6:1   CALL DISTANCE(#1,20,20,Z)
   6:6      3:7      4:10      5:9     4:2   CALL GCHAR(1,1,Z)
   4:11     3:1      4:5       5:5     4:17  CALL HCHAR(1,1,65)
4:37:35  4:39:17     9:31     14:12    7:33  CALL HCHAR(1,1,65,768)
   5:0      3:2      5:6       6:43    5:7   CALL JOYST(1,X,Y)
   4:37     3:25     4:38      5:16    5:2   CALL KEY(1,K,S)
   4:4      4:4      4:4       5:13    4:17  CALL LOCATE(#1,20,20)
   2:17     2:11     2:14      3:45    2:14  CALL MAGNIFY(1)
   4:44     4:44     4:44      6:42    4:41  CALL MOTION(#1,20,20)  
   3:8      3:17     3:17      5:27    3:4   CALL PATTERN(#1,66)
   5:22     5:22     5:31      5:25    5:9   CALL POSITION(#1,X,Y)
   3:44     2:11     2:6       4:3     2:17  CALL SCREEN(5)
   5:9      5:8      5:9       6:30    5:7   CALL SPRITE(#1,65,2,10,10)
   3:55     3.0      4:5       5:5     4:17  CALL VCHAR(1,1,65)
4:30:22  4:30:41    18:29     18:11   21:3   CALL VCHAR(1,1,65,768)
  10:2      8:13    10:1       6:18   10:3   DISPLAY AT(9,9):C
  21:10    13:41    11:49     11:29   12:13  DISPLAY AT(9,9):RND
   8:22     6:43     8:22      6:17    8:21  DISPLAY AT(9,9):"TEST"
  12:13     5:3      7:16      3:8     3:9   A=RND
******************************************************************************
* RXB COMMANDS
 DISPLAY  DISPLAY  DISPLAY  DISPLAY    5:6   CALL HPUT(11,11,C)
 DISPLAY  DISPLAY  DISPLAY  DISPLAY    7:12  CALL HPUT(11,11,RND)
 DISPLAY  DISPLAY  DISPLAY  DISPLAY    4:29  CALL HPUT(11,11,"TEST")
  14:17    10:10    15:42     16:16   11:50  CALL JOYLOCATE(1,X,Y,8,8,#1,RW,CL,K) GOTO 
  15:53    10:20    15:3      16:1    10:2   CALL JOYMOTION(1,X,Y,#1,9,9,K) GOTO
   7:7      5:11     7:7      11:3     9:33  CALL ONKEY("ABC",1,K,S) GOTO 1,2,3
   N/A      N/A      N/A       N/A     7:26  CALL COLLIDE(#1,20,20,8,X,Y)
   N/A      N/A     10:31      N/A    11:39  CALL MOVES("RR",1024,8192,12288) 
******************************************************************************
80 ! JOYLOCATE FOR OTHERS   
90 CALL SPRITE(#1,65,2,20,20) :: XL,YL=20
100 CALL CLEAR
110 OPEN #1:"CLOCK"
120 INPUT #1:A$,B$,C$
130 FOR C=1 TO 10000
140 CALL JOYST(1,X,Y) :: CALL LOCATE(#1,X+XL,Y+YL) :: CALL KEY(1,K,S) 
:: IF K=18 THEN 150
150 NEXT C
160 INPUT #1:D$,E$,F$
170 PRINT A$,D$:B$,E$,C$,F$
180 END
*****************************************************************************
80 ! JOYMOTION FOR OTHERS
90 CALL SPRITE(#1,65,2,20,20) :: XL,YL=20
100 CALL CLEAR
110 OPEN #1:"CLOCK"
120 INPUT #1:A$,B$,C$
130 FOR C=1 TO 10000
140 CALL JOYST(1,X,Y) :: CALL MOTION(#1,X*9,Y*9) :: CALL KEY(1,K,S) 
:: IF K=18 THEN 150
150 NEXT C
160 INPUT #1:D$,E$,F$
170 PRINT A$,D$:B$,E$,C$,F$
180 END
****************************************************************************
80 ! ONKEY FOR OTHERS
90 CALL SPRITE(#1,65,2,20,20) :: XL,YL=20
100 CALL CLEAR
110 OPEN #1:"CLOCK"
120 INPUT #1:A$,B$,C$
130 FOR C=1 TO 10000
140 CALL KEY(1,K,S) :: IF K=65 THEN 150 ELSE IF K=66 THEN 150 ELSE IF 
K=67 THEN 150 ELSE 150
150 NEXT C
160 INPUT #1:D$,E$,F$
170 PRINT A$,D$:B$,E$,C$,F$
180 END
****************************************************************************

 

  • Like 1
Link to comment
Share on other sites

  • 2 weeks later...
  • 3 weeks later...

Just a heads-up: I'm having trouble with the latest 2024B version of RXB (this works with the 2023 and previous RXB versions, along with TI XB)

 

image.png.523e92ee59ea04a2f18e94708f795860.png

 

It is the auto load file from The Locked Room:

 

On 5/27/2023 at 12:50 PM, Shift838 said:

I have converted the original Adventure Cartridge APL adventure of mine (The Locked Room) to run from an Infocom Interpreter.

 

The below link will allow you to download the disk image.  It has Infocom Interpreters for 40 Column, 80 Column for the 9938/58 and a F18A 80 column.  Just autoload from Extended Basic.

 

Click HERE to download disk image

 

Link to comment
Share on other sites

15 hours ago, JasonACT said:

Just a heads-up: I'm having trouble with the latest 2024B version of RXB (this works with the 2023 and previous RXB versions, along with TI XB)

 

image.png.523e92ee59ea04a2f18e94708f795860.png

 

It is the auto load file from The Locked Room:

 

 

OK right found the error!

Working on a fix should be done today and release RXB 2024C

  • Like 2
Link to comment
Share on other sites

16 hours ago, JasonACT said:

Just a heads-up: I'm having trouble with the latest 2024B version of RXB (this works with the 2023 and previous RXB versions, along with TI XB)

 

image.png.523e92ee59ea04a2f18e94708f795860.png

 

It is the auto load file from The Locked Room:

 

 

RXB 2024C

RXB 2024C.zip

  • Like 4
  • Thanks 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...