Category : Pascal Source Code
Archive   : 3DLAB110.ZIP
Filename : SINCOS.INC

 
Output of file : SINCOS.INC contained in archive : 3DLAB110.ZIP
CONST DCos : ARRAY[ 0..359 ] OF Word = (

$0100, $0100, $0100, $0100, $00FF, $00FF, $00FF, $00FE,
$00FE, $00FD, $00FC, $00FB, $00FA, $00F9, $00F8, $00F7,
$00F6, $00F5, $00F3, $00F2, $00F1, $00EF, $00ED, $00EC,
$00EA, $00E8, $00E6, $00E4, $00E2, $00E0, $00DE, $00DB,
$00D9, $00D7, $00D4, $00D2, $00CF, $00CC, $00CA, $00C7,
$00C4, $00C1, $00BE, $00BB, $00B8, $00B5, $00B2, $00AF,
$00AB, $00A8, $00A5, $00A1, $009E, $009A, $0096, $0093,
$008F, $008B, $0088, $0084, $0080, $007C, $0078, $0074,
$0070, $006C, $0068, $0064, $0060, $005C, $0058, $0053,
$004F, $004B, $0047, $0042, $003E, $003A, $0035, $0031,
$002C, $0028, $0024, $001F, $001B, $0016, $0012, $000D,
$0009, $0004, $0000, $FFFC, $FFF7, $FFF3, $FFEE, $FFEA,
$FFE5, $FFE1, $FFDC, $FFD8, $FFD4, $FFCF, $FFCB, $FFC6,
$FFC2, $FFBE, $FFB9, $FFB5, $FFB1, $FFAD, $FFA8, $FFA4,
$FFA0, $FF9C, $FF98, $FF94, $FF90, $FF8C, $FF88, $FF84,
$FF80, $FF7C, $FF78, $FF75, $FF71, $FF6D, $FF6A, $FF66,
$FF62, $FF5F, $FF5B, $FF58, $FF55, $FF51, $FF4E, $FF4B,
$FF48, $FF45, $FF42, $FF3F, $FF3C, $FF39, $FF36, $FF34,
$FF31, $FF2E, $FF2C, $FF29, $FF27, $FF25, $FF22, $FF20,
$FF1E, $FF1C, $FF1A, $FF18, $FF16, $FF14, $FF13, $FF11,
$FF0F, $FF0E, $FF0D, $FF0B, $FF0A, $FF09, $FF08, $FF07,
$FF06, $FF05, $FF04, $FF03, $FF02, $FF02, $FF01, $FF01,
$FF01, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00,
$FF01, $FF01, $FF01, $FF02, $FF02, $FF03, $FF04, $FF05,
$FF06, $FF07, $FF08, $FF09, $FF0A, $FF0B, $FF0D, $FF0E,
$FF0F, $FF11, $FF13, $FF14, $FF16, $FF18, $FF1A, $FF1C,
$FF1E, $FF20, $FF22, $FF25, $FF27, $FF29, $FF2C, $FF2E,
$FF31, $FF34, $FF36, $FF39, $FF3C, $FF3F, $FF42, $FF45,
$FF48, $FF4B, $FF4E, $FF51, $FF55, $FF58, $FF5B, $FF5F,
$FF62, $FF66, $FF6A, $FF6D, $FF71, $FF75, $FF78, $FF7C,
$FF80, $FF84, $FF88, $FF8C, $FF90, $FF94, $FF98, $FF9C,
$FFA0, $FFA4, $FFA8, $FFAD, $FFB1, $FFB5, $FFB9, $FFBE,
$FFC2, $FFC6, $FFCB, $FFCF, $FFD4, $FFD8, $FFDC, $FFE1,
$FFE5, $FFEA, $FFEE, $FFF3, $FFF7, $FFFC, $0000, $0004,
$0009, $000D, $0012, $0016, $001B, $001F, $0024, $0028,
$002C, $0031, $0035, $003A, $003E, $0042, $0047, $004B,
$004F, $0053, $0058, $005C, $0060, $0064, $0068, $006C,
$0070, $0074, $0078, $007C, $0080, $0084, $0088, $008B,
$008F, $0093, $0096, $009A, $009E, $00A1, $00A5, $00A8,
$00AB, $00AF, $00B2, $00B5, $00B8, $00BB, $00BE, $00C1,
$00C4, $00C7, $00CA, $00CC, $00CF, $00D2, $00D4, $00D7,
$00D9, $00DB, $00DE, $00E0, $00E2, $00E4, $00E6, $00E8,
$00EA, $00EC, $00ED, $00EF, $00F1, $00F2, $00F3, $00F5,
$00F6, $00F7, $00F8, $00F9, $00FA, $00FB, $00FC, $00FD,
$00FE, $00FE, $00FF, $00FF, $00FF, $0100, $0100, $0100 );


