X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/blobdiff_plain/b0451b39fb513da895b5b327efe484228dbc28a9..d1d6fee5bb2d081bc54378ed610ab021fd768128:/ddt180.z80?ds=sidebyside

diff --git a/ddt180.z80 b/ddt180.z80
index 37695d4..3d4e6e7 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -296,7 +296,7 @@ sub_01d9h:
 out_hl_dec_neg:
 	push hl
 	call sub_01d9h
-	defb 03eh
+	defb 03eh		;ld a,..  swallow push hl
 out.hl.dec:
 	push hl
 	ld b,006h
@@ -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:
@@ -358,11 +356,11 @@ out.bin.w:
 out.bin.b:
 	ld b,8
 l01c9h:
-	add a,a
-	push af
-	ld a,00
-	adc a,a
-	call out_dgt
+	rlca
+	push	af
+	ld	a,'0'/2
+	adc	a,a
+	call	outchar
 	pop af
 	djnz l01c9h
 	ld a,'"'
@@ -680,7 +678,7 @@ l0300h:
 	ret
 
 sub_0303h:
-	ld hl,b_0cc3_start
+	ld hl,t_reg_names
 	ld b,07fh
 	jr l030ch
 
@@ -786,7 +784,7 @@ sub_0377h:
 	jr l0366h
 
 b_037c_start:
-	defb 0e6h
+	defb 0e6h		;and a,..  clear carry
 get_arg_range:
 	scf
 	ex af,af'
@@ -798,7 +796,7 @@ get_arg_range:
 	jr c,error0
 	ex af,af'
 	pop hl
-	defb 03eh
+	defb 03eh		;ld a,..  swallow pop af
 l038ch:
 	pop af
 	call get_range
@@ -1380,7 +1378,7 @@ error11:
 
 sub_060ch:
 	call get_char_upper
-	cp '['
+	cp 'Z'+1
 	jr l0614h
 
 get.hexdigit:
@@ -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'''