out.bin.b: opt

[ddt180.git] / ddt180.z80

diff --git a/ddt180.z80 b/ddt180.z80
index 2f433996594f752beca0b7e9c039de157f19998c..3d4e6e7d272d485b2b3d84695911d0a08c56981b 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -58,7 +58,7 @@ BDOS_SETDMA   equ     26      ;Set DMA Address
 \r
 ; ddtz specific definitions\r
 \r
-STACK_SIZE     equ     64      ;ddtz internal stack\r
+STACK_SIZE     equ     80      ;ddtz internal stack\r
 CONBUF_SIZE    equ     80      ;Size of console input buffer\r
 EXPR_BUF_SIZE  equ     128     ;expressen buffer for conditional breakpoints\r
 BP_CNT         equ     12      ;Number of breakpoints\r
@@ -135,9 +135,11 @@ reg.pc:    dw      TPA
 var.$: dw      0000h\r
 var.@: dw      0\r
 \r
-error_func:dw  l0146h\r
+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
@@ -212,7 +216,7 @@ CMDTAB:
 \r
 mainloop:\r
        ld sp,stack\r
-       ld hl,l0146h\r
+       ld hl,p_msg_error\r
        ld (error_func),hl\r
        ld hl,(reg.pc)\r
        ld (var.$),hl\r
@@ -249,7 +253,9 @@ exe_hl:
        call CALL_HL\r
        jr mainloop\r
 \r
-l0146h:\r
+;-------------------------------------------------------------------------------\r
+\r
+p_msg_error:\r
        call    pstr_inl\r
        dc      '?'\r
        ;fall thru\r
@@ -290,7 +296,7 @@ sub_01d9h:
 out_hl_dec_neg:\r
        push hl\r
        call sub_01d9h\r
-       defb 03eh\r
+       defb 03eh               ;ld a,..  swallow push hl\r
 out.hl.dec:\r
        push hl\r
        ld b,006h\r
@@ -337,12 +343,10 @@ out_hex:
        pop af\r
 \r
 out_dgt:\r
-       and 0fh\r
-       cp 10\r
-       jr c,l0229h\r
-       add a,007h\r
-l0229h:\r
-       add a,'0'\r
+       or      0f0h\r
+       daa\r
+       add     a,0a0h\r
+       adc     a,040h\r
        jr outchar\r
 \r
 out.bin.w:\r
@@ -352,11 +356,11 @@ out.bin.w:
 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
+       rlca\r
+       push    af\r
+       ld      a,'0'/2\r
+       adc     a,a\r
+       call    outchar\r
        pop af\r
        djnz l01c9h\r
        ld a,'"'\r
@@ -460,7 +464,7 @@ p_goto_col:
        call    outbl\r
        jr      p_goto_col\r
 \r
-\r
+;-------------------------------------------------------------------------------\r
 \r
 inchar:\r
        push ix\r
@@ -498,6 +502,8 @@ get_line:
        pop hl\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 get_char_upper:\r
        ld a,(de)\r
 toupper:\r
@@ -518,6 +524,8 @@ tolower:
        or 020h\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 skipbl0:\r
        inc de\r
 skipbl:\r
@@ -542,18 +550,22 @@ assert_eol:
 to_error:\r
        jp ERROR\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 chk_stack:\r
        push hl\r
        push de\r
        ld hl,0\r
        add hl,sp\r
-       ld de,stack-40\r
+       ld de,stack-(STACK_SIZE-28)\r
        call cp_hl_de\r
        pop de\r
        pop hl\r
        jr c,to_error\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 add_hl_a:\r
        add a,l\r
        ld l,a\r
@@ -578,6 +590,8 @@ sub_hl_a:
        pop     bc\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sym_getname:\r
        push    de\r
        push    hl\r
@@ -644,6 +658,8 @@ pl_e:
        pop     hl\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 lookupch:\r
        ld b,0\r
 l02f5h:\r
@@ -662,7 +678,7 @@ l0300h:
        ret\r
 \r
 sub_0303h:\r
-       ld hl,b_0cc3_start\r
+       ld hl,t_reg_names\r
        ld b,07fh\r
        jr l030ch\r
 \r
@@ -768,7 +784,7 @@ sub_0377h:
        jr l0366h\r
 \r
 b_037c_start:\r
-       defb 0e6h\r
+       defb 0e6h               ;and a,..  clear carry\r
 get_arg_range:\r
        scf\r
        ex af,af'\r
@@ -780,7 +796,7 @@ get_arg_range:
        jr c,error0\r
        ex af,af'\r
        pop hl\r
-       defb 03eh\r
+       defb 03eh               ;ld a,..  swallow pop af\r
 l038ch:\r
        pop af\r
        call get_range\r
