add hinting for user side compiler
This commit is contained in:
parent
4c604c8a47
commit
ddd2057ff4
3 changed files with 4 additions and 4 deletions
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
;;Screen print. Draws a pixel at a specified position.
|
;;Screen print. Draws a pixel at a specified position.
|
||||||
;; Destroys A X Y
|
;; Destroys A X Y
|
||||||
.proc pixel_draw; Draws a pixel at [Y = FB , X = FC, FD]. Y = 0 - 320, X= 0 - 200
|
.proc pixel_draw;; Draws a pixel at [Y = FB , X = FC, FD]. Y = 0 - 320, X= 0 - 200
|
||||||
.include "mem.inc"
|
.include "mem.inc"
|
||||||
Bitmap = $4000
|
Bitmap = $4000
|
||||||
Bitmap_end = $5F3F
|
Bitmap_end = $5F3F
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
;; Takes in a PETSKI-code in CODE
|
;; Takes in a PETSKI-code in CODE
|
||||||
;; And prints it ON X_pos, Y_pos
|
;; And prints it ON X_pos, Y_pos
|
||||||
;; Note that this is the real positions divided by 8
|
;; Note that this is the real positions divided by 8
|
||||||
.proc char_draw
|
.proc char_draw; user-procedure :clobbers (A Y) :clobbers-arguments (0 3)
|
||||||
Character_generator_ROM = $D000
|
Character_generator_ROM = $D000
|
||||||
Y_pos_offset = $F9 ; 16-bit value (uses F8), reuses from Y_pos
|
Y_pos_offset = $F9 ; 16-bit value (uses F8), reuses from Y_pos
|
||||||
X_pos_offset = $FA ; 16-bit value (uses F7)
|
X_pos_offset = $FA ; 16-bit value (uses F7)
|
||||||
|
@ -24,7 +24,7 @@
|
||||||
STA Y_pos
|
STA Y_pos
|
||||||
|
|
||||||
;;Do arithimatic to know where to read and write bytes.
|
;;Do arithimatic to know where to read and write bytes.
|
||||||
initial:
|
initial:
|
||||||
;We first need to clear some memory
|
;We first need to clear some memory
|
||||||
LDA #$00
|
LDA #$00
|
||||||
STA petski_position + 1
|
STA petski_position + 1
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
|
;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-
|
||||||
|
|
||||||
;; Subroutine for drawing a filld triangle.
|
;; Subroutine for drawing a filld triangle.
|
||||||
.proc triangle
|
.proc triangle; user-procedure :clobbers (A X Y) :clobbers-arguments 6
|
||||||
;; It takes in values from A_X, A_Y, B_X, B_Y C_X, C_Y, see triangle.inc
|
;; It takes in values from A_X, A_Y, B_X, B_Y C_X, C_Y, see triangle.inc
|
||||||
.include "triangle.inc"
|
.include "triangle.inc"
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue