projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 7af5ad59 PH |
1 | / |
| 2 | / VERSION 5A 4-27-77 PT | |
| 3 | / | |
| 4 | SECT CHARS | |
| 5 | ENTRY CGET | |
| 6 | ENTRY CPUT | |
| 7 | TEXT +CHARS+ | |
| 8 | CHARXR, SETX XRCHAR | |
| 9 | SETB BPCHAR | |
| 10 | BPCHAR, F 0. | |
| 11 | XRCHAR, F 0. | |
| 12 | FROM, F 0. | |
| 13 | NCHAR, F 0. | |
| 14 | ORG 10*3+BPCHAR | |
| 15 | FNOP | |
| 16 | JA CHARXR | |
| 17 | 0 | |
| 18 | CHARTN, JA . | |
| 19 | BASE 0 | |
| 20 | START, JA . | |
| 21 | STARTD | |
| 22 | FLDA 10*3 | |
| 23 | FSTA CHARTN | |
| 24 | FLDA 0 | |
| 25 | SETX XRCHAR | |
| 26 | SETB BPCHAR | |
| 27 | BASE BPCHAR | |
| 28 | LDX 1,1 | |
| 29 | FSTA BPCHAR /STR SAVED IN BPCHAR | |
| 30 | FLDA% BPCHAR,1 | |
| 31 | FSTA STR | |
| 32 | FLDA% BPCHAR,1+ | |
| 33 | FSTA NCHAR | |
| 34 | FLDA% BPCHAR,1+ | |
| 35 | FSTA FROM /ADDR OF F | |
| 36 | STARTF | |
| 37 | FLDA% NCHAR | |
| 38 | ATX 0 | |
| 39 | JA START | |
| 40 | / | |
| 41 | CGET, JSA START | |
| 42 | TRAP4 CGETIT | |
| 43 | XTA 0 | |
| 44 | FSTA% FROM /TO 3 WORDS | |
| 45 | JA CHARTN | |
| 46 | / | |
| 47 | CPUT, JSA START | |
| 48 | FLDA% FROM | |
| 49 | ATX 1 | |
| 50 | FCLA | |
| 51 | TRAP4 CPUTIT | |
| 52 | JA CHARTN | |
| 53 | / | |
| 54 | SECT8 CHAR /ALL IN 1 PAGE | |
| 55 | CGETIT, 0 | |
| 56 | JMS FLDRTN | |
| 57 | TAD O2FLD | |
| 58 | DCA ORGFLD | |
| 59 | TAD XFLD | |
| 60 | DCA XR2FLD | |
| 61 | TAD PFLD | |
| 62 | DCA GFLD | |
| 63 | GFLD, 0 /STR FIELD | |
| 64 | TAD% STR-1 | |
| 65 | ORGFLD, 0 /THIS ROUTINE | |
| 66 | DCA LOC | |
| 67 | TAD XR /N | |
| 68 | RAR | |
| 69 | SNL CLA | |
| 70 | JMP RIGHT | |
| 71 | CLL | |
| 72 | TAD LOC | |
| 73 | RTR | |
| 74 | RTR | |
| 75 | RTR | |
| 76 | BOTH, AND P77 | |
| 77 | XR2FLD, 0 | |
| 78 | DCA% QXR+1 /PASS TO FPP | |
| 79 | CDF CIF 0 | |
| 80 | JMP% CGETIT | |
| 81 | RIGHT, TAD LOC | |
| 82 | JMP BOTH | |
| 83 | CADD, ADDR CGETIT | |
| 84 | 0 | |
| 85 | STR, 0 | |
| 86 | 0 | |
| 87 | / | |
| 88 | CPUTIT, 0 | |
| 89 | JMS FLDRTN | |
| 90 | TAD QXR1 | |
| 91 | AND P7 | |
| 92 | RTL | |
| 93 | RAL | |
| 94 | TAD CDFINS | |
| 95 | DCA XR1FLD | |
| 96 | TAD O2FLD | |
| 97 | DCA O1FLD | |
| 98 | TAD O2FLD | |
| 99 | DCA O3FLD | |
| 100 | TAD PFLD | |
| 101 | DCA P1FLD | |
| 102 | XR1FLD, 0 | |
| 103 | TAD% QXR1+1 /F VALUE | |
| 104 | O1FLD, 0 | |
| 105 | AND P77 | |
| 106 | DCA LOC | |
| 107 | P1FLD, 0 | |
| 108 | TAD% STR-1 | |
| 109 | O3FLD, 0 | |
| 110 | DCA XR1FLD /USE AS A TMP | |
| 111 | TAD XR | |
| 112 | RAR | |
| 113 | SNL CLA | |
| 114 | JMP PRIGHT | |
| 115 | CLL | |
| 116 | TAD XR1FLD | |
| 117 | AND P77 /SAVE RIGHT HALF | |
| 118 | DCA XR1FLD | |
| 119 | TAD LOC | |
| 120 | RTL | |
| 121 | RTL | |
| 122 | RTL | |
| 123 | TAD XR1FLD | |
| 124 | PFLD, 0 | |
| 125 | DCA% STR-1 | |
| 126 | CIF CDF 0 | |
| 127 | JMP% CPUTIT | |
| 128 | PRIGHT, TAD XR1FLD | |
| 129 | AND P7700 | |
| 130 | TAD LOC | |
| 131 | JMP PFLD | |
| 132 | / | |
| 133 | FLDRTN, 0 | |
| 134 | TAD CADD | |
| 135 | AND P7 | |
| 136 | RTL | |
| 137 | RAL | |
| 138 | TAD CDFINS | |
| 139 | DCA O2FLD | |
| 140 | TAD QXR | |
| 141 | AND P7 | |
| 142 | RAL | |
| 143 | RTL | |
| 144 | TAD CDFINS | |
| 145 | DCA XFLD | |
| 146 | XFLD, 0 | |
| 147 | TAD% QXR+1 | |
| 148 | O2FLD, 0 | |
| 149 | DCA XR | |
| 150 | TAD XR | |
| 151 | RAR | |
| 152 | SNL | |
| 153 | TAD M1 | |
| 154 | CLL | |
| 155 | TAD STR+1 | |
| 156 | DCA STR-1 | |
| 157 | SZL CLA | |
| 158 | IAC | |
| 159 | CLL | |
| 160 | TAD STR | |
| 161 | AND P7 | |
| 162 | RAL | |
| 163 | RTL | |
| 164 | TAD CDFINS | |
| 165 | DCA PFLD /STR FLD | |
| 166 | JMP% FLDRTN | |
| 167 | P77, 77 | |
| 168 | CDFINS, 6203 | |
| 169 | P7, 7 | |
| 170 | QXR, ADDR XRCHAR | |
| 171 | LOC, 0 | |
| 172 | XR, 0 | |
| 173 | M1, -1 | |
| 174 | QXR1, ADDR XRCHAR+1 | |
| 175 | P7700, 7700 | |
| 176 | \f |