Forums

Here are the pages of TMS7000 assembly source.   SPK is a  Forth word, coded in assembler.  It uses all the other subroutines listed here.     SPK has TRAP instructions to call subroutines I don't see here.  I infer that SPLDM loads VAL with a parameter from the stack.  SPINC2 increments the stack pointer.    SPK exits via BR *NEXT.   *----------------------------------------------------------* * SPK * * STACK: ADDR BITPOINTER #FRAMES PAUSE# RPTFRMS --> .. * * PERFORM VSP "SPEAK EXTERNAL COMMAND", GIVEN THE * * STARTING ADDRESS, BITPOINTER, NUMBER OF FRAMES, AND * * NUMBER OF TIMES TO SPEAK EACH FRAME (USED BY SPEED * * COMMAND) * * * * RPTFRM - 1-BYTE REGISTER, # OF TIMES TO REPEAT EACH * * FRAME (INPUT ARG) * * FRMCNT - TEMP 1-BYTE REGISTER USED TO COUNT # OF TIMES * * FRAME HAS BEEN SPOKEN (RPTFM DOWNTO 0) * * PAUSE - 2-BYTE REGISTER USED TO HOLD FRAME # TO PAUSE * * AFTER (INPUT ARG) * * ( FORTH: * * PAUSE := #FRAMES - (PAUSEAT - SFRAME) * * TEMP1 - 2-BYTE REGISTER USED TO HOLD # OF FRAMES TO * * SPEAK * * ( FORTH: #FRAMES : = EFRAME - SFRAME + 1 ) * * TEMP3 - 2-BYTE REGISTER, MEM ADDRESS FOR NEXT BYTE OF * * SPEECH DATA (INPUT ARG) * * TEMP2 - 1-BYTE REGISTER, BIT POINTER 0-7 FOR STARTING * * BIT (INPUT ARG) * * FRAMAD - 2-BYTE REGISTER, MEM ADDRESS FOR CURRENT FRAME * * TEMP2-1 TEMPORARY BYTE LOCATION * * FRAMBT - 1-BYTE REGISTER, BIT POINTER FOR CURRENT FRAME * * ENDFRM - 1-BYTE REGISTER USED W/EXAMIN ROUTINE WHICH * * DETECTS END OF FRAME * *----------------------------------------------------------* TRAP SPLDM GET RPTFRMS MOV VAL,VAL JNE SPK1 INC VAL IF ZERO PASSED, MAKE IT 1 SPK1 EQU $ MOV VAL,RPTFRM TRAP SPINC2 TRAP SPLDM GET PAUSE# MOVD VAL,PAUSE INTO PAUSE TRAP SPINC2 TRAP SPLDM GET #FRAMES TRAP VALTO1 INTO TEMP1 TRAP SPINC2 TRAP SPLDM GET BITPOINTER MOV VAL,TEMP2 INTO TEMP2 TRAP SPINC2 TRAP SPLDM GET ADDRESS MOVD VAL, TEMP3 INTO TEMP3 TRAP SPINC2 CMP %8,TEMP2 ADJUST BIT POINTER TO BE 0-7 JN SPK2 JUMP IF LESS THAN 8 SUB %8, TEMP2 ELSE SUBTRACT 8 INC TEMP3 INCREMENT ADDRESS ADC %0,TEMP3-1 *--------------------------------------------------* * INITIALIZE ALL REMAINING REGISTERS * *--------------------------------------------------* SPK2 EQU $ MOVD TEMP3,FRAMAD FRAMAD := TEMP3 (ADDRESS) MOV TEMP2,FRAMBT FRAMBT := TEMP2 (BITPOINTER) MOV RPTFRM,FRMCNT FRMCNT := RPTFRM CALL @SPKINT FRMLEN/BITPNT/ENERGY/REPEET/PITCH CLR ENDFRM ENDERM := 0 *--------------------------------------------------* * ISSUE THE "SPEAK EXTERNAL" COMMAND TO VSP * *--------------------------------------------------* MOV %SPKEXT,A VSP SPEAK EXTERNAL COMMAND CALL @VSPOUT CALL @GNXT8 GET FIRST BYTE *--------------------------------------------------* * TOP OF "EXAMIN" LOOP * * ASSUMES A-REGISTER CONTAINS DATA TO BE EXAMINED * * ENDFRM = BITPOINTER TO START EXAMINING (0 TO 7) * *--------------------------------------------------* SPK3 EQU $ CALL @EXAMIN MOV ENDFRM,ENDFRM JNE NOTZ JUMP IF ENDFRM <> 0 CALL @VSPOUT ENDFRM = 0, SEND BYTE TO VSP CALL @GNXT8 GET NEXT BYTE JMP SPK3 NOTZ EQU $ ENDFRM <> 0 CMP %1,FRMCNT DOES FRAME NEED REPEATING? JP NOTZ2 YES! DONT CARE IF STOP FOUND MOV STOPCD,STOPCD FOUND STOP CODE ? JZ NOTZ2 NO STOP CODE BR @SPKSTP YES, FOUND STOP CODE NOTZ2 EQU $ CMP %8,ENDFRM NO, BUT IS ENDFRM=8 ? JNE SPK4 JUMP IF ENDFRM <> 8 CALL @VSPOUT ELSE SEND BYTE VSP CLR ENDFRM AND SET ENDFRM := 0 *--------------------------------------------------* * SEND FRAME AGAIN? * *--------------------------------------------------* SPK4 EQU $ DJNZ FRMCNT,SPKAA DEC FRAME COUNT *--------------------------------------------------* * NO, DON'T SEND FRAME AGAIN * *--------------------------------------------------* MOV RPTFRM,FRMCNT RESET FRMCNT AND GO ON JMP SPK5 *--------------------------------------------------* * YES, MUST SEND THIS FRAME AGAIN *--------------------------------------------------* SPK4A EQU $ MOVD FRAMAD,TEMP3 RESET SPEECH DATA POINTERS MOV FRAMBT,TEMP2 TO BEGINNING OF FRAME CALL @SPKINT INITIALIZE FRAME VARIABLES CALL @SPKCLR CLEAR UNUSED BITS IN A-REG PUSH A SAVE ORIGINAL VALUE OF A-REG CALL @GNXT8 GET 1ST 8 BITS FROM SAME FRAME MOV ENDFRM,ENDFRM ENDFRM = O ? JNE SPK4B YES, GO PACK NEW DATA POP B NO, DATA OCCUPIES ENTIRE BYTE JMP SPK4C SO JUST THROW AWAY ORIGINAL A SPK4B EQU $ MOV %8, B TEMP2 := TEMP2 + (8 - ENDFRM) SUB ENDFRM,B ADD B,TEMP2 CMP %7,TEMP2 IF TEMP2 <= 7 THEN DEC TEMP3 JP SPK4B1 ELSE TEMP2 : = TEMP2 - 8 DECD TEMP3 JMP SPK4B2 SPK4B1 EQU $ SUB %8, TEMP2 SPK4B2 EQU $ MOV ENDFRM, B SPK4B3 EQU $ CLRC SHIFT IN ZEROES RLC A DJNZ B,SPR4B3 POP B GET ORIGINAL VALUE OF A-REG OR B,A PACK IN THE (8-ENDFRM) BITS SPK4C EQU $ BR @SPK3 GO BACK TO TOP OF LOOP *--------------------------------------------------* * ARE WE AT THE "PAUSE" FRAME? * *--------------------------------------------------* SPK5 EQU $ DECD TEMP1 IF TEMP1-PAUSE THEN "PAUSE" CMP TEMP1-1,PAUSE-1 JNE SPK6 TEMP1 <> PAUSE, GO ON TO SPK6 CMP TEMP1, PAUSE JNE SPK6 TEMP1 <> PAUSE, GO ON TO SPK6 *--------------------------------------------------* * YES, WE ARE AT THE PAUSE FRAME (INSERT 10 * * SILENT FRAMES) * *--------------------------------------------------* PUSH A SAVE CURRENT BYTE CALL @SPKCLR CLEAR UNUSED BITS IN A-REG CALL @VSPOUT BYTE 1 - INCLUDES RESIDUE FROM CLR A PREVIOUS FRAME CALL @VSPOUT BYTE 2 CLR A CALL @VSPOUT BYTE 3 CLR A CALL @VSPOUT BYTE 4 MOV %>FF,TEMP2-1 DONE SHOVING OUT SILENT FRAMES MOV ENDFRM, B NOW MUST GET BACK ON TRACK SPK5A EOU $ SHIFT IN "O" BITS TO OLD A-REGISTER CLRC TO END THE 10TH ZERO-ENERGY FRAME RLC TEMP2-1 DJNZ B,SPK5A POP A GET ORIGINAL DATA AND TEMP2-1,A CLEAR THE BITS ALREADY USED UP *--------------------------------------------------* * SPOKEN ALL FRAMES? *--------------------------------------------------* SPK6 EOU $ MOV TEMP1-1,TEMP1-1 FRAME COUNTER ALREADY DEC'D JNE SPK6A JUMP IF FRAME COUNTER <> O MOV TEMP1,TEMP1 JEQ SPK6B JUMP IF FRAME COUNTER = 0 SPK6A EQU $ NOT SPOKEN ALL FRAMES YET CALL @SPKPTR RESET FRAMAD/FRAMBT POINTERS MOV ENDFRM,ENDFRM ENDFRM=0 ? JZ SPK6A1 CALL @VSPOUT JUMP IF ALREADY SENT BYTE SPK6A1 EQU $ IF ENDFRM <> 0 SEND BYTE VSP CLR ENDFRM CALL @GNXT8 GET NEXT BYTE BR @SPK3 GO BACK TO TOP OF LOOP SPK6B EOU $ YES, SPOKEN ALL FRAMES MOV ENDFRM,ENDFRM JNE SPK6B1 MOV %>F,A ENDFRM = 0 JMP SPKSTP SPK6B1 EOU $ ENDERM <> 0 CALL @SPKCLR CLEAR UNUSED BITS IN A-REGISTER MOV %8,B SUB ENDFRM,B B := (8 - ENDFRM) PUSH A SAVE ORIGINAL VALUE OF A CLR A USE A FOR BIT "OR" MASK MOV %>F,TEMP2-1 TEMP2-1 := VSP "STOP CODE" SPK6B4 EQU $ CLRC RRC TEMP2-1 SHIFT "STOP CODE" INTO RRC A A-REGISTER DJNZ B,SPK6B4 POP B GET ORIGINAL VALUE OF A OR B,A "OR" IN THE STOP CODE CMP %4,ENDFRM IF ENDFRM < 4, WHOLE STOP CODE JN SPKSTP IS IN A-REGISTER CALL @VSPOUT ELSE, SOME OF IT STILL IN TEMP2-1 MOV TEMP2-1,A *--------------------------------------------------* * STOP CODE DETECTED IN A-REGISTER *--------------------------------------------------* SPKSTP EQU $ CALL @VSPOUT SEND LAST BYTE OF DATA MOV %8,TEMP1 SEND 8 MORE BYTES NOP SPKST1 EQU $ CLR A TO GET THROUGH VSP FIFO CALL @VSPOUT DJNZ TEMP1,SPKST1 CALL @VSPTS WAIT FOR TALK STATUS LOW BR *NEXT  

