// export function units_create ; var builds , people , apemans , cars , i , tmp ; begin
   0: LD_INT 0
   2: PPUSH
   3: PPUSH
   4: PPUSH
   5: PPUSH
   6: PPUSH
   7: PPUSH
   8: PPUSH
// apemans := [ [ 17 , 19 , 4 , [ 10 , 10 ] , 1 ] , [ 67 , 2 , 0 , [ 10 , 10 ] , 1 ] , [ 62 , 36 , 1 , [ 10 , 10 ] , 2 ] , [ 39 , 48 , 1 , [ 10 , 10 ] , 1 ] , [ 18 , 22 , 5 , [ 10 , 10 ] , 1 ] , [ 82 , 52 , 5 , [ 10 , 10 ] , 2 ] , [ 94 , 37 , 1 , [ 10 , 10 ] , 2 ] , [ 86 , 4 , 4 , [ 10 , 10 ] , 1 ] , [ 22 , 24 , 1 , [ 10 , 10 ] , 1 ] , [ 87 , 4 , 2 , [ 10 , 10 ] , 2 ] , [ 39 , 49 , 2 , [ 10 , 10 ] , 1 ] ] ;
   9: LD_ADDR_VAR 0 4
  13: PUSH
  14: LD_INT 17
  16: PUSH
  17: LD_INT 19
  19: PUSH
  20: LD_INT 4
  22: PUSH
  23: LD_INT 10
  25: PUSH
  26: LD_INT 10
  28: PUSH
  29: EMPTY
  30: LIST
  31: LIST
  32: PUSH
  33: LD_INT 1
  35: PUSH
  36: EMPTY
  37: LIST
  38: LIST
  39: LIST
  40: LIST
  41: LIST
  42: PUSH
  43: LD_INT 67
  45: PUSH
  46: LD_INT 2
  48: PUSH
  49: LD_INT 0
  51: PUSH
  52: LD_INT 10
  54: PUSH
  55: LD_INT 10
  57: PUSH
  58: EMPTY
  59: LIST
  60: LIST
  61: PUSH
  62: LD_INT 1
  64: PUSH
  65: EMPTY
  66: LIST
  67: LIST
  68: LIST
  69: LIST
  70: LIST
  71: PUSH
  72: LD_INT 62
  74: PUSH
  75: LD_INT 36
  77: PUSH
  78: LD_INT 1
  80: PUSH
  81: LD_INT 10
  83: PUSH
  84: LD_INT 10
  86: PUSH
  87: EMPTY
  88: LIST
  89: LIST
  90: PUSH
  91: LD_INT 2
  93: PUSH
  94: EMPTY
  95: LIST
  96: LIST
  97: LIST
  98: LIST
  99: LIST
 100: PUSH
 101: LD_INT 39
 103: PUSH
 104: LD_INT 48
 106: PUSH
 107: LD_INT 1
 109: PUSH
 110: LD_INT 10
 112: PUSH
 113: LD_INT 10
 115: PUSH
 116: EMPTY
 117: LIST
 118: LIST
 119: PUSH
 120: LD_INT 1
 122: PUSH
 123: EMPTY
 124: LIST
 125: LIST
 126: LIST
 127: LIST
 128: LIST
 129: PUSH
 130: LD_INT 18
 132: PUSH
 133: LD_INT 22
 135: PUSH
 136: LD_INT 5
 138: PUSH
 139: LD_INT 10
 141: PUSH
 142: LD_INT 10
 144: PUSH
 145: EMPTY
 146: LIST
 147: LIST
 148: PUSH
 149: LD_INT 1
 151: PUSH
 152: EMPTY
 153: LIST
 154: LIST
 155: LIST
 156: LIST
 157: LIST
 158: PUSH
 159: LD_INT 82
 161: PUSH
 162: LD_INT 52
 164: PUSH
 165: LD_INT 5
 167: PUSH
 168: LD_INT 10
 170: PUSH
 171: LD_INT 10
 173: PUSH
 174: EMPTY
 175: LIST
 176: LIST
 177: PUSH
 178: LD_INT 2
 180: PUSH
 181: EMPTY
 182: LIST
 183: LIST
 184: LIST
 185: LIST
 186: LIST
 187: PUSH
 188: LD_INT 94
 190: PUSH
 191: LD_INT 37
 193: PUSH
 194: LD_INT 1
 196: PUSH
 197: LD_INT 10
 199: PUSH
 200: LD_INT 10
 202: PUSH
 203: EMPTY
 204: LIST
 205: LIST
 206: PUSH
 207: LD_INT 2
 209: PUSH
 210: EMPTY
 211: LIST
 212: LIST
 213: LIST
 214: LIST
 215: LIST
 216: PUSH
 217: LD_INT 86
 219: PUSH
 220: LD_INT 4
 222: PUSH
 223: LD_INT 4
 225: PUSH
 226: LD_INT 10
 228: PUSH
 229: LD_INT 10
 231: PUSH
 232: EMPTY
 233: LIST
 234: LIST
 235: PUSH
 236: LD_INT 1
 238: PUSH
 239: EMPTY
 240: LIST
 241: LIST
 242: LIST
 243: LIST
 244: LIST
 245: PUSH
 246: LD_INT 22
 248: PUSH
 249: LD_INT 24
 251: PUSH
 252: LD_INT 1
 254: PUSH
 255: LD_INT 10
 257: PUSH
 258: LD_INT 10
 260: PUSH
 261: EMPTY
 262: LIST
 263: LIST
 264: PUSH
 265: LD_INT 1
 267: PUSH
 268: EMPTY
 269: LIST
 270: LIST
 271: LIST
 272: LIST
 273: LIST
 274: PUSH
 275: LD_INT 87
 277: PUSH
 278: LD_INT 4
 280: PUSH
 281: LD_INT 2
 283: PUSH
 284: LD_INT 10
 286: PUSH
 287: LD_INT 10
 289: PUSH
 290: EMPTY
 291: LIST
 292: LIST
 293: PUSH
 294: LD_INT 2
 296: PUSH
 297: EMPTY
 298: LIST
 299: LIST
 300: LIST
 301: LIST
 302: LIST
 303: PUSH
 304: LD_INT 39
 306: PUSH
 307: LD_INT 49
 309: PUSH
 310: LD_INT 2
 312: PUSH
 313: LD_INT 10
 315: PUSH
 316: LD_INT 10
 318: PUSH
 319: EMPTY
 320: LIST
 321: LIST
 322: PUSH
 323: LD_INT 1
 325: PUSH
 326: EMPTY
 327: LIST
 328: LIST
 329: LIST
 330: LIST
 331: LIST
 332: PUSH
 333: EMPTY
 334: LIST
 335: LIST
 336: LIST
 337: LIST
 338: LIST
 339: LIST
 340: LIST
 341: LIST
 342: LIST
 343: LIST
 344: LIST
 345: ST_TO_ADDR
