Home » Archimedes archive » Apps » PipeDream 3 ()(Colton Software).adf » Documents/Examples/GCD
Documents/Examples/GCD
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 » Archimedes archive » Apps » PipeDream 3 ()(Colton Software).adf |
| Filename: | Documents/Examples/GCD |
| Read OK: | ✔ |
| File size: | 0104 bytes |
| Load address: | FFFDDE41 |
| Exec address: | C13B4297 |
File contents
%OP%DP0 %OP%RIY %OP%RN0 %CO:A,12,72%%L%GCD %V%%R%100 %V%%R%if(loopc=1,A3,if(A6=B6,A6,if(A6>B6,A6-B6,A6))) %CO:B,12,60% %V%%R%10 %V%%R%if(loopc=1,B3,if(A6=B6,B6,if(B6>A6,B6-A6,B6))) %V%%R%if(A6=B6,B7,loopc) %CO:C,12,48%%CO:D,12,36%%CO:E,12,24%%CO:F,12,12%
00000000 25 4f 50 25 44 50 30 0a 25 4f 50 25 52 49 59 0a |%OP%DP0.%OP%RIY.| 00000010 25 4f 50 25 52 4e 30 0a 25 43 4f 3a 41 2c 31 32 |%OP%RN0.%CO:A,12| 00000020 2c 37 32 25 25 4c 25 47 43 44 0a 0a 25 56 25 25 |,72%%L%GCD..%V%%| 00000030 52 25 31 30 30 0a 0a 0a 25 56 25 25 52 25 69 66 |R%100...%V%%R%if| 00000040 28 6c 6f 6f 70 63 3d 31 2c 41 33 2c 69 66 28 41 |(loopc=1,A3,if(A| 00000050 36 3d 42 36 2c 41 36 2c 69 66 28 41 36 3e 42 36 |6=B6,A6,if(A6>B6| 00000060 2c 41 36 2d 42 36 2c 41 36 29 29 29 0a 25 43 4f |,A6-B6,A6))).%CO| 00000070 3a 42 2c 31 32 2c 36 30 25 0a 0a 25 56 25 25 52 |:B,12,60%..%V%%R| 00000080 25 31 30 0a 0a 0a 25 56 25 25 52 25 69 66 28 6c |%10...%V%%R%if(l| 00000090 6f 6f 70 63 3d 31 2c 42 33 2c 69 66 28 41 36 3d |oopc=1,B3,if(A6=| 000000a0 42 36 2c 42 36 2c 69 66 28 42 36 3e 41 36 2c 42 |B6,B6,if(B6>A6,B| 000000b0 36 2d 41 36 2c 42 36 29 29 29 0a 25 56 25 25 52 |6-A6,B6))).%V%%R| 000000c0 25 69 66 28 41 36 3d 42 36 2c 42 37 2c 6c 6f 6f |%if(A6=B6,B7,loo| 000000d0 70 63 29 0a 25 43 4f 3a 43 2c 31 32 2c 34 38 25 |pc).%CO:C,12,48%| 000000e0 25 43 4f 3a 44 2c 31 32 2c 33 36 25 25 43 4f 3a |%CO:D,12,36%%CO:| 000000f0 45 2c 31 32 2c 32 34 25 25 43 4f 3a 46 2c 31 32 |E,12,24%%CO:F,12| 00000100 2c 31 32 25 |,12%| 00000104
.