SmartBASIC - A Coleco Adam Forum

Re: MIB2 low-level access

2020-02-19T21:02:59-04:00

I have made some progress here. However, using the ‘2681 proved very unsatisfactory because of the basically non-existent FIFOs. It would stall out after a single character, making it very hard for external devices to lock onto the bit rate. Above 19200, match up was basically impossible and the Adam can’t handle the service load.

So I am going with a different DUART which I will document and provide the datasheet for. A brief test with it showed it would operate happily at 38,400. Unfortunately, then my monitor died so testing is halted for the moment.

That DUART will be incorporated into the multi card instead.

The main thing holding me up right now is the refresh of the internal DRAM, which on my Adam is also occurring on the expansion ports. If refresh were disabled and all RAM was static, the machine would be about 20% faster all the time.

Statistics: Posted by MrPix — Wed Feb 19, 2020 8:02 pm

Re: MIB2 low-level access

2020-02-03T15:05:24-04:00

Here is code I use - should be self explanatory

CODE:

DataPort       .equ    044h            ; Data port (in/out)StatPort       .equ    045h            ; Status port (in)BaudRatePort   .equ    046h            ; Baud rate port (out)ControlPort    .equ    047h            ; Control port (out)InMask         .equ    2               ; 8251 RxRDYOutMask        .equ    1               ; 8251 TxRDYChipSet        .equ    037h            ; 8251 RTS,ER,RxE,DTR,TxENChipOff        .equ    035h            ; 8251 RTS,ER,RxE,TxEN (no dtr)Break          .equ    ChipSet | 8     ; ChipSet OR send breakFreeze         .equ    022hReset          .equ    027hn71            .equ    001001010b      ; 7n1n81            .equ    001001110b      ; 8n1n72            .equ    011001010b      ; 7n2n82            .equ    011001110b      ; 8n2e71            .equ    001111010b      ; 7e1e81            .equ    001111110b      ; 8e1e72            .equ    011111010b      ; 7e2e82            .equ    011111110b      ; 8e2o71            .equ    001011010b      ; 7o1o81            .equ    001011110b      ; 8o1o72            .equ    011011010b      ; 7o2o82            .equ    011011110b      ; 8o2b19200         .equ    03fh            ; 19200b9600          .equ    03eh            ;  9600b4800          .equ    03ch            ;  4800b2400          .equ    03ah            ;  2400b1200          .equ    037h            ;  1200b600           .equ    036h            ;   600b300           .equ    035h            ;   300BitParityStop  .equ    n81BaudRate       .equ    b300Echo           .equ    FALSE

Awesomesauce!

I will be able to go through and provide a replacement section here for a few common UARTs. They do all vary but are in four main compatibility groups.

2681 and compatibles - 68681 etc.
28L92 and compatibles.
etc.

This way, alternate drivers can be easily be delivered for every mainstream UART.

Statistics: Posted by MrPix — Mon Feb 03, 2020 2:05 pm

Re: MIB2 low-level access

2019-08-02T20:02:08-04:00

No I was wrong / I assumed they were the same - look in the cpm section of the archive you may find code in one of the telecommunications images

Statistics: Posted by Milli — Fri Aug 02, 2019 8:02 pm

Re: MIB2 low-level access

2019-08-02T17:44:59-04:00

This is one aspect of the ADAM which I find annoying: No standard serial or parallel port. How about using the Adamnet network? Any documents on how to access and decode the signals?

There is documentation for ADAMNet in the ADAM Technical Manual which you can probably find on http://adamarchive.org/

Statistics: Posted by pearsoe — Fri Aug 02, 2019 5:44 pm

Re: MIB2 low-level access

2019-08-02T17:43:35-04:00

I thought the MIB was Eve/Orphanware compatible

I don't see how it could be if the EVE/Orphanware use the 8251 and those ports.

Statistics: Posted by pearsoe — Fri Aug 02, 2019 5:43 pm

Re: MIB2 low-level access

2019-08-02T17:33:57-04:00

This is one aspect of the ADAM which I find annoying: No standard serial or parallel port. How about using the Adamnet network? Any documents on how to access and decode the signals?

Statistics: Posted by Wmaalouli — Fri Aug 02, 2019 5:33 pm

Re: MIB2 low-level access

2019-08-02T16:51:35-04:00

I thought the MIB was Eve/Orphanware compatible

Statistics: Posted by Milli — Fri Aug 02, 2019 4:51 pm

Re: MIB2 low-level access

2019-08-02T16:04:02-04:00

Does that code really work with the MIB2? I ask because the MIB2 and MIB3 do not use an 8251 USART they use a Phillips SCN2681 DUART and when I was dissembling ADAMLink V it uses ports 10H-1DH to communicate with the SCN2681 (see attached port list) when in MIB2/MIB3 mode.

Coleco ADAM Port List Updated.zip

Statistics: Posted by pearsoe — Fri Aug 02, 2019 4:04 pm

Re: MIB2 low-level access

2019-08-01T14:05:27-04:00

Ah thank you! I'll have to look at this closely.
Is this your own code and is it taken from some other source?

Statistics: Posted by Wmaalouli — Thu Aug 01, 2019 2:05 pm

