Home » Personal collection » Acorn DFS disks » dfs_box03_disk13_bcpl_calc.scp » FPHDR
FPHDR
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_disk13_bcpl_calc.scp |
| Filename: | FPHDR |
| Read OK: | ✔ |
| File size: | 01F1 bytes |
| Load address: | 11122 |
| Exec address: | 20005 |
File contents
// FPHDR - declarations for BCPL Calculations Package. // Copyright Richards Computer Products Ltd. (C) 1983 // V1.0 01/02/83 GLOBAL $( FPEXCEP:151;FABS:152;FCOMP:153;FDIV:154;FFIX:155;FFLOAT:156;FLIT:157 FMINUS:158;FMULT:159;FNEG:160;FPLUS:161;READFP:162;WRITEFP:163;FINT:164 FSGN:170;FRND:171;FSIN:172;FCOS:173;FTAN:174;FASIN:175;FACOS:176;FATAN:177 FLN:178;FEXP:179;FSQRT:180;FDEG:181;FRAD:182;FPI:183;FE:184;WRITESG:165 SIN:185;COS:186;ASN:187;SQR:188 $) MANIFEST $( FP.LEN=3 $)
00000000 2f 2f 20 46 50 48 44 52 20 2d 20 64 65 63 6c 61 |// FPHDR - decla| 00000010 72 61 74 69 6f 6e 73 20 66 6f 72 20 42 43 50 4c |rations for BCPL| 00000020 20 43 61 6c 63 75 6c 61 74 69 6f 6e 73 20 50 61 | Calculations Pa| 00000030 63 6b 61 67 65 2e 0d 0a 2f 2f 20 43 6f 70 79 72 |ckage...// Copyr| 00000040 69 67 68 74 20 52 69 63 68 61 72 64 73 20 43 6f |ight Richards Co| 00000050 6d 70 75 74 65 72 20 50 72 6f 64 75 63 74 73 20 |mputer Products | 00000060 4c 74 64 2e 20 28 43 29 20 31 39 38 33 0d 0a 2f |Ltd. (C) 1983../| 00000070 2f 20 56 31 2e 30 20 20 30 31 2f 30 32 2f 38 33 |/ V1.0 01/02/83| 00000080 0d 0a 47 4c 4f 42 41 4c 20 24 28 0d 0a 46 50 45 |..GLOBAL $(..FPE| 00000090 58 43 45 50 3a 31 35 31 3b 46 41 42 53 3a 31 35 |XCEP:151;FABS:15| 000000a0 32 3b 46 43 4f 4d 50 3a 31 35 33 3b 46 44 49 56 |2;FCOMP:153;FDIV| 000000b0 3a 31 35 34 3b 46 46 49 58 3a 31 35 35 3b 46 46 |:154;FFIX:155;FF| 000000c0 4c 4f 41 54 3a 31 35 36 3b 46 4c 49 54 3a 31 35 |LOAT:156;FLIT:15| 000000d0 37 0d 0a 46 4d 49 4e 55 53 3a 31 35 38 3b 46 4d |7..FMINUS:158;FM| 000000e0 55 4c 54 3a 31 35 39 3b 46 4e 45 47 3a 31 36 30 |ULT:159;FNEG:160| 000000f0 3b 46 50 4c 55 53 3a 31 36 31 3b 52 45 41 44 46 |;FPLUS:161;READF| 00000100 50 3a 31 36 32 3b 57 52 49 54 45 46 50 3a 31 36 |P:162;WRITEFP:16| 00000110 33 3b 46 49 4e 54 3a 31 36 34 0d 0a 46 53 47 4e |3;FINT:164..FSGN| 00000120 3a 31 37 30 3b 46 52 4e 44 3a 31 37 31 3b 46 53 |:170;FRND:171;FS| 00000130 49 4e 3a 31 37 32 3b 46 43 4f 53 3a 31 37 33 3b |IN:172;FCOS:173;| 00000140 46 54 41 4e 3a 31 37 34 3b 46 41 53 49 4e 3a 31 |FTAN:174;FASIN:1| 00000150 37 35 3b 46 41 43 4f 53 3a 31 37 36 3b 46 41 54 |75;FACOS:176;FAT| 00000160 41 4e 3a 31 37 37 0d 0a 46 4c 4e 3a 31 37 38 3b |AN:177..FLN:178;| 00000170 46 45 58 50 3a 31 37 39 3b 46 53 51 52 54 3a 31 |FEXP:179;FSQRT:1| 00000180 38 30 3b 46 44 45 47 3a 31 38 31 3b 46 52 41 44 |80;FDEG:181;FRAD| 00000190 3a 31 38 32 3b 46 50 49 3a 31 38 33 3b 46 45 3a |:182;FPI:183;FE:| 000001a0 31 38 34 3b 57 52 49 54 45 53 47 3a 31 36 35 0d |184;WRITESG:165.| 000001b0 0a 53 49 4e 3a 31 38 35 3b 43 4f 53 3a 31 38 36 |.SIN:185;COS:186| 000001c0 3b 41 53 4e 3a 31 38 37 3b 53 51 52 3a 31 38 38 |;ASN:187;SQR:188| 000001d0 0d 0a 24 29 0d 0a 4d 41 4e 49 46 45 53 54 20 24 |..$)..MANIFEST $| 000001e0 28 20 46 50 2e 4c 45 4e 3d 33 20 24 29 0d 0a 0d |( FP.LEN=3 $)...| 000001f0 0a |.| 000001f1
.