X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/blobdiff_plain/58a0ff859f66987bede0399473118829c90ec0ae..e800d6bed1ffbe37835710a9224d5adb63a0e97a:/ddt180.z80 diff --git a/ddt180.z80 b/ddt180.z80 index 6f701ff..937faa6 100644 --- a/ddt180.z80 +++ b/ddt180.z80 @@ -7,6 +7,8 @@ ; - Cut the .PRL header (first 256 byte) end rename the result to DDTZ.COM. + maclib config.inc + ; Some greneral definitions BS equ 08h @@ -33,8 +35,8 @@ bitmap_size equ (prog_size+7)/8 ;------------------------------------------------------------------------------- cseg -start:: -ddtz_base:: +start: +ddtz_base: jr reloc nop l0003h: @@ -43,11 +45,6 @@ di_or_ei: ;ints enabled/disabled while ddtz is running nop ret -convec: -const: jp cist ; return console input status -conin: jp ci ; return console input character -conout: jp co ; send console output character - ;------------------------------------------------------------------------------- signon: @@ -57,6 +54,20 @@ signon: defvers dc ' (' +;------------------------------------------------------------------------------- + +reloc_getbit macro + local nextbit + exx + djnz nextbit + ld b,8 ;reload bit counter + ld e,(hl) ;get next 8 relocation bits + inc hl +nextbit: + sla e + exx + endm + ;------------------------------------------------------------------------------- ; Clear old position @@ -101,27 +112,49 @@ wearehere: ei ld hl,ddtz_end ;start of reloc bitmap add hl,de - push hl exx pop hl - ld bc,0108h ;init bit counter b (c==reload val) + ld b,1 ;init bit counter b exx LD HL,ddtz_base add hl,de ;--> ddtz_base - ld bc,prog_size + reloc_lp: - EXX - djnz reloc_nl - ld b,c ;reload bit counter - LD e,(HL) ;get next 8 relocation bits - INC HL -reloc_nl: - sla e - EXX - JR NC,reloc_next - DEC HL + push de + push hl + + ld de,4 + ld a,2 + ld hl,0 +reloc_l: + reloc_getbit + jr nc,reloc_got + cp 16 + jr z,reloc_done + add hl,de + ld b,a + ex de,hl +reloc_l1: + add hl,hl + djnz reloc_l1 + ex de,hl + add a,a + jr reloc_l +reloc_got: + ex de,hl + ld hl,0 + ld b,a +reloc_bitloop: + reloc_getbit + adc hl,hl + djnz reloc_bitloop + add hl,de + pop de + add hl,de + pop de + LD A,(HL) ADD A,E LD (HL),A @@ -129,19 +162,19 @@ reloc_nl: LD A,(HL) ADC A,D LD (HL),A -reloc_next: inc hl - dec bc - ld a,b - or c - jr nz,reloc_lp - + jr reloc_lp +reloc_done: + exx + ld (bitmap_end),hl ;------------------------------------------------------------------------------- -init:: +init: LD SP,stack + if CPM + ld hl,(1) ;wboot addr ld de,convec ex de,hl @@ -156,15 +189,34 @@ vini_l: ld (hl),d inc hl djnz vini_l + else + xor a + dec a + daa ; Z80: 099H, x180+: 0F9H + cp 99h ; Result on 180 type cpus is F9 here. Thanks Hitachi + jr z,ini_z80 + xor a + call cinit + ld a,1 + call cinit + jr ini_sign +ini_z80: +; if ... +; .printx Error: Not yet implemented! +; db "Stop +; endif + endif ; CPM + +ini_sign: ld hl,signon call pstr ld hl,ddtz_base call out_hl call pstr_inl dc ' - ' - ld de,prog_size+bitmap_size-1 - add hl,de + ld hl,(bitmap_end) + dec hl call out_hl call pstr_inl dc ')',CR,LF @@ -185,15 +237,270 @@ l0093h: ;------------------------------------------------------------------------------- -cist: -ci: -co: + if CPM + +convec: +const: jp 0 ; return console input status +conin: jp 0 ; return console input character +conout: jp 0 ; send console output character + + else + + include z180reg.inc + +iobyte equ 3 + +max_device equ 3 + +;------------------------------------------------------------------------------- + +; init device +cinit: ; a = device + call vector_io_0 + dw as0init + dw rret + dw rret + dw rret + +; character input status +const: ; return a != 0 if character waiting + call vector_io + dw as0ista + dw null$status + dw csio_ista + dw null$status + +; character input +conin: ; return a = input char + call vector_io + dw as0inp + dw null$input + dw csio_inp + dw null$input + +; character output +conout: ; c = output char + call vector_io + dw as0out + dw rret + dw csio_out + dw rret + +;------------------------------------------------------------------------------- + +vector_io: + ld a,(iobyte) +vector_io_0: + pop hl + cp max_device + jr c,exist + ld a,max_device ; use null device if a >= max$device +exist: + call add_hl_a2 + ld a,(hl) + inc hl + ld h,(hl) + ld l,a + jp (hl) + +;------------------------------------------------------------------------------- + +null$input: + ld a,1Ah +rret: + ret +ret$true: + or 0FFh + ret + +null$status: + xor a + ret + +;------------------------------------------------------------------------------- +; +; TC = (f PHI /(2*baudrate*Clock_mode)) - 2 +; +; TC = (f PHI / (32 * baudrate)) - 2 +; +; Init Serial I/O for console input and output (ASCI1) +; + + + +as0init: + ld hl,initab0 + jp ioiniml + +as1init: + ld hl,initab1 + jp ioiniml + + + ld a,M_MPBT + out0 (cntlb1),a + ld a,M_RE + M_TE + M_MOD2 ;Rx/Tx enable + out0 (cntla1),a + ld a,M_RIE + out0 (stat1),a ;Enable rx interrupts + + ret ; + + +initab0: + db 1,stat0,0 ;Disable rx/tx interrupts + ;Enable baud rate generator + db 1,asext0,M_BRGMOD+M_DCD0DIS+M_CTS0DIS + db 2,astc0l,low 28, high 28 + db 1,cntlb0,M_MPBT ;No MP Mode, X16 + db 1,cntla0,M_RE+M_TE+M_MOD2 ;Rx/Tx enable, 8N1 + db 0 + +initab1: + db 1,stat1,0 ;Disable rx/tx ints, disable CTS1 + db 1,asext1,M_BRGMOD ;Enable baud rate generator + db 2,astc1l,low 3, high 3 + db 1,cntlb1,M_MPBT ;No MP Mode, X16 + db 1,cntla1,M_RE+M_TE+M_MOD2 ;Rx/Tx enable, 8N1 + db 0 + +;------------------------------------------------------------------------------- + +ioiniml: + push bc + xor a +ioml_lp: + ld b,(hl) + inc hl + cp b + jr z,ioml_e + + ld c,(hl) + inc hl + otimr + jr ioml_lp +ioml_e: + pop bc + ret + +;------------------------------------------------------------------------------- + +as0ista: + in0 a,(stat0) + rlca + sbc a,a + ret + +as1ista: + in0 a,(stat1) + rlca + sbc a,a + ret + +as0inp: + in0 a,(stat0) + rlca + jr nc,as0inp + in0 a,rdr0 + ret + +as1inp: + in0 a,(stat1) + rlca + jr nc,as1inp + in0 a,rdr1 + ret + +as0out: + in0 a,(stat0) + and M_TDRE + jr z,as0out + out0 (tdr0),c + ld a,c + ret + +as1out: + in0 a,(stat1) + and M_TDRE + jr z,as1out + out0 (tdr1),c + ld a,c + ret + +;------------------------------------------------------------------------------- + + +csio_rx_tmp: db 0ffh + +csio_ista: + ld hl,csio_rx_tmp + ld a,(hl) + cp 0ffh + jr nz,csist_1 + ld a,01 + call csio_wr + call csio_rd + call csio_rd + ld (hl),a + sub a,0ffh + ret z +csist_1: + or 0ffh + ret + +csio_inp: + ld hl,csio_rx_tmp + ld a,(hl) + ld (hl),0ffh + cp 0ffh + ret nz +csin_1: + ld a,01 + call csio_wr + call csio_rd + call csio_rd + cp 0ffh + jr z,csin_1 ret +csio_rd: + ld a,M_CSIO_RE + call csio_cmd_wait + in0 a,(trdr) + ret + +csio_out: + ld a,02 + call csio_wr + call csio_rd + call csio_rd + or a + jr z,csio_out + + ld a,c + inc a ;ff..02 --> 00..03 + cp 04h + jr nc,csout_1 + ld a,00h + call csio_wr +csout_1: + ld a,c +csio_wr: + out0 (trdr),a + ld a,M_CSIO_TE +csio_cmd_wait: + out0 (cntr),a +cswr_wait: + in0 a,(cntr) + and M_CSIO_TE+M_CSIO_RE + jr nz,cswr_wait + ret + + endif ; CPM ;------------------------------------------------------------------------------- -CMDTAB:: +CMDTAB: ; dw ERROR ;cmd_@ ;examine/substitute the displacement register @ ; dw ERROR ;cmd_A ;Assemble dw cmd_B ;Breakpoints display/set/clear @@ -226,7 +533,7 @@ ERROR: call pstr_inl dc '?',CR,LF ;fall thru -mainloop:: +mainloop: ld sp,stack ld hl,(reg.pc) call bp_clr_temporary @@ -247,7 +554,7 @@ mainloop:: inc de sub 'B' jr c,ERROR - cp 'Z'+1-'@' + cp 'Z'+1-'B' jr nc,ERROR ld hl,CMDTAB call add_hl_a2 @@ -1000,10 +1307,10 @@ fact_reg.CPU: inc hl ld h,(hl) ld l,a - and a + xor a ;clr cy, a=0 bit 0,c ret nz - ld h,000h + ld h,a ret fact_factinv: @@ -1318,7 +1625,14 @@ cmd_E: push af call get_arg_final - ld bc,prog_size+bitmap_size + ex de,hl + ld hl,(bitmap_end) + ld bc,ddtz_base + or a + sbc hl,bc + ld b,h + ld c,l + ex de,hl pop af jr nz,cmde_bottom sbc hl,bc @@ -1608,18 +1922,18 @@ bp_tst_@pc: call bpl_init ld a,(ix+000h) - and 003h - jr z,bp_tst_e + and 003h ;User bp (temporary or permanent)? + jr z,bp_tst_e ;No, check next ld e,(ix+002h) ld d,(ix+003h) ld hl,(reg.pc) - call cp_hl_de - ret z + call cp_hl_de ;Current PC is on a User bp + ret z ;Return zero bp_tst_e: call bpl_next sub a - inc a - ret + inc a ;Not on a user bp + ret ;Return not zero bp_trace_enter: call bp_get_freeslot @@ -1657,7 +1971,6 @@ bp_set_to_mem: inc hl ld (hl),d l0a1dh: - call bpl_next ret @@ -2362,12 +2675,14 @@ i.getchar: i.storebyte: push af push de - ld de,TPA ;lowest allowed load address + ld de,ddtz_base ;don't load over ddtz call cp_hl_de - jr c,error2 - ld de,(BDOS+1) ;highest allowed load address + jr nc,ist_1 + + ld de,(bitmap_end) call cp_hl_de jr nc,error2 +ist_1: ld de,(high_load) call cp_hl_de jr c,l1157h @@ -3553,6 +3868,7 @@ l208bh: scf ret +;jr, djnz l2093h: ld c,(iy+001h) ld a,c @@ -3596,6 +3912,8 @@ l20b8h: jr z,l20dch and a ret + +;ret cc l20c5h: ld a,(iy+000h) ld (l20d7h),a @@ -3613,6 +3931,7 @@ l20d7h: inc hl jp (hl) +;ret l20dch: l20edh: ld hl,(reg_sp) ;break on return address @@ -3621,10 +3940,12 @@ l20edh: ld d,(hl) ex de,hl call bp_trace_enter +;rst 8 l2115h: and a ret +;rst n l20f9h: ld a,(l0003h) cp (iy+000h) @@ -3633,9 +3954,6 @@ l20f9h: and 038h ld l,a ld h,000h - ld a,(b_21e2_start) - and a - ret z scf ret @@ -3729,9 +4047,12 @@ last_L: pbl_loop_adr: dw 0addeh +bitmap_end: + dw 0 + ;------------------------------------------------------------------------------- -conbuf:: +conbuf: ds CONBUF_SIZE+1 ;------------------------------------------------------------------------------- @@ -3739,7 +4060,7 @@ conbuf:: rept (STACK_SIZE+3)/4 db 0deh,0adh,0beh,0efh endm -stack:: +stack: reg.l2: db 000h reg.h2: db 000h reg.e2: db 000h @@ -3767,12 +4088,12 @@ reg.iff: reg.pc: dw TPA cmd_rpt:dw mainloop - + db 0ffh,0ffh,0ffh ;------------------------------------------------------------------------------- ddtz_size equ $-ddtz_base prog_size equ $-start -ddtz_end:: +ddtz_end: ;-------------------------------------------------------------------------------