-t__C_:\r
- DC '(C)'\r
- DB 0\r
-\r
-;-------------------------------------------------------------------------------\r
-;-------------------------------------------------------------------------------\r
-if 0\r
-\r
-lookup_argstr:\r
- ;todo\r
- ret\r
-\r
-\r
-pr_instr_args:\r
- ld hl,t_argf\r
- call lookup_argstr\r
-\r
- ret z\r
-\r
-pria_l:\r
- ld a,(hl) ;get next token\r
- inc hl\r
- or a\r
- ret z ;\r
- jp m,pria_1\r
- call outchar ;print as normal character\r
- jr pria_l\r
-\r
-pria_1: ;\r
- push hl\r
- ld hl,do_arg_n\r
- and 07fh\r
- call add_hl_a2\r
- ld a,(hl)\r
- inc hl\r
- ld h,(hl)\r
- ld l,a\r
- call CALL_HL\r
- pop hl\r
- jr pria_l\r
-\r
-;\r
-; http://www.z80.info/decoding.htm\r
-;\r
-; | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |\r
-; | x | y | z |\r
-; | p | q |\r
-;\r
-\r
-t_argf:\r
- db fi_ry,',',fi_rz,0 ;ld r[y],r[z]\r
- db 'A,',fi_rz,0 ;op A,r[z]\r
- db fi_rz,0 ;op r[z]\r
- db fi_ccy,0 ;op cc[y]\r
- db fi_rst,0 ;\r
- db fi_rp2,0 ;rp2[p]\r
- db '(SP),',fi_hlixiy,0 ;ex (sp),hl\r
- db fi_hlixiy,0 ;jp (hl)\r
- db 'DE,HL',0\r
- db 'SP,',fi_hlixiy,0 ;ld SP,HL\r
- db fi_rp,0 ;rp[p]\r
- db fi_ry,0 ;inc r[y]\r
- db 'AF,AF''',0 ;ex af,af'\r
- db fi_hlixiy,fi_rp,0 ;add hl,rp\r
- db '(',fi_rp,'),A',0 ;ld (rp),a ;rp=bc,de\r
- db 'A,(',fi_rp,')',0 ;ld a,(rp) ;rp=bc,de\r
-\r
- db fi_ry,fi_n,0 ;ld r[y],n\r
- db 'A,',fi_n,0 ;op a,n\r
- db fi_n,0 ;op n\r
- db fi_j,0 ;jr j\r
- db fi_ccy2,fi_j,0 ;jr cc,j ;cc = nz,z,nc,c\r
- db '(',fi_n,'),',fi_ry,0 ;out (n),a\r
- db fi_ry,',(',fi_n,')',0 ;in a,(n)\r
-\r
- db fi_ccy,fi_nn,0 ;op cc[y],nn\r
- db fi_rp,fi_nn,0 ;ld rp[p],nn\r
- db fi_nn,0 ;jp nn\r
- db '(',fi_nn,'),',fi_hlixiy,0 ;ld (nn),hl\r
- db fi_hlixiy,',(',fi_nn,')',0 ;ld hl,(nn)\r
- db '(',fi_nn,'),A',0 ;ld (nn),a\r
- db 'A,(',fi_nn,')',0 ;ld a,(nn)\r
-\r
- db fi_ry,'(C)',0 ;in r[y],(c)\r
- db '(C)',0 ;in (c)\r
- db '(C)',fi_ry,0 ;out (c),r[y]\r
- db '0',0 ;im 0\r
- db '1',0 ;im 1\r
- db '2',0 ;im 2\r
- db fi_ir,0 ;ld a,i ... r,a\r
-\r
- db fi_ry,'(',fi_n,')',0 ;in0 r[y],(n)\r
- db '(',fi_n,')',0 ;in0 (n)\r
- db '(',fi_n,')',fi_ry,0 ;out0 (n),r[y]\r
-\r
- db '(',fi_nn,'),',fi_rp,0 ;ld (nn),rp\r
- db fi_rp,',(',fi_nn,')',0 ;ld rp,(nn)\r
-\r
- db fi_rz_cb,0 ;op r[z]\r
- db fi_y,',',fi_rz_cb,0 ;op y,r[z]\r
-\r
-\r
-;-------------------------------------------------------------------------------\r
-\r
-argpf_index defl 0\r
-\r
-argpf macro x\r
-fi_&x equ 80h+argpf_index\r
- dw p_&x\r
-argpf_index defl argpf_index+1\r
- endm\r