projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / LTR (LOAD TRUTH) EMULATION ROUTINES\r |
| 2 | SECT #LTR\r | |
| 3 | ENTRY #EQ\r | |
| 4 | FLDA TRUE\r | |
| 5 | STARTF\r | |
| 6 | #EQ, JA .\r | |
| 7 | JEQ #EQ-3\r | |
| 8 | FCLA\r | |
| 9 | JA #EQ-1\r | |
| 10 | ENTRY #NE\r | |
| 11 | #NE, JA .\r | |
| 12 | JEQ .+4\r | |
| 13 | FLDA TRUE\r | |
| 14 | STARTF\r | |
| 15 | JA #NE\r | |
| 16 | ENTRY #GE\r | |
| 17 | FLDA TRUE\r | |
| 18 | STARTF\r | |
| 19 | #GE, JA .\r | |
| 20 | JGE #GE-3\r | |
| 21 | FCLA\r | |
| 22 | JA #GE-1\r | |
| 23 | ENTRY #LE\r | |
| 24 | FLDA TRUE\r | |
| 25 | STARTF\r | |
| 26 | #LE, JA .\r | |
| 27 | JLE #LE-3\r | |
| 28 | FCLA\r | |
| 29 | JA #LE-1\r | |
| 30 | ENTRY #GT\r | |
| 31 | FLDA TRUE\r | |
| 32 | STARTF\r | |
| 33 | #GT, JA .\r | |
| 34 | JGT #GT-3\r | |
| 35 | FCLA\r | |
| 36 | JA #GT-1\r | |
| 37 | ENTRY #LT\r | |
| 38 | FLDA TRUE\r | |
| 39 | STARTF\r | |
| 40 | #LT, JA .\r | |
| 41 | JLT #LT-3\r | |
| 42 | FCLA\r | |
| 43 | JA #LT-1\r | |
| 44 | TRUE, F 1.0\r | |
| 45 | F 0.0\r | |
| 46 | END\r | |
| 47 | \f\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |