RBIT=117376
	       PARAM1=400
	       PARAM2=424
	       CDBUF=450
	       CDLEN=452
	       CDNAME=454
	       SAVSP=474
	       SAV301=476
	       BUFSET=500
	       BCONS=524
	       CONST1=526
	       CONST2=530
	       CONST3=532
	       CONST4=534
	       REGFL=536
	       OCTBUF=540
	       OLDLEN=546

	       JMP     START

SET0:	       .WORD   5,5,42,41,5,5,16,16,7,7
SET1:	       .WORD   13,13,64,62,14,13,31,31,14,13
SET2:	       .WORD   27,26,151,144,30,27,63,63,30,26
SET3:	       .WORD   56,54,322,310,60,56,146,146,60,54

MESS1:	       .ASCIZ  /���:/
MESS2:	       .ASCIZ  /�����:/
MESS3:	       .ASCIZ  /�����:/
MESS4:	       .ASCIZ  /��:/
MESS5:	       .ASCIZ  /�����������/
	       .EVEN

NEW:	       MOV     R0,-(SP)
	       MOV     #300,R0
1:	       CLR     (R0)+
	       CMP     #550,R0
	       BNE     1
	       MOVB    #1,@#301
	       MOV     (SP)+,R0
	       RETURN

MOV1CD:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     #PARAM1,R2
	       MOV     #CDBUF,R1
	       BR      MET1
MOVCD1:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     #PARAM1,R1
	       MOV     #CDBUF,R2
	       BR      MET1
MOV12:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     #PARAM2,R1
	       MOV     #PARAM1,R2
	       BR      MET1
MOV21:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     #PARAM1,R1
	       MOV     #PARAM2,R2
MET1:	       MOV     #24,R0
1:	       MOVB    (R2)+,(R1)+
	       SOB     R0,1
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       MOV     (SP)+,R0
	       RETURN

READ:	       CALL	RFIRST
	       CALL	RSECOND
	       RETURN

RSECOND:       CALL    RNMARK
	       CALL    RFILE
	       TSTB    @#301
	       BNE     1
	       CALL    RCONS
	       CALL    TCONS
1:	       MOV     #220,(R3)
	       RETURN

RFIRST:	       MOV     #177716,R3
	       MOV     #40,R5
1:	       CLRB    @#300
	       CLR     @#314
	       MOV     #20,(R3)
	       CALL    RPOSL
	       CALL    RSET
	       CALL    RMMARK
	       TSTB    @#301
	       BNE     1
	       CALL    RNMARK
	       CALL    RPARAM
	       RETURN

FIND:	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOVB    @#301,SAV301
	       MOV     #STFIN,@#4
	       CALL    FORM
	       CALL    RFIRST
	       MOV     #PARAM2,R5
	       MOVB    #1,@#301
	       BR      STFIN2
STFIN:	       MOV     #PARAM1,R5
	       MOVB    SAV301,@#301
STFIN2:	       CALL    SHOW
	       MOVB    SAV301,@#301
	       MOV     #220,(R3)
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
	       RETURN

RMMARK:	       MOV     @#314,R0
1:	       CLR     R4
2:	       INC     R4
	       BIT     R5,(R3)
	       BNE     2
	       CMP     R4,R0
	       BHI     4
	       CLR     R4
3:	       INC     R4
	       BIT     R5,(R3)
	       BEQ     3
	       CMP     R4,R0
	       BLO     1
	       INCB    @#300
4:	       ASL     R0
	       CMP     R4,R0
	       BHI     5
	       CALL    RBIT
	       BR      6
5:	       INCB    @#301
6:	       RETURN

RNMARK:	       MOV     @#314,R0
	       TSTB    @#300
	       BNE     3
1:	       CLR     R4
2:	       INC     R4
	       BIT     R5,(R3)
	       BNE     2
	       CMP     R4,R0
	       BLO     1
	       BR      5
3:	       CLR     R4
4:	       INC     R4
	       BIT     R5,(R3)
	       BEQ     4
	       CMP     R4,R0
	       BLO     3
5:	       CALL    RBIT
	       RETURN

RFILE:	       MOV     #PARAM2,R1
	       MOV     2(R1),R2
	       MOV     #76377,R1
