153622 004567 177642                        jsr     R5, 153470
153626 153364                               .word 153364	; A8 - Set 16bit addr
153630 000330                               .word 330		; D8 - Read Postincrement
153632 000010                               .word 10
153634 153442                               .word 153442	; movb @#164020, (R2)+
153636 000421                               br      loc_153702

153640 004767 000066                        call    sub_153732
153644 000301                               swab    R1
153646 006301                               asl     R1
153650 004767 003554                        call    157430
153654 012700 007522                        mov     #7522, R0
153660 005767 033640                        tst     7524
153664 001006                               bne     loc_153702
153666 004567 177576                        jsr     R5, 153470
153672 153364                               .word 153364	; A8 - Set 16bit addr
153674 000310                               .word 310		; C8 - Write Postincrement 
153676 000000                               .word 0
153700 153450                               .word 153450	; movb (R2)+, @#164020
153702
153702                      loc_153702: 
153702 042703 177776                        bic     #177776, R3
153706 052703 000130                        bis     #130, R3
153712 010337 164024                        mov     R3, @#164024
153716 012737 000242 164024                 mov     #242, @#164024
153724 042703 177776                        bic     #177776, R3
153730 000207                               return

153732                      sub_153732:     
153732 005067 033562                        clr     7520
153736 005067 033560                        clr     7522
153742 006300                               asl     R0
153744 110067 033552                        movb    R0, 7522
153750 000300                               swab    R0
153752 110067 033543                        movb    R0, 7521
153756 000207                               return
153756
153760 005067 033534                        clr     7520
153764 012767 177777 033530                 mov     #177777, 7522
153772 012700 007521                        mov     #7521, R0
153776 005001                               clr     R1
154000 004567 177464                        jsr     R5, 153470
154004 153364                               .word 153364	; A8 - Set 16bit addr
154006 000040                               .word 40		; 20 - Write Postdecrement
154010 000000                               .word 0
154012 154016                               .word 154016
154014 000732                               br      loc_153702