projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / |
| 2 | / VERSION 5A 4/26/77 MH | |
| 3 | / | |
| 4 | SECT #RFCV /READ FORMATTED COMPLEX VARIABLE | |
| 5 | ENTRY #WFCV | |
| 6 | EXTERN #RFSV | |
| 7 | EXTERN #WFSV | |
| 8 | JA START | |
| 9 | DPCHK | |
| 10 | TEXT "#CIO " | |
| 11 | RETN, FNOP | |
| 12 | FNOP | |
| 13 | SETB BP | |
| 14 | JA .+3 | |
| 15 | BP, 0;0;0 | |
| 16 | CVAL, 0;0;0;0;0;0 | |
| 17 | ORG BP+30 | |
| 18 | 0;JA RETN | |
| 19 | 0 | |
| 20 | GOBAK, JA . | |
| 21 | START, BASE 0 | |
| 22 | STARTD | |
| 23 | 0210 | |
| 24 | FSTA GOBAK,0 | |
| 25 | STARTF | |
| 26 | SETB BP | |
| 27 | BASE BP | |
| 28 | JSR #RFSV | |
| 29 | FSTA CVAL | |
| 30 | JSR #RFSV | |
| 31 | FSTA CVAL+3 | |
| 32 | STARTE | |
| 33 | FLDA CVAL | |
| 34 | JA GOBAK | |
| 35 | BASE 0 | |
| 36 | #WFCV, FSTA CVAL,0 | |
| 37 | STARTD | |
| 38 | 0210 | |
| 39 | FSTA GOBAK,0 | |
| 40 | SETB BP | |
| 41 | BASE BP | |
| 42 | STARTF | |
| 43 | FLDA CVAL | |
| 44 | JSR #WFSV | |
| 45 | FLDA CVAL+3 | |
| 46 | JSR #WFSV | |
| 47 | JA GOBAK | |
| 48 | END | |
| 49 | \f |