Commit changes from initial clean-up pass of ESPOLXEM, minor typo corrections to ESPOL source, file showing CANDE command used to run NEATUP55 for generating initial ESPOLXEM source.

2026-01-25 19:25:53 +00:00 · 2012-08-11 16:33:09 +00:00
parent 33a10ade22
commit e8d46ac978
3 changed files with 573 additions and 425 deletions
--- a/SYMBOL/ESPOL.alg_m
+++ b/SYMBOL/ESPOL.alg_m
@@ -6491,7 +6491,7 @@ PROCEDURE ADJUST;;                                                      16023100
         REAL ADDR;                                                     16068000          
         IF ABS(                                                        16069000          
         D~(T~TAKE(GIT(E)).LOC)-L-1)}64 THEN                            16070000          
-              FLAG(700);                                                16071000          
+              FLAG(700)                                                 16071000          
         ELSE EMITC(D,IF D <0 THEN JRV ELSE JFW);                       16079000          
         END  EMIT JUMP;                                                16080000          
    COMMENT   WHEN JUMPCHAIN IS CALLED THERE IS A LINKEDLIST IN THE CODE16081000