7. : . . . - . - . , , . .7.1n ( Ndlq kavdogo fakti~eskogo argumenta. . . 1. . .IPR X, ; --> MOV R0,-(SP) MOV X,-(SP) ` ` ; MOV R1,-(SP) .ENDM ; . . . . . . ) ; MOV R5,-(SP) 2. . .IPR X, ; --> MOV N,(R0)+ MOV X,(R0)+ ; MOV K,(R0)+ .ENDM ; MOV L,(R0)+ ` ; MOV M,(R0)+ 3. 12*12 . ` .RADIX 10 .IRP X,<1,2,3,4,5,6,7,8,9,10,11,12> S'X: .WORD ^O177973 .ENDM .IRP X,<1,2,3,4,5,6,7,8,9,10,11,12> SS'X: .WORD 0 .ENDM START: !.IRP Y,<1,2,3,4,5,6,7,8,9,10,11,12> CLR R2 .IRP X,<12,11,10,9,8,7,6,5,4,3,2,1> ROL S'X ROR R2 .ENDM MOV R2,SS'Y .ENDM .END START , (.7.2). . 4. . .IRPC X,012345 ; --> MOV R0,-(SP) MOV R'X,-(SP) ; MOV R1,-(SP) .ENDM ; . . . . . . . ` ; MOV R5,-(SP) ! 5. 4 4% . .IRPC X, ; --> .GLOBL MA /GLOBL M'X ; .WORD MA .WORD M'X ; . . . . . . .ENDM ! ; . . . . . . . . - (.7.3). . <= 0 , . .MEXIT . , . - . - .MEXIT . 6. .MACRO PROBA,A,B,C . . . ! !--> . . . ! .IF EQ,A . . . ! !--> , A=0 . . . ` ! J .MEXIT ! .ENDC . . . ! ` !--> , A<>0 . . . ! .ENDM . , 9 0 . , SSMA.SML. , -9 - ,^ ) .MCALL (.7.5). : .MCALL .EXIT .EXIT . .EXIT - (500-577 ) , . primer 7. . .MCALL .EXITl.JSWDF .JSWDO ; M ; ; . START: MOV #510,R0 MOV #CMDSTR,R1 1$: MOV (R1)+,(R0)+ CMP R1,#CMDEND `(BLO ` 1$ ! ! BIS cCHNIF$,@#JSW ; - ; . CLR R0 .EXIT CMDSTR: .WORD CMDEND-CMDSTR ` ` .ASCIZ "DIR/EST/FULL`DK:" ; . CMDEND: .EVEN /END START , .EXIT, .. . .ENTER . .ENTER . $ . . , . : .ENTER AREA,CHAN,DBLK,LEN,SECNUM . . AREA - . . -. , , 8 . CHAN - ( 0-377 ). ! , -. `DBLK - , RAD50. 4 . - - . - (6-). - . LEN - ' , - . LEN=-1 . LEN=0 1/2 , . LEM=M - M - . .ENTER C 52 . 52 0 - , 1 - - , . .CLOSE . . .CLOSE CHAN CHAN - . ! , - .ENTER. , n 8. . .MCALL .ENTER,.EXIT,.CLOSE ; . . . . . . . . . . START: ; . . . . . . . .ENTER` #ART,#1,#NAMEFO,#-1 ; . . . .`. . . .CLOSE #1 ` ` .EXIT ART: .BLKW 10 NAMEFO: .RAD50 /MX0/ ! ; M .RAD50 /SYSOUT/ ; .RAD50 /PAS/( ; ; . .). . . . .END START .WRITE . . .WRITE AREA,CHAN,BUF,WCNT,BLK .ENTER. BUF - , , - . WCNT- , . 256 . Nw slu~ae o{ibki pri zapisi ustanawliwaetsq bit C 52 : 0 - , 1 - , 3 -` . 9. - . , / 3 R1. J .RADIX 10 WROS: MOV `R2,-(SP) INC ` POINT ( BR WR WRDD: MOV R2,-(SP) ( CLR RTCOD ; MOV #BUFER,R2 ; ADD POINT-R2 ; ; MOVB @R1,@R2 INC POINT CMP POINT,#512 BNE VEND WR: MOV POINT,NSLOV INC BLIT ; ASR NSLOW .WRIW #ART,#1,#BUFER,NSLOV,BLIT BCC WEND INC RTCOD ( BR VEND WEND: CLR POINT VEND: MOV (SP)+,R2 RTS PC NSLOV: .WORD 0 ; BLIT: .WORD -1 ; BUFER: .BLKW 256 ART: .BLKW 8 POINT: .WORD 0 ; RTCOD: .WORD 0 ;