(FILECREATED " 5-Aug-84 02:56:01" ("compiled on " {ERIS}WORK>NEWBOXFTIMES.;13) " 1-Aug-84 17:04:49" recompiled changes: NEW\BOXFTIMES2 in "INTERLISP-D 2-Aug-84 ..." dated " 2-Aug-84 10:31:19") (FILECREATED " 5-Aug-84 02:55:43" {ERIS}WORK>NEWBOXFTIMES.;13 12921 changes to: (FNS NEW\BOXFTIMES2) previous date: " 3-Aug-84 18:30:03" {ERIS}WORK>NEWBOXFTIMES.;10) (MOVD? (QUOTE \BOXFTIMES2) (QUOTE OLD\BOXFTIMES2)) (MOVD? (QUOTE \BOXFQUOTIENT) (QUOTE OLD\BOXFQUOTIENT)) (MOVD? (QUOTE \FDIFFERENCE.UFN) (QUOTE OLD\FDIFFERENCE.UFN)) (MOVD? (QUOTE \BOXFPLUSDIF) (QUOTE OLD\BOXFPLUSDIF)) (MOVD? (QUOTE SIN) (QUOTE OLDSIN)) (MOVD? (QUOTE COS) (QUOTE OLDCOS)) COERCETOFLOATARRAY D1 (P 2 RESULT P 1 I I 0 A) W@ dgdgdgdg9@ @ k@ @ gh@ IHJI@I(*IkYJ(74Q ARRAY 71Q ARRAYORIG 61Q ARRAYSIZE 55Q ARRAYORIG 46Q ARRAYORIG 42Q ARRAYSIZE 3 ARRAYTYP) (113Q FLOATP 64Q FLOATP 32Q BIT 24Q FIXP 16Q SMALLPOSP 7 BYTE) () NEW\BOXFPLUSDIF D1 (P 12Q XFLOAT P 11Q I P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 SUBTRACT I 1 Y I 0 X) E@CA@A  A ghA XA A kA @ OOH g@ ZA3@ YJdgh@ XI@ k@ A OOvH gA [@ YA @ A o@Ah JKIgh@ XJ@KAI@ k@ MLHMJM(KM(*Mk]HHOJ@O(O*Ok_rA k_ONHOOAO(*Ok_Ok_(433Q ARRAYSIZE 345Q ARRAYORIG 336Q ARRAYORIG 320Q ARRAY 315Q ARRAYORIG 275Q ERROR 257Q ARRAYORIG 253Q ARRAYORIG 245Q ARRAYSIZE 240Q ARRAYSIZE 231Q COERCETOFLOATARRAY 220Q ARRAYTYP 175Q ARRAYORIG 166Q ARRAYORIG 160Q ARRAY 155Q ARRAYORIG 140Q ARRAYSIZE 124Q COERCETOFLOATARRAY 113Q ARRAYTYP 66Q ARRAYORIG 57Q ARRAYORIG 53Q ARRAYSIZE 46Q ARRAY 43Q ARRAYORIG 33Q ARRAYSIZE 25Q NUMARRAYTYP 21Q OLD\BOXFPLUSDIF) (310Q FLOATP 223Q FLOATP 201Q FLOATP 150Q FLOATP 116Q FLOATP 72Q FLOATP 36Q FLOATP) ( 265Q "NONCONFORMABLE ARRAYS") NEW\BOXFQUOTIENT D1 (P 12Q XFLOAT P 11Q I P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 BOX I 1 Y I 0 X) F@DA @AB  A ghA XA A kA @ OOH g@ ZA3@ YJdgh@ XI@ k@ A OOvH gA [@ YA @ A o@Ah JKIgh@ XJ@KAI@ k@ MLHMJM(KM(*Mk]HHOJ@O(O*Ok_rA k_ONHOOAO(*Ok_Ok_(434Q ARRAYSIZE 346Q ARRAYORIG 337Q ARRAYORIG 321Q ARRAY 316Q ARRAYORIG 276Q ERROR 260Q ARRAYORIG 254Q ARRAYORIG 246Q ARRAYSIZE 241Q ARRAYSIZE 232Q COERCETOFLOATARRAY 221Q ARRAYTYP 176Q ARRAYORIG 167Q ARRAYORIG 161Q ARRAY 156Q ARRAYORIG 141Q ARRAYSIZE 125Q COERCETOFLOATARRAY 114Q ARRAYTYP 67Q ARRAYORIG 60Q ARRAYORIG 54Q ARRAYSIZE 47Q ARRAY 44Q ARRAYORIG 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFQUOTIENT) (311Q FLOATP 224Q FLOATP 202Q FLOATP 151Q FLOATP 117Q FLOATP 73Q FLOATP 37Q FLOATP) ( 266Q "NONCONFORMABLE ARRAYS") NEW\BOXFTIMES2 D1 (P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 BOX I 1 Y I 0 X) @@BA @AB  A YA g@A XdAHIH g@ ZA1@ YJdgA@ X@HHIH gA [@ YA @ A o@Ah J@KAJKIgh@ XIH(337Q ARRAY 334Q ARRAYORIG 272Q ERROR 254Q ARRAYORIG 250Q ARRAYORIG 242Q ARRAYSIZE 235Q ARRAYSIZE 226Q COERCETOFLOATARRAY 215Q ARRAYTYP 162Q ARRAY 157Q ARRAYORIG 137Q ARRAYSIZE 123Q COERCETOFLOATARRAY 112Q ARRAYTYP 57Q ARRAY 54Q ARRAYORIG 41Q ARRAYSIZE 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFTIMES2) (343Q ARRAYP 327Q FLOATP 313Q ARRAYP 302Q ARRAYP 220Q FLOATP 203Q ARRAYP 175Q ARRAYP 167Q ARRAYP 153Q FLOATP 147Q FLOATP 115Q FLOATP 100Q ARRAYP 72Q ARRAYP 64Q ARRAYP 50Q FLOATP 44Q FLOATP) ( 262Q "NONCONFORMABLE ARRAYS") NEW\FDIFFERENCE.UFN D1 (P 12Q XFLOAT P 11Q I P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 1 Y I 0 X) F@DA @Ai  A ghA XA A kA @ OOH g@ ZA3@ YJdgh@ XI@ k@ A OOvH gA [@ YA @ A o@Ah JKIgh@ XJ@KAI@ k@ MLHMJM(KM(*Mk]HHOJ@O(O*Ok_rA k_ONHOOAO(*Ok_Ok_(434Q ARRAYSIZE 346Q ARRAYORIG 337Q ARRAYORIG 321Q ARRAY 316Q ARRAYORIG 276Q ERROR 260Q ARRAYORIG 254Q ARRAYORIG 246Q ARRAYSIZE 241Q ARRAYSIZE 232Q COERCETOFLOATARRAY 221Q ARRAYTYP 176Q ARRAYORIG 167Q ARRAYORIG 161Q ARRAY 156Q ARRAYORIG 141Q ARRAYSIZE 125Q COERCETOFLOATARRAY 114Q ARRAYTYP 67Q ARRAYORIG 60Q ARRAYORIG 54Q ARRAYSIZE 47Q ARRAY 44Q ARRAYORIG 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFPLUSDIF) (311Q FLOATP 224Q FLOATP 202Q FLOATP 151Q FLOATP 117Q FLOATP 73Q FLOATP 37Q FLOATP) ( 266Q "NONCONFORMABLE ARRAYS") GENVEC D1 (P 6 SF P 5 DBY P 4 ROW P 3 I P 1 GV P 0 N I 3 ORIG I 2 BY I 1 END I 0 INITIAL)  A@bkbBA@kmbA@BkXkHo @AB6CHkـHCkHghC B@MKJLKNMK*Kk[LCHkـHCk@HghC  OOOOO*OB_Ok_O(203Q ARRAY 116Q ARRAY 54Q ERROR) (176Q FIXP 122Q FLOATP 111Q FLOATP) ( 51Q "Inconsistent increment and bounds") NEWCOS D1 (P 3 I P 1 RESULT P 0 SIZE I 1 RADIANSFLG I 0 X) H@d> 8@ Hg YH@ k@ KJIK@K(A *Kk[I@A (105Q OLDCOS 66Q OLDCOS 45Q ARRAYORIG 36Q ARRAYORIG 30Q ARRAY 16Q ARRAYSIZE 10Q NUMARRAYTYP) (25Q FLOATP) () NEWSIN D1 (P 3 I P 1 RESULT P 0 SIZE I 1 RADIANSFLG I 0 X) H@d> 8@ Hg YH@ k@ KJIK@K(A *Kk[I@A (105Q OLDSIN 66Q OLDSIN 45Q ARRAYORIG 36Q ARRAYORIG 30Q ARRAY 16Q ARRAYSIZE 10Q NUMARRAYTYP) (25Q FLOATP) () NUMARRAYTYP D1 (I 0 A) (@ dgdgdgdgdgi(3 ARRAYTYP) (41Q BIT 33Q FIXP 25Q SMALLPOSP 16Q BYTE 7 FLOATP) () (PRETTYCOMPRINT NEWBOXFTIMESCOMS) (RPAQQ NEWBOXFTIMESCOMS ((DECLARE: EVAL@LOAD DOCOPY FIRST (P (MOVD? (QUOTE \BOXFTIMES2) (QUOTE OLD\BOXFTIMES2)) (MOVD? (QUOTE \BOXFQUOTIENT) (QUOTE OLD\BOXFQUOTIENT)) (MOVD? (QUOTE \FDIFFERENCE.UFN ) (QUOTE OLD\FDIFFERENCE.UFN)) (MOVD? (QUOTE \BOXFPLUSDIF) (QUOTE OLD\BOXFPLUSDIF)) (MOVD? (QUOTE SIN) (QUOTE OLDSIN)) (MOVD? (QUOTE COS) (QUOTE OLDCOS)))) (FNS COERCETOFLOATARRAY NEW\BOXFPLUSDIF NEW\BOXFQUOTIENT NEW\BOXFTIMES2 NEW\FDIFFERENCE.UFN GENVEC NEWCOS NEWSIN NUMARRAYTYP) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE NEW\BOXFTIMES2) (QUOTE \BOXFTIMES2)) (MOVD (QUOTE NEW\BOXFQUOTIENT) (QUOTE \BOXFQUOTIENT)) (MOVD (QUOTE NEW\FDIFFERENCE.UFN) (QUOTE \FDIFFERENCE.UFN)) ( MOVD (QUOTE NEW\BOXFPLUSDIF) (QUOTE \BOXFPLUSDIF)) (MOVD (QUOTE NEWSIN) (QUOTE SIN)) (MOVD (QUOTE NEWCOS) (QUOTE COS)))))) (MOVD (QUOTE NEW\BOXFTIMES2) (QUOTE \BOXFTIMES2)) (MOVD (QUOTE NEW\BOXFQUOTIENT) (QUOTE \BOXFQUOTIENT)) (MOVD (QUOTE NEW\FDIFFERENCE.UFN) (QUOTE \FDIFFERENCE.UFN)) (MOVD (QUOTE NEW\BOXFPLUSDIF) (QUOTE \BOXFPLUSDIF)) (MOVD (QUOTE NEWSIN) (QUOTE SIN)) (MOVD (QUOTE NEWCOS) (QUOTE COS)) (PUTPROPS NEWBOXFTIMES COPYRIGHT ("Xerox Corporation" 1984)) NIL