// builds := [ [ 52 , 23 , 4 , 0 , 4 ] , [ 44 , 14 , 3 , 6 , 4 , 9 , 9 ] , [ 36 , 18 , 1 , 4 , 4 ] , [ 43 , 26 , 0 , 2 , 4 ] ] ;
 346: LD_ADDR_VAR 0 2
 350: PUSH
 351: LD_INT 52
 353: PUSH
 354: LD_INT 23
 356: PUSH
 357: LD_INT 4
 359: PUSH
 360: LD_INT 0
 362: PUSH
 363: LD_INT 4
 365: PUSH
 366: EMPTY
 367: LIST
 368: LIST
 369: LIST
 370: LIST
 371: LIST
 372: PUSH
 373: LD_INT 44
 375: PUSH
 376: LD_INT 14
 378: PUSH
 379: LD_INT 3
 381: PUSH
 382: LD_INT 6
 384: PUSH
 385: LD_INT 4
 387: PUSH
 388: LD_INT 9
 390: PUSH
 391: LD_INT 9
 393: PUSH
 394: EMPTY
 395: LIST
 396: LIST
 397: LIST
 398: LIST
 399: LIST
 400: LIST
 401: LIST
 402: PUSH
 403: LD_INT 36
 405: PUSH
 406: LD_INT 18
 408: PUSH
 409: LD_INT 1
 411: PUSH
 412: LD_INT 4
 414: PUSH
 415: LD_INT 4
 417: PUSH
 418: EMPTY
 419: LIST
 420: LIST
 421: LIST
 422: LIST
 423: LIST
 424: PUSH
 425: LD_INT 43
 427: PUSH
 428: LD_INT 26
 430: PUSH
 431: LD_INT 0
 433: PUSH
 434: LD_INT 2
 436: PUSH
 437: LD_INT 4
 439: PUSH
 440: EMPTY
 441: LIST
 442: LIST
 443: LIST
 444: LIST
 445: LIST
 446: PUSH
 447: EMPTY
 448: LIST
 449: LIST
 450: LIST
 451: LIST
 452: ST_TO_ADDR
