제목 [강좌] 인터럽트(개념, 이용법)... 작성자 이종삼 작성일 94/03/29 03:05 조회 224 안녕하세요? 의외로 많은 분들이 인터럽트에 대해 알고자 하십니다. 종류, 사용법 등을... 밑에서 여러분들이 인터럽트에 대해 질문 하셨고 답변 하셨습니다. 그러므로 그분들의 글과 중복 되는 부분도 있을 겁니다. 제가 쓰려는 글은 초보자들께 인터럽트는 이런 것이며, 베이직 그중에서 도 퀵베이직에서 인터럽트 호출 법을 알려 드리는 것이죠. 본론으로... 인터럽트에 대해 모르시는 분은 없으실 겁니다. 허나, 모르시는 분도 계 신 것으로 치고 먼저 인터럽트란 뭔가 부터 쓰죠. 인터럽트를 번역 하면 '끼어들기' 대충 이렇게 번역 됩니다. 헌데, 뭐에 끼어드느냐... 열심히 책을 읽고 있었습니다. 헌데, 어디선가 전화가 와 보던 책을업어 놓고 전화를 받아 통화를 맞인 뒤 다시 업어 놓은 책을 봅니다. 여기서 책을 읽은 일이 메인 작업이며, 전화가 온것이 끼어들기 입니다. 이처럼 컴퓨터도 한참 프로그램을 돌리는데 Ctrl+C 또는 Ctrl+Break키가 눌리면 프로그램은 중단 됩니다. 이것도 하나의 인터럽트이며, 인터럽트 종류중 키보드 인터럽트에 속합 니다. 키보드 인터럽트의 한가지 예를 더 들자면... dir 명령을 내린 뒤 곧바로 type 이란 글을 타이핑 했다고 합시다. 결과 부터 말하면 dir 명령 수행 후 type 이란 글이 도스 프롬프트 엽에 나타납니다. 이러한 결과도 인터럽트에 의해 가능한 것이며, 위의 과정을 풀어보 면... 1. dir이란 명령을 내리면 명령어 해석기인 COMMAND.COM이 그것을 받아 그에 해당하는 작업 수행에 들어갑니다. 2. 사용자에 의해 키가 눌려지면 키보드 프로세서는 CPU로 인터럽트를 걸어 키가 눌렸음을 알립니다. 3. CPU는 하던 일을 잠시 미루고 입력 된 키의 아스키 코드와 스캔 코드 를 키보드 버퍼에 저장한 뒤 다시 원래 하던 일을 수행 합니다. 4. dir 명령 작업이 완료 되면 버퍼에 쌓인 아스키 코드를 읽어 화면에 출력 합니다. 위의 순서에서 인터럽트가 걸린 것은 2번에 행당 합니다. 이처럼 인터럽트는 예고 없이 발생 하는 것이 진정한 의미의 인터럽트지 요. 그리고, 인터럽트는 하드웨어 인터럽트와 소프트웨어 인터럽트로 분류 되며, 하드웨어 인터럽트는 위의 예로 든 불시에 발생하는 인터럽트와 정 기적으로 발생하는 인터럽트 두가지가 있으며, 정기적으로 발생하는 인터 럽트는 타이머 인터럽트란 것입니다. 본 게시판에서도 타이머 인터럽트에 대해 여러차례 거론 된 적이 있었는 데, 타이머 인터럽트란 말 그대로 시간을 재기 위한 인터럽트 입니다. 어떤 프로그램을 수행 시키건 컴퓨터의 시계는 쉬지 않고 흐릅니다. 이 것은 타이머 인터럽트가 부정기적이 아닌 정기적으로 인터럽트를 발생 시킨다는 것을 입증 하는 좋은 예지요. 반면 소프트웨어 인터럽트란 존재할 수 없음에도 존재 하는 것을 보면 참으로 신기할 따름입니다. 우리가 흔히 바이오스 인터럽트니 도스 인터럽트니 부르는 것은 진정한 인터럽트라 칭하기엔 무리가 있습니다. 인터럽트라 하기 보다는 함수(Function)라 칭함이 오를 것입니다. 이유는 여러분도 아다시피 우리는 이들 함수들을 자신의 프로그램 일부 에서 호출하여 사용 합니다. 그렇다면 호출 한다는 의미에서 일반 라이브러리의 함수와의 차이가 무 엇 이겠는지요. 인터럽트에 대한 개념은 이정도로 맞이고 다음은 퀵에서의 함수(인터러 트) 호출에 대해 알아 보겠습니다. 이하 BIOS INTERRUPT건 DOS INTERRUPT건 함수라 칭하겠습니다. 그러므로 착오 없으시기 바랍니다. 함수에는 바이오스 함수와 도스 함수가 존재 하며, 바이오스 함수의 범 위는 0h번 부터 1Fh번 까지이며, 도스 함수는 20h번 부터 FFh번 까지 존 합니다. 또한, 호출법도 동일합니다(위의 영문 소문자 h는 16진수를 의미 합니다). 함수 번호가 있고, 그 함수에 따른 서브함수가 여러개로 나뉘며, 서브함 수 내에 또다른 함수가 존재 하기도 합니다. 흔히 호출 하는 21h번 함수를 예로 알아 봅시다. 이 21h번 함수에는 서브함수 0h번 부터 FFFFh번 까지(아직 미정의 된 번호도 있음) 서브함수가 존재 하며, 이들 서브함수 중에는 서브함수를 갖는 함수가 있기도 합니다. 21h번 함수의 서브함수중 4Eh번과 4Fh번 서브함수는 퀵 사용자에게 유용 하게 쓰여질 수 있는 함수로 이들 함수의 기능은 4Eh번 함수가 첫번째 일 치하는 파일의 정보를 넘겨 주는 것이며, 4Fh번 함수는 다음으로 일치하 는 파일에 대한 정보를 넘겨주는 역할을 합니다. 본 함수의 기능에 대해선 거의 모르시는 분이 없으시겠으나, 초보자들을 위해 간락히 설명 드리자면... 우리가 사용하는 메모리 영역중에 DTA(Data Transfer Area)란 영역이 존 재합니다. 스필링이 맞는 모르지만... 이 영역의 역할은 4Eh, 4Fh번 함수가 수행 결과를 저장하는 곳이며, 사 용자는 이곳에 저장 된 정보를 읽어 도스 명령어인 dir을 대신할수도 있 으며, 각종 유틸리티에서 제공하는 디렉토리 목록 창과 파일 목록 창을 구사 할수 있습니다(이미 저를 비롯 몇몇 분께선 그것을 구현 해 보았 죠....). 본 함수를 호출 하기전에 할일이 있는데, 그것은 DTA를 어떻게 사용 할 것인가 하는 것입니다. 다시말해 기본 DTA를 사용 하느냐, 새로운 DTA를 만들어 사용 하느냐 하 는 것인데,후자의 것이 사용 하기에 편리 하므로 우리는 후자를 택하겠 습니다. DTA 영역의 크기는 원래 128바이트 입니다만, 필요한 최소한의 크기인 64바이트만은 새로 설정 하여 도스에게 그것을 알려 주면 됩니다. 이 작업 역시 도스 함수를 이용 하며, 설정은 다음과 같이... DIM DTA AS STRING * 64 '고정길이 문자변수 정의 InRegs.ds = VARSEG(DTA) 'ds에 변수 DTA의 세그먼트 '저장 InRegs.dx = SADD(DTA) 'dx에 변수가 아닌 스트링 옵 '셋 저장 InRegs.ax = &H1A00 'ah=1Ah, al=00, ah에 저장한 '1Ah가 바로 DTA 영역을 새로 '설정 하는 함수 번호 입니다. '여기서 al은 의미 없음 INTERRUPTX &H21, InRegs, OutRegs '함수 호출 이처럼, 함수를 호출 하기 위해선 호출 하려는 함수로 적당한 값을 넘겨 줘야 합니다. INTERRUPTX &H21, InRegs,OutRegs가 도스 함수 21h를 홀출 하는 역할을 하며, 앞서 한 작업이 각 레지스터에 값을 셋팅 시켜 주는 것이 됩니다. 다시말해 위의 작업 내용은 도스 함수 21h번의 서브함수 1Ah번을 호출하 는 것이며, 서브함수 번호인 1Ah는 레지스터 ax의 상위 레지스터인 ah 레 지스터에 셋팅 합니다. 거의 모든 서브함수 호출은 위와 같이 ah 레지스터에 서브함수 번호를 넣어 호출 하지만 다른 것도 있으므로 해당 함수에 대한 설명 대로 각 레 지스터들을 셋팅하여 함수를 호출 하시면 됩니다. 본론으로 돌아가... 다음은서브함수 4Eh번을 호출 하기전 위의 예에서 처럼 각 레지스터의 셋팅 부터 해야 합니다. FileSp$ = FileSpec + CHR$(0) '파일스팩 셋팅, 파일스팩에는 'full path 및 와일드 캐릭터 '그리고 완전한 파일명이 들어 '갑니다. 또한, 뒤에 붙은 'CHR$(0)은 ASCIIZ 문자열을 '뜻 하며, 거의 모든 파일 관 '련 함수에서 이와 같은 식을 '사용 하믈로 기억 하세요. InRegs.ds = VARSEG(FileSp$) '서브함수 1Ah의 설명과 동일 InRegs.dx = SADD(FileSp$) '역시 동일 InRegs.cx = &HFF 'cx 레지스터인 cl 레지스터에 '파일 속성 셋팅, 파일 속성은 '다음과 같다. ' 0 = 일반파일, 1 = 읽기전용 ' 2 = 숨겨진, 4 = 시스템 '파일, 8 = 디스크 볼륨명 '16 = 디렉토리 InRegs.ax = &H4E00 '서브함수 4Eh 셋팅, 의미는 '위의 서브함수 1Ah 설명과 같 '음 INTERRUPTX &H21, InRegs, OutRegs '함수 호출 IF OutRegs.flags AND 1 THEN DirRead% = -1: EXIT FUNCTION '캐리 플레그가 셋트 ?┳렝만? '일치하는 파일이 없으므로 '-1을 넣어 DirRead%함수 탈출 DirCnt = 1 '파일 갯수 셋팅 GOSUB FileSet '파일정보 읽기 루틴으로... IF DFlag = 1 THEN '1과 같으면 파일 또는 디렉토 '리이므로 성립... DirSet(DirCnt) = FI$ '배열 변수에 파일 하나에 대 '한 정보 저장 '파일 하나에 대한 정보란 dir '명령을 내리면 볼수 있는, 파 '링명, 파일길이, 생성날짜, '생성시간 등이다. DirCnt = DirCnt + 1 '파일 갯수 증가 END IF '블럭 IF문 끝 다음은 서브함수 4Fh로 다음으로 일치하는 파일을 찾는 작업입니다. DO WHILE DirCnt < FilesLength '읽고자 하는 파일 갯수 본다 '일혀진 파일 갯수가 적으면 'DO문내의 명령 수행... InRegs.ds = VARSEG(DTA) 'DTA 재 설정, 재 설정 하는대 InRegs.dx = SADD(DTA) '엔 이유가 있습니다. 만약, InRegs.ax = &H1A00 '재 설정 없이 서브함수 4Eh를 INTERRUPTX &H21, InRegs, OutRegs '계속 수행 시킬 경우, 디렉토 '리 내용을 누락 시키고 읽습 '니다. 와, 그런지 원인은 모 '르나, 수차례의 시험 결과 이 '렇게 해주면 누락 없이 몽땅 '읽어 들인다는 것만 알아 냈 '지요. InRegs.ax = &H4F00 '서브함수 4Fh 셋팅, 다른 셋 '팅은 서브함수 4Eh에서 해줬 '으므로 다른 것은 하지 않는 '다. INTERRUPTX &H21, InRegs, OutRegs '함수 호출 IF OutRegs.flags AND 1 THEN EXIT DO '일치하는 파일이 없을 경우, 'DO 루프 탈출 GOSUB FileSet '파일정보 읽기 루틴으로... IF DFlag = 1 THEN '1꽈 같으면 파일 또는 디렉토 '리이므로 성립... DirSet(DirCnt) = FI$ '배열변수에 파일 정보 저장 DirCnt = DirCnt + 1 '파일 갯수 증가 END IF '블럭 IF문 끝 LOOP '다시 DO문으로... 다음은 더이상 일치하는 파일이 없을 경우의 처리... DirCnt = DirCnt - 1 '파일 개수에서 1을 뺀다. 그 '래야 맞으니까... DirRead% = DirCnt 'DirRead% 함수에 읽어 들인 '파일 갯수를 넣고 DirSet(0) = STR$(FTotal) + " File(s)" + STR$(STotal&) + " Byte" '배열변수 첫 첨자에 읽어 들 '인 파일의 갯수와 총 바이트 '를 넣어 EXIT FUNCTION 'DirRead% 함수를 벗어난다. 도스함수 사용법 강좌가 하나의 새로운 함수를 만들었네요. 위의 함수 사용예와 같이 각 함수들 마다 셋팅 해야할 레지스터의 수와 값이 모두 다릅니다. 허나, 같은 점은 ah 레지스터에 서브함수 번호를 넣어 해당 함수를 호출 하는 개념은 동일 했습니다. 물론, 타 언어에서도 위와 같이 각 레지스터를 셋팅 후 서브 함수를 호 출 합니다. 다만, 다른 점이 있다면 언어 마다 셋팅 명령어가 약간씩 다 르다는 점 뿐 모든 언어에서 규칙은 동일 합니다. 위의 예는 단지 퀵에선 도스 함수 호출을 어떻게 하는지, 방법을 제시한 것 뿐입니다. 본 강좌의 서비스로 모듈 하나를 올립니다. 뒤에 올라갈 모듈을 사용 하기 위해선 통합환경 진입시 QB/L QB로 진입 하셔야 하며, 하나의 라이브러리화 해놓으시고 사용 하셔도 좋습니다. 모두 5가지의 함수로 구성 되 있으며, 그중 하나는 내부용이므로 4개의 함수형 서브가 들어 있으며, 각각의 용도는 다음과 같습니다. DirRead% 외부용, 용도=현재의 디렉토리 목록과 읽어 들인 파일 갯 수, 파일의 총 바이트를 넙겨준 배열변수에 담아 옴, 인수=배열변수, 파일스팩, 읽어 들 일 파일 갯수 FreeDisk& 외부용, 용도=넘겨준 드라이브의 총용량 또는 남은 용량 반환, 0=All Space, 1=Free Space, 인수=드 라이브 문자(예: a or c 등등, 대소문자 구 별없음. 그러나 콜론(:)은 붙이지 말껏), 0 or 1 GetCuDIR$ 외부용, 용도=넘겨준 드라이브의 현재 FULL 디렉토리명 반 환, 콜론(:)은 생략. GetCuDriver$ 외부용, 용도=현재의 드라이브 문자 반환(콜론(:)이 생략 된...) MinusChange& 내부용, 용도=음수를 양수화 시킴 이상과 같으며, 4가지 함수 모두 도스 함수를 사용한 하나의 좋은 예재 입니다. 초보자님들의 무궁한 투혼을 바라며, 이것으로 도스 함수(인터럽트) 강 좌를 맺습니다. 그럼, 다음에 좋은 글 갖고 찾아 뵙겠습니다. 19994.3.29. 모두 잠든 깊은 밤에 종삼... 제목 [소스] 인터럽트 강좌에서 말한... 작성자 이종삼 작성일 94/03/29 03:07 조회 149 안녕하세요? 밑의 인터럽트 강좌에서 말씀 드린 모듈입니다. 유용하게 사용 하시고 궁금한 점은 질문 주세요. 개인 메일이든 게시판이든 상관 없습니다. 함수 사용법에 대한 설명은 강좌에 있으며, 대모는 하지 않습니다. 그러므로 대모는 손수 제작 하세요. 솜씨에 따라선 괭장한 프로그램도 나옵니다. 그리고, 행이 끈어진 부분이 있어 언더라인(_)으로 처리 했으므로, 붙여 사용 사세요. 끈어진 행는 4줄 입니다. 그럼.... 1994.3.29. 깊은 밤에 종삼... -------------------------------------------------------------------- '[df.bas] DECLARE FUNCTION DirRead% (DirSet() AS STRING, FileSpec AS STRING, _ FilesLength AS INTEGER) DECLARE FUNCTION FreeDisk& (Drive$, Flag%) DECLARE FUNCTION GetCuDIR$ (Drive$) DECLARE FUNCTION GetCuDriver$ DECLARE FUNCTION MinusChange& (MC AS LONG) 'DISKFUN.BAS(Diks Function Extended) '$INCLUDE: 'QB.BI' '$DYNAMIC 'DIM SHARED DirSet(1) AS STRING '$STATIC DIM SHARED InRegs AS RegTypeX, OutRegs AS RegTypeX FUNCTION DirRead% (DirSet() AS STRING, FileSpec AS STRING, FilesLen_ gth AS INTEGER) STATIC REDIM DirSet(FilesLength) AS STRING STotal& = 0: FTotal = 0 DIM DTA AS STRING * 64 InRegs.ds = VARSEG(DTA) InRegs.dx = SADD(DTA) InRegs.ax = &H1A00 INTERRUPTX &H21, InRegs, OutRegs FileSp$ = FileSpec + CHR$(0) InRegs.ds = VARSEG(FileSp$) InRegs.dx = SADD(FileSp$) InRegs.cx = &HFF InRegs.ax = &H4E00 INTERRUPTX &H21, InRegs, OutRegs IF OutRegs.flags AND 1 THEN DirRead% = -1: EXIT FUNCTION DirCnt = 1 GOSUB FileSet IF DFlag = 1 THEN DirSet(DirCnt) = FI$ DirCnt = DirCnt + 1 END IF DO WHILE DirCnt < FilesLength InRegs.ds = VARSEG(DTA) InRegs.dx = SADD(DTA) InRegs.ax = &H1A00 INTERRUPTX &H21, InRegs, OutRegs InRegs.ax = &H4F00 INTERRUPTX &H21, InRegs, OutRegs IF OutRegs.flags AND 1 THEN EXIT DO GOSUB FileSet IF DFlag = 1 THEN DirSet(DirCnt) = FI$ DirCnt = DirCnt + 1 END IF LOOP DirCnt = DirCnt - 1 DirRead% = DirCnt DirSet(0) = STR$(FTotal) + " File(s)" + STR$(STotal&) + " Byte" EXIT FUNCTION FileSet: DFlag = 0 ATTR = ASC(MID$(DTA, 22, 1)) Mat$ = MID$(DTA, 31) Match$ = LEFT$(Mat$, INSTR(Mat$, CHR$(0)) - 1) 'FILE NAME IF (ATTR > 21 OR ATTR < 16) AND ATTR <> 8 THEN IF INSTR(Match$, ".") <> 0 THEN Match1$ = LEFT$(MID$(Match$, 1, INSTR(Match$, ".") - 1) + S_ PACE$(9), 9) Match2$ = MID$(Match$ + " ", INSTR(Match$, ".") + 1, 3) FLNAME$ = Match1$ + Match2$ ELSE FLNAME$ = LEFT$(Match$ + SPACE$(12), 12) END IF ELSE FLNAME$ = LEFT$(Match$ + SPACE$(12), 12) END IF IF ATTR = 8 OR RTRIM$(FLNAME$) = "." THEN RETURN 'File Length IF (ATTR > 21 OR ATTR < 16) AND ATTR <> 8 THEN A& = CVL(MID$(DTA, 27, 4)) BYTE$ = RIGHT$(SPACE$(9) + STR$(A&), 9) ELSE BYTE$ = LEFT$(" ", 9) END IF 'File Date A = CVI(MID$(DTA, 25, 2)) Y = ((A AND &HFE00) / 512) AND &H7F 'Year YEAR$ =RIGHT$("0" + LTRIM$(STR$(Y + 1980)), 2) M = ((A AND &H1E0) / 32) AND &HF 'Month MON$ = RIGHT$("0" + LTRIM$(STR$(M)), 2) 'Day DAY$ = RIGHT$("0" + LTRIM$(STR$(A AND &H1F)), 2) 'File Time A = CVI(MID$(DTA, 23, 2)) H = ((A AND &HF800) / 2048) AND &H1F 'HOUR M = ((A AND &H7E0) / 32) AND &H3F 'MINUTE 'S = A AND &H1F 'SECOND H = ABS(H) IF H < 12 THEN AmPm$ = "a" ELSE AmPm$ = "p" IF H > 12 THEN H = H - 12 IF H = 0 THEN H = 12 HOU$ = RIGHT$(" " + STR$(H), 3) MIN$ = RIGHT$("0" + LTRIM$(STR$(M)), 2) FL1$ = FLNAME$ + " " + BYTE$ FL2$ = " " + MON$ + "-" + DAY$ + "-" + YEAR$ FL3$ = " " + HOU$ + ":" + MIN$ + AmPm$ FI$ = FL1$ + FL2$ + FL3$ DFlag = 1 STotal& = STotal& + VAL(BYTE$) FTotal = FTotal + 1 RETURN END FUNCTION FUNCTION FreeDisk& (Drive$, Flag%) STATIC FreeDisk& = -1 IF Flag% < 0 OR Flag% > 1 THEN Flag% = 0 Drive$ = UCASE$(LTRIM$(RTRIM$(LEFT$(Drive$, 1)))) IF Drive$ < "A" OR Drive$ > "Z" THEN EXIT FUNCTION InRegs.ax = &H3600 InRegs.dx = ASC(Drive$) - ASC("A") + 1 INTERRUPTX &H21, InRegs, OutRegs IF OutRegs.ax = -1 THEN EXIT FUNCTION Tempax& = OutRegs.ax Tempcx& = OutRegs.cx Tempax& = MinusChange&(Tempax&) Tempcx& = MinusChange&(Tempcx&) IF Flag% = 0 THEN Tempdx& = OutRegs.dx Tempdx& = MinusChange&(Tempdx&) FreeDisk& = Tempax& * Tempcx& * Tempdx& ELSE Tempbx& = OutRegs.bx Tempbx& = MinusChange&(Tempbx&) FreeDisk& = Tempax& * Tempbx&* Tempcx& END IF END FUNCTION FUNCTION GetCuDIR$ (Drive$) STATIC GetCuDIR$ = "" Drive$ = UCASE$(LTRIM$(RTRIM$(LEFT$(Drive$, 1)))) IF Drive$ < "A" OR Drive$ > "Z" THEN EXIT FUNCTION Buffer$ = SPACE$(64) InRegs.ax = &H4700 InRegs.dx = ASC(Drive$) - ASC("A") + 1 InRegs.ds = VARSEG(Buffer$) InRegs.si = SADD(Buffer$) INTERRUPTX &H21, InRegs, OutRegs IF (OutRegs.flags AND 1) <> 1 THEN DirBF$ = RTRIM$(Buffer$) IF LEN(DirBF$) > 0 THEN IF INSTR(Buffer$, CHR$(0)) <> 1 THEN GetCuDIR$ = LEFT$(Buffer$, INSTR(Buffer$, CHR$(0)) - 1) _ + "\" END IF END IF END IF END FUNCTION FUNCTION GetCuDriver$ STATIC InRegs.ax = &H1900 INTERRUPTX &H21, InRegs, OutRegs GetCuDriver$ = CHR$((OutRegs.ax AND &HFF) + ASC("A")) END FUNCTION DEFSNG A-Z FUNCTION MinusChange& (MC AS LONG) STATIC IF SGN(MC) = -1 THEN A$ = RIGHT$("000" + HEX$(NOT (MC)), 4) A$ = RIGHT$("FFFF" + A$, 8) MC = ABS(VAL("&H" + A$)) - 1 END IF MinusChange& = MC END FUNCTION -------------------------------------------------------------------- 끝...