1:	       CALL    RBYTE
	       DEC     R1
	       CMP     #7000,R1	     ; ������������ �����
	       BPL     3
	       SOB     R2,1
	       BR      2
3:	       INCB    @#301
2:	       RETURN

RCONS:	       MOV     #BCONS,R1
	       MOV     #2,R2
1:	       CALL    RBYTE
	       INC     R1
	       SOB     R2,1
	       RETURN

TCONS:	       MOV     #PARAM2,R1
	       MOV     2(R1),R4
	       MOV     R4,OLDLEN
	       MOV     #76400,R5
	       CALL    CONSUM
	       CMP     R0,BCONS
	       BEQ     1
	       INCB    @#301
1:	       RETURN

RBYTE:	       MOV     #10,R0
1:	       CALL    RBIT
	       CMP     R4,@#314
	       BHI     2
	       CLC
	       BR      3
2:	       SEC
3:	       RORB    (R1)
	       SOB     R0,1
	       RETURN

RPARAM:	       MOV     #PARAM2,R1
	       MOV     #24,R2
1:	       CALL    RBYTE
	       INC     R1
	       SOB     R2,1
	       RETURN

RPOSL:	       MOV     #4000,R2
	       CLR     R0
1:	       CLR     R4
2:	       INC     R4
	       BIT     R5,(R3)
	       BEQ     2
3:	       INC     R4
	       BIT     R5,(R3)
	       BNE     3
	       SUB     R4,R0
	       BMI     4
	       CMP     R0,#2
	       BHI     RPOSL
4:	       MOV     R4,R0
	       SOB     R2,1
	       RETURN

RSET:	       CLR     R0
	       MOV     #200,R2
1:	       CALL    RBIT
	       ADD     R4,R0
	       SOB     R2,1

	       MOV     R0,R4
	       ASR     R4
	       MOV     R0,CONST1
	       ADD     R4,CONST1

	       MOV     R0,CONST2
	       ADD     CONST1,CONST2
	       MOV     CONST2,CONST3
	       ADD     R0,CONST3
	       MOV     CONST3,CONST4
	       ADD     CONST1,CONST4

	       CALL    RCALC

	       MOV     CONST1,R0
	       MOV     R0,@#314
	       CMP     #14,R0
	       BHI     2
	       SUB     #1,CONST1
	       ADD     #0,CONST2
	       ADD     #5,CONST4
	       RETURN
2:	       MOV     #10,CONST1
	       MOV     #17,CONST2
	       MOV     #26,CONST3
	       MOV     #53,CONST4
	       RETURN

RCALC:	       MOV     #7,R2
1:	       MOV     #4,R4
	       MOV     #CONST1,R0
2:	       ASR     (R0)
	       CMP     #1,R2
	       BNE     3
	       ADC     (R0)
3:	       TST     (R0)+
	       SOB     R4,2
	       SOB     R2,1
	       RETURN

SAVE:	       MOV     #177716,R3
	       MOV     #BUFSET,R1
	       MOV     #20,(R3)
	       MOV     #PARAM1,R2
	       MOV     #76400,R5
	       MOV     2(R2),R4
	       BEQ     1
	       CALL    CONSUM
	       MOV     R0,BCONS
	       MOV     #10000,R0
	       CALL    SPOSL
	       CALL    SDELAY
	       CALL    SPARAM
	       CALL    SDELAY
	       CALL    SFILE
	       CALL    SCONS
	       MOV     #400,R0
	       CALL    SPOSL
1:	       MOV     #220,(R3)
	       RETURN

SDELAY:	       MOV     #10,R0
	       CALL    SPOSL
	       RETURN

SPOSL:	       MOV     #160,(R3)
	       ADD     0(R1),R5
1:	       SOB     R5,1
	       MOV     #20,(R3)
	       ADD     2(R1),R4
2:	       SOB     R4,2
	       SOB     R0,SPOSL
	       CALL    SMARK
	       MOV     #120,(R3)
	       MOV     14(R1),R5
3:	       SOB     R5,3
	       MOV     #60,(R3)
	       MOV     16(R1),R5
4:	       SOB     R5,4
	       MOV     #160,(R3)
	       MOV     20(R1),R5
