diff options
| author | Your Name <you@example.com> | 2019-07-18 13:30:08 +0100 |
|---|---|---|
| committer | Your Name <you@example.com> | 2019-07-18 13:30:08 +0100 |
| commit | 928e658abbd64b1a58b6ed2c4fb53580afee6c8b (patch) | |
| tree | dda080b5639daa9bd1e63daba29465249e2d9060 | |
| parent | d56b9720ebbe99f6a2f10980acbc5c19c0c39d46 (diff) | |
| download | wristapps-928e658abbd64b1a58b6ed2c4fb53580afee6c8b.tar.gz wristapps-928e658abbd64b1a58b6ed2c4fb53580afee6c8b.tar.bz2 wristapps-928e658abbd64b1a58b6ed2c4fb53580afee6c8b.zip | |
copy4
| -rw-r--r-- | sha1/msauth.asm | 30 |
1 files changed, 24 insertions, 6 deletions
diff --git a/sha1/msauth.asm b/sha1/msauth.asm index fc5e291..51147e0 100644 --- a/sha1/msauth.asm +++ b/sha1/msauth.asm @@ -133,18 +133,22 @@ test_l2: inc lidx jsr sha1_block + lda #(T1-DATA_START) + sta dest + lda H+16 and #$F + tax - add #(H-DATA_START) - sta src1 + lda H+3,x and #$7F sta H+3,x - lda #(T1-DATA_START) - sta dest - lda #(ZERO-DATA_START) - jsr add4 + + txa + + add #(H-DATA_START) + jsr copy4 @@ -170,12 +174,18 @@ get_w32_015_to_t2: add #(KEY-DATA_START) sta src1 get_w32_015_to_t2_z1: + + lda #(ZERO-DATA_START) jsr add4 lda #(T2-DATA_START) sta src1 lda #(KEYOR-DATA_START) jsr xor4 + + + + rts get_w32_015_to_t2_l1: lda j @@ -394,6 +404,14 @@ op4_list_l2: bra op4_list +copy4: + sta src1 + lda #(ZERO-DATA_START) + sta src2 + lda #$d9 ; adc $ffff,a + sta op4_src2 + bra op4_binary + add4: sta src2 lda #$d9 ; adc $ffff,a |