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

MLI calls

Browse Source
This commit is contained in:
Joshua Bell 2018-03-02 22:44:28 -08:00
parent ce2fff7e81
commit 5d09d459f4
1 changed files with 112 additions and 217 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

329
desktop/sys.s
View File

@ -156,7 +156,7 @@ L2517: lda $D100,x
beq L2528 beq L2528
L2526: lda #$80 L2526: lda #$80
L2528: sta $D3AC L2528: sta $D3AC
lda $C082 lda ROMIN2
ldx #$00 ldx #$00
jsr L26A5 jsr L26A5
lda #$00 lda #$00
@ -201,9 +201,7 @@ L257A: sta L2BE3
asl a asl a
sta L2375 sta L2375
sta L2373 sta L2373
jsr MLI MLI_CALL ON_LINE, $2374
cmp $74
.byte $23
beq L2592 beq L2592
jmp L26E8 jmp L26E8
@ -212,13 +210,9 @@ L2592: lda L2373
beq L25AD beq L25AD
sta L2BE5 sta L2BE5
sta L2BEB sta L2BEB
jsr MLI MLI_CALL WRITE_BLOCK, $2BE4
sta ($E4,x)
.byte $2B
bne L25AD bne L25AD
jsr MLI MLI_CALL WRITE_BLOCK, $2BEA
sta ($EA,x)
.byte $2B
L25AD: lda L237A L25AD: lda L237A
and #$0F and #$0F
tay tay
@ -251,10 +245,7 @@ L25F2: PASCAL_STRING "/DeskTop"
L25FB: .byte $0A,$00,$00,$C3,$0F,$00,$00,$0D L25FB: .byte $0A,$00,$00,$C3,$0F,$00,$00,$0D
L2603: .byte $20,$CD L2603: .byte $20,$CD
plp plp
jsr MLI MLI_CALL GET_PREFIX, $238B
.byte $C7
.byte $8B
.byte $23
beq L2611 beq L2611
jmp L28F4 jmp L28F4
@ -310,9 +301,7 @@ L2669: lda ($06),y
L2681: lda L2378 L2681: lda L2378
beq L268F beq L268F
sta L2B60 sta L2B60
jsr MLI MLI_CALL SET_PREFIX, $238E
dec $8E
.byte $23
L268F: jsr L2B37 L268F: jsr L2B37
jsr L2B57 jsr L2B57
lda #$00 lda #$00
@ -326,7 +315,8 @@ L269C: sta $BF58,y
L26A5: lda $C083 L26A5: lda $C083
lda $C083 lda $C083
stx $D3FF stx $D3FF
return $C082 lda ROMIN2
rts
L26B2: stax $06 L26B2: stax $06
lda $C083 lda $C083
@ -338,7 +328,8 @@ L26C1: lda ($06),y
sta $D3EE,y sta $D3EE,y
dey dey
bpl L26C1 bpl L26C1
return $C082 lda ROMIN2
rts
L26CD: stax $06 L26CD: stax $06
lda $C083 lda $C083
@ -350,7 +341,8 @@ L26DC: lda ($06),y
sta $D3AD,y sta $D3AD,y
dey dey
bpl L26DC bpl L26DC
return $C082 lda ROMIN2
rts
L26E8: lda #$00 L26E8: lda #$00
sta L2BE2 sta L2BE2
@ -473,15 +465,13 @@ L290E: sty L26F5
L2912: jsr L288F L2912: jsr L288F
jsr L2851 jsr L2851
jsr MLI MLI_CALL GET_FILE_INFO, $2425
cpy $25 beq :+
bit $F0
.byte $07
cmp #$46 cmp #$46
beq L294B beq L294B
jmp L26E8 jmp L26E8
lda L2429 : lda L2429
sta L2831 sta L2831
cmp #$0F cmp #$0F
bne L2937 bne L2937
@ -510,26 +500,20 @@ L2961: .byte $00
L2962: jsr L2A95 L2962: jsr L2A95
cmp #$47 cmp #$47
beq L2974 beq L2974
jsr MLI MLI_CALL OPEN, $2952
iny beq :+
.byte $52
and #$F0
.byte $04
jsr L28F4 jsr L28F4
L2974: rts L2974: rts
lda L2957 : lda L2957
sta L2959 sta L2959
sta L2961 sta L2961
jsr MLI MLI_CALL READ, $2958
dex beq :+
cli
and #$F0
.byte $04
jsr L28F4 jsr L28F4
rts rts
lda #$00 : lda #$00
sta L2A10 sta L2A10
lda #$2B lda #$2B
sta $06 sta $06
@ -538,8 +522,7 @@ L2974: rts
L2997: lda $A425 L2997: lda $A425
cmp L2A10 cmp L2A10
bne L29B1 bne L29B1
L299F: jsr MLI L299F: MLI_CALL CLOSE, $2960
cpy L2960
beq L29AA beq L29AA
jmp L28F4 jmp L28F4
@ -563,13 +546,11 @@ L29BD: lda ($06),y
sta L2821,y sta L2821,y
jsr L288F jsr L288F
jsr L2851 jsr L2851
jsr MLI MLI_CALL GET_FILE_INFO, $2425
cpy $25 beq :+
bit $F0
.byte $03
jmp L28F4 jmp L28F4
lda L2429 : lda L2429
sta L2831 sta L2831
jsr L2A95 jsr L2A95
cmp #$47 cmp #$47
@ -593,17 +574,12 @@ L29F6: lda $06
L2A0D: jmp L299F L2A0D: jmp L299F
L2A10: .byte 0 L2A10: .byte 0
L2A11: jsr MLI L2A11: MLI_CALL OPEN, $23EF
iny
.byte $EF
.byte $23
beq L2A1F beq L2A1F
jsr L28F4 jsr L28F4
jmp L2A11 jmp L2A11
L2A1F: jsr MLI L2A1F: MLI_CALL OPEN, $23F5
iny
sbc $23,x
beq L2A2D beq L2A2D
jsr L28F4 jsr L28F4
jmp L2A1F jmp L2A1F
@ -615,10 +591,7 @@ L2A2D: lda L23F4
sta L2404 sta L2404
sta L23EB sta L23EB
L2A3F: copy16 #$7F00, L23FF L2A3F: copy16 #$7F00, L23FF
L2A49: jsr MLI L2A49: MLI_CALL READ, $23FB
dex
.byte $FB
.byte $23
beq L2A5B beq L2A5B
cmp #$4C cmp #$4C
beq L2A88 beq L2A88
@ -628,25 +601,19 @@ L2A49: jsr MLI
L2A5B: copy16 L2401, L2407 L2A5B: copy16 L2401, L2407
ora L2401 ora L2401
beq L2A88 beq L2A88
L2A6C: jsr MLI L2A6C: MLI_CALL WRITE, $2403
.byte $CB beq :+
.byte $03 jsr L28F4
bit $F0
asl $20
.byte $F4
plp
jmp L2A6C jmp L2A6C
lda L2409 : lda L2409
cmp #$00 cmp #$00
bne L2A88 bne L2A88
lda L240A lda L240A
cmp #$7F cmp #$7F
beq L2A3F beq L2A3F
L2A88: jsr MLI L2A88: MLI_CALL CLOSE, L23E8
cpy L23E8 MLI_CALL CLOSE, L23EA
jsr MLI
cpy L23EA
rts rts
L2A95: ldx #$07 L2A95: ldx #$07
@ -655,10 +622,8 @@ L2A97: lda L2425,x
dex dex
cpx #$03 cpx #$03
bne L2A97 bne L2A97
jsr MLI MLI_CALL CREATE, $240B
cpy #$0B beq L2AB1
bit $F0
.byte $07
cmp #$47 cmp #$47
beq L2AB1 beq L2AB1
jsr L28F4 jsr L28F4
@ -694,9 +659,7 @@ L2ACC: lda L24A8,x
L2AE4: sec L2AE4: sec
rts rts
L2AE6: jsr MLI L2AE6: MLI_CALL GET_PREFIX, $2349
.byte $C7
eor #$23
bne L2AE4 bne L2AE4
ldx $0D00 ldx $0D00
ldy #$00 ldy #$00
@ -707,9 +670,7 @@ L2AF3: inx
cpy L2B0D cpy L2B0D
bne L2AF3 bne L2AF3
stx $0D00 stx $0D00
jsr MLI MLI_CALL GET_FILE_INFO, $234C
cpy $4C
.byte $23
beq L2AE4 beq L2AE4
clc clc
rts rts
@ -726,20 +687,14 @@ L2B2E: .byte 0
.byte 0 .byte 0
L2B35: .byte $01 L2B35: .byte $01
L2B36: .byte 0 L2B36: .byte 0
L2B37: jsr MLI L2B37: MLI_CALL OPEN, $2B16
iny
asl $2B,x
bne L2B56 bne L2B56
lda L2B1B lda L2B1B
sta L2B2E sta L2B2E
sta L2B36 sta L2B36
jsr MLI MLI_CALL WRITE, $2B2D
.byte $CB bne L2B56
and $D02B MLI_CALL CLOSE, L2B35
asl $20
.byte 0
.byte $BF
cpy L2B35
L2B56: rts L2B56: rts
L2B57: addr_call L26CD, $2005 L2B57: addr_call L26CD, $2005
@ -811,24 +766,17 @@ L2B61: .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
.byte 0 .byte 0
L2BA1: jsr MLI L2BA1: MLI_CALL OPEN, $032A
iny
rol a
.byte $03
beq L2BAC beq L2BAC
jmp L24A3 jmp L24A3
L2BAC: lda $032F L2BAC: lda $032F
sta $0331 sta $0331
jsr MLI MLI_CALL READ, $0330
dex
bmi L2BBB
beq L2BBD beq L2BBD
.byte $4C jmp L24A3
L2BBB: .byte $A3
.byte $24 L2BBD: MLI_CALL CLOSE, $0338
L2BBD: jsr MLI
cpy $0338
beq L2BC8 beq L2BC8
jmp L24A3 jmp L24A3
@ -1063,29 +1011,23 @@ L3359: ldx L3349
L3367: lda #$00 L3367: lda #$00
sta L329C sta L329C
sta L334A sta L334A
jsr MLI MLI_CALL OPEN, $30BC
iny beq L337A
ldy $F030,x
.byte $03
jmp L3A43 jmp L3A43
L337A: lda L30C1 L337A: lda L30C1
sta L329D sta L329D
sta L30C3 sta L30C3
jsr MLI MLI_CALL READ, $30C2
dex beq :+
.byte $C2
bmi L337A
.byte $03
jmp L3A43 jmp L3A43
jsr L33A4 : jsr L33A4
rts rts
L3392: lda L329D L3392: lda L329D
sta L30CF sta L30CF
jsr MLI MLI_CALL CLOSE, L30CE
cpy L30CE
beq L33A3 beq L33A3
jmp L3A43 jmp L3A43
@ -1094,9 +1036,7 @@ L33A3: rts
L33A4: inc L329C L33A4: inc L329C
lda L329D lda L329D
sta L30D1 sta L30D1
jsr MLI MLI_CALL READ, $30D0
dex
bne L33E3
beq L33B8 beq L33B8
jmp L3A43 jmp L3A43
@ -1108,14 +1048,11 @@ L33B8: inc L334A
L33C5: sta L334A L33C5: sta L334A
lda L329D lda L329D
sta L30D9 sta L30D9
jsr MLI MLI_CALL READ, $30D8
dex beq :+
cld
bmi L33C5
.byte $03
jmp L3A43 jmp L3A43
lda L30DE : lda L30DE
cmp L30DC cmp L30DC
rts rts
@ -1217,9 +1154,9 @@ L34A1: iny
cpy L328A cpy L328A
bne L34A1 bne L34A1
stx L3188 stx L3188
jsr MLI MLI_CALL GET_FILE_INFO, $3139
cpy $39
and ($C9),y .byte $C9 ; RE-DISASM this!
lsr $F0 lsr $F0
ora #$C9 ora #$C9
eor $F0 eor $F0
@ -1228,9 +1165,9 @@ L34A1: iny
beq L34C4 beq L34C4
rts rts
L34C4: jsr MLI L34C4: MLI_CALL GET_FILE_INFO, $3126
cpy $26
and ($F0),y .byte $F0 ; RE-DISASM this!
ora ($C9),y ora ($C9),y
eor $F0 eor $F0
.byte $04 .byte $04
@ -1272,13 +1209,11 @@ L350D: lda L3134,x
bne L3522 bne L3522
lda #$0D lda #$0D
sta L311F sta L311F
L3522: jsr MLI L3522: MLI_CALL CREATE, $3118
cpy #$18 beq :+
and ($F0),y
.byte $03
jmp L3A43 jmp L3A43
lda L353A : lda L353A
beq L3537 beq L3537
jmp L341B jmp L341B
@ -1297,9 +1232,8 @@ L3540: lda L3160
bne L3574 bne L3574
jsr L36FB jsr L36FB
jsr L39EE jsr L39EE
jsr MLI MLI_CALL GET_FILE_INFO, $3126
cpy $26 .byte $F0 ; RE-DISASM THIS
and ($F0),y
ora ($4C),y ora ($4C),y
.byte $43 .byte $43
.byte $3A .byte $3A
@ -1318,13 +1252,11 @@ L3558: jsr L375E
L3574: jsr L3739 L3574: jsr L3739
jsr L36FB jsr L36FB
jsr L39EE jsr L39EE
jsr MLI MLI_CALL GET_FILE_INFO, $3126
cpy $26 beq :+
and ($F0),y
.byte $03
jmp L3A43 jmp L3A43
jsr L35A9 : jsr L35A9
bcc L3590 bcc L3590
jmp L3A29 jmp L3A29
@ -1340,24 +1272,20 @@ L35A4: rts
L35A5: jsr L375E L35A5: jsr L375E
rts rts
L35A9: jsr MLI L35A9: MLI_CALL GET_FILE_INFO, $3126
cpy $26 beq :+
and ($F0),y
.byte $03
jmp L3A43 jmp L3A43
lda #$00 : lda #$00
sta L3641 sta L3641
sta L3642 sta L3642
jsr MLI MLI_CALL GET_FILE_INFO, $3139
cpy $39 beq :+
and ($F0),y
.byte $07
cmp #$46 cmp #$46
beq L35D7 beq L35D7
jmp L3A43 jmp L3A43
copy16 L3141, L3641 : copy16 L3141, L3641
L35D7: lda L3188 L35D7: lda L3188
sta L363F sta L363F
ldy #$01 ldy #$01
@ -1370,13 +1298,11 @@ L35DF: iny
tya tya
sta L3188 sta L3188
sta L3640 sta L3640
jsr MLI MLI_CALL GET_FILE_INFO, $3139
cpy $39 beq :+
and ($F0),y
.byte $03
jmp L3A43 jmp L3A43
sub16 L313E, L3141, L363D : sub16 L313E, L3141, L363D
sub16 L363D, L3641, L363D sub16 L363D, L3641, L363D
cmp16 L363D, L312E cmp16 L363D, L312E
bcs L3635 bcs L3635
@ -1392,14 +1318,10 @@ L363F: .byte 0
L3640: .byte 0 L3640: .byte 0
L3641: .byte 0 L3641: .byte 0
L3642: .byte 0 L3642: .byte 0
L3643: jsr MLI L3643: MLI_CALL OPEN, $30F0
iny
beq L3679
beq L364E beq L364E
jsr L3A43 jsr L3A43
L364E: jsr MLI L364E: MLI_CALL OPEN, $30F6
iny
inc $30,x
beq L3659 beq L3659
jmp L3A43 jmp L3A43
@ -1409,40 +1331,31 @@ L3659: lda L30F5
lda L30FB lda L30FB
sta L3105 sta L3105
sta L30EC sta L30EC
L366B: .byte $A9 L366B: lda #0
L366C: .byte 0
sta L3100 sta L3100
lda #$0B lda #$0B
sta L3101 sta L3101
jsr MLI MLI_CALL READ, $30FC
dex beq :+
L3679: .byte $FC
bmi L366C
.byte $07
cmp #$4C cmp #$4C
beq L36AE beq L36AE
jmp L3A43 jmp L3A43
copy16 L3102, L3108 : copy16 L3102, L3108
ora L3102 ora L3102
beq L36AE beq L36AE
jsr MLI MLI_CALL WRITE, $3104
.byte $CB beq :+
.byte $04
and ($F0),y
.byte $03
jmp L3A43 jmp L3A43
lda L310A : lda L310A
cmp #$00 cmp #$00
bne L36AE bne L36AE
lda L310B lda L310B
cmp #$0B cmp #$0B
beq L366B beq L366B
L36AE: jsr MLI L36AE: MLI_CALL CLOSE, $30EB
cpy L30EB MLI_CALL CLOSE, $30E9
jsr MLI
cpy L30E9
jsr L37AE jsr L37AE
jsr L379D jsr L379D
rts rts
@ -1465,9 +1378,8 @@ L36D5: lda L3134,x
bne L36EA bne L36EA
lda #$0D lda #$0D
sta L3113 sta L3113
L36EA: jsr MLI L36EA: MLI_CALL CREATE, $310C
cpy #$0C clc
and ($18),y
beq L36F6 beq L36F6
jmp L3A43 jmp L3A43
@ -1569,17 +1481,13 @@ L3793: lda L320A,y
L379D: lda #$07 L379D: lda #$07
sta L3139 sta L3139
jsr MLI MLI_CALL SET_FILE_INFO, $3139
.byte $C3 lda #10
and $A931,y
asl a
sta L3139 sta L3139
rts rts
L37AE: jsr MLI L37AE: MLI_CALL GET_FILE_INFO, $3126
cpy $26 bne :+
and ($D0),y
.byte $0C
ldx #$0A ldx #$0A
L37B8: lda L3129,x L37B8: lda L3129,x
sta L313C,x sta L313C,x
@ -1587,7 +1495,7 @@ L37B8: lda L3129,x
bpl L37B8 bpl L37B8
rts rts
pla : pla
pla pla
rts rts
@ -1617,17 +1525,12 @@ L37E6: .byte $00
.byte $04 .byte $04
L37F6: .byte $00,$00,$44,$00,$08,$00,$00 L37F6: .byte $00,$00,$44,$00,$08,$00,$00
L37FD: .byte $01,$00 L37FD: .byte $01,$00
L37FF: jsr MLI L37FF: MLI_CALL OPEN, $37E1
iny
sbc ($37,x)
bne L381B bne L381B
lda L37E6 lda L37E6
sta L37F6 sta L37F6
jsr MLI MLI_CALL READ, $37F5
dex MLI_CALL CLOSE, $37FD
sbc $37,x
jsr MLI
cpy L37FD
lda #$00 lda #$00
L381B: rts L381B: rts
@ -1670,29 +1573,20 @@ L386C: .byte $01,$00
PASCAL_STRING "Selector" PASCAL_STRING "Selector"
PASCAL_STRING "DeskTop2" PASCAL_STRING "DeskTop2"
L3880: jsr MLI L3880: MLI_CALL CLOSE, $386C
cpy L386C MLI_CALL OPEN, $385E
jsr MLI beq :+
iny MLI_CALL OPEN, $3858
lsr $F038,x
.byte $0F
jsr MLI
iny
cli
sec
beq L3897 beq L3897
.byte 0 brk
L3897: lda L385D L3897: lda L385D
jmp L38A0 jmp L38A0
lda L3863 : lda L3863
L38A0: sta L3865 L38A0: sta L3865
jsr MLI MLI_CALL READ, $3864
dex MLI_CALL CLOSE, $386C
.byte $64
sec
jsr MLI
cpy L386C
jmp L2000 jmp L2000
L38B2: stax $06 L38B2: stax $06
@ -1733,7 +1627,8 @@ L38FD: lda $D3EE,y
sta L320A,y sta L320A,y
dey dey
bpl L38FD bpl L38FD
return $C082 lda ROMIN2
rts
PASCAL_STRING "Copying:" PASCAL_STRING "Copying:"
PASCAL_STRING "Insert the source disk and press <Return> to continue or <ESC> to cancel" PASCAL_STRING "Insert the source disk and press <Return> to continue or <ESC> to cancel"