Atom BASIC Routines part 2

C7FB  .BYTE 24, 95, 23, b5, 32, 55, 33, 95, 32, b5  ; $.#.2U3.2.
C805  .BYTE 41, 55, 42, 4c, 91, c7                  ; AUBL..
C80B  20 bc c8  jsr $C8BC
C80E  a2 05     ldx #$05
C810  4c 7b c2  jmp $C27B
; Data from $C813 to $C8BB (169 bytes)
C813  .BYTE 20, 61, c6, 46, 5a, 66, 59, 66, 58, 66  ;  a.FZfYfXf
C81D  .BYTE 57, 90, 19, 18, 98, 65, 53, a8, a5, 5c  ; W....eS..\
C827  .BYTE 65, 54, 85, 5c, a5, 5d, 65, 55, 85, 5d  ; eT.\.]eU.]
C831  .BYTE a5, 5e, 65, 56, 29, 7f, 85, 5e, 06, 53  ; .^eV)..^.S
C83B  .BYTE 26, 54, 26, 55, 26, 56, a5, 57, 05, 58  ; &T&U&V.W.X
C845  .BYTE 05, 59, 05, 5a, d0, cb, 84, 5b, a5, 52  ; .Y.Z...[.R
C84F  .BYTE 08, a0, 5b, 20, 9f, c9, 28, 10, 03, 20  ; ..[ ..(.. 
C859  .BYTE c4, c8, 4c, 0e, c8, 20, 89, c6, 26, 57  ; ..L.. ..&W
C863  .BYTE 26, 58, 26, 59, 26, 5a, 24, 52, 08, a0  ; &X&Y&Z$R..
C86D  .BYTE 57, d0, e2, 20, 89, c6, a6, 04, b5, 44  ; W.. .....D
C877  .BYTE 08, 4c, 50, c8, 20, bc, c8, ca, 86, 04  ; .LP. .....
C881  .BYTE b5, 15, 35, 16, 95, 15, b5, 24, 35, 25  ; ..5....$5%
C88B  .BYTE 95, 24, b5, 33, 35, 34, 95, 33, b5, 42  ; .$.354.3.B
C895  .BYTE 35, 43, 95, 42, 4c, 0e, c8, 20, a2, c8  ; 5C.BL.. ..
C89F  .BYTE 4c, 0e, c8, 20, bc, c8, 18, b5, 15, 75  ; L.. .....u
C8A9  .BYTE 14, a8, b5, 24, 75, 23, ca, 4c, 53, c9  ; ...$u#.LS.
C8B3  .BYTE 20, a2, c8, 20, 62, c9, 4c, 0e, c8      ;  .. b.L..
C8BC  a2 04     ldx #$04
C8BE  4c 33 c2  jmp $C233

; Data from $C8C1 to $C8C3 (3 bytes)
C8C1  .BYTE 20, dc, c8                              ;  ..
C8C4  38        sec 		; 
C8C5  a9 00     lda #$00	; A = 0
C8C7  a8        tay 		; Y = 0
C8C8  f5 15     sbc $15,X
C8CA  95 15     sta $15,X
C8CC  98        tya 		; A = 0
C8CD  f5 24     sbc $24,X
C8CF  95 24     sta $24,X
C8D1  98        tya 		; A = 0
C8D2  f5 33     sbc $33,X
C8D4  95 33     sta $33,X
C8D6  98        tya 		; A = 0
C8D7  f5 42     sbc $42,X
C8D9  95 42     sta $42,X
C8DB  60        rts 

C8DC  20 34 c4  jsr $C434
C8DF  90 17     bcc $C8F8
C8E1  b4 15     ldy $15,X
C8E3  b9 21 03  lda $0321,Y

'Auto start address for routine loaded from tape.

C8E6  95 15     sta $15,X
C8E8  b9 57 03  lda $0357,Y
C8EB  95 33     sta $33,X
C8ED  b9 3c 03  lda $033C,Y
C8F0  95 24     sta $24,X
C8F2  b9 72 03  lda $0372,Y
C8F5  95 42     sta $42,X
C8F7  60        rts 

C8F8  20 6a c4  jsr $C46A
C8FB  b0 fa     bcs $C8F7
C8FD  a2 07     ldx #$07
C8FF  4c 33 c2  jmp $C233
C902  20 bc c8  jsr $C8BC
C905  b5 42     lda $42,X
C907  30 bb     bmi $C8C4
C909  60        rts 

C90A  a2 00     ldx #$00
C90C  86 52     stx $52
C90E  86 53     stx $53
C910  86 54     stx $54
C912  86 55     stx $55
C914  88        dey 
C915  c8        iny 
C916  b1 05     lda ($05),Y
C918  c9 30     cmp #$30
C91A  90 22     bcc $C93E
C91C  c9 3a     cmp #$3A
C91E  90 0a     bcc $C92A
C920  e9 37     sbc #$37
C922  c9 0a     cmp #LF
C924  90 18     bcc $C93E
C926  c9 10     cmp #$10
C928  b0 14     bcs $C93E
C92A  0a        asl A
C92B  0a        asl A
C92C  0a        asl A
C92D  0a        asl A
C92E  a2 03     ldx #$03
C930  0a        asl A
C931  26 52     rol $52
C933  26 53     rol $53
C935  26 54     rol $54
C937  26 55     rol $55
C939  ca        dex 
C93A  10 f4     bpl $C930
C93C  30 d7     bmi $C915
C93E  8a        txa 
C93F  10 18     bpl $C959
C941  4c d6 c4  jmp $C4D6

C944  20 0c c7  jsr $C70C
C947  a2 0c     ldx #$0C
C949  4c 7b c2  jmp $C27B

C94C  20 bc c8  jsr $C8BC
C94F  b4 15     ldy $15,X
C951  b5 24     lda $24,X
C953  85 53     sta $53
C955  84 52     sty $52
C957  ca        dex 
C958  a0 00     ldy #$00
C95A  b1 52     lda ($52),Y
C95C  4c 7c c9  jmp $C97C

C95F  20 4c c9  jsr $C94C
C962  a0 01     ldy #$01
C964  b1 52     lda ($52),Y
C966  95 24     sta $24,X
C968  c8        iny 
C969  b1 52     lda ($52),Y
C96B  95 33     sta $33,X
C96D  c8        iny 
C96E  b1 52     lda ($52),Y
C970  95 42     sta $42,X
C972  60        rts 

; Data from $C973 to $C97B (9 bytes)
C973  .BYTE a0, 0d, 20, a1, c9, f0, 07, a5, 07      ; .. ......

C97C  20 b3 c9  jsr $C9B3
C97F  95 24     sta $24,X
C981  95 33     sta $33,X
C983  95 42     sta $42,X
C985  60        rts 

C986  a0 20     ldy #$20
C988  a5 0a     lda $0A
C98A  4a        lsr A
C98B  4a        lsr A
C98C  4a        lsr A
C98D  45 0c     eor $0C
C98F  6a        ror A
C990  26 08     rol $08
C992  26 09     rol $09
C994  26 0a     rol $0A
C996  26 0b     rol $0B
C998  26 0c     rol $0C
C99A  88        dey 
C99B  d0 eb     bne $C988
C99D  a0 08     ldy #$08  
C99F  a6 04     ldx $04
C9A1  b9 01 00  lda $0001,Y
C9A4  95 25     sta $25,X
C9A6  b9 02 00  lda $0002,Y
C9A9  95 34     sta $34,X
C9AB  b9 03 00  lda $0003,Y
C9AE  95 43     sta $43,X
C9B0  b9 00 00  lda $0000,Y
C9B3  95 16     sta $16,X
C9B5  e8        inx 
C9B6  86 04     stx $04
C9B8  a4 03     ldy $03
C9BA  a9 00     lda #$00
C9BC  60        rts 

C9BD  20 bc c8  jsr $C8BC
C9C0  20 cb c3  jsr $C3CB
C9C3  a0 00     ldy #$00
C9C5  a9 0d     lda #$0D
C9C7  d1 52     cmp ($52),Y
C9C9  f0 03     beq $C9CE
C9CB  c8        iny 
C9CC  d0 f9     bne $C9C7
C9CE  98        tya 
C9CF  4c 7c c9  jmp $C97C

C9D2  20 b1 ce  jsr $CEB1
C9D5  4c 58 c9  jmp $C958

BRK service routine;

Rretrieves PC from stack, stores it in 0, then goes to BASIC routine pointed to by 10,11 (normally C9E7)

C9D8  68        pla 
C9D9  68        pla 
C9DA  85 00     sta $00
				; copy pointer to BASIC error handler to $05,$06
C9DC  a5 10     lda $10		; $10 --> $05
C9DE  85 05     sta $05
C9E0  a5 11     lda $11		; $11 --> $06
C9E2  85 06     sta $06
C9E4  4c f2 c2  jmp $C2F2

; Data from $C9E7 to $CA4B (101 bytes)
; This looks like a scrap of BASIC
C9E7  .BYTE 40, 3d, 31, 3b, 50, 2e, 24, 36, 24, 37  ; @=1;P.$6$7
C9F1  .BYTE 27, 22, 45, 52, 52, 4f, 52, 20, 22, 3f  ; '"ERROR "?
C9FB  .BYTE 30, 3b, 40, 3d, 38, 3b, 49, 46, 3f, 31  ; 0;@=8;IF?1
CA05  .BYTE 7c, 3f, 32, 50, 2e, 22, 20, 4c, 49, 4e  ; |?2P." LIN
CA0F  .BYTE 45, 22, 21, 31, 26, 20, 23, 46, 46, 46  ; E"!1& #FFF
CA19  .BYTE 46, 0d, 00, 00, 50, 2e, 27, 3b, 45, 2e  ; F...P.';E.
CA23  .BYTE 0d, 20, 24, c4, 90, f2, 6c, 04, d0, 20  ; . $...l.. 
CA2D  .BYTE 8b, c7, a6, 04, ca, ca, 86, 04, b4, 16  ; ..........
CA37  .BYTE b5, 17, 99, 21, 03, b5, 26, 99, 3c, 03  ; ...!..&.<.
CA41  .BYTE b5, 35, 99, 57, 03, b5, 44, 99, 72, 03  ; .5.W..D.r.
CA4B  60        rts

CA4C  e6 07     inc $07
CA4E  6c 08 02  jmp ($0208)

CA51  a9 00     lda #$00
CA53  20 7c c9  jsr $C97C
CA56  a9 ff     lda #$FF
CA58  20 7c c9  jsr $C97C
CA5B  85 04     sta $04
CA5D  a0 7f     ldy #$7F
CA5F  84 26     sty $26
CA61  20 65 c4  jsr $C465
CA64  90 52     bcc $CAB8
CA66  20 31 c2  jsr $C231
CA69  b0 58     bcs $CAC3
CA6B  20 65 c4  jsr $C465
CA6E  a2 01     ldx #$01
CA70  86 04     stx $04
CA72  20 e4 c4  jsr $C4E4
CA75  20 2e c6  jsr $C62E
CA78  90 30     bcc $CAAA
CA7A  88        dey 
CA7B  b0 21     bcs $CA9E
CA7D  a9 05     lda #$05
CA7F  8d 21 03  sta $0321
CA82  20 89 c5  jsr $C589
CA85  a9 08     lda #$08
CA87  8d 21 03  sta $0321
CA8A  a4 03     ldy $03
CA8C  b1 58     lda ($58),Y
CA8E  c9 0d     cmp #LF
CA90  f0 06     beq $CA98
CA92  20 4c ca  jsr $CA4C
CA95  c8        iny 
CA96  d0 f4     bne $CA8C
CA98  20 54 cd  jsr $CD54
CA9B  20 a1 ce  jsr $CEA1
CA9E  b1 58     lda ($58),Y
CAA0  85 25     sta $25
CAA2  c8        iny 
CAA3  b1 58     lda ($58),Y
CAA5  85 16     sta $16
CAA7  c8        iny 
CAA8  84 03     sty $03
CAAA  a5 16     lda $16
CAAC  18        clc 
CAAD  e5 17     sbc $17
CAAF  a5 25     lda $25
CAB1  e5 26     sbc $26
CAB3  90 c8     bcc $CA7D
CAB5  4c cf c2  jmp $C2CF

CAB8  20 31 c2  jsr $C231
CABB  e6 04     inc $04
CABD  20 65 c4  jsr $C465
CAC0  4c 6e ca  jmp $CA6E

CAC3  a5 16     lda $16
CAC5  a4 25     ldy $25
CAC7  85 17     sta $17
CAC9  84 26     sty $26
CACB  b0 a1     bcs $CA6E
CACD  20 34 c4  jsr $C434
CAD0  a4 15     ldy $15
CAD2  f0 10     beq $CAE4
CAD4  90 0f     bcc $CAE5
CAD6  c6 04     dec $04
CAD8  b5 15     lda $15,X
CADA  d9 3f 02  cmp $023F,Y
CADD  f0 06     beq $CAE5
CADF  88        dey 
CAE0  84 15     sty $15
CAE2  d0 f6     bne $CADA
CAE4  00        brk 

CAE5  be 3f 02  ldx $023F,Y
CAE8  18        clc 
CAE9  bd 21 03  lda $0321,X
CAEC  79 4a 02  adc $024A,Y
CAEF  9d 21 03  sta $0321,X
CAF2  85 52     sta $52
CAF4  bd 3c 03  lda $033C,X
CAF7  79 55 02  adc $0255,Y
CAFA  9d 3c 03  sta $033C,X
CAFD  85 53     sta $53
CAFF  bd 57 03  lda $0357,X
CB02  79 60 02  adc $0260,Y
CB05  9d 57 03  sta $0357,X
CB08  85 54     sta $54
CB0A  bd 72 03  lda $0372,X
CB0D  79 6b 02  adc $026B,Y
CB10  9d 72 03  sta $0372,X
CB13  aa        tax 
CB14  a5 52     lda $52
CB16  38        sec 
CB17  f9 76 02  sbc $0276,Y
CB1A  85 52     sta $52
CB1C  a5 53     lda $53
CB1E  f9 81 02  sbc $0281,Y
CB21  85 53     sta $53
CB23  a5 54     lda $54
CB25  f9 8c 02  sbc $028C,Y
CB28  85 54     sta $54
CB2A  8a        txa 
CB2B  f9 97 02  sbc $0297,Y
CB2E  05 52     ora $52
CB30  05 53     ora $53
CB32  05 54     ora $54
CB34  f0 0f     beq $CB45
CB36  8a        txa 
CB37  59 6b 02  eor $026B,Y
CB3A  59 97 02  eor $0297,Y
CB3D  10 04     bpl $CB43
CB3F  b0 04     bcs $CB45
CB41  90 0f     bcc $CB52
CB43  b0 0d     bcs $CB52
CB45  b9 a2 02  lda $02A2,Y
CB48  85 05     sta $05
CB4A  b9 ad 02  lda $02AD,Y
CB4D  85 06     sta $06
CB4F  4c ff cb  jmp $CBFF

CB52  c6 15     dec $15
CB54  4c 58 c5  jmp $C558

CB57  20 34 c4  jsr $C434
CB5A  90 11     bcc $CB6D
CB5C  20 79 c2  jsr $C279
CB5F  20 2c ca  jsr $CA2C
CB62  98        tya 
CB63  a4 15     ldy $15
CB65  c0 0b     cpy #$0B
CB67  b0 04     bcs $CB6D
CB69  99 40 02  sta $0240,Y
CB6C  a9 00     lda #$00
CB6E  99 6c 02  sta $026C,Y
CB71  99 61 02  sta $0261,Y
CB74  99 56 02  sta $0256,Y
CB77  a9 01     lda #$01
CB79  99 4b 02  sta $024B,Y
CB7C  a2 16     ldx #$16
CB7E  4c 33 c2  jmp $C233

CB81  20 8b c7  jsr $C78B
CB84  a4 15     ldy $15
CB86  ca        dex 
CB87  86 04     stx $04
CB89  b5 16     lda $16,X
CB8B  99 77 02  sta $0277,Y
CB8E  b5 25     lda $25,X
CB90  99 82 02  sta $0282,Y
CB93  b5 34     lda $34,X
CB95  99 8d 02  sta $028D,Y
CB98  b5 43     lda $43,X
CB9A  99 98 02  sta $0298,Y
CB9D  a2 1a     ldx #$1A
CB9F  4c 33 c2  jmp $C233

CBA2  20 8b c7  jsr $C78B
CBA5  a4 15     ldy $15
CBA7  ca        dex 
CBA8  86 04     stx $04
CBAA  b5 16     lda $16,X
CBAC  99 4b 02  sta $024B,Y
CBAF  b5 25     lda $25,X
CBB1  99 56 02  sta $0256,Y
CBB4  b5 34     lda $34,X
CBB6  99 61 02  sta $0261,Y
CBB9  b5 43     lda $43,X
CBBB  99 6c 02  sta $026C,Y
CBBE  20 0c c5  jsr $C50C
CBC1  a4 15     ldy $15
CBC3  a5 05     lda $05
CBC5  99 a3 02  sta $02A3,Y
CBC8  a5 06     lda $06
CBCA  99 ae 02  sta $02AE,Y
CBCD  e6 15     inc $15
CBCF  4c 1b c3  jmp $C31B

CBD2  20 1f cc  jsr $CC1F
CBD5  20 0c c5  jsr $C50C
CBD8  a4 14     ldy $14
CBDA  c0 0e     cpy #$0E
CBDC  b0 22     bcs $CC00
CBDE  a5 05     lda $05
CBE0  99 cf 02  sta $02CF,Y
CBE3  a5 06     lda $06
CBE5  99 dd 02  sta $02DD,Y
CBE8  e6 14     inc $14
CBEA  90 1f     bcc $CC0B
CBEC  20 e4 c4  jsr $C4E4
CBEF  a4 14     ldy $14
CBF1  f0 2a     beq $CC1D
CBF3  c6 14     dec $14
CBF5  b9 ce 02  lda $02CE,Y
CBF8  85 05     sta $05
CBFA  b9 dc 02  lda $02DC,Y       
CBFD  85 06     sta $06
CBFF  20 00 c5  jsr $C500
CC02  4c 1b c3  jmp $C31B

CC05  20 1f cc  jsr $CC1F
CC08  20 e4 c4  jsr $C4E4
CC0B  a5 57     lda $57
CC0D  d0 05     bne $CC14
CC0F  20 2e c6  jsr $C62E
CC12  b0 69     bcs $CC7D
CC14  a4 58     ldy $58
CC16  a5 59     lda $59
CC18  84 05     sty $05
CC1A  4c fd cb  jmp $CBFD

; Data at $CC1D
CC1D  .BYTE 00

CC1E  c8        iny 
CC1F  b1 05     lda ($05),Y
CC21  c9 20     cmp #$20
CC23  f0 f9     beq $CC1E
CC25  c9 61     cmp #$61
CC27  90 50     bcc $CC79
CC29  85 57     sta $57
CC2B  e9 61     sbc #$61
CC2D  c9 1b     cmp #$1B
CC2F  b0 48     bcs $CC79
CC31  0a        asl A
CC32  aa        tax 
CC33  bd 8d 03  lda $038D,X
CC36  85 58     sta $58
CC38  20 f6 c4  jsr $C4F6
CC3B  bd 8e 03  lda $038E,X
CC3E  85 59     sta $59
CC40  05 58     ora $58
CC42  d0 34     bne $CC78
CC44  a8        tay 
CC45  a5 12     lda $12
CC47  85 59     sta $59
CC49  88        dey 
CC4A  a9 0d     lda #$0D
CC4C  c8        iny 
CC4D  d1 58     cmp ($58),Y
CC4F  d0 fb     bne $CC4C
CC51  c8        iny 
CC52  b1 58     lda ($58),Y
CC54  30 45     bmi $CC9B
CC56  85 02     sta $02
CC58  c8        iny 
CC59  b1 58     lda ($58),Y
CC5B  85 01     sta $01
CC5D  c8        iny 
CC5E  b1 58     lda ($58),Y
CC60  88        dey 
CC61  c5 57     cmp $57
CC63  f0 06     beq $CC6B
CC65  20 a1 ce  jsr $CEA1
CC68  4c 4a cc  jmp $CC4A

CC6B  20 a2 ce  jsr $CEA2
CC6E  a5 58     lda $58
CC70  9d 8d 03  sta $038D,X
CC73  a5 59     lda $59
CC75  9d 8e 03  sta $038E,X
CC78  60        rts 

CC79  20 bc c8  jsr $C8BC
CC7C  a9 00     lda #$00
CC7E  85 57     sta $57
CC80  60        rts 

CC81  20 72 c3  jsr $C372
CC84  20 34 c4  jsr $C434
CC87  b0 05     bcs $CC8E
CC89  a2 2b     ldx #$2B
CC8B  4c 33 c2  jmp $C233

CC8E  20 09 cd  jsr $CD09
CC91  a5 05     lda $05
CC93  48        pha 
CC94  a5 06     lda $06
CC96  48        pha 
CC97  a5 03     lda $03
CC99  48        pha 
CC9A  a0 00     ldy #$00
CC9C  84 03     sty $03
CC9E  c8        iny 
CC9F  84 06     sty $06
CCA1  a0 40     ldy #$40
CCA3  84 05     sty $05
CCA5  20 2c ca  jsr $CA2C
CCA8  68        pla 
CCA9  85 03     sta $03
CCAB  68        pla 
CCAC  85 06     sta $06
CCAE  68        pla 
CCAF  85 05     sta $05
CCB1  a2 2c     ldx #$2C
CCB3  4c 33 c2  jmp $C233

CCB6  20 8b c7  jsr $C78B
CCB9  a0 54     ldy #$54
CCBB  20 cd c3  jsr $C3CD
CCBE  20 09 cd  jsr $CD09
CCC1  a2 40     ldx #$40
CCC3  a0 00     ldy #$00
CCC5  bd 00 01  lda $0100,X
CCC8  91 54     sta ($54),Y
CCCA  c9 0d     cmp #LF
CCCC  f0 b3     beq $CC81
CCCE  e8        inx 
CCCF  c8        iny 
CCD0  d0 f3     bne $CCC5
CCD2  20 0c c7  jsr $C70C
CCD5  a4 13     ldy $13
CCD7  f0 eb     beq $CCC4
CCD9  ca        dex 
CCDA  86 04     stx $04
CCDC  b5 16     lda $16,X
CCDE  f0 05     beq $CCE5
CCE0  c6 13     dec $13
CCE2  4c 58 c5  jmp $C558

CCE5  b9 b8 02  lda $02B8,Y
CCE8  85 05     sta $05
CCEA  b9 c3 02  lda $02C3,Y
CCED  4c fd cb  jmp $CBFD
CCF0  a6 13     ldx $13
CCF2  e0 0b     cpx #$0B
CCF4  b0 1a     bcs $CD10
CCF6  88        dey 
CCF7  20 f6 c4  jsr $C4F6
CCFA  a5 05     lda $05
CCFC  9d b9 02  sta $02B9,X
CCFF  a5 06     lda $06
CD01  9d c4 02  sta $02C4,X
CD04  e6 13     inc $13
CD06  4c 1b c3  jmp $C31B

CD09  a9 3f     lda #$3F
CD0B  a0 40     ldy #$40
CD0D  d0 02     bne $CD11
CD0F  a0 00     ldy #$00
CD11  20 4c ca  jsr $CA4C
CD14  84 52     sty $52
CD16  a4 52     ldy $52
CD18  20 e6 ff  jsr $FFE6
CD1B  c9 7f     cmp #$7F
CD1D  d0 07     bne $CD26
CD1F  88        dey 
CD20  c4 52     cpy $52
CD22  10 f4     bpl $CD18
CD24  30 f0     bmi $CD16
CD26  c9 18     cmp #$18
CD28  d0 06     bne $CD30
CD2A  20 54 cd  jsr $CD54
CD2D  4c 16 cd  jmp $CD16

CD30  c9 1b     cmp #$1B
CD32  d0 03     bne $CD37
CD34  4c cf c2  jmp $C2CF

CD37  99 00 01  sta INPUT_LINE_BUFFER,Y		; store in line buffer
CD3A  c9 0d     cmp #CR
CD3C  f0 19     beq $CD57
CD3E  c8        iny 				; increment buffer offset
CD3F  98        tya 
CD40  38        sec 
CD41  e5 52     sbc $52
CD43  c9 40     cmp #$40
CD45  90 d1     bcc $CD18
CD47  20 e3 ff  jsr $FFE3_OSRDCH
CD4A  c9 7f     cmp #$7F
CD4C  d0 f9     bne $CD47
CD4E  20 f4 ff  jsr $FFF4_OSWRCH
CD51  4c 1f cd  jmp $CD1F

CD54  20 ed ff  jsr $FFED_OSCRLF
CD57  a9 00     lda #$00
CD59  85 07     sta $07
CD5B  60        rts

CD5C  20 8b c7  jsr $C78B
CD5F  20 ae ce  jsr $CEAE
CD62  a0 54     ldy #$54
CD64  20 cd c3  jsr $C3CD
CD67  a0 ff     ldy #$FF
CD69  c8        iny 
CD6A  b1 52     lda ($52),Y
CD6C  91 54     sta ($54),Y
CD6E  c9 0d     cmp #LF
CD70  d0 f7     bne $CD69
CD72  4c 58 c5  jmp $C558

CD75  20 81 cd  jsr $CD81
CD78  4c f1 c3  jmp $C3F1

CD7B  20 81 cd  jsr $CD81
CD7E  4c 09 c4  jmp $C409

CD81  20 e1 c8  jsr $C8E1
CD84  20 bc c8  jsr $C8BC
CD87  ca        dex 
CD88  18        clc 
CD89  b5 16     lda $16,X
CD8B  75 15     adc $15,X
CD8D  95 15     sta $15,X
CD8F  b5 25     lda $25,X
CD91  75 24     adc $24,X
CD93  95 24     sta $24,X
CD95  86 04     stx $04
CD97  60        rts 

CD98  20 e4 c4  jsr $C4E4
CD9B  a5 12     lda $12
CD9D  85 0e     sta $0E
CD9F  a0 00     ldy #$00
CDA1  84 0d     sty $0D
CDA3  88        dey 
CDA4  c8        iny 
CDA5  b1 0d     lda ($0D),Y
CDA7  c9 0d     cmp #LF
CDA9  d0 f9     bne $CDA4
CDAB  20 bc cd  jsr $CDBC
CDAE  b1 0d     lda ($0D),Y
CDB0  30 03     bmi $CDB5
CDB2  c8        iny 
CDB3  d0 ef     bne $CDA4
CDB5  c8        iny 
CDB6  20 bc cd  jsr $CDBC
CDB9  4c cf c2  jmp $C2CF

CDBC  18        clc 
CDBD  98        tya 
CDBE  65 0d     adc $0D
CDC0  85 0d     sta $0D
CDC2  90 02     bcc $CDC6
CDC4  e6 0e     inc $0E
CDC6  a0 01     ldy #$01
CDC8  60        rts 

CDC9  84 56     sty $56
CDCB  20 2e c6  jsr $C62E
CDCE  b0 48     bcs $CE18
CDD0  a5 58     lda $58
CDD2  85 52     sta $52
CDD4  e9 01     sbc #$01
CDD6  85 58     sta $58
CDD8  85 0d     sta $0D
CDDA  a5 59     lda $59
CDDC  85 53     sta $53
CDDE  e9 00     sbc #$00
CDE0  85 0e     sta $0E
CDE2  85 59     sta $59
CDE4  a9 0d     lda #CR
CDE6  c8        iny 
CDE7  d1 52     cmp ($52),Y
CDE9  d0 fb     bne $CDE6
CDEB  18        clc 
CDEC  98        tya 
CDED  65 52     adc $52
CDEF  85 52     sta $52
CDF1  90 02     bcc $CDF5
CDF3  e6 53     inc $53
CDF5  a0 00     ldy #$00
CDF7  b1 52     lda ($52),Y
CDF9  91 0d     sta ($0D),Y
CDFB  c9 0d     cmp #CR
CDFD  f0 09     beq $CE08
CDFF  c8        iny 
CE00  d0 f5     bne $CDF7
CE02  e6 53     inc $53
CE04  e6 0e     inc $0E
CE06  d0 ef     bne $CDF7
CE08  c8        iny 
CE09  d0 04     bne $CE0F
CE0B  e6 53     inc $53
CE0D  e6 0e     inc $0E
CE0F  b1 52     lda ($52),Y
CE11  91 0d     sta ($0D),Y
CE13  10 ea     bpl $CDFF
CE15  20 bd cd  jsr $CDBD
CE18  a0 01     ldy #$01
CE1A  84 57     sty $57
CE1C  88        dey 
CE1D  a9 0d     lda #CR
CE1F  d1 56     cmp ($56),Y
CE21  f0 5d     beq $CE80
CE23  c8        iny 
CE24  d1 56     cmp ($56),Y
CE26  d0 fb     bne $CE23
CE28  c8        iny 
CE29  c8        iny 
CE2A  a5 0d     lda $0D
CE2C  85 54     sta $54
CE2E  a5 0e     lda $0E
CE30  85 55     sta $55
CE32  20 bd cd  jsr $CDBD
CE35  85 52     sta $52
CE37  a5 0e     lda $0E
CE39  85 53     sta $53
CE3B  88        dey 
CE3C  a9 55     lda #$55
CE3E  91 0d     sta ($0D),Y
CE40  d1 0d     cmp ($0D),Y
CE42  d0 b2     bne $CDF6
CE44  0a        asl A
CE45  91 0d     sta ($0D),Y
CE47  d1 0d     cmp ($0D),Y
CE49  d0 ab     bne $CDF6
CE4B  b1 54     lda ($54),Y
CE4D  91 52     sta ($52),Y
CE4F  98        tya 
CE50  d0 04     bne $CE56
CE52  c6 55     dec $55
CE54  c6 53     dec $53
CE56  88        dey 
CE57  98        tya 
CE58  65 54     adc $54
CE5A  a6 55     ldx $55
CE5C  90 01     bcc $CE5F
CE5E  e8        inx 
CE5F  c5 58     cmp $58
CE61  8a        txa 
CE62  e5 59     sbc $59
CE64  b0 e5     bcs $CE4B
CE66  a0 01     ldy #$01
CE68  a5 25     lda $25
CE6A  91 58     sta ($58),Y
CE6C  c8        iny 
CE6D  a5 16     lda $16
CE6F  91 58     sta ($58),Y
CE71  38        sec 
CE72  20 a2 ce  jsr $CEA2
CE75  a0 ff     ldy #$FF
CE77  c8        iny 
CE78  b1 56     lda ($56),Y
CE7A  91 58     sta ($58),Y
CE7C  c9 0d     cmp #CR
CE7E  d0 f7     bne $CE77
CE80  4c cf c2  jmp $C2CF

CE83  20 e4 c4  jsr $C4E4
CE86  a0 00     ldy #$00
CE88  84 05     sty $05
CE8A  84 03     sty $03
CE8C  a5 12     lda $12
CE8E  85 06     sta $06
CE90  4c 5b c5  jmp $C55B

CE93  20 de c4  jsr $C4DE
CE96  ca        dex 
CE97  20 cb c3  jsr $C3CB
CE9A  a0 00     ldy #$00
CE9C  b5 17     lda $17,X
CE9E  91 52     sta ($52),Y
CEA0  60        rts 

CEA1  18        clc 
CEA2  98        tya 
CEA3  65 58     adc $58
CEA5  85 58     sta $58
CEA7  90 02     bcc $CEAB
CEA9  e6 59     inc $59
CEAB  4c 00 c5  jmp $C500

CEAE  20 79 c2  jsr $C279
CEB1  a2 26     ldx #$26
CEB3  4c 33 c2  jmp $C233

CEB6  20 8b c7  jsr $C78B
CEB9  20 cb c3  jsr $C3CB
CEBC  a4 03     ldy $03
CEBE  60        rts 
CEBF  20 f6 c4  jsr $C4F6
CEC2  84 53     sty $53
CEC4  88        dey 
CEC5  a2 00     ldx #$00
CEC7  b1 05     lda ($05),Y
CEC9  c9 0d     cmp #CR
CECB  f0 f9     beq $CEC6
CECD  9d 40 01  sta $0140,X
CED0  e8        inx 
CED1  c8        iny 
CED2  c9 22     cmp #$22
CED4  d0 f1     bne $CEC7
CED6  b1 05     lda ($05),Y
CED8  c9 22     cmp #$22
CEDA  f0 0e     beq $CEEA
CEDC  a9 0d     lda #CR
CEDE  9d 3f 01  sta $013F,X
CEE1  84 03     sty $03
CEE3  a9 40     lda #$40
CEE5  85 52     sta $52
CEE7  a6 04     ldx $04
CEE9  60        rts 

CEEA  c8        iny 
CEEB  b0 da     bcs $CEC7
CEED  20 fa ce  jsr $CEFA
CEF0  88        dey 
CEF1  84 56     sty $56
CEF3  38        sec 
CEF4  20 e0 ff  jsr $FFE0
CEF7  4c 9b cd  jmp $CD9B

CEFA  20 b1 ce  jsr $CEB1
CEFD  20 e4 c4  jsr $C4E4
CF00  88        dey 
CF01  84 54     sty $54
CF03  a5 12     lda $12
CF05  85 55     sta $55
CF07  a2 52     ldx #$52
CF09  60        rts 

CF0A  20 fa ce  jsr $CEFA
CF0D  84 58     sty $58
CF0F  85 59     sta $59
CF11  a5 0d     lda $0D
CF13  85 5a     sta $5A
CF15  a5 0e     lda $0E
CF17  85 5b     sta $5B
CF19  a9 b2     lda #$B2
CF1B  85 56     sta $56
CF1D  a9 c2     lda #$C2
CF1F  85 57     sta $57
CF21  18        clc 
CF22  20 dd ff  jsr $FFDD
CF25  4c 5b c5  jmp $C55B

CF28  38        sec 
CF29  a9 00     lda #$00
CF2B  2a        rol A
CF2C  48        pha 
CF2D  20 3e cf  jsr $CF3E
CF30  a2 52     ldx #$52
CF32  68        pla 
CF33  20 da ff  jsr $FFDA
CF36  a0 52     ldy #$52
CF38  20 9f c9  jsr $C99F
CF3B  95 42     sta $42,X
CF3D  60        rts 

CF3E  20 bc c8  jsr $C8BC
CF41  b4 15     ldy $15,X
CF43  ca        dex 
CF44  86 04     stx $04
CF46  60        rts 

CF47  20 bc c8  jsr $C8BC
CF4A  20 de c4  jsr $C4DE
CF4D  20 cb c3  jsr $C3CB
CF50  20 41 cf  jsr $CF41
CF53  a2 52     ldx #$52
CF55  20 d7 ff  jsr $FFD7
CF58  4c 5b c5  jmp $C55B

CF5B  20 3e cf  jsr $CF3E
CF5E  84 52     sty $52
CF60  20 d4 ff  jsr $FFD4
CF63  4c 7c c9  jmp $C97C

CF66  20 5b cf  jsr $CF5B
CF69  a4 52     ldy $52
CF6B  20 d4 ff  jsr $FFD4
CF6E  95 24     sta $24,X
CF70  20 d4 ff  jsr $FFD4
CF73  95 33     sta $33,X
CF75  20 d4 ff  jsr $FFD4
CF78  95 42     sta $42,X
CF7A  60        rts 

CF7B  20 bc c8  jsr $C8BC
CF7E  20 31 c2  jsr $C231
CF81  20 e1 c4  jsr $C4E1
CF84  20 cb c3  jsr $C3CB
CF87  20 41 cf  jsr $CF41
CF8A  a5 52     lda $52
CF8C  6c 16 02  jmp (BPTVEC)

CF8F  20 7b cf  jsr $CF7B
CF92  4c 5b c5  jmp $C55B

CF95  20 7b cf  jsr $CF7B
CF98  a2 01     ldx #$01
CF9A  b5 52     lda $52,X
CF9C  20 d1 ff  jsr $FFD1
CF9F  e8        inx 
CFA0  e0 04     cpx #$04
CFA2  90 f6     bcc $CF9A
CFA4  b0 ec     bcs $CF92
CFA6  38        sec 
CFA7  08        php 
CFA8  20 b1 ce  jsr $CEB1
CFAB  a2 52     ldx #$52
CFAD  28        plp 
CFAE  20 ce ff  jsr $FFCE
CFB1  a6 04     ldx $04
CFB3  4c 7c c9  jmp $C97C

CFB6  20 bc c8  jsr $C8BC
CFB9  20 e4 c4  jsr $C4E4
CFBC  20 41 cf  jsr $CF41
CFBF  20 cb ff  jsr $FFCB
CFC2  4c 5b c5  jmp $C55B

CFC5  20 2c c2  jsr $C22C
CFC8  20 b1 ce  jsr $CEB1
CFCB  20 e4 c4  jsr $C4E4
CFCE  88        dey 
CFCF  b1 52     lda ($52),Y
CFD1  84 55     sty $55
CFD3  a4 0f     ldy $0F
CFD5  48        pha 
CFD6  20 d1 ff  jsr $FFD1
CFD9  68        pla 
CFDA  c9 0d     cmp #CR
CFDC  f0 e4     beq $CFC2
CFDE  a4 55     ldy $55
CFE0  c8        iny 
CFE1  d0 ec     bne $CFCF
CFE3  20 2c c2  jsr $C22C
CFE6  20 e1 c4  jsr $C4E1
CFE9  20 cb c3  jsr $C3CB
CFEC  a0 00     ldy #$00
CFEE  84 55     sty $55
CFF0  a4 0f     ldy $0F
CFF2  20 d4 ff  jsr $FFD4
CFF5  a4 55     ldy $55
CFF7  91 52     sta ($52),Y
CFF9  c8        iny 
CFFA  c9 0d     cmp #CR
CFFC  d0 f0     bne $CFEE
CFFE  f0 c2     beq $CFC2

; End of disassembly.