Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Consolidate include files

Browse Source
This commit is contained in:
Joshua Bell 2018-02-26 20:13:18 -08:00
parent 60062360ca
commit de85dad1c1
18 changed files with 195 additions and 189 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
desk.acc/calculator.s
View File

@ -2,8 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/applesoft.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
@ -908,7 +906,7 @@ loop: lda routine,x
lda event_params::modifiers lda event_params::modifiers
bne bail bne bail
lda event_params::key lda event_params::key
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
bne trydel bne trydel
lda calc_p lda calc_p
bne clear ; empty state? bne clear ; empty state?

13
desk.acc/date.s
View File

@ -3,7 +3,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" ; redraw icons after window move; font; glyphs .include "../desktop.inc" ; redraw icons after window move; font; glyphs
@ -328,20 +327,20 @@ init_window:
lda event_params::modifiers lda event_params::modifiers
bne input_loop bne input_loop
lda event_params::key lda event_params::key
cmp #KEY_RETURN cmp #CHAR_RETURN
bne :+ bne :+
jmp on_ok jmp on_ok
: cmp #KEY_ESCAPE : cmp #CHAR_ESCAPE
bne :+ bne :+
jmp on_cancel jmp on_cancel
: cmp #KEY_LEFT : cmp #CHAR_LEFT
beq on_key_left beq on_key_left
cmp #KEY_RIGHT cmp #CHAR_RIGHT
beq on_key_right beq on_key_right
cmp #KEY_DOWN cmp #CHAR_DOWN
beq on_key_down beq on_key_down
cmp #KEY_UP cmp #CHAR_UP
bne input_loop bne input_loop
on_key_up: on_key_up:

3
desk.acc/puzzle.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
@ -772,7 +771,7 @@ check_key:
lda event_params::modifiers lda event_params::modifiers
bne :+ bne :+
lda event_params::key lda event_params::key
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
beq destroy beq destroy
: rts : rts
.endproc .endproc

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

@ -3,7 +3,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" ; get selection, font .include "../desktop.inc" ; get selection, font
@ -383,7 +382,7 @@ on_key:
lda event_params::modifiers lda event_params::modifiers
bne input_loop bne input_loop
lda event_params::key lda event_params::key
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
beq exit beq exit
bne input_loop bne input_loop

11
desk.acc/show.text.file.s
View File

@ -1,9 +1,8 @@
.setcpu "6502" .setcpu "6502"
.include "apple2.inc" .include "apple2.inc"
.include "../inc/ascii.inc" .include "../inc/apple2.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" ; get/clear selection, font .include "../desktop.inc" ; get/clear selection, font
@ -1046,7 +1045,7 @@ more: ldy drawtext_params::textlen
and #$7F ; clear high bit and #$7F ; clear high bit
sta ($06),y sta ($06),y
inc L0945 inc L0945
cmp #ASCII_RETURN cmp #CHAR_RETURN
beq finish_text_run beq finish_text_run
cmp #' ' ; space character cmp #' ' ; space character
bne :+ bne :+
@ -1055,7 +1054,7 @@ more: ldy drawtext_params::textlen
lda L0945 lda L0945
sta L0946 sta L0946
pla pla
: cmp #ASCII_TAB : cmp #CHAR_TAB
bne :+ bne :+
jmp handle_tab jmp handle_tab
@ -1090,9 +1089,9 @@ more: ldy drawtext_params::textlen
finish_text_run: jsr draw_text_run finish_text_run: jsr draw_text_run
ldy drawtext_params::textlen ldy drawtext_params::textlen
lda ($06),y lda ($06),y
cmp #ASCII_TAB cmp #CHAR_TAB
beq tab beq tab
cmp #ASCII_RETURN cmp #CHAR_RETURN
bne :+ bne :+
tab: inc drawtext_params::textlen tab: inc drawtext_params::textlen
: clc : clc

