home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1990-08-07 | 28.4 KB | [TEXT/KAHL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, Tue Aug 7 16:51:26 1990, modified Tue Aug 7 16:51:26 1990, creator Think C, type ASCII, 28452 bytes "PrepScore.c" , at 0x6fa4 348 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [KAHL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 50 72 65 70 53 63 | 6f 72 65 2e 63 00 00 00 |..PrepSc|ore.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 6f 24 00 | 00 01 5c a2 e4 da 4e a2 |.....o$.|..\...N.|
|00000060| e4 da 4e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..N.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 50 b2 00 00 |........|....P...|
|00000080| 2f 2a 0d 2a 20 a9 20 47 | 72 61 65 6d 65 20 47 65 |/*.* . G|raeme Ge|
|00000090| 72 72 61 72 64 20 31 39 | 39 30 0d 2a 20 46 61 63 |rrard 19|90.* Fac|
|000000a0| 75 6c 74 79 20 6f 66 20 | 4d 75 73 69 63 2c 20 55 |ulty of |Music, U|
|000000b0| 6e 69 76 65 72 73 69 74 | 79 20 6f 66 20 4d 65 6c |niversit|y of Mel|
|000000c0| 62 6f 75 72 6e 65 0d 2a | 20 50 61 72 6b 76 69 6c |bourne.*| Parkvil|
|000000d0| 6c 65 20 56 69 63 74 6f | 72 69 61 20 33 30 35 32 |le Victo|ria 3052|
|000000e0| 20 41 75 73 74 72 61 6c | 69 61 2e 0d 2a 0d 2a 20 | Austral|ia..*.* |
|000000f0| 41 52 50 41 4e 45 54 3a | 20 67 72 61 65 40 6d 75 |ARPANET:| grae@mu|
|00000100| 72 64 75 2e 75 63 73 2e | 75 6e 69 6d 65 6c 62 2e |rdu.ucs.|unimelb.|
|00000110| 65 64 75 2e 61 75 0d 2a | 20 74 65 6c 65 70 68 6f |edu.au.*| telepho|
|00000120| 6e 65 3a 20 28 36 31 33 | 29 20 33 34 34 20 34 31 |ne: (613|) 344 41|
|00000130| 32 37 2c 20 46 61 78 3a | 20 28 36 31 33 29 20 33 |27, Fax:| (613) 3|
|00000140| 34 34 20 35 33 34 36 0d | 2a 2f 0d 0d 23 69 6e 63 |44 5346.|*/..#inc|
|00000150| 6c 75 64 65 09 22 4d 75 | 73 69 63 34 43 2e 68 22 |lude."Mu|sic4C.h"|
|00000160| 0d 23 69 6e 63 6c 75 64 | 65 09 3c 75 6e 69 78 2e |.#includ|e.<unix.|
|00000170| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 09 22 45 72 |h>.#incl|ude ."Er|
|00000180| 72 6f 72 41 6c 65 72 74 | 2e 68 22 0d 0d 0d 69 6e |rorAlert|.h"...in|
|00000190| 74 09 72 65 61 64 5f 73 | 65 63 74 69 6f 6e 28 76 |t.read_s|ection(v|
|000001a0| 6f 69 64 29 3b 0d 65 78 | 74 65 72 6e 09 76 6f 69 |oid);.ex|tern.voi|
|000001b0| 64 09 52 65 70 6f 72 74 | 28 63 68 61 72 20 2a 29 |d.Report|(char *)|
|000001c0| 3b 0d 65 78 74 65 72 6e | 09 45 76 65 6e 74 09 2a |;.extern|.Event.*|
|000001d0| 77 61 72 70 5f 74 65 6d | 70 6f 28 64 6f 75 62 6c |warp_tem|po(doubl|
|000001e0| 65 20 2a 2c 20 45 76 65 | 6e 74 20 2a 29 3b 0d 65 |e *, Eve|nt *);.e|
|000001f0| 78 74 65 72 6e 09 76 6f | 69 64 09 72 65 6e 75 6d |xtern.vo|id.renum|
|00000200| 62 65 72 28 45 76 65 6e | 74 20 2a 29 3b 0d 76 6f |ber(Even|t *);.vo|
|00000210| 69 64 09 61 64 64 5f 65 | 6e 64 5f 6f 70 73 28 45 |id.add_e|nd_ops(E|
|00000220| 76 65 6e 74 20 2a 29 3b | 0d 76 6f 69 64 09 72 65 |vent *);|.void.re|
|00000230| 70 6f 72 74 32 28 45 76 | 65 6e 74 20 2a 29 3b 0d |port2(Ev|ent *);.|
|00000240| 76 6f 69 64 09 66 77 72 | 69 74 65 32 28 45 76 65 |void.fwr|ite2(Eve|
|00000250| 6e 74 20 2a 29 3b 0d 65 | 78 74 65 72 6e 09 42 6f |nt *);.e|xtern.Bo|
|00000260| 6f 6c 65 61 6e 09 4d 41 | 43 5f 43 68 65 63 6b 5f |olean.MA|C_Check_|
|00000270| 50 61 73 73 31 32 5f 45 | 76 65 6e 74 73 28 69 6e |Pass12_E|vents(in|
|00000280| 74 2c 20 69 6e 74 29 3b | 0d 0d 65 78 74 65 72 6e |t, int);|..extern|
|00000290| 09 76 6f 69 64 09 50 73 | 74 72 69 6e 67 43 6f 70 |.void.Ps|tringCop|
|000002a0| 79 28 63 68 61 72 20 2a | 2c 20 63 68 61 72 20 2a |y(char *|, char *|
|000002b0| 29 3b 0d 65 78 74 65 72 | 6e 09 76 6f 69 64 09 50 |);.exter|n.void.P|
|000002c0| 73 74 72 69 6e 67 43 61 | 74 28 63 68 61 72 20 2a |stringCa|t(char *|
|000002d0| 2c 20 63 68 61 72 20 2a | 29 3b 0d 42 6f 6f 6c 65 |, char *|);.Boole|
|000002e0| 61 6e 09 67 65 74 63 61 | 72 64 28 76 6f 69 64 29 |an.getca|rd(void)|
|000002f0| 3b 0d 76 6f 69 64 09 70 | 61 72 73 65 5f 63 61 72 |;.void.p|arse_car|
|00000300| 64 28 76 6f 69 64 29 3b | 0d 76 6f 69 64 09 72 65 |d(void);|.void.re|
|00000310| 70 6f 72 74 31 28 69 6e | 74 2c 20 63 68 61 72 20 |port1(in|t, char |
|00000320| 2a 2c 20 64 6f 75 62 6c | 65 20 2a 29 3b 0d 45 76 |*, doubl|e *);.Ev|
|00000330| 65 6e 74 09 2a 69 6e 73 | 65 72 74 5f 69 6e 5f 6c |ent.*ins|ert_in_l|
|00000340| 69 73 74 28 69 6e 74 2c | 20 69 6e 74 2c 20 64 6f |ist(int,| int, do|
|00000350| 75 62 6c 65 20 2a 2c 20 | 45 76 65 6e 74 20 2a 29 |uble *, |Event *)|
|00000360| 3b 0d 69 6e 74 09 09 64 | 65 63 6f 64 65 28 76 6f |;.int..d|ecode(vo|
|00000370| 69 64 29 3b 0d 69 6e 74 | 09 09 64 65 63 6f 64 65 |id);.int|..decode|
|00000380| 5f 74 5f 63 61 72 64 28 | 69 6e 74 29 3b 0d 76 6f |_t_card(|int);.vo|
|00000390| 69 64 09 73 65 74 5f 6f | 75 74 70 75 74 28 76 6f |id.set_o|utput(vo|
|000003a0| 69 64 29 3b 0d 69 6e 74 | 09 09 73 74 72 61 69 67 |id);.int|..straig|
|000003b0| 68 74 5f 63 6f 70 79 28 | 76 6f 69 64 29 3b 0d 69 |ht_copy(|void);.i|
|000003c0| 6e 74 09 09 73 74 72 61 | 69 67 68 74 5f 49 5f 63 |nt..stra|ight_I_c|
|000003d0| 6f 70 79 28 76 6f 69 64 | 29 3b 0d 64 6f 75 62 6c |opy(void|);.doubl|
|000003e0| 65 09 6d 79 41 74 6f 66 | 28 63 68 61 72 09 2a 29 |e.myAtof|(char.*)|
|000003f0| 3b 0d 76 6f 69 64 09 63 | 68 65 63 6b 5f 65 76 65 |;.void.c|heck_eve|
|00000400| 6e 74 28 45 76 65 6e 74 | 20 2a 29 3b 0d 76 6f 69 |nt(Event| *);.voi|
|00000410| 64 09 77 72 69 74 65 32 | 5f 63 68 65 63 6b 28 45 |d.write2|_check(E|
|00000420| 76 65 6e 74 20 2a 29 3b | 0d 76 6f 69 64 09 63 68 |vent *);|.void.ch|
|00000430| 65 63 6b 5f 6c 69 73 74 | 28 45 76 65 6e 74 20 2a |eck_list|(Event *|
|00000440| 29 3b 0d 0d 46 49 4c 45 | 09 2a 70 32 6f 75 74 3b |);..FILE|.*p2out;|
|00000450| 0d 53 74 72 32 35 35 09 | 70 32 74 6d 70 3b 0d 69 |.Str255.|p2tmp;.i|
|00000460| 6e 74 09 09 74 65 6d 70 | 6f 5f 63 68 61 6e 67 65 |nt..temp|o_change|
|00000470| 3b 0d 73 74 61 74 69 63 | 09 69 6e 74 09 09 6c 69 |;.static|.int..li|
|00000480| 6e 65 6e 6f 3b 0d 73 74 | 61 74 69 63 09 69 6e 74 |neno;.st|atic.int|
|00000490| 09 09 6e 63 61 72 64 73 | 3b 0d 73 74 61 74 69 63 |..ncards|;.static|
|000004a0| 09 69 6e 74 09 09 6e 5f | 69 5f 63 61 72 64 73 3b |.int..n_|i_cards;|
|000004b0| 0d 73 74 61 74 69 63 09 | 69 6e 74 09 09 73 65 63 |.static.|int..sec|
|000004c0| 74 6e 6f 3b 0d 65 78 74 | 65 72 6e 09 64 6f 75 62 |tno;.ext|ern.doub|
|000004d0| 6c 65 09 73 72 61 74 65 | 3b 0d 73 74 61 74 69 63 |le.srate|;.static|
|000004e0| 09 63 68 61 72 09 09 63 | 61 72 64 5b 4d 41 58 43 |.char..c|ard[MAXC|
|000004f0| 41 52 44 5d 3b 0d 73 74 | 61 74 69 63 09 69 6e 74 |ARD];.st|atic.int|
|00000500| 09 09 6f 70 3b 0d 73 74 | 61 74 69 63 09 69 6e 74 |..op;.st|atic.int|
|00000510| 09 09 70 72 65 76 6f 70 | 3b 0d 73 74 61 74 69 63 |..prevop|;.static|
|00000520| 09 64 6f 75 62 6c 65 09 | 69 6e 73 74 72 5f 67 72 |.double.|instr_gr|
|00000530| 6f 75 70 3b 0d 73 74 61 | 74 69 63 09 69 6e 74 09 |oup;.sta|tic.int.|
|00000540| 09 70 72 65 76 69 6e 73 | 74 72 5f 67 72 6f 75 70 |.previns|tr_group|
|00000550| 3b 0d 73 74 61 74 69 63 | 09 69 6e 74 09 09 6e 61 |;.static|.int..na|
|00000560| 72 67 73 3b 0d 73 74 61 | 74 69 63 09 64 6f 75 62 |rgs;.sta|tic.doub|
|00000570| 6c 65 09 6c 61 74 65 73 | 74 5f 74 69 6d 65 3b 0d |le.lates|t_time;.|
|00000580| 73 74 61 74 69 63 09 64 | 6f 75 62 6c 65 09 70 61 |static.d|ouble.pa|
|00000590| 72 61 6d 73 5b 4d 41 58 | 50 41 52 41 4d 53 5d 3b |rams[MAX|PARAMS];|
|000005a0| 0d 64 6f 75 62 6c 65 09 | 2a 74 70 61 72 61 6d 73 |.double.|*tparams|
|000005b0| 5b 4d 41 58 5f 54 45 4d | 50 4f 5f 43 41 52 44 53 |[MAX_TEM|PO_CARDS|
|000005c0| 5d 3b 0d 69 6e 74 09 09 | 74 6f 74 61 6c 63 61 72 |];.int..|totalcar|
|000005d0| 64 73 3b 0d 69 6e 74 09 | 09 74 6f 74 61 6c 49 63 |ds;.int.|.totalIc|
|000005e0| 61 72 64 73 3b 0d 69 6e | 74 09 09 6e 5f 54 5f 63 |ards;.in|t..n_T_c|
|000005f0| 61 72 64 73 3b 0d 45 76 | 65 6e 74 09 20 2a 6c 69 |ards;.Ev|ent. *li|
|00000600| 73 74 3b 0d 65 78 74 65 | 72 6e 09 64 6f 75 62 6c |st;.exte|rn.doubl|
|00000610| 65 09 54 6f 74 61 6c 44 | 75 72 61 74 69 6f 6e 3b |e.TotalD|uration;|
|00000620| 0d 65 78 74 65 72 6e 09 | 69 6e 74 09 6d 61 78 5f |.extern.|int.max_|
|00000630| 69 6e 73 5f 74 79 70 65 | 73 3b 0d 4f 53 45 72 72 |ins_type|s;.OSErr|
|00000640| 09 65 72 72 6e 75 6d 3b | 0d 73 74 61 74 69 63 09 |.errnum;|.static.|
|00000650| 42 6f 6f 6c 65 61 6e 09 | 45 63 61 72 64 52 65 61 |Boolean.|EcardRea|
|00000660| 64 3b 0d 63 68 61 72 09 | 09 61 53 74 72 69 6e 67 |d;.char.|.aString|
|00000670| 31 5b 32 35 36 5d 3b 0d | 63 68 61 72 09 09 61 53 |1[256];.|char..aS|
|00000680| 74 72 69 6e 67 32 5b 32 | 35 36 5d 3b 0d 0d 65 78 |tring2[2|56];..ex|
|00000690| 74 65 72 6e 09 53 74 72 | 32 35 35 09 74 68 65 4d |tern.Str|255.theM|
|000006a0| 65 73 73 31 2c 20 74 68 | 65 4d 65 73 73 32 3b 0d |ess1, th|eMess2;.|
|000006b0| 64 6f 75 62 6c 65 09 61 | 74 6f 66 28 29 3b 0d 0d |double.a|tof();..|
|000006c0| 76 6f 69 64 09 70 72 65 | 70 61 72 65 5f 73 63 6f |void.pre|pare_sco|
|000006d0| 72 65 28 76 6f 69 64 29 | 3b 0d 65 78 74 65 72 6e |re(void)|;.extern|
|000006e0| 09 76 6f 69 64 09 50 63 | 68 65 63 6b 5f 6c 69 73 |.void.Pc|heck_lis|
|000006f0| 74 28 45 76 65 6e 74 20 | 2a 29 3b 0d 0d 42 6f 6f |t(Event |*);..Boo|
|00000700| 6c 65 61 6e 09 09 46 69 | 6c 65 46 69 6e 69 73 68 |lean..Fi|leFinish|
|00000710| 65 64 3b 0d 0d 76 6f 69 | 64 09 70 72 65 70 61 72 |ed;..voi|d.prepar|
|00000720| 65 5f 73 63 6f 72 65 28 | 29 0d 7b 0d 0d 09 72 65 |e_score(|).{...re|
|00000730| 67 69 73 74 65 72 20 69 | 6e 74 20 69 3b 0d 09 65 |gister i|nt i;..e|
|00000740| 78 74 65 72 6e 09 69 6e | 74 09 6f 75 74 31 5f 66 |xtern.in|t.out1_f|
|00000750| 6c 61 67 2c 20 6f 75 74 | 32 5f 66 6c 61 67 3b 0d |lag, out|2_flag;.|
|00000760| 09 65 78 74 65 72 6e 09 | 69 6e 74 09 52 75 6e 54 |.extern.|int.RunT|
|00000770| 6f 50 61 73 73 31 2c 20 | 52 75 6e 54 6f 50 61 73 |oPass1, |RunToPas|
|00000780| 73 32 2c 20 52 75 6e 54 | 6f 50 61 73 73 33 2c 20 |s2, RunT|oPass3, |
|00000790| 43 72 65 61 74 65 53 6f | 75 6e 64 46 69 6c 65 3b |CreateSo|undFile;|
|000007a0| 0d 09 6c 6f 6e 67 09 09 | 66 54 69 63 6b 73 3b 0d |..long..|fTicks;.|
|000007b0| 0d 0d 09 6c 69 6e 65 6e | 6f 20 3d 20 31 3b 0d 09 |...linen|o = 1;..|
|000007c0| 6e 63 61 72 64 73 20 3d | 20 30 3b 0d 09 74 6f 74 |ncards =| 0;..tot|
|000007d0| 61 6c 63 61 72 64 73 20 | 3d 20 30 3b 0d 09 74 6f |alcards |= 0;..to|
|000007e0| 74 61 6c 49 63 61 72 64 | 73 20 3d 20 30 3b 0d 09 |talIcard|s = 0;..|
|000007f0| 54 6f 74 61 6c 44 75 72 | 61 74 69 6f 6e 20 3d 20 |TotalDur|ation = |
|00000800| 30 2e 30 3b 0d 09 6c 69 | 73 74 20 3d 20 4e 49 4c |0.0;..li|st = NIL|
|00000810| 3b 0d 09 73 65 63 74 6e | 6f 20 3d 20 31 3b 0d 09 |;..sectn|o = 1;..|
|00000820| 6d 61 78 5f 69 6e 73 5f | 74 79 70 65 73 20 3d 20 |max_ins_|types = |
|00000830| 30 3b 0d 09 6c 61 74 65 | 73 74 5f 74 69 6d 65 20 |0;..late|st_time |
|00000840| 3d 20 30 2e 30 3b 0d 09 | 45 63 61 72 64 52 65 61 |= 0.0;..|EcardRea|
|00000850| 64 20 3d 20 46 41 4c 53 | 45 3b 0d 0d 09 69 66 20 |d = FALS|E;...if |
|00000860| 28 20 52 75 6e 54 6f 50 | 61 73 73 32 20 7c 7c 20 |( RunToP|ass2 || |
|00000870| 52 75 6e 54 6f 50 61 73 | 73 33 20 7c 7c 20 43 72 |RunToPas|s3 || Cr|
|00000880| 65 61 74 65 53 6f 75 6e | 64 46 69 6c 65 29 20 7b |eateSoun|dFile) {|
|00000890| 20 2f 2a 20 6f 70 65 6e | 20 70 61 73 73 32 20 6f | /* open| pass2 o|
|000008a0| 75 74 20 66 69 6c 65 20 | 2a 2f 0d 09 09 44 65 6c |ut file |*/...Del|
|000008b0| 61 79 28 30 4c 2c 20 26 | 66 54 69 63 6b 73 29 3b |ay(0L, &|fTicks);|
|000008c0| 0d 09 09 4e 75 6d 54 6f | 53 74 72 69 6e 67 28 66 |...NumTo|String(f|
|000008d0| 54 69 63 6b 73 2c 20 26 | 61 53 74 72 69 6e 67 31 |Ticks, &|aString1|
|000008e0| 29 3b 0d 09 09 50 74 6f | 43 73 74 72 28 28 63 68 |);...Pto|Cstr((ch|
|000008f0| 61 72 20 2a 29 61 53 74 | 72 69 6e 67 31 29 3b 0d |ar *)aSt|ring1);.|
|00000900| 09 09 73 74 72 63 70 79 | 28 28 63 68 61 72 20 2a |..strcpy|((char *|
|00000910| 29 70 32 74 6d 70 2c 20 | 22 2d 70 32 74 6d 70 2e |)p2tmp, |"-p2tmp.|
|00000920| 22 29 3b 0d 09 09 73 74 | 72 63 61 74 28 28 63 68 |");...st|rcat((ch|
|00000930| 61 72 20 2a 29 70 32 74 | 6d 70 2c 20 61 53 74 72 |ar *)p2t|mp, aStr|
|00000940| 69 6e 67 31 29 3b 0d 09 | 09 70 32 6f 75 74 20 3d |ing1);..|.p2out =|
|00000950| 20 66 6f 70 65 6e 28 28 | 63 68 61 72 20 2a 29 70 | fopen((|char *)p|
|00000960| 32 74 6d 70 2c 20 22 77 | 2b 22 29 3b 0d 09 7d 0d |2tmp, "w|+");..}.|
|00000970| 09 46 69 6c 65 46 69 6e | 69 73 68 65 64 20 3d 20 |.FileFin|ished = |
|00000980| 46 41 4c 53 45 3b 0d 09 | 77 68 69 6c 65 20 28 20 |FALSE;..|while ( |
|00000990| 21 46 69 6c 65 46 69 6e | 69 73 68 65 64 20 29 20 |!FileFin|ished ) |
|000009a0| 7b 0d 09 09 74 65 6d 70 | 6f 5f 63 68 61 6e 67 65 |{...temp|o_change|
|000009b0| 20 3d 20 30 3b 0d 09 09 | 6e 5f 54 5f 63 61 72 64 | = 0;...|n_T_card|
|000009c0| 73 20 3d 20 30 3b 0d 09 | 09 77 68 69 6c 65 20 28 |s = 0;..|.while (|
|000009d0| 20 6e 63 61 72 64 73 20 | 3d 20 72 65 61 64 5f 73 | ncards |= read_s|
|000009e0| 65 63 74 69 6f 6e 28 29 | 20 29 20 7b 0d 09 09 09 |ection()| ) {....|
|000009f0| 69 66 20 28 20 6f 75 74 | 31 5f 66 6c 61 67 20 29 |if ( out|1_flag )|
|00000a00| 20 7b 0d 09 09 09 09 73 | 70 72 69 6e 74 66 28 28 | {.....s|printf((|
|00000a10| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 2c |char *)t|heMess1,|
|00000a20| 20 22 45 6e 64 20 50 61 | 73 73 31 20 6f 66 20 53 | "End Pa|ss1 of S|
|00000a30| 65 63 74 69 6f 6e 20 25 | 64 5c 6e 22 2c 20 73 65 |ection %|d\n", se|
|00000a40| 63 74 6e 6f 29 3b 0d 09 | 09 09 09 52 65 70 6f 72 |ctno);..|...Repor|
|00000a50| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00000a60| 73 31 29 3b 0d 09 09 09 | 09 52 65 70 6f 72 74 28 |s1);....|.Report(|
|00000a70| 22 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"-------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 5c | 6e 22 29 3b 0d 09 09 09 |-------\|n");....|
|00000aa0| 7d 0d 09 09 09 74 6f 74 | 61 6c 63 61 72 64 73 20 |}....tot|alcards |
|00000ab0| 2b 3d 20 6e 63 61 72 64 | 73 3b 0d 09 09 09 69 66 |+= ncard|s;....if|
|00000ac0| 20 28 20 6f 75 74 32 5f | 66 6c 61 67 20 29 20 7b | ( out2_|flag ) {|
|00000ad0| 0d 09 09 09 09 73 70 72 | 69 6e 74 66 28 28 63 68 |.....spr|intf((ch|
|00000ae0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 20 22 |ar *)the|Mess1, "|
|00000af0| 50 61 73 73 32 20 6f 75 | 74 70 75 74 20 73 63 6f |Pass2 ou|tput sco|
|00000b00| 72 65 20 66 6f 72 20 53 | 65 63 74 69 6f 6e 20 4e |re for S|ection N|
|00000b10| 6f 2e 20 25 64 5c 6e 22 | 2c 20 73 65 63 74 6e 6f |o. %d\n"|, sectno|
|00000b20| 29 3b 0d 09 09 09 09 52 | 65 70 6f 72 74 28 28 63 |);.....R|eport((c|
|00000b30| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|00000b40| 0d 09 09 09 7d 0d 09 09 | 09 69 66 20 28 20 52 75 |....}...|.if ( Ru|
|00000b50| 6e 54 6f 50 61 73 73 32 | 20 7c 7c 20 52 75 6e 54 |nToPass2| || RunT|
|00000b60| 6f 50 61 73 73 33 20 7c | 7c 20 43 72 65 61 74 65 |oPass3 ||| Create|
|00000b70| 53 6f 75 6e 64 46 69 6c | 65 29 20 7b 0d 09 09 09 |SoundFil|e) {....|
|00000b80| 09 69 66 20 28 20 74 65 | 6d 70 6f 5f 63 68 61 6e |.if ( te|mpo_chan|
|00000b90| 67 65 20 26 26 20 6e 63 | 61 72 64 73 20 3e 3d 20 |ge && nc|ards >= |
|00000ba0| 32 20 29 20 7b 0d 09 09 | 09 09 09 66 6f 72 20 28 |2 ) {...|...for (|
|00000bb0| 20 69 20 3d 20 30 3b 20 | 69 20 3c 20 6e 5f 54 5f | i = 0; |i < n_T_|
|00000bc0| 63 61 72 64 73 3b 20 69 | 2b 2b 29 20 7b 0d 09 09 |cards; i|++) {...|
|00000bd0| 09 09 09 09 6c 69 73 74 | 20 3d 20 77 61 72 70 5f |....list| = warp_|
|00000be0| 74 65 6d 70 6f 28 74 70 | 61 72 61 6d 73 5b 69 5d |tempo(tp|arams[i]|
|00000bf0| 2c 20 6c 69 73 74 29 3b | 0d 09 09 09 09 09 7d 0d |, list);|......}.|
|00000c00| 09 09 09 09 7d 0d 09 09 | 09 09 69 66 20 28 20 6e |....}...|..if ( n|
|00000c10| 63 61 72 64 73 20 3e 3d | 20 32 20 29 20 7b 0d 09 |cards >=| 2 ) {..|
|00000c20| 09 09 09 09 72 65 6e 75 | 6d 62 65 72 28 6c 69 73 |....renu|mber(lis|
|00000c30| 74 29 3b 0d 09 09 09 09 | 7d 0d 09 09 09 09 61 64 |t);.....|}.....ad|
|00000c40| 64 5f 65 6e 64 5f 6f 70 | 73 28 6c 69 73 74 29 3b |d_end_op|s(list);|
|00000c50| 0d 09 09 09 09 69 66 20 | 28 20 6f 75 74 32 5f 66 |.....if |( out2_f|
|00000c60| 6c 61 67 20 29 0d 09 09 | 09 09 09 72 65 70 6f 72 |lag )...|...repor|
|00000c70| 74 32 28 6c 69 73 74 29 | 3b 0d 09 09 09 09 66 77 |t2(list)|;.....fw|
|00000c80| 72 69 74 65 32 28 6c 69 | 73 74 29 3b 0d 09 09 09 |rite2(li|st);....|
|00000c90| 09 69 66 20 28 20 6f 75 | 74 32 5f 66 6c 61 67 20 |.if ( ou|t2_flag |
|00000ca0| 29 20 7b 0d 09 09 09 09 | 09 73 70 72 69 6e 74 66 |) {.....|.sprintf|
|00000cb0| 28 28 63 68 61 72 20 2a | 29 74 68 65 4d 65 73 73 |((char *|)theMess|
|00000cc0| 31 2c 20 22 45 6e 64 20 | 50 61 73 73 32 20 6f 66 |1, "End |Pass2 of|
|00000cd0| 20 53 65 63 74 69 6f 6e | 20 25 64 5c 6e 22 2c 20 | Section| %d\n", |
|00000ce0| 73 65 63 74 6e 6f 29 3b | 0d 09 09 09 09 09 52 65 |sectno);|......Re|
|00000cf0| 70 6f 72 74 28 28 63 68 | 61 72 20 2a 29 74 68 65 |port((ch|ar *)the|
|00000d00| 4d 65 73 73 31 29 3b 0d | 09 09 09 09 09 52 65 70 |Mess1);.|.....Rep|
|00000d10| 6f 72 74 28 22 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ort("---|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 5c 6e 22 29 3b |--------|---\n");|
|00000d40| 0d 09 09 09 09 7d 0d 09 | 09 09 09 4d 41 43 5f 43 |.....}..|...MAC_C|
|00000d50| 68 65 63 6b 5f 50 61 73 | 73 31 32 5f 45 76 65 6e |heck_Pas|s12_Even|
|00000d60| 74 73 28 32 2c 20 73 65 | 63 74 6e 6f 29 3b 0d 09 |ts(2, se|ctno);..|
|00000d70| 09 09 7d 0d 09 09 09 6c | 69 73 74 20 3d 20 4e 49 |..}....l|ist = NI|
|00000d80| 4c 3b 0d 09 09 09 66 6f | 72 20 28 20 69 20 3d 20 |L;....fo|r ( i = |
|00000d90| 30 3b 20 69 20 3c 20 6e | 5f 54 5f 63 61 72 64 73 |0; i < n|_T_cards|
|00000da0| 3b 20 69 2b 2b 29 0d 09 | 09 09 09 44 69 73 70 6f |; i++)..|...Dispo|
|00000db0| 73 50 74 72 28 28 50 74 | 72 29 74 70 61 72 61 6d |sPtr((Pt|r)tparam|
|00000dc0| 73 5b 69 5d 29 3b 0d 09 | 09 09 6e 5f 54 5f 63 61 |s[i]);..|..n_T_ca|
|00000dd0| 72 64 73 20 3d 20 30 3b | 0d 09 09 09 73 65 63 74 |rds = 0;|....sect|
|00000de0| 6e 6f 2b 2b 3b 0d 09 09 | 7d 0d 09 7d 0d 09 69 66 |no++;...|}..}..if|
|00000df0| 20 28 21 45 63 61 72 64 | 52 65 61 64 29 20 7b 0d | (!Ecard|Read) {.|
|00000e00| 09 09 50 73 74 72 69 6e | 67 43 6f 70 79 28 28 63 |..Pstrin|gCopy((c|
|00000e10| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 2c 20 |har *)th|eMess1, |
|00000e20| 22 5c 70 4e 6f 20 65 6e | 64 20 63 61 72 64 20 69 |"\pNo en|d card i|
|00000e30| 6e 20 69 6e 70 75 74 20 | 66 69 6c 65 22 29 3b 0d |n input |file");.|
|00000e40| 09 09 4f 53 45 72 72 6f | 72 28 74 68 65 4d 65 73 |..OSErro|r(theMes|
|00000e50| 73 31 2c 20 4e 49 4c 2c | 20 4e 49 4c 29 3b 0d 09 |s1, NIL,| NIL);..|
|00000e60| 7d 0d 7d 09 2f 2a 20 70 | 72 65 70 61 72 65 5f 73 |}.}./* p|repare_s|
|00000e70| 63 6f 72 65 20 2a 2f 0d | 0d 0d 72 65 61 64 5f 73 |core */.|..read_s|
|00000e80| 65 63 74 69 6f 6e 28 29 | 0d 7b 0d 09 69 6e 74 20 |ection()|.{..int |
|00000e90| 6b 3b 0d 09 42 6f 6f 6c | 65 61 6e 09 4e 65 77 53 |k;..Bool|ean.NewS|
|00000ea0| 65 63 74 69 6f 6e 3b 0d | 09 65 78 74 65 72 6e 09 |ection;.|.extern.|
|00000eb0| 69 6e 74 09 6f 75 74 31 | 5f 66 6c 61 67 3b 0d 09 |int.out1|_flag;..|
|00000ec0| 65 78 74 65 72 6e 09 69 | 6e 74 09 52 75 6e 54 6f |extern.i|nt.RunTo|
|00000ed0| 50 61 73 73 31 3b 0d 0d | 09 63 61 72 64 5b 30 5d |Pass1;..|.card[0]|
|00000ee0| 20 3d 20 27 5c 30 27 3b | 0d 09 69 6e 73 74 72 5f | = '\0';|..instr_|
|00000ef0| 67 72 6f 75 70 20 3d 20 | 30 2e 30 3b 0d 09 70 72 |group = |0.0;..pr|
|00000f00| 65 76 69 6e 73 74 72 5f | 67 72 6f 75 70 20 3d 20 |evinstr_|group = |
|00000f10| 30 3b 0d 09 70 72 65 76 | 6f 70 20 3d 20 30 3b 0d |0;..prev|op = 0;.|
|00000f20| 09 6e 5f 69 5f 63 61 72 | 64 73 20 3d 20 30 3b 0d |.n_i_car|ds = 0;.|
|00000f30| 09 6e 63 61 72 64 73 20 | 3d 20 30 3b 0d 09 4e 65 |.ncards |= 0;..Ne|
|00000f40| 77 53 65 63 74 69 6f 6e | 20 3d 20 54 52 55 45 3b |wSection| = TRUE;|
|00000f50| 0d 09 0d 09 77 68 69 6c | 65 20 28 20 28 6b 20 3d |....whil|e ( (k =|
|00000f60| 20 67 65 74 63 61 72 64 | 28 29 29 29 20 7b 0d 09 | getcard|())) {..|
|00000f70| 09 69 66 20 28 20 6f 75 | 74 31 5f 66 6c 61 67 20 |.if ( ou|t1_flag |
|00000f80| 26 26 20 09 4e 65 77 53 | 65 63 74 69 6f 6e 29 20 |&& .NewS|ection) |
|00000f90| 7b 0d 09 09 09 4e 65 77 | 53 65 63 74 69 6f 6e 20 |{....New|Section |
|00000fa0| 3d 20 46 41 4c 53 45 3b | 0d 09 09 09 73 70 72 69 |= FALSE;|....spri|
|00000fb0| 6e 74 66 28 28 63 68 61 | 72 20 2a 29 74 68 65 4d |ntf((cha|r *)theM|
|00000fc0| 65 73 73 31 2c 20 22 50 | 61 73 73 31 20 6f 75 74 |ess1, "P|ass1 out|
|00000fd0| 70 75 74 20 66 6f 72 20 | 53 65 63 74 69 6f 6e 20 |put for |Section |
|00000fe0| 25 64 5c 6e 22 2c 20 73 | 65 63 74 6e 6f 29 3b 0d |%d\n", s|ectno);.|
|00000ff0| 09 09 09 52 65 70 6f 72 | 74 28 28 63 68 61 72 20 |...Repor|t((char |
|00001000| 2a 29 74 68 65 4d 65 73 | 73 31 29 3b 0d 09 09 7d |*)theMes|s1);...}|
|00001010| 0d 09 09 6e 63 61 72 64 | 73 2b 2b 3b 0d 09 09 70 |...ncard|s++;...p|
|00001020| 61 72 73 65 5f 63 61 72 | 64 28 29 3b 0d 09 09 69 |arse_car|d();...i|
|00001030| 66 20 28 20 6f 75 74 31 | 5f 66 6c 61 67 20 29 0d |f ( out1|_flag ).|
|00001040| 09 09 09 72 65 70 6f 72 | 74 31 28 6f 70 2c 20 63 |...repor|t1(op, c|
|00001050| 61 72 64 2c 20 70 61 72 | 61 6d 73 29 3b 0d 09 09 |ard, par|ams);...|
|00001060| 69 66 20 28 20 21 52 75 | 6e 54 6f 50 61 73 73 31 |if ( !Ru|nToPass1|
|00001070| 20 29 20 7b 0d 09 09 09 | 69 66 20 28 20 6f 70 20 | ) {....|if ( op |
|00001080| 3d 3d 20 46 4f 50 20 7c | 7c 20 6f 70 20 3d 3d 20 |== FOP ||| op == |
|00001090| 49 4f 50 20 7c 7c 20 6f | 70 20 3d 3d 20 53 4f 50 |IOP || o|p == SOP|
|000010a0| 20 7c 7c 20 6f 70 20 3d | 3d 20 45 4f 50 29 0d 09 | || op =|= EOP)..|
|000010b0| 09 09 09 09 6c 69 73 74 | 20 3d 20 69 6e 73 65 72 |....list| = inser|
|000010c0| 74 5f 69 6e 5f 6c 69 73 | 74 28 6f 70 2c 20 6e 61 |t_in_lis|t(op, na|
|000010d0| 72 67 73 2c 20 70 61 72 | 61 6d 73 2c 20 6c 69 73 |rgs, par|ams, lis|
|000010e0| 74 29 3b 0d 09 09 7d 0d | 09 09 70 72 65 76 6f 70 |t);...}.|..prevop|
|000010f0| 20 3d 20 6f 70 3b 0d 09 | 09 69 66 20 28 20 6f 70 | = op;..|.if ( op|
|00001100| 20 3d 3d 20 53 4f 50 20 | 7c 7c 20 6f 70 20 3d 3d | == SOP ||| op ==|
|00001110| 20 45 4f 50 20 29 0d 09 | 09 09 62 72 65 61 6b 3b | EOP )..|..break;|
|00001120| 0d 09 09 4d 41 43 5f 43 | 68 65 63 6b 5f 50 61 73 |...MAC_C|heck_Pas|
|00001130| 73 31 32 5f 45 76 65 6e | 74 73 28 31 2c 20 73 65 |s12_Even|ts(1, se|
|00001140| 63 74 6e 6f 29 3b 0d 09 | 7d 0d 09 74 6f 74 61 6c |ctno);..|}..total|
|00001150| 49 63 61 72 64 73 20 2b | 3d 20 6e 5f 69 5f 63 61 |Icards +|= n_i_ca|
|00001160| 72 64 73 3b 0d 09 72 65 | 74 75 72 6e 28 6e 63 61 |rds;..re|turn(nca|
|00001170| 72 64 73 29 3b 0d 7d 0d | 0d 0d 42 6f 6f 6c 65 61 |rds);.}.|..Boolea|
|00001180| 6e 09 67 65 74 63 61 72 | 64 28 29 0d 7b 0d 09 63 |n.getcar|d().{..c|
|00001190| 68 61 72 09 62 75 66 66 | 65 72 5b 31 5d 3b 0d 09 |har.buff|er[1];..|
|000011a0| 63 68 61 72 09 2a 63 70 | 3b 0d 09 69 6e 74 09 09 |char.*cp|;..int..|
|000011b0| 63 68 3b 0d 09 4f 53 45 | 72 72 09 74 68 65 45 72 |ch;..OSE|rr.theEr|
|000011c0| 72 3b 0d 09 72 65 67 69 | 73 74 65 72 09 69 6e 74 |r;..regi|ster.int|
|000011d0| 09 69 3b 0d 09 65 78 74 | 65 72 6e 09 09 69 6e 74 |.i;..ext|ern..int|
|000011e0| 09 73 63 6f 72 65 52 65 | 66 4e 75 6d 3b 0d 09 6c |.scoreRe|fNum;..l|
|000011f0| 6f 6e 67 09 09 63 6f 75 | 6e 74 3b 0d 0d 09 63 61 |ong..cou|nt;...ca|
|00001200| 72 64 5b 30 5d 20 3d 20 | 27 5c 30 27 3b 0d 09 69 |rd[0] = |'\0';..i|
|00001210| 20 3d 20 30 3b 0d 09 63 | 70 20 3d 20 63 61 72 64 | = 0;..c|p = card|
|00001220| 3b 0d 09 63 6f 75 6e 74 | 20 3d 20 31 4c 3b 0d 09 |;..count| = 1L;..|
|00001230| 77 68 69 6c 65 28 20 28 | 74 68 65 45 72 72 20 3d |while( (|theErr =|
|00001240| 20 46 53 52 65 61 64 28 | 73 63 6f 72 65 52 65 66 | FSRead(|scoreRef|
|00001250| 4e 75 6d 2c 20 26 63 6f | 75 6e 74 2c 20 26 62 75 |Num, &co|unt, &bu|
|00001260| 66 66 65 72 29 29 20 3d | 3d 20 6e 6f 45 72 72 29 |ffer)) =|= noErr)|
|00001270| 20 7b 0d 09 09 69 66 20 | 28 20 2a 62 75 66 66 65 | {...if |( *buffe|
|00001280| 72 20 20 3d 3d 20 27 3b | 27 20 29 0d 09 09 09 62 |r == ';|' )....b|
|00001290| 72 65 61 6b 3b 0d 09 09 | 69 66 20 28 74 68 65 45 |reak;...|if (theE|
|000012a0| 72 72 20 3d 3d 20 65 6f | 66 45 72 72 20 7c 7c 20 |rr == eo|fErr || |
|000012b0| 63 6f 75 6e 74 20 3d 3d | 20 30 4c 20 29 20 7b 0d |count ==| 0L ) {.|
|000012c0| 09 09 09 46 69 6c 65 46 | 69 6e 69 73 68 65 64 20 |...FileF|inished |
|000012d0| 3d 20 54 52 55 45 3b 0d | 09 09 09 62 72 65 61 6b |= TRUE;.|...break|
|000012e0| 3b 0d 09 09 7d 0d 0d 09 | 09 2a 63 70 20 3d 20 62 |;...}...|.*cp = b|
|000012f0| 75 66 66 65 72 5b 30 5d | 3b 0d 09 09 69 66 20 28 |uffer[0]|;...if (|
|00001300| 20 2a 63 70 20 3d 3d 20 | 27 3b 27 29 0d 09 09 09 | *cp == |';')....|
|00001310| 62 72 65 61 6b 3b 0d 09 | 09 69 66 20 28 20 69 73 |break;..|.if ( is|
|00001320| 73 70 61 63 65 28 2a 63 | 70 29 20 29 7b 0d 09 09 |space(*c|p) ){...|
|00001330| 09 69 66 20 28 20 2a 63 | 70 20 3d 3d 20 27 5c 6e |.if ( *c|p == '\n|
|00001340| 27 20 7c 7c 20 2a 63 70 | 20 3d 3d 20 27 5c 72 27 |' || *cp| == '\r'|
|00001350| 20 20 29 20 7b 0d 09 09 | 09 09 2b 2b 6c 69 6e 65 | ) {...|..++line|
|00001360| 6e 6f 3b 0d 09 09 09 09 | 69 66 20 28 20 69 20 3d |no;.....|if ( i =|
|00001370| 3d 20 30 20 29 20 7b 20 | 2f 2a 20 73 74 61 72 74 |= 0 ) { |/* start|
|00001380| 20 6f 66 20 63 61 72 64 | 20 2a 2f 0d 09 09 09 09 | of card| */.....|
|00001390| 09 2a 63 70 20 3d 20 27 | 5c 30 27 3b 0d 09 09 09 |.*cp = '|\0';....|
|000013a0| 09 7d 0d 09 09 09 09 65 | 6c 73 65 20 7b 09 09 2f |.}.....e|lse {../|
|000013b0| 2a 20 69 6e 20 61 20 63 | 61 72 64 20 2a 2f 0d 09 |* in a c|ard */..|
|000013c0| 09 09 09 09 2a 63 70 2b | 2b 20 3d 20 27 20 27 3b |....*cp+|+ = ' ';|
|000013d0| 0d 09 09 09 09 09 69 2b | 2b 3b 0d 09 09 09 09 7d |......i+|+;.....}|
|000013e0| 0d 09 09 09 7d 0d 09 09 | 09 65 6c 73 65 20 7b 0d |....}...|.else {.|
|000013f0| 09 09 09 09 69 66 20 28 | 20 69 20 3d 3d 20 30 20 |....if (| i == 0 |
|00001400| 29 20 2f 2a 20 73 74 61 | 72 74 20 6f 66 20 63 61 |) /* sta|rt of ca|
|00001410| 72 64 20 2a 2f 0d 09 09 | 09 09 09 2a 63 70 20 3d |rd */...|...*cp =|
|00001420| 20 27 5c 30 27 3b 0d 09 | 09 09 09 65 6c 73 65 20 | '\0';..|...else |
|00001430| 7b 0d 09 09 09 09 09 63 | 70 2b 2b 3b 0d 09 09 09 |{......c|p++;....|
|00001440| 09 09 69 2b 2b 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |..i++;..|...}....|
|00001450| 7d 0d 09 09 7d 0d 09 09 | 65 6c 73 65 20 7b 20 2f |}...}...|else { /|
|00001460| 2a 20 6e 6f 74 20 61 20 | 73 70 61 63 65 20 2a 2f |* not a |space */|
|00001470| 0d 09 09 09 63 70 2b 2b | 3b 0d 09 09 09 69 2b 2b |....cp++|;....i++|
|00001480| 3b 0d 09 09 7d 0d 09 09 | 69 66 20 28 20 69 20 3e |;...}...|if ( i >|
|00001490| 3d 20 4d 41 58 43 41 52 | 44 20 29 20 7b 0d 09 09 |= MAXCAR|D ) {...|
|000014a0| 09 50 73 74 72 69 6e 67 | 43 6f 70 79 28 28 63 68 |.Pstring|Copy((ch|
|000014b0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 20 22 |ar *)the|Mess1, "|
|000014c0| 5c 70 41 6e 20 69 6e 70 | 75 74 20 6c 69 6e 65 20 |\pAn inp|ut line |
|000014d0| 69 73 20 74 6f 6f 20 6c | 6f 6e 67 2c 20 63 68 65 |is too l|ong, che|
|000014e0| 63 6b 20 66 6f 72 20 6f | 6d 69 74 74 65 64 20 72 |ck for o|mitted r|
|000014f0| 65 63 6f 72 64 20 74 65 | 6d 69 6e 61 74 6f 72 20 |ecord te|minator |
|00001500| 27 3b 27 22 29 3b 0d 09 | 09 09 4f 53 45 72 72 6f |';'");..|..OSErro|
|00001510| 72 28 74 68 65 4d 65 73 | 73 31 2c 20 4e 49 4c 2c |r(theMes|s1, NIL,|
|00001520| 20 4e 49 4c 29 3b 0d 09 | 09 7d 0d 09 7d 0d 09 2a | NIL);..|.}..}..*|
|00001530| 63 70 20 3d 20 27 5c 30 | 27 3b 0d 09 69 66 20 28 |cp = '\0|';..if (|
|00001540| 20 69 73 75 70 70 65 72 | 28 63 61 72 64 5b 30 5d | isupper|(card[0]|
|00001550| 29 20 29 0d 09 09 63 61 | 72 64 5b 30 5d 20 2b 3d |) )...ca|rd[0] +=|
|00001560| 20 30 78 32 30 3b 0d 09 | 69 66 20 28 20 63 61 72 | 0x20;..|if ( car|
|00001570| 64 5b 30 5d 20 3d 3d 20 | 27 5c 30 27 20 7c 7c 20 |d[0] == |'\0' || |
|00001580| 74 68 65 45 72 72 20 3d | 3d 20 65 6f 66 45 72 72 |theErr =|= eofErr|
|00001590| 20 7c 7c 20 63 6f 75 6e | 74 20 3d 3d 20 30 4c 20 | || coun|t == 0L |
|000015a0| 29 20 7b 0d 09 09 46 69 | 6c 65 46 69 6e 69 73 68 |) {...Fi|leFinish|
|000015b0| 65 64 20 3d 20 54 52 55 | 45 3b 0d 09 09 72 65 74 |ed = TRU|E;...ret|
|000015c0| 75 72 6e 28 46 41 4c 53 | 45 29 3b 0d 09 7d 0d 09 |urn(FALS|E);..}..|
|000015d0| 65 6c 73 65 20 7b 0d 09 | 09 72 65 74 75 72 6e 28 |else {..|.return(|
|000015e0| 54 52 55 45 29 3b 0d 09 | 7d 0d 7d 09 2f 2a 20 67 |TRUE);..|}.}./* g|
|000015f0| 65 74 63 61 72 64 20 2a | 2f 0d 0d 0d 76 6f 69 64 |etcard *|/...void|
|00001600| 20 70 61 72 73 65 5f 63 | 61 72 64 28 29 0d 7b 0d | parse_c|ard().{.|
|00001610| 09 0d 09 72 65 67 69 73 | 74 65 72 09 69 6e 74 09 |...regis|ter.int.|
|00001620| 69 3b 0d 09 65 78 74 65 | 72 6e 09 69 6e 74 09 6e |i;..exte|rn.int.n|
|00001630| 63 68 6e 6c 73 3b 0d 09 | 65 78 74 65 72 6e 09 64 |chnls;..|extern.d|
|00001640| 6f 75 62 6c 65 09 72 65 | 73 63 61 6c 69 6e 67 43 |ouble.re|scalingC|
|00001650| 6f 6e 73 74 3b 0d 09 69 | 66 20 28 21 69 73 61 6c |onst;..i|f (!isal|
|00001660| 70 68 61 28 63 61 72 64 | 5b 30 5d 29 29 20 7b 0d |pha(card|[0])) {.|
|00001670| 09 09 73 70 72 69 6e 74 | 66 28 28 63 68 61 72 20 |..sprint|f((char |
|00001680| 2a 29 74 68 65 4d 65 73 | 73 31 2c 20 22 4f 70 63 |*)theMes|s1, "Opc|
|00001690| 6f 64 65 20 65 72 72 6f | 72 20 6f 6e 20 6c 69 6e |ode erro|r on lin|
|000016a0| 65 20 25 64 22 2c 20 6c | 69 6e 65 6e 6f 29 3b 0d |e %d", l|ineno);.|
|000016b0| 09 09 4f 53 45 72 72 6f | 72 28 74 68 65 4d 65 73 |..OSErro|r(theMes|
|000016c0| 73 31 2c 20 4e 49 4c 2c | 20 4e 49 4c 20 29 3b 0d |s1, NIL,| NIL );.|
|000016d0| 09 7d 0d 0d 09 73 77 69 | 74 63 68 28 20 63 61 72 |.}...swi|tch( car|
|000016e0| 64 5b 30 5d 20 29 20 7b | 0d 09 09 63 61 73 65 20 |d[0] ) {|...case |
|000016f0| 27 69 27 3a 0d 09 09 63 | 61 73 65 20 27 49 27 3a |'i':...c|ase 'I':|
|00001700| 0d 09 09 09 6f 70 20 3d | 20 49 4f 50 3b 0d 09 09 |....op =| IOP;...|
|00001710| 09 6e 61 72 67 73 20 3d | 20 64 65 63 6f 64 65 28 |.nargs =| decode(|
|00001720| 29 3b 0d 09 09 09 69 6e | 73 74 72 5f 67 72 6f 75 |);....in|str_grou|
|00001730| 70 20 3d 20 70 61 72 61 | 6d 73 5b 30 5d 3b 0d 09 |p = para|ms[0];..|
|00001740| 09 09 70 72 65 76 69 6e | 73 74 72 5f 67 72 6f 75 |..previn|str_grou|
|00001750| 70 20 3d 20 28 69 6e 74 | 29 69 6e 73 74 72 5f 67 |p = (int|)instr_g|
|00001760| 72 6f 75 70 3b 0d 09 09 | 09 6e 5f 69 5f 63 61 72 |roup;...|.n_i_car|
|00001770| 64 73 2b 2b 3b 0d 09 09 | 09 69 66 20 28 20 69 6e |ds++;...|.if ( in|
|00001780| 73 74 72 5f 67 72 6f 75 | 70 20 3e 20 6d 61 78 5f |str_grou|p > max_|
|00001790| 69 6e 73 5f 74 79 70 65 | 73 20 29 0d 09 09 09 09 |ins_type|s ).....|
|000017a0| 6d 61 78 5f 69 6e 73 5f | 74 79 70 65 73 20 3d 20 |max_ins_|types = |
|000017b0| 69 6e 73 74 72 5f 67 72 | 6f 75 70 3b 0d 09 09 09 |instr_gr|oup;....|
|000017c0| 69 66 20 28 20 6c 61 74 | 65 73 74 5f 74 69 6d 65 |if ( lat|est_time|
|000017d0| 20 3c 20 28 20 70 61 72 | 61 6d 73 5b 32 5d 20 2b | < ( par|ams[2] +|
|000017e0| 20 70 61 72 61 6d 73 5b | 33 5d 20 29 29 0d 09 09 | params[|3] ))...|
|000017f0| 09 09 6c 61 74 65 73 74 | 5f 74 69 6d 65 20 3d 20 |..latest|_time = |
|00001800| 28 20 70 61 72 61 6d 73 | 5b 32 5d 20 2b 20 70 61 |( params|[2] + pa|
|00001810| 72 61 6d 73 5b 33 5d 20 | 29 3b 0d 09 09 09 0d 09 |rams[3] |);......|
|00001820| 09 09 2f 2a 6c 61 74 65 | 73 74 5f 74 69 6d 65 20 |../*late|st_time |
|00001830| 3d 20 4d 41 58 28 6c 61 | 74 65 73 74 5f 74 69 6d |= MAX(la|test_tim|
|00001840| 65 2c 20 70 61 72 61 6d | 73 5b 32 5d 20 2b 20 70 |e, param|s[2] + p|
|00001850| 61 72 61 6d 73 5b 33 5d | 20 29 3b 2a 2f 0d 09 09 |arams[3]| );*/...|
|00001860| 09 62 72 65 61 6b 3b 0d | 09 09 63 61 73 65 20 27 |.break;.|..case '|
|00001870| 66 27 3a 0d 09 09 63 61 | 73 65 20 27 46 27 3a 0d |f':...ca|se 'F':.|
|00001880| 09 09 09 6f 70 20 3d 20 | 46 4f 50 3b 0d 09 09 09 |...op = |FOP;....|
|00001890| 6e 61 72 67 73 20 3d 20 | 64 65 63 6f 64 65 28 29 |nargs = |decode()|
|000018a0| 3b 0d 09 09 09 70 72 65 | 76 69 6e 73 74 72 5f 67 |;....pre|vinstr_g|
|000018b0| 72 6f 75 70 20 3d 20 30 | 3b 0d 09 09 69 66 20 28 |roup = 0|;...if (|
|000018c0| 20 6c 61 74 65 73 74 5f | 74 69 6d 65 20 3c 20 70 | latest_|time < p|
|000018d0| 61 72 61 6d 73 5b 31 5d | 20 29 0d 09 09 09 09 6c |arams[1]| ).....l|
|000018e0| 61 74 65 73 74 5f 74 69 | 6d 65 20 3d 20 70 61 72 |atest_ti|me = par|
|000018f0| 61 6d 73 5b 31 5d 3b 0d | 09 09 0d 09 09 09 2f 2a |ams[1];.|....../*|
|00001900| 6c 61 74 65 73 74 5f 74 | 69 6d 65 20 3d 20 4d 41 |latest_t|ime = MA|
|00001910| 58 28 6c 61 74 65 73 74 | 5f 74 69 6d 65 2c 20 70 |X(latest|_time, p|
|00001920| 61 72 61 6d 73 5b 31 5d | 20 29 3b 2a 2f 0d 09 09 |arams[1]| );*/...|
|00001930| 09 62 72 65 61 6b 3b 0d | 09 09 63 61 73 65 20 27 |.break;.|..case '|
|00001940| 73 27 3a 0d 09 09 63 61 | 73 65 20 27 53 27 3a 0d |s':...ca|se 'S':.|
|00001950| 09 09 09 6f 70 20 3d 20 | 53 4f 50 3b 0d 09 09 09 |...op = |SOP;....|
|00001960| 70 61 72 61 6d 73 5b 30 | 5d 20 3d 20 30 2e 30 3b |params[0|] = 0.0;|
|00001970| 0d 09 09 09 70 61 72 61 | 6d 73 5b 31 5d 20 3d 20 |....para|ms[1] = |
|00001980| 30 2e 30 3b 0d 09 09 09 | 6e 61 72 67 73 20 3d 20 |0.0;....|nargs = |
|00001990| 64 65 63 6f 64 65 28 29 | 3b 0d 09 09 09 70 72 65 |decode()|;....pre|
|000019a0| 76 69 6e 73 74 72 5f 67 | 72 6f 75 70 20 3d 20 30 |vinstr_g|roup = 0|
|000019b0| 3b 0d 09 09 09 69 66 20 | 28 20 6e 61 72 67 73 20 |;....if |( nargs |
|000019c0| 3e 20 31 20 29 20 7b 0d | 09 09 09 09 4e 75 6d 54 |> 1 ) {.|....NumT|
|000019d0| 6f 53 74 72 69 6e 67 28 | 28 6c 6f 6e 67 29 73 65 |oString(|(long)se|
|000019e0| 63 74 6e 6f 2c 20 61 53 | 74 72 69 6e 67 32 29 3b |ctno, aS|tring2);|
|000019f0| 0d 09 09 09 09 50 73 74 | 72 69 6e 67 43 6f 70 79 |.....Pst|ringCopy|
|00001a00| 28 28 63 68 61 72 20 2a | 29 74 68 65 4d 65 73 73 |((char *|)theMess|
|00001a10| 32 2c 20 22 5c 70 53 65 | 63 74 69 6f 6e 20 6e 6f |2, "\pSe|ction no|
|00001a20| 3a 20 22 29 3b 0d 09 09 | 09 09 50 73 74 72 69 6e |: ");...|..Pstrin|
|00001a30| 67 43 61 74 28 28 63 68 | 61 72 20 2a 29 74 68 65 |gCat((ch|ar *)the|
|00001a40| 4d 65 73 73 32 2c 20 28 | 63 68 61 72 20 2a 29 61 |Mess2, (|char *)a|
|00001a50| 53 74 72 69 6e 67 32 29 | 3b 0d 09 09 09 09 50 73 |String2)|;.....Ps|
|00001a60| 74 72 69 6e 67 43 6f 70 | 79 28 28 63 68 61 72 20 |tringCop|y((char |
|00001a70| 2a 29 74 68 65 4d 65 73 | 73 31 2c 20 22 5c 70 54 |*)theMes|s1, "\pT|
|00001a80| 6f 6f 20 6d 61 6e 79 20 | 61 72 67 75 6d 65 6e 74 |oo many |argument|
|00001a90| 73 20 69 6e 20 73 65 63 | 74 69 6f 6e 20 63 61 72 |s in sec|tion car|
|00001aa0| 64 22 29 3b 0d 09 09 09 | 09 4f 53 45 72 72 6f 72 |d");....|.OSError|
|00001ab0| 28 74 68 65 4d 65 73 73 | 31 2c 20 74 68 65 4d 65 |(theMess|1, theMe|
|00001ac0| 73 73 32 2c 20 4e 49 4c | 29 3b 0d 09 09 09 7d 0d |ss2, NIL|);....}.|
|00001ad0| 0d 09 09 09 69 66 20 28 | 20 70 61 72 61 6d 73 5b |....if (| params[|
|00001ae0| 30 5d 20 3c 3d 20 30 2e | 30 20 29 0d 09 09 09 09 |0] <= 0.|0 ).....|
|00001af0| 70 61 72 61 6d 73 5b 30 | 5d 20 3d 20 6c 61 74 65 |params[0|] = late|
|00001b00| 73 74 5f 74 69 6d 65 3b | 0d 09 09 09 65 6c 73 65 |st_time;|....else|
|00001b10| 20 7b 0d 09 09 09 09 69 | 66 20 28 20 70 61 72 61 | {.....i|f ( para|
|00001b20| 6d 73 5b 30 5d 20 3c 20 | 6c 61 74 65 73 74 5f 74 |ms[0] < |latest_t|
|00001b30| 69 6d 65 20 29 20 7b 0d | 09 09 09 09 09 4e 75 6d |ime ) {.|.....Num|
|00001b40| 54 6f 53 74 72 69 6e 67 | 28 28 6c 6f 6e 67 29 73 |ToString|((long)s|
|00001b50| 65 63 74 6e 6f 2c 20 61 | 53 74 72 69 6e 67 32 29 |ectno, a|String2)|
|00001b60| 3b 0d 09 09 09 09 09 50 | 73 74 72 69 6e 67 43 6f |;......P|stringCo|
|00001b70| 70 79 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |py((char| *)theMe|
|00001b80| 73 73 32 2c 22 5c 70 53 | 65 63 74 69 6f 6e 20 6e |ss2,"\pS|ection n|
|00001b90| 6f 3a 20 22 29 3b 0d 09 | 09 09 09 09 50 73 74 72 |o: ");..|....Pstr|
|00001ba0| 69 6e 67 43 61 74 28 28 | 63 68 61 72 20 2a 29 74 |ingCat((|char *)t|
|00001bb0| 68 65 4d 65 73 73 32 2c | 20 28 63 68 61 72 20 2a |heMess2,| (char *|
|00001bc0| 29 61 53 74 72 69 6e 67 | 32 29 3b 0d 09 09 09 09 |)aString|2);.....|
|00001bd0| 09 50 73 74 72 69 6e 67 | 43 6f 70 79 28 28 63 68 |.Pstring|Copy((ch|
|00001be0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 22 5c |ar *)the|Mess1,"\|
|00001bf0| 70 45 6e 64 20 74 69 6d | 65 20 6f 66 20 73 65 63 |pEnd tim|e of sec|
|00001c00| 74 69 6f 6e 20 69 73 20 | 67 72 65 61 74 65 72 20 |tion is |greater |
|00001c10| 74 68 61 6e 20 69 6e 64 | 69 63 61 74 65 64 20 64 |than ind|icated d|
|00001c20| 75 72 61 74 69 6f 6e 22 | 29 3b 0d 09 09 09 09 09 |uration"|);......|
|00001c30| 4f 53 45 72 72 6f 72 28 | 74 68 65 4d 65 73 73 31 |OSError(|theMess1|
|00001c40| 2c 20 74 68 65 4d 65 73 | 73 32 2c 20 4e 49 4c 29 |, theMes|s2, NIL)|
|00001c50| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 7d 0d 09 09 |;.......|....}...|
|00001c60| 09 7d 0d 09 09 09 2f 2a | 20 73 68 69 66 74 20 65 |.}..../*| shift e|
|00001c70| 6e 64 20 74 69 6d 65 20 | 74 6f 20 70 31 20 66 6f |nd time |to p1 fo|
|00001c80| 72 20 65 61 73 69 65 72 | 20 63 6f 6d 70 61 72 69 |r easier| compari|
|00001c90| 73 69 6f 6e 73 20 69 6e | 20 70 61 73 73 32 20 2a |sions in| pass2 *|
|00001ca0| 2f 0d 09 09 09 6e 61 72 | 67 73 2b 2b 3b 0d 09 09 |/....nar|gs++;...|
|00001cb0| 09 70 61 72 61 6d 73 5b | 31 5d 20 3d 20 70 61 72 |.params[|1] = par|
|00001cc0| 61 6d 73 5b 30 5d 3b 0d | 09 09 09 6c 61 74 65 73 |ams[0];.|...lates|
|00001cd0| 74 5f 74 69 6d 65 20 3d | 20 30 2e 30 3b 0d 09 09 |t_time =| 0.0;...|
|00001ce0| 09 62 72 65 61 6b 3b 0d | 09 09 63 61 73 65 20 27 |.break;.|..case '|
|00001cf0| 65 27 3a 0d 09 09 63 61 | 73 65 20 27 45 27 3a 0d |e':...ca|se 'E':.|
|00001d00| 09 09 09 6f 70 20 3d 20 | 45 4f 50 3b 0d 09 09 09 |...op = |EOP;....|
|00001d10| 45 63 61 72 64 52 65 61 | 64 20 3d 20 54 52 55 45 |EcardRea|d = TRUE|
|00001d20| 3b 0d 09 09 09 70 61 72 | 61 6d 73 5b 30 5d 20 3d |;....par|ams[0] =|
|00001d30| 20 30 2e 30 3b 0d 09 09 | 09 70 61 72 61 6d 73 5b | 0.0;...|.params[|
|00001d40| 31 5d 20 3d 20 30 2e 30 | 3b 0d 09 09 09 6e 61 72 |1] = 0.0|;....nar|
|00001d50| 67 73 20 3d 20 64 65 63 | 6f 64 65 28 29 3b 0d 09 |gs = dec|ode();..|
|00001d60| 09 09 70 72 65 76 69 6e | 73 74 72 5f 67 72 6f 75 |..previn|str_grou|
|00001d70| 70 20 3d 20 30 3b 0d 09 | 09 09 2f 2a 20 70 30 20 |p = 0;..|../* p0 |
|00001d80| 3d 20 65 6e 64 20 74 69 | 6d 65 2c 20 70 31 20 3d |= end ti|me, p1 =|
|00001d90| 20 6e 63 68 6e 6c 73 2c | 20 5b 70 32 20 3d 20 73 | nchnls,| [p2 = s|
|00001da0| 72 5d 20 5b 70 33 20 3d | 20 72 65 73 63 61 6c 69 |r] [p3 =| rescali|
|00001db0| 6e 67 20 63 6f 6e 73 74 | 61 6e 74 20 5d 2a 2f 0d |ng const|ant ]*/.|
|00001dc0| 09 09 09 69 66 20 28 20 | 6e 61 72 67 73 20 3e 20 |...if ( |nargs > |
|00001dd0| 34 20 29 20 7b 0d 09 09 | 09 09 50 73 74 72 69 6e |4 ) {...|..Pstrin|
|00001de0| 67 43 6f 70 79 28 28 63 | 68 61 72 20 2a 29 74 68 |gCopy((c|har *)th|
|00001df0| 65 4d 65 73 73 31 2c 22 | 5c 70 54 6f 6f 20 6d 61 |eMess1,"|\pToo ma|
|00001e00| 6e 79 20 61 72 67 75 6d | 65 6e 74 73 20 6f 6e 20 |ny argum|ents on |
|00001e10| 27 65 27 20 72 65 63 6f | 72 64 22 29 3b 0d 09 09 |'e' reco|rd");...|
|00001e20| 09 09 4f 53 45 72 72 6f | 72 28 74 68 65 4d 65 73 |..OSErro|r(theMes|
|00001e30| 73 31 2c 20 4e 49 4c 2c | 20 4e 49 4c 29 3b 0d 09 |s1, NIL,| NIL);..|
|00001e40| 09 09 7d 0d 09 09 09 69 | 66 20 28 20 70 61 72 61 |..}....i|f ( para|
|00001e50| 6d 73 5b 31 5d 20 3e 20 | 4d 41 58 43 48 41 4e 53 |ms[1] > |MAXCHANS|
|00001e60| 20 7c 7c 20 70 61 72 61 | 6d 73 5b 31 5d 20 3c 20 | || para|ms[1] < |
|00001e70| 31 2e 30 20 29 20 7b 0d | 09 09 09 09 50 73 74 72 |1.0 ) {.|....Pstr|
|00001e80| 69 6e 67 43 6f 70 79 28 | 28 63 68 61 72 20 2a 29 |ingCopy(|(char *)|
|00001e90| 74 68 65 4d 65 73 73 31 | 2c 22 5c 70 45 72 72 6f |theMess1|,"\pErro|
|00001ea0| 72 20 69 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 6f |r in num|ber of o|
|00001eb0| 75 74 70 75 74 20 63 68 | 61 6e 6e 65 6c 73 20 6f |utput ch|annels o|
|00001ec0| 6e 20 27 65 27 20 72 65 | 63 6f 72 64 22 29 3b 0d |n 'e' re|cord");.|
|00001ed0| 09 09 09 09 50 73 74 72 | 69 6e 67 43 6f 70 79 28 |....Pstr|ingCopy(|
|00001ee0| 28 63 68 61 72 20 2a 29 | 74 68 65 4d 65 73 73 32 |(char *)|theMess2|
|00001ef0| 2c 22 5c 70 4d 75 73 74 | 20 62 65 20 31 2c 20 32 |,"\pMust| be 1, 2|
|00001f00| 20 6f 72 20 34 22 29 3b | 0d 09 09 09 09 4f 53 45 | or 4");|.....OSE|
|00001f10| 72 72 6f 72 28 74 68 65 | 4d 65 73 73 31 2c 20 74 |rror(the|Mess1, t|
|00001f20| 68 65 4d 65 73 73 32 2c | 20 4e 49 4c 29 3b 0d 09 |heMess2,| NIL);..|
|00001f30| 09 09 7d 0d 09 09 09 6e | 63 68 6e 6c 73 20 3d 20 |..}....n|chnls = |
|00001f40| 28 69 6e 74 29 20 70 61 | 72 61 6d 73 5b 31 5d 3b |(int) pa|rams[1];|
|00001f50| 0d 09 09 09 69 66 20 28 | 70 61 72 61 6d 73 5b 32 |....if (|params[2|
|00001f60| 5d 20 3c 3d 20 30 2e 30 | 20 29 0d 09 09 09 09 73 |] <= 0.0| ).....s|
|00001f70| 72 61 74 65 20 3d 20 53 | 52 41 54 45 3b 0d 09 09 |rate = S|RATE;...|
|00001f80| 09 65 6c 73 65 0d 09 09 | 09 09 73 72 61 74 65 20 |.else...|..srate |
|00001f90| 3d 20 70 61 72 61 6d 73 | 5b 32 5d 3b 0d 09 09 09 |= params|[2];....|
|00001fa0| 0d 09 09 09 72 65 73 63 | 61 6c 69 6e 67 43 6f 6e |....resc|alingCon|
|00001fb0| 73 74 20 3d 20 30 2e 30 | 3b 0d 09 09 09 69 66 20 |st = 0.0|;....if |
|00001fc0| 28 20 6e 61 72 67 73 20 | 3e 20 33 20 29 0d 09 09 |( nargs |> 3 )...|
|00001fd0| 09 09 72 65 73 63 61 6c | 69 6e 67 43 6f 6e 73 74 |..rescal|ingConst|
|00001fe0| 20 3d 20 70 61 72 61 6d | 73 5b 33 5d 3b 0d 09 09 | = param|s[3];...|
|00001ff0| 09 65 6c 73 65 0d 09 09 | 09 09 70 61 72 61 6d 73 |.else...|..params|
|00002000| 5b 33 5d 20 3d 20 30 2e | 30 3b 0d 09 09 09 09 0d |[3] = 0.|0;......|
|00002010| 09 09 09 69 66 20 28 20 | 70 61 72 61 6d 73 5b 30 |...if ( |params[0|
|00002020| 5d 20 3c 3d 20 30 2e 30 | 20 29 0d 09 09 09 09 70 |] <= 0.0| ).....p|
|00002030| 61 72 61 6d 73 5b 30 5d | 20 3d 20 6c 61 74 65 73 |arams[0]| = lates|
|00002040| 74 5f 74 69 6d 65 3b 0d | 09 09 09 65 6c 73 65 20 |t_time;.|...else |
|00002050| 7b 0d 09 09 09 09 69 66 | 20 28 20 70 61 72 61 6d |{.....if| ( param|
|00002060| 73 5b 30 5d 20 3c 20 6c | 61 74 65 73 74 5f 74 69 |s[0] < l|atest_ti|
|00002070| 6d 65 20 29 20 7b 0d 09 | 09 09 09 09 4e 75 6d 54 |me ) {..|....NumT|
|00002080| 6f 53 74 72 69 6e 67 28 | 28 6c 6f 6e 67 29 73 65 |oString(|(long)se|
|00002090| 63 74 6e 6f 2c 20 61 53 | 74 72 69 6e 67 32 29 3b |ctno, aS|tring2);|
|000020a0| 0d 09 09 09 09 09 50 73 | 74 72 69 6e 67 43 6f 70 |......Ps|tringCop|
|000020b0| 79 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |y((char |*)theMes|
|000020c0| 73 32 2c 22 5c 70 53 65 | 63 74 69 6f 6e 20 6e 6f |s2,"\pSe|ction no|
|000020d0| 3a 20 22 29 3b 0d 09 09 | 09 09 09 50 73 74 72 69 |: ");...|...Pstri|
|000020e0| 6e 67 43 61 74 28 28 63 | 68 61 72 20 2a 29 74 68 |ngCat((c|har *)th|
|000020f0| 65 4d 65 73 73 32 2c 20 | 28 63 68 61 72 20 2a 29 |eMess2, |(char *)|
|00002100| 61 53 74 72 69 6e 67 32 | 29 3b 0d 09 09 09 09 09 |aString2|);......|
|00002110| 50 73 74 72 69 6e 67 43 | 6f 70 79 28 28 63 68 61 |PstringC|opy((cha|
|00002120| 72 20 2a 29 74 68 65 4d | 65 73 73 31 2c 22 5c 70 |r *)theM|ess1,"\p|
|00002130| 45 6e 64 20 74 69 6d 65 | 20 6f 66 20 73 65 63 74 |End time| of sect|
|00002140| 69 6f 6e 20 69 73 20 67 | 72 65 61 74 65 72 20 74 |ion is g|reater t|
|00002150| 68 61 6e 20 69 6e 64 69 | 63 61 74 65 64 20 64 75 |han indi|cated du|
|00002160| 72 61 74 69 6f 6e 22 29 | 3b 0d 09 09 09 09 09 4f |ration")|;......O|
|00002170| 53 45 72 72 6f 72 28 74 | 68 65 4d 65 73 73 31 2c |SError(t|heMess1,|
|00002180| 20 74 68 65 4d 65 73 73 | 32 2c 20 4e 49 4c 29 3b | theMess|2, NIL);|
|00002190| 0d 09 09 09 09 7d 0d 09 | 09 09 09 6c 61 74 65 73 |.....}..|...lates|
|000021a0| 74 5f 74 69 6d 65 20 3d | 20 70 61 72 61 6d 73 5b |t_time =| params[|
|000021b0| 30 5d 3b 0d 09 09 09 7d | 0d 09 09 09 2f 2a 20 73 |0];....}|..../* s|
|000021c0| 68 69 66 74 20 65 6e 64 | 20 74 69 6d 65 20 74 6f |hift end| time to|
|000021d0| 20 70 31 20 66 6f 72 20 | 65 61 73 69 65 72 20 63 | p1 for |easier c|
|000021e0| 6f 6d 70 61 72 69 73 69 | 6f 6e 73 20 69 6e 20 70 |omparisi|ons in p|
|000021f0| 61 73 73 32 20 2a 2f 0d | 09 09 09 6e 61 72 67 73 |ass2 */.|...nargs|
|00002200| 2b 2b 3b 0d 09 09 09 70 | 61 72 61 6d 73 5b 34 5d |++;....p|arams[4]|
|00002210| 20 3d 20 70 61 72 61 6d | 73 5b 33 5d 3b 0d 09 09 | = param|s[3];...|
|00002220| 09 70 61 72 61 6d 73 5b | 33 5d 20 3d 20 70 61 72 |.params[|3] = par|
|00002230| 61 6d 73 5b 32 5d 3b 0d | 09 09 09 70 61 72 61 6d |ams[2];.|...param|
|00002240| 73 5b 32 5d 20 3d 20 70 | 61 72 61 6d 73 5b 31 5d |s[2] = p|arams[1]|
|00002250| 3b 0d 09 09 09 70 61 72 | 61 6d 73 5b 31 5d 20 3d |;....par|ams[1] =|
|00002260| 20 70 61 72 61 6d 73 5b | 30 5d 3b 0d 09 09 09 70 | params[|0];....p|
|00002270| 61 72 61 6d 73 5b 30 5d | 20 3d 20 30 2e 30 3b 0d |arams[0]| = 0.0;.|
|00002280| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 63 61 73 65 |...break|;...case|
|00002290| 20 27 74 27 3a 0d 09 09 | 63 61 73 65 20 27 54 27 | 't':...|case 'T'|
|000022a0| 3a 0d 09 09 09 69 66 20 | 28 20 6e 5f 54 5f 63 61 |:....if |( n_T_ca|
|000022b0| 72 64 73 20 3e 3d 20 4d | 41 58 5f 54 45 4d 50 4f |rds >= M|AX_TEMPO|
|000022c0| 5f 43 41 52 44 53 29 20 | 7b 0d 09 09 09 09 4e 75 |_CARDS) |{.....Nu|
|000022d0| 6d 54 6f 53 74 72 69 6e | 67 28 28 6c 6f 6e 67 29 |mToStrin|g((long)|
|000022e0| 73 65 63 74 6e 6f 2c 20 | 61 53 74 72 69 6e 67 32 |sectno, |aString2|
|000022f0| 29 3b 0d 09 09 09 09 50 | 73 74 72 69 6e 67 43 6f |);.....P|stringCo|
|00002300| 70 79 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |py((char| *)theMe|
|00002310| 73 73 32 2c 22 5c 70 53 | 65 63 74 69 6f 6e 20 6e |ss2,"\pS|ection n|
|00002320| 6f 3a 20 22 29 3b 0d 09 | 09 09 09 50 73 74 72 69 |o: ");..|...Pstri|
|00002330| 6e 67 43 61 74 28 28 63 | 68 61 72 20 2a 29 74 68 |ngCat((c|har *)th|
|00002340| 65 4d 65 73 73 32 2c 20 | 28 63 68 61 72 20 2a 29 |eMess2, |(char *)|
|00002350| 61 53 74 72 69 6e 67 32 | 29 3b 0d 09 09 09 09 50 |aString2|);.....P|
|00002360| 73 74 72 69 6e 67 43 6f | 70 79 28 28 63 68 61 72 |stringCo|py((char|
|00002370| 20 2a 29 74 68 65 4d 65 | 73 73 31 2c 22 5c 70 54 | *)theMe|ss1,"\pT|
|00002380| 6f 6f 20 6d 61 6e 79 20 | 74 65 6d 70 6f 20 63 61 |oo many |tempo ca|
|00002390| 72 64 73 22 29 3b 0d 09 | 09 09 09 4f 53 45 72 72 |rds");..|...OSErr|
|000023a0| 6f 72 28 74 68 65 4d 65 | 73 73 31 2c 20 74 68 65 |or(theMe|ss1, the|
|000023b0| 4d 65 73 73 32 2c 20 4e | 49 4c 29 3b 0d 09 09 09 |Mess2, N|IL);....|
|000023c0| 7d 0d 09 09 09 6f 70 20 | 3d 20 54 4f 50 3b 0d 09 |}....op |= TOP;..|
|000023d0| 09 09 74 65 6d 70 6f 5f | 63 68 61 6e 67 65 20 3d |..tempo_|change =|
|000023e0| 20 31 3b 0d 09 09 09 74 | 70 61 72 61 6d 73 5b 6e | 1;....t|params[n|
|000023f0| 5f 54 5f 63 61 72 64 73 | 5d 20 3d 20 28 64 6f 75 |_T_cards|] = (dou|
|00002400| 62 6c 65 20 2a 29 4e 65 | 77 50 74 72 28 73 69 7a |ble *)Ne|wPtr(siz|
|00002410| 65 6f 66 28 64 6f 75 62 | 6c 65 29 20 2a 20 4d 41 |eof(doub|le) * MA|
|00002420| 58 50 41 52 41 4d 53 29 | 3b 0d 09 09 09 69 66 20 |XPARAMS)|;....if |
|00002430| 28 20 28 65 72 72 6e 75 | 6d 20 3d 20 4d 65 6d 45 |( (errnu|m = MemE|
|00002440| 72 72 6f 72 28 29 29 20 | 20 21 3d 20 6e 6f 45 72 |rror()) | != noEr|
|00002450| 72 20 29 7b 0d 09 09 09 | 09 50 73 74 72 69 6e 67 |r ){....|.Pstring|
|00002460| 43 6f 70 79 28 28 63 68 | 61 72 20 2a 29 74 68 65 |Copy((ch|ar *)the|
|00002470| 4d 65 73 73 31 2c 22 5c | 70 45 72 72 6f 72 20 61 |Mess1,"\|pError a|
|00002480| 6c 6c 6f 63 61 74 69 6e | 67 20 6d 65 6d 6f 72 79 |llocatin|g memory|
|00002490| 20 69 6e 20 70 61 72 73 | 65 5f 63 61 72 64 20 66 | in pars|e_card f|
|000024a0| 6f 72 20 74 65 6d 70 6f | 5f 63 61 72 64 22 29 3b |or tempo|_card");|
|000024b0| 0d 09 09 09 09 4f 53 45 | 72 72 6f 72 28 74 68 65 |.....OSE|rror(the|
|000024c0| 4d 65 73 73 31 2c 20 4e | 49 4c 2c 20 4e 49 4c 29 |Mess1, N|IL, NIL)|
|000024d0| 3b 0d 09 09 09 7d 0d 09 | 09 09 2f 2a 20 7a 65 72 |;....}..|../* zer|
|000024e0| 6f 20 66 69 65 6c 64 73 | 20 6f 66 20 63 61 72 64 |o fields| of card|
|000024f0| 20 2a 2f 0d 09 09 09 66 | 6f 72 20 28 20 69 20 3d | */....f|or ( i =|
|00002500| 20 30 3b 20 69 20 3c 20 | 4d 41 58 50 41 52 41 4d | 0; i < |MAXPARAM|
|00002510| 53 3b 20 69 2b 2b 20 29 | 20 0d 09 09 09 09 2a 28 |S; i++ )| .....*(|
|00002520| 74 70 61 72 61 6d 73 5b | 6e 5f 54 5f 63 61 72 64 |tparams[|n_T_card|
|00002530| 73 5d 2b 69 29 20 3d 20 | 30 2e 30 3b 0d 09 09 09 |s]+i) = |0.0;....|
|00002540| 6e 61 72 67 73 20 3d 20 | 64 65 63 6f 64 65 5f 74 |nargs = |decode_t|
|00002550| 5f 63 61 72 64 28 6e 5f | 54 5f 63 61 72 64 73 29 |_card(n_|T_cards)|
|00002560| 3b 0d 09 09 09 6e 5f 54 | 5f 63 61 72 64 73 2b 2b |;....n_T|_cards++|
|00002570| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 63 61 |;....bre|ak;...ca|
|00002580| 73 65 20 27 63 27 3a 0d | 09 09 63 61 73 65 20 27 |se 'c':.|..case '|
|00002590| 43 27 3a 0d 09 09 63 61 | 73 65 20 27 21 27 3a 0d |C':...ca|se '!':.|
|000025a0| 09 09 09 6f 70 20 3d 20 | 43 4f 50 3b 0d 09 09 09 |...op = |COP;....|
|000025b0| 70 72 65 76 69 6e 73 74 | 72 5f 67 72 6f 75 70 20 |previnst|r_group |
|000025c0| 3d 20 30 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |= 0;....|break;..|
|000025d0| 09 63 61 73 65 20 27 6f | 27 3a 0d 09 09 63 61 73 |.case 'o|':...cas|
|000025e0| 65 20 27 4f 27 3a 0d 09 | 09 09 6f 70 20 3d 20 4f |e 'O':..|..op = O|
|000025f0| 4f 50 3b 0d 09 09 09 6e | 61 72 67 73 20 3d 20 64 |OP;....n|args = d|
|00002600| 65 63 6f 64 65 28 29 3b | 0d 09 09 09 70 72 65 76 |ecode();|....prev|
|00002610| 69 6e 73 74 72 5f 67 72 | 6f 75 70 20 3d 20 30 3b |instr_gr|oup = 0;|
|00002620| 0d 09 09 09 73 65 74 5f | 6f 75 74 70 75 74 28 29 |....set_|output()|
|00002630| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 64 65 |;....bre|ak;...de|
|00002640| 66 61 75 6c 74 3a 0d 09 | 09 09 4e 75 6d 54 6f 53 |fault:..|..NumToS|
|00002650| 74 72 69 6e 67 28 28 6c | 6f 6e 67 29 6c 69 6e 65 |tring((l|ong)line|
|00002660| 6e 6f 2c 20 61 53 74 72 | 69 6e 67 32 29 3b 0d 09 |no, aStr|ing2);..|
|00002670| 09 09 50 73 74 72 69 6e | 67 43 6f 70 79 28 61 53 |..Pstrin|gCopy(aS|
|00002680| 74 72 69 6e 67 31 2c 20 | 22 5c 70 6f 6e 20 6c 69 |tring1, |"\pon li|
|00002690| 6e 65 20 22 29 3b 0d 09 | 09 09 50 73 74 72 69 6e |ne ");..|..Pstrin|
|000026a0| 67 43 61 74 28 61 53 74 | 72 69 6e 67 31 2c 20 61 |gCat(aSt|ring1, a|
|000026b0| 53 74 72 69 6e 67 32 29 | 3b 0d 09 09 09 09 50 73 |String2)|;.....Ps|
|000026c0| 74 72 69 6e 67 43 61 74 | 28 28 63 68 61 72 20 2a |tringCat|((char *|
|000026d0| 29 74 68 65 4d 65 73 73 | 32 2c 20 28 63 68 61 72 |)theMess|2, (char|
|000026e0| 20 2a 29 61 53 74 72 69 | 6e 67 31 29 3b 0d 09 09 | *)aStri|ng1);...|
|000026f0| 09 09 50 73 74 72 69 6e | 67 43 6f 70 79 28 28 63 |..Pstrin|gCopy((c|
|00002700| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 2c 22 |har *)th|eMess1,"|
|00002710| 5c 70 55 6e 6b 6e 6f 77 | 6e 20 6f 70 63 6f 64 65 |\pUnknow|n opcode|
|00002720| 22 29 3b 0d 09 09 09 09 | 4f 53 45 72 72 6f 72 28 |");.....|OSError(|
|00002730| 74 68 65 4d 65 73 73 31 | 2c 20 74 68 65 4d 65 73 |theMess1|, theMes|
|00002740| 73 32 2c 20 4e 49 4c 29 | 3b 0d 09 09 09 62 72 65 |s2, NIL)|;....bre|
|00002750| 61 6b 3b 09 09 09 0d 09 | 7d 0d 7d 09 2f 2a 20 70 |ak;.....|}.}./* p|
|00002760| 61 72 73 65 5f 63 61 72 | 64 20 2a 2f 0d 0d 69 6e |arse_car|d */..in|
|00002770| 74 09 64 65 63 6f 64 65 | 28 29 0d 7b 0d 09 72 65 |t.decode|().{..re|
|00002780| 67 69 73 74 65 72 20 69 | 6e 74 20 69 3b 0d 09 63 |gister i|nt i;..c|
|00002790| 68 61 72 20 2a 63 70 3b | 0d 09 0d 09 63 70 20 3d |har *cp;|....cp =|
|000027a0| 20 63 61 72 64 3b 0d 0d | 09 63 70 2b 2b 3b 0d 09 | card;..|.cp++;..|
|000027b0| 69 66 20 28 20 6f 70 20 | 21 3d 20 49 4f 50 20 29 |if ( op |!= IOP )|
|000027c0| 20 7b 0d 09 09 72 65 74 | 75 72 6e 28 73 74 72 61 | {...ret|urn(stra|
|000027d0| 69 67 68 74 5f 63 6f 70 | 79 28 29 29 3b 0d 09 7d |ight_cop|y());..}|
|000027e0| 0d 20 09 69 66 20 28 20 | 6e 5f 69 5f 63 61 72 64 |. .if ( |n_i_card|
|000027f0| 73 20 3c 20 31 20 7c 7c | 20 70 72 65 76 6f 70 20 |s < 1 ||| prevop |
|00002800| 21 3d 20 6f 70 29 20 7b | 0d 09 09 72 65 74 75 72 |!= op) {|...retur|
|00002810| 6e 28 73 74 72 61 69 67 | 68 74 5f 49 5f 63 6f 70 |n(straig|ht_I_cop|
|00002820| 79 28 29 29 3b 0d 09 7d | 0d 0d 09 2f 2a 20 63 68 |y());..}|.../* ch|
|00002830| 65 63 6b 20 66 6f 72 20 | 73 61 6d 65 20 69 6e 73 |eck for |same ins|
|00002840| 74 72 5f 67 72 6f 75 70 | 20 2a 2f 0d 09 77 68 69 |tr_group| */..whi|
|00002850| 6c 65 20 28 2a 63 70 20 | 26 26 20 69 73 73 70 61 |le (*cp |&& isspa|
|00002860| 63 65 28 2a 63 70 29 29 | 0d 09 09 63 70 2b 2b 3b |ce(*cp))|...cp++;|
|00002870| 0d 09 69 66 20 28 20 2a | 63 70 20 3d 3d 20 43 41 |..if ( *|cp == CA|
|00002880| 52 52 59 5f 43 4f 44 45 | 20 29 20 7b 0d 09 09 69 |RRY_CODE| ) {...i|
|00002890| 6e 73 74 72 5f 67 72 6f | 75 70 20 3d 20 28 64 6f |nstr_gro|up = (do|
|000028a0| 75 62 6c 65 29 70 72 65 | 76 69 6e 73 74 72 5f 67 |uble)pre|vinstr_g|
|000028b0| 72 6f 75 70 3b 0d 09 7d | 0d 09 65 6c 73 65 20 69 |roup;..}|..else i|
|000028c0| 66 20 28 20 69 73 64 69 | 67 69 74 28 2a 63 70 29 |f ( isdi|git(*cp)|
|000028d0| 20 29 20 7b 0d 09 09 69 | 6e 73 74 72 5f 67 72 6f | ) {...i|nstr_gro|
|000028e0| 75 70 20 3d 20 61 74 6f | 66 28 63 70 29 3b 0d 09 |up = ato|f(cp);..|
|000028f0| 09 69 66 20 28 20 28 69 | 6e 74 29 69 6e 73 74 72 |.if ( (i|nt)instr|
|00002900| 5f 67 72 6f 75 70 20 21 | 3d 20 70 72 65 76 69 6e |_group !|= previn|
|00002910| 73 74 72 5f 67 72 6f 75 | 70 29 20 7b 0d 09 09 09 |str_grou|p) {....|
|00002920| 72 65 74 75 72 6e 28 73 | 74 72 61 69 67 68 74 5f |return(s|traight_|
|00002930| 49 5f 63 6f 70 79 28 29 | 29 3b 0d 09 09 7d 0d 09 |I_copy()|);...}..|
|00002940| 7d 0d 09 65 6c 73 65 20 | 7b 09 2f 2a 20 65 72 72 |}..else |{./* err|
|00002950| 6f 72 2c 20 6e 6f 74 20 | 61 20 6e 75 6d 62 65 72 |or, not |a number|
|00002960| 20 6f 72 20 61 20 43 41 | 52 52 59 5f 43 4f 44 45 | or a CA|RRY_CODE|
|00002970| 20 2a 2f 0d 09 09 4e 75 | 6d 54 6f 53 74 72 69 6e | */...Nu|mToStrin|
|00002980| 67 28 28 6c 6f 6e 67 29 | 6c 69 6e 65 6e 6f 2c 20 |g((long)|lineno, |
|00002990| 61 53 74 72 69 6e 67 32 | 29 3b 0d 09 09 50 73 74 |aString2|);...Pst|
|000029a0| 72 69 6e 67 43 6f 70 79 | 28 61 53 74 72 69 6e 67 |ringCopy|(aString|
|000029b0| 31 2c 20 22 5c 70 6f 6e | 20 6c 69 6e 65 3a 20 22 |1, "\pon| line: "|
|000029c0| 29 3b 0d 09 09 50 73 74 | 72 69 6e 67 43 61 74 28 |);...Pst|ringCat(|
|000029d0| 61 53 74 72 69 6e 67 31 | 2c 20 61 53 74 72 69 6e |aString1|, aStrin|
|000029e0| 67 32 29 3b 0d 09 09 50 | 73 74 72 69 6e 67 43 61 |g2);...P|stringCa|
|000029f0| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00002a00| 73 32 2c 20 28 63 68 61 | 72 20 2a 29 61 53 74 72 |s2, (cha|r *)aStr|
|00002a10| 69 6e 67 31 29 3b 0d 09 | 09 50 73 74 72 69 6e 67 |ing1);..|.Pstring|
|00002a20| 43 6f 70 79 28 28 63 68 | 61 72 20 2a 29 74 68 65 |Copy((ch|ar *)the|
|00002a30| 4d 65 73 73 31 2c 22 5c | 70 49 6c 6c 65 67 61 6c |Mess1,"\|pIllegal|
|00002a40| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 69 6e | charact|er in in|
|00002a50| 73 74 72 75 6d 65 6e 74 | 20 6e 75 6d 62 65 72 22 |strument| number"|
|00002a60| 29 3b 0d 09 09 4f 53 45 | 72 72 6f 72 28 74 68 65 |);...OSE|rror(the|
|00002a70| 4d 65 73 73 31 2c 20 74 | 68 65 4d 65 73 73 32 2c |Mess1, t|heMess2,|
|00002a80| 20 4e 49 4c 29 3b 0d 09 | 7d 0d 0d 2f 2a 20 77 65 | NIL);..|}../* we|
|00002a90| 20 6f 6e 6c 79 20 67 65 | 74 20 68 65 72 65 20 69 | only ge|t here i|
|00002aa0| 66 20 77 65 20 6d 61 79 | 20 68 61 76 65 20 74 6f |f we may| have to|
|00002ab0| 20 64 6f 20 63 61 72 72 | 69 65 73 20 2a 2f 0d 09 | do carr|ies */..|
|00002ac0| 70 61 72 61 6d 73 5b 30 | 5d 20 3d 20 69 6e 73 74 |params[0|] = inst|
|00002ad0| 72 5f 67 72 6f 75 70 3b | 0d 09 70 61 72 61 6d 73 |r_group;|..params|
|00002ae0| 5b 31 5d 20 3d 20 31 2e | 30 3b 09 2f 2a 20 73 61 |[1] = 1.|0;./* sa|
|00002af0| 76 65 20 66 6f 72 20 69 | 6e 73 74 72 75 6d 65 6e |ve for i|nstrumen|
|00002b00| 74 20 6e 75 6d 62 65 72 | 20 2a 2f 0d 09 63 70 2b |t number| */..cp+|
|00002b10| 2b 3b 0d 09 77 68 69 6c | 65 20 28 2a 63 70 20 26 |+;..whil|e (*cp &|
|00002b20| 26 20 21 69 73 73 70 61 | 63 65 28 2a 63 70 29 29 |& !isspa|ce(*cp))|
|00002b30| 0d 09 09 63 70 2b 2b 3b | 0d 09 77 68 69 6c 65 20 |...cp++;|..while |
|00002b40| 28 69 73 73 70 61 63 65 | 28 2a 63 70 29 29 0d 09 |(isspace|(*cp))..|
|00002b50| 09 63 70 2b 2b 3b 0d 09 | 66 6f 72 20 28 20 69 20 |.cp++;..|for ( i |
|00002b60| 3d 20 32 3b 20 69 20 3c | 20 4d 41 58 50 41 52 41 |= 2; i <| MAXPARA|
|00002b70| 4d 53 20 26 26 20 2a 63 | 70 3b 20 69 2b 2b 29 20 |MS && *c|p; i++) |
|00002b80| 7b 0d 09 09 69 66 20 28 | 69 73 64 69 67 69 74 28 |{...if (|isdigit(|
|00002b90| 2a 63 70 29 20 7c 7c 20 | 2a 63 70 20 3d 3d 20 27 |*cp) || |*cp == '|
|00002ba0| 2e 27 20 7c 7c 20 2a 63 | 70 20 3d 3d 20 27 2d 27 |.' || *c|p == '-'|
|00002bb0| 20 7c 7c 20 2a 63 70 20 | 3d 3d 20 27 2b 27 29 20 | || *cp |== '+') |
|00002bc0| 7b 0d 09 09 09 70 61 72 | 61 6d 73 5b 69 5d 20 3d |{....par|ams[i] =|
|00002bd0| 20 6d 79 41 74 6f 66 28 | 63 70 29 3b 0d 09 09 7d | myAtof(|cp);...}|
|00002be0| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 20 2a 63 70 |...else |if ( *cp|
|00002bf0| 20 3d 3d 20 27 3b 27 20 | 29 0d 09 09 09 2f 2a 20 | == ';' |)..../* |
|00002c00| 70 61 73 73 20 2a 2f 0d | 09 09 09 09 3b 0d 09 09 |pass */.|....;...|
|00002c10| 65 6c 73 65 20 69 66 20 | 28 2a 63 70 20 3d 3d 20 |else if |(*cp == |
|00002c20| 27 2a 27 29 20 7b 0d 09 | 09 2f 2a 20 64 6f 20 6e |'*') {..|./* do n|
|00002c30| 6f 74 68 69 6e 67 2c 20 | 6f 6c 64 20 76 61 6c 75 |othing, |old valu|
|00002c40| 65 20 69 6e 20 70 61 72 | 61 6d 73 20 2a 2f 0d 09 |e in par|ams */..|
|00002c50| 09 7d 0d 09 09 77 68 69 | 6c 65 20 28 2a 63 70 20 |.}...whi|le (*cp |
|00002c60| 26 26 20 21 69 73 73 70 | 61 63 65 28 2a 63 70 29 |&& !issp|ace(*cp)|
|00002c70| 29 20 2f 2a 20 73 6b 69 | 70 20 72 65 73 74 20 6f |) /* ski|p rest o|
|00002c80| 66 20 6e 75 6d 62 65 72 | 20 2a 2f 0d 09 09 09 63 |f number| */....c|
|00002c90| 70 2b 2b 3b 0d 09 09 77 | 68 69 6c 65 20 28 2a 63 |p++;...w|hile (*c|
|00002ca0| 70 20 26 26 20 69 73 73 | 70 61 63 65 28 2a 63 70 |p && iss|pace(*cp|
|00002cb0| 29 29 09 2f 2a 20 73 6b | 69 70 20 74 6f 20 73 74 |))./* sk|ip to st|
|00002cc0| 61 72 74 20 6f 66 20 6e | 65 78 74 20 6e 75 6d 62 |art of n|ext numb|
|00002cd0| 65 72 20 2a 2f 0d 09 09 | 09 63 70 2b 2b 3b 0d 09 |er */...|.cp++;..|
|00002ce0| 09 69 66 20 28 21 2a 63 | 70 29 20 7b 0d 09 09 09 |.if (!*c|p) {....|
|00002cf0| 70 72 65 76 69 6e 73 74 | 72 5f 67 72 6f 75 70 20 |previnst|r_group |
|00002d00| 3d 20 28 69 6e 74 29 70 | 61 72 61 6d 73 5b 30 5d |= (int)p|arams[0]|
|00002d10| 3b 0d 09 09 09 72 65 74 | 75 72 6e 28 6e 61 72 67 |;....ret|urn(narg|
|00002d20| 73 29 3b 0d 09 09 7d 0d | 09 7d 0d 7d 09 2f 2a 20 |s);...}.|.}.}./* |
|00002d30| 64 65 63 6f 64 65 20 2a | 2f 0d 0d 0d 0d 73 74 72 |decode *|/....str|
|00002d40| 61 69 67 68 74 5f 49 5f | 63 6f 70 79 28 29 0d 7b |aight_I_|copy().{|
|00002d50| 0d 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 69 |..regist|er int i|
|00002d60| 3b 0d 09 63 68 61 72 20 | 2a 63 70 3b 0d 2f 2a 20 |;..char |*cp;./* |
|00002d70| 70 61 72 61 6d 73 20 66 | 6f 72 6d 61 74 20 66 6f |params f|ormat fo|
|00002d80| 72 20 69 20 63 61 72 64 | 73 20 69 73 3a 0d 2a 09 |r i card|s is:.*.|
|00002d90| 70 61 72 61 6d 73 5b 30 | 5d 20 3d 20 69 6e 73 74 |params[0|] = inst|
|00002da0| 72 5f 67 72 6f 75 70 20 | 66 6f 72 20 69 20 63 61 |r_group |for i ca|
|00002db0| 72 64 73 2c 20 66 6e 6f | 20 66 6f 72 20 66 63 61 |rds, fno| for fca|
|00002dc0| 72 64 73 2e 0d 2a 09 70 | 61 72 61 6d 73 5b 31 5d |rds..*.p|arams[1]|
|00002dd0| 20 3d 20 28 75 6e 75 73 | 65 64 20 66 6f 72 20 69 | = (unus|ed for i|
|00002de0| 20 63 61 72 64 73 2c 20 | 6c 61 74 65 72 20 62 65 | cards, |later be|
|00002df0| 63 6f 6d 65 73 20 69 6e | 73 74 72 75 6d 65 6e 74 |comes in|strument|
|00002e00| 20 4e 55 4d 42 45 52 2c | 20 6f 74 68 65 72 77 69 | NUMBER,| otherwi|
|00002e10| 73 65 0d 09 28 73 74 61 | 72 74 20 74 69 6d 65 29 |se..(sta|rt time)|
|00002e20| 0d 2a 09 70 61 72 61 6d | 73 5b 32 5d 20 3d 20 73 |.*.param|s[2] = s|
|00002e30| 74 61 72 74 20 74 69 6d | 65 20 66 6f 72 20 69 20 |tart tim|e for i |
|00002e40| 63 61 72 64 73 2c 20 67 | 65 6e 20 6e 6f 20 66 6f |cards, g|en no fo|
|00002e50| 72 20 66 20 63 61 72 64 | 73 0d 2a 09 70 61 72 61 |r f card|s.*.para|
|00002e60| 6d 73 5b 33 5d 20 3d 20 | 64 75 72 61 74 69 6f 6e |ms[3] = |duration|
|00002e70| 20 66 6f 72 20 69 20 63 | 61 72 64 73 0d 2a 2f 0d | for i c|ards.*/.|
|00002e80| 09 63 70 20 3d 20 63 61 | 72 64 3b 0d 09 6e 61 72 |.cp = ca|rd;..nar|
|00002e90| 67 73 20 3d 20 30 3b 0d | 09 63 70 2b 2b 3b 0d 09 |gs = 0;.|.cp++;..|
|00002ea0| 77 68 69 6c 65 20 28 69 | 73 73 70 61 63 65 28 2a |while (i|sspace(*|
|00002eb0| 63 70 29 29 0d 09 09 63 | 70 2b 2b 3b 0d 09 69 66 |cp))...c|p++;..if|
|00002ec0| 20 28 69 73 64 69 67 69 | 74 28 2a 63 70 29 20 7c | (isdigi|t(*cp) ||
|00002ed0| 7c 20 2a 63 70 20 3d 3d | 20 27 2e 27 20 7c 7c 20 || *cp ==| '.' || |
|00002ee0| 2a 63 70 20 3d 3d 20 27 | 2d 27 20 7c 7c 20 2a 63 |*cp == '|-' || *c|
|00002ef0| 70 20 3d 3d 20 27 2b 27 | 29 20 7b 0d 09 09 70 61 |p == '+'|) {...pa|
|00002f00| 72 61 6d 73 5b 30 5d 20 | 3d 20 6d 79 41 74 6f 66 |rams[0] |= myAtof|
|00002f10| 28 63 70 29 3b 0d 09 09 | 6e 61 72 67 73 2b 2b 3b |(cp);...|nargs++;|
|00002f20| 0d 09 09 63 70 2b 2b 3b | 0d 09 09 77 68 69 6c 65 |...cp++;|...while|
|00002f30| 20 28 2a 63 70 20 26 26 | 20 21 69 73 73 70 61 63 | (*cp &&| !isspac|
|00002f40| 65 28 2a 63 70 29 29 20 | 2f 2a 20 73 6b 69 70 20 |e(*cp)) |/* skip |
|00002f50| 72 65 73 74 20 6f 66 20 | 6e 75 6d 62 65 72 20 2a |rest of |number *|
|00002f60| 2f 0d 09 09 09 63 70 2b | 2b 3b 0d 09 09 77 68 69 |/....cp+|+;...whi|
|00002f70| 6c 65 20 28 2a 63 70 20 | 26 26 20 69 73 73 70 61 |le (*cp |&& isspa|
|00002f80| 63 65 28 2a 63 70 29 29 | 09 2f 2a 20 73 6b 69 70 |ce(*cp))|./* skip|
|00002f90| 20 74 6f 20 73 74 61 72 | 74 20 6f 66 20 6e 65 78 | to star|t of nex|
|00002fa0| 74 20 6e 75 6d 62 65 72 | 20 2a 2f 0d 09 09 09 63 |t number| */....c|
|00002fb0| 70 2b 2b 3b 0d 09 7d 0d | 09 70 61 72 61 6d 73 5b |p++;..}.|.params[|
|00002fc0| 31 5d 20 3d 20 31 2e 30 | 3b 20 0d 09 6e 61 72 67 |1] = 1.0|; ..narg|
|00002fd0| 73 2b 2b 3b 0d 09 77 68 | 69 6c 65 20 28 69 73 73 |s++;..wh|ile (iss|
|00002fe0| 70 61 63 65 28 2a 63 70 | 29 29 0d 09 09 63 70 2b |pace(*cp|))...cp+|
|00002ff0| 2b 3b 0d 09 66 6f 72 20 | 28 20 69 20 3d 20 32 3b |+;..for |( i = 2;|
|00003000| 20 69 20 3c 20 4d 41 58 | 50 41 52 41 4d 53 20 26 | i < MAX|PARAMS &|
|00003010| 26 20 2a 63 70 3b 20 69 | 2b 2b 29 20 7b 0d 09 09 |& *cp; i|++) {...|
|00003020| 69 66 20 28 69 73 64 69 | 67 69 74 28 2a 63 70 29 |if (isdi|git(*cp)|
|00003030| 20 7c 7c 20 2a 63 70 20 | 3d 3d 20 27 2e 27 20 7c | || *cp |== '.' ||
|00003040| 7c 20 2a 63 70 20 3d 3d | 20 27 2d 27 20 7c 7c 20 || *cp ==| '-' || |
|00003050| 2a 63 70 20 3d 3d 20 27 | 2b 27 29 20 7b 0d 09 09 |*cp == '|+') {...|
|00003060| 09 70 61 72 61 6d 73 5b | 69 5d 20 3d 20 6d 79 41 |.params[|i] = myA|
|00003070| 74 6f 66 28 63 70 29 3b | 0d 09 09 09 6e 61 72 67 |tof(cp);|....narg|
|00003080| 73 2b 2b 3b 0d 09 09 7d | 0d 09 09 65 6c 73 65 20 |s++;...}|...else |
|00003090| 69 66 20 28 2a 63 70 20 | 3d 3d 20 43 41 52 52 59 |if (*cp |== CARRY|
|000030a0| 5f 43 4f 44 45 29 20 7b | 0d 09 09 09 4e 75 6d 54 |_CODE) {|....NumT|
|000030b0| 6f 53 74 72 69 6e 67 28 | 28 6c 6f 6e 67 29 6c 69 |oString(|(long)li|
|000030c0| 6e 65 6e 6f 2c 20 61 53 | 74 72 69 6e 67 32 29 3b |neno, aS|tring2);|
|000030d0| 0d 09 09 09 50 73 74 72 | 69 6e 67 43 6f 70 79 28 |....Pstr|ingCopy(|
|000030e0| 61 53 74 72 69 6e 67 31 | 2c 20 22 5c 70 6f 6e 20 |aString1|, "\pon |
|000030f0| 6c 69 6e 65 3a 20 22 29 | 3b 0d 09 09 09 50 73 74 |line: ")|;....Pst|
|00003100| 72 69 6e 67 43 61 74 28 | 61 53 74 72 69 6e 67 31 |ringCat(|aString1|
|00003110| 2c 20 61 53 74 72 69 6e | 67 32 29 3b 0d 09 09 09 |, aStrin|g2);....|
|00003120| 50 73 74 72 69 6e 67 43 | 61 74 28 28 63 68 61 72 |PstringC|at((char|
|00003130| 20 2a 29 74 68 65 4d 65 | 73 73 32 2c 20 28 63 68 | *)theMe|ss2, (ch|
|00003140| 61 72 20 2a 29 61 53 74 | 72 69 6e 67 31 29 3b 0d |ar *)aSt|ring1);.|
|00003150| 09 09 09 50 73 74 72 69 | 6e 67 43 6f 70 79 28 28 |...Pstri|ngCopy((|
|00003160| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 2c |char *)t|heMess1,|
|00003170| 22 5c 70 49 6c 6c 65 67 | 61 6c 20 63 61 72 72 79 |"\pIlleg|al carry|
|00003180| 22 29 3b 0d 09 09 09 4f | 53 45 72 72 6f 72 28 74 |");....O|SError(t|
|00003190| 68 65 4d 65 73 73 31 2c | 20 74 68 65 4d 65 73 73 |heMess1,| theMess|
|000031a0| 32 2c 20 4e 49 4c 29 3b | 0d 09 09 7d 0d 09 09 65 |2, NIL);|...}...e|
|000031b0| 6c 73 65 20 69 66 20 28 | 20 2a 63 70 20 3d 3d 20 |lse if (| *cp == |
|000031c0| 27 3b 27 20 29 0d 09 09 | 09 2f 2a 20 70 61 73 73 |';' )...|./* pass|
|000031d0| 20 2a 2f 0d 09 09 09 09 | 3b 0d 09 09 65 6c 73 65 | */.....|;...else|
|000031e0| 20 7b 0d 09 09 09 4e 75 | 6d 54 6f 53 74 72 69 6e | {....Nu|mToStrin|
|000031f0| 67 28 28 6c 6f 6e 67 29 | 6c 69 6e 65 6e 6f 2c 20 |g((long)|lineno, |
|00003200| 61 53 74 72 69 6e 67 32 | 29 3b 0d 09 09 09 50 73 |aString2|);....Ps|
|00003210| 74 72 69 6e 67 43 6f 70 | 79 28 61 53 74 72 69 6e |tringCop|y(aStrin|
|00003220| 67 31 2c 20 22 5c 70 6f | 6e 20 6c 69 6e 65 3a 20 |g1, "\po|n line: |
|00003230| 22 29 3b 0d 09 09 09 50 | 73 74 72 69 6e 67 43 61 |");....P|stringCa|
|00003240| 74 28 61 53 74 72 69 6e | 67 31 2c 20 61 53 74 72 |t(aStrin|g1, aStr|
|00003250| 69 6e 67 32 29 3b 0d 09 | 09 09 50 73 74 72 69 6e |ing2);..|..Pstrin|
|00003260| 67 43 61 74 28 28 63 68 | 61 72 20 2a 29 74 68 65 |gCat((ch|ar *)the|
|00003270| 4d 65 73 73 32 2c 20 28 | 63 68 61 72 20 2a 29 61 |Mess2, (|char *)a|
|00003280| 53 74 72 69 6e 67 31 29 | 3b 0d 09 09 09 50 73 74 |String1)|;....Pst|
|00003290| 72 69 6e 67 43 6f 70 79 | 28 28 63 68 61 72 20 2a |ringCopy|((char *|
|000032a0| 29 74 68 65 4d 65 73 73 | 31 2c 22 5c 70 49 6c 6c |)theMess|1,"\pIll|
|000032b0| 65 67 61 6c 20 63 68 61 | 72 61 63 74 65 72 22 29 |egal cha|racter")|
|000032c0| 3b 0d 09 09 09 4f 53 45 | 72 72 6f 72 28 74 68 65 |;....OSE|rror(the|
|000032d0| 4d 65 73 73 31 2c 20 74 | 68 65 4d 65 73 73 32 2c |Mess1, t|heMess2,|
|000032e0| 20 4e 49 4c 29 3b 0d 09 | 09 09 0d 09 09 7d 0d 09 | NIL);..|.....}..|
|000032f0| 09 77 68 69 6c 65 20 28 | 2a 63 70 20 26 26 20 21 |.while (|*cp && !|
|00003300| 69 73 73 70 61 63 65 28 | 2a 63 70 29 29 20 2f 2a |isspace(|*cp)) /*|
|00003310| 20 73 6b 69 70 20 72 65 | 73 74 20 6f 66 20 6e 75 | skip re|st of nu|
|00003320| 6d 62 65 72 20 2a 2f 0d | 09 09 09 63 70 2b 2b 3b |mber */.|...cp++;|
|00003330| 0d 09 09 77 68 69 6c 65 | 20 28 2a 63 70 20 26 26 |...while| (*cp &&|
|00003340| 20 69 73 73 70 61 63 65 | 28 2a 63 70 29 29 09 2f | isspace|(*cp))./|
|00003350| 2a 20 73 6b 69 70 20 74 | 6f 20 73 74 61 72 74 20 |* skip t|o start |
|00003360| 6f 66 20 6e 65 78 74 20 | 6e 75 6d 62 65 72 20 2a |of next |number *|
|00003370| 2f 0d 09 09 09 63 70 2b | 2b 3b 0d 09 09 69 66 20 |/....cp+|+;...if |
|00003380| 28 21 2a 63 70 29 20 7b | 0d 09 09 09 70 72 65 76 |(!*cp) {|....prev|
|00003390| 69 6e 73 74 72 5f 67 72 | 6f 75 70 20 3d 20 28 69 |instr_gr|oup = (i|
|000033a0| 6e 74 29 70 61 72 61 6d | 73 5b 30 5d 3b 0d 09 09 |nt)param|s[0];...|
|000033b0| 09 72 65 74 75 72 6e 28 | 6e 61 72 67 73 29 3b 0d |.return(|nargs);.|
|000033c0| 09 09 7d 0d 09 7d 0d 09 | 72 65 74 75 72 6e 28 6e |..}..}..|return(n|
|000033d0| 61 72 67 73 29 3b 0d 7d | 09 2f 2a 20 73 74 72 61 |args);.}|./* stra|
|000033e0| 69 67 68 74 5f 49 5f 63 | 6f 70 79 20 2a 2f 0d 0d |ight_I_c|opy */..|
|000033f0| 0d 69 6e 74 09 73 74 72 | 61 69 67 68 74 5f 63 6f |.int.str|aight_co|
|00003400| 70 79 28 29 0d 7b 0d 09 | 72 65 67 69 73 74 65 72 |py().{..|register|
|00003410| 20 69 6e 74 20 69 2c 20 | 6b 3b 0d 09 63 68 61 72 | int i, |k;..char|
|00003420| 20 2a 63 70 3b 0d 2f 2a | 20 70 61 72 61 6d 73 20 | *cp;./*| params |
|00003430| 66 6f 72 6d 61 74 20 66 | 6f 72 20 69 20 63 61 72 |format f|or i car|
|00003440| 64 73 20 69 73 3a 0d 2a | 09 70 61 72 61 6d 73 5b |ds is:.*|.params[|
|00003450| 30 5d 20 3d 20 69 6e 73 | 74 72 5f 67 72 6f 75 70 |0] = ins|tr_group|
|00003460| 20 66 6f 72 20 69 20 63 | 61 72 64 73 2c 20 66 6e | for i c|ards, fn|
|00003470| 6f 20 66 6f 72 20 66 63 | 61 72 64 73 2e 0d 2a 09 |o for fc|ards..*.|
|00003480| 70 61 72 61 6d 73 5b 31 | 5d 20 3d 20 28 75 6e 75 |params[1|] = (unu|
|00003490| 73 65 64 20 66 6f 72 20 | 69 20 63 61 72 64 73 2c |sed for |i cards,|
|000034a0| 20 6c 61 74 65 72 20 62 | 65 63 6f 6d 65 73 20 69 | later b|ecomes i|
|000034b0| 6e 73 74 72 75 6d 65 6e | 74 20 4e 55 4d 42 45 52 |nstrumen|t NUMBER|
|000034c0| 2c 20 6f 74 68 65 72 77 | 69 73 65 0d 09 28 73 74 |, otherw|ise..(st|
|000034d0| 61 72 74 20 74 69 6d 65 | 29 0d 2a 09 70 61 72 61 |art time|).*.para|
|000034e0| 6d 73 5b 32 5d 20 3d 20 | 73 74 61 72 74 20 74 69 |ms[2] = |start ti|
|000034f0| 6d 65 20 66 6f 72 20 69 | 20 63 61 72 64 73 2c 20 |me for i| cards, |
|00003500| 67 65 6e 20 6e 6f 20 66 | 6f 72 20 66 20 63 61 72 |gen no f|or f car|
|00003510| 64 73 0d 2a 09 70 61 72 | 61 6d 73 5b 33 5d 20 3d |ds.*.par|ams[3] =|
|00003520| 20 64 75 72 61 74 69 6f | 6e 20 66 6f 72 20 69 20 | duratio|n for i |
|00003530| 63 61 72 64 73 0d 2a 2f | 0d 0d 09 63 70 20 3d 20 |cards.*/|...cp = |
|00003540| 63 61 72 64 3b 0d 09 6e | 61 72 67 73 20 3d 20 30 |card;..n|args = 0|
|00003550| 3b 0d 09 63 70 2b 2b 3b | 0d 09 77 68 69 6c 65 20 |;..cp++;|..while |
|00003560| 28 69 73 73 70 61 63 65 | 28 2a 63 70 29 29 0d 09 |(isspace|(*cp))..|
|00003570| 09 63 70 2b 2b 3b 0d 09 | 66 6f 72 20 28 20 69 20 |.cp++;..|for ( i |
|00003580| 3d 20 30 3b 20 69 20 3c | 20 4d 41 58 50 41 52 41 |= 0; i <| MAXPARA|
|00003590| 4d 53 20 26 26 20 2a 63 | 70 3b 20 69 2b 2b 29 20 |MS && *c|p; i++) |
|000035a0| 7b 0d 09 09 69 66 20 28 | 69 73 64 69 67 69 74 28 |{...if (|isdigit(|
|000035b0| 2a 63 70 29 20 7c 7c 20 | 2a 63 70 20 3d 3d 20 27 |*cp) || |*cp == '|
|000035c0| 2e 27 20 7c 7c 20 2a 63 | 70 20 3d 3d 20 27 2d 27 |.' || *c|p == '-'|
|000035d0| 20 7c 7c 20 2a 63 70 20 | 3d 3d 20 27 2b 27 29 20 | || *cp |== '+') |
|000035e0| 7b 0d 09 09 09 70 61 72 | 61 6d 73 5b 69 5d 20 3d |{....par|ams[i] =|
|000035f0| 20 6d 79 41 74 6f 66 28 | 63 70 29 3b 0d 09 09 09 | myAtof(|cp);....|
|00003600| 6e 61 72 67 73 2b 2b 3b | 0d 09 09 7d 0d 09 09 65 |nargs++;|...}...e|
|00003610| 6c 73 65 20 69 66 20 28 | 2a 63 70 20 3d 3d 20 43 |lse if (|*cp == C|
|00003620| 41 52 52 59 5f 43 4f 44 | 45 29 20 7b 0d 09 09 09 |ARRY_COD|E) {....|
|00003630| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 28 28 6c 6f 6e |NumToStr|ing((lon|
|00003640| 67 29 6c 69 6e 65 6e 6f | 2c 20 61 53 74 72 69 6e |g)lineno|, aStrin|
|00003650| 67 32 29 3b 0d 09 09 09 | 50 73 74 72 69 6e 67 43 |g2);....|PstringC|
|00003660| 6f 70 79 28 61 53 74 72 | 69 6e 67 31 2c 20 22 5c |opy(aStr|ing1, "\|
|00003670| 70 6f 6e 20 6c 69 6e 65 | 3a 20 22 29 3b 0d 09 09 |pon line|: ");...|
|00003680| 09 50 73 74 72 69 6e 67 | 43 61 74 28 61 53 74 72 |.Pstring|Cat(aStr|
|00003690| 69 6e 67 31 2c 20 61 53 | 74 72 69 6e 67 32 29 3b |ing1, aS|tring2);|
|000036a0| 0d 09 09 09 50 73 74 72 | 69 6e 67 43 61 74 28 28 |....Pstr|ingCat((|
|000036b0| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 32 2c |char *)t|heMess2,|
|000036c0| 20 28 63 68 61 72 20 2a | 29 61 53 74 72 69 6e 67 | (char *|)aString|
|000036d0| 31 29 3b 0d 09 09 09 50 | 73 74 72 69 6e 67 43 6f |1);....P|stringCo|
|000036e0| 70 79 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |py((char| *)theMe|
|000036f0| 73 73 31 2c 22 5c 70 49 | 6c 6c 65 67 61 6c 20 63 |ss1,"\pI|llegal c|
|00003700| 61 72 72 79 22 29 3b 0d | 09 09 09 4f 53 45 72 72 |arry");.|...OSErr|
|00003710| 6f 72 28 74 68 65 4d 65 | 73 73 31 2c 20 74 68 65 |or(theMe|ss1, the|
|00003720| 4d 65 73 73 32 2c 20 4e | 49 4c 29 3b 0d 09 09 7d |Mess2, N|IL);...}|
|00003730| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 20 2a 63 70 |...else |if ( *cp|
|00003740| 20 3d 3d 20 27 3b 27 20 | 29 0d 09 09 09 2f 2a 20 | == ';' |)..../* |
|00003750| 70 61 73 73 20 2a 2f 0d | 09 09 09 09 3b 0d 09 09 |pass */.|....;...|
|00003760| 65 6c 73 65 20 7b 0d 09 | 09 09 4e 75 6d 54 6f 53 |else {..|..NumToS|
|00003770| 74 72 69 6e 67 28 28 6c | 6f 6e 67 29 6c 69 6e 65 |tring((l|ong)line|
|00003780| 6e 6f 2c 20 61 53 74 72 | 69 6e 67 32 29 3b 0d 09 |no, aStr|ing2);..|
|00003790| 09 09 50 73 74 72 69 6e | 67 43 6f 70 79 28 61 53 |..Pstrin|gCopy(aS|
|000037a0| 74 72 69 6e 67 31 2c 20 | 22 5c 70 6f 6e 20 6c 69 |tring1, |"\pon li|
|000037b0| 6e 65 3a 20 22 29 3b 0d | 09 09 09 50 73 74 72 69 |ne: ");.|...Pstri|
|000037c0| 6e 67 43 61 74 28 61 53 | 74 72 69 6e 67 31 2c 20 |ngCat(aS|tring1, |
|000037d0| 61 53 74 72 69 6e 67 32 | 29 3b 0d 09 09 09 50 73 |aString2|);....Ps|
|000037e0| 74 72 69 6e 67 43 61 74 | 28 28 63 68 61 72 20 2a |tringCat|((char *|
|000037f0| 29 74 68 65 4d 65 73 73 | 32 2c 20 28 63 68 61 72 |)theMess|2, (char|
|00003800| 20 2a 29 61 53 74 72 69 | 6e 67 31 29 3b 0d 09 09 | *)aStri|ng1);...|
|00003810| 09 50 73 74 72 69 6e 67 | 43 6f 70 79 28 28 63 68 |.Pstring|Copy((ch|
|00003820| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 22 5c |ar *)the|Mess1,"\|
|00003830| 70 49 6c 6c 65 67 61 6c | 20 63 68 61 72 61 63 74 |pIllegal| charact|
|00003840| 65 72 22 29 3b 0d 09 09 | 09 4f 53 45 72 72 6f 72 |er");...|.OSError|
|00003850| 28 74 68 65 4d 65 73 73 | 31 2c 20 74 68 65 4d 65 |(theMess|1, theMe|
|00003860| 73 73 32 2c 20 4e 49 4c | 29 3b 0d 09 09 7d 0d 09 |ss2, NIL|);...}..|
|00003870| 09 77 68 69 6c 65 20 28 | 2a 63 70 20 26 26 20 21 |.while (|*cp && !|
|00003880| 69 73 73 70 61 63 65 28 | 2a 63 70 29 29 20 2f 2a |isspace(|*cp)) /*|
|00003890| 20 73 6b 69 70 20 72 65 | 73 74 20 6f 66 20 6e 75 | skip re|st of nu|
|000038a0| 6d 62 65 72 20 2a 2f 0d | 09 09 09 63 70 2b 2b 3b |mber */.|...cp++;|
|000038b0| 0d 09 09 77 68 69 6c 65 | 20 28 2a 63 70 20 26 26 |...while| (*cp &&|
|000038c0| 20 69 73 73 70 61 63 65 | 28 2a 63 70 29 29 09 2f | isspace|(*cp))./|
|000038d0| 2a 20 73 6b 69 70 20 74 | 6f 20 73 74 61 72 74 20 |* skip t|o start |
|000038e0| 6f 66 20 6e 65 78 74 20 | 6e 75 6d 62 65 72 20 2a |of next |number *|
|000038f0| 2f 0d 09 09 09 63 70 2b | 2b 3b 0d 09 09 69 66 20 |/....cp+|+;...if |
|00003900| 28 21 2a 63 70 29 20 7b | 0d 09 09 09 70 72 65 76 |(!*cp) {|....prev|
|00003910| 69 6e 73 74 72 5f 67 72 | 6f 75 70 20 3d 20 28 69 |instr_gr|oup = (i|
|00003920| 6e 74 29 70 61 72 61 6d | 73 5b 30 5d 3b 0d 09 09 |nt)param|s[0];...|
|00003930| 09 72 65 74 75 72 6e 28 | 6e 61 72 67 73 29 3b 0d |.return(|nargs);.|
|00003940| 09 09 7d 0d 09 7d 0d 09 | 72 65 74 75 72 6e 28 6e |..}..}..|return(n|
|00003950| 61 72 67 73 29 3b 0d 7d | 09 2f 2a 20 73 74 72 61 |args);.}|./* stra|
|00003960| 69 67 68 74 5f 63 6f 70 | 79 20 2a 2f 0d 0d 0d 0d |ight_cop|y */....|
|00003970| 69 6e 74 09 64 65 63 6f | 64 65 5f 74 5f 63 61 72 |int.deco|de_t_car|
|00003980| 64 28 6e 5f 54 5f 63 61 | 72 64 73 29 0d 09 69 6e |d(n_T_ca|rds)..in|
|00003990| 74 09 6e 5f 54 5f 63 61 | 72 64 73 3b 0d 7b 0d 09 |t.n_T_ca|rds;.{..|
|000039a0| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 69 3b 0d |register| int i;.|
|000039b0| 09 63 68 61 72 20 2a 63 | 70 20 3d 20 63 61 72 64 |.char *c|p = card|
|000039c0| 3b 0d 0d 09 6e 61 72 67 | 73 20 3d 20 30 3b 0d 09 |;...narg|s = 0;..|
|000039d0| 63 70 2b 2b 3b 0d 09 77 | 68 69 6c 65 20 28 69 73 |cp++;..w|hile (is|
|000039e0| 73 70 61 63 65 28 2a 63 | 70 29 29 0d 09 09 63 70 |space(*c|p))...cp|
|000039f0| 2b 2b 3b 0d 09 66 6f 72 | 20 28 20 69 20 3d 20 30 |++;..for| ( i = 0|
|00003a00| 3b 20 69 20 3c 20 4d 41 | 58 50 41 52 41 4d 53 20 |; i < MA|XPARAMS |
|00003a10| 26 26 20 2a 63 70 3b 20 | 69 2b 2b 29 20 7b 0d 09 |&& *cp; |i++) {..|
|00003a20| 09 69 66 20 28 69 73 64 | 69 67 69 74 28 2a 63 70 |.if (isd|igit(*cp|
|00003a30| 29 20 7c 7c 20 2a 63 70 | 20 3d 3d 20 27 2e 27 20 |) || *cp| == '.' |
|00003a40| 7c 7c 20 2a 63 70 20 3d | 3d 20 27 2d 27 20 7c 7c ||| *cp =|= '-' |||
|00003a50| 20 2a 63 70 20 3d 3d 20 | 27 2b 27 29 20 7b 0d 09 | *cp == |'+') {..|
|00003a60| 09 09 2a 28 74 70 61 72 | 61 6d 73 5b 6e 5f 54 5f |..*(tpar|ams[n_T_|
|00003a70| 63 61 72 64 73 5d 2b 69 | 29 20 3d 20 6d 79 41 74 |cards]+i|) = myAt|
|00003a80| 6f 66 28 63 70 29 3b 0d | 09 09 09 6e 61 72 67 73 |of(cp);.|...nargs|
|00003a90| 2b 2b 3b 0d 09 09 7d 0d | 09 09 65 6c 73 65 20 69 |++;...}.|..else i|
|00003aa0| 66 20 28 20 2a 63 70 20 | 3d 3d 20 27 3b 27 20 29 |f ( *cp |== ';' )|
|00003ab0| 0d 09 09 09 2f 2a 20 70 | 61 73 73 20 2a 2f 0d 09 |..../* p|ass */..|
|00003ac0| 09 09 09 3b 0d 09 09 65 | 6c 73 65 20 7b 0d 09 09 |...;...e|lse {...|
|00003ad0| 09 73 70 72 69 6e 74 66 | 28 28 63 68 61 72 20 2a |.sprintf|((char *|
|00003ae0| 29 61 53 74 72 69 6e 67 | 31 2c 20 22 53 65 63 74 |)aString|1, "Sect|
|00003af0| 69 6f 6e 20 6e 6f 20 25 | 64 20 6c 69 6e 65 20 25 |ion no %|d line %|
|00003b00| 64 22 2c 20 73 65 63 74 | 6e 6f 2c 20 6c 69 6e 65 |d", sect|no, line|
|00003b10| 6e 6f 29 3b 0d 09 09 09 | 43 74 6f 50 73 74 72 28 |no);....|CtoPstr(|
|00003b20| 61 53 74 72 69 6e 67 31 | 29 3b 0d 09 09 09 50 73 |aString1|);....Ps|
|00003b30| 74 72 69 6e 67 43 61 74 | 28 28 63 68 61 72 20 2a |tringCat|((char *|
|00003b40| 29 74 68 65 4d 65 73 73 | 32 2c 20 61 53 74 72 69 |)theMess|2, aStri|
|00003b50| 6e 67 31 29 3b 0d 09 09 | 09 50 73 74 72 69 6e 67 |ng1);...|.Pstring|
|00003b60| 43 61 74 28 28 63 68 61 | 72 20 2a 29 74 68 65 4d |Cat((cha|r *)theM|
|00003b70| 65 73 73 31 2c 20 22 5c | 70 49 6c 6c 65 67 61 6c |ess1, "\|pIllegal|
|00003b80| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 74 65 | charact|er in te|
|00003b90| 6d 70 6f 20 72 65 63 6f | 72 64 22 29 3b 0d 09 09 |mpo reco|rd");...|
|00003ba0| 09 4f 53 45 72 72 6f 72 | 28 74 68 65 4d 65 73 73 |.OSError|(theMess|
|00003bb0| 31 2c 20 74 68 65 4d 65 | 73 73 32 2c 20 4e 49 4c |1, theMe|ss2, NIL|
|00003bc0| 29 3b 0d 09 09 7d 0d 09 | 09 77 68 69 6c 65 20 28 |);...}..|.while (|
|00003bd0| 2a 63 70 20 26 26 20 21 | 69 73 73 70 61 63 65 28 |*cp && !|isspace(|
|00003be0| 2a 63 70 29 29 20 2f 2a | 20 73 6b 69 70 20 72 65 |*cp)) /*| skip re|
|00003bf0| 73 74 20 6f 66 20 6e 75 | 6d 62 65 72 20 2a 2f 0d |st of nu|mber */.|
|00003c00| 09 09 09 63 70 2b 2b 3b | 0d 09 09 77 68 69 6c 65 |...cp++;|...while|
|00003c10| 20 28 2a 63 70 20 26 26 | 20 69 73 73 70 61 63 65 | (*cp &&| isspace|
|00003c20| 28 2a 63 70 29 29 09 2f | 2a 20 73 6b 69 70 20 74 |(*cp))./|* skip t|
|00003c30| 6f 20 73 74 61 72 74 20 | 6f 66 20 6e 65 78 74 20 |o start |of next |
|00003c40| 6e 75 6d 62 65 72 20 2a | 2f 0d 09 09 09 63 70 2b |number *|/....cp+|
|00003c50| 2b 3b 0d 09 09 69 66 20 | 28 21 2a 63 70 29 20 7b |+;...if |(!*cp) {|
|00003c60| 0d 09 09 09 72 65 74 75 | 72 6e 28 6e 61 72 67 73 |....retu|rn(nargs|
|00003c70| 29 3b 0d 09 09 7d 0d 09 | 7d 0d 7d 09 2f 2a 20 64 |);...}..|}.}./* d|
|00003c80| 65 63 6f 64 65 5f 74 5f | 63 61 72 64 20 2a 2f 0d |ecode_t_|card */.|
|00003c90| 0d 0d 0d 76 6f 69 64 09 | 72 65 70 6f 72 74 32 28 |...void.|report2(|
|00003ca0| 6c 69 73 74 29 0d 09 45 | 76 65 6e 74 20 2a 6c 69 |list)..E|vent *li|
|00003cb0| 73 74 3b 0d 7b 0d 09 2f | 2a 20 70 72 69 6e 74 73 |st;.{../|* prints|
|00003cc0| 20 65 76 65 6e 74 20 6c | 69 73 74 20 6f 6e 20 66 | event l|ist on f|
|00003cd0| 69 6c 65 20 66 6f 72 20 | 64 65 62 75 67 67 69 6e |ile for |debuggin|
|00003ce0| 67 20 70 75 72 70 6f 73 | 65 73 20 2a 2f 0d 0d 09 |g purpos|es */...|
|00003cf0| 45 76 65 6e 74 20 2a 63 | 75 72 73 6f 72 3b 0d 09 |Event *c|ursor;..|
|00003d00| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 69 3b 0d |register| int i;.|
|00003d10| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 6e 3b |.registe|r int n;|
|00003d20| 0d 0d 0d 09 69 66 20 28 | 20 6c 69 73 74 20 3d 3d |....if (| list ==|
|00003d30| 20 4e 49 4c 20 29 20 7b | 0d 09 09 72 65 74 75 72 | NIL ) {|...retur|
|00003d40| 6e 3b 0d 09 7d 0d 09 63 | 75 72 73 6f 72 20 3d 20 |n;..}..c|ursor = |
|00003d50| 6c 69 73 74 3b 0d 09 77 | 68 69 6c 65 20 28 20 63 |list;..w|hile ( c|
|00003d60| 75 72 73 6f 72 20 21 3d | 20 4e 49 4c 20 29 20 7b |ursor !=| NIL ) {|
|00003d70| 20 0d 09 09 6e 20 3d 20 | 30 3b 0d 09 09 69 66 20 | ...n = |0;...if |
|00003d80| 28 20 63 75 72 73 6f 72 | 2d 3e 6f 70 20 3d 3d 20 |( cursor|->op == |
|00003d90| 45 4e 44 4f 50 20 29 20 | 7b 0d 09 09 09 73 70 72 |ENDOP ) |{....spr|
|00003da0| 69 6e 74 66 28 20 28 63 | 68 61 72 20 2a 29 74 68 |intf( (c|har *)th|
|00003db0| 65 4d 65 73 73 31 2c 20 | 20 22 25 64 22 2c 20 28 |eMess1, | "%d", (|
|00003dc0| 69 6e 74 29 63 75 72 73 | 6f 72 2d 3e 6f 70 29 3b |int)curs|or->op);|
|00003dd0| 0d 09 09 09 52 65 70 6f | 72 74 28 28 63 68 61 72 |....Repo|rt((char|
|00003de0| 20 2a 29 74 68 65 4d 65 | 73 73 31 29 3b 0d 09 09 | *)theMe|ss1);...|
|00003df0| 09 73 70 72 69 6e 74 66 | 28 20 28 63 68 61 72 20 |.sprintf|( (char |
|00003e00| 2a 29 74 68 65 4d 65 73 | 73 31 2c 20 22 20 25 38 |*)theMes|s1, " %8|
|00003e10| 2e 33 66 22 2c 20 2a 28 | 63 75 72 73 6f 72 2d 3e |.3f", *(|cursor->|
|00003e20| 70 70 74 72 29 29 3b 0d | 09 09 09 52 65 70 6f 72 |pptr));.|...Repor|
|00003e30| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00003e40| 73 31 29 3b 0d 09 09 09 | 73 70 72 69 6e 74 66 28 |s1);....|sprintf(|
|00003e50| 20 28 63 68 61 72 20 2a | 29 74 68 65 4d 65 73 73 | (char *|)theMess|
|00003e60| 31 2c 20 22 20 25 38 2e | 33 66 22 2c 20 2a 28 63 |1, " %8.|3f", *(c|
|00003e70| 75 72 73 6f 72 2d 3e 70 | 70 74 72 2b 31 29 29 3b |ursor->p|ptr+1));|
|00003e80| 0d 09 09 09 52 65 70 6f | 72 74 28 28 63 68 61 72 |....Repo|rt((char|
|00003e90| 20 2a 29 74 68 65 4d 65 | 73 73 31 29 3b 0d 09 09 | *)theMe|ss1);...|
|00003ea0| 09 73 70 72 69 6e 74 66 | 28 20 28 63 68 61 72 20 |.sprintf|( (char |
|00003eb0| 2a 29 74 68 65 4d 65 73 | 73 31 2c 20 22 20 20 20 |*)theMes|s1, " |
|00003ec0| 20 20 20 20 20 20 20 25 | 38 2e 33 66 22 2c 20 2a | %|8.3f", *|
|00003ed0| 28 63 75 72 73 6f 72 2d | 3e 70 70 74 72 2b 32 29 |(cursor-|>pptr+2)|
|00003ee0| 29 3b 0d 09 09 09 52 65 | 70 6f 72 74 28 28 63 68 |);....Re|port((ch|
|00003ef0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 29 3b 0d |ar *)the|Mess1);.|
|00003f00| 09 09 7d 0d 09 09 65 6c | 73 65 20 7b 0d 09 09 09 |..}...el|se {....|
|00003f10| 73 70 72 69 6e 74 66 28 | 20 28 63 68 61 72 20 2a |sprintf(| (char *|
|00003f20| 29 74 68 65 4d 65 73 73 | 31 2c 20 22 20 25 64 22 |)theMess|1, " %d"|
|00003f30| 2c 20 63 75 72 73 6f 72 | 2d 3e 6f 70 29 3b 0d 09 |, cursor|->op);..|
|00003f40| 09 09 52 65 70 6f 72 74 | 28 28 63 68 61 72 20 2a |..Report|((char *|
|00003f50| 29 74 68 65 4d 65 73 73 | 31 29 3b 0d 09 09 09 69 |)theMess|1);....i|
|00003f60| 66 20 28 20 63 75 72 73 | 6f 72 2d 3e 6f 70 20 3d |f ( curs|or->op =|
|00003f70| 3d 20 45 4f 50 20 29 20 | 7b 0d 09 09 09 09 73 70 |= EOP ) |{.....sp|
|00003f80| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00003f90| 68 65 4d 65 73 73 31 2c | 20 22 20 25 38 2e 33 66 |heMess1,| " %8.3f|
|00003fa0| 22 2c 20 2a 28 63 75 72 | 73 6f 72 2d 3e 70 70 74 |", *(cur|sor->ppt|
|00003fb0| 72 2b 31 29 20 29 3b 0d | 09 09 09 09 52 65 70 6f |r+1) );.|....Repo|
|00003fc0| 72 74 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |rt((char| *)theMe|
|00003fd0| 73 73 31 29 3b 0d 09 09 | 09 09 73 70 72 69 6e 74 |ss1);...|..sprint|
|00003fe0| 66 28 20 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |f( (char| *)theMe|
|00003ff0| 73 73 31 2c 20 22 20 25 | 38 2e 31 66 22 2c 20 2a |ss1, " %|8.1f", *|
|00004000| 28 63 75 72 73 6f 72 2d | 3e 70 70 74 72 2b 32 29 |(cursor-|>pptr+2)|
|00004010| 20 29 3b 0d 09 09 09 09 | 52 65 70 6f 72 74 28 28 | );.....|Report((|
|00004020| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 29 |char *)t|heMess1)|
|00004030| 3b 0d 09 09 09 09 73 70 | 72 69 6e 74 66 28 20 28 |;.....sp|rintf( (|
|00004040| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 2c |char *)t|heMess1,|
|00004050| 20 22 20 25 38 2e 31 66 | 22 2c 20 2a 28 63 75 72 | " %8.1f|", *(cur|
|00004060| 73 6f 72 2d 3e 70 70 74 | 72 2b 33 29 20 29 3b 0d |sor->ppt|r+3) );.|
|00004070| 09 09 09 09 52 65 70 6f | 72 74 28 28 63 68 61 72 |....Repo|rt((char|
|00004080| 20 2a 29 74 68 65 4d 65 | 73 73 31 29 3b 0d 09 09 | *)theMe|ss1);...|
|00004090| 09 7d 0d 09 09 09 65 6c | 73 65 20 69 66 20 28 20 |.}....el|se if ( |
|000040a0| 63 75 72 73 6f 72 2d 3e | 6f 70 20 3d 3d 20 53 4f |cursor->|op == SO|
|000040b0| 50 20 29 20 7b 0d 09 09 | 09 09 73 70 72 69 6e 74 |P ) {...|..sprint|
|000040c0| 66 28 20 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |f( (char| *)theMe|
|000040d0| 73 73 31 2c 20 22 20 25 | 38 2e 33 66 22 2c 20 2a |ss1, " %|8.3f", *|
|000040e0| 28 63 75 72 73 6f 72 2d | 3e 70 70 74 72 29 20 29 |(cursor-|>pptr) )|
|000040f0| 3b 0d 09 09 09 09 52 65 | 70 6f 72 74 28 28 63 68 |;.....Re|port((ch|
|00004100| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 29 3b 0d |ar *)the|Mess1);.|
|00004110| 09 09 09 7d 0d 0d 09 09 | 09 65 6c 73 65 20 7b 0d |...}....|.else {.|
|00004120| 09 09 09 09 66 6f 72 20 | 28 20 69 20 3d 20 30 3b |....for |( i = 0;|
|00004130| 20 69 20 3c 20 63 75 72 | 73 6f 72 2d 3e 6e 61 72 | i < cur|sor->nar|
|00004140| 67 73 3b 20 69 2b 2b 29 | 20 7b 0d 09 09 09 09 09 |gs; i++)| {......|
|00004150| 6e 2b 2b 3b 0d 09 09 09 | 09 09 73 70 72 69 6e 74 |n++;....|..sprint|
|00004160| 66 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |f((char |*)theMes|
|00004170| 73 31 2c 20 22 20 25 38 | 2e 33 66 22 2c 20 2a 28 |s1, " %8|.3f", *(|
|00004180| 63 75 72 73 6f 72 2d 3e | 70 70 74 72 2b 69 29 29 |cursor->|pptr+i))|
|00004190| 3b 0d 09 09 09 09 09 52 | 65 70 6f 72 74 28 28 63 |;......R|eport((c|
|000041a0| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|000041b0| 0d 09 09 09 09 09 69 66 | 20 28 20 6e 20 25 20 38 |......if| ( n % 8|
|000041c0| 20 3d 3d 20 30 20 29 20 | 7b 0d 09 09 09 09 09 09 | == 0 ) |{.......|
|000041d0| 69 66 20 28 20 69 20 3c | 20 63 75 72 73 6f 72 2d |if ( i <| cursor-|
|000041e0| 3e 6e 61 72 67 73 2d 31 | 29 20 7b 0d 09 09 09 09 |>nargs-1|) {.....|
|000041f0| 09 09 09 52 65 70 6f 72 | 74 28 22 5c 6e 22 29 3b |...Repor|t("\n");|
|00004200| 0d 09 09 09 09 09 09 09 | 52 65 70 6f 72 74 28 22 |........|Report("|
|00004210| 5c 74 22 29 3b 0d 09 09 | 09 09 09 09 7d 0d 09 09 |\t");...|....}...|
|00004220| 09 09 09 7d 0d 09 09 09 | 09 7d 0d 09 09 09 7d 0d |...}....|.}....}.|
|00004230| 09 09 7d 0d 09 09 52 65 | 70 6f 72 74 28 22 5c 6e |..}...Re|port("\n|
|00004240| 22 29 3b 0d 09 09 63 75 | 72 73 6f 72 20 3d 20 63 |");...cu|rsor = c|
|00004250| 75 72 73 6f 72 2d 3e 6e | 65 78 74 3b 09 2f 2a 20 |ursor->n|ext;./* |
|00004260| 67 65 74 20 6e 65 78 74 | 20 65 6c 65 6d 65 6e 74 |get next| element|
|00004270| 20 2a 2f 0d 09 7d 0d 7d | 09 2f 2a 20 72 65 70 6f | */..}.}|./* repo|
|00004280| 72 74 32 20 2a 2f 0d 0d | 0d 0d 76 6f 69 64 09 63 |rt2 */..|..void.c|
|00004290| 68 65 63 6b 5f 65 76 65 | 6e 74 28 65 76 65 6e 74 |heck_eve|nt(event|
|000042a0| 29 0d 09 45 76 65 6e 74 | 20 2a 65 76 65 6e 74 3b |)..Event| *event;|
|000042b0| 0d 7b 0d 09 2f 2a 20 70 | 72 69 6e 74 73 20 65 76 |.{../* p|rints ev|
|000042c0| 65 6e 74 20 6c 69 73 74 | 20 6f 6e 20 74 65 72 6d |ent list| on term|
|000042d0| 69 6e 61 6c 20 66 6f 72 | 20 64 65 62 75 67 67 69 |inal for| debuggi|
|000042e0| 6e 67 20 70 75 72 70 6f | 73 65 73 20 2a 2f 0d 0d |ng purpo|ses */..|
|000042f0| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 69 3b |.registe|r int i;|
|00004300| 0d 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 6e |..regist|er int n|
|00004310| 3b 0d 0d 0d 09 69 66 20 | 28 20 21 6f 75 74 31 5f |;....if |( !out1_|
|00004320| 66 6c 61 67 29 0d 09 09 | 72 65 74 75 72 6e 3b 0d |flag)...|return;.|
|00004330| 09 69 66 20 28 20 65 76 | 65 6e 74 20 3d 3d 20 4e |.if ( ev|ent == N|
|00004340| 49 4c 20 29 20 7b 0d 09 | 09 52 65 70 6f 72 74 28 |IL ) {..|.Report(|
|00004350| 22 6e 75 6c 6c 20 65 76 | 65 6e 74 5c 6e 22 29 3b |"null ev|ent\n");|
|00004360| 0d 09 09 72 65 74 75 72 | 6e 3b 0d 09 7d 0d 09 09 |...retur|n;..}...|
|00004370| 6e 20 3d 20 30 3b 0d 09 | 09 73 70 72 69 6e 74 66 |n = 0;..|.sprintf|
|00004380| 28 20 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |( (char |*)theMes|
|00004390| 73 31 2c 20 22 25 64 22 | 2c 20 65 76 65 6e 74 2d |s1, "%d"|, event-|
|000043a0| 3e 6f 70 29 3b 0d 09 09 | 52 65 70 6f 72 74 28 28 |>op);...|Report((|
|000043b0| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 29 |char *)t|heMess1)|
|000043c0| 3b 0d 09 09 73 70 72 69 | 6e 74 66 28 20 28 63 68 |;...spri|ntf( (ch|
|000043d0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 20 22 |ar *)the|Mess1, "|
|000043e0| 20 25 64 22 2c 20 65 76 | 65 6e 74 2d 3e 6e 61 72 | %d", ev|ent->nar|
|000043f0| 67 73 29 3b 09 0d 09 09 | 52 65 70 6f 72 74 28 28 |gs);....|Report((|
|00004400| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 29 |char *)t|heMess1)|
|00004410| 3b 0d 09 09 66 6f 72 20 | 28 20 69 20 3d 20 30 3b |;...for |( i = 0;|
|00004420| 20 69 3c 20 65 76 65 6e | 74 2d 3e 6e 61 72 67 73 | i< even|t->nargs|
|00004430| 3b 20 69 2b 2b 29 20 7b | 0d 09 09 09 6e 2b 2b 3b |; i++) {|....n++;|
|00004440| 0d 09 09 09 73 70 72 69 | 6e 74 66 28 20 28 63 68 |....spri|ntf( (ch|
|00004450| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 20 22 |ar *)the|Mess1, "|
|00004460| 20 25 38 2e 33 66 22 2c | 20 2a 28 65 76 65 6e 74 | %8.3f",| *(event|
|00004470| 2d 3e 70 70 74 72 2b 69 | 29 29 3b 09 0d 09 09 09 |->pptr+i|));.....|
|00004480| 52 65 70 6f 72 74 28 28 | 63 68 61 72 20 2a 29 74 |Report((|char *)t|
|00004490| 68 65 4d 65 73 73 31 29 | 3b 0d 09 09 09 69 66 20 |heMess1)|;....if |
|000044a0| 28 20 6e 20 25 20 38 20 | 3d 3d 20 30 20 29 20 7b |( n % 8 |== 0 ) {|
|000044b0| 0d 09 09 09 09 69 66 20 | 28 20 69 20 3c 20 65 76 |.....if |( i < ev|
|000044c0| 65 6e 74 2d 3e 6e 61 72 | 67 73 2d 31 29 20 7b 0d |ent->nar|gs-1) {.|
|000044d0| 09 09 09 09 09 52 65 70 | 6f 72 74 28 22 5c 6e 22 |.....Rep|ort("\n"|
|000044e0| 29 3b 0d 09 09 09 09 09 | 52 65 70 6f 72 74 28 22 |);......|Report("|
|000044f0| 5c 74 22 29 3b 0d 09 09 | 09 09 7d 0d 09 09 09 7d |\t");...|..}....}|
|00004500| 0d 09 09 7d 0d 09 09 52 | 65 70 6f 72 74 28 22 5c |...}...R|eport("\|
|00004510| 6e 22 29 3b 0d 7d 09 2f | 2a 20 63 68 65 63 6b 5f |n");.}./|* check_|
|00004520| 65 76 65 6e 74 20 2a 2f | 0d 0d 0d 76 6f 69 64 09 |event */|...void.|
|00004530| 66 77 72 69 74 65 32 28 | 6c 69 73 74 29 0d 09 45 |fwrite2(|list)..E|
|00004540| 76 65 6e 74 20 2a 6c 69 | 73 74 3b 0d 7b 0d 09 72 |vent *li|st;.{..r|
|00004550| 65 67 69 73 74 65 72 09 | 69 6e 74 09 69 3b 0d 09 |egister.|int.i;..|
|00004560| 72 65 67 69 73 74 65 72 | 09 69 6e 74 09 6b 3b 0d |register|.int.k;.|
|00004570| 09 45 76 65 6e 74 20 2a | 63 75 72 73 6f 72 2c 20 |.Event *|cursor, |
|00004580| 2a 63 3b 0d 09 69 6e 74 | 20 6c 61 73 74 6f 70 3b |*c;..int| lastop;|
|00004590| 0d 09 65 78 74 65 72 6e | 20 69 6e 74 20 52 75 6e |..extern| int Run|
|000045a0| 54 6f 50 61 73 73 31 3b | 0d 09 69 6e 74 09 65 76 |ToPass1;|..int.ev|
|000045b0| 65 6e 74 4e 6f 20 3d 20 | 30 3b 0d 09 69 6e 74 20 |entNo = |0;..int |
|000045c0| 6f 70 63 6f 64 65 3b 0d | 09 63 75 72 73 6f 72 20 |opcode;.|.cursor |
|000045d0| 3d 20 6c 69 73 74 3b 0d | 09 77 68 69 6c 65 20 28 |= list;.|.while (|
|000045e0| 20 63 75 72 73 6f 72 20 | 21 3d 20 4e 49 4c 20 29 | cursor |!= NIL )|
|000045f0| 20 7b 0d 09 09 65 76 65 | 6e 74 4e 6f 2b 2b 3b 0d | {...eve|ntNo++;.|
|00004600| 09 09 6c 61 73 74 6f 70 | 20 20 3d 20 63 75 72 73 |..lastop| = curs|
|00004610| 6f 72 2d 3e 6f 70 3b 0d | 09 09 73 77 69 74 63 68 |or->op;.|..switch|
|00004620| 20 28 63 75 72 73 6f 72 | 2d 3e 6f 70 20 29 20 7b | (cursor|->op ) {|
|00004630| 0d 09 09 09 63 61 73 65 | 20 53 4f 50 3a 0d 09 09 |....case| SOP:...|
|00004640| 09 09 54 6f 74 61 6c 44 | 75 72 61 74 69 6f 6e 20 |..TotalD|uration |
|00004650| 2b 3d 20 2a 28 63 75 72 | 73 6f 72 2d 3e 70 70 74 |+= *(cur|sor->ppt|
|00004660| 72 29 3b 0d 09 09 09 09 | 69 20 3d 20 66 77 72 69 |r);.....|i = fwri|
|00004670| 74 65 28 26 63 75 72 73 | 6f 72 2d 3e 6f 70 2c 20 |te(&curs|or->op, |
|00004680| 73 69 7a 65 6f 66 28 69 | 6e 74 29 2c 20 31 2c 20 |sizeof(i|nt), 1, |
|00004690| 70 32 6f 75 74 29 3b 0d | 09 09 09 09 69 20 3d 20 |p2out);.|....i = |
|000046a0| 66 77 72 69 74 65 28 63 | 75 72 73 6f 72 2d 3e 70 |fwrite(c|ursor->p|
|000046b0| 70 74 72 2c 20 73 69 7a | 65 6f 66 28 64 6f 75 62 |ptr, siz|eof(doub|
|000046c0| 6c 65 29 2c 20 31 2c 20 | 70 32 6f 75 74 29 3b 0d |le), 1, |p2out);.|
|000046d0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 63 61 |....brea|k;....ca|
|000046e0| 73 65 20 45 4f 50 3a 0d | 09 09 09 09 54 6f 74 61 |se EOP:.|....Tota|
|000046f0| 6c 44 75 72 61 74 69 6f | 6e 20 2b 3d 20 2a 28 63 |lDuratio|n += *(c|
|00004700| 75 72 73 6f 72 2d 3e 70 | 70 74 72 2b 31 29 3b 0d |ursor->p|ptr+1);.|
|00004710| 09 09 09 09 69 20 3d 20 | 66 77 72 69 74 65 28 26 |....i = |fwrite(&|
|00004720| 63 75 72 73 6f 72 2d 3e | 6f 70 2c 20 73 69 7a 65 |cursor->|op, size|
|00004730| 6f 66 28 69 6e 74 29 2c | 20 31 2c 20 70 32 6f 75 |of(int),| 1, p2ou|
|00004740| 74 29 3b 0d 09 09 09 09 | 69 20 3d 20 66 77 72 69 |t);.....|i = fwri|
|00004750| 74 65 28 63 75 72 73 6f | 72 2d 3e 70 70 74 72 2c |te(curso|r->pptr,|
|00004760| 20 73 69 7a 65 6f 66 28 | 64 6f 75 62 6c 65 29 2c | sizeof(|double),|
|00004770| 20 31 2c 20 70 32 6f 75 | 74 29 3b 0d 09 09 09 09 | 1, p2ou|t);.....|
|00004780| 62 72 65 61 6b 3b 0d 09 | 09 09 63 61 73 65 20 45 |break;..|..case E|
|00004790| 4e 44 4f 50 3a 0d 09 09 | 09 09 69 20 3d 20 66 77 |NDOP:...|..i = fw|
|000047a0| 72 69 74 65 28 26 63 75 | 72 73 6f 72 2d 3e 6f 70 |rite(&cu|rsor->op|
|000047b0| 2c 20 73 69 7a 65 6f 66 | 28 69 6e 74 29 2c 20 31 |, sizeof|(int), 1|
|000047c0| 2c 20 70 32 6f 75 74 29 | 3b 0d 09 09 09 09 69 20 |, p2out)|;.....i |
|000047d0| 3d 20 66 77 72 69 74 65 | 28 63 75 72 73 6f 72 2d |= fwrite|(cursor-|
|000047e0| 3e 70 70 74 72 2c 20 73 | 69 7a 65 6f 66 28 64 6f |>pptr, s|izeof(do|
|000047f0| 75 62 6c 65 29 2c 20 33 | 2c 20 70 32 6f 75 74 29 |uble), 3|, p2out)|
|00004800| 3b 0d 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |;.....br|eak;....|
|00004810| 63 61 73 65 20 49 4f 50 | 3a 0d 09 09 09 09 69 66 |case IOP|:.....if|
|00004820| 20 28 20 2a 28 63 75 72 | 73 6f 72 2d 3e 70 70 74 | ( *(cur|sor->ppt|
|00004830| 72 2b 33 29 20 3c 3d 20 | 30 2e 30 29 20 7b 0d 09 |r+3) <= |0.0) {..|
|00004840| 09 09 09 09 73 70 72 69 | 6e 74 66 28 28 63 68 61 |....spri|ntf((cha|
|00004850| 72 20 2a 29 61 53 74 72 | 69 6e 67 31 2c 20 22 45 |r *)aStr|ing1, "E|
|00004860| 76 65 6e 74 20 25 64 20 | 68 61 73 20 61 20 64 75 |vent %d |has a du|
|00004870| 72 61 74 69 6f 6e 20 6f | 66 20 7a 65 72 6f 22 2c |ration o|f zero",|
|00004880| 20 65 76 65 6e 74 4e 6f | 29 3b 0d 09 09 09 09 09 | eventNo|);......|
|00004890| 43 74 6f 50 73 74 72 28 | 28 63 68 61 72 20 2a 29 |CtoPstr(|(char *)|
|000048a0| 61 53 74 72 69 6e 67 31 | 29 3b 0d 09 09 09 09 09 |aString1|);......|
|000048b0| 4f 53 45 72 72 6f 72 28 | 74 68 65 4d 65 73 73 31 |OSError(|theMess1|
|000048c0| 2c 20 4e 49 4c 2c 20 4e | 49 4c 29 3b 0d 09 09 09 |, NIL, N|IL);....|
|000048d0| 09 7d 0d 09 09 09 63 61 | 73 65 20 46 4f 50 3a 0d |.}....ca|se FOP:.|
|000048e0| 09 09 09 09 69 20 3d 20 | 66 77 72 69 74 65 28 26 |....i = |fwrite(&|
|000048f0| 63 75 72 73 6f 72 2d 3e | 6f 70 2c 20 73 69 7a 65 |cursor->|op, size|
|00004900| 6f 66 28 69 6e 74 29 2c | 20 31 2c 20 70 32 6f 75 |of(int),| 1, p2ou|
|00004910| 74 29 3b 0d 09 09 09 09 | 69 20 3d 20 66 77 72 69 |t);.....|i = fwri|
|00004920| 74 65 28 26 63 75 72 73 | 6f 72 2d 3e 6e 61 72 67 |te(&curs|or->narg|
|00004930| 73 2c 20 73 69 7a 65 6f | 66 28 69 6e 74 29 2c 20 |s, sizeo|f(int), |
|00004940| 31 2c 20 70 32 6f 75 74 | 29 3b 0d 2f 2a 09 09 09 |1, p2out|);./*...|
|00004950| 09 66 6f 72 20 28 20 69 | 20 3d 20 30 3b 20 69 3c |.for ( i| = 0; i<|
|00004960| 20 63 75 72 73 6f 72 2d | 3e 6e 61 72 67 73 3b 20 | cursor-|>nargs; |
|00004970| 69 2b 2b 29 2a 2f 0d 09 | 09 09 6b 20 3d 20 66 77 |i++)*/..|..k = fw|
|00004980| 72 69 74 65 28 63 75 72 | 73 6f 72 2d 3e 70 70 74 |rite(cur|sor->ppt|
|00004990| 72 2c 20 73 69 7a 65 6f | 66 28 64 6f 75 62 6c 65 |r, sizeo|f(double|
|000049a0| 29 2c 20 63 75 72 73 6f | 72 2d 3e 6e 61 72 67 73 |), curso|r->nargs|
|000049b0| 2c 20 70 32 6f 75 74 29 | 3b 0d 09 09 09 09 62 72 |, p2out)|;.....br|
|000049c0| 65 61 6b 3b 0d 09 09 7d | 0d 09 09 63 20 3d 20 63 |eak;...}|...c = c|
|000049d0| 75 72 73 6f 72 3b 0d 09 | 09 63 75 72 73 6f 72 20 |ursor;..|.cursor |
|000049e0| 3d 20 63 75 72 73 6f 72 | 2d 3e 6e 65 78 74 3b 0d |= cursor|->next;.|
|000049f0| 09 09 2f 2a 20 63 6c 65 | 61 6e 20 74 68 65 20 6c |../* cle|an the l|
|00004a00| 69 73 74 20 2a 2f 0d 09 | 09 66 6f 72 20 28 20 69 |ist */..|.for ( i|
|00004a10| 20 3d 20 30 3b 20 69 20 | 3c 20 63 2d 3e 6e 61 72 | = 0; i |< c->nar|
|00004a20| 67 73 3b 20 69 2b 2b 20 | 29 20 7b 0d 09 09 09 44 |gs; i++ |) {....D|
|00004a30| 69 73 70 6f 73 50 74 72 | 28 28 50 74 72 29 63 2d |isposPtr|((Ptr)c-|
|00004a40| 3e 70 70 74 72 2b 69 29 | 3b 0d 09 09 7d 0d 09 09 |>pptr+i)|;...}...|
|00004a50| 44 69 73 70 6f 73 50 74 | 72 28 28 50 74 72 29 63 |DisposPt|r((Ptr)c|
|00004a60| 29 3b 0d 09 7d 0d 0d 2f | 2a 09 69 66 20 28 20 6c |);..}../|*.if ( l|
|00004a70| 61 73 74 6f 70 20 3d 3d | 20 45 4f 50 20 29 20 7b |astop ==| EOP ) {|
|00004a80| 0d 09 09 66 63 6c 6f 73 | 65 28 70 32 6f 75 74 29 |...fclos|e(p2out)|
|00004a90| 3b 0d 09 7d 0d 2a 2f 0d | 7d 20 2f 2a 20 66 77 72 |;..}.*/.|} /* fwr|
|00004aa0| 69 74 65 32 20 2a 2f 0d | 0d 76 6f 69 64 09 77 72 |ite2 */.|.void.wr|
|00004ab0| 69 74 65 32 5f 63 68 65 | 63 6b 28 6c 69 73 74 29 |ite2_che|ck(list)|
|00004ac0| 0d 09 45 76 65 6e 74 20 | 2a 6c 69 73 74 3b 0d 7b |..Event |*list;.{|
|00004ad0| 0d 09 72 65 67 69 73 74 | 65 72 09 69 6e 74 09 69 |..regist|er.int.i|
|00004ae0| 3b 0d 09 45 76 65 6e 74 | 20 2a 63 75 72 73 6f 72 |;..Event| *cursor|
|00004af0| 2c 20 2a 63 3b 0d 09 69 | 6e 74 20 6c 61 73 74 6f |, *c;..i|nt lasto|
|00004b00| 70 3b 0d 0d 0d 09 69 66 | 20 28 20 21 6f 75 74 32 |p;....if| ( !out2|
|00004b10| 5f 66 6c 61 67 29 0d 09 | 09 72 65 74 75 72 6e 3b |_flag)..|.return;|
|00004b20| 0d 09 52 65 70 6f 72 74 | 28 22 4f 75 74 70 75 74 |..Report|("Output|
|00004b30| 20 66 72 6f 6d 20 77 72 | 69 74 65 32 5f 63 68 65 | from wr|ite2_che|
|00004b40| 63 6b 5c 6e 22 29 3b 0d | 09 63 75 72 73 6f 72 20 |ck\n");.|.cursor |
|00004b50| 3d 20 6c 69 73 74 3b 0d | 09 77 68 69 6c 65 20 28 |= list;.|.while (|
|00004b60| 20 63 75 72 73 6f 72 20 | 21 3d 20 4e 49 4c 20 29 | cursor |!= NIL )|
|00004b70| 20 7b 0d 09 09 6c 61 73 | 74 6f 70 20 20 3d 20 63 | {...las|top = c|
|00004b80| 75 72 73 6f 72 2d 3e 6f | 70 3b 0d 09 09 73 77 69 |ursor->o|p;...swi|
|00004b90| 74 63 68 20 28 63 75 72 | 73 6f 72 2d 3e 6f 70 20 |tch (cur|sor->op |
|00004ba0| 29 20 7b 0d 09 09 09 63 | 61 73 65 20 53 4f 50 3a |) {....c|ase SOP:|
|00004bb0| 0d 09 09 09 63 61 73 65 | 20 45 4f 50 3a 0d 09 09 |....case| EOP:...|
|00004bc0| 09 09 73 70 72 69 6e 74 | 66 28 20 28 63 68 61 72 |..sprint|f( (char|
|00004bd0| 20 2a 29 74 68 65 4d 65 | 73 73 31 2c 20 22 25 64 | *)theMe|ss1, "%d|
|00004be0| 22 2c 20 63 75 72 73 6f | 72 2d 3e 6f 70 29 3b 09 |", curso|r->op);.|
|00004bf0| 52 65 70 6f 72 74 28 28 | 63 68 61 72 20 2a 29 74 |Report((|char *)t|
|00004c00| 68 65 4d 65 73 73 31 29 | 3b 0d 09 09 09 09 73 70 |heMess1)|;.....sp|
|00004c10| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00004c20| 68 65 4d 65 73 73 31 2c | 20 22 20 20 25 66 22 2c |heMess1,| " %f",|
|00004c30| 20 2a 28 63 75 72 73 6f | 72 2d 3e 70 70 74 72 29 | *(curso|r->pptr)|
|00004c40| 29 3b 09 52 65 70 6f 72 | 74 28 28 63 68 61 72 20 |);.Repor|t((char |
|00004c50| 2a 29 74 68 65 4d 65 73 | 73 31 29 3b 0d 09 09 09 |*)theMes|s1);....|
|00004c60| 09 62 72 65 61 6b 3b 0d | 09 09 09 63 61 73 65 20 |.break;.|...case |
|00004c70| 45 4e 44 4f 50 3a 0d 09 | 09 09 09 73 70 72 69 6e |ENDOP:..|...sprin|
|00004c80| 74 66 28 20 28 63 68 61 | 72 20 2a 29 74 68 65 4d |tf( (cha|r *)theM|
|00004c90| 65 73 73 31 2c 20 22 20 | 20 25 64 22 2c 20 63 75 |ess1, " | %d", cu|
|00004ca0| 72 73 6f 72 2d 3e 6f 70 | 29 3b 09 52 65 70 6f 72 |rsor->op|);.Repor|
|00004cb0| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00004cc0| 73 31 29 3b 0d 09 09 09 | 09 73 70 72 69 6e 74 66 |s1);....|.sprintf|
|00004cd0| 28 20 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |( (char |*)theMes|
|00004ce0| 73 31 2c 20 22 20 20 25 | 6c 66 22 2c 20 2a 28 63 |s1, " %|lf", *(c|
|00004cf0| 75 72 73 6f 72 2d 3e 70 | 70 74 72 29 29 3b 09 52 |ursor->p|ptr));.R|
|00004d00| 65 70 6f 72 74 28 28 63 | 68 61 72 20 2a 29 74 68 |eport((c|har *)th|
|00004d10| 65 4d 65 73 73 31 29 3b | 0d 09 09 09 09 73 70 72 |eMess1);|.....spr|
|00004d20| 69 6e 74 66 28 20 28 63 | 68 61 72 20 2a 29 74 68 |intf( (c|har *)th|
|00004d30| 65 4d 65 73 73 31 2c 20 | 22 20 20 25 6c 66 22 2c |eMess1, |" %lf",|
|00004d40| 20 2a 28 63 75 72 73 6f | 72 2d 3e 70 70 74 72 2b | *(curso|r->pptr+|
|00004d50| 31 29 29 3b 09 52 65 70 | 6f 72 74 28 28 63 68 61 |1));.Rep|ort((cha|
|00004d60| 72 20 2a 29 74 68 65 4d | 65 73 73 31 29 3b 0d 09 |r *)theM|ess1);..|
|00004d70| 09 09 09 73 70 72 69 6e | 74 66 28 20 28 63 68 61 |...sprin|tf( (cha|
|00004d80| 72 20 2a 29 74 68 65 4d | 65 73 73 31 2c 20 22 20 |r *)theM|ess1, " |
|00004d90| 20 25 6c 66 22 2c 20 2a | 28 63 75 72 73 6f 72 2d | %lf", *|(cursor-|
|00004da0| 3e 70 70 74 72 2b 32 29 | 29 3b 09 52 65 70 6f 72 |>pptr+2)|);.Repor|
|00004db0| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00004dc0| 73 31 29 3b 0d 09 09 09 | 09 62 72 65 61 6b 3b 0d |s1);....|.break;.|
|00004dd0| 09 09 09 63 61 73 65 20 | 49 4f 50 3a 0d 09 09 09 |...case |IOP:....|
|00004de0| 63 61 73 65 20 46 4f 50 | 3a 0d 09 09 09 09 73 70 |case FOP|:.....sp|
|00004df0| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00004e00| 68 65 4d 65 73 73 31 2c | 20 22 25 64 22 2c 20 63 |heMess1,| "%d", c|
|00004e10| 75 72 73 6f 72 2d 3e 6f | 70 29 3b 09 52 65 70 6f |ursor->o|p);.Repo|
|00004e20| 72 74 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |rt((char| *)theMe|
|00004e30| 73 73 31 29 3b 0d 09 09 | 09 09 73 70 72 69 6e 74 |ss1);...|..sprint|
|00004e40| 66 28 20 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |f( (char| *)theMe|
|00004e50| 73 73 31 2c 20 22 20 20 | 25 6c 66 22 2c 20 2a 28 |ss1, " |%lf", *(|
|00004e60| 63 75 72 73 6f 72 2d 3e | 70 70 74 72 29 29 3b 09 |cursor->|pptr));.|
|00004e70| 52 65 70 6f 72 74 28 28 | 63 68 61 72 20 2a 29 74 |Report((|char *)t|
|00004e80| 68 65 4d 65 73 73 31 29 | 3b 0d 09 09 09 09 73 70 |heMess1)|;.....sp|
|00004e90| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00004ea0| 68 65 4d 65 73 73 31 2c | 20 22 20 20 25 6c 66 22 |heMess1,| " %lf"|
|00004eb0| 2c 20 2a 28 63 75 72 73 | 6f 72 2d 3e 70 70 74 72 |, *(curs|or->pptr|
|00004ec0| 2b 31 29 29 3b 09 52 65 | 70 6f 72 74 28 28 63 68 |+1));.Re|port((ch|
|00004ed0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 29 3b 0d |ar *)the|Mess1);.|
|00004ee0| 09 09 09 09 73 70 72 69 | 6e 74 66 28 20 28 63 68 |....spri|ntf( (ch|
|00004ef0| 61 72 20 2a 29 74 68 65 | 4d 65 73 73 31 2c 20 22 |ar *)the|Mess1, "|
|00004f00| 20 20 25 6c 66 22 2c 20 | 2a 28 63 75 72 73 6f 72 | %lf", |*(cursor|
|00004f10| 2d 3e 70 70 74 72 2b 32 | 29 29 3b 09 52 65 70 6f |->pptr+2|));.Repo|
|00004f20| 72 74 28 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |rt((char| *)theMe|
|00004f30| 73 73 31 29 3b 0d 09 09 | 09 09 73 70 72 69 6e 74 |ss1);...|..sprint|
|00004f40| 66 28 20 28 63 68 61 72 | 20 2a 29 74 68 65 4d 65 |f( (char| *)theMe|
|00004f50| 73 73 31 2c 20 22 20 20 | 25 6c 66 22 2c 20 2a 28 |ss1, " |%lf", *(|
|00004f60| 63 75 72 73 6f 72 2d 3e | 70 70 74 72 2b 33 29 29 |cursor->|pptr+3))|
|00004f70| 3b 09 52 65 70 6f 72 74 | 28 28 63 68 61 72 20 2a |;.Report|((char *|
|00004f80| 29 74 68 65 4d 65 73 73 | 31 29 3b 0d 09 09 09 09 |)theMess|1);.....|
|00004f90| 73 70 72 69 6e 74 66 28 | 20 28 63 68 61 72 20 2a |sprintf(| (char *|
|00004fa0| 29 74 68 65 4d 65 73 73 | 31 2c 20 22 09 6e 61 72 |)theMess|1, ".nar|
|00004fb0| 67 73 20 3d 20 25 64 22 | 2c 20 63 75 72 73 6f 72 |gs = %d"|, cursor|
|00004fc0| 2d 3e 6e 61 72 67 73 20 | 29 3b 09 52 65 70 6f 72 |->nargs |);.Repor|
|00004fd0| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00004fe0| 73 31 29 3b 0d 09 09 09 | 09 62 72 65 61 6b 3b 0d |s1);....|.break;.|
|00004ff0| 09 09 7d 0d 09 09 52 65 | 70 6f 72 74 28 22 5c 6e |..}...Re|port("\n|
|00005000| 22 29 3b 0d 09 09 52 65 | 70 6f 72 74 28 22 2d 2d |");...Re|port("--|
|00005010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 5c 6e 22 29 3b 0d 09 |--------|-\n");..|
|00005030| 09 63 75 72 73 6f 72 20 | 3d 20 63 75 72 73 6f 72 |.cursor |= cursor|
|00005040| 2d 3e 6e 65 78 74 3b 0d | 09 7d 0d 7d 20 2f 2a 20 |->next;.|.}.} /* |
|00005050| 77 72 69 74 65 32 5f 63 | 68 65 63 6b 20 2a 2f 0d |write2_c|heck */.|
|00005060| 0d 76 6f 69 64 09 73 65 | 74 5f 6f 75 74 70 75 74 |.void.se|t_output|
|00005070| 28 29 0d 7b 0d 09 65 78 | 74 65 72 6e 09 6f 75 74 |().{..ex|tern.out|
|00005080| 31 5f 66 6c 61 67 3b 0d | 09 65 78 74 65 72 6e 09 |1_flag;.|.extern.|
|00005090| 6f 75 74 32 5f 66 6c 61 | 67 3b 0d 09 65 78 74 65 |out2_fla|g;..exte|
|000050a0| 72 6e 09 6f 75 74 33 5f | 66 6c 61 67 3b 0d 0d 09 |rn.out3_|flag;...|
|000050b0| 69 66 20 28 20 6e 61 72 | 67 73 20 3c 20 32 20 29 |if ( nar|gs < 2 )|
|000050c0| 20 7b 0d 09 09 4e 75 6d | 54 6f 53 74 72 69 6e 67 | {...Num|ToString|
|000050d0| 28 28 6c 6f 6e 67 29 6c | 69 6e 65 6e 6f 2c 20 61 |((long)l|ineno, a|
|000050e0| 53 74 72 69 6e 67 32 29 | 3b 0d 09 09 50 73 74 72 |String2)|;...Pstr|
|000050f0| 69 6e 67 43 6f 70 79 28 | 61 53 74 72 69 6e 67 31 |ingCopy(|aString1|
|00005100| 2c 20 22 5c 70 6f 6e 20 | 6c 69 6e 65 20 22 29 3b |, "\pon |line ");|
|00005110| 0d 09 09 50 73 74 72 69 | 6e 67 43 61 74 28 61 53 |...Pstri|ngCat(aS|
|00005120| 74 72 69 6e 67 31 2c 20 | 61 53 74 72 69 6e 67 32 |tring1, |aString2|
|00005130| 29 3b 0d 09 09 50 73 74 | 72 69 6e 67 43 6f 70 79 |);...Pst|ringCopy|
|00005140| 28 28 63 68 61 72 20 2a | 29 74 68 65 4d 65 73 73 |((char *|)theMess|
|00005150| 32 2c 20 61 53 74 72 69 | 6e 67 31 29 3b 0d 09 09 |2, aStri|ng1);...|
|00005160| 50 73 74 72 69 6e 67 43 | 6f 70 79 28 28 63 68 61 |PstringC|opy((cha|
|00005170| 72 20 2a 29 74 68 65 4d | 65 73 73 31 2c 20 22 5c |r *)theM|ess1, "\|
|00005180| 70 4e 6f 74 20 65 6e 6f | 75 67 68 20 61 72 67 75 |pNot eno|ugh argu|
|00005190| 6d 65 6e 74 73 20 6f 6e | 20 27 6f 27 20 63 61 72 |ments on| 'o' car|
|000051a0| 64 22 29 3b 0d 09 09 4f | 53 45 72 72 6f 72 28 74 |d");...O|SError(t|
|000051b0| 68 65 4d 65 73 73 31 2c | 20 74 68 65 4d 65 73 73 |heMess1,| theMess|
|000051c0| 32 2c 20 4e 49 4c 29 3b | 0d 09 09 0d 09 7d 0d 09 |2, NIL);|.....}..|
|000051d0| 69 66 20 28 20 28 69 6e | 74 29 70 61 72 61 6d 73 |if ( (in|t)params|
|000051e0| 5b 30 5d 20 3d 3d 20 31 | 20 29 20 7b 0d 09 09 69 |[0] == 1| ) {...i|
|000051f0| 66 20 28 20 28 69 6e 74 | 29 70 61 72 61 6d 73 5b |f ( (int|)params[|
|00005200| 31 5d 20 3e 20 30 20 29 | 0d 09 09 09 6f 75 74 31 |1] > 0 )|....out1|
|00005210| 5f 66 6c 61 67 20 3d 20 | 31 3b 0d 09 09 65 6c 73 |_flag = |1;...els|
|00005220| 65 0d 09 09 09 6f 75 74 | 31 5f 66 6c 61 67 20 3d |e....out|1_flag =|
|00005230| 20 30 3b 0d 09 7d 0d 09 | 65 6c 73 65 20 69 66 20 | 0;..}..|else if |
|00005240| 28 20 28 69 6e 74 29 70 | 61 72 61 6d 73 5b 30 5d |( (int)p|arams[0]|
|00005250| 20 3d 3d 20 32 20 29 20 | 7b 0d 09 09 69 66 20 28 | == 2 ) |{...if (|
|00005260| 20 28 69 6e 74 29 70 61 | 72 61 6d 73 5b 31 5d 20 | (int)pa|rams[1] |
|00005270| 3e 20 30 20 29 0d 09 09 | 09 6f 75 74 32 5f 66 6c |> 0 )...|.out2_fl|
|00005280| 61 67 20 3d 20 31 3b 0d | 09 09 65 6c 73 65 0d 09 |ag = 1;.|..else..|
|00005290| 09 09 6f 75 74 32 5f 66 | 6c 61 67 20 3d 20 30 3b |..out2_f|lag = 0;|
|000052a0| 0d 09 7d 0d 09 65 6c 73 | 65 20 69 66 20 28 20 28 |..}..els|e if ( (|
|000052b0| 69 6e 74 29 70 61 72 61 | 6d 73 5b 30 5d 20 3d 3d |int)para|ms[0] ==|
|000052c0| 20 33 20 29 20 7b 0d 09 | 09 69 66 20 28 20 28 69 | 3 ) {..|.if ( (i|
|000052d0| 6e 74 29 70 61 72 61 6d | 73 5b 31 5d 20 3e 20 30 |nt)param|s[1] > 0|
|000052e0| 20 29 0d 09 09 09 6f 75 | 74 33 5f 66 6c 61 67 20 | )....ou|t3_flag |
|000052f0| 3d 20 31 3b 0d 09 09 65 | 6c 73 65 0d 09 09 09 6f |= 1;...e|lse....o|
|00005300| 75 74 33 5f 66 6c 61 67 | 20 3d 20 30 3b 0d 09 7d |ut3_flag| = 0;..}|
|00005310| 0d 7d 09 2f 2a 20 73 65 | 74 5f 6f 75 74 70 75 74 |.}./* se|t_output|
|00005320| 20 2a 2f 0d 0d 0d 76 6f | 69 64 09 72 65 70 6f 72 | */...vo|id.repor|
|00005330| 74 31 28 6f 70 2c 20 63 | 61 72 64 2c 20 70 29 0d |t1(op, c|ard, p).|
|00005340| 09 69 6e 74 20 09 6f 70 | 3b 0d 09 63 68 61 72 09 |.int .op|;..char.|
|00005350| 63 61 72 64 5b 5d 3b 0d | 09 64 6f 75 62 6c 65 09 |card[];.|.double.|
|00005360| 70 5b 5d 3b 0d 7b 0d 09 | 72 65 67 69 73 74 65 72 |p[];.{..|register|
|00005370| 20 69 6e 74 20 69 3b 0d | 09 72 65 67 69 73 74 65 | int i;.|.registe|
|00005380| 72 20 69 6e 74 20 6e 3b | 0d 09 63 68 61 72 20 2a |r int n;|..char *|
|00005390| 63 70 20 3d 20 63 61 72 | 64 3b 0d 0d 0d 0d 09 69 |cp = car|d;.....i|
|000053a0| 66 20 28 20 21 6f 75 74 | 31 5f 66 6c 61 67 20 29 |f ( !out|1_flag )|
|000053b0| 20 0d 09 09 72 65 74 75 | 72 6e 3b 0d 09 69 66 20 | ...retu|rn;..if |
|000053c0| 28 20 6f 70 20 3d 3d 20 | 43 4f 50 20 29 20 7b 0d |( op == |COP ) {.|
|000053d0| 09 09 69 20 3d 20 30 3b | 0d 09 09 77 68 69 6c 65 |..i = 0;|...while|
|000053e0| 20 28 20 2a 63 70 20 29 | 20 7b 0d 09 09 09 69 66 | ( *cp )| {....if|
|000053f0| 20 28 20 69 20 3e 20 4d | 41 58 4c 49 4e 45 20 26 | ( i > M|AXLINE &|
|00005400| 26 20 69 73 73 70 61 63 | 65 28 2a 63 70 29 29 20 |& isspac|e(*cp)) |
|00005410| 7b 0d 09 09 09 09 52 65 | 70 6f 72 74 28 20 22 5c |{.....Re|port( "\|
|00005420| 6e 22 29 3b 0d 09 09 09 | 09 63 70 2b 2b 3b 0d 09 |n");....|.cp++;..|
|00005430| 09 09 09 69 20 3d 20 30 | 3b 0d 09 09 09 7d 0d 09 |...i = 0|;....}..|
|00005440| 09 09 65 6c 73 65 20 7b | 0d 2f 2a 09 09 09 09 52 |..else {|./*....R|
|00005450| 65 70 6f 72 74 28 2a 63 | 70 2b 2b 29 3b 2a 2f 0d |eport(*c|p++);*/.|
|00005460| 09 09 09 09 63 70 2b 2b | 3b 0d 09 09 09 09 69 2b |....cp++|;.....i+|
|00005470| 2b 3b 0d 09 09 09 7d 0d | 09 09 7d 0d 09 09 52 65 |+;....}.|..}...Re|
|00005480| 70 6f 72 74 28 63 61 72 | 64 29 3b 0d 09 09 52 65 |port(car|d);...Re|
|00005490| 70 6f 72 74 28 22 3b 5c | 6e 22 29 3b 0d 09 09 72 |port(";\|n");...r|
|000054a0| 65 74 75 72 6e 3b 0d 09 | 7d 0d 09 69 66 20 28 20 |eturn;..|}..if ( |
|000054b0| 6f 70 20 3d 3d 20 4f 4f | 50 20 29 20 7b 0d 09 09 |op == OO|P ) {...|
|000054c0| 73 70 72 69 6e 74 66 28 | 20 28 63 68 61 72 20 2a |sprintf(| (char *|
|000054d0| 29 74 68 65 4d 65 73 73 | 31 2c 20 22 25 63 5c 74 |)theMess|1, "%c\t|
|000054e0| 25 38 2e 35 66 20 25 38 | 2e 35 66 3b 5c 6e 22 2c |%8.5f %8|.5f;\n",|
|000054f0| 20 63 61 72 64 5b 30 5d | 2c 20 70 5b 30 5d 2c 20 | card[0]|, p[0], |
|00005500| 70 5b 31 5d 29 3b 0d 09 | 09 52 65 70 6f 72 74 28 |p[1]);..|.Report(|
|00005510| 28 63 68 61 72 20 2a 29 | 74 68 65 4d 65 73 73 31 |(char *)|theMess1|
|00005520| 29 3b 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 7d 0d |);...ret|urn;..}.|
|00005530| 09 69 66 20 28 20 6f 70 | 20 3d 3d 20 53 4f 50 20 |.if ( op| == SOP |
|00005540| 29 20 7b 0d 09 09 73 70 | 72 69 6e 74 66 28 20 28 |) {...sp|rintf( (|
|00005550| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 2c |char *)t|heMess1,|
|00005560| 20 22 25 63 5c 74 25 38 | 2e 35 66 3b 5c 6e 22 2c | "%c\t%8|.5f;\n",|
|00005570| 20 63 61 72 64 5b 30 5d | 2c 20 70 5b 31 5d 29 3b | card[0]|, p[1]);|
|00005580| 0d 09 09 52 65 70 6f 72 | 74 28 28 63 68 61 72 20 |...Repor|t((char |
|00005590| 2a 29 74 68 65 4d 65 73 | 73 31 29 3b 0d 09 09 72 |*)theMes|s1);...r|
|000055a0| 65 74 75 72 6e 3b 0d 09 | 7d 0d 09 69 66 20 28 20 |eturn;..|}..if ( |
|000055b0| 6f 70 20 3d 3d 20 45 4f | 50 20 29 20 7b 0d 09 09 |op == EO|P ) {...|
|000055c0| 73 70 72 69 6e 74 66 28 | 20 28 63 68 61 72 20 2a |sprintf(| (char *|
|000055d0| 29 74 68 65 4d 65 73 73 | 31 2c 20 22 25 63 5c 74 |)theMess|1, "%c\t|
|000055e0| 25 38 2e 35 66 20 25 38 | 2e 31 66 20 25 38 2e 31 |%8.5f %8|.1f %8.1|
|000055f0| 66 22 2c 20 63 61 72 64 | 5b 30 5d 2c 20 70 5b 31 |f", card|[0], p[1|
|00005600| 5d 2c 20 70 5b 32 5d 2c | 20 70 5b 33 5d 29 3b 0d |], p[2],| p[3]);.|
|00005610| 09 09 52 65 70 6f 72 74 | 28 28 63 68 61 72 20 2a |..Report|((char *|
|00005620| 29 74 68 65 4d 65 73 73 | 31 29 3b 0d 09 09 69 66 |)theMess|1);...if|
|00005630| 20 28 20 70 5b 34 5d 20 | 3e 20 30 2e 30 20 29 20 | ( p[4] |> 0.0 ) |
|00005640| 7b 0d 09 09 09 73 70 72 | 69 6e 74 66 28 20 28 63 |{....spr|intf( (c|
|00005650| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 2c 20 |har *)th|eMess1, |
|00005660| 22 20 25 38 2e 35 66 3b | 5c 6e 22 2c 20 70 5b 34 |" %8.5f;|\n", p[4|
|00005670| 5d 29 3b 0d 09 09 09 52 | 65 70 6f 72 74 28 28 63 |]);....R|eport((c|
|00005680| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|00005690| 0d 09 09 7d 0d 09 09 65 | 6c 73 65 20 0d 09 09 09 |...}...e|lse ....|
|000056a0| 52 65 70 6f 72 74 28 22 | 3b 5c 6e 22 29 3b 0d 09 |Report("|;\n");..|
|000056b0| 09 72 65 74 75 72 6e 3b | 0d 09 7d 0d 09 69 66 20 |.return;|..}..if |
|000056c0| 28 20 6f 70 20 3d 3d 20 | 54 4f 50 20 29 20 7b 0d |( op == |TOP ) {.|
|000056d0| 09 09 73 70 72 69 6e 74 | 66 28 20 28 63 68 61 72 |..sprint|f( (char|
|000056e0| 20 2a 29 74 68 65 4d 65 | 73 73 31 2c 20 22 25 63 | *)theMe|ss1, "%c|
|000056f0| 5c 74 22 2c 20 63 61 72 | 64 5b 30 5d 29 3b 09 52 |\t", car|d[0]);.R|
|00005700| 65 70 6f 72 74 28 28 63 | 68 61 72 20 2a 29 74 68 |eport((c|har *)th|
|00005710| 65 4d 65 73 73 31 29 3b | 0d 09 09 6e 20 3d 20 31 |eMess1);|...n = 1|
|00005720| 3b 0d 09 09 66 6f 72 20 | 28 20 69 20 3d 20 30 3b |;...for |( i = 0;|
|00005730| 20 69 20 3c 20 6e 61 72 | 67 73 3b 20 69 2b 2b 29 | i < nar|gs; i++)|
|00005740| 20 7b 0d 09 09 09 73 70 | 72 69 6e 74 66 28 20 28 | {....sp|rintf( (|
|00005750| 63 68 61 72 20 2a 29 74 | 68 65 4d 65 73 73 31 2c |char *)t|heMess1,|
|00005760| 20 22 20 25 38 2e 35 66 | 22 2c 20 2a 28 74 70 61 | " %8.5f|", *(tpa|
|00005770| 72 61 6d 73 5b 6e 5f 54 | 5f 63 61 72 64 73 2d 31 |rams[n_T|_cards-1|
|00005780| 5d 2b 69 29 29 3b 09 52 | 65 70 6f 72 74 28 28 63 |]+i));.R|eport((c|
|00005790| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|000057a0| 0d 09 09 09 6e 2b 2b 3b | 0d 09 09 09 69 66 20 28 |....n++;|....if (|
|000057b0| 20 6e 20 25 20 38 20 3d | 3d 20 30 20 29 20 7b 0d | n % 8 =|= 0 ) {.|
|000057c0| 09 09 09 09 69 66 20 28 | 20 69 20 3c 20 6e 61 72 |....if (| i < nar|
|000057d0| 67 73 2d 31 29 20 7b 0d | 09 09 09 09 09 52 65 70 |gs-1) {.|.....Rep|
|000057e0| 6f 72 74 28 22 5c 6e 22 | 29 3b 0d 09 09 09 09 09 |ort("\n"|);......|
|000057f0| 52 65 70 6f 72 74 28 22 | 5c 74 20 22 29 3b 0d 09 |Report("|\t ");..|
|00005800| 09 09 09 7d 0d 09 09 09 | 7d 0d 09 09 7d 0d 09 09 |...}....|}...}...|
|00005810| 52 65 70 6f 72 74 28 22 | 3b 5c 6e 22 29 3b 0d 09 |Report("|;\n");..|
|00005820| 09 72 65 74 75 72 6e 3b | 0d 09 7d 0d 0d 09 73 70 |.return;|..}...sp|
|00005830| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00005840| 68 65 4d 65 73 73 31 2c | 20 22 25 63 5c 74 22 2c |heMess1,| "%c\t",|
|00005850| 20 63 61 72 64 5b 30 5d | 29 3b 09 52 65 70 6f 72 | card[0]|);.Repor|
|00005860| 74 28 28 63 68 61 72 20 | 2a 29 74 68 65 4d 65 73 |t((char |*)theMes|
|00005870| 73 31 29 3b 0d 09 6e 20 | 3d 20 31 3b 0d 09 66 6f |s1);..n |= 1;..fo|
|00005880| 72 20 28 20 69 20 3d 20 | 30 3b 20 69 20 3c 20 6e |r ( i = |0; i < n|
|00005890| 61 72 67 73 3b 20 69 2b | 2b 29 20 7b 0d 09 09 69 |args; i+|+) {...i|
|000058a0| 66 20 28 20 69 20 21 3d | 20 31 20 29 20 7b 20 2f |f ( i !=| 1 ) { /|
|000058b0| 2a 20 73 6b 69 70 20 69 | 6e 73 74 72 75 6d 65 6e |* skip i|nstrumen|
|000058c0| 74 20 6e 75 6d 62 65 72 | 20 28 6e 6f 74 20 79 65 |t number| (not ye|
|000058d0| 74 20 63 61 6c 63 75 6c | 61 74 65 64 20 61 6e 79 |t calcul|ated any|
|000058e0| 77 61 79 21 20 2a 2f 0d | 09 09 09 73 70 72 69 6e |way! */.|...sprin|
|000058f0| 74 66 28 20 28 63 68 61 | 72 20 2a 29 74 68 65 4d |tf( (cha|r *)theM|
|00005900| 65 73 73 31 2c 20 22 20 | 25 38 2e 35 66 22 2c 20 |ess1, " |%8.5f", |
|00005910| 70 5b 69 5d 29 3b 09 52 | 65 70 6f 72 74 28 28 63 |p[i]);.R|eport((c|
|00005920| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|00005930| 0d 09 09 09 6e 2b 2b 3b | 0d 09 09 09 69 66 20 28 |....n++;|....if (|
|00005940| 20 6e 20 25 20 38 20 3d | 3d 20 30 20 29 20 7b 0d | n % 8 =|= 0 ) {.|
|00005950| 09 09 09 09 69 66 20 28 | 20 69 20 3c 20 6e 61 72 |....if (| i < nar|
|00005960| 67 73 2d 31 29 20 7b 0d | 09 09 09 09 09 52 65 70 |gs-1) {.|.....Rep|
|00005970| 6f 72 74 28 22 5c 6e 22 | 29 3b 0d 09 09 09 09 09 |ort("\n"|);......|
|00005980| 52 65 70 6f 72 74 28 22 | 5c 74 20 22 29 3b 0d 09 |Report("|\t ");..|
|00005990| 09 09 09 7d 0d 09 09 09 | 7d 0d 09 09 7d 0d 09 7d |...}....|}...}..}|
|000059a0| 0d 09 52 65 70 6f 72 74 | 28 22 3b 5c 6e 22 29 3b |..Report|(";\n");|
|000059b0| 0d 7d 09 2f 2a 20 72 65 | 70 6f 72 74 31 20 2a 2f |.}./* re|port1 */|
|000059c0| 0d 0d 0d 0d 45 76 65 6e | 74 20 2a 69 6e 73 65 72 |....Even|t *inser|
|000059d0| 74 5f 69 6e 5f 6c 69 73 | 74 28 6f 70 2c 20 6e 61 |t_in_lis|t(op, na|
|000059e0| 72 67 73 2c 20 61 2c 20 | 62 29 0d 09 64 6f 75 62 |rgs, a, |b)..doub|
|000059f0| 6c 65 09 61 5b 5d 3b 0d | 09 69 6e 74 09 09 6f 70 |le.a[];.|.int..op|
|00005a00| 3b 0d 09 69 6e 74 09 09 | 6e 61 72 67 73 3b 0d 09 |;..int..|nargs;..|
|00005a10| 45 76 65 6e 74 09 2a 62 | 3b 0d 7b 0d 2f 2a 0d 2a |Event.*b|;.{./*.*|
|00005a20| 20 4d 65 72 67 65 20 65 | 76 65 6e 74 20 61 20 63 | Merge e|vent a c|
|00005a30| 68 72 6f 6e 6f 6c 6f 67 | 69 63 61 6c 6c 79 20 69 |hronolog|ically i|
|00005a40| 6e 74 6f 20 6c 69 73 74 | 20 62 2e 0d 2a 2f 0d 09 |nto list| b..*/..|
|00005a50| 45 76 65 6e 74 20 2a 68 | 65 61 64 2c 20 2a 63 75 |Event *h|ead, *cu|
|00005a60| 72 73 6f 72 2c 20 2a 70 | 72 65 76 2c 20 2a 74 65 |rsor, *p|rev, *te|
|00005a70| 6d 70 3b 0d 09 69 6e 74 | 20 69 3b 0d 09 69 6e 74 |mp;..int| i;..int|
|00005a80| 20 64 6f 6e 65 20 3d 20 | 30 3b 0d 09 64 6f 75 62 | done = |0;..doub|
|00005a90| 6c 65 20 73 31 2c 20 73 | 32 3b 0d 0d 09 74 65 6d |le s1, s|2;...tem|
|00005aa0| 70 20 3d 20 28 45 76 65 | 6e 74 20 2a 29 4e 65 77 |p = (Eve|nt *)New|
|00005ab0| 50 74 72 28 73 69 7a 65 | 6f 66 28 45 76 65 6e 74 |Ptr(size|of(Event|
|00005ac0| 29 29 3b 0d 09 69 66 20 | 28 20 28 65 72 72 6e 75 |));..if |( (errnu|
|00005ad0| 6d 20 3d 20 4d 65 6d 45 | 72 72 6f 72 28 29 29 20 |m = MemE|rror()) |
|00005ae0| 20 21 3d 20 6e 6f 45 72 | 72 20 29 7b 0d 09 09 50 | != noEr|r ){...P|
|00005af0| 73 74 72 69 6e 67 43 6f | 70 79 28 28 63 68 61 72 |stringCo|py((char|
|00005b00| 20 2a 29 74 68 65 4d 65 | 73 73 31 2c 22 5c 70 45 | *)theMe|ss1,"\pE|
|00005b10| 72 72 6f 72 20 61 6c 6c | 6f 63 61 74 69 6e 67 20 |rror all|ocating |
|00005b20| 6d 65 6d 6f 72 79 20 69 | 6e 20 69 6e 73 65 72 74 |memory i|n insert|
|00005b30| 5f 69 6e 5f 6c 69 73 74 | 22 29 3b 0d 09 09 4f 53 |_in_list|");...OS|
|00005b40| 45 72 72 6f 72 28 74 68 | 65 4d 65 73 73 31 2c 20 |Error(th|eMess1, |
|00005b50| 4e 49 4c 2c 20 4e 49 4c | 29 3b 0d 09 7d 0d 09 74 |NIL, NIL|);..}..t|
|00005b60| 65 6d 70 2d 3e 6e 61 72 | 67 73 20 3d 20 6e 61 72 |emp->nar|gs = nar|
|00005b70| 67 73 3b 0d 09 74 65 6d | 70 2d 3e 6f 70 20 3d 20 |gs;..tem|p->op = |
|00005b80| 6f 70 3b 0d 09 74 65 6d | 70 2d 3e 6e 65 78 74 20 |op;..tem|p->next |
|00005b90| 3d 20 4e 49 4c 3b 0d 09 | 74 65 6d 70 2d 3e 70 70 |= NIL;..|temp->pp|
|00005ba0| 74 72 20 3d 20 28 64 6f | 75 62 6c 65 20 2a 29 4e |tr = (do|uble *)N|
|00005bb0| 65 77 50 74 72 28 74 65 | 6d 70 2d 3e 6e 61 72 67 |ewPtr(te|mp->narg|
|00005bc0| 73 20 2a 20 73 69 7a 65 | 6f 66 28 64 6f 75 62 6c |s * size|of(doubl|
|00005bd0| 65 29 29 3b 0d 09 69 66 | 20 28 20 28 65 72 72 6e |e));..if| ( (errn|
|00005be0| 75 6d 20 3d 20 4d 65 6d | 45 72 72 6f 72 28 29 29 |um = Mem|Error())|
|00005bf0| 20 20 21 3d 20 6e 6f 45 | 72 72 20 29 7b 0d 09 09 | != noE|rr ){...|
|00005c00| 50 73 74 72 69 6e 67 43 | 6f 70 79 28 28 63 68 61 |PstringC|opy((cha|
|00005c10| 72 20 2a 29 74 68 65 4d | 65 73 73 31 2c 22 5c 70 |r *)theM|ess1,"\p|
|00005c20| 45 72 72 6f 72 20 61 6c | 6c 6f 63 61 74 69 6e 67 |Error al|locating|
|00005c30| 20 6d 65 6d 6f 72 79 20 | 66 6f 72 20 70 61 72 61 | memory |for para|
|00005c40| 6d 65 74 65 72 73 20 69 | 6e 20 69 6e 73 65 72 74 |meters i|n insert|
|00005c50| 5f 69 6e 5f 6c 69 73 74 | 22 29 3b 0d 09 09 4f 53 |_in_list|");...OS|
|00005c60| 45 72 72 6f 72 28 74 68 | 65 4d 65 73 73 31 2c 20 |Error(th|eMess1, |
|00005c70| 4e 49 4c 2c 20 4e 49 4c | 29 3b 0d 09 7d 0d 09 66 |NIL, NIL|);..}..f|
|00005c80| 6f 72 20 28 69 20 3d 20 | 30 3b 20 69 3c 74 65 6d |or (i = |0; i<tem|
|00005c90| 70 2d 3e 6e 61 72 67 73 | 3b 20 69 2b 2b 29 20 7b |p->nargs|; i++) {|
|00005ca0| 0d 09 09 2a 28 74 65 6d | 70 2d 3e 70 70 74 72 2b |...*(tem|p->pptr+|
|00005cb0| 69 29 20 3d 20 61 5b 69 | 5d 3b 0d 09 09 2f 2a 73 |i) = a[i|];.../*s|
|00005cc0| 70 72 69 6e 74 66 28 20 | 28 63 68 61 72 20 2a 29 |printf( |(char *)|
|00005cd0| 74 68 65 4d 65 73 73 31 | 2c 20 22 2a 28 74 65 6d |theMess1|, "*(tem|
|00005ce0| 70 2d 3e 70 70 74 72 2b | 69 29 20 3d 20 25 66 5c |p->pptr+|i) = %f\|
|00005cf0| 6e 22 2c 20 2a 28 74 65 | 6d 70 2d 3e 70 70 74 72 |n", *(te|mp->pptr|
|00005d00| 2b 69 29 29 3b 2a 2f 0d | 09 7d 0d 0d 09 68 65 61 |+i));*/.|.}...hea|
|00005d10| 64 20 3d 20 62 3b 0d 09 | 69 66 20 28 21 68 65 61 |d = b;..|if (!hea|
|00005d20| 64 29 20 7b 0d 09 09 68 | 65 61 64 20 3d 20 74 65 |d) {...h|ead = te|
|00005d30| 6d 70 3b 0d 09 09 68 65 | 61 64 2d 3e 6e 65 78 74 |mp;...he|ad->next|
|00005d40| 20 3d 20 4e 49 4c 3b 0d | 09 7d 0d 09 65 6c 73 65 | = NIL;.|.}..else|
|00005d50| 20 7b 0d 09 09 64 6f 6e | 65 20 3d 20 30 3b 0d 09 | {...don|e = 0;..|
|00005d60| 09 70 72 65 76 20 3d 20 | 63 75 72 73 6f 72 20 3d |.prev = |cursor =|
|00005d70| 20 68 65 61 64 3b 0d 09 | 09 77 68 69 6c 65 20 28 | head;..|.while (|
|00005d80| 63 75 72 73 6f 72 20 21 | 3d 20 4e 49 4c 20 26 26 |cursor !|= NIL &&|
|00005d90| 20 21 64 6f 6e 65 20 29 | 20 7b 0d 2f 2a 20 74 68 | !done )| {./* th|
|00005da0| 69 73 20 72 61 74 73 20 | 6e 65 73 74 20 62 65 63 |is rats |nest bec|
|00005db0| 61 75 73 65 20 69 20 63 | 61 72 64 73 20 75 73 65 |ause i c|ards use|
|00005dc0| 20 64 69 66 66 65 72 65 | 6e 74 20 70 6e 75 6d 73 | differe|nt pnums|
|00005dd0| 20 66 6f 72 20 74 69 6d | 69 6e 67 20 2a 2f 0d 2f | for tim|ing */./|
|00005de0| 2a 09 09 09 69 66 20 28 | 20 74 65 6d 70 2d 3e 6f |*...if (| temp->o|
|00005df0| 70 20 3d 3d 20 49 4f 50 | 20 7c 7c 20 74 65 6d 70 |p == IOP| || temp|
|00005e00| 2d 3e 6f 70 20 3d 3d 20 | 45 4f 50 29 2a 2f 0d 09 |->op == |EOP)*/..|
|00005e10| 09 09 69 66 20 28 20 74 | 65 6d 70 2d 3e 6f 70 20 |..if ( t|emp->op |
|00005e20| 3d 3d 20 49 4f 50 29 0d | 09 09 09 09 73 31 20 3d |== IOP).|....s1 =|
|00005e30| 20 2a 28 74 65 6d 70 2d | 3e 70 70 74 72 2b 32 29 | *(temp-|>pptr+2)|
|00005e40| 3b 0d 09 09 09 65 6c 73 | 65 20 69 66 20 28 20 74 |;....els|e if ( t|
|00005e50| 65 6d 70 2d 3e 6f 70 20 | 3d 3d 20 53 4f 50 20 29 |emp->op |== SOP )|
|00005e60| 0d 09 09 09 09 73 31 20 | 3d 20 2a 28 74 65 6d 70 |.....s1 |= *(temp|
|00005e70| 2d 3e 70 70 74 72 29 3b | 0d 09 09 09 65 6c 73 65 |->pptr);|....else|
|00005e80| 0d 09 09 09 09 73 31 20 | 3d 20 2a 28 74 65 6d 70 |.....s1 |= *(temp|
|00005e90| 2d 3e 70 70 74 72 2b 31 | 29 3b 0d 0d 09 09 09 69 |->pptr+1|);.....i|
|00005ea0| 66 20 28 20 63 75 72 73 | 6f 72 2d 3e 6f 70 20 3d |f ( curs|or->op =|
|00005eb0| 3d 20 49 4f 50 20 29 0d | 09 09 09 09 73 32 20 3d |= IOP ).|....s2 =|
|00005ec0| 20 2a 28 63 75 72 73 6f | 72 2d 3e 70 70 74 72 2b | *(curso|r->pptr+|
|00005ed0| 32 29 3b 0d 09 09 09 65 | 6c 73 65 20 69 66 20 28 |2);....e|lse if (|
|00005ee0| 20 63 75 72 73 6f 72 2d | 3e 6f 70 20 3d 3d 20 53 | cursor-|>op == S|
|00005ef0| 4f 50 20 29 0d 09 09 09 | 09 73 32 20 3d 20 2a 28 |OP )....|.s2 = *(|
|00005f00| 63 75 72 73 6f 72 2d 3e | 70 70 74 72 29 3b 0d 09 |cursor->|pptr);..|
|00005f10| 09 09 65 6c 73 65 0d 09 | 09 09 09 73 32 20 3d 20 |..else..|...s2 = |
|00005f20| 2a 28 63 75 72 73 6f 72 | 2d 3e 70 70 74 72 2b 31 |*(cursor|->pptr+1|
|00005f30| 29 3b 0d 09 09 09 09 0d | 09 09 09 69 66 20 28 20 |);......|...if ( |
|00005f40| 73 31 20 3c 20 73 32 20 | 29 20 7b 0d 09 09 09 09 |s1 < s2 |) {.....|
|00005f50| 69 66 20 28 63 75 72 73 | 6f 72 20 3d 3d 20 68 65 |if (curs|or == he|
|00005f60| 61 64 29 20 7b 0d 09 09 | 09 09 09 2f 2a 20 69 6e |ad) {...|.../* in|
|00005f70| 73 65 72 74 20 62 65 66 | 6f 72 65 20 68 65 61 64 |sert bef|ore head|
|00005f80| 20 2a 2f 0d 09 09 09 09 | 09 74 65 6d 70 2d 3e 6e | */.....|.temp->n|
|00005f90| 65 78 74 20 3d 20 68 65 | 61 64 3b 0d 09 09 09 09 |ext = he|ad;.....|
|00005fa0| 09 68 65 61 64 20 3d 20 | 74 65 6d 70 3b 0d 09 09 |.head = |temp;...|
|00005fb0| 09 09 09 64 6f 6e 65 20 | 3d 20 31 3b 0d 09 09 09 |...done |= 1;....|
|00005fc0| 09 7d 0d 09 09 09 09 65 | 6c 73 65 20 7b 0d 09 09 |.}.....e|lse {...|
|00005fd0| 09 09 09 74 65 6d 70 2d | 3e 6e 65 78 74 20 3d 20 |...temp-|>next = |
|00005fe0| 70 72 65 76 2d 3e 6e 65 | 78 74 3b 0d 09 09 09 09 |prev->ne|xt;.....|
|00005ff0| 09 70 72 65 76 2d 3e 6e | 65 78 74 20 3d 20 74 65 |.prev->n|ext = te|
|00006000| 6d 70 3b 0d 09 09 09 09 | 09 64 6f 6e 65 20 3d 20 |mp;.....|.done = |
|00006010| 31 3b 0d 09 09 09 09 7d | 0d 09 09 09 7d 0d 09 09 |1;.....}|....}...|
|00006020| 09 65 6c 73 65 0d 09 09 | 09 09 70 72 65 76 20 3d |.else...|..prev =|
|00006030| 20 63 75 72 73 6f 72 3b | 0d 09 09 09 63 75 72 73 | cursor;|....curs|
|00006040| 6f 72 20 3d 20 63 75 72 | 73 6f 72 2d 3e 6e 65 78 |or = cur|sor->nex|
|00006050| 74 3b 0d 09 09 7d 0d 09 | 09 69 66 20 28 21 64 6f |t;...}..|.if (!do|
|00006060| 6e 65 29 20 7b 0d 09 09 | 09 70 72 65 76 2d 3e 6e |ne) {...|.prev->n|
|00006070| 65 78 74 20 3d 20 74 65 | 6d 70 3b 0d 09 09 09 74 |ext = te|mp;....t|
|00006080| 65 6d 70 2d 3e 6e 65 78 | 74 20 3d 20 4e 49 4c 3b |emp->nex|t = NIL;|
|00006090| 0d 09 09 7d 0d 09 7d 0d | 09 72 65 74 75 72 6e 28 |...}..}.|.return(|
|000060a0| 68 65 61 64 29 3b 0d 7d | 0d 0d 0d 76 6f 69 64 09 |head);.}|...void.|
|000060b0| 63 68 65 63 6b 5f 6c 69 | 73 74 28 6c 69 73 74 29 |check_li|st(list)|
|000060c0| 0d 09 45 76 65 6e 74 20 | 2a 6c 69 73 74 3b 0d 7b |..Event |*list;.{|
|000060d0| 0d 09 2f 2a 20 70 72 69 | 6e 74 73 20 65 76 65 6e |../* pri|nts even|
|000060e0| 74 20 6c 69 73 74 20 74 | 6f 20 72 65 70 6f 72 74 |t list t|o report|
|000060f0| 66 69 6c 65 20 66 6f 72 | 20 64 65 62 75 67 67 69 |file for| debuggi|
|00006100| 6e 67 20 70 75 72 70 6f | 73 65 73 20 2a 2f 0d 0d |ng purpo|ses */..|
|00006110| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 69 3b |.registe|r int i;|
|00006120| 0d 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 6e |..regist|er int n|
|00006130| 3b 0d 09 45 76 65 6e 74 | 20 2a 63 75 72 73 6f 72 |;..Event| *cursor|
|00006140| 3b 0d 0d 09 69 66 20 28 | 20 21 6f 75 74 32 5f 66 |;...if (| !out2_f|
|00006150| 6c 61 67 29 0d 09 09 72 | 65 74 75 72 6e 3b 0d 09 |lag)...r|eturn;..|
|00006160| 63 75 72 73 6f 72 20 3d | 20 6c 69 73 74 3b 0d 09 |cursor =| list;..|
|00006170| 77 68 69 6c 65 20 28 20 | 63 75 72 73 6f 72 20 21 |while ( |cursor !|
|00006180| 3d 20 4e 49 4c 20 29 20 | 7b 0d 09 09 6e 20 3d 20 |= NIL ) |{...n = |
|00006190| 30 3b 0d 09 09 73 70 72 | 69 6e 74 66 28 20 28 63 |0;...spr|intf( (c|
|000061a0| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 2c 20 |har *)th|eMess1, |
|000061b0| 22 25 64 22 2c 20 63 75 | 72 73 6f 72 2d 3e 6f 70 |"%d", cu|rsor->op|
|000061c0| 29 3b 09 52 65 70 6f 72 | 74 28 28 63 68 61 72 20 |);.Repor|t((char |
|000061d0| 2a 29 74 68 65 4d 65 73 | 73 31 29 3b 0d 09 09 73 |*)theMes|s1);...s|
|000061e0| 70 72 69 6e 74 66 28 20 | 28 63 68 61 72 20 2a 29 |printf( |(char *)|
|000061f0| 74 68 65 4d 65 73 73 31 | 2c 20 22 20 25 64 22 2c |theMess1|, " %d",|
|00006200| 20 63 75 72 73 6f 72 2d | 3e 6e 61 72 67 73 29 3b | cursor-|>nargs);|
|00006210| 09 52 65 70 6f 72 74 28 | 28 63 68 61 72 20 2a 29 |.Report(|(char *)|
|00006220| 74 68 65 4d 65 73 73 31 | 29 3b 0d 09 09 66 6f 72 |theMess1|);...for|
|00006230| 20 28 20 69 20 3d 20 30 | 3b 20 69 3c 20 63 75 72 | ( i = 0|; i< cur|
|00006240| 73 6f 72 2d 3e 6e 61 72 | 67 73 3b 20 69 2b 2b 29 |sor->nar|gs; i++)|
|00006250| 20 7b 0d 09 09 09 6e 2b | 2b 3b 0d 09 09 09 73 70 | {....n+|+;....sp|
|00006260| 72 69 6e 74 66 28 20 28 | 63 68 61 72 20 2a 29 74 |rintf( (|char *)t|
|00006270| 68 65 4d 65 73 73 31 2c | 20 22 20 25 38 2e 33 66 |heMess1,| " %8.3f|
|00006280| 22 2c 20 2a 28 63 75 72 | 73 6f 72 2d 3e 70 70 74 |", *(cur|sor->ppt|
|00006290| 72 2b 69 29 29 3b 09 52 | 65 70 6f 72 74 28 28 63 |r+i));.R|eport((c|
|000062a0| 68 61 72 20 2a 29 74 68 | 65 4d 65 73 73 31 29 3b |har *)th|eMess1);|
|000062b0| 0d 09 09 09 69 66 20 28 | 20 6e 20 25 20 38 20 3d |....if (| n % 8 =|
|000062c0| 3d 20 30 20 29 20 7b 0d | 09 09 09 09 69 66 20 28 |= 0 ) {.|....if (|
|000062d0| 20 69 20 3c 20 63 75 72 | 73 6f 72 2d 3e 6e 61 72 | i < cur|sor->nar|
|000062e0| 67 73 2d 31 29 20 7b 0d | 09 09 09 09 09 52 65 70 |gs-1) {.|.....Rep|
|000062f0| 6f 72 74 28 22 5c 6e 22 | 29 3b 0d 09 09 09 09 09 |ort("\n"|);......|
|00006300| 52 65 70 6f 72 74 28 22 | 5c 74 22 29 3b 0d 09 09 |Report("|\t");...|
|00006310| 09 09 7d 0d 09 09 09 7d | 0d 09 09 7d 0d 09 09 52 |..}....}|...}...R|
|00006320| 65 70 6f 72 74 28 22 5c | 6e 22 29 3b 0d 09 09 63 |eport("\|n");...c|
|00006330| 75 72 73 6f 72 20 3d 20 | 63 75 72 73 6f 72 2d 3e |ursor = |cursor->|
|00006340| 6e 65 78 74 3b 0d 09 7d | 0d 09 09 52 65 70 6f 72 |next;..}|...Repor|
|00006350| 74 28 22 65 6e 64 20 6f | 66 20 6c 69 73 74 5c 6e |t("end o|f list\n|
|00006360| 22 29 3b 0d 7d 09 2f 2a | 20 63 68 65 63 6b 5f 6c |");.}./*| check_l|
|00006370| 69 73 74 20 2a 2f 0d 0d | 0d 76 6f 69 64 09 61 64 |ist */..|.void.ad|
|00006380| 64 5f 65 6e 64 5f 6f 70 | 73 28 6c 69 73 74 29 0d |d_end_op|s(list).|
|00006390| 09 45 76 65 6e 74 20 2a | 6c 69 73 74 3b 0d 7b 0d |.Event *|list;.{.|
|000063a0| 2f 2a 20 69 6e 73 65 72 | 74 20 45 4e 44 4f 50 20 |/* inser|t ENDOP |
|000063b0| 63 61 72 64 73 20 69 6e | 20 63 68 72 6f 6e 6f 6c |cards in| chronol|
|000063c0| 6f 67 69 63 61 6c 20 6f | 72 64 65 72 20 69 6e 20 |ogical o|rder in |
|000063d0| 6c 69 73 74 20 2a 2f 0d | 09 45 76 65 6e 74 20 2a |list */.|.Event *|
|000063e0| 63 75 72 73 6f 72 2c 20 | 2a 70 72 65 76 2c 20 2a |cursor, |*prev, *|
|000063f0| 74 65 6d 70 2c 20 2a 63 | 6e 65 78 74 3b 0d 09 69 |temp, *c|next;..i|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
