File PROG.LS (listing file)

Directory of image this file is from
This file as a plain text file



       5000  FIXMRI FGET=5000
       6000  FIXMRI FPUT=6000
       1000  FIXMRI FADD=1000
       2000  FIXMRI FSUB=2000
       0000  FIXMRI FJMP=0000
       3000  FIXMRI FMPY=3000
       4000  FIXMRI FDIV=4000
       0013  FFIX=0013
       0014  FLOT=0014
       0002  FSQR=0002
       0001  FSQU=0001
       0000  FISZ=0000
       7001  FCDF=7001
       7100  FSPA=7100
       0000  FEXT=0000
       0070  *70
00070  0000  TYPE, 0
00071  6041        TSF
00072  5071        JMP .-1  /WAIT TILL TTY IS READY
00073  6046        TLS
00074  7200        CLA
00075  5470        JMP I TYPE  /RETURN
00076  0000  CRLF, 0
00077  1177        TAD (215  /CR
00100  4070        JMS  TYPE
00101  1176        TAD  (212  /LF
00102  4070        JMS TYPE
00103  5476        JMP I CRLF   /RETURN
       0160  *160
00160  0000  N, 0
00161  0000  T, 0
00162  0000  M, 0
00163  0000  K, 0
00164  0000  L, 0
00165  0000  P, 0
00166  0000  NN, 0


       0200  *200
00200  7300        CLA CLL   /INITIALIZE TTY
00201  6046        TLS
00202  6032        KCC
00203  1377        TAD  (N
00204  3345        DCA  R1
00205  1376        TAD  (7772    /INITIALIZE  LOOP
00206  3347        DCA  CNT
00207  1375        TAD  (ADDR
00210  3346        DCA  R2
00211  4076  LOOP, JMS CRLF
00212  1746        TAD I R2   /LOOP TYPES
00213  4774'       JMS  PRINT  /QUESTIONS
00214  4773'       JMS LISTN   /ON THE TTY
00215  3745        DCA I R1    /STORES
00216  2345        ISZ  R1     /ESPONCES
00217  2346        ISZ  R2    / IN LOCATIONS
00220  2347        ISZ  CNT   /N THRU P
00221  5211        JMP  LOOP
00222  1165        TAD  P
00223  7440        SZA
00224  5227        JMP  .+3    /JULP IF POLARITY IS +
00225  1372        TAD  (7041  /CIA INSTRUCTUON CO@E
00226  3771'       DCA  S0     /PUT IN SAMPLE ROUTINE
00227  7200        CLA
00230  1160        TAD  N
00231  7041        CIA
00232  3166        DCA  NN
00233  1163        TAD  K
00234  7006        RTL
00235  7004        RAL
00236  1370        TAD  (6201   /SET UP CDF INSTRUCTION
00237  3767'       DCA  S1
00240  5766        JMP I (400
00241  1625  Q1, TEXT /NUMBER OF SAMPLES:/
00242  1502
00243  0522
00244  4017
00245  0640
00246  2301
00247  1520
00250  1405
00251  2372
00252  0000
00253  2301  Q2, TEXT /SAMPLE INTERVAL IN MSEC:/
00254  1520
00255  1405
00256  4011
00257  1624
00260  0522
00261  2601
00262  1440
00263  1116
00264  4015
00265  2305
00266  0372
00267  0000
00270  0310  Q3, TEXT  /CHANNEL NUMBER:/
00271  0116
00272  1605
00273  1440
00274  1625
00275  1502
00276  0522
00277  7200
00300  2301  Q4,  TEXT /SAMPLES STORED IN FIELD:/
00301  1520
00302  1405
00303  2340
00304  2324
00305  1722
00306  0504
00307  4011
00310  1640
00311  0611
00312  0514
00313  0472
00314  0000
00315  2324  Q5, TEXT /STARTING AT LOCATION:/
00316  0122
00317  2411
00320  1607
00321  4001
00322  2440
00323  1417
00324  0301
00325  2411
00326  1716
00327  7200
00330  2017  Q6, TEXT /POLARITY OF START PULSE:/
00331  1401
00332  2211
00333  2431
00334  4017
00335  0640
00336  2324
00337  0122
00340  2440
00341  2025
00342  1423
00343  0572
00344  0000
00345  0000  R1, 0
00346  0000  R2, 0
00347  0000  CNT, 0
00350  0241  ADDR, Q1
00351  0253       Q2
00352  0270       Q3
00353  0300        Q4
00354  0315       Q5
00355  0330       Q6


00366  0400
00367  0445
00370  6201
00371  0420
00372  7041
00373  0600
00374  0631
00375  0350
00376  7772
00377  0160
       0400  *400
00400  7200        CLA
00401  6221        CDF  20    /ZERO OUT
00402  1377        TAD  (2400   /THE
00403  3320        DCA  DA     /DISPLAY
00404  3720        DCA I DA    /BUFFER
00405  2320        ISZ DA
00406  5204        JMP   .-2
00407  6500        6500   /START UP ADC
00410  6506        6506    /RE@D CHANNEL 0
00411  7000        NOP
00412  7000        NOP
00413  7000        NOP
00414  7000        NOP
00415  6505        6505     /WAIT FOR START PULSE
00416  6501        6501
00417  5216        JMP  .-1
00420  7000  S0,   NOP      /CHANFE@ TO CIA ON - POLARTY
00421  1376        TAD  (7463
00422  7710        SPA  CLA
00423  5215        JMP  .-6
00424  1162  SAMPLE, TAD  M
00425  6506        6506      /SAMPLE CHANNEL M
00426  7000        NOP
00427  7000        NOP
00430  7000        NOP
00431  7000        NOP
00432  6505        6505
00433  6501        6501    /WAIT FOR SAMPLE
00434  5233        JMP  .-1
00435  7100        CLL
00436  7500        SMA
00437  5243        JMP  POS    /JUMP IF SAMPLE IP POSITIVE
00440  7130        STL RAR
00441  7130        STL RAR    /DIVIDE BY 4
00442  5245        JMP  .+3
00443  7110  POS,  CLL RAR
00444  7010        RAR
00445  6211  S1,   CDF 10    /SEL@CT DATA FIELD K
00446  3564        DCA I L  /SAVE SAMPL@
00447  1564        TAD I L
00450  6221        CDF  20
00451  3564        DCA I L    /SAVE IN FIELD 2 ALSO
00452  6201        CDF  0
00453  2164        ISZ  L
00454  2166        ISZ  NN
00455  5257        JMP  .+2
00456  5261        JMP  S2
00457  4302        JMS  DELAY
00460  5224        JMP  SAMPLE   /TAKE NEXT SAMPLE
00461  7100  S2,   CLL
00462  6211        CDF  10   /SET UP
00463  1160        TAD  N
00464  3775        DCA I (20   /FOR FFT
00465  1374        TAD  (-1
00466  3773        DCA I (21
00467  1160        TAD  N      /ROUTINE
00470  7010        RAR
00471  2773        ISZ I (21
00472  7440        SZA
00473  5270        JMP .-3
00474  6212        CIF  10
00475  4772        JMS I (150     /DO FFT ON SAMPLES
00476  6201        CDF 0
00477  4771'       JMS  POWER    /COMPUTE THE COEF SQUARED
00500  4770        JMS I (3400    /DISPLAY
00501  7402        HLT
00502  0000  DELAY,  0
00503  1161        TAD  T
00504  7041        CIA
00505  3317        DCA  TC
00506  1367        TAD  (7435  /1ST TIME DDLAY ONLY .967 MSEC
00507  3320        DCA  DA
00510  2320        ISZ  DA
00511  5310        JMP  .-1   /DELAY
00512  1366        TAD  (7375  / DELAY 1MSEC 
00513  3320        DCA  DA
00514  2317        ISZ  TC
00515  5310        JMP  .-5    / DELAY SOME MORE
00516  5702        JMP I DELAY
00517  0000  TC, 0
00520  0000  DA, 0


00566  7375
00567  7435
00570  3400
00571  1000
00572  0150
00573  0021
00574  7777
00575  0020
00576  7463
00577  2400
       0600  *600
00600  0000  LISTN, 0
00601  7300        CLA CLL
00602  3260        DCA NEXT
00603  6031  L1,   KSF
00604  5203        JMP  L1   /WAIT FOR A CHAR
00605  6036        KRB
00606  6046        TLS   /READ AND ECHO CHAR
00607  1377        TAD  (7530  /-250
00610  7510        SPA
00611  5224        JMP  LISTRN
00612  1376        TAD  (7770   /-10
00613  7500        SMA
00614  5217        JMP  .+3  / JUMP IF A NUMBER
00615  1375        TAD  (5  /AC=0 IF MINUS  AC=2 IF POSITIVE
00616  0374        AND  (7
00617  1260        TAD  NEXT
00620  7006        RTL
00621  7004        RAL
00622  3260        DCA  NEXT   / SAVE NUMBER*8
00623  5203        JMP  L1
00624  7200  LISTRN, CLA
00625  1260        TAD  NEXT
00626  7010        RAR
00627  7012        RTR
00630  5600        JMP I LISTN   /RET@RN WITH NIMBER IN AC
00631  0000  PRINT, 0
00632  3260        DCA  NEXT
00633  1660  PRT,   TAD I NEXT
00634  7002        BSW
00635  0373        AND  (77   /GET 1ST CHAR
00636  7450        SNA
00637  5631        JMP I PRINT   /RETURN IF DONE
00640  1372        TAD (-40
00641  7510        SPA
00642  1371        TAD  (100
00643  1370        TAD  (240     /MAKE 8 B@T ASCII CODE
00644  4070        JMS  TYPE
00645  1660        TAD I NEXT
00646  0373        AND  (77   /GET 2ND CHAR
00647  7450        SNA
00650  5631        JMP I PRINT  /RETURN IF DONE
00651  1372        TAD  (-40
00652  7510        SPA
00653  1371        TAD  (100
00654  1370        TAD  (240
00655  4070        JMS TYPE   /TYPE CHAP
00656  2260        ISZ  NEXT
00657  5233        JMP  PRT
00660  0000  NEXT, 0


00770  0240
00771  0100
00772  7740
00773  0077
00774  0007
00775  0005
00776  7770
00777  7530
       1000  *1000
01000  0000  POWER, 0
01001  7300        CLA  CLL
01002  1160        TAD  N
01003  7010        RAR
01004  7041        CIA
01005  3351        DCA  NCOUNT
01006  1377        TAD  (2400
01007  3336        DCA  S
01010  1376        TAD  (1600          /INITIALIZATION
01011  3337        DCA  TEMP
01012  6211  P1,   CDF  10
01013  1736     TAD I S  /GET REAL PART
01014  6201        CDF  0
01015  3044        DCA  44
01016  4407        JMS I 7
01017  0014        FLOT
01020  0001        FSQU     /SQUARE IT
01021  6343        FPUT  STEMP    /SAVE TEMPORARILY
01022  0000        FEXT
01023  2336        ISZ  S
01024  6211        CDF  10
01025  1736        TAD I S    /GET IMAG PART
01026  6201        CDF  0
01027  3044        DCA  44
01030  4407        JMS I 7
01031  0014        FLOT
01032  0001        FSQU     /SQUARE IT
01033  1343        FADD  STEMP    /ADD REAL PART
01034  7031        FCDF  30
01035  6737        FPUT I TEMP   /SAVE IN FIELD 3
01036  5737        FGET I TEMP
01037  7001        FCDF  0
01040  2340        FSUB  SMAX   /CHECK FOR MAX VALUE
01041  7100        FSPA
01042  0245        FJMP  .+3    /JUMP IF NOT > MAX VZLUE
01043  1340        FADD  SMAX
01044  6340        FPUT  SMAX    /SAVE NEW MAX VALUE
01045  0000        FEXT
01046  6201        CDF  0
01047  2337        ISZ  TEMP
01050  2337        ISZ  TEMP
01051  2337        ISZ  TEMP
01052  2336        ISZ  S
01053  2351        ISZ  NCOUNT    /INCREMENY COUNTER
01054  5212        JMP  P1
01055  1160        TAD  N
01056  7010        RAR
01057  7041        CIA
01060  3351        DCA  NCOUNT
01061  1376        TAD  (1600    /REINITIALIZE
01062  3337        DCA  TEMP
01063  1375        TAD  (4400
01064  3336        DCA  S
01065  4407  P2,   JMS I 7
01066  5340        FGET  SMAX
01067  0002        FSQR
01070  6340        FPUT  SMAX
01071  7031        FCDF  30
01072  5737        FGET I TEMP   /GET COEF SQUARED
01073  7001        FCDF  0
01074  0002        FSQR
01075  4340        FDIV  SMAX    /DIVIDE BY MAX VALUE
01076  3346        FMPY  NUMB    /MULTIPLY BY 2047
01077  0013        FFIX
01100  0000        FEXT
01101  6221        CDF  20
01102  1044        TAD  44
01103  3736        DCA I S   /STORE IN BUFFER
01104  6201        CDF 0
01105  2337        ISZ  TEMP
01106  2337        ISZ  TEMP
01107  2337        ISZ  TEMP
01110  2336        ISZ  S
01111  2351        ISZ  NCOUNT
01112  5265        JMP  P2    /DO NEXT COEF
01113  7300        CLA CLL
01114  1160        TAD  N
01115  7010        RAR 
01116  7041        CIA
01117  3351        DCA  NCOUNT    /  N/2
01120  1336        TAD  S
01121  1374        TAD  (-1
01122  3337        DCA  TEMP
01123  6221        CDF  20
01124  1737  P3,   TAD I TEMP   /SAVE MIRROR
01125  3736        DCA I S   /IMAGE OF  COEF
01126  2336        ISZ  S
01127  1337        TAD TEMP
01130  1374        TAD  (-1
01131  3337        DCA  TEMP
01132  2351        ISZ  NCOUNT
01133  5324        JMP  P3
01134  6201        CDF 0
01135  5600        JMP I POWER   /RETURN
01136  2400  S,  2400
01137  1600  TEMP, 1600
01140  0000  SMAX, 0;0;0
01141  0000
01142  0000
01143  0000  STEMP, 0;0;0
01144  0000
01145  0000
01146  0013  NUMB, 0013;3777;0000
01147  3777
01150  0000
01151  0000  NCOUNT, 0


01174  7777
01175  4400
01176  1600
01177  2400
00176  0212
00177  0215
       0001        FIELD 1
       0150  *150
       0060  DOFFT=60
       0054  SORT=54
10150  0000  FFT,  0
10151  6211        CDF  10
10152  4460        JMS I DOFFT
10153  4454        JMS I SORT
10154  6202        CIF 0
10155  5550        JMP I FFT   /RETURN


             $


ADDR   0350      S0     0420
CNT    0347      S1     0445
CRLF   0076      S2     0461
DA     0520      T      0161
DELAY  0502      TC     0517
DOFFT  0060      TEMP   1137
FADD   1000      TYPE   0070
FCDF   7001
FDIV   4000
FEXT   0000
FFIX   0013
FFT    0150
FGET   5000
FISZ   0000
FJMP   0000
FLOT   0014
FMPY   3000
FPUT   6000
FSPA   7100
FSQR   0002
FSQU   0001
FSUB   2000
K      0163
L      0164
LISTN  0600
LISTRN 0624
LOOP   0211
L1     0603
M      0162
N      0160
NCOUNT 1151
NEXT   0660
NN     0166
NUMB   1146
P      0165
POS    0443
POWER  1000
PRINT  0631
PRT    0633
P1     1012
P2     1065
P3     1124
Q1     0241
Q2     0253
Q3     0270
Q4     0300
Q5     0315
Q6     0330
R1     0345
R2     0346
S      1136
SAMPLE 0424
SMAX   1140
SORT   0054
STEMP  1143




ERRORS DETECTED: 0
LINKS GENERATED: 5




Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search