============================================================================================================================================== OFFSET 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ---------------------------------------------------------------------------------------------------------------------------------------------- 00000000 01 00 81 76 49 68 C2 25 3C 3D 01 00 78 05 00 7A 64 69 76 00 00 01 00 0C 2B 00 0D 00 05 00 01 00 ☺.üvIh┬%<=☺.x♣.zdiv..☺.♀+.♪.♣.☺. 00000020 01 00 1A 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 0C 03 02 00 01 00 0D 00 ☺.→.☻.☺.☺.☺.☺.☺.☺.☺.☺.◘.♀♥☻.☺.♪. 00000040 3C 00 20 72 23 6E 20 7A 64 69 76 20 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 <. r#n zdiv d 00000060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 "r 00000080 65 74 75 72 6E 73 20 7A 65 72 6F 20 77 68 65 6E 20 64 69 76 69 73 6F 72 20 69 73 20 7A 65 72 6F eturns zero when divisor is zero 000000A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 70 6C 20 72 "apl r 000000C0 65 74 75 72 6E 73 20 75 6E 69 74 79 20 77 68 65 6E 20 6E 20 61 6E 64 20 64 20 61 72 65 20 62 6F eturns unity when n and d are bo 000000E0 74 68 20 7A 65 72 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 6E 58 72 29 25 28 th zero r#(nXr)%( 00000100 64 58 72 29 2B 7E 72 23 28 6E 3D 30 29 56 64 5E 3D 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dXr)+~r#(n=0)Vd^=0 00000120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 $0 00000140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 7A 64 69 76 20 2D 20 7A 65 72 6F 20 74 6F 6C 65 72 "zdiv - zero toler 00000180 61 6E 74 20 64 69 76 69 73 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ant division 000001A0 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F "from 'the apl handboo 000001C0 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C k of techniques' copyright 1978, 000001E0 20 69 62 6D 2E 20 22 2D 64 6F 6D 61 69 6E 20 65 72 72 6F 72 73 20 61 72 65 20 75 6E 64 65 73 69 ibm. "-domain errors are undesi 00000200 72 65 64 20 69 6E 20 63 6F 6D 6D 65 72 63 69 61 6C 20 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 red in commercial matrix 00000220 20 20 22 20 6F 70 65 72 61 74 69 6F 6E 73 20 77 68 65 72 65 20 7A 65 72 6F 73 20 75 73 75 61 6C " operations where zeros usual 00000240 6C 79 20 69 6E 64 69 63 61 74 65 20 75 6E 61 76 61 69 6C 61 62 6C 65 20 20 20 20 20 20 20 22 20 ly indicate unavailable " 00000260 69 6E 66 6F 72 6D 61 74 69 6F 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 information. 00000280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 6E 20 61 6E "-n an 000002A0 64 20 64 20 61 72 65 20 63 6F 6E 66 6F 72 6D 61 62 6C 65 20 6E 75 6D 65 72 69 63 20 73 74 72 75 d d are conformable numeric stru 000002C0 63 74 75 72 65 73 20 6F 72 20 73 63 61 6C 61 72 73 20 69 6E 20 20 22 20 61 6E 64 20 63 6F 6D 62 ctures or scalars in " and comb 000002E0 69 6E 61 74 69 6F 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ination. 00000300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 7A 65 72 6F 20 77 69 6C 6C 20 62 65 "-zero will be 00000320 20 72 65 74 75 72 6E 65 64 20 69 6E 73 74 65 61 64 20 6F 66 20 74 68 65 20 64 6F 6D 61 69 6E 20 returned instead of the domain 00000340 65 72 72 6F 72 2E 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0A 00 06 00 9B 50 01 00 01 00 error. ↕. ..ⁿ ◙.♠.¢P☺.☺. 00000360 0C 00 24 00 62 51 FC FF 05 00 04 00 A3 50 01 00 20 20 20 20 00 00 62 51 FC FF 03 00 10 00 9A 50 ♀.$.bQⁿ ♣.♦.úP☺. ..bQⁿ ♥.►.ÜP 00000380 01 00 20 20 20 20 48 00 62 51 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 62 51 FC FF 01 00 ☺. H.bQ♥.☻.....☺. $.bQⁿ ☺. 000003A0 0E 00 90 50 01 00 6E 73 20 7A FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6F 72 20 69 FF FF 00 00 ♫.ÉP☺.ns z ..☻.......☺.or i .. 000003C0 02 00 00 00 00 00 00 00 01 00 20 20 20 20 90 00 62 51 FD FF 1B 00 02 00 3B 51 01 00 22 61 70 6C ☻.......☺. É.bQ² ←.☻.;Q☺."apl 000003E0 A2 00 62 51 3E 00 19 00 00 00 00 00 01 00 20 77 68 65 B4 00 62 51 FC FF 18 00 10 00 B6 50 01 00 ó.bQ>.↓.....☺. whe┤.bQⁿ ↑.►.╢P☺. 00000400 62 6F 74 68 C6 00 62 51 36 00 17 00 00 00 00 00 01 00 20 20 20 20 D8 00 62 51 09 00 16 00 00 00 both╞.bQ6.↨.....☺. ╪.bQ○.▬... 00000420 00 00 01 00 72 29 2B 7E EA 00 62 51 FD FF 15 00 04 00 2C 51 01 00 20 20 20 20 FC 00 62 51 1D 00 ..☺.r)+~Ω.bQ² §.♦.,Q☺. ⁿ.bQ↔. 00000440 14 00 00 00 00 00 01 00 20 20 20 20 0E 01 62 51 FC FF 13 00 02 00 AF 50 01 00 20 20 20 20 20 01 ¶.....☺. ♫☺bQⁿ ‼.☻.»P☺. ☺ 00000460 62 51 08 00 12 00 00 00 00 00 01 00 20 20 20 20 32 01 62 51 03 00 11 00 00 00 00 00 01 00 20 20 bQ◘.↕.....☺. 2☺bQ♥.◄.....☺. 00000480 20 20 44 01 62 51 FC FF 10 00 0C 00 AE 50 01 00 22 7A 64 69 56 01 62 51 84 00 0F 00 00 00 00 00 D☺bQⁿ ►.♀.«P☺."zdiV☺bQä.☼..... 000004A0 01 00 61 6E 74 20 68 01 62 51 0B 00 0E 00 00 00 00 00 01 00 20 20 20 20 7A 01 62 51 09 00 0D 00 ☺.ant h☺bQ♂.♫.....☺. z☺bQ○.♪. 000004C0 00 00 00 00 01 00 20 20 20 20 8C 01 62 51 FC FF 0C 00 06 00 AE 50 01 00 70 6C 20 68 9E 01 62 51 ....☺. î☺bQⁿ ♀.♠.«P☺.pl h₧☺bQ 000004E0 38 00 0B 00 00 00 00 00 01 00 68 6E 69 71 B0 01 62 51 FC FF 0A 00 08 00 A7 50 01 00 20 31 39 37 8.♂.....☺.hniq░☺bQⁿ ◙.◘.ºP☺. 197 00000500 C2 01 62 51 08 00 09 00 00 00 00 00 01 00 69 6E 20 65 D4 01 62 51 05 00 08 00 00 00 00 00 01 00 ┬☺bQ◘.○.....☺.in e╘☺bQ♣.◘.....☺. 00000520 73 69 72 65 E6 01 62 51 09 00 07 00 00 00 00 00 01 00 6C 20 6D 61 F8 01 62 51 FC FF 06 00 02 00 sireµ☺bQ○.•.....☺.l ma°☺bQⁿ ♠.☻. 00000540 A7 50 01 00 22 20 6F 70 0A 02 62 51 38 00 05 00 00 00 00 00 01 00 20 7A 65 72 1C 02 62 51 FC FF ºP☺." op◙☻bQ8.♣.....☺. zer∟☻bQⁿ 00000560 04 00 02 00 A4 50 01 00 69 63 61 74 2E 02 62 51 08 00 03 00 00 00 00 00 01 00 20 20 20 20 40 02 ♦.☻.ñP☺.icat.☻bQ◘.♥.....☺. @☻ 00000580 62 51 03 00 02 00 00 00 00 00 01 00 6E 2E 20 20 FF FF 00 00 FC FF 01 00 0C 00 A3 50 01 00 20 20 bQ♥.☻.....☺.n. ..ⁿ ☺.♀.úP☺. 000005A0 20 20 64 02 62 51 FD FF 02 00 08 00 3C 51 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 d☻bQ² ☻.◘.<Q☺. ..♦.☺..... 000005C0 01 00 64 20 64 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 65 20 6E 75 FF FF 00 00 02 00 00 00 ☺.d d ..☻.......☺.e nu ..☻... 000005E0 00 00 00 00 01 00 65 73 20 6F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 20 61 6E FF FF 00 00 ....☺.es o ..☻.......☺." an .. 00000600 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 ☻.......☺. ..☻.......☺. 00000620 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺. ..☻.......☺. 00000640 5D 54 0A 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 16 00 0A 00 00 00 5A 00 6C 00 7E 00 52 02 ]T◙. ..☻.......☺.▬.◙...Z.l.~.R☻ 00000660 76 02 88 02 9A 02 AC 02 BE 02 D0 02 E2 02 F4 02 48 00 FF FF 02 00 64 00 05 00 7A 64 69 76 00 02 v☻ê☻Ü☻¼☻╛☻╨☻Γ☻⌠☻H. ☻.d.♣.zdiv.☻ 00000680 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 00 64 00 04 00 01 00 00 00 02 00 00 00 02 .n.☻.r.♦.☺...☻...☻.d.♦.☺...☻...☻ 000006A0 00 6E 00 02 00 72 00 02 00 72 00 02 00 64 00 02 00 72 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 .n.☻.r.☻.r.☻.d.☻.r.☻.n.☻.r.♦.☺.. 000006C0 00 02 00 00 00 78 02 00 61 00 08 00 0C 03 02 00 01 00 0D 00 3C 00 20 72 23 6E 20 7A 64 69 76 20 .☻...x☻.a.◘.♀♥☻.☺.♪.<. r#n zdiv 000006E0 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d 00000700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 65 74 75 72 6E 73 20 7A 65 72 6F 20 "returns zero 00000720 77 68 65 6E 20 64 69 76 69 73 6F 72 20 69 73 20 7A 65 72 6F 20 20 20 20 20 20 20 20 20 20 20 20 when divisor is zero 00000740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 70 6C 20 72 65 74 75 72 6E 73 20 75 6E 69 74 79 "apl returns unity 00000760 20 77 68 65 6E 20 6E 20 61 6E 64 20 64 20 61 72 65 20 62 6F 74 68 20 7A 65 72 6F 20 20 20 20 20 when n and d are both zero 00000780 20 20 20 20 20 20 20 20 20 20 20 72 23 28 6E 58 72 29 25 28 64 58 72 29 2B 7E 72 23 28 6E 3D 30 r#(nXr)%(dXr)+~r#(n=0 000007A0 29 56 64 5E 3D 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )Vd^=0 000007C0 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 000007E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000800 20 20 22 7A 64 69 76 20 2D 20 7A 65 72 6F 20 74 6F 6C 65 72 61 6E 74 20 64 69 76 69 73 69 6F 6E "zdiv - zero tolerant division 00000820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 "f 00000840 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 rom 'the apl handbook of techniq 00000860 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 64 6F 6D 61 ues' copyright 1978, ibm. "-doma 00000880 69 6E 20 65 72 72 6F 72 73 20 61 72 65 20 75 6E 64 65 73 69 72 65 64 20 69 6E 20 63 6F 6D 6D 65 in errors are undesired in comme 000008A0 72 63 69 61 6C 20 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 22 20 6F 70 65 72 61 74 69 6F rcial matrix " operatio 000008C0 6E 73 20 77 68 65 72 65 20 7A 65 72 6F 73 20 75 73 75 61 6C 6C 79 20 69 6E 64 69 63 61 74 65 20 ns where zeros usually indicate 000008E0 75 6E 61 76 61 69 6C 61 62 6C 65 20 20 20 20 20 20 20 22 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 2E unavailable " information. 00000900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 6E 20 61 6E 64 20 64 20 61 72 65 20 63 6F 6E 66 "-n and d are conf 00000940 6F 72 6D 61 62 6C 65 20 6E 75 6D 65 72 69 63 20 73 74 72 75 63 74 75 72 65 73 20 6F 72 20 73 63 ormable numeric structures or sc 00000960 61 6C 61 72 73 20 69 6E 20 20 22 20 61 6E 64 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 2E 20 20 20 20 alars in " and combination. 00000980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000009A0 20 20 20 20 20 20 22 2D 7A 65 72 6F 20 77 69 6C 6C 20 62 65 20 72 65 74 75 72 6E 65 64 20 69 6E "-zero will be returned in 000009C0 73 74 65 61 64 20 6F 66 20 74 68 65 20 64 6F 6D 61 69 6E 20 65 72 72 6F 72 2E 20 20 20 20 20 20 stead of the domain error. 000009E0 20 20 00 .