Metropoli BBS
VIEWER: yz.apl MODE: BINARY (HEX)
==============================================================================================================================================
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 00 00 82 76 49 68  C2 25 3C 3D 01 00 00 00  78 02 00 00 00 03 00 08  00 00 00 05 00 00 00 01  ...évIh%<=...x..........
00000020  00 00 00 01 00 00 00 05  00 00 00 2E 2C 2A 30 5F  78 05 00 00 00 7A 64 69  76 00 00 01 00 00 00 0C  ..........,*0_x...zdiv.....
00000040  00 00 2B 00 00 00 0D 00  00 00 05 00 00 00 01 00  00 00 01 00 00 00 1A 00  00 00 02 00 00 00 01 00  ..+......................
00000060  00 00 01 00 00 00 01 00  00 00 01 00 00 00 01 00  00 00 01 00 00 00 01 00  00 00 01 00 00 00 08 00  ........................
00000080  00 00 0C 03 00 00 02 00  00 00 01 00 00 00 0D 00  00 00 3C 00 00 00 20 72  23 6E 20 7A 64 69 76 20  .............<... r#n zdiv 
000000A0  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                               
000000C0  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 
000000E0  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            
00000100  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
00000120  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     
00000140  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
00000160  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                          
00000180  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                       
000001A0  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                                  
000001C0  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
000001E0  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
00000200  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
00000220  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
00000240  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
00000260  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
00000280  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 
000002A0  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.
000002C0  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                                  
000002E0  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
00000300  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
00000320  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.    
00000340  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                                  
00000360  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
00000380  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.      
000003A0  20 20 18 00 00 00 FF FF  FF FF FC FF FF FF 0A 00  00 00 A8 2E 04 00 01 00  00 00 01 00 00 00 30 00    ...       ...¿........0.
000003C0  00 00 FC FF FF FF 05 00  00 00 70 26 04 00 01 00  00 00 73 20 6F 75 00 00  00 00 FC FF FF FF 03 00  ..   ...p&....s ou....   .
000003E0  00 00 90 26 04 00 01 00  00 00 3B 76 3B 77 60 00  00 00 03 00 00 00 02 00  00 00 00 00 00 00 01 00  ..É&....;v;w`..............
00000400  00 00 20 20 20 22 30 00  00 00 FC FF FF FF 01 00  00 00 38 26 04 00 01 00  00 00 69 6E 67 73 FF FF  ..   "0...   ...8&....ings  
00000420  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  00 00 6D 6E 73 2E FF FF  FF FF 02 00 00 00 00 00    ..............mns.    .....
00000440  00 00 00 00 00 00 01 00  00 00 27 74 68 65 C0 00  00 00 FD FF FF FF 1B 00  00 00 40 84 04 00 01 00  .........'the...²   ...@ä..
00000460  00 00 68 6E 69 71 D8 00  00 00 3E 00 00 00 19 00  00 00 00 00 00 00 01 00  00 00 20 69 62 6D F0 00  ..hniq...>............. ibm.
00000480  00 00 FC FF FF FF 18 00  00 00 10 26 04 00 01 00  00 00 68 61 72 61 08 01  00 00 36 00 00 00 17 00  ..   ...&....hara..6....
000004A0  00 00 00 00 00 00 01 00  00 00 6E 6B 20 64 20 01  00 00 09 00 00 00 16 00  00 00 00 00 00 00 01 00  .........nk d .............
000004C0  00 00 22 20 63 65 38 01  00 00 FD FF FF FF 15 00  00 00 E0 8F 04 00 01 00  00 00 6F 70 72 69 50 01  .." ce8..²   §...αÅ....opriP
000004E0  00 00 1D 00 00 00 14 00  00 00 00 00 00 00 01 00  00 00 72 73 63 6F 68 01  00 00 FC FF FF FF 13 00  ...............rscoh..   .
00000500  00 00 F0 25 04 00 01 00  00 00 6C 20 77 69 80 01  00 00 08 00 00 00 12 00  00 00 00 00 00 00 01 00  ..%....l wiÇ.............
00000520  00 00 20 69 6E 20 98 01  00 00 03 00 00 00 11 00  00 00 00 00 00 00 01 00  00 00 72 69 78 2E B0 01  .. in ÿ...............rix.
00000540  00 00 FC FF FF FF 10 00  00 00 08 26 04 00 01 00  00 00 77 69 64 65 C8 01  00 00 84 00 00 00 0F 00  ..   ...&....wide..ä....
00000560  00 00 00 00 00 00 01 00  00 00 6C 20 62 65 E0 01  00 00 0B 00 00 00 0E 00  00 00 00 00 00 00 01 00  .........l beα.............
00000580  00 00 6E 79 20 69 F8 01  00 00 09 00 00 00 0D 00  00 00 00 00 00 00 01 00  00 00 66 20 68 65 10 02  ..ny i°...............f he
000005A0  00 00 FC FF FF FF 0C 00  00 00 80 22 04 00 01 00  00 00 6E 67 74 68 28 02  00 00 38 00 00 00 0B 00  ..   ...Ç"....ngth(..8....
000005C0  00 00 00 00 00 00 01 00  00 00 65 66 74 6D 40 02  00 00 FC FF FF FF 0A 00  00 00 20 26 04 00 01 00  .........eftm@..   ... &..
000005E0  00 00 20 75 73 65 58 02  00 00 08 00 00 00 09 00  00 00 00 00 00 00 01 00  00 00 20 20 20 22 70 02  .. useX...............   "p
00000600  00 00 05 00 00 00 08 00  00 00 00 00 00 00 01 00  00 00 68 63 6E 74 88 02  00 00 09 00 00 00 07 00  ...............hcntê......
00000620  00 00 00 00 00 00 01 00  00 00 20 20 20 20 A0 02  00 00 FC FF FF FF 06 00  00 00 60 22 04 00 01 00  .........    á..   ...`"..
00000640  00 00 72 61 74 65 B8 02  00 00 38 00 00 00 05 00  00 00 00 00 00 00 01 00  00 00 20 60 62 2C D0 02  ..rate..8............. `b,
00000660  00 00 FC FF FF FF 04 00  00 00 D0 25 04 00 01 00  00 00 6F 20 72 65 E8 02  00 00 08 00 00 00 03 00  ..   ...%....o reΦ......
00000680  00 00 00 00 00 00 01 00  00 00 20 74 68 65 00 03  00 00 03 00 00 00 02 00  00 00 00 00 00 00 01 00  ......... the..............
000006A0  00 00 6E 67 20 62 FF FF  FF FF FC FF FF FF 01 00  00 00 70 2B 04 00 01 00  00 00 20 6D 61 74 30 03  ..ng b       ...p+.... mat0
000006C0  00 00 FD FF FF FF 02 00  00 00 60 8F 04 00 01 00  00 00 69 23 7E 4C FF FF  FF FF 04 00 00 00 01 00  ..²   ...`Å....i#~L    ....
000006E0  00 00 00 00 00 00 01 00  00 00 20 20 20 20 FF FF  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  .........        ............
00000700  00 00 64 74 68 20 FF FF  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  00 00 20 20 20 20 FF FF  ..dth     ..............      
00000720  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  00 00 20 20 20 20 FF FF  FF FF 02 00 00 00 00 00    ..............        .....
00000740  00 00 00 00 00 00 01 00  00 00 23 6E 65 78 FF FF  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  .........#nex    ............
00000760  00 00 20 20 20 20 FF FF  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  00 00 30 5E 3D 52 FF FF  ..        ..............0^=R  
00000780  FF FF 02 00 00 00 00 00  00 00 00 00 00 00 01 00  00 00 74 72 20 68 FF FF  FF FF 02 00 00 00 00 00    ..............tr h    .....
000007A0  00 00 00 00 00 00 01 00  00 00 00 D4 04 00 00 00  00 00 78 00 00 00 90 00  00 00 A8 00 00 00 18 03  ...............x...É...¿...
000007C0  00 00 48 03 00 00 60 03  00 00 78 03 00 00 90 03  00 00 A8 03 00 00 C0 03  00 00 D8 03 00 00 F0 03  ..H..`..x..É..¿......
000007E0  00 00 60 00 00 00 FF FF  FF FF 02 00 00 00 64 00  05 00 00 00 7A 64 69 76  00 02 00 00 00 6E 00 02  ..`...    ...d....zdiv....n.
00000800  00 00 00 72 00 04 00 00  00 01 00 00 00 00 00 00  00 04 00 00 00 00 00 00  00 02 00 00 00 64 00 04  ...r.....................d.
00000820  00 00 00 01 00 00 00 00  00 00 00 04 00 00 00 00  00 00 00 02 00 00 00 6E  00 02 00 00 00 72 00 02  ....................n....r.
00000840  00 00 00 72 00 02 00 00  00 64 00 02 00 00 00 72  00 02 00 00 00 6E 00 02  00 00 00 72 00 04 00 00  ...r....d....r....n....r...
00000860  00 01 00 00 00 00 00 00  00 04 00 00 00 00 00 00  00 78 02 00 00 00 61 00  08 00 00 00 0C 03 00 00  ...............x...a......
00000880  02 00 00 00 01 00 00 00  0D 00 00 00 3C 00 00 00  20 72 23 6E 20 7A 64 69  76 20 64 20 20 20 20 20  .........<... r#n zdiv d     
000008A0  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                                  
000008C0  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 77 68 65 6E 20 64              "returns zero when d
000008E0  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 20 20 20 20 20 20  ivisor is zero                  
00000900  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 20 77 68 65 6E 20          "apl returns unity when 
00000920  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 20 20 20 20 20 20  n and d are both zero           
00000940  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 29 56 64 5E 3D 30       r#(nXr)%(dXr)+~r#(n=0)Vd^=0
00000960  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                                  
00000980  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 20 20 20 20 20 20   $0                             
000009A0  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 7A 64 69                              "zdi
000009C0  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 20 20 20 20 20 20  v - zero tolerant division      
000009E0  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 72 6F 6D 20 27 74                          "from 't
00000A00  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 75 65 73 27 20 63  he apl handbook of techniques' c
00000A20  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 69 6E 20 65 72 72  opyright 1978, ibm. "-domain err
00000A40  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 72 63 69 61 6C 20  ors are undesired in commercial 
00000A60  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 6E 73 20 77 68 65  matrix          " operations whe
00000A80  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 75 6E 61 76 61 69  re zeros usually indicate unavai
00000AA0  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 20 20 20 20 20 20  lable       " information.      
00000AC0  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                                  
00000AE0  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 6F 72 6D 61 62 6C          "-n and d are conformabl
00000B00  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 61 6C 61 72 73 20  e numeric structures or scalars 
00000B20  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 20 20 20 20 20 20  in  " and combination.          
00000B40  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                                  
00000B60  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 73 74 65 61 64 20  "-zero will be returned instead 
00000B80  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 20 20 00           of the domain error.        .
[ RETURN TO DIRECTORY ]