$F6D0/63184:   Convert 4 binary bytes to 5 GCR bytes

Jump from $F7BC, $F7E3, $F950, $F961, $FE5E, $FE64:

F6D0: A9 00     LDA #$00
F6D2: 85 57     STA $57
F6D4: 85 5A     STA $5A
F6D6: A4 34     LDY $34
F6D8: A5 52     LDA $52
F6DA: 29 F0     AND #$F0        ; isolate hi-nibble
F6DC: 4A        LSR
F6DD: 4A        LSR             ; and rotate to lower nibble
F6DE: 4A        LSR
F6DF: 4A        LSR
F6E0: AA        TAX             ; as index in table
F6E1: BD 7F F7  LDA $F77F,X
F6E4: 0A        ASL
F6E5: 0A        ASL             ; times 8
F6E6: 0A        ASL
F6E7: 85 56     STA $56
F6E9: A5 52     LDA $52
F6EB: 29 0F     AND #$0F        ; isolate lower nibble
F6ED: AA        TAX             ; as index in table
F6EE: BD 7F F7  LDA $F77F,X
F6F1: 6A        ROR
F6F2: 66 57     ROR $57
F6F4: 6A        ROR
F6F5: 66 57     ROR $57
F6F7: 29 07     AND #$07
F6F9: 05 56     ORA $56
F6FB: 91 30     STA ($30),Y     ; in buffer
F6FD: C8        INY             ; increment buffer
F6FE: A5 53     LDA $53
F700: 29 F0     AND #$F0        ; isolate upper nibble
F702: 4A        LSR
F703: 4A        LSR
F704: 4A        LSR             ; shift to upper nibble
F705: 4A        LSR
F706: AA        TAX             ; as index in table
F707: BD 7F F7  LDA $F77F,X
F70A: 0A        ASL
F70B: 05 57     ORA $57
F70D: 85 57     STA $57
F70F: A5 53     LDA $53
F711: 29 0F     AND #$0F        ; lower nibble
F713: AA        TAX             ; as index
F714: BD 7F F7  LDA $F77F,X
F717: 2A        ROL
F718: 2A        ROL
F719: 2A        ROL
F71A: 2A        ROL
F71B: 85 58     STA $58
F71D: 2A        ROL
F71E: 29 01     AND #$01
F720: 05 57     ORA $57
F722: 91 30     STA ($30),Y     ; in buffer
F724: C8        INY             ; increment buffer
F725: A5 54     LDA $54
F727: 29 F0     AND #$F0        ; isolate hi-nibble
F729: 4A        LSR
F72A: 4A        LSR
F72B: 4A        LSR
F72C: 4A        LSR
F72D: AA        TAX
F72E: BD 7F F7  LDA $F77F,X
F731: 18        CLC
F732: 6A        ROR
F733: 05 58     ORA $58
F735: 91 30     STA ($30),Y     ; in buffer
F737: C8        INY             ; increment buffer pointer
F738: 6A        ROR
F739: 29 80     AND #$80
F73B: 85 59     STA $59
F73D: A5 54     LDA $54
F73F: 29 0F     AND #$0F        ; lower nibble
F741: AA        TAX             ; as index
F742: BD 7F F7  LDA $F77F,X
F745: 0A        ASL
F746: 0A        ASL
F747: 29 7C     AND #$7C
F749: 05 59     ORA $59
F74B: 85 59     STA $59
F74D: A5 55     LDA $55
F74F: 29 F0     AND #$F0        ; isolate hi-nibble
F751: 4A        LSR
F752: 4A        LSR             ; shift to lower nibble
F753: 4A        LSR
F754: 4A        LSR
F755: AA        TAX             ; as index in table
F756: BD 7F F7  LDA $F77F,X
F759: 6A        ROR
F75A: 66 5A     ROR $5A
F75C: 6A        ROR
F75D: 66 5A     ROR $5A
F75F: 6A        ROR
F760: 66 5A     ROR $5A
F762: 29 03     AND #$03
F764: 05 59     ORA $59
F766: 91 30     STA ($30),Y     ; in buffer
F768: C8        INY             ; increment buffer pointer
F769: D0 04     BNE $F76F
F76B: A5 2F     LDA $2F
F76D: 85 31     STA $31

Jump from $F769:

F76F: A5 55     LDA $55
F771: 29 0F     AND #$0F        ; lower nibble
F773: AA        TAX             ; as index
F774: BD 7F F7  LDA $F77F,X
F777: 05 5A     ORA $5A
F779: 91 30     STA ($30),Y     ; in buffer
F77B: C8        INY             ; increment buffer pointer
F77C: 84 34     STY $34         ; and save
F77E: 60        RTS

    Previous Page / Next Page