I think the 2600/7800 module would be for people who have the base unit and want to be able to play 2600 and 7800 cartridges, too. I doubt they are looking at the module as a system seller.   Now the Atari module is supposed to be able to connect to the VCS 800 and be able to play cartridges using an app without the need for the base unit. That would be nice.   I do not think either of those methods of using the module would eat into 2600+ sales all that much, if at all.

Played through that game decades ago- loved it- and didn’t know about comedy mode until today. Curse you, internet!

Atari is just trolling Amico at this point… releasing next month!   https://www.nintendolife.com/news/2024/05/ataris-first-sprint-game-in-three-decades-launches-on-switch-next-month     Quick, Amico shills, explain how Sideswipers is better. Bonus points for a “marketing” anecdote.

Thanks for the link!   Those are definitely a possibility.    

That’s sick!  Would have been cool to have it complete like that.  Is that from your collection??

Not much playing this week    Android Rebuild - 15 min   PC Modern Darkside Detective: A Fumble - 90 min

Do we have a picture of the solder side of these 65XEN boards?  I can't find one.

I can verify that PCE/TG16 games work using the .pce extension. Kinda cool to play those classic PC Engine shooters with a joystick. Gives it that arcade feel.

As Tillek indicated, you have to ask the fTelnet author to get whitelisted. I have no idea how long it takes. I was surprised to discover that The Basement BBS was whitelisted. I don't remember requesting it. If I did request it, it was probably a while back. There is another BBS website that supports fTelnet called "I ping therefore I am", https://www.ipingthereforeiam.com/bbs/   The maintainer of this website whitelists everyone that gets listed on their website. -JP