Re: MIB2 low-level access

2019-08-01T08:33:28-04:00

Additional Adam Link routines

CODE:

       .org        0100H       jp          Loop; **** Subroutines ****; Check if a key is available and return; it in A. Z is zet if no characterKeyIn:       push        bc       push        de       push        hl       ld          c,0bH        ; Check if character available       call        5       cp          0       jp          Z,KeyInExit  ; No Key       ld          c,1          ; Get actual key in A       call        5       ld          c,a       or          1            ; Clear Z flag       ld          a,cKeyInExit:       pop         hl       pop         de       pop         bc       ret; Send character in A out to screenConOut:       push        af       push        bc       push        de       ld          e,a       ld          c,2       call        5       pop         de       pop         bc       pop         af       ret; Send character in A out to modemModOut:       push        afModOutLoop:       in          a,(05FH)       rra       jr          NC,ModOutLoop       pop         af       out         (05EH),a       ret; Check if a byte is available and return; it in A. NC set if no characterModIn:       in          a,(05FH)    ; Read status       rra                     ; Rotate RXREADY into CF       rra       jr          NC,ModInExit       in          a,(05EH)    ; Get characterModInExit:       ret; Check if character in A is CR and if so send a line feedLineFeed:       push        af       cp          13       jp          NZ,LineFeedExit       ld          a,10         ; Line feed       call        ConOutLineFeedExit:       pop         af       ret       nop       nop       nop       nop       nopLoop:       call        KeyIn        ;Get Key & Echo       jp          Z,NoKey      ;No Key jump       cp          3            ; Ctrl-C?       jp          Z,0          ; Yes, exit       call        ModOut       ; Send Key       call        LineFeed     ; See if Linefeed is needed locallyNoKey:       call        ModIn        ;Get Modem       jp          NC,Loop      ;No Modem start over       call        ConOut       ;Display Modem       call        LineFeed     ; See if Linefeed is needed locally       jp          Loop

Statistics: Posted by Milli — Thu Aug 01, 2019 8:33 am

Re: MIB2 low-level access

2019-08-01T08:32:55-04:00

And here is some routines I wrote for talking to the adam link modem

CODE:

; Setup AdamLink and then answer the phone        .org    0100H; Setup UART for 8N1 300 baud        ld      a,080H       ; Get UART's attention        out     (05FH),a        out     (05FH),a        ld      a,040H        out     (05FH),a        ld      a,0CH        ; 8 bits, no parity is assumed since we are not setting it        or      03H          ; 64x clock rate, 300 baud        or      040H         ; 1 stop bit        out     (05FH),a     ; Now setup UART        ld      de,Title     ; Send prompt        ld      c,9        call    5        ld      c,1          ; Go wait for a key to be pressed so we know to answer the phone        call    5        cp      3            ; Ctrl-C?        jp      Z,0          ; Yes, exit        ld      a,025H       ; RXE(4h) + TXE(1H) + RTS(20H) to hang up phone        out     (05FH),a        ld      a,07H        ; RXE(4h) + TXE(1H) + DTR(2H) set - toggle RTS to answer        out     (05FH),a        ld      a,027H       ; RXE(4h) + TXE(1H) + DTR(2H) + RTS(20H) set - grab phone line and enable carrier        out     (05FH),a; Display modem info till ^C pressedModIn:       call        KeyIn        ; Get Key if any       jr          Z,NoKey      ; No Key jump       cp          3            ; Ctrl-C?       jp          Z,0          ; Yes, exitNoKey:       in          a,(05FH)     ; Read status       rra                      ; Rotate RXREADY into CF       rra       jr          NC,ModIn     ; Wait for a byte       in          a,(05EH)     ; Get character       ld          e,a          ; Display what we received       ld          c,2       call        5       jr          ModIn        ; do moreKeyIn:       ld          c,0bH        ; Check if character available       call        5       cp          0       jp          Z,KeyInExit  ; No Key       ld          c,1          ; Get actual key in A       call        5       ld          c,a       or          1            ; Clear Z flag       ld          a,cKeyInExit:       retTitle:.db   "Answer 1.0",13,10.db   13,10.db   "Press any key to answer,",13,10.db   "CTRL+C to exit".db   "$"

Statistics: Posted by Milli — Thu Aug 01, 2019 8:32 am

Re: MIB2 low-level access

2019-08-01T08:29:49-04:00

Here is code I use - should be self explanatory

CODE:

