Batch improvements

diff --git a/build/chimaera.img b/build/chimaera.img
index a57cbef4486241c0092477f36214eb81674c3ba3..1fa0819d744596a52e29746545ace7d13418ac09 100644 (file)
Binary files a/build/chimaera.img and b/build/chimaera.img differ

diff --git a/build/chimaera.vhd b/build/chimaera.vhd
index 6fde73c7b6a2f7f84a6232c880141d4d2ac85801..433ddb8797ac6811436d6b4962223b1329accf2b 100644 (file)
Binary files a/build/chimaera.vhd and b/build/chimaera.vhd differ

diff --git a/src/apps/pcomm/pcomm.asm b/src/apps/pcomm/pcomm.asm
index f1b53621568e4be47b3d5490fd3873531ad253ac..ac9d97146fd3e5af1123e8098a5f34733960fd8a 100644 (file)
--- a/src/apps/pcomm/pcomm.asm
+++ b/src/apps/pcomm/pcomm.asm
@@ -39,66 +39,11 @@ _main:
 
     mov     ax,     cs:[_echo_line]
     mov     word ptr [bp - 4],      ax
-
-.L119:
-
+    
     push    es
     push    di
     push    cx
     
-    mov     ax,     cs:[_vec_scratch + 0]
-    mov     es,     ax
-    
-    mov     cx,     cs:[_vec_scratch + 4]
-    xor     di,     di
-
-.L110:
-
-    and     cx,     cx
-    jz      .L109
-
-.L125:
-
-    mov     dx,     1
-    push    dx
-    
-    mov     ax,     es:[di]
-    push    ax
-    
-    mov     ax,     offset _scratch_list
-    push    ax
-    
-    call    _list_push
-    add     sp,     6
-    
-    add     di,      2
-    
-    dec     cx
-    jnz     .L110
-
-.L109:
-
-    mov     ax,     es
-    
-    and     ax,     ax
-    jz      .L117
-    
-    push    ax
-    
-    call    _free
-    add     sp,     2
-
-.L117:
-
-    mov     ax,     cs
-    mov     es,     ax
-    
-    mov     di,     offset _vec_scratch
-    xor     al,     al
-    
-    mov     cx,     6
-    rep     stosb
-    
     mov     ax,     [_scratch_list]
     xor     di,     di
 
@@ -167,14 +112,7 @@ _main:
     mov     [_scratch_list],    ax
     mov     word ptr [bp - 2],      ax
     
-    cmp     word ptr cs:[_vec_scratch + 4],     0
-    je      .L112
-    
-    pop     cx
-    pop     di
-    pop     es
-    
-    jmp     .L119
+    jmp     .L112
 
 .L111:
 
@@ -3023,16 +2961,20 @@ _read_batch.check:
     
     push    ds
     push    di
+    
+    mov     ax,     1
+    push    ax
+    
     push    es
     
     mov     ax,     cs
     mov     ds,     ax
     
-    mov     ax,     offset _vec_scratch
+    mov     ax,     offset _scratch_list
     push    ax
     
-    call    _vec_push
-    add     sp,     4
+    call    _list_push
+    add     sp,     6
     
     pop     di
     pop     ds
@@ -3046,8 +2988,6 @@ _read_batch.check:
 
 _read_batch.next:
 
-    inc     word ptr cs:[_in_batch]
-    
     pop     ds
     pop     bx
     pop     ax
@@ -3174,9 +3114,6 @@ _vec_env:                       db      6       dup (0)
 global      _vec_paths
 _vec_paths:                     db      6       dup (0)
 
-global      _vec_scratch
-_vec_scratch:                   db      6       dup (0)
-
 global      _curr_row
 _curr_row:                      db      HEX (00)