forked from mist64/cbmsrc
-
Notifications
You must be signed in to change notification settings - Fork 0
/
romsf.src
91 lines (81 loc) · 1.96 KB
/
romsf.src
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
*=rom
cchksm .byte $97
adjsm .byte $46
;
jclear lda pcr2 ; enable write
and #$ff-$e0
ora #$c0
sta pcr2
;
lda #$ff ; make port an output
sta ddra2
;
lda #$55 ; write a 1f pattern
sta data2
;
ldx #$03 ; $03*256 chars
ldy #00
1$ bvc *
clv
dey
bne 1$
;
dex
bne 1$
;
rts
;
;
;############################################################################
;######################### $00C0 PATCH AREA ###########################
;############################################################################
;
freec0 ; $C0 patch area
;------------------------------------------------------
; patch 25 GCB 11/20/86 block read fix
ptch25 ldy lindx
jmp rndget
;------------------------------------------------------
; patch 26 GCB 11/20/86 write to stack area bug
ptch26 sta nbkl,x ;didn't we just do this??
sta nbkh,x
lda #0
sta lstchr,x
rts
;------------------------------------------------------
; patch27 GCB 11/20/86 set decimal mode without disablind IRQ's
ptch27 php
sei
lda #0
sed
1$ cpx #0
beq 2$
clc
adc #1
dex
jmp 1$
2$ plp
jmp hex5
;-------------------------------------------------------
; ptch28 GCB 11/20/86 disk full bug
ptch28 cmp #3
bcs 1$
lda #dskful
jsr errmsg
1$ lda #1
rts
;--------------------------------------------------------------
; new track table to allow controller to access 40 tracks correctly
fourty_trk_num
.byte $29,$1f,$19,$12
;--------------------------------------------------------------
; add copyright notice for legal types
.byte 'COPYRIGHT (C)1985 COMMODORE ELECTRONICS, LTD.',$0d
.byte 'ALL RIGHTS RESERVED',$0d
;--------------------------------------------------------------
;
;############################################################################
;
;
*=$C100
; .end