]>
cloudbase.mooo.com Git - ddt180.git/blobdiff - ddt180.z80
jr outchar\r
\r
out.ascii:\r
jr outchar\r
\r
out.ascii:\r
res 7,a\r
cp ' '\r
push af\r
res 7,a\r
cp ' '\r
push af\r
pop af\r
jr nc,l0242h\r
sub 0c0h\r
pop af\r
jr nc,l0242h\r
sub 0c0h\r
l0242h:\r
call outchar\r
cp ''''\r
call z,outchar\r
l0242h:\r
call outchar\r
cp ''''\r
call z,outchar\r
+ sla c\r
+ pop bc\r
+ ret nc\r
- call m,outchar\r
- ex af,af'\r
- ret\r
\r
outbl6:\r
call outbl2\r
\r
outbl6:\r
call outbl2\r
push de\r
ld iy,(reg.pc)\r
call p_disas_instr\r
push de\r
ld iy,(reg.pc)\r
call p_disas_instr\r
+ pop de\r
+ ex (sp),hl\r
+ push af\r
call crlf\r
call p_f2\r
call outbl2\r
call crlf\r
call p_f2\r
call outbl2\r
ld b,7\r
l065bh:\r
call p_regs\r
djnz l065bh\r
ld b,7\r
l065bh:\r
call p_regs\r
djnz l065bh\r
- jr z,l066bh\r
- call outbl6\r
- call p_offset\r
-l066bh:\r
+ call nz,outbl6\r
+ call nz,p_offset\r
ld a,(reg.f2)\r
call p_flags\r
jp outbl\r
ld a,(reg.f2)\r
call p_flags\r
jp outbl\r
p_flags:\r
ld b,a\r
ld a,'S'\r
p_flags:\r
ld b,a\r
ld a,'S'\r
push de\r
call pstr\r
call pstr_inl\r
push de\r
call pstr\r
call pstr_inl\r
push hl\r
and a\r
jr z,l06deh\r
push hl\r
and a\r
jr z,l06deh\r
- push af\r
- ld a,(de)\r
- ld l,a\r
- inc de\r
- ld a,(de)\r
- ld h,a\r
- pop af\r
+ ex de,hl\r
+ ld e,(hl)\r
+ inc hl\r
+ ld d,(hl)\r
+ ex de,hl\r
dec a\r
jr z,l06d9h\r
call out.hl.@\r
dec a\r
jr z,l06d9h\r
call out.hl.@\r
call outbl\r
pop de\r
pop hl\r
call outbl\r
pop de\r
pop hl\r
call sub_0c6ah\r
ld (reg.f2),a\r
ret\r
call sub_0c6ah\r
ld (reg.f2),a\r
ret\r
ld b,000h\r
call outbl\r
call assert_eol\r
call get_line\r
ld b,000h\r
call outbl\r
call assert_eol\r
call get_line\r
l0c76h:\r
call skipbl\r
ld a,b\r
l0c76h:\r
call skipbl\r
ld a,b\r
push bc\r
push de\r
push hl\r
push bc\r
push de\r
push hl\r
l0f5ch:\r
call out.hl.@\r
call z,outbl2\r
l0f5ch:\r
call out.hl.@\r
call z,outbl2\r
inc hl\r
dec e\r
jr nz,l0f86h\r
inc hl\r
dec e\r
jr nz,l0f86h\r
jr nc,l0f97h\r
ld (last_D),hl\r
l0f97h:\r
jr nc,l0f97h\r
ld (last_D),hl\r
l0f97h:\r
call crlf\r
ld a,b\r
or c\r
jr nz,l0f5ch\r
call crlf\r
ld a,b\r
or c\r
jr nz,l0f5ch\r
pop hl\r
pop de\r
pop bc\r
pop hl\r
pop de\r
pop bc\r