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
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
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
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
\r
sub_060ch:\r
call get_char_upper\r
- cp '['\r
+ cp 'Z'+1\r
jr l0614h\r
\r
get.hexdigit:\r