📄 sat.asl
字号:
0008 1 OPERAND_CNT EQU 0x08 ;07
+ 2
+ 3 .area sat_var(data,abs)
+ 4 ; Page 4
+ 5 ;.org 0x3c0
+ 6 .org 0x3a5
+B 00 01
03A5 7 SignLRX:: .ds 1
03A6 8 PointLRX:: .ds 1
03A7 9 OperandLRX:: .ds OPERAND_CNT
+ 10
03AF 11 SignLRY:: .ds 1
03B0 12 PointLRY:: .ds 1
03B1 13 OperandLRY:: .ds OPERAND_CNT
+ 14 ;Computing SSD & PSD
+ 15
03B9 16 SignXSquDiff:: .ds 1
+ 17
03BA 18 PointXSquDiff:: .ds 1
+ 19
03BB 20 XSquDiff:: .ds OPERAND_CNT
+ 21 ;Computing SSD & PSD
03C3 22 SignYSquDiff:: .ds 1
03C4 23 PointYSquDiff:: .ds 1
03C5 24 YSquDiff:: .ds OPERAND_CNT
+ 25 ;Computing SSD & PSD
03CD 26 SignXYMulDiff:: .ds 1
03CE 27 PointXYMulDiff:: .ds 1
03CF 28 XYMulDiff:: .ds OPERAND_CNT
03D7 29 SignXFourSum::
03D7 30 Sign_Y:: .ds 1
03D8 31 PointXFourSum:
03D8 32 Point_Y:: .ds 1
03D9 33 XFourSum::
03D9 34 Operand_Y:: .ds OPERAND_CNT
+ 35
03E1 36 SignXSquYSum::
03E1 37 Sign_X:: .ds 1
03E2 38 PointXSquYSum::
03E2 39 Point_X:: .ds 1
03E3 40 QRBufEnd::
03E3 41 XSquYSum::
03E3 42 Operand_X:: .ds OPERAND_CNT
+ 43
03EB 44 SignXCubeSum::
03EB 45 SignM:: .ds 1
03EC 46 PointXCubeSum::
03EC 47 PointM:: .ds 1
03ED 48 XcubeSum:
03ED 49 OperandM:: .ds OPERAND_CNT
03F5 50 SignFa::
03F5 51 SignSatDataCnt:: .ds 1
03F6 52 PointFa::
03F6 53 PointSatDataCnt:: .ds 1
03F7 54 OperandFa::
03F7 55 SatDataCnt:: .ds OPERAND_CNT
+ 56
+ 57
+ 58 .area sat_code(code,rel)
+B 00 02
0000 59 ClearBuf:
0000 F5 01 60 lda0 Param+1
0002 FC 21 61 sta DP
0004 F5 00 62 lda0 Param+0
0006 FC 28 63 sta PP
0008 F5 02 64 lda0 Param+2
000A F9 00 65 sta0 BufLen
+ 66
000C 67 LoopClearBuf:
000C F5 00 68 lda0 BufLen
000E A7 00 69 cmpe #0h
0010 06 00 1F 70 brz EndClearBuf
0013 F3 00 71 lda #0h
0015 FE 72 sta i
0016 18 73 incdp
0017 F5 00 74 lda0 BufLen
0019 3F 75 deca
001A F9 00 76 sta0 BufLen
001C 02 00 0C 77 br LoopClearBuf
001F 78 EndClearBuf:
001F F3 00 79 lda #0h
0021 FC 28 80 sta PP
0023 24 81 ret
+ 82
+ 83 ;;
+ 84
0024 85 Tmp_Trans_X::
0024 F3 00 86 lda #>SignTmp
0026 F9 00 87 sta0 .PXPP
0028 F3 00 88 lda #<SignTmp
002A F9 00 89 sta0 .PXDP
002C F3 00 90 lda #>SignX
002E F9 00 91 sta0 .PYPP
0030 F3 00 92 lda #<SignX
0032 F9 00 93 sta0 .PYDP
0034 20 00 00 94 call .CopyData
0037 24 95 ret
0038 96 X_Trans_Tmp::
0038 F3 00 97 lda #>SignX
003A F9 00 98 sta0 .PXPP
003C F3 00 99 lda #<SignX
003E F9 00 100 sta0 .PXDP
0040 F3 00 101 lda #>SignTmp
0042 F9 00 102 sta0 .PYPP
0044 F3 00 103 lda #<SignTmp
0046 F9 00 104 sta0 .PYDP
0048 20 00 00 105 call .CopyData
004B 24 106 ret
+ 107
+ 108
+ 109
+ 110
004C 111 Z_Trans_YCnt:
004C 112 Z_Trans_XCnt:
004C F3 00 113 lda #>SignZ
004E F9 00 114 sta0 .PXPP
0050 F3 00 115 lda #<SignZ
0052 F9 00 116 sta0 .PXDP
0054 F3 00 117 lda #>SignCnt
0056 F9 00 118 sta0 .PYPP
0058 F3 00 119 lda #<SignCnt
005A F9 00 120 sta0 .PYDP
005C 20 00 00 121 call .CopyData
005F 24 122 ret
+ 123
0060 124 YCnt_Trans_Y:
0060 125 XCnt_Trans_Y:
0060 F3 00 126 lda #>SignCnt
0062 F9 00 127 sta0 .PXPP
0064 F3 00 128 lda #<SignCnt
0066 F9 00 129 sta0 .PXDP
0068 F3 00 130 lda #>SignY
006A F9 00 131 sta0 .PYPP
006C F3 00 132 lda #<SignY
006E F9 00 133 sta0 .PYDP
0070 20 00 00 134 call .CopyData
0073 24 135 ret
+ 136
0074 137 XSum_Trans_Y:
0074 F3 00 138 lda #>SignXSum
0076 F9 00 139 sta0 .PXPP
0078 F3 00 140 lda #<SignXSum
007A F9 00 141 sta0 .PXDP
007C F3 00 142 lda #>SignY
007E F9 00 143 sta0 .PYPP
0080 F3 00 144 lda #<SignY
0082 F9 00 145 sta0 .PYDP
0084 20 00 00 146 call .CopyData
0087 24 147 ret
+ 148
0088 149 Z_Trans_XSum:
0088 F3 00 150 lda #>SignZ
008A F9 00 151 sta0 .PXPP
008C F3 00 152 lda #<SignZ
008E F9 00 153 sta0 .PXDP
0090 F3 00 154 lda #>SignXSum
0092 F9 00 155 sta0 .PYPP
0094 F3 00 156 lda #<SignXSum
0096 F9 00 157 sta0 .PYDP
0098 20 00 00 158 call .CopyData
009B 24 159 ret
+ 160
009C 161 XSquSum_Trans_X:
009C F3 00 162 lda #>SignXSquSum
009E F9 00 163 sta0 .PXPP
00A0 F3 00 164 lda #<SignXSquSum
00A2 F9 00 165 sta0 .PXDP
00A4 F3 00 166 lda #>SignX
00A6 F9 00 167 sta0 .PYPP
00A8 F3 00 168 lda #<SignX
00AA F9 00 169 sta0 .PYDP
00AC 20 00 00 170 call .CopyData
00AF 24 171 ret
00B0 172 Z_Trans_XSquSum:
00B0 F3 00 173 lda #>SignZ
00B2 F9 00 174 sta0 .PXPP
00B4 F3 00 175 lda #<SignZ
00B6 F9 00 176 sta0 .PXDP
00B8 F3 00 177 lda #>SignXSquSum
00BA F9 00 178 sta0 .PYPP
00BC F3 00 179 lda #<SignXSquSum
00BE F9 00 180 sta0 .PYDP
00C0 20 00 00 181 call .CopyData
00C3 24 182 ret
00C4 183 Z_Trans_XCubeSum:
00C4 F3 00 184 lda #>SignZ
00C6 F9 00 185 sta0 .PXPP
00C8 F3 00 186 lda #<SignZ
00CA F9 00 187 sta0 .PXDP
00CC F3 03 188 lda #>SignXCubeSum
00CE F9 00 189 sta0 .PYPP
00D0 F3 EB 190 lda #<SignXCubeSum
00D2 F9 00 191 sta0 .PYDP
00D4 20 00 00 192 call .CopyData
00D7 24 193 ret
00D8 194 Z_Trans_XSquDiff:
00D8 F3 00 195 lda #>SignZ
00DA F9 00 196 sta0 .PXPP
00DC F3 00 197 lda #<SignZ
00DE F9 00 198 sta0 .PXDP
00E0 F3 03 199 lda #>SignXSquDiff
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -