lst/Clean System Files/generic_print.abc

   1 .comp 920 010111010010000
   2 .start __generic_print_Start
   3 .depend "StdGeneric" "20220216025412"
   4 .depend "_SystemEnumStrict" "20220216025412"
   5 .depend "_SystemStrictLists" "20220216025412"
   6 .depend "StdStrictLists" "20220216025412"
   7 .depend "_SystemEnum" "20220216025412"
   8 .depend "StdEnum" "20220216025412"
   9 .depend "StdMisc" "20220216025412"
  10 .depend "StdFunctions" "20220216025412"
  11 .depend "StdCharList" "20220216025412"
  12 .depend "StdTuple" "20220216025412"
  13 .depend "StdOrdList" "20220216025412"
  14 .depend "StdList" "20220216025412"
  15 .depend "StdClass" "20220216025412"
  16 .depend "StdFile" "20220216025412"
  17 .depend "StdString" "20220216025412"
  18 .depend "_SystemArray" "20220216025412"
  19 .depend "StdArray" "20220216025412"
  20 .depend "StdChar" "20220216025412"
  21 .depend "StdReal" "20220216025412"
  22 .depend "StdInt" "20220216025412"
  23 .depend "StdOverloaded" "20220216025412"
  24 .depend "StdBool" "20220216025412"
  25 .depend "StdEnv" "20220216025412"
  26 .module m_generic_print "generic_print" "20220301120244"
  27 .endinfo
  28 .impmod _system
  29 .implab _cycle_in_spine
  30 .implab _type_error
  31 .implab _hnf
  32 .impdesc e_system_dind
  33 .implab e_system_nind e_system_eaind
  34 .impdesc e_system_dif
  35 .implab e_system_nif e_system_eaif
  36 .implab e_system_sif
  37 .impdesc e_system_dAP
  38 .implab e_system_nAP e_system_eaAP
  39 .implab e_system_sAP
  40 .impdesc ARRAY
  41 .impdesc _Nil
  42 .impdesc _Cons
  43 .impdesc _Conss
  44 .implab n_Conss ea_Conss
  45 .impdesc _Consts
  46 .implab n_Consts ea_Consts
  47 .impdesc _Conssts
  48 .implab n_Conssts ea_Conssts
  49 .impdesc _Tuple
  50 .impdesc d_S.1
  51 .implab n_S.1 ea_S.1
  52 .impdesc d_S.2
  53 .implab n_S.2 ea_S.2
  54 .impdesc d_S.3
  55 .implab n_S.3 ea_S.3
  56 .impdesc d_S.4
  57 .implab n_S.4 ea_S.4
  58 .impdesc d_S.5
  59 .implab n_S.5 ea_S.5
  60 .impdesc d_S.6
  61 .implab n_S.6 ea_S.6
  62 .implab _driver
  63 .impmod StdString
  64 .impdesc e_StdString_dtoString;5
  65 .implab e_StdString_ntoString;5
  66 .impdesc e_StdString_dtoString;7
  67 .implab e_StdString_ntoString;7
  68 .impmod StdGeneric
  69 .impdesc e_StdGeneric_dUNIT
  70 .impdesc e_StdGeneric_dLEFT
  71 .impdesc e_StdGeneric_dRIGHT
  72 .impdesc e_StdGeneric_dPAIR
  73 .impdesc e_StdGeneric_dCONS
  74 .impdesc e_StdGeneric_dRECORD
  75 .impdesc e_StdGeneric_rGenericTypeDefDescriptor
  76 .impdesc e_StdGeneric_rGenericConsDescriptor
  77 .impdesc e_StdGeneric_dGenericConsDescriptor.gcd_name
  78 .implab e_StdGeneric_nGenericConsDescriptor.gcd_name
  79 .impdesc e_StdGeneric_dGenConsNoPrio
  80 .impdesc e_StdGeneric_rGenericRecordDescriptor
  81 .impdesc e_StdGeneric_rGenericFieldDescriptor
  82 .impdesc e_StdGeneric_dGenericFieldDescriptor.gfd_name
  83 .implab e_StdGeneric_nGenericFieldDescriptor.gfd_name
  84 .impdesc e_StdGeneric_dGenTypeCons
  85 .impdesc e_StdGeneric_kGenTypeVar
  86 .impdesc e_StdGeneric_dGenTypeApp
  87 .impdesc e_StdGeneric_dGenTypeArrow
  88 .record r42 aa 2 0 "T"
  89 .export __generic_print_Start
  90 .o 0 0
  91 __generic_print_Start
  92         build _ 0 n1
  93 .d 1 0
  94         jmp _driver
  95 .n 0 _ ea1
  96 .o 1 0
  97 n1
  98         push_node _cycle_in_spine 0
  99 .o 1 0
 100 ea1
 101 .o 1 0
 102 s1
 103         buildh _Nil 0
 104         buildh _Nil 0
 105         buildh _None 0
 106         buildh _Cons 2
 107         buildR 3.14
 108         buildh _Tuple 2
 109         buildI 42
 110 .d 4 0
 111         jmp s14
 112 .o 4 0
 113 s14
 114         create
 115         push_a 2
 116         push_a 2
 117         update_a 2 4
 118         update_a 1 3
 119         updatepop_a 0 2
 120 .d 3 0
 121         jsr s39
 122 .o 1 0
 123         buildh d65 0
 124         build _ 0 n38
 125         buildh d8 2
 126         buildh d2 0
 127         build _ 0 n37
 128         buildh d8 2
 129         buildh d9 2
 130         build _ 0 n36
 131         push_a 3
 132         push_a 3
 133         update_a 1 4
 134         update_a 2 1
 135         update_a 3 2
 136         update_a 0 3
 137         pop_a 1
 138         update_a 3 4
 139         update_a 2 3
 140         update_a 1 2
 141         updatepop_a 0 1
 142 .d 5 0
 143         jmp s7
 144 .desc d65 _hnf l65 2 0 "_f2"
 145 .a 2 ea65
 146 .o 2 0
 147 l65
 148         push_args 0 1 1
 149         update_a 2 1
 150         create
 151         update_a 0 3
 152         pop_a 1
 153 .o 3 0
 154 ea65
 155 .o 3 0
 156 s65
 157         push_a 0
 158         jsr_eval 0
 159         repl_args 2 2
 160         buildh d64 0
 161         buildh d3 0
 162         push_a 5
 163         push_a 4
 164         update_a 1 5
 165         update_a 2 1
 166         update_a 3 2
 167         update_a 4 3
 168         update_a 0 4
 169         pop_a 1
 170         update_a 4 6
 171         update_a 3 5
 172         update_a 2 4
 173         update_a 1 3
 174         updatepop_a 0 2
 175 .d 6 0
 176         jmp s11
 177 .desc d64 _hnf l64 2 0 "_f1"
 178 .a 2 ea64
 179 .o 2 0
 180 l64
 181         push_args 0 1 1
 182         update_a 2 1
 183         create
 184         update_a 0 3
 185         pop_a 1
 186 .o 3 0
 187 ea64
 188 .o 3 0
 189 s64
 190         push_a 0
 191         jsr_eval 0
 192         buildh d63 0
 193         push_a 3
 194         push_a 2
 195         update_a 1 3
 196         update_a 2 1
 197         update_a 0 2
 198         pop_a 1
 199         update_a 2 4
 200         update_a 1 3
 201         updatepop_a 0 2
 202 .d 4 0
 203         jmp s12
 204 .desc d63 _hnf l63 2 0 "_f0"
 205 .a 2 ea63
 206 .o 2 0
 207 l63
 208         push_args 0 1 1
 209         update_a 2 1
 210         create
 211         update_a 0 3
 212         pop_a 1
 213 .o 3 0
 214 ea63
 215 .o 3 0
 216 s63
 217         push_a 0
 218         jsr_eval 0
 219         buildh d2 0
 220         push_a 3
 221         push_a 2
 222         update_a 1 3
 223         update_a 2 1
 224         update_a 0 2
 225         pop_a 1
 226         update_a 2 4
 227         update_a 1 3
 228         updatepop_a 0 2
 229 .d 4 0
 230         jmp s13
 231 .n 0 _
 232 .o 1 0
 233 n37
 234         push_node _cycle_in_spine 0
 235 .o 0 0
 236 ea37
 237         build _ 0 n36
 238         buildI 0
 239         buildAC "f1"
 240         buildh ARRAY 1
 241         fill_r e_StdGeneric_rGenericFieldDescriptor 3 0 3 0 0
 242         pop_a 3
 243 .d 1 0
 244         rtn
 245 .n 0 _
 246 .o 1 0
 247 n38
 248         push_node _cycle_in_spine 0
 249 .o 0 0
 250 ea38
 251         build _ 0 n36
 252         buildI 1
 253         buildAC "f2"
 254         buildh ARRAY 1
 255         fill_r e_StdGeneric_rGenericFieldDescriptor 3 0 3 0 0
 256         pop_a 3
 257 .d 1 0
 258         rtn
 259 .n 0 _
 260 .o 1 0
 261 n36
 262         push_node _cycle_in_spine 0
 263 .o 0 0
 264 ea36
 265         build _ 0 n35
 266         build _ 0 n34
 267         buildI 0
 268         buildI 2
 269         buildAC "T"
 270         buildh ARRAY 1
 271         fill_r e_StdGeneric_rGenericRecordDescriptor 5 0 5 0 0
 272         pop_a 5
 273 .d 1 0
 274         rtn
 275 .n 0 _ ea34
 276 .o 1 0
 277 n34
 278         push_node _cycle_in_spine 0
 279 .o 1 0
 280 ea34
 281 .o 1 0
 282 s34
 283         buildAC "T"
 284         buildh ARRAY 1
 285         buildh e_StdGeneric_dGenTypeCons 1
 286         buildAC "Int"
 287         buildh ARRAY 1
 288         buildh e_StdGeneric_dGenTypeCons 1
 289         buildAC "_!Maybe"
 290         buildh ARRAY 1
 291         buildh e_StdGeneric_dGenTypeCons 1
 292         buildh e_StdGeneric_dGenTypeApp 2
 293         buildAC "_List"
 294         buildh ARRAY 1
 295         buildh e_StdGeneric_dGenTypeCons 1
 296         buildh e_StdGeneric_dGenTypeApp 2
 297         buildAC "Real"
 298         buildh ARRAY 1
 299         buildh e_StdGeneric_dGenTypeCons 1
 300         buildAC "_Tuple2"
 301         buildh ARRAY 1
 302         buildh e_StdGeneric_dGenTypeCons 1
 303         buildh e_StdGeneric_dGenTypeApp 2
 304         buildh e_StdGeneric_dGenTypeApp 2
 305         buildh e_StdGeneric_dGenTypeArrow 2
 306         buildAC "Int"
 307         buildh ARRAY 1
 308         buildh e_StdGeneric_dGenTypeCons 1
 309         fillh e_StdGeneric_dGenTypeArrow 2 2
 310 .d 1 0
 311         rtn
 312 .n 0 _ ea35
 313 .o 1 0
 314 n35
 315         push_node _cycle_in_spine 0
 316 .o 1 0
 317 ea35
 318 .o 1 0
 319 s35
 320         buildh _Nil 0
 321         buildAC "f2"
 322         buildh ARRAY 1
 323         buildh _Cons 2
 324         buildAC "f1"
 325         buildh ARRAY 1
 326         fillh _Cons 2 2
 327 .d 1 0
 328         rtn
 329 .desc d3 _hnf l3 2 0 "gPrint_Real;3"
 330 .o 4 0
 331 i3
 332         pop_a 1
 333 .d 3 0
 334         jmp s3
 335 .ai 2 ea3 i3
 336 .o 2 0
 337 l3
 338         push_args 0 1 1
 339         update_a 2 1
 340         create
 341         update_a 0 3
 342         pop_a 1
 343 .o 3 0
 344 ea3
 345 .o 3 0
 346 s3
 347         push_a 0
 348         build _ 1 e_StdString_ntoString;7
 349         push_a 2
 350         push_a 1
 351         update_a 1 2
 352         update_a 0 1
 353         pop_a 1
 354         fillh _Cons 2 4
 355         pop_a 2
 356 .d 1 0
 357         rtn
 358 .desc d2 _hnf l2 2 0 "gPrint_Int;1"
 359 .o 4 0
 360 i2
 361         pop_a 1
 362 .d 3 0
 363         jmp s2
 364 .ai 2 ea2 i2
 365 .o 2 0
 366 l2
 367         push_args 0 1 1
 368         update_a 2 1
 369         create
 370         update_a 0 3
 371         pop_a 1
 372 .o 3 0
 373 ea2
 374 .o 3 0
 375 s2
 376         push_a 0
 377         build _ 1 e_StdString_ntoString;5
 378         push_a 2
 379         push_a 1
 380         update_a 1 2
 381         update_a 0 1
 382         pop_a 1
 383         fillh _Cons 2 4
 384         pop_a 2
 385 .d 1 0
 386         rtn
 387 .o 4 0
 388 s13
 389         push_a 1
 390         build _ 1 n33
 391         buildh d4 0
 392         build _ 0 n32
 393         buildh d6 2
 394         build _ 0 n31
 395         push_a 3
 396         push_a 1
 397         update_a 1 2
 398         update_a 0 1
 399         pop_a 1
 400         buildh d6 2
 401         buildh d10 2
 402         push_a 4
 403         push_a 2
 404         update_a 1 3
 405         update_a 2 1
 406         update_a 0 2
 407         pop_a 1
 408         update_a 2 5
 409         update_a 1 4
 410         updatepop_a 0 3
 411 .d 4 0
 412         jmp s5
 413 .n 0 _
 414 .o 1 0
 415 n31
 416         push_node _cycle_in_spine 0
 417 .o 0 0
 418 ea31
 419         build _ 0 n29
 420         build _ 0 n28
 421         buildh e_StdGeneric_dGenConsNoPrio 0
 422         buildI 0
 423         buildI 1
 424         buildAC "_!Just"
 425         buildh ARRAY 1
 426         push_a 5
 427         update_a 3 6
 428         update_a 4 3
 429         update_a 5 4
 430         update_a 0 5
 431         pop_a 1
 432         fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
 433         pop_a 6
 434 .d 1 0
 435         rtn
 436 .n 0 _ ea27
 437 .o 1 0
 438 n27
 439         push_node _cycle_in_spine 0
 440 .o 1 0
 441 ea27
 442 .o 1 0
 443 s27
 444         buildh _Nil 0
 445         build _ 0 n32
 446         buildh _Cons 2
 447         build _ 0 n31
 448         fillh _Cons 2 2
 449 .d 1 0
 450         rtn
 451 .n 0 _
 452 .o 1 0
 453 n28
 454         push_node _cycle_in_spine 0
 455 .o 0 0
 456 ea28
 457         build _ 0 n27
 458         buildI 2
 459         buildI 1
 460         buildAC "_!Maybe"
 461         buildh ARRAY 1
 462         fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
 463         pop_a 4
 464 .d 1 0
 465         rtn
 466 .n 0 _
 467 .o 1 0
 468 n32
 469         push_node _cycle_in_spine 0
 470 .o 0 0
 471 ea32
 472         build _ 0 n30
 473         build _ 0 n28
 474         buildh e_StdGeneric_dGenConsNoPrio 0
 475         buildI 1
 476         buildI 0
 477         buildAC "_!None"
 478         buildh ARRAY 1
 479         push_a 5
 480         update_a 3 6
 481         update_a 4 3
 482         update_a 5 4
 483         update_a 0 5
 484         pop_a 1
 485         fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
 486         pop_a 6
 487 .d 1 0
 488         rtn
 489 .n 0 _ ea29
 490 .o 1 0
 491 n29
 492         push_node _cycle_in_spine 0
 493 .o 1 0
 494 ea29
 495 .o 1 0
 496 s29
 497         pushI 0
 498         buildhr e_StdGeneric_kGenTypeVar 0 1
 499         buildAC "_!Maybe"
 500         buildh ARRAY 1
 501         buildh e_StdGeneric_dGenTypeCons 1
 502         buildh e_StdGeneric_dGenTypeApp 2
 503         pushI 0
 504         buildhr e_StdGeneric_kGenTypeVar 0 1
 505         fillh e_StdGeneric_dGenTypeArrow 2 2
 506 .d 1 0
 507         rtn
 508 .n 0 _ ea30
 509 .o 1 0
 510 n30
 511         push_node _cycle_in_spine 0
 512 .o 1 0
 513 ea30
 514 .o 1 0
 515 s30
 516         pushI 0
 517         buildhr e_StdGeneric_kGenTypeVar 0 1
 518         buildAC "_!Maybe"
 519         buildh ARRAY 1
 520         buildh e_StdGeneric_dGenTypeCons 1
 521         fillh e_StdGeneric_dGenTypeApp 2 2
 522 .d 1 0
 523         rtn
 524 .n 1 _ ea33
 525 .o 1 0
 526 n33
 527         push_node _cycle_in_spine 1
 528 .o 2 0
 529 ea33
 530 .o 2 0
 531 s33
 532         eq_desc _Just 1 0
 533         jmp_true case.1
 534         jmp case.2
 535 case.1
 536         repl_args 1 1
 537         push_a 0
 538         buildh e_StdGeneric_dCONS 1
 539         fillh e_StdGeneric_dLEFT 1 2
 540         pop_a 1
 541 .d 1 0
 542         rtn
 543 case.2
 544         buildh e_StdGeneric_dUNIT 0
 545         buildh e_StdGeneric_dCONS 1
 546         fillh e_StdGeneric_dRIGHT 1 2
 547         pop_a 1
 548 .d 1 0
 549         rtn
 550 .desc d12 _hnf l12 3 0 "gPrint__List;13"
 551 .o 5 0
 552 i12
 553         pop_a 1
 554         jsr_eval 1
 555 .d 4 0
 556         jmp s12
 557 .ai 3 ea12 i12
 558 .o 2 0
 559 l12
 560         push_args 0 2 2
 561         update_a 3 2
 562         create
 563         update_a 0 4
 564         pop_a 1
 565 .o 4 0
 566 ea12
 567         jsr_eval 1
 568 .o 4 0
 569 s12
 570         push_a 1
 571         build _ 1 n26
 572         buildh d4 0
 573         build _ 0 n25
 574         buildh d6 2
 575         push_a 2
 576         buildh d12 1
 577         push_a 3
 578         buildh d9 2
 579         build _ 0 n24
 580         buildh d6 2
 581         buildh d10 2
 582         push_a 4
 583         push_a 2
 584         update_a 1 3
 585         update_a 2 1
 586         update_a 0 2
 587         pop_a 1
 588         update_a 2 5
 589         update_a 1 4
 590         updatepop_a 0 3
 591 .d 4 0
 592         jmp s5
 593 .n 0 _
 594 .o 1 0
 595 n24
 596         push_node _cycle_in_spine 0
 597 .o 0 0
 598 ea24
 599         build _ 0 n22
 600         build _ 0 n21
 601         buildh e_StdGeneric_dGenConsNoPrio 0
 602         buildI 0
 603         buildI 2
 604         buildAC "_Cons"
 605         buildh ARRAY 1
 606         push_a 5
 607         update_a 3 6
 608         update_a 4 3
 609         update_a 5 4
 610         update_a 0 5
 611         pop_a 1
 612         fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
 613         pop_a 6
 614 .d 1 0
 615         rtn
 616 .n 0 _ ea20
 617 .o 1 0
 618 n20
 619         push_node _cycle_in_spine 0
 620 .o 1 0
 621 ea20
 622 .o 1 0
 623 s20
 624         buildh _Nil 0
 625         build _ 0 n25
 626         buildh _Cons 2
 627         build _ 0 n24
 628         fillh _Cons 2 2
 629 .d 1 0
 630         rtn
 631 .n 0 _
 632 .o 1 0
 633 n21
 634         push_node _cycle_in_spine 0
 635 .o 0 0
 636 ea21
 637         build _ 0 n20
 638         buildI 2
 639         buildI 1
 640         buildAC "_List"
 641         buildh ARRAY 1
 642         fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
 643         pop_a 4
 644 .d 1 0
 645         rtn
 646 .n 0 _
 647 .o 1 0
 648 n25
 649         push_node _cycle_in_spine 0
 650 .o 0 0
 651 ea25
 652         build _ 0 n23
 653         build _ 0 n21
 654         buildh e_StdGeneric_dGenConsNoPrio 0
 655         buildI 1
 656         buildI 0
 657         buildAC "_Nil"
 658         buildh ARRAY 1
 659         push_a 5
 660         update_a 3 6
 661         update_a 4 3
 662         update_a 5 4
 663         update_a 0 5
 664         pop_a 1
 665         fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
 666         pop_a 6
 667 .d 1 0
 668         rtn
 669 .n 0 _ ea22
 670 .o 1 0
 671 n22
 672         push_node _cycle_in_spine 0
 673 .o 1 0
 674 ea22
 675 .o 1 0
 676 s22
 677         pushI 0
 678         buildhr e_StdGeneric_kGenTypeVar 0 1
 679         buildAC "_List"
 680         buildh ARRAY 1
 681         buildh e_StdGeneric_dGenTypeCons 1
 682         buildh e_StdGeneric_dGenTypeApp 2
 683         pushI 0
 684         buildhr e_StdGeneric_kGenTypeVar 0 1
 685         buildAC "_List"
 686         buildh ARRAY 1
 687         buildh e_StdGeneric_dGenTypeCons 1
 688         buildh e_StdGeneric_dGenTypeApp 2
 689         buildh e_StdGeneric_dGenTypeArrow 2
 690         pushI 0
 691         buildhr e_StdGeneric_kGenTypeVar 0 1
 692         fillh e_StdGeneric_dGenTypeArrow 2 2
 693 .d 1 0
 694         rtn
 695 .n 0 _ ea23
 696 .o 1 0
 697 n23
 698         push_node _cycle_in_spine 0
 699 .o 1 0
 700 ea23
 701 .o 1 0
 702 s23
 703         pushI 0
 704         buildhr e_StdGeneric_kGenTypeVar 0 1
 705         buildAC "_List"
 706         buildh ARRAY 1
 707         buildh e_StdGeneric_dGenTypeCons 1
 708         fillh e_StdGeneric_dGenTypeApp 2 2
 709 .d 1 0
 710         rtn
 711 .desc d4 _hnf l4 2 0 "gPrint_UNIT;5"
 712 .a 2 ea4
 713 .o 2 0
 714 l4
 715         push_args 0 1 1
 716         update_a 2 1
 717         create
 718         update_a 0 3
 719         pop_a 1
 720 .o 3 0
 721 ea4
 722         jsr_eval 1
 723 .o 3 0
 724 s4
 725         fill_a 1 2
 726         pop_a 2
 727 .d 1 0
 728         rtn
 729 .desc d10 _hnf l10 4 0 "gPrint_EITHER;11"
 730 .a 4 ea10
 731 .o 2 0
 732 l10
 733         push_args 0 3 3
 734         update_a 4 3
 735         create
 736         update_a 0 5
 737         pop_a 1
 738 .o 5 0
 739 ea10
 740         jsr_eval 2
 741 .o 5 0
 742 s10
 743         eq_desc e_StdGeneric_dLEFT 1 2
 744         jmp_true case.3
 745         jmp case.4
 746 case.3
 747         push_args 2 1 1
 748         buildh _Nil 0
 749         update_a 0 4
 750         pop_a 1
 751         push_a 4
 752         push_a 2
 753         jsr_eval 0
 754         push_a 2
 755         push_a 1
 756         update_a 1 2
 757         update_a 0 1
 758         pop_a 1
 759         update_a 2 7
 760         update_a 1 6
 761         updatepop_a 0 5
 762         jsr_ap 2
 763         fill_a 0 1
 764         pop_a 1
 765 .d 1 0
 766         rtn
 767 case.4
 768         push_args 2 1 1
 769         buildh _Nil 0
 770         update_a 0 4
 771         pop_a 1
 772         push_a 4
 773         push_a 3
 774         jsr_eval 0
 775         push_a 2
 776         push_a 1
 777         update_a 1 2
 778         update_a 0 1
 779         pop_a 1
 780         update_a 2 7
 781         update_a 1 6
 782         updatepop_a 0 5
 783         jsr_ap 2
 784         fill_a 0 1
 785         pop_a 1
 786 .d 1 0
 787         rtn
 788 .n 1 _ ea26
 789 .o 1 0
 790 n26
 791         push_node _cycle_in_spine 1
 792 .o 2 0
 793 ea26
 794 .o 2 0
 795 s26
 796         eq_desc _Cons 2 0
 797         jmp_true case.5
 798         jmp case.6
 799 case.5
 800         repl_args 2 2
 801         push_a 1
 802         push_a 1
 803         buildh e_StdGeneric_dPAIR 2
 804         buildh e_StdGeneric_dCONS 1
 805         fillh e_StdGeneric_dLEFT 1 3
 806         pop_a 2
 807 .d 1 0
 808         rtn
 809 case.6
 810         buildh e_StdGeneric_dUNIT 0
 811         buildh e_StdGeneric_dCONS 1
 812         fillh e_StdGeneric_dRIGHT 1 2
 813         pop_a 1
 814 .d 1 0
 815         rtn
 816 .o 6 0
 817 s11
 818         push_a 3
 819         push_a 3
 820         buildh _Tuple 2
 821         build _ 1 n19
 822         push_a 2
 823         push_a 2
 824         buildh d9 2
 825         build _ 0 n18
 826         buildh d6 2
 827         push_a 6
 828         push_a 2
 829         update_a 1 3
 830         update_a 2 1
 831         update_a 0 2
 832         pop_a 1
 833         update_a 2 7
 834         update_a 1 6
 835         updatepop_a 0 5
 836 .d 4 0
 837         jmp s5
 838 .n 0 _ ea15
 839 .o 1 0
 840 n15
 841         push_node _cycle_in_spine 0
 842 .o 1 0
 843 ea15
 844 .o 1 0
 845 s15
 846         buildh _Nil 0
 847         build _ 0 n18
 848         fillh _Cons 2 2
 849 .d 1 0
 850         rtn
 851 .n 0 _
 852 .o 1 0
 853 n16
 854         push_node _cycle_in_spine 0
 855 .o 0 0
 856 ea16
 857         build _ 0 n15
 858         buildI 1
 859         buildI 2
 860         buildAC "_Tuple2"
 861         buildh ARRAY 1
 862         fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
 863         pop_a 4
 864 .d 1 0
 865         rtn
 866 .n 0 _
 867 .o 1 0
 868 n18
 869         push_node _cycle_in_spine 0
 870 .o 0 0
 871 ea18
 872         build _ 0 n17
 873         build _ 0 n16
 874         buildh e_StdGeneric_dGenConsNoPrio 0
 875         buildI 0
 876         buildI 2
 877         buildAC "_Tuple2"
 878         buildh ARRAY 1
 879         push_a 5
 880         update_a 3 6
 881         update_a 4 3
 882         update_a 5 4
 883         update_a 0 5
 884         pop_a 1
 885         fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
 886         pop_a 6
 887 .d 1 0
 888         rtn
 889 .n 0 _ ea17
 890 .o 1 0
 891 n17
 892         push_node _cycle_in_spine 0
 893 .o 1 0
 894 ea17
 895 .o 1 0
 896 s17
 897         pushI 1
 898         buildhr e_StdGeneric_kGenTypeVar 0 1
 899         pushI 0
 900         buildhr e_StdGeneric_kGenTypeVar 0 1
 901         buildAC "_Tuple2"
 902         buildh ARRAY 1
 903         buildh e_StdGeneric_dGenTypeCons 1
 904         buildh e_StdGeneric_dGenTypeApp 2
 905         buildh e_StdGeneric_dGenTypeApp 2
 906         pushI 1
 907         buildhr e_StdGeneric_kGenTypeVar 0 1
 908         buildh e_StdGeneric_dGenTypeArrow 2
 909         pushI 0
 910         buildhr e_StdGeneric_kGenTypeVar 0 1
 911         fillh e_StdGeneric_dGenTypeArrow 2 2
 912 .d 1 0
 913         rtn
 914 .desc d6 _hnf l6 4 0 "gPrint_CONS;7"
 915 .a 4 ea6
 916 .o 2 0
 917 l6
 918         push_args 0 3 3
 919         update_a 4 3
 920         create
 921         update_a 0 5
 922         pop_a 1
 923 .o 5 0
 924 ea6
 925         jsr_eval 2
 926 .o 5 0
 927 s6
 928         push_args 2 1 1
 929         buildh _Nil 0
 930         update_a 0 4
 931         pop_a 1
 932         push_a 4
 933         buildAC ")"
 934         buildh ARRAY 1
 935         buildh _Cons 2
 936         push_a 1
 937         push_a 4
 938         build _ 3 n66
 939         buildAC " "
 940         buildh ARRAY 1
 941         buildh _Cons 2
 942         push_a 2
 943         build e_StdGeneric_dGenericConsDescriptor.gcd_name -4 e_StdGeneric_nGenericConsDescriptor.gcd_name
 944         buildh _Cons 2
 945         buildAC "("
 946         buildh ARRAY 1
 947         fillh _Cons 2 7
 948         pop_a 5
 949 .d 1 0
 950         rtn
 951 .n 3 _ ea66
 952 .o 1 0
 953 n66
 954         push_node _cycle_in_spine 3
 955 .o 4 0
 956 ea66
 957 .o 4 0
 958 s66
 959         push_a 2
 960         push_a 1
 961         jsr_eval 0
 962         push_a 3
 963         push_a 1
 964         update_a 1 2
 965         update_a 0 1
 966         pop_a 1
 967         update_a 2 5
 968         update_a 1 4
 969         updatepop_a 0 3
 970         jsr_ap 2
 971         fill_a 0 1
 972         pop_a 1
 973 .d 1 0
 974         rtn
 975 .n 1 _ ea19
 976 .o 1 0
 977 n19
 978         push_node _cycle_in_spine 1
 979 .o 2 0
 980 ea19
 981         repl_args 2 2
 982 .o 3 0
 983 s19
 984         push_a 1
 985         push_a 1
 986         buildh e_StdGeneric_dPAIR 2
 987         fillh e_StdGeneric_dCONS 1 3
 988         pop_a 2
 989 .d 1 0
 990         rtn
 991 .o 4 0
 992 s5
 993         push_a 2
 994         push_a 2
 995         push_a 2
 996         update_a 2 5
 997         update_a 1 4
 998         updatepop_a 0 3
 999         jsr_ap 2
