2017-01-06 02:47:49 +00:00
|
|
|
;;; Apple II ROM shasum audit routines
|
|
|
|
|
;;; Copyright © 2016 Zellyn Hunter <zellyn@gmail.com>
|
|
|
|
|
|
|
|
|
|
!zone shasumtests {
|
2017-01-10 02:41:06 +00:00
|
|
|
|
|
|
|
|
!addr SRC = $06
|
|
|
|
|
!addr DST = $08
|
|
|
|
|
!addr SHAINPUT = $eb
|
|
|
|
|
!addr SHALENGTH = $ee
|
|
|
|
|
|
2017-01-06 02:47:49 +00:00
|
|
|
SHASUMTESTS
|
2017-01-10 02:41:06 +00:00
|
|
|
|
|
|
|
|
+print
|
|
|
|
|
!text "COMPUTING ROM SHASUM",$8D
|
|
|
|
|
+printed
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta SHAINPUT
|
|
|
|
|
lda #$E0
|
|
|
|
|
sta SHAINPUT+1
|
|
|
|
|
lda #0
|
|
|
|
|
sta SHALENGTH
|
|
|
|
|
lda #$20
|
|
|
|
|
sta SHALENGTH+1
|
|
|
|
|
jsr SHASUM
|
|
|
|
|
|
|
|
|
|
+print
|
|
|
|
|
!text "SHASUM:",$8D
|
|
|
|
|
+printed
|
|
|
|
|
|
|
|
|
|
lda #<SHA
|
|
|
|
|
sta SRC
|
|
|
|
|
lda #>SHA
|
|
|
|
|
sta SRC+1
|
|
|
|
|
lda #SHALEN
|
|
|
|
|
jsr prbytes
|
|
|
|
|
|
2017-01-06 02:47:49 +00:00
|
|
|
.done
|
2017-01-10 02:41:06 +00:00
|
|
|
|
2017-01-06 02:47:49 +00:00
|
|
|
rts
|
|
|
|
|
} ;shasumtests
|
2017-01-10 02:41:06 +00:00
|
|
|
|
|
|
|
|
!eof
|
|
|
|
|
|
|
|
|
|
2744ebe53a13578f318fe017d01ea6a975083250
|
|
|
|
|
|
|
|
|
|
Apple II: 102FBF7DEA8B8D6DE5DE1C484FF45E7B5DFB28D5 (oe, vii)
|
|
|
|
|
Apple II Plus: 5a23616dca14e59b4aca8ff6cfa0d98592a78a79 (oe, mame)
|
|
|
|
|
2744ebe53a13578f318fe017d01ea6a975083250 (vii)
|
|
|
|
|
Apple IIe: 8895a4b703f2184b673078f411f4089889b61c54 (mame)
|
|
|
|
|
Apple IIe (enhanced): afb09bb96038232dc757d40c0605623cae38088e (vii, mame)
|
