📄 bioslabcfg.lst
字号:
358 ;; Used to access LOG and STS data
359 ;;
360 ;; HST_Obj RTA_fromHost (mode, buf, framesize, numframes, stsflg, notify, arg0, arg1, lnk)
361 .global RTA_fromHost
362 .asg "input", _mode
363 .asg "<NULL>", _buf
364 .asg 04H, _framesize
365 .asg 01H, _numframes
366 .asg 00H, _stsflg
367 .asg _FXN_F_nop, _notify
368 .asg 00H, _arg0
369 .asg 00H, _arg1
370 .asg "RTDX", _lnk
371 00000c HST_Obj 1, RTA_fromHost, 1, _mode, _buf, _framesize, _numframes, _stsflg, _notify, _arg0, _arg1, _lnk
1
1 .if (1 = 0)
1 .mexit
1 .endif
1
1 00000c CHK_nargs "HST_Obj", lnktype
1 .if ($symcmp("", "error") = 0)
1 .emsg "HST_Obj lnktype error"
1 .endif
1
1 00000c CHK_domain HST_Obj, mode, "output,input", "output"
2
1 .asg "input", mode
1 .if ($symcmp("input", "error") = 0)
1 .emsg "HST_Obj mode error"
TMS320C54x COFF Assembler Version 3.50 Sun Apr 02 13:46:40 2000
Copyright (c) 1996-1999 Texas Instruments Incorporated
bioslabcfg.s54 PAGE 14
1 .endif
1
1 .global RTA_fromHost, RTA_fromHost$buf, RTA_fromHost$rtdx
1
1 .if ($symcmp("<NULL>", "<NULL>") = 0)
1 00000c GBL_Obj RTA_fromHost$buf, 04H*01H, .hst1
2 00000c CHK_domain "GBL_Obj", alignFlag, "noalign,align", "noalign"
3 .mexit
3
3
3
2 .if ($symcmp("noalign", "error") = 0)
2 .emsg "GBL_Obj align parameter error."
2 .endif
2 .asg "noalign", alignFlag
2
2 00000c CHK_nargs "GBL_Obj", size
2 .if ($symcmp("", "error") = 0)
2 .emsg "GBL_Obj size parameter error."
2 .endif
2
2 .if ($symlen(section) = 0)
2 .asg ".bss", section
2 .endif
2
2 .if ($symlen(fillValue) != 0)
2 .sect ".gblinit"
2 .word :size:
2 .word :name:
2 .word :fillValue:
2 .endif
2
2 .if (($symcmp(section, ".data") = 0) | ($symcmp(alignFlag, "align") = 0))
2 .sect ":section:"
2 .if ($symcmp(alignFlag, "align") = 0)
2 .align
2 .endif
2 :name::
2 ;
2 ; Can't use .space directive here because it reserves
2 ; bits for some processors and bytes for others.
2 ;
2 .loop :size:
2 .word 0
2 .endloop
2
2 .elseif ($symcmp(".hst1", ".bss") = 0)
2 .bss :name:, :size: * (STD_TARGWORDMAUS / STD_TARGCHARMAUS), (STD_TARGWORDMAUS / STD_TARGCHARMAUS
2 .else
2 000000 RTA_fromHost$buf: .usect ".hst1", 04H*01H * (STD_TARGWORDMAUS / STD_TARGCHARMAUS), (STD_TARGWORDMAUS / ST
2 .endif
2
1 .asg RTA_fromHost$buf, buf
1 .endif
1
TMS320C54x COFF Assembler Version 3.50 Sun Apr 02 13:46:40 2000
Copyright (c) 1996-1999 Texas Instruments Incorporated
bioslabcfg.s54 PAGE 15
1 .if (00H == 0)
1 .asg "none",stsType
1 .else
1 .if ($symcmp(":mode:","input") == 0)
1 .asg "reader",stsType
1 .else
1 .asg "writer",stsType
1 .endif
1 .endif
1
1
1
1 ; set first word of HST_Obj table to size of individual HST objects
1
1 .asg 0, chanId
1
1 .if 0 = 0
1
1 000000 RTA_fromHost$objsize .usect ".hst", STD_TARGWORDMAUS * 1
1
1 00000c .sect ".cinit"
1
1 00000c 0001 .field STD_TARGWORDMAUS * 1
1
1 00000d 0000- .field RTA_fromHost$objsize
1
1 .if ($symcmp("RTDX","RTDX") == 0)
1 00000e 0005 .field 5 * STD_TARGWORDMAUS
1 .else
1 .field 2 * STD_TARGWORDMAUS
1 .endif
1
1 .endif
1
1 000001 RTA_fromHost .usect ".hst", STD_TARGWORDMAUS * 2
1
1 00000f .sect ".cinit"
1
1 00000f 0002 .field STD_TARGWORDMAUS * 2
1
1 000010 0001- .field RTA_fromHost
1
1 000011 0001 .field 1<<0 ; mask
1 000012 0000- .field RTA_fromHost$pipe ; pipe
1
1 .if ($symcmp("RTDX","RTDX") == 0)
1
1 ; allocate RTDX_channel
1 000003 RTA_fromHost$rtdx .usect ".hst", STD_TARGWORDMAUS * 3
1
1 000013 .sect ".cinit"
1
1 000013 0003 .field STD_TARGWORDMAUS * 3
1
1 000014 0003- .field RTA_fromHost$rtdx
TMS320C54x COFF Assembler Version 3.50 Sun Apr 02 13:46:40 2000
Copyright (c) 1996-1999 Texas Instruments Incorporated
bioslabcfg.s54 PAGE 16
1
1 ;;;.field HST_RTDXENABLED ; enabled = HST_RTDXENABLED
1 000015 0000 .field 0
1 000016 0000 .field 0 ; count = 0
1 000017 0000 .field 0 ; busy = 0
1 .endif
1
1 .if ($symcmp("input","output") == 0)
1 PIP_Obj 1, :name:$pipe, -1, :name:$buf, framesize, numframes, :stsType:, fxn, arg0, arg1, RTA
1 .endif
1
1 .if ($symcmp("input","input") == 0)
1 000018 PIP_Obj 1, RTA_fromHost$pipe, -1, RTA_fromHost$buf, framesize, numframes, none, RTA_F_or, LNK
2
2 .global RTA_fromHost$pipe, RTA_fromHost$pipe$rd, RTA_fromHost$pipe$wr, RTA_fromHost$pipe$dtab, RTA_fr
2 .global RTA_fromHost$pipe$aaa, RTA_fromHost$pipe$bbb
2
2 .if (1 = 0)
2 .mexit
2 .endif
2
2 .if ($symcmp("RTA_fromHost$buf", "<NULL>") = 0)
2 GBL_Obj :name:$buf, :framesize:*:numframes:, .pip:id:
2 .asg :name:$buf, buf
2 .endif
2
2 .if __far_mode ; if far mode of C54x
2 :name: .usect ".pip", STD_TARGWORDMAUS * 1, 0, 2
2 .else
2 000000 RTA_fromHost$pipe .usect ".pip", STD_TARGWORDMAUS * 1
2 .endif
2
2 000018 .sect ".cinit"
2
2 000018 0001 .field STD_TARGWORDMAUS * 1
2 000019 0000- .field RTA_fromHost$pipe
2 00001a 0004 .field 04H ; thresh
2
2 000001 RTA_fromHost$pipe$rd .usect ".pip", STD_TARGWORDMAUS * 8
2
2 .if __far_mode ; if far mode of C54x
2 :name:$pad0 .usect ".pip", STD_TARGWORDMAUS * 1
2 .endif
2
2 00001b .sect ".cinit"
2
2 .if __far_mode ; if far mode of C54x
2 .field STD_TARGWORDMAUS * 9
2 .else ; if near mode of C54x
2 00001b 0008 .field STD_TARGWORDMAUS * 8
2 .endif
2
2 00001c 0001- .field RTA_fromHost$pipe$rd
2
2 00001d 0000 .field 0 ; reader take-probe
TMS320C54x COFF Assembler Version 3.50 Sun Apr 02 13:46:40 2000
Copyright (c) 1996-1999 Texas Instruments Incorporated
bioslabcfg.s54 PAGE 17
2 00001e 0000 .field 0 ; reader addr
2 00001f 0004 .field 04H ; reader size
2 000020 0000- .field RTA_fromHost$pipe$dtab ; reader curdesc
2 000021 0016- .field RTA_fromHost$pipe$wr+PIP_O_FXNOBJ ; reader pfxnobj
2 000022 0000 .field 0 ; reader numframes
2 000023 0000 .field 0 ; reader give-probe
2 000024 0013- .field RTA_fromHost$pipe$wr+PIP_O_NUMFRAMES ; reader pnumframes
2
2 .if __far_mode ; if far mode of C54x
2 .field 0x54f ; pad0
2 .endif
2
2 000025 FXN_Obj RTA_fromHost$pipe$rdfxn, RTA_F_or, LNK_D_fromHostMask, 1<<0, ".pip"
3 000025 CHK_nargs "FXN_Obj", section
3 .if ($symcmp("", "error") = 0)
3 .emsg "FXN_Obj parameter error"
3 .endif
3
3 .var cfxn
3
3 .if ($symcmp("R", "_") = 0)
3 .asg "1", cfxn
3 .else
3 .asg "0", cfxn
3 .endif
3
3 RTA_fromHost$pipe$rdfxn .tag FXN_Obj
3
3 .if __far_mode ; if far mode of C54x
3 :name: .usect ":section:", STD_TARGWORDMAUS * 6
3 .else ; if near mode of C54x
3 000009 RTA_fromHost$pipe$rdfxn .usect ".pip", STD_TARGWORDMAUS * 4
3 .endif
3
3 000025 .sect ".cinit"
3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -