Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-02 19:42:14 +00:00
Code Issues Projects Releases Wiki Activity

Prefer = for constants and := for labels (new code too)

Browse Source
This commit is contained in:
Joshua Bell 2018-12-28 16:18:08 -08:00
parent 6e8e5a4cd4
commit 63dd2e7585
4 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
desk.acc/eyes.s
View File

@ -44,11 +44,11 @@ entry:
;;; ============================================================
da_window_id := 60
da_width := screen_width / 3
da_height := screen_height / 3
da_left := (screen_width - da_width)/2
da_top := 50
da_window_id = 60
da_width = screen_width / 3
da_height = screen_height / 3
da_left = (screen_width - da_width)/2
da_top = 50
str_title:
PASCAL_STRING "Eyes"
@ -158,8 +158,8 @@ textback: .byte 0
textfont: .addr 0
.endproc
grow_box_width := 17
grow_box_height := 7
grow_box_width = 17
grow_box_height = 7
.proc grow_box_params
viewloc: DEFINE_POINT 0, 0, viewloc
@ -353,10 +353,10 @@ tmpw: .word 0
penxor: .byte MGTK::penXOR
notpencopy: .byte MGTK::notpencopy
penw := 8
penh := 4
pupilw := penw * 2
pupilh := penh * 2
penw = 8
penh = 4
pupilw = penw * 2
pupilh = penh * 2
.proc outline_pensize
penwidth: .byte penw
@ -592,7 +592,7 @@ cyf: DEFINE_FLOAT
;;; Inputs: cx, cy, rx, ry
.proc draw_outline
segments := 36
segments = 36
lda ROMIN2

4
desk.acc/screen.dump.s
View File

@ -27,8 +27,8 @@
SLOT1 := $C100
hbasl := $6
screen_width := 560
screen_height := 192
screen_width = 560
screen_height = 192
lda ROMIN2
jsr print_screen

18
desk.acc/show.image.file.s
View File

@ -53,7 +53,7 @@ call_main_addr := call_main_trampoline+7 ; address patched in here
sta RAMWRTON
rts
.endproc
sizeof_routine := * - routine ; can't .sizeof(proc) before declaration
sizeof_routine = * - routine ; can't .sizeof(proc) before declaration
;; https://github.com/cc65/cc
.proc call_init
@ -148,7 +148,7 @@ params_start:
;;; ProDOS MLI param blocks
hires := $2000
hires_size := $2000
hires_size = $2000
DEFINE_OPEN_PARAMS open_params, pathbuff, $C00
DEFINE_GET_EOF_PARAMS get_eof_params
@ -164,7 +164,7 @@ data: .res 64, 0
params_end:
;;; ----------------------------------------
da_window_id := 100
da_window_id = 100
.proc line_pos
left: .word 0
@ -186,10 +186,10 @@ ycoord := *+2
.res 4 ; space for both
.endproc
default_width := 560
default_height := 192
default_left := 0
default_top := 0
default_width = 560
default_height = 192
default_left = 0
default_top = 0
.proc window_title
.byte 0 ; length
@ -460,8 +460,8 @@ close: jsr close_file
.proc hr_to_dhr
ptr := $06
rows := 192
cols := 40
rows = 192
cols = 40
spill := $08 ; spill-over
lda #0 ; row

32
desk.acc/this.apple.s
View File

@ -42,11 +42,11 @@ entry:
;;; ============================================================
da_window_id := 60
da_width := 400
da_height := 118
da_left := (screen_width - da_width)/2
da_top := 50
da_window_id = 60
da_width = 400
da_height = 118
da_left = (screen_width - da_width)/2
da_top = 50
.proc winfo
window_id: .byte da_window_id
@ -485,17 +485,17 @@ textfont: .addr 0
;;; (Values in [] are for reference, not needed for compatibility check)
.scope model
ii := 0
iiplus := 1
iie := 2
iie_enhanced := 3
iic := 4
iic_plus := 5
iigs := 6
iie_card := 7
iii := 8
laser128 := 9
LAST := 10
ii = 0
iiplus = 1
iie = 2
iie_enhanced = 3
iic = 4
iic_plus = 5
iigs = 6
iie_card = 7
iii = 8
laser128 = 9
LAST = 10
.endscope
model_str_table: