Sic-Program - Symbol rhombus

.     *
.    ***
.   *****
.  *******
. *********
.  *******
.   *****
.    ***
.     *

test     START   1000
         LDA     one
         STA     r
Loop     LDA     num
         SUB     r
         STA     count
         LDX     zero
         LDA     zero
         COMP    count
         JEQ     Loop2
Loop1    JSUB    PrintSp
         TIX     count
         JLT     Loop1
         LDX     zero
Loop2    JSUB    PrintS
         TIX     r
         JLT     Loop2
         LDX     zero
         LDA     r
         SUB     one
         STA     count1
         LDA     zero
         COMP    count1
         JEQ     s
Loop3    JSUB    PrintS
         TIX     count1
         JLT     Loop3
s        JSUB    NewLine
         LDA     r
         ADD     one
         STA     r
         COMP    num2
         JLT     Loop
.loop2
         LDA     one
         STA     r
Lop      LDA     num
         SUB     r
         STA     count
         LDX     zero
         LDA     zero
         COMP    count
         JEQ     Lop2
Lop1     JSUB    PrintSp
         TIX     r
         JLT     Lop1
         LDX     zero
Lop2     JSUB    PrintS
         TIX     count
         JLT     Lop2
         LDX     zero
         LDA     num
         SUB     r
         SUB     one
         STA     count1
         LDA     zero
         COMP    count1
         JEQ     s0
Lop3     JSUB    PrintS
         TIX     count1
         JLT     Lop3
s0       JSUB    NewLine
         LDA     r
         ADD     one
         STA     r
         COMP    num
         JLT     Lop
         J       En
PrintSp  TD      OUTDEV
         JEQ     PrintSp
         LDCH    space
         WD      OUTDEV
         RSUB
PrintS   TD      OUTDEV
         JEQ     PrintS
         LDCH    STAR
         WD      OUTDEV
         RSUB
NewLine  TD      OUTDEV
         JEQ     NewLine
         LDCH    n
         WD      OUTDEV
         RSUB
num      WORD    5
num2     WORD    6
one      WORD    1
zero     WORD    0
r        RESW    1
count    RESW    1
count1   RESW    1
OUTDEV   BYTE    x'06'
STAR     BYTE    c'*'
n        BYTE    x'00'
space    BYTE    x'20'
En       END     test