mirror of
https://github.com/cc65/cc65.git
synced 2025-01-03 01:31:55 +00:00
Added TEXT entry point, use new assignment operator
git-svn-id: svn://svn.cc65.org/cc65/trunk@2572 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
d168bbdb93
commit
ed2dfd50e9
@ -32,78 +32,68 @@ YSIZE = 24
|
|||||||
; Soft switches
|
; Soft switches
|
||||||
;
|
;
|
||||||
; Write to USEROM to enable apple rom C000-CFFF
|
; Write to USEROM to enable apple rom C000-CFFF
|
||||||
USEROM = $C007
|
USEROM := $C007
|
||||||
|
|
||||||
; 80 column card switches
|
; 80 column card switches
|
||||||
C80ON = $C00C
|
C80ON := $C00C
|
||||||
C80OFF = $C00D
|
C80OFF := $C00D
|
||||||
RD80COL = $C01F
|
RD80COL := $C01F
|
||||||
PG2OFF = $C054
|
PG2OFF := $C054
|
||||||
PG2ON = $C055
|
PG2ON := $C055
|
||||||
RDPAGE2 = $C01C
|
RDPAGE2 := $C01C
|
||||||
|
|
||||||
; Keyboard entries
|
; Keyboard entries
|
||||||
RDKEY = $FD0C
|
CLEAR_KEY_STROBE:= $C010
|
||||||
CLEAR_KEY_STROBE = $C010
|
KEY_STROBE := $C000
|
||||||
KEY_STROBE = $C000
|
|
||||||
|
|
||||||
; Game controller
|
; Game controller
|
||||||
OPEN_APPLE = $C061
|
OPEN_APPLE := $C061
|
||||||
CLOSED_APPLE = $C062
|
CLOSED_APPLE := $C062
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
; ROM routines
|
; ROM routines
|
||||||
|
|
||||||
|
RDKEY := $FD0C
|
||||||
|
|
||||||
; Text output and helpers
|
; Text output and helpers
|
||||||
HOME = $FC58
|
HOME := $FC58
|
||||||
VTABZ = $FC24
|
VTABZ := $FC24
|
||||||
COUT = $FDED
|
COUT := $FDED
|
||||||
|
|
||||||
; Graphics entry points, by cbmnut (applenut??) cbmnut@hushmail.com
|
; Graphics entry points, by cbmnut (applenut??) cbmnut@hushmail.com
|
||||||
WHITE = $01 ; White for $1c, I think...
|
WHITE = $01 ; White for $1c, I think...
|
||||||
|
|
||||||
COLOR = $1C ; Current plot color
|
COLOR = $1C ; Current plot color
|
||||||
|
|
||||||
HGR2 = $F3D8 ; Initialize and clear hi-res page 2.
|
TEXT := $F399 ; Return to text screen
|
||||||
|
HGR2 := $F3D8 ; Initialize and clear hi-res page 2.
|
||||||
HGR = $F3E2 ; Initialize and clear hi-res page 1.
|
HGR := $F3E2 ; Initialize and clear hi-res page 1.
|
||||||
|
HCLR := $F3F2 ; Clear the current hi-res screen to black.
|
||||||
HCLR = $F3F2 ; Clear the current hi-res screen to black.
|
BKGND := $F3F6 ; Clear the current hi-res screen to the
|
||||||
|
|
||||||
BKGND = $F3F6 ; Clear the current hi-res screen to the
|
|
||||||
; last plotted color (from ($1C).
|
; last plotted color (from ($1C).
|
||||||
|
HPOSN := $F411 ; Positions the hi-res cursor without
|
||||||
HPOSN = $F411 ; Positions the hi-res cursor without
|
|
||||||
; plotting a point.
|
; plotting a point.
|
||||||
; Enter with (A) = Y-coordinate, and
|
; Enter with (A) = Y-coordinate, and
|
||||||
; (Y,X) = X-coordinate.
|
; (Y,X) = X-coordinate.
|
||||||
|
HPLOT := $F457 ; Calls HPOSN and tries to plot a dot at
|
||||||
HPLOT = $F457 ; Calls HPOSN and tries to plot a dot at
|
|
||||||
; the cursor's position. If you are
|
; the cursor's position. If you are
|
||||||
; trying to plot a non-white color at
|
; trying to plot a non-white color at
|
||||||
; a complementary color position, no
|
; a complementary color position, no
|
||||||
; dot will be plotted.
|
; dot will be plotted.
|
||||||
|
HLIN := $F53A ; Draws a line from the last plotted
|
||||||
HLIN = $F53A ; Draws a line from the last plotted
|
|
||||||
; point or line destination to:
|
; point or line destination to:
|
||||||
; (X,A) = X-coordinate, and
|
; (X,A) = X-coordinate, and
|
||||||
; (Y) = Y-coordinate.
|
; (Y) = Y-coordinate.
|
||||||
|
HFIND := $F5CB ; Converts the hi-res coursor's position
|
||||||
HFIND = $F5CB ; Converts the hi-res coursor's position
|
|
||||||
; back to X- and Y-coordinates; stores
|
; back to X- and Y-coordinates; stores
|
||||||
; X-coordinate at $E0,E1 and Y-coordinate
|
; X-coordinate at $E0,E1 and Y-coordinate
|
||||||
; at $E2.
|
; at $E2.
|
||||||
|
DRAW := $F601 ; Draws a shape. Enter with (Y,X) = the
|
||||||
DRAW = $F601 ; Draws a shape. Enter with (Y,X) = the
|
|
||||||
; address of the shape table, and (A) =
|
; address of the shape table, and (A) =
|
||||||
; the rotation factor. Uses the current
|
; the rotation factor. Uses the current
|
||||||
; color.
|
; color.
|
||||||
|
XDRAW := $F65D ; Draws a shape by inverting the existing
|
||||||
XDRAW = $F65D ; Draws a shape by inverting the existing
|
|
||||||
; color of the dots the shape draws over.
|
; color of the dots the shape draws over.
|
||||||
; Same entry parameters as DRAW.
|
; Same entry parameters as DRAW.
|
||||||
|
SETHCOL := $F6EC ; Set the hi-res color to (X), where (X)
|
||||||
SETHCOL = $F6EC ; Set the hi-res color to (X), where (X)
|
|
||||||
; must be between 0 and 7.
|
; must be between 0 and 7.
|
||||||
|
PREAD := $FB1E ; Read paddle in X, return AD conv. value in Y
|
||||||
PREAD = $FB1E ; Read paddle in X, return AD conv. value in Y
|
|
||||||
|
Loading…
Reference in New Issue
Block a user