59
desktop/desktop.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"
@ -3626,7 +3625,7 @@ LBB9A: cmp #MGTK::event_kind_key_down
and #$7F and #$7F
bit alert_action bit alert_action
bpl LBBEE bpl LBBEE
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
bne LBBC3 bne LBBC3
MGTK_RELAY2_CALL MGTK::SetPenMode, penXOR MGTK_RELAY2_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY2_CALL MGTK::PaintRect, cancel_rect MGTK_RELAY2_CALL MGTK::PaintRect, cancel_rect
@ -3648,7 +3647,7 @@ LBBE3: cmp #'A'
beq LBBCC beq LBBCC
jmp LBB87 jmp LBB87
LBBEE: cmp #KEY_RETURN LBBEE: cmp #CHAR_RETURN
bne LBC09 bne LBC09
MGTK_RELAY2_CALL MGTK::SetPenMode, penXOR MGTK_RELAY2_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY2_CALL MGTK::PaintRect, try_again_rect MGTK_RELAY2_CALL MGTK::PaintRect, try_again_rect
@ -8475,13 +8474,13 @@ L5584: jsr get_event
L5595: lda event_params+1 L5595: lda event_params+1
and #$7F and #$7F
cmp #KEY_RETURN cmp #CHAR_RETURN
beq L55D1 beq L55D1
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
beq L55D1 beq L55D1
cmp #KEY_LEFT cmp #CHAR_LEFT
beq L55BE beq L55BE
cmp #KEY_RIGHT cmp #CHAR_RIGHT
bne L5584 bne L5584
ldx L544A ldx L544A
inx inx
@ -8664,13 +8663,13 @@ L5732: jsr get_event
L5743: lda event_params_key L5743: lda event_params_key
and #$7F and #$7F
cmp #KEY_RETURN cmp #CHAR_RETURN
beq L578B beq L578B
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
beq L578B beq L578B
cmp #KEY_LEFT cmp #CHAR_LEFT
beq L5772 beq L5772
cmp #KEY_RIGHT cmp #CHAR_RIGHT
bne L5732 bne L5732
ldx L578C ldx L578C
inx inx
@ -8729,9 +8728,9 @@ loop: jsr get_event
cmp #MGTK::event_kind_key_down cmp #MGTK::event_kind_key_down
bne loop bne loop
lda event_params_key lda event_params_key
cmp #KEY_RETURN cmp #CHAR_RETURN
beq done beq done
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
bne :+ bne :+
done: lda #$00 done: lda #$00
@ -8744,12 +8743,12 @@ done: lda #$00
bmi :+ bmi :+
jmp vertical jmp vertical
: cmp #KEY_RIGHT : cmp #CHAR_RIGHT
bne :+ bne :+
jsr scroll_right jsr scroll_right
jmp loop jmp loop
: cmp #KEY_LEFT : cmp #CHAR_LEFT
bne vertical bne vertical
jsr scroll_left jsr scroll_left
jmp loop jmp loop
@ -8760,12 +8759,12 @@ vertical:
bmi :+ bmi :+
jmp loop jmp loop
: cmp #KEY_DOWN : cmp #CHAR_DOWN
bne :+ bne :+
jsr scroll_down jsr scroll_down
jmp loop jmp loop
: cmp #KEY_UP : cmp #CHAR_UP
bne loop bne loop
jsr scroll_up jsr scroll_up
jmp loop jmp loop
@ -17143,7 +17142,7 @@ start: yax_call JT_MLI_RELAY, CLOSE, close_params
cmp #MGTK::event_kind_key_down cmp #MGTK::event_kind_key_down
bne nope bne nope
lda event_params_key lda event_params_key
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
bne nope bne nope
lda #$FF lda #$FF
bne done bne done
@ -17484,11 +17483,11 @@ LA6F7: jsr LB9B8
bne LA71A bne LA71A
lda event_params_key lda event_params_key
and #$7F and #$7F
cmp #KEY_LEFT cmp #CHAR_LEFT
bne LA710 bne LA710
jmp LA815 jmp LA815
LA710: cmp #KEY_RIGHT LA710: cmp #CHAR_RIGHT
bne LA717 bne LA717
jmp LA820 jmp LA820
@ -17496,7 +17495,7 @@ LA717: return #$FF
LA71A: lda event_params_key LA71A: lda event_params_key
and #$7F and #$7F
cmp #KEY_LEFT cmp #CHAR_LEFT
bne LA72E bne LA72E
bit LD8ED bit LD8ED
bpl LA72B bpl LA72B
@ -17504,7 +17503,7 @@ LA71A: lda event_params_key
LA72B: jmp LA82B LA72B: jmp LA82B
LA72E: cmp #KEY_RIGHT LA72E: cmp #CHAR_RIGHT
bne LA73D bne LA73D
bit LD8ED bit LD8ED
bpl LA73A bpl LA73A
@ -17512,23 +17511,23 @@ LA72E: cmp #KEY_RIGHT
LA73A: jmp LA83E LA73A: jmp LA83E
LA73D: cmp #KEY_RETURN LA73D: cmp #CHAR_RETURN
bne LA749 bne LA749
bit LD8E7 bit LD8E7
bvs LA717 bvs LA717
jmp LA851 jmp LA851
LA749: cmp #KEY_ESCAPE LA749: cmp #CHAR_ESCAPE
bne LA755 bne LA755
bit LD8E7 bit LD8E7
bmi LA717 bmi LA717
jmp LA86F jmp LA86F
LA755: cmp #KEY_DELETE LA755: cmp #CHAR_DELETE
bne LA75C bne LA75C
jmp LA88D jmp LA88D
LA75C: cmp #KEY_UP LA75C: cmp #CHAR_UP
bne LA76B bne LA76B
bit LD8ED bit LD8ED
bmi LA768 bmi LA768
@ -17536,7 +17535,7 @@ LA75C: cmp #KEY_UP
LA768: jmp L0D14 LA768: jmp L0D14
LA76B: cmp #KEY_DOWN LA76B: cmp #CHAR_DOWN
bne LA77A bne LA77A
bit LD8ED bit LD8ED
bmi LA777 bmi LA777
@ -17558,7 +17557,7 @@ LA77A: bit LD8E7
beq LA806 beq LA806
cmp #'a' cmp #'a'
beq LA806 beq LA806
cmp #KEY_RETURN cmp #CHAR_RETURN
beq LA7E8 beq LA7E8
LA79B: bit LD8F5 LA79B: bit LD8F5
@ -17698,9 +17697,9 @@ jump_relay:
bne :- bne :-
lda event_params_key lda event_params_key
and #$7F and #$7F
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
beq close beq close
cmp #KEY_RETURN cmp #CHAR_RETURN
bne :- bne :-
jmp close jmp close

