Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +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:20 +01:00
parent 50347568e7
commit c9857252c5
1 changed files with 30 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
BIN/RM.S.txt
View File

@ -11,7 +11,8 @@ AUTO 6
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I
*-------------------------------------- *--------------------------------------
ZPListDirPTR .EQ ZPBIN ZPPtr1 .EQ ZPBIN
ZPPtr2 .EQ ZPBIN+2
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -31,6 +32,8 @@ CS.START cld
.DA CS.RUN .DA CS.RUN
.DA CS.DOEVENT .DA CS.DOEVENT
.DA CS.QUIT .DA CS.QUIT
L.MSG.OK .DA MSG.OK
L.MSG.ERR .DA MSG.ERR
L.FullPath .DA FullPath L.FullPath .DA FullPath
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
@ -45,11 +48,11 @@ CS.INIT lda #0
beq .98 beq .98
>SYSCALL SYS.GetMemPtrA >SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr1 >STYA ZPPtr1
lda (ZPQuickPtr1) lda (ZPPtr1)
beq .98 beq .98
ldy #1 ldy #1
lda (ZPQuickPtr1),y lda (ZPPtr1),y
cmp #'/' cmp #'/'
bne .10 bne .10
@ -101,12 +104,12 @@ CS.RUN ldy #bCANCEL
pha pha
>SYSCALL SYS.GetMemPtrA >SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr1 >STYA ZPPtr1
lda (ZPQuickPtr1) lda (ZPPtr1)
pha pha
and #$0F and #$0F
sta (ZPQuickPtr1) Adjust Filename len sta (ZPPtr1) Adjust Filename len
pla pla
and #$F0 and #$F0
@ -118,18 +121,18 @@ CS.RUN ldy #bCANCEL
ldy #hS.LISTDIR ldy #hS.LISTDIR
lda (pData),y lda (pData),y
>SYSCALL SYS.GetMemPtrA >SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr2 >STYA ZPPtr2
ldy #S.LISTDIR.hPATH ldy #S.LISTDIR.hPATH
lda (ZPQuickPtr2),y lda (ZPPtr2),y
>SYSCALL SYS.GetMemPtrA >SYSCALL SYS.GetMemPtrA
>STYA ZPQuickPtr2 >STYA ZPPtr2
lda (ZPQuickPtr2) lda (ZPPtr2)
tax tax
tay tay
.2 lda (ZPQuickPtr2),y .2 lda (ZPPtr2),y
sta FullPath,y sta FullPath,y
dey dey
bne .2 bne .2
@ -137,33 +140,27 @@ CS.RUN ldy #bCANCEL
ldy #0 ldy #0
.3 inx .3 inx
iny iny
lda (ZPQuickPtr1),y lda (ZPPtr1),y
sta FullPath,x sta FullPath,x
tya tya
cmp (ZPQuickPtr1) cmp (ZPPtr1)
bne .3 bne .3
stx FullPath stx FullPath
ldy #0 >LDYA L.FullPath
.4 iny >SYSCALL SYS.PSTRoutYA
lda FullPath,y
jsr COUT
cpy FullPath
bne .4
>LDYA L.FullPath >LDYA L.FullPath
>SYSCALL SYS.MLIDestroyYA >SYSCALL SYS.MLIDestroyYA
bcc .5 bcs .5
pha >LDYA L.MSG.OK
lda #"[" >SYSCALL SYS.PSTRoutYA
jsr COUT bra .8
pla
jsr PRBYTE
lda #"]"
jsr COUT
.5 jsr CROUT .5 >PUSHA
>LDYA L.MSG.ERR
>SYSCALL SYS.PSTRoutYA
.8 pla .8 pla
>SYSCALL SYS.FreeMemA >SYSCALL SYS.FreeMemA
@ -221,36 +218,11 @@ CS.QUIT ldy #hS.LISTDIR
.3 clc .3 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
MSG.OK >PSTRING " [Ok]\n"
MSG.ERR >PSTRING " [%h]\n"
FullPath .BS 64 FullPath .BS 64
*-------------------------------------- *--------------------------------------
.DUMMY .DUMMY
.OR 0 .OR 0