/ / PROCESS T..........24 HOUR PRINT OUTPUT. COMND4 0 SNA JMP .+3 DZM CLKCNT JMP* COMND4 LAC TIMID JMS ASPRT LAC HRS JMS DECP LAC COLON JMS TYPE LAC MINS JMS DECP LAC COLON JMS TYPE LAC SECS JMS DECP JMP* COMND4 COLON 272 HRS 0 MINS 0 SECS 0 TIMFLG 0 BELFLG 0 TIMID TIMID+1 .SIXBT " THE TIME IS: @" / / PROCESS S..........REAL TIME SAMPLING. COMND2 0 SNA JMP CMND2 DZM SAMFLG /STOP PREVIOUS SAMPLING PROCESS DZM SCHECK /INHIBIT FURTHER SAMPLING. LAC FSAM CMA!IAC /CHECK NEW SAMPLE RATE TAD FSMAX SMA JMP .+4 LAC MESS3 /MAXIMUM RATE EXCEEDED JMS ASPRT JMP* COMND2 /CALCULATE NUMBER OF POINTS /TO BE SAMPLED LAC FSAM JMS MUL LAC TSAM DAC SAVE13 LAC %MHIGH JMS DIV LAC SAVE13 LAC P1000 DAC NSAM /STORE NUMBER OF POINTS CMA!IAC /CHECK IF TOO LARGE TAD BUFCAP SMA JMP .+4 LAC MESS4 /MAXIMUM NUMBER OF POINTS EXCEEDED JMS ASPRT JMP* COMND2 /PARAMETERS IN RANGE CLA /CALCULATE SAMPLE PERIOD JMS DIV LAC P1SEC LAC FSAM DAC TSAM1 /SAVE CLOCK INCREMENT CLA!IAC DAC SCHECK /SAMPLE PROCESS READY. JMP* COMND2 / / START SAMPLING PROCESS CMND2 DZM SAMFLG /STOP PREVIOUS SAMPLING PROCESS LAC SCHECK /IS SAMPLING PROCESS READY? SZA JMP .+4 LAC MESS5 /NO, PRINT ERROR MESSAGE. JMS ASPRT JMP* COMND2 /INITIALIZE SAMPLING PROCESS DZM SAMCNT LAC BUFADD DAC SAMBUF LAC TSAM1 /GET CLOCK INCREMENT JMS CLKSET /START CLOCK DZM ADCFLG /CLEAR ADC S.W. FLAG 701502 /INITIATE ADC CLA!IAC DAC SAMFLG /SAMPLING IN PROGRESS JMP* COMND2 FSAM 0 TSAM 0 FSMAX 1750 BUFCAP 1000 SCHECK 0 SAVE13 0 TSAM1 0 P1000 1750 NSAM 0 P1SEC 23420 P10000 23420 MESS3 MESS3+1 .SIXBT " MAXIMUM SAMPLING RATE = 1000 HZ.@" MESS4 MESS4+1 .SIXBT " MAXIMUM NUMBER OF POINTS = 512@" MESS5 MESS5+1 .SIXBT " SAMPLING PARAMETERS NOT IN RANGE@"