Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-04-11 08:37:10 +00:00
Code Issues Projects Releases Wiki Activity

Document open/read MLI param blocks

Browse Source
This commit is contained in:
Joshua Bell 2017-08-29 08:40:35 -07:00
parent 6f9fa94739
commit 0016a1e5f8
3 changed files with 56 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
desk.acc/show.text.file/stf.list
View File

@ -151,7 +151,7 @@ Current file: stf.s
000863 1
000863 1 20 C2 08 L0863: jsr L08C2
000866 1 8D 08 C0 sta ALTZPOFF
000869 1 20 00 BF C8 MLI_CALL OPEN, L08EA
000869 1 20 00 BF C8 MLI_CALL OPEN, open_params
00086D 1 EA 08
00086F 1 8D 09 C0 sta ALTZPON
000872 1 20 D4 08 jsr L08D4
@ -159,7 +159,7 @@ Current file: stf.s
000876 1
000876 1 20 C2 08 L0876: jsr L08C2
000879 1 8D 08 C0 sta ALTZPOFF
00087C 1 20 00 BF CA MLI_CALL READ, L08F0
00087C 1 20 00 BF CA MLI_CALL READ, read_params
000880 1 F0 08
000882 1 8D 09 C0 sta ALTZPON
000885 1 20 D4 08 jsr L08D4
@ -211,14 +211,23 @@ Current file: stf.s
0008E8 1 68 pla
0008E9 1 60 L08E9: rts
0008EA 1
0008EA 1 03 04 09 00 L08EA: .byte $03,$04,$09,$00,$0C
0008EE 1 0C
0008EF 1 00 L08EF: .byte $00
0008F0 1 04 L08F0: .byte $04
0008F1 1 00 L08F1: .byte $00
0008F2 1 00 L08F2: .byte $00
0008F3 1 12 00 01 00 L08F3: .byte $12,$00,$01,$00,$00
0008F7 1 00
0008EA 1
0008EA 1 open_params:
0008EA 1 03 .byte 3 ; param_count = 3
0008EB 1 04 09 .addr L0904 ; pathname
0008ED 1 00 0C .addr $0C00 ; io_buffer
0008EF 1 00 open_ref_num:.byte 0 ; ref_num
0008F0 1
0008F0 1
0008F0 1 read_params:
0008F0 1 04 .byte 4 ; param_count = 4
0008F1 1 read_ref_num:
0008F1 1 00 .byte 0 ; ref_num
0008F2 1 00 12 read_db:.addr $1200 ; data_buffer
0008F4 1 00 01 .word $100 ; request_count
0008F6 1 00 00 .word 0 ; trans_count
0008F8 1
0008F8 1
0008F8 1 02 L08F8: .byte $02
0008F9 1 00 00 00 00 L08F9: .byte $00,$00,$00,$00
0008FD 1 02 L08FD: .byte $02
@ -430,8 +439,8 @@ Current file: stf.s
000A9C 1 D0 F7 bne L0A95
000A9E 1 8D 05 C0 sta RAMWRTON
000AA1 1 20 63 08 jsr L0863
000AA4 1 AD EF 08 lda L08EF
000AA7 1 8D F1 08 sta L08F1
000AA4 1 AD EF 08 lda open_ref_num
000AA7 1 8D F1 08 sta read_ref_num
000AAA 1 8D FE 08 sta L08FE
000AAD 1 8D F9 08 sta L08F9
000AB0 1 8D 03 09 sta L0903
@ -839,10 +848,10 @@ Current file: stf.s
000E35 1 20 29 11 jsr L1129
000E38 1 20 9C 08 jsr L089C
000E3B 1 A9 00 lda #$00
000E3D 1 8D F2 08 sta L08F2
000E3D 1 8D F2 08 sta read_db
000E40 1 85 06 sta $06
000E42 1 A9 12 lda #$12
000E44 1 8D F3 08 sta L08F3
000E44 1 8D F3 08 sta read_db+1
000E47 1 85 07 sta $07
000E49 1 A9 00 lda #$00
000E4B 1 8D 45 09 sta L0945
@ -1054,15 +1063,15 @@ Current file: stf.s
00102B 1 A9 00 L102B: lda #$00
00102D 1 8D 45 09 sta L0945
001030 1 20 3E 10 jsr L103E
001033 1 AD F3 08 lda L08F3
001033 1 AD F3 08 lda read_db+1
001036 1 C9 12 cmp #$12
001038 1 D0 03 bne L103D
00103A 1 EE F3 08 inc L08F3
00103A 1 EE F3 08 inc read_db+1
00103D 1 60 L103D: rts
00103E 1
00103E 1 AD F2 08 L103E: lda L08F2
00103E 1 AD F2 08 L103E: lda read_db
001041 1 8D 52 10 sta L1052
001044 1 AD F3 08 lda L08F3
001044 1 AD F3 08 lda read_db+1
001047 1 8D 53 10 sta L1053
00104A 1 A9 20 lda #$20
00104C 1 A2 00 ldx #$00
@ -1083,7 +1092,7 @@ Current file: stf.s
001067 1 85 42 sta $42
001069 1 A9 FF lda #$FF
00106B 1 85 3E sta $3E
00106D 1 AD F3 08 lda L08F3
00106D 1 AD F3 08 lda read_db+1
001070 1 85 43 sta $43
001072 1 85 3D sta $3D
001074 1 85 3F sta $3F

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

