Add some comments

diff --git a/Makefile b/Makefile
index bdfc336303084e89bb464f10ed71faaf41bb3ed5..44b6c27637c6f9c8804c90ba3703b4befad1a883 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -52,7 +52,7 @@ endif
 
 
 version.inc: autorevision.cache
-       @echo update $@
+       @echo update $@ to $(VERS)
        @printf "defvers        macro\r\n\
                db      '$(VERS)'\r\n\
                endm\r\n\032" > $@

diff --git a/ddt180.z80 b/ddt180.z80
index 122748d161aa820e17d27a33c012cfdf130fb5ef..c4c38a7379e9f3504faef7038818b08ce624bd55 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -138,6 +138,8 @@ var.@:      dw      0
 error_func:dw  p_msg_error\r
 cmd_rpt:dw     mainloop\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 conbuf:\r
        db      CONBUF_SIZE\r
 \r
@@ -181,6 +183,8 @@ l0093h:
 \r
        ds      CONBUF_SIZE + 3 - ($ - conbuf)\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 CMDTAB:\r
        dw      cmd_@           ;examine/substitute the displacement register @\r
        dw      cmd_A           ;Assemble\r
@@ -249,6 +253,8 @@ exe_hl:
        call CALL_HL\r
        jr mainloop\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_msg_error:\r
        call    pstr_inl\r
        dc      '?'\r
@@ -460,7 +466,7 @@ p_goto_col:
        call    outbl\r
        jr      p_goto_col\r
 \r
-\r
+;-------------------------------------------------------------------------------\r
 \r
 inchar:\r
        push ix\r
@@ -498,6 +504,8 @@ get_line:
        pop hl\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 get_char_upper:\r
        ld a,(de)\r
 toupper:\r
@@ -518,6 +526,8 @@ tolower:
        or 020h\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 skipbl0:\r
        inc de\r
 skipbl:\r
@@ -542,6 +552,8 @@ assert_eol:
 to_error:\r
        jp ERROR\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 chk_stack:\r
        push hl\r
        push de\r
@@ -554,6 +566,8 @@ chk_stack:
        jr c,to_error\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 add_hl_a:\r
        add a,l\r
        ld l,a\r
@@ -578,6 +592,8 @@ sub_hl_a:
        pop     bc\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sym_getname:\r
        push    de\r
        push    hl\r
@@ -644,6 +660,8 @@ pl_e:
        pop     hl\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 lookupch:\r
        ld b,0\r
 l02f5h:\r
@@ -826,6 +844,8 @@ l03b8h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 expr:\r
        call skipbl\r
 expr1:\r
@@ -845,6 +865,8 @@ expr1:
        pop de\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 do_op_eq:\r
        jr z,l03edh\r
        jr l03ech\r
@@ -1074,6 +1096,8 @@ tblf_opa:
        dw      doop_xor\r
        dw      0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 fact_factor:\r
        call do_factor\r
        ret nc\r
@@ -1127,6 +1151,8 @@ do_factor:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 fact_reg.Y:\r
        call get.decdigit\r
        jr c,error1\r
@@ -1279,6 +1305,8 @@ fs_cont_1:
        call    sub_hl_a\r
        jr      fs_nxtsym\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 get.number:\r
        call get.hexdigit\r
        ret c\r
@@ -1385,6 +1413,8 @@ l0625h:
        sub '0'\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_cpustat0:\r
        call assert_eol\r
 p_cpustat:\r
@@ -1531,6 +1561,10 @@ b_0709_start:
        db      000h\r
        db      000h\r
 \r
+;-------------------------------------------------------------------------------\r
+; > G [startaddr] [;breakp..]\r
+;      Go [to start] [with temporary breakpoints]\r
+\r
 cmd_G:\r
        sub a\r
        ld (trace_call_flag),a\r
@@ -1548,6 +1582,7 @@ l0740h:
        call bp_enter\r
        jp user_go\r
 \r
+;-------------------------------------------------------------------------------\r
 \r
 bpl_init:\r
        ld      b,BP_CNT\r
@@ -1579,6 +1614,19 @@ bp_clr_temporary:
        call bpl_next\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > B\r
+;      display all breakpoints\r
+; > B breakp [breakp..]\r
+;      set breakpoints\r
+; > BX\r
+;      clear all breakpoints\r
+; > BX address [address..]\r
+;      clear breakpoints\r
+;\r
+; where breakp is:\r
+;      [R] expression [I condition]\r
+\r
 cmd_B:\r
        call skipbl\r
        jr z,bp_print\r
@@ -1658,6 +1706,7 @@ bp_pr_cont:
        call bpl_next\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
 ; Add break points to list\r
 ;   A = 1       Permanent (B command)\r
 ;   A = 2       Temporary (G command)\r
@@ -1753,6 +1802,8 @@ bp_get_condition:
        ld hl,(expr_p2)\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 bpddtz:\r
        ld (reg.l),hl\r
        pop hl\r
@@ -1939,6 +1990,8 @@ l0a1dh:
        call    bpl_next\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 user_go:\r
        sub a\r
        ld (b_21e2_start),a\r
@@ -1972,6 +2025,8 @@ l0a41h:
        ld sp,(reg_sp)\r
        jp reg.iff\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 bp_clr_condition:\r
        ld a,(ix+000h)\r
        and 003h\r
@@ -2024,6 +2079,12 @@ l0ab0h:
        ld (iy+007h),d\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > Y\r
+;      examine all Y variables\r
+; > Y[0..9]\r
+;      examine (and substitute) an Y variable\r
+\r
 cmd_Y:\r
        call get.decdigit\r
        jr c,l0bc3h\r
@@ -2072,6 +2133,14 @@ sub_0bdch:
        ld c,003h\r
        jp l0c33h\r
 \r
+;-------------------------------------------------------------------------------\r
+; > X\r
+;      eXamine (display) all cpu registers and\r
+;      the instruction at the current program counter\r
+; > X register\r
+;      eXamine (and substitute) a register\r
+\r
+\r
 cmd_X:\r
        call skipbl\r
        call sub_0caeh\r
@@ -2301,6 +2370,10 @@ b_0cfa_start:
        db      000h\r
        dw      reg.f\r
 \r
+;-------------------------------------------------------------------------------\r
+; > S [startaddr]\r
+;      Substitute memory\r
+\r
 cmd_S:\r
        ld hl,(last_S)\r
        call get_lastarg_def\r
@@ -2337,6 +2410,10 @@ l0d8ah:
        call sub_0ef8h\r
        jr l0d60h\r
 \r
+;-------------------------------------------------------------------------------\r
+; > @\r
+;      examine (substitute) displacement register @\r
+\r
 cmd_@:\r
        call assert_eol\r
        ld hl,msg_@\r
@@ -2347,6 +2424,10 @@ cmd_@:
 msg_@:\r
        dc      '@'\r
 \r
+;-------------------------------------------------------------------------------\r
+; >>I [port]\r
+;      Input a byte from port\r
+\r
 cmd_I:\r
        ld hl,cmd_I\r
        ld (cmd_rpt),hl\r
@@ -2363,6 +2444,10 @@ cmd_I:
        call out.bin.b\r
        jp crlf\r
 \r
+;-------------------------------------------------------------------------------\r
+; >>O [byte] [port]\r
+;      Output a byte to a port\r
+\r
 cmd_O:\r
        ld hl,cmd_O\r
        ld (cmd_rpt),hl\r
@@ -2381,6 +2466,10 @@ cmd_O:
        out (c),a\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > Vstartaddr endaddr targetaddr\r
+;      Verify (compare) two memory areas\r
+\r
 cmd_V:\r
        call sub_034eh\r
 l0dedh:\r
@@ -2412,6 +2501,10 @@ l0e10h:
        jr nz,l0dedh\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > M[V] startaddr endaddr destaddr\r
+;      Move memory [and verify]\r
+\r
 cmd_M:\r
        call get_char_upper\r
        cp 'V'\r
