Forums

What does the TRAP instruction do?

Yep.  Overall I think the whole idea and concept is awesome, for the original currently available system, and any forthcoming app / VCS integration.  I just wish the reception by the general public was better than what it appears to be from my brief look into it.  Maybe with the help of Atari's ownership stake, they can get some more traction in the market.

I'm assuming that you mean that it was a standard Atari 800 computer with standard 5200 OS ROM, right?   I've made an experiment. Instead of adapting these Tempest ROMs to the standard 5200, I went the other way. I took the 5200 BIOS ROM and prepended it with 8 KB of emptiness, to be able to use it as a 10 KB 400/800 ROM in an emulator. I also replaced all the references to GTIA and ANTIC addresses with the proper values for the 800 computer; otherwise the system would not boot. I used this modified ROM as an OS ROM for the 800 computer, so now I am having a somewhat plausible recreation of the Atari 800 Black Box system 🙂   Then I loaded the Tempest ROM from the first post, selecting "Standard 16 KB cartridge" as its type (specifically I did not choose any of the "5200 cartridge" types). And voila! the game booted, with the 5200 splash screen and all.   Of course, the controller incompatibilities immediately come into play: the console expects paddle inputs instead of standard joystick, and to simulate pressing the 5200 keypad keys, one needs to press multiple keys on the keyboard simultaneously. So to simulate the 5200 joystick: - Directions: use paddles - Bottom fire: press Fire on joystick - Top fire: press Shift and Break - Start: press F and H - Pause: press = and V - Reset: press Inverse Video and R - 1: press 2 and 1 - 2: press Esc and 5 - 3: press 3 and 6 - 4: press X and Z - 5: press Backspace and 8 - 6: press 0 and 7 - 7: press W and Q - 8: press Tab and T - 9: press P and U - *: press / and Inverse Video - 0: press F2 and K - #: press . and N   With that in mind, I've checked both Tempest ROMs. "temp.bin" appears to be an early demo with invinciblity and very limited enemies programmed in. "demo.bin" is more advanced, but still the variety of enemies is limited and there is invincibility.   Attached is the modified 5200 BIOS ROM for use as a 400/800 OS, if anyone wants to test the game themselves. Atari 5200 rev1 black box.rom

To quote the Tragically Hip, here: "in the Dark".

You'll have to wait and see.  I don't want to spoil it. 

Medieval Mayham? Marble Craze? Brik?🤔

