constants

This commit is contained in:
Joshua Bell 2018-03-05 21:27:41 -08:00
parent c80cef0b30
commit 53dcca3bfc
3 changed files with 22 additions and 16 deletions

View File

@ -7416,7 +7416,7 @@ L4F68: .byte $00
L4F69: .byte $00
;; access = destroy/rename/write/read
DEFINE_CREATE_PARAMS create_params, path_buffer, %11000011, FT_DIRECTORY,, ST_LINKED_DIRECTORY
DEFINE_CREATE_PARAMS create_params, path_buffer, ACCESS_DEFAULT, FT_DIRECTORY,, ST_LINKED_DIRECTORY
path_buffer:
.res 65, 0 ; buffer is used elsewhere too
@ -15487,7 +15487,7 @@ L972E: .res 5, 0
DEFINE_OPEN_PARAMS open_params5, $1FC0, $1100
DEFINE_READ_PARAMS read_params6, $1500, $AC0
DEFINE_WRITE_PARAMS write_params, $1500, $AC0
DEFINE_CREATE_PARAMS create_params3, $1FC0, %11000011
DEFINE_CREATE_PARAMS create_params3, $1FC0, ACCESS_DEFAULT
DEFINE_CREATE_PARAMS create_params2, $1FC0
.byte $00,$00
@ -15814,7 +15814,7 @@ L9AAA: lda file_info_params2,y
dey
cpy #$02
bne L9AAA
lda #%11000011
lda #ACCESS_DEFAULT
sta create_params2::access
lda LE05B
beq L9B23
@ -16308,7 +16308,7 @@ L9F62: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
lda file_info_params2::access
and #$80
bne L9F8D
lda #$C3
lda #ACCESS_DEFAULT
sta file_info_params2::access
lda #7 ; param count for SET_FILE_INFO
sta file_info_params2
@ -16366,7 +16366,7 @@ L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params
bne LA001
L9FFE: jmp LA39F
LA001: lda #$C3
LA001: lda #ACCESS_DEFAULT
sta file_info_params2::access
lda #7 ; param count for SET_FILE_INFO
sta file_info_params2
@ -16531,7 +16531,7 @@ LA18A: lda file_info_params2::storage_type
beq LA1C0
bit L918B
bpl LA19E
lda #%11000011
lda #ACCESS_DEFAULT
bne LA1A0
LA19E: lda #$21
LA1A0: sta file_info_params2::access
@ -16834,7 +16834,7 @@ LA425: .byte 0
.proc LA426
jsr LA46D
lda #$C3
lda #ACCESS_DEFAULT
sta file_info_params3::access
jsr LA479
lda file_info_params2::file_type

View File

@ -85,7 +85,7 @@ L23DF: .byte $00,$00,$00
DEFINE_READ_PARAMS read_srcfile_params, copy_buffer, max_copy_count
DEFINE_WRITE_PARAMS write_dstfile_params, copy_buffer, max_copy_count
DEFINE_CREATE_PARAMS create_params, path0, %11000011, 0, 0
DEFINE_CREATE_PARAMS create_params, path0, ACCESS_DEFAULT, 0, 0
.byte $07
.addr path0
.byte $00
@ -292,7 +292,7 @@ str_slash_desktop:
.proc file_info_ovl
.byte $A ; param_count
.addr 0 ; pathname
.byte %11000011 ; access
.byte ACCESS_DEFAULT ; access
.byte FT_DIRECTORY ; filetype
.word 0 ; aux_type
.byte ST_LINKED_DIRECTORY ; storage_type
@ -1007,7 +1007,7 @@ L30E0: .res 5, 0
DEFINE_READ_PARAMS read_params7, $1100, $0B00
DEFINE_WRITE_PARAMS write_params3, $1100, $0B00
DEFINE_CREATE_PARAMS create_params3, path1, %11000011
DEFINE_CREATE_PARAMS create_params3, path1, ACCESS_DEFAULT
DEFINE_CREATE_PARAMS create_params2, path1, 0
@ -1240,7 +1240,7 @@ L34EE: sta L353A
dey
cpy #3
bne :-
lda #%11000011
lda #ACCESS_DEFAULT
sta create_params2::access
jsr L35A9
bcc L350B
@ -1252,9 +1252,9 @@ L350D: lda get_file_info_params2::create_date,x
dex
bpl L350D
lda create_params2::storage_type
cmp #$0F
cmp #ST_VOLUME_DIRECTORY
bne L3522
lda #$0D
lda #ST_LINKED_DIRECTORY
sta create_params2::storage_type
L3522: MLI_CALL CREATE, create_params2
beq :+
@ -1410,7 +1410,7 @@ L36C1: ldx #7
dex
cpx #3
bne :-
lda #$C3
lda #ACCESS_DEFAULT
sta create_params3::access
ldx #$03
L36D5: lda get_file_info_params2::create_date,x
@ -1418,9 +1418,9 @@ L36D5: lda get_file_info_params2::create_date,x
dex
bpl L36D5
lda create_params3::storage_type
cmp #$0F
cmp #ST_VOLUME_DIRECTORY
bne L36EA
lda #$0D
lda #ST_LINKED_DIRECTORY
sta create_params3::storage_type
L36EA: MLI_CALL CREATE, create_params3
clc

View File

@ -89,6 +89,12 @@ FT_S16 := $B3 ; IIgs Application Program
FT_BASIC := $FC
FT_SYSTEM := $FF
;;; ============================================================
;;; Access
;;; ============================================================
ACCESS_DEFAULT := %11000011
;;; ============================================================
;;; Storage Types
;;; ============================================================