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