forked from Makoto-stack/Aqua-Disassembler
-
Notifications
You must be signed in to change notification settings - Fork 0
/
disassemblerIO.X68
1247 lines (1124 loc) · 24.8 KB
/
disassemblerIO.X68
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
*-----------------------------------------------------------
* Title : 68k Disassembler
* Written by : Aqua Axolotols
* Date : 11/29/2020
* Description: I/O testing
*-----------------------------------------------------------
ORG $1000
START:
***
*this whole section is dedicated to I/O
*prints intro, asks user if they want to disassemble (loop)
*obtains start and end addresses, stores in memory
***
intro
LEA introMsg, A1
MOVE.B #13, D0
TRAP #15
BRA get_start_loc
disassemble_option
LEA finishedMsg, A1
MOVE.B #13, D0
TRAP #15
LEA introOptionMsg, A1
TRAP #15
MOVE.B #5, D0
TRAP #15
CMP.B #$79, D1
BNE done
LEA newLine, A1
MOVE.B #13, D0
TRAP #15
*subroutine to get and save starting location
get_start_loc
JSR clr_all_regs
LEA promptStart, A1 prompt user
MOVE.B #13, D0
TRAP #15
LEA input, A1 get input
MOVE.B #2, D0
TRAP #15
CMPI.B #8, D1 check length
BGT invalid_start
BSR ascii_to_hex convert to hex
BTST #0, D2 check last bit
BNE invalid_start
MOVE.L D2, start_loc save value
MOVE.L D2, curr_loc current location is start
*subroutine to get and save ending location
get_end_loc
MOVE.B #1, D7 keep track start or end address
CLR.L D2 make sure D2 is clear
LEA promptEND, A1 prompt user
MOVE.B #13, D0
TRAP #15
LEA input, A1 get input
MOVE.B #2, D0
TRAP #15
CMPI.B #8, D1 check length
BGT invalid_end
BSR ascii_to_hex convert to hex
BTST #0, D2 check last bit
BNE invalid_end
CMP.L start_loc, D2 make sure start < end
BLE invalid_end
MOVE.L D2, end_loc save value
JSR clr_all_regs
JMP prepare_buffer begin reading memory
*ascii to hex subroutine
ascii_to_hex
MOVE.B (A1)+, D0 one byte of input
CMP.B #$30, D0
BLT start_or_end error message depending on address
CMP.B #$39, D0
BGT ascii_to_letter
SUBI.B #$30, D0
ASL.L #4, D2
ADD.L D0, D2
SUBI.W #1, D1
BNE ascii_to_hex
RTS
*ascii to letter subroutine
ascii_to_letter
CMP.B #$41, D0
BLT start_or_end error message depending on address
CMP.B #$46, D0
BGT start_or_end error message depending on address
SUBI.B #$37, D0
ASL.L #4, D2
ADD.L D0, D2
SUBI.W #1, D1
BNE ascii_to_hex
RTS
*error message for start or end address
start_or_end
CMP.B #1, D7
BNE invalid_start
BRA invalid_end
*error message for start
invalid_start
BSR disp_error_message
BRA get_start_loc
*error message for end
invalid_end
BSR disp_error_message
BRA get_end_loc
*error message dispay
disp_error_message
LEA inputError, A1
MOVE.B #13, D0
TRAP #15
RTS
***
*end of I/O section
***
***
*the following section is where memory reading begins
***
*set line counter to 30
prepare_buffer
JSR refresh_nibbles
MOVE.B #30, line_counter
MOVE.B #11, D0 clear screen
MOVE.W #$FF00, D1
TRAP #15
*print address location
*obtain word of memory
*jump to table based on first nibble
read_memory
JSR print_memory_location
MOVE.W curr_four_nibbles, D0
ANDI.L #$0000FFFF, D0
LSR.W #8, D0
LSR.W #4, D0
MULU #6, D0
LEA FIRST_NIBBLE_TABLE, A1
JSR 0(A1, D0)
JSR print_line
JSR increment_by_word
*check if page needs to be advanced (30 lines)
advance_page_check
SUBI.B #1, line_counter
BEQ advance_page
BRA finish_disassembly
*advances page
advance_page
MOVE.B #30, line_counter
LEA promptEnter, A1
MOVE.B #13, D0
TRAP #15
MOVE.B #5, D0
TRAP #15
MOVE.B #11, D0
MOVE.W #$FF00, D1
TRAP #15
*check if ending address has been parsed
finish_disassembly
MOVE.L curr_loc, D0
MOVE.L end_loc, D1
CMP.L D1, D0
BGT disassemble_option
JMP read_memory
*subroutine to increment curr_loc
increment_by_word
MOVE.L curr_loc, D0
ADDI.W #$2, D0
MOVE.L D0, curr_loc
JSR refresh_nibbles
RTS
*subroutine to refresh curr_four_nibbles
refresh_nibbles
MOVE.L curr_loc, A0
MOVE.W (A0), curr_four_nibbles
RTS
***
*end of memory reading section
***
***
*beginning of parsing opword subroutines
***
*****JUMP TABLE*****
*LOOK AT FIRST FOUR BITS AND DETERMINE WHICH OPCODE TO USE
FIRST_NIBBLE_TABLE
JMP CODE0000 not supported
JMP CODE0001 MOVE.B
JMP CODE0010 MOVE.L, MOVEA.L
JMP CODE0011 MOVE.W, MOVEA.W
JMP CODE0100 NOP, JSR, LEA, MOVEM, NOT, RTS
JMP CODE0101 ADDQ
JMP CODE0110 BRA, BGT, BLE, BEQ
JMP CODE0111 MOVEQ
JMP CODE1000 OR
JMP CODE1001 SUB
JMP CODE1010 not supported
JMP CODE1011 not supported
JMP CODE1100 AND
JMP CODE1101 ADD, ADDA
JMP CODE1110 LSR, LSL, ASR, ASL, ROR, ROL
JMP CODE1111 not supported
*not supported
CODE0000
JSR print_data
RTS
*MOVE.B
CODE0001
JSR print_data
RTS
*MOVE.L, MOVEA.L
CODE0010
JSR print_data
RTS
*MOVE.W, MOVEA.W
CODE0011
JSR print_data
RTS
*NOP, JSR, LEA, MOVEM, NOT, RTS
CODE0100
NOP_check
MOVE.W curr_four_nibbles, D1
CMP.W #$4E71, D1
BNE RTS_check
JSR print_NOP
RTS
RTS_check
MOVE.W curr_four_nibbles, D1
CMP.W #$4E75, D1
BNE LEA_check
JSR print_RTS
RTS
LEA_check
MOVE.W curr_four_nibbles, D1
JSR load_bit_triples
ANDI.W #$01C0, D1
LSR.W #6,D1
CMP.W #$7,D1
BNE NOT_check
MOVE.B bits3to5, D1
CMP.B #2, D1
BEQ LEA_EA_010
CMP.B #7, D1
BEQ LEA_EA_111
JSR print_data
RTS
LEA_EA_010
JSR print_LEA
JSR print_open_paren
JSR print_A
MOVE.B bits0to2, D1
JSR hex_to_ascii
JSR print_char_of_D1
JSR print_close_paren
JSR print_comma
JSR print_A
MOVE.B bits9to11, D1
JSR hex_to_ascii
JSR print_char_of_D1
RTS
LEA_EA_111
MOVE.B bits0to2, D1
CMP.B #0, D1
BEQ LEA_EA_111_W
CMP.B #1, D1
BEQ LEA_EA_111_L
JSR print_data
RTS
LEA_EA_111_W
JSR print_LEA
JSR print_$
JSR increment_by_word
JSR print_word_of_data
JSR print_comma
JSR print_A
MOVE.B bits9to11, D1
JSR hex_to_ascii
JSR print_char_of_D1
RTS
LEA_EA_111_L
JSR print_LEA
JSR print_$
JSR increment_by_word
JSR print_longword_of_data
JSR print_comma
JSR print_A
MOVE.B bits9to11, D1
JSR hex_to_ascii
JSR print_char_of_D1
RTS
NOT_check
MOVE.W curr_four_nibbles, D1
JSR load_bit_triples
LSR.W #8,D1
CMP.W #$0046,D1
BNE JSR_check
MOVE.B bits3to5, D1
CMP.B #7, D1
BEQ NOT_absolute_check
BRA NOT_check_2
NOT_absolute_check
MOVE.B bits0to2, D1
CMP.B #1, D1
BGT NOT_absolute_fail
BRA NOT_check_2
NOT_absolute_fail
JSR print_data
RTS
NOT_check_2
MOVE.B bits6to8, D1
ANDI.B #$3, D1
CMP.B #1, D1
BLT print_NOTB
BEQ print_NOTW
CMP.B #2, D1
BEQ print_NOTL
JSR print_data
RTS
print_NOTB
JSR print_NOT
JSR print_B
BRA NOT_check_3
print_NOTW
JSR print_NOT
JSR print_W
BRA NOT_check_3
print_NOTL
JSR print_NOT
JSR print_L
BRA NOT_check_3
NOT_check_3
MOVE.B bits3to5, D1
ANDI.L #%111, D1
MULU #6, D1
LEA NOT_EA_table, A2
JSR 0(A2, D1)
RTS
NOT_EA_table
JMP NOT_EA_000
JMP NOT_EA_001
JMP NOT_EA_010
JMP NOT_EA_011
JMP NOT_EA_100
JMP NOT_EA_101
JMP NOT_EA_110
JMP NOT_EA_111
NOT_EA_000
JSR print_D
MOVE.B bits0to2, D1
JSR hex_to_ascii
JSR print_char_of_D1
RTS
NOT_EA_001
JSR print_data
RTS
NOT_EA_010
JSR print_open_paren
JSR print_A
MOVE.B bits0to2, D1
JSR hex_to_ascii
JSR print_char_of_D1
JSR print_close_paren
RTS
NOT_EA_011
JSR NOT_EA_010
JSR print_plus
RTS
NOT_EA_100
JSR print_minus
JSR NOT_EA_010
RTS
NOT_EA_101
JSR print_data
RTS
NOT_EA_110
JSR print_data
RTS
NOT_EA_111
MOVE.B bits0to2, D1
CMP.B #1, D1
BEQ NOT_EA_111_L
BLT NOT_EA_111_W
JSR print_data
RTS
NOT_EA_111_W
JSR print_$
JSR increment_by_word
JSR print_word_of_data
RTS
NOT_EA_111_L
JSR print_$
JSR increment_by_word
JSR print_longword_of_data
RTS
JSR_check
MOVE.W curr_four_nibbles, D1
JSR load_bit_triples
LSR.W #6,D1
CMP.W #$013A,D1
BNE CODE0100_fail *will change to BNE MOVEM_check at some point, MOVEM will branch to CODE0100_fail
MOVE.B bits3to5, D1
CMP.B #7, D1
BEQ JSR_absolute_check
BRA JSR_check_2
JSR_absolute_check
MOVE.B bits0to2, D1
CMP.B #1, D1
BGT JSR_absolute_fail
BRA JSR_check_2
JSR_absolute_fail
JSR print_data
RTS
JSR_check_2
MOVE.B bits3to5, D1
CMP.B #2, D1
BEQ JSR_EA_010
CMP.B #7, D1
BEQ JSR_EA_111
JSR print_data
RTS
JSR_EA_010
JSR print_JSR
JSR print_open_paren
JSR print_A
MOVE.B bits0to2, D1
JSR hex_to_ascii
JSR print_char_of_D1
JSR print_close_paren
RTS
JSR_EA_111
MOVE.B bits0to2, D1
CMP.B #1, D1
BEQ JSR_EA_111_L
BLT JSR_EA_111_W
JSR print_data
RTS
JSR_EA_111_W
JSR print_JSR
JSR print_$
JSR increment_by_word
JSR print_word_of_data
RTS
JSR_EA_111_L
JSR print_JSR
JSR print_$
JSR increment_by_word
JSR print_longword_of_data
RTS
CODE0100_fail
JSR print_data
RTS
*ADDQ
CODE0101
JSR print_data
RTS
*BRA, BGT, BLE, BEQ
CODE0110
MOVE.W curr_four_nibbles,D1
LSR.W #8,D1
ANDI.W #$000F, D1
CMP.W #0,D1 *Check if BRA
BEQ BRA_check
CMP.W #$E,D1 *Check if BGT
BEQ BGT_check
CMP.W #$F,D1 *Check if BLE
BEQ BLE_check
CMP.W #$7,D1 *Check if BEQ
BEQ BEQ_check
JSR print_data
RTS
BRA_check
MOVE.W curr_four_nibbles, D1
CMP.B #$00, D1
BEQ BRA_16_bit
CMP.B #$FF, D1
BEQ BRA_32_bit
BRA_8_bit
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$000000FF, D3
ADD.L D3, D2
ADD.L #2, D2
MOVE.L D2, abs_address
JSR print_BRA
JSR print_S
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BRA_16_bit
JSR increment_by_word
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$0000FFFF, D3
ADD.L D3, D2
MOVE.L D2, abs_address
JSR print_BRA
JSR print_W
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BRA_32_bit
JSR increment_by_word
JSR increment_by_word
JSR print_data not supported
RTS
BGT_check
MOVE.W curr_four_nibbles, D1
CMP.B #$00, D1
BEQ BGT_16_bit
CMP.B #$FF, D1
BEQ BGT_32_bit
BGT_8_bit
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$000000FF, D3
ADD.L D3, D2
ADD.L #2, D2
MOVE.L D2, abs_address
JSR print_BGT
JSR print_S
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BGT_16_bit
JSR increment_by_word
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$0000FFFF, D3
ADD.L D3, D2
MOVE.L D2, abs_address
JSR print_BGT
JSR print_W
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BGT_32_bit
JSR increment_by_word
JSR increment_by_word
JSR print_data not supported
RTS
BLE_check
MOVE.W curr_four_nibbles, D1
CMP.B #$00, D1
BEQ BLE_16_bit
CMP.B #$FF, D1
BEQ BLE_32_bit
BLE_8_bit
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$000000FF, D3
ADD.L D3, D2
ADD.L #2, D2
MOVE.L D2, abs_address
JSR print_BLE
JSR print_S
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BLE_16_bit
JSR increment_by_word
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$0000FFFF, D3
ADD.L D3, D2
MOVE.L D2, abs_address
JSR print_BLE
JSR print_W
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BLE_32_bit
JSR increment_by_word
JSR increment_by_word
JSR print_data not supported
RTS
BEQ_check
MOVE.W curr_four_nibbles, D1
CMP.B #$00, D1
BEQ BEQ_16_bit
CMP.B #$FF, D1
BEQ BEQ_32_bit
BEQ_8_bit
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$000000FF, D3
ADD.L D3, D2
ADD.L #2, D2
MOVE.L D2, abs_address
JSR print_BEQ
JSR print_S
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BEQ_16_bit
JSR increment_by_word
MOVE.L curr_loc, D2
MOVE.W curr_four_nibbles, D3
ANDI.L #$0000FFFF, D3
ADD.L D3, D2
MOVE.L D2, abs_address
JSR print_BEQ
JSR print_W
JSR print_$
LSR.L #8, D2
LSR.L #8, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
MOVE.L abs_address, D2
MOVE.W D2, curr_four_nibbles
JSR print_word_of_data
RTS
BEQ_32_bit
JSR increment_by_word
JSR increment_by_word
JSR print_data not supported
RTS
*MOVEQ
CODE0111
JSR print_data
RTS
*OR
CODE1000
JSR print_data
RTS
*SUB
CODE1001
JSR print_data
RTS
*not supported
CODE1010
JSR print_data
RTS
*not supported
CODE1011
JSR print_data
RTS
*AND
CODE1100
JSR print_data
RTS
*ADD, ADDA
CODE1101
JSR print_data
RTS
*LSR, LSL, ASR, ASL, ROR, ROL
CODE1110
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000000011000000,D1 *get shift size
MOVE.B D1,shiftsize
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000000000001100,D1 *get what kind of shift/rotate
MOVE.B D1,shiftID
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000000000010000,D1 *get I/R
MOVE.B D1,shiftIR
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000000100000000,D1
MOVE.B D1,shiftDir *get shift direction
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000111000000000,D1 *get count/register
MOVE.B D1,shiftCount
MOVE.L curr_four_nibbles,D1
ANDI.L #%0000000000000111,D1
MOVE.B D1,shiftReg *get register
RTS
*not supported
CODE1111
JSR print_data
RTS
*put any needed subroutines/jump tables for size, register, EA mode below here
get_bits_0_to_2
MOVE.W curr_four_nibbles, D1
ANDI.W #$0007, D1
MOVE.B D1, bits0to2
RTS
get_bits_3_to_5
MOVE.W curr_four_nibbles, D1
ANDI.W #$0038, D1
LSR.W #3, D1
MOVE.B D1, bits3to5
RTS
get_bits_6_to_8
MOVE.W curr_four_nibbles, D1
ANDI.W #$01C0, D1
LSR.W #6, D1
MOVE.B D1, bits6to8
RTS
get_bits_9_to_11
MOVE.W curr_four_nibbles, D1
ANDI.W #$0E00, D1
LSR.W #8, D1
LSR.W #1, D1
MOVE.B D1, bits9to11
RTS
load_bit_triples
JSR get_bits_0_to_2
JSR get_bits_3_to_5
JSR get_bits_6_to_8
JSR get_bits_9_to_11
MOVE.W curr_four_nibbles, D1
RTS
***
*beginning of print memory specific subroutines
***
print_memory_location
MOVE.L curr_loc, D0 *load current address
LSR.L #8, D0
LSR.L #8, D0
MOVE.W D0, curr_word
JSR print_word_of_memloc
MOVE.L curr_loc, D0
MOVE.W D0, curr_word
JSR print_word_of_memloc
JSR print_space
RTS
print_word_of_memloc
JSR isolate_first_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR isolate_second_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR isolate_third_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR isolate_fourth_nibble
JSR hex_to_ascii
JSR print_char_of_D1
RTS
*isolate subroutines are for printing memory location
isolate_first_nibble
MOVE.W curr_word, D1
LSR.W #8, D1
LSR.W #4, D1
ANDI.W #$000F, D1
RTS
isolate_second_nibble
MOVE.W curr_word, D1
LSR.W #8, D1
ANDI.W #$000F, D1
RTS
isolate_third_nibble
MOVE.W curr_word, D1
LSR.W #4, D1
ANDI.W #$000F, D1
RTS
isolate_fourth_nibble
MOVE.W curr_word, D1
ANDI.W #$000F, D1
RTS
*subroutine for hex to ascii
hex_to_ascii
CMPI.B #$9,D1
BGT letter_to_ascii
num_to_ascii
ADDI.B #$30,D1
RTS
letter_to_ascii
ADDI.B #$37,D1
RTS
***
*end of print memory specific subroutines
***
***
*beginning of printing subroutines
***
print_NOP
MOVE.B #14, D0
LEA printNOP, A1
TRAP #15
RTS
print_RTS
MOVE.B #14, D0
LEA printRTS, A1
TRAP #15
RTS
print_LEA
MOVE.B #14, D0
LEA printLEA, A1
TRAP #15
RTS
print_NOT
MOVE.B #14, D0
LEA printNOT, A1
TRAP #15
RTS
print_JSR
MOVE.B #14, D0
LEA printJSR, A1
TRAP #15
RTS
print_BRA
MOVE.B #14, D0
LEA printBRA, A1
TRAP #15
RTS
print_BGT
MOVE.B #14, D0
LEA printBGT, A1
TRAP #15
RTS
print_BLE
MOVE.B #14, D0
LEA printBLE, A1
TRAP #15
RTS
print_BEQ
MOVE.B #14, D0
LEA printBEQ, A1
TRAP #15
RTS
*print data if cannot decode
print_data
LEA printData, A1
MOVE.B #14, D0
TRAP #15
JSR print_word_of_data
RTS
print_word_of_data
JSR get_first_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR get_second_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR get_third_nibble
JSR hex_to_ascii
JSR print_char_of_D1
JSR get_fourth_nibble
JSR hex_to_ascii
JSR print_char_of_D1
RTS
print_longword_of_data
JSR print_word_of_data
JSR increment_by_word
JSR print_word_of_data
RTS
*subroutine for trap task 14
print_char_of_D1
CLR.L D0
MOVE.B #6,D0
TRAP #15
RTS
*subroutine to print a space
print_space
LEA printSpace, A1
MOVE.B #14, D0
TRAP #15
RTS
*subroutine to print a line
print_line
LEA newLine, A1
MOVE.B #13, D0
TRAP #15
RTS
print_0
LEA print0, A1
MOVE.B #14, D0
TRAP #15
RTS
print_1
LEA print1, A1
MOVE.B #14, D0
TRAP #15
RTS
print_2
LEA print2, A1
MOVE.B #14, D0
TRAP #15
RTS
print_3
LEA print3, A1
MOVE.B #14, D0
TRAP #15
RTS