; Serial communications; Eve / Orphanware compatible 8251 on ports 44h - 47hDataPort       .equ    044h            ; Data port (in/out)StatPort       .equ    045h            ; Status port (in)BaudRatePort   .equ    046h            ; Baud rate port (out)ControlPort    .equ    047h            ; Control port (out)InMask         .equ    2               ; 8251 RxRDYOutMask        .equ    1               ; 8251 TxRDYChipSet        .equ    037h            ; 8251 RTS,ER,RxE,DTR,TxENChipOff        .equ    035h            ; 8251 RTS,ER,RxE,TxEN (no dtr)Break          .equ    ChipSet | 8     ; ChipSet OR send breakFreeze         .equ    022hReset          .equ    027hn71            .equ    001001010b      ; 7n1n81            .equ    001001110b      ; 8n1n72            .equ    011001010b      ; 7n2n82            .equ    011001110b      ; 8n2e71            .equ    001111010b      ; 7e1e81            .equ    001111110b      ; 8e1e72            .equ    011111010b      ; 7e2e82            .equ    011111110b      ; 8e2o71            .equ    001011010b      ; 7o1o81            .equ    001011110b      ; 8o1o72            .equ    011011010b      ; 7o2o82            .equ    011011110b      ; 8o2b19200         .equ    03fh            ; 19200b9600          .equ    03eh            ;  9600b4800          .equ    03ch            ;  4800b2400          .equ    03ah            ;  2400b1200          .equ    037h            ;  1200b600           .equ    036h            ;   600b300           .equ    035h            ;   300BitParityStop  .equ    n81BaudRate       .equ    b300Echo           .equ    FALSESerialTest: .module SerialTest       ld      a,BaudRate              ; Setup the serial port       call    SetBaudRate       ld      a,BitParityStop       call    SetBitSetup       call    DTROn       call    BreakOff_keyLoop:       call    STARTREADKEY            ; Setup the keyboard read       jr      nz,_keyboardError       ; Keyboard error so exit_loop:       call    CharInput               ; Get any character from the Serial port       jr      nc,_noSC                ; Jump if none       call    PrintByte               ; Display what we got_noSC:       call    ENDREADKEY              ; End the keyboard reading       jr      nc,_loop                ; No key so continue       jr      nz,_keyboardError       ; Keyboard error so exit       call    CharOutput              ; Send the character in A#if Echo = TRUE       call    PrintByte               ; Echo to our screen#endif       jr      _keyLoop                ; Reset the keyboard read_keyboardError:       ld      hl,Serial_KB_Error       call    PrintString       StopSerial_KB_Error:       .text  "Keyboard Error"       .db    NULL; Gets a character from the Serial input if there is one and returns it in A; If NC set then no characterCharInput: .module CharInput       in      a,(StatPort)            ; Get the input status       and     InMask       rra                             ; Rotate into carry       rra       jr      nc,_exit                ; No character so exit       in      a,(DataPort)            ; Get data_exit:       ret; Send the character in A out the serial port, waiting till it is ready to goCharOutput: .module CharOutput       push    af                      ; Save character_loop:       in      a,(StatPort)            ; Get the output status       and     OutMask       rra                             ; Rotate into carry       jr      nc,_loop                ; Not ready, check again       pop     af                      ; Get character back       out     (DataPort),a            ; Put data       ret; Get serial data into ASerialInput:       in      a,(DataPort)            ; Get data       ret; A = 2 if data has been received (RxRDY)SerialInputStatus:       in      a,(StatPort)            ; Get the input status       and     InMask       ret; Put serial data from ASerialOutput:       out     (DataPort),a            ; Put data       ret; A = 1 if ready to send data (TxRDY)SerialOutputStatus:       in      a,(StatPort)            ; Get the output status       and     OutMask       ret; Turn DTR OnDTROn:       push    af       ld      a,ChipSet       out     (ControlPort),a       pop     af       ret; Turn DTR OffDTROff:       push    af       ld      a,ChipOff       out     (ControlPort),a       pop     af       ret; Start serial port breakBreakOn:       push    af       ld      a,Break       out     (ControlPort),a       pop     af       ret       ; Stop serial port breakBreakOff:       push    af       ld      a,ChipSet       out     (ControlPort),a       pop     af       ret; Set the baud rate to the value in ASetBaudRate:       push    af       push    bc       ld      b,a       in      a,(BaudRatePort)       ld      c,a       in      a,(BaudRatePort)       ld      a,Freeze       out     (ControlPort),a       ld      a,c       out     (BaudRatePort),a       ld      a,b       out     (BaudRatePort),a       ld      a,Reset       out     (ControlPort),a       pop     bc       pop     af       ret; Set the bit setup to the value in ASetBitSetup:       push    af       push    bc       ld      b,a       in      a,(BaudRatePort)       in      a,(BaudRatePort)       ld      c,a       ld      a,Freeze       out     (ControlPort),a       ld      a,b       out     (BaudRatePort),a       ld      a,c       out     (BaudRatePort),a       ld      a,Reset       out     (ControlPort),a       pop     bc       pop     af       ret

Statistics: Posted by Milli — Thu Aug 01, 2019 8:29 am

Re: MIB2 low-level access

2019-07-24T21:49:03-04:00

I have some source code I’ll post

Statistics: Posted by Milli — Wed Jul 24, 2019 9:49 pm

MIB2 low-level access

2019-07-24T20:52:32-04:00

So a few months ago I bought an MIB2 serial card, primarily as a way to potentially interface th Adam to the real world. However, it turns out that the documentation that comes with it does not discuss low-level access from assembly so that the parallel or serial ports could be interfaced to things like a raspberry Pi, Arduino, or motor controllers for example.
Is there any document out there on this?

Statistics: Posted by Wmaalouli — Wed Jul 24, 2019 8:52 pm