// cars := [ [ 52 , 15 , 1 , 1 , 2 , 2 , 1 , 100 ] , [ 40 , 28 , 2 , 1 , 2 , 2 , 1 , 100 ] ] ;
 453: LD_ADDR_VAR 0 5
 457: PUSH
 458: LD_INT 52
 460: PUSH
 461: LD_INT 15
 463: PUSH
 464: LD_INT 1
 466: PUSH
 467: LD_INT 1
 469: PUSH
 470: LD_INT 2
 472: PUSH
 473: LD_INT 2
 475: PUSH
 476: LD_INT 1
 478: PUSH
 479: LD_INT 100
 481: PUSH
 482: EMPTY
 483: LIST
 484: LIST
 485: LIST
 486: LIST
 487: LIST
 488: LIST
 489: LIST
 490: LIST
 491: PUSH
 492: LD_INT 40
 494: PUSH
 495: LD_INT 28
 497: PUSH
 498: LD_INT 2
 500: PUSH
 501: LD_INT 1
 503: PUSH
 504: LD_INT 2
 506: PUSH
 507: LD_INT 2
 509: PUSH
 510: LD_INT 1
 512: PUSH
 513: LD_INT 100
 515: PUSH
 516: EMPTY
 517: LIST
 518: LIST
 519: LIST
 520: LIST
 521: LIST
 522: LIST
 523: LIST
 524: LIST
 525: PUSH
 526: EMPTY
 527: LIST
 528: LIST
 529: ST_TO_ADDR
