ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

home *** CD-ROM | disk | FTP | other *** search

/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_5.ZIP / TCOM96.ZIP / TCOM96 / SAMPLES / SPCODE.SEQ < prev next >

Wrap

Text File | 1991-03-21 | 8.0 KB | 234 lines

\ Serial port support $0D CONSTANT HI_THERE \ enquiry from PC '!' constant IM_HERE \ response to PC $0AF constant LISTEN_UP \ wake-up request from PC $0FA constant GO_AHEAD \ response to PC's LISTEN-UP 9600 constant BAUD \ actual baud rate 7500 constant BAUD_VAL \ 1/(BAUD/100) BAUD_VAL 1- 255 AND constant BAUD_L \ baud value to set BAUD_VAL 1- 256 / $80 OR constant BAUD_H $49 constant SP_SETUP \ enable transmitter, set mode=1 3 constant TXE_BIT \ transmit empty bit 8 constant TXE_MASK TXE_MASK not constant NOT.TXE_MASK 6 constant RI_BIT \ receive interrupt bit $40 constant RI_MASK RI_MASK not constant NOT.RI_MASK $21 constant IOC1_SETUP \ to enable serial port and PWM code SET_BAUDL ( baud -- ) \ set baud rate ( called by code word ) LD W0 # 29104 LD W2 # 11 \ put 750,000 in W0W2 ( =12MHz / 16 ) DIVU W0 TTOS \ 750,000 / baud rate DEC W0 \ -1 LDB BAUD_RATE W0 \ put low byte part into baud generator ORB W1 # $80 \ MSB selects XTAL1 clock source LDB BAUD_RATE W1 \ put high byte part into baud generator RET end-code code SET_BAUD ( baud -- ) \ set baud rate CALL SET_BAUDL LOAD_TTOS RET end-code CODE SP_INIT \ initialise serial port LDB IOC1 # IOC1_SETUP \ enable serial port SAVE_TTOS LD TTOS # BAUD CALL SET_BAUDL \ set baud rate LOAD_TTOS LDB SP_CON # SP_SETUP \ enable transmitter, set mode LDB SP_FLAGS 0 \ clear flags rememberer RET END-CODE code SP_SEND?L \ ready to send? \ usage 1 $: CALL SP_SEND?L \ JNC 1 $ \ CALL SP_SENDL \ \ returns with W1 = SP_FLAGS \ LDB W1 SP_STAT \ get the status port ORB W1 SP_FLAGS \ and the remembered flags STB W1 SP_FLAGS \ remember them again BITSET W1 TXE_BIT IF SETC THEN RET end-code \ return with C set if ready code SP_SENDL \ send the byte in W0 LD W2 0 1 $: DEC W2 JE 2 $ \ timeout in case transmitter broken CALL SP_SEND?L JNC 1 $ \ wait for transmitter ready LDB SBUF W0 \ send the byte ANDB W1 # NOT.TXE_MASK STB W1 SP_FLAGS \ update the remembered flags RET 2 $: LDB SBUF W0 \ if timed out send the byte, anyway RET end-code CODE SP_SEND ( c -- ) \ send one byte for hi-level LD W0 TTOS CALL SP_SENDL LOAD_TTOS RET end-code code SP_RX?L \ something received? \ usage 1 $: CALL SP_RX?L \ JNC 1 $ \ CALL SP_RXL \ \ returns with W1 = SP_FLAGS \ \ changes W1 and SP_FLAGS \ LDB W1 SP_STAT \ get the status port ORB W1 SP_FLAGS \ and the remembered flags STB W1 SP_FLAGS \ remember them again BITSET W1 RI_BIT IF SETC THEN RET \ return with C set if something received END-CODE CODE SP_RX? ( -- f ) \ see if something received for hi-level SAVE_TTOS CLR TTOS CALL SP_RX?L C0<> IF DEC TTOS THEN \ FFFF on stack if something to pick up RET end-code code SP_RXL ( -- C ) \ get received byte, in W0, for code definitions BEGIN CALL SP_RX?L C0<> UNTIL \ wait for something to get LDB W0 SBUF \ get the byte ANDB W1 # NOT.RI_MASK STB W1 SP_FLAGS \ update the remembered flags RET end-code CODE SP_RX ( -- c ) \ get recieved byte for high-level SAVE_TTOS CALL SP_RXL LDB TTOS W0 CLRB TTOSH RET end-code code SP_RX_TL ( -- ) \ get received byte, or timeout after 10ms \ on exit, W0 = received byte \ if timed out, W2 = 0 and Z flag is true \ if not timed out W2 <> 0 and Z flag is false LD W2 # 900 3 $: \ ( approx. 58 states in loop, = 10 usec. ) DEC W2 \ decrement timeout counter JE 4 $ \ go exit if timed out CALL SP_RX?L JNC 3 $ \ wait for item in receiver CALL SP_RXL \ get item from receiver 4 $: RET end-code CODE SP_RX_T ( -- C ) \ get received byte, or timeout after 10ms \ if timed out TTOS word = -1 \ if not timed out TTOSH = 0 and TTOS has the byte SAVE_TTOS LD W2 # 900 3 $: \ ( approx. 58 states in loop, = 10 usec. ) DEC W2 \ decrement timeout counter JE 4 $ \ go exit if timed out CALL SP_RX?L JNC 3 $ \ wait for item in receiver CALL SP_RXL \ get item from receiver LDB TTOS W0 CLRB TTOSH \ return the received byte on the stack RET 4 $: LD TTOS # -1 \ otherwise put -1 on the stack RET end-code CODE SP_POLLC \ serial port poll CALL SP_RX?L \ see if there's something received JNC 2 $ \ if not, return to background CALL SP_RXL \ get received byte CMPB W0 # HI_THERE \ see if it is a "hi-there" JNE 1 $ LD W0 # IM_HERE \ if so respond with a "i'm here" CALL SP_SENDL SJMP 2 $ 1 $: CMPB W0 # LISTEN_UP \ see if it is a request JNE 2 $ \ if not, return to background LD W0 # GO_AHEAD CALL SP_SENDL \ send "I'm here" byte RET \ and let high-level do the rest 2 $:| POP W0 \ exit from the word that called SP_POLLC \ if there's no command to do RET end-code code SP_POLL_L END-CODE \ entry to SP_POLL from a code word : SP_POLL SP_POLLC \ It may exit SP_POLL from within SP_POLLC SP_RX_T DUP 0< IF DROP EXIT THEN \ exit if it timed out \ DUP 30 >= IF DROP EXIT THEN \ exit if it is too big exec: \ table of function subroutines \ 0 JUMP_TO NULL_FUNCT NULL_FUNCT \ MEASURE_ALL WRITE_BYTES READ_BYTES \ 5 NULL_FUNCT \ MEASURE_AD WRITE_WORDS READ_WORDS NULL_FUNCT NULL_FUNCT \ 10 NULL_FUNCT NULL_FUNCT NULL_FUNCT \ WRITE_BYTESW NULL_FUNCT \ READ_BYTESW \ 0Dh -- subverted by the "Hi-there"? NULL_FUNCT \ WRITE_WORDSW \ 15 NULL_FUNCT \ READ_WORDSW NULL_FUNCT NULL_FUNCT NULL_FUNCT NULL_FUNCT \ 20 NULL_FUNCT NULL_FUNCT NULL_FUNCT NULL_FUNCT FILL_MEM \ 25 TESTEMIT UNTRAP copy-boot-to-EE1 copy-boot-to-EE2 NULL_FUNCT NULL_FUNCT ; : NULL_FUNCT ;