*20 /// CHSET SUBROUTINE. /ROUTINE TO SET UP MULTIPLE SAMPLING /COMMANDS. CALL IS: / / SET I 2 / DATCH(DATA) OR CONCH(TM) / LDA I / P1(DAT CHAN) OR P5(CON CHAN) / / JMP CHSET / / LDA I /FOR DATA CHANNELS / JMP DUNSAM (WHERE TO GO WHEN DUN) / STA 2 / / /HANDLES UP TO 24 CHANNELS WHICH HAVE BEEN /SET UP IN PBLOCK (P1-2,P5-6,P15-16) BY PARAM. / /BE SURE TO SET NUMCHN EQUAL TO NUMBER OF /ALLOWABLE CHANNELS. ALSO MODIFY INC2 FOR /PROPER SPACING BETWEEN SAMPLE COMMANDS. /NUMBER OF XSK I 2 = LOCATIONS BTWN SAM COMMANDS. / CHSET, STC PWRD /IST PWRD ADD 0 STC CHSETX STC 14 /NUM CHAN USED SET I 4 /START CHAN - 1 7 SET I 12 /BITS PER WRD -14 SET I 13 /NUM ALLOWED CHAN NUMCHN, 0 SET I 15 /2 WRD CNTR -2 LDA P15 /INVERT WRD BKC, STC INVCH LDA PWRD, 0 /1ST OR 2ND PWORD STC CHTST /INVERT TEST. TS, LDA I 16 /NOP SRO I INVCH, 0 ADD KP1 STC INVT /CHANNEL TEST. ADD 4 ADD KP1 STC 4 SRO I CHTST, 0 JMP GOTCH /FOUND ONE XSK I 12 /A PWRD DUN? JMP TS /NO /ROUTINE TO CHECK SECOND PWRD OR TO EXIT. SECWRD, LDA PWRD ADD KP1 STC PWRD /SEC PWRD SET I 12 -14 LDA P16 /2ND INVT WRD XSK I 15 /DUN 2 ALREADY? JMP BKC /NO CHSETX, 0 /YES, LEAVE /ROUTINE TO SET UP SAM COMMAND. GOTCH, LDA 0 STC GOTCHX ADD 4 BSE I SAM STA 2 LDA I INVT, 0 STA I 2 JMP INC2 XSK I 14 /BUMP NUM CHAN XSK I 13 /DUN ALLOWED CHAN? GOTCHX, 0 /NO, LEAVE GOTCH JMP CHSETX /YES, LEAVE CHSET /ROUTINE TO BUMP SAM COMMAND PLACEMENT PNTR. INC2, XSK I 2 XSK I 2 XSK I 2 JMP 0 /END SUBROUTINE CHSET.