diff options
Diffstat (limited to 'programs')
| -rw-r--r-- | programs/echo_optimal.pal | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/programs/echo_optimal.pal b/programs/echo_optimal.pal index 1281309..89a1fea 100644 --- a/programs/echo_optimal.pal +++ b/programs/echo_optimal.pal | |||
| @@ -12,15 +12,15 @@ TAIL, 7777 | |||
| 12 | 12 | ||
| 13 | *100 | 13 | *100 |
| 14 | 14 | ||
| 15 | TTBUSY, 0 / FIXME: sometimes we get wedged with TTBUSY=1, but TT flag is clear (no TT interrupt occurs) | 15 | TTBUSY, 0 |
| 16 | 16 | ||
| 17 | *200 | 17 | *200 |
| 18 | 18 | ||
| 19 | CLA IAC | 19 | CLA IAC |
| 20 | KIE | 20 | KIE |
| 21 | ION | 21 | ION |
| 22 | CLA | 22 | LOOP, CLA |
| 23 | LOOP, TAD TTBUSY | 23 | TAD TTBUSY |
| 24 | SZA | 24 | SZA |
| 25 | JMP LOOP | 25 | JMP LOOP |
| 26 | TAD TAIL | 26 | TAD TAIL |
| @@ -41,9 +41,6 @@ LOOP, TAD TTBUSY | |||
| 41 | 41 | ||
| 42 | *400 | 42 | *400 |
| 43 | 43 | ||
| 44 | SAVEA, 0 | ||
| 45 | SAVEF, 0 | ||
| 46 | |||
| 47 | GOTINT, DCA SAVEA | 44 | GOTINT, DCA SAVEA |
| 48 | GTF | 45 | GTF |
| 49 | AND (7577) | 46 | AND (7577) |
| @@ -65,3 +62,6 @@ RETINT, CLA | |||
| 65 | TAD SAVEA | 62 | TAD SAVEA |
| 66 | ION | 63 | ION |
| 67 | JMP I INTRET | 64 | JMP I INTRET |
| 65 | |||
| 66 | SAVEA, 0 | ||
| 67 | SAVEF, 0 | ||
