1% Example program ... Table of primes (floating point with sharper bound) 2L IS 500 The number of primes to find 3t IS $255 Temporary storage 4n GREG 5q GREG 6r GREG 7jj GREG 8kk GREG 9pk GREG 10mm IS kk 11 12 LOC Data_Segment 13PRIME1 WYDE 2 14 LOC PRIME1+2*L 15ptop GREG @ 16j0 GREG PRIME1+2-@ 17BUF OCTA 18 19 LOC #100 20Main SET n,3 21 SET jj,j0 222H STWU n,ptop,jj 23 INCL jj,2 243H BZ jj,2F 254H INCL n,2 265H SET kk,j0 27fn GREG 0 28sqrtn GREG 0 29 FLOT fn,n 30 FSQRT sqrtn,fn 310H GREG #3fffff0000000000 32 FSUB sqrtn,sqrtn,0B 336H LDWU pk,ptop,kk 34 FLOT t,pk 35 FREM r,fn,t 36 BZ r,4B 377H FCMP t,t,sqrtn 38 BNN t,2B 398H INCL kk,2 40 JMP 6B 41 GREG @ 42Title BYTE "First Five Hundred Primes" 43NewLn BYTE #a,0 44Blanks BYTE " ",0 452H LDA t,Title 46 TRAP 0,Fputs,StdOut 47 NEG mm,2 483H ADD mm,mm,j0 49 LDA t,Blanks 50 TRAP 0,Fputs,StdOut 512H LDWU pk,ptop,mm 520H GREG #2030303030000000 53 STOU 0B,BUF 54 LDA t,BUF+4 551H DIV pk,pk,10 56 GET r,rR 57 INCL r,'0' 58 STBU r,t,0 59 SUB t,t,1 60 PBNZ pk,1B 61 LDA t,BUF 62 TRAP 0,Fputs,StdOut 63 INCL mm,2*L/10 64 PBN mm,2B 65 LDA t,NewLn 66 TRAP 0,Fputs,StdOut 67 CMP t,mm,2*(L/10-1) 68 PBNZ t,3B 69 TRAP 0,Halt,0 70