6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-23 13:30:01 +00:00
Code Issues Projects Releases Wiki Activity

For the CBM platforms, make revers() machine dependent and use the RVS flag

Browse Source 
of the different machines instead of a separate one.
For the C128, make the textcolor() function work in 40 and 80 column mode.


git-svn-id: svn://svn.cc65.org/cc65/trunk@1787 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-12-19 20:29:27 +00:00
parent 0b496a9daa
commit 36fe6284a8
33 changed files with 243 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/c128/Makefile
View File

@ -37,6 +37,7 @@ OBJS = _scrsize.o \
mouse.o \
randomize.o \
readjoy.o \
revers.o \
rs232.o \
tgi_mode_table.o

4
libsrc/c128/c128.inc
View File

@ -16,6 +16,7 @@ FNAM_LO = $BB ; Address of filename
FNAM_HI = $BC
FNAM_BANK = $C7 ; Bank for filename
KEY_COUNT = $D0 ; Number of keys in input buffer
FKEY_COUNT = $D1 ; Characters for function key
MODE = $D7 ; 40/80 column mode flag
CURS_X = $EC ; Cursor column
CURS_Y = $EB ; Cursor row
@ -23,7 +24,7 @@ SCREEN_PTR = $E0 ; Pointer to current char in text screen
CRAM_PTR = $E2 ; Pointer to current char in color RAM
CHARCOLOR = $F1
FKEY_COUNT = $D1 ; Characters for function key
RVS = $F3 ; Reverse output flag
FETCH = $2A2 ; Fetch subroutine in RAM
FETVEC = $2AA ; Vector patch location for FETCH
STASH = $2AF ; Stash routine in RAM
@ -41,6 +42,7 @@ CURS_ON = $CD6F
CURS_OFF = $CD9F
CLRSCR = $C142
KBDREAD = $C006
PRINT = $C00C
; Extended jump table
SETBNK = $FF68

6
libsrc/c128/color.s
View File

@ -12,7 +12,11 @@
_textcolor:
ldx CHARCOLOR ; get old value
bit MODE ; Check 80/40 column mode
bpl @L1 ; Jump if 40 columns
tax
lda $CE5C,x ; Translate VIC color -> VDC color
@L1: ldx CHARCOLOR ; get old value
sta CHARCOLOR ; set new value
txa
rts

4
libsrc/c128/cputc.s
View File

@ -8,7 +8,7 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.import PLOT
.include "c128.inc"
@ -98,7 +98,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR

27
libsrc/c128/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "c128.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

3
libsrc/c16/Makefile
View File

@ -23,7 +23,8 @@ OBJS = _scrsize.o \
kbhit.o \
kernal.o \
randomize.o \
readjoy.o
readjoy.o \
revers.o
all: $(OBJS)

4
libsrc/c16/cputc.s
View File

@ -8,7 +8,7 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.import PLOT
.include "../plus4/plus4.inc"
@ -98,7 +98,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR

27
libsrc/c16/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "../plus4/plus4.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

1
libsrc/c64/Makefile
View File

@ -38,6 +38,7 @@ OBJS = _scrsize.o \
mouse.o \
randomize.o \
readjoy.o \
revers.o \
rs232.o \
tgi_mode_table.o

3
libsrc/c64/c64.inc
View File

@ -13,10 +13,10 @@ FNAM_LEN = $B7 ; Length of filename
SECADR = $B9 ; Secondary address
DEVNUM = $BA ; Device number
KEY_COUNT = $C6 ; Number of keys in input buffer
RVS = $C7 ; Reverse flag
CURS_FLAG = $CC ; 1 = cursor off
CURS_BLINK = $CD ; Blink counter
CURS_CHAR = $CE ; Character under the cursor
CURS_COLOR = $287 ; Color under the cursor
CURS_STATE = $CF ; Cursor blink state
SCREEN_PTR = $D1 ; Pointer to current char in text screen
CURS_X = $D3 ; Cursor column
@ -24,6 +24,7 @@ CURS_Y = $D6 ; Cursor row
CRAM_PTR = $F3 ; Pointer to current char in color RAM
CHARCOLOR = $286
CURS_COLOR = $287 ; Color under the cursor
PALFLAG = $2A6 ; $01 = PAL, $00 = NTSC

