diff options
| author | Leo C | 2018-12-09 16:26:08 +0100 |
|---|---|---|
| committer | Leo C | 2018-12-09 16:26:08 +0100 |
| commit | c18ba81991314d10f95b00051fd1e3fbcebc8e48 (patch) | |
| tree | 1253fac800015146c261e008d0fcf4f9cb00b7a2 | |
| parent | 391ac6fba313088498ffc6ed570281ba1c1bf177 (diff) | |
| download | ddt180-c18ba81991314d10f95b00051fd1e3fbcebc8e48.zip | |
Remove W option from cmds S,Q,Z; J otion from Q
| -rw-r--r-- | ddt180.z80 | 73 |
1 files changed, 19 insertions, 54 deletions
@@ -2161,32 +2161,31 @@ cmd_H: ; Query memory for a byte string [Justified]
cmd_Q:
- call get_char_upper
- sub 'J'
- ld (cmd_Q_jopt),a
- jr nz,l0e8dh
- inc de
-l0e8dh:
call get_arg_range
push bc
push hl
call sub_0ee6h
pop hl
l0e96h:
- call sub_0ed7h
+ push hl
+ push de
+ push bc
+l0edah:
+ ld a,(de)
+ cp (hl)
+ jr nz,l0ee2h
+ inc de
+ inc hl
+ djnz l0edah
+l0ee2h:
+ pop bc
+ pop de
+ pop hl
jr nz,l0eb0h
push bc
- push hl
- ld a,(cmd_Q_jopt)
- or a
- jr nz,l0ea7h
- ld bc,-8
- add hl,bc
-l0ea7h:
ld bc,16
- and a
+ and a ;clear carry
call sub_0f58h
- pop hl
pop bc
l0eb0h:
inc hl
@@ -2225,23 +2224,6 @@ l0ed3h: pop hl
ret
-sub_0ed7h:
- push hl
- push de
- push bc
-l0edah:
- ld a,(de)
- cp (hl)
- jr nz,l0ee2h
- inc de
- inc hl
- djnz l0edah
-l0ee2h:
- pop bc
- pop de
- pop hl
- ret
-
sub_0ee6h:
ld hl,conbuf+1
call sub_0ef7h
@@ -2252,26 +2234,13 @@ sub_0ee6h: ret nz
jp ERROR
-sub_0ef7h:
- db 0e6h ; and 037h (clear carry)
-sub_0ef8h:
+sub_0ef7h: ;from cmd_Q, cmd_Z
+ db 0e6h ;and 037h (clear carry)
+sub_0ef8h: ;from cmd_S
scf
l0ef9h:
push af
call next_arg
- cp 'W'
- jr nz,l0f0eh
- inc de
- push hl
- call sub_035dh
- ex de,hl
- ex (sp),hl
- ld (hl),e
- inc hl
- ld a,d
- pop de
- jr l0f1ah
-l0f0eh:
cp ''''
jr z,l0f1eh
push hl
@@ -2333,8 +2302,7 @@ sub_0f58h: push af
l0f5ch:
call out_hl
- call z,outbl2
- call outbl
+ call outbl2
ld de,0
l0f68h:
ld a,(hl)
@@ -3911,9 +3879,6 @@ last_O_addr: last_O_val:
db 0
-cmd_Q_jopt:
- db -1
-
last_D:
dw TPA
|