5:	       SOB     R5,5
	       MOV     #20,(R3)
	       MOV     22(R1),R5
6:	       SOB     R5,6
	       RETURN

SMARK:	       MOV     #120,(R3)
	       MOV     4(R1),R5
1:	       SOB     R5,1
	       MOV     #60,(R3)
	       MOV     6(R1),R5
2:	       SOB     R5,2
	       RETURN

SPARAM:	       MOV     #PARAM1,R2
	       MOV     #24,R0
1:	       MOVB    (R2)+,R4
	       CALL    SBYTE
	       SOB     R0,1
	       RETURN

SFILE:	       MOV     #PARAM1,R2
	       MOV     2(R2),R0
	       MOV     #76400,R2
1:	       MOVB    -(R2),R4
	       CALL    SBYTE
	       SOB     R0,1
	       RETURN

SCONS:	       MOV     #BCONS,R2
	       MOV     #2,R0
1:	       MOVB    (R2)+,R4
	       CALL    SBYTE
	       SOB     R0,1
	       RETURN

SBYTE:	       MOV     R0,-(SP)
	       MOV     #10,R0
10:	       ASR     R4
	       BLO     3
	       MOV     #160,(R3)
	       MOV     10(R1),R5
1:	       SOB     R5,1
	       MOV     #20,(R3)
	       MOV     12(R1),R5
2:	       SOB     R5,2
	       BR      4
3:	       MOV     #120,(R3)
	       MOV     14(R1),R5
5:	       SOB     R5,5
	       MOV     #60,(R3)
	       MOV     16(R1),R5
6:	       SOB     R5,6
4:	       MOV     #160,(R3)
	       MOV     20(R1),R5
7:	       SOB     R5,7
	       MOV     #20,(R3)
	       MOV     22(R1),R5
8:	       SOB     R5,8
	       SOB     R0,10
	       MOV     (SP)+,R0
	       RETURN

BUFMOV:	       MOV     #12,R0
	       MOV     #BUFSET,R2
1:	       MOV     (R1)+,(R2)+
	       SOB     R0,1
	       RETURN

SAVE0:	       MOV     #SET0,R1
	       BR      MNSAVE
SAVE1:	       MOV     #SET1,R1
	       BR      MNSAVE
SAVE2:	       MOV     #SET2,R1
	       BR      MNSAVE
SAVE3:	       MOV     #SET3,R1
MNSAVE:	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #STSAV,@#4
	       TSTB    @#301
	       BNE     STSAV2
	       CALL    BUFMOV
	       CALL    DELAY
	       CALL    FSP1
	       CALL    SAVE
STSAV:	       CALL    BEEP
STSAV2:	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
	       RETURN

DELAY:	       MOV     #50000,R2
1:	       SOB     R2,1
	       RETURN

CONSUM:	       MOV     R2,-(SP)
	       CLR     R0
1:	       CLR     R2
	       BISB    -(R5),R2
	       ADD     R2,R0
	       ADC     R0
	       SOB     R4,1
	       MOV     (SP)+,R2
	       RETURN

OCTOUT:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       CLR     R0
	       MOV     #6,R2
	       BR      2
1:	       CLR     R0
	       ASL     R1
	       ROL     R0
	       ASL     R1
	       ROL     R0
2:	       ASL     R1
	       ROL     R0
	       ADD     #60,R0
	       EMT     16
	       SOB     R2,1
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       MOV     (SP)+,R0
	       RETURN

CODES:	       .BYTE 214,214,233,224,236,223,234,0
CODES2:	       .ASCIZ /< PUSS-1.4 >/<234><221><233>
	       .EVEN

SETSCR:	       MOV     #CODES,R1
	       CALL    STROUT
	       CALL    CUROFF
	       MOV     #12,R1
	       MOV     #13,R2
	       EMT     24
	       MOV     #CODES2,R1
	       CALL    STROUT
	       CALL    BEEP
	       RETURN

CURON:	       EMT     34
	       BIT     #40000,R0
	       BNE     CURSOR
	       RETURN
CUROFF:	       EMT     34
	       BIT     #40000,R0
	       BEQ     CURSOR
	       RETURN
CURSOR:	       MOV     #232,R0
	       EMT     16
1:	       RETURN

STROUT:	       CLR     R2
	       EMT     20
	       RETURN

