|
Last change
on this file since 4810254 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
|
Added Alcyon C reference output.
|
-
Property mode
set to
100644
|
|
File size:
11.9 KB
|
| Line | |
|---|
| 1 | .globl _ac_code
|
|---|
| 2 | .globl _scname
|
|---|
| 3 | .globl _se_chg
|
|---|
| 4 | .globl _curscor
|
|---|
| 5 | .globl _cursect
|
|---|
| 6 | .globl _se1_cnt
|
|---|
| 7 | .globl _se2_cnt
|
|---|
| 8 | .globl _se3_cnt
|
|---|
| 9 | .globl _spool
|
|---|
| 10 | .globl _pspool
|
|---|
| 11 | .globl _spcount
|
|---|
| 12 | .globl _frags
|
|---|
| 13 | .globl _t_bak
|
|---|
| 14 | .globl _t_cur
|
|---|
| 15 | .globl _t_ctr
|
|---|
| 16 | .globl _t_fwd
|
|---|
| 17 | .globl _size1
|
|---|
| 18 | .globl _size2
|
|---|
| 19 | .globl _size3
|
|---|
| 20 | .globl _scores
|
|---|
| 21 | .globl _scp
|
|---|
| 22 | .globl _seclist
|
|---|
| 23 | .globl _hplist
|
|---|
| 24 | .globl _p_bak
|
|---|
| 25 | .globl _p_cur
|
|---|
| 26 | .globl _p_ctr
|
|---|
| 27 | .globl _p_fwd
|
|---|
| 28 | .globl _secopok
|
|---|
| 29 | .globl _t_sbgn
|
|---|
| 30 | .globl _t_send
|
|---|
| 31 | .globl _t_sect
|
|---|
| 32 | .globl _t_sec1
|
|---|
| 33 | .globl _t_sec2
|
|---|
| 34 | .globl _t_cbgn
|
|---|
| 35 | .globl _t_cend
|
|---|
| 36 | .globl _p_sbgn
|
|---|
| 37 | .globl _p_send
|
|---|
| 38 | .globl _p_sec1
|
|---|
| 39 | .globl _p_sec2
|
|---|
| 40 | .globl _p_cbgn
|
|---|
| 41 | .globl _p_cend
|
|---|
| 42 | .globl _ancmsw
|
|---|
| 43 | .globl _grptran
|
|---|
| 44 | .globl _grpmode
|
|---|
| 45 | .globl _grpstat
|
|---|
| 46 | .globl _grptmap
|
|---|
| 47 | .globl _varmode
|
|---|
| 48 | .globl _cmslens
|
|---|
| 49 | .data
|
|---|
| 50 | _cmslens:
|
|---|
| 51 | .dc.w $0
|
|---|
| 52 | .dc.w $0
|
|---|
| 53 | .dc.w $0
|
|---|
| 54 | .dc.w $0
|
|---|
| 55 | .dc.w $6
|
|---|
| 56 | .dc.w $5
|
|---|
| 57 | .dc.w $5
|
|---|
| 58 | .dc.w $5
|
|---|
| 59 | .dc.w $5
|
|---|
| 60 | .dc.w $6
|
|---|
| 61 | .dc.w $6
|
|---|
| 62 | .dc.w $6
|
|---|
| 63 | .dc.w $6
|
|---|
| 64 | .dc.w $6
|
|---|
| 65 | .dc.w $6
|
|---|
| 66 | .dc.w $6
|
|---|
| 67 | .dc.w $6
|
|---|
| 68 | .dc.w $6
|
|---|
| 69 | .dc.w $5
|
|---|
| 70 | .dc.w $5
|
|---|
| 71 | .dc.w $5
|
|---|
| 72 | .dc.w $0
|
|---|
| 73 | .dc.w $5
|
|---|
| 74 | .dc.w $5
|
|---|
| 75 | .dc.w $5
|
|---|
| 76 | .globl _cmgtags
|
|---|
| 77 | .data
|
|---|
| 78 | _cmgtags:
|
|---|
| 79 | .dc.b $0
|
|---|
| 80 | .dc.b $0
|
|---|
| 81 | .dc.b $0
|
|---|
| 82 | .dc.b $0
|
|---|
| 83 | .dc.b $1
|
|---|
| 84 | .dc.b $1
|
|---|
| 85 | .dc.b $1
|
|---|
| 86 | .dc.b $0
|
|---|
| 87 | .dc.b $0
|
|---|
| 88 | .dc.b $0
|
|---|
| 89 | .dc.b $0
|
|---|
| 90 | .dc.b $1
|
|---|
| 91 | .dc.b $1
|
|---|
| 92 | .dc.b $1
|
|---|
| 93 | .dc.b $1
|
|---|
| 94 | .dc.b $1
|
|---|
| 95 | .dc.b $0
|
|---|
| 96 | .dc.b $1
|
|---|
| 97 | .dc.b $0
|
|---|
| 98 | .dc.b $0
|
|---|
| 99 | .dc.b $0
|
|---|
| 100 | .dc.b $0
|
|---|
| 101 | .dc.b $1
|
|---|
| 102 | .dc.b $0
|
|---|
| 103 | .dc.b $0
|
|---|
| 104 | .even
|
|---|
| 105 | .globl _cmgtype
|
|---|
| 106 | .data
|
|---|
| 107 | _cmgtype:
|
|---|
| 108 | .dc.b $0
|
|---|
| 109 | .dc.b $0
|
|---|
| 110 | .dc.b $0
|
|---|
| 111 | .dc.b $0
|
|---|
| 112 | .dc.b $0
|
|---|
| 113 | .dc.b $1
|
|---|
| 114 | .dc.b $1
|
|---|
| 115 | .dc.b $0
|
|---|
| 116 | .dc.b $0
|
|---|
| 117 | .dc.b $0
|
|---|
| 118 | .dc.b $0
|
|---|
| 119 | .dc.b $0
|
|---|
| 120 | .dc.b $0
|
|---|
| 121 | .dc.b $0
|
|---|
| 122 | .dc.b $0
|
|---|
| 123 | .dc.b $0
|
|---|
| 124 | .dc.b $0
|
|---|
| 125 | .dc.b $0
|
|---|
| 126 | .dc.b $0
|
|---|
| 127 | .dc.b $0
|
|---|
| 128 | .dc.b $0
|
|---|
| 129 | .dc.b $0
|
|---|
| 130 | .dc.b $1
|
|---|
| 131 | .dc.b $0
|
|---|
| 132 | .dc.b $0
|
|---|
| 133 | .even
|
|---|
| 134 | .globl _ehdlist
|
|---|
| 135 | .data
|
|---|
| 136 | _ehdlist:
|
|---|
| 137 | .dc.w $FFFF
|
|---|
| 138 | .dc.w $FFFF
|
|---|
| 139 | .dc.w $A
|
|---|
| 140 | .dc.w $B
|
|---|
| 141 | .dc.w $0
|
|---|
| 142 | .dc.w $FFFF
|
|---|
| 143 | .dc.w $FFFF
|
|---|
| 144 | .dc.w $FFFF
|
|---|
| 145 | .dc.w $6
|
|---|
| 146 | .dc.w $7
|
|---|
| 147 | .dc.w $8
|
|---|
| 148 | .dc.w $1
|
|---|
| 149 | .dc.w $2
|
|---|
| 150 | .dc.w $3
|
|---|
| 151 | .dc.w $FFFF
|
|---|
| 152 | .dc.w $4
|
|---|
| 153 | .dc.w $9
|
|---|
| 154 | .dc.w $5
|
|---|
| 155 | .dc.w $FFFF
|
|---|
| 156 | .dc.w $FFFF
|
|---|
| 157 | .dc.w $FFFF
|
|---|
| 158 | .dc.w $FFFF
|
|---|
| 159 | .dc.w $FFFF
|
|---|
| 160 | .dc.w $FFFF
|
|---|
| 161 | .dc.w $FFFF
|
|---|
| 162 | .globl _oktocm
|
|---|
| 163 | .text
|
|---|
| 164 | _oktocm:
|
|---|
| 165 | ~~oktocm:
|
|---|
| 166 | ~ep=R13
|
|---|
| 167 | link R14,#0
|
|---|
| 168 | movem.l R4-R7/R13-R13,-(sp)
|
|---|
| 169 | ~et=R7
|
|---|
| 170 | ~grp=R6
|
|---|
| 171 | ~mode=R5
|
|---|
| 172 | *line 171
|
|---|
| 173 | move.l 8(R14),R13
|
|---|
| 174 | *line 171
|
|---|
| 175 | move.b 5(R13),R7
|
|---|
| 176 | ext.w R7
|
|---|
| 177 | and #127,R7
|
|---|
| 178 | *line 173
|
|---|
| 179 | *line 174
|
|---|
| 180 | move R7,R8
|
|---|
| 181 | add.l R8,R8
|
|---|
| 182 | add.l #_cmslens,R8
|
|---|
| 183 | tst (R8)
|
|---|
| 184 | bne L2
|
|---|
| 185 | *line 174
|
|---|
| 186 | clr R0
|
|---|
| 187 | bra L1
|
|---|
| 188 | *line 175
|
|---|
| 189 | L2:
|
|---|
| 190 | *line 176
|
|---|
| 191 | *line 177
|
|---|
| 192 | move.l #_cmgtags,R8
|
|---|
| 193 | tst.b 0(R8,R7)
|
|---|
| 194 | bne L3
|
|---|
| 195 | *line 177
|
|---|
| 196 | move #1,R0
|
|---|
| 197 | bra L1
|
|---|
| 198 | *line 178
|
|---|
| 199 | *line 179
|
|---|
| 200 | *line 180
|
|---|
| 201 | L3:
|
|---|
| 202 | *line 181
|
|---|
| 203 | move.l #_cmgtype,R8
|
|---|
| 204 | tst.b 0(R8,R7)
|
|---|
| 205 | beq L10000
|
|---|
| 206 | move.b 7(R13),R0
|
|---|
| 207 | ext.w R0
|
|---|
| 208 | bra L10002
|
|---|
| 209 | L10000:move.b 6(R13),R0
|
|---|
| 210 | ext.w R0
|
|---|
| 211 | L10002:move R0,R6
|
|---|
| 212 | and #15,R6
|
|---|
| 213 | *line 183
|
|---|
| 214 | *line 184
|
|---|
| 215 | move R6,R8
|
|---|
| 216 | add.l R8,R8
|
|---|
| 217 | move.l #_grpstat,R9
|
|---|
| 218 | tst 0(R8,R9.l)
|
|---|
| 219 | bne L4
|
|---|
| 220 | *line 184
|
|---|
| 221 | clr R0
|
|---|
| 222 | bra L1
|
|---|
| 223 | *line 185
|
|---|
| 224 | L4:
|
|---|
| 225 | *line 186
|
|---|
| 226 | *line 187
|
|---|
| 227 | cmp #15,R7
|
|---|
| 228 | beq L10003
|
|---|
| 229 | cmp #14,R7
|
|---|
| 230 | bne L5
|
|---|
| 231 | L10003:*line 188
|
|---|
| 232 | *line 189
|
|---|
| 233 | tst _ancmsw
|
|---|
| 234 | beq L10004
|
|---|
| 235 | move.b 6(R13),R0
|
|---|
| 236 | ext.w R0
|
|---|
| 237 | asr #4,R0
|
|---|
| 238 | and #7,R0
|
|---|
| 239 | asl #5,R0
|
|---|
| 240 | ext.l R0
|
|---|
| 241 | move R6,R1
|
|---|
| 242 | asl #1,R1
|
|---|
| 243 | ext.l R1
|
|---|
| 244 | add.l R1,R0
|
|---|
| 245 | move.l R0,R8
|
|---|
| 246 | move.l #_varmode,R9
|
|---|
| 247 | move 0(R8,R9.l),R0
|
|---|
| 248 | bra L10006
|
|---|
| 249 | L10004:move R6,R8
|
|---|
| 250 | add.l R8,R8
|
|---|
| 251 | add.l #_grptmap,R8
|
|---|
| 252 | cmp #-1,(R8)
|
|---|
| 253 | bne L10007
|
|---|
| 254 | clr R0
|
|---|
| 255 | bra L10009
|
|---|
| 256 | L10007:move #2,R0
|
|---|
| 257 | L10009:L10006:move R0,R5
|
|---|
| 258 | bra L6
|
|---|
| 259 | L5:
|
|---|
| 260 | *line 190
|
|---|
| 261 | *line 191
|
|---|
| 262 | move R6,R8
|
|---|
| 263 | add.l R8,R8
|
|---|
| 264 | add.l #_grptmap,R8
|
|---|
| 265 | cmp #-1,(R8)
|
|---|
| 266 | bne L10010
|
|---|
| 267 | clr R0
|
|---|
| 268 | bra L10012
|
|---|
| 269 | L10010:move #2,R0
|
|---|
| 270 | L10012:move R0,R5
|
|---|
| 271 | L6:
|
|---|
| 272 | *line 195
|
|---|
| 273 | cmp #2,R5
|
|---|
| 274 | bne L10013
|
|---|
| 275 | move #1,R0
|
|---|
| 276 | bra L10015
|
|---|
| 277 | L10013:clr R0
|
|---|
| 278 | L10015:bra L1
|
|---|
| 279 | L1:tst.l (sp)+
|
|---|
| 280 | movem.l (sp)+,R5-R7/R13-R13
|
|---|
| 281 | unlk R14
|
|---|
| 282 | rts
|
|---|
| 283 | .globl _oktode
|
|---|
| 284 | .text
|
|---|
| 285 | _oktode:
|
|---|
| 286 | ~~oktode:
|
|---|
| 287 | ~ep=R13
|
|---|
| 288 | link R14,#0
|
|---|
| 289 | movem.l R4-R7/R13-R13,-(sp)
|
|---|
| 290 | ~et=R7
|
|---|
| 291 | ~grp=R6
|
|---|
| 292 | ~mode=R5
|
|---|
| 293 | *line 218
|
|---|
| 294 | move.l 8(R14),R13
|
|---|
| 295 | *line 218
|
|---|
| 296 | move.b 5(R13),R7
|
|---|
| 297 | ext.w R7
|
|---|
| 298 | and #127,R7
|
|---|
| 299 | *line 220
|
|---|
| 300 | *line 221
|
|---|
| 301 | cmp #5,R7
|
|---|
| 302 | beq L10016
|
|---|
| 303 | cmp #6,R7
|
|---|
| 304 | bne L8
|
|---|
| 305 | L10016:*line 221
|
|---|
| 306 | clr R0
|
|---|
| 307 | bra L7
|
|---|
| 308 | *line 222
|
|---|
| 309 | L8:
|
|---|
| 310 | *line 223
|
|---|
| 311 | *line 224
|
|---|
| 312 | move.l #_cmgtags,R8
|
|---|
| 313 | tst.b 0(R8,R7)
|
|---|
| 314 | bne L9
|
|---|
| 315 | *line 224
|
|---|
| 316 | move #1,R0
|
|---|
| 317 | bra L7
|
|---|
| 318 | *line 225
|
|---|
| 319 | *line 226
|
|---|
| 320 | *line 227
|
|---|
| 321 | L9:
|
|---|
| 322 | *line 228
|
|---|
| 323 | move.l #_cmgtype,R8
|
|---|
| 324 | tst.b 0(R8,R7)
|
|---|
| 325 | beq L10017
|
|---|
| 326 | move.b 7(R13),R0
|
|---|
| 327 | ext.w R0
|
|---|
| 328 | bra L10019
|
|---|
| 329 | L10017:move.b 6(R13),R0
|
|---|
| 330 | ext.w R0
|
|---|
| 331 | L10019:move R0,R6
|
|---|
| 332 | and #15,R6
|
|---|
| 333 | *line 230
|
|---|
| 334 | *line 231
|
|---|
| 335 | move R6,R8
|
|---|
| 336 | add.l R8,R8
|
|---|
| 337 | move.l #_grpstat,R9
|
|---|
| 338 | tst 0(R8,R9.l)
|
|---|
| 339 | bne L10
|
|---|
| 340 | *line 231
|
|---|
| 341 | clr R0
|
|---|
| 342 | bra L7
|
|---|
| 343 | *line 232
|
|---|
| 344 | L10:
|
|---|
| 345 | *line 233
|
|---|
| 346 | *line 234
|
|---|
| 347 | cmp #15,R7
|
|---|
| 348 | beq L10020
|
|---|
| 349 | cmp #14,R7
|
|---|
| 350 | bne L11
|
|---|
| 351 | L10020:*line 235
|
|---|
| 352 | tst _ancmsw
|
|---|
| 353 | beq L10021
|
|---|
| 354 | move.b 6(R13),R0
|
|---|
| 355 | ext.w R0
|
|---|
| 356 | asr #4,R0
|
|---|
| 357 | and #7,R0
|
|---|
| 358 | asl #5,R0
|
|---|
| 359 | ext.l R0
|
|---|
| 360 | move R6,R1
|
|---|
| 361 | asl #1,R1
|
|---|
| 362 | ext.l R1
|
|---|
| 363 | add.l R1,R0
|
|---|
| 364 | move.l R0,R8
|
|---|
| 365 | move.l #_varmode,R9
|
|---|
| 366 | move 0(R8,R9.l),R0
|
|---|
| 367 | bra L10023
|
|---|
| 368 | L10021:move R6,R8
|
|---|
| 369 | add.l R8,R8
|
|---|
| 370 | move.l #_grpmode,R9
|
|---|
| 371 | move 0(R8,R9.l),R0
|
|---|
| 372 | L10023:move R0,R5
|
|---|
| 373 | bra L12
|
|---|
| 374 | L11:
|
|---|
| 375 | *line 236
|
|---|
| 376 | *line 237
|
|---|
| 377 | move R6,R8
|
|---|
| 378 | add.l R8,R8
|
|---|
| 379 | add.l #_grpmode,R8
|
|---|
| 380 | move (R8),R5
|
|---|
| 381 | L12:
|
|---|
| 382 | *line 241
|
|---|
| 383 | cmp #2,R5
|
|---|
| 384 | bne L10024
|
|---|
| 385 | move #1,R0
|
|---|
| 386 | bra L10026
|
|---|
| 387 | L10024:clr R0
|
|---|
| 388 | L10026:bra L7
|
|---|
| 389 | L7:tst.l (sp)+
|
|---|
| 390 | movem.l (sp)+,R5-R7/R13-R13
|
|---|
| 391 | unlk R14
|
|---|
| 392 | rts
|
|---|
| 393 | .globl _oktodg
|
|---|
| 394 | .text
|
|---|
| 395 | _oktodg:
|
|---|
| 396 | ~~oktodg:
|
|---|
| 397 | ~ep=R13
|
|---|
| 398 | link R14,#0
|
|---|
| 399 | movem.l R5-R7/R13-R13,-(sp)
|
|---|
| 400 | ~et=R7
|
|---|
| 401 | ~grp=R6
|
|---|
| 402 | *line 264
|
|---|
| 403 | move.l 8(R14),R13
|
|---|
| 404 | *line 264
|
|---|
| 405 | move.b 5(R13),R7
|
|---|
| 406 | ext.w R7
|
|---|
| 407 | and #127,R7
|
|---|
| 408 | *line 266
|
|---|
| 409 | *line 267
|
|---|
| 410 | *line 268
|
|---|
| 411 | cmp #5,R7
|
|---|
| 412 | beq L14
|
|---|
| 413 | cmp #6,R7
|
|---|
| 414 | beq L14
|
|---|
| 415 | *line 268
|
|---|
| 416 | clr R0
|
|---|
| 417 | bra L13
|
|---|
| 418 | *line 269
|
|---|
| 419 | L14:
|
|---|
| 420 | *line 270
|
|---|
| 421 | move.b 7(R13),R6
|
|---|
| 422 | ext.w R6
|
|---|
| 423 | *line 272
|
|---|
| 424 | *line 273
|
|---|
| 425 | *line 274
|
|---|
| 426 | move R6,R8
|
|---|
| 427 | add.l R8,R8
|
|---|
| 428 | add.l #_grpmode,R8
|
|---|
| 429 | cmp #2,(R8)
|
|---|
| 430 | bne L15
|
|---|
| 431 | move R6,R8
|
|---|
| 432 | add.l R8,R8
|
|---|
| 433 | move.l #_grpstat,R9
|
|---|
| 434 | tst 0(R8,R9.l)
|
|---|
| 435 | beq L15
|
|---|
| 436 | *line 274
|
|---|
| 437 | move #1,R0
|
|---|
| 438 | bra L13
|
|---|
| 439 | *line 275
|
|---|
| 440 | bra L16
|
|---|
| 441 | L15:
|
|---|
| 442 | *line 276
|
|---|
| 443 | clr R0
|
|---|
| 444 | bra L13
|
|---|
| 445 | L16:L13:tst.l (sp)+
|
|---|
| 446 | movem.l (sp)+,R6-R7/R13-R13
|
|---|
| 447 | unlk R14
|
|---|
| 448 | rts
|
|---|
| 449 | .globl _chksec
|
|---|
| 450 | .text
|
|---|
| 451 | _chksec:
|
|---|
| 452 | ~~chksec:
|
|---|
| 453 | ~ns=R7
|
|---|
| 454 | link R14,#0
|
|---|
| 455 | movem.l R6-R7/R13-R13,-(sp)
|
|---|
| 456 | ~ep=R13
|
|---|
| 457 | *line 301
|
|---|
| 458 | move 8(R14),R7
|
|---|
| 459 | *line 305
|
|---|
| 460 | *line 305
|
|---|
| 461 | move _curscor,R0
|
|---|
| 462 | muls #80,R0
|
|---|
| 463 | move R7,R1
|
|---|
| 464 | asl #2,R1
|
|---|
| 465 | ext.l R1
|
|---|
| 466 | add.l R1,R0
|
|---|
| 467 | add.l #_seclist,R0
|
|---|
| 468 | move.l R0,R8
|
|---|
| 469 | move.l (R8),_p_sbgn
|
|---|
| 470 | bne L18
|
|---|
| 471 | *line 306
|
|---|
| 472 | *line 307
|
|---|
| 473 | clr _secopok
|
|---|
| 474 | *line 308
|
|---|
| 475 | clr.l _p_send
|
|---|
| 476 | *line 309
|
|---|
| 477 | *line 310
|
|---|
| 478 | move #1,R0
|
|---|
| 479 | bra L17
|
|---|
| 480 | *line 311
|
|---|
| 481 | *line 312
|
|---|
| 482 | L18:
|
|---|
| 483 | *line 313
|
|---|
| 484 | move.l _p_sbgn,R8
|
|---|
| 485 | move.l (R8),_t_sbgn
|
|---|
| 486 | *line 319
|
|---|
| 487 | move _curscor,R0
|
|---|
| 488 | muls #48,R0
|
|---|
| 489 | add.l #_hplist,R0
|
|---|
| 490 | move.l R0,R8
|
|---|
| 491 | move.l 44(R8),R13
|
|---|
| 492 | *line 321
|
|---|
| 493 | bra L21
|
|---|
| 494 | L20:
|
|---|
| 495 | *line 322
|
|---|
| 496 | *line 323
|
|---|
| 497 | *line 324
|
|---|
| 498 | *line 325
|
|---|
| 499 | move.b 5(R13),R0
|
|---|
| 500 | ext.w R0
|
|---|
| 501 | and #127,R0
|
|---|
| 502 | cmp #3,R0
|
|---|
| 503 | bne L10027
|
|---|
| 504 | move.b 6(R13),R0
|
|---|
| 505 | ext.w R0
|
|---|
| 506 | cmp R0,R7
|
|---|
| 507 | beq L19
|
|---|
| 508 | L10027:*line 326
|
|---|
| 509 | *line 327
|
|---|
| 510 | move.l 20(R13),R13
|
|---|
| 511 | L21:
|
|---|
| 512 | *line 328
|
|---|
| 513 | move.l R13,R0
|
|---|
| 514 | bne L20
|
|---|
| 515 | L19:
|
|---|
| 516 | *line 330
|
|---|
| 517 | *line 330
|
|---|
| 518 | move.l R13,_p_send
|
|---|
| 519 | bne L22
|
|---|
| 520 | *line 331
|
|---|
| 521 | *line 332
|
|---|
| 522 | clr _secopok
|
|---|
| 523 | *line 333
|
|---|
| 524 | *line 334
|
|---|
| 525 | move #2,R0
|
|---|
| 526 | bra L17
|
|---|
| 527 | *line 335
|
|---|
| 528 | *line 336
|
|---|
| 529 | *line 337
|
|---|
| 530 | *line 338
|
|---|
| 531 | L22:
|
|---|
| 532 | *line 339
|
|---|
| 533 | *line 339
|
|---|
| 534 | move.l (R13),R0
|
|---|
| 535 | move.l R0,_t_send
|
|---|
| 536 | cmp.l _t_sbgn,R0
|
|---|
| 537 | bgt L23
|
|---|
| 538 | *line 340
|
|---|
| 539 | *line 341
|
|---|
| 540 | clr _secopok
|
|---|
| 541 | *line 342
|
|---|
| 542 | *line 343
|
|---|
| 543 | move #3,R0
|
|---|
| 544 | bra L17
|
|---|
| 545 | *line 344
|
|---|
| 546 | *line 345
|
|---|
| 547 | L23:
|
|---|
| 548 | *line 346
|
|---|
| 549 | move.l _t_send,R0
|
|---|
| 550 | add.l #$1,R0
|
|---|
| 551 | sub.l _t_sbgn,R0
|
|---|
| 552 | move.l R0,_t_sect
|
|---|
| 553 | *line 349
|
|---|
| 554 | clr R0
|
|---|
| 555 | bra L17
|
|---|
| 556 | L17:tst.l (sp)+
|
|---|
| 557 | movem.l (sp)+,R7-R7/R13-R13
|
|---|
| 558 | unlk R14
|
|---|
| 559 | rts
|
|---|
| 560 | .globl _sizesec
|
|---|
| 561 | .text
|
|---|
| 562 | _sizesec:
|
|---|
| 563 | ~~sizesec:
|
|---|
| 564 | link R14,#0
|
|---|
| 565 | movem.l R5-R7/R12-R13,-(sp)
|
|---|
| 566 | ~ec=R7
|
|---|
| 567 | ~et=R6
|
|---|
| 568 | ~sbp=R13
|
|---|
| 569 | ~sep=R12
|
|---|
| 570 | *line 375
|
|---|
| 571 | clr.l R7
|
|---|
| 572 | *line 376
|
|---|
| 573 | move.l _p_sbgn,R8
|
|---|
| 574 | move.l 12(R8),R13
|
|---|
| 575 | *line 377
|
|---|
| 576 | move.l _p_send,R12
|
|---|
| 577 | *line 379
|
|---|
| 578 | bra L27
|
|---|
| 579 | L26:
|
|---|
| 580 | *line 380
|
|---|
| 581 | *line 381
|
|---|
| 582 | move.b 5(R13),R6
|
|---|
| 583 | ext.w R6
|
|---|
| 584 | and #127,R6
|
|---|
| 585 | *line 382
|
|---|
| 586 | *line 383
|
|---|
| 587 | *line 384
|
|---|
| 588 | move.l R13,(sp)
|
|---|
| 589 | jsr _oktocm
|
|---|
| 590 | tst R0
|
|---|
| 591 | beq L28
|
|---|
| 592 | *line 384
|
|---|
| 593 | move R6,R8
|
|---|
| 594 | add.l R8,R8
|
|---|
| 595 | move.l #_cmslens,R9
|
|---|
| 596 | move 0(R8,R9.l),R0
|
|---|
| 597 | ext.l R0
|
|---|
| 598 | add.l R0,R7
|
|---|
| 599 | *line 385
|
|---|
| 600 | L28:
|
|---|
| 601 | *line 386
|
|---|
| 602 | move.l 12(R13),R13
|
|---|
| 603 | L27:
|
|---|
| 604 | *line 387
|
|---|
| 605 | cmp.l R12,R13
|
|---|
| 606 | bne L26
|
|---|
| 607 | L25:
|
|---|
| 608 | *line 397
|
|---|
| 609 | move.l R7,R0
|
|---|
| 610 | bra L24
|
|---|
| 611 | L24:tst.l (sp)+
|
|---|
| 612 | movem.l (sp)+,R6-R7/R12-R13
|
|---|
| 613 | unlk R14
|
|---|
| 614 | rts
|
|---|
| 615 | .globl _edelta
|
|---|
| 616 | .text
|
|---|
| 617 | _edelta:
|
|---|
| 618 | ~~edelta:
|
|---|
| 619 | ~ep=R13
|
|---|
| 620 | ~btime=R7
|
|---|
| 621 | ~delta=R6
|
|---|
| 622 | link R14,#0
|
|---|
| 623 | movem.l R5-R7/R13-R13,-(sp)
|
|---|
| 624 | *line 417
|
|---|
| 625 | move.l 8(R14),R13
|
|---|
| 626 | *line 417
|
|---|
| 627 | move.l 12(R14),R7
|
|---|
| 628 | *line 417
|
|---|
| 629 | move.l 16(R14),R6
|
|---|
| 630 | *line 419
|
|---|
| 631 | bra L32
|
|---|
| 632 | L31:
|
|---|
| 633 | *line 420
|
|---|
| 634 | *line 421
|
|---|
| 635 | *line 422
|
|---|
| 636 | cmp.l (R13),R7
|
|---|
| 637 | bge L33
|
|---|
| 638 | *line 422
|
|---|
| 639 | add.l R6,(R13)
|
|---|
| 640 | *line 423
|
|---|
| 641 | L33:
|
|---|
| 642 | *line 424
|
|---|
| 643 | move.l 12(R13),R13
|
|---|
| 644 | L32:
|
|---|
| 645 | *line 425
|
|---|
| 646 | move.b 5(R13),R0
|
|---|
| 647 | ext.w R0
|
|---|
| 648 | and #127,R0
|
|---|
| 649 | cmp #21,R0
|
|---|
| 650 | bne L31
|
|---|
| 651 | L30:L29:tst.l (sp)+
|
|---|
| 652 | movem.l (sp)+,R6-R7/R13-R13
|
|---|
| 653 | unlk R14
|
|---|
| 654 | rts
|
|---|
| 655 | .globl _madjsec
|
|---|
| 656 | .text
|
|---|
| 657 | _madjsec:
|
|---|
| 658 | ~~madjsec:
|
|---|
| 659 | ~sbp=R13
|
|---|
| 660 | ~btime=R7
|
|---|
| 661 | link R14,#-8
|
|---|
| 662 | movem.l R2-R7/R11-R13,-(sp)
|
|---|
| 663 | ~ns=-2
|
|---|
| 664 | ~nv=-4
|
|---|
| 665 | ~grp=R6
|
|---|
| 666 | ~es=R5
|
|---|
| 667 | ~et=R4
|
|---|
| 668 | ~ep=R12
|
|---|
| 669 | ~np=R11
|
|---|
| 670 | ~cp=-8
|
|---|
| 671 | ~sat=R3
|
|---|
| 672 | *line 460
|
|---|
| 673 | move.l 8(R14),R13
|
|---|
| 674 | *line 460
|
|---|
| 675 | move.l 12(R14),R7
|
|---|
| 676 | *line 462
|
|---|
| 677 | clr.l R0
|
|---|
| 678 | move.l R0,-8(R14)
|
|---|
| 679 | move.l R0,R12
|
|---|
| 680 | move.l R12,R11
|
|---|
| 681 | *line 463
|
|---|
| 682 | move.b 6(R13),R0
|
|---|
| 683 | ext.w R0
|
|---|
| 684 | move R0,-2(R14)
|
|---|
| 685 | *line 464
|
|---|
| 686 | move.l (R13),R3
|
|---|
| 687 | sub.l R7,R3
|
|---|
| 688 | *line 465
|
|---|
| 689 | move.l 12(R13),R13
|
|---|
| 690 | *line 472
|
|---|
| 691 | bra L37
|
|---|
| 692 | L36:
|
|---|
| 693 | *line 473
|
|---|
| 694 | *line 474
|
|---|
| 695 | move.b 5(R13),R4
|
|---|
| 696 | ext.w R4
|
|---|
| 697 | and #127,R4
|
|---|
| 698 | *line 475
|
|---|
| 699 | *line 476
|
|---|
| 700 | *line 477
|
|---|
| 701 | *line 478
|
|---|
| 702 | *line 479
|
|---|
| 703 | cmp #3,R4
|
|---|
| 704 | bne L10028
|
|---|
| 705 | move.b 6(R13),R0
|
|---|
| 706 | ext.w R0
|
|---|
| 707 | cmp -2(R14),R0
|
|---|
| 708 | beq L35
|
|---|
| 709 | L10028:*line 480
|
|---|
| 710 | *line 481
|
|---|
| 711 | *line 481
|
|---|
| 712 | move.l R13,(sp)
|
|---|
| 713 | jsr _oktocm
|
|---|
| 714 | tst R0
|
|---|
| 715 | beq L38
|
|---|
| 716 | *line 482
|
|---|
| 717 | *line 483
|
|---|
| 718 | move.b 4(R13),R5
|
|---|
| 719 | ext.w R5
|
|---|
| 720 | *line 484
|
|---|
| 721 | move R5,(sp)
|
|---|
| 722 | jsr _e_alc
|
|---|
| 723 | move.l R0,R11
|
|---|
| 724 | *line 485
|
|---|
| 725 | move R5,R0
|
|---|
| 726 | asl #1,R0
|
|---|
| 727 | move R0,(sp)
|
|---|
| 728 | move.l R13,-(sp)
|
|---|
| 729 | move.l R11,-(sp)
|
|---|
| 730 | jsr _memcpyw
|
|---|
| 731 | addq.l #8,sp
|
|---|
| 732 | *line 486
|
|---|
| 733 | *line 487
|
|---|
| 734 | *line 487
|
|---|
| 735 | move.l #_cmgtags,R8
|
|---|
| 736 | tst.b 0(R8,R4)
|
|---|
| 737 | beq L39
|
|---|
| 738 | *line 488
|
|---|
| 739 | *line 489
|
|---|
| 740 | *line 490
|
|---|
| 741 | move.l #_cmgtype,R8
|
|---|
| 742 | tst.b 0(R8,R4)
|
|---|
| 743 | beq L10029
|
|---|
| 744 | move.b 7(R11),R0
|
|---|
| 745 | ext.w R0
|
|---|
| 746 | bra L10031
|
|---|
| 747 | L10029:move.b 6(R11),R0
|
|---|
| 748 | ext.w R0
|
|---|
| 749 | L10031:move R0,R6
|
|---|
| 750 | and #15,R6
|
|---|
| 751 | *line 491
|
|---|
| 752 | *line 492
|
|---|
| 753 | *line 492
|
|---|
| 754 | cmp #5,R4
|
|---|
| 755 | beq L10032
|
|---|
| 756 | cmp #6,R4
|
|---|
| 757 | bne L40
|
|---|
| 758 | L10032:*line 493
|
|---|
| 759 | *line 494
|
|---|
| 760 | *line 495
|
|---|
| 761 | *line 496
|
|---|
| 762 | *line 497
|
|---|
| 763 | move.b 7(R11),R0
|
|---|
| 764 | ext.w R0
|
|---|
| 765 | and #240,R0
|
|---|
| 766 | move R6,R9
|
|---|
| 767 | add.l R9,R9
|
|---|
| 768 | add.l #_grptmap,R9
|
|---|
| 769 | move (R9),R1
|
|---|
| 770 | or R1,R0
|
|---|
| 771 | move.b R0,7(R11)
|
|---|
| 772 | *line 498
|
|---|
| 773 | *line 499
|
|---|
| 774 | *line 500
|
|---|
| 775 | *line 501
|
|---|
| 776 | move.b 6(R11),R0
|
|---|
| 777 | ext.w R0
|
|---|
| 778 | add _grptran,R0
|
|---|
| 779 | move R0,-4(R14)
|
|---|
| 780 | *line 502
|
|---|
| 781 | *line 503
|
|---|
| 782 | *line 504
|
|---|
| 783 | cmp #127,-4(R14)
|
|---|
| 784 | ble L41
|
|---|
| 785 | *line 504
|
|---|
| 786 | move #127,-4(R14)
|
|---|
| 787 | bra L42
|
|---|
| 788 | L41:
|
|---|
| 789 | *line 505
|
|---|
| 790 | *line 506
|
|---|
| 791 | tst -4(R14)
|
|---|
| 792 | bge L43
|
|---|
| 793 | *line 506
|
|---|
| 794 | clr -4(R14)
|
|---|
| 795 | *line 507
|
|---|
| 796 | L43:L42:
|
|---|
| 797 | *line 508
|
|---|
| 798 | move -4(R14),R0
|
|---|
| 799 | move.b R0,6(R11)
|
|---|
| 800 | *line 509
|
|---|
| 801 | bra L44
|
|---|
| 802 | L40:
|
|---|
| 803 | *line 510
|
|---|
| 804 | *line 510
|
|---|
| 805 | cmp #15,R4
|
|---|
| 806 | beq L10033
|
|---|
| 807 | cmp #14,R4
|
|---|
| 808 | bne L45
|
|---|
| 809 | L10033:*line 511
|
|---|
| 810 | *line 512
|
|---|
| 811 | *line 513
|
|---|
| 812 | *line 514
|
|---|
| 813 | *line 515
|
|---|
| 814 | move.b 6(R11),R0
|
|---|
| 815 | ext.w R0
|
|---|
| 816 | and #15,R0
|
|---|
| 817 | move R6,R9
|
|---|
| 818 | add.l R9,R9
|
|---|
| 819 | add.l #_grptmap,R9
|
|---|
| 820 | move (R9),R1
|
|---|
| 821 | asl #4,R1
|
|---|
| 822 | or R1,R0
|
|---|
| 823 | move.b R0,6(R11)
|
|---|
| 824 | *line 516
|
|---|
| 825 | bra L46
|
|---|
| 826 | L45:
|
|---|
| 827 | *line 517
|
|---|
| 828 | *line 518
|
|---|
| 829 | *line 519
|
|---|
| 830 | *line 520
|
|---|
| 831 | *line 521
|
|---|
| 832 | *line 522
|
|---|
| 833 | move.l #_cmgtype,R8
|
|---|
| 834 | tst.b 0(R8,R4)
|
|---|
| 835 | beq L47
|
|---|
| 836 | *line 523
|
|---|
| 837 | move.b 7(R11),R0
|
|---|
| 838 | ext.w R0
|
|---|
| 839 | and #240,R0
|
|---|
| 840 | move R6,R9
|
|---|
| 841 | add.l R9,R9
|
|---|
| 842 | add.l #_grptmap,R9
|
|---|
| 843 | move (R9),R1
|
|---|
| 844 | or R1,R0
|
|---|
| 845 | move.b R0,7(R11)
|
|---|
| 846 | *line 524
|
|---|
| 847 | bra L48
|
|---|
| 848 | L47:
|
|---|
| 849 | *line 525
|
|---|
| 850 | *line 526
|
|---|
| 851 | move.b 6(R11),R0
|
|---|
| 852 | ext.w R0
|
|---|
| 853 | and #240,R0
|
|---|
| 854 | move R6,R9
|
|---|
| 855 | add.l R9,R9
|
|---|
| 856 | add.l #_grptmap,R9
|
|---|
| 857 | move (R9),R1
|
|---|
| 858 | or R1,R0
|
|---|
| 859 | move.b R0,6(R11)
|
|---|
| 860 | L48:L46:L44:
|
|---|
| 861 | *line 527
|
|---|
| 862 | *line 528
|
|---|
| 863 | *line 529
|
|---|
| 864 | *line 530
|
|---|
| 865 | *line 531
|
|---|
| 866 | L39:
|
|---|
| 867 | *line 532
|
|---|
| 868 | *line 532
|
|---|
| 869 | move.l R12,R0
|
|---|
| 870 | beq L49
|
|---|
| 871 | *line 533
|
|---|
| 872 | *line 534
|
|---|
| 873 | move.l R11,12(R12)
|
|---|
| 874 | *line 535
|
|---|
| 875 | bra L50
|
|---|
| 876 | L49:
|
|---|
| 877 | *line 536
|
|---|
| 878 | *line 537
|
|---|
| 879 | *line 538
|
|---|
| 880 | *line 539
|
|---|
| 881 | move.l R11,-8(R14)
|
|---|
| 882 | L50:
|
|---|
| 883 | *line 540
|
|---|
| 884 | *line 541
|
|---|
| 885 | *line 542
|
|---|
| 886 | move.l R12,8(R11)
|
|---|
| 887 | *line 543
|
|---|
| 888 | clr.l 12(R11)
|
|---|
| 889 | *line 544
|
|---|
| 890 | sub.l R3,(R11)
|
|---|
| 891 | *line 545
|
|---|
| 892 | move.l R11,R12
|
|---|
| 893 | *line 546
|
|---|
| 894 | *line 547
|
|---|
| 895 | L38:
|
|---|
| 896 | *line 548
|
|---|
| 897 | move.l 12(R13),R13
|
|---|
| 898 | L37:
|
|---|
| 899 | *line 549
|
|---|
| 900 | bra L36
|
|---|
| 901 | L35:
|
|---|
| 902 | *line 551
|
|---|
| 903 | move.l -8(R14),_p_cbgn
|
|---|
| 904 | *line 552
|
|---|
| 905 | move.l R11,_p_cend
|
|---|
| 906 | *line 554
|
|---|
| 907 | *line 554
|
|---|
| 908 | tst.l -8(R14)
|
|---|
| 909 | beq L51
|
|---|
| 910 | *line 555
|
|---|
| 911 | *line 556
|
|---|
| 912 | *line 557
|
|---|
| 913 | move.l -8(R14),R8
|
|---|
| 914 | move.l (R8),_t_cbgn
|
|---|
| 915 | *line 558
|
|---|
| 916 | move.l (R11),_t_cend
|
|---|
| 917 | *line 559
|
|---|
| 918 | *line 560
|
|---|
| 919 | L51:
|
|---|
| 920 | *line 562
|
|---|
| 921 | move.l -8(R14),R0
|
|---|
| 922 | bra L34
|
|---|
| 923 | L34:tst.l (sp)+
|
|---|
| 924 | movem.l (sp)+,R3-R7/R11-R13
|
|---|
| 925 | unlk R14
|
|---|
| 926 | rts
|
|---|
| 927 | .globl _ehfix
|
|---|
| 928 | .text
|
|---|
| 929 | _ehfix:
|
|---|
| 930 | ~~ehfix:
|
|---|
| 931 | ~cbp=R13
|
|---|
| 932 | ~cep=R12
|
|---|
| 933 | link R14,#0
|
|---|
| 934 | movem.l R6-R7/R12-R13,-(sp)
|
|---|
| 935 | ~et=R7
|
|---|
| 936 | *line 582
|
|---|
| 937 | move.l 8(R14),R13
|
|---|
| 938 | *line 582
|
|---|
| 939 | move.l 12(R14),R12
|
|---|
| 940 | L55:
|
|---|
| 941 | *line 583
|
|---|
| 942 | *line 584
|
|---|
| 943 | move.b 5(R13),R7
|
|---|
| 944 | ext.w R7
|
|---|
| 945 | and #127,R7
|
|---|
| 946 | *line 585
|
|---|
| 947 | *line 586
|
|---|
| 948 | *line 587
|
|---|
| 949 | *line 588
|
|---|
| 950 | *line 589
|
|---|
| 951 | move R7,R8
|
|---|
| 952 | add.l R8,R8
|
|---|
| 953 | add.l #_ehdlist,R8
|
|---|
| 954 | cmp #-1,(R8)
|
|---|
| 955 | beq L56
|
|---|
| 956 | *line 589
|
|---|
| 957 | move R7,R8
|
|---|
| 958 | add.l R8,R8
|
|---|
| 959 | move.l #_ehdlist,R9
|
|---|
| 960 | move 0(R8,R9.l),(sp)
|
|---|
| 961 | move.l R13,-(sp)
|
|---|
| 962 | jsr _eh_ins
|
|---|
| 963 | addq.l #4,sp
|
|---|
| 964 | *line 590
|
|---|
| 965 | L56:
|
|---|
| 966 | *line 591
|
|---|
| 967 | *line 592
|
|---|
| 968 | cmp.l R12,R13
|
|---|
| 969 | beq L52
|
|---|
| 970 | *line 593
|
|---|
| 971 | *line 594
|
|---|
| 972 | move.l 12(R13),R13
|
|---|
| 973 | L54:bra L55
|
|---|
| 974 | L53:L52:tst.l (sp)+
|
|---|
| 975 | movem.l (sp)+,R7-R7/R12-R13
|
|---|
| 976 | unlk R14
|
|---|
| 977 | rts
|
|---|
| 978 | .data
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