@@ -2442,6 +2535,17 @@ cmdm_up:
        jr z,l0dedh\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > H\r
+;      display Highest load address of last filed loaded, Maximum "High"\r
+;      off all loaded files, and Top address of available memory\r
+; > HS\r
+;      display symbol list\r
+; > H expression\r
+;      evaluate expression and display result in hex, decimal and other formats\r
+; > H expression expression\r
+;      display sum und difference of expressions\r
+\r
 cmd_H:\r
        call get_char_upper\r
        cp 'S'\r
@@ -2526,6 +2630,10 @@ psym_e:
        jp      crlf\r
 \r
 \r
+;-------------------------------------------------------------------------------\r
+; > Q[J] startaddr endaddr bytes\r
+;      Query memory for a byte string [Justified]\r
+\r
 cmd_Q:\r
        call get_char_upper\r
        sub 'J'\r
@@ -2565,6 +2673,10 @@ l0eb0h:
        pop bc\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > Z startaddr endaddr bytes\r
+;      Zap (fill) memory with a byte string\r
+\r
 cmd_Z:\r
        call get_arg_range\r
        push bc\r
@@ -2678,6 +2790,10 @@ l0f42h:
        ld (last_S),hl\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; >>D [startaddr] [endaddr]\r
+;      Display memory in hex and ASCII\r
+\r
 cmd_D:\r
        ld hl,cmd_D\r
        ld (cmd_rpt),hl\r
@@ -2746,6 +2862,10 @@ l0fach:
        ld a,'.'\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > Fcommandline\r
+;      specifiy filenames and command line\r
+\r
 cmd_F:\r
        push de\r
        ld hl,DMA_BUF+1\r
@@ -2875,6 +2995,8 @@ sub_1043h:
        cp ','\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 setup_fcb:\r
        push de\r
        ld hl,12\r
@@ -2891,6 +3013,8 @@ l1052h:
        pop de\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 file_open:\r
        ld (cur_fcb),de\r
        call setup_fcb\r
@@ -3014,6 +3138,10 @@ read_hexbyte0:
        pop     bc\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; > R [displacement]\r
+;      Read a binary or hex file and or symbol file [add displacement]\r
+\r
 cmd_R:\r
        ld hl,0\r
        call get_lastarg_def\r
@@ -3247,6 +3375,8 @@ test_whitespace:
        cp      TAB\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_max_high0:\r
        call assert_eol\r
 p_max_high:\r
@@ -3264,6 +3394,10 @@ p_max_high:
        call out_hl\r
        jp crlf\r
 \r
+;-------------------------------------------------------------------------------\r
+; > Wstartaddr endaddr\r
+;      Write a file to disk\r
+\r
 cmd_W:\r
        call get_arg_range\r
        call assert_eol\r
@@ -3325,6 +3459,10 @@ close_file:
        ld c,BDOS_CLOSE\r
        jp ddtz_bdos\r
 \r
+;-------------------------------------------------------------------------------\r
+; > A [startaddr]\r
+;      Assemble Zilog Z180 mnemonics\r
+\r
 cmd_A:\r
        ld hl,(last_A)\r
        call get_lastarg_def\r
@@ -3394,6 +3532,8 @@ asemble_line:
 CALL_HL:\r
        jp (hl)\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 b_1289_start:\r
        dw      as.ADC_SBC              ;ADC\r
        db      088h                    ;\r
@@ -3551,6 +3691,8 @@ b_1289_start:
        dw      as.TSTIO                ;TSTIO\r
        db      074h                    ;\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 as.TST:\r
        call arg.r_HL_A         ;\r
        jr nc,as.tst_0\r
@@ -4484,6 +4626,10 @@ test_paren_close:
        inc de\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+; >>L [startaddr] [endaddr]\r
+;      List disassembled code\r
+\r
 cmd_L:\r
        ld hl,cmd_L\r
        ld (cmd_rpt),hl\r
