Directory of image this file is from
This file as a plain text file
*20 /// MONTEST LMODE SEGMNT 5 *20 OPR 3 5100 1 SETWRD 0400 NEWMON, SET I 17 MLST-1 SET I 10 -13 MRMON, LDA I 17 STC MONUM MONCAL MONUM, 0 LDA 1400 SAE MONUM JMP ERROR JMP LOADLO NOP JMP GOOD ERROR, SFLOAT MONUM OUTPUT ERNUM LIF 4 MESOUT MER XSK I 10 JMP MRMON JMP NEWMON MER, TEXT %ERROR % ERNUM, 00 00 4543 GOOD, SFLOAT MONUM OUTPUT GUDNUM LIF 4 MESOUT MGUD XSK I 10 JMP MRMON JMP NEWMON MGUD, TEXT %GOOD% GUDNUM, 00 00 4543 MLST, 2 3 4 5 6 7 10 36 37 40 41 LOADLO, SET 3 0 OPR 13 1 LDF 5 OPR 12 7000 LDF 7 JMP 3 MONCAL=JMP . SET 14 0 LDF 5 LDA 14 SAE 1400 SKP JMP MX ADA I 7022 STC RMON IOB 13 0 CO12, IOB 12 RMON, 0 MX, CLR XSK I 14 LDF 3 JMP 14 /PBLOCK FOLLOWS. NOLIST /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 /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 MONTEST /FHD /OCT 76