source: proto/juncoTestHarness/junco1/expected/tshermer/other/good_floatComparisons.asm @ 2849

Last change on this file since 2849 was 2849, checked in by ksherdy, 6 years ago

Added logic to populate expected test results.

File size: 36.2 KB
Line 
1        Jump         $$main                   
2        DLabel       $eat-location-zero       
3        DataZ        8                         
4        DLabel       $print-format-integer     
5        DataC        37                        %% "%d"
6        DataC        100                       
7        DataC        0                         
8        DLabel       $print-format-float       
9        DataC        37                        %% "%g"
10        DataC        103                       
11        DataC        0                         
12        DLabel       $print-format-boolean     
13        DataC        37                        %% "%s"
14        DataC        115                       
15        DataC        0                         
16        DLabel       $print-format-character   
17        DataC        37                        %% "%c"
18        DataC        99                       
19        DataC        0                         
20        DLabel       $print-format-newline     
21        DataC        10                        %% "\n"
22        DataC        0                         
23        DLabel       $boolean-true-string     
24        DataC        116                       %% "true"
25        DataC        114                       
26        DataC        117                       
27        DataC        101                       
28        DataC        0                         
29        DLabel       $boolean-false-string     
30        DataC        102                       %% "false"
31        DataC        97                       
32        DataC        108                       
33        DataC        115                       
34        DataC        101                       
35        DataC        0                         
36        DLabel       $print-spacer-string     
37        DataC        32                        %% " "
38        DataC        0                         
39        DLabel       $errors-general-message   
40        DataC        82                        %% "Runtime error: %s\n"
41        DataC        117                       
42        DataC        110                       
43        DataC        116                       
44        DataC        105                       
45        DataC        109                       
46        DataC        101                       
47        DataC        32                       
48        DataC        101                       
49        DataC        114                       
50        DataC        114                       
51        DataC        111                       
52        DataC        114                       
53        DataC        58                       
54        DataC        32                       
55        DataC        37                       
56        DataC        115                       
57        DataC        10                       
58        DataC        0                         
59        Label        $$general-runtime-error   
60        PushD        $errors-general-message   
61        Printf                                 
62        Halt                                   
63        DLabel       $errors-int-divide-by-zero
64        DataC        105                       %% "integer divide by zero"
65        DataC        110                       
66        DataC        116                       
67        DataC        101                       
68        DataC        103                       
69        DataC        101                       
70        DataC        114                       
71        DataC        32                       
72        DataC        100                       
73        DataC        105                       
74        DataC        118                       
75        DataC        105                       
76        DataC        100                       
77        DataC        101                       
78        DataC        32                       
79        DataC        98                       
80        DataC        121                       
81        DataC        32                       
82        DataC        122                       
83        DataC        101                       
84        DataC        114                       
85        DataC        111                       
86        DataC        0                         
87        Label        $i-divide-by-zero         
88        PushD        $errors-int-divide-by-zero
89        Jump         $$general-runtime-error   
90        DLabel       $errors-float-divide-by-zero
91        DataC        102                       %% "floating divide by zero"
92        DataC        108                       
93        DataC        111                       
94        DataC        97                       
95        DataC        116                       
96        DataC        105                       
97        DataC        110                       
98        DataC        103                       
99        DataC        32                       
100        DataC        100                       
101        DataC        105                       
102        DataC        118                       
103        DataC        105                       
104        DataC        100                       
105        DataC        101                       
106        DataC        32                       
107        DataC        98                       
108        DataC        121                       
109        DataC        32                       
110        DataC        122                       
111        DataC        101                       
112        DataC        114                       
113        DataC        111                       
114        DataC        0                         
115        Label        $f-divide-by-zero         
116        PushD        $errors-float-divide-by-zero
117        Jump         $$general-runtime-error   
118        DLabel       $usable-memory-start     
119        DLabel       $global-memory-block     
120        DataZ        0                         
121        Label        $$main                   
122        PushI        60                       
123        PushD        $print-format-character   
124        Printf                                 
125        PushD        $print-format-newline     
126        Printf                                 
127        PushI        32                       
128        PushD        $print-format-character   
129        Printf                                 
130        PushD        $print-spacer-string     
131        Printf                                 
132        Label        -compare-start-1         
133        Label        -compare-arg1-1           
134        PushF        3.000000                 
135        Label        -compare-arg2-1           
136        PushF        4.000000                 
137        Label        -compare-sub-1           
138        FSubtract                             
139        JumpFNeg     -compare-true-1           
140        Jump         -compare-false-1         
141        Label        -compare-true-1           
142        PushI        1                         
143        Jump         -compare-join-1           
144        Label        -compare-false-1         
145        PushI        0                         
146        Jump         -compare-join-1           
147        Label        -compare-join-1           
148        JumpTrue     -print-boolean-true2     
149        PushD        $boolean-false-string     
150        Jump         -print-boolean-join2     
151        Label        -print-boolean-true2     
152        PushD        $boolean-true-string     
153        Label        -print-boolean-join2     
154        PushD        $print-format-boolean     
155        Printf                                 
156        PushD        $print-spacer-string     
157        Printf                                 
158        PushD        $print-format-newline     
159        Printf                                 
160        PushI        32                       
161        PushD        $print-format-character   
162        Printf                                 
163        PushD        $print-spacer-string     
164        Printf                                 
165        Label        -compare-start-3         
166        Label        -compare-arg1-3           
167        PushF        4.000000                 
168        Label        -compare-arg2-3           
169        PushF        4.000000                 
170        Label        -compare-sub-3           
171        FSubtract                             
172        JumpFNeg     -compare-true-3           
173        Jump         -compare-false-3         
174        Label        -compare-true-3           
175        PushI        1                         
176        Jump         -compare-join-3           
177        Label        -compare-false-3         
178        PushI        0                         
179        Jump         -compare-join-3           
180        Label        -compare-join-3           
181        JumpTrue     -print-boolean-true4     
182        PushD        $boolean-false-string     
183        Jump         -print-boolean-join4     
184        Label        -print-boolean-true4     
185        PushD        $boolean-true-string     
186        Label        -print-boolean-join4     
187        PushD        $print-format-boolean     
188        Printf                                 
189        PushD        $print-spacer-string     
190        Printf                                 
191        PushD        $print-format-newline     
192        Printf                                 
193        PushI        32                       
194        PushD        $print-format-character   
195        Printf                                 
196        PushD        $print-spacer-string     
197        Printf                                 
198        Label        -compare-start-5         
199        Label        -compare-arg1-5           
200        PushF        5.000000                 
201        Label        -compare-arg2-5           
202        PushF        4.000000                 
203        Label        -compare-sub-5           
204        FSubtract                             
205        JumpFNeg     -compare-true-5           
206        Jump         -compare-false-5         
207        Label        -compare-true-5           
208        PushI        1                         
209        Jump         -compare-join-5           
210        Label        -compare-false-5         
211        PushI        0                         
212        Jump         -compare-join-5           
213        Label        -compare-join-5           
214        JumpTrue     -print-boolean-true6     
215        PushD        $boolean-false-string     
216        Jump         -print-boolean-join6     
217        Label        -print-boolean-true6     
218        PushD        $boolean-true-string     
219        Label        -print-boolean-join6     
220        PushD        $print-format-boolean     
221        Printf                                 
222        PushD        $print-spacer-string     
223        Printf                                 
224        PushD        $print-format-newline     
225        Printf                                 
226        PushD        $print-format-newline     
227        Printf                                 
228        PushI        60                       
229        PushD        $print-format-character   
230        Printf                                 
231        PushI        61                       
232        PushD        $print-format-character   
233        Printf                                 
234        PushD        $print-format-newline     
235        Printf                                 
236        PushI        32                       
237        PushD        $print-format-character   
238        Printf                                 
239        PushD        $print-spacer-string     
240        Printf                                 
241        Label        -compare-start-7         
242        Label        -compare-arg1-7           
243        PushF        3.000000                 
244        Label        -compare-arg2-7           
245        PushF        4.000000                 
246        Label        -compare-sub-7           
247        FSubtract                             
248        JumpFPos     -compare-false-7         
249        Jump         -compare-true-7           
250        Label        -compare-true-7           
251        PushI        1                         
252        Jump         -compare-join-7           
253        Label        -compare-false-7         
254        PushI        0                         
255        Jump         -compare-join-7           
256        Label        -compare-join-7           
257        JumpTrue     -print-boolean-true8     
258        PushD        $boolean-false-string     
259        Jump         -print-boolean-join8     
260        Label        -print-boolean-true8     
261        PushD        $boolean-true-string     
262        Label        -print-boolean-join8     
263        PushD        $print-format-boolean     
264        Printf                                 
265        PushD        $print-spacer-string     
266        Printf                                 
267        PushD        $print-format-newline     
268        Printf                                 
269        PushI        32                       
270        PushD        $print-format-character   
271        Printf                                 
272        PushD        $print-spacer-string     
273        Printf                                 
274        Label        -compare-start-9         
275        Label        -compare-arg1-9           
276        PushF        4.000000                 
277        Label        -compare-arg2-9           
278        PushF        4.000000                 
279        Label        -compare-sub-9           
280        FSubtract                             
281        JumpFPos     -compare-false-9         
282        Jump         -compare-true-9           
283        Label        -compare-true-9           
284        PushI        1                         
285        Jump         -compare-join-9           
286        Label        -compare-false-9         
287        PushI        0                         
288        Jump         -compare-join-9           
289        Label        -compare-join-9           
290        JumpTrue     -print-boolean-true10     
291        PushD        $boolean-false-string     
292        Jump         -print-boolean-join10     
293        Label        -print-boolean-true10     
294        PushD        $boolean-true-string     
295        Label        -print-boolean-join10     
296        PushD        $print-format-boolean     
297        Printf                                 
298        PushD        $print-spacer-string     
299        Printf                                 
300        PushD        $print-format-newline     
301        Printf                                 
302        PushI        32                       
303        PushD        $print-format-character   
304        Printf                                 
305        PushD        $print-spacer-string     
306        Printf                                 
307        Label        -compare-start-11         
308        Label        -compare-arg1-11         
309        PushF        5.000000                 
310        Label        -compare-arg2-11         
311        PushF        4.000000                 
312        Label        -compare-sub-11           
313        FSubtract                             
314        JumpFPos     -compare-false-11         
315        Jump         -compare-true-11         
316        Label        -compare-true-11         
317        PushI        1                         
318        Jump         -compare-join-11         
319        Label        -compare-false-11         
320        PushI        0                         
321        Jump         -compare-join-11         
322        Label        -compare-join-11         
323        JumpTrue     -print-boolean-true12     
324        PushD        $boolean-false-string     
325        Jump         -print-boolean-join12     
326        Label        -print-boolean-true12     
327        PushD        $boolean-true-string     
328        Label        -print-boolean-join12     
329        PushD        $print-format-boolean     
330        Printf                                 
331        PushD        $print-spacer-string     
332        Printf                                 
333        PushD        $print-format-newline     
334        Printf                                 
335        PushD        $print-format-newline     
336        Printf                                 
337        PushI        62                       
338        PushD        $print-format-character   
339        Printf                                 
340        PushD        $print-format-newline     
341        Printf                                 
342        PushI        32                       
343        PushD        $print-format-character   
344        Printf                                 
345        PushD        $print-spacer-string     
346        Printf                                 
347        Label        -compare-start-13         
348        Label        -compare-arg1-13         
349        PushF        3.000000                 
350        Label        -compare-arg2-13         
351        PushF        4.000000                 
352        Label        -compare-sub-13           
353        FSubtract                             
354        JumpFPos     -compare-true-13         
355        Jump         -compare-false-13         
356        Label        -compare-true-13         
357        PushI        1                         
358        Jump         -compare-join-13         
359        Label        -compare-false-13         
360        PushI        0                         
361        Jump         -compare-join-13         
362        Label        -compare-join-13         
363        JumpTrue     -print-boolean-true14     
364        PushD        $boolean-false-string     
365        Jump         -print-boolean-join14     
366        Label        -print-boolean-true14     
367        PushD        $boolean-true-string     
368        Label        -print-boolean-join14     
369        PushD        $print-format-boolean     
370        Printf                                 
371        PushD        $print-spacer-string     
372        Printf                                 
373        PushD        $print-format-newline     
374        Printf                                 
375        PushI        32                       
376        PushD        $print-format-character   
377        Printf                                 
378        PushD        $print-spacer-string     
379        Printf                                 
380        Label        -compare-start-15         
381        Label        -compare-arg1-15         
382        PushF        4.000000                 
383        Label        -compare-arg2-15         
384        PushF        4.000000                 
385        Label        -compare-sub-15           
386        FSubtract                             
387        JumpFPos     -compare-true-15         
388        Jump         -compare-false-15         
389        Label        -compare-true-15         
390        PushI        1                         
391        Jump         -compare-join-15         
392        Label        -compare-false-15         
393        PushI        0                         
394        Jump         -compare-join-15         
395        Label        -compare-join-15         
396        JumpTrue     -print-boolean-true16     
397        PushD        $boolean-false-string     
398        Jump         -print-boolean-join16     
399        Label        -print-boolean-true16     
400        PushD        $boolean-true-string     
401        Label        -print-boolean-join16     
402        PushD        $print-format-boolean     
403        Printf                                 
404        PushD        $print-spacer-string     
405        Printf                                 
406        PushD        $print-format-newline     
407        Printf                                 
408        PushI        32                       
409        PushD        $print-format-character   
410        Printf                                 
411        PushD        $print-spacer-string     
412        Printf                                 
413        Label        -compare-start-17         
414        Label        -compare-arg1-17         
415        PushF        5.000000                 
416        Label        -compare-arg2-17         
417        PushF        4.000000                 
418        Label        -compare-sub-17           
419        FSubtract                             
420        JumpFPos     -compare-true-17         
421        Jump         -compare-false-17         
422        Label        -compare-true-17         
423        PushI        1                         
424        Jump         -compare-join-17         
425        Label        -compare-false-17         
426        PushI        0                         
427        Jump         -compare-join-17         
428        Label        -compare-join-17         
429        JumpTrue     -print-boolean-true18     
430        PushD        $boolean-false-string     
431        Jump         -print-boolean-join18     
432        Label        -print-boolean-true18     
433        PushD        $boolean-true-string     
434        Label        -print-boolean-join18     
435        PushD        $print-format-boolean     
436        Printf                                 
437        PushD        $print-spacer-string     
438        Printf                                 
439        PushD        $print-format-newline     
440        Printf                                 
441        PushD        $print-format-newline     
442        Printf                                 
443        PushI        62                       
444        PushD        $print-format-character   
445        Printf                                 
446        PushI        61                       
447        PushD        $print-format-character   
448        Printf                                 
449        PushD        $print-format-newline     
450        Printf                                 
451        PushI        32                       
452        PushD        $print-format-character   
453        Printf                                 
454        PushD        $print-spacer-string     
455        Printf                                 
456        Label        -compare-start-19         
457        Label        -compare-arg1-19         
458        PushF        3.000000                 
459        Label        -compare-arg2-19         
460        PushF        4.000000                 
461        Label        -compare-sub-19           
462        FSubtract                             
463        JumpFNeg     -compare-false-19         
464        Jump         -compare-true-19         
465        Label        -compare-true-19         
466        PushI        1                         
467        Jump         -compare-join-19         
468        Label        -compare-false-19         
469        PushI        0                         
470        Jump         -compare-join-19         
471        Label        -compare-join-19         
472        JumpTrue     -print-boolean-true20     
473        PushD        $boolean-false-string     
474        Jump         -print-boolean-join20     
475        Label        -print-boolean-true20     
476        PushD        $boolean-true-string     
477        Label        -print-boolean-join20     
478        PushD        $print-format-boolean     
479        Printf                                 
480        PushD        $print-spacer-string     
481        Printf                                 
482        PushD        $print-format-newline     
483        Printf                                 
484        PushI        32                       
485        PushD        $print-format-character   
486        Printf                                 
487        PushD        $print-spacer-string     
488        Printf                                 
489        Label        -compare-start-21         
490        Label        -compare-arg1-21         
491        PushF        4.000000                 
492        Label        -compare-arg2-21         
493        PushF        4.000000                 
494        Label        -compare-sub-21           
495        FSubtract                             
496        JumpFNeg     -compare-false-21         
497        Jump         -compare-true-21         
498        Label        -compare-true-21         
499        PushI        1                         
500        Jump         -compare-join-21         
501        Label        -compare-false-21         
502        PushI        0                         
503        Jump         -compare-join-21         
504        Label        -compare-join-21         
505        JumpTrue     -print-boolean-true22     
506        PushD        $boolean-false-string     
507        Jump         -print-boolean-join22     
508        Label        -print-boolean-true22     
509        PushD        $boolean-true-string     
510        Label        -print-boolean-join22     
511        PushD        $print-format-boolean     
512        Printf                                 
513        PushD        $print-spacer-string     
514        Printf                                 
515        PushD        $print-format-newline     
516        Printf                                 
517        PushI        32                       
518        PushD        $print-format-character   
519        Printf                                 
520        PushD        $print-spacer-string     
521        Printf                                 
522        Label        -compare-start-23         
523        Label        -compare-arg1-23         
524        PushF        5.000000                 
525        Label        -compare-arg2-23         
526        PushF        4.000000                 
527        Label        -compare-sub-23           
528        FSubtract                             
529        JumpFNeg     -compare-false-23         
530        Jump         -compare-true-23         
531        Label        -compare-true-23         
532        PushI        1                         
533        Jump         -compare-join-23         
534        Label        -compare-false-23         
535        PushI        0                         
536        Jump         -compare-join-23         
537        Label        -compare-join-23         
538        JumpTrue     -print-boolean-true24     
539        PushD        $boolean-false-string     
540        Jump         -print-boolean-join24     
541        Label        -print-boolean-true24     
542        PushD        $boolean-true-string     
543        Label        -print-boolean-join24     
544        PushD        $print-format-boolean     
545        Printf                                 
546        PushD        $print-spacer-string     
547        Printf                                 
548        PushD        $print-format-newline     
549        Printf                                 
550        PushD        $print-format-newline     
551        Printf                                 
552        PushI        61                       
553        PushD        $print-format-character   
554        Printf                                 
555        PushI        61                       
556        PushD        $print-format-character   
557        Printf                                 
558        PushD        $print-format-newline     
559        Printf                                 
560        PushI        32                       
561        PushD        $print-format-character   
562        Printf                                 
563        PushD        $print-spacer-string     
564        Printf                                 
565        Label        -compare-start-25         
566        Label        -compare-arg1-25         
567        PushF        3.000000                 
568        Label        -compare-arg2-25         
569        PushF        4.000000                 
570        Label        -compare-sub-25           
571        FSubtract                             
572        JumpFZero    -compare-true-25         
573        Jump         -compare-false-25         
574        Label        -compare-true-25         
575        PushI        1                         
576        Jump         -compare-join-25         
577        Label        -compare-false-25         
578        PushI        0                         
579        Jump         -compare-join-25         
580        Label        -compare-join-25         
581        JumpTrue     -print-boolean-true26     
582        PushD        $boolean-false-string     
583        Jump         -print-boolean-join26     
584        Label        -print-boolean-true26     
585        PushD        $boolean-true-string     
586        Label        -print-boolean-join26     
587        PushD        $print-format-boolean     
588        Printf                                 
589        PushD        $print-spacer-string     
590        Printf                                 
591        PushD        $print-format-newline     
592        Printf                                 
593        PushI        32                       
594        PushD        $print-format-character   
595        Printf                                 
596        PushD        $print-spacer-string     
597        Printf                                 
598        Label        -compare-start-27         
599        Label        -compare-arg1-27         
600        PushF        4.000000                 
601        Label        -compare-arg2-27         
602        PushF        4.000000                 
603        Label        -compare-sub-27           
604        FSubtract                             
605        JumpFZero    -compare-true-27         
606        Jump         -compare-false-27         
607        Label        -compare-true-27         
608        PushI        1                         
609        Jump         -compare-join-27         
610        Label        -compare-false-27         
611        PushI        0                         
612        Jump         -compare-join-27         
613        Label        -compare-join-27         
614        JumpTrue     -print-boolean-true28     
615        PushD        $boolean-false-string     
616        Jump         -print-boolean-join28     
617        Label        -print-boolean-true28     
618        PushD        $boolean-true-string     
619        Label        -print-boolean-join28     
620        PushD        $print-format-boolean     
621        Printf                                 
622        PushD        $print-spacer-string     
623        Printf                                 
624        PushD        $print-format-newline     
625        Printf                                 
626        PushI        32                       
627        PushD        $print-format-character   
628        Printf                                 
629        PushD        $print-spacer-string     
630        Printf                                 
631        Label        -compare-start-29         
632        Label        -compare-arg1-29         
633        PushF        5.000000                 
634        Label        -compare-arg2-29         
635        PushF        4.000000                 
636        Label        -compare-sub-29           
637        FSubtract                             
638        JumpFZero    -compare-true-29         
639        Jump         -compare-false-29         
640        Label        -compare-true-29         
641        PushI        1                         
642        Jump         -compare-join-29         
643        Label        -compare-false-29         
644        PushI        0                         
645        Jump         -compare-join-29         
646        Label        -compare-join-29         
647        JumpTrue     -print-boolean-true30     
648        PushD        $boolean-false-string     
649        Jump         -print-boolean-join30     
650        Label        -print-boolean-true30     
651        PushD        $boolean-true-string     
652        Label        -print-boolean-join30     
653        PushD        $print-format-boolean     
654        Printf                                 
655        PushD        $print-spacer-string     
656        Printf                                 
657        PushD        $print-format-newline     
658        Printf                                 
659        PushD        $print-format-newline     
660        Printf                                 
661        PushI        60                       
662        PushD        $print-format-character   
663        Printf                                 
664        PushI        62                       
665        PushD        $print-format-character   
666        Printf                                 
667        PushD        $print-format-newline     
668        Printf                                 
669        PushI        32                       
670        PushD        $print-format-character   
671        Printf                                 
672        PushD        $print-spacer-string     
673        Printf                                 
674        Label        -compare-start-31         
675        Label        -compare-arg1-31         
676        PushF        3.000000                 
677        Label        -compare-arg2-31         
678        PushF        4.000000                 
679        Label        -compare-sub-31           
680        FSubtract                             
681        JumpFZero    -compare-false-31         
682        Jump         -compare-true-31         
683        Label        -compare-true-31         
684        PushI        1                         
685        Jump         -compare-join-31         
686        Label        -compare-false-31         
687        PushI        0                         
688        Jump         -compare-join-31         
689        Label        -compare-join-31         
690        JumpTrue     -print-boolean-true32     
691        PushD        $boolean-false-string     
692        Jump         -print-boolean-join32     
693        Label        -print-boolean-true32     
694        PushD        $boolean-true-string     
695        Label        -print-boolean-join32     
696        PushD        $print-format-boolean     
697        Printf                                 
698        PushD        $print-spacer-string     
699        Printf                                 
700        PushD        $print-format-newline     
701        Printf                                 
702        PushI        32                       
703        PushD        $print-format-character   
704        Printf                                 
705        PushD        $print-spacer-string     
706        Printf                                 
707        Label        -compare-start-33         
708        Label        -compare-arg1-33         
709        PushF        4.000000                 
710        Label        -compare-arg2-33         
711        PushF        4.000000                 
712        Label        -compare-sub-33           
713        FSubtract                             
714        JumpFZero    -compare-false-33         
715        Jump         -compare-true-33         
716        Label        -compare-true-33         
717        PushI        1                         
718        Jump         -compare-join-33         
719        Label        -compare-false-33         
720        PushI        0                         
721        Jump         -compare-join-33         
722        Label        -compare-join-33         
723        JumpTrue     -print-boolean-true34     
724        PushD        $boolean-false-string     
725        Jump         -print-boolean-join34     
726        Label        -print-boolean-true34     
727        PushD        $boolean-true-string     
728        Label        -print-boolean-join34     
729        PushD        $print-format-boolean     
730        Printf                                 
731        PushD        $print-spacer-string     
732        Printf                                 
733        PushD        $print-format-newline     
734        Printf                                 
735        PushI        32                       
736        PushD        $print-format-character   
737        Printf                                 
738        PushD        $print-spacer-string     
739        Printf                                 
740        Label        -compare-start-35         
741        Label        -compare-arg1-35         
742        PushF        5.000000                 
743        Label        -compare-arg2-35         
744        PushF        4.000000                 
745        Label        -compare-sub-35           
746        FSubtract                             
747        JumpFZero    -compare-false-35         
748        Jump         -compare-true-35         
749        Label        -compare-true-35         
750        PushI        1                         
751        Jump         -compare-join-35         
752        Label        -compare-false-35         
753        PushI        0                         
754        Jump         -compare-join-35         
755        Label        -compare-join-35         
756        JumpTrue     -print-boolean-true36     
757        PushD        $boolean-false-string     
758        Jump         -print-boolean-join36     
759        Label        -print-boolean-true36     
760        PushD        $boolean-true-string     
761        Label        -print-boolean-join36     
762        PushD        $print-format-boolean     
763        Printf                                 
764        PushD        $print-spacer-string     
765        Printf                                 
766        PushD        $print-format-newline     
767        Printf                                 
768        PushD        $print-format-newline     
769        Printf                                 
770        Halt                                   
Note: See TracBrowser for help on using the repository browser.