4
libsrc/c64/cputc.s
View File

@ -8,7 +8,7 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.import PLOT
.include "c64.inc"
@ -98,7 +98,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR

15
libsrc/cbm/revers.s → libsrc/c64/revers.s
View File

@ -5,22 +5,23 @@
;
.export _revers
.export revers
_revers:
.include "c64.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
L1: ldy #$00 ; Assume old value is zero
lda revers ; Load old value
stx revers ; Set new value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.bss
.endproc
revers: .res 1

1
libsrc/cbm/Makefile
View File

@ -56,7 +56,6 @@ S_OBJS = c_acptr.o \
oserrlist.o \
oserror.o \
read.o \
revers.o \
rwcommon.o \
scratch.o \
sysremove.o \

1
libsrc/cbm510/Makefile
View File

@ -49,6 +49,7 @@ OBJS = _scrsize.o \
pokesys.o \
randomize.o \
readjoy.o \
revers.o \
rs232.o \
tgi_mode_table.o

4
libsrc/cbm510/cbm510.inc
View File

@ -174,8 +174,7 @@ rs232head = $037C
rs232tail = $037D
PgmKeyEnd = $0380
PgmKeySeg = $0382
PgmKeySize = $0383
rvsFlag = $0397
RVS = $0383
linetmp = $0398
LastPrtChar = $0399
InsertFlag = $039A
@ -188,7 +187,6 @@ SegSave = $03A0
TabStopTable = $03A1 ; 80 bits for tabstops
KeyBuf = $03AB ; Keyboard buffer
funvec = $03B5 ; Vector for function key handline
FunKeyTmp = $03B7
sedt3 = $03B9
MoniSegSave = $03f0
wstvec = $03F8

4
libsrc/cbm510/cputc.s
View File

@ -10,7 +10,7 @@
.import PLOT
.import popa, _gotoxy
.import xsize, revers
.import xsize
.include "cbm510.inc"
@ -97,7 +97,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
ldx IndReg

27
libsrc/cbm510/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "cbm510.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

1
libsrc/cbm610/Makefile
View File

@ -40,6 +40,7 @@ OBJS = _scrsize.o \
peeksys.o \
pokesys.o \
randomize.o \
revers.o \
rs232.o
#--------------------------------------------------------------------------

2
libsrc/cbm610/cbm610.inc
View File

@ -167,7 +167,7 @@ rs232tail = $037D
PgmKeyEnd = $0380
PgmKeySeg = $0382
PgmKeySize = $0383
rvsFlag = $0397
RVS = $0397
linetmp = $0398
LastPrtChar = $0399
InsertFlag = $039A

4
libsrc/cbm610/cputc.s
View File

@ -12,7 +12,7 @@
.import PLOT
.import _gotoxy
.import popa
.import xsize, revers
.import xsize
.include "cbm610.inc"
@ -94,7 +94,7 @@ putchar:
ldx IndReg
ldy #$0F
sty IndReg
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (CharPtr),y ; Set char
stx IndReg

27
libsrc/cbm610/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "cbm610.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

3
libsrc/pet/Makefile
View File

@ -32,7 +32,8 @@ OBJS = _scrsize.o \
kreadst.o \
ksetlfs.o \
ksetnam.o \
randomize.o
randomize.o \
revers.o
all: $(OBJS)

6
libsrc/pet/cputc.s
View File

@ -8,10 +8,10 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.include "pet.inc"
.include "../cbm/cbm.inc"
; .include "../cbm/cbm.inc"
_cputcxy:
pha ; Save C
@ -98,7 +98,7 @@ plot: ldy CURS_Y
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
rts

3
libsrc/pet/pet.inc
View File