@@ -4517,6 +4663,8 @@ l190fh:
        jr      c,l190fh\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 cmdl_p_line:\r
        push    hl\r
        call    p_disas_line\r
@@ -4547,6 +4695,8 @@ p_disas_line:
        call    outbl\r
        jp      p_symbol\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_offset:\r
        ld de,(var.@)\r
        ld a,d\r
@@ -4560,6 +4710,8 @@ p_offset:
        add     hl,de\r
        jp out_rparen\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_disas_instr:\r
        sub a\r
        ld (disas_argtype),a\r
@@ -4619,6 +4771,8 @@ l19b1h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.DDFD:\r
        inc iy\r
        ld hl,b_19ef_start\r
@@ -4645,6 +4799,7 @@ l19edh:
        and a\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
 ; DD/FD 3 byte (ix+d)/(iy+d)\r
 b_19ef_start:\r
        db      034h\r
@@ -4692,6 +4847,8 @@ l1a0ah:
        db      0f9h\r
        db      0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.ED:\r
        inc iy\r
        ld hl,b_1bc9_start\r
@@ -4712,6 +4869,8 @@ disas_pfx.ED:
        ld b,4\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.CB:\r
        push iy\r
        inc iy\r
@@ -4726,6 +4885,8 @@ l1a42h:
        ld b,2\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_nopfx:\r
        ld hl,b_1b54_start\r
        call lookup_opc\r
@@ -4745,6 +4906,8 @@ disas_nopfx:
        ld b,3\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sub_1a72h:\r
        ld a,(hl)\r
        cp 0ffh\r
@@ -4800,6 +4963,7 @@ get_mnemonic:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
 ; 1 byte opcodes (no parameters)\r
 ; Format: db opcode, t_MNEMONICS-index\r
 b_1ab6_start:\r
@@ -5053,6 +5217,8 @@ b_1c55_start:
        dw p_arg_bitop\r
        db 0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_arg_r_r:\r
        call p_arg_r\r
        call p_char_comma\r
@@ -5389,6 +5555,8 @@ p_arg:
        call sel_dc_string\r
        jp pstr\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 t_MNEMONICS:\r
        DC      'ADC'\r
        DC      'ADD'\r
@@ -5540,6 +5708,8 @@ t__C_:
        DC      '(C)'\r
        DB      0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sub_1ffeh:\r
        ld hl,(reg.pc)\r
        ld a,h\r
@@ -5571,6 +5741,8 @@ l2037h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 b_2039_start:\r
        db 0ffh,0ddh,000h       ;Prefix DD\r
        dw l20a7h\r
@@ -5604,6 +5776,8 @@ b_2048_start:
        dw l20c5h\r
        db 0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 l2080h:\r
        ld a,(b_21e2_start)\r
        and a\r
@@ -5709,10 +5883,24 @@ l2113h:
 l2115h:\r
        and a\r
        ret\r
+\r
+;-------------------------------------------------------------------------------\r
+; >>C[N][J] [steps]\r
+; >>C[N][J] W expression\r
+; >>C[N][J] U expression\r
+;     trace over Calls [No list] [Jumps only] /.While./.Until.\r
+\r
 cmd_C:\r
        ld hl,cmd_C\r
        ld a,1\r
        jr l2122h\r
+\r
+;-------------------------------------------------------------------------------\r
+; >>T[N][J] [steps]\r
+; >>T[N][J] W expression\r
+; >>T[N][J] U expression\r
+;      Trace [no List] [Jumps only] / .While. / .Until.\r
+\r
 cmd_T:\r
        xor a\r
        ld hl,cmd_T\r
@@ -5826,6 +6014,8 @@ l21dah:
        cp 045h\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 b_21e2_start:\r
        db      0\r
 trace_call_flag:\r
@@ -5944,6 +6134,8 @@ current_cseg      defl    $
        ds      EXPR_BUF_SIZE - ($ - expr_buf)\r
 expr_bufe:\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 msg_Y:\r
        dc      'Yn'\r
 reg_Y:\r