Browse code
Added primes.tal exercise
neauoire authored on 17/10/2021 03:16:54
Showing 2 changed files
| 4 | 4 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,57 @@ |
| 1 |
+( |
|
| 2 |
+ An integer greater than one is called a prime number |
|
| 3 |
+ if its only positive divisors are one and itself. ) |
|
| 4 |
+ |
|
| 5 |
+%RTN { JMP2r }
|
|
| 6 |
+%HALT { #0101 #0e DEO2 }
|
|
| 7 |
+%MOD2 { DIV2k MUL2 SUB2 }
|
|
| 8 |
+%EMIT { #18 DEO }
|
|
| 9 |
+ |
|
| 10 |
+|0100 ( -> ) @main |
|
| 11 |
+ |
|
| 12 |
+ #0000 #0001 |
|
| 13 |
+ &loop |
|
| 14 |
+ DUP2 ,is-prime JSR #00 EQU ,&skip JCN |
|
| 15 |
+ DUP2 ,print-hex/short JSR |
|
| 16 |
+ #20 EMIT |
|
| 17 |
+ &skip |
|
| 18 |
+ INC2 NEQ2k ,&loop JCN |
|
| 19 |
+ POP2 POP2 |
|
| 20 |
+ HALT |
|
| 21 |
+ |
|
| 22 |
+BRK |
|
| 23 |
+ |
|
| 24 |
+@is-prime ( number* -- flag ) |
|
| 25 |
+ |
|
| 26 |
+ DUP2 #0001 NEQ2 ,¬-one JCN |
|
| 27 |
+ POP2 #00 RTN |
|
| 28 |
+ ¬-one |
|
| 29 |
+ STH2k |
|
| 30 |
+ ( range ) #01 SFT2 #0002 |
|
| 31 |
+ &loop |
|
| 32 |
+ STH2kr OVR2 MOD2 #0000 NEQ2 ,&continue JCN |
|
| 33 |
+ POP2 POP2 |
|
| 34 |
+ POP2r #00 RTN |
|
| 35 |
+ &continue |
|
| 36 |
+ INC2 GTH2k ,&loop JCN |
|
| 37 |
+ POP2 POP2 |
|
| 38 |
+ POP2r #01 |
|
| 39 |
+ |
|
| 40 |
+RTN |
|
| 41 |
+ |
|
| 42 |
+@print-hex ( value* -- ) |
|
| 43 |
+ |
|
| 44 |
+ &short ( value* -- ) |
|
| 45 |
+ SWP ,&echo JSR |
|
| 46 |
+ &byte ( value -- ) |
|
| 47 |
+ ,&echo JSR |
|
| 48 |
+ RTN |
|
| 49 |
+ |
|
| 50 |
+ &echo ( value -- ) |
|
| 51 |
+ STHk #04 SFT ,&parse JSR EMIT |
|
| 52 |
+ STHr #0f AND ,&parse JSR EMIT |
|
| 53 |
+ RTN |
|
| 54 |
+ &parse ( value -- char ) |
|
| 55 |
+ DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN |
|
| 56 |
+ |
|
| 57 |
+RTN |
|
| 0 | 58 |
\ No newline at end of file |