lodf 1 250 # @core.ky jmp 1553 eval 0 eval 1 eval 2 eval 3 eval 4 eval 5 eval 6 eval 7 eval 8 eval 9 eval 10 eval 16 eval 17 eval 18 eval 257 eval 258 eval 259 eval 260 eval 261 eval 262 eval 263 eval 264 eval 265 eval 266 eval 267 eval 268 eval 263 eval 264 eval 265 eval 266 eval 269 eval 273 eval 274 eval 275 eval 276 eval 277 eval 278 eval 279 eval 280 eval 281 eval 282 eval 283 eval 284 eval 285 eval 286 eval 287 eval 513 eval 514 eval 515 eval 516 eval 517 eval 518 eval 519 eval 520 eval 769 eval 770 eval 771 eval 772 eval 773 eval 774 eval 775 eval 776 eval 1025 eval 1026 eval 1027 eval 1028 eval 1029 eval 1030 eval 1031 eval 1032 eval 1281 eval 1282 eval 1283 eval 1284 eval 1285 eval 1286 eval 1287 eval 1288 eval 1289 eval 1290 eval 1291 eval 1292 eval 1293 eval 1294 eval 1295 eval 1296 eval 1537 eval 1538 eval 1539 # play(snd:void) # 125 getg 87 getl 0 lodi 65536 zero jsr 3 ret # end proc # len(*:int) # 248 getg 11 getl 0 jsr 1 getg 92 == jz 115 # 249 getg 49 getl 0 jsr 1 ret jmp 142 getg 11 getl 0 jsr 1 getg 93 == jz 127 # 251 getg 60 getl 0 jsr 1 ret jmp 142 getg 11 getl 0 jsr 1 getg 94 == jz 139 # 253 getg 65 getl 0 jsr 1 ret jmp 142 # 255 lodi 0 ret # end proc # btos(bool:str) # 260 getl 0 jz 151 # 261 lods true ret jmp 154 # 263 lods false ret # end proc # resize(*[],int:*[]) # 270 getl 1 getg 60 getl 0 jsr 1 == jz 167 # 271 getl 0 ret jmp 187 # 273 getg 61 getl 1 jsr 1 setl 2 # 275 getg 57 getl 2 getl 0 lodi 0 getg 21 getl 1 getg 60 getl 0 jsr 1 jsr 2 jsr 4 # 276 getl 2 ret # end proc # map(*[],proc(*:*):*[]) # 280 getg 60 getl 0 jsr 1 setl 2 # 282 getg 61 getl 2 jsr 1 setl 3 # 283 lodi 0 setl 4 # 284 getl 4 getl 2 < jz 222 # 284 getl 3 getl 4 getl 1 getl 0 getl 4 geti jsr 1 seti # 286 getl 4 lodi 1 + setl 4 jmp 203 # 288 getl 3 ret # end proc # filter(*[],proc(*:bool):*[]) # 291 getg 60 getl 0 jsr 1 setl 2 # 293 getg 61 getl 2 jsr 1 setl 3 # 294 lodi 0 setl 4 # 295 lodi 0 setl 5 # 296 getl 4 getl 2 < jz 274 # 296 getl 0 getl 4 geti setl 6 # 298 getl 1 getl 6 jsr 1 jz 268 # 298 getl 3 getl 5 getl 6 seti # 300 getl 5 lodi 1 + setl 5 # 302 getl 4 lodi 1 + setl 4 jmp 244 # 304 getg 54 getl 3 lodi 0 getl 5 jsr 3 ret # end proc # reduce(*[],proc(*,*:*),*:*) # 307 lodi 0 setl 3 # 309 getg 60 getl 0 jsr 1 setl 4 # 310 getl 3 getl 4 < jz 310 # 310 getl 1 getl 2 getl 0 getl 3 geti jsr 2 setl 2 # 312 getl 3 lodi 1 + setl 3 jmp 292 # 314 getl 2 ret # end proc # hasflag(int,int:bool) # 319 getg 15 getl 0 getl 1 jsr 2 lodi 0 != ret # end proc # itof(int:fp) # 325 getg 33 getl 0 lodi 0 jsr 2 ret # end proc # clamp(int,int,int:int) # 329 getg 21 getg 22 getl 0 getl 1 jsr 2 getl 2 jsr 2 ret # end proc # sq(fp:fp) # 333 getl 0 getl 0 *f ret # end proc # trunc(fp:fp) # 337 getl 0 lodi 0 < jz 362 # 338 getg 35 getl 0 jsr 1 ret jmp 367 # 340 getg 34 getl 0 jsr 1 ret # end proc # fclamp(fp,fp,fp:fp) # 345 getg 27 getg 28 getl 0 getl 1 jsr 2 getl 2 jsr 2 ret # end proc # lerp(fp,fp,fp:fp) # 351 getl 0 getl 1 getl 0 - getl 2 *f + ret # end proc # qerp(fp,fp,fp,fp:fp) # 355 lodi 65536 getl 3 - setl 4 # 357 getl 0 getl 4 getl 4 *f *f getl 1 lodi 2 * getl 4 getl 3 *f *f + getl 2 getl 3 getl 3 *f *f + ret # end proc # easein(fp,fp,fp:fp) # 362 getl 0 getl 1 getl 0 - getg 201 getl 2 jsr 1 *f + ret # end proc # easeout(fp,fp,fp:fp) # 366 getl 0 getl 1 getl 0 - lodi 65536 getg 201 lodi 65536 getl 2 - jsr 1 - *f + ret # end proc # easeinout(fp,fp,fp:fp) # 370 getl 2 lodi 32768 <= jz 470 # 371 getl 0 getl 1 getl 0 - getg 201 getl 2 lodi 2 * jsr 1 lodi 2 / *f + ret jmp 489 # 373 getl 0 getl 1 getl 0 - lodi 65536 getg 201 lodi 65536 getl 2 - lodi 2 * jsr 1 lodi 2 / - *f + ret # end proc # join(str,str[]:str) # 380 lods setl 2 # 382 getg 60 getl 1 jsr 1 setl 3 # 383 getl 3 lodi 0 == jz 507 # 383 getl 2 ret # 386 getl 3 lodi 1 - setl 3 # 387 lodi 0 setl 4 # 388 getl 4 getl 3 < jz 537 # 388 getg 46 getg 46 getl 2 getl 1 getl 4 geti jsr 2 getl 0 jsr 2 setl 2 # 390 getl 4 lodi 1 + setl 4 jmp 516 # 392 getg 46 getl 2 getl 1 getl 4 geti jsr 2 ret # end proc # translate_rect(Rect,Rect,fp,fp:void) # 397 getl 0 getl 1 geta 0 getl 2 + seta 0 # 399 getl 0 getl 1 geta 1 getl 3 + seta 1 # 400 getl 0 getl 1 geta 2 getl 2 + seta 2 # 401 getl 0 getl 1 geta 3 getl 3 + seta 3 ret # end proc # subimg(img,fp,fp,fp,fp:img) # 406 getg 75 getl 0 getl 1 getl 2 getl 3 getl 4 lodi 0 lodi 0 jsr 7 ret # end proc # flip(img,int:img) # 410 getg 75 getl 0 lodi 0 lodi 0 getg 76 getl 0 jsr 1 getg 77 getl 0 jsr 1 getl 1 lodi 0 jsr 7 ret # end proc # blend(img,int,int:img) # 414 getg 75 getl 0 lodi 0 lodi 0 getg 76 getl 0 jsr 1 getg 77 getl 0 jsr 1 getl 1 getl 2 jsr 7 ret # end proc # argb(int,int,int,int:int) # 418 getg 16 getg 18 getg 15 getl 0 lodi 255 jsr 2 lodi 24 jsr 2 getg 16 getg 18 getg 15 getl 1 lodi 255 jsr 2 lodi 16 jsr 2 getg 16 getg 18 getg 15 getl 2 lodi 255 jsr 2 lodi 8 jsr 2 getg 15 getl 3 lodi 255 jsr 2 jsr 2 jsr 2 jsr 2 ret # end proc # rgb(int,int,int:int) # 425 getg 16 lodi 4278190080 getg 16 getg 18 getg 15 getl 0 lodi 255 jsr 2 lodi 16 jsr 2 getg 16 getg 18 getg 15 getl 1 lodi 255 jsr 2 lodi 8 jsr 2 getg 15 getl 2 lodi 255 jsr 2 jsr 2 jsr 2 jsr 2 ret # end proc # opaque(int:int) # 432 getg 16 getl 0 lodi 4278190080 jsr 2 ret # end proc # transparent(int:int) # 436 getg 15 getl 0 lodi 16777215 jsr 2 ret # end proc # keydown(blob,int:bool) # 442 getg 15 getg 66 getl 0 getl 1 jsr 2 lodi 1 jsr 2 lodi 0 != ret # end proc # keyup(blob,int:bool) # 446 getg 15 getg 66 getl 0 getl 1 jsr 2 lodi 2 jsr 2 lodi 0 != ret # end proc # keyheld(blob,int:bool) # 450 getg 15 getg 66 getl 0 getl 1 jsr 2 lodi 4 jsr 2 lodi 0 != ret # end proc # _mousex(blob:int) # 454 getg 66 getl 0 getg 125 jsr 2 getg 18 getg 66 getl 0 getg 124 jsr 2 lodi 8 jsr 2 + ret # end proc # _mousey(blob:int) # 458 getg 66 getl 0 getg 127 jsr 2 getg 18 getg 66 getl 0 getg 126 jsr 2 lodi 8 jsr 2 + ret # end proc # keystates(:blob) # 470 getg 81 jsr 0 setl 0 # 472 getg 221 getl 0 jsr 1 setl 1 # 473 getg 222 getl 0 jsr 1 setl 2 # 474 getl 1 getg 223 - setg 225 # 475 getl 2 getg 224 - setg 226 # 476 getl 1 setg 223 # 477 getl 2 setg 224 # 478 getg 225 lodi 0 != dup jif 816 drop getg 226 lodi 0 != setg 227 # 479 getg 220 getl 0 getg 122 jsr 2 dup jif 829 drop getg 220 getl 0 getg 123 jsr 2 setg 228 # 480 getg 227 dup jz 836 drop getg 228 setg 229 # 481 getl 0 ret # end proc # blobtostr(blob:str) # 491 getg 53 getg 68 getl 0 lodi 0 getg 65 getl 0 jsr 1 jsr 3 jsr 1 ret # end proc # strtoblob(str:blob) # 495 getg 49 getl 0 jsr 1 setl 1 # 497 getg 62 getl 1 jsr 1 setl 2 # 498 getg 69 getl 2 lodi 0 getl 0 getl 1 jsr 4 # 499 getl 2 ret # end proc # blob64(str:blob) # 502 getg 232 getg 52 getl 0 jsr 1 jsr 1 ret # end proc # blobcopy(blob,int,blob,int,int:void) # 506 lodi 0 setl 5 # 508 getl 5 getl 4 < jz 913 # 508 getg 67 getl 0 getl 1 getl 5 + getg 66 getl 2 getl 3 getl 5 + jsr 2 jsr 3 # 510 getl 5 lodi 1 + setl 5 jmp 890 ret # end proc # seti(blob,int,int:void) # 514 getg 67 getl 0 getl 1 getg 15 getg 19 getl 2 lodi 24 jsr 2 lodi 255 jsr 2 jsr 3 # 516 getg 67 getl 0 getl 1 lodi 1 + getg 15 getg 19 getl 2 lodi 16 jsr 2 lodi 255 jsr 2 jsr 3 # 517 getg 67 getl 0 getl 1 lodi 2 + getg 15 getg 19 getl 2 lodi 8 jsr 2 lodi 255 jsr 2 jsr 3 # 518 getg 67 getl 0 getl 1 lodi 3 + getg 15 getl 2 lodi 255 jsr 2 jsr 3 ret # end proc # geti(blob,int:int) # 521 getg 18 getg 66 getl 0 getl 1 jsr 2 lodi 24 jsr 2 getg 18 getg 66 getl 0 getl 1 lodi 1 + jsr 2 lodi 16 jsr 2 + getg 18 getg 66 getl 0 getl 1 lodi 2 + jsr 2 lodi 8 jsr 2 + getg 66 getl 0 getl 1 lodi 3 + jsr 2 + ret # end proc # pack(*,blob,int:int) # 530 # 532 # 533 # 534 # 535 getg 11 getl 0 jsr 1 setl 7 # 536 getg 67 getl 1 getl 2 getl 7 jsr 3 # 537 getl 2 lodi 1 + setl 2 # 538 getl 7 getg 92 == jz 1065 # 538 getl 0 setl 4 # 540 getg 49 getl 4 jsr 1 setl 8 # 541 getg 235 getl 1 getl 2 getl 8 jsr 3 # 542 getl 2 lodi 4 + setl 2 # 543 getg 69 getl 1 getl 2 getl 4 getl 8 jsr 4 # 544 getl 2 getl 8 + setl 2 jmp 1167 getl 7 getg 93 == jz 1112 # 545 getl 0 setl 3 # 547 getg 60 getl 3 jsr 1 setl 9 # 548 getg 235 getl 1 getl 2 getl 9 jsr 3 # 549 getl 2 lodi 4 + setl 2 # 550 lodi 0 setl 10 # 551 getl 10 getl 9 < jz 1111 # 551 getg 237 getl 3 getl 10 geti getl 1 getl 2 jsr 3 setl 2 # 553 getl 10 lodi 1 + setl 10 jmp 1092 jmp 1167 getl 7 getg 94 == jz 1149 # 555 getl 0 setl 6 # 557 getg 65 getl 6 jsr 1 setl 11 # 558 getg 235 getl 1 getl 2 getl 11 jsr 3 # 559 getl 2 lodi 4 + setl 2 # 560 getg 234 getl 1 getl 2 getl 6 lodi 0 getl 11 jsr 5 # 561 getl 2 getl 11 + setl 2 jmp 1167 getl 7 getg 91 == jz 1167 # 562 getl 0 setl 5 # 564 getg 235 getl 1 getl 2 getl 5 jsr 3 # 565 getl 2 lodi 4 + setl 2 # 567 getl 2 ret # end proc # packedlen(*:int) # 570 # 572 getg 11 getl 0 jsr 1 setl 2 # 573 getl 2 getg 92 == jz 1189 # 573 getg 49 getl 0 jsr 1 setl 1 jmp 1249 getl 2 getg 93 == jz 1228 # 575 lodi 0 setl 1 # 577 getl 0 setl 3 # 578 getg 60 getl 3 jsr 1 setl 4 # 579 lodi 0 setl 5 # 580 getl 5 getl 4 < jz 1227 # 580 getl 1 getg 238 getl 3 getl 5 geti jsr 1 + setl 1 # 582 getl 5 lodi 1 + setl 5 jmp 1208 jmp 1249 getl 2 getg 94 == jz 1238 # 584 getg 65 getl 0 jsr 1 setl 1 jmp 1249 getl 2 getg 91 == jz 1246 # 586 lodi 0 setl 1 jmp 1249 # 588 lodi 1 ret # 591 getl 1 lodi 1 + lodi 4 + ret # end proc # packed(*:blob) # 594 getg 62 getg 238 getl 0 jsr 1 jsr 1 setl 1 # 596 getg 237 getl 0 getl 1 lodi 0 jsr 3 drop # 597 getl 1 ret # end proc # unpack(blobreader:*) # 600 # 602 getl 0 geta 0 setl 2 # 603 getl 0 geta 1 setl 3 # 604 getg 66 getl 2 getl 3 jsr 2 setl 4 # 604 getl 3 lodi 1 + setl 3 # 605 getl 4 getg 92 == jz 1326 # 605 getg 236 getl 2 getl 3 jsr 2 setl 5 # 606 getl 3 lodi 4 + setl 3 # 607 getg 68 getl 2 getl 3 getl 5 jsr 3 setl 1 # 608 getl 3 getl 5 + setl 3 jmp 1431 getl 4 getg 93 == jz 1375 # 609 getg 236 getl 2 getl 3 jsr 2 setl 5 # 610 getl 3 lodi 4 + setl 3 # 611 getl 0 getl 3 seta 1 # 612 getg 61 getl 5 jsr 1 setl 6 # 613 lodi 0 setl 7 # 614 getl 7 getl 5 < jz 1371 # 614 getl 6 getl 7 getg 240 getl 0 jsr 1 seti # 616 getl 7 lodi 1 + setl 7 jmp 1354 # 618 getl 6 ret jmp 1431 getl 4 getg 94 == jz 1412 # 619 getg 236 getl 2 getl 3 jsr 2 setl 5 # 620 getl 3 lodi 4 + setl 3 # 621 getg 62 getl 5 jsr 1 setl 8 # 622 getg 234 getl 8 lodi 0 getl 2 getl 3 getl 5 jsr 5 # 623 getl 8 setl 1 # 624 getl 3 getl 5 + setl 3 jmp 1431 getl 4 getg 91 == jz 1428 # 625 getg 236 getl 2 getl 3 jsr 2 setl 1 # 626 getl 3 lodi 4 + setl 3 jmp 1431 # 627 null setl 1 # 630 getl 0 getl 3 seta 1 # 631 getl 1 ret # end proc # typestr(*:str) # 634 getg 11 getl 0 jsr 1 setl 1 # 636 getl 1 getg 92 == jz 1460 # 636 getg 209 lods lods \" getl 0 lods \" newv 3 jsr 2 ret jmp 1552 getl 1 getg 93 == jz 1518 # 638 lods { setl 2 # 640 getl 0 setl 3 # 641 lodi 0 setl 4 # 642 getg 60 getl 3 jsr 1 lodi 1 - setl 5 # 643 getl 4 getl 5 < jz 1504 # 643 getg 46 getg 46 getl 2 getg 241 getl 3 getl 4 geti jsr 1 jsr 2 lods , jsr 2 setl 2 # 645 getl 4 lodi 1 + setl 4 jmp 1481 # 647 getg 46 getg 46 getl 2 getg 241 getl 3 getl 4 geti jsr 1 jsr 2 lods } jsr 2 ret jmp 1552 getl 1 getg 94 == jz 1539 # 648 getg 65 getl 0 jsr 1 setl 5 # 650 getg 209 lods lods blob64(\" getg 231 getl 0 jsr 1 lods \") newv 3 jsr 2 ret jmp 1552 getl 1 getg 91 == jz 1549 # 651 getg 25 getl 0 jsr 1 ret jmp 1552 # 653 lods null ret # end proc lodf 3 0 setg 0 lodf 4 1 setg 1 lodf 5 1 setg 2 lodf 6 0 setg 3 lodf 7 2 setg 4 lodf 8 1 setg 5 lodf 9 1 setg 6 lodf 10 2 setg 7 lodf 11 1 setg 8 lodf 12 1 setg 9 lodf 13 1 setg 10 lodf 14 1 setg 11 lodf 15 2 setg 12 lodf 16 2 setg 13 lodf 17 1 setg 14 lodf 18 2 setg 15 lodf 19 2 setg 16 lodf 20 2 setg 17 lodf 21 2 setg 18 lodf 22 2 setg 19 lodf 23 2 setg 20 lodf 24 2 setg 21 lodf 25 2 setg 22 lodf 26 1 setg 23 lodf 27 2 setg 24 lodf 28 1 setg 25 lodf 29 2 setg 26 lodf 30 2 setg 27 lodf 31 2 setg 28 lodf 32 1 setg 29 lodf 33 2 setg 30 lodf 34 1 setg 31 lodf 35 1 setg 32 lodf 36 2 setg 33 lodf 37 1 setg 34 lodf 38 1 setg 35 lodf 39 1 setg 36 lodf 40 2 setg 37 lodf 41 1 setg 38 lodf 42 2 setg 39 lodf 43 1 setg 40 lodf 44 1 setg 41 lodf 45 1 setg 42 lodf 46 1 setg 43 lodf 47 1 setg 44 lodf 48 1 setg 45 lodf 49 2 setg 46 lodf 50 1 setg 47 lodf 51 2 setg 48 lodf 52 1 setg 49 lodf 53 2 setg 50 lodf 54 1 setg 51 lodf 55 1 setg 52 lodf 56 1 setg 53 lodf 57 3 setg 54 lodf 58 1 setg 55 lodf 59 4 setg 56 lodf 60 4 setg 57 lodf 61 2 setg 58 lodf 62 3 setg 59 lodf 63 1 setg 60 lodf 64 1 setg 61 lodf 65 1 setg 62 lodf 66 1 setg 63 lodf 67 2 setg 64 lodf 68 1 setg 65 lodf 69 2 setg 66 lodf 70 3 setg 67 lodf 71 3 setg 68 lodf 72 4 setg 69 lodf 73 3 setg 70 lodf 74 0 setg 71 lodf 75 0 setg 72 lodf 76 1 setg 73 lodf 77 1 setg 74 lodf 78 7 setg 75 lodf 79 1 setg 76 lodf 80 1 setg 77 lodf 81 3 setg 78 lodf 82 6 setg 79 lodf 83 8 setg 80 lodf 84 0 setg 81 lodf 85 0 setg 82 lodf 86 4 setg 83 lodf 87 5 setg 84 lodf 88 3 setg 85 lodf 89 1 setg 86 lodf 90 3 setg 87 lodf 91 1 setg 88 lodf 92 1 setg 89 lodi 0 setg 90 lodi 1 setg 91 lodi 2 setg 92 lodi 3 setg 93 lodi 4 setg 94 lodi 5 setg 95 lodi 2147483648 setg 96 lodi 2147483647 setg 97 lodi 32768 setg 98 lodi 65536 setg 99 lodi 205887 setg 100 lodi 178145 setg 101 lodi 0 setg 102 lodi 1 setg 103 lodi 2 setg 104 lodi 3 setg 105 lodi 0 setg 106 lodi 16 setg 107 lodi 32 setg 108 lodi 48 setg 109 lodi 4278190080 setg 110 lodi 4294967295 setg 111 lodi 4294901760 setg 112 lodi 4278255360 setg 113 lodi 4278190335 setg 114 lodi 4294967040 setg 115 lodi 4294902015 setg 116 lodi 4278255615 setg 117 lodi 1 setg 118 lodi 2 setg 119 lodi 4 setg 120 lodi 0 setg 121 lodi 1 setg 122 lodi 2 setg 123 lodi 58 setg 124 lodi 59 setg 125 lodi 60 setg 126 lodi 61 setg 127 lodi 37 setg 128 lodi 38 setg 129 lodi 39 setg 130 lodi 40 setg 131 lodi 46 setg 132 lodi 8 setg 133 lodi 9 setg 134 lodi 13 setg 135 lodi 16 setg 136 lodi 17 setg 137 lodi 18 setg 138 lodi 27 setg 139 lodi 32 setg 140 lodi 65 setg 141 lodi 66 setg 142 lodi 67 setg 143 lodi 68 setg 144 lodi 69 setg 145 lodi 70 setg 146 lodi 71 setg 147 lodi 72 setg 148 lodi 73 setg 149 lodi 74 setg 150 lodi 75 setg 151 lodi 76 setg 152 lodi 77 setg 153 lodi 78 setg 154 lodi 79 setg 155 lodi 80 setg 156 lodi 81 setg 157 lodi 82 setg 158 lodi 83 setg 159 lodi 84 setg 160 lodi 85 setg 161 lodi 86 setg 162 lodi 87 setg 163 lodi 88 setg 164 lodi 89 setg 165 lodi 90 setg 166 lodi 48 setg 167 lodi 49 setg 168 lodi 50 setg 169 lodi 51 setg 170 lodi 52 setg 171 lodi 53 setg 172 lodi 54 setg 173 lodi 55 setg 174 lodi 56 setg 175 lodi 57 setg 176 lodi 112 setg 177 lodi 113 setg 178 lodi 114 setg 179 lodi 115 setg 180 lodi 116 setg 181 lodi 117 setg 182 lodi 118 setg 183 lodi 119 setg 184 lodi 120 setg 185 lodi 121 setg 186 lodi 122 setg 187 lodi 123 setg 188 lodi 124 setg 189 lodi 125 setg 190 lodi 126 setg 191 lodf 101 1 setg 192 lodf 143 1 setg 193 lodf 155 3 setg 194 lodf 188 5 setg 195 lodf 226 7 setg 196 lodf 282 5 setg 197 lodf 314 2 setg 198 lodf 324 1 setg 199 lodf 332 3 setg 200 lodf 343 1 setg 201 lodf 350 1 setg 202 lodf 368 3 setg 203 lodf 379 3 setg 204 lodf 390 5 setg 205 lodf 418 3 setg 206 lodf 431 3 setg 207 lodf 448 3 setg 208 lodf 490 5 setg 209 lodf 546 4 setg 210 lodf 577 5 setg 211 lodf 590 2 setg 212 lodf 607 3 setg 213 lodf 624 4 setg 214 lodf 659 3 setg 215 lodf 688 1 setg 216 lodf 696 1 setg 217 lodf 704 2 setg 218 lodf 717 2 setg 219 lodf 730 2 setg 220 lodf 743 1 setg 221 lodf 759 1 setg 222 lodi 0 setg 223 lodi 0 setg 224 lodi 0 setg 225 lodi 0 setg 226 zero setg 227 zero setg 228 zero setg 229 lodf 775 3 setg 230 lodf 841 1 setg 231 lodf 854 3 setg 232 lodf 876 1 setg 233 lodf 885 6 setg 234 lodf 915 3 setg 235 lodf 969 2 setg 236 lodf 1007 12 setg 237 lodf 1171 6 setg 238 lodf 1257 2 setg 239 lodf 1276 9 setg 240 lodf 1439 6 setg 241 # @gamelib.ky jmp 2272 # viewport(fp,fp,fp,fp,fp,fp,fp,fp:ScrollZoom) # 39 getg 28 getl 2 getl 6 /f getl 3 getl 7 /f jsr 2 setl 8 # 41 getl 8 getl 6 *f setl 9 # 42 getl 8 getl 7 *f setl 10 # 43 getl 8 lodi 65536 <= jz 2098 # 43 getg 203 getl 0 getl 2 getl 9 - lodi 2 / + lodi 0 getl 4 getl 9 - jsr 3 getg 203 getl 1 getl 3 getl 10 - lodi 2 / + lodi 0 getl 5 getl 10 - jsr 3 lodi 65536 getl 8 - newv 3 ret jmp 2114 # 47 getl 2 getl 9 - lodi 2 / getl 3 getl 10 - lodi 2 / lodi 65536 getl 8 - newv 3 ret # end proc # unbound_viewport(fp,fp,fp,fp,fp,fp:ScrollZoom) # 53 getg 28 getl 2 getl 4 /f getl 3 getl 5 /f jsr 2 setl 6 # 55 getl 0 getl 2 getl 6 getl 4 *f - lodi 2 / + getl 1 getl 3 getl 6 getl 5 *f - lodi 2 / + lodi 65536 getl 6 - newv 3 ret # end proc # create_image_tile(img,int,int,fp,fp,int:img) # 61 getg 76 getl 0 jsr 1 getl 1 / setl 6 # 63 getg 77 getl 0 jsr 1 getl 2 / setl 7 # 64 getg 211 getl 0 getg 20 getl 5 getl 1 jsr 2 getl 6 * getl 3 lodi 2 / + getl 5 getl 1 / getl 7 * getl 4 lodi 2 / + getl 6 getl 3 - getl 7 getl 4 - jsr 5 ret # end proc # create_fixed_font(img,int,int,fp,fp,fp,fp:FixedFont) # 74 new 128 getl 5 getl 3 - getl 6 getl 4 - newv 3 setl 7 # 80 lodi 128 setl 8 # 81 getl 8 lodi 0 > jz 2235 # 81 getl 8 lodi 1 - setl 8 # 83 getl 7 geta 0 getl 8 getg 244 getl 0 getl 1 getl 2 getl 3 getl 4 getl 8 jsr 6 seti jmp 2212 # 86 getl 7 ret # end proc # draw_fixed_font(FixedFont,str,fp,fp,int,int:void) # 91 getg 80 getl 0 geta 0 getl 1 getl 2 getl 3 getl 4 getl 5 getl 0 geta 1 getl 0 geta 2 jsr 8 ret # end proc # draw_tilemap(Tilemap,fp,fp:void) # 97 getg 79 getl 0 geta 1 getl 0 geta 0 getl 1 getl 2 getl 0 geta 2 getl 0 geta 3 jsr 6 ret # end proc lodf 2039 11 setg 242 lodf 2115 7 setg 243 lodf 2151 8 setg 244 lodf 2197 9 setg 245 lodf 2239 6 setg 246 lodf 2256 3 setg 247 lods iVBORw0KGgoAAAANSUhEUgAAAOAAAADICAYAAADx0u26AAAZrElEQVR42u2de7xWRbnH18vmJhsUUUKIo2h1QtEUy1teM/OOgCJWal6yUwcp7fZJ63ysk1lZWZmerLRjmVkZxLE0r2UqWqaCqKBomrVRAzTvgLD3/p4/esYeV+sy6/quvffz+3z2Z7/veudZM2tmfnN51sxvgsBgMBgMBoPBYDAYDAaDwWAwGAwGg6EStPQXgMhArVYr6SZmNzDt8sLy858YZG2QwdA+DIpjap7Wz+wGpl3u4Zflp/WABkPjekCDwWAENBiMgAaDwQhoMBgBDQaDEdBg6DcYHHUx7k1+GsxuYNrlheWn9YAGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGPoaTJjX7MyujXa2HclgaCNMmNfszK6NdtYDGgxN6wENBoMR0GAwAhoMBiOgwWAENBgMRkCDod/AhHnNzuzaaGc9oMFgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDIY4AFsB84HBHmGnAD8DhljOVVomg5uYKNzCVf25rjgbXmC50glsDjwk5h/xCH+LhJ3fyErSP8i3BbAS+B9gmBGwnxIQ6ATuFNNFwCgPm52BZ8XmJ0CHUab0srxQ8veGplWYXATMagfsAvwaWM0/8QzwG+DAGJtBwGeAFSQgIc73AEuA9cAG4A5gclX5CQwBrhWzPwHjMtjuBrwgtj8EBvW3Bq2N5JsEvCLZ9LY+TUDSsSLCZgbQk2J3aoTd6R7xEZPOuaFgvULCuyok4OVi8jfgDTnKby/gJbnHJSlhZwOfBkaGyvBgYCEwxoj76nP+wA3xmzhkqoOADwsBPwFsqsJuAnxSPq+KsQM4Epglny+U8fyiFAJ2yc8nS890GLBOiDiqIgI6TC1Qhvt59OyDgMck2NMq3mvU57ONgEEAbAt0y9+2/WZulYW4UvEfiUsnMDZqYgyskaDD5Q/JyD/L5zXAKTFxOtutFfkALgJaTc5/z4bwTcCCiAbweWnUhhoBgwCYJ495aWO9djUQ8AYJch6wvW86gcUSdA7w4VBFexDYIcH2Kgn3uCLfhVWRrw0E7AA+BLwYypenZPg9bKATUJxbvTL/26pfEDDnEHQb4JGIsBcBJ8W9/wKOkgyMwnnA6xPSual6FQBwcV/Jf08CXheRJ39Qn79QVvnVXV9KjNvl0bfqYnwjCSh2Q4FTgO+osG4eswzYMsbuMHFqaDwO/AVYBUyJsZsm3k+HPwNvlN++CBzWxwl4ouTB7NBo5HDxLG82kAkI7C33fymLN7pfDkETCmWCzOkAro0J+6WIQpsC7CCfb4qxc73f14HblHfyUvn8IrB5HyZgCxheJN7+PARVZX5OnZGeDpzewMxw85SJEeR9Rr6ujbD7ofy2HnifepczTDllXoyJ04UdIX96yLYemF7h6KCjwD2GNnlBBHCQeJhXANNqSOOB0tM/BRzhaXOoPNrfgdHBQIdyiFwHTFQV9TD1+eGECn2gfL9fvr8XOE4+L4+J8wH5/Qwh4FfU/V4GDqjgOZ+X+1+ZZ0kZMAq4Se7xXEMJ2KXycWUNadTxPeERvqVeUZ1Rd0W/HVjYQAJOVkutotADzEyrIDKHDGNuTJxHR4RdD9won9cB+5T8nLsBz8n9F/i8ClC2rwPuEdsngR0b2ph2+axCaiMBZytv8Ii6M+f3wO0NLbjJ0hNqt/nT0ivu7tNCS+v2WRm2rpCVIK2EOI+WnvAVmRNOk3tcIK8khlbwnG9Vw+qrPV8HbCNL15DFB1s3eDRzkCZFTfG5Iej0lLAdwHL36iowDLzJvzzfjmrN62UpYUdLjwdwNzC2DzzfB5pYhsD7lXfdtnYNVALKM04RT9zWHmHfI8vIRvaB5zpA1tQCfLtB6RomPSXA8cYyQ39tWH4vlfxHVa4qypGu7YDrZSuYnbti6LcE3EH2LNrGYYPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYygQwRhbTb1nBvfcTQaWhdT7QocAfgbWy3GeDCMvO9LBtyWr/LOK6JwH3KtGitRL/YQk2Q2Vv3VNqV8NqWcu4c4ZnHeJ0NFPC5dUFbQEfBJaGpCkqiS+m/Fx+HpwS57QIu7uBGQ0m32i1fWp+yffuUBpCV2VZWA0cAvxW7Ujxq5/AsRFl3at2dh+dpeJ4JPSslHp2XIzdVxNsuoFDPeIeqZTSqiLg57MSqGB8x6aYvTvG7oQUuw82kHyjlADUcmCLCuLYXu0oWeBDQuC0lLzsju1clAjtZ5TWx0TgUbn+UMkEdC3EZU6oVlaUO0XpR2Ps/hbebyWbSb8r15emxDtOtZzehMhRgO75ji9rGJNCQFd+57iNoLIT/8spO/dd+X5Klftw4Ey53tUw8nUqvZVHncxIRXG9RQkPz0tbf6oIe51Ol/TWn3ZylnHGTn5vsHwfrwoVoKdoJYkYY/8urBglWooAL6fYbRy67hSv1yTE+Qa18bSrQI+0XjRDZ2a065YNujNyVIYpKQR0w/hRoesbx2nehMq9I2IY5pM/boNsF3BQhufJbAdsJMM7ZOvPVr71Ma8qGrCTakyvTNLbUXVzYuj6tsD5co9nU4kjvcSD6oSdXIem5KhkO6sWZ34Gu7HAt5PsZKf4SjVs2bKkIeFJOex6fQV+5F77KEmNx2LCuCPGzgY2UhX2nBT1tlghJ8/80ZINXRmeKZOdjI6ud6TxPfuiDFlCYKoILGU+PSq0Obordj6uEjRWCQrdB2xWBwGBPZSeyS3hHs4zcxfE2Skpinvcru8CaR2p5qKP+eaDDJ8ukJ/u9YxrlurdbouTMgTenHCK03JgUkq+vDoEbSgB5yvH4HZtGPruoUYLl3ja7KQ6lEWJMpQqM5a4uRTwuqwVNafS1TtURbjGteA5CPiLuINPingXE1pkgN4s+SAkBNjgEcdH1KlOP0iaSwoBuxIIuFWM3U+K5EtdQ1DgXerkpgW+h1yW1ANuJEfbIZ3EXhn9AAuBTbIk9CHtWaqSgOI6X6u69yE5WifthJlfBwE9nCK5fotJ8xkeYd0Q9IsxTpibEobvt5aZLxX2QruroeBvfCQ0SpgDbqzyZ3XGV12It32ET2DXvT4CTAgNt0p3wkjYo9Q7sot8tvKrAohzwrxcBoFUmK8B34wYnm3hpMdj7Jzi9ogCPWCWvMzlhJEwLXEgzHHiyqJnGvt8JfaAmQR25fXAE5K2O+Mk8Esi/GbAXWreuW1G+znex1Erj+dc1wvJ+5aLktzYBVr341Ql/XKGh7o54jWEdsIsLZmAToz3S6pnGQX82LmcY+yWKGn6EYp85/vOATMS8OEYJ8zZWcpP9Zzn+hypXNIccGXGir218mYv1R1GieSbIPd2rzuqlWos8CI372EpPXmGhLLSoOiL+CzxHZkQ37q4I4eB6QknK/UCh5dMwFzl5/G6ZfcaCJhn+L+FauT+HOdkysmFzdX70QeA8TnvsyiTwyhhKdMhZY+xCy65Oi101vtqmSTvnKXnyxDfTCnsbuWJuwvYOyWe6SG7bvk+LUs6qyy/mDzpkXQe4GFXdAha5LXVaHkveFbZOpyign5LkSGuLLOcEhgMTURTBXYNhoFAvkYK7BoMA4WAjRTYNRgGCgFNYNdgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBkNFiBEUfUZ2Hh/oYT8M+KvY3Z+2uTZmQ4KvkOw+shthg9oWtDhOSzQhvlTh4Qp3e6xIiHOm7O/r9S2Horvzi0g2lJEW4FR53p4o+YycsiFOA2hC6Ppktd0oKZ3XRe1mzyGQnFzPPARFAU5NedjTQ+FPyUFAn/2Huyqx4CicmTO+o5tAQJFd6MlaDn2ZgMAnVXynZb2nRx3rAt4i1/ZXCnM++XJbhPpCEYHko6OM3N66OToykTOYI7+tSnjQTiX557RZngQ6sxSSp5Ds9TGCvh+S609njO9rScLDVejFpNhd53YIKKHcTVQlXVUmActIc5G0AJ9TexA/UGbaQhX/BVGyW68EvHwbpnu0opmnQPJXQto88fUsJlNWZ9iw+hkJcr3oi9wp3z+bNUM9hGSdMta4iN/GxmlwJMS3UZLmTRsI6GTsxpbxfE0moJJ27E6aPpRAwMtCVfmrwCBPAi6X/8vcUDbFzk0bhnvXs1CmuANWXlK9WlKEo6VL73U70oG9xeTFON3+mB7JW0i2jnlJmwhY6/O1i4BKw2c9cFQVaQvV6/+O6Gh80jlOSV88BmxTel0KJfR0PQfTJIy5qSPMT0PXF8j17+WYeyQJybaFgDGYmHOOOzFLOj21awrLLtZMQIcjqmqY0giXoafeVB0G80RZBIzzUj4h//cTErp53NMx4d2k+ZhQYbvzD07OW47mm26013wWMKvALV6U/zNq3JA7X/4yodVqPRsEwQFBENwcBMGEKjJTs32Y0kLUOLvMltfDCWND0H/9bW0dQsA1jSj2BdbI5wvq6AFL8NYOB35VxRD0RT00EhLOViKt0+qq2B5OGIehoetpQrl9xQnTG/V88tuzQHdDCJgmPNzj0dgfqASFz206AeX64CqcMFdFnWtWd88ScsLEvYZYESFA6yOUm/YaYnlDCOheEJ/pSCgKzS5fljSEgA+kCA975adIN7oFFWc1nYAlvIZYHmU0OfxysshQsgTnRtKL+Lk5hXLzxlfoRXwOAn44Ia4NwLtqLoe45zuqSH6Grh2jFh98rKx0tomA+QSShYRXqeFoOwjoJSQLHC2qw+t8hXLzxlc3AcX2P8UT7Crly8CNwNtr9vL6LJnTwsPe+Rlx/UQZvq2LEmrqKwSU33MLJBsMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAw9AVk0BsaB1ws6mStquMzGIyArw03FHhcgh3TDgLKRtyrgL1qyxC1y+BeYHqKbdzq74MzxucrzDtDVuEXFeYttKuhgs3Ita7eLyO+vBo0Gfcevl+CP5gm+OxbzzOEHwpcI2bPA7vUSUCH3jhVX4/9T+/JWYBx+8lmpdidOZAJGLETe3g/IOBg4E9iclxdBJR45yvpRIC/O5HfSggYuqY1WpbG2EXtAO4EviHXH84ZX9yO6mWyT+5Ep5EJDJFeeG2cMG+BQii6z25ETYR4SqkauHwZpoSMnyozvpjwGwE3OfWwknui48Xkkaj9gmUTUHRDr3Biz8BUpfS3EphcOQHlutNoeSXGLk0DozdnfHGaMOuBZTG/jQmno40EvCdqhzfwUbl+V8kE3E5JSF4tMh3XqAqzbUIjsWPEb1My5tNwTXbgzSUTsAN4SMxOroGAl0jQ55Te7VDgWiVPOKnqHlBrtCytehjmKcz7oPSAx0cJF1UwDMn7fNPl578p7Rot4X9w2v2AiVqjx4OgU4BVqtVGFM63jwl/i5rbvFNd30dJlNzikUfDVMWMJHtRAorNu5VA7pCKCThb8m6PiDp6szRynXXNAVMPLyl5DpEkzHtsjLNocRUirwWlCRZJkI/K9zPl++0+98siJKvCTFXzlR7grSnE+bkb4QDvlTm2k/q4Mk4KP+SkuNqdWwFMqcIZooaF94vpB2tofDtjro8AOupwwvTInGt2hXOkOAJulRDnsaonDDuLZjSIgNPVkGycOvpt/7T7AVtnJaAM064M5cnPk+ZMUqm/qfLP5ek30t67ydz7l6qn3aEqb6SyO1JM/5rWOJQZb23vZcq0yzEE7QQuSBqCxtxrpDro44GmEDDUCy6T/7/1aAQnAX9R30d7pKUD+KkEeRY4WeYvAD9La7GBj6v4PuaRL0OUU+KZqHlkRfWtpfJ0rhFQOWEkc74O7CXDG4ANGZ0wnSlOn5ejTkdKcxYVIGBvHgFaFW5GqEfa04OAj4dc33fJ+QRJBLxCOQ12kWt7qtOkrig5X+Ypt/zUOomgDhB60s2vBzIBH3FHkQH/oU5Fcj3S4pJ7zhsizgdMdRYVqGgP5xGgDbXYi5NEg2OG5XeIVORydUadz5B+99D1/auUps/7YrooEWTBhldv3d8J+L6QM0RjfQVCsruRfELurJIrWj6h1ehecBfPSn2HalzGK/d7pedb5CRg5S/iY+wPUl7XzgFLQDUkuFt5z3qVe3u3Cpwb+/LaM+K7gftIOOu9yLMWFVqVXvBznul6lXzq+mtIaAR89R4L5Taf6vMELJnMg4DLVQs1IjAYEgic8x7vUO88R1UdX1/L4A7gR769ksEImPM+N8st/ssIaDDUT+S9xNfwi6Y1KgmYFwRBMNiKz9DX0Wq1FgKjW63WGssNg8FgMBgMBoPBYDAYDAaDwWBoNIDtZT/ZEMsNg6F+Ai5U+8cGWY4YDPUScEelBXKx5YjBUD8J3642vX61wngasyav6rTIbohTRUbDbbKd2LRnAG4HFlZpV3Dxdb9azxk5xGy1WncEQTAjCIL1QRB8Im2Rq8ELZwZBcGEQBJODIOhoeJ1o1WhnSGhtZkpr/bzTJLEeMPf9V0gUc4CN+/uIooaeesBsKTrB50AM4HA5Q2KD78bMmFXi3cADacpmMky+U8W3QSQb3pViNwtYqoaBvgeE7BPaALxB4n97liFThh37dednrqFdHrsYMa5vKSmTXcsiYMJuhJeAXydp2YQU6rYXB+U6EYQ6JGP5OdnMQ6og6TS1A56CFUbLCx4RYzdV7UyPqnDvTOjRyZHOXRMkMNb6FGIWAtadn+0moGgJuQN29i+zB/TYFrQ2rhFVYaYqdTkt13lojvLrKZ2EckoRIlLU6ZtRHrKE98bYXRshyqTt/hhjd1/OdF4ftgvF9+syh0wV5OdFSflZxtAuLwHFMeUazpllxxenqwpsIa/aAO5MIaCTh/yuKO99OUVsbElKfVlcNgHdcC5cWSbkPCGoM0XO8KUYWcJOkcq7Iks6PSq2i+8EGcK6vxPccKbkCpo3nXH5OSopP9tFQJGZdyLAZ1QRX5KwMTDaRzZTcJtbnCIatEl2cXzo9C2Hwpkvhb64zqO9ihRalcdwFekh6s6zmgm4PtTLTKqTgBnKfUVEY19KOZS1I74nCIIOYKNWq7VWZNDnBUGwU05Cu5ajOy5IEAQtYFir1XolRzpH5Nw9/YUgCEYGQTA2CILNQ//LRNF09hUMCYLg/CAIdg2CYI8gCH4H7Ntqtf7SsHQe1Wq1VhYtP496XXgO+FkZI1+iTgXKM2c5P2UO+Kj8fi4wMkc6vx6hcp2UTneew3lZ4ivQQ9yXM519rQf8vnzfGPi9OvVoyyb1gDl+W5Ii5Hxv2QSM8i4+D+xS0Gt3eIzd8Tm9mdNzehfPqnkIOivn8xXRWc31XAUJ2KGubQz8Qa4vKiudbSJgUj2LrddFSXikHBv1ipw5t33OuVW3tCDTUuI7LCSU61sg0+X+Wd8DniR266omoISfrU4C7pcEjLjuSLiiLxMwpp551WtDgyGucy+va83pGuN7KI7B0FfJNwr4sVT06xuUrvHqlKRbraQM/Yl0UVgfd9ZGm9O3Ju8pSQZDXyBgj8whDmhY+tyayp2sxAwGg8FgMBgMBoPBYDAYDAaDIQrA3sANwNMVxvG0xLG35bjB8E9ivE+vm6wwHr0W83jLeYPhH8TocifGAuOzEipDeL1i56+W8wbDa3umTfPYZbTZtGlqaq2BXPBBEAStVsu0LPtgOdRtlyeOfyFbRJx29oPB0EYYAQ2GqoaXAm8Cxqy+9xIULSIkK5/fIrIEa4Fbkxb3AoOA9wN3KLkIjdQNnaHvaTqdtYkklSQitFXo+qQqnyEBK1LydUwbh75jPMKMBC4XdYdFwNuKzEGzTIgzCYqWICQ7VR5S4zlgmxi7S/MWfE6h3KIV9HWh6+MqIuCd8vPDwAS5NkG+p+pfVkDA8xPyVHslu/LW1Rx23l5Xpafq8AJwrKgxAKzK0MiT66F8BEWLCskq4dPLRKvxZC3aE2G3Rn7/KDC2SGNTNGzKb7+MOmFKifMsKJmAo0U+H+AhadiWy/e74873KEsCUuT7X0gjX6js5wNvrJGAb5Q4U+2B1RLsrcB+wKoQIb9dOQEVCTMLkWZsQW/Tp/LKsPehGLvvR7S2TwK/Avasi4AewsM7qz1zY+Xav4muTC+wQ5kElN83lTMyNBYluflLUlM7UDWM52UYbc1rAwHneRIwnPfbySjjeVEnGFULAav+LUr4NCWdg0SV+lZZYhRWnTqlagL6CA+HesGvyPfvyfcr8hSeZ8X5d9Uo9gDbVlHuKswRSqzqXM88Ha96okYOQYtO5drRA47IScDdCj5wS+ZVH5f7rfSw6YlLc1oPDwxW50WkEVD3gnuIk6obeFNMeOdUGgNspl9Uq++rE+LbTE0J3DPeD2zu8XyjslZ04BjleDsnqyOkDh3SmDpXmQOoijmgm7MsibErXUg2x0NvBpyWgYCukn4JGOYZ9gvAJr7Cw8r+KjWJB/jfhLC/kTBz1fOEv9+YUKHvlTBLgSkibYhcH5NSfhdmnMOfqMj7+arn4u20q5WACZgRY1e6kGzBdH7Ic84SfmUyMSZsLuFhZT9V2b2SdAaCpEvjJvnTiDt+bZH8/qAb0ouU4fIkwdsC5ddb5DVEfydgZo3VhNcPyzxc9aUKyeZI50o5tuwdGe6zJ3Aj8HLame15hIdD9v+X5DkLhZ0rHrdl8g5vknxeBczxyJfxoeuv9xhK5i4/I2DJBKyyOzb0HdQhBDzQF2PbUjRDXGUdFQSBe51we4VRuV7yO8AWVTYmQRB8V752NTXTrQcc2KSrXQhYHDlUXU9Cr6lOMAIamk7A2oSAZZXJjcAzFcbxjMSxn5W0wWAwGAztxv8D/CZ1ZE18y3MAAAAASUVORK5CYII= setg 248 # @welcome.ky jmp 2477 # run(:void) # 1 lodi 20971520 setl 0 # 3 lodi 6553600 setl 1 # 4 getg 70 lods Welcome getl 0 getl 1 jsr 3 # 6 getg 245 getg 213 getg 74 getg 248 jsr 1 getg 109 getg 110 jsr 3 lodi 16 lodi 8 lodi 131072 lodi 131072 lodi 65536 lodi 0 jsr 7 setl 2 # 9 lodi 1000 lodi 30 / setl 3 # 11 lodi 0 setl 4 # 12 lodi 0 setl 5 # 14 zero setl 6 # 15 getl 6 not jz 2471 # 15 getg 3 jsr 0 setl 7 # 19 getg 230 jsr 0 setl 8 # 21 getg 82 jsr 0 lodi 0 == dup jif 2356 drop getg 219 getl 8 getg 139 jsr 2 setl 6 # 22 getg 220 getl 8 getg 130 jsr 2 jz 2369 # 22 getl 4 lodi 655360 + setl 4 jmp 2401 getg 220 getl 8 getg 128 jsr 2 jz 2380 # 24 getl 4 lodi 655360 - setl 4 jmp 2401 getg 220 getl 8 getg 129 jsr 2 jz 2391 # 26 getl 5 lodi 655360 - setl 5 jmp 2401 getg 220 getl 8 getg 131 jsr 2 jz 2401 # 28 getl 5 lodi 655360 + setl 5 # 32 getg 71 jsr 0 # 34 getg 73 getg 111 jsr 1 # 35 getl 5 lodi 65536 + setl 9 # 36 getg 26 getl 9 getl 1 lodi 4194304 + jsr 2 setl 5 # 37 getg 246 getl 2 lods I am a getl 4 getl 9 lodi 4194304 - lodi 320 lodi 32 / getg 32 getl 1 jsr 1 lodi 32 / jsr 6 # 41 getg 246 getl 2 lods program!!! getl 4 getl 9 lodi 2097152 - lodi 320 lodi 32 / getg 32 getl 1 jsr 1 lodi 32 / jsr 6 # 45 getg 72 jsr 0 # 47 getg 8 getg 22 lodi 1 getl 3 getg 3 jsr 0 getl 7 - - jsr 2 jsr 1 jmp 2333 # 51 getg 2 lods Done jsr 1 ret # end proc lodf 2288 10 setg 249 getg 249 jsr 0 ret