C64 Software  <  SCA: The C64 Software Collection / HIRES>CHAR

  Run
; Load: 20000 ($4E20), len: 147 ($0093) bytes

4E20  A9 00       LDA #$00
4E22  A2 20       LDX #$20
4E24  85 57       STA $57
4E26  86 58       STX $58
4E28  A9 08       LDA #$08
4E2A  A2 20       LDX #$20
4E2C  85 59       STA $59
4E2E  86 5A       STX $5A
4E30  A9 00       LDA #$00
4E32  A2 04       LDX #$04
4E34  85 5D       STA $5D
4E36  86 5E       STX $5E
4E38  A9 01       LDA #$01
4E3A  85 5F       STA $5F
4E3C  A9 00       LDA #$00
4E3E  A2 20       LDX #$20
4E40  85 5B       STA $5B
4E42  86 5C       STX $5C
4E44  A9 00       LDA #$00
4E46  85 60       STA $60
4E48  A0 00       LDY #$00
4E4A  B1 57       LDA ($57),Y
4E4C  D1 5B       CMP ($5B),Y
4E4E  D0 26       BNE $4E76
4E50  C8          INY
4E51  C0 08       CPY #$08
4E53  D0 F5       BNE $4E4A
4E55  A5 60       LDA $60
4E57  A0 00       LDY #$00
4E59  91 5D       STA ($5D),Y
4E5B  A2 5D       LDX #$5D
4E5D  A9 01       LDA #$01
4E5F  20 A7 4E    JSR $4EA7
4E62  A2 57       LDX #$57
4E64  A9 08       LDA #$08
4E66  20 A7 4E    JSR $4EA7
4E69  A5 5E       LDA $5E
4E6B  C9 07       CMP #$07
4E6D  D0 CD       BNE $4E3C
4E6F  A5 5D       LDA $5D
4E71  C9 E8       CMP #$E8
4E73  D0 C7       BNE $4E3C
4E75  60          RTS
4E76  E6 60       INC $60
4E78  A5 60       LDA $60
4E7A  C5 5F       CMP $5F
4E7C  F0 0A       BEQ $4E88
4E7E  A2 5B       LDX #$5B
4E80  A9 08       LDA #$08
4E82  20 A7 4E    JSR $4EA7
4E85  4C 48 4E    JMP $4E48
4E88  A0 07       LDY #$07
4E8A  B1 57       LDA ($57),Y
4E8C  91 59       STA ($59),Y
4E8E  88          DEY
4E8F  10 F9       BPL $4E8A
4E91  A2 59       LDX #$59
4E93  A9 08       LDA #$08
4E95  20 A7 4E    JSR $4EA7
4E98  A5 60       LDA $60
4E9A  F0 05       BEQ $4EA1
4E9C  E6 5F       INC $5F
4E9E  4C 55 4E    JMP $4E55
4EA1  EE 20 D0    INC $D020
4EA4  4C A1 4E    JMP $4EA1
4EA7  18          CLC
4EA8  75 00       ADC $00,X
4EAA  95 00       STA $00,X
4EAC  A9 00       LDA #$00
4EAE  75 01       ADC $01,X
4EB0  95 01       STA $01,X
4EB2  60          RTS
READY.