DSin : ARRAY[ 0..359 ] OF Word = (

$0000, $0004, $0009, $000D, $0012, $0016, $001B, $001F,
$0024, $0028, $002C, $0031, $0035, $003A, $003E, $0042,
$0047, $004B, $004F, $0053, $0058, $005C, $0060, $0064,
$0068, $006C, $0070, $0074, $0078, $007C, $0080, $0084,
$0088, $008B, $008F, $0093, $0096, $009A, $009E, $00A1,
$00A5, $00A8, $00AB, $00AF, $00B2, $00B5, $00B8, $00BB,
$00BE, $00C1, $00C4, $00C7, $00CA, $00CC, $00CF, $00D2,
$00D4, $00D7, $00D9, $00DB, $00DE, $00E0, $00E2, $00E4,
$00E6, $00E8, $00EA, $00EC, $00ED, $00EF, $00F1, $00F2,
$00F3, $00F5, $00F6, $00F7, $00F8, $00F9, $00FA, $00FB,
$00FC, $00FD, $00FE, $00FE, $00FF, $00FF, $00FF, $0100,
$0100, $0100, $0100, $0100, $0100, $0100, $00FF, $00FF,
$00FF, $00FE, $00FE, $00FD, $00FC, $00FB, $00FA, $00F9,
$00F8, $00F7, $00F6, $00F5, $00F3, $00F2, $00F1, $00EF,
$00ED, $00EC, $00EA, $00E8, $00E6, $00E4, $00E2, $00E0,
$00DE, $00DB, $00D9, $00D7, $00D4, $00D2, $00CF, $00CC,
$00CA, $00C7, $00C4, $00C1, $00BE, $00BB, $00B8, $00B5,
$00B2, $00AF, $00AB, $00A8, $00A5, $00A1, $009E, $009A,
$0096, $0093, $008F, $008B, $0088, $0084, $0080, $007C,
$0078, $0074, $0070, $006C, $0068, $0064, $0060, $005C,
$0058, $0053, $004F, $004B, $0047, $0042, $003E, $003A,
$0035, $0031, $002C, $0028, $0024, $001F, $001B, $0016,
$0012, $000D, $0009, $0004, $0000, $FFFC, $FFF7, $FFF3,
$FFEE, $FFEA, $FFE5, $FFE1, $FFDC, $FFD8, $FFD4, $FFCF,
$FFCB, $FFC6, $FFC2, $FFBE, $FFB9, $FFB5, $FFB1, $FFAD,
$FFA8, $FFA4, $FFA0, $FF9C, $FF98, $FF94, $FF90, $FF8C,
$FF88, $FF84, $FF80, $FF7C, $FF78, $FF75, $FF71, $FF6D,
$FF6A, $FF66, $FF62, $FF5F, $FF5B, $FF58, $FF55, $FF51,
$FF4E, $FF4B, $FF48, $FF45, $FF42, $FF3F, $FF3C, $FF39,
$FF36, $FF34, $FF31, $FF2E, $FF2C, $FF29, $FF27, $FF25,
$FF22, $FF20, $FF1E, $FF1C, $FF1A, $FF18, $FF16, $FF14,
$FF13, $FF11, $FF0F, $FF0E, $FF0D, $FF0B, $FF0A, $FF09,
$FF08, $FF07, $FF06, $FF05, $FF04, $FF03, $FF02, $FF02,
$FF01, $FF01, $FF01, $FF00, $FF00, $FF00, $FF00, $FF00,
$FF00, $FF00, $FF01, $FF01, $FF01, $FF02, $FF02, $FF03,
$FF04, $FF05, $FF06, $FF07, $FF08, $FF09, $FF0A, $FF0B,
$FF0D, $FF0E, $FF0F, $FF11, $FF13, $FF14, $FF16, $FF18,
$FF1A, $FF1C, $FF1E, $FF20, $FF22, $FF25, $FF27, $FF29,
$FF2C, $FF2E, $FF31, $FF34, $FF36, $FF39, $FF3C, $FF3F,
$FF42, $FF45, $FF48, $FF4B, $FF4E, $FF51, $FF55, $FF58,
$FF5B, $FF5F, $FF62, $FF66, $FF6A, $FF6D, $FF71, $FF75,
$FF78, $FF7C, $FF80, $FF84, $FF88, $FF8C, $FF90, $FF94,
$FF98, $FF9C, $FFA0, $FFA4, $FFA8, $FFAD, $FFB1, $FFB5,
$FFB9, $FFBE, $FFC2, $FFC6, $FFCB, $FFCF, $FFD4, $FFD8,
$FFDC, $FFE1, $FFE5, $FFEA, $FFEE, $FFF3, $FFF7, $FFFC );



  3 Responses to “Category : Pascal Source Code
Archive   : 3DLAB110.ZIP
Filename : SINCOS.INC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/