Directory of image this file is from
This file as a plain text file
/AUTO AND CROSS CORRELATION MS- CORRELATIONS ON DATA /COLLECTED VIA THE A/D. / /DEC-8E-AACRA-A-LA / /COPYRIGHT 1972 /DIGITAL EQUIPMENT CORPORATION /MAYNARD, MASSACHUSETTS 01754 /
/FILE COR.3 / /THIS VERSION RUNS UNDER OS-8 /AND READS ANS WRITES TO THE SYSTEM DEVICE. /AUTO AND CROSS CORRELATION PROGRAM FOR THE LAB8/E. /IOT REFERENCES FOR THE LAB8/E / / /AD8-EA 10 BIT A/D CONVERTER / ADCL=6530 /CLEAR ALL ADLM=6531 /LOAD MPLXR ADST=6532 /START CONVERSION ADRB=6533 /READ AD BUFFER ADSK=6534 /SKIP ON AD DONE ADSE=6535 /SKIP ON TIMING ERROR ADLE=6536 /LOAD ENABLE REGISTER ADRS=6537 /READ STATUS REGISTER /VC8-E POINT PLOT DISPLAY DILC=6050 /CLEAR ALL DICD=6051 /CLEAR DONE FLAG DISD=6052 /SKIP ON DONE FLAG DILX=6053 /CLEAR DONE FLAG LOAD X DILY=6054 /CLEAR DONE FLAG LOAD Y DIXY=6055 /CLEAR DONE, INTENSIFY, SET DONE DILE=6056 /LOAD ENABLE CLEAR AC DIRE=6057 /ENABLE TO AC / /DK8-EP REAL TIME CLOCK / CLZE=6130 /ZERO TO ENABLE CLSK=6131 /SKP ON CLOCK FG CLOE=6132 /ONES TO ENABLE CLAB=6133 /AC TO CLK BUF AND COUNTER REGISTER CLEN=6134 /ENABLE TO AC CLSA=6135 /STATUS TO AC AND AC ONE'S CLEAR STATUS REG. CLBA=6136 /CLK BUF TO AC CLCA=6137 /CLK CNTR TO AC AND TO AC / /DB8-EA 12 CHANNEL DIGITAL I/O / DBDI=6500 /ENABLE INTERRUPT DBEI=6501 /DISABLE INTERRUPT
DBSK=6502 /SKIP ON INPUT DBCI=6503 /CLEAR INPUT BITS WITH SET AC BIT DBRI=6504 /READ INPUT DBCO=6505 /CLEAR OUTPUT BITS WITH AC BITS DBSO=6506 /SET OUTPUT BITS WITH AC BITS DBRO=6507 /READ OUTPUT REGISTER BSW=7002 /PAGE 0 *0 0 /JUMP TO INTERRUPT ROUTINE. JMP I .+1 CHAS TTYBUF, 0 /CHAR TO BE TYPED PLACED HERE BY PRINTC. KEYBRD, 0 /CHAR TO BE INPUTED PLACED IN HERE BY INTERRUPT ROUTINE. 0 /LOCATIONS 5,6,AND 7 ARE RESERVED FOR XODT. 0 0 *10 PNTR, 0 /AUTO INDEX REGISTERS. PNTR1, 0 PNTR2, 0 PNTR3, 0 BTCFLG, 0 /=0 IF NORMAL, -1 IF BATCH MODE. TFLAG, 0 SCL, 0 *20 NUMBER, 0 /CONTAINS NUMBER OF POIINTS. CLKCNT, 0 /CONTAINS NUMBER OF XTAL CLOCK TICKS FOR EACH STAGE OF THE ALGORITHIM. WRDCNT, 0 /CONTAINS - # OF POINTS. FLAG, 0 /=0 IF AUTO CORRELATION, -1 IF CROSS. SBUF, BUFFER-1 ENDTMP, 0 /POINTS TO END TEMP BUFFER-1 ENDPRM, 0 /POINTS TO END PERMAMENT BUFFER-1 TKCNT, 0 /COUNTER USED BY CLOCK ROUTINE TO COUNT THE NUMBER OF XTAL TICKS.
COMFLG, -1 /=0 IF ALL COMMANDS LEGAL.=-1 IF ONLY CNTRL/C AND CNTRL/A ARE LEGAL PNTRT, 0 /POINTER TO TEMP BUFFER USED BY CLOCK SERVICE ROUTINE. PNTRH, 0 /POINTERS TO DOUBLE PRECISION BUFFER USED BY CLOCK SERVICE ROUTINE. PNTRL, 0 DISFLG, 0 /=0 IF DISPLAY TEMP BUFFER.=-1 IF DISPLAY PERMAMENT BUFFER. PLTFLG, 0 /=0 IF DON'T PLOT,-1 IF SHOULD PLOT. CHAR, 0 /HOLDS A CHARACTER. NUMER, 0 /NUMERATOR IN DIVIDE ROUTINE. DENOM, 0 /DENOMINATOR IN DIVIDE ROUTINE. X, 0 /X-COORIDINATE Y, 0 /Y-COORIDNATE. CNTR, 0 CNTR1, 0 HIGH1, 0 /DOUBLE PRECISION STORAGE LOW1, 0 HIGH, 0 LOW, 0 S0, 0 /SIGN INDICATOR FOR ADCVAL. S1, 0 TELSW, 0 /IS NON ZERO IF PRINTER SERVICE ROUTINE IS EXPECTING AN INTERRUPT. TEMP, 0 CHECK1, CHECK2 ADC0, BUFFER /ADC0 IS FIRST WORD IN BUFFER. ADC1, 0 PNTR5, 0 SCNTR, 0 /USED AS A COUNTER IN THE CLOCK SERVICE ROUTINE. CURFLG, -1 /=0 IF DISPLAY CURSORS. -1 IF DON'T. SCALE, 4 /CONTAINS SCALE FACTOR FOR Y VALUES. CHKSUM, 0 SGN, 0 T2, 0 CNTR6, 0 HIGH2, 0 DIGBOX, 0 C, 0 T1, 0 SWEEPH, 0 SWEEPL, 0 TT1, 0
SDADDR, CONL-1 T4, 0 PNTR6, 0 DATFLG, 0 /=-1 IF TAKING DATA, 0 IF NOT. EXP, 0 /FLOATING AC HORD, 0 LORD, 0 OVER2, 0 EX1, 0 AC1H, 0 AC1L, 0 OVER1, 0 MINS, ACMINS /SUBROUTINE ASSIGNMENTS. NORM=JMS I . ;DNORM SAVE=JMS I . ;XSAVE NORMF=JMS I . ;DNORM DIVF=JMS I . ;FDIV SORTJ=JMS I . ;SORTB /SEARCH AND BRANCH ROUTINE. COMCHK=JMS I . ;CHECK /CHECKS TO SEE IF USER TYPED COMMANDS. SETDAT=JMS I . ;XSDAT /SETS UP DATA FOR THE DISPLAY ROUTINES. DISPLY=JMS I . ;DYS /DISPLAYS BUFFERS. SETUP=JMS I . ;XSETUP /SETS UP INTERNAL DATA FOR DISPLAY ROUTINE. MESAGE=JMS I . ;MESG /TYPES A MESSAGE ONTO THE TELETYPE. PRINTC=JMS I . ;XPRINT /PRINTS A SINGLE CHAR ONTO THE TELETYPE. READC=JMS I . ;INDEV /READS A CHARACTER FROM THE TELETYPE. DIV=JMS I . ;XDIV /DOES A DIVISION BY SUBTRACTION METHOD. CRLF=JMS I . ;XCRLF /TYPES A CR-LF COMBINATION. RESET=JMS I . ;XRESET /RESETS DATA FOR CLOCK ROUTINE AFTER A SWEEP IS OVER. DNEG=JMS I . ;XDNEG /DOES A DOUBLE PRECISON NEGATION. DBLSCL=JMS I . ;DBS /SCALES A DOUBLE PRECISION WORD. DECIN=JMS I . ;DECINP /INPUTS A DECIMAL # FROM THE TTY. CLEAR=JMS I . ;XCLR /CLEARS OUT THE BUFFERS. CURSOR=JMS I . ;XCUR /DISPLAYS CURSORS. ADC=JMS I . ;XADC /READS IN AN ADC VALUE FROM CHANNEL (AC). DECOUT=JMS I . ;DECTYP /OUTPUTS A DOUBLE PRECISON NUMBER. DOUT=JMS I . ;SDPRNT /OUTPUTS A DOUBLE PRECISION DECIMAL NUMBER.
INIT=JMS I . ;INIT1 /INITIALIZES VARS. DLOOP=JMS I . ;DOLOOP /DOES A LOOP IN THE DISPLAY ROUTINE. LOADX=JMS I . ;XLOAD LOADY=JMS I . ;YLOAD LIUFLG, 0 /THE REST OF THE PAGE 0 LOCATIONS ARE RESERVED FOR LITERALS. *200 START, CLA CLL CMA CLZE CLA TCF KCC ION AGAIN, MESAGE /TYPE "RATE? " MES1-1 DECIN /READ THE ANSWER. TAD NUMBER /RATE<=0? SMA SZA CLA JMP ALRGHT /YES. MESAGE /NO. TYPE "000.0<RATE<204.8" MES2-1 JMP AGAIN ALRGHT, TAD NUMBER /CRYSTAL CLOCK COUNTER=-RATE CIA DCA CLKCNT AGAIN1, MESAGE /TYPE "N0. OF POINTS? " MES3-1 JMS I (DECI /READ THE ANSWER. TAD NUMBER /# OF POINTS <=0? SMA SZA CLA JMP OK /NO. ERROR4, MESAGE /YES. TYPE "0<# OF POINTS<513" MES4-1
JMP AGAIN1 OK, TAD (-1000 /NUMBER<=512 (DECIMAL)? TAD NUMBER SMA SZA CLA JMP ERROR4 /NO. TAD NUMBER /NUMBER>4? TAD (-4 SPA SNA CLA JMP ERROR4 /NO. TAD NUMBER /YES. WRDCNT=-NUMBER 0F POINTS. CIA DCA WRDCNT MESAGE /TYPE "AUTO? " MES5-1 RDAGN, READC /READ ANSWER. /BECAUSE COMFLG=-1 ONLY CNTRL/C AND CNTR/A ARE LEGAL COMMANDS. SORTJ /SEE IF CHAR ="Y" OR "N" LST1-1 JMP1-LST1 JMP RDAGN /NOT A "Y" OR "N". IGNORE AND DON'T ECHO . ASK AGAIN. YES, CMA /FLAG=0 IF AUTO NO, CMA /FLAG=-1 IF CROSS DCA FLAG PRINTC /ECHO. CRLF /TYPE A CR-LF TAD SBUF /GET BUFFER -1 TAD NUMBER /SET ENDTMP TO END OF TEMP BUF -1 DCA ENDTMP TAD NUMBER /SET ENDPRM TO END OF PERM BUF -1 CLL RAL /MULT BY 2 TO COMPENSATE FOR DOUBLEPRECISION. TAD ENDTMP DCA ENDPRM CONT2, CLEAR /CLEAR BUFFERS. TAD CLKCNT /TICK COUNTER = CLKCNT. DCA TKCNT /TKCNT USED BY CLOCK SERVICE ROUTINE. DCA COMFLG /ALL COMMANDS ACCEPTABLE. DCA LIUFLG /SET THE BUFFER NOT FULL FLAG RESET /SET UP DATA FOR CLOCK SERVICE ROUTINE. JMS I (MODE
CONT3, JMS DISP JMP .-1 /DISPLAY LOOP BEGINS HERE. DISP, 0 TAD DISFLG /DISPLAYING INPUT? SZA CLA JMP SPPB /NO. TAD SBUF /YES. SET PNTR TO BEGINNING OF TEMP BUF IAC CONT6, DCA PNTR SETDAT /SET DATA FOR DISPLAY ROUTINE. DISPLY /DISPLAY DATA. TAD PLTFLG /PLOTTING? SMA CLA JMP CONT5 /NO. DCA PLTFLG /YES. TERMINATE PLOTTING MODE. SKP CONT5, CURSOR /DISPLAY CURSORS. JMP I DISP SPPB, TAD ENDTMP /SET PNTR TO BEGGINNING OF PERMAMENT BUFFER. IAC JMP CONT6 /THIS NEXT ROUTINE IS A SORT AND BRANCH ROUTINE. /CALLING SEA /CALLING SEQUENCE: SORTJ / LIST1-1 / LIST2-LIST1 / /RETURN /THE CONTENTS OF CHAR IS SORTED AGAINST LIST1. /IF A MATCH IS FOUND A JUMP IS MADE TO THE /CONTENTS OF THE CORRESPONDING LOCATION IN LIST2. /IF A MATCH IS NOT FOUND A RETURN IS MADE TO RETURN. /LIST1 IS TERMINATED BY A NEGATIVE NUMBER. SORTB, 0 /CALLED VIA "SORTJ" TAD I SORTB /GET POINTER LIST1-1 DCA PNTR1 SORTB1, TAD I PNTR1 /GET ENTRY
SMA /END OF LIST? JMP SORTB2 /NO. ISZ SORTB /YES. RETURN. ISZ SORTB CLA CLL JMP I SORTB SORTB2, CIA TAD CHAR SZA CLA /MATCH? JMP SORTB1 /NO. CONTINUE LOOKING. TAD PNTR1 /YES. COMPUTE CORRESPONDING LOCATION IN LIST2. ISZ SORTB TAD I SORTB DCA SORTB TAD I SORTB DCA SORTB JMP I SORTB /THIS NEXT ROUTIEN CHECKS TO SEE IF A COMMAND HAS BEEN TYPED /BY THE USER. /IF THE AC IS NON-ZERO UPON ENTRY, THE ROUTINE WILL CHECK /FOR COMMANDS USING CHAR, INSTEAD OF KEYBRD. CHECK, 0 SZA CLA /AC=0? JMP CHK /NO. CHECK WITH CHAR. TAD KEYBRD /YES. CHECK WITH KEYBRD. ANYTHING TO CHECK? SNA JMP I CHECK /NO. EXIT. DCA CHAR /YES. DCA KEYBRD CHK, TAD COMFLG /CHECK FOR CNTR/C AND CNTRL/A? SPA CLA JMP CHECK3 /YES. JMS I (CHKALL /CHECK FOR MORE COMMANDS. CHECK2, JMP I CHECK /NO. RETURN.CHECK2, JMP I CHECK /RETURN. NOT A COMMAND. CHECK3, SORTJ CLST-1 COMGO1-CLST LUCY, JMP I CHECK
/THIS NEXT ROUTINE DISPLAYS EITHER THE TEMP OR PERM BUFFERS. *400 DYS, 0 /CALLED VIA "DISPLY" COMCHK /CHECK FOR COMMANDS. SETUP /SETUP COUNTERS AND POINTERS. DYS1, DLOOP /DO DISPLAY LOOP JMP I DYS /DONE. TAD X /LOAD X LOADX CLA CLL TAD Y LOADY CLA CLL TAD PLTFLG /PLOTTING? SZA CLA JMS I (DELAY /YES DELAY. JMP DYS1 /NO. CONTINUE. XSETUP, 0 /CALLED VIA "SETUP" DCA C /C=0 TAD DENOM /X=-QUOTIENT. CIA DCA X CLA CMA TAD WRDCNT /CNTR=-# OF POINTS. DCA CNTR JMP I XSETUP DOLOOP, 0 /CALLED VIA "DLOOP" TAD X /X=X+QUOTIENT. TAD DENOM DCA X TAD WRDCNT /C>=DIVISOR?
TAD C SPA CLA JMP DS1 /NO. DCA C /YES. C=0 ISZ X /X=X+1 DS1, TAD DISFLG /DISPLAYING DOUBLE PRECSIION? SMA CLA JMP DS2 /NO. TAD I PNTR /YES. DCA HIGH /GET HIGH ORDER. TAD I PNTR DCA LOW DBLSCL TAD SCL DS3, DCA Y TAD C /C=C+REMAINDER TAD NUMER DCA C ISZ CNTR /LOOP DONE? ISZ DOLOOP /NO. JMP I DOLOOP /YES. EXIT CALL+1 DS2, TAD I PNTR /DO A SINGLE PRECISION SCALE. JMP DS3 /THIS ROUTINE TYPES A MESSAGE ON THE TTY. /CALLING SEQUENCE: MESAGE / LIST-1 / RETURN /THE LIST CONTAINS 8 BIT ASCII CHARS AND IS TERMINATED BY A 0. MESG, 0 /CALLED VIA "MESAGE" CRLF /TYPE A CR-LF. TAD I MESG /GET POINTER. DCA PNTR ISZ MESG MESG1, COMCHK /CHECK FOR COMMANDS. TAD I PNTR /GET TABLE ENTRY.
SNA /END? JMP I MESG /YES. PRINTC /NO. PRINT IT. JMP MESG1 /THE NEXT ROUTINE PRINTS A CHAR. XPRINT, 0 /CALLED VIA "PRINTC" SZA /PRINT CONTENTS OF AC? DCA CHAR /YES. TAD TELSW /INTERRUPT EXPECTED? SNA CLA JMP XPR1 /NO. PRINT HERE. XPR3, TAD TTYBUF /YES. PREVIOUS CHAR BEEN PRINTED? SZA CLA JMP XPR2 /NO. TAD CHAR /YES. DCA TTYBUF JMP I XPRINT XPR1, TAD CHAR TLS /PRINT CHAR. DCA TELSW /TURN ON TELSW DCA TTYBUF JMP I XPRINT XPR2, COMCHK /CHECK FOR COMMANDS WHILE IN LOOP. JMP XPR3 /CHECK AGAIN. /THE NEXT ROUTINE READS A CHAR FROM THE TTY. /AND PLACES IT IN CHAR. INDEV, 0 /CALLED VIA "READC" TAD KEYBRD /ANYTHING TYPED YET? SNA CLA JMP .-2 /NO. CHECK AGAIN. COMCHK JMP I INDEV /THE NEXT ROUTIEN TYPES OUT A CR-LF.
XCRLF, 0 /CALLED VIA CRLF TAD (215 PRINTC TAD (212 PRINTC JMP I XCRLF /THE NEXT ROUTINE DOES A DIVISION BY SUBTRACTION. /THE NUMERATOR IS HELD IN LOCATION NUMER /THE DENOMINATOR IS HELD IN LOCATION DENOM. /AFTER THE DIVISION THE REMAINDER IS IN NUMER /AND THE QUOTIENT IN DENOM. /NUMER MUST BE >= DENOM XDIV, 0 /CALLED VIA "DIV" DCA INDEV /CLEAR SUBTRACTION COUNTER. COUNT, TAD DENOM /DO NUMER-DENOM CIA TAD NUMER SPA /SUBTRACTED ENOUGH TIMES? JMP .+4 /YES. DCA NUMER /NO. ISZ INDEV /UP DATE SUBT. COUNTER. JMP COUNT CLA CLL TAD INDEV /PUT IN QUOTIENT DCA DENOM JMP I XDIV MES10, "N "A "M "E ": 240 0 /INTERRUPT HANDLER.
*600 INTRPT, DCA AC RAL DCA LINK CLSA SNA CLA JMP TPRNT /NO. CHECK OTHER DEVICES. ISZ TKCNT /CLOCK TICKED ENOUGH TIMES? JMP IEXIT /NO. EXIT. TAD AC DCA AC1 /YES. SAVE AC. TAD LINK DCA LINK1 TAD CLKCNT /RESET CLOCK COUNTER. DCA TKCNT TAD 0 /SAVE RETURN. DCA RETURN ION JMS DOALG /NO. DO ALGORITHIM. JMS I [RDVAL RESET /RESET VARS. TAD DATFLG /STILL TAKING DATA? SMA CLA JMP I (CNTRQ1 /NO TAD LINK1 RAR TAD AC1 JMP I RETURN RETURN, 0 AC1, 0 LINK1, 0 AC, 0 PNTRA, 0 LINK, 0 ADCVAL, 0 TEST, 0 CLL /CLEAR LINK.
SPA /ADC VALUE <0? CML CIA /YES. SET LINK AND NEGATE. DCA ADCVAL /SAVE. RAR /GET LINK. IT INDICATES THE SIGN. DCA S0 TAD ADCVAL AND [360 /MASK 0FF THE 4 BITS. CLL RTR /ROTATE INTO POSITION. RTR TAD S0 /PUT IN SIGH BIT DCA ADCVAL JMP I TEST DOALG, 0 TAD BTCFLG /ARE WE IN BATCH MODE? SZA CLA JMP LIU1 /YES, BUFFER MUST BE FULL TAD LIUFLG /NO HAVE WE FILLED THE BUFFER YET? TAD WRDCNT SZA CLA JMP LIU4 /NO, JUST SHIFT LIU1, TAD I PNTRT /GET DATA. CLL /CLEAR LINK. SPA /IS IT NEG? CML CIA /YES. SET LINK AND NEGATE. AND [360 /GET THE 4 BITS. TAD ADCVAL /ADD IN ADCVAL. SPA /ADCVAL NEG? CML /YES. AND [3777 /CLEAR SIGN BIT. TAD [7000 /ADD IN TABLE BIAS. DCA PNTRA TAD I PNTRA /GET ANSWER. SZL /# NEG? JMP NEG /YES. TAD I PNTRL /ADD IN LOW ORDER. DCA I PNTRL GLK JMP BOOB NEG, CIA /NEGATE RESULT. TAD I PNTRL DCA I PNTRL GLK CIA BOOB, TAD I PNTRH /ADD OR SUBTRACT CARRY. DCA I PNTRH
LIU4, TAD I PNTRT /ROTATE IT. ISZ PNTRT DCA I PNTRT TAD [-2 TAD PNTRT DCA PNTRT TAD [-2 /PNTRH=PNTRH-2 TAD PNTRH DCA PNTRH TAD PNTRH /RESET PNTRL. IAC DCA PNTRL ISZ SCNTR /LOOP DONE? JMP DOALG+1 /NO. JMS I [ADDS TAD LIUFLG /INCREMENT THE SCAN COUNT? TAD WRDCNT SZA CLA /IF SKIP, NO ISZ LIUFLG /YES JMP I DOALG TPRNT, TSF /PRINTER? JMP KINT /NO. TCF /YES. CLEAR FLAG. TAD TTYBUF /ANYTHING TO TYPE? SZA JMP INT1 /YES. DCA TELSW /NO. TURN OFF TELSW. IEXIT, TAD LINK RAR TAD AC IEXIT1, RMF ION JMP I 0 INT1, TPC /PRINT CHAR. DCA TELSW /TURN ON TELSW. DCA TTYBUF /CLEAR TTYBUF. JMP IEXIT KINT, KSF /KEYBORAD? JMP IEXIT KRB /YES. READ IN CHAR. DCA KEYBRD JMP IEXIT
CHAS, DCA AC RAL DCA LINK JMP TPRNT *1000 /THE NEXT ROUTINE DOES A DOUBLE PRECISION NEGATION . /CALLIN SEQUENCE: DNEG / POINTER TO HIGH ORDER. / RETURN /THE RESULT IS PUT BACK IN THE SAME WORDS. XDNEG, 0 /CALLED VIA "DNEG" TAD I XDNEG /GET POINTER. DCA PNTR5 TAD PNTR5 IAC CLL /GENERATE POINTER TO LOW ORDER. DCA PNTR6 TAD I PNTR6 /NEGATE LOW ORDER. CIA DCA I PNTR6 TAD I PNTR5 /COMPLEMENT HIGH ORDER. CMA SZL /ADD IN CARRY. IAC CLL DCA I PNTR5 JMP I XDNEG /THE NEXT ROUTINE SCALES A DOUBLE PRECISON WORD. /IF SCALE=0 THEN NOTHING IS DONE. /IF SCALE > 0 THEN THE DOUBLE PRECISON WORD IS SHIFTED LEFT /SCALE # OF TIMES AND THE HIGH ORDER WORD DISPLAYED. /IF SCALE <0 THEN THE DOUBLE PRECISON WORD IS SCALED /RIGHT SCALE TIMES.
DBS, 0 TAD HIGH /DOUBLE PRECISIONWORD < 0? SPA CLA JMP NEGG1 /YES. XXX1, DCA SGN /NO. SGN=0. IAC CLL RAL /SHIFT AN ORIGNAL 2 PLACES RIGHT. JMS I [SHIFTR HIGH TAD SCALE /SCALE =0? SNA JMP EXIT1 /YES. SPA /NO. >0? JMP SL0 /NO. JMS SHIFTL /YES. SHIFT LEFT. HIGH EXIT1, TAD HIGH ISZ SGN CIA CIA JMP I DBS SL0, CIA JMS I (SHIFTR /SHIFT RIGHT. HIGH JMP EXIT1 NEGG1, DNEG HIGH CMA JMP XXX1 SHIFTL, 0 /THIS ROUTINE SHIFTS HIGH LOW AC TIMES LEFT. CIA DCA CNTR1 /SET COUNTER. TAD I SHIFTL DCA PNTR5 /GET POINTER. TAD PNTR5 IAC ISZ SHIFTL DCA PNTR6 SHIFL, TAD I PNTR6
CLL RAL DCA I PNTR6 TAD I PNTR5 RAL DCA I PNTR5 ISZ CNTR1 JMP SHIFL CLL JMP I SHIFTL PLOT, TAD PMODE CLOE CLA CMA DCA PLTFLG /PLOT TAD DISFLG /DISPLAYING TEMP BUF? SMA CLA JMP PYES /YES. JMS I (DISFST /NO. DISP FIRST POINT OF PERM BUFFER. WAIT, READC /WAIT FOR USER TO TYPE SOMETHING BEFORE PLOTTING. JMS I [DISP READC /WAIT FOR USER TO TYPE SOMETHING BEFORE PROCEEDING. JMP I [CONT3 PMODE, 5300 PYES, TAD SBUF IAC DCA PNTR LOADX CLL CLA TAD I PNTR LOADY CLA CLL JMP WAIT /THE NEXT ROUTINE INPUTS A DECIMAL NUMBER FROM THE TTY. /THE NUMBER TYPED IN IS LEFT IN LOCATION NUMBER. /IF A RUBOUT IS TYPED THEN INPUT IS RESTARTED. /ONLY A MAX OF 4 DIGITS CAN BE TYPED.
DECINP, 0 /CALLED VIA "DECIN" TAD (-3 /INPUT NO MORE THAN 3 DIGITS BEFORE DECIMAL POINT. DCA CNTR1 DCA NUMBER LOOP5, READC /READ A CHAR. SORTJ /SEE IF A RUBOT OR PERIOD. INLST-1 GOLST-INLST JMS I TESTN1 /NOT A RUBOUT OR ".". SEE IF A DIGIT. JMP LOOP5 /NOT A DIGIT. IGNORE. PRINTC /IT IS A DIGIT. ECHO. JMS I CONVRI /DO ALGORITHIM. ISZ CNTR1 /INPUTED 3 DIGITS? JMP LOOP5 /NO. DEC6, READC /YES. WAIT FOR PERIOD. SORTJ INLST-1 GOLST-INLST JMP DEC6 PERIOD, DCA CNTR1 PRINTC /ECHO THE PERIOD. READC /INPUT ONE MORE DIGIT. JMS I TESTN1 /A DIGIT? JMP PERIOD+2 /NO.IGNORE. PRINTC /YES. ECHO. JMS I CONVRI /DO ALGORITHIM. BIN5, CRLF JMP I DECINP RUBOUT, TAD (334 /A RUBOUT WAS TYPED. RESTART INPUT. PRINTC /ECHO A "\" JMP DECINP+1 CR, TAD X /X=-1? IF SO CR ACCEPTABLE. SPA CLA JMP BIN5 /YES. TYPE A CR AND EXIT. TAD CNTR1 /NO. STILL WAITING FOR 3 DIGITS? SZA CLA JMP LOOP5 /YES.
JMP DEC6 /NO. WAITING FOR A PERIOD CONVRI, CONVER TESTN1, TESTN /THE NEXT ROUTINE CLEARS THE BUFFERS. *1200 /THIS ROUTINE DISPLAYS THE CURSORS. XCUR, 0 /CALLED VIA "CURSOR" TAD CURFLG /DISPLAY CURSORS? SZA CLA JMP I XCUR /NO. ADC JMS DELOOP CLA IAC ADC JMS DELOOP JMP I XCUR DELOOP, 0 TAD [400 LOADX CLA CLL TAD (-1000 DCA TT1 TAD (-377 DLOP, LOADY TAD [-10 ISZ TT1 JMP DLOP CLA CLL JMP I DELOOP
/THE NEXT ROUTIE DIES A DOUBLE PRECISION SIGNED /DECIMAL OUTPUT. IT PRITNS THE DOULBE PRECISION NUMBER /HELD IN LOCATIONS HIGH1 AND LOW1. SDPRNT, 0 /CALLED VIA "DOUT" TAD HIGH1 SMA CLA /NUMBER <0? TAD (-15 /NO. GENERATE CODE FOR SPACE. TAD (255 PRINTC TAD HIGH1 /HIGH1<0? SMA CLA JMP NO11 /NO. DNEG HIGH1 /YES. NEGATE IT. NO11, TAD (-7 /TYPE OUT 7 DIGITS. DCA CNTR6 TAD SDADDR DCA PNTR2 SDLOOP, TAD I PNTR2 /GET ENTRY FROM TABLE OF POWERS. DCA HIGH TAD I PNTR2 DCA LOW SDOUT, JMS I (DPDIV TAD DIGBOX TAD (260 PRINTC /PRINT DIGIT. ISZ CNTR6 /DONE? JMP SDLOOP /NO. JMP I SDPRNT CONL, 0364 /1,000,000 1100 0030 /100,000 3240 0002 /10,000 3420 0000
1750 /1,000 0000 /100 144 0000 /10 0012 ONE, 0000 0001 /COMMAND HANDLERS. CNTRLA, INIT /INIT VARS. JMP I .+1 START CNTRLZ, CLEAR /CLEAR BUFFERS. INIT CLA CLL CMA /TURN OFF CLOCK. CLZE CLA TAD (CHAS DCA 2 DCA COMFLG /ALL COMMANDS ACCEPTABLE. ION JMP I (CONT3 CNTRLS, CLEAR /CLEAR BUFFERS. CNTRLR, CLSA CLA CMA CLZE /ZAP THE CLOCK DCA DATFLG /SET DATA TAKING FLAG TAD (-144 CLAB /BUFFER PRESET = -100 CLL CLA TAD CLKMDE /GET THE CLOCK MODE CLOE CLA CLL CMA DCA CURFLG
TAD BTCFLG /BATCH MODE? SZA CLA JMP I (BATCH-6 /YES. TAD (INTRPT DCA 2 JMP I [CONT3 MES8, 262 /2 336 /^ 0 DVSOR, 0 0 DECI, 0 CMA DCA X DECIN DCA X JMP I DECI CLKMDE, 5610 *1400 KALBRT, LOADX /CALABRATE PLOTTER. TAD (-377 LOADY CLA CLL READC /WAIT FOR USER TO TYPE SOMETHING. CMA COMCHK /CHECK FOR COMMAND TAD (777 LOADX CLA CLL CLL CLA TAD (377 LOADY CLA CLL
READC /WAIT FOR USER TO YPE SOMETHING. CMA COMCHK JMP KALBRT /THIS COMMAND TYPES OUT DATA BETWEEN CURSORS. /IN ADDITION IT TYPES OUT THE FOLLOWING DATA: /VALUE OF THE LOWER CURSOR, VALUE OF THE HIGHER CURSOR, /THE # OF SWEEPS, # OF POINTS BETWEEN CURSORS, AND /THE TIME IN HUNDREDS OF MICRO SECS BEWEEEN CURSORS. /THIS NEXT COMMAND TYPES OUT DATA BETWEEN THE CURSORS IN ONE OF /TWO MODES. MODE 1 IS REPRESENTED EXTERNALLY BY THE COMMAND /CNTRL/T. IT DIVIDES THE DATA BETWEEN THE CURSORS BY THE FIRST /POINT IN THE PERMAMENT BUFFER. SINCE THE FIRST IS THE LARGEST, /OUTPUT IS IN THE FORM OF THE FRACTIONAL VALUES OF EACH /POINT IN RELATION TO THE FIRST POINT. /MODE 2 IS OUTPUTS THE POINTS AS MILLI VOLTS SQUARED TIMES 10^2. TYPCR, CLA CMA /MODE 1. TFLAG=-1 TYPCUR, DCA TFLAG /MODE 2. TFLAG=0 CRLF DCA DISFLG SETDAT /TYPE OUT DATA BETWEEN CURSORS. SETUP /SET UP DATA FOR DISPLAY ROUTINE. ADC JMS FIND DCA TEMP SETDAT SETUP CLA IAC ADC JMS FIND DCA ADC1 TAD ADC1 /TEMP=ADC1? CIA
TAD TEMP SNA JMP I CHECK1 /YES. DON'T TYPE ANYTHING. SMA /NO. TEMP<ADC1 JMP TYP1 /NO. DCA TT1 /YES. SAVE DIFFERENCE FOR USE AS A COUNTER. TYP2, CMA TAD TT1 DCA TT1 CMA TAD TEMP CLL RAL /GENERATE LOCATION IN PERM BUFFER. TAD ENDTMP IAC DCA PNTR3 TAD TEMP DECOUT TAD (254 PRINTC TAD ADC1 DECOUT JMS I (SWPOUT JMS I (TYPRST /TYPE REST OF THE DATA. CRLF TAD TFLAG /IS THIS MODE 1? SMA CLA JMP CONT12 /NO. TAD ENDTMP /YES. FLOAT FIRST POINT IN BUFFER. IAC DCA 17 TAD I 17 DCA HORD TAD I 17 DCA LORD JMS I (DFLOAT SAVE /SAVE IT DVSOR CONT12, TAD I PNTR3 DCA HIGH1 /GET HIGH ORDER WORD TAD I PNTR3
DCA LOW1 JMS I (TYPIT /PRINT IT. CRLF ISZ TT1 /DONE? JMP CONT12 JMP I (TEXIT TYP1, CIA /SAVE DIFFERENCE AS A COUNTER DCA TT1 TAD TEMP DCA PNTR2 /SAVE TEMP TAD ADC1 /EXCHANGE ADC1 AND TEMP DCA TEMP TAD PNTR2 DCA ADC1 JMP TYP2 FIND, 0 TAD [400 DCA TT1 DCA SGN /CLAER Y COUNTER. FIND1, DLOOP /CALL DISPLY ROUTINE. JMP DONE-1 /DONE ISZ SGN /INC Y COUNTER. TAD X /TT1<=X? CIA TAD TT1 SMA SZA CLA JMP FIND1 /NO. LOOK AGAIN. TAD SGN /YES. DONE, JMP I FIND /THE NEXT ROUTINE READS IN FROM THE ADC . THE CHANNEL TO /READ FROM IS IN THE AC UPON ENTRY. THE VALUES READ IN IS IN /THE AC WHEN EXIT IS MADE. XADC, 0 /CALLED VIA "ADC" ADLM ADST ADSK JMP .-1
ADRB CLL SPA CLL CML RAR CLL JMP I XADC MSRW, CDF CIF 10 JMP I .+1 /JUMP TO THE MASS STORAGE ROUTINE. MSSTRT *1600 OUT1, 0 /THIS ROUTINE OUTPUTS THE (AC). DCA T4 /SAVE. TAD SGN /HIGH SPEED? SZA CLA JMP LOWSPD /NO. IOF /YES TAD T4 JMS I PNCHI ION CONT17, TAD T4 TAD CHKSUM DCA CHKSUM COMCHK JMP I OUT1 LOWSPD, TAD T4 PRINTC JMP CONT17 PNCHI, PNCH OUTW, 0 /THIS ROUTINE OUT PUTS A 12 BIT WORD. DCA T1 /SAVE WORD. TAD T1 AND [7700 /OUTPUT LEFT HALF. CLL RTR RTR
RTR JMS OUT1 TAD T1 AND [77 /OUTPUT RIGHT HALF. JMS OUT1 JMP I OUTW OUTDP, 0 /THIS ROUTINE OUTPUTS A DOUBLE PECSION NUMBER. TAD I PNTR3 JMS OUTW TAD I PNTR3 JMS OUTW JMP I OUTDP JMP2, YES1 NO1 LST2, 377 /RUBOUT 215 /CR 221 /CNTRL/Q -1 JMP3, RUBIT CR1 CNTRQ MES9, "O "U "T "? 240 000 LST1, 331 /Y 316 /N -1 JMP1, YES NO COMLST, 224 /CNTRL/T THESE COMMANDS CAN NOT RUN WHILE DATA IS BEING TAKEN.
217 /CNTRL/O 320 /P 313 /K 324 /T 202 /CNTRL/B 227 /CNTRL/W 316 /N 303 /C CMLST1, 203 /CNTRL/C THESE COMMANDS CAN INTERRUPT DATA TAKING. 201 /CNTRL/A 221 /CNTRL/Q 232 /CNTRL/Z 325 /U 304 /D 222 /CNTRL/R 326 /V 223 /CNTRL/S 225 /CNTRL/U 330 /X 332 /Z -1 COMGO, TYPCR CHECK2 PLOT KALBRT TYPCUR BIN MSRW SWEEP1 KCUR COMGO1, CNTRLC CNTRLA CNTRLQ CNTRLZ UP DOWN CNTRLR VIEW CNTRLS CHECK2
EXPAND ZERO CLST, 203 /CNTRL/C 201 /CNTRL/A -1 INLST, 256 /"." 377 /RUBOUT 215 /CR -1 GOLST, PERIOD RUBOUT CR /MESSAGES. MES1, 322 /R 301 /A 324 /T 305 /E 277 /? 240 / 0 MES2, 260 /0 260 /0 260 /0 256 /. 260 /0 274 /< 322 /R 301 /A 324 /T 274 /< 262 /2 260 /0 264 /4 256 /. 270 /8 0
MES4, 264 /4 274 /< 243 /# 240 / 317 /O 306 /F 240 / 320 /P 317 /O 311 /I 316 /N 324 /T 323 /S 274 /< 265 /5 261 /1 263 /3 0 MES3, 316 /N 317 /O 256 /. 240 / 317 /O 306 /F 240 / 320 /P 317 /O 311 /I 316 /N 324 /T 323 /S 277 /? 240 / 0 MES5, 301 /A
325 /U 324 /T 317 /O 277 /? 240 / 0 /THIS ROUTINE OUTPUTS A SINGLE PRECISON SIGNED /NUMBER AS A DECIMAL NUMBER. THE NUMB@R IS HELD IN THE /AC UPON ENTRY. DECTYP, 0 /CALLED VIA "DECOUT" DCA LOW1 /SAE NUIBER DCA HIGH1 TAD LOW1 /IS #<0? SMA CLA JMP DEC1 /NO. TAD LOW1 CIA /YES. DCA LOW1 DNEG HIGH1 DEC1, DOUT JMP I DECTYP /THIS ROUTINE RESETS VARS. XRESET, 0 TAD ENDTMP DCA PNTRT TAD ENDPRM DCA PNTRH TAD PNTRH IAC DCA PNTRL TAD WRDCNT DCA SCNTR
JMP I XRESET JMS I (BRESET /RESET VARS. AND CLEAR FLAG. TAD P10 CLZE CLA TAD CLKCNT DCA TKCNT BATCH, TAD DATFLG /STILL TAKING DATA? SMA CLA JMP I (CNTRQ1 /NO. RETURN TO CNTRLQ CLSA SNA CLA JMP .-2 ISZ TKCNT /TICKED ENOUGH TIMES? JMP .-4 /NO. CLA CLL /MAKE SURE AC IS CLEAR. ADC /READ IN VALUE. DCA I PNTRT /STORE IN BUFFER. CMA /MOVE POINTERS. TAD PNTRT DCA PNTRT ISZ SCNTR /READ IN N+1 POINTS? JMP BATCH-2 /NO. READ ANOTHER VALUE. JMS I (STRIP /YES. STRIP DATA JMS I [DISP /DIPLAY. JMS I [DISP TAD FLAG /CROSS CORRELATION? SMA CLA JMP DOSWP /NO. IAC /YES. READ IN VALUE. ADC JMS I [TEST DOSWP, TAD ENDTMP /DO A SWEEP. DCA PNTRT TAD WRDCNT DCA SCNTR JMS I (DOALG JMS I [DISP JMP BATCH-6 /YES.
P10, 10 XSDAT, 0 /CALLED VIA "SETDAT". SETS UP DATA FOR DISPLAY. TAD [1000 DCA NUMER TAD NUMBER DCA DENOM DIV JMP I XSDAT KCUR, TAD CURFLG CMA DCA CURFLG JMP I CHECK1 ERROR, MESAGE MES12-1 CRLF JMP I (CONT3 *2200 SWEEP1, CRLF JMS I SSOUT /TYPE # OF SWEEPS MESAGE /TYPE "2^" MES8-1 TAD SCALE DECOUT CRLF JMP I [CONT3 SSOUT, SWPOUT ADDS, 0 /INC SWEEP COUNTER. TAD SWEEPL
IAC CLL DCA SWEEPL GLK TAD SWEEPH DCA SWEEPH JMP I ADDS /THIS NEXT ROUTIEN DETERMINES THE MODE, EITHER NORMAL OR BATCH. /IT DOES IT IN THE FOLLOWING WAY. IT TAKES 200 MICRO SECS /TO PROCESS ONE POINT. IF THE TOTAL PROCESSING TIME, WHICH /IS N*200 MICRO SECS IS <= TO THE TIME BETWEEN SAMPLES, /THEN IT IS NORMAL MODE, OTHERWISE IT IS BATCH MODE. /THE USER TYPES IN HIS RATE IN THE FORMAT XXX.X MIILI SECS, /WHICH IS EQIV. TO XXXX HUNDRED MICRO SECS.. /TO COMPARE WE USE THE FOLLOWING, IS N*200 MICRO SECS /LESS THAN AND EQUAL TO XXXX*100 MICRO SECS, OR /IS 2*N<=XXXX. MODE, 0 TAD NUMBER CLL RAL /MULT NUMBER BY 2. TAD CLKCNT /SUBTRACT RATE. SPA SNA CLA JMP XXXT CMA /YES. BTCFLG=-1 DCA BTCFLG MESAGE /TYPE "BATCH." MES6-1 CRLF JMP I MODE XXXT, MESAGE /TYPE "NORMAL." MES7-1 CRLF DCA BTCFLG JMP I MODE UP, IAC SKP
DOWN, CMA TAD SCALE DCA SCALE JMP I CHECK1 SHIFTR, 0 /SHIFTS HIGH, LOW AC PLACES RIGHT. CIA /SAVE COUNTER. DCA T2 TAD I SHIFTR /GET POINTER TO HIGHORDER WORD. DCA PNTR5 TAD PNTR5 IAC ISZ SHIFTR DCA PNTR6 SHIFR, TAD I PNTR5 CLL RAR DCA I PNTR5 TAD I PNTR6 RAR DCA I PNTR6 ISZ T2 /DONE? JMP SHIFR JMP I SHIFTR STRIP, 0 TAD SBUF /SET ADCVAL. DCA PNTR TAD I PNTR JMS I [TEST JMP I STRIP BRESET, 0 /RESETS VARS FOR BATCH MODE. RESET ISZ PNTRT
CMA TAD SCNTR DCA SCNTR CLSA CLA JMP I BRESET EXPAND, CLA CLL IAC RAL /READ IN FROM CHANNEL 2 ADC TAD SCL DCA SCL JMP I CHECK1 ZERO, DCA SCL JMP I CHECK1 MES6, 302 /B 301 /A 324 /T 303 /C 310 /H 240 / 315 /M 317 /O 304 /D 305 /E 256 /. 0 MES7, 316 /N 317 /O 322 /R 315 /M 301 /A 314 /L 240 / 315 /M 317 /O 304 /D
305 /E 256 /. 0 PNCH, 0 PLS PSF JMP .-1 PCF CLA CLL JMP I PNCH /THIS NEXT ROUTINE CLEARS THE BUFFER. XCLR, 0 /CALLED VIA "CLEAR" TAD WRDCNT /GET # OF POINTS. DCA CNTR1 TAD SBUF DCA PNTR2 /INIT POINTER. DCA I PNTR2 ISZ CNTR1 JMP .-2 DCA I PNTR2 /TEMP BUF HAS NOW BEEN CLEARED. TAD WRDCNT /CLEAR PERM BUFFER. DCA CNTR1 DCA I PNTR2 DCA I PNTR2 ISZ CNTR1 JMP .-3 JMP I XCLR *2400 /THE NEXT ROUTINE DOES THE ALGORTHIM FOR DECIMAL /INPUT.
CONVER, 0 TAD CHAR /GET THE VALUE OF THE DIGIT. AND (17 DCA CHAR TAD NUMBER /SET NUMBER=10*NUMBER+DIGIT. CLL RTL /MULT BY 8 RAL TAD NUMBER /ADD TWICE TO GET TO 10 TAD NUMBER TAD CHAR /ADD IN DIGIT. DCA NUMBER JMP I CONVER CNTRLC, CLA CMA CLZE CLA IOF JMP I .+1 7600 CNTRLQ, TAD DATFLG /TAKING DATA? SMA CLA JMP CNTRQ1 /NO. DCA DATFLG /NO LONGER TAKING DATA. JMP I CHECK1 /WAIT FOR SWEEP TO FINISH. CNTRQ1, CLA CMA /SWEEP IS OVER. TURN OFF CLOCK. CLZE CLA TAD [CHAS DCA 2 JMP I [CONT3 CHKALL, 0 TAD DATFLG /TAKING DATA? SMA CLA JMP CHK1 /NO.
SORTJ /YES. SEE IF A LEGAL COMMAND. CMLST1-1 COMGO1-CMLST1 JMP I CHKALL /NO. CHK1, SORTJ COMLST-1 COMGO-COMLST JMP I CHKALL BIN, CLA CMA CLZE CLA TAD [CHAS DCA 2 TAD ENDTMP IAC DCA PNTR3 TAD WRDCNT DCA CNTR MESAGE /TYPE "HIGH?" MES9-1 BIN1, READC /READ ANSWER. SORTJ /WAS A Y OR N TYPED? LST4-1 JMP2-LST4 JMP BIN1 NO1, CLA CMA /A "N" WAS TYPED. SGN=-1 YES1, DCA SGN /SGN=0 PRINTC /ECHO. CRLF BIN4, MESAGE /TYPE "NAME: " MES10-1 TAD [-6 /ACCEPT NO MORE THAN 6 CHARS. DCA CNTR1 TAD TABPNT /SET TABLE. DCA PNTR2 BIN2, CMA DCA COMFLG /CHECK FOR CNTRL/A AND CNTRL/C COMMANDS.
READC SORTJ LST2-1 /CHECK FOR RUBOUT, CR, AND CNTRL/Q JMP3-LST2 PRINTC /NOT A RUBOUT OR CR. ECHO. TAD CHAR DCA I PNTR2 ISZ CNTR1 /TYPED SIX? JMP BIN2+2 CR1, CRLF /YES. DCA I PNTR2 /CLEAR OUT LAST PLACE. TAD TABPNT /RESET TABLE POINTER FOR OUTPUT. DCA PNTR2 DCA COMFLG JMS I (LEADER BIN3, TAD I PNTR2 /GET DATA. DCA TT1 TAD TT1 JMS I OUT1I TAD TT1 /DONE? SZA CLA JMP BIN3 /NO. JMS I (LEADER DCA CHKSUM /CLEAR CHECK SUM TAD (TABLE1-1 /OUTPUT VARS THAT MUST BE SAVED. DCA PNTR BLOOP, TAD I PNTR SNA /END OF TSBLE? JMP .+3 /YES. JMS I (OUTO1 /NO. OUTPUT ORIGIN AND CONTENTS OF ORIGIN. JMP BLOOP TAD ENDTMP TAD (2 JMS I (OUTO /OUTPUT ORIGIN OF BUFFER. JMS I OUTDPI /OUT PUT A DOUBLE ORECISON NUMBER. ISZ CNTR /DONE? JMP .-2 /NO. TAD CHKSUM /YES. PUNCH CHECKSUM JMS I OUTWI JMS I (LEADER
CNTRQ, DCA COMFLG JMP I [CONT3 RUBIT, TAD (334 PRINTC JMP BIN4 OUT1I, OUT1 OUTWI, OUTW OUTDPI, OUTDP TABPNT, TABLE-1 *2600 DISFST, 0 /DSIPLAYS FIRST POINT IN BUFFER. TAD ENDTMP IAC DCA PNTR TAD I PNTR /GET DOUBLE PRECISION WORD. DCA HIGH TAD I PNTR DCA LOW LOADX CLL CLA DBLSCL /SCALE IT. LOADY CLA CLL JMP I DISFST /THE NEXT ROUTINE DIVIDES HIGH1,LOW1 BY HIGH,LOW. /HIGH,LOW MUST BE POSITIVE. /ANSWER IS IN DIGBOX. DPDIV, 0
TAD HIGH /HIGH< 0? SPA CLA JMP I [ERROR /YES TAD HIGH SZA CLA /HIGH,LOW = 0000 0000? JMP DPCONT /NO. TAD LOW SNA CLA JMP I [ERROR /YES DPCONT, DNEG HIGH /NEGATE HIGH,LOW TAD HIGH1 /DIVIDEND < 0? SPA CLA JMP DPNEG /YES. DPRT, DCA SGN /NO. SGN=0 DCA DIGBOX DCA HIGH2 /CLEAR HIGH ORDER PART OF COUNTER. SUBMOR, CLL TAD LOW TAD LOW1 /ADD LOW ORDERS. DCA X /SAVE. GLK TAD HIGH TAD HIGH1 SPA /DONE? JMP DPDONE /YES. DCA HIGH1 /NO. TAD X DCA LOW1 JMS I [ADD ONE HIGH2 JMP SUBMOR DPDONE, CLA CLL ISZ SGN JMP I DPDIV DNEG HIGH2 JMP I DPDIV DPNEG, DNEG
HIGH1 CMA JMP DPRT /THE NEXT ROUTINE NORMALIZES A DOUN;BLE PRECISION /WORD FROM THE PERMAMENT BUFFER FOR OUTPUT IN /MILLI VOLTS. /THE FOLLOWING IS DONE. THE RESULT OF 2^8 * (N/[A-X]) /IS OUTPUTED. N IS THE DOUBLE PRECISION WORD. /A IS THE NUMBER OF SWEEPS. X IS THE RELATIVE LOCATION /IN THE BUFFER OF THE POINT BEING OUTPUTED. TYPIT, 0 TAD TFLAG /MODE 1? SZA CLA JMP MODE1 /YES. TAD BTCFLG /BATCH MODE? SZA CLA JMP TYPIT1 /YES.DON'T USE RELATIVE POSITION TAD ENDTMP /GENERATE RELATIVE POSITON N BUFFER. TAD [3 CIA TAD PNTR3 CLL RAR TYPIT1, DCA LOW /LOW=X DCA HIGH DNEG /LOW=-LOW HIGH JMS I [ADD SWEEPH HIGH JMS DPDIV IAC JMS I [SHIFTL /DO DIVISOR-2*REMAINDER. HIGH1 DNEG HIGH1 DNEG
HIGH JMS I [ADD HIGH1 HIGH TAD HIGH /RESULT < 0? SMA CLA JMP .+4 JMS I [ADD /YES. ONE HIGH2 TAD [14 /MULT BY 2^12 JMS I [SHIFTL HIGH2 TAD HIGH2 DCA HIGH1 TAD DIGBOX DCA LOW1 DOUT JMP I TYPIT /THIS ROUTINE TYPES OUT # OF POINTS BETWEEN CURSORS /AND THE TIME REPRESENTED BY THE CURSORS. TYPRST, 0 TAD [254 PRINTC TAD TT1 /PRINT # 0F POINTS BETWEEN CURSORS. CIA DECOUT TAD [254 PRINTC TAD TT1 CMA DCA T1 /COMPUTE TIME BETWEEN SAMPLES. TAD CLKCNT CIA DCA T2 JMS I (MULT
DCA HIGH1 /SAVE HIGH ORDER RESULT. TAD T1 /GET LOW ORDER ESULT. DCA LOW1 /SAVE LOW ORDER. DOUT /PRINT OUT IN HUNDREDS OF MICRO SECS. CRLF JMP I TYPRST MODE1, JMS I (DOIT JMP I TYPIT *3000 /THE NEXT ROUTINE DOES A DUBLE PRECISON ADDITON. /CALLING SEQUENCE: JMS ADD / HIGH WORD 1 / HIGH WORD 2 /RESULT IS PLACED IN HIGH WORD 2. ADD, 0 TAD I ADD /GET POINTERS. DCA PNTR5 ISZ ADD TAD I ADD DCA PNTR6 TAD PNTR6 DCA ATEMP TAD I PNTR5 /ADD HIGH ORDERS. TAD I PNTR6 DCA I PNTR6 ISZ PNTR5 ISZ PNTR6 CLL TAD I PNTR5 /ADD LOW ORDERS. TAD I PNTR6 DCA I PNTR6 TAD I ATEMP SZL /WAS THERE A CARRY? IAC /YES. INC HIGHORDER RESULT. DCA I ATEMP ISZ ADD
CLL JMP I ADD /THE NEXT TROUTINE SEES IF CHAR IS A DIGIT "0"-"9". /CALLING SEQUENCE: JMS TESTN1 / /NO / YES TESTN, 0 TAD CHAR /CHAR <=271? TAD (-271 SMA SZA CLA JMP I TESTN /NO. TAD CHAR TAD (-260 SMA CLA ISZ TESTN JMP I TESTN ATEMP, 0 /THE NEXT ROUTINE DOES A SINGLE PRECSION UNSIGNED /MULTIPLY BY ADDITION. /ARG1 IS IN T1 /ARG2 IS IN T2 /ON EXIT THE HIGH ORDER IS IN AC AND THE LOW ORDER /IN T1. MULT, 0 CLA CMA TAD T1 CIA DCA T1 /ADD T2 T1 TIMES. TAD T2 DCA MPLOW DCA MPHIGH TAD MPLOW DCA ML DCA MH TAD T1 /T1=0? SNA CLA
JMP MEXIT /YES. DON'T MULT. DOMUL, JMS I [ADD /ADD T2 TO ITSELF. MH MPHIGH ISZ T1 /DONE? JMP DOMUL /NO. MEXIT, TAD MPLOW /YES. T1 = LOW ORDER. DCA T1 TAD MPHIGH JMP I MULT MPHIGH, 0 MPLOW, 0 MH, 0 ML, 0 MES12, "D "I "V "I "S "I "O "N 240 "B "Y 240 "0 0 DOIT, 0 TAD HIGH1 DCA HORD TAD LOW1 DCA LORD JMS DFLOAT DIVF DVSOR JMS I FOUT JMP I DOIT
FOUT, FLOUTP /THE NEXT ROUTINE FLOATS A DOUBLE PRECSION NUMBER. DFLOAT, 0 TAD (27 DCA EXP NORM JMP I DFLOAT /THE NEXT ROUTINE SAVES THE FLOATING AC IN MEMORY. XSAVE, 0 /CALLED VIA "SAVE" CLA CMA TAD I XSAVE /PICK UP ADDRESS. DCA 17 TAD EXP DCA I 17 TAD HORD DCA I 17 TAD LORD DCA I 17 ISZ XSAVE JMP I XSAVE /THE NEXT ROUTINE DOES A TRIPLE PRECISION NEGATION. ACMINS, 0 CLA CLL TAD OVER2 CIA DCA OVER2 TAD LORD CMA SZL CLL IAC DCA LORD TAD HORD CMA
SZL CLL IAC DCA HORD JMP I ACMINS VIEW, TAD DISFLG CMA DCA DISFLG JMP I .+1 LUCY *3200 BUFFER=. *6202 DNORM, 0 CLA CLL DCA ATM1 DCA SIGN1 TAD HORD SPA /MANTISSA NEG? ISZ SIGN1 /YES. SZA CLA /MANTISSA=0? JMP GO6 /NO. TAD LORD SZA CLA JMP GO6 TAD OVER2 SNA CLA JMP EXIT2 GO6, TAD SIGN1 /NEG? SZA CLA JMS I MINS /YES. LOP, TAD HORD RAL CLL
SPA CLA JMP EXXIT1 TAD OVER2 CLL RAL DCA OVER2 TAD LORD RAL DCA LORD TAD HORD RAL DCA HORD ISZ ATM1 /COUNT # OF TIMES SHIFTED. JMP LOP EXXIT1, TAD ATM1 /CORRECT EXPONENT CIA TAD EXP DCA EXP TAD SIGN1 /NEG? SZA CLA JMS I MINS JMP I DNORM EXIT2, DCA EXP JMP I DNORM ATM1, 0 SIGN1, 0 /THE NEXT ROUTIE DOES A FLOATING POINT DIVIDE. /CALLING SEQUENCE: DIVF / ADDRESS OF DIVISOR / RETURN FDIV, 0 /CALLED VIA "DIVF" CLA CMA TAD I FDIV /GET ADDRESS. DCA 17 TAD I 17 DCA EX1 TAD I 17 DCA AC1H TAD I 17
DCA AC1L DCA OVER1 ISZ FDIV JMS FLDV JMP I FDIV FLDV, 0 TAD AC1H SNA CLA JMP I (ERROR TAD EX1 /SUBTRACT EXPONENTS. CIA IAC JMS SIGN JMS MINUS2 /NEGATE DIVISOR. JMS I DIVIDE /DIVIDE. JMS MULDIV JMP I FLDV SIGN, 0 TAD EXP DCA EXP TAD (-2 DCA SGN1 TAD HORD SMA CLA JMP .+3 JMS I MINS ISZ SGN1 TAD AC1H SMA CLA JMP I SIGN JMS MINUS2 ISZ SGN1 JMP I SIGN JMP I SIGN DIVIDE, DUBDIV SGN1, 0 MINUS2, 0
CLA CLL TAD OVER1 CIA DCA OVER1 TAD AC1L CMA SZL CLL IAC DCA AC1L TAD AC1H CMA SZL CLL IAC DCA AC1H JMP I MINUS2 MULDIV, 0 ISZ SGN1 JMS I MINS JMS I MINS NORM ISZ OVER2 JMP I MULDIV JMP I MULDIV *6400 DUBDIV, 0 DCA MP4 DCA MP1 TAD MIF DCA MP3 SKP DV3, JMS MULT2 CLL TAD AC1L TAD LORD DCA MP2 RAL TAD HORD TAD AC1H
SNL JMP .+4 DCA HORD TAD MP2 DCA LORD CLA TAD MP1 RAL DCA MP1 TAD MP4 RAL DCA MP4 ISZ MP3 JMP DV3 TAD MP1 DCA LORD TAD MP4 DCA HORD JMP I DUBDIV MIF, -27 MP1, 0 MP2, 0 MP3, 0 MP4, 0 EXPONT=EXP HORDER=HORD LORDER=LORD MULT10, 0 TAD LORDER DCA LTEMP TAD HORDER DCA HTEMP DCA REMAIN JMS MULT2 JMS MULT2 JMS DUBLAD JMS MULT2
TAD DIGIT DCA LTEMP DCA HTEMP JMS DUBLAD TAD REMAIN JMP I MULT10 LTEMP, 0 HTEMP, 0 DIGIT, 0 REMAIN, 0 MULT2, 0 CLA CLL TAD OVER2 CLL RAL DCA OVER2 TAD LORDER RAL DCA LORDER TAD HORDER RAL DCA HORDER TAD REMAIN RAL DCA REMAIN JMP I MULT2 /THIS ROUTINE DELAYS ACCORDING TO KNOB 3 DELAY, 0 TAD (3 ADLM ADST ADSK JMP .-1 ADRB CIA TAD (6777 CLAB CLSA
SNA CLA JMP .-2 JMP I DELAY /THIS ROUTINE INITS VARS. INIT1, 0 /CALLED VIA "INIT" CMA DCA COMFLG DCA TTYBUF DCA KEYBRD DCA DISFLG DCA PLTFLG DCA TELSW DCA SWEEPH DCA SWEEPL TAD [4 DCA SCALE IOF TAD [CHAS DCA 2 CMA DCA CURFLG DCA SCL JMP I INIT1 DUBLAD, 0 CLA CLL TAD LORDER TAD LTEMP DCA LORDER RAL TAD HORDER TAD HTEMP DCA HORDER RAL TAD REMAIN DCA REMAIN JMP I DUBLAD
*6600 FLOUTP, 0 JMS FOUTCN TAD BEXP DCA EXPONT TAD CHE PRINTC JMS I FEXPPT JMP I FLOUTP FOUTCN, 0 CLA CLL TAD HORDER SPA CLA CLA CML TAD SPLUS SZL TAD SMINUS PRINTC JMS OUTDG TAD (256 PRINTC CLA CLL TAD HORDER SPA CLA JMS I MINS FGO1, CLA CMA TAD EXPONT DCA EXPONT DCA BEXP FGO2, TAD EXPONT SMA JMP FGO3 TAD FOUR SMA CLA JMP FGO4 DIVF PT10
CLA CMA TAD BEXP DCA BEXP JMP FGO2 FGO3, DIVF TEN ISZ BEXP JMP FGO2 FGO4, DCA I DPT JMS I M2PT JMS I M10PT SKP FGO5A, JMS DIVTWO ISZ EXPONT JMP FGO5A SNA JMP FGO7 FGO6, JMS OUTDG TAD MINUS7 DCA EXPONT FGO6A, JMS I M10PT JMS OUTDG ISZ EXPONT JMP FGO6A JMP I FOUTCN FGO7, CLA CMA TAD BEXP DCA BEXP TAD HORDER SZA CLA JMP .+4 TAD LORDER SNA CLA DCA BEXP CLA CMA JMP FGO6+1 BEXP, 0 MINUS7, -4 /OUTPUT 5 DIGITS. FOUR, 4
SPLUS, 253 SMINUS, 255-253 DPT, DIGIT M10PT, MULT10 M2PT, MULT2 FEXPPT, FEXC CHE, 305 OUTDG, 0 TAD (260 PRINTC JMP I OUTDG XLOAD, 0 /CALLED VAI "LOADX" CLL RAL TAD (7001 DILX RAR JMP I XLOAD YLOAD, 0 /CALLED VIA "LOADY" CLL RAL DILY DISD JMP .-1 RAR DIXY JMP I YLOAD SWPOUT, 0 TAD SWEEPH DCA HIGH1 TAD SWEEPL DCA LOW1 TAD [254 PRINTC DOUT JMP I SWPOUT
DIVTWO, 0 CLL RAR DCA OUT TAD HORDER RAR DCA HORDER TAD LORDER RAR DCA LORDER TAD OUT JMP I DIVTWO OUT, 0 PT10, 7775 /.10 3146 3147 *7400 TEN, 0004 2400 0000 FEXC, 0 CLA CLL TAD EXPONT SPA CIA CML DCA EXPONT TAD C253 SZL TAD C255 JMS I DGPT DCA HORDER TAD EXPONT ISZ HORDER TAD MM144 SMA JMP .-3 TAD C144
DCA EXPONT CMA TAD HORDER SZA JMS I DGPT DCA HORDER TAD EXPONT ISZ HORDER TAD M12 SMA JMP .-3 TAD C12 DCA LORDER CLA CMA TAD HORDER JMS I DGPT TAD LORDER JMS I DGPT JMP I FEXC C253, 253-260 C255, 255-253 MM144, -144 C144, 144 C12, 12 DGPT, OUTDG TEXIT, CLA CMA DCA DISFLG JMP I [CONT3 LST4, "H "L M12, -12 RDVAL, 0 ADC /READ FIRST VALUE FROM CHANNEL 0. DCA I ADC0 /PUT IN FIRST WORD OF BUFFER. TAD FLAG /IS THIS CROSS CORRELATION?
SMA CLA JMP RDVAL1 /NO. AUTO. IAC /YES. READ SECOND VALUE FROM CHANNEL 1. ADC RDVAL2, JMS I (TEST JMP I RDVAL RDVAL1, TAD I ADC0 JMP RDVAL2 OUTO, 0 /OUTPUTS ORIGIN. DCA CNTR2 /SAVE. TAD CNTR2 AND [7700 CLL RTR RTR RTR TAD (100 /PUT IN CHANNEL 7 BIT. JMS I (OUT1 TAD CNTR2 AND [77 JMS I (OUT1 JMP I OUTO CNTR2, 0 OUTO1, 0 /OUTPUTS ORIGIN AND CONTENTS OF ORIGIN. DCA NUMER /SAVE. TAD NUMER JMS OUTO /OUTPUT ORIGIN. TAD I NUMER JMS I (OUTW /CONTENTS. JMP I OUTO1 LEADER, 0 /OUTPUT 100 LEADER/TRAILER. TAD (-144 DCA CNTR1 TAD (200 JMS I (OUT1 ISZ CNTR1
JMP .-3 JMP I LEADER TABLE, 0 0 0 0 0 0 0 TABLE1, CLKCNT WRDCNT ENDTMP ENDPRM SWEEPH SWEEPL NUMBER BTCFLG FLAG 0000 *7560 /THIS IS A SHORT ROUTINE TO INIT VARS CLA CLL /AND TURN ON INTERRUPT AFTER LOADING A DCA COMFLG /DATA TAPE WITH THE BINARY LOADER. DCA TTYBUF /BEFORE LOADING, BE SURE TO TYPE CNTRL/Z. DCA KEYBRD DCA DISFLG DCA PLTFLG DCA TELSW ION JMP I (CONT3 *7000 /THE MULTIPLICATION TABLE IS PLACED HERE. ITS CORE /LIMITS ARE 7000-7377.
DECIMAL 0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0 0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15 0;2;4;6;8;10;12;14;16;18;20;22;24;26;28;30 0;3;6;9;12;15;18;21;24;27;30;33;36;39;42;45 0;4;8;12;16;20;24;28;32;36;40;44;48;52;56;60 0;5;10;15;20;25;30;35;40;45;50;55;60;65;70;75 0;6;12;18;24;30;36;42;48;54;60;66;72;78;84;90 0;7;14;21;28;35;42;49;56;63;70;77;84;91;98;105 0;8;16;24;32;40;48;56;64;72;80;88;96;104;112;120 0;9;18;27;36;45;54;63;72;81;90;99;108;117;126;135 0;10;20;30;40;50;60;70;80;90;100;110;120;130;140;150 0;11;22;33;44;55;66;77;88;99;110;121;132;143;154;165 0;12;24;36;48;60;72;84;96;108;120;132;144;156;168;180 0;13;26;39;52;65;78;91;104;117;130;143;156;169;182;195 0;14;28;42;56;70;84;98;112;126;140;154;168;182;196;210 0;15;30;45;60;75;90;105;120;135;150;165;180;195;210;225
/ /ROUTINE TO READ AND WRITE DATA TO MASS STORAGE. OCTAL FIELD 1 *7400 MSSTRT, CDF 0 IOF TAD (2001 DCA I (7746 /SET JOB CONTROL WORD CDF CIF 10 JMS I (7700 /CALL COMMAND DECODER. 5 0 0 TAD (7601 /SET FILE NAME ADD. DCA MSTR2 TAD I (7600 /CREATE FILE. SNA CLA /TEST FOR INPUT JMP MSTR7 /INPUT. TAD (201 /MAX. SIZE OF FILE IS 8. JMS I (7700 /CALL FILE CREATE. 3 MSTR2, 7601 /RETURN START BLOCK OF FILE. MSTR3, 0 /RETURN -BLOCK LENGTH. JMP ERRO TAD (3 /SET LOC 0=3 FOR CORRELATION CODE. CDF 0 DCA I (0 CDF 10 TAD MSTR2 /SET ARG. TO WRITE PAGE 0 DCA MARG3 TAD (4200 DCA MARG1 DCA MARG2 JMS MSTRW /WRITE PAGE 0. TAD (-3177 /SET UP WRITE THE DATA /WRITE FROM 3200 SO IT CAN /BE READ BACK. CDF 0 /CALCULATE SIZE OF DATA. TAD I (ENDPRM /WRITE FROM 3200 TO END OF DATA. IAC /ENDPRM IS BUF END -1. CDF 10 DCA MSTRW /SAVE # OF WORDS TO WRITE. TAD MSTRW /CALCULATE # OF 128 RECORDA TO WRITE. AND (7600 CLL RAR DCA MARG1 TAD MSTRW AND (177 /TEST FOR PARTIAL RECORD. SZA CLA TAD (100 TAD MARG1 TAD (4000 DCA MARG1 TAD (3200 DCA MARG2 ISZ MARG3 JMS MSTRW /WRITE DATA. TAD MARG1 /FIND # OF 256 BLOCKS USED. CLL RTR RTR RTR /SHIFT INTO BITS 7-11. RAR /DIVIDE BY 2. AND (17 /SAVE ONLY BITS 8-11. SZL IAC /ADD 1 FOR HALF A BLOCK. IAC /ADD 1 FOR BLOCK 1. DCA MARG4 IAC /CLOSE FILE ON SYS: JMS I (7700 4 7601 /NAME ADDRESS. MARG4, 0 /NUMBER OF BLOCKS. JMP ERRO MEXITO, CDF CIF 0 CLA CLL ION JMP I .+1 CNTRQ MSTRW, 0 /WRITE SUBROUTINE. CIF 0 JMS I (7607 MARG1, 0 MARG2, 0 MARG3, 0 JMP ERRO JMP I MSTRW ERRO, CDF 10 JMS I (7700 7 1 MSTR7, TAD I (7620 /READ PAGE 0 SNA /TEST FOR COMMAND ERROR. JMP ERRO DCA MARG3 TAD (200 DCA MARG1 DCA MARG2 JMS MSTRW /READ EXECUTE. ISZ MARG3 /READ DATA TAD I (7617 /CALCULAT # 0F 128 BLOCKS TO READ. CMA /SET POSITIVE,DON'T ADD 20 AND (7760 /TO SUBTRACT 1ST BLOCK. CLL RTL /ROTATE TO BITS 1-5. RAL DCA MARG1 TAD (3200 DCA MARG2 JMS MSTRW JMP MEXITO $