mirror of
https://github.com/zellyn/a2audit.git
synced 2024-11-22 13:33:35 +00:00
c1664150da
- Translated "Have an Apple Split" routine to assembly. - Created build script to build autorunning floatbus.dsk disk image.
59 lines
1.1 KiB
Plaintext
59 lines
1.1 KiB
Plaintext
!to "shasum.o", plain
|
|
* = $6000
|
|
jmp test
|
|
|
|
;; clear addresses:
|
|
;; (http://apple2.org.za/gswv/a2zine/faqs/csa2pfaq.html#017)
|
|
;; 06-09
|
|
;; EB-EF
|
|
;; FA-FD
|
|
|
|
!addr src = $06
|
|
!addr dest = $08
|
|
!addr input = $eb
|
|
|
|
h0: !32 0 ; return value (hash)
|
|
h1: !32 0
|
|
h2: !32 0
|
|
h3: !32 0
|
|
h4: !32 0
|
|
ml: !32 0 ; message length
|
|
w: !fill 64, 0
|
|
w_next: !fill 64, 0
|
|
kh0: !be32 $67452301 ; initial values for h0..h4
|
|
kh1: !be32 $EFCDAB89
|
|
kh2: !be32 $98BADCFE
|
|
kh3: !be32 $10325476
|
|
kh4: !be32 $C3D2E1F0
|
|
k1: !be32 $5A827999 ; k = constants
|
|
k2: !be32 $6ED9EBA1
|
|
k3: !be32 $8F1BBCDC
|
|
k4: !be32 $CA62C1D6
|
|
test: jsr $ff2d
|
|
rts
|
|
|
|
!eof
|
|
|
|
TODOs
|
|
[ ] Routine to print n hex bytes (address, length (byte))
|
|
[ ] Routine to get the next 16 values (64 bytes)
|
|
[ ] Routine to get w[i] one i at a time, and rebuild next 16 values
|
|
[ ] Routine to get the next 16 values (64 bytes) of input
|
|
|
|
Chacha20 code isn't so useful, because it's little-endian.
|
|
|
|
611B ADD32
|
|
612B XOR32
|
|
613A ROL16
|
|
6152 RORX
|
|
6165 ROL12
|
|
616E ROL8
|
|
6180 ROL7
|
|
6189 PR32
|
|
|
|
Needed sha1sum:
|
|
- leftrotate 1 --> ?
|
|
- leftrotate 5 --> ROL8, RORX 3
|
|
- leftrotate 30 --> RORX 2
|
|
|