Home » Personal collection » Acorn DFS disks » dfs_box03_disk08b_rq_forth_toolkit.scp » 040-059

040-059

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn DFS disks » dfs_box03_disk08b_rq_forth_toolkit.scp
Filename: 040-059
Read OK: ✔
File size: 2800 bytes
Load address: 5000
Exec address: 5000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
( Double-numbers          Load )                                  decimal  041 044 thru           decimal      045 load           decimal  048 049 thru   exit                                                                       This is the Load Block          for the Double-numbers                                                                          Change 045 to 050 to re-        assemble DU/MOD and D2*                                                                                                    ( Double-numbers           1/9 )                                  hex                                                           : 2@               ( addr __ d )   dup 2+ @ swap @ ;                                            : 2!               ( d addr __ )   swap over ! 2+ ! ;                                           : 2CONSTANT             ( __ d )   create , , does> 2@ ;                                        : 2VARIABLE          ( __ addr )   variable 0 , ;                                               ( Double-numbers           2/9 )  hex                           : 2DROP                 ( d __ )   drop drop ;                                                  : 2DUP              ( d __ d d )   over over ;                                                  : 2OVER    ( d1 d2 __ d1 d2 d1 )   4 pick 4 pick ;                                              : 2SWAP       ( d1 d2 __ d2 d1 )   4 roll 4 roll ;                                              : 2ROT  ( d1 d2 d3 __ d2 d3 d1 )   6 roll 6 roll ;              ( Double-numbers           3/9 )  hex                           : D-             ( d1 d2 __ d3 )   dnegate d+ ;                 : D>              ( d1 d2 __ f )   2swap d< ;                   : DMAX           ( d1 d2 __ d3 )   2over 2over d< if 2swap endif   2drop ;                      : DMIN           ( d1 d2 __ d3 )   2over 2over d> if 2swap endif   2drop ;                      : D0=                 ( d __ f )   or 0= ;                      : D=              ( d1 d2 __ f )   d- d0= ;                     ( Double-numbers           4/9 )                                  hex                                                           : D0<                 ( d __ f )   swap drop 0< ;                                               : DU<           ( ud1 ud2 __ f )   8000 + rot 8000 + rot rot d<    ;                                                            : D*             ( d1 d2 __ d3 )   over 5 pick u* 6 roll 4 roll    * + 2swap * + ;                                                                              ( Double-numbers          5'/9 )  hex                           create DU/MOD   here -2 allot ,   84 c,  79 c,                    BD c, 060A ,  A8 c,             BD c, 0606 ,  9D c, 060A ,      98 c,  0A c,  9D c, 0606 ,      BD c, 060B ,  A8 c,             BD c, 0607 ,  9D c, 060B ,      98 c,  2A c,  9D c, 0607 ,      BD c, 0608 ,  A8 c,             BD c, 0604 ,  9D c, 0608 ,      98 c,  2A c,  9D c, 0604 ,      BD c, 0609 ,  A8 c,             BD c, 0605 ,  9D c, 0609 ,      98 c,  2A c,  9D c, 0605 , -->( Double-numbers          6'/9 )                                  A9 c,  20 c,  85 c,  78 c,      3E c, 060A ,  3E c, 060B ,      3E c, 0608 ,  3E c, 0609 ,      26 c,  79 c,  38 c,             BD c, 060A ,  FD c, 0602 ,      48 c,                           BD c, 060B ,  FD c, 0603 ,      48 c,                           BD c, 0608 ,  FD c, 0600 ,      A8 c,                           BD c, 0609 ,  FD c, 0601 ,      48 c,  A5 c,  79 c,             E9 c,  00 c,  68 c,             90 c,  12 c,               -->( Double-numbers          7'/9 )                                  9D c, 0609 ,  98 c,             9D c, 0608 ,  68 c,             9D c, 060B ,  68 c,             9D c, 060A ,  4C c, here 4 + ,  68 c,  68 c,                    3E c, 0606 ,  3E c, 0607 ,      3E c, 0604 ,  3E c, 0605 ,      C6 c,  78 c,  D0 c,  AA c,      4C c, 19AA ,                                                  create D2*      here -2 allot ,   1E c, 0602 ,  3E c, 0603 ,      3E c, 0600 ,  3E c, 0601 ,      4C c, 19CA ,                  ( Double-numbers           8/9 )  hex                           : HIGH-BITS                        0 do >r d2* d2* r@ - dup 0<     if   r@ + r> 2* 1-              else r> 2* 3 + endif loop ;  : 2'S-BIT                          >r d2* dup 0<                   if   d2* r@ - r> 1+             else d2* r@ 2dup u<               if   drop r> 1-                 else - r> 1+ endif endif ; : 1'S-BIT                          >r dup 0< if 2drop r> 1+        else d2* 8000 r@ du< 0= r> +    endif ;                      ( Double-numbers           9/9 )  hex                           : DSQRT             ( ud __ un )   0 1 8 high-bits rot drop 6      high-bits 2's-bit 1's-bit ;  : SQRT            ( un1 __ un2 )   0 dsqrt ;                                                    : D/MOD       ( d1 d2 __ d3 d4 )   3 pick >r >r r@ dabs >r >r      dabs 0. r> r> du/mod r> r@      xor d+- 2swap r> d+- 2swap ; : D/             ( d1 d2 __ d3 )   d/mod 2swap 2drop ;          : DMOD           ( d1 d2 __ d3 )   d/mod 2drop ;                ( Double-numbers          5"/9 )  hex                           code DU/MOD   ( uq ud __ ud ud )    n  1+ sty,                    top A + lda, tay, top 6 + lda,  top A + sta, tya,      .a asl,  top 6 + sta,                    top B + lda, tay, top 7 + lda,  top B + sta, tya,      .a rol,  top 7 + sta,                    top 8 + lda, tay, top 4 + lda,  top 8 + sta, tya,      .a rol,  top 4 + sta,                    top 9 + lda, tay, top 5 + lda,  top 9 + sta, tya,      .a rol,  top 5 + sta,               -->( Double-numbers          6"/9 )                                    20 .# lda, n sta,     begin,  top A + rol, top B + rol,       top 8 + rol, top 9 + rol,         n  1+ rol,         sec,       top A + lda, 2nd     sbc, pha,  top B + lda, 2nd  1+ sbc, pha,  top 8 + lda, top     sbc, tay,  top 9 + lda, top  1+ sbc, pha,    n  1+ lda,   0  .# sbc, pla,  cs if,                          top 9 + sta, tya, top 8 + sta,  pla,                            top B + sta, pla, top A + sta,  else, pla, pla, endif,     -->( Double-numbers          7"/9 )                                  4th rol, 4th 1+ rol,            3rd rol, 3rd 1+ rol,            n dec, eq until, poptwo jmp,  end-code                                                        code D2*            ( d1 __ d2 )  2nd asl, 2nd 1+ rol,            top rol, top 1+ rol,            next jmp,                     end-code                                                                                                                                                        ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ( Empty                        )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
00000000  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000010  20 20 20 20 20 20 20 20  20 20 4c 6f 61 64 20 29  |          Load )|
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000040  20 20 64 65 63 69 6d 61  6c 20 20 30 34 31 20 30  |  decimal  041 0|
00000050  34 34 20 74 68 72 75 20  20 20 20 20 20 20 20 20  |44 thru         |
00000060  20 20 64 65 63 69 6d 61  6c 20 20 20 20 20 20 30  |  decimal      0|
00000070  34 35 20 6c 6f 61 64 20  20 20 20 20 20 20 20 20  |45 load         |
00000080  20 20 64 65 63 69 6d 61  6c 20 20 30 34 38 20 30  |  decimal  048 0|
00000090  34 39 20 74 68 72 75 20  20 20 65 78 69 74 20 20  |49 thru   exit  |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000e0  20 20 20 20 20 54 68 69  73 20 69 73 20 74 68 65  |     This is the|
000000f0  20 4c 6f 61 64 20 42 6c  6f 63 6b 20 20 20 20 20  | Load Block     |
00000100  20 20 20 20 20 66 6f 72  20 74 68 65 20 44 6f 75  |     for the Dou|
00000110  62 6c 65 2d 6e 75 6d 62  65 72 73 20 20 20 20 20  |ble-numbers     |
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000160  20 20 20 20 20 43 68 61  6e 67 65 20 30 34 35 20  |     Change 045 |
00000170  74 6f 20 30 35 30 20 74  6f 20 72 65 2d 20 20 20  |to 050 to re-   |
00000180  20 20 20 20 20 61 73 73  65 6d 62 6c 65 20 44 55  |     assemble DU|
00000190  2f 4d 4f 44 20 61 6e 64  20 44 32 2a 20 20 20 20  |/MOD and D2*    |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000200  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000210  20 20 20 20 20 20 20 20  20 20 20 31 2f 39 20 29  |           1/9 )|
00000220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000240  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00000250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000280  3a 20 32 40 20 20 20 20  20 20 20 20 20 20 20 20  |: 2@            |
00000290  20 20 20 28 20 61 64 64  72 20 5f 5f 20 64 20 29  |   ( addr __ d )|
000002a0  20 20 20 64 75 70 20 32  2b 20 40 20 73 77 61 70  |   dup 2+ @ swap|
000002b0  20 40 20 3b 20 20 20 20  20 20 20 20 20 20 20 20  | @ ;            |
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000002e0  3a 20 32 21 20 20 20 20  20 20 20 20 20 20 20 20  |: 2!            |
000002f0  20 20 20 28 20 64 20 61  64 64 72 20 5f 5f 20 29  |   ( d addr __ )|
00000300  20 20 20 73 77 61 70 20  6f 76 65 72 20 21 20 32  |   swap over ! 2|
00000310  2b 20 21 20 3b 20 20 20  20 20 20 20 20 20 20 20  |+ ! ;           |
00000320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000340  3a 20 32 43 4f 4e 53 54  41 4e 54 20 20 20 20 20  |: 2CONSTANT     |
00000350  20 20 20 20 20 20 20 20  28 20 5f 5f 20 64 20 29  |        ( __ d )|
00000360  20 20 20 63 72 65 61 74  65 20 2c 20 2c 20 64 6f  |   create , , do|
00000370  65 73 3e 20 32 40 20 3b  20 20 20 20 20 20 20 20  |es> 2@ ;        |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000003a0  3a 20 32 56 41 52 49 41  42 4c 45 20 20 20 20 20  |: 2VARIABLE     |
000003b0  20 20 20 20 20 28 20 5f  5f 20 61 64 64 72 20 29  |     ( __ addr )|
000003c0  20 20 20 76 61 72 69 61  62 6c 65 20 30 20 2c 20  |   variable 0 , |
000003d0  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000400  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000410  20 20 20 20 20 20 20 20  20 20 20 32 2f 39 20 29  |           2/9 )|
00000420  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000440  3a 20 32 44 52 4f 50 20  20 20 20 20 20 20 20 20  |: 2DROP         |
00000450  20 20 20 20 20 20 20 20  28 20 64 20 5f 5f 20 29  |        ( d __ )|
00000460  20 20 20 64 72 6f 70 20  64 72 6f 70 20 3b 20 20  |   drop drop ;  |
00000470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000004a0  3a 20 32 44 55 50 20 20  20 20 20 20 20 20 20 20  |: 2DUP          |
000004b0  20 20 20 20 28 20 64 20  5f 5f 20 64 20 64 20 29  |    ( d __ d d )|
000004c0  20 20 20 6f 76 65 72 20  6f 76 65 72 20 3b 20 20  |   over over ;  |
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000500  3a 20 32 4f 56 45 52 20  20 20 20 28 20 64 31 20  |: 2OVER    ( d1 |
00000510  64 32 20 5f 5f 20 64 31  20 64 32 20 64 31 20 29  |d2 __ d1 d2 d1 )|
00000520  20 20 20 34 20 70 69 63  6b 20 34 20 70 69 63 6b  |   4 pick 4 pick|
00000530  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;              |
00000540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000560  3a 20 32 53 57 41 50 20  20 20 20 20 20 20 28 20  |: 2SWAP       ( |
00000570  64 31 20 64 32 20 5f 5f  20 64 32 20 64 31 20 29  |d1 d2 __ d2 d1 )|
00000580  20 20 20 34 20 72 6f 6c  6c 20 34 20 72 6f 6c 6c  |   4 roll 4 roll|
00000590  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;              |
000005a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000005c0  3a 20 32 52 4f 54 20 20  28 20 64 31 20 64 32 20  |: 2ROT  ( d1 d2 |
000005d0  64 33 20 5f 5f 20 64 32  20 64 33 20 64 31 20 29  |d3 __ d2 d3 d1 )|
000005e0  20 20 20 36 20 72 6f 6c  6c 20 36 20 72 6f 6c 6c  |   6 roll 6 roll|
000005f0  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;              |
00000600  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000610  20 20 20 20 20 20 20 20  20 20 20 33 2f 39 20 29  |           3/9 )|
00000620  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00000630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000640  3a 20 44 2d 20 20 20 20  20 20 20 20 20 20 20 20  |: D-            |
00000650  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
00000660  20 20 20 64 6e 65 67 61  74 65 20 64 2b 20 3b 20  |   dnegate d+ ; |
00000670  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000680  3a 20 44 3e 20 20 20 20  20 20 20 20 20 20 20 20  |: D>            |
00000690  20 20 28 20 64 31 20 64  32 20 5f 5f 20 66 20 29  |  ( d1 d2 __ f )|
000006a0  20 20 20 32 73 77 61 70  20 64 3c 20 3b 20 20 20  |   2swap d< ;   |
000006b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006c0  3a 20 44 4d 41 58 20 20  20 20 20 20 20 20 20 20  |: DMAX          |
000006d0  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
000006e0  20 20 20 32 6f 76 65 72  20 32 6f 76 65 72 20 64  |   2over 2over d|
000006f0  3c 20 69 66 20 32 73 77  61 70 20 65 6e 64 69 66  |< if 2swap endif|
00000700  20 20 20 32 64 72 6f 70  20 3b 20 20 20 20 20 20  |   2drop ;      |
00000710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000720  3a 20 44 4d 49 4e 20 20  20 20 20 20 20 20 20 20  |: DMIN          |
00000730  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
00000740  20 20 20 32 6f 76 65 72  20 32 6f 76 65 72 20 64  |   2over 2over d|
00000750  3e 20 69 66 20 32 73 77  61 70 20 65 6e 64 69 66  |> if 2swap endif|
00000760  20 20 20 32 64 72 6f 70  20 3b 20 20 20 20 20 20  |   2drop ;      |
00000770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000780  3a 20 44 30 3d 20 20 20  20 20 20 20 20 20 20 20  |: D0=           |
00000790  20 20 20 20 20 20 28 20  64 20 5f 5f 20 66 20 29  |      ( d __ f )|
000007a0  20 20 20 6f 72 20 30 3d  20 3b 20 20 20 20 20 20  |   or 0= ;      |
000007b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007c0  3a 20 44 3d 20 20 20 20  20 20 20 20 20 20 20 20  |: D=            |
000007d0  20 20 28 20 64 31 20 64  32 20 5f 5f 20 66 20 29  |  ( d1 d2 __ f )|
000007e0  20 20 20 64 2d 20 64 30  3d 20 3b 20 20 20 20 20  |   d- d0= ;     |
000007f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000800  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000810  20 20 20 20 20 20 20 20  20 20 20 34 2f 39 20 29  |           4/9 )|
00000820  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000840  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00000850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000880  3a 20 44 30 3c 20 20 20  20 20 20 20 20 20 20 20  |: D0<           |
00000890  20 20 20 20 20 20 28 20  64 20 5f 5f 20 66 20 29  |      ( d __ f )|
000008a0  20 20 20 73 77 61 70 20  64 72 6f 70 20 30 3c 20  |   swap drop 0< |
000008b0  3b 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 20 20 20 20  |                |
*
000008e0  3a 20 44 55 3c 20 20 20  20 20 20 20 20 20 20 20  |: DU<           |
000008f0  28 20 75 64 31 20 75 64  32 20 5f 5f 20 66 20 29  |( ud1 ud2 __ f )|
00000900  20 20 20 38 30 30 30 20  2b 20 72 6f 74 20 38 30  |   8000 + rot 80|
00000910  30 30 20 2b 20 72 6f 74  20 72 6f 74 20 64 3c 20  |00 + rot rot d< |
00000920  20 20 20 3b 20 20 20 20  20 20 20 20 20 20 20 20  |   ;            |
00000930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000960  3a 20 44 2a 20 20 20 20  20 20 20 20 20 20 20 20  |: D*            |
00000970  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
00000980  20 20 20 6f 76 65 72 20  35 20 70 69 63 6b 20 75  |   over 5 pick u|
00000990  2a 20 36 20 72 6f 6c 6c  20 34 20 72 6f 6c 6c 20  |* 6 roll 4 roll |
000009a0  20 20 20 2a 20 2b 20 32  73 77 61 70 20 2a 20 2b  |   * + 2swap * +|
000009b0  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;              |
000009c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000a00  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000a10  20 20 20 20 20 20 20 20  20 20 35 27 2f 39 20 29  |          5'/9 )|
00000a20  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00000a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a40  63 72 65 61 74 65 20 44  55 2f 4d 4f 44 20 20 20  |create DU/MOD   |
00000a50  68 65 72 65 20 2d 32 20  61 6c 6c 6f 74 20 2c 20  |here -2 allot , |
00000a60  20 20 38 34 20 63 2c 20  20 37 39 20 63 2c 20 20  |  84 c,  79 c,  |
00000a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a80  20 20 42 44 20 63 2c 20  30 36 30 41 20 2c 20 20  |  BD c, 060A ,  |
00000a90  41 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |A8 c,           |
00000aa0  20 20 42 44 20 63 2c 20  30 36 30 36 20 2c 20 20  |  BD c, 0606 ,  |
00000ab0  39 44 20 63 2c 20 30 36  30 41 20 2c 20 20 20 20  |9D c, 060A ,    |
00000ac0  20 20 39 38 20 63 2c 20  20 30 41 20 63 2c 20 20  |  98 c,  0A c,  |
00000ad0  39 44 20 63 2c 20 30 36  30 36 20 2c 20 20 20 20  |9D c, 0606 ,    |
00000ae0  20 20 42 44 20 63 2c 20  30 36 30 42 20 2c 20 20  |  BD c, 060B ,  |
00000af0  41 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |A8 c,           |
00000b00  20 20 42 44 20 63 2c 20  30 36 30 37 20 2c 20 20  |  BD c, 0607 ,  |
00000b10  39 44 20 63 2c 20 30 36  30 42 20 2c 20 20 20 20  |9D c, 060B ,    |
00000b20  20 20 39 38 20 63 2c 20  20 32 41 20 63 2c 20 20  |  98 c,  2A c,  |
00000b30  39 44 20 63 2c 20 30 36  30 37 20 2c 20 20 20 20  |9D c, 0607 ,    |
00000b40  20 20 42 44 20 63 2c 20  30 36 30 38 20 2c 20 20  |  BD c, 0608 ,  |
00000b50  41 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |A8 c,           |
00000b60  20 20 42 44 20 63 2c 20  30 36 30 34 20 2c 20 20  |  BD c, 0604 ,  |
00000b70  39 44 20 63 2c 20 30 36  30 38 20 2c 20 20 20 20  |9D c, 0608 ,    |
00000b80  20 20 39 38 20 63 2c 20  20 32 41 20 63 2c 20 20  |  98 c,  2A c,  |
00000b90  39 44 20 63 2c 20 30 36  30 34 20 2c 20 20 20 20  |9D c, 0604 ,    |
00000ba0  20 20 42 44 20 63 2c 20  30 36 30 39 20 2c 20 20  |  BD c, 0609 ,  |
00000bb0  41 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |A8 c,           |
00000bc0  20 20 42 44 20 63 2c 20  30 36 30 35 20 2c 20 20  |  BD c, 0605 ,  |
00000bd0  39 44 20 63 2c 20 30 36  30 39 20 2c 20 20 20 20  |9D c, 0609 ,    |
00000be0  20 20 39 38 20 63 2c 20  20 32 41 20 63 2c 20 20  |  98 c,  2A c,  |
00000bf0  39 44 20 63 2c 20 30 36  30 35 20 2c 20 2d 2d 3e  |9D c, 0605 , -->|
00000c00  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000c10  20 20 20 20 20 20 20 20  20 20 36 27 2f 39 20 29  |          6'/9 )|
00000c20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000c40  20 20 41 39 20 63 2c 20  20 32 30 20 63 2c 20 20  |  A9 c,  20 c,  |
00000c50  38 35 20 63 2c 20 20 37  38 20 63 2c 20 20 20 20  |85 c,  78 c,    |
00000c60  20 20 33 45 20 63 2c 20  30 36 30 41 20 2c 20 20  |  3E c, 060A ,  |
00000c70  33 45 20 63 2c 20 30 36  30 42 20 2c 20 20 20 20  |3E c, 060B ,    |
00000c80  20 20 33 45 20 63 2c 20  30 36 30 38 20 2c 20 20  |  3E c, 0608 ,  |
00000c90  33 45 20 63 2c 20 30 36  30 39 20 2c 20 20 20 20  |3E c, 0609 ,    |
00000ca0  20 20 32 36 20 63 2c 20  20 37 39 20 63 2c 20 20  |  26 c,  79 c,  |
00000cb0  33 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |38 c,           |
00000cc0  20 20 42 44 20 63 2c 20  30 36 30 41 20 2c 20 20  |  BD c, 060A ,  |
00000cd0  46 44 20 63 2c 20 30 36  30 32 20 2c 20 20 20 20  |FD c, 0602 ,    |
00000ce0  20 20 34 38 20 63 2c 20  20 20 20 20 20 20 20 20  |  48 c,         |
00000cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d00  20 20 42 44 20 63 2c 20  30 36 30 42 20 2c 20 20  |  BD c, 060B ,  |
00000d10  46 44 20 63 2c 20 30 36  30 33 20 2c 20 20 20 20  |FD c, 0603 ,    |
00000d20  20 20 34 38 20 63 2c 20  20 20 20 20 20 20 20 20  |  48 c,         |
00000d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d40  20 20 42 44 20 63 2c 20  30 36 30 38 20 2c 20 20  |  BD c, 0608 ,  |
00000d50  46 44 20 63 2c 20 30 36  30 30 20 2c 20 20 20 20  |FD c, 0600 ,    |
00000d60  20 20 41 38 20 63 2c 20  20 20 20 20 20 20 20 20  |  A8 c,         |
00000d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d80  20 20 42 44 20 63 2c 20  30 36 30 39 20 2c 20 20  |  BD c, 0609 ,  |
00000d90  46 44 20 63 2c 20 30 36  30 31 20 2c 20 20 20 20  |FD c, 0601 ,    |
00000da0  20 20 34 38 20 63 2c 20  20 41 35 20 63 2c 20 20  |  48 c,  A5 c,  |
00000db0  37 39 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |79 c,           |
00000dc0  20 20 45 39 20 63 2c 20  20 30 30 20 63 2c 20 20  |  E9 c,  00 c,  |
00000dd0  36 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |68 c,           |
00000de0  20 20 39 30 20 63 2c 20  20 31 32 20 63 2c 20 20  |  90 c,  12 c,  |
00000df0  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 3e  |             -->|
00000e00  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00000e10  20 20 20 20 20 20 20 20  20 20 37 27 2f 39 20 29  |          7'/9 )|
00000e20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000e40  20 20 39 44 20 63 2c 20  30 36 30 39 20 2c 20 20  |  9D c, 0609 ,  |
00000e50  39 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |98 c,           |
00000e60  20 20 39 44 20 63 2c 20  30 36 30 38 20 2c 20 20  |  9D c, 0608 ,  |
00000e70  36 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |68 c,           |
00000e80  20 20 39 44 20 63 2c 20  30 36 30 42 20 2c 20 20  |  9D c, 060B ,  |
00000e90  36 38 20 63 2c 20 20 20  20 20 20 20 20 20 20 20  |68 c,           |
00000ea0  20 20 39 44 20 63 2c 20  30 36 30 41 20 2c 20 20  |  9D c, 060A ,  |
00000eb0  34 43 20 63 2c 20 68 65  72 65 20 34 20 2b 20 2c  |4C c, here 4 + ,|
00000ec0  20 20 36 38 20 63 2c 20  20 36 38 20 63 2c 20 20  |  68 c,  68 c,  |
00000ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ee0  20 20 33 45 20 63 2c 20  30 36 30 36 20 2c 20 20  |  3E c, 0606 ,  |
00000ef0  33 45 20 63 2c 20 30 36  30 37 20 2c 20 20 20 20  |3E c, 0607 ,    |
00000f00  20 20 33 45 20 63 2c 20  30 36 30 34 20 2c 20 20  |  3E c, 0604 ,  |
00000f10  33 45 20 63 2c 20 30 36  30 35 20 2c 20 20 20 20  |3E c, 0605 ,    |
00000f20  20 20 43 36 20 63 2c 20  20 37 38 20 63 2c 20 20  |  C6 c,  78 c,  |
00000f30  44 30 20 63 2c 20 20 41  41 20 63 2c 20 20 20 20  |D0 c,  AA c,    |
00000f40  20 20 34 43 20 63 2c 20  31 39 41 41 20 2c 20 20  |  4C c, 19AA ,  |
00000f50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000f80  63 72 65 61 74 65 20 44  32 2a 20 20 20 20 20 20  |create D2*      |
00000f90  68 65 72 65 20 2d 32 20  61 6c 6c 6f 74 20 2c 20  |here -2 allot , |
00000fa0  20 20 31 45 20 63 2c 20  30 36 30 32 20 2c 20 20  |  1E c, 0602 ,  |
00000fb0  33 45 20 63 2c 20 30 36  30 33 20 2c 20 20 20 20  |3E c, 0603 ,    |
00000fc0  20 20 33 45 20 63 2c 20  30 36 30 30 20 2c 20 20  |  3E c, 0600 ,  |
00000fd0  33 45 20 63 2c 20 30 36  30 31 20 2c 20 20 20 20  |3E c, 0601 ,    |
00000fe0  20 20 34 43 20 63 2c 20  31 39 43 41 20 2c 20 20  |  4C c, 19CA ,  |
00000ff0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001000  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00001010  20 20 20 20 20 20 20 20  20 20 20 38 2f 39 20 29  |           8/9 )|
00001020  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00001030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001040  3a 20 48 49 47 48 2d 42  49 54 53 20 20 20 20 20  |: HIGH-BITS     |
00001050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001060  20 20 20 30 20 64 6f 20  3e 72 20 64 32 2a 20 64  |   0 do >r d2* d|
00001070  32 2a 20 72 40 20 2d 20  64 75 70 20 30 3c 20 20  |2* r@ - dup 0<  |
00001080  20 20 20 69 66 20 20 20  72 40 20 2b 20 72 3e 20  |   if   r@ + r> |
00001090  32 2a 20 31 2d 20 20 20  20 20 20 20 20 20 20 20  |2* 1-           |
000010a0  20 20 20 65 6c 73 65 20  72 3e 20 32 2a 20 33 20  |   else r> 2* 3 |
000010b0  2b 20 65 6e 64 69 66 20  6c 6f 6f 70 20 3b 20 20  |+ endif loop ;  |
000010c0  3a 20 32 27 53 2d 42 49  54 20 20 20 20 20 20 20  |: 2'S-BIT       |
000010d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010e0  20 20 20 3e 72 20 64 32  2a 20 64 75 70 20 30 3c  |   >r d2* dup 0<|
000010f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001100  20 20 20 69 66 20 20 20  64 32 2a 20 72 40 20 2d  |   if   d2* r@ -|
00001110  20 72 3e 20 31 2b 20 20  20 20 20 20 20 20 20 20  | r> 1+          |
00001120  20 20 20 65 6c 73 65 20  64 32 2a 20 72 40 20 32  |   else d2* r@ 2|
00001130  64 75 70 20 75 3c 20 20  20 20 20 20 20 20 20 20  |dup u<          |
00001140  20 20 20 20 20 69 66 20  20 20 64 72 6f 70 20 72  |     if   drop r|
00001150  3e 20 31 2d 20 20 20 20  20 20 20 20 20 20 20 20  |> 1-            |
00001160  20 20 20 20 20 65 6c 73  65 20 2d 20 72 3e 20 31  |     else - r> 1|
00001170  2b 20 65 6e 64 69 66 20  65 6e 64 69 66 20 3b 20  |+ endif endif ; |
00001180  3a 20 31 27 53 2d 42 49  54 20 20 20 20 20 20 20  |: 1'S-BIT       |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011a0  20 20 20 3e 72 20 64 75  70 20 30 3c 20 69 66 20  |   >r dup 0< if |
000011b0  32 64 72 6f 70 20 72 3e  20 31 2b 20 20 20 20 20  |2drop r> 1+     |
000011c0  20 20 20 65 6c 73 65 20  64 32 2a 20 38 30 30 30  |   else d2* 8000|
000011d0  20 72 40 20 64 75 3c 20  30 3d 20 72 3e 20 2b 20  | r@ du< 0= r> + |
000011e0  20 20 20 65 6e 64 69 66  20 3b 20 20 20 20 20 20  |   endif ;      |
000011f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001200  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00001210  20 20 20 20 20 20 20 20  20 20 20 39 2f 39 20 29  |           9/9 )|
00001220  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00001230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001240  3a 20 44 53 51 52 54 20  20 20 20 20 20 20 20 20  |: DSQRT         |
00001250  20 20 20 20 28 20 75 64  20 5f 5f 20 75 6e 20 29  |    ( ud __ un )|
00001260  20 20 20 30 20 31 20 38  20 68 69 67 68 2d 62 69  |   0 1 8 high-bi|
00001270  74 73 20 72 6f 74 20 64  72 6f 70 20 36 20 20 20  |ts rot drop 6   |
00001280  20 20 20 68 69 67 68 2d  62 69 74 73 20 32 27 73  |   high-bits 2's|
00001290  2d 62 69 74 20 31 27 73  2d 62 69 74 20 3b 20 20  |-bit 1's-bit ;  |
000012a0  3a 20 53 51 52 54 20 20  20 20 20 20 20 20 20 20  |: SQRT          |
000012b0  20 20 28 20 75 6e 31 20  5f 5f 20 75 6e 32 20 29  |  ( un1 __ un2 )|
000012c0  20 20 20 30 20 64 73 71  72 74 20 3b 20 20 20 20  |   0 dsqrt ;    |
000012d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001300  3a 20 44 2f 4d 4f 44 20  20 20 20 20 20 20 28 20  |: D/MOD       ( |
00001310  64 31 20 64 32 20 5f 5f  20 64 33 20 64 34 20 29  |d1 d2 __ d3 d4 )|
00001320  20 20 20 33 20 70 69 63  6b 20 3e 72 20 3e 72 20  |   3 pick >r >r |
00001330  72 40 20 64 61 62 73 20  3e 72 20 3e 72 20 20 20  |r@ dabs >r >r   |
00001340  20 20 20 64 61 62 73 20  30 2e 20 72 3e 20 72 3e  |   dabs 0. r> r>|
00001350  20 64 75 2f 6d 6f 64 20  72 3e 20 72 40 20 20 20  | du/mod r> r@   |
00001360  20 20 20 78 6f 72 20 64  2b 2d 20 32 73 77 61 70  |   xor d+- 2swap|
00001370  20 72 3e 20 64 2b 2d 20  32 73 77 61 70 20 3b 20  | r> d+- 2swap ; |
00001380  3a 20 44 2f 20 20 20 20  20 20 20 20 20 20 20 20  |: D/            |
00001390  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
000013a0  20 20 20 64 2f 6d 6f 64  20 32 73 77 61 70 20 32  |   d/mod 2swap 2|
000013b0  64 72 6f 70 20 3b 20 20  20 20 20 20 20 20 20 20  |drop ;          |
000013c0  3a 20 44 4d 4f 44 20 20  20 20 20 20 20 20 20 20  |: DMOD          |
000013d0  20 28 20 64 31 20 64 32  20 5f 5f 20 64 33 20 29  | ( d1 d2 __ d3 )|
000013e0  20 20 20 64 2f 6d 6f 64  20 32 64 72 6f 70 20 3b  |   d/mod 2drop ;|
000013f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001400  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00001410  20 20 20 20 20 20 20 20  20 20 35 22 2f 39 20 29  |          5"/9 )|
00001420  20 20 68 65 78 20 20 20  20 20 20 20 20 20 20 20  |  hex           |
00001430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001440  63 6f 64 65 20 44 55 2f  4d 4f 44 20 20 20 28 20  |code DU/MOD   ( |
00001450  75 71 20 75 64 20 5f 5f  20 75 64 20 75 64 20 29  |uq ud __ ud ud )|
00001460  20 20 20 20 6e 20 20 31  2b 20 73 74 79 2c 20 20  |    n  1+ sty,  |
00001470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001480  20 20 74 6f 70 20 41 20  2b 20 6c 64 61 2c 20 74  |  top A + lda, t|
00001490  61 79 2c 20 74 6f 70 20  36 20 2b 20 6c 64 61 2c  |ay, top 6 + lda,|
000014a0  20 20 74 6f 70 20 41 20  2b 20 73 74 61 2c 20 74  |  top A + sta, t|
000014b0  79 61 2c 20 20 20 20 20  20 2e 61 20 61 73 6c 2c  |ya,      .a asl,|
000014c0  20 20 74 6f 70 20 36 20  2b 20 73 74 61 2c 20 20  |  top 6 + sta,  |
000014d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000014e0  20 20 74 6f 70 20 42 20  2b 20 6c 64 61 2c 20 74  |  top B + lda, t|
000014f0  61 79 2c 20 74 6f 70 20  37 20 2b 20 6c 64 61 2c  |ay, top 7 + lda,|
00001500  20 20 74 6f 70 20 42 20  2b 20 73 74 61 2c 20 74  |  top B + sta, t|
00001510  79 61 2c 20 20 20 20 20  20 2e 61 20 72 6f 6c 2c  |ya,      .a rol,|
00001520  20 20 74 6f 70 20 37 20  2b 20 73 74 61 2c 20 20  |  top 7 + sta,  |
00001530  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001540  20 20 74 6f 70 20 38 20  2b 20 6c 64 61 2c 20 74  |  top 8 + lda, t|
00001550  61 79 2c 20 74 6f 70 20  34 20 2b 20 6c 64 61 2c  |ay, top 4 + lda,|
00001560  20 20 74 6f 70 20 38 20  2b 20 73 74 61 2c 20 74  |  top 8 + sta, t|
00001570  79 61 2c 20 20 20 20 20  20 2e 61 20 72 6f 6c 2c  |ya,      .a rol,|
00001580  20 20 74 6f 70 20 34 20  2b 20 73 74 61 2c 20 20  |  top 4 + sta,  |
00001590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000015a0  20 20 74 6f 70 20 39 20  2b 20 6c 64 61 2c 20 74  |  top 9 + lda, t|
000015b0  61 79 2c 20 74 6f 70 20  35 20 2b 20 6c 64 61 2c  |ay, top 5 + lda,|
000015c0  20 20 74 6f 70 20 39 20  2b 20 73 74 61 2c 20 74  |  top 9 + sta, t|
000015d0  79 61 2c 20 20 20 20 20  20 2e 61 20 72 6f 6c 2c  |ya,      .a rol,|
000015e0  20 20 74 6f 70 20 35 20  2b 20 73 74 61 2c 20 20  |  top 5 + sta,  |
000015f0  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 3e  |             -->|
00001600  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00001610  20 20 20 20 20 20 20 20  20 20 36 22 2f 39 20 29  |          6"/9 )|
00001620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001640  20 20 20 20 32 30 20 2e  23 20 6c 64 61 2c 20 6e  |    20 .# lda, n|
00001650  20 73 74 61 2c 20 20 20  20 20 62 65 67 69 6e 2c  | sta,     begin,|
00001660  20 20 74 6f 70 20 41 20  2b 20 72 6f 6c 2c 20 74  |  top A + rol, t|
00001670  6f 70 20 42 20 2b 20 72  6f 6c 2c 20 20 20 20 20  |op B + rol,     |
00001680  20 20 74 6f 70 20 38 20  2b 20 72 6f 6c 2c 20 74  |  top 8 + rol, t|
00001690  6f 70 20 39 20 2b 20 72  6f 6c 2c 20 20 20 20 20  |op 9 + rol,     |
000016a0  20 20 20 20 6e 20 20 31  2b 20 72 6f 6c 2c 20 20  |    n  1+ rol,  |
000016b0  20 20 20 20 20 20 20 73  65 63 2c 20 20 20 20 20  |       sec,     |
000016c0  20 20 74 6f 70 20 41 20  2b 20 6c 64 61 2c 20 32  |  top A + lda, 2|
000016d0  6e 64 20 20 20 20 20 73  62 63 2c 20 70 68 61 2c  |nd     sbc, pha,|
000016e0  20 20 74 6f 70 20 42 20  2b 20 6c 64 61 2c 20 32  |  top B + lda, 2|
000016f0  6e 64 20 20 31 2b 20 73  62 63 2c 20 70 68 61 2c  |nd  1+ sbc, pha,|
00001700  20 20 74 6f 70 20 38 20  2b 20 6c 64 61 2c 20 74  |  top 8 + lda, t|
00001710  6f 70 20 20 20 20 20 73  62 63 2c 20 74 61 79 2c  |op     sbc, tay,|
00001720  20 20 74 6f 70 20 39 20  2b 20 6c 64 61 2c 20 74  |  top 9 + lda, t|
00001730  6f 70 20 20 31 2b 20 73  62 63 2c 20 70 68 61 2c  |op  1+ sbc, pha,|
00001740  20 20 20 20 6e 20 20 31  2b 20 6c 64 61 2c 20 20  |    n  1+ lda,  |
00001750  20 30 20 20 2e 23 20 73  62 63 2c 20 70 6c 61 2c  | 0  .# sbc, pla,|
00001760  20 20 63 73 20 69 66 2c  20 20 20 20 20 20 20 20  |  cs if,        |
00001770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001780  20 20 74 6f 70 20 39 20  2b 20 73 74 61 2c 20 74  |  top 9 + sta, t|
00001790  79 61 2c 20 74 6f 70 20  38 20 2b 20 73 74 61 2c  |ya, top 8 + sta,|
000017a0  20 20 70 6c 61 2c 20 20  20 20 20 20 20 20 20 20  |  pla,          |
000017b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000017c0  20 20 74 6f 70 20 42 20  2b 20 73 74 61 2c 20 70  |  top B + sta, p|
000017d0  6c 61 2c 20 74 6f 70 20  41 20 2b 20 73 74 61 2c  |la, top A + sta,|
000017e0  20 20 65 6c 73 65 2c 20  70 6c 61 2c 20 70 6c 61  |  else, pla, pla|
000017f0  2c 20 65 6e 64 69 66 2c  20 20 20 20 20 2d 2d 3e  |, endif,     -->|
00001800  28 20 44 6f 75 62 6c 65  2d 6e 75 6d 62 65 72 73  |( Double-numbers|
00001810  20 20 20 20 20 20 20 20  20 20 37 22 2f 39 20 29  |          7"/9 )|
00001820  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001840  20 20 34 74 68 20 72 6f  6c 2c 20 34 74 68 20 31  |  4th rol, 4th 1|
00001850  2b 20 72 6f 6c 2c 20 20  20 20 20 20 20 20 20 20  |+ rol,          |
00001860  20 20 33 72 64 20 72 6f  6c 2c 20 33 72 64 20 31  |  3rd rol, 3rd 1|
00001870  2b 20 72 6f 6c 2c 20 20  20 20 20 20 20 20 20 20  |+ rol,          |
00001880  20 20 6e 20 64 65 63 2c  20 65 71 20 75 6e 74 69  |  n dec, eq unti|
00001890  6c 2c 20 70 6f 70 74 77  6f 20 6a 6d 70 2c 20 20  |l, poptwo jmp,  |
000018a0  65 6e 64 2d 63 6f 64 65  20 20 20 20 20 20 20 20  |end-code        |
000018b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000018e0  63 6f 64 65 20 44 32 2a  20 20 20 20 20 20 20 20  |code D2*        |
000018f0  20 20 20 20 28 20 64 31  20 5f 5f 20 64 32 20 29  |    ( d1 __ d2 )|
00001900  20 20 32 6e 64 20 61 73  6c 2c 20 32 6e 64 20 31  |  2nd asl, 2nd 1|
00001910  2b 20 72 6f 6c 2c 20 20  20 20 20 20 20 20 20 20  |+ rol,          |
00001920  20 20 74 6f 70 20 72 6f  6c 2c 20 74 6f 70 20 31  |  top rol, top 1|
00001930  2b 20 72 6f 6c 2c 20 20  20 20 20 20 20 20 20 20  |+ rol,          |
00001940  20 20 6e 65 78 74 20 6a  6d 70 2c 20 20 20 20 20  |  next jmp,     |
00001950  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001960  65 6e 64 2d 63 6f 64 65  20 20 20 20 20 20 20 20  |end-code        |
00001970  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001a00  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00001a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001c00  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00001c10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00001c20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001e00  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00001e10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00001e20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002000  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00002010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00002020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002200  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00002210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00002220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002400  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00002410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00002420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002600  28 20 45 6d 70 74 79 20  20 20 20 20 20 20 20 20  |( Empty         |
00002610  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 29  |               )|
00002620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002800
040-059.m0
040-059.m1
040-059.m2
040-059.m4
040-059.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .