msbasic/cbm1_patches.s

.segment "INIT"

PATCH1:
        clc
        jmp     CONTROL_C_TYPED
PATCH2:
        bit     $B4
        bpl     LE1AA
        cmp     #$54
        bne     LE1AA
        jmp     LCE3B
LE1AA:
        rts
PATCH3:
        bit     $B4
        bmi     LE1B2
        jmp     LCE90
LE1B2:
        cmp     #$54
        beq     LE1B9
        jmp     LCE82
LE1B9:
        jmp     LCE69
PATCH4:
        sta     CHARAC
        inx
        jmp     LE1D9
PATCH5:
        bpl     LE1C9
        lda     $8E
        ldy     $8F
        rts
LE1C9:
        ldy     #$FF
        rts
PATCH6:
        bne     LE1D8
LE1CE:
        inc     POSX
        bne     LE1D8
        lda     $E2
        sta     POSX
        bne     LE1CE
LE1D8:
        rts
LE1D9:
        stx     $C9
        pla
        pla
        tya
        jmp     L2B1C
cleanup 2008-10-13 08:07:53 +00:00			`.segment "INIT"`

			`PATCH1:`
			`clc`
			`jmp CONTROL_C_TYPED`
			`PATCH2:`
			`bit $B4`
			`bpl LE1AA`
			`cmp #$54`
			`bne LE1AA`
			`jmp LCE3B`
			`LE1AA:`
			`rts`
			`PATCH3:`
			`bit $B4`
			`bmi LE1B2`
			`jmp LCE90`
			`LE1B2:`
			`cmp #$54`
			`beq LE1B9`
			`jmp LCE82`
			`LE1B9:`
			`jmp LCE69`
			`PATCH4:`
			`sta CHARAC`
			`inx`
			`jmp LE1D9`
			`PATCH5:`
			`bpl LE1C9`
			`lda $8E`
			`ldy $8F`
			`rts`
			`LE1C9:`
			`ldy #$FF`
			`rts`
			`PATCH6:`
			`bne LE1D8`
			`LE1CE:`
cleanup 2008-10-17 06:31:11 +00:00			`inc POSX`
cleanup 2008-10-13 08:07:53 +00:00			`bne LE1D8`
			`lda $E2`
cleanup 2008-10-17 06:31:11 +00:00			`sta POSX`
cleanup 2008-10-13 08:07:53 +00:00			`bne LE1CE`
			`LE1D8:`
			`rts`
			`LE1D9:`
			`stx $C9`
			`pla`
			`pla`
			`tya`
			`jmp L2B1C`