Jump to content

RXB

Members
  • Content Count

    3,890
  • Joined

  • Last visited

  • Days Won

    2

RXB last won the day on November 20 2016

RXB had the most liked content!

Community Reputation

1,432 Excellent

About RXB

  • Rank
    River Patroller
  • Birthday 01/22/1954

Profile Information

  • Gender
    Male
  • Location
    Vancouver, Washington, USA
  • Interests
    Computers, Science, Technology, TI99/4A
  • Currently Playing
    World of Warcraft. Left4Dead, CoD4
  • Playing Next
    Mosty TI games and some CoD or Diablo

Recent Profile Visitors

17,168 profile views
  1. So does RXB version 1005 on. Also REA is in GROM 7 too.
  2. Yea I have a patch that loads EA support into space GRAM not used above TI Basic. RXB has built in EA cart but TI Basic Support had to be moved.
  3. To bad: 100 ! THIS PROGRAM DOES NOT 110 ! USE ANY ASSEMBLY 120 ! RXB COMMANDS ARE 130 ! THE ONLY COMMANDS 140 ! USED. THAT MEANS THE 150 ! SAMS CAN HAVE ANY PAGE 160 ! SWAPED FROM RXB. 170 !********************* 180 !* * 190 !* XB AMS CARD * 200 !* QUERY PROGRAM * 210 !* * 220 !********************* 230 !VERSION 1.07.951206 240 !BY P. E. SCHIPPNICK 250 !MODIFIED FOR RXB 260 !BY RICH GILBERTSON 270 ! RXB VERSION 2018 280 CALL CLEAR :: GOSUB 290 :: GOTO 300 290 CALL VCHAR(1,31,31,96) :: RETURN 300 FOR I=1 TO 14 :: CALL COLOR(I,2,8) :: NEXT I 310 CALL SCREEN(15) 320 GOTO 340 330 DISPLAY AT(ROW,(28-LEN(TEXT$))/2):TEXT$ :: RETURN 340 ROW=10 :: TEXT$="TI EXTENDED BASIC" :: GOSUB 330 350 ROW=11 :: TEXT$="AMS CARD" :: GOSUB 330 360 ROW=12 :: TEXT$="QUERY PROGRAM" :: GOSUB 330 370 ROW=13 :: TEXT$="VERSION 1.07" :: GOSUB 330 380 ROW=15 :: TEXT$="BY P. E. SCHIPPNICK" :: GOSUB 330 390 ROW=17 :: TEXT$="MODIFIED FOR RXB" :: GOSUB 330 400 ! SET-UP ASSEM SUPPORT 410 GOSUB 1100 420 ! TEST MAP/PASS 430 GOSUB 1130 440 ! TEST FOR AMS SIZE 450 GOSUB 920 460 ! MAPPED PAGES 470 GOSUB 610 480 IF M2=M3 THEN CALL CLEAR :: GOSUB 290 :: PRINT:"* NO AMS CARD" :: CALL SOUND(150,219,5) :: END 490 CALL CLEAR :: GOSUB 290 500 ROW=1 :: TEXT$=" *** AMS QUERY PROGRAM ***" :: GOSUB 330 :: ROW=2 :: TEXT$="VERSION 1.07" :: GOSUB 330 510 AMSSIZE$=STR$(AMSSIZE)&"K RAM" 520 ROW=8 :: TEXT$=" AMS MEMORY = "&AMSSIZE$ :: GOSUB 330 530 IF MAPON=0 THEN ROW=12 :: TEXT$=" AMS CARD 32K PASS MODE" :: GOSUB 330 :: GOTO 600 540 ROW=9 :: TEXT$=" AMS IN MAPPED MEMORY MODE" :: GOSUB 330 550 ROW=12 :: TEXT$="PAGES 8K MEMORY:" :: GOSUB 330 560 ROW=13 :: TEXT$=STR$(M2+O*(M2>=O))&" "&STR$(M3+O*(M3>=O)) :: GOSUB 330 570 ROW=15 :: TEXT$="PAGES 24K MEMORY:" :: GOSUB 330 580 ROW=16 :: TEXT$=STR$(MA+O*(MA>=O))&" "&STR$(MB+O*(MB>=O))&" "&STR$(MC+O*(MC>=O))&" "&STR$(MD+O*(MD>=O))&" "&STR$(ME+O*(ME>=O))&" "&STR$(MF+O*(MF>=O)) :: GOSUB 330 590 ROW=18 :: TEXT$="1-"&STR$(AMSSIZE/4)&" PAGES AVAILBLE." :: GOSUB 330 600 END 610 ! MAPPED AT 23ABCDEF 620 CALL SAMS("ON") 630 CALL PEEK(24548,M2) :: CALL PEEK(24550,M3) :: CALL PEEK(24564,MA) :: CALL PEEK(24566,MB) :: CALL PEEK(24568,MC) :: CALL PEEK(24570,MD) :: CALL PEEK(24572,ME) 640 CALL PEEK(24574,MF) 650 CALL SAMS("OFF") 660 RETURN 670 ! MAP 2,3,A,B,C,D,E,F 680 CALL SAMS("ON") 690 CALL LOAD(24548,2) :: CALL LOAD(24550,3) :: CALL LOAD(24564,10) :: CALL LOAD(24566,11) :: CALL LOAD(24568,12) :: CALL LOAD(24570,13) :: CALL LOAD(24572,14) 700 CALL LOAD(24574,15) 710 CALL SAMS("OFF") 720 RETURN 730 ! MAP 23 ABCDEF 740 GOSUB 670 750 CALL SAMS("MAP") 760 RETURN 770 ! MAP 23 ABCDEF 780 GOSUB 670 790 CALL SAMS("PASS") 800 RETURN 810 ! MAP MODE ON/OFF 820 CALL SAMS("ON") :: CALL PEEK(-31804,H1,H2) :: IF H1+H2 THEN CALL ISROFF(ADDRESS) 830 CALL PEEK(24548,M2) :: CALL PEEK(24550,M3) :: CALL LOAD(24550,M2) :: CALL PEEK(8198,A1,B1) :: CALL PEEK(12294,A2,B2) 840 IF A1=A2 AND B1=B2 THEN MAPON=1 ELSE MAPON=0 850 CALL LOAD(24550,M3) 860 IF H1+H2 THEN CALL ISRON(ADDRESS) 870 CALL SAMS("OFF") 880 RETURN 890 CALL PEEK(12288,OLDV) :: NEWV=255-OLDV :: CALL LOAD(12288,NEWV) :: CALL PEEK(12288,TESTV) :: IF TESTV<>OLDV AND TESTV=NEWV THEN MEM=1 ELSE MEM=0 900 IF MEM=1 THEN CALL LOAD(12288,OLDV) 910 RETURN 920 ! FIND AMS SIZE 930 GOSUB 810 :: IF MAPON=0 THEN GOSUB 730 940 CALL PEEK(-31804,H1,H2) :: IF H1+H2 THEN CALL ISROFF(ADDRESS) 950 ! MAP LOWER PAGES 23 960 CALL SAMS("ON") :: CALL PEEK(24548,M2) :: CALL PEEK(24550,M3) 970 CALL LOAD(24548,2,"",24550,3) :: GOSUB 1100 980 CALL PEEK(8194,MB1,LB1,MB2,LB2) :: CALL LOAD(8194,MB2,LB2,MB1,LB1) 990 ! 1024K/4=240 PAGES 1000 E=256 :: CALL PEEK(24550,M3) 1010 CALL LOAD(24550,2+E) :: CALL PEEK(12290,A,B,C,D) :: IF A=MB2 AND B=LB2 AND C=MB1 AND D=LB1 THEN AMSSIZE=E*4 :: GOTO 1050 1020 GOSUB 890 :: IF MEM=0 THEN AMSSIZE=E*4 :: GOTO 1050 1030 E=E+32 :: IF E<255 THEN 1010 1040 AMSSIZE=E*4 1050 CALL LOAD(24550,2) :: CALL LOAD(8194,MB1,LB1,MB2,LB2) :: CALL LOAD(24548,M2,"",24550,M3) 1060 IF MAPON=0 THEN CALL SAMS("PASS") 1070 IF H1+H2 THEN CALL ISRON(ADDRESS) 1080 CALL SAMS("OFF") 1090 RETURN 1100 ! EXPANSION MEMORY? 1110 CALL PEEK(-31863,A) :: IF A<>231 THEN CALL SOUND(150,218,0) :: PRINT "* NO EXPANSION MEMORY" :: STOP 1120 RETURN 1130 ! TEST MAP/PASS MODE? 1140 CALL SAMS("ON") :: CALL PEEK(24544,M0) :: CALL LOAD(24544,0) :: CALL PEEK(24544,O) :: CALL LOAD(24544,M0) :: CALL SAMS("OFF") :: RETURN 1150 END New RXB 2020 version CALL SAMS($ value) can be ON OFF MAP or PASS, also address can be used to switch any 4K spot in SAMS to any page.
  4. RXB has a SAMS test too writing in XB only.
  5. I use COPY-C as proven over and over it can copy every Disk with any copy protection to another disk. I do not know of any other TI99/4A disk program that can do this, closest is a Forth program that can do most too. COPY-C.zip
  6. I think there was a modified upgrade to the GRAMKRACKER that did that just two bytes and it auto bypassed title screen, take a look at the header to see.
  7. Yea well I swapped out the XB RND for TI Basic RND for the speed difference not accuracy. (Bonus was a lot of more GRAM space.)
  8. RXB got: MEAN: 5.923564439 SD: 2.929720887 That seems odd as second run says: MEAN: 5.965401107 SD: 2.921225948
  9. BUT YOU CAN RUN IT FROM A USB DRIVE AND IT IS CRAZY FAST FROM A USB DRIVE! ALSO YOU CAN RUN IT ON ANY PC NOT JUST A MAC, SO CAN IT RUN FROM A RASPBERRY PI?
  10. DAMN this is boss! I need to explore this as it has all the features of Linux but is so Mac like it is crazy. Also more tools then Linux!!!!
  11. I think assembly for the SAMS is fast but sucks to change pages. My entire code of Assembly for SAMS in RXB: [1802] *********************************************************** [1803] * CPU PROGRAM FOR >8300 SCATCH PAD SUBROUTINE AMSCRU * [1804] *********************************************************** [1805] * * AORG >8300 [1806] C96B 83,02 AMSCRU DATA >8302 * AMSCRU DATA >8302 * First address. [1807] C96D C0,4C DATA >C04C * MOV R12,R1 * Save R12 [1808] C96F 02,0C DATA >020C * LI R12,>1E00 * Load CRU bits [1809] C971 1E,00 DATA >1E00 * [1810] C973 1D,00 DATA >1D00 * SBO 0 * Set bits ones [1811] C975 C3,01 DATA >C301 * MOV R1,R12 * Restore R12 [1812] C977 04,E0 DATA >04E0 * CLR @>837C * Clear for GPL [1813] C979 83,7C DATA >837C * [1814] C97B 04,5B DATA >045B * RT * Return to GPL. [1815] * END [1816] *********************************************************** [1817] * CPU PROGRAM FOR >8300 SCRATCH PAD CPU ISR HOOK ON * [1818] *********************************************************** [1819] * * AORG >8300 [1820] C97D 83,02 GISRON DATA >8302 * DATA >8302 [1821] C97F C8,20 DATA >C820 * MOV @>834A,@>83C4 [1822] C981 83,4A DATA >834A * [1823] C983 83,C4 DATA >83C4 * [1824] C985 04,E0 DATA >04E0 * EXIT CLR @>837C [1825] C987 83,7C DATA >837C * [1826] C989 04,5B DATA >045B * RT [1827] * * END [1828] *********************************************************** [1829] * CPU PROGRAM FOR >8300 SCRATCH PAD CPU ISR HOOK OFF * [1830] *********************************************************** [1831] C98B 83,02 GISROF DATA >8302 * DATA >8302 [1832] C98D C8,20 DATA >C820 * ISROFF MOV @>83C4,@>83C4 [1833] C98F 83,C4 DATA >83C4 * [1834] C991 83,C4 DATA >83C4 * [1835] C993 13,05 DATA >1305 * JEQ NHOOK [1836] C995 C8,20 DATA >C820 * MOV @>83C4,@>834A [1837] C997 83,C4 DATA >83C4 * [1838] C999 83,4A DATA >834A * [1839] C99B 04,E0 DATA >04E0 * NHOOK CLR @>83C4 [1840] C99D 83,C4 DATA >83C4 * [1841] C99F 04,E0 DATA >04E0 * CLR @>837C [1842] C9A1 83,7C DATA >837C * [1843] C9A3 04,5B DATA >045B * RT [1844] * * END [1845] *********************************************************** 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0033 EQUATES ALCS-359 [1846] * CPU PROGRAM FOR >8300 SCATCH PAD SUBROUTINE EXECUTE * [1847] *********************************************************** [1848] * AORG >8300 * [1849] C9A5 83,02 CPUPGM DATA >8302 * CPUPGM DATA >8302 First address. * [1850] C9A7 04,20 DATA >0420 * BLWP @>834A Switch contex * [1851] C9A9 83,4A DATA >834A * FAC not used * [1852] C9AB 04,E0 DATA >04E0 * CLR @>837C Clear for GPL * [1853] C9AD 83,7C DATA >837C * * [1854] C9AF 04,5B DATA >045B * RT Return to GPL. * [1855] * END * [1856] ******************************************************* This code handles CPU programs/CRU/ISRhook/DSR SAMS and is total of 68 bytes. Also only runs from Scratch pad RAM only. It swaps out the same area in scratch pad RAM thus never has any affect on RAM in 32K, this means swapping pages instantly faster.
  12. Yea I got them reversed but then I wrote all these new memory pointers and it was late. You can change locations of VDP STACK, number of File Buffers to even 0 (ZERO) buffers, change RAM size and top of RAM, even only have 8K of upper RAM if you want. Not to mention a new Program Loader that puts Program Image files into memory ANYWHERE you want. And ties into using the SAMS or not it can do both. Example load 4K program image into >E000 and also have XB program in memory at same time and also change VDP stack so you can run Text mode.
  13. I have a lot of floppy disks for the TI994a that I would like to put on my pc and then into emulators.  I have the SW99er's library and a lot of programs in 9900 Assembly l wrote and need to transfer.  I also have the programs that my son and I wrote from "Red Baron Software", not to be confused with the Red Baron game from a company of a similar name.  I am writing some new software for the TI but need to be able to get the files transferred.  My TI computer with a disk drive was working but seems to have stopped read my disks.  I see from the posts that this was talked about a few years ago, but I don't seem to be able read any TI disks on my PC.  Any help would be appreciated.  Thank you Ricki

    1. Show previous comments  6 more
    2. RXB

      RXB

      I would use FW as that is more common

       

    3. RedBaron

      RedBaron

      I am sorry but what is FW?  I want to just give everything to the TI community.

    4. RXB

      RXB

      I would use FW as that is more common

       

      Funnel Web package it has everything on one disk. DSDD or DSQD, you can get a SSSD disk to work but totally at bare minimum.

       

  14. Been debugging and looking for bugs in RXB 2020 and looking really good for a release date on time, maybe before May as a release date. Documents mostly done. Some example programs done. Debugging is close to done.
×
×
  • Create New...