projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 7af5ad59 PH |
1 | / |
| 2 | / C M P L X | |
| 3 | / - - - - - | |
| 4 | / | |
| 5 | / VERSION 5A 4-27-77 PT | |
| 6 | / | |
| 7 | /ENTER IN REAL,EXIT IN COMPLEX | |
| 8 | /CMPLX(X,Y) | |
| 9 | /Z=X+IY | |
| 10 | / | |
| 11 | SECT CMPLX | |
| 12 | JA #CMPLX | |
| 13 | DPCHK | |
| 14 | TEXT +CMPLX + | |
| 15 | CMPXR, SETX XR | |
| 16 | SETB BP | |
| 17 | BP, F 0.0 | |
| 18 | XR, F 0.0 | |
| 19 | PTR1, F 0.0 | |
| 20 | ARG, F 0.0 | |
| 21 | F 0.0 | |
| 22 | ORG 10*3+BP | |
| 23 | FNOP | |
| 24 | JA CMPXR | |
| 25 | 0 | |
| 26 | RT, JA . | |
| 27 | BASE 0 | |
| 28 | #CMPLX, STARTD | |
| 29 | FLDA 10*3 | |
| 30 | FSTA RT | |
| 31 | FLDA 0 | |
| 32 | SETB BP | |
| 33 | SETX XR | |
| 34 | BASE BP | |
| 35 | LDX 1,1 | |
| 36 | FSTA BP | |
| 37 | FLDA% BP,1 | |
| 38 | FSTA PTR1 /ADDR OF X | |
| 39 | FLDA% BP,1+ | |
| 40 | FSTA BP /ADDR OF Y | |
| 41 | STARTF | |
| 42 | FLDA% PTR1 | |
| 43 | FSTA ARG /X | |
| 44 | FLDA% BP | |
| 45 | FSTA ARG+3 /Y | |
| 46 | STARTE | |
| 47 | FLDA ARG /X+IY | |
| 48 | FSTA #CAC /SAVE IN CMPLX AC | |
| 49 | JA RT | |
| 50 | EXTERN #CAC | |
| 51 | \f |