Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/errors.dat
There are no other files named errors.dat in the archive.
TITLE A PROGRAM TO TEST THE ERRORS 00000010
* EULER 00000020
* FLYHIGH 00000030
* NARROW 00000040
* SOURCE 00000050
* NOEULER 00000060
X YOU CANNOT CONTINUE A CONTROL CARD 00000070
DEF LEVEL MEANS NOTHING 00000080
DEF MEAN 00000090
DEF LEVEL MEANS EVERYTHING 00000092
DEF BODY THERE IS NO SUCH VARIABLE IN THIS PROGRAM 00000094
A 00000100
A LONGNAME.K= 00000110
C CON=2 00000120
N CNT=1 00000130
MEND YOU NEED A MACRO BEFORE THIS CARD 00000131
R RAT.K=10..2*E2.05-14*123456789E100+2EE3+4E+(-E2) 00000140
M MEAN.K=2 00000150
A MEN.==((13*2)+2)*(22*3)+3)+RATE.M+TRY.KL+CON.K 00000152
L LEVEL.K=INTGRL(RATE.JK)+RAT.JK 00000160
L LEV3.=INTGRL(CON+TRY.K+SUP.K)(1+4)5+((1+3)/2 00000162
R RATE.KL=LEVEL.K+TIME.K 00000170
S CON.K=15*2 00000171
MACRO BONE(A,B,C,D,E,F,G,H,I,J,K,K,L,M,N,O,P,Q,R) 00000172
MEND 00000173
EXPND BARB(C+D)+2 00000174
A TRY2.K=INTGRL(15) 00000182
A FUN.KTRY.K+10 00000183
X +15 00000190
X +TRY.K 00000200
A TIME.K=LEV.K+1 00000201
N TIME=1 00000202
S SUP.K=TRY.K+5 00000203
A TAB1.K=RATE.JK*RAT.JK 00000204
A LEV.K=%CHAN+2 00000205
A RATE.K=TIME.K*5 00000206
C SUP= 00000207
MACRO EYE(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P) 00000208
A A=B+C+B+C+D+E+F+G+H+K+I+K+K+K+M+L+L+O+P+P+P+P+P 00000209
MEND 00000210
EXPND EYE(AAAAA,BBBBB,CCCCC,DDDDD,EEEEE,FFFFF,GGGGG,HHHHH, 00000211
X IIIII,JJJJJ,KKKKK,LLLLL,MMMMM,NNNNN,OOOOO,PPPPPP) 00000212
C CHANGE&=3 00000220
L LEV.K=COS(TIME.K)*INTGRL(RATE.KL*RAT.JK) 00000240
* SOURCE 00000250
EXPND (C,D) 00000255
MACRO BRAIN(EYES) 00000260
RERUN 00000270
A TRIED.=15*LEVEL.K 00000280
MACRO FEET(TOES) 00000290
EXPND FEET(TOE,ANKLE+10) 00000300
MEND 00000310
MACRO BRAIN 00000320
PARM DT=1 00000330
PARM START=20 00000340
PARM STOP=10 00000350
PARM PRTPER=1 00000360
PARM PLTPER=2 00000370
PRINT TRY=T,TRIED,CON,CNT,TIME.K,RAT,MEAN 00000380
PLOT TRY=T(1,10/)TAB=A(1,10(,TRY2=R(1,10)CON=C(1,10,RATE/ 00000394
MACRO FEET(A,B,C,)EXTRA 00000400
MEND 00000410
MACRO HAND( 00000420