Apple-2gs-SW/gno
1
0
Fork 0
mirror of https://github.com/GnoConsortium/gno.git synced 2024-12-21 07:30:05 +00:00
Code Issues Projects Releases Wiki Activity

crypt.c, crypta.asm:

Browse Source 
- missed some renames of symbols when the namespace pollution
	  problem was addressed.  Hopefully this fixes the unresolved
	  symbols.  Untested.
This commit is contained in:
gdr-ftp 1998-02-08 03:20:25 +00:00
parent f3bea84880
commit c8e574bab7
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/libc/gen/crypt.c
View File

@ -5,7 +5,7 @@
* January 19-22, 1992 by Jawaid Bazyar * January 19-22, 1992 by Jawaid Bazyar
* Copyright 1992-1997, Procyon Inc. * Copyright 1992-1997, Procyon Inc.
* *
* $Id: crypt.c,v 1.2 1997/09/21 06:04:59 gdr Exp $ * $Id: crypt.c,v 1.3 1998/02/08 03:20:23 gdr-ftp Exp $
* *
* This file is formatted with tab stops every 8 columns. * This file is formatted with tab stops every 8 columns.
*/ */
@ -24,6 +24,7 @@
#define rotate(key) __crypt_rotate(key) #define rotate(key) __crypt_rotate(key)
#define s_boxes __crypt_s_boxes #define s_boxes __crypt_s_boxes
#define rots __crypt_rots #define rots __crypt_rots
#define EP __crypt_EP
#endif #endif
struct block { struct block {

10
lib/libc/gen/crypta.asm
View File

@ -3,7 +3,7 @@
* 19-22 January 1992 by Jawaid Bazyar * 19-22 January 1992 by Jawaid Bazyar
* Copyright 1992, Procyon Inc. * Copyright 1992, Procyon Inc.
* *
* $Id: crypta.asm,v 1.2 1998/02/05 16:07:06 gdr-ftp Exp $ * $Id: crypta.asm,v 1.3 1998/02/08 03:20:25 gdr-ftp Exp $
* *
* Because of the four storage blocks listed below (copyOfData, e, ikey, and * Because of the four storage blocks listed below (copyOfData, e, ikey, and
* yb), this doesn't seem to be compatible with the large memory model. * yb), this doesn't seem to be compatible with the large memory model.
@ -99,7 +99,7 @@ lp1 lda [a],y
ph2 #48 ph2 #48
ph4 __crypt_EP ph4 __crypt_EP
ph4 #e ph4 #e
jsl transpose jsl __crypt_transpose
lda i lda i
asl a asl a
@ -109,7 +109,7 @@ lp1 lda [a],y
lp2 lda k lp2 lda k
beq donelp2 beq donelp2
ph4 key ph4 key
jsl rotate jsl __crypt_rotate
dec k dec k
bra lp2 bra lp2
@ -123,7 +123,7 @@ lp3 lda [key],y
ph2 #48 ph2 #48
ph4 #KeyTr2 ph4 #KeyTr2
ph4 #ikey ph4 #ikey
jsl transpose jsl __crypt_transpose
short m short m
ldy #48 ldy #48
@ -263,7 +263,7 @@ donekloop anop
ph2 #32 ph2 #32
ph4 #ptr ph4 #ptr
ph4 x ph4 x
jsl transpose jsl __crypt_transpose
return return
e ds 64 e ds 64