// people := [ [ 39 , 22 , 4 , [ 10 , 10 ] , 2 , 1 , [ 1 , 4 , 0 , 1 ] ] , [ 69 , 27 , 3 , [ 10 , 10 ] , 1 , 1 , [ 3 , 1 , 1 , 0 ] ] , [ 65 , 25 , 5 , [ 10 , 10 ] , 1 , 1 , [ 3 , 1 , 1 , 0 ] ] , [ 49 , 24 , 3 , [ 10 , 10 ] , 1 , 1 , [ 3 , 1 , 0 , 0 ] ] , [ 44 , 19 , 0 , [ 10 , 10 ] , 1 , 1 , [ 3 , 1 , 1 , 1 ] ] , [ 15 , 9 , 5 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 1 , 3 ] ] , [ 34 , 39 , 2 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 1 , 3 ] ] , [ 81 , 43 , 4 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 1 , 3 ] ] , [ 79 , 8 , 2 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 1 , 3 ] ] , [ 41 , 20 , 3 , [ 10 , 10 ] , 3 , 1 , [ 0 , 0 , 4 , 1 ] ] , [ 37 , 16 , 2 , [ 10 , 10 ] , 1 , 1 , [ 3 , 0 , 2 , 0 ] ] , [ 37 , 14 , 1 , [ 10 , 10 ] , 1 , 1 , [ 3 , 0 , 2 , 0 ] ] , [ 53 , 17 , 5 , [ 10 , 10 ] , 1 , 1 , [ 3 , 0 , 2 , 0 ] ] , [ 44 , 17 , 0 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 0 , 3 ] ] , [ 43 , 16 , 4 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 0 , 3 ] ] , [ 47 , 19 , 1 , [ 10 , 10 ] , 4 , 1 , [ 0 , 0 , 0 , 3 ] ] ] ;
 530: LD_ADDR_VAR 0 3
 534: PUSH
 535: LD_INT 39
 537: PUSH
 538: LD_INT 22
 540: PUSH
 541: LD_INT 4
 543: PUSH
 544: LD_INT 10
 546: PUSH
 547: LD_INT 10
 549: PUSH
 550: EMPTY
 551: LIST
 552: LIST
 553: PUSH
 554: LD_INT 2
 556: PUSH
 557: LD_INT 1
 559: PUSH
 560: LD_INT 1
 562: PUSH
 563: LD_INT 4
 565: PUSH
 566: LD_INT 0
 568: PUSH
 569: LD_INT 1
 571: PUSH
 572: EMPTY
 573: LIST
 574: LIST
 575: LIST
 576: LIST
 577: PUSH
 578: EMPTY
 579: LIST
 580: LIST
 581: LIST
 582: LIST
 583: LIST
 584: LIST
 585: LIST
 586: PUSH
 587: LD_INT 69
 589: PUSH
 590: LD_INT 27
 592: PUSH
 593: LD_INT 3
 595: PUSH
 596: LD_INT 10
 598: PUSH
 599: LD_INT 10
 601: PUSH
 602: EMPTY
 603: LIST
 604: LIST
 605: PUSH
 606: LD_INT 1
 608: PUSH
 609: LD_INT 1
 611: PUSH
 612: LD_INT 3
 614: PUSH
 615: LD_INT 1
 617: PUSH
 618: LD_INT 1
 620: PUSH
 621: LD_INT 0
 623: PUSH
 624: EMPTY
 625: LIST
 626: LIST
 627: LIST
 628: LIST
 629: PUSH
 630: EMPTY
 631: LIST
 632: LIST
 633: LIST
 634: LIST
 635: LIST
 636: LIST
 637: LIST
 638: PUSH
 639: LD_INT 65
 641: PUSH
 642: LD_INT 25
 644: PUSH
 645: LD_INT 5
 647: PUSH
 648: LD_INT 10
 650: PUSH
 651: LD_INT 10
 653: PUSH
 654: EMPTY
 655: LIST
 656: LIST
 657: PUSH
 658: LD_INT 1
 660: PUSH
 661: LD_INT 1
 663: PUSH
 664: LD_INT 3
 666: PUSH
 667: LD_INT 1
 669: PUSH
 670: LD_INT 1
 672: PUSH
 673: LD_INT 0
 675: PUSH
 676: EMPTY
 677: LIST
 678: LIST
 679: LIST
 680: LIST
 681: PUSH
 682: EMPTY
 683: LIST
 684: LIST
 685: LIST
 686: LIST
 687: LIST
 688: LIST
 689: LIST
 690: PUSH
 691: LD_INT 49
 693: PUSH
 694: LD_INT 24
 696: PUSH
 697: LD_INT 3
 699: PUSH
 700: LD_INT 10
 702: PUSH
 703: LD_INT 10
 705: PUSH
 706: EMPTY
 707: LIST
 708: LIST
 709: PUSH
 710: LD_INT 1
 712: PUSH
 713: LD_INT 1
 715: PUSH
 716: LD_INT 3
 718: PUSH
 719: LD_INT 1
 721: PUSH
 722: LD_INT 0
 724: PUSH
 725: LD_INT 0
 727: PUSH
 728: EMPTY
 729: LIST
 730: LIST
 731: LIST
 732: LIST
 733: PUSH
 734: EMPTY
 735: LIST
 736: LIST
 737: LIST
 738: LIST
 739: LIST
 740: LIST
 741: LIST
 742: PUSH
 743: LD_INT 44
 745: PUSH
 746: LD_INT 19
 748: PUSH
 749: LD_INT 0
 751: PUSH
 752: LD_INT 10
 754: PUSH
 755: LD_INT 10
 757: PUSH
 758: EMPTY
 759: LIST
 760: LIST
 761: PUSH
 762: LD_INT 1
 764: PUSH
 765: LD_INT 1
 767: PUSH
 768: LD_INT 3
 770: PUSH
 771: LD_INT 1
 773: PUSH
 774: LD_INT 1
 776: PUSH
 777: LD_INT 1
 779: PUSH
 780: EMPTY
 781: LIST
 782: LIST
 783: LIST
 784: LIST
 785: PUSH
 786: EMPTY
 787: LIST
 788: LIST
 789: LIST
 790: LIST
 791: LIST
 792: LIST
 793: LIST
 794: PUSH
 795: LD_INT 15
 797: PUSH
 798: LD_INT 9
 800: PUSH
 801: LD_INT 5
 803: PUSH
 804: LD_INT 10
 806: PUSH
 807: LD_INT 10
 809: PUSH
 810: EMPTY
 811: LIST
 812: LIST
 813: PUSH
 814: LD_INT 4
 816: PUSH
 817: LD_INT 1
 819: PUSH
 820: LD_INT 0
 822: PUSH
 823: LD_INT 0
 825: PUSH
 826: LD_INT 1
 828: PUSH
 829: LD_INT 3
 831: PUSH
 832: EMPTY
 833: LIST
 834: LIST
 835: LIST
 836: LIST
 837: PUSH
 838: EMPTY
 839: LIST
 840: LIST
 841: LIST
 842: LIST
 843: LIST
 844: LIST
 845: LIST
 846: PUSH
 847: LD_INT 34
 849: PUSH
 850: LD_INT 39
 852: PUSH
 853: LD_INT 2
 855: PUSH
 856: LD_INT 10
 858: PUSH
 859: LD_INT 10
 861: PUSH
 862: EMPTY
 863: LIST
 864: LIST
 865: PUSH
 866: LD_INT 4
 868: PUSH
 869: LD_INT 1
 871: PUSH
 872: LD_INT 0
 874: PUSH
 875: LD_INT 0
 877: PUSH
 878: LD_INT 1
 880: PUSH
 881: LD_INT 3
 883: PUSH
 884: EMPTY
 885: LIST
 886: LIST
 887: LIST
 888: LIST
 889: PUSH
 890: EMPTY
 891: LIST
 892: LIST
 893: LIST
 894: LIST
 895: LIST
 896: LIST
 897: LIST
 898: PUSH
 899: LD_INT 81
 901: PUSH
 902: LD_INT 43
 904: PUSH
 905: LD_INT 4
 907: PUSH
 908: LD_INT 10
 910: PUSH
 911: LD_INT 10
 913: PUSH
 914: EMPTY
 915: LIST
 916: LIST
 917: PUSH
 918: LD_INT 4
 920: PUSH
 921: LD_INT 1
 923: PUSH
 924: LD_INT 0
 926: PUSH
 927: LD_INT 0
 929: PUSH
 930: LD_INT 1
 932: PUSH
 933: LD_INT 3
 935: PUSH
 936: EMPTY
 937: LIST
 938: LIST
 939: LIST
 940: LIST
 941: PUSH
 942: EMPTY
 943: LIST
 944: LIST
 945: LIST
 946: LIST
 947: LIST
 948: LIST
 949: LIST
 950: PUSH
 951: LD_INT 79
 953: PUSH
 954: LD_INT 8
 956: PUSH
 957: LD_INT 2
 959: PUSH
 960: LD_INT 10
 962: PUSH
 963: LD_INT 10
 965: PUSH
 966: EMPTY
 967: LIST
 968: LIST
 969: PUSH
 970: LD_INT 4
 972: PUSH
 973: LD_INT 1
 975: PUSH
 976: LD_INT 0
 978: PUSH
 979: LD_INT 0
 981: PUSH
 982: LD_INT 1
 984: PUSH
 985: LD_INT 3
 987: PUSH
 988: EMPTY
 989: LIST
 990: LIST
 991: LIST
 992: LIST
 993: PUSH
 994: EMPTY
 995: LIST
 996: LIST
 997: LIST
 998: LIST
 999: LIST
