-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathEnchanter.z3.txd
12093 lines (11034 loc) · 617 KB
/
Enchanter.z3.txd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
Resident data ends at 53e2, program starts at 550a, file ends at 1b216
Starting analysis pass at address 53e2
End of analysis pass, low address = 53e2, high address = 17674
[Start of code at 53e2]
Routine 53e2, 1 local (0000)
53e5: 4a 01 09 49 TEST_ATTR L00,#09 [FALSE] 53f0
53e9: e8 3f bb 4c PUSH S001
53ed: 8c 00 06 JUMP 53f4
53f0: e8 3f bb 4d PUSH S002
53f4: ad 00 PRINT_PADDR (SP)+
53f6: aa 01 PRINT_OBJ L00
53f8: b0 RTRUE
Routine 53fa, 1 local (0000)
53fd: 4f 01 00 00 LOADW L00,#00 -> -(SP)
5401: e7 bf 00 00 RANDOM (SP)+ -> -(SP)
5405: 6f 01 00 00 LOADW L00,(SP)+ -> -(SP)
5409: b8 RET_POPPED
Routine 540a, 6 locals (0000, 0000, 0000, 0000, 0000, 0000)
5417: 4f 01 00 02 LOADW L00,#00 -> L01
541b: 4f 01 01 03 LOADW L00,#01 -> L02
541f: 96 02 DEC L01
5421: 54 01 02 01 ADD L00,#02 -> L00
5425: 56 03 02 00 MUL L02,#02 -> -(SP)
5429: 74 01 00 06 ADD L00,(SP)+ -> L05
542d: 75 02 03 00 SUB L01,L02 -> -(SP)
5431: e7 bf 00 04 RANDOM (SP)+ -> L03
5435: 6f 06 04 05 LOADW L05,L03 -> L04
5439: 4f 06 01 00 LOADW L05,#01 -> -(SP)
543d: e1 ab 06 04 00 STOREW L05,L03,(SP)+
5442: e1 9b 06 01 05 STOREW L05,#01,L04
5447: 95 03 INC L02
5449: 61 03 02 45 JE L02,L01 [FALSE] 5450
544d: 0d 03 00 STORE L02,#00
5450: e1 9b 01 00 03 STOREW L00,#00,L02
5455: ab 05 RET L04
Routine 5458, 3 locals (0000, 0000, 0000)
545f: e0 2f 2a 36 01 03 CALL 546c (L00) -> L02
5465: e1 9b 03 01 02 STOREW L02,#01,L01
546a: ab 03 RET L02
Routine 546c, 5 locals (0000, 0000, 0000, 0000, 0000)
5477: 54 35 b4 03 ADD G25,#b4 -> L02
547b: 74 35 63 04 ADD G25,G53 -> L03
547f: 61 04 03 58 JE L03,L02 [FALSE] 5499
5483: 55 63 06 63 SUB G53,#06 -> G53
5487: a0 02 c6 JZ L01 [TRUE] 548e
548a: 55 7d 06 7d SUB G6d,#06 -> G6d
548e: 74 35 63 05 ADD G25,G53 -> L04
5492: e1 9b 05 02 01 STOREW L04,#02,L00
5497: ab 05 RET L04
5499: 4f 04 02 00 LOADW L03,#02 -> -(SP)
549d: 61 00 01 44 JE (SP)+,L00 [FALSE] 54a3
54a1: ab 04 RET L03
54a3: 54 04 06 04 ADD L03,#06 -> L03
54a7: 8c ff d7 JUMP 547f
Routine 54aa, 4 locals (0000, 0000, 0000, 0000)
54b3: a0 2e c6 JZ G1e [TRUE] 54ba
54b6: 0d 2e 00 STORE G1e,#00
54b9: b1 RFALSE
54ba: a0 ae c8 JZ G9e [TRUE] 54c3
54bd: e8 bf 63 PUSH G53
54c0: 8c 00 05 JUMP 54c6
54c3: e8 bf 7d PUSH G6d
54c6: 74 35 00 01 ADD G25,(SP)+ -> L00
54ca: 54 35 b4 02 ADD G25,#b4 -> L01
54ce: 61 01 02 46 JE L00,L01 [FALSE] 54d6
54d2: 95 12 INC G02
54d4: ab 04 RET L03
54d6: 4f 01 00 00 LOADW L00,#00 -> -(SP)
54da: a0 00 e7 JZ (SP)+ [TRUE] 5502
54dd: 4f 01 01 03 LOADW L00,#01 -> L02
54e1: a0 03 45 JZ L02 [FALSE] 54e7
54e4: 8c 00 1d JUMP 5502
54e7: 55 03 01 00 SUB L02,#01 -> -(SP)
54eb: e1 9b 01 01 00 STOREW L00,#01,(SP)+
54f0: 43 03 01 d0 JG L02,#01 [TRUE] 5502
54f4: 4f 01 02 00 LOADW L00,#02 -> -(SP)
54f8: e0 bf 00 00 CALL (SP)+ -> -(SP)
54fc: a0 00 c5 JZ (SP)+ [TRUE] 5502
54ff: 0d 04 01 STORE L03,#01
5502: 54 01 06 01 ADD L00,#06 -> L00
5506: 8c ff c7 JUMP 54ce
Main routine 550a, 0 locals ()
550b: e2 97 65 00 3b STOREB G55,#00,#3b
5510: e0 07 2a 2c a5 1a 56 00 CALL 5458 (#a51a,#56) -> -(SP)
5518: e1 97 00 00 01 STOREW (SP)+,#00,#01
551d: e0 07 2a 2c a4 ee 29 00 CALL 5458 (#a4ee,#29) -> -(SP)
5525: e1 97 00 00 01 STOREW (SP)+,#00,#01
552a: e0 07 2a 2c a5 04 43 00 CALL 5458 (#a504,#43) -> -(SP)
5532: e1 97 00 00 01 STOREW (SP)+,#00,#01
5537: e0 03 2a 2c 2e 25 ff ff 00
CALL 5458 (#2e25,#ffff) -> -(SP)
5540: e1 97 00 00 01 STOREW (SP)+,#00,#01
5545: e0 07 2a 2c ba 9b 05 00 CALL 5458 (#ba9b,#05) -> -(SP)
554d: e1 97 00 00 01 STOREW (SP)+,#00,#01
5552: e0 07 2a 2c 6b d3 32 00 CALL 5458 (#6bd3,#32) -> -(SP)
555a: e1 97 00 00 01 STOREW (SP)+,#00,#01
555f: e0 07 2a 2c 90 2b 00 00 CALL 5458 (#902b,#00) -> -(SP)
5567: e1 97 00 00 01 STOREW (SP)+,#00,#01
556c: e0 07 2a 2c 85 b0 00 00 CALL 5458 (#85b0,#00) -> -(SP)
5574: e1 97 00 00 01 STOREW (SP)+,#00,#01
5579: 0d 52 01 STORE G42,#01
557c: 0d c9 37 STORE Gb9,#37
557f: 0d 10 2a STORE G00,#2a
5582: 0d d4 00 STORE Gc4,#00
5585: 4a 10 0f 82 f5 TEST_ATTR G00,#0f [TRUE] 587d
558a: b2 ... PRINT "It must be the warlock Krill.
The odd disappearances, the mysterious dissolution of regions sacred to the
Circle, the lessening of the Powers -- these could only be his handiwork. The
Circle gathers and its leader, the esteemed Belboz, reveals to them an ancient
document which portends evil days much like our own.
"Krill's evil must be unmade," he begins, "but to send a powerful Enchanter is
ill-omened. It would be ruinous to reveal oversoon our full powers." A ripple
of concern spreads over the face of each Enchanter. Belboz pauses, and collects
his resolve. "Have hope! This has been written by a hand far wiser than mine!"
He recites a short spell and you appear. Belboz approaches, transfixing you
with his gaze, and hands you the document. The other Enchanters await his
decree. "These words, written ages ago, can have only one meaning. You, a
novice Enchanter with but a few simple spells in your Book, must seek out
Krill, explore the Castle he has overthrown, and learn his secrets. Only then
may his vast evil be lessened or, with good fortune, destroyed."
The Circle rises and intones a richly woven spell, whose many textures imbue
the small, darkened chamber with warmth and hope. There is a surge of power;
you are Sent."
5875: bb NEW_LINE
5876: bb NEW_LINE
5877: e0 3f 3f a4 00 CALL 7f48 -> -(SP)
587c: bb NEW_LINE
587d: 6e c9 10 INSERT_OBJ Gb9,G00
5880: e0 3f 3c 99 00 CALL 7932 -> -(SP)
5885: e0 3f 2c 47 00 CALL 588e -> -(SP)
588a: 8c fc 80 JUMP 550b
Routine 588e, 1 local (0000)
5891: e0 3f 2c 4d 01 CALL 589a -> L00
5896: 8c ff fa JUMP 5891
Routine 589a, 11 locals (0000, 0000, 0000, 0000, 0000, 0000, 0000, 0000, 0000,
0000, 0000)
58b1: 0d 04 00 STORE L03,#00
58b4: 0d 05 00 STORE L04,#00
58b7: 0d 08 01 STORE L07,#01
58ba: e0 3f 2e fd ae CALL 5dfa -> G9e
58bf: a0 ae 82 57 JZ G9e [TRUE] 5b18
58c3: 6f 47 28 01 LOADW G37,G18 -> L00
58c7: 6f 9a 28 02 LOADW G8a,G18 -> L01
58cb: a0 d4 80 44 JZ Gc4 [TRUE] 5911
58cf: e0 2f 3c 45 d4 00 CALL 788a (Gc4) -> -(SP)
58d5: a0 00 fb JZ (SP)+ [TRUE] 5911
58d8: 0d 0a 00 STORE L09,#00
58db: 25 04 01 45 INC_CHK L03,L00 [FALSE] 58e2
58df: 8c 00 13 JUMP 58f3
58e2: 6f 47 04 00 LOADW G37,L03 -> -(SP)
58e6: 41 00 4f 3f f2 JE (SP)+,#4f [FALSE] 58db
58eb: e1 ab 47 04 d4 STOREW G37,L03,Gc4
58f0: 0d 0a 01 STORE L09,#01
58f3: a0 0a 5a JZ L09 [FALSE] 590e
58f6: 0d 04 00 STORE L03,#00
58f9: 25 04 02 45 INC_CHK L03,L01 [FALSE] 5900
58fd: 8c 00 10 JUMP 590e
5900: 6f 9a 04 00 LOADW G8a,L03 -> -(SP)
5904: 41 00 4f 3f f2 JE (SP)+,#4f [FALSE] 58f9
5909: e1 ab 9a 04 d4 STOREW G8a,L03,Gc4
590e: 0d 04 00 STORE L03,#00
5911: a0 02 48 JZ L01 [FALSE] 591a
5914: e8 bf 02 PUSH L01
5917: 8c 00 33 JUMP 594b
591a: 43 02 01 58 JG L01,#01 [FALSE] 5934
591e: 2d 06 9a STORE L05,G8a
5921: a0 01 48 JZ L00 [FALSE] 592a
5924: 0d 05 00 STORE L04,#00
5927: 8c 00 06 JUMP 592e
592a: 4f 47 01 05 LOADW G37,#01 -> L04
592e: e8 bf 02 PUSH L01
5931: 8c 00 19 JUMP 594b
5934: 43 01 01 52 JG L00,#01 [FALSE] 5948
5938: 0d 08 00 STORE L07,#00
593b: 2d 06 47 STORE L05,G37
593e: 4f 9a 01 05 LOADW G8a,#01 -> L04
5942: e8 bf 01 PUSH L00
5945: 8c 00 05 JUMP 594b
5948: e8 7f 01 PUSH #01
594b: 2d 03 00 STORE L02,(SP)+
594e: a0 05 4a JZ L04 [FALSE] 5959
5951: 41 01 01 46 JE L00,#01 [FALSE] 5959
5955: 4f 47 01 05 LOADW G37,#01 -> L04
5959: 41 8f 80 4c JE G7f,#80 [FALSE] 5967
595d: e0 2b 2d a3 8f 75 07 CALL 5b46 (G7f,G65) -> L06
5964: 8c 01 7c JUMP 5ae1
5967: a0 03 00 62 JZ L02 [FALSE] 59cb
596b: 50 82 00 00 LOADB G72,#00 -> -(SP)
596f: 49 00 03 00 AND (SP)+,#03 -> -(SP)
5973: a0 00 4e JZ (SP)+ [FALSE] 5982
5976: e0 2f 2d a3 8f 07 CALL 5b46 (G7f) -> L06
597c: 0d 75 00 STORE G65,#00
597f: 8c 01 61 JUMP 5ae1
5982: a0 52 51 JZ G42 [FALSE] 5994
5985: b2 ... PRINT "It's too dark to see."
5990: bb NEW_LINE
5991: 8c 01 4f JUMP 5ae1
5994: b2 ... PRINT "There isn't anything to "
599f: 4f b7 01 0a LOADW Ga7,#01 -> L09
59a3: a0 c8 45 JZ Gb8 [FALSE] 59a9
59a6: a0 7a cb JZ G6a [TRUE] 59b2
59a9: 4f 0a 00 00 LOADW L09,#00 -> -(SP)
59ad: a7 00 PRINT_ADDR (SP)+
59af: 8c 00 11 JUMP 59c1
59b2: 50 0a 02 0b LOADB L09,#02 -> L0a
59b6: 50 0a 03 00 LOADB L09,#03 -> -(SP)
59ba: e0 2b 34 ef 0b 00 00 CALL 69de (L0a,(SP)+) -> -(SP)
59c1: b2 ... PRINT "!"
59c4: bb NEW_LINE
59c5: 0d 07 00 STORE L06,#00
59c8: 8c 01 18 JUMP 5ae1
59cb: 0d e7 00 STORE Gd7,#00
59ce: 0d 2f 00 STORE G1f,#00
59d1: 43 03 01 45 JG L02,#01 [FALSE] 59d8
59d5: 0d 2f 01 STORE G1f,#01
59d8: 0d 0a 00 STORE L09,#00
59db: 25 04 03 00 60 INC_CHK L03,L02 [FALSE] 5a3e
59e0: 43 e7 00 7b JG Gd7,#00 [FALSE] 5a1d
59e4: b2 ... PRINT "The "
59e7: 61 e7 03 c5 JE Gd7,L02 [TRUE] 59ee
59eb: b2 ... PRINT "other "
59ee: b2 ... PRINT "object"
59f3: 41 e7 01 c5 JE Gd7,#01 [TRUE] 59fa
59f7: b2 ... PRINT "s"
59fa: b2 ... PRINT " that you mentioned "
5a05: 41 e7 01 c8 JE Gd7,#01 [TRUE] 5a0f
5a09: b2 ... PRINT "are"
5a0c: 8c 00 05 JUMP 5a12
5a0f: b2 ... PRINT "is"
5a12: b2 ... PRINT "n't here."
5a19: bb NEW_LINE
5a1a: 8c 00 c6 JUMP 5ae1
5a1d: a0 0a 00 c2 JZ L09 [FALSE] 5ae1
5a21: b2 ... PRINT "I don't know what you're
referring to."
5a3a: bb NEW_LINE
5a3b: 8c 00 a5 JUMP 5ae1
5a3e: a0 08 c9 JZ L07 [TRUE] 5a48
5a41: 6f 9a 04 09 LOADW G8a,L03 -> L08
5a45: 8c 00 06 JUMP 5a4c
5a48: 6f 47 04 09 LOADW G37,L03 -> L08
5a4c: a0 08 c8 JZ L07 [TRUE] 5a55
5a4f: e8 bf 09 PUSH L08
5a52: 8c 00 05 JUMP 5a58
5a55: e8 bf 05 PUSH L04
5a58: 2d 75 00 STORE G65,(SP)+
5a5b: a0 08 c8 JZ L07 [TRUE] 5a64
5a5e: e8 bf 05 PUSH L04
5a61: 8c 00 05 JUMP 5a67
5a64: e8 bf 09 PUSH L08
5a67: 2d da 00 STORE Gca,(SP)+
5a6a: c1 97 8f 8d 8b 45 JE G7f,#8d,#8b [FALSE] 5a73
5a70: 8c 00 5d JUMP 5ace
5a73: 43 03 01 d1 JG L02,#01 [TRUE] 5a86
5a77: 4f b7 06 00 LOADW Ga7,#06 -> -(SP)
5a7b: 4f 00 00 00 LOADW (SP)+,#00 -> -(SP)
5a7f: c1 8f 00 40 71 00 4a JE (SP)+,"all" [FALSE] 5ace
5a86: 41 09 bb 47 JE L08,#bb [FALSE] 5a8f
5a8a: 95 e7 INC Gd7
5a8c: 8c ff 4e JUMP 59db
5a8f: 41 bd 01 53 JE Gad,#01 [FALSE] 5aa4
5a93: 41 8f 4f 4f JE G7f,#4f [FALSE] 5aa4
5a97: a3 09 00 GET_PARENT L08 -> -(SP)
5a9a: c1 aa 00 c9 10 05 c5 JE (SP)+,Gb9,G00,L04 [TRUE] 5aa4
5aa1: 8c ff 39 JUMP 59db
5aa4: 41 8f 4f 5a JE G7f,#4f [FALSE] 5ac0
5aa8: a0 da d7 JZ Gca [TRUE] 5ac0
5aab: 4f b7 06 00 LOADW Ga7,#06 -> -(SP)
5aaf: 4f 00 00 00 LOADW (SP)+,#00 -> -(SP)
5ab3: c1 8f 00 40 71 49 JE (SP)+,"all" [FALSE] 5ac0
5ab9: 66 75 da c5 JIN G65,Gca [TRUE] 5ac0
5abd: 8c ff 1d JUMP 59db
5ac0: 41 09 4f 47 JE L08,#4f [FALSE] 5ac9
5ac4: aa d4 PRINT_OBJ Gc4
5ac6: 8c 00 04 JUMP 5acb
5ac9: aa 09 PRINT_OBJ L08
5acb: b2 ... PRINT ": "
5ace: 0d 0a 01 STORE L09,#01
5ad1: e0 2a 2d a3 8f 75 da 07 CALL 5b46 (G7f,G65,Gca) -> L06
5ad9: 41 07 02 3e ff JE L06,#02 [FALSE] 59db
5ade: 8c 00 02 JUMP 5ae1
5ae1: 41 07 02 d4 JE L06,#02 [TRUE] 5af7
5ae5: a3 c9 00 GET_PARENT Gb9 -> -(SP)
5ae8: a0 00 ce JZ (SP)+ [TRUE] 5af7
5aeb: a3 c9 00 GET_PARENT Gb9 -> -(SP)
5aee: 51 00 09 00 GET_PROP (SP)+,#09 -> -(SP)
5af2: e0 9f 00 06 07 CALL (SP)+ (#06) -> L06
5af7: c1 95 8f 08 06 07 d2 JE G7f,#08,#06,#07 [TRUE] 5b0e
5afe: 41 8f 0a 45 JE G7f,#0a [FALSE] 5b05
5b02: 8c 00 0b JUMP 5b0e
5b05: 2d 91 8f STORE G81,G7f
5b08: 2d a5 75 STORE G95,G65
5b0b: 2d 77 da STORE G67,Gca
5b0e: 41 07 02 4b JE L06,#02 [FALSE] 5b1b
5b12: 0d 44 00 STORE G34,#00
5b15: 8c 00 05 JUMP 5b1b
5b18: 0d 44 00 STORE G34,#00
5b1b: a0 ae c0 JZ G9e [TRUE] RFALSE
5b1e: c1 95 8f 01 00 71 c1 JE G7f,#01,#00,#71 [TRUE] RTRUE
5b25: c1 95 8f 0a 07 0b c1 JE G7f,#0a,#07,#0b [TRUE] RTRUE
5b2c: c1 95 8f 05 04 a4 c1 JE G7f,#05,#04,#a4 [TRUE] RTRUE
5b33: c1 95 8f 63 62 08 c1 JE G7f,#63,#62,#08 [TRUE] RTRUE
5b3a: 41 8f 06 c1 JE G7f,#06 [TRUE] RTRUE
5b3e: e0 3f 2a 55 07 CALL 54aa -> L06
5b43: ab 07 RET L06
Routine 5b46, 7 locals (0000, 0000, 0000, 0000, 0000, 0000, 0000)
5b55: 2d 05 8f STORE L04,G7f
5b58: 2d 06 75 STORE L05,G65
5b5b: 2d 07 da STORE L06,Gca
5b5e: c1 6b 4f 03 02 65 JE #4f,L02,L01 [FALSE] 5b87
5b64: e0 2f 3c 45 d4 00 CALL 788a (Gc4) -> -(SP)
5b6a: a0 00 5c JZ (SP)+ [FALSE] 5b87
5b6d: b2 ... PRINT "I don't see what you are
referring to."
5b84: bb NEW_LINE
5b85: 9b 02 RET #02
5b87: 41 02 4f 45 JE L01,#4f [FALSE] 5b8e
5b8b: 2d 02 d4 STORE L01,Gc4
5b8e: 41 03 4f 45 JE L02,#4f [FALSE] 5b95
5b92: 2d 03 d4 STORE L02,Gc4
5b95: 2d 8f 01 STORE G7f,L00
5b98: 2d 75 02 STORE G65,L01
5b9b: a0 75 c9 JZ G65 [TRUE] 5ba5
5b9e: 41 8f 80 c5 JE G7f,#80 [TRUE] 5ba5
5ba2: 2d d4 75 STORE Gc4,G65
5ba5: 2d da 03 STORE Gca,L02
5ba8: c1 6b bb 75 da 50 JE #bb,G65,Gca [FALSE] 5bbc
5bae: e0 3f 58 24 04 CALL b048 -> L03
5bb3: a0 04 c8 JZ L03 [TRUE] 5bbc
5bb6: 0d ae 00 STORE G9e,#00
5bb9: 8c 00 85 JUMP 5c3f
5bbc: 2d 02 75 STORE L01,G65
5bbf: 2d 03 da STORE L02,Gca
5bc2: 51 c9 09 00 GET_PROP Gb9,#09 -> -(SP)
5bc6: e0 bf 00 04 CALL (SP)+ -> L03
5bca: a0 04 c5 JZ L03 [TRUE] 5bd0
5bcd: 8c 00 71 JUMP 5c3f
5bd0: a3 c9 00 GET_PARENT Gb9 -> -(SP)
5bd3: 51 00 09 00 GET_PROP (SP)+,#09 -> -(SP)
5bd7: e0 9f 00 01 04 CALL (SP)+ (#01) -> L03
5bdc: a0 04 c5 JZ L03 [TRUE] 5be2
5bdf: 8c 00 5f JUMP 5c3f
5be2: 6f f5 01 00 LOADW Ge5,L00 -> -(SP)
5be6: e0 bf 00 04 CALL (SP)+ -> L03
5bea: a0 04 c5 JZ L03 [TRUE] 5bf0
5bed: 8c 00 51 JUMP 5c3f
5bf0: a0 03 d0 JZ L02 [TRUE] 5c01
5bf3: 51 03 09 00 GET_PROP L02,#09 -> -(SP)
5bf7: e0 bf 00 04 CALL (SP)+ -> L03
5bfb: a0 04 c5 JZ L03 [TRUE] 5c01
5bfe: 8c 00 40 JUMP 5c3f
5c01: a0 02 dd JZ L01 [TRUE] 5c1f
5c04: 41 01 80 d9 JE L00,#80 [TRUE] 5c1f
5c08: a3 02 00 GET_PARENT L01 -> -(SP)
5c0b: a0 00 d3 JZ (SP)+ [TRUE] 5c1f
5c0e: a3 02 00 GET_PARENT L01 -> -(SP)
5c11: 51 00 0c 00 GET_PROP (SP)+,#0c -> -(SP)
5c15: e0 bf 00 04 CALL (SP)+ -> L03
5c19: a0 04 c5 JZ L03 [TRUE] 5c1f
5c1c: 8c 00 22 JUMP 5c3f
5c1f: a0 02 d4 JZ L01 [TRUE] 5c34
5c22: 41 01 80 d0 JE L00,#80 [TRUE] 5c34
5c26: 51 02 09 00 GET_PROP L01,#09 -> -(SP)
5c2a: e0 bf 00 04 CALL (SP)+ -> L03
5c2e: a0 04 c5 JZ L03 [TRUE] 5c34
5c31: 8c 00 0d JUMP 5c3f
5c34: 6f f4 01 00 LOADW Ge4,L00 -> -(SP)
5c38: e0 bf 00 04 CALL (SP)+ -> L03
5c3c: a0 04 c2 JZ L03 [TRUE] 5c3f
5c3f: 2d 8f 05 STORE G7f,L04
5c42: 2d 75 06 STORE G65,L05
5c45: 2d da 07 STORE Gca,L06
5c48: ab 04 RET L03
Routine 5c4a, 0 locals ()
5c4b: 41 8b 15 49 JE G7b,#15 [FALSE] 5c56
5c4f: 58 12 02 00 MOD G02,#02 -> -(SP)
5c53: a0 00 c1 JZ (SP)+ [TRUE] RTRUE
5c56: 05 b2 7f 00 cf INC_CHK Ga2,#7f [FALSE] 5d28
5c5b: 0d b2 00 STORE Ga2,#00
5c5e: 55 61 14 61 SUB G51,#14 -> G51
5c62: 95 18 INC G08
5c64: 55 9f 14 9f SUB G8f,#14 -> G8f
5c68: 54 24 05 24 ADD G14,#05 -> G14
5c6c: 54 84 05 84 ADD G74,#05 -> G74
5c70: 42 61 00 00 b5 JL G51,#00 [FALSE] 5d28
5c75: b2 ... PRINT "Belboz appears before you, in
a magical sending. He speaks, his voice soft and saddened. "You have failed.
Universal night has now fallen. Krill and his creatures now may freely roam the
earth. The power of the Circle is diminished, if not broken. I go to prepare
the last defense." The sending vanishes."
5d22: bb NEW_LINE
5d23: e0 3f 3f 18 00 CALL 7e30 -> -(SP)
5d28: 61 b2 61 00 55 JE Ga2,G51 [FALSE] 5d80
5d2d: 93 37 00 GET_PARENT "cretin" -> -(SP)
5d30: 4a 00 08 00 4d TEST_ATTR (SP)+,#08 [FALSE] 5d80
5d35: b2 ... PRINT "The darkened sky is now full
of bright stars. It is night."
5d5a: bb NEW_LINE
5d5b: 42 61 61 41 JL G51,#61 [FALSE] RTRUE
5d5f: b3 ... PRINT_RET "Today seemed shorter than
yesterday, somehow."
5d80: 61 b2 a7 60 JE Ga2,G97 [FALSE] 5da2
5d84: 93 37 00 GET_PARENT "cretin" -> -(SP)
5d87: 4a 00 08 59 TEST_ATTR (SP)+,#08 [FALSE] 5da2
5d8b: b3 ... PRINT_RET "The sun has now risen above
the hills."
5da2: 61 b2 9f 40 JE Ga2,G8f [FALSE] RFALSE
5da6: 93 37 00 GET_PARENT "cretin" -> -(SP)
5da9: 4a 00 08 40 TEST_ATTR (SP)+,#08 [FALSE] RFALSE
5dad: b2 ... PRINT "The sun starts to set behind
the Lonely Mountain in the west."
5dd0: bb NEW_LINE
5dd1: 42 61 61 41 JL G51,#61 [FALSE] RTRUE
5dd5: b3 ... PRINT_RET "The day is coming to an end
earlier than you would have expected."
Routine 5dfa, 14 locals (0001, 0000, 0000, 0000, 0000, 0000, 0000, 0000, 0000,
0000, 0000, ffff, 0000, 0000)
5e17: 05 0c 09 45 INC_CHK L0b,#09 [FALSE] 5e1e
5e1b: 8c 00 16 JUMP 5e32
5e1e: a0 c8 4b JZ Gb8 [FALSE] 5e2a
5e21: 6f b7 0c 00 LOADW Ga7,L0b -> -(SP)
5e25: e1 ab 30 0c 00 STOREW G20,L0b,(SP)+
5e2a: e1 a7 b7 0c 00 STOREW Ga7,L0b,#00
5e2f: 8c ff e7 JUMP 5e17
5e32: 2d 06 c9 STORE L05,Gb9
5e35: 2d 07 7a STORE L06,G6a
5e38: 0d 29 00 STORE G19,#00
5e3b: 0d 7a 00 STORE G6a,#00
5e3e: 0d 15 00 STORE G05,#00
5e41: e1 a7 9a 28 00 STOREW G8a,G18,#00
5e46: e1 a7 47 28 00 STOREW G37,G18,#00
5e4b: e1 a7 1b 28 00 STOREW G0b,G18,#00
5e50: a0 b8 55 JZ Ga8 [FALSE] 5e66
5e53: 41 c9 37 d1 JE Gb9,#37 [TRUE] 5e66
5e57: 0d c9 37 STORE Gb9,#37
5e5a: e0 1f 3c 6a 37 10 CALL 78d4 (#37) -> G00
5e60: e0 2f 3b b8 10 52 CALL 7770 (G00) -> G42
5e66: a0 db dd JZ Gcb [TRUE] 5e84
5e69: 2d 01 db STORE L00,Gcb
5e6c: e0 2b 32 0a 5c 65 00 CALL 6414 (G4c,G55) -> -(SP)
5e73: a0 16 47 JZ G06 [FALSE] 5e7b
5e76: 21 37 c9 43 JE #37,Gb9 [FALSE] 5e7b
5e7a: bb NEW_LINE
5e7b: 0d db 00 STORE Gcb,#00
5e7e: 0d 44 00 STORE G34,#00
5e81: 8c 00 3d JUMP 5ebf
5e84: a0 44 d7 JZ G34 [TRUE] 5e9c
5e87: 2d 01 44 STORE L00,G34
5e8a: a0 16 4b JZ G06 [FALSE] 5e96
5e8d: 21 37 c9 47 JE #37,Gb9 [FALSE] 5e96
5e91: 41 8f 74 c3 JE G7f,#74 [TRUE] 5e96
5e95: bb NEW_LINE
5e96: 0d 44 00 STORE G34,#00
5e99: 8c 00 25 JUMP 5ebf
5e9c: 0d c9 37 STORE Gb9,#37
5e9f: 0d b8 00 STORE Ga8,#00
5ea2: a3 c9 00 GET_PARENT Gb9 -> -(SP)
5ea5: 4a 00 1d c5 TEST_ATTR (SP)+,#1d [TRUE] 5eac
5ea9: a3 c9 10 GET_PARENT Gb9 -> G00
5eac: e0 2f 3b b8 10 52 CALL 7770 (G00) -> G42
5eb2: a0 16 43 JZ G06 [FALSE] 5eb6
5eb5: bb NEW_LINE
5eb6: b2 ... PRINT ">"
5ebb: e4 af a4 65 READ G94,G55
5ebf: 50 65 01 62 LOADB G55,#01 -> G52
5ec3: a0 62 51 JZ G52 [FALSE] 5ed5
5ec6: b2 ... PRINT "I beg your pardon?"
5ed3: bb NEW_LINE
5ed4: b1 RFALSE
5ed5: 6f 65 01 02 LOADW G55,L00 -> L01
5ed9: c1 8f 02 4b bc 01 03 JE L01,"oops" [FALSE] 5fe1
5ee0: 54 01 02 00 ADD L00,#02 -> -(SP)
5ee4: 6f 65 00 00 LOADW G55,(SP)+ -> -(SP)
5ee8: c1 83 00 40 24 40 2b 48 JE (SP)+,".","," [FALSE] 5ef6
5ef0: 54 01 02 01 ADD L00,#02 -> L00
5ef4: 96 62 DEC G52
5ef6: 43 62 01 d5 JG G52,#01 [TRUE] 5f0d
5efa: b2 ... PRINT "I can't help your clumsiness."
5f0b: bb NEW_LINE
5f0c: b1 RFALSE
5f0d: 4f 3d 00 00 LOADW G2d,#00 -> -(SP)
5f11: a0 00 80 b6 JZ (SP)+ [TRUE] 5fc9
5f15: 43 62 02 71 JG G52,#02 [FALSE] 5f48
5f19: 54 01 02 00 ADD L00,#02 -> -(SP)
5f1d: 6f 65 00 00 LOADW G55,(SP)+ -> -(SP)
5f21: c1 8f 00 40 4e 63 JE (SP)+,""" [FALSE] 5f48
5f27: b2 ... PRINT "Sorry, you can't correct
mistakes in quoted text."
5f46: bb NEW_LINE
5f47: b1 RFALSE
5f48: 43 62 02 66 JG G52,#02 [FALSE] 5f70
5f4c: b2 ... PRINT "Warning: only the first word
after OOPS is used."
5f6f: bb NEW_LINE
5f70: 4f 3d 00 0e LOADW G2d,#00 -> L0d
5f74: 54 01 02 00 ADD L00,#02 -> -(SP)
5f78: 6f 65 00 00 LOADW G55,(SP)+ -> -(SP)
5f7c: e1 ab 48 0e 00 STOREW G38,L0d,(SP)+
5f81: 2d c9 06 STORE Gb9,L05
5f84: 56 01 02 00 MUL L00,#02 -> -(SP)
5f88: 54 00 06 00 ADD (SP)+,#06 -> -(SP)
5f8c: 70 65 00 0d LOADB G55,(SP)+ -> L0c
5f90: 56 01 02 00 MUL L00,#02 -> -(SP)
5f94: 54 00 07 00 ADD (SP)+,#07 -> -(SP)
5f98: 70 65 00 0e LOADB G55,(SP)+ -> L0d
5f9c: 4f 3d 00 00 LOADW G2d,#00 -> -(SP)
5fa0: 56 00 02 00 MUL (SP)+,#02 -> -(SP)
5fa4: 54 00 03 00 ADD (SP)+,#03 -> -(SP)
5fa8: e0 2a 32 43 0d 0e 00 00 CALL 6486 (L0c,L0d,(SP)+) -> -(SP)
5fb0: e0 2b 32 0a 48 65 00 CALL 6414 (G38,G55) -> -(SP)
5fb7: 50 65 01 62 LOADB G55,#01 -> G52
5fbb: 4f 3d 01 01 LOADW G2d,#01 -> L00
5fbf: e0 2b 32 34 c1 a4 00 CALL 6468 (Gb1,G94) -> -(SP)
5fc6: 8c 00 2a JUMP 5ff1
5fc9: e1 97 3d 03 00 STOREW G2d,#03,#00
5fce: b2 ... PRINT "There was no word to replace!"
5fdf: bb NEW_LINE
5fe0: b1 RFALSE
5fe1: c1 83 02 40 6a 46 83 c5 JE L01,"again","g" [TRUE] 5fec
5fe9: 0d c6 00 STORE Gb6,#00
5fec: e1 97 3d 03 00 STOREW G2d,#03,#00
5ff1: 6f 65 01 00 LOADW G55,L00 -> -(SP)
5ff5: c1 83 00 40 6a 46 83 00 fe
JE (SP)+,"again","g" [FALSE] 60fa
5ffe: 50 c1 01 00 LOADB Gb1,#01 -> -(SP)
6002: a0 00 4f JZ (SP)+ [FALSE] 6012
6005: b2 ... PRINT "Beg pardon?"
6010: bb NEW_LINE
6011: b1 RFALSE
6012: a0 c8 db JZ Gb8 [TRUE] 602e
6015: b2 ... PRINT "It's difficult to repeat
fragments."
602c: bb NEW_LINE
602d: b1 RFALSE
602e: a0 ae 5b JZ G9e [FALSE] 604a
6031: b2 ... PRINT "That would just repeat a
mistake."
6048: bb NEW_LINE
6049: b1 RFALSE
604a: 43 62 01 00 55 JG G52,#01 [FALSE] 60a2
604f: 54 01 02 00 ADD L00,#02 -> -(SP)
6053: 6f 65 00 00 LOADW G55,(SP)+ -> -(SP)
6057: c1 80 00 40 24 40 2b 51 6c d0
JE (SP)+,".",",","then" [TRUE] 606f
6061: 54 01 02 00 ADD L00,#02 -> -(SP)
6065: 6f 65 00 00 LOADW G55,(SP)+ -> -(SP)
6069: c1 8f 00 40 8d 5a JE (SP)+,"and" [FALSE] 6087
606f: 16 02 02 00 MUL #02,#02 -> -(SP)
6073: 74 01 00 01 ADD L00,(SP)+ -> L00
6077: 50 65 01 00 LOADB G55,#01 -> -(SP)
607b: 55 00 02 00 SUB (SP)+,#02 -> -(SP)
607f: e2 9b 65 01 00 STOREB G55,#01,(SP)+
6084: 8c 00 2e JUMP 60b3
6087: b2 ... PRINT "I couldn't understand that
sentence."
60a0: bb NEW_LINE
60a1: b1 RFALSE
60a2: 54 01 02 01 ADD L00,#02 -> L00
60a6: 50 65 01 00 LOADB G55,#01 -> -(SP)
60aa: 55 00 01 00 SUB (SP)+,#01 -> -(SP)
60ae: e2 9b 65 01 00 STOREB G55,#01,(SP)+
60b3: 50 65 01 00 LOADB G55,#01 -> -(SP)
60b7: 43 00 00 4f JG (SP)+,#00 [FALSE] 60c8
60bb: e0 2b 32 0a 65 5c 00 CALL 6414 (G55,G4c) -> -(SP)
60c2: 2d db 01 STORE Gcb,L00
60c5: 8c 00 05 JUMP 60cb
60c8: 0d db 00 STORE Gcb,#00
60cb: 2d c9 06 STORE Gb9,L05
60ce: 2d 7a 07 STORE G6a,L06
60d1: e0 2b 32 34 c1 a4 00 CALL 6468 (Gb1,G94) -> -(SP)
60d8: e0 2b 32 0a 48 65 00 CALL 6414 (G38,G55) -> -(SP)
60df: cd 4f 0c ff ff STORE L0b,#ffff
60e4: 2d 09 cd STORE L08,Gbd
60e7: 05 0c 09 45 INC_CHK L0b,#09 [FALSE] 60ee
60eb: 8c 02 d2 JUMP 63be
60ee: 6f 30 0c 00 LOADW G20,L0b -> -(SP)
60f2: e1 ab b7 0c 00 STOREW Ga7,L0b,(SP)+
60f7: 8c ff ef JUMP 60e7
60fa: e0 2b 32 0a 65 48 00 CALL 6414 (G55,G38) -> -(SP)
6101: e0 2b 32 34 a4 c1 00 CALL 6468 (G94,Gb1) -> -(SP)
6108: e1 9b 3d 01 01 STOREW G2d,#01,L00
610d: 36 04 62 00 MUL #04,G52 -> -(SP)
6111: e1 9b 3d 02 00 STOREW G2d,#02,(SP)+
6116: 50 65 01 00 LOADB G55,#01 -> -(SP)
611a: 36 02 00 00 MUL #02,(SP)+ -> -(SP)
611e: 74 01 00 00 ADD L00,(SP)+ -> -(SP)
6122: 36 02 00 08 MUL #02,(SP)+ -> L07
6126: 55 08 01 00 SUB L07,#01 -> -(SP)
612a: 70 65 00 0e LOADB G55,(SP)+ -> L0d
612e: 55 08 02 00 SUB L07,#02 -> -(SP)
6132: 70 65 00 00 LOADB G55,(SP)+ -> -(SP)
6136: 74 0e 00 00 ADD L0d,(SP)+ -> -(SP)
613a: e1 9b 3d 03 00 STOREW G2d,#03,(SP)+
613f: 0d db 00 STORE Gcb,#00
6142: 2d 08 62 STORE L07,G52
6145: 0d 21 00 STORE G11,#00
6148: 0d ea 00 STORE Gda,#00
614b: 0d bd 00 STORE Gad,#00
614e: 04 62 00 48 DEC_CHK G52,#00 [FALSE] 6158
6152: 0d b8 00 STORE Ga8,#00
6155: 8c 02 68 JUMP 63be
6158: 6f 65 01 02 LOADW G55,L00 -> L01
615c: a0 02 4c JZ L01 [FALSE] 6169
615f: e0 2f 33 7a 01 02 CALL 66f4 (L00) -> L01
6165: a0 02 82 46 JZ L01 [TRUE] 63ad
6169: a0 62 48 JZ G52 [FALSE] 6172
616c: 0d 0a 00 STORE L09,#00
616f: 8c 00 0a JUMP 617a
6172: 54 01 02 00 ADD L00,#02 -> -(SP)
6176: 6f 65 00 0a LOADW G55,(SP)+ -> L09
617a: c1 8f 02 51 b9 4e JE L01,"to" [FALSE] 618c
6180: 41 04 c5 4a JE L03,#c5 [FALSE] 618c
6184: cd 4f 02 40 4e STORE L01,"""
6189: 8c 00 30 JUMP 61ba
618c: c1 8f 02 51 6c 6a JE L01,"then" [FALSE] 61ba
6192: 43 62 00 66 JG G52,#00 [FALSE] 61ba
6196: a0 04 63 JZ L03 [FALSE] 61ba
6199: a0 b8 60 JZ Ga8 [FALSE] 61ba
619c: c1 93 0b 00 40 24 4a JE L0a,#00,"." [FALSE] 61ab
61a3: cd 4f 02 51 65 STORE L01,"the"
61a8: 8c 00 11 JUMP 61ba
61ab: e1 97 b7 00 c5 STOREW Ga7,#00,#c5
61b0: e1 97 b7 01 00 STOREW Ga7,#01,#00
61b5: cd 4f 02 40 4e STORE L01,"""
61ba: c1 80 02 51 6c 40 24 40 4e 63
JE L01,"then",".",""" [FALSE] 61e5
61c4: c1 8f 02 40 4e 4e JE L01,""" [FALSE] 61d6
61ca: a0 b8 c8 JZ Ga8 [TRUE] 61d3
61cd: 0d b8 00 STORE Ga8,#00
61d0: 8c 00 05 JUMP 61d6
61d3: 0d b8 01 STORE Ga8,#01
61d6: a0 62 c6 JZ G52 [TRUE] 61dd
61d9: 54 01 02 44 ADD L00,#02 -> G34
61dd: e2 9b 65 01 62 STOREB G55,#01,G52
61e2: 8c 01 db JUMP 63be
61e5: e0 25 32 73 02 10 03 03 CALL 64e6 (L01,#10,#03) -> L02
61ed: a0 03 80 5d JZ L02 [TRUE] 624c
61f1: c1 95 04 00 f6 e2 00 55 JE L03,#00,#f6,#e2 [FALSE] 624c
61f9: 41 08 01 f1 JE L07,#01 [TRUE] 622c
61fd: 41 08 02 46 JE L07,#02 [FALSE] 6205
6201: 41 04 f6 e9 JE L03,#f6 [TRUE] 622c
6205: c1 80 0a 51 6c 40 24 40 4e 46
JE L09,"then",".",""" [FALSE] 6213
620f: 42 08 02 5b JL L07,#02 [FALSE] 622c
6213: a0 b8 cc JZ Ga8 [TRUE] 6220
6216: 41 08 02 48 JE L07,#02 [FALSE] 6220
621a: c1 8f 0a 40 4e ce JE L09,""" [TRUE] 622c
6220: 43 08 02 6a JG L07,#02 [FALSE] 624c
6224: c1 83 0a 40 2b 40 8d 62 JE L09,",","and" [FALSE] 624c
622c: 2d 09 03 STORE L08,L02
622f: c1 83 0a 40 2b 40 8d 4c JE L09,",","and" [FALSE] 6241
6237: 54 01 02 00 ADD L00,#02 -> -(SP)
623b: e1 a3 65 00 51 6c STOREW G55,(SP)+,"then"
6241: 43 08 02 81 70 JG L07,#02 [TRUE] 63b4
6246: 0d b8 00 STORE Ga8,#00
6249: 8c 01 74 JUMP 63be
624c: e0 25 32 73 02 40 01 03 CALL 64e6 (L01,#40,#01) -> L02
6254: a0 03 f8 JZ L02 [TRUE] 628d
6257: a0 04 75 JZ L03 [FALSE] 628d
625a: 2d 04 03 STORE L03,L02
625d: e1 9b b7 00 03 STOREW Ga7,#00,L02
6262: e1 9b b7 01 56 STOREW Ga7,#01,G46
6267: e1 9b 56 00 02 STOREW G46,#00,L01
626c: 56 01 02 00 MUL L00,#02 -> -(SP)
6270: 54 00 02 0c ADD (SP)+,#02 -> L0b
6274: 70 65 0c 00 LOADB G55,L0b -> -(SP)
6278: e2 9b 56 02 00 STOREB G46,#02,(SP)+
627d: 54 0c 01 00 ADD L0b,#01 -> -(SP)
6281: 70 65 00 00 LOADB G55,(SP)+ -> -(SP)
6285: e2 9b 56 03 00 STOREB G46,#03,(SP)+
628a: 8c 01 29 JUMP 63b4
628d: e0 25 32 73 02 08 00 03 CALL 64e6 (L01,#08,#00) -> L02
6295: a0 03 62 JZ L02 [FALSE] 62b8
6298: c1 83 02 40 71 4b ae d7 JE L01,"all","one" [TRUE] 62b5
62a0: e0 27 32 73 02 20 00 CALL 64e6 (L01,#20) -> -(SP)
62a7: a0 00 4d JZ (SP)+ [FALSE] 62b5
62aa: e0 27 32 73 02 80 00 CALL 64e6 (L01,#80) -> -(SP)
62b1: a0 00 80 7f JZ (SP)+ [TRUE] 6332
62b5: 0d 03 00 STORE L02,#00
62b8: 43 62 01 5b JG G52,#01 [FALSE] 62d5
62bc: c1 8f 0a 4b 84 55 JE L09,"of" [FALSE] 62d5
62c2: a0 03 52 JZ L02 [FALSE] 62d5
62c5: c1 80 02 40 71 4b ae 40 55 c8
JE L01,"all","one","a" [TRUE] 62d5
62cf: 0d 05 01 STORE L04,#01
62d2: 8c 00 e1 JUMP 63b4
62d5: a0 03 e2 JZ L02 [TRUE] 62f8
62d8: a0 62 ca JZ G52 [TRUE] 62e3
62db: c1 83 0a 51 6c 40 24 57 JE L09,"then","." [FALSE] 62f8
62e3: 0d 15 01 STORE G05,#01
62e6: 42 ea 02 00 cb JL Gda,#02 [FALSE] 63b4
62eb: e1 9b b7 02 03 STOREW Ga7,#02,L02
62f0: e1 9b b7 03 02 STOREW Ga7,#03,L01
62f5: 8c 00 be JUMP 63b4
62f8: 41 ea 02 5d JE Gda,#02 [FALSE] 6317
62fc: b2 ... PRINT "There were too many nouns in
that sentence."
6315: bb NEW_LINE
6316: b1 RFALSE
6317: 95 ea INC Gda
6319: 2d 5e 04 STORE G4e,L03
631c: e0 2a 32 86 01 03 02 01 CALL 650c (L00,L02,L01) -> L00
6324: a0 01 c0 JZ L00 [TRUE] RFALSE
6327: 42 01 00 00 8a JL L00,#00 [FALSE] 63b4
632c: 0d b8 00 STORE Ga8,#00
632f: 8c 00 8e JUMP 63be
6332: c1 8f 02 4b 84 5a JE L01,"of" [FALSE] 6350
6338: a0 05 ca JZ L04 [TRUE] 6343
633b: c1 83 0a 40 24 51 6c 49 JE L09,".","then" [FALSE] 634a
6343: e0 2f 35 26 01 00 CALL 6a4c (L00) -> -(SP)
6349: b1 RFALSE
634a: 0d 05 00 STORE L04,#00
634d: 8c 00 66 JUMP 63b4
6350: e0 27 32 73 02 04 00 CALL 64e6 (L01,#04) -> -(SP)
6357: a0 00 c5 JZ (SP)+ [TRUE] 635d
635a: 8c 00 59 JUMP 63b4
635d: 41 04 c5 00 46 JE L03,#c5 [FALSE] 63a6
6362: e0 25 32 73 02 40 01 00 CALL 64e6 (L01,#40,#01) -> -(SP)
636a: a0 00 fb JZ (SP)+ [TRUE] 63a6
636d: 41 c9 37 77 JE Gb9,#37 [FALSE] 63a6
6371: b2 ... PRINT "Please consult your manual for
the correct way to talk to other people or creatures."
63a4: bb NEW_LINE
63a5: b1 RFALSE
63a6: e0 2f 35 26 01 00 CALL 6a4c (L00) -> -(SP)
63ac: b1 RFALSE
63ad: e0 2f 34 fa 01 00 CALL 69f4 (L00) -> -(SP)
63b3: b1 RFALSE
63b4: 2d 0b 02 STORE L0a,L01
63b7: 54 01 02 01 ADD L00,#02 -> L00
63bb: 8c fd 92 JUMP 614e
63be: e1 97 3d 00 00 STOREW G2d,#00,#00
63c3: a0 09 e0 JZ L08 [TRUE] 63e4
63c6: 0d 8f 80 STORE G7f,#80
63c9: 41 04 e2 48 JE L03,#e2 [FALSE] 63d3
63cd: 0d 95 01 STORE G85,#01
63d0: 8c 00 05 JUMP 63d6
63d3: 0d 95 00 STORE G85,#00
63d6: 2d 75 09 STORE G65,L08
63d9: 0d c8 00 STORE Gb8,#00
63dc: 2d 3e 09 STORE G2e,L08
63df: 2d cd 09 STORE Gbd,L08
63e2: ab cd RET Gbd
63e4: a0 c8 c7 JZ Gb8 [TRUE] 63ec
63e7: e0 3f 33 bf 00 CALL 677e -> -(SP)
63ec: 0d 3e 00 STORE G2e,#00
63ef: 0d cd 00 STORE Gbd,#00
63f2: e0 3f 35 56 00 CALL 6aac -> -(SP)
63f7: a0 00 c0 JZ (SP)+ [TRUE] RFALSE
63fa: e0 3f 37 a3 00 CALL 6f46 -> -(SP)
63ff: a0 00 c0 JZ (SP)+ [TRUE] RFALSE
6402: e0 3f 3b 4e 00 CALL 769c -> -(SP)
6407: a0 00 c0 JZ (SP)+ [TRUE] RFALSE
640a: e0 3f 3a d9 00 CALL 75b2 -> -(SP)
640f: a0 00 c0 JZ (SP)+ [TRUE] RFALSE
6412: b0 RTRUE
Routine 6414, 6 locals (0000, 0000, 001d, 0001, 0001, 0000)
6421: 50 01 00 00 LOADB L00,#00 -> -(SP)
6425: e2 9b 02 00 00 STOREB L01,#00,(SP)+
642a: 50 01 01 00 LOADB L00,#01 -> -(SP)
642e: e2 9b 02 01 00 STOREB L01,#01,(SP)+
6433: 6f 01 04 00 LOADW L00,L03 -> -(SP)
6437: e1 ab 02 04 00 STOREW L01,L03,(SP)+
643c: 56 04 02 00 MUL L03,#02 -> -(SP)
6440: 54 00 02 06 ADD (SP)+,#02 -> L05
6444: 70 01 06 00 LOADB L00,L05 -> -(SP)
6448: e2 ab 02 06 00 STOREB L01,L05,(SP)+
644d: 56 04 02 00 MUL L03,#02 -> -(SP)
6451: 54 00 03 06 ADD (SP)+,#03 -> L05
6455: 70 01 06 00 LOADB L00,L05 -> -(SP)
6459: e2 ab 02 06 00 STOREB L01,L05,(SP)+
645e: 54 04 02 04 ADD L03,#02 -> L03
6462: 25 05 03 3f ce INC_CHK L04,L02 [FALSE] 6433
6467: b0 RTRUE
Routine 6468, 3 locals (0000, 0000, 0000)
646f: 50 01 00 00 LOADB L00,#00 -> -(SP)
6473: 55 00 01 03 SUB (SP)+,#01 -> L02
6477: 70 01 03 00 LOADB L00,L02 -> -(SP)
647b: e2 ab 02 03 00 STOREB L01,L02,(SP)+
6480: 04 03 00 3f f4 DEC_CHK L02,#00 [FALSE] 6477
6485: b0 RTRUE
Routine 6486, 7 locals (0000, 0000, 0000, 0000, 0000, 0000, 0000)
6495: 4f 3d 03 06 LOADW G2d,#03 -> L05
6499: a0 06 c8 JZ L05 [TRUE] 64a2
649c: 2d 04 06 STORE L03,L05
649f: 8c 00 16 JUMP 64b6
64a2: 4f 3d 02 06 LOADW G2d,#02 -> L05
64a6: 70 48 06 07 LOADB G38,L05 -> L06
64aa: 54 06 01 00 ADD L05,#01 -> -(SP)
64ae: 70 48 00 00 LOADB G38,(SP)+ -> -(SP)
64b2: 74 07 00 04 ADD L06,(SP)+ -> L03
64b6: 74 04 01 00 ADD L03,L00 -> -(SP)
64ba: e1 9b 3d 03 00 STOREW G2d,#03,(SP)+
64bf: 74 04 05 07 ADD L03,L04 -> L06
64c3: 74 02 05 00 ADD L01,L04 -> -(SP)
64c7: 70 a4 00 00 LOADB G94,(SP)+ -> -(SP)
64cb: e2 ab c1 07 00 STOREB Gb1,L06,(SP)+
64d0: 95 05 INC L04
64d2: 61 05 01 3f ea JE L04,L00 [FALSE] 64bf
64d7: e2 ab 48 03 04 STOREB G38,L02,L03
64dc: 55 03 01 00 SUB L02,#01 -> -(SP)
64e0: e2 ab 48 00 01 STOREB G38,(SP)+,L00
64e5: b0 RTRUE
Routine 64e6, 5 locals (0000, 0000, 0005, 0005, 0000)
64f1: 50 01 04 05 LOADB L00,#04 -> L04
64f5: 67 05 02 40 TEST L04,L01 [FALSE] RFALSE
64f9: 43 03 04 c1 JG L02,#04 [TRUE] RTRUE
64fd: 49 05 03 05 AND L04,#03 -> L04
6501: 61 05 03 c4 JE L04,L02 [TRUE] 6507
6505: 95 04 INC L03
6507: 70 01 04 00 LOADB L00,L03 -> -(SP)
650b: b8 RET_POPPED
Routine 650c, 10 locals (0000, 0000, 0000, 0000, 0000, 0000, 0001, 0000, 0000,
0000)
6521: 55 ea 01 00 SUB Gda,#01 -> -(SP)
6525: 56 00 02 04 MUL (SP)+,#02 -> L03
6529: a0 02 db JZ L01 [TRUE] 6545
652c: 34 02 04 05 ADD #02,L03 -> L04
6530: e1 ab b7 05 02 STOREW Ga7,L04,L01
6535: 54 05 01 00 ADD L04,#01 -> -(SP)
6539: e1 ab b7 00 03 STOREW Ga7,(SP)+,L02
653e: 54 01 02 01 ADD L00,#02 -> L00
6542: 8c 00 04 JUMP 6547
6545: 95 62 INC G52
6547: a0 62 47 JZ G52 [FALSE] 654f
654a: 96 ea DEC Gda
654c: 8b ff ff RET #ffff
654f: 34 06 04 05 ADD #06,L03 -> L04
6553: 56 01 02 00 MUL L00,#02 -> -(SP)
6557: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
655b: e1 ab b7 05 00 STOREW Ga7,L04,(SP)+
6560: 6f 65 01 00 LOADW G55,L00 -> -(SP)
6564: c1 80 00 51 65 40 55 40 7f 4f
JE (SP)+,"the","a","an" [FALSE]
657b
656e: 6f b7 05 00 LOADW Ga7,L04 -> -(SP)
6572: 54 00 04 00 ADD (SP)+,#04 -> -(SP)
6576: e1 ab b7 05 00 STOREW Ga7,L04,(SP)+
657b: 04 62 00 56 DEC_CHK G52,#00 [FALSE] 6593
657f: 54 05 01 0a ADD L04,#01 -> L09
6583: 56 01 02 00 MUL L00,#02 -> -(SP)
6587: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
658b: e1 ab b7 0a 00 STOREW Ga7,L09,(SP)+
6590: 8b ff ff RET #ffff
6593: 6f 65 01 03 LOADW G55,L00 -> L02
6597: a0 03 4c JZ L02 [FALSE] 65a4
659a: e0 2f 33 7a 01 03 CALL 66f4 (L00) -> L02
65a0: a0 03 81 3d JZ L02 [TRUE] 66df
65a4: a0 62 48 JZ G52 [FALSE] 65ad
65a7: 0d 08 00 STORE L07,#00
65aa: 8c 00 0a JUMP 65b5
65ad: 54 01 02 00 ADD L00,#02 -> -(SP)
65b1: 6f 65 00 08 LOADW G55,(SP)+ -> L07
65b5: c1 83 03 40 8d 40 2b 48 JE L02,"and","," [FALSE] 65c3
65bd: 0d 06 01 STORE L05,#01
65c0: 8c 01 25 JUMP 66e6
65c3: c1 83 03 40 71 4b ae 52 JE L02,"all","one" [FALSE] 65db
65cb: c1 8f 08 4b 84 01 16 JE L07,"of" [FALSE] 66e6
65d2: 96 62 DEC G52
65d4: 54 01 02 01 ADD L00,#02 -> L00
65d8: 8c 01 0d JUMP 66e6
65db: c1 83 03 51 6c 40 24 d6 JE L02,"then","." [TRUE] 65f7
65e3: e0 27 32 73 03 08 00 CALL 64e6 (L02,#08) -> -(SP)
65ea: a0 00 e4 JZ (SP)+ [TRUE] 660f
65ed: 4f b7 00 00 LOADW Ga7,#00 -> -(SP)
65f1: a0 00 dd JZ (SP)+ [TRUE] 660f
65f4: a0 07 5a JZ L06 [FALSE] 660f
65f7: 95 62 INC G52
65f9: 54 05 01 0a ADD L04,#01 -> L09
65fd: 56 01 02 00 MUL L00,#02 -> -(SP)
6601: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
6605: e1 ab b7 0a 00 STOREW Ga7,L09,(SP)+
660a: 55 01 02 00 SUB L00,#02 -> -(SP)
660e: b8 RET_POPPED
660f: e0 27 32 73 03 80 00 CALL 64e6 (L02,#80) -> -(SP)
6616: a0 00 80 62 JZ (SP)+ [TRUE] 667a
661a: 43 62 00 53 JG G52,#00 [FALSE] 662f
661e: c1 8f 08 4b 84 4d JE L07,"of" [FALSE] 662f
6624: c1 83 03 40 71 4b ae c5 JE L02,"all","one" [TRUE] 662f
662c: 8c 00 b9 JUMP 66e6
662f: e0 25 32 73 03 20 02 00 CALL 64e6 (L02,#20,#02) -> -(SP)
6637: a0 00 d2 JZ (SP)+ [TRUE] 664a
663a: a0 08 cf JZ L07 [TRUE] 664a
663d: e0 27 32 73 08 80 00 CALL 64e6 (L07,#80) -> -(SP)
6644: a0 00 c5 JZ (SP)+ [TRUE] 664a
6647: 8c 00 9e JUMP 66e6
664a: a0 06 69 JZ L05 [FALSE] 6674
664d: c1 83 08 42 62 45 17 e1 JE L07,"but","except" [TRUE] 6674
6655: c1 83 08 40 8d 40 2b d9 JE L07,"and","," [TRUE] 6674
665d: 54 05 01 0a ADD L04,#01 -> L09
6661: 54 01 02 00 ADD L00,#02 -> -(SP)
6665: 56 00 02 00 MUL (SP)+,#02 -> -(SP)
6669: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
666d: e1 ab b7 0a 00 STOREW Ga7,L09,(SP)+
6672: ab 01 RET L00
6674: 0d 06 00 STORE L05,#00
6677: 8c 00 6e JUMP 66e6
667a: a0 7a 4c JZ G6a [FALSE] 6687
667d: a0 c8 49 JZ Gb8 [FALSE] 6687
6680: 4f b7 00 00 LOADW Ga7,#00 -> -(SP)
6684: a0 00 da JZ (SP)+ [TRUE] 669f
6687: e0 27 32 73 03 20 00 CALL 64e6 (L02,#20) -> -(SP)
668e: a0 00 00 56 JZ (SP)+ [FALSE] 66e6
6692: e0 27 32 73 03 04 00 CALL 64e6 (L02,#04) -> -(SP)
6699: a0 00 c5 JZ (SP)+ [TRUE] 669f
669c: 8c 00 49 JUMP 66e6
669f: a0 06 eb JZ L05 [TRUE] 66cb
66a2: e0 27 32 73 03 10 00 CALL 64e6 (L02,#10) -> -(SP)
66a9: a0 00 4c JZ (SP)+ [FALSE] 66b6
66ac: e0 27 32 73 03 40 00 CALL 64e6 (L02,#40) -> -(SP)
66b3: a0 00 d7 JZ (SP)+ [TRUE] 66cb
66b6: 55 01 04 01 SUB L00,#04 -> L00
66ba: 54 01 02 00 ADD L00,#02 -> -(SP)
66be: e1 a3 65 00 51 6c STOREW G55,(SP)+,"then"
66c4: 54 62 02 62 ADD G52,#02 -> G52
66c8: 8c 00 1d JUMP 66e6
66cb: e0 27 32 73 03 08 00 CALL 64e6 (L02,#08) -> -(SP)
66d2: a0 00 c5 JZ (SP)+ [TRUE] 66d8
66d5: 8c 00 10 JUMP 66e6
66d8: e0 2f 35 26 01 00 CALL 6a4c (L00) -> -(SP)
66de: b1 RFALSE
66df: e0 2f 34 fa 01 00 CALL 69f4 (L00) -> -(SP)
66e5: b1 RFALSE
66e6: 2d 09 03 STORE L08,L02
66e9: 0d 07 00 STORE L06,#00
66ec: 54 01 02 01 ADD L00,#02 -> L00
66f0: 8c fe 8a JUMP 657b
Routine 66f4, 7 locals (0000, 0000, 0000, 0000, 0000, 0000, 0000)
6703: 56 01 02 00 MUL L00,#02 -> -(SP)
6707: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
670b: 50 00 02 02 LOADB (SP)+,#02 -> L01
670f: 56 01 02 00 MUL L00,#02 -> -(SP)
6713: 74 65 00 00 ADD G55,(SP)+ -> -(SP)
6717: 50 00 03 03 LOADB (SP)+,#03 -> L02
671b: 04 02 00 45 DEC_CHK L01,#00 [FALSE] 6722
671f: 8c 00 32 JUMP 6752
6722: 70 a4 03 04 LOADB G94,L02 -> L03
6726: 41 04 3a 4b JE L03,#3a [FALSE] 6733
672a: 2d 06 05 STORE L05,L04
672d: 0d 05 00 STORE L04,#00
6730: 8c 00 1c JUMP 674d
6733: c3 8f 05 27 10 c0 JG L04,#2710 [TRUE] RFALSE
6739: 42 04 3a 40 JL L03,#3a [FALSE] RFALSE
673d: 43 04 2f 40 JG L03,#2f [FALSE] RFALSE
6741: 56 05 0a 07 MUL L04,#0a -> L06
6745: 55 04 30 00 SUB L03,#30 -> -(SP)
6749: 74 07 00 05 ADD L06,(SP)+ -> L04
674d: 95 03 INC L02
674f: 8c ff cb JUMP 671b
6752: e1 a3 65 01 48 ac STOREW G55,L00,"intnum"
6758: c3 8f 05 03 e8 c0 JG L04,#03e8 [TRUE] RFALSE
675e: a0 06 d9 JZ L05 [TRUE] 6778
6761: 42 06 08 49 JL L05,#08 [FALSE] 676c
6765: 54 06 0c 06 ADD L05,#0c -> L05
6769: 8c 00 06 JUMP 6770
676c: 43 06 17 c0 JG L05,#17 [TRUE] RFALSE
6770: 56 06 3c 00 MUL L05,#3c -> -(SP)
6774: 74 05 00 05 ADD L04,(SP)+ -> L04