diff options
author | Leo C | 2016-09-01 11:23:52 +0200 |
---|---|---|
committer | Leo C | 2016-09-01 11:23:52 +0200 |
commit | f81f70a950ede8386b4107add2956ba68dd6ceb5 (patch) | |
tree | 4e811472d93185cb517b337272fe6247f39bfdf2 | |
parent | b0451b39fb513da895b5b327efe484228dbc28a9 (diff) | |
download | ddt180-f81f70a950ede8386b4107add2956ba68dd6ceb5.zip |
Command XF, out_dgt: size opts
-rw-r--r-- | ddt180.z80 | 44 |
1 files changed, 20 insertions, 24 deletions
@@ -343,12 +343,10 @@ out_hex: pop af
out_dgt:
- and 0fh
- cp 10
- jr c,l0229h
- add a,007h
-l0229h:
- add a,'0'
+ or 0f0h
+ daa
+ add a,0a0h
+ adc a,040h
jr outchar
out.bin.w:
@@ -680,7 +678,7 @@ l0300h: ret
sub_0303h:
- ld hl,b_0cc3_start
+ ld hl,t_reg_names
ld b,07fh
jr l030ch
@@ -2154,7 +2152,7 @@ cmd_X: cp 01dh
jp z,ERROR
ex de,hl
- ld hl,b_0cc3_start
+ ld hl,t_reg_names
call sel_dc_string
l0c12h:
call l0c33h
@@ -2224,32 +2222,30 @@ l0c76h: ld a,b
ret z
push bc
- ld hl,b_0ca4_start
+ ld hl,t_flag_names
call lookupch
jp nc,ERROR
- ld a,b
- cp 008h
- jr z,l0c97h
- pop bc
- rlca
- rlca
- rlca
- add a,0c0h
- ld (l0c94h),a
- defb 0cbh
-l0c94h:
- defb 0c0h
+ inc b
+ xor a
+ scf
+nxt_f:
+ rla
+ djnz nxt_f
+ pop bc
+ jr c,l0c97h
+ or b
+ ld b,a
jr l0c76h
+
l0c97h:
ex af,af'
jp nc,ERROR
ex af,af'
ld a,0fbh
ld (reg.iff),a
- pop bc
jr l0c76h
-b_0ca4_start:
+t_flag_names:
db 'CNV H ZSE',0
sub_0caeh:
@@ -2269,7 +2265,7 @@ sub_0caeh: scf
ret
-b_0cc3_start:
+t_reg_names:
DC 'BC'''
DC 'DE'''
DC 'HL'''
|