STRCOR:	       MOV     #27,R2
	       EMT     24
	       RETURN

STRCLR:	       CLR     R1
	       CALL    STRCOR
	       MOV     #231,R0
	       EMT     16
	       RETURN

BEEP:	       MOV     R3,-(SP)
	       MOV     R4,-(SP)
	       MOV     #200,R3
1:	       BIS     #100,@#177716
	       MOV     #15,R4
2:	       SOB     R4,2
	       BIC     #100,@#177716
	       MOV     #15,R4
3:	       SOB     R4,3
	       SOB     R3,1
	       MOV     (SP)+,R4
	       MOV     (SP)+,R3
	       RETURN

OUT1:	       MOV     #MESS1,R1
	       BR      METOUT
OUT2:	       MOV     #MESS2,R1
	       BR      METOUT
OUT3:	       MOV     #MESS3,R1
	       BR      METOUT
OUT4:	       MOV     #MESS4,R1
	       BR      METOUT
OUT5:	       MOV     #MESS5,R1
METOUT:	       CALL    STROUT
	       RETURN

FORM:	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       CALL    STRRDY
	       CALL    COR1
	       CALL    OUT1
	       CALL    COR32
	       CALL    OUT2
	       CALL    COR50
	       CALL    OUT3
	       CALL    COR66
	       CALL    OUT4
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       RETURN

DRAW:	       MOV     R0,-(SP)
	       MOV     #76400,R0
1:	       MOV     #177777,(R0)+
	       CMP     #76500,R0
	       BNE     1
	       MOV     (SP)+,R0
	       RETURN

CLS:	       MOV     R0,-(SP)
	       MOV     #40000,R0
1:	       CLR     (R0)+
	       CMP     #100000,R0
	       BNE     1
	       MOV     (SP)+,R0
	       RETURN

SHOWNM:	       CALL    COR5
	       MOV     R5,R1
	       CMP     (R1)+,(R1)+
	       MOV     #20,R2
	       EMT     20
	       RETURN

SHOW:	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     R5,-(SP)
	       CALL    FILTR
	       CALL    SHOWNM
	       CALL    COR40
	       MOV     (R5),R1
	       CALL    OCTOUT
	       CALL    COR56
	       MOV     2(R5),R1
	       CALL    OCTOUT
	       CALL    COR71
	       TSTB    @#301
	       BNE     2
	       MOV     BCONS,R1
	       CALL    OCTOUT
	       BR      3
2:	       MOV     #100734,R1
	       MOV     #6,R2
	       EMT     20
3:	       CALL    BEEP
	       MOV     (SP)+,R5
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       RETURN

SHOWP1:	       MOV     #PARAM1,R5
	       CALL    SHOW
	       RETURN

REGEN:	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #STREG,@#4
	       CALL    STRRDY
	       CALL    COR32
	       CALL    OUT5
	       MOV     #40,R5
	       MOV     #177716,R3
	       MOV     #160,R1
	       MOV     #20,R2
3:	       MOV     R1,(R3)
1:	       BIT     R5,(R3)
	       BEQ     1
	       MOV     R2,(R3)
2:	       BIT     R5,(R3)
	       BNE     2
	       BR      3
STREG:	       CALL    FSP1
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
	       RETURN

NEWRD:	       CALL    CLS
	       CALL    FORM
	       RETURN

NREAD:	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #STPRD,@#4
	       CLRB    @#301
	       CALL    NEWRD
	       CALL    READ
	       BR      STPRD1
STPRD:	       INCB    @#301
STPRD1:	       CALL    MOV21
	       CALL    SHOWP1
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
	       RETURN

OCTIN:	       MOV     R0,-(SP)
	       MOV     R4,-(SP)
	       MOV     R5,-(SP)
	       CALL    CURON
	       MOV     #OCTBUF,R4
	       MOV     #6,R0
1:	       MOVB    #60,(R4)+
	       SOB     R0,1
	       MOV     #OCTBUF,R4
	       CLR     R5
2:	       CALL    SIMBOL
	       CMP     #12,R0
	       BEQ     3
	       CMP     #30,R0
	       BEQ     5
	       CMP     #57,R0
	       BHIS    2
	       CMP     #67,R0
	       BLO     2
	       CMP     #5,R5
	       BLO     2
	       MOVB    R0,(R4)+
	       EMT     16
	       INC     R5
	       BR      2
5:	       TST     R5
	       BEQ     2
	       EMT     16
	       MOVB    #60,-(R4)
	       DEC     R5
	       BR      2
3:	       MOV     #OCTBUF,R0
	       CLR     R3
7:	       CLR     R4
	       MOVB    (R0)+,R4
	       BIC     #177770,R4
	       ASL     R3
	       ASL     R3
	       ASL     R3
	       ADD     R4,R3
	       SOB     R5,7
	       MOV     (SP)+,R5
	       MOV     (SP)+,R4
	       MOV     (SP)+,R0
	       RETURN

COR1:	       MOV     #1,R1
	       BR      METCOR
COR5:	       MOV     #5,R1
	       BR      METCOR
COR32:	       MOV     #32,R1
	       BR      METCOR
COR40:	       MOV     #40,R1
	       BR      METCOR
COR50:	       MOV     #50,R1
	       BR      METCOR
COR56:	       MOV     #56,R1
	       BR      METCOR
COR66:	       MOV     #66,R1
	       BR      METCOR
COR71:	       MOV     #71,R1
METCOR:	       CALL    STRCOR
	       RETURN

ADRESS:	       TSTB    @#301
	       BNE     ADST2
	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #ADST,@#4
	       CALL    STRRDY
	       CALL    MOV1CD
	       CALL    COR1
	       CALL    OUT2
	       CALL    OCTIN
	       MOV     R3,CDBUF
	       CALL    MOVCD1
ADST:	       CALL    CUROFF
	       CALL    FSP1
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
ADST2:	       RETURN

LENGTH:	       TSTB    @#301
	       BNE     LNST2
	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #LNST,@#4
	       CALL    STRRDY
	       CALL    MOV1CD
	       CALL    COR1
	       CALL    OUT3
	       CALL    OCTIN
	       TST     R3
	       BEQ     LNST
	       CMP     R3,OLDLEN
	       BHI     LNST
	       MOV     R3,CDLEN
	       MOV     #76400,R5
	       MOV     CDLEN,R4
	       CALL    CONSUM
	       MOV     R0,BCONS
	       CALL    MOVCD1
LNST:	       CALL    CUROFF
	       CALL    FSP1
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
LNST2:	       RETURN

NAMEIN:	       MOV     R0,-(SP)
	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     R4,-(SP)
	       MOV     R5,-(SP)
	       CALL    STRRDY
	       CALL    COR1
	       CALL    OUT1
	       CALL    CURON
	       MOV     #CDNAME,R4
	       MOV     #20,R0
20:	       MOVB    #40,(R4)+
	       SOB     R0,20
	       MOV     #CDNAME,R4
	       CLR     R5
1:	       CALL    SIMBOL
	       CMP     #12,R0
	       BEQ     3
	       CMP     #30,R0
	       BEQ     2
	       CMP     #37,R0
	       BHIS    1
	       CMP     #177,R0
	       BHIS    5
	       CMP     #237,R0
	       BHIS    1
5:	       CMP     #17,R5
	       BLO     1
	       MOVB    R0,(R4)+
	       EMT     16
	       INC     R5
	       BR      1
2:	       TST     R5
	       BEQ     1
	       EMT     16
	       MOVB    #40,-(R4)
	       DEC     R5
	       BR      1
3:	       MOV     (SP)+,R5
	       MOV     (SP)+,R4
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       MOV     (SP)+,R0
	       RETURN

FLNAME:	       TSTB    @#301
	       BNE     STPNM2
	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #STPNM,@#4
	       CALL    MOV1CD
	       CALL    NAMEIN
	       CALL    MOVCD1
STPNM:	       CALL    CUROFF
	       CALL    FSP1
	       BIS     #100,@#177660
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
STPNM2:	       RETURN

STRRDY:	       CALL    DRAW
	       CALL    STRCLR
	       RETURN

LOAD:	       MOV     @#4,-(SP)
	       MOV     SP,SAVSP
	       MOV     #STLD2,@#4
	       CALL    NAMEIN
	       CALL    CUROFF
	       MOV     #STLD,@#4
	       CALL    NEWRD
