out.bin.b: opt

diff --git a/ddt180.z80 b/ddt180.z80
index 96f0e832aab9d750d7c93f14384d3ba69b93b4be..3d4e6e7d272d485b2b3d84695911d0a08c56981b 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -296,7 +296,7 @@ sub_01d9h:
 out_hl_dec_neg:\r
        push hl\r
        call sub_01d9h\r
-       defb 03eh\r
+       defb 03eh               ;ld a,..  swallow push hl\r
 out.hl.dec:\r
        push hl\r
        ld b,006h\r
@@ -356,11 +356,11 @@ out.bin.w:
 out.bin.b:\r
        ld b,8\r
 l01c9h:\r
-       add a,a\r
-       push af\r
-       ld a,00\r
-       adc a,a\r
-       call out_dgt\r
+       rlca\r
+       push    af\r
+       ld      a,'0'/2\r
+       adc     a,a\r
+       call    outchar\r
        pop af\r
        djnz l01c9h\r
        ld a,'"'\r
@@ -784,7 +784,7 @@ sub_0377h:
        jr l0366h\r
 \r
 b_037c_start:\r
-       defb 0e6h\r
+       defb 0e6h               ;and a,..  clear carry\r
 get_arg_range:\r
        scf\r
        ex af,af'\r
@@ -796,7 +796,7 @@ get_arg_range:
        jr c,error0\r
        ex af,af'\r
        pop hl\r
-       defb 03eh\r
+       defb 03eh               ;ld a,..  swallow pop af\r
 l038ch:\r
        pop af\r
        call get_range\r
@@ -1378,7 +1378,7 @@ error11:
 \r
 sub_060ch:\r
        call get_char_upper\r
-       cp '['\r
+       cp 'Z'+1\r
        jr l0614h\r
 \r
 get.hexdigit:\r