9 ; write to USEROM to enable apple rom C000-CFFF
11 ; 80 column card switches
28 MEMSIZE = $73 ; Highest free RAM location
35 CLEAR_KEY_STROBE = $C010
42 ;Graphics entry points, by cbmnut (applenut??) cbmnut@hushmail.com
43 WHITE = $01 ;white for $1c, I think...
45 COLOR = $1C ;Current plot color
47 HGR2 = $F3D8 ;Initialize and clear hi-res page 2.
49 HGR = $F3E2 ;Initialize and clear hi-res page 1.
51 HCLR = $F3F2 ;Clear the current hi-res screen to black.
53 BKGND = $F3F6 ;Clear the current hi-res screen to the
54 ;last plotted color (from ($1C).
56 HPOSN = $F411 ;Positions the hi-res cursor without
58 ;Enter with (A) = Y-coordinate, and
59 ;(Y,X) = X-coordinate.
61 HPLOT = $F457 ;Calls HPOSN and tries to plot a dot at
62 ;the cursor's position. If you are
63 ;trying to plot a non-white color at
64 ;a complementary color position, no
67 HLIN = $F53A ;Draws a line from the last plotted
68 ;point or line destination to:
69 ;(X,A) = X-coordinate, and
72 HFIND = $F5CB ;Converts the hi-res coursor's position
73 ;back to X- and Y-coordinates; stores
74 ;X-coordinate at $E0,E1 and Y-coordinate
77 DRAW = $F601 ;Draws a shape. Enter with (Y,X) = the
78 ;address of the shape table, and (A) =
79 ;the rotation factor. Uses the current
82 XDRAW = $F65D ;Draws a shape by inverting the existing
83 ;color of the dots the shape draws over.
84 ;Same entry parameters as DRAW.
86 SETHCOL = $F6EC ;Set the hi-res color to (X), where (X)
87 ;must be between 0 and 7.