1000         fill_a 0 1
1001         pop_a 1
1002 .d 1 0
1003         rtn
1004 .desc d8 _hnf l8 4 0 "gPrint_FIELD;9"
1005 .a 4 ea8
1006 .o 2 0
1007 l8
1008         push_args 0 3 3
1009         update_a 4 3
1010         create
1011         update_a 0 5
1012         pop_a 1
1013 .o 5 0
1014 ea8
1015 .o 5 0
1016 s8
1017         push_a 3
1018         push_a 3
1019         push_a 3
1020         build _ 3 n67
1021         buildAC "="
1022         buildh ARRAY 1
1023         buildh _Cons 2
1024         push_a 1
1025         build e_StdGeneric_dGenericFieldDescriptor.gfd_name -4 e_StdGeneric_nGenericFieldDescriptor.gfd_name
1026         fillh _Cons 2 6
1027         pop_a 4
1028 .d 1 0
1029         rtn
1030 .n 3 _ ea67
1031 .o 1 0
1032 n67
1033         push_node _cycle_in_spine 3
1034 .o 4 0
1035 ea67
1036 .o 4 0
1037 s67
1038         push_a 2
1039         push_a 1
1040         jsr_eval 0
1041         push_a 3
1042         push_a 1
1043         update_a 1 2
1044         update_a 0 1
1045         pop_a 1
1046         update_a 2 5
1047         update_a 1 4
1048         updatepop_a 0 3
1049         jsr_ap 2
1050         fill_a 0 1
1051         pop_a 1
1052 .d 1 0
1053         rtn
1054 .desc d9 _hnf l9 4 0 "gPrint_PAIR;10"
1055 .a 4 ea9
1056 .o 2 0
1057 l9
1058         push_args 0 3 3
1059         update_a 4 3
1060         create
1061         update_a 0 5
1062         pop_a 1
1063 .o 5 0
1064 ea9
1065         jsr_eval 2
1066         jsr_eval 0
1067 .o 5 0
1068 s9
1069         push_args 2 2 2
1070         buildh _Nil 0
1071         update_a 0 5
1072         pop_a 1
1073         push_a 5
1074         push_a 2
1075         push_a 5
1076         build _ 3 n68
1077         buildAC " "
1078         buildh ARRAY 1
1079         buildh _Cons 2
1080         push_a 1
1081         push_a 4
1082         update_a 2 8
1083         update_a 1 7
1084         updatepop_a 0 6
1085         jsr_ap 2
1086         fill_a 0 1
1087         pop_a 1
1088 .d 1 0
1089         rtn
1090 .n 3 _ ea68
1091 .o 1 0
1092 n68
1093         push_node _cycle_in_spine 3
1094 .o 4 0
1095 ea68
1096 .o 4 0
1097 s68
1098         push_a 2
1099         push_a 1
1100         jsr_eval 0
1101         push_a 3
1102         push_a 1
1103         update_a 1 2
1104         update_a 0 1
1105         pop_a 1
1106         update_a 2 5
1107         update_a 1 4
1108         updatepop_a 0 3
1109         jsr_ap 2
1110         fill_a 0 1
1111         pop_a 1
1112 .d 1 0
1113         rtn
1114 .o 3 0
1115 s39
1116         push_a 1
1117         push_a 1
1118         buildh e_StdGeneric_dPAIR 2
1119         fillh e_StdGeneric_dRECORD 1 3
1120         pop_a 2
1121 .d 1 0
1122         rtn
1123 .o 5 0
1124 s7
1125         push_args 2 1 1
1126         buildh _Nil 0
1127         update_a 0 4
1128         pop_a 1
1129         push_a 4
1130         buildAC "}"
1131         buildh ARRAY 1
1132         buildh _Cons 2
1133         push_a 1
1134         push_a 4
1135         build _ 3 n69
1136         buildAC "{"
1137         buildh ARRAY 1
1138         fillh _Cons 2 7
1139         pop_a 5
1140 .d 1 0
1141         rtn
1142 .n 3 _ ea69
1143 .o 1 0
1144 n69
1145         push_node _cycle_in_spine 3
1146 .o 4 0
1147 ea69
1148 .o 4 0
1149 s69
1150         push_a 2
1151         push_a 1
1152         jsr_eval 0
1153         push_a 3
1154         push_a 1
1155         update_a 1 2
1156         update_a 0 1
1157         pop_a 1
1158         update_a 2 5
1159         update_a 1 4
1160         updatepop_a 0 3
1161         jsr_ap 2
1162         fill_a 0 1
1163         pop_a 1
1164 .d 1 0
1165         rtn