Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-18 02:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Factor out common A2 defines

Browse Source
This commit is contained in:
Joshua Bell 2017-09-14 21:13:54 -07:00
parent 391ee78bdd
commit 4d4966d6b4
4 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
desk.acc/calculator.s
View File

@ -2,6 +2,7 @@
.org $800
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "../inc/applesoft.inc"
@ -10,9 +11,6 @@
adjust_txtptr := $B1
ROMIN2 := $C082
COUT_HOOK := $36
;;; ==================================================
;;; Start of the code
@ -936,7 +934,7 @@ loop: lda routine,x
lda input_state_params::modifiers
bne bail
lda input_state_params::key
cmp #$1B ; Escape?
cmp #KEY_ESCAPE
bne trydel
lda L0BC5
bne clear ; empty state?

10
desk.acc/date.s
View File

@ -2,20 +2,12 @@
.setcpu "65C02"
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "a2d.inc"
ROMIN2 := $C082
KEY_ENTER := $0D
KEY_ESCAPE := $1B
KEY_LEFT := $08
KEY_DOWN := $0A
KEY_UP := $0B
KEY_RIGHT := $15
;;; ==================================================
jmp copy2aux

5
desk.acc/puzzle.s
View File

@ -2,13 +2,12 @@
.setcpu "65C02"
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "a2d.inc"
ROMIN2 := $C082
SPKR := $C030
jmp copy2aux
@ -771,7 +770,7 @@ check_key:
lda get_input_params::modifiers
bne :+
lda get_input_params::key
cmp #$1B ; Escape
cmp #KEY_ESCAPE
beq destroy
: rts
.endproc

21
inc/apple2.inc Normal file
View File

@ -0,0 +1,21 @@
;;; ------------------------------
;;; More Apple II Symbols
;;; ------------------------------
;;; Zero Page
COUT_HOOK := $36
;;; Soft Switches
SPKR := $C030
ROMIN2 := $C082
;;; Key Codes
KEY_ENTER := $0D
KEY_ESCAPE := $1B
KEY_LEFT := $08
KEY_DOWN := $0A
KEY_UP := $0B
KEY_RIGHT := $15