ls.asm

FDOS Operating System

            %TITLE      "instinct - core 0.0.3"

; APM code provided by Vinny <[e-mail]>
; FAT12 code provided by Simeon Maxein <[e-mail]>
; IDEAL mode code inspired by Tom Swan's Mastering Borland Turbo Assembler

            IDEAL
            MODEL       SMALL, C
            STACK
            JUMPS
            LOCALS      @@
            CODESEG
            P386N
start:
            MOV         AX, CS
            MOV         DS, AX
            MOV         ES, AX
            XOR         DX, DX
loop1:
            MOV         DI, OFFSET FilePointer
            MOV         SI, DX
            MOV         CX, 11

            PUSH        DS
            MOV         AX, 2500h
            MOV         DS, AX
            CLD
            REP MOVSB
            POP         DS

            PUSHA
            MOV         SI, OFFSET FilePointer
            MOV         AL, '?'
            CMP         [DS:SI], AL
            JE          skip
            MOV         AL, 00h
            CMP         [DS:SI], AL
            JE          skip
            MOV         AL, 0E5h
            CMP         [DS:SI], AL
            JE          skip
            MOV         AH, 02h
            INT         20h
skip:
            POPA

            ADD         DX, 32d
            CMP         DX, 1C00h                   ; 7K
            JA          exit
            JMP         loop1

exit:
            RETF
            JMP         $

FilePointer DB          11 DUP(?),13,10,0
            END         start