MOV #14,R0          ; oÞÉcÔËa ÜËpaÎa (ÄÌÑ ÇapaÎÔÉÉ
         EMT 16              ;  ×oÚ×paÔa Ëypcopa × 1 cÔpoËy
         JSR PC,INPNAM       ; ××ecÔÉ ÉÍÑ ÆaÊÌa × ÂyÆep


MOV
#MBUF,R1


JSR
PC,EXIST


TST
R0


BNE
1


MOV
#TXT1,R4;
ÎaÊÄeÎ


JSR
PC,@#124404


HALT
1:DEC
R0


BNE
2


MOV
#TXT2,R4;
ÎeÎaÊÄeÎ


JSR
PC,@#124404


HALT
2:MOV
#TXT3,R4;
Îe
ANDOS


JSR
PC,@#124404


HALT
;
TXT1:.A:æaÊÌ


.B:40.B:1.B:40.A:ÎaÊÄeÎ!


.E
TXT2:.A:æaÊÌ


.B:40.B:1.B:40.A:Îe
ÎaÊÄeÎ!


.E
TXT3:.A:äÉcË
Îe
ANDOS!


.E
;
INPNAM:  MOV #TXTZPR,R1      ; ××oÄ ÉÍeÎÉ ÆaÊÌa × ÂyÆep
         CLR R2              ; ×Ù×oÄ ÐpÉÇÌaÛeÎÉÑ
         EMT 20
         MOV #NAMEBF,R1      ; ÂyÆep ÐoÄ ÉÍÑ
         MOV #20,R2          ; oÂÝaÑ ÄÌÉÎa - 20 cÉÍ×oÌo×
1:       MOVB #40,(R1)+      ; ÚaÂÉ×Ëa ÐpoÂeÌaÍÉ
         SOB R2,1
         MOV #NAMEBF,R1


MOV
#5020,R2;
××oÄ
6
cÉÍ×oÌo×
Äo
"BBOä"
         EMT 10
         CMPB -(R1),#12      ; "BBOä"?


BNE
2
;
Äa
-
ÎaÞaÔØ
c
ÎeÇo


MOVB
#40,(R1)+
2:MOV
#12,R0
;
ÎeÔ
-
Ðepe×ecÔÉ
cÔpoËy
         EMT 16              ;  a ÚaÔeÍ ××oÄÉÔØ
         RTS PC              ; ÉÍÑ cÆopÍÉpo×aÎo - ×oÚ×paÔ
;
TXTZPR:  .A: ***** B×eÄÉÔe ÉÍÑ  ÆaÊÌa *****
         .B:12


.A:(20
cÉÍ×oÌo×):
         .B:40.E
;
MBUF:    .#2                 ; ÂyÆep ÍaÇÎÉÔoÆoÎa
         .#42000
         .#0
NAMEBF:  .+50
;
EXIST:   MOV R5,-(SP)      ; CoxpaÎÉÔØ
         MOV R2,-(SP)      ;  peÇÉcÔpÙ × cÔeËe
         MOV R1,-(SP)
         MOV @#120204,R0   ; éÚ×ÌeÞØ aÄpec INIDRV
         JSR PC,@R0        ; éÎÉÃÉaÌÉÚaÃÉÑ ÄÉcËa
         BCS 1             ; ðepexoÄ, ecÌÉ Îe ANDOS
         MOV @R1,-(SP)     ; ðpeÖÎÀÀ ËoÍaÎÄy EMT 36 - × cÔeË


CLR
@R1
         EMT 36            ; ðepeÐaËo×Ëa ÉÍeÎÉ × NAMBUF
         MOV (SP)+,@R1     ; ðpeÖÎÀÀ ËoÍaÎÄy EMT 36 - Îa ÍecÔo
         MOV @#120260,R0   ; éÚ×ÌeÞØ aÄpec DIRFI2
         JSR PC,@R0        ; ðoÉcË ÆaÊÌa c ÉÍeÎeÍ × NAMBUF
         BCS 2             ; ðepexoÄ, ecÌÉ Îe ÎaÊÄeÎ
         CLR R0            ; ðpÉÚÎaË "ÆaÊÌ ÎaÊÄeÎ"
         BR 3              ;  É Îa ×ÙxoÄ
2:       MOV #1,R0         ; ðpÉÚÎaË "ÆaÊÌ Îe ÎaÊÄeÎ"
         BR 3              ;  É Îa ×ÙxoÄ
1:       MOV #177777,R0    ; ðpÉÚÎaË "Îe ÆopÍaÔ ANDOS"
3:       CLR @#177130      ; OcÔaÎo×ÉÔØ ÍoÔop ÄÉcËo×oÄa
         MOV (SP)+,R1      ; PeÇÉcÔpÙ
         MOV (SP)+,R2      ;  ÉÚ cÔeËa
         MOV (SP)+,R5
         RTS PC            ; BoÚ×paÔ
; -------------------------------------------------------------