-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathprogram.lst
12028 lines (12024 loc) · 473 KB
/
program.lst
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
org 00000H
;
0000 L0000:
0000 : 31 FA BB "1 " lxi sp,0BBFAH
0003 : 3E FF "> " mvi a,0FFH
0005 L0005:
0005 : 32 FF BB "2 " sta XBBFF
0008 : 3E 4C ">L" mvi a,04CH
000A : 32 FE BB "2 " sta XBBFE
000D : 3E 01 "> " mvi a,001H
000F : 32 FB BB "2 " sta XBBFB
0012 : 3E 00 "> " mvi a,000H
0014 : 32 FC BB "2 " sta XBBFC
0017 : 3E 00 "> " mvi a,000H
0019 : 32 FD BB "2 " sta XBBFD
001C : C3 C5 03 " " jmp L03C5
;
001F : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
0023 : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
0027 : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
002B : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
002F : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
0033 : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
0037 : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
003B : FF FF FF FF " " db 0FFH, 0FFH, 0FFH, 0FFH
003F : FF " " db 0FFH
0040 X0040:
0040 : 03 " " db 003H
0041 X0041:
0041 : 02 04 04 01 " " db 002H, 004H, 004H, 001H
0045 : 01 04 04 01 " " db 001H, 004H, 004H, 001H
0049 : 01 02 02 01 " " db 001H, 002H, 002H, 001H
004D : 01 00 00 00 " " db 001H, 000H, 000H, 000H
0051 : 00 00 00 00 " " db 000H, 000H, 000H, 000H
0055 : 00 00 00 00 " " db 000H, 000H, 000H, 000H
0059 : 00 00 00 00 " " db 000H, 000H, 000H, 000H
005D : 00 00 00 00 " " db 000H, 000H, 000H, 000H
0061 : 00 00 " " db 000H, 000H
;
0063 L0063:
0063 : 3A 41 00 ":A " lda X0041
0066 : 4F "O" mov c,a
0067 : 2E 01 ". " mvi l,001H
0069 L0069:
0069 : 3A 40 00 ":@ " lda X0040
006C : 47 "G" mov b,a
006D : 26 01 "& " mvi h,001H
006F L006F:
006F : C5 " " push b
0070 : E5 " " push h
0071 : 11 62 00 " b " lxi d,00062H
0074 : DB 11 " " in 011H
0076 : CD 00 40 " @" call L4000
0079 : E1 " " pop h
007A : C1 " " pop b
007B : 24 "$" inr h
007C : 05 " " dcr b
007D : C2 6F 00 " o " jnz L006F
0080 : 2C "," inr l
0081 : 0D " " dcr c
0082 : C2 69 00 " i " jnz L0069
0085 : C9 " " ret
;
0086 L0086:
0086 : 3A 40 00 ":@ " lda X0040
0089 : 67 "g" mov h,a
008A L008A:
008A : 3A 41 00 ":A " lda X0041
008D : 6F "o" mov l,a
008E L008E:
008E : E5 " " push h
008F : D5 " " push d
0090 : DB 11 " " in 011H
0092 : CD 00 40 " @" call L4000
0095 : D1 " " pop d
0096 : E1 " " pop h
0097 : 2D "-" dcr l
0098 : C2 8E 00 " " jnz L008E
009B : 25 "%" dcr h
009C : C2 8A 00 " " jnz L008A
009F : C9 " " ret
;
00A0 L00A0:
00A0 : F5 " " push psw
00A1 L00A1:
00A1 : C5 " " push b
00A2 : 06 11 " " mvi b,011H
00A4 L00A4:
00A4 : 05 " " dcr b
00A5 : C2 A4 00 " " jnz L00A4
00A8 : C1 " " pop b
00A9 : 0B " " dcx b
00AA : DB 11 " " in 011H
00AC : 78 "x" mov a,b
00AD : B1 " " ora c
00AE : C2 A1 00 " " jnz L00A1
00B1 : F1 " " pop psw
00B2 : C9 " " ret
;
00B3 L00B3:
00B3 : C5 " " push b
00B4 : 01 E8 03 " " lxi b,003E8H
00B7 : CD A0 00 " " call L00A0
00BA : C1 " " pop b
00BB : DB 11 " " in 011H
00BD : 05 " " dcr b
00BE : C2 B3 00 " " jnz L00B3
00C1 : C9 " " ret
;
00C2 : 7F 7F 15 7F " " db 07FH, 07FH, 015H, 07FH
00C6 : 7F 17 7F 7F " " db 07FH, 017H, 07FH, 07FH
00CA : 04 7F 7F 17 " " db 004H, 07FH, 07FH, 017H
00CE : 7F 7F 10 30 " 0" db 07FH, 07FH, 010H, 030H
00D2 : 7F 7F 17 7F " " db 07FH, 07FH, 017H, 07FH
00D6 : 7F 10 31 7F " 1 " db 07FH, 010H, 031H, 07FH
00DA : 7F 17 7F 7F " " db 07FH, 017H, 07FH, 07FH
00DE : 17 7F 7F 05 " " db 017H, 07FH, 07FH, 005H
00E2 : 7F 7F 17 5A " Z" db 07FH, 07FH, 017H, 05AH
00E6 : 3A 20 20 41 ": A" db 03AH, 020H, 020H, 041H
00EA : 3A 20 20 48 ": H" db 03AH, 020H, 020H, 048H
00EE : 09 53 4B 41 " SKA" db 009H, 053H, 04BH, 041H
00F2 : 4E 44 49 2E "NDI." db 04EH, 044H, 049H, 02EH
00F6 : 46 4E 54 20 "FNT " db 046H, 04EH, 054H, 020H
00FA : 00 43 68 65 " Che" db 000H, 043H, 068H, 065H
00FE : 63 6B 3A 20 "ck: " db 063H, 06BH, 03AH, 020H
0102 : 49 6E 69 74 "Init" db 049H, 06EH, 069H, 074H
0106 : 2E 20 4D 65 ". Me" db 02EH, 020H, 04DH, 065H
010A : 6D 6F 72 79 "mory" db 06DH, 06FH, 072H, 079H
010E : 00 55 4C 41 " ULA" db 000H, 055H, 04CH, 041H
0112 : 4D 2D 48 30 "M-H0" db 04DH, 02DH, 048H, 030H
0116 : 47 09 56 3A "G V:" db 047H, 009H, 056H, 03AH
011A : 32 37 2E 31 "27.1" db 032H, 037H, 02EH, 031H
011E : 30 2E 39 34 "0.94" db 030H, 02EH, 039H, 034H
0122 : 00 20 00 54 " T" db 000H, 020H, 000H, 054H
0126 : 65 73 74 3A "est:" db 065H, 073H, 074H, 03AH
012A : 09 53 50 41 " SPA" db 009H, 053H, 050H, 041H
012E : 20 20 20 00 " " db 020H, 020H, 020H, 000H
0132 : 03 57 44 2D " WD-" db 003H, 057H, 044H, 02DH
0136 : 54 65 73 74 "Test" db 054H, 065H, 073H, 074H
013A : 3A 20 20 00 ": " db 03AH, 020H, 020H, 000H
013E : 17 00 01 17 " " db 017H, 000H, 001H, 017H
0142 : 20 20 20 20 " " db 020H, 020H, 020H, 020H
0146 : 20 20 00 17 " " db 020H, 020H, 000H, 017H
014A : B5 B6 B7 B8 " " db 0B5H, 0B6H, 0B7H, 0B8H
014E : B7 B8 00 17 " " db 0B7H, 0B8H, 000H, 017H
0152 : B7 B8 B5 B6 " " db 0B7H, 0B8H, 0B5H, 0B6H
0156 : B7 B8 00 17 " " db 0B7H, 0B8H, 000H, 017H
015A : B7 B8 B7 B8 " " db 0B7H, 0B8H, 0B7H, 0B8H
015E : B5 B6 00 17 " " db 0B5H, 0B6H, 000H, 017H
0162 : B5 B6 B5 B6 " " db 0B5H, 0B6H, 0B5H, 0B6H
0166 : B7 B8 00 17 " " db 0B7H, 0B8H, 000H, 017H
016A : B7 B8 B5 B6 " " db 0B7H, 0B8H, 0B5H, 0B6H
016E : B5 B6 00 17 " " db 0B5H, 0B6H, 000H, 017H
0172 : B5 B6 B5 B6 " " db 0B5H, 0B6H, 0B5H, 0B6H
0176 : B5 B6 00 17 " " db 0B5H, 0B6H, 000H, 017H
017A : 4D 48 45 4C "MHEL" db 04DH, 048H, 045H, 04CH
017E : 53 17 40 49 "S @I" db 053H, 017H, 040H, 049H
0182 : 2E 17 40 45 ". @E" db 02EH, 017H, 040H, 045H
0186 : 2B 2E 17 40 "+. @" db 02BH, 02EH, 017H, 040H
018A : 45 2D 2E 17 "E-. " db 045H, 02DH, 02EH, 017H
018E : 40 52 2E 17 "@R. " db 040H, 052H, 02EH, 017H
;
0192 L0192:
0192 : 0B " " dcx b
0193 : DB 11 " " in 011H
0195 : AF " " xra a
0196 : B8 " " cmp b
0197 : C2 92 01 " " jnz L0192
019A : B9 " " cmp c
019B : C2 92 01 " " jnz L0192
019E : C9 " " ret
;
019F L019F:
019F : 1A " " ldax d
01A0 : 77 "w" mov m,a
01A1 : 23 "#" inx h
01A2 : 13 " " inx d
01A3 : 0D " " dcr c
01A4 : C8 " " rz
01A5 : C3 9F 01 " " jmp L019F
;
01A8 L01A8:
01A8 : 1A " " ldax d
01A9 : 77 "w" mov m,a
01AA : FE 03 " " cpi 003H
01AC : C8 " " rz
01AD : 23 "#" inx h
01AE : 13 " " inx d
01AF : C3 A8 01 " " jmp L01A8
;
01B2 L01B2:
01B2 : 1A " " ldax d
01B3 : 77 "w" mov m,a
01B4 : 23 "#" inx h
01B5 : 13 " " inx d
01B6 : FE 17 " " cpi 017H
01B8 : C8 " " rz
01B9 : C3 B2 01 " " jmp L01B2
;
01BC L01BC:
01BC : 78 "x" mov a,b
01BD : E6 3F " ?" ani 03FH
01BF : 47 "G" mov b,a
01C0 : 3E 40 ">@" mvi a,040H
01C2 : B0 " " ora b
01C3 : 47 "G" mov b,a
01C4 : 3E 0E "> " mvi a,00EH
01C6 : F6 40 " @" ori 040H
01C8 : D3 40 " @" out 040H
01CA : 79 "y" mov a,c
01CB : D3 44 " D" out 044H
01CD : 78 "x" mov a,b
01CE : D3 45 " E" out 045H
01D0 : 3E 0E "> " mvi a,00EH
01D2 : F6 C0 " " ori 0C0H
01D4 : D3 40 " @" out 040H
01D6 : DB 40 " @" in 040H
01D8 : C9 " " ret
;
01D9 L01D9:
01D9 : AF " " xra a
01DA : D3 11 " " out 011H
01DC : D3 11 " " out 011H
01DE : D3 11 " " out 011H
01E0 : D3 11 " " out 011H
01E2 : 3E 40 ">@" mvi a,040H
01E4 : D3 11 " " out 011H
01E6 : 3E 7A ">z" mvi a,07AH
01E8 : D3 11 " " out 011H
01EA : 3E 25 ">%" mvi a,025H
01EC : D3 11 " " out 011H
01EE : C9 " " ret
;
01EF L01EF:
01EF : 3E 02 "> " mvi a,002H
01F1 : 32 CA BE "2 " sta XBECA
01F4 L01F4:
01F4 : 3E 37 ">7" mvi a,037H
01F6 : D3 11 " " out 011H
01F8 : AF " " xra a
01F9 : 32 B1 BE "2 " sta XBEB1
01FC : DB 11 " " in 011H
01FE : 4F "O" mov c,a
01FF : E6 02 " " ani 002H
0201 : CA 50 02 " P " jz L0250
0204 : 79 "y" mov a,c
0205 : E6 38 " 8" ani 038H
0207 : CA 11 02 " " jz L0211
020A : 32 B1 BE "2 " sta XBEB1
020D : 3E 37 ">7" mvi a,037H
020F : D3 11 " " out 011H
0211 L0211:
0211 : DB 10 " " in 010H
0213 : E6 7F " " ani 07FH
0215 : FE 04 " " cpi 004H
0217 : C8 " " rz
0218 : BA " " cmp d
0219 : C2 4B 02 " K " jnz L024B
021C L021C:
021C : BB " " cmp e
021D : 77 "w" mov m,a
021E : C8 " " rz
021F : FE 04 " " cpi 004H
0221 : C8 " " rz
0222 : 23 "#" inx h
0223 : 05 " " dcr b
0224 : C8 " " rz
0225 L0225:
0225 : DB 11 " " in 011H
0227 : 4F "O" mov c,a
0228 : E6 02 " " ani 002H
022A : C2 37 02 " 7 " jnz L0237
022D : DB 40 " @" in 040H
022F : E6 40 " @" ani 040H
0231 : CA 25 02 " % " jz L0225
0234 : C3 53 02 " S " jmp L0253
;
0237 L0237:
0237 : 79 "y" mov a,c
0238 : E6 38 " 8" ani 038H
023A : CA 44 02 " D " jz L0244
023D : 32 B1 BE "2 " sta XBEB1
0240 : 3E 37 ">7" mvi a,037H
0242 : D3 11 " " out 011H
0244 L0244:
0244 : DB 10 " " in 010H
0246 : E6 7F " " ani 07FH
0248 : C3 1C 02 " " jmp L021C
;
024B L024B:
024B : 05 " " dcr b
024C : C8 " " rz
024D : C3 F4 01 " " jmp L01F4
;
0250 L0250:
0250 : 00 " " nop
0251 : 37 "7" stc
0252 : C9 " " ret
;
0253 L0253:
0253 : 3A C9 BE ": " lda XBEC9
0256 : 3C "<" inr a
0257 : 32 C9 BE "2 " sta XBEC9
025A : 3A CA BE ": " lda XBECA
025D : 3D "=" dcr a
025E : 32 CA BE "2 " sta XBECA
0261 : C2 25 02 " % " jnz L0225
0264 : 3E 40 ">@" mvi a,040H
0266 : 37 "7" stc
0267 : C9 " " ret
;
0268 L0268:
0268 : 01 00 22 " "" lxi b,02200H
026B : CD 92 01 " " call L0192
026E L026E:
026E : DB 11 " " in 011H
0270 : E6 04 " " ani 004H
0272 : CA 6E 02 " n " jz L026E
0275 : 7E "~" mov a,m
0276 : FE 17 " " cpi 017H
0278 : C8 " " rz
0279 : D3 10 " " out 010H
027B : 23 "#" inx h
027C : C3 6E 02 " n " jmp L026E
;
027F L027F:
027F : DB 11 " " in 011H
0281 : DB 21 " !" in 021H
0283 : E6 04 " " ani 004H
0285 : CA 7F 02 " " jz L027F
0288 : 7E "~" mov a,m
0289 : FE 17 " " cpi 017H
028B : C8 " " rz
028C : D3 20 " " out 020H
028E : 23 "#" inx h
028F : C3 7F 02 " " jmp L027F
;
0292 : 1A E6 0F 77 " w" db 01AH, 0E6H, 00FH, 077H
0296 : 23 13 0D C2 "# " db 023H, 013H, 00DH, 0C2H
029A : 92 02 C9 1A " " db 092H, 002H, 0C9H, 01AH
029E : F6 30 77 23 " 0w#" db 0F6H, 030H, 077H, 023H
02A2 : 13 0D C2 9D " " db 013H, 00DH, 0C2H, 09DH
02A6 : 02 C9 " " db 002H, 0C9H
;
02A8 L02A8:
02A8 : C5 " " push b
02A9 : 01 02 00 " " lxi b,00002H
02AC : AF " " xra a
02AD L02AD:
02AD : 1A " " ldax d
02AE : 47 "G" mov b,a
02AF : 7E "~" mov a,m
02B0 : 98 " " sbb b
02B1 : F2 B7 02 " " jp L02B7
02B4 : C6 0A " " adi 00AH
02B6 : 37 "7" stc
02B7 L02B7:
02B7 : 77 "w" mov m,a
02B8 : 2B "+" dcx h
02B9 : 1B " " dcx d
02BA : 0D " " dcr c
02BB : C2 AD 02 " " jnz L02AD
02BE : C1 " " pop b
02BF : C9 " " ret
;
02C0 : 1A FE 02 C8 " " db 01AH, 0FEH, 002H, 0C8H
02C4 : 77 23 13 00 "w# " db 077H, 023H, 013H, 000H
02C8 : C8 C3 C0 02 " " db 0C8H, 0C3H, 0C0H, 002H
;
02CC L02CC:
02CC : C5 " " push b
02CD : 01 FF 05 " " lxi b,005FFH
02D0 L02D0:
02D0 : 0B " " dcx b
02D1 : DB 11 " " in 011H
02D3 : AF " " xra a
02D4 : B8 " " cmp b
02D5 : C2 D0 02 " " jnz L02D0
02D8 : B9 " " cmp c
02D9 : C2 D0 02 " " jnz L02D0
02DC : C1 " " pop b
02DD : C9 " " ret
;
02DE L02DE:
02DE : 3E 17 "> " mvi a,017H
02E0 : BE " " cmp m
02E1 : CA F4 02 " " jz L02F4
02E4 : 1A " " ldax d
02E5 : FE 03 " " cpi 003H
02E7 : C8 " " rz
02E8 : 77 "w" mov m,a
02E9 L02E9:
02E9 : BE " " cmp m
02EA : C2 E9 02 " " jnz L02E9
02ED : 23 "#" inx h
02EE : 13 " " inx d
02EF : 0D " " dcr c
02F0 : C8 " " rz
02F1 : C3 DE 02 " " jmp L02DE
;
02F4 L02F4:
02F4 : 3E 80 "> " mvi a,080H
02F6 : C9 " " ret
;
02F7 L02F7:
02F7 : 11 FF 1F " " lxi d,01FFFH
02FA : 21 00 C0 "! " lxi h,XC000
02FD L02FD:
02FD : 3E 65 ">e" mvi a,065H
02FF : BE " " cmp m
0300 : CA 08 03 " " jz L0308
0303 : 77 "w" mov m,a
0304 L0304:
0304 : BE " " cmp m
0305 : C2 04 03 " " jnz L0304
0308 L0308:
0308 : DB 11 " " in 011H
030A : 23 "#" inx h
030B : 1B " " dcx d
030C : 3E 00 "> " mvi a,000H
030E : BA " " cmp d
030F : C2 FD 02 " " jnz L02FD
0312 : BB " " cmp e
0313 : C2 FD 02 " " jnz L02FD
0316 : C9 " " ret
;
0317 : 21 0A BD 0E "! " db 021H, 00AH, 0BDH, 00EH
031B : 40 36 40 23 "@6@#" db 040H, 036H, 040H, 023H
031F : 0D C2 1C 03 " " db 00DH, 0C2H, 01CH, 003H
0323 : C9 " " db 0C9H
;
0324 L0324:
0324 : 0E 01 " " mvi c,001H
0326 L0326:
0326 : 1A " " ldax d
0327 : FE 17 " " cpi 017H
0329 : CA 31 03 " 1 " jz L0331
032C : 13 " " inx d
032D : 0C " " inr c
032E : C3 26 03 " & " jmp L0326
;
0331 L0331:
0331 : 1A " " ldax d
0332 : 77 "w" mov m,a
0333 : CD CC 02 " " call L02CC
0336 : 2B "+" dcx h
0337 : 1B " " dcx d
0338 : 0D " " dcr c
0339 : C2 31 03 " 1 " jnz L0331
033C : C9 " " ret
;
033D L033D:
033D : 7E "~" mov a,m
033E : FE 17 " " cpi 017H
0340 : CA 48 03 " H " jz L0348
0343 : 23 "#" inx h
0344 : 1B " " dcx d
0345 : C3 3D 03 " = " jmp L033D
;
0348 L0348:
0348 : 21 7A 01 "!z " lxi h,0017AH
034B L034B:
034B : 1A " " ldax d
034C : BE " " cmp m
034D : C0 " " rnz
034E : FE 17 " " cpi 017H
0350 : C8 " " rz
0351 : 13 " " inx d
0352 : 23 "#" inx h
0353 : C3 4B 03 " K " jmp L034B
;
0356 L0356:
0356 : FE 30 " 0" cpi 030H
0358 : C2 6E 03 " n " jnz L036E
035B : 3A C3 BE ": " lda XBEC3
035E : FE 30 " 0" cpi 030H
0360 : C2 6E 03 " n " jnz L036E
0363 : 2A BD BE "* " lhld XBEBD
0366 : 22 BF BE "" " shld XBEBF
0369 : 36 20 "6 " mvi m,020H
036B : C3 AE 03 " " jmp L03AE
;
036E L036E:
036E : 2A 04 C0 "* " lhld XC004
0371 L0371:
0371 : 11 C1 BE " " lxi d,XBEC1
0374 : 0E 04 " " mvi c,004H
0376 L0376:
0376 : 2B "+" dcx h
0377 : 7E "~" mov a,m
0378 : FE 02 " " cpi 002H
037A : CA 85 03 " " jz L0385
037D : FE 17 " " cpi 017H
037F : CA B4 03 " " jz L03B4
0382 : C3 76 03 " v " jmp L0376
;
0385 L0385:
0385 : E5 " " push h
0386 : 23 "#" inx h
0387 L0387:
0387 : 1A " " ldax d
0388 : BE " " cmp m
0389 : C2 95 03 " " jnz L0395
038C : 23 "#" inx h
038D : 13 " " inx d
038E : 0D " " dcr c
038F : C2 87 03 " " jnz L0387
0392 : C3 99 03 " " jmp L0399
;
0395 L0395:
0395 : E1 " " pop h
0396 : C3 71 03 " q " jmp L0371
;
0399 L0399:
0399 : 00 " " nop
039A : EB " " xchg
039B : E1 " " pop h
039C : 2A BD BE "* " lhld XBEBD
039F : 22 BF BE "" " shld XBEBF
03A2 L03A2:
03A2 : 1A " " ldax d
03A3 : FE 02 " " cpi 002H
03A5 : CA AE 03 " " jz L03AE
03A8 : 77 "w" mov m,a
03A9 : 23 "#" inx h
03AA : 13 " " inx d
03AB : C3 A2 03 " " jmp L03A2
;
03AE L03AE:
03AE : 36 00 "6 " mvi m,000H
03B0 : 22 BD BE "" " shld XBEBD
03B3 : C9 " " ret
;
03B4 L03B4:
03B4 : 2A BD BE "* " lhld XBEBD
03B7 : 22 BF BE "" " shld XBEBF
03BA : 11 C3 BE " " lxi d,XBEC3
03BD : 0E 02 " " mvi c,002H
03BF : CD 9F 01 " " call L019F
03C2 : C3 AE 03 " " jmp L03AE
;
03C5 L03C5:
03C5 : 00 " " nop
03C6 : AF " " xra a
03C7 : D3 11 " " out 011H
03C9 : D3 11 " " out 011H
03CB : D3 11 " " out 011H
03CD : D3 11 " " out 011H
03CF : 3E 40 ">@" mvi a,040H
03D1 : D3 11 " " out 011H
03D3 : 3E 7A ">z" mvi a,07AH
03D5 : D3 11 " " out 011H
03D7 : 3E 25 ">%" mvi a,025H
03D9 : D3 11 " " out 011H
03DB : AF " " xra a
03DC : D3 21 " !" out 021H
03DE : D3 21 " !" out 021H
03E0 : D3 21 " !" out 021H
03E2 : D3 21 " !" out 021H
03E4 : 3E 40 ">@" mvi a,040H
03E6 : D3 21 " !" out 021H
03E8 : 3E 4E ">N" mvi a,04EH
03EA : D3 21 " !" out 021H
03EC : 3E 25 ">%" mvi a,025H
03EE : D3 21 " !" out 021H
03F0 : 3E 0E "> " mvi a,00EH
03F2 : D3 40 " @" out 040H
03F4 : 3E 89 "> " mvi a,089H
03F6 : D3 33 " 3" out 033H
03F8 : AF " " xra a
03F9 : 0E 00 " " mvi c,000H
03FB : 21 FF FF "! " lxi h,0FFFFH
03FE L03FE:
03FE : 77 "w" mov m,a
03FF : 2B "+" dcx h
0400 : 0D " " dcr c
0401 : C2 FE 03 " " jnz L03FE
0404 : 21 2F BE "!/ " lxi h,0BE2FH
0407 : 36 02 "6 " mvi m,002H
0409 : 23 "#" inx h
040A : 0E 12 " " mvi c,012H
040C L040C:
040C : 36 30 "60" mvi m,030H
040E : 23 "#" inx h
040F : 0D " " dcr c
0410 : C2 0C 04 " " jnz L040C
0413 : 36 03 "6 " mvi m,003H
0415 : 3E 4C ">L" mvi a,04CH
0417 : 32 37 BE "27 " sta XBE37
041A : 3E 30 ">0" mvi a,030H
041C : 32 B2 BE "2 " sta XBEB2
041F : 32 B3 BE "2 " sta XBEB3
0422 : 32 C5 BE "2 " sta XBEC5
0425 : 32 B9 BE "2 " sta XBEB9
0428 : 32 C6 BE "2 " sta XBEC6
042B : 32 C7 BE "2 " sta XBEC7
042E : 32 C9 BE "2 " sta XBEC9
0431 : 3E 31 ">1" mvi a,031H
0433 : 32 B8 BE "2 " sta XBEB8
0436 : CD 63 00 " c " call L0063
0439 : 3E FF "> " mvi a,0FFH
043B : 32 FF BB "2 " sta XBBFF
043E : 21 01 01 "! " lxi h,00101H
0441 : 11 0F 01 " " lxi d,0010FH
0444 : DB 11 " " in 011H
0446 : CD 00 40 " @" call L4000
0449 : DB 11 " " in 011H
044B : 06 32 " 2" mvi b,032H
044D : CD B3 00 " " call L00B3
0450 : 21 01 C0 "! " lxi h,0C001H
0453 : 0E 05 " " mvi c,005H
0455 : 7E "~" mov a,m
0456 L0456:
0456 : 23 "#" inx h
0457 : AE " " xra m
0458 : 0D " " dcr c
0459 : C2 56 04 " V " jnz L0456
045C : 21 00 C0 "! " lxi h,XC000
045F : BE " " cmp m
0460 : C2 71 04 " q " jnz L0471
0463 : 21 7A 01 "!z " lxi h,0017AH
0466 : 11 0F C0 " " lxi d,0C00FH
0469 : CD 3D 03 " = " call L033D
046C : FE 17 " " cpi 017H
046E : CA DA 04 " " jz L04DA
0471 L0471:
0471 : 3E 01 "> " mvi a,001H
0473 : 32 FB BB "2 " sta XBBFB
0476 : 3E 00 "> " mvi a,000H
0478 : 32 FC BB "2 " sta XBBFC
047B : 32 FD BB "2 " sta XBBFD
047E : 11 FB 00 " " lxi d,000FBH
0481 : 21 01 01 "! " lxi h,00101H
0484 : DB 11 " " in 011H
0486 : CD 00 40 " @" call L4000
0489 : CD F7 02 " " call L02F7
048C : 21 10 C0 "! " lxi h,0C010H
048F : 7D "}" mov a,l
0490 : 32 04 C0 "2 " sta XC004
0493 : CD CC 02 " " call L02CC
0496 : 7C "|" mov a,h
0497 : 32 05 C0 "2 " sta XC005
049A : CD CC 02 " " call L02CC
049D : 21 01 C0 "! " lxi h,0C001H
04A0 : 0E 03 " " mvi c,003H
04A2 L04A2:
04A2 : 36 30 "60" mvi m,030H
04A4 : 23 "#" inx h
04A5 : CD CC 02 " " call L02CC
04A8 : 0D " " dcr c
04A9 : C2 A2 04 " " jnz L04A2
04AC : 11 7A 01 " z " lxi d,0017AH
04AF : 21 0F C0 "! " lxi h,0C00FH
04B2 : CD 24 03 " $ " call L0324
04B5 : CD CC 02 " " call L02CC
04B8 : 21 FE DF "! " lxi h,0DFFEH
04BB : 36 17 "6 " mvi m,017H
04BD : CD CC 02 " " call L02CC
04C0 : 23 "#" inx h
04C1 : 36 17 "6 " mvi m,017H
04C3 : CD CC 02 " " call L02CC
04C6 : 21 01 C0 "! " lxi h,0C001H
04C9 : 0E 05 " " mvi c,005H
04CB : 7E "~" mov a,m
04CC L04CC:
04CC : 23 "#" inx h
04CD : AE " " xra m
04CE : 0D " " dcr c
04CF : C2 CC 04 " " jnz L04CC
04D2 : 32 00 C0 "2 " sta XC000
04D5 : CD CC 02 " " call L02CC
04D8 : DB 11 " " in 011H
04DA L04DA:
04DA : CD 63 00 " c " call L0063
04DD : 3A C5 BE ": " lda XBEC5
04E0 : FE 43 " C" cpi 043H
04E2 : C2 ED 04 " " jnz L04ED
04E5 : 3E 00 "> " mvi a,000H
04E7 : 32 C5 BE "2 " sta XBEC5
04EA : C3 79 05 " y " jmp L0579
;
04ED L04ED:
04ED : 21 80 01 "! " lxi h,00180H
04F0 : CD 7F 02 " " call L027F
04F3 : 21 89 01 "! " lxi h,00189H
04F6 : CD 7F 02 " " call L027F
04F9 : 3E 03 "> " mvi a,003H
04FB : 32 B3 BE "2 " sta XBEB3
04FE L04FE:
04FE : 11 25 01 " % " lxi d,00125H
0501 : 21 0A BD "! " lxi h,0BD0AH
0504 : CD A8 01 " " call L01A8
0507 : 3A B3 BE ": " lda XBEB3
050A : 3D "=" dcr a
050B : F6 30 " 0" ori 030H
050D : 32 14 BD "2 " sta XBD14
0510 : 11 0A BD " " lxi d,0BD0AH
0513 : 21 01 01 "! " lxi h,00101H
0516 : DB 11 " " in 011H
0518 : CD 00 40 " @" call L4000
051B : 01 CD 00 " " lxi b,000CDH
051E : CD BC 01 " " call L01BC
0521 : 21 84 01 "! " lxi h,00184H
0524 : CD 7F 02 " " call L027F
0527 : DB 11 " " in 011H
0529 L0529:
0529 : DB 21 " !" in 021H
052B : E6 02 " " ani 002H
052D : CA 39 05 " 9 " jz L0539
0530 : DB 11 " " in 011H
0532 : DB 20 " " in 020H
0534 : FE 0D " " cpi 00DH
0536 : CA 59 05 " Y " jz L0559
0539 L0539:
0539 : DB 11 " " in 011H
053B : DB 40 " @" in 040H
053D : E6 40 " @" ani 040H
053F : CA 29 05 " ) " jz L0529
0542 : 3A B3 BE ": " lda XBEB3
0545 : 3D "=" dcr a
0546 : 32 B3 BE "2 " sta XBEB3
0549 : C2 FE 04 " " jnz L04FE
054C : 3E 30 ">0" mvi a,030H
054E : 32 B3 BE "2 " sta XBEB3
0551 : 06 14 " " mvi b,014H
0553 : CD B3 00 " " call L00B3
0556 : C3 69 05 " i " jmp L0569
;
0559 L0559:
0559 : 21 89 01 "! " lxi h,00189H
055C : CD 7F 02 " " call L027F
055F : 3E 4F ">O" mvi a,04FH
0561 : 32 B3 BE "2 " sta XBEB3
0564 : 06 14 " " mvi b,014H
0566 : CD B3 00 " " call L00B3
0569 L0569:
0569 : DB 11 " " in 011H
056B : 3E FF "> " mvi a,0FFH
056D : 32 FF BB "2 " sta XBBFF
0570 : CD 63 00 " c " call L0063
0573 L0573:
0573 : 01 CD 00 " " lxi b,000CDH
0576 : CD BC 01 " " call L01BC
0579 L0579:
0579 : DB 41 " A" in 041H
057B : E6 0E " " ani 00EH
057D : F6 30 " 0" ori 030H
057F : 32 B0 BE "2 " sta XBEB0
0582 : DB 41 " A" in 041H
0584 : 1F " " rar
0585 : 1F " " rar
0586 : 1F " " rar
0587 : 1F " " rar
0588 : E6 07 " " ani 007H
058A : F6 30 " 0" ori 030H
058C : 32 AF BE "2 " sta XBEAF
058F : CD D9 01 " " call L01D9
0592 : 3E 37 ">7" mvi a,037H
0594 : D3 11 " " out 011H
0596 : DB 10 " " in 010H
0598 : 3E 00 "> " mvi a,000H
059A : 32 C6 BE "2 " sta XBEC6
059D : 3E 03 "> " mvi a,003H
059F : 32 B5 BE "2 " sta XBEB5
05A2 L05A2:
05A2 : 3A AF BE ": " lda XBEAF
05A5 : 57 "W" mov d,a
05A6 : 1E 05 " " mvi e,005H
05A8 : 06 05 " " mvi b,005H
05AA : 21 00 BC "! " lxi h,0BC00H
05AD : CD EF 01 " " call L01EF
05B0 : D2 2C 06 " , " jnc L062C
05B3 : DB 41 " A" in 041H
05B5 : E6 80 " " ani 080H
05B7 : C2 87 0E " " jnz L0E87
05BA : DB 40 " @" in 040H
05BC : E6 40 " @" ani 040H
05BE : CA A2 05 " " jz L05A2
05C1 : 3A C9 BE ": " lda XBEC9
05C4 : 3C "<" inr a
05C5 : 32 C9 BE "2 " sta XBEC9
05C8 : 01 CD 00 " " lxi b,000CDH
05CB : CD BC 01 " " call L01BC
05CE : 3A C9 BE ": " lda XBEC9
05D1 : FE 16 " " cpi 016H
05D3 : F4 F8 07 " " cp L07F8
05D6 : 3A 3A BE ":: " lda XBE3A
05D9 : FE 31 " 1" cpi 031H
05DB : C2 A2 05 " " jnz L05A2
05DE : 3A B9 BE ": " lda XBEB9
05E1 : FE 45 " E" cpi 045H
05E3 : CA EE 05 " " jz L05EE
05E6 : FE 5A " Z" cpi 05AH
05E8 : CA EE 05 " " jz L05EE
05EB : C3 A2 05 " " jmp L05A2
;
05EE L05EE:
05EE : 11 0A BE " " lxi d,0BE0AH
05F1 : 3A C8 BE ": " lda XBEC8
05F4 : FE 00 " " cpi 000H
05F6 : C2 21 06 " ! " jnz L0621
05F9 : 3E 01 "> " mvi a,001H
05FB : 32 C8 BE "2 " sta XBEC8
05FE L05FE:
05FE : 3A 31 BE ":1 " lda XBE31
0601 : D6 33 " 3" sui 033H
0603 : F2 16 06 " " jp L0616
0606 : 21 01 03 "! " lxi h,00301H
0609 : DB 11 " " in 011H
060B : CD 00 40 " @" call L4000
060E : 3A 31 BE ":1 " lda XBE31
0611 : FE 31 " 1" cpi 031H
0613 : C2 A2 05 " " jnz L05A2
0616 L0616:
0616 : 21 02 03 "! " lxi h,00302H
0619 : DB 11 " " in 011H
061B : CD 00 40 " @" call L4000
061E : C3 A2 05 " " jmp L05A2
;
0621 L0621:
0621 : 11 1A BE " " lxi d,0BE1AH
0624 : 3E 00 "> " mvi a,000H
0626 : 32 C8 BE "2 " sta XBEC8
0629 : C3 FE 05 " " jmp L05FE
;
062C L062C:
062C : FE 04 " " cpi 004H
062E : CA 79 05 " y " jz L0579
0631 : FE 05 " " cpi 005H
0633 : C2 79 05 " y " jnz L0579
0636 : 2B "+" dcx h
0637 : 7E "~" mov a,m
0638 : E6 7E " ~" ani 07EH
063A : 4F "O" mov c,a
063B : 3A B0 BE ": " lda XBEB0
063E : B9 " " cmp c
063F : C2 79 05 " y " jnz L0579
0642 : 2B "+" dcx h
0643 : 3A AF BE ": " lda XBEAF
0646 : BE " " cmp m
0647 : C2 79 05 " y " jnz L0579
064A : 23 "#" inx h
064B : 7E "~" mov a,m
064C : E6 01 " " ani 001H
064E : C2 31 09 " 1 " jnz L0931
0651 : 3A B8 BE ": " lda XBEB8
0654 : FE 31 " 1" cpi 031H
0656 : CA 0E 07 " " jz L070E
0659 L0659:
0659 : FE 53 " S" cpi 053H
065B : CA 0E 07 " " jz L070E
065E : FE 45 " E" cpi 045H
0660 : CA 7A 06 " z " jz L067A
0663 : FE 54 " T" cpi 054H
0665 : CA 7A 06 " z " jz L067A
0668 : FE 44 " D" cpi 044H
066A : CA 7A 06 " z " jz L067A
066D : FE 4E " N" cpi 04EH
066F : CA B7 06 " " jz L06B7
0672 : FE 4C " L" cpi 04CH
0674 : CA E5 06 " " jz L06E5
0677 : C3 0E 07 " " jmp L070E
;
067A L067A:
067A : 01 80 11 " " lxi b,01180H
067D : CD 92 01 " " call L0192
0680 : 21 0A BC "! " lxi h,0BC0AH
0683 : 36 7F "6 " mvi m,07FH
0685 : 23 "#" inx h
0686 : 36 7F "6 " mvi m,07FH
0688 : 23 "#" inx h
0689 : 11 8A BC " " lxi d,0BC8AH
068C : CD A8 01 " " call L01A8
068F : 21 14 BC "! " lxi h,0BC14H
0692 : 36 4C "6L" mvi m,04CH
0694 : 06 00 " " mvi b,000H
0696 : 21 0C BC "! " lxi h,0BC0CH
0699 L0699:
0699 : 23 "#" inx h
069A : 7E "~" mov a,m
069B : A8 " " xra b
069C : 47 "G" mov b,a
069D : 7E "~" mov a,m
069E : FE 03 " " cpi 003H
06A0 : C2 99 06 " " jnz L0699
06A3 : 23 "#" inx h
06A4 : 70 "p" mov m,b
06A5 : 23 "#" inx h
06A6 : 36 7F "6 " mvi m,07FH
06A8 : 23 "#" inx h
06A9 : 36 7F "6 " mvi m,07FH
06AB : 23 "#" inx h
06AC : 36 17 "6 " mvi m,017H
06AE : 21 0A BC "! " lxi h,0BC0AH
06B1 : CD 6E 02 " n " call L026E
06B4 : C3 77 07 " w " jmp L0777
;
06B7 L06B7:
06B7 : 01 80 11 " " lxi b,01180H
06BA : CD 92 01 " " call L0192
06BD : 21 0A BC "! " lxi h,0BC0AH
06C0 : 36 7F "6 " mvi m,07FH
06C2 : 23 "#" inx h
06C3 : 36 7F "6 " mvi m,07FH
06C5 : 23 "#" inx h
06C6 : 11 8A BC " " lxi d,0BC8AH
06C9 : CD A8 01 " " call L01A8
06CC : 21 14 BC "! " lxi h,0BC14H
06CF : 36 4C "6L" mvi m,04CH
06D1 : 23 "#" inx h
06D2 : 0E 0C " " mvi c,00CH
06D4 L06D4:
06D4 : 36 30 "60" mvi m,030H
06D6 : 23 "#" inx h
06D7 : 0D " " dcr c
06D8 : C2 D4 06 " " jnz L06D4
06DB : 36 03 "6 " mvi m,003H
06DD : 06 00 " " mvi b,000H
06DF : 21 0C BC "! " lxi h,0BC0CH
06E2 : C3 99 06 " " jmp L0699
;
06E5 L06E5:
06E5 : 01 80 11 " " lxi b,01180H
06E8 : CD 92 01 " " call L0192
06EB : 21 0A BC "! " lxi h,0BC0AH
06EE : 36 7F "6 " mvi m,07FH
06F0 : 23 "#" inx h
06F1 : 36 7F "6 " mvi m,07FH
06F3 : 23 "#" inx h
06F4 : 11 8A BC " " lxi d,0BC8AH
06F7 : CD A8 01 " " call L01A8
06FA : 21 14 BC "! " lxi h,0BC14H
06FD : 36 4C "6L" mvi m,04CH
06FF : 23 "#" inx h
0700 : 11 38 BE " 8 " lxi d,0BE38H
0703 : CD A8 01 " " call L01A8
0706 : 06 00 " " mvi b,000H
0708 : 21 0C BC "! " lxi h,0BC0CH
070B : C3 99 06 " " jmp L0699
;
070E L070E:
070E : 01 80 11 " " lxi b,01180H
0711 : CD 92 01 " " call L0192
0714 : 21 0A BC "! " lxi h,0BC0AH
0717 : 36 7F "6 " mvi m,07FH
0719 : 23 "#" inx h
071A : 36 7F "6 " mvi m,07FH
071C : 23 "#" inx h
071D : 36 02 "6 " mvi m,002H
071F : 23 "#" inx h
0720 : 11 8B BC " " lxi d,XBC8B
0723 : 0E 07 " " mvi c,007H
0725 : CD 9F 01 " " call L019F
0728 : 21 0F BC "! " lxi h,0BC0FH
072B : 11 01 C0 " " lxi d,0C001H
072E : 0E 03 " " mvi c,003H
0730 : CD 9F 01 " " call L019F
0733 : 0E 0A " " mvi c,00AH
0735 : 3A B2 BE ": " lda XBEB2
0738 : FE 40 " @" cpi 040H
073A : F2 40 07 " @ " jp L0740
073D : 36 46 "6F" mvi m,046H
073F : 23 "#" inx h
0740 L0740:
0740 : 77 "w" mov m,a
0741 : 23 "#" inx h
0742 : 3A B3 BE ": " lda XBEB3
0745 : FE 40 " @" cpi 040H
0747 : F2 4D 07 " M " jp L074D
074A : 36 46 "6F" mvi m,046H
074C : 23 "#" inx h
074D L074D:
074D : 77 "w" mov m,a
074E : 23 "#" inx h
074F : 36 03 "6 " mvi m,003H
0751 : E5 " " push h
0752 : 06 00 " " mvi b,000H
0754 L0754:
0754 : 7E "~" mov a,m
0755 : FE 02 " " cpi 002H
0757 : CA 60 07 " ` " jz L0760
075A : A8 " " xra b
075B : 47 "G" mov b,a
075C : 2B "+" dcx h
075D : C3 54 07 " T " jmp L0754
;
0760 L0760:
0760 : E1 " " pop h
0761 : 23 "#" inx h
0762 : 70 "p" mov m,b
0763 : 23 "#" inx h
0764 : 36 7F "6 " mvi m,07FH
0766 : 23 "#" inx h
0767 : 36 7F "6 " mvi m,07FH
0769 : 23 "#" inx h
076A : 36 17 "6 " mvi m,017H
076C : 3E 53 ">S" mvi a,053H
076E : 32 B8 BE "2 " sta XBEB8
0771 : 21 0A BC "! " lxi h,0BC0AH
0774 : CD 68 02 " h " call L0268