-
Content Count
3,127 -
Joined
-
Last visited
Content Type
Profiles
Member Map
Forums
Blogs
Gallery
Calendar
Store
Everything posted by AtariGeezer
-
Looks good in ATR Tools
-
This is what I figured out about the Joy Ports so far and some code to initialize it: 700 ; 705 ; INITIALIZE CONTROLLER PORT 710 ; Bit D7 (PIN #4) OUTPUT = CW / 425hz / 850hz Shift 715 ; Bit D6 (PIN #3) INPUT = Clock 720 ; Bit D5 (PIN #2) OUTPUT = PTT Xmit 725 ; Bit D4 (PIN #1) INPUT = Clock 730 ; Bit D3 (PIN #4) INPUT = RTTY Receive 735 ; Bit D2 (PIN #3) OUTPUT = FSK Xmit 740 ; Bit D1 (PIN #2) INPUT = CW Receive 745 ; Bit D0 (PIN #1) OUTPUT = CW / 170hz / 425hz Shift 750 ; 760 LDA #$38 770 STA PACTL 780 LDA #$A5 ; 10100101 790 STA PORTA 800 LDA #$3C 810 STA PACTL 820 LDA #0 ; CW 830 STA PORTA And if anyone is curious about my simple RTTY decoder I made back in 1984, this is it, it uses an illegal call to OS B... 10 *= $0600 11 PLA 12 START JSR GETBIT 13 BNE START 14 JSR DELY1 15 LDA #$05 16 STA CNTR 17 CONV JSR GETBIT 18 LSR A ; Shift Bit InTo C 19 ROL CHAR ; Add C Into New Char 20 JSR DELY2 21 DEC CNTR 22 BNE CONV 23 JSR DELY3 24 JMP THRU 25 GETBIT LDA $D300 26 AND #$08 27 NOP 28 LSR A 29 LSR A 30 LSR A 31 RTS 32 THRU LDX CHAR 33 CPX #$1B 34 BEQ STORA 35 CPX #$1F 36 BEQ STORA 37 CPX #$00 38 BEQ STORA 39 JMP RET 40 STORA STX HOLD 41 JMP TER 42 RET LDY HOLD 43 CPY #$1B 44 BEQ LET 45 JMP FIG 46 LET LDA FIGS,X 47 JMP PRINT 48 FIG LDA LETR,X 49 PRINT JSR $F6A4 50 TER LDY #$00 51 STY CHAR 52 JMP START 53 DELY2 LDX #$2C 54 DLYB2 LDY #$65 55 DLYA2 DEY 56 BNE DLYA2 57 DEX 58 BNE DLYB2 59 RTS 60 DELY1 LDX #$3F 61 DLYB1 LDY #$65 62 DLYA1 DEY 63 BNE DLYA1 64 DEX 65 BNE DLYB1 66 RTS 67 DELY3 LDX #$0F 68 DLYB3 LDY #$65 69 DLYA3 DEY 70 BNE DLYA3 71 DEX 72 BNE DLYB3 73 RTS 74 LETR .BYTE " T",$9B,"O HNM",$9B,"LRGIPCVEZDBSYFXAWI",27,85,81,75,31 75 FIGS .BYTE 32,53,155,57,32,35,44,46,155,41,52,38,56,48 76 .BYTE 58,59,51,34,36,63,253,54,33,47,45,50,39,27 77 .BYTE 55,49,40,31 78 CHAR =* 79 CNTR =*+1 80 HOLD =*+2 And the Basic program to set the Baud Rate, plus a Baud Rate Calculator: 10 OPEN #1,4,0,"D:RTTYRCVR.OBJ":FOR I=1 TO 6:GET #1,A:? A:NEXT I:FOR I=1536 TO 1731 :GET #1,A:POKE I,A:NEXT I:CLOSE #1 15 ? "} SELECT BAUD RATE":? "1 = 45.5":? "2 = 50" 20 ? "3 = 56.92":? "4 = 74.20":? "5 = 100":? "ENTER 1 - 5";:INPUT X:ON X GOTO 31,32 ,33,34,35 31 A=28:B=106:C=39:D=B:E=10:F=B:GOTO 40 32 A=44:B=101:C=63:D=101:E=15:F=B:GOTO 40 33 A=48:B=71:C=72:D=B:E=24:F=B:GOTO 40 34 A=16:B=179:C=24:D=B:E=7:F=B:GOTO 40 35 A=8:B=179:C=11:D=B:E=3:F=B 40 POKE 1636,A:POKE 1638,B:POKE 1647,C:POKE 1649,D:POKE 1658,E:POKE 1660,F 45 A=USR(1536):GOTO 15 100 ? "ENTER BAUD RATE";:INPUT BAUD 102 CLOCK=1789790 103 DIVISOR=25.9074 110 X=BAUD*16:Y=DIVISOR*CLOCK 120 Z=INT(Y/X+0.5):HI=INT(Z/256):LO=Z-HI*256 130 ? "LOW VALUE=";LO;"";"HIGH VALUE=";HI:GOTO 100 199 REM 200 POKE 54018,36 205 POKE 54016,1+4+32+128 :REM Bits 0,2,5 and 7 are OutPut 210 POKE 54018,32 215 POKE 54016,1:REM 850 hz shift RTTY 32767 SAVE "D:RTTYRCVR.BAS" I'm currently using this to test the RM-1000.
-
Any certain size in MB or GB?
-
And here is the display board basic schematic...
-
Cool, wish I could find someone that still has the original software for it...
-
That and I got tired of just looking at it sitting on the shelf
-
For reference, this is the Basic Schematic for the RM-1000 Radio Modem by Macrotronics that I made over the past week or so, I still need to add Part Values and update the component names,.. It looks like I have a bad 7404 the connects to the Computer Port, but now it will be easier to troubleshoot. Next up is to make aa program to use it, I'll probably start with the Split Window RTTY program by Rusty Lewis...
-
I'll even throw in a $20 finders fee is someone finds one before me :)
-
The Puff BBS MOE is what I would be starting with as I have it close to being fully disassembled. It's pretty well coded. I wouldn't be using the full basic interpreter for the scripting language, but rather just as a starting point. When I wrote the Script Decompiler for ST Express! BBS back in the early 90's, I have become quite familiar on how it's scripting language works...
-
I've been thinking of building a M.O.E on cartridge with a scripting language built-in similar to apple 4k int basic or ST Express BBS and from there just build modules for all the other routines...
-
Atari 850 partially working available
AtariGeezer replied to Joshmeister's topic in Buy, Sell, and Trade
I'm interested -
I've been looking for the manual too to go along with my cartridge...
-
I have it, still need to move stuff around to get to that box....
-
Bit3 Full View 80 (Under The Hood)
AtariGeezer replied to AtariGeezer's topic in Atari 8-Bit Computers
Yep, me too It sold in less than an hour after I saw it posted... -
Bit3 Full View 80 (Under The Hood)
AtariGeezer replied to AtariGeezer's topic in Atari 8-Bit Computers
eBay Auction -- Item Number: 132990645168 Looks to be missing the video cable, but seller claims to be tested? -
1088XLD - Custom A8 Computer in 1050 Drive Case
AtariGeezer replied to mytek's topic in Atari 8-Bit Computers
Yep, I'll be buying mine from the 3rd party guy in the U.S., but was just thinking of the other guys in EU where shipping would be more. Maybe another 3rd party guy over there would work? -
1088XLD - Custom A8 Computer in 1050 Drive Case
AtariGeezer replied to mytek's topic in Atari 8-Bit Computers
That might put a crimp on the guys at Atari.PL, they had bought around 50+ XEL boards that were shipped to the EU area and dispersed from there... But in the end, it's what you decide is best. -
1088XLD - Custom A8 Computer in 1050 Drive Case
AtariGeezer replied to mytek's topic in Atari 8-Bit Computers
Who can I bribe to sell me their spare board ??? :) -
What do you use your cartridge port for?
AtariGeezer replied to 6BQ5's topic in Atari ST/TT/Falcon Computers
Yep, made a few recordings during the shuttle missions in the early 90's... -
Looks like a Impossible OS, switch is needed to boot it up...
