From 50347568e7dc68beb631763dc35ef3cff2ea938e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Wed, 6 Jan 2016 23:09:01 +0100 Subject: [PATCH] Source refresh (now use new API) --- BIN/MD.S.txt | 54 +++++++++------------------------------------------- 1 file changed, 9 insertions(+), 45 deletions(-) diff --git a/BIN/MD.S.txt b/BIN/MD.S.txt index 090b4159..198d43fb 100644 --- a/BIN/MD.S.txt +++ b/BIN/MD.S.txt @@ -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 *--------------------------------------