2 ;-----------------------------------------------------------------------------
13 RNDL = $4E ; Random value, low byte
14 RNDH = $4F ; Random value, high byte
15 MEMSIZE = $73 ; Highest free RAM location
17 ;-----------------------------------------------------------------------------
20 BRKVec = $03F0 ; Break vector
21 RESTOR = $03D0 ; Goto Dos
23 ; ---------------------------------------------------------------------------
29 ;-----------------------------------------------------------------------------
34 ; Write to USEROM to enable apple rom C000-CFFF
37 ; 80 column card switches
46 CLEAR_KEY_STROBE:= $C010
53 ;-----------------------------------------------------------------------------
58 ; Text output and helpers
63 ; Graphics entry points, by cbmnut (applenut??) cbmnut@hushmail.com
64 WHITE = $01 ; White for $1c, I think...
65 COLOR = $1C ; Current plot color
67 TEXT := $F399 ; Return to text screen
68 HGR2 := $F3D8 ; Initialize and clear hi-res page 2.
69 HGR := $F3E2 ; Initialize and clear hi-res page 1.
70 HCLR := $F3F2 ; Clear the current hi-res screen to black.
71 BKGND := $F3F6 ; Clear the current hi-res screen to the
72 ; last plotted color (from ($1C).
73 HPOSN := $F411 ; Positions the hi-res cursor without
75 ; Enter with (A) = Y-coordinate, and
76 ; (Y,X) = X-coordinate.
77 HPLOT := $F457 ; Calls HPOSN and tries to plot a dot at
78 ; the cursor's position. If you are
79 ; trying to plot a non-white color at
80 ; a complementary color position, no
81 ; dot will be plotted.
82 HLIN := $F53A ; Draws a line from the last plotted
83 ; point or line destination to:
84 ; (X,A) = X-coordinate, and
86 HFIND := $F5CB ; Converts the hi-res coursor's position
87 ; back to X- and Y-coordinates; stores
88 ; X-coordinate at $E0,E1 and Y-coordinate
90 DRAW := $F601 ; Draws a shape. Enter with (Y,X) = the
91 ; address of the shape table, and (A) =
92 ; the rotation factor. Uses the current
94 XDRAW := $F65D ; Draws a shape by inverting the existing
95 ; color of the dots the shape draws over.
96 ; Same entry parameters as DRAW.
97 SETHCOL := $F6EC ; Set the hi-res color to (X), where (X)
98 ; must be between 0 and 7.
99 PREAD := $FB1E ; Read paddle in X, return AD conv. value in Y