1
desktop/loader.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../macros.inc" .include "../macros.inc"

14
desktop/mgtk.s
View File

@ -2,9 +2,7 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../inc/mouse.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"
.include "../macros.inc" .include "../macros.inc"
@ -8009,7 +8007,7 @@ L8056: jsr L7EE2
pha pha
jsr L8035 jsr L8035
pla pla
cmp #KEY_ESCAPE cmp #CHAR_ESCAPE
bne try_return bne try_return
lda #0 lda #0
sta L7D80 sta L7D80
@ -8019,13 +8017,13 @@ L8056: jsr L7EE2
rts rts
try_return: try_return:
cmp #KEY_RETURN cmp #CHAR_RETURN
bne try_up bne try_up
jsr L7E8C jsr L7E8C
jmp L7EAD jmp L7EAD
try_up: try_up:
cmp #KEY_UP cmp #CHAR_UP
bne try_down bne try_down
L8081: dec L7D7B L8081: dec L7D7B
bpl L8091 bpl L8091
@ -8043,7 +8041,7 @@ L8091: ldx L7D7B
L80A0: jmp L800F L80A0: jmp L800F
try_down: try_down:
cmp #KEY_DOWN cmp #CHAR_DOWN
bne try_right bne try_right
L80A7: inc L7D7B L80A7: inc L7D7B
ldx L7D7A ldx L7D7A
@ -8064,7 +8062,7 @@ L80BE: ldx L7D7B
L80CD: jmp L800F L80CD: jmp L800F
try_right: try_right:
cmp #KEY_RIGHT cmp #CHAR_RIGHT
bne try_left bne try_left
lda #0 lda #0
sta L7D7B sta L7D7B
@ -8077,7 +8075,7 @@ try_right:
L80E8: jmp L800F L80E8: jmp L800F
try_left: try_left:
cmp #KEY_LEFT cmp #CHAR_LEFT
bne nope bne nope
lda #0 lda #0
sta L7D7B sta L7D7B

1
desktop/ovl1.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"

1
desktop/ovl1a.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"

1
desktop/ovl2.s
View File

@ -2,7 +2,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"

1
desktop/ovl34567.s
View File

@ -3,7 +3,6 @@
.include "apple2.inc" .include "apple2.inc"
.include "../inc/apple2.inc" .include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc" .include "../inc/prodos.inc"
.include "../mgtk.inc" .include "../mgtk.inc"
.include "../desktop.inc" .include "../desktop.inc"

139
inc/apple2.inc
View File

@ -1,6 +1,8 @@
;;; ------------------------------ ;;; ============================================================
;;;
;;; More Apple II Symbols ;;; More Apple II Symbols
;;; ------------------------------ ;;;
;;; ============================================================
;;; Zero Page ;;; Zero Page
@ -23,15 +25,10 @@ HR2_OFF := $C0B4
HR3_ON := $C0B7 HR3_ON := $C0B7
HR3_OFF := $C0B6 HR3_OFF := $C0B6
;;; Key Codes
KEY_RETURN := $0D ;;; ============================================================
KEY_ESCAPE := $1B ;;; Monitor ROM
KEY_LEFT := $08 ;;; ============================================================
KEY_DOWN := $0A
KEY_UP := $0B
KEY_RIGHT := $15
KEY_DELETE := $7F
;;; Monitor ;;; Monitor
INIT := $FB2F INIT := $FB2F
@ -49,3 +46,125 @@ IRQ_VECTOR := $3FE
ID_BYTE_FBB3 := $FBB3 ; $06 = IIe or later ID_BYTE_FBB3 := $FBB3 ; $06 = IIe or later
ID_BYTE_FBC0 := $FBC0 ; $EA = IIe, $E0 = IIe enh/IIgs, $00 = IIc/IIc+ ID_BYTE_FBC0 := $FBC0 ; $EA = IIe, $E0 = IIe enh/IIgs, $00 = IIc/IIc+
ID_BYTE_FE1F := $FE1F ; RTS ($60) on pre-IIgs ID_BYTE_FE1F := $FE1F ; RTS ($60) on pre-IIgs
;;; ============================================================
;;; Applesoft Basic ROM
;;; ============================================================
;;; Zero Page
ERRFLG := $D8
TXTPTR := $B8
;;; Entry Points
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B ; Round FAC, store at (y,x)
FLOAT := $EB93 ; A as signed byte into FAC
FIN := $EC4A ; Parse TEXTPTR to FAC (first char in A, C set if digit)
FOUT := $ED34 ; FAC as string to FBUFFR
FBUFFR := $100
;;; ============================================================
;;; Aux Memory / Extended 80 Column Card
;;; ============================================================
;;; Softswitches
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
CLR80VID := $C00C
SET80VID := $C00D
RD80STORE := $C018
RDPAGE2 := $C01C
PAGE2OFF := $C054
PAGE2ON := $C055
HIRESON := $C056
HIRESOFF := $C057
DHIRESON := $C05E
DHIRESOFF := $C05F
;;; Routines
SLOT3ENTRY := $C300
AUXMOVE := $C311 ; carry set main>aux, carry clear aux>main
XFER := $C314
;;; Zero Page Locations
STARTLO := $3C
STARTHI := $3D
ENDLO := $3E
ENDHI := $3F
DESTINATIONLO := $42
DESTINATIONHI := $43
;;; Other Locations
XFERSTARTLO := $03ED
XFERSTARTHI := $03EE
;;; ============================================================
;;; Mouse Peripheral Card
;;; ============================================================
;;; Firmware Routines
SETMOUSE := $12
SERVEMOUSE := $13
READMOUSE := $14
CLEARMOUSE := $15
POSMOUSE := $16
CLAMPMOUSE := $17
HOMEMOUSE := $18
INITMOUSE := $19
;;; Constants
CLAMP_X := 0
CLAMP_Y := 1
MOUSE_MODE_OFF := $00
MOUSE_MODE_TRANS:= $01
MOUSE_MODE_INT := $03
MOUSE_MODE_BTN := $05
;;; RAM Locations
CLAMP_MIN_LO := $478
CLAMP_MIN_HI := $578
CLAMP_MAX_LO := $4F8
CLAMP_MAX_HI := $5F8
;;; RAM Locations
;;; (Add $Cn where n is slot to these)
MOUSE_X_LO := $03B8
MOUSE_X_HI := $04B8
MOUSE_Y_LO := $0438
MOUSE_Y_HI := $0538
MOUSE_STATUS := $06B8
MOUSE_MODE := $0738
;;; ============================================================
;;; Character Constants (Screen/Key Codes)
;;; ============================================================
CHAR_LEFT := $08
CHAR_TAB := $09
CHAR_DOWN := $0A
CHAR_UP := $0B
CHAR_RETURN := $0D
CHAR_RIGHT := $15
CHAR_ESCAPE := $1B
CHAR_DELETE := $7F

21
inc/applesoft.inc
View File

@ -1,21 +0,0 @@
;;; ------------------------------
;;; Applesoft Basic
;;; ------------------------------
;;; Zero Page
ERRFLG := $D8
TXTPTR := $B8
;;; Entry Points
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B ; Round FAC, store at (y,x)
FLOAT := $EB93 ; A as signed byte into FAC
FIN := $EC4A ; Parse TEXTPTR to FAC (first char in A, C set if digit)
FOUT := $ED34 ; FAC as string to FBUFFR
FBUFFR := $100

6
inc/ascii.inc
View File

@ -1,6 +0,0 @@
;;; ------------------------------
;;; ASCII Code Points
;;; ------------------------------
ASCII_TAB := $09
ASCII_RETURN := $0D

38
inc/auxmem.inc
View File

@ -1,38 +0,0 @@
;;; ------------------------------
;;; Aux Memory
;;; ------------------------------
;;; Softswitches
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
CLR80VID := $C00C
SET80VID := $C00D
RD80STORE := $C018
RDPAGE2 := $C01C
PAGE2OFF := $C054
PAGE2ON := $C055
HIRESON := $C056
HIRESOFF := $C057
DHIRESON := $C05E
DHIRESOFF := $C05F
;;; Routines
SLOT3ENTRY := $C300
AUXMOVE := $C311 ; carry set main>aux, carry clear aux>main
XFER := $C314
STARTLO := $3C
STARTHI := $3D
ENDLO := $3E
ENDHI := $3F
DESTINATIONLO := $42
DESTINATIONHI := $43
XFERSTARTLO := $03ED
XFERSTARTHI := $03EE

42
inc/mouse.inc
View File

@ -1,42 +0,0 @@
;;; ------------------------------
;;; Mouse Peripheral Card
;;; ------------------------------
;;; Firmware Routines
SETMOUSE := $12
SERVEMOUSE := $13
READMOUSE := $14
CLEARMOUSE := $15
POSMOUSE := $16
CLAMPMOUSE := $17
HOMEMOUSE := $18
INITMOUSE := $19
;;; Constants
CLAMP_X := 0
CLAMP_Y := 1
MOUSE_MODE_OFF := $00
MOUSE_MODE_TRANS:= $01
MOUSE_MODE_INT := $03
MOUSE_MODE_BTN := $05
;;; RAM Locations
CLAMP_MIN_LO := $478
CLAMP_MIN_HI := $578
CLAMP_MAX_LO := $4F8
CLAMP_MAX_HI := $5F8
;;; RAM Locations
;;; (Add $Cn where n is slot to these)
MOUSE_X_LO := $03B8
MOUSE_X_HI := $04B8
MOUSE_Y_LO := $0438
MOUSE_Y_HI := $0538
MOUSE_STATUS := $06B8
MOUSE_MODE := $0738

26
inc/prodos.inc
View File

@ -1,6 +1,8 @@
;;; ------------------------------------------------------------ ;;; ============================================================
;;;
;;; ProDOS MLI ;;; ProDOS MLI
;;; ------------------------------------------------------------ ;;;
;;; ============================================================
;;; Entry point / Global Page ;;; Entry point / Global Page
MLI := $BF00 ; Entry point MLI := $BF00 ; Entry point
@ -18,8 +20,9 @@ MACHID := $BF98 ; Machine ID
;;; Patch Locations ;;; Patch Locations
SELECTOR := $D100 SELECTOR := $D100
;;; ------------------------------------------------------------ ;;; ============================================================
;;; MLI Calls ;;; MLI Calls
;;; ============================================================
;;; Housekeeping Calls ;;; Housekeeping Calls
CREATE := $C0 CREATE := $C0
@ -55,8 +58,9 @@ QUIT := $65
READ_BLOCK := $80 READ_BLOCK := $80
WRITE_BLOCK := $81 WRITE_BLOCK := $81
;;; ------------------------------------------------------------ ;;; ============================================================
;;; Device Types (low nibble of unit number in DEVLST) ;;; Device Types (low nibble of unit number in DEVLST)
;;; ============================================================
DT_DISKII := $0 DT_DISKII := $0
DT_PROFILE := $4 DT_PROFILE := $4
@ -70,8 +74,9 @@ DT_RAM := $F
;;; bit 1-0 = number of volumes (0-1) ;;; bit 1-0 = number of volumes (0-1)
;;; "You should ignore the low nibble in the unit number..." ;;; "You should ignore the low nibble in the unit number..."
;;; ------------------------------------------------------------ ;;; ============================================================
;;; File Types ;;; File Types
;;; ============================================================
FT_TYPELESS := $00 FT_TYPELESS := $00
FT_BAD := $01 FT_BAD := $01
@ -83,21 +88,24 @@ FT_S16 := $B3 ; IIgs Application Program
FT_BASIC := $FC FT_BASIC := $FC
FT_SYSTEM := $FF FT_SYSTEM := $FF
;;; ------------------------------------------------------------ ;;; ============================================================
;;; Storage Types ;;; Storage Types
;;; ============================================================
ST_STANDARD_FILE := $01 ST_STANDARD_FILE := $01
ST_LINKED_DIRECTORY := $0D ST_LINKED_DIRECTORY := $0D
ST_VOLUME_DIRECTORY := $0F ST_VOLUME_DIRECTORY := $0F
;;; ------------------------------------------------------------ ;;; ============================================================
;;; Errors ;;; Errors
;;; ============================================================
PDERR_PATH_NOT_FOUND := $44 PDERR_PATH_NOT_FOUND := $44
PDERR_VOL_NOT_FOUND := $45 PDERR_VOL_NOT_FOUND := $45
;;; ------------------------------------------------------------ ;;; ============================================================
;;; Macros ;;; Macros
;;; ============================================================
.macro MLI_CALL op, addr .macro MLI_CALL op, addr
jsr MLI jsr MLI
@ -339,4 +347,4 @@ param_count: .byte 2
pathname: .addr pn pathname: .addr pn
new_pathname: .addr np new_pathname: .addr np
.endproc .endproc
.endmacro .endmacro