;üíõìñôïò MS-DOS ó ANDOSÎÙÍÉ SUB-DIRÁÍÉ ;ôïìøëï äìñ 3.15====!!!!!!!! .LINK 136626 DIR=120014 TXT=120050 STWIN$=60 TX$=44 .WORD 51414 CMP @#120004,#100000+315. BEQ 0 RET 0: TRAP STWIN$ CMP @#120024,#137000 BLO 11E ;RT-11_EM õâéôø !!!! MOV @#137774,@#120024 MOV @#137776,@#120042 11E: TRAP TX$ .WORD 10511 .ASCIZ/üÍÕÌÑÔÏÒ ANDOS/ .EVEN TRAP TX$ .WORD 1400-16 .ASCIZ/ ×ÅÒÓÉÑ 3.0/ .EVEN CLR @#44 CLR R0 SOB R0,. SOB R0,. MOV #137000,R1 MOV PC,R3 ADD #ANEM-.,R3 MOV #ANEME-ANEM,R2 MOVB (R3)+,(R1)+ SOB R2,.-2 MOV #137000,@#120116 RET ANEM: BR E36 ;ïâòáâïôëá MK-DOSÎÏÇÏ ÚÁÐÒÏÓÁ BR TRDIR ;TRANSDIR ÄÌÑ MC E36: MOV @#306,R1 MOV (R1)+,R0 BIC #177774,R0 CMPB R0,#2 BNE 0OK NON: CLRB @#52 JMP @#121020 0OK: CMP (R1)+,(R1)+ MOV R1,R3 MOV #10,R2 1$: CMPB (R3)+,#'. BEQ 0ES SOB R2,1$ MOV R3,R4 DEC R4 MOV #10,R2 2$: CMPB (R3)+,#'. BEQ 1ES SOB R2,2$ 3$: CMPB -(R3),#40 BLOS 3$ CMP R3,R4 BLOS 888 MOVB @R3,(R4) 888: INC R4 767: MOV R4,R3 BR 2ES 1ES: MOVB -2(R3),(R4) MOV R1,R4 ADD #10,R4 MOVB #'.,(R4)+ MOVB (R3)+,(R4)+ MOVB (R3)+,(R4)+ MOVB (R3)+,(R4)+ BR 767 0ES: ADD #3,R3 2ES: ADD #20,R1 191: CLRB (R3)+ CMP R3,R1 BLOS 191 0TR: CALL TRDIR BCS 1 JMP @#121044 1: CMPB @#52,#14 BEQ NON SEWA: SEC RET TRDIR: CMP @#120024,#137000 BLO 00 CLR @#120116 MOVB #14,@#52 BR SEWA 00: MOV @#DIR,R2 MOV #Z37616,R1 ADD #13,R2 MOV #2,R0 CALL Z37542 MOV #3,R0 INC R2 CALL Z37542 MOV @#DIR,R2 CLR R0 BISB 24(R2),R0 SWAB R0 BISB 23(R2),R0 MOV R0,466(R2) ; MOV @#120024,R1 ; TST -(R1) ; CLZ ; CALL (R1) MOV @#DIR,R3 MOV R3,R2 MOV 26(R2),(R2) MOVB 20(R2),R3 CLR R0 ADD (R2),R0 SOB R3,.-2 ADD 16(R2),R0 MOV R0,Z37406+2 MOV R2,R1 ADD #22,R1 CLR R3 BISB (R1),R3 SWAB R3 BISB -(R1),R3 MOV R3,R1 ASR R1 ASR R1 ASR R1 ASR R1 ADD R1,Z37406+2 ; CMP R3,#200 ; BLOS Z37214 ; MOV #200,R3 Z37214: MOV R3,Z37250+2 CLR R1 ADD #20,R1 SOB R3,.-4 MOVB 15(R2),Z37432+2 ADD #600,R2 CALL @120022 BCS Z37602 Z37250: MOV #160,R4 MOV @#DIR,R2 ADD #600,R2 MOV R2,R5 SUB #100,R5 CLR R0 Z37274: MOV R5,R1 CMPB (R2),#345 BEQ Z37510 MOV 24(R2),(R1)+ MOV #10,R3 CMPB 13(R2),R3 BNE 1 MOVB #177,(R1)+ 1: MOVB (R2)+,(R1)+ BEQ Z37520 SOB R3,1 INC R0 CMPB (R2),#40 BLOS Z37360 CMPB -(R1),#40 BEQ .-4 INC R1 MOVB #56,(R1)+ Z37360: MOVB (R2)+,(R1)+ MOVB (R2)+,(R1)+ MOVB (R2)+,(R1)+ MOV R5,R3 ADD #20,R3 Z37374: CMP R1,R3 BEQ Z37406 MOVB #40,(R1)+ BR Z37374 Z37406: MOV #14,(R1) SUB #13,R2 MOV 32(R2),R3 BEQ Z37440 SUB #2,R3 BEQ Z37440 Z37432: ADD #4,(R1) SOB R3,Z37432 Z37440: TST (R1)+ MOV 34(R2),(R1) ADD #777,(R1) ROR (R1) CLRB (R1) SWAB (R1) MOV 36(R2),-(SP) SWAB (SP) CLRB (SP) ASR (SP) ADD (SP)+,(R1)+ MOV 26(R2),(R1)+ MOV 34(R2),(R1)+ ADD #30,R5 Z37510: ADD #40,R2 DEC R4 BNE Z37274 Z37520: MOV @#DIR,R3 MOV R0,30(R3) MOV -10(R5),32(R3) MOV #123456,400(R3) CLC RET Z37542: CMPB (R1)+,(R2)+ BNE Z37552 SOB R0,Z37542 RTS PC Z37552: TST (SP)+ Z37604: MOVB #14,@#52 ; ÷ùèïä NON DOS Z37602: SEC RTS PC Z37616: .WORD 1000 .WORD 1 .WORD 2 .WORD 0 ANEME: .END