Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-01 07:41:51 +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
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -41,12 +40,12 @@ CS.INIT stz hFullPath
beq .9
>SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr1
lda (ZPQuickPtr1)
>STYA ZPPTR1
lda (ZPPTR1)
beq .9
ldy #1
lda (ZPQuickPtr1),y
lda (ZPPTR1),y
cmp #'/'
bne .1
@ -64,24 +63,17 @@ CS.INIT stz hFullPath
sta hFullPath
.2 >SYSCALL SYS.MLICreateDirA
bcc .8
php
pha
jsr .8
jsr .98
pla
sec
plp
rts
.8 lda hFullPath
beq .88
.98 lda hFullPath
beq .9
>SYSCALL SYS.FreeMemA
.88 clc
rts
.9 lda hFullPath
beq .99
>SYSCALL SYS.FreeMemA
.99 lda #SYSMGR.ERRSYN
.9 lda #SYSMGR.ERRSYN
sec
rts
*--------------------------------------
@ -94,34 +86,6 @@ CS.DOEVENT sec
CS.QUIT clc
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
hFullPath .BS 1
*--------------------------------------