Two identical strings: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,691: / Line 2,691: @@
 1111011110</pre>
+=={{header|MACRO-11}}==
+<syntaxhighlight lang="macro11">        .TITLE  IDNSTR
+        .MCALL  .TTYOUT,.EXIT
+IDNSTR::CLR     R4
+        BR      2$
+$:     MOV     R3,R0
+        JSR     PC,PRDEC
+        MOV     R3,R0
+        JSR     PC,PRBIN
+$:     INC     R4
+        JSR     PC,IDENT
+        CMP     R3,#^D1000
+        BLT     1$
+        .EXIT
+        ; LET R3 BE R4'TH IDENTICAL NUMBER
+IDENT:  MOV     R4,R3
+        MOV     R4,R2
+$:     ASL     R3
+        ASR     R2
+        BNE     1$
+        BIS     R4,R3
+        RTS     PC
+        ; PRINT NUMBER IN R0 AS DECIMAL
+PRDEC:  MOV     #4$,R1
+$:     MOV     #-1,R2
+$:     INC     R2
+        SUB     #12,R0
+        BCC     2$
+        ADD     #72,R0
+        MOVB    R0,-(R1)
+        MOV     R2,R0
+        BNE     1$
+$:     MOVB    (R1)+,R0
+        .TTYOUT
+        BNE     3$
+        RTS     PC
+        .ASCII  /...../
+$:     .BYTE   11,0
+        .EVEN
+        ; PRINT NUMBER IN R0 AS BINARY
+PRBIN:  MOV     #3$,R1
+$:     MOV     #60,R2
+        ASR     R0
+        ADC     R2
+        MOVB    R2,-(R1)
+        TST     R0
+        BNE     1$
+$:     MOVB    (R1)+,R0
+        .TTYOUT
+        BNE     2$
+        RTS     PC
+        .BLKB   20
+$:     .BYTE   15,12,0
+        .END    IDNSTR</syntaxhighlight>
+{{out}}
+<pre>3       11
+1010
+1111
+100100
+101101
+110110
+111111
+10001000
+10011001
+10101010
+10111011
+11001100
+11011101
+11101110
+11111111
+1000010000
+1000110001
+1001010010
+1001110011
+1010010100
+1010110101
+1011010110
+1011110111
+1100011000
+1100111001
+1101011010
+1101111011
+1110011100
+1110111101
+1111011110</pre>
 =={{header|MAD}}==
 <syntaxhighlight lang="mad">            NORMAL MODE IS INTEGER