Language/OS - Multiplatform Resource Library

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

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / bell212.arc / TDBUG.ASM < prev next >

Wrap

Assembly Source File | 1986-07-25 | 9.0 KB | 255 lines

TITL ' DEBUG TIME SLICE ' IDT 'DEBUG1' ********------------------------------------------******** ***** DEBUG TIME SLICE ***** ***** WRITTEN BY: PETER EHLIG ***** ***** COPYRIGHT TEXAS INSTRUMENTS, 07/25/86 ***** ********------------------------------------------******** DEF DEBUG REF DEMOD PAGE ********------------------------------------------******** ***** DATA MEMORY USED. ***** ********------------------------------------------******** SPAR0 EQU 0 SPAR1 EQU 1 SPAR2 EQU 2 H8000 EQU 3 # DIALER ROUNDING FACTOR ONE EQU 4 I# VALUE 1 HELD FOR MASKING MASK1 EQU 5 I# SWAVE MACRO TBL RANGE ADJ >7F MASK2 EQU 6 I# SWAVE MACRO TBL RANGE ADJ >7FFF MASK3 EQU 7 # XMIT PHASE ENCODE MASK >0006 OFSET0 EQU 8 I# SWAVE MACRO POINT TO COS TABLE XMTOUT EQU 9 % XMIT HOLD FOR TRANSMIT OUTPUT XDIBIT EQU 10 # XMIT DIBIT ISOLATION MASK PLUS1 EQU 11 I# +1 Q12 >FFF & MASK VALUE XMTD EQU 12 % XMIT HOLD DTE INPUT RECST EQU 13 I% RECEIVER STATUS BSMAX EQU 14 & I% BAUD SIGNAL 0AX LASTM EQU 14 & % LAST MAX SIGNAL IN 300BPS SAMPLE EQU 15 % BAUD LIMIT SAMPLE COUNT SAMXMT EQU 16 % TRANSMITTER SAMPLE COUNT BITOUT EQU 17 % DIBIT POSITIONED TO XMIT/7742 RDIBIT EQU 18 % DECODED DIBIT SPAR3 EQU 19 MINUS1 EQU 20 I# >F000 MASK FOR Q12 FORMAT TEMP EQU 21 * MISC. TEMPERORY REGISTER XMTHLD EQU 22 % BIASED TRANSMIT DATA RECHLD EQU 23 % BIASED RECEIVE DATA DBUGC EQU 24 @ COUNT BAUD CYCLES FOR DEBUG DBUGC2 EQU 25 @ ERROR BAUD DELAY COUNT HIST1 EQU 26 @ DEBUG DESCRAMBLER HIST2 EQU 27 @ DEBUG DESCRAMBLER DPOINT EQU 28 @ BAUD EDGE POINTER SPAR4 EQU 29 SPAR5 EQU 30 SPAR6 EQU 31 RDELTA EQU 32 & % RECEIVE SINE TABLE STEP TALF1 EQU 32 & % DTMF TONE 1 SINE TABLE STEP RALPHA EQU 33 & % RECEIVER CURRENT SINE ANGLE FRACT1 EQU 33 & % DTMF TONE 1 CURRENT ANGLE SINA EQU 34 & % SINE TABLE READING TONE1 EQU 34 & % DTMF TONE 1 READING XDELTA EQU 35 & % TRANSMIT SINE TABLE STEP TALF2 EQU 35 & % DTMF TONE 2 SINE TABLE STEP XALPHA EQU 36 & % TRANSMIT CURRENT SINE ANGLE FRACT2 EQU 36 & % DTMF TONE 2 CURRENT ANGLE COSA EQU 37 & % COSINE TABLE READING TONE2 EQU 37 & % DTMF TONE 2 READING SPAR7 EQU 38 SPAR8 EQU 39 SPAR9 EQU 40 SPAR10 EQU 41 SPAR11 EQU 42 SPAR12 EQU 43 SPAR13 EQU 44 OFSET1 EQU 45 # XMIT POINT TO DIBIT ENCODE TABLE XPTR EQU 46 # XMIT POINT TO RAISED COS TABLE INDXPH EQU 47 I# XMIT POINT TO PHASE ENCODE TABLE RPHSE EQU 48 I# OFFSET FOR RECEIVE PHASE DECODE RBUF0 EQU 49 & % FILTER DATA 49-85 FILIN EQU 49 & % INPUT TO 300BPS MODEM RBUF1 EQU 50 & % RECEIVE BPF COEFFICIENT * COEFBP EQU 50 & % 50-99 COEFS FOR 300BPS FILTERS * RBUF2 EQU 51 % RECEIVE BPF COEFFICIENT RBUF3 EQU 52 % RECEIVE BPF COEFFICIENT RBUF4 EQU 53 % RECEIVE BPF COEFFICIENT RBUF5 EQU 54 % RECEIVE BPF COEFFICIENT RBUF6 EQU 55 % RECEIVE BPF COEFFICIENT RBUF7 EQU 56 % RECEIVE BPF COEFFICIENT RBUF8 EQU 57 % RECEIVE BPF COEFFICIENT RBUF9 EQU 58 % RECEIVE BPF COEFFICIENT RBUF10 EQU 59 % RECEIVE BPF COEFFICIENT RBUF11 EQU 60 % RECEIVE BPF COEFFICIENT RBUF12 EQU 61 % RECEIVE BPF COEFFICIENT RBUF13 EQU 62 % RECEIVE BPF COEFFICIENT RBUF14 EQU 63 % RECEIVE BPF COEFFICIENT RBUF15 EQU 64 % RECEIVE BPF COEFFICIENT RBUF16 EQU 65 % RECEIVE BPF COEFFICIENT RBUF17 EQU 66 % RECEIVE BPF COEFFICIENT RBUF18 EQU 67 % RECEIVE BPF COEFFICIENT RBUF19 EQU 68 % RECEIVE BPF COEFFICIENT RBUF20 EQU 69 % RECEIVE BPF COEFFICIENT RBUF21 EQU 70 % RECEIVE BPF COEFFICIENT RBUF22 EQU 71 % RECEIVE BPF COEFFICIENT RBUF23 EQU 72 % RECEIVE BPF COEFFICIENT RBUF24 EQU 73 % RECEIVE BPF COEFFICIENT RBUF25 EQU 74 % RECEIVE BPF COEFFICIENT RBUF26 EQU 75 % RECEIVE BPF COEFFICIENT RBUF27 EQU 76 % RECEIVE BPF COEFFICIENT RBUF28 EQU 77 % RECEIVE BPF COEFFICIENT RBUF29 EQU 78 % RECEIVE BPF COEFFICIENT RBUF30 EQU 79 % RECEIVE BPF COEFFICIENT RBUF31 EQU 80 % RECEIVE BPF COEFFICIENT RBUF32 EQU 81 % RECEIVE BPF COEFFICIENT RBUF33 EQU 82 % RECEIVE BPF COEFFICIENT RBUF34 EQU 83 % RECEIVE BPF COEFFICIENT RBUF35 EQU 84 % RECEIVE BPF COEFFICIENT RBUF36 EQU 85 % RECEIVE BPF COEFFICIENT XIOUT EQU 86 % XMIT HOLD FILTERED I VALUE XQOUT EQU 87 % XMIT HOLD FILTERED Q VALUE XOLDPH EQU 88 % XMIT HOLD LAST PHASE XNEWPH EQU 89 % XMIT HOLD NEW PHASE ERRSIG EQU 90 % FILTERED CARRIER ERROR SIGNAL PLL1 EQU 91 I% CARRIER RECOVERY PLL FILTER COEFFICIENT1 PLL2 EQU 92 I% CARRIER RECOVERY PLL FILTER COEFFICIENT2 SIGNI EQU 93 % SIGN OF I CHANNEL (TO COMPUTE ERROR) SIGNQ EQU 94 % SIGN OF Q CHANNEL (TO COMPUTE ERROR) ERROR EQU 95 % SIGNI*(Q)-SIGNQ*(I) = ERROR ERNM1 EQU 96 I% PLL TAPS CTRND EQU 97 I% CARRIER SHIFT TRENDS TRNDCT EQU 98 I% CARRIER TREND BAUD COUNT ISUM EQU 99 % FILTERED/PHASE SHIFTED SAMPLE QSUM EQU 100 & % FILTERED/PHASE SHIFTED SAMPLE * DLYBUF EQU 100 & % 100-119 DATA DELAY/300BPS MODEM * RECI EQU 101 % BASEBAND I CHANNEL RECQ EQU 102 % BASEBAND Q CHANNEL ENRGY EQU 103 % CURRENT ENERGY PENRGY EQU 104 % PREVIOUS ENERGY ERNM2 EQU 105 I% CLOCK RECOVERY PLL TAPS BERROR EQU 106 % CALCULATED BAUD ERROR BEROUT EQU 107 % SCALED/FILTERED BAUD ERROR BPLL1 EQU 108 I# BAUD PLL COEF BPLL2 EQU 109 I# BAUD PLL COEF TRSHD1 EQU 110 I# THRESHOLD FOR CARRIER RECOVERY TRSHD2 EQU 111 I# THRESHOLD FOR BAUD RECOVERY XIBUF0 EQU 112 % XMIT STORE DATA FOR RAISED COS XIBUF1 EQU 113 % XMIT STORE DATA FOR RAISED COS XIBUF2 EQU 114 % XMIT STORE DATA FOR RAISED COS XQBUF0 EQU 115 % XMIT STORE DATA FOR RAISED COS XQBUF1 EQU 116 % XMIT STORE DATA FOR RAISED COS XQBUF2 EQU 117 % XMIT STORE DATA FOR RAISED COS CX0 EQU 118 # XMIT COEF FOR RAISED COS CX1 EQU 119 # XMIT COEF FOR RAISED COS CX2 EQU 120 & # XMIT COEF FOR RAISED COS BPCOEF EQU 120 & % VAR POINTER TO 300BPS COEFS ROLDPH EQU 121 & I% PREVIOUS ABSOLUTE PHASE (QUADRANT) TMDLY EQU 121 & % DELAY COUNTER REGISTER RNEWPH EQU 122 & % CURRENT ABSOLUTE PHASE (QUADRANT) FSP1 EQU 122 & % SPACE FILTER ENERGY AGC EQU 123 & I% AUTOMATIC GAIN FACTOR FMK1 EQU 123 & % MARK FILTER ENERGY AGCRA EQU 124 & I% SIGNAL MAX RUNNING AVERAGE FOR AGC BIT103 EQU 124 & * HOLD REGISTER FOR DATA BIT AGCOFF EQU 125 & I% AGC CALCULATION LOOKUP TABLE MARK1 EQU 125 & * MARK STEP VALUE 300BPS MODEM AGCNT EQU 126 & I% BAUD SAMPLE COUNT SPACE1 EQU 126 & I* SPACE STEP VALUE 300BPS MODEM AGCLEV EQU 127 % TEMPORARY AGC LEVEL (AGCUPT) *--------------- PAGE * DEBUG EQU $ DEBUG CODE RUN ONCE PER BAUD OUT HIST1,PA5 SHOW AGC OUT HIST2,PA5 SHOW CURRENT MAX * DEBUG DESCRAMBLER LAC RDIBIT SACL BITOUT BZ SWDONE SUB ONE BNZ NOT01 LACK 2 SACL BITOUT B SWDONE NOT01 SUB ONE BNZ SWDONE LACK 1 SACL BITOUT SWDONE OUT BITOUT,PA5 LACK >18 MASK OF BITS 13 & 14 AND HIST2 OF HISTORY SACL TEMP SAVE IT LAC TEMP,13 REALIGN IT WITH RDIBIT SACH TEMP FOR XOR FUNCTION LAC TEMP RELOAD IT XOR BITOUT DB0 XOR Y13 & DB1 XOR Y14 SACL TEMP AND SAVE IT LACK 3 MASK OFF BITS 16 & 17 AND HIST2 OF HISTORY XOR TEMP NDB0 XOR Y16 & NDB1 XOR Y17 SACL TEMP SAVE DESCRAMPLED DIBIT OUT TEMP,PA5 LAC BITOUT,1 ADD HIST1 SACL HIST1 LAC HIST1,14 SACL HIST1 LAC HIST2,14 BGEZ UPHIS1 SACH HIST2 ZALS HIST2 ADD ONE,14 OR HIST1 SACL HIST2 B UPHIS2 UPHIS1 ADDH HIST1 SACH HIST2 UPHIS2 LAC BITOUT,15 SACH HIST1 * LAC DBUGC2 BZ DBUG0 ADD ONE SACL DBUGC2 SUB ONE,1 BGEZ DBUG3 B DBUG2 DBUG0 LAC DBUGC GET INITIAL BAUD COUNT SUB ONE,12 IS IT BIG ENOUGH BNZ DBUG4 NO CONTINUE LACK 3 SUB TEMP BZ DBUG2 LACK 1 SACL DBUGC2 B DBUG2 * DBUG4 ADD ONE,12 ADD ONE SACL DBUGC DBUG2 CALL DEMOD OUT DBUGC,PA5 OUT DBUGC2,PA5 RET DBUG3 NOP NOP NOP NOP RESERVED FOR DEBUG NOP PATCH SPACE NOP NOP OUT DBUGC,PA5 OUT DBUGC2,PA3 OUT MASK1,PA3 OUT MASK1,PA3 END OF TRACE FLAG OUT MASK1,PA3 OUT MASK1,PA3 OUT MASK1,PA3 RET * END