@@ -826,6 +842,8 @@ l03b8h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 expr:\r
        call skipbl\r
 expr1:\r
@@ -845,6 +863,8 @@ expr1:
        pop de\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 do_op_eq:\r
        jr z,l03edh\r
        jr l03ech\r
@@ -1074,6 +1094,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 +1149,8 @@ do_factor:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 fact_reg.Y:\r
        call get.decdigit\r
        jr c,error1\r
@@ -1243,19 +1267,17 @@ fs_nxtsym:
        inc     b\r
        push    hl                      ;symtbl ptr\r
        push    de                      ;inpsym ptr\r
-fs_2:\r
+fs_nxtchar:\r
        ld      a,(de)\r
        djnz    fs_3\r
-       cp      a,':'\r
-       jr      nz,fs_21\r
-       inc     de\r
-       pop     hl\r
-       jr      fs_cont_1\r
-\r
-fs_21:\r
        call    test_sym_char\r
        jr      z,fs_cont\r
        pop     hl                      ;inpsym ptr (discard)\r
+       inc     de\r
+       cp      a,':'\r
+       jr      z,fs_cont_1\r
+       dec     de\r
+\r
        pop     hl                      ;symtbl ptr\r
        inc     hl\r
        ld      a,(hl)                  ;symval h\r
@@ -1265,12 +1287,13 @@ fs_21:
        or      a                       ;clear carry\r
        pop     bc\r
        ret\r
+\r
 fs_3:\r
        inc     de\r
        dec     hl\r
        xor     (hl)\r
        and     c\r
-       jr      z,fs_2\r
+       jr      z,fs_nxtchar\r
 fs_cont:                               ;start over\r
        pop     de                      ;inpsym ptr\r
 fs_cont_1:\r
@@ -1280,6 +1303,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
@@ -1353,7 +1378,7 @@ error11:
 \r
 sub_060ch:\r
        call get_char_upper\r
-       cp '['\r
+       cp 'Z'+1\r
        jr l0614h\r
 \r
 get.hexdigit:\r
@@ -1386,6 +1411,8 @@ l0625h:
        sub '0'\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_cpustat0:\r
        call assert_eol\r
 p_cpustat:\r
@@ -1532,6 +1559,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
@@ -1549,6 +1580,7 @@ l0740h:
        call bp_enter\r
        jp user_go\r
 \r
+;-------------------------------------------------------------------------------\r
 \r
 bpl_init:\r
        ld      b,BP_CNT\r
@@ -1580,6 +1612,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
@@ -1659,6 +1704,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
@@ -1754,6 +1800,8 @@ bp_get_condition:
        ld hl,(expr_p2)\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 bpddtz:\r
        ld (reg.l),hl\r
        pop hl\r
@@ -1940,6 +1988,8 @@ l0a1dh:
        call    bpl_next\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 user_go:\r
        sub a\r
        ld (b_21e2_start),a\r
@@ -1973,6 +2023,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
@@ -2025,6 +2077,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
@@ -2073,6 +2131,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
@@ -2086,7 +2152,7 @@ cmd_X:
        cp 01dh\r
        jp z,ERROR\r
        ex de,hl\r
-       ld hl,b_0cc3_start\r
+       ld hl,t_reg_names\r
        call sel_dc_string\r
 l0c12h:\r
        call l0c33h\r
@@ -2145,43 +2211,41 @@ l0c5fh:
 \r
 sub_0c6ah:\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
+       ld b,0\r
 l0c76h:\r
        call skipbl\r
        ld a,b\r
        ret z\r
        push bc\r
-       ld hl,b_0ca4_start\r
+       ld hl,t_flag_names\r
        call lookupch\r
        jp nc,ERROR\r
-       ld a,b\r
-       cp 008h\r
-       jr z,l0c97h\r
-       pop bc\r
-       rlca\r
-       rlca\r
-       rlca\r
-       add a,0c0h\r
-       ld (l0c94h),a\r
-       defb 0cbh\r
-l0c94h:\r
-       defb 0c0h\r
+       inc     b\r
+       xor     a\r
+       scf\r
+nxt_f:\r
+       rla\r
+       djnz    nxt_f\r
+       pop     bc\r
+       jr      c,l0c97h\r
+       or      b\r
+       ld      b,a\r
        jr l0c76h\r
+\r
 l0c97h:\r
        ex af,af'\r
        jp nc,ERROR\r
        ex af,af'\r
        ld a,0fbh\r
        ld (reg.iff),a\r
-       pop bc\r
        jr l0c76h\r
 \r
-b_0ca4_start:\r
+t_flag_names:\r
        db      'CNV H ZSE',0\r
 \r
 sub_0caeh:\r
@@ -2201,7 +2265,7 @@ sub_0caeh:
        scf\r
        ret\r
 \r
