| 1 | " check |
| 2 | |
| 3 | lac d1 |
| 4 | sys sysloc |
| 5 | dac iget |
| 6 | |
| 7 | lac d2 |
| 8 | sys sysloc |
| 9 | dac inode |
| 10 | |
| 11 | lac d4 |
| 12 | sys sysloc |
| 13 | dac nxfblk |
| 14 | tad d1 |
| 15 | dac nfblks |
| 16 | tad d1 |
| 17 | dac fblks |
| 18 | |
| 19 | lac d5 |
| 20 | sys sysloc |
| 21 | dac copy |
| 22 | |
| 23 | lac d6 |
| 24 | sys sysloc |
| 25 | dac copyz |
| 26 | |
| 27 | lac d7 |
| 28 | sys sysloc |
| 29 | dac betwen |
| 30 | |
| 31 | lac d8 |
| 32 | sys sysloc |
| 33 | dac dskrd |
| 34 | |
| 35 | lac d10 |
| 36 | sys sysloc |
| 37 | dac dskbuf |
| 38 | dac dskbuf1 |
| 39 | |
| 40 | dzm indircnt |
| 41 | dzm icnt |
| 42 | dzm licnt |
| 43 | dzm blcnt |
| 44 | dzm curi |
| 45 | jms copyz i; usetab; 500 |
| 46 | |
| 47 | iloop: |
| 48 | isz curi |
| 49 | -3400 |
| 50 | tad curi |
| 51 | sma |
| 52 | jmp part2 |
| 53 | lac curi |
| 54 | jms iget i |
| 55 | jms copy i; inode: 0; linode; 12 |
| 56 | lac iflags |
| 57 | sma |
| 58 | jmp iloop |
| 59 | isz icnt |
| 60 | lac iflags |
| 61 | and o40 |
| 62 | sza |
| 63 | jmp iloop |
| 64 | law idskps |
| 65 | dac t1 |
| 66 | -7 |
| 67 | dac t2 |
| 68 | 1: |
| 69 | lac i t1 |
| 70 | sza |
| 71 | jms dupcheck |
| 72 | isz t1 |
| 73 | isz t2 |
| 74 | jmp 1b |
| 75 | lac iflags |
| 76 | and o200000 |
| 77 | sna |
| 78 | jmp iloop |
| 79 | |
| 80 | isz licnt |
| 81 | law idskps |
| 82 | dac t1 |
| 83 | -7 |
| 84 | dac t2 |
| 85 | 1: |
| 86 | lac i t1 |
| 87 | sna |
| 88 | jmp 3f |
| 89 | jms dskrd i |
| 90 | jms copy i; dskbuf: 0; ldskbuf; 64 |
| 91 | isz indircnt |
| 92 | law ldskbuf |
| 93 | dac t3 |
| 94 | -64 |
| 95 | dac t4 |
| 96 | 2: |
| 97 | lac i t3 |
| 98 | sza |
| 99 | jms dupcheck |
| 100 | isz t3 |
| 101 | isz t4 |
| 102 | jmp 2b |
| 103 | 3: |
| 104 | isz t1 |
| 105 | isz t2 |
| 106 | jmp 1b |
| 107 | jmp iloop |
| 108 | |
| 109 | dupcheck: 0 |
| 110 | isz blcnt |
| 111 | jms betwen i; d709; d6400 |
| 112 | jmp badadr |
| 113 | dac t5 |
| 114 | lrss 4 |
| 115 | tad usetabp |
| 116 | dac t6 |
| 117 | cla |
| 118 | llss 4 |
| 119 | tad alsscom |
| 120 | dac 2f |
| 121 | lac d1 |
| 122 | 2: alss 0 |
| 123 | dac bit |
| 124 | lac i t6 |
| 125 | and bit |
| 126 | sza |
| 127 | jmp dup |
| 128 | lac i t6 |
| 129 | xor bit |
| 130 | dac i t6 |
| 131 | jmp i dupcheck |
| 132 | |
| 133 | badadr: |
| 134 | jms print |
| 135 | lac d1 |
| 136 | sys write; badmes; 3 |
| 137 | jmp i dupcheck |
| 138 | badmes: |
| 139 | < b>;<ad>;<r 012 |
| 140 | |
| 141 | dup: |
| 142 | lac t5 |
| 143 | jms print |
| 144 | lac d1 |
| 145 | sys write; dupmes; 3 |
| 146 | lac curi |
| 147 | jms print |
| 148 | lac d1 |
| 149 | sys write; dupmes+3; 1 |
| 150 | jmp i dupcheck |
| 151 | dupmes: |
| 152 | < d>;<up>; 040; 012 |
| 153 | |
| 154 | print: 0 |
| 155 | lmq |
| 156 | law prbuf-1 |
| 157 | dac 8 |
| 158 | -6 |
| 159 | dac t6 |
| 160 | 1: |
| 161 | cla |
| 162 | llss 3 |
| 163 | tad o60 |
| 164 | dac i 8 |
| 165 | isz t6 |
| 166 | jmp 1b |
| 167 | lac d1 |
| 168 | sys write; prbuf; 6 |
| 169 | jmp i print |
| 170 | |
| 171 | part2: |
| 172 | lac icnt |
| 173 | jmp print |
| 174 | lac d1 |
| 175 | sys write; m3; m3s |
| 176 | lac licnt |
| 177 | jms print |
| 178 | lac d1 |
| 179 | sys write; m4; m4s |
| 180 | lac indircnt |
| 181 | jms print |
| 182 | lac d1 |
| 183 | sys write; m5; m5s |
| 184 | lac blcnt |
| 185 | jms print |
| 186 | lac d1 |
| 187 | sys write; m6; m6s |
| 188 | dzm blcnt |
| 189 | |
| 190 | -1 |
| 191 | tad nfblks i |
| 192 | cma |
| 193 | sma |
| 194 | jmp 2f |
| 195 | dac t1 |
| 196 | lac fblks |
| 197 | dac t2 |
| 198 | 1: |
| 199 | lac i t2 |
| 200 | jms dupcheck |
| 201 | isz t2 |
| 202 | isz t1 |
| 203 | jmp 1b |
| 204 | |
| 205 | 2: |
| 206 | lac nxfblk i |
| 207 | 1: |
| 208 | sna |
| 209 | jmp part3 |
| 210 | dac t1 |
| 211 | jms dupcheck |
| 212 | lac t1 |
| 213 | jms dskrd i |
| 214 | jms copy i; dskbuf1: 0; ldskbuf; 64 |
| 215 | law ldskbuf |
| 216 | dac t1 |
| 217 | -9 |
| 218 | dac t2 |
| 219 | 2: |
| 220 | isz t1 |
| 221 | lac i t1 |
| 222 | jms dupcheck |
| 223 | isz t2 |
| 224 | jmp 2b |
| 225 | lac ldskbuf |
| 226 | jmp 1b |
| 227 | |
| 228 | part3: |
| 229 | lac blcnt |
| 230 | jms print |
| 231 | lac d1 |
| 232 | sys write; m7; m7s |
| 233 | lac d709 |
| 234 | dac t1 |
| 235 | 1: |
| 236 | isz t1 |
| 237 | lac t1 |
| 238 | sad d6400 |
| 239 | sys exit |
| 240 | lrss 4 |
| 241 | tad usetabp |
| 242 | dac t2 |
| 243 | cla |
| 244 | llss 4 |
| 245 | tad alsscom |
| 246 | dac 2f |
| 247 | lac d1 |
| 248 | 2: alss 0 |
| 249 | dac bit |
| 250 | lac i t2 |
| 251 | and bit |
| 252 | sza |
| 253 | jmp 1b |
| 254 | lac t1 |
| 255 | jms print |
| 256 | lac d1 |
| 257 | sys write; m8; m8s |
| 258 | jmp 1b |
| 259 | |
| 260 | d1: 1 |
| 261 | d2: 2 |
| 262 | d4: 4 |
| 263 | d5: 5 |
| 264 | d6: 6 |
| 265 | d7: 7 |
| 266 | d8: 8 |
| 267 | d10: 10 |
| 268 | o60: 060 |
| 269 | o400000: 0400000 |
| 270 | o400001: 0400001 |
| 271 | o40: 040 |
| 272 | o200000: 0200000 |
| 273 | alsscom: alss 0 |
| 274 | d709: 709 |
| 275 | d6400: 6400 |
| 276 | |
| 277 | m3: |
| 278 | 040;<fi>;<le>;<s 012 |
| 279 | m3s = .-m3 |
| 280 | m4: |
| 281 | 040;<la>;<rg>;<e 012 |
| 282 | m4s = .-m4 |
| 283 | m5: |
| 284 | 040;<in>;<di>;<r 012 |
| 285 | m5s = .-m5 |
| 286 | m6: |
| 287 | 040;<us>;<ed>;012 |
| 288 | m6s = .-m6 |
| 289 | m7: |
| 290 | 040;<fr>;<ee>;012 |
| 291 | m7s = .-m7 |
| 292 | m8: |
| 293 | 040;<mi>;<ss>;<in>;<g 012 |
| 294 | m8s = .-m8 |
| 295 | |
| 296 | usetabp: usetab |
| 297 | curi: 0 |
| 298 | bit: 0 |
| 299 | blcnt: 0 |
| 300 | indircnt: 0 |
| 301 | icnt: 0 |
| 302 | licnt: 0 |
| 303 | t1: 0 |
| 304 | t2: 0 |
| 305 | t3: 0 |
| 306 | t4: 0 |
| 307 | t5: 0 |
| 308 | t6: 0 |
| 309 | |
| 310 | iget: 0 |
| 311 | nxfblk: 0 |
| 312 | nfblks: 0 |
| 313 | fblks: 0 |
| 314 | copy: 0 |
| 315 | copyz: 0 |
| 316 | betwen: 0 |
| 317 | dskrd: 0 |
| 318 | |
| 319 | ldskbuf: .=.+64 |
| 320 | linode: .=.+12 |
| 321 | iflags = linode |
| 322 | idskps = iflags+1 |
| 323 | usetab: .=.+500 |
| 324 | prbuf: .=.+6 |