1 .globl _low 2 .comm _low,2 3 .globl _high 4 .comm _high,2 5 .globl _err 6 .comm _err,2 7 .globl _globali 8 00000000 .data 9 _globali: 10 00000000 8000 .dc.w -32768 11 .globl _globalu 12 00000002 .data 13 _globalu: 14 00000002 D420 .dc.w -11232 15 .globl _main 16 00000000 .text 17 _main: 18 ~~main: 19 00000000 4E56FFFC link R14,#-4 20 *line 19 21 00000004 6130 jsr _l_vs_i 22 *line 20 23 00000006 4EB8028A jsr _rl_vs_i 24 *line 21 25 0000000A 4EB803F2 jsr _l_vs_ri 26 *line 22 27 0000000E 4EB80626 jsr _rl_vs_ri 28 *line 23 29 00000012 4EB80762 jsr _v41 30 *line 25 31 00000016 4A780000 tst _err 32 0000001A 660C bne L2 33 *line 25 34 0000001C 2EBC00000004 move.l #L3,(sp) 35 00000022 4EB80000 jsr _printf 36 00000026 600A bra L4 37 L2: 38 *line 27 39 00000028 2EBC00000016 move.l #L5,(sp) 40 0000002E 4EB80000 jsr _printf 41 00000032 4E5E L4:L1:unlk R14 42 00000034 4E75 rts 43 .globl _l_vs_i 44 00000036 .text 45 _l_vs_i: 46 ~~l_vs_i: 47 ~autol=-4 48 ~autol1=-8 49 ~i=-10 50 00000036 4E56FFF2 link R14,#-14 51 *line 35 52 0000003A 3D7C0003FFF6 move #3,-10(R14) 53 *line 36 54 00000040 7064 move #100,R0 55 00000042 48C0 ext.l R0 56 00000044 2D40FFF8 move.l R0,-8(R14) 57 00000048 2D40FFFC move.l R0,-4(R14) 58 *line 37 59 0000004C 302EFFF6 move -10(R14),R0 60 00000050 48C0 ext.l R0 61 00000052 2F00 move.l R0,-(sp) 62 00000054 2F2EFFF8 move.l -8(R14),-(sp) 63 00000058 4EB80000 jsr lmul 64 0000005C 508F addq.l #8,sp 65 0000005E 2D40FFF8 move.l R0,-8(R14) 66 *line 38 67 00000062 302EFFF6 move -10(R14),R0 68 00000066 48C0 ext.l R0 69 00000068 2F00 move.l R0,-(sp) 70 0000006A 2F2EFFFC move.l -4(R14),-(sp) 71 0000006E 4EB80000 jsr lmul 72 00000072 508F addq.l #8,sp 73 00000074 2D40FFFC move.l R0,-4(R14) 74 *line 39 75 00000078 202EFFF8 move.l -8(R14),R0 76 0000007C B0AEFFFC cmp.l -4(R14),R0 77 00000080 6706 beq L7 78 *line 39 79 00000082 4257 clr (sp) 80 00000084 4EB807F8 jsr _error 81 L7: 82 *line 41 83 00000088 7064 move #100,R0 84 0000008A 48C0 ext.l R0 85 0000008C 2D40FFF8 move.l R0,-8(R14) 86 00000090 2D40FFFC move.l R0,-4(R14) 87 *line 42 88 00000094 202EFFF8 move.l -8(R14),R0 89 00000098 81EEFFF6 divs -10(R14),R0 90 0000009C 48C0 ext.l R0 91 0000009E 2D40FFF8 move.l R0,-8(R14) 92 *line 43 93 000000A2 202EFFFC move.l -4(R14),R0 94 000000A6 81EEFFF6 divs -10(R14),R0 95 000000AA 48C0 ext.l R0 96 000000AC 2D40FFFC move.l R0,-4(R14) 97 *line 44 98 000000B0 202EFFF8 move.l -8(R14),R0 99 000000B4 B0AEFFFC cmp.l -4(R14),R0 100 000000B8 6708 beq L8 101 *line 44 102 000000BA 3EBC0001 move #1,(sp) 103 000000BE 4EB807F8 jsr _error 104 L8: 105 *line 46 106 000000C2 7064 move #100,R0 107 000000C4 48C0 ext.l R0 108 000000C6 2D40FFF8 move.l R0,-8(R14) 109 000000CA 2D40FFFC move.l R0,-4(R14) 110 *line 47 111 000000CE 302EFFF6 move -10(R14),R0 112 000000D2 48C0 ext.l R0 113 000000D4 D1AEFFF8 add.l R0,-8(R14) 114 *line 48 115 000000D8 302EFFF6 move -10(R14),R0 116 000000DC 48C0 ext.l R0 117 000000DE D0AEFFFC add.l -4(R14),R0 118 000000E2 2D40FFFC move.l R0,-4(R14) 119 *line 49 120 000000E6 202EFFF8 move.l -8(R14),R0 121 000000EA B0AEFFFC cmp.l -4(R14),R0 122 000000EE 6708 beq L9 123 *line 49 124 000000F0 3EBC0002 move #2,(sp) 125 000000F4 4EB807F8 jsr _error 126 L9: 127 *line 51 128 000000F8 7064 move #100,R0 129 000000FA 48C0 ext.l R0 130 000000FC 2D40FFF8 move.l R0,-8(R14) 131 00000100 2D40FFFC move.l R0,-4(R14) 132 *line 52 133 00000104 302EFFF6 move -10(R14),R0 134 00000108 48C0 ext.l R0 135 0000010A 91AEFFF8 sub.l R0,-8(R14) 136 *line 53 137 0000010E 202EFFFC move.l -4(R14),R0 138 00000112 322EFFF6 move -10(R14),R1 139 00000116 48C1 ext.l R1 140 00000118 9081 sub.l R1,R0 141 0000011A 2D40FFFC move.l R0,-4(R14) 142 *line 54 143 0000011E 202EFFF8 move.l -8(R14),R0 144 00000122 B0AEFFFC cmp.l -4(R14),R0 145 00000126 6708 beq L10 146 *line 54 147 00000128 3EBC0003 move #3,(sp) 148 0000012C 4EB807F8 jsr _error 149 L10: 150 *line 56 151 00000130 7064 move #100,R0 152 00000132 48C0 ext.l R0 153 00000134 2D40FFF8 move.l R0,-8(R14) 154 00000138 2D40FFFC move.l R0,-4(R14) 155 *line 57 156 0000013C 202EFFF8 move.l -8(R14),R0 157 00000140 81EEFFF6 divs -10(R14),R0 158 00000144 4840 swap R0 159 00000146 48C0 ext.l R0 160 00000148 2D40FFF8 move.l R0,-8(R14) 161 *line 58 162 0000014C 202EFFFC move.l -4(R14),R0 163 00000150 81EEFFF6 divs -10(R14),R0 164 00000154 4840 swap R0 165 00000156 48C0 ext.l R0 166 00000158 2D40FFFC move.l R0,-4(R14) 167 *line 59 168 0000015C 202EFFF8 move.l -8(R14),R0 169 00000160 B0AEFFFC cmp.l -4(R14),R0 170 00000164 6708 beq L11 171 *line 59 172 00000166 3EBC0004 move #4,(sp) 173 0000016A 4EB807F8 jsr _error 174 L11: 175 *line 61 176 0000016E 7064 move #100,R0 177 00000170 48C0 ext.l R0 178 00000172 2D40FFF8 move.l R0,-8(R14) 179 00000176 2D40FFFC move.l R0,-4(R14) 180 *line 62 181 0000017A 322EFFF6 move -10(R14),R1 182 0000017E 202EFFF8 move.l -8(R14),R0 183 00000182 E3A0 asl.l R1,R0 184 00000184 2D40FFF8 move.l R0,-8(R14) 185 *line 63 186 00000188 202EFFFC move.l -4(R14),R0 187 0000018C 322EFFF6 move -10(R14),R1 188 00000190 E3A0 asl.l R1,R0 189 00000192 2D40FFFC move.l R0,-4(R14) 190 *line 64 191 00000196 202EFFF8 move.l -8(R14),R0 192 0000019A B0AEFFFC cmp.l -4(R14),R0 193 0000019E 6708 beq L12 194 *line 64 195 000001A0 3EBC0005 move #5,(sp) 196 000001A4 4EB807F8 jsr _error 197 L12: 198 *line 66 199 000001A8 7064 move #100,R0 200 000001AA 48C0 ext.l R0 201 000001AC 2D40FFF8 move.l R0,-8(R14) 202 000001B0 2D40FFFC move.l R0,-4(R14) 203 *line 67 204 000001B4 322EFFF6 move -10(R14),R1 205 000001B8 202EFFF8 move.l -8(R14),R0 206 000001BC E2A0 asr.l R1,R0 207 000001BE 2D40FFF8 move.l R0,-8(R14) 208 *line 68 209 000001C2 202EFFFC move.l -4(R14),R0 210 000001C6 322EFFF6 move -10(R14),R1 211 000001CA E2A0 asr.l R1,R0 212 000001CC 2D40FFFC move.l R0,-4(R14) 213 *line 69 214 000001D0 202EFFF8 move.l -8(R14),R0 215 000001D4 B0AEFFFC cmp.l -4(R14),R0 216 000001D8 6708 beq L13 217 *line 69 218 000001DA 3EBC0006 move #6,(sp) 219 000001DE 4EB807F8 jsr _error 220 L13: 221 *line 71 222 000001E2 7064 move #100,R0 223 000001E4 48C0 ext.l R0 224 000001E6 2D40FFF8 move.l R0,-8(R14) 225 000001EA 2D40FFFC move.l R0,-4(R14) 226 *line 72 227 000001EE 302EFFF6 move -10(R14),R0 228 000001F2 48C0 ext.l R0 229 000001F4 C1AEFFF8 and.l R0,-8(R14) 230 *line 73 231 000001F8 302EFFF6 move -10(R14),R0 232 000001FC 48C0 ext.l R0 233 000001FE C0AEFFFC and.l -4(R14),R0 234 00000202 2D40FFFC move.l R0,-4(R14) 235 *line 74 236 00000206 202EFFF8 move.l -8(R14),R0 237 0000020A B0AEFFFC cmp.l -4(R14),R0 238 0000020E 6708 beq L14 239 *line 74 240 00000210 3EBC0007 move #7,(sp) 241 00000214 4EB807F8 jsr _error 242 L14: 243 *line 76 244 00000218 7064 move #100,R0 245 0000021A 48C0 ext.l R0 246 0000021C 2D40FFF8 move.l R0,-8(R14) 247 00000220 2D40FFFC move.l R0,-4(R14) 248 *line 77 249 00000224 302EFFF6 move -10(R14),R0 250 00000228 48C0 ext.l R0 251 0000022A 81AEFFF8 or.l R0,-8(R14) 252 *line 78 253 0000022E 302EFFF6 move -10(R14),R0 254 00000232 48C0 ext.l R0 255 00000234 80AEFFFC or.l -4(R14),R0 256 00000238 2D40FFFC move.l R0,-4(R14) 257 *line 79 258 0000023C 202EFFF8 move.l -8(R14),R0 259 00000240 B0AEFFFC cmp.l -4(R14),R0 260 00000244 6708 beq L15 261 *line 79 262 00000246 3EBC0008 move #8,(sp) 263 0000024A 4EB807F8 jsr _error 264 L15: 265 *line 81 266 0000024E 7064 move #100,R0 267 00000250 48C0 ext.l R0 268 00000252 2D40FFF8 move.l R0,-8(R14) 269 00000256 2D40FFFC move.l R0,-4(R14) 270 *line 82 271 0000025A 302EFFF6 move -10(R14),R0 272 0000025E 48C0 ext.l R0 273 00000260 B1AEFFF8 eor.l R0,-8(R14) 274 *line 83 275 00000264 302EFFF6 move -10(R14),R0 276 00000268 48C0 ext.l R0 277 0000026A 222EFFFC move.l -4(R14),R1 278 0000026E B380 eor.l R1,R0 279 00000270 2D40FFFC move.l R0,-4(R14) 280 *line 84 281 00000274 202EFFF8 move.l -8(R14),R0 282 00000278 B0AEFFFC cmp.l -4(R14),R0 283 0000027C 6708 beq L16 284 *line 84 285 0000027E 3EBC0009 move #9,(sp) 286 00000282 4EB807F8 jsr _error 287 00000286 4E5E L16:L6:unlk R14 288 00000288 4E75 rts 289 .globl _rl_vs_i 290 0000028A .text 291 _rl_vs_i: 292 ~~rl_vs_i: 293 ~i=-2 294 ~regl=R7 295 ~regl1=R6 296 0000028A 4E56FFFE link R14,#-2 297 0000028E 48E70700 movem.lR5-R7,-(sp) 298 *line 92 299 00000292 3D7C0003FFFE move #3,-2(R14) 300 *line 93 301 00000298 7C64 move.l #100,R6 302 0000029A 2E06 move.l R6,R7 303 *line 94 304 0000029C 302EFFFE move -2(R14),R0 305 000002A0 48C0 ext.l R0 306 000002A2 2F00 move.l R0,-(sp) 307 000002A4 2F06 move.l R6,-(sp) 308 000002A6 4EB80000 jsr lmul 309 000002AA 508F addq.l #8,sp 310 000002AC 2C00 move.l R0,R6 311 *line 95 312 000002AE 302EFFFE move -2(R14),R0 313 000002B2 48C0 ext.l R0 314 000002B4 2F00 move.l R0,-(sp) 315 000002B6 2F07 move.l R7,-(sp) 316 000002B8 4EB80000 jsr lmul 317 000002BC 508F addq.l #8,sp 318 000002BE 2E00 move.l R0,R7 319 *line 96 320 000002C0 BC87 cmp.l R7,R6 321 000002C2 6708 beq L18 322 *line 96 323 000002C4 3EBC0010 move #16,(sp) 324 000002C8 4EB807F8 jsr _error 325 L18: 326 *line 98 327 000002CC 7C64 move.l #100,R6 328 000002CE 2E06 move.l R6,R7 329 *line 99 330 000002D0 8DEEFFFE divs -2(R14),R6 331 000002D4 48C6 ext.l R6 332 *line 100 333 000002D6 8FEEFFFE divs -2(R14),R7 334 000002DA 48C7 ext.l R7 335 *line 101 336 000002DC BC87 cmp.l R7,R6 337 000002DE 6708 beq L19 338 *line 101 339 000002E0 3EBC0011 move #17,(sp) 340 000002E4 4EB807F8 jsr _error 341 L19: 342 *line 103 343 000002E8 7C64 move.l #100,R6 344 000002EA 2E06 move.l R6,R7 345 *line 104 346 000002EC 302EFFFE move -2(R14),R0 347 000002F0 48C0 ext.l R0 348 000002F2 DC80 add.l R0,R6 349 *line 105 350 000002F4 302EFFFE move -2(R14),R0 351 000002F8 48C0 ext.l R0 352 000002FA DE80 add.l R0,R7 353 *line 106 354 000002FC BC87 cmp.l R7,R6 355 000002FE 6708 beq L20 356 *line 106 357 00000300 3EBC0012 move #18,(sp) 358 00000304 4EB807F8 jsr _error 359 L20: 360 *line 108 361 00000308 7C64 move.l #100,R6 362 0000030A 2E06 move.l R6,R7 363 *line 109 364 0000030C 302EFFFE move -2(R14),R0 365 00000310 48C0 ext.l R0 366 00000312 9C80 sub.l R0,R6 367 *line 110 368 00000314 302EFFFE move -2(R14),R0 369 00000318 48C0 ext.l R0 370 0000031A 9E80 sub.l R0,R7 371 *line 111 372 0000031C BC87 cmp.l R7,R6 373 0000031E 6708 beq L21 374 *line 111 375 00000320 3EBC0013 move #19,(sp) 376 00000324 4EB807F8 jsr _error 377 L21: 378 *line 113 379 00000328 7C64 move.l #100,R6 380 0000032A 2E06 move.l R6,R7 381 *line 114 382 0000032C 8DEEFFFE divs -2(R14),R6 383 00000330 4846 swap R6 384 00000332 48C6 ext.l R6 385 *line 115 386 00000334 8FEEFFFE divs -2(R14),R7 387 00000338 4847 swap R7 388 0000033A 48C7 ext.l R7 389 *line 116 390 0000033C BC87 cmp.l R7,R6 391 0000033E 6708 beq L22 392 *line 116 393 00000340 3EBC0014 move #20,(sp) 394 00000344 4EB807F8 jsr _error 395 L22: 396 *line 118 397 00000348 7C64 move.l #100,R6 398 0000034A 2E06 move.l R6,R7 399 *line 119 400 0000034C 4280 clr.l R0 401 0000034E 302EFFFE move -2(R14),R0 402 00000352 E1A6 asl.l R0,R6 403 *line 120 404 00000354 4280 clr.l R0 405 00000356 302EFFFE move -2(R14),R0 406 0000035A E1A7 asl.l R0,R7 407 *line 121 408 0000035C BC87 cmp.l R7,R6 409 0000035E 6708 beq L23 410 *line 121 411 00000360 3EBC0015 move #21,(sp) 412 00000364 4EB807F8 jsr _error 413 L23: 414 *line 123 415 00000368 7C64 move.l #100,R6 416 0000036A 2E06 move.l R6,R7 417 *line 124 418 0000036C 4280 clr.l R0 419 0000036E 302EFFFE move -2(R14),R0 420 00000372 E0A6 asr.l R0,R6 421 *line 125 422 00000374 4280 clr.l R0 423 00000376 302EFFFE move -2(R14),R0 424 0000037A E0A7 asr.l R0,R7 425 *line 126 426 0000037C BC87 cmp.l R7,R6 427 0000037E 6708 beq L24 428 *line 126 429 00000380 3EBC0016 move #22,(sp) 430 00000384 4EB807F8 jsr _error 431 L24: 432 *line 128 433 00000388 7C64 move.l #100,R6 434 0000038A 2E06 move.l R6,R7 435 *line 129 436 0000038C 302EFFFE move -2(R14),R0 437 00000390 48C0 ext.l R0 438 00000392 CC80 and.l R0,R6 439 *line 130 440 00000394 302EFFFE move -2(R14),R0 441 00000398 48C0 ext.l R0 442 0000039A CE80 and.l R0,R7 443 *line 131 444 0000039C BC87 cmp.l R7,R6 445 0000039E 6708 beq L25 446 *line 131 447 000003A0 3EBC0017 move #23,(sp) 448 000003A4 4EB807F8 jsr _error 449 L25: 450 *line 133 451 000003A8 7C64 move.l #100,R6 452 000003AA 2E06 move.l R6,R7 453 *line 134 454 000003AC 302EFFFE move -2(R14),R0 455 000003B0 48C0 ext.l R0 456 000003B2 8C80 or.l R0,R6 457 *line 135 458 000003B4 302EFFFE move -2(R14),R0 459 000003B8 48C0 ext.l R0 460 000003BA 8E80 or.l R0,R7 461 *line 136 462 000003BC BC87 cmp.l R7,R6 463 000003BE 6708 beq L26 464 *line 136 465 000003C0 3EBC0018 move #24,(sp) 466 000003C4 4EB807F8 jsr _error 467 L26: 468 *line 138 469 000003C8 7C64 move.l #100,R6 470 000003CA 2E06 move.l R6,R7 471 *line 139 472 000003CC 302EFFFE move -2(R14),R0 473 000003D0 48C0 ext.l R0 474 000003D2 B186 eor.l R0,R6 475 *line 140 476 000003D4 302EFFFE move -2(R14),R0 477 000003D8 48C0 ext.l R0 478 000003DA B187 eor.l R0,R7 479 *line 141 480 000003DC BC87 cmp.l R7,R6 481 000003DE 6708 beq L27 482 *line 141 483 000003E0 3EBC0019 move #25,(sp) 484 000003E4 4EB807F8 jsr _error 485 000003E8 4A9F L27:L17:tst.l (sp)+ 486 000003EA 4CDF00C0 movem.l(sp)+,R6-R7 487 000003EE 4E5E unlk R14 488 000003F0 4E75 rts 489 .globl _l_vs_ri 490 000003F2 .text 491 _l_vs_ri: 492 ~~l_vs_ri: 493 ~autol=-4 494 ~autol1=-8 495 ~i=R7 496 000003F2 4E56FFF8 link R14,#-8 497 000003F6 48E70300 movem.lR6-R7,-(sp) 498 *line 149 499 000003FA 7E02 move #2,R7 500 *line 150 501 000003FC 7064 move #100,R0 502 000003FE 48C0 ext.l R0 503 00000400 2D40FFF8 move.l R0,-8(R14) 504 00000404 2D40FFFC move.l R0,-4(R14) 505 *line 151 506 00000408 3007 move R7,R0 507 0000040A 48C0 ext.l R0 508 0000040C 2F00 move.l R0,-(sp) 509 0000040E 2F2EFFF8 move.l -8(R14),-(sp) 510 00000412 4EB80000 jsr lmul 511 00000416 508F addq.l #8,sp 512 00000418 2D40FFF8 move.l R0,-8(R14) 513 *line 152 514 0000041C 3007 move R7,R0 515 0000041E 48C0 ext.l R0 516 00000420 2F00 move.l R0,-(sp) 517 00000422 2F2EFFFC move.l -4(R14),-(sp) 518 00000426 4EB80000 jsr lmul 519 0000042A 508F addq.l #8,sp 520 0000042C 2D40FFFC move.l R0,-4(R14) 521 *line 153 522 00000430 202EFFF8 move.l -8(R14),R0 523 00000434 B0AEFFFC cmp.l -4(R14),R0 524 00000438 6708 beq L29 525 *line 153 526 0000043A 3EBC0020 move #32,(sp) 527 0000043E 4EB807F8 jsr _error 528 L29: 529 *line 155 530 00000442 7064 move #100,R0 531 00000444 48C0 ext.l R0 532 00000446 2D40FFF8 move.l R0,-8(R14) 533 0000044A 2D40FFFC move.l R0,-4(R14) 534 *line 156 535 0000044E 202EFFF8 move.l -8(R14),R0 536 00000452 81C7 divs R7,R0 537 00000454 48C0 ext.l R0 538 00000456 2D40FFF8 move.l R0,-8(R14) 539 *line 157 540 0000045A 202EFFFC move.l -4(R14),R0 541 0000045E 81C7 divs R7,R0 542 00000460 48C0 ext.l R0 543 00000462 2D40FFFC move.l R0,-4(R14) 544 *line 158 545 00000466 202EFFF8 move.l -8(R14),R0 546 0000046A B0AEFFFC cmp.l -4(R14),R0 547 0000046E 6708 beq L30 548 *line 158 549 00000470 3EBC0021 move #33,(sp) 550 00000474 4EB807F8 jsr _error 551 L30: 552 *line 160 553 00000478 7064 move #100,R0 554 0000047A 48C0 ext.l R0 555 0000047C 2D40FFF8 move.l R0,-8(R14) 556 00000480 2D40FFFC move.l R0,-4(R14) 557 *line 161 558 00000484 3007 move R7,R0 559 00000486 48C0 ext.l R0 560 00000488 D1AEFFF8 add.l R0,-8(R14) 561 *line 162 562 0000048C 3007 move R7,R0 563 0000048E 48C0 ext.l R0 564 00000490 D0AEFFFC add.l -4(R14),R0 565 00000494 2D40FFFC move.l R0,-4(R14) 566 *line 163 567 00000498 202EFFF8 move.l -8(R14),R0 568 0000049C B0AEFFFC cmp.l -4(R14),R0 569 000004A0 6708 beq L31 570 *line 163 571 000004A2 3EBC0022 move #34,(sp) 572 000004A6 4EB807F8 jsr _error 573 L31: 574 *line 165 575 000004AA 7064 move #100,R0 576 000004AC 48C0 ext.l R0 577 000004AE 2D40FFF8 move.l R0,-8(R14) 578 000004B2 2D40FFFC move.l R0,-4(R14) 579 *line 166 580 000004B6 3007 move R7,R0 581 000004B8 48C0 ext.l R0 582 000004BA 91AEFFF8 sub.l R0,-8(R14) 583 *line 167 584 000004BE 202EFFFC move.l -4(R14),R0 585 000004C2 3207 move R7,R1 586 000004C4 48C1 ext.l R1 587 000004C6 9081 sub.l R1,R0 588 000004C8 2D40FFFC move.l R0,-4(R14) 589 *line 168 590 000004CC 202EFFF8 move.l -8(R14),R0 591 000004D0 B0AEFFFC cmp.l -4(R14),R0 592 000004D4 6708 beq L32 593 *line 168 594 000004D6 3EBC0023 move #35,(sp) 595 000004DA 4EB807F8 jsr _error 596 L32: 597 *line 170 598 000004DE 7064 move #100,R0 599 000004E0 48C0 ext.l R0 600 000004E2 2D40FFF8 move.l R0,-8(R14) 601 000004E6 2D40FFFC move.l R0,-4(R14) 602 *line 171 603 000004EA 202EFFF8 move.l -8(R14),R0 604 000004EE 81C7 divs R7,R0 605 000004F0 4840 swap R0 606 000004F2 48C0 ext.l R0 607 000004F4 2D40FFF8 move.l R0,-8(R14) 608 *line 172 609 000004F8 202EFFFC move.l -4(R14),R0 610 000004FC 81C7 divs R7,R0 611 000004FE 4840 swap R0 612 00000500 48C0 ext.l R0 613 00000502 2D40FFFC move.l R0,-4(R14) 614 *line 173 615 00000506 202EFFF8 move.l -8(R14),R0 616 0000050A B0AEFFFC cmp.l -4(R14),R0 617 0000050E 6708 beq L33 618 *line 173 619 00000510 3EBC0024 move #36,(sp) 620 00000514 4EB807F8 jsr _error 621 L33: 622 *line 175 623 00000518 7064 move #100,R0 624 0000051A 48C0 ext.l R0 625 0000051C 2D40FFF8 move.l R0,-8(R14) 626 00000520 2D40FFFC move.l R0,-4(R14) 627 *line 176 628 00000524 3207 move R7,R1 629 00000526 202EFFF8 move.l -8(R14),R0 630 0000052A E3A0 asl.l R1,R0 631 0000052C 2D40FFF8 move.l R0,-8(R14) 632 *line 177 633 00000530 202EFFFC move.l -4(R14),R0 634 00000534 3207 move R7,R1 635 00000536 E3A0 asl.l R1,R0 636 00000538 2D40FFFC move.l R0,-4(R14) 637 *line 178 638 0000053C 202EFFF8 move.l -8(R14),R0 639 00000540 B0AEFFFC cmp.l -4(R14),R0 640 00000544 6708 beq L34 641 *line 178 642 00000546 3EBC0025 move #37,(sp) 643 0000054A 4EB807F8 jsr _error 644 L34: 645 *line 180 646 0000054E 7064 move #100,R0 647 00000550 48C0 ext.l R0 648 00000552 2D40FFF8 move.l R0,-8(R14) 649 00000556 2D40FFFC move.l R0,-4(R14) 650 *line 181 651 0000055A 3207 move R7,R1 652 0000055C 202EFFF8 move.l -8(R14),R0 653 00000560 E2A0 asr.l R1,R0 654 00000562 2D40FFF8 move.l R0,-8(R14) 655 *line 182 656 00000566 202EFFFC move.l -4(R14),R0 657 0000056A 3207 move R7,R1 658 0000056C E2A0 asr.l R1,R0 659 0000056E 2D40FFFC move.l R0,-4(R14) 660 *line 183 661 00000572 202EFFF8 move.l -8(R14),R0 662 00000576 B0AEFFFC cmp.l -4(R14),R0 663 0000057A 6708 beq L35 664 *line 183 665 0000057C 3EBC0026 move #38,(sp) 666 00000580 4EB807F8 jsr _error 667 L35: 668 *line 185 669 00000584 7064 move #100,R0 670 00000586 48C0 ext.l R0 671 00000588 2D40FFF8 move.l R0,-8(R14) 672 0000058C 2D40FFFC move.l R0,-4(R14) 673 *line 186 674 00000590 3007 move R7,R0 675 00000592 48C0 ext.l R0 676 00000594 C1AEFFF8 and.l R0,-8(R14) 677 *line 187 678 00000598 3007 move R7,R0 679 0000059A 48C0 ext.l R0 680 0000059C C0AEFFFC and.l -4(R14),R0 681 000005A0 2D40FFFC move.l R0,-4(R14) 682 *line 188 683 000005A4 202EFFF8 move.l -8(R14),R0 684 000005A8 B0AEFFFC cmp.l -4(R14),R0 685 000005AC 6708 beq L36 686 *line 188 687 000005AE 3EBC0027 move #39,(sp) 688 000005B2 4EB807F8 jsr _error 689 L36: 690 *line 190 691 000005B6 7064 move #100,R0 692 000005B8 48C0 ext.l R0 693 000005BA 2D40FFF8 move.l R0,-8(R14) 694 000005BE 2D40FFFC move.l R0,-4(R14) 695 *line 191 696 000005C2 3007 move R7,R0 697 000005C4 48C0 ext.l R0 698 000005C6 81AEFFF8 or.l R0,-8(R14) 699 *line 192 700 000005CA 3007 move R7,R0 701 000005CC 48C0 ext.l R0 702 000005CE 80AEFFFC or.l -4(R14),R0 703 000005D2 2D40FFFC move.l R0,-4(R14) 704 *line 193 705 000005D6 202EFFF8 move.l -8(R14),R0 706 000005DA B0AEFFFC cmp.l -4(R14),R0 707 000005DE 6708 beq L37 708 *line 193 709 000005E0 3EBC0028 move #40,(sp) 710 000005E4 4EB807F8 jsr _error 711 L37: 712 *line 195 713 000005E8 7064 move #100,R0 714 000005EA 48C0 ext.l R0 715 000005EC 2D40FFF8 move.l R0,-8(R14) 716 000005F0 2D40FFFC move.l R0,-4(R14) 717 *line 196 718 000005F4 3007 move R7,R0 719 000005F6 48C0 ext.l R0 720 000005F8 B1AEFFF8 eor.l R0,-8(R14) 721 *line 197 722 000005FC 3007 move R7,R0 723 000005FE 48C0 ext.l R0 724 00000600 222EFFFC move.l -4(R14),R1 725 00000604 B380 eor.l R1,R0 726 00000606 2D40FFFC move.l R0,-4(R14) 727 *line 198 728 0000060A 202EFFF8 move.l -8(R14),R0 729 0000060E B0AEFFFC cmp.l -4(R14),R0 730 00000612 6708 beq L38 731 *line 198 732 00000614 3EBC0029 move #41,(sp) 733 00000618 4EB807F8 jsr _error 734 0000061C 4A9F L38:L28:tst.l (sp)+ 735 0000061E 4CDF0080 movem.l(sp)+,R7-R7 736 00000622 4E5E unlk R14 737 00000624 4E75 rts 738 .globl _rl_vs_ri 739 00000626 .text 740 _rl_vs_ri: 741 ~~rl_vs_ri: 742 ~i=R5 743 ~regl=R7 744 ~regl1=R6 745 00000626 4E560000 link R14,#0 746 0000062A 48E70F00 movem.lR4-R7,-(sp) 747 *line 206 748 0000062E 7A03 move #3,R5 749 *line 207 750 00000630 7C64 move.l #100,R6 751 00000632 2E06 move.l R6,R7 752 *line 208 753 00000634 3005 move R5,R0 754 00000636 48C0 ext.l R0 755 00000638 2F00 move.l R0,-(sp) 756 0000063A 2F06 move.l R6,-(sp) 757 0000063C 4EB80000 jsr lmul 758 00000640 508F addq.l #8,sp 759 00000642 2C00 move.l R0,R6 760 *line 209 761 00000644 3005 move R5,R0 762 00000646 48C0 ext.l R0 763 00000648 2F00 move.l R0,-(sp) 764 0000064A 2F07 move.l R7,-(sp) 765 0000064C 4EB80000 jsr lmul 766 00000650 508F addq.l #8,sp 767 00000652 2E00 move.l R0,R7 768 *line 210 769 00000654 BC87 cmp.l R7,R6 770 00000656 6708 beq L40 771 *line 210 772 00000658 3EBC0030 move #48,(sp) 773 0000065C 4EB807F8 jsr _error 774 L40: 775 *line 212 776 00000660 7C64 move.l #100,R6 777 00000662 2E06 move.l R6,R7 778 *line 213 779 00000664 8DC5 divs R5,R6 780 00000666 48C6 ext.l R6 781 *line 214 782 00000668 8FC5 divs R5,R7 783 0000066A 48C7 ext.l R7 784 *line 215 785 0000066C BC87 cmp.l R7,R6 786 0000066E 6708 beq L41 787 *line 215 788 00000670 3EBC0031 move #49,(sp) 789 00000674 4EB807F8 jsr _error 790 L41: 791 *line 217 792 00000678 7C64 move.l #100,R6 793 0000067A 2E06 move.l R6,R7 794 *line 218 795 0000067C 3005 move R5,R0 796 0000067E 48C0 ext.l R0 797 00000680 DC80 add.l R0,R6 798 *line 219 799 00000682 3005 move R5,R0 800 00000684 48C0 ext.l R0 801 00000686 DE80 add.l R0,R7 802 *line 220 803 00000688 BC87 cmp.l R7,R6 804 0000068A 6708 beq L42 805 *line 220 806 0000068C 3EBC0032 move #50,(sp) 807 00000690 4EB807F8 jsr _error 808 L42: 809 *line 222 810 00000694 7C64 move.l #100,R6 811 00000696 2E06 move.l R6,R7 812 *line 223 813 00000698 3005 move R5,R0 814 0000069A 48C0 ext.l R0 815 0000069C 9C80 sub.l R0,R6 816 *line 224 817 0000069E 3005 move R5,R0 818 000006A0 48C0 ext.l R0 819 000006A2 9E80 sub.l R0,R7 820 *line 225 821 000006A4 BC87 cmp.l R7,R6 822 000006A6 6708 beq L43 823 *line 225 824 000006A8 3EBC0033 move #51,(sp) 825 000006AC 4EB807F8 jsr _error 826 L43: 827 *line 227 828 000006B0 7C64 move.l #100,R6 829 000006B2 2E06 move.l R6,R7 830 *line 228 831 000006B4 8DC5 divs R5,R6 832 000006B6 4846 swap R6 833 000006B8 48C6 ext.l R6 834 *line 229 835 000006BA 8FC5 divs R5,R7 836 000006BC 4847 swap R7 837 000006BE 48C7 ext.l R7 838 *line 230 839 000006C0 BC87 cmp.l R7,R6 840 000006C2 6708 beq L44 841 *line 230 842 000006C4 3EBC0034 move #52,(sp) 843 000006C8 4EB807F8 jsr _error 844 L44: 845 *line 232 846 000006CC 7C64 move.l #100,R6 847 000006CE 2E06 move.l R6,R7 848 *line 233 849 000006D0 4280 clr.l R0 850 000006D2 3005 move R5,R0 851 000006D4 E1A6 asl.l R0,R6 852 *line 234 853 000006D6 4280 clr.l R0 854 000006D8 3005 move R5,R0 855 000006DA E1A7 asl.l R0,R7 856 *line 235 857 000006DC BC87 cmp.l R7,R6 858 000006DE 6708 beq L45 859 *line 235 860 000006E0 3EBC0035 move #53,(sp) 861 000006E4 4EB807F8 jsr _error 862 L45: 863 *line 237 864 000006E8 7C64 move.l #100,R6 865 000006EA 2E06 move.l R6,R7 866 *line 238 867 000006EC 4280 clr.l R0 868 000006EE 3005 move R5,R0 869 000006F0 E0A6 asr.l R0,R6 870 *line 239 871 000006F2 4280 clr.l R0 872 000006F4 3005 move R5,R0 873 000006F6 E0A7 asr.l R0,R7 874 *line 240 875 000006F8 BC87 cmp.l R7,R6 876 000006FA 6708 beq L46 877 *line 240 878 000006FC 3EBC0036 move #54,(sp) 879 00000700 4EB807F8 jsr _error 880 L46: 881 *line 242 882 00000704 7C64 move.l #100,R6 883 00000706 2E06 move.l R6,R7 884 *line 243 885 00000708 3005 move R5,R0 886 0000070A 48C0 ext.l R0 887 0000070C CC80 and.l R0,R6 888 *line 244 889 0000070E 3005 move R5,R0 890 00000710 48C0 ext.l R0 891 00000712 CE80 and.l R0,R7 892 *line 245 893 00000714 BC87 cmp.l R7,R6 894 00000716 6708 beq L47 895 *line 245 896 00000718 3EBC0037 move #55,(sp) 897 0000071C 4EB807F8 jsr _error 898 L47: 899 *line 247 900 00000720 7C64 move.l #100,R6 901 00000722 2E06 move.l R6,R7 902 *line 248 903 00000724 3005 move R5,R0 904 00000726 48C0 ext.l R0 905 00000728 8C80 or.l R0,R6 906 *line 249 907 0000072A 3005 move R5,R0 908 0000072C 48C0 ext.l R0 909 0000072E 8E80 or.l R0,R7 910 *line 250 911 00000730 BC87 cmp.l R7,R6 912 00000732 6708 beq L48 913 *line 250 914 00000734 3EBC0038 move #56,(sp) 915 00000738 4EB807F8 jsr _error 916 L48: 917 *line 252 918 0000073C 7C64 move.l #100,R6 919 0000073E 2E06 move.l R6,R7 920 *line 253 921 00000740 3005 move R5,R0 922 00000742 48C0 ext.l R0 923 00000744 B186 eor.l R0,R6 924 *line 254 925 00000746 3005 move R5,R0 926 00000748 48C0 ext.l R0 927 0000074A B187 eor.l R0,R7 928 *line 255 929 0000074C BC87 cmp.l R7,R6 930 0000074E 6708 beq L49 931 *line 255 932 00000750 3EBC0039 move #57,(sp) 933 00000754 4EB807F8 jsr _error 934 00000758 4A9F L49:L39:tst.l (sp)+ 935 0000075A 4CDF00E0 movem.l(sp)+,R5-R7 936 0000075E 4E5E unlk R14 937 00000760 4E75 rts 938 .globl _v41 939 00000762 .text 940 _v41: 941 ~~v41: 942 ~l=-4 943 ~l1=-8 944 00000762 4E56FFF4 link R14,#-12 945 *line 263 946 00000766 30380000 move _low,R0 947 0000076A C07CF000 and #-4096,R0 948 0000076E 32380000 move _high,R1 949 00000772 740C move #12,R2 950 00000774 E469 lsr R2,R1 951 00000776 C27C000F and #15,R1 952 0000077A 8041 or R1,R0 953 0000077C 31C00000 move R0,_low 954 *line 264 955 00000780 30380000 move _high,R0 956 00000784 C07CF000 and #-4096,R0 957 00000788 32380000 move _low,R1 958 0000078C 740C move #12,R2 959 0000078E E469 lsr R2,R1 960 00000790 C27C000F and #15,R1 961 00000794 8041 or R1,R0 962 00000796 31C00000 move R0,_high 963 *line 266 964 0000079A 702D move.l #$2d,R0 965 0000079C 2D40FFF8 move.l R0,-8(R14) 966 000007A0 2D40FFFC move.l R0,-4(R14) 967 *line 268 968 *line 269 969 000007A4 202EFFFC move.l -4(R14),R0 970 000007A8 B0AEFFF8 cmp.l -8(R14),R0 971 000007AC 6706 beq L51 972 *line 269 973 000007AE 3EBC0040 move #64,(sp) 974 000007B2 6144 jsr _error 975 L51: 976 *line 270 977 *line 271 978 000007B4 202EFFFC move.l -4(R14),R0 979 000007B8 B0AEFFF8 cmp.l -8(R14),R0 980 000007BC 6706 beq L52 981 *line 271 982 000007BE 3EBC0041 move #65,(sp) 983 000007C2 6134 jsr _error 984 L52: 985 *line 272 986 *line 273 987 000007C4 202EFFFC move.l -4(R14),R0 988 000007C8 B0AEFFF8 cmp.l -8(R14),R0 989 000007CC 6706 beq L53 990 *line 273 991 000007CE 3EBC0042 move #66,(sp) 992 000007D2 6124 jsr _error 993 L53: 994 *line 274 995 000007D4 42AEFFFC clr.l -4(R14) 996 *line 275 997 000007D8 4AAEFFFC tst.l -4(R14) 998 000007DC 6706 beq L54 999 *line 275 1000 000007DE 3EBC0043 move #67,(sp) 1001 000007E2 6114 jsr _error 1002 L54: 1003 *line 276 1004 000007E4 42AEFFF8 clr.l -8(R14) 1005 *line 277 1006 000007E8 4AAEFFF8 tst.l -8(R14) 1007 000007EC 6706 beq L55 1008 *line 277 1009 000007EE 3EBC0044 move #68,(sp) 1010 000007F2 6104 jsr _error 1011 000007F4 4E5E L55:L50:unlk R14 1012 000007F6 4E75 rts 1013 .globl _error 1014 000007F8 .text 1015 _error: 1016 ~~error: 1017 ~pc=8 1018 000007F8 4E56FFFC link R14,#-4 1019 *line 282 1020 000007FC 3EAE0008 move 8(R14),(sp) 1021 00000800 2F3C00000027 move.l #L57,-(sp) 1022 00000806 4EB80000 jsr _printf 1023 0000080A 588F addq.l #4,sp 1024 *line 283 1025 0000080C 52780000 add #1,_err 1026 00000810 4E5E L56:unlk R14 1027 00000812 4E75 rts 1028 00000004 .data 1029 00000004 4661722046726561 L3:.dc.b 70,97,114,32,70,114,101,97,107,105,110,103,32,79,117,116,10,0 1029 0000000C 6B696E67204F7574 1029 00000014 0A00 1030 00000016 546F756768204C75 L5:.dc.b 84,111,117,103,104,32,76,117,99,107,46,46,46,46,46,10,0 1030 0000001E 636B2E2E2E2E2E0A 1030 00000026 00 1031 00000027 6572726F72202578 L57:.dc.b 101,114,114,111,114,32,37,120,10,0 -EXTERNAL SYMBOLS- _low _high _err lmul _printf _globali 00000000 DATA _globalu 00000002 DATA _main 00000000 TEXT ~~main 00000000 TEXT _l_vs_i 00000036 TEXT _rl_vs_i 0000028A TEXT _l_vs_ri 000003F2 TEXT _rl_vs_r 00000626 TEXT _v41 00000762 TEXT L2 00000028 TEXT L3 00000004 DATA L4 00000032 TEXT L5 00000016 DATA L1 00000032 TEXT ~~l_vs_i 00000036 TEXT ~autol FFFFFFFC ABS ~autol1 FFFFFFF8 ABS L7 00000088 TEXT _error 000007F8 TEXT L8 000000C2 TEXT L9 000000F8 TEXT L10 00000130 TEXT L11 0000016E TEXT L12 000001A8 TEXT L13 000001E2 TEXT L14 00000218 TEXT L15 0000024E TEXT L16 00000286 TEXT L6 00000286 TEXT ~~rl_vs_ 0000028A TEXT L18 000002CC TEXT L19 000002E8 TEXT L20 00000308 TEXT L21 00000328 TEXT L22 00000348 TEXT L23 00000368 TEXT L24 00000388 TEXT L25 000003A8 TEXT L26 000003C8 TEXT L27 000003E8 TEXT L17 000003E8 TEXT ~~l_vs_r 000003F2 TEXT L29 00000442 TEXT L30 00000478 TEXT L31 000004AA TEXT L32 000004DE TEXT L33 00000518 TEXT L34 0000054E TEXT L35 00000584 TEXT L36 000005B6 TEXT L37 000005E8 TEXT L38 0000061C TEXT L28 0000061C TEXT ~~rl_vs_ 00000626 TEXT L40 00000660 TEXT L41 00000678 TEXT L42 00000694 TEXT L43 000006B0 TEXT L44 000006CC TEXT L45 000006E8 TEXT L46 00000704 TEXT L47 00000720 TEXT L48 0000073C TEXT L49 00000758 TEXT L39 00000758 TEXT ~~v41 00000762 TEXT ~l FFFFFFFC ABS ~l1 FFFFFFF8 ABS L51 000007B4 TEXT L52 000007C4 TEXT L53 000007D4 TEXT L54 000007E4 TEXT L55 000007F4 TEXT L50 000007F4 TEXT ~~error 000007F8 TEXT ~pc 00000008 ABS L57 00000027 DATA L56 00000810 TEXT