3DOS Commands? - Printable Version

Code:
#include <input.bas>

#include <screen.bas>

#INCLUDE <keys.bas> 



PRINT "This is the start"

main()





SUB main()

    LET YesNo = "n"

    PRINT "do you want to CAT disk"

    YesNo = INPUT(1)

    IF YesNo="y" then

        Catalogue()

    END IF

    PRINT "Ed#nd Main"

END SUB







SUB Catalogue()

    ASM

        PUSH IX ; dos catalog corrupts ix

        PROC

        

        LOCAL   MYSTACK

        LOCAL   STACKSTORAGE

        LOCAL   BANKM

        LOCAL   PORT1

        LOCAL   CATBUFF

        LOCAL   DOS_CATALOG

        

        

        MYSTACK         EQU     9fffh ; 

        STACKSTORAGE    EQU     9000h ; save pointer

        BANKM           EQU     5b5ch ; system var that holds last value output to 7ff0h

        PORT1           EQU     7ffdh ; address of rom/ram switching port

        CATBUFF         EQU     8000h ; location for dos to output

        DOS_CATALOG     EQU     011Eh ; DOS routine to call

    

        JP start

        stardstar:  defb "*.*",255                    

        dosret:     defw 0

    

        start:

            DI

            LD (STACKSTORAGE),SP

            LD BC,PORT1         ; 

            LD A,(BANKM)        ; current switch state

            RES 4,A             ; move right to left in horizontal rom switch (3 to 2)

            OR 7                ; switch in ram page 7

            LD (BANKM),A        ; keep system var up to date

            OUT (C),A           ; switch ram and rom

            LD SP,MYSTACK       ; make sure stack is above 4000h and below bfeoh

            EI                  ; enable interrupts

            ; 

    

   

            LD HL,CATBUFF

            LD DE,CATBUFF+1

            LD BC,1024

            LD (HL),0

            LDIR

            LD B,64

            LD C,1

            LD DE, CATBUFF

            LD HL,stardstar             ;file name *.*

            CALL DOS_CATALOG            ;call dos catalog

            PUSH AF

            POP HL

            LD (dosret),HL              ; put here so can be seen from basic

            LD C,B                      ; number of files in catalog, low byte of bc

            LD B,0                      ; returned to basic by usr functio

    

            DI

            PUSH BC

            LD BC, PORT1

            LD A, (BANKM)

            SET 4, A                    ; move left to right (riom 2 to 3)

            AND 48h                     ; ram page 9

            LD (BANKM),A                ; update syste value

            OUT (C),A                   ;switch

            POP BC                      ; get back saved number of files

            LD SP,(STACKSTORAGE)        ; 

            EI

            ;RET ; not sure if thisis needed

        ENDP

        POP IX

        ;RET ; Not sure if this is needed here

    END ASM

END SUB