*20 /// TAPE /PROGRAM TO MAKE PAPER TAPES WITH A /STRING OF 8 BIT NUMBERS FROM 0 TO /377 OCTAL (255 DECIMAL). /USED, PRIMARILY, TO MAKE TIMING AND /STIMULUS TAPES FOR ICONIX. LMODE SEGMNT 5 *20 BEG, D0, LIF 4 MESOUT M0 /TAPE D1, LIF 4 MESOUT M1 /LIST OF NUMBERS SET I 7 3777 /LIST PNTR CLR STC NUM /NUM ENTRIES D2, LIF 4 INTRACT CJ2 M2 /: CJ2, T2 J2 T2, E T3, 0 J2, JMP D3 /CR JMP D3 /E JMP TAKIT /NUM TAKIT, LDF 7 STA I 7 /STORE IT LDA I /BUMP CNTR KP1, 1 ADM I NUM, 0 JMP D2 D3, LIF 4 INTRACT CJ3 M3 /NUM REPETITIONS: CJ3, T3 J3 J3, JMP BEG /CR JMP .+1 /NUM COM STC 11 /CYCLES CNTR IOB /SYSTEM OFF IOF CLR /INITIALIZE TTY IOB 6046 /TLS JMP BLANKS /100 ZEROS RECYCL, CLR ADD NUM COM STC 10 /WITHIN CYCLE CNTR SET I 7 3777 /PNTR LDF 7 NXTYP, LDA I 7 JMP TYPO /PRINT ON TAPE XSK I 10 /?DUN LIST JMP NXTYP /NO XSK I 11 /?DUN ALL JMP RECYCL /NO DUN, JMP BLANKS /YES, 100 ZEROS LDA I 215 /CR JMP TYPO LDA I 212 /LF JMP TYPO LDA I 212 /LF JMP TYPO IOB /START SYSTEM ION /ASK IF WANT TO REPEAT SAME LIST. D4, LIF 4 INTRACT CJ4 M4 /REPEAT?: CJ4, T4 J4 T4, YES NO 0 J4, JMP BEG /CR JMP D3 /YES JMP BEG /NO JMP D4 /NUM? /END BASIC CODING. /TTY SUBROUTINES. TYPO, SET 3 0 IOB 6041 /TSF JMP .-2 IOB 6046 /TLS CLR JMP 3 /LEAVE /END TYPO. BLANKS, SET 4 0 SET I 2 -64 /100(10) CLR JMP TYPO XSK I 2 JMP .-2 JMP 4 /LEAVE /END BLANKS. /END TTY SUBROUTINES. /MESSAGES. M0, TEXT &TAPE& 4543 M1, TEXT &ENTER NUMBERS & 4543 M2, TEXT &: & M3, TEXT &NUMBER OF REPETITIONS:& M4, TEXT &REPEAT?:& /END MESSAGES. AAEND5, 0 /END MAIN PROGRAMC CODING. /PBLOCK FOLLOWS. NOLIST //PBLOCK /PARAMETER BLOCK ASSIGNMENTS / P0=3400 /DATA TYPE P1=3401 /CURRENT CHAN. P2=3402 /CURRENT CHAN. P3=3403 /DATA CHAN. P4=3404 /DATA CHAN. P5=3405 /CONTINGENCY CH P6=3406 /CONTINGENCY CH P7=3407 /TRUE CONTING. P10=3410 /FALSE CONTING. P11=3411 /CONTING. WIDTH P12=3412 /TRUE CONTING. P13=3413 /FALSE CONTING. P14=3414 /CONTING. WIDTH P15=3415 /CHAN INVERSION P16=3416 /CHAN INVERSION P17=3417 /NO.SAMP IN SEG P20=3420 /NO.SEG IN ENSM P21=3421 /NO. ENSEMBLES P22=3422 / P23=3423 /BASELINE PNTS P24=3424 /TAPE DELAY P25=3425 /ENSEMBL DELAY P26=3426 /CLOCK RATE P27=3427 /CLOCK TICS P30=3430 P31=3431 P32=3432 P33=3433 P34=3434 P35=3435 P36=3436 P37=3437 /TAPE SPEED UP P40=3440 /TAPE SPEED UP P41=3441 /TAPE SPEED UP / /FLOATING POINT VARIABLES / / P42=3442 /MULT FACTOR P43=3445 /UV PER VOLT P44=3450 /SEG. LENGTH P45=3453 /TEMP P46=3456 /BASELINE DELAY P47=3461 /CONTING WIDTH P50=3464 /BNDA1 MIN P51=3467 /BNDA1 MAX P52=3472 /BNDA2 MIN P53=3475 /BNDA2 MAX P54=3500 /BNDA3 MIN P55=3503 /BNDA3 MAX P56=3506 /BNDA4 MIN P57=3511 /BNDA4 MAX P60=3514 /BNDA5 MIN P61=3517 /BNDA5 MAX P62=3522 /BNDB1 MIN P63=3525 /BNDB1 MAX P64=3530 /BNDB2 MIN P65=3533 /BNDB2 MAX P66=3536 /BNDB3 MIN P67=3541 /BNDB3 MAX P70=3544 /BNDB4 MIN P71=3547 /BNDB4 MAX P72=3552 /BNDB5 MIN P73=3555 /BNDB5 MAX P74=3560 /PF MIN P75=3563 /PF MAX P76=3566 /TEMP P77=3571 /TRUE VOLTS P100=3574 /FALSE VOLTS P101=3577 /TEMP P102=3602 /V RMS P103=3605 /VRMS VAR / /FROM NOW ON DESCRIPTION IS FOUND OVER /THE DEFINED VARIABLE. / /AX,A1,A1CNT P104=3610 /AXVAR,A1VAR,A1CNTVAR P105=3613 /AY,A2,A1INT P106=3616 /AYVAR,A2VAR,A1INTVAR P107=3621 /BX,A3,A1MN P110=3624 /BXVAR,A3VAR,A1MNVAR P111=3627 /BY,A4,A2CNT P112=3632 /BYVAR,A4VAR,A2CNTVAR P113=3635 /CX,A5,A2INT P114=3640 /CXVAR,A5VAR,A2INTVAR P115=3643 /CY,B1,A2MN P116=3646 /CYVAR,B1VAR,A2MNVAR P117=3651 /DX,B2,A3CNT P120=3654 /DXVAR,B2VAR,A3CNTVAR P121=3657 /DY,B3,A3INT P122=3662 /DYVAR,B3VAR,A3INTVAR P123=3665 /EX,B4,A3MN P124=3670 /EXVAR,B4VAR,A3MNVAR P125=3673 /EY,B5,A4CNT P126=3676 /EYVAR,B5VAR,A4CNTVAR P127=3701 /FX,PF,A4INT P130=3704 /FXVAR,PFVAR,A4INTVAR P131=3707 /FY,DC,A4MN P132=3712 /FYVAR,DCVAR,A4MNVAR P133=3715 /GX,GX,A5CNT P134=3720 /GXVAR,GXVAR,A5CNTVAR P135=3723 /GY,GY,A5INT P136=3726 /GYVAR,GYVAR,A5INTVAR P137=3731 /HX,HX,A5MN P140=3734 /HXVAR,HXVAR,A5MNVAR P141=3737 /HY,HY,B1CNT P142=3742 /HYVAR,HYVAR,B1CNTVAR P143=3745 /IX,IX,B1INT P144=3750 /IXVAR,IXVAR,B1INTVAR P145=3753 /IY,IY,B1MN P146=3756 /IYVAR,IYVAR,B1MNVAR P147=3761 /JX,JX,PF P150=3764 /JXVAR,JXVAR,PFVAR P151=3767 /JY,JY,DC P152=3772 /JYVAR,JYVAR,DCVAR P153=3775 / / /COMMAND DECODER ASSIGNMENTS / / STOP=JMP 20 SCAN=JMP 21 STRSCN=JMP 21 INUNIT=JMP 22 STORIT=JMP 23 GETFIL=JMP 24 GETFST=JMP 24 GETNAM=JMP 25 GETNXT=JMP 25 DIRINI=JMP 26 DIRLST=JMP 27 ASSIGN=JMP 30 DEASS=JMP 31 OUTUNIT=JMP 32 LODBLK=JMP 33 RUNBLK=JMP 34 FIND=JMP 35 CALL=JMP 37 UNCALL=JMP 40 RUNPRG=JMP 41 INTRACT=JMP 42 MESOUT=JMP 43 DISK=JMP 44 TABSET=JMP 45 INTABLE=JMP 46 MISSNG=JMP 47 TABGET=JMP 50 TABPUT=JMP 51 TABZER=JMP 52 MAKDIL=JMP 53 TABINI=JMP 54 MGETNAM=JMP 55 MGETFIL=JMP 56 MSTORIT=JMP 57 / /COMMAND LOCATIONS. / FILNAM=2320 WORD1=2323 WORD2=2324 INBUF=2325 /COMMAND NUMBERS. YES=17 NO=20 SAMPL=21 TABLE=22 GO=23 NEXT=24 CU=25 CONT=26 ALL=27 AVG=30 A=31 B=32 C=33 D=34 E=35 F=36 G=37 H=40 II=41 J=42 PLOT=43 PRINT=44 T=45 / /EXEC3 ASSIGNMENTS / OPR=500 IOF=6002 ION=6001 EXC=1710 REXC=540 RLSW=514 RRSW=515 IOCALL=511 AWAKE=501 QUIT=505 PAUSE=507 IOCLR=502 SETCON=510 SETCLK=503 PLINE=524 READ=512 WRITE=532 SETDSK=513 /DEVICE ASSIGNMENTS / KBD=13 TLP=4 LPT=24 BPLT=30 PLT=25 CLK=2 SCOPE=26 /FLOATING POINT DEFINITIONS. / FAC=0 STARTE=740 FSUB=741 FMUL=742 FDIV=743 LOAD=744 STORE=745 SETWRD=746 INPUT=747 OUTPUT=750 ISTOR1=751 SQRT=752 DFLOAT=753 SFLOAT=754 FIX=755 FADD=756 ISTOR2=757 STARTF=760 FCOMP=761 FZER=762 FAPO=763 FAZE=764 RECIP=765 NEXTIN=766 SETIN=767 SETOUT=770 OUTBUF=771 PACFAC=772 SACFAC=773 FACAC=774 UNFIX=775 / /PBLOCK /FEB 74. LIST ///END TAPE / 15 MAY 78 / FHD