45
desk.acc/show.text.file/stf.s
View File

@ -63,14 +63,14 @@ L084C: jsr L09DE
L0863: jsr L08C2
sta ALTZPOFF
MLI_CALL OPEN, L08EA
MLI_CALL OPEN, open_params
sta ALTZPON
jsr L08D4
rts
L0876: jsr L08C2
sta ALTZPOFF
MLI_CALL READ, L08F0
MLI_CALL READ, read_params
sta ALTZPON
jsr L08D4
rts
@ -118,12 +118,23 @@ L08DB: lda L08E9,y
pla
L08E9: rts
L08EA: .byte $03,$04,$09,$00,$0C
L08EF: .byte $00
L08F0: .byte $04
L08F1: .byte $00
L08F2: .byte $00
L08F3: .byte $12,$00,$01,$00,$00
open_params:
.byte 3 ; param_count = 3
.addr L0904 ; pathname
.addr $0C00 ; io_buffer
open_ref_num:.byte 0 ; ref_num
read_params:
.byte 4 ; param_count = 4
read_ref_num:
.byte 0 ; ref_num
read_db:.addr $1200 ; data_buffer
.word $100 ; request_count
.word 0 ; trans_count
L08F8: .byte $02
L08F9: .byte $00,$00,$00,$00
L08FD: .byte $02
@ -318,8 +329,8 @@ L0A95: lda $8802,x
bne L0A95
sta RAMWRTON
jsr L0863
lda L08EF
sta L08F1
lda open_ref_num
sta read_ref_num
sta L08FE
sta L08F9
sta L0903
@ -709,10 +720,10 @@ L0E30: lda #$00
jsr L1129
jsr L089C
lda #$00
sta L08F2
sta read_db
sta $06
lda #$12
sta L08F3
sta read_db+1
sta $07
lda #$00
sta L0945
@ -920,15 +931,15 @@ L1015: lda $1300,y
L102B: lda #$00
sta L0945
jsr L103E
lda L08F3
lda read_db+1
cmp #$12
bne L103D
inc L08F3
inc read_db+1
L103D: rts
L103E: lda L08F2
L103E: lda read_db
sta L1052
lda L08F3
lda read_db+1
sta L1053
lda #$20
ldx #$00
@ -949,7 +960,7 @@ L1053 := * + 2
sta $42
lda #$FF
sta $3E
lda L08F3
lda read_db+1
sta $43
sta $3D
sta $3F