-b_0cc3_start:\r
+t_reg_names:\r
        DC      'BC'''\r
        DC      'DE'''\r
        DC      'HL'''\r
@@ -2302,6 +2366,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
@@ -2338,6 +2406,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
@@ -2348,6 +2420,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
@@ -2364,6 +2440,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
@@ -2382,6 +2462,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
@@ -2413,6 +2497,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
@@ -2443,6 +2531,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
@@ -2527,6 +2626,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
@@ -2566,6 +2669,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
@@ -2593,7 +2700,7 @@ sub_0ed7h:
        push    de\r
        push bc\r
 l0edah:\r
-       call get_char_upper\r
+       ld a,(de)\r
        cp (hl)\r
        jr nz,l0ee2h\r
        inc de\r
@@ -2679,6 +2786,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
@@ -2747,6 +2858,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
@@ -2876,6 +2991,8 @@ sub_1043h:
        cp ','\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 setup_fcb:\r
        push de\r
        ld hl,12\r
@@ -2892,6 +3009,8 @@ l1052h:
        pop de\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 file_open:\r
        ld (cur_fcb),de\r
        call setup_fcb\r
@@ -3015,6 +3134,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
@@ -3217,18 +3340,21 @@ test_sym_char:
 ; return nc if valid alfanumeric char\r
 \r
 test_alphanum:\r
-       cp      'z'+1\r
+       cp      'z'\r
+       ret     z\r
        ccf\r
        ret     c\r
        cp      'a'\r
        ret     nc\r
-       cp      'Z'+1\r
+       cp      'Z'\r
+       ret     z\r
        ccf\r
        ret     c\r
        cp      '?'\r
        ret     nc\r
 test_numeral:\r
-       cp      '9'+1\r
+       cp      '9'\r
+       ret     z\r
        ccf\r
        ret     c\r
        cp      '0'\r
@@ -3245,6 +3371,8 @@ test_whitespace:
        cp      TAB\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 p_max_high0:\r
        call assert_eol\r
 p_max_high:\r
@@ -3262,6 +3390,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
@@ -3323,6 +3455,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
@@ -3365,7 +3501,7 @@ cmda_lpend:
        jr cmda_loop\r
 \r
 cmda_restart:\r
-       call l0146h\r
+       call p_msg_error\r
        ld sp,(l1262h)\r
        jr cmda_loop\r
 \r
@@ -3392,6 +3528,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
@@ -3549,6 +3687,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
@@ -4482,6 +4622,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
@@ -4515,6 +4659,8 @@ l190fh:
        jr      c,l190fh\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 cmdl_p_line:\r
        push    hl\r
        call    p_disas_line\r
@@ -4545,6 +4691,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
@@ -4558,6 +4706,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
@@ -4617,6 +4767,8 @@ l19b1h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.DDFD:\r
        inc iy\r
        ld hl,b_19ef_start\r
@@ -4643,6 +4795,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
@@ -4690,6 +4843,8 @@ l1a0ah:
        db      0f9h\r
        db      0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.ED:\r
        inc iy\r
        ld hl,b_1bc9_start\r
@@ -4710,6 +4865,8 @@ disas_pfx.ED:
        ld b,4\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_pfx.CB:\r
        push iy\r
        inc iy\r
@@ -4724,6 +4881,8 @@ l1a42h:
        ld b,2\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 disas_nopfx:\r
        ld hl,b_1b54_start\r
        call lookup_opc\r
@@ -4743,6 +4902,8 @@ disas_nopfx:
        ld b,3\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sub_1a72h:\r
        ld a,(hl)\r
        cp 0ffh\r
@@ -4798,6 +4959,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
@@ -5051,6 +5213,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
@@ -5387,6 +5551,8 @@ p_arg:
        call sel_dc_string\r
        jp pstr\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 t_MNEMONICS:\r
        DC      'ADC'\r
        DC      'ADD'\r
@@ -5538,6 +5704,8 @@ t__C_:
        DC      '(C)'\r
        DB      0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 sub_1ffeh:\r
        ld hl,(reg.pc)\r
        ld a,h\r
@@ -5569,6 +5737,8 @@ l2037h:
        scf\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 b_2039_start:\r
        db 0ffh,0ddh,000h       ;Prefix DD\r
        dw l20a7h\r
@@ -5602,6 +5772,8 @@ b_2048_start:
        dw l20c5h\r
        db 0\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 l2080h:\r
        ld a,(b_21e2_start)\r
        and a\r
@@ -5707,10 +5879,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
@@ -5824,6 +6010,8 @@ l21dah:
        cp 045h\r
        ret\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
 b_21e2_start:\r
        db      0\r
 trace_call_flag:\r
@@ -5942,6 +6130,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