1:	       CLRB    @#301
	       CALL    RFIRST

	       MOV     R1,-(SP)
	       MOV     R2,-(SP)
	       MOV     R3,-(SP)
	       MOV     R5,-(SP)
	       MOV     #CDNAME,R2
	       MOV     #PARAM2,R1
	       CMP     (R1)+,(R1)+
	       MOV     #20,R3
3:	       CMPB    (R1)+,(R2)+
	       BNE     6
	       SOB     R3,3
	       BR      5
6:	       MOVB    #1,@#301
	       MOV     #PARAM2,R5
	       CALL    SHOWNM
	       CALL    BEEP
	       MOV     (SP)+,R5
	       MOV     (SP)+,R3
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       BR      1

5:	       MOV     (SP)+,R5
	       MOV     (SP)+,R3
	       MOV     (SP)+,R2
	       MOV     (SP)+,R1
	       CALL    RSECOND
	       BR      STLD2
STLD:	       INCB    @#301
STLD2:	       CALL    CUROFF
	       CALL    MOV21
	       CALL    FSP1
	       BIS     #100,@#177660
	       MOV     SAVSP,SP
	       MOV     (SP)+,@#4
	       RETURN

FSP1:	       CALL    FORM
	       CALL    SHOWP1
	       RETURN

FILTR:	       MOV     R0,-(SP)
	       MOV     R5,-(SP)
	       MOV     #20,R0
	       CMP     (R5)+,(R5)+
1:	       CMPB    #37,(R5)
	       BHIS    2
	       CMPB    #177,(R5)
	       BHIS    3
	       CMPB    #237,(R5)
	       BHIS    2
	       BR      3
2:	       MOVB    #40,(R5)
3:	       INC     R5
	       SOB     R0,1
	       MOV     (SP)+,R5
	       MOV     (SP)+,R0
	       RETURN

SIMBOL:	       BIC     #100,@#177660
	       MOV     @#177662,R0
1:	       BIT     #200,@#177660
	       BEQ     1
	       BIS     #100,@#177660
	       RETURN
IN060:	       MOV     @#177662,R0
	       CMP     #17,R0
	       BNE     2
	       CLR     REGFL
	       BR      RT
2:	       CMP     #16,R0
	       BNE     3
	       MOV     #1,REGFL
	       BR      RT
3:	       CMP     #77,R0
	       BHIS    RT
	       TST     REGFL
	       BEQ     RT
	       BIS     #200,R0
	       BR      RT
IN274:	       MOV     @#177662,R0
	       CMP     #77,R0
	       BLO     2
	       CLR     R0
	       BR      RT
2:	       BIC     #300,R0
	       CMP     #37,R0
	       BLO     1
	       ADD     #40,R0
1:	       BIS     #200,R0
RT:	       BIC     #177400,R0
	       CALL    BEEP
	       RTI

SELCOD:	       .BYTE 73,61,62,63,122,100,106,116,114,101
	       .BYTE   104
	       .EVEN
SELRUN:	       .WORD SAVE0,SAVE1,SAVE2,SAVE3,NREAD,REGEN
	       .WORD   FIND,FLNAME,LOAD,ADRESS,LENGTH

START:	       EMT     14
	       MOV     #1000,SP
	       MOV     #START,@#4
	       MOV     #IN060,@#60
	       MOV     #IN274,@#274
	       CALL    NEW
	       CALL    SETSCR
2:	       CALL    SIMBOL
	       CMPB    #'E,R0
	       BEQ     MTQUIT
	       MOV     #13,R3
	       MOV     #SELCOD,R1
1:	       CMPB    (R1)+,R0
	       BEQ     MAIN2
	       SOB     R3,1
	       BR      2
MTQUIT:	       EMT     14
	       MOV     #1000,SP
	       .EXIT

MAIN:	       CALL    SIMBOL

MAIN2:	       MOV     #13,R3
	       MOV     #SELCOD,R1
	       MOV     #SELRUN,R2
1:	       CMPB    R0,(R1)+
	       BEQ     2
	       TST     (R2)+
	       SOB     R3,1
	       BR      MAIN
2:	       CALL    @0(R2)
	       BR      MAIN
	       .END


��