And the subroutines: SPKINT        INITIALIZE ALL VARIABLES USED BY SPK/EXAMIN SPKPTR        FIX FRAMAD/FRAMBT SO THEY POINT TO THE NEXT FRAME SPKCLR        CLEAR UNUSED BITS IN A-REG EXAMIN        EXAMINE SPEECH DATA BYTE FOR PRESENCE OF END-OF-FRAME GNXT8         GET NEXT 8 SPEECH DATA BITS INTO A-REG VSPTS         WAIT FOR SPEECH STATUS VSPOUT        ? write a speech byte       *--------------------------------------------------* * SPKINT SUBROUTINE * * INITIALIZE ALL VARIABLES USED BY SPK/EXAMIN * *--------------------------------------------------* SPKINT EQU $ MOV %49,FRMLEN CLR BITPNT CLR ENERGY CLR REPEET CLR PITCH RETS PAGE *==================================================* * GNXT8 SUBROUTINE: * * GET NEXT 8 SPEECH DATA BITS, LEAVE IN A-REG * * TEMP3 = ADDRESS * * TEMP2 = BITPOINTER (7-0) * *==================================================* GNXT8 EQU $ LDA *TEMP3 GET NEXT BYTE OF DATA INC TEMP3 ADC %0,TEMP3-1 INCREMENT DATA ADDRESS MOV TEMP2,B BIT POINTER -> B JEQ GNXT8B IF BITPNTR=0, ALREADY ALIGNED MOV A,TEMP2-1 STORE AWAY 1ST BYTE LDA *TEMP3 GET 2ND BYTE, DONT INC ADDRESS GNXT8A EQU $ RR A BIT 0 OF 2ND BYTE TO CARRY RRC TEMP2-1 SHIFT INTO TEMP RESULT DJNZ B,GNXT8A DO "BITPOINTER" TIMES MOV TEMP2-1,A GNXT8B EQU $ RETS *==================================================* * SPKPTR SUBROUTINE: * * FIX SPEECH FRAME POINTERS FRAMAD/FRAMBT * * SO THEY POINT TO THE BEGINNING OF THE * * NEXT FRAME COMING UP * * 1. FRAMAD := TEMP3 * * 2. FRAMBT := ENDFRM + TEMP2 * * 3. IF ENDFRM = 0 THEN FRAMBT := FRAMBT + 8 * * (THIS IS BECAUSE ENDFRM WAS PREVIOUSLY 8) * * 4. IF FRAMBT <= 7 THEN FRAMAD := FRMAD - 1 * * ELSE FRAMBT := FRAMBT - 8 * *==================================================* SPKPTR EQU $ MOVD TEMP3,FRAMAD MOV ENDFRM,FRAMBT ADD TEMP2,FRAMBT MOV ENDFRM,ENDFRM JNE SPKPT1 ADD %8,FRAMBT SPKPT1 EQU $ CMP %7,FRAMBT JP SPKPT2 DECD FRAMAD FRAMBT <= 7 JMP SPKPT3 SPKPT2 EQU $ FRAMBT > 7 SUB %8,FRAMBT SPKPT3 EQU $ RETS *==================================================* * SPKCLR SUBROUTINE: * * CLEAR UNUSED BITS IN A-REGISTER * *==================================================* SPKCLR EQU $ CLR TEMP2-1 USE TEMP2-1 AS BIT MASK MOV ENDFRM,B IF ENDFRM=0, JUST RETURN JZ SPKCL2 "00" IN A-REG (ALL BITS FREE) SPKCL1 EQU $ SETC E.G. 00000111 <--- SHIFT RLC TEMP2-1 "1"S LEFT DJNZ B,SPKCL1 SPKCL2 EQU $ AND TEMP2-1,A CLEAR UNUSED BITS IN A-REGISTER RETS *==================================================* * EXAMIN SUBROUTINE: * EXAMINES A SPEECH DATA BYTE FOR PRESENCE OF * * END-OF-FRAME. * INPUTS: * ENDFRM = THE BIT POSITION TO START EXAMINING, * USUALLY 0, BUT CAN BE IN RANGE 0-7 * OUTPUTS: * STOPCD = 0 IF STOP CODE NOT FOUND * STOPCD <> 0 IF STOP CODE FOUND * ENDFRM = 0 IF END-OF-FRAME NOT FOUND * ENDFRM <> 0 IF END-OF-FRAME FOUND * ENDFRM VALUE IS BIT POSITION FOR NEXT * AVAILABLE BIT IN VALUE EXAMINED * (ENDFRM=8 MEANS FRAME ENDED ON LAST BIT) * * CALLING SEQUENCE: * MOV %DATA,A MOVE SPEECH DATA TO A * MOV %8,B NUMBER OF BITS TO EXAMINE * CALL @EXAMIN CALL EXAMINE ROUTINE * MOV ENDFRM,ENDFRM CHECK ENDFRM * JNE ENDF IF NOT ZERO, END-OF-FRAME * FOUND * EXCEPTIONS AND CONDITIONS: * BEFORE SENDING FIRST BYTE OF A NEW SPEECH * PHRASE, CALLER MUST INITIALIZE: * MOV %49,FRMLEN SET FRAME LENGTH TO 49 * CLR BITPNT SET BIT POINTER TO O * CLR ENERGY SET UNPACKED ENERGY TO O * CLR REPEET SET UNPACKED REPEAT TO O * CLR PITCH SET UNPACKED PITCH TO O * CLR ENDFRM ENDFRM TO 1ST BIT POSITION * *==================================================* * *--------------------------------------------------* * BIT MASKS FOR "ORING" INTO ENERGY/PITCH REGISTERS* *--------------------------------------------------* BITO EQU >01 0000 0001 BIT1 EQU >02 0000 0010 BIT2 EQU >04 0000 0100 BIT3 EOU >08 0000 1000 BIT4 EOU >10 0001 0000 BIT5 EQU >20 0010 0000 * EXAMIN EQU $ PUSH A SAVE INPUT COPY OF "A" PUSH TEMP2-1 SAVE INPUT COPY OF "TEMP2-1" PUSH TEMP2 SAVE INPUT COPY OF "TEMP2" PUSH TEMP3 SAVE INPUT COPY OF "TEMP3" PUSH ENDFRM SAVE INPUT COPY OF "ENDFRM" MOV %8, TEMP2 TEMP2 IS THE LOOP COUNTER SUB ENDFRM,TEMP2 TEMP2 := (8 - ENDFRM) CLR TEMP2-1 CLR STOPCD * page break CLR TEMP2-1 TEMP2-1 IS # OF BITS EXAMINED CLR STOPCD ASSUME STOP CODE NOT FOUND *---------------------------------------------------* * MUST SHIFT INPUT BYTE RIGHT BY "ENDFRM" BITS * *---------------------------------------------------* MOV A, TEMP3 GET TEMP COPY MOV ENDFRM,ENDFRM ENDERM = 0 ? JZ NXTBIT YES, ALREADY SHIFTED EXAMI1 EQU $ NO, MUST SHIFT RR TEMP3 DJNZ ENDFRM, EXAMI1 *---------------------------------------------------* * ENDFRM NOW SET TO ZERO, START LOOKING AT BITS * *---------------------------------------------------* NXTBIT EQU $ CMP %11,BITPNT BIT POINTER < 11 JN NOTK YES, MUST BE ENERGY/REPEAT/PITCH BR @BP11 NO, MUST BE IN K-PARAMETERS NOTK EQU $ MOV BITPNT,B NO, MUST BE ENERGY/REPEAT/PITCH RL B MPY BY 2 TO GET TABLE OFFSET BR @JMPTAB(B) JUMP TO BPN, N=BIT POINTER *---------------------------------------------------* * JUMP TABLE FOR BIT POINTER 0-10 * *---------------------------------------------------* JMPTAB EQU $ JMP BP0 BIT POINTER IS 0 JMP BP1 BIT POINTER IS 1 JMP BP2 BIT POINTER IS 2 JMP BP3 BIT POINTER IS 3 JMP BP4 BIT POINTER IS 4 JMP BP5 BIT POINTER IS 5 JMP BP6 BIT POINTER IS 6 JMP BP7 BIT POINTER IS 7 JMP BP8 BIT POINTER IS 8 JMP BP9 BIT POINTER IS 9 JMP BP10 BIT POINTER IS 10 *---------------------------------------------------* * BIT POINTER = 0-3 "ENERGY" * *---------------------------------------------------* BP0 EQU $ MOV %BIT3,MASK 0000 1000 JMP BP03 BP1 EQU $ MOV %BIT2,MASK 0000 0100 JMP BP03 BP2 EQU $ MOV %BIT1,MASK 0000 0010 JMP BP03 BP3 EQU $ MOV %BIT0,MASK 0000 0001 BP03 EQU $ RR TEMP3 LOOK AT LSBIT OF TEMP3 JNC BP03A OR MASK,ENERGY BP03A EQU $ CMP %3,BITPNT AT END OF ENERGY BITS? JNE FRMTST NO, GO DO NEXT BIT PAGE CMP %0,ENERGY YES JNE BP03B JUMP IF ENERGY NOT ZERO MOV %3,FRMLEN ZERO ENERGY FRAME JMP FRMTST BP03B EQU $ CMP %>0F,ENERGY STOP CODE? JNE FRMTST NO, GO DO NEXT BIT MOV %3,FRMLEN STOP CODE FOUND INC STOPCD JMP FRMTST *---------------------------------------------------* * BIT POINTER = 4 "REPEAT" * *---------------------------------------------------* BP4 EQU $ CLR REPEET ASSUME NO REPEAT RR TEMP3 REPEAT BIT SET? JNC BP4A NO, JUMP INC REPEET YES, SET REPEAT=1 MOV %10,FRMLEN FRAME LENGTH SET TO 10 BP4A EQU $ JMP FRMTST *---------------------------------------------------* * BIT POINTER = 5-10 "PITCH" * *---------------------------------------------------* BP5 EQU $ MOV %BIT5,MASK 0010 0000 JMP BP510 BP6 EQU $ MOV %BIT4,MASK 0001 0000 JMP BP510 BP7 EQU $ MOV %BIT3,MASK 0000 1000 JMP BP510 BP8 EQU $ MOV %BIT2,MASK 0000 0100 JMP BP510 BP9 EQU $ MOV %BIT1,MASK 0000 0010 JMP BP510 BP10 EQU $ MOV %BIT0,MASK 0000 0001 BP510 EQU $ RR TEMP3 JNC BP510A OR MASK,PITCH BP510A EOU $ CMP %10,BITPNT AT END OF PITCH BITS? JNE FRMTST NO, GO DO NEXT BIT CMP %0,REPEET YES, CHECK IF REPEAT JNE FRMTST IF REPEAT=1, FRMLEN ALREADY 10 CMP %0,PITCH REPEAT=0, IS PITCH=0? JNE FRMTST NO. GO DO NEXT BIT (FRMLEN = 49) MOV %28,FRMLEN YES, SET FRAME LENGTH TO 28 JMP FRMTST *---------------------------------------------------* * BIT POINTER 11-49 "K-PARAMETERS" * *---------------------------------------------------* BP11 EQU $ * -- page break -- RR TEMP3 *---------------------------------------------------* * CHECK TO SEE IF AT END OF FRAME * *---------------------------------------------------* FRMTST EQU $ INC TEMP2-1 INC NUMBER OF BITS EXAMINED CMP BITPNT,FRMLEN BITPNT = FRMLEN? JEQ FRMTS1 YES, AT END OF FRAME INC BITPNT NO, INCREMENT BIT POINTER JMP BITTST FRMTS1 EQU $ CALL @SPKINT YES, AT END OF FRAME *---------------------------------------------------* * IF ENDFRM = 0 THEN SET ENDFRM TO TEMP2-1 + * * ORIGINAL ENDFRM * *---------------------------------------------------* MOV ENDFRM,ENDFRM JNE BITTST JUMP IF ENDFRM ALREADY SET POP ENDFRM ELSE SET ENDFRM TO BIT ADD TEMP2-1,ENDFRM POSITION OF FIRST END-OF-FRAME *---------------------------------------------------* * CHECK IF ALL EIGHT BITS OF "TEMP3" PROCESSED * *---------------------------------------------------* BITTST EQU $ DJNZ TEMP2,BITTS1 LOOK AT NEXT SPEECH BIT JMP BITTS2 BITTS1 EQU $ BR @NXTBIT *---------------------------------------------------* * RETURN * *---------------------------------------------------* BITTS2 EQU $ MOV ENDFRM,ENDFRM JNE BITTS3 POP A BITTS3 EQU $ POP TEMP3 POP TEMP2 POP TEMP2-1 POP A RETS *     The file with all the assembly source I have:   SPK and its subroutines.     SPEECH_EDU.asm

Could someone please do the magic and add/replace these title screen into the games?

Atari owns 49% of Playmaji. Which is probably why there is supposed to be an app for the VCS 800.

Agreed.  I wasn't trying to say that someone would spend $628 just to play Atari 2600 games.  I was making a general statement that someone wanting to play 2600 games with the currently available Polymega hardware (plus a potentially forthcoming 2600 module), they'd be all-in for at minimum $628, and that would be if they hadn't purchased any other modules for the base unit and were just using it to play the CD-based games the base unit supports.  Assuming they have other modules, we're into the $700+ range.  "In general", I don't see how that is a viable price point for the Polymega system concept, having nothing to do with 2600 support specifically.   Yes, if there were a way to purchase just the $79 Atari 2600 module and use it with an app on the VCS or your PC, that's a whole different ball game, but unless I'm mistaken (and I may be), that concept is not currently in production.   As for how a 2600 module attached to the VCS may or may not affect sales of the 2600+, I have no idea, and from a financial perspective, without knowing what kind of licensing fee or whatever payment structure was in place to compensate Atari, it's hard to say if it would be worth it or not.