;-------------------------------------------------------------------------------\r
\r
cseg\r
-start::\r
-ddtz_base::\r
+start:\r
+ddtz_base:\r
jr reloc\r
nop\r
l0003h:\r
defvers\r
dc ' ('\r
\r
+;-------------------------------------------------------------------------------\r
+\r
+reloc_getbit macro\r
+ local nextbit\r
+ exx\r
+ djnz nextbit\r
+ ld b,8 ;reload bit counter\r
+ ld e,(hl) ;get next 8 relocation bits\r
+ inc hl\r
+nextbit:\r
+ sla e\r
+ exx\r
+ endm\r
+\r
;-------------------------------------------------------------------------------\r
; Clear old position\r
\r
ei\r
ld hl,ddtz_end ;start of reloc bitmap\r
add hl,de\r
-\r
push hl\r
exx\r
pop hl\r
- ld bc,0108h ;init bit counter b (c==reload val)\r
+ ld b,1 ;init bit counter b\r
exx\r
\r
LD HL,ddtz_base\r
add hl,de ;--> ddtz_base\r
- ld bc,prog_size\r
+\r
reloc_lp:\r
- EXX\r
- djnz reloc_nl\r
- ld b,c ;reload bit counter\r
- LD e,(HL) ;get next 8 relocation bits\r
- INC HL\r
-reloc_nl:\r
- sla e\r
- EXX\r
- JR NC,reloc_next\r
- DEC HL\r
+ push de\r
+ push hl\r
+\r
+ ld de,4\r
+ ld a,2\r
+ ld hl,0\r
+reloc_l:\r
+ reloc_getbit\r
+ jr nc,reloc_got\r
+ cp 16\r
+ jr z,reloc_done\r
+ add hl,de\r
+ ld b,a\r
+ ex de,hl\r
+reloc_l1:\r
+ add hl,hl\r
+ djnz reloc_l1\r
+ ex de,hl\r
+ add a,a\r
+ jr reloc_l\r
+reloc_got:\r
+ ex de,hl\r
+ ld hl,0\r
+ ld b,a\r
+reloc_bitloop:\r
+ reloc_getbit\r
+ adc hl,hl\r
+ djnz reloc_bitloop\r
+ add hl,de\r
+ pop de\r
+ add hl,de\r
+ pop de\r
+\r
LD A,(HL)\r
ADD A,E\r
LD (HL),A\r
LD A,(HL)\r
ADC A,D\r
LD (HL),A\r
-reloc_next:\r
inc hl\r
- dec bc\r
- ld a,b\r
- or c\r
- jr nz,reloc_lp\r
-\r
+ jr reloc_lp\r
+reloc_done:\r
+ exx\r
+ ld (bitmap_end),hl\r
;-------------------------------------------------------------------------------\r
\r
\r
-init::\r
+init:\r
LD SP,stack\r
\r
if CPM\r
call out_hl\r
call pstr_inl\r
dc ' - '\r
- ld de,prog_size+bitmap_size-1\r
- add hl,de\r
+ ld hl,(bitmap_end)\r
+ dec hl\r
call out_hl\r
call pstr_inl\r
dc ')',CR,LF\r
\r
;-------------------------------------------------------------------------------\r
\r
+\r
+csio_rx_tmp: db 0ffh\r
+\r
csio_ista:\r
+ ld hl,csio_rx_tmp\r
+ ld a,(hl)\r
+ cp 0ffh\r
+ jr nz,csist_1\r
+ ld a,01\r
+ call csio_wr\r
+ call csio_rd\r
+ call csio_rd\r
+ ld (hl),a\r
+ sub a,0ffh\r
+ ret z\r
+csist_1:\r
+ or 0ffh\r
+ ret\r
+\r
csio_inp:\r
-csio_out:\r
- xor a\r
+ ld hl,csio_rx_tmp\r
+ ld a,(hl)\r
+ ld (hl),0ffh\r
+ cp 0ffh\r
+ ret nz\r
+csin_1:\r
+ ld a,01\r
+ call csio_wr\r
+ call csio_rd\r
+ call csio_rd\r
+ cp 0ffh\r
+ jr z,csin_1\r
ret\r
\r
+csio_rd:\r
+ ld a,M_CSIO_RE\r
+ call csio_cmd_wait\r
+ in0 a,(trdr)\r
+ ret\r
\r
- ld a,0ffh\r
-do_csio:\r
- push af\r
- call csio_wait_te\r
- pop af\r
+csio_out:\r
+ ld a,02\r
+ call csio_wr\r
+ call csio_rd\r
+ call csio_rd\r
+ or a\r
+ jr z,csio_out\r
+\r
+ ld a,c\r
+ inc a ;ff..02 --> 00..03\r
+ cp 04h\r
+ jr nc,csout_1\r
+ ld a,00h\r
+ call csio_wr\r
+csout_1:\r
+ ld a,c\r
+csio_wr:\r
out0 (trdr),a\r
ld a,M_CSIO_TE\r
+csio_cmd_wait:\r
out0 (cntr),a\r
- call csio_wait_te\r
- in0 a,(trdr)\r
- ret\r
-\r
-csio_wait_te:\r
+cswr_wait:\r
in0 a,(cntr)\r
- and M_CSIO_TE\r
- jr nz,csio_wait_te\r
+ and M_CSIO_TE+M_CSIO_RE\r
+ jr nz,cswr_wait\r
ret\r
\r
endif ; CPM\r
\r
;-------------------------------------------------------------------------------\r
\r
-CMDTAB::\r
+CMDTAB:\r
; dw ERROR ;cmd_@ ;examine/substitute the displacement register @\r
; dw ERROR ;cmd_A ;Assemble\r
dw cmd_B ;Breakpoints display/set/clear\r
call pstr_inl\r
dc '?',CR,LF\r
;fall thru\r
-mainloop::\r
+mainloop:\r
ld sp,stack\r
ld hl,(reg.pc)\r
call bp_clr_temporary\r
inc de\r
sub 'B'\r
jr c,ERROR\r
- cp 'Z'+1-'@'\r
+ cp 'Z'+1-'B'\r
jr nc,ERROR\r
ld hl,CMDTAB\r
call add_hl_a2\r
inc hl\r
ld h,(hl)\r
ld l,a\r
- and a\r
+ xor a ;clr cy, a=0\r
bit 0,c\r
ret nz\r
- ld h,000h\r
+ ld h,a\r
ret\r
\r
fact_factinv:\r
push af\r
call get_arg_final\r
\r
- ld bc,prog_size+bitmap_size\r
+ ex de,hl\r
+ ld hl,(bitmap_end)\r
+ ld bc,ddtz_base\r
+ or a\r
+ sbc hl,bc\r
+ ld b,h\r
+ ld c,l\r
+ ex de,hl\r
pop af\r
jr nz,cmde_bottom\r
sbc hl,bc\r
call bpl_init\r
\r
ld a,(ix+000h)\r
- and 003h\r
- jr z,bp_tst_e\r
+ and 003h ;User bp (temporary or permanent)?\r
+ jr z,bp_tst_e ;No, check next\r
ld e,(ix+002h)\r
ld d,(ix+003h)\r
ld hl,(reg.pc)\r
- call cp_hl_de\r
- ret z\r
+ call cp_hl_de ;Current PC is on a User bp\r
+ ret z ;Return zero\r
bp_tst_e:\r
call bpl_next\r
sub a\r
- inc a\r
- ret\r
+ inc a ;Not on a user bp\r
+ ret ;Return not zero\r
\r
bp_trace_enter:\r
call bp_get_freeslot\r
inc hl\r
ld (hl),d\r
l0a1dh:\r
-\r
call bpl_next\r
ret\r
\r
i.storebyte:\r
push af\r
push de\r
- ld de,TPA ;lowest allowed load address\r
+ ld de,ddtz_base ;don't load over ddtz\r
call cp_hl_de\r
- jr c,error2\r
- ld de,(BDOS+1) ;highest allowed load address\r
+ jr nc,ist_1\r
+\r
+ ld de,(bitmap_end)\r
call cp_hl_de\r
jr nc,error2\r
+ist_1:\r
ld de,(high_load)\r
call cp_hl_de\r
jr c,l1157h\r
scf\r
ret\r
\r
+;jr, djnz\r
l2093h:\r
ld c,(iy+001h)\r
ld a,c\r
jr z,l20dch\r
and a\r
ret\r
+\r
+;ret cc\r
l20c5h:\r
ld a,(iy+000h)\r
ld (l20d7h),a\r
inc hl\r
jp (hl)\r
\r
+;ret\r
l20dch:\r
l20edh:\r
ld hl,(reg_sp) ;break on return address\r
ld d,(hl)\r
ex de,hl\r
call bp_trace_enter\r
+;rst 8\r
l2115h:\r
and a\r
ret\r
\r
+;rst n\r
l20f9h:\r
ld a,(l0003h)\r
cp (iy+000h)\r
and 038h\r
ld l,a\r
ld h,000h\r
- ld a,(b_21e2_start)\r
- and a\r
- ret z\r
scf\r
ret\r
\r
pbl_loop_adr:\r
dw 0addeh\r
\r
+bitmap_end:\r
+ dw 0\r
+\r
;-------------------------------------------------------------------------------\r
\r
-conbuf::\r
+conbuf:\r
ds CONBUF_SIZE+1\r
\r
;-------------------------------------------------------------------------------\r
rept (STACK_SIZE+3)/4\r
db 0deh,0adh,0beh,0efh\r
endm\r
-stack::\r
+stack:\r
reg.l2: db 000h\r
reg.h2: db 000h\r
reg.e2: db 000h\r
reg.pc: dw TPA\r
\r
cmd_rpt:dw mainloop\r
-\r
+ db 0ffh,0ffh,0ffh\r
;-------------------------------------------------------------------------------\r
\r
ddtz_size equ $-ddtz_base\r
prog_size equ $-start\r
-ddtz_end::\r
+ddtz_end:\r
\r
;-------------------------------------------------------------------------------\r
\r