;-------------------------------------------------------------------------------\r
; Relocation loader\r
;\r
-\r
TPA equ 0100h\r
cseg\r
.phase TPA\r
current_cseg defl $ - current_cseg\r
.phase current_phase + current_cseg\r
signon:\r
- db 'DDT/180',TAB\r
- db '[8101] 003',CR,LF,'$'\r
+ db 'Symbolic DDTZ/180'\r
+ db ' - Version '\r
+ maclib version.inc\r
+ defvers\r
+ db CR,LF,'$'\r
msgz80:\r
db 'Z80 or better required!',cr,lf,'$'\r
\r
jr mainloop\r
\r
l0146h:\r
- ld a,'?'\r
- call outchar\r
+ call pstr_inl\r
+ dc '?'\r
;fall thru\r
crlf:\r
+ call pstr_inl\r
+ db CR,LF+80h\r
call inchar\r
- ld a,CR\r
- call outchar\r
- ld a,LF\r
- call outchar\r
ld a,0\r
ld (con_col),a\r
jr c,mainloop\r
ret\r
\r
-get_line:\r
- push hl\r
- ld de,conbuf\r
- ld c,BDOS_CBUF\r
- call ddtz_bdos\r
- call crlf\r
- ld de,conbuf+1\r
- ld a,(de)\r
- ld b,a\r
- ld c,0\r
- inc b\r
-l0162h:\r
- inc de\r
- dec b\r
- jr z,l0194h\r
- ld a,(de)\r
- bit 0,c\r
- call z,toupper\r
- ld (de),a\r
- cp ''''\r
- jr nz,l0162h\r
- push de\r
- dec de\r
- ld a,(de)\r
- cp ''''\r
- jr z,l0190h\r
- dec de\r
- ld a,(de)\r
- cp '^'\r
- jr z,l0184h\r
- dec de\r
- ld a,(de)\r
- cp '^'\r
- jr nz,l0190h\r
-l0184h:\r
- inc de\r
- push bc\r
- call sub_0303h\r
- pop bc\r
- dec de\r
- ld a,(de)\r
- cp ''''\r
- jr z,l0191h\r
-l0190h:\r
- inc c\r
-l0191h:\r
- pop de\r
- jr l0162h\r
-l0194h:\r
- xor a\r
- ld (de),a\r
- ld de,conbuf+2\r
- pop hl\r
- ret\r
-\r
-toupper:\r
- cp 'a'\r
- ret c\r
- cp 'z'+1\r
- ret nc\r
- and 05fh\r
- ret\r
-\r
out.hl.@:\r
call out_hl\r
push de\r
or e\r
jr z,l01bfh\r
call outbl\r
- ld a,'@'\r
- call outchar\r
+ call pstr_inl\r
+ dc '@'\r
and a\r
sbc hl,de\r
call out_hl\r
pop de\r
ret\r
\r
-out.bin.w:\r
- ld a,h\r
- call out.bin.b\r
- ld a,l\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
- pop af\r
- djnz l01c9h\r
- ld a,'"'\r
- jp outchar\r
-\r
sub_01d9h:\r
- ld a,'-'\r
- call outchar\r
+ call pstr_inl\r
+ dc '-'\r
dec hl\r
jp cpl.hl\r
\r
ld b,006h\r
call sub_01f9h\r
pop hl\r
- ld a,'.'\r
- call outchar\r
+ call pstr_inl\r
+ dc '.'\r
l01f3h:\r
call outbl\r
djnz l01f3h\r
ret\r
+\r
sub_01f9h:\r
dec b\r
push de\r
l0229h:\r
add a,'0'\r
jr outchar\r
-l022dh:\r
- ld a,'-'\r
- call outchar\r
- ld a,040h\r
-out.ascii:\r
- ex af,af'\r
- call outquote\r
- ex af,af'\r
+\r
+out.bin.w:\r
+ ld a,h\r
+ call out.bin.b\r
+ ld a,l\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
+ pop af\r
+ djnz l01c9h\r
+ ld a,'"'\r
+ jr outchar\r
+\r
+out.ascii:\r
+ push bc\r
+ ld c,a\r
res 7,a\r
cp ' '\r
+ push af\r
+ call nc,outbl\r
+ call outquote\r
+ pop af\r
jr nc,l0242h\r
sub 0c0h\r
+ ld b,a\r
+ call pstr_inl\r
+ dc '^'\r
+ ld a,b\r
l0242h:\r
call outchar\r
- push af\r
cp ''''\r
call z,outchar\r
- pop af\r
- ex af,af'\r
call outquote\r
- pop af\r
- or a\r
+ sla c\r
+ pop bc\r
+ ret nc\r
ld a,'.'\r
- call m,outchar\r
- ex af,af'\r
- jr c,l022dh\r
- ret\r
+ jr outchar\r
+\r
+outbl6:\r
+ call outbl2\r
+outbl4:\r
+ call outbl2\r
+outbl2:\r
+ call outbl\r
+outbl:\r
+ ld a,' '\r
+ jr outchar\r
\r
p_char_lparen:\r
ld a,'('\r
pop hl\r
ret\r
\r
+pstr:\r
+ ld a,(hl)\r
+ inc hl\r
+ and a\r
+ ret z\r
+ call outchar\r
+ and a\r
+ ret m\r
+ jr pstr\r
+\r
+pstr_inl:\r
+ ex (sp),hl\r
+ call pstr\r
+ ex (sp),hl\r
+ ret\r
+\r
+p_fill_space:\r
+ call outbl\r
+ ld a,(con_col)\r
+ cp c\r
+ jr c,p_fill_space\r
+ ret\r
+\r
inchar:\r
push hl\r
push de\r
pop hl\r
ret\r
\r
-pstr:\r
+get_line:\r
+ push hl\r
+ ld de,conbuf\r
+ ld c,BDOS_CBUF\r
+ call ddtz_bdos\r
+ call crlf\r
+ ld de,conbuf+1\r
+ ld a,(de)\r
+ ld b,a\r
ld c,0\r
-l028ah:\r
- ld a,(hl)\r
- inc hl\r
- and a\r
- ret z\r
- call outchar\r
+ inc b\r
+l0162h:\r
+ inc de\r
+ dec b\r
+ jr z,l0194h\r
+ ld a,(de)\r
+ bit 0,c\r
+ call z,toupper\r
+ ld (de),a\r
+ cp ''''\r
+ jr nz,l0162h\r
+ push de\r
+ dec de\r
+ ld a,(de)\r
+ cp ''''\r
+ jr z,l0190h\r
+ dec de\r
+ ld a,(de)\r
+ cp '^'\r
+ jr z,l0184h\r
+ dec de\r
+ ld a,(de)\r
+ cp '^'\r
+ jr nz,l0190h\r
+l0184h:\r
+ inc de\r
+ push bc\r
+ call sub_0303h\r
+ pop bc\r
+ dec de\r
+ ld a,(de)\r
+ cp ''''\r
+ jr z,l0191h\r
+l0190h:\r
inc c\r
- and a\r
- ret m\r
- jr l028ah\r
-\r
-pstr_inl:\r
- ex (sp),hl\r
- call pstr\r
- ex (sp),hl\r
+l0191h:\r
+ pop de\r
+ jr l0162h\r
+l0194h:\r
+ xor a\r
+ ld (de),a\r
+ ld de,conbuf+2\r
+ pop hl\r
ret\r
\r
-outbl6:\r
- call outbl2\r
-outbl4:\r
- call outbl2\r
-outbl2:\r
- call outbl\r
-outbl:\r
- ld a,' '\r
- jr outchar\r
-\r
-add_hl_a:\r
- add a,l\r
- ld l,a\r
+toupper:\r
+ cp 'a'\r
+ ret c\r
+ cp 'z'+1\r
ret nc\r
- inc h\r
+ and 05fh\r
ret\r
\r
skipbl0:\r
inc de\r
skipbl:\r
ld a,(de)\r
- cp ' '\r
- jr z,skipbl0\r
- cp TAB\r
+ call test_whitespace\r
jr z,skipbl0\r
or a\r
ret\r
jr c,to_error\r
ret\r
\r
+add_hl_a:\r
+ add a,l\r
+ ld l,a\r
+ ret nc\r
+ inc h\r
+ ret\r
+\r
cp_hl_de:\r
and a\r
sbc hl,de\r
add hl,de\r
ret\r
\r
+sub_hl_a1:\r
+ dec hl\r
+sub_hl_a:\r
+ push bc\r
+ ld c,a\r
+ ld b,0\r
+ or a\r
+ sbc hl,bc\r
+ pop bc\r
+ ret\r
+\r
+sym_getname:\r
+ push de\r
+ push hl\r
+ ld hl,ddtz_base+2\r
+sgn_l:\r
+ ld d,(hl)\r
+ dec hl\r
+ ld e,(hl)\r
+ dec hl\r
+ ld a,(hl)\r
+ cp 0c3h\r
+ jr z,sgn_e\r
+\r
+ ex (sp),hl\r
+ call cp_hl_de\r
+ jr z,sgn_e\r
+ ex (sp),hl\r
+ call sub_hl_a1\r
+ jr sgn_l\r
+sgn_e:\r
+ sub 0c3h\r
+ pop hl\r
+ pop de\r
+ ret\r
+\r
+p_symstr:\r
+ push bc\r
+ ld b,(hl)\r
+pss_l:\r
+ dec hl\r
+ ld a,(hl)\r
+ call outchar\r
+ djnz pss_l\r
+ dec hl\r
+ pop bc\r
+ ret\r
+\r
+p_sym_space:\r
+ if 0\r
+ ld a,(dash_flag)\r
+ or a\r
+ ret nz\r
+ endif\r
+\r
+ push hl\r
+ push bc\r
+ ld c,a\r
+ ld a,(con_col)\r
+ ld b,a\r
+ call sym_getname\r
+ jr z,psb_align\r
+ bit 7,c\r
+ jr z,psb_nd\r
+ call pstr_inl\r
+ dc ' .'\r
+psb_nd:\r
+ call p_symstr\r
+\r
+psb_align:\r
+ ld a,(con_col)\r
+ sub b\r
+ ld b,a\r
+ ld a,(symlen_max)\r
+ bit 7,c\r
+ jr z,$+4\r
+ add a,2\r
+ res 7,c\r
+ add c\r
+ sub b\r
+ ld b,a\r
+ jr z,psb_e\r
+psb_a_l:\r
+ call outbl\r
+ djnz psb_a_l\r
+psb_e:\r
+ pop bc\r
+ pop hl\r
+ ret\r
+\r
+p_label:\r
+ if 0\r
+ ld a,(dash_flag)\r
+ or a\r
+ ret nz\r
+ endif\r
+ push hl\r
+ call sym_getname\r
+ jr z,pl_e\r
+ call p_symstr\r
+ call pstr_inl\r
+ dc ':'\r
+ call crlf\r
+pl_e:\r
+ pop hl\r
+ ret\r
+\r
lookupch:\r
ld b,0\r
l02f5h:\r
cp '('\r
jr z,fact_mem\r
cp '['\r
- jp z,expr_brckt\r
+ jr z,expr_brckt\r
cp ''''\r
jr z,fact_factstring\r
+ cp '.'\r
+ jr z,fact_symbol\r
dec de\r
scf\r
ret\r
\r
fact_reg.Y:\r
call get.decdigit\r
- jp c,ERROR\r
+ jr c,error1\r
inc de\r
+get_y_val:\r
add a,a\r
ld hl,reg_Y\r
call add_hl_a\r
\r
fact_reg.CPU:\r
call sub_0caeh\r
- jr nc,error4\r
+ jr nc,error1\r
ld a,(hl)\r
inc hl\r
ld h,(hl)\r
\r
fact_mem:\r
call expr1\r
- jr c,error4\r
+ jr c,error1\r
ld a,(de)\r
cp ')'\r
- jr nz,error4\r
+ jr nz,error1\r
inc de\r
ld a,(hl)\r
inc hl\r
\r
expr_brckt:\r
call expr1\r
- jr c,error4\r
+ jr c,error1\r
ld a,(de)\r
cp ']'\r
inc de\r
ret z\r
-error4:\r
+error1:\r
jp ERROR\r
\r
+fact_symbol:\r
+ push bc\r
+ ld hl,ddtz_base ;symtbl start\r
+\r
+fs_nxtsym:\r
+ ld a,(hl) ;symlen\r
+ cp 0c3h\r
+ jr z,error1\r
+ ld b,a ;symlen\r
+ inc b\r
+ push hl ;symtbl ptr\r
+ push de ;inpsym ptr\r
+fs_2:\r
+ ld a,(de)\r
+ djnz fs_3\r
+ call test_sym_char\r
+ jr z,fs_cont\r
+ pop hl ;inpsym ptr (discard)\r
+ pop hl ;symtbl ptr\r
+ inc hl\r
+ ld a,(hl) ;symval h\r
+ inc hl\r
+ ld h,(hl) ;symval l\r
+ ld l,a\r
+ or a ;clear carry\r
+ pop bc\r
+ ret\r
+fs_3:\r
+ inc de\r
+ dec hl\r
+ cp (hl)\r
+ jr z,fs_2\r
+fs_cont: ;start over\r
+ pop de ;inpsym ptr\r
+ pop hl ;symtbl ptr\r
+ ld a,(hl)\r
+ add a,3\r
+ call sub_hl_a\r
+ jr fs_nxtsym\r
+\r
get.number:\r
call get.hexdigit\r
ret c\r
push de\r
ld iy,(reg.pc)\r
call p_disas_instr\r
- exx\r
- ex af,af'\r
+ pop de\r
+ ex (sp),hl\r
+ push af\r
call crlf\r
call p_f2\r
call outbl2\r
- pop de\r
- pop hl\r
ld b,7\r
l065bh:\r
call p_regs\r
djnz l065bh\r
- exx\r
- ex af,af'\r
+ pop af\r
+ pop hl\r
and a\r
- jr z,l066bh\r
- call outbl6\r
- call p_offset\r
-l066bh:\r
+ call nz,outbl6\r
+ call nz,p_offset\r
jp crlf\r
\r
p_f:\r
ld a,(reg.f2)\r
call p_flags\r
jp outbl\r
+\r
p_flags:\r
ld b,a\r
ld a,'S'\r
jp outbl\r
\r
p_regs:\r
- push bc\r
push de\r
call pstr\r
- ld a,'='\r
- call outchar\r
+ call pstr_inl\r
+ dc '='\r
ex (sp),hl\r
ld e,(hl)\r
inc hl\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
call outbl\r
pop de\r
pop hl\r
- pop bc\r
ret\r
\r
b_06e9_start:\r
\r
cmd_B:\r
call skipbl\r
- jr z,l07b7h\r
+ jr z,bp_print\r
inc de\r
cp 'X'\r
- jr z,l077dh\r
+ jr z,bp_clr0\r
dec de\r
ld a,001h\r
jp bp_enter\r
-l077dh:\r
+bp_clr0:\r
call skipbl\r
jr z,bp_clr_all\r
-l0782h:\r
+bp_clr_next:\r
call expr\r
jp c,assert_eol\r
push de\r
call bp_clr\r
pop de\r
call next_arg\r
- jr l0782h\r
+ jr bp_clr_next\r
\r
bp_clr_all:\r
scf\r
djnz l0799h\r
ret\r
\r
-l07b7h:\r
+bp_print:\r
ld b,BP_CNT\r
ld ix,bp_tab\r
-l07bdh:\r
+bp_pr_l:\r
bit 0,(ix+000h)\r
- jr z,l0808h\r
+ jr z,bp_pr_cont\r
ld a,'R'\r
bit 4,(ix+000h)\r
jr nz,l07cdh\r
ld l,(ix+002h)\r
ld h,(ix+003h)\r
call out.hl.@\r
- call outbl2\r
- ld a,':'\r
- call outchar\r
+ ld a,82h\r
+ call p_sym_space\r
+ call pstr_inl\r
+ dc ':'\r
ld l,(ix+004h)\r
ld h,(ix+005h)\r
call out_hl\r
or l\r
jr z,l0805h\r
call outbl4\r
- ld a,'I'\r
- call outchar\r
- call outbl2\r
+ call pstr_inl\r
+ dc 'I '\r
call pstr\r
l0805h:\r
call crlf\r
-l0808h:\r
+bp_pr_cont:\r
ld de,BP_SIZE\r
add ix,de\r
- djnz l07bdh\r
+ djnz bp_pr_l\r
ret\r
\r
; Add break points to list\r
call skipbl\r
ret z\r
cp 'R'\r
- jr nz,l081ch\r
+ jr nz,bp_e_1\r
inc de\r
set 4,b\r
-l081ch:\r
+bp_e_1:\r
push bc\r
call expr\r
jp c,ERROR\r
bp_get_freeslot:\r
ld b,BP_CNT\r
ld ix,bp_tab\r
-l085ah:\r
+bp_gf_l:\r
ld a,(ix+000h)\r
and 00fh\r
ret z\r
ld bc,BP_SIZE\r
add ix,bc\r
pop bc\r
- djnz l085ah\r
+ djnz bp_gf_l\r
jp ERROR\r
\r
bp_get_count:\r
l0bc7h:\r
push af\r
call sub_0bdch\r
- call outbl4\r
+ pop af\r
+ push af\r
+ call get_y_val\r
+ ld a,82h\r
+ call p_sym_space\r
pop af\r
inc a\r
bit 0,a\r
call skipbl\r
jr z,l0c30h\r
call sub_0363h\r
- ld b,h\r
- ld c,l\r
- pop af\r
+ ex de,hl\r
+ pop bc\r
pop hl\r
- ld (hl),c\r
- bit 0,a\r
+ ld (hl),e\r
+ bit 0,c\r
ret z\r
inc hl\r
- ld (hl),b\r
+ ld (hl),d\r
ret\r
l0c30h:\r
pop af\r
ret\r
\r
l0c33h:\r
- ld b,c\r
call pstr\r
- ld a,'='\r
- call outchar\r
+ call pstr_inl\r
+ dc '='\r
ld a,(de)\r
- bit 0,b\r
+ bit 0,c\r
jp z,out_hex\r
ld l,a\r
inc de\r
ld a,(de)\r
dec de\r
ld h,a\r
- bit 1,b\r
+ bit 1,c\r
jp z,out_hl\r
jp out.hl.@\r
\r
call sub_0c6ah\r
ld (reg.f2),a\r
ret\r
+\r
sub_0c6ah:\r
- ex af,af'\r
+ push af\r
ld b,000h\r
call outbl\r
call assert_eol\r
call get_line\r
+ pop af\r
+ ex af,af'\r
l0c76h:\r
call skipbl\r
ld a,b\r
call out_hl_dec_neg\r
call outbl4\r
call out.bin.w\r
- call outbl2\r
+ call outbl\r
ld a,l\r
call out.ascii\r
+ ld a,80h\r
+ call p_sym_space\r
jp crlf\r
\r
p_symbols:\r
inc de\r
call assert_eol\r
+ ld a,(symlen_max)\r
+ add a,7\r
+ ld b,a\r
+ ld c,0\r
ld hl,ddtz_base+2\r
-psym_l:\r
+psym_nxtsym:\r
ld d,(hl)\r
dec hl\r
ld e,(hl)\r
dec hl\r
- ld b,(hl)\r
- dec hl\r
- ld a,b\r
- cp 10h\r
- ret nc\r
+ ld a,(hl)\r
+ cp 0c3h\r
+ jr z,psym_e\r
\r
ex de,hl\r
call out_hl\r
- ex de,hl\r
call outbl\r
-psymch_l:\r
- ld a,(hl)\r
- dec hl\r
- call outchar\r
- djnz psymch_l\r
- call crlf\r
- jr psym_l\r
-\r
-p_symstr:\r
- ld b,(hl)\r
-pss_l:\r
- dec hl\r
- ld a,(hl)\r
- call outchar\r
- djnz pss_l\r
- ret\r
-\r
-\r
-p_label:\r
- if 0\r
- ld a,(dash_flag)\r
- or a\r
- ret nz\r
- endif\r
- push hl\r
- call sym_getname\r
- jr z,pl_e\r
+ ex de,hl\r
call p_symstr\r
- ld a,':'\r
- call outchar\r
- call crlf\r
-pl_e:\r
- pop hl\r
- ret\r
-\r
-sym_getname:\r
- push de\r
- push hl\r
- ld hl,ddtz_base+2\r
-sgn_l:\r
- ld d,(hl)\r
- dec hl\r
- ld e,(hl)\r
- dec hl\r
- ld a,(hl)\r
- cp 0c3h\r
- jr z,sgn_e\r
-\r
- ex (sp),hl\r
- call cp_hl_de\r
- jr z,sgn_e\r
- ex (sp),hl\r
- call sub_hl_a1\r
- jr sgn_l\r
-sgn_e:\r
- sub 0c3h\r
- pop hl\r
- pop de\r
- ret\r
\r
-sub_hl_a1:\r
- dec hl\r
-sub_hl_a:\r
- push bc\r
+ ld a,c\r
+ add b\r
ld c,a\r
- ld b,0\r
+ ld a,80 ;screen width\r
+ sub b\r
+ cp c\r
+ jr c,psym_nxtline\r
+ call p_fill_space\r
+ jr psym_nxtsym\r
+\r
+psym_nxtline:\r
+ ld c,0\r
+ call crlf\r
+ jr psym_nxtsym\r
+\r
+psym_e:\r
+ ld a,c\r
or a\r
- sbc hl,bc\r
- pop bc\r
- ret\r
+ ret z\r
+ jp crlf\r
+\r
\r
cmd_Q:\r
ld a,(de)\r
push bc\r
push de\r
push hl\r
- ex af,af'\r
+ push af\r
l0f5ch:\r
call out.hl.@\r
call z,outbl2\r
inc hl\r
dec e\r
jr nz,l0f86h\r
- ex af,af'\r
+ pop af\r
+ push af\r
jr nc,l0f97h\r
ld (last_D),hl\r
l0f97h:\r
- ex af,af'\r
call crlf\r
ld a,b\r
or c\r
jr nz,l0f5ch\r
+ pop af\r
pop hl\r
pop de\r
pop bc\r
cp 080h\r
jr nz,l1111h\r
call read_sector\r
+ ld a,01ah\r
ret z\r
sub a\r
l1111h:\r
ld de,(cur_fcb)\r
ld c,BDOS_READ\r
call ddtz_bdos\r
- dec a\r
+ sub a,1\r
jr z,l1132h\r
- jp p,ERROR\r
+ jr nc,error2\r
l1132h:\r
pop bc\r
pop de\r
push de\r
ld de,TPA\r
call cp_hl_de\r
- jp c,ERROR\r
+ jr c,error2\r
ld de,(BDOS+1)\r
call cp_hl_de\r
- jp nc,ERROR\r
+ jr nc,error2\r
ld de,(high_load)\r
call cp_hl_de\r
jr c,l1157h\r
\r
read_hexdigit:\r
call read_byte\r
- jr z,error8\r
+ jr z,error2\r
hex_digit_v:\r
call hex_digit\r
ret nc\r
-error8:\r
+error2:\r
jp ERROR\r
\r
read_hexbyte:\r
pop hl\r
jr z,read_hexfile\r
ld de,TPA\r
- add hl,de\r
push hl\r
+ add hl,de\r
l108eh:\r
call read_sector\r
+ jr nz,read_file_nxt\r
pop hl\r
- jr z,read_symfile\r
+ jr read_symfile\r
+\r
+read_file_nxt:\r
ld de,DMA_BUF\r
ld b,080h\r
l109ah:\r
inc de\r
inc hl\r
djnz l109ah\r
- push hl\r
jr l108eh\r
\r
read_hexfile:\r
push hl\r
l10aeh:\r
- call read_byte\r
+ call read_byte ; RECORD MARK\r
jr z,rdhex_done\r
cp ':'\r
jr nz,l10aeh\r
ld c,0\r
- call read_hexchar\r
+ call read_hexchar ; RECLEN\r
ld b,a\r
- call read_hexchar\r
+ call read_hexchar ; LOAD ADDR H\r
ld h,a\r
- call read_hexchar\r
+ call read_hexchar ; LOAD ADDR L\r
ld l,a\r
ld a,b\r
and a\r
jr z,rdhex_done\r
- call read_hexchar\r
+ call read_hexchar ; RECTYP\r
l10cch:\r
- call read_hexchar\r
+ call read_hexchar ; DATA\r
pop de\r
push de\r
push hl\r
pop hl\r
inc hl\r
djnz l10cch\r
- call read_hexchar\r
+ call read_hexchar ; CHKSUM\r
ld a,c\r
and a\r
- jr nz,error9\r
+ jr nz,error3\r
jr l10aeh\r
rdhex_done:\r
pop hl\r
cp ' '\r
jp z,p_max_high\r
\r
+ push hl ; offset\r
call pstr_inl\r
db 'SYMBOLS',CR,LF+80h\r
\r
dec de\r
call file_open\r
-;------------------------------------------------------------------------\r
rs_1:\r
call read_byte\r
rs_2:\r
+ pop de ; offset\r
cp 1ah\r
- jr z,p_max_high\r
+ jp z,p_max_high\r
+ push de ; offset\r
cp '!'\r
jr c,rs_1\r
- call read_hexbyte0\r
- ld d,a\r
- call read_hexbyte ; symval\r
- ld e,a\r
- push de ; symval\r
+ call read_hexbyte0 ; symval H\r
+ ld h,a\r
+ call read_hexbyte ; symval L\r
+ ld l,a\r
+ add hl,de\r
call read_byte\r
cp ' '\r
jr z,rs_4\r
- pop hl ; discard symval\r
rs_3: call read_byte\r
cp ' '\r
- jr c,rs_2\r
- jr rs_3\r
-;\r
-rs_4: ld hl,(BDOS+1) ;\r
- ld e,0 ; setup symlen\r
-rs_5: dec hl ;\r
- call read_byte ;\r
- cp TAB ;\r
- jr z,rs_6 ;\r
- cp CR ;\r
- jr z,rs_6 ;\r
- cp '!' ;\r
- jr c,error9 ;\r
+ jr nc,rs_3\r
+ jr rs_2\r
+\r
+rs_4:\r
+ push hl ; symval\r
+ ld hl,(BDOS+1) ;\r
+ ld b,0 ; setup symlen\r
+rs_5:\r
+ dec hl ;\r
+ call read_byte ; next char of symbol name\r
+ call test_sym_char ; valid char?\r
+ jr nz,rs_6\r
ld (hl),a ;\r
- inc e ; symlen++\r
- ld a,e ;\r
+ inc b ; symlen++\r
+ ld a,b ;\r
cp 10h+1 ;\r
jr c,rs_5 ;\r
-error9:\r
+error3:\r
jp ERROR ;\r
-;\r
-rs_6: push de ; symlen\r
- push hl ;\r
+\r
+rs_6:\r
+ call test_symterm_ch\r
+ jr nz,error3\r
+\r
+ push bc ; symlen\r
ex de,hl ;\r
ld hl,(BDOS+1) ;\r
inc hl ;\r
- ld e,(hl) ;\r
+ ld c,(hl) ;\r
inc hl ;\r
- ld d,(hl) ;\r
- pop hl ;\r
- ld (hl),d ;\r
+ ld b,(hl) ;\r
+ ex de,hl\r
+ ld (hl),b ;\r
dec hl ;\r
- ld (hl),e ;\r
+ ld (hl),c ;\r
dec hl ;\r
ld (hl),0c3h ;\r
\r
ld de,(max_load) ;\r
call cp_hl_de ;\r
- jr c,error9 ;\r
-\r
+ jr c,error3 ;\r
ld de,(reg_sp) ;\r
call cp_hl_de ;\r
jr nc,rs_61 ;\r
ld (reg_sp),hl ;\r
rs_61:\r
-\r
ld de,(BDOS+1) ;\r
ld (BDOS+1),hl ;\r
ex de,hl ;\r
- pop de ;\r
- ld (hl),e ; symlen\r
+ pop af ; symlen\r
+ ld (hl),a ;\r
inc hl ;\r
pop de ; symval\r
ld (hl),e ;\r
inc hl ;\r
ld (hl),d ;\r
+ ld hl,symlen_max ;\r
+ cp (hl) ; new max?\r
+ jr c,$+3 ;\r
+ ld (hl),a ;\r
jp rs_1 ;\r
-;------------------------------------------------------------------------\r
+\r
+\r
+; test for valid character for symbols\r
+; return z if valid\r
+\r
+test_sym_char:\r
+ cp '$'\r
+ ret z\r
+ cp '%'\r
+ ret z\r
+ cp '.'\r
+ ret z\r
+ cp '_'\r
+ ret z\r
+ call test_alphanum\r
+ ret c ; cy == 1 --> z == 0\r
+ cp a ; return z\r
+ ret\r
+\r
+\r
+; check if char is in [0..9,?,@,A..Z,a..z]\r
+; return cy if invalid\r
+; return nc if valid alfanumeric char\r
+\r
+test_alphanum:\r
+ cp 'z'+1\r
+ ccf\r
+ ret c\r
+ cp 'a'\r
+ ret nc\r
+ cp 'Z'+1\r
+ ccf\r
+ ret c\r
+ cp '?'\r
+ ret nc\r
+test_numeral:\r
+ cp '9'+1\r
+ ccf\r
+ ret c\r
+ cp '0'\r
+ ret\r
+\r
+test_symterm_ch:\r
+ cp CR\r
+ ret z\r
+ cp LF\r
+ ret z\r
+test_whitespace:\r
+ cp ' '\r
+ ret z\r
+ cp TAB\r
+ ret\r
\r
p_max_high0:\r
call assert_eol\r
DC ' Max = '\r
ld hl,(max_load)\r
call out_hl\r
+ call pstr_inl\r
+ DC ' Top = '\r
+ ld hl,(BDOS+1)\r
+ call out_hl\r
jp crlf\r
\r
cmd_W:\r
push bc\r
ld a,(dfcb1+1)\r
cp ' '\r
- jr z,error5\r
+ jr z,error4\r
ld de,dfcb1\r
call setup_fcb\r
push de\r
ld c,BDOS_CREATE\r
call ddtz_bdos\r
inc a\r
- jr z,error5\r
+ jr z,error4\r
pop bc\r
pop hl\r
l11cch:\r
and a\r
ret z\r
call close_file\r
-error5:\r
+error4:\r
jp ERROR\r
\r
close_file:\r
push hl\r
call p_disas_line\r
pop iy\r
- ld c,b\r
ld de,(var.@)\r
ld a,d\r
or e\r
- ld b,011h\r
+ ld c,17\r
jr z,l122dh\r
- ld b,019h\r
+ ld c,25\r
l122dh:\r
- call outbl\r
- ld a,(con_col)\r
- cp b\r
- jr c,l122dh\r
+ call p_fill_space\r
+ ld c,b\r
push bc\r
call get_line\r
pop bc\r
\r
as.IN0:\r
call arg.r_HL_A ;\r
- jr nc,error7\r
+ jr nc,error5\r
cp 006h\r
- jr z,error7\r
+ jr z,error5\r
rlca\r
rlca\r
rlca\r
call arg.addr_8bit ;\r
call assert_comma ;\r
call arg.r_HL_A ;\r
- jr nc,error7\r
+ jr nc,error5\r
cp 006h\r
- jr z,error7\r
+ jr z,error5\r
rlca\r
rlca\r
rlca\r
\r
as.MLT:\r
call arg.ww ;\r
- jr nc,error7\r
+ jr nc,error5\r
add a,b\r
ld b,a\r
jp gen.opc.ED2\r
\r
-error7:\r
+error5:\r
jp ERROR\r
\r
as.LD:\r
call arg.imm_8bit\r
ld a,l\r
cp 003h\r
- jr nc,error2\r
+ jr nc,error7\r
and a\r
jr z,l16c7h\r
ld b,056h\r
ld b,a\r
pop af\r
and 0c7h\r
- jr nz,error2\r
+ jr nz,error7\r
jp as.opc.noarg\r
\r
as.POP_PUSH:\r
call arg.IX_IY\r
jr c,l16e7h\r
call arg.zz\r
- jr nc,error2\r
+ jr nc,error7\r
add a,b\r
jp l13ech\r
l16e7h:\r
\r
as.IN:\r
call arg.r_HL_A\r
- jr nc,error2\r
+ jr nc,error7\r
cp 006h\r
- jr z,error2\r
+ jr z,error7\r
rlca\r
rlca\r
rlca\r
call sub_171bh\r
l1715h:\r
jp c,gen.opc.ED2\r
-error2:\r
+error7:\r
jp ERROR\r
\r
sub_171bh:\r
jr nc,l1739h\r
call assert_comma\r
call arg.r_HL_A\r
- jr nc,error2\r
+ jr nc,error7\r
cp 006h\r
- jr z,error2\r
+ jr z,error7\r
rlca\r
rlca\r
rlca\r
call arg.addr_8bit\r
call assert_comma\r
cp 'A'\r
- jr nz,error2\r
+ jr nz,error7\r
inc de\r
ld b,0d3h\r
jp as.store_2\r
call arg.imm_8bit\r
ld a,l\r
cp 008h\r
- jr nc,error3\r
+ jr nc,error8\r
ret\r
\r
arg.j_displ:\r
ld a,h\r
xor l\r
bit 7,a\r
- jr nz,error3\r
+ jr nz,error8\r
ret\r
\r
arg.addr_8bit:\r
ret z\r
inc a\r
ret z\r
- jr error3\r
+ jr error8\r
\r
test_expr:\r
push bc\r
call expr\r
pop bc\r
ret nc\r
-error3:\r
+error8:\r
jp ERROR\r
\r
arg.zz:\r
and a\r
ret z\r
\r
-l193fh:\r
- call outbl\r
- ld a,(con_col)\r
- cp 16\r
- jr c,l193fh\r
+ ld c,16\r
+ call p_fill_space\r
+ call p_offset\r
+ ld a,80h\r
+ jp p_sym_space\r
\r
p_offset:\r
ld de,(var.@)\r
ld a,d\r
or e\r
ret z\r
- call p_char_lparen\r
- ld a,'@'\r
- call outchar\r
+ call pstr_inl\r
+ dc '(@'\r
and a\r
sbc hl,de\r
call out_hl\r
+ add hl,de\r
jp out_rparen\r
\r
p_disas_instr:\r
inc hl\r
jr sub_1a72h\r
l1a7fh:\r
+ ld de,l1c97h\r
inc hl\r
ld c,(hl)\r
- ld hl,t_MNEMONICS\r
- ld b,0\r
- add hl,bc\r
- ld de,l1c97h\r
- scf\r
- ret\r
+ jr get_mnemonic\r
+\r
\r
test_DDFD:\r
ld a,(hl)\r
and a\r
jr nz,lookup_opc\r
ret\r
+\r
l1aa8h:\r
inc hl\r
ld c,(hl)\r
ld e,(hl)\r
inc hl\r
ld d,(hl)\r
+get_mnemonic:\r
ld hl,t_MNEMONICS\r
- ld b,000h\r
+ ld b,0\r
add hl,bc\r
scf\r
ret\r
db 0ffh\r
\r
\r
-; 1 byte opcodes\r
+; 1 byte opcodes\r
; Format: db mask, match, t_MNEMONICS-index\r
; dw argument formating fuction\r
b_1ad1_start:\r
dw l1ce5h\r
db 0\r
\r
-; 2 byte opdodes\r
+; 2 byte opdodes\r
b_1b54_start:\r
db 0c7h,006h,056h ;ld r,nn\r
dw l1cfah\r
dw l1d29h\r
db 0\r
\r
-; 3 byte opcodes\r
+; 3 byte opcodes\r
b_1b9b_start:\r
db 0c7h,0c2h,052h ;jp cc,mn\r
dw p_arg_cc_mn\r
ld a,(iy+001h)\r
and a\r
jp m,l1e61h\r
- ld a,'+'\r
- call outchar\r
+ call pstr_inl\r
+ dc '+'\r
ld a,(iy+001h)\r
jr l1e6bh\r
l1e61h:\r
- ld a,'-'\r
- call outchar\r
+ call pstr_inl\r
+ dc '-'\r
ld a,(iy+001h)\r
neg\r
l1e6bh:\r
jp pstr\r
\r
p_mnemonic:\r
- call pstr\r
-l1ebch:\r
- call outbl\r
- inc c\r
- ld a,c\r
- cp 5\r
- jr c,l1ebch\r
- ret\r
+ ld a,(con_col)\r
+ add a,5\r
+ ld c,a\r
+ call pstr\r
+ jp p_fill_space\r
\r
t_MNEMONICS:\r
DC 'ADC'\r
ret\r
cmd_C:\r
ld hl,cmd_C\r
- ld a,001h\r
+ ld a,1\r
jr l2122h\r
cmd_T:\r
xor a\r
l1ffdh:\r
db 0\r
\r
+symlen_max: ;max length of symbols read so far\r
+ db 0\r
cur_fcb:\r
dw 0\r
fcbsym:\r
projects / ddt180.git / blobdiff