Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-01-24 05:35:33 +00:00
Code Issues Projects Releases Wiki Activity

Source refresh (now use new API)

Browse Source
This commit is contained in:
Rémy GIBERT 2016-01-06 23:09:01 +01:00
parent 98eaab789d
commit 50347568e7
1 changed files with 9 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
BIN/MD.S.txt
View File

@ -13,7 +13,6 @@ AUTO 6
.INB INC/LIBSTR.I .INB INC/LIBSTR.I
*-------------------------------------- *--------------------------------------
ZPPTR1 .EQ ZPBIN ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -41,12 +40,12 @@ CS.INIT stz hFullPath
beq .9 beq .9
>SYSCALL SYS.GetMemPtrA >SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr1 >STYA ZPPTR1
lda (ZPQuickPtr1) lda (ZPPTR1)
beq .9 beq .9
ldy #1 ldy #1
lda (ZPQuickPtr1),y lda (ZPPTR1),y
cmp #'/' cmp #'/'
bne .1 bne .1
@ -64,24 +63,17 @@ CS.INIT stz hFullPath
sta hFullPath sta hFullPath
.2 >SYSCALL SYS.MLICreateDirA .2 >SYSCALL SYS.MLICreateDirA
bcc .8 php
pha pha
jsr .8 jsr .98
pla pla
sec plp
rts rts
.8 lda hFullPath .98 lda hFullPath
beq .88 beq .9
>SYSCALL SYS.FreeMemA >SYSCALL SYS.FreeMemA
.88 clc .9 lda #SYSMGR.ERRSYN
rts
.9 lda hFullPath
beq .99
>SYSCALL SYS.FreeMemA
.99 lda #SYSMGR.ERRSYN
sec sec
rts rts
*-------------------------------------- *--------------------------------------
@ -94,34 +86,6 @@ CS.DOEVENT sec
CS.QUIT clc CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
PRBYTE pha
lsr
lsr
lsr
lsr
ora #$B0
cmp #$BA
bcc .1
adc #6
.1 jsr COUT
pla
and #$0F
ora #$B0
cmp #$BA
bcc COUT
adc #6
bra COUT
*--------------------------------------
CROUT lda #13
*--------------------------------------
COUT phx
phy
ldx #DEVMGR.COUT
jsr pDevJmp
ply
plx
rts
*--------------------------------------
CS.END CS.END
hFullPath .BS 1 hFullPath .BS 1
*-------------------------------------- *--------------------------------------