SRCFILE_SICXE.txt

         startt  1000
first    lda     #0
         sta     flag
         sta     +T
         lda     #2
loop     comp    alpha
         jeq     exit
loop     comp    alpha
         rmo     a,t
         divr    t,p
         mulr    t,s
         ldt     alpha
         subr    s,t
         addlg   one
         lds     #0
         compr   s,t
         jlt     loop
         jgt     loop
         lds     #1
         sts     flag
exit     ldt     #0
         lds     flag
         compr   s,t
         jeq     prime
         ldx     #0
notp     ldch    nltr,x
outn     td      outdev
         jeq     outnj
         wd      outdev
         tix     #3
         rsub    exit
         jlt     notp
prime    ldx     #0
prim     ldch    pltr,x
outp     td      outdev
         jeq     outp
         wd      outdev
         tix     #5
         jlt     prim
betta    resw    1
alpha    word    18
betta    ressw   1
one      word    1
outdev   byte    x'06z'
pltr     byte    c'Prime'
nltr     byte    c'Not'
         end     +PrmPrg