@ -10,6 +10,7 @@ MEMSIZE = $34 ; Size of memory installed
TIME = $8D ; 60HZ clock
ST = $96 ; IEC status byte
KEY_COUNT = $9E ; Number of keys in input buffer
RVS = $9F ; Reverse flag
CURS_FLAG = $A7 ; 1 = cursor off
CURS_BLINK = $A8 ; Blink counter
CURS_CHAR = $A9 ; Character under the cursor
@ -29,7 +30,7 @@ KEY_BUF = $26F ; Keyboard buffer
;----------------------------------------------------------------------------
; PET ROM type detection
PET_DETECT = $FFFB
PET_DETECT = $FFFB
PET_2000 = $CA
PET_3000 = $FC
PET_4000 = $FD

27
libsrc/pet/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "pet.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

1
libsrc/plus4/Makefile
View File

@ -46,6 +46,7 @@ OBJS = _scrsize.o \
kuntlk.o \
randomize.o \
readjoy.o \
revers.o \
tgi_mode_table.o
all: $(OBJS)

6
libsrc/plus4/cputc.s
View File

@ -8,7 +8,7 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.import PLOT
.include "plus4.inc"
@ -89,7 +89,7 @@ L11: ora #$40
plot: ldy CURS_X
ldx CURS_Y
clc
clc
jmp PLOT ; Set the new cursor
@ -98,7 +98,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR

1
libsrc/plus4/plus4.inc
View File

@ -15,6 +15,7 @@ SECADR = $AD ; Secondary address
DEVNUM = $AE ; Device number
FNAM_ADR = $AF ; Pointer to filename for OPEN
KEY_COUNT = $EF ; Number of keys in input buffer
RVS = $C2 ; Reverse flag
CURS_X = $CA ; Cursor column
CURS_Y = $CD ; Cursor row
SCREEN_PTR = $C8 ; Pointer to current char in text screen

27
libsrc/plus4/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "plus4.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

3
libsrc/vic20/Makefile
View File

@ -23,7 +23,8 @@ OBJS = _scrsize.o \
kernal.o \
kplot.o \
randomize.o \
readjoy.o
readjoy.o \
revers.o
all: $(OBJS)

4
libsrc/vic20/cputc.s
View File

@ -8,7 +8,7 @@
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import xsize, revers
.import xsize
.import PLOT
.include "vic20.inc"
@ -98,7 +98,7 @@ plot: ldy CURS_X
; position in Y
putchar:
ora revers ; Set revers bit
ora RVS ; Set revers bit
ldy CURS_X
sta (SCREEN_PTR),y ; Set char
lda CHARCOLOR

27
libsrc/vic20/revers.s Normal file
View File

@ -0,0 +1,27 @@
;
; Ullrich von Bassewitz, 07.08.1998
;
; unsigned char revers (unsigned char onoff);
;
.export _revers
.include "vic20.inc"
.proc _revers
ldx #$00 ; Assume revers off
tay ; Test onoff
beq L1 ; Jump if off
ldx #$80 ; Load on value
ldy #$00 ; Assume old value is zero
L1: lda RVS ; Load old value
stx RVS ; Set new value
beq L2 ; Jump if old value zero
iny ; Make old value = 1
L2: ldx #$00 ; Load high byte of result
tya ; Load low byte, set CC
rts
.endproc

3
libsrc/vic20/vic20.inc
View File

@ -13,10 +13,10 @@ FNAM_LEN = $B7 ; Length of filename
SECADR = $B9 ; Secondary address
DEVNUM = $BA ; Device number
KEY_COUNT = $C6 ; Number of keys in input buffer
RVS = $C7 ; Reverse flag
CURS_FLAG = $CC ; 1 = cursor off
CURS_BLINK = $CD ; Blink counter
CURS_CHAR = $CE ; Character under the cursor
CURS_COLOR = $287 ; Color under the cursor
CURS_STATE = $CF ; Cursor blink state
SCREEN_PTR = $D1 ; Pointer to current char in text screen
CURS_X = $D3 ; Cursor column
@ -24,6 +24,7 @@ CURS_Y = $D6 ; Cursor row
CRAM_PTR = $F3 ; Pointer to current char in color RAM
CHARCOLOR = $286
CURS_COLOR = $287 ; Color under the cursor
PALFLAG = $2A6 ; $01 = PAL, $00 = NTSC