1000: LIST
1001: LIST
1002: PUSH
1003: LD_INT 41
1005: PUSH
1006: LD_INT 20
1008: PUSH
1009: LD_INT 3
1011: PUSH
1012: LD_INT 10
1014: PUSH
1015: LD_INT 10
1017: PUSH
1018: EMPTY
1019: LIST
1020: LIST
1021: PUSH
1022: LD_INT 3
1024: PUSH
1025: LD_INT 1
1027: PUSH
1028: LD_INT 0
1030: PUSH
1031: LD_INT 0
1033: PUSH
1034: LD_INT 4
1036: PUSH
1037: LD_INT 1
1039: PUSH
1040: EMPTY
1041: LIST
1042: LIST
1043: LIST
1044: LIST
1045: PUSH
1046: EMPTY
1047: LIST
1048: LIST
1049: LIST
1050: LIST
1051: LIST
1052: LIST
1053: LIST
1054: PUSH
1055: LD_INT 37
1057: PUSH
1058: LD_INT 16
1060: PUSH
1061: LD_INT 2
1063: PUSH
1064: LD_INT 10
1066: PUSH
1067: LD_INT 10
1069: PUSH
1070: EMPTY
1071: LIST
1072: LIST
1073: PUSH
1074: LD_INT 1
1076: PUSH
1077: LD_INT 1
1079: PUSH
1080: LD_INT 3
1082: PUSH
1083: LD_INT 0
1085: PUSH
1086: LD_INT 2
1088: PUSH
1089: LD_INT 0
1091: PUSH
1092: EMPTY
1093: LIST
1094: LIST
1095: LIST
1096: LIST
1097: PUSH
1098: EMPTY
1099: LIST
1100: LIST
1101: LIST
1102: LIST
1103: LIST
1104: LIST
1105: LIST
1106: PUSH
1107: LD_INT 37
1109: PUSH
1110: LD_INT 14
1112: PUSH
1113: LD_INT 1
1115: PUSH
1116: LD_INT 10
1118: PUSH
1119: LD_INT 10
1121: PUSH
1122: EMPTY
1123: LIST
1124: LIST
1125: PUSH
1126: LD_INT 1
1128: PUSH
1129: LD_INT 1
1131: PUSH
1132: LD_INT 3
1134: PUSH
1135: LD_INT 0
1137: PUSH
1138: LD_INT 2
1140: PUSH
1141: LD_INT 0
1143: PUSH
1144: EMPTY
1145: LIST
1146: LIST
1147: LIST
1148: LIST
1149: PUSH
1150: EMPTY
1151: LIST
1152: LIST
1153: LIST
1154: LIST
1155: LIST
1156: LIST
1157: LIST
1158: PUSH
1159: LD_INT 53
1161: PUSH
1162: LD_INT 17
1164: PUSH
1165: LD_INT 5
1167: PUSH
1168: LD_INT 10
1170: PUSH
1171: LD_INT 10
1173: PUSH
1174: EMPTY
1175: LIST
1176: LIST
1177: PUSH
1178: LD_INT 1
1180: PUSH
1181: LD_INT 1
1183: PUSH
1184: LD_INT 3
1186: PUSH
1187: LD_INT 0
1189: PUSH
1190: LD_INT 2
1192: PUSH
1193: LD_INT 0
1195: PUSH
1196: EMPTY
1197: LIST
1198: LIST
1199: LIST
1200: LIST
1201: PUSH
1202: EMPTY
1203: LIST
1204: LIST
1205: LIST
1206: LIST
1207: LIST
1208: LIST
1209: LIST
1210: PUSH
1211: LD_INT 44
1213: PUSH
1214: LD_INT 17
1216: PUSH
1217: LD_INT 0
1219: PUSH
1220: LD_INT 10
1222: PUSH
1223: LD_INT 10
1225: PUSH
1226: EMPTY
1227: LIST
1228: LIST
1229: PUSH
1230: LD_INT 4
1232: PUSH
1233: LD_INT 1
1235: PUSH
1236: LD_INT 0
1238: PUSH
1239: LD_INT 0
1241: PUSH
1242: LD_INT 0
1244: PUSH
1245: LD_INT 3
1247: PUSH
1248: EMPTY
1249: LIST
1250: LIST
1251: LIST
1252: LIST
1253: PUSH
1254: EMPTY
1255: LIST
1256: LIST
1257: LIST
1258: LIST
1259: LIST
1260: LIST
1261: LIST
1262: PUSH
1263: LD_INT 43
1265: PUSH
1266: LD_INT 16
1268: PUSH
1269: LD_INT 4
1271: PUSH
1272: LD_INT 10
1274: PUSH
1275: LD_INT 10
1277: PUSH
1278: EMPTY
1279: LIST
1280: LIST
1281: PUSH
1282: LD_INT 4
1284: PUSH
1285: LD_INT 1
1287: PUSH
1288: LD_INT 0
1290: PUSH
1291: LD_INT 0
1293: PUSH
1294: LD_INT 0
1296: PUSH
1297: LD_INT 3
1299: PUSH
1300: EMPTY
1301: LIST
1302: LIST
1303: LIST
1304: LIST
1305: PUSH
1306: EMPTY
1307: LIST
1308: LIST
1309: LIST
1310: LIST
1311: LIST
1312: LIST
1313: LIST
1314: PUSH
1315: LD_INT 47
1317: PUSH
1318: LD_INT 19
1320: PUSH
1321: LD_INT 1
1323: PUSH
1324: LD_INT 10
1326: PUSH
1327: LD_INT 10
1329: PUSH
1330: EMPTY
1331: LIST
1332: LIST
1333: PUSH
1334: LD_INT 4
1336: PUSH
1337: LD_INT 1
1339: PUSH
1340: LD_INT 0
1342: PUSH
1343: LD_INT 0
1345: PUSH
1346: LD_INT 0
1348: PUSH
1349: LD_INT 3
1351: PUSH
1352: EMPTY
1353: LIST
1354: LIST
1355: LIST
1356: LIST
1357: PUSH
1358: EMPTY
1359: LIST
1360: LIST
1361: LIST
1362: LIST
1363: LIST
1364: LIST
1365: LIST
1366: PUSH
1367: EMPTY
1368: LIST
1369: LIST
1370: LIST
1371: LIST
1372: LIST
1373: LIST
1374: LIST
1375: LIST
1376: LIST
1377: LIST
1378: LIST
1379: LIST
1380: LIST
1381: LIST
1382: LIST
1383: LIST
1384: ST_TO_ADDR
// InitUc ;
1385: CALL_OW 15
// InitVc ;
1389: CALL_OW 17
// InitHc ;
1393: CALL_OW 16
// uc_side := 1 ;
1397: LD_ADDR_OWVAR 11
1401: PUSH
1402: LD_INT 1
1404: ST_TO_ADDR
// uc_nation := nation_american ;
1405: LD_ADDR_OWVAR 12
1409: PUSH
1410: LD_INT 1
1412: ST_TO_ADDR
// for i in builds do
1413: LD_ADDR_VAR 0 6
1417: PUSH
1418: LD_VAR 0 2
1422: PUSH
1423: FOR_IN
1424: IFFALSE 1567
// begin uc_direction := i [ 3 ] ;
1426: LD_ADDR_OWVAR 15
1430: PUSH
1431: LD_VAR 0 6
1435: PUSH
1436: LD_INT 3
1438: ARRAY
1439: ST_TO_ADDR
// bc_type := i [ 4 ] ;
1440: LD_ADDR_OWVAR 33
1444: PUSH
1445: LD_VAR 0 6
1449: PUSH
1450: LD_INT 4
1452: ARRAY
1453: ST_TO_ADDR
// bc_level := i [ 5 ] ;
1454: LD_ADDR_OWVAR 34
1458: PUSH
1459: LD_VAR 0 6
1463: PUSH
1464: LD_INT 5
1466: ARRAY
1467: ST_TO_ADDR
// case bc_type of b_lab , b_lab_half , b_lab_full :
1468: LD_OWVAR 33
1472: PUSH
1473: LD_INT 6
1475: DOUBLE
1476: EQUAL
1477: IFTRUE 1493
1479: LD_INT 7
1481: DOUBLE
1482: EQUAL
1483: IFTRUE 1493
1485: LD_INT 8
1487: DOUBLE
1488: EQUAL
1489: IFTRUE 1493
1491: GO 1524
1493: POP
// begin bc_kind1 := i [ 6 ] ;
1494: LD_ADDR_OWVAR 35
1498: PUSH
1499: LD_VAR 0 6
1503: PUSH
1504: LD_INT 6
1506: ARRAY
1507: ST_TO_ADDR
// bc_kind2 := i [ 7 ] ;
1508: LD_ADDR_OWVAR 36
1512: PUSH
1513: LD_VAR 0 6
1517: PUSH
1518: LD_INT 7
1520: ARRAY
1521: ST_TO_ADDR
// end ; end ;
1522: GO 1525
1524: POP
// tmp := CreateBuilding ;
1525: LD_ADDR_VAR 0 7
1529: PUSH
1530: CALL_OW 41
1534: ST_TO_ADDR
// PlaceUnitXY ( tmp , i [ 1 ] , i [ 2 ] , false ) ;
1535: LD_VAR 0 7
1539: PPUSH
1540: LD_VAR 0 6
1544: PUSH
1545: LD_INT 1
1547: ARRAY
1548: PPUSH
1549: LD_VAR 0 6
1553: PUSH
1554: LD_INT 2
1556: ARRAY
1557: PPUSH
1558: LD_INT 0
1560: PPUSH
1561: CALL_OW 43
// end ;
1565: GO 1423
1567: POP
1568: POP
// for i in people do
1569: LD_ADDR_VAR 0 6
1573: PUSH
1574: LD_VAR 0 3
1578: PUSH
1579: FOR_IN
1580: IFFALSE 1694
// begin uc_direction := i [ 3 ] ;
1582: LD_ADDR_OWVAR 15
1586: PUSH
1587: LD_VAR 0 6
1591: PUSH
1592: LD_INT 3
1594: ARRAY
1595: ST_TO_ADDR
// hc_attr := i [ 4 ] ;
1596: LD_ADDR_OWVAR 20
1600: PUSH
1601: LD_VAR 0 6
1605: PUSH
1606: LD_INT 4
1608: ARRAY
1609: ST_TO_ADDR
// hc_class := i [ 5 ] ;
1610: LD_ADDR_OWVAR 19
1614: PUSH
1615: LD_VAR 0 6
1619: PUSH
1620: LD_INT 5
1622: ARRAY
1623: ST_TO_ADDR
// hc_sex := i [ 6 ] ;
1624: LD_ADDR_OWVAR 18
1628: PUSH
1629: LD_VAR 0 6
1633: PUSH
1634: LD_INT 6
1636: ARRAY
1637: ST_TO_ADDR
// hc_skills := i [ 7 ] ;
1638: LD_ADDR_OWVAR 22
1642: PUSH
1643: LD_VAR 0 6
1647: PUSH
1648: LD_INT 7
1650: ARRAY
1651: ST_TO_ADDR
// tmp := CreateHuman ;
1652: LD_ADDR_VAR 0 7
1656: PUSH
1657: CALL_OW 39
1661: ST_TO_ADDR
// PlaceUnitXY ( tmp , i [ 1 ] , i [ 2 ] , false ) ;
1662: LD_VAR 0 7
1666: PPUSH
1667: LD_VAR 0 6
1671: PUSH
1672: LD_INT 1
1674: ARRAY
1675: PPUSH
1676: LD_VAR 0 6
1680: PUSH
1681: LD_INT 2
1683: ARRAY
1684: PPUSH
1685: LD_INT 0
1687: PPUSH
1688: CALL_OW 43
// end ;
1692: GO 1579
1694: POP
1695: POP
// for i in cars do
1696: LD_ADDR_VAR 0 6
1700: PUSH
1701: LD_VAR 0 5
1705: PUSH
1706: FOR_IN
1707: IFFALSE 1835
// begin uc_direction := i [ 3 ] ;
1709: LD_ADDR_OWVAR 15
1713: PUSH
1714: LD_VAR 0 6
1718: PUSH
1719: LD_INT 3
1721: ARRAY
1722: ST_TO_ADDR
// vc_chassis := i [ 4 ] ;
1723: LD_ADDR_OWVAR 28
1727: PUSH
1728: LD_VAR 0 6
1732: PUSH
1733: LD_INT 4
1735: ARRAY
1736: ST_TO_ADDR
// vc_weapon := i [ 5 ] ;
1737: LD_ADDR_OWVAR 31
1741: PUSH
1742: LD_VAR 0 6
1746: PUSH
1747: LD_INT 5
1749: ARRAY
1750: ST_TO_ADDR
// vc_engine := i [ 6 ] ;
1751: LD_ADDR_OWVAR 30
1755: PUSH
1756: LD_VAR 0 6
1760: PUSH
1761: LD_INT 6
1763: ARRAY
1764: ST_TO_ADDR
// vc_control := i [ 7 ] ;
1765: LD_ADDR_OWVAR 29
1769: PUSH
1770: LD_VAR 0 6
1774: PUSH
1775: LD_INT 7
1777: ARRAY
1778: ST_TO_ADDR
// vc_fuel_battery := i [ 8 ] ;
1779: LD_ADDR_OWVAR 32
1783: PUSH
1784: LD_VAR 0 6
1788: PUSH
1789: LD_INT 8
1791: ARRAY
1792: ST_TO_ADDR
// tmp := CreateVehicle ;
1793: LD_ADDR_VAR 0 7
1797: PUSH
1798: CALL_OW 40
1802: ST_TO_ADDR
// PlaceUnitXY ( tmp , i [ 1 ] , i [ 2 ] , false ) ;
1803: LD_VAR 0 7
1807: PPUSH
1808: LD_VAR 0 6
1812: PUSH
1813: LD_INT 1
1815: ARRAY
1816: PPUSH
1817: LD_VAR 0 6
1821: PUSH
1822: LD_INT 2
1824: ARRAY
1825: PPUSH
1826: LD_INT 0
1828: PPUSH
1829: CALL_OW 43
// end ;
1833: GO 1706
1835: POP
1836: POP
// uc_side := 0 ;
1837: LD_ADDR_OWVAR 11
1841: PUSH
1842: LD_INT 0
1844: ST_TO_ADDR
// uc_nation := nation_nature ;
1845: LD_ADDR_OWVAR 12
1849: PUSH
1850: LD_INT 0
1852: ST_TO_ADDR
// for i in apemans do
1853: LD_ADDR_VAR 0 6
1857: PUSH
1858: LD_VAR 0 4
1862: PUSH
1863: FOR_IN
1864: IFFALSE 1976
// begin uc_direction := i [ 3 ] ;
1866: LD_ADDR_OWVAR 15
1870: PUSH
1871: LD_VAR 0 6
1875: PUSH
1876: LD_INT 3
1878: ARRAY
1879: ST_TO_ADDR
// hc_attr := i [ 4 ] ;
1880: LD_ADDR_OWVAR 20
1884: PUSH
1885: LD_VAR 0 6
1889: PUSH
1890: LD_INT 4
1892: ARRAY
1893: ST_TO_ADDR
// hc_sex := i [ 5 ] ;
1894: LD_ADDR_OWVAR 18
1898: PUSH
1899: LD_VAR 0 6
1903: PUSH
1904: LD_INT 5
1906: ARRAY
1907: ST_TO_ADDR
// hc_agressivity := Rand ( - 20 , - 5 ) ;
1908: LD_ADDR_OWVAR 26
1912: PUSH
1913: LD_INT 20
1915: NEG
1916: PPUSH
1917: LD_INT 5
1919: NEG
1920: PPUSH
1921: CALL_OW 9
1925: ST_TO_ADDR
// hc_class := class_apeman ;
1926: LD_ADDR_OWVAR 19
1930: PUSH
1931: LD_INT 12
1933: ST_TO_ADDR
// tmp := CreateHuman ;
1934: LD_ADDR_VAR 0 7
1938: PUSH
1939: CALL_OW 39
1943: ST_TO_ADDR
// PlaceUnitXY ( tmp , i [ 1 ] , i [ 2 ] , false ) ;
1944: LD_VAR 0 7
1948: PPUSH
1949: LD_VAR 0 6
1953: PUSH
1954: LD_INT 1
1956: ARRAY
1957: PPUSH
1958: LD_VAR 0 6
1962: PUSH
1963: LD_INT 2
1965: ARRAY
1966: PPUSH
1967: LD_INT 0
1969: PPUSH
1970: CALL_OW 43
// end ;
1974: GO 1863
1976: POP
1977: POP
// end ;
1978: LD_VAR 0 1
1982: RET
