【96-下】林志敏 => 作業系統II（期末考）

【關鍵字：林志敏 、作業系統II、考古題、期末考】

【96-下】林志敏 => 作業系統II（期中考）

【關鍵字：林志敏 、作業系統、考古題、期中考】

【考前重點整理】顧偉倫 => 檔案結構（期中考）

1. 解釋 file ->很多 record 組成
   解釋 record ->很多 field 組成(課本P1-Fig1.1)
2. 解釋 cobol 4個 division 的功能(請看 cobol 程式)
   (1)識別部 IDENTIFICATION DIVISION.
   在商業通用語言程式中載明原始程式名稱、程式員姓名、編譯日期和註釋部分的段落。
   (2)設備部 ENVIRONMENT DIVISION.
   標明程式所使用的電腦設備及程式內部所使用的檔案名稱及特性。分為兩節：CONFIGURATION SECTION、INPUT-OUTPUT SECTION
   (3)資料部 DATA DIVISION.
   FILE SECTION:描述資料檔中每一記錄的資料名稱，形式及長度。
   WORKING-STORAGE SECTION:處理過程中暫時所需的資料項。
   (4)程序部 PROCEDURE DIVISION
   描述處理資料部資料的一種程序
3. 課本p.8圖3.3
4. 用虛擬碼畫 data process
5. 寫出 input edit 的功用(講義中文字第二份<322>那張第一頁)
6. 畫出 input edit 流程圖(中文字講義第二份<322>那張第二頁)
7. undating program(中文字講義第一份p3.p4)
   
8. 畫出 undating program 流程圖(中文字講義第一份p4圖9-5)
9. 畫disk圖(課本p.36圖3.2)
10. 解釋blocking factor (Physical、Logical record)課本P51

【關鍵字：顧偉倫 、檔案結構、重點整理、期中考】

【96-下】黃溪春 => 軟體工程（期中考）

【關鍵字：黃溪春 、軟體工程、考古題、期中考】

【94-5-上】薛念林 => 資料庫系統

以下資料來源：修OS2認識的學長（雷）提供！

94期末小考

95期末考

【關鍵字：薛念林 、資料庫系統、考古題】

【96-上】王壘 => 計算機概論（期末考）

【關鍵字：王壘、計算機概論、期末考、考古題】

【92-上】陳德生 => 數位系統設計（期末範圍）

【關鍵字：陳德生、數位系統設計、期末範圍、考古題】

【96-上】黃秀芬 => 離散數學（期中考）

【關鍵字：黃秀芬、離散數學、期中考、考古題】

【96-上】陳德生 => 數位系統設計（期中考）

【關鍵字：陳德生、數位系統設計、期中考、考古題】

【96-上】陳德生 => 數位系統設計（小考）

【關鍵字：陳德生、數位系統設計、小考、考古題】

【96-上】徐弘洋 =>組合語言（期末考）

【關鍵字：徐弘洋、組合語言、期末考、考古題】

【96-上】徐弘洋 =>組合語言（期中考）

【關鍵字：徐弘洋、組合語言、期中考、考古題】

【96-上】薛念林 =>資料庫系統（期中考）

【關鍵字：薛念林、資料庫系統、期中考、考古題】

【96-上】薛念林 =>資料庫系統（小考一）

【關鍵字：薛念林、資料庫系統、小考、考古題】

【96-上】黃秀芬 => 離散數學（期末考）

【關鍵字：黃秀芬、離散數學、期末考、考古題】

【96-上】薛念林 =>資料庫系統（期末考）

【關鍵字：薛念林、資料庫系統、期末考、考古題】

【93-上】黃秀芬 => 離散數學（期末考）

同學給的考古題，上面答案是同學寫的，正確與否就...自行判斷吧！

【關鍵字：黃秀芬、離散數學、期末考、考古題】

【9X-上】陳德生-數位系統設計（期末考）

剛剛學弟傳過來的，據說是頗有歷史的考古資料（也難怪紙張泛黃...）
熊熊發現：明天有考試耶，驚！

【關鍵字：9X-上、陳德生、數位系統設計、期末考、考古題】

【X86組語】作業三-第二版

把七張牌值印出來，並且將最大獎的組合用顏色強調，花色代碼改成以圖示顯示。

NEW_LINE MACRO
   push ax
   push dx
   mov  ah,02
   mov  dl,10
   int  21h
   mov  dl,13
   int  21h
   pop  dx
   pop  ax
   ENDM

GET_CHAR MACRO char
   push ax
   mov  ah,01
   int  21h
   mov  char,al
   pop  ax
   ENDM

END_PROCESS MACRO
   mov ah,4ch
   int 21h
   ENDM

.model small

.data
abc  equ 61
cba  equ 55

card_7  db 7 dup(?)
card_5  db 5 dup(?)
temp_5  db 5 dup(?)
max_prize db ?
max_num  db ?
ceq  db ?
prize  db ?
_mask  db 00001000b,00000100b,00000010b,00000001b
pr_tab  db 0,1,1,3,1,2,3,7,1,2,2,6,3,6,7,10
card_tab db 1,2,3,4,5, 1,2,3,4,6, 1,2,3,5,6
  db 1,2,4,5,6, 1,3,4,5,6, 2,3,4,5,6
  db 1,2,3,4,7, 1,2,3,5,7, 1,2,4,5,7
  db 1,3,4,5,6, 2,3,4,5,7, 1,2,3,6,7
  db 1,2,4,6,7, 1,3,4,6,7, 2,3,5,6,7
  db 1,2,5,6,7, 1,3,5,6,7, 2,3,5,6,7
  db 1,4,5,6,7, 2,4,5,6,7, 3,4,5,6,7
card_52  db 01h,02h,03h,04h,05h,06h,07h
  db 08h,09h,0ah,0bh,0ch,0dh
  db 11h,12h,13h,14h,15h,16h,17h
  db 18h,19h,1ah,1bh,1ch,1dh
  db 21h,22h,23h,24h,25h,26h,27h
  db 28h,29h,2ah,2bh,2ch,2dh
  db 31h,32h,33h,34h,35h,36h,37h
  db 38h,39h,3ah,3bh,3ch,3dh
card_28  db 01h,11h,2dh,34h,35h,26h,08h
  db 01h,11h,2ch,05h,15h,26h,27h
  db 21h,31h,2bh,34h,35h,36h,37h
  db 01h,11h,03h,15h,05h,25h,0ah
mess  db '  ** sorry !!! **  $'
  db 'one pair.          $'
  db 'two pairs.         $'
  db 'three of a kind.   $'
  db 'straight.          $'
  db 'flush.             $'
  db 'full house.        $'
  db 'four of a king.    $'
  db 'flush straight.    $'
  db 'flush royal.       $'
  db 07h,'%% data error %%  $'
;============================================================================================================================
.stack 1000h
;============================================================================================================================
.code
main  proc far

  mov ax,@data
  mov ds,ax

bbloop:
  call far  ptr cdgen
  call far  ptr check_7
  call far  ptr p_result
  NEW_LINE
  GET_CHAR dl
  cmp dl,13  ;press ENTER for next turn
  je bbloop
  END_PROCESS
main  endp
;
;---------------------------------------------------------------------------------------------------------------------------
;
check_7  proc far

  mov [max_prize],0
  mov [max_num],0  

  mov cx,21
ckloop1: mov al,05h
  mov dl,cl
  dec dl
  mul dl
  mov bx,ax
  mov si,5
ckloop2: dec si
  mov al,[card_tab + bx + si]
  mov di,ax
  mov al,[card_7 - 1 + di]
  mov [card_5 + si],al
  xor si,0
  jnz ckloop2

  call check_5

  mov ah,[prize]
  cmp ah,[max_prize]
  jbe nextturn

  mov [max_prize],ah
  mov [max_num],cl
nextturn: loop ckloop1
  ret
check_7  endp
;---------------------------------------------------------------------------------------------------------------------------
check_5  proc near
  mov [prize],0
  mov ah,0fh
  call copypure
  call sorttemp_5
  call compare
  cmp [ceq],0
  jne setprize

  call checkstr

  mov ah,30h
  call copypure
  call compare

  cmp [ceq],0fh
  jne noflush
cmp1:  cmp bh,0
  jne cmp2
  mov [prize],5
  jmp checkexit
cmp2:  cmp bh,1
  jne cmp3
  mov [prize],8
  jmp checkexit
cmp3:  mov [prize],9
  jmp checkexit

noflush: cmp bh,0
  je nostraight
  mov [prize],4
  jmp checkexit

nostraight: mov [ceq],0

setprize: lea bx,pr_tab
  mov al,[ceq]
  xlat
  mov [prize],al

checkexit: ret
check_5  endp
;---------------------------------------------------------------------------------------------------------------------------
copypure proc
  mov si,5
pureloop: dec si
  mov al,[ card_5 + si ]
  and al,ah
  mov [ temp_5 + si ],al
  cmp si,0
  jne pureloop
  ret
copypure endp
;---------------------------------------------------------------------------------------------------------------------------
sorttemp_5 proc near
  mov si,4
sortloop1: mov al,[ temp_5 + si ]
  mov di,0
sortloop2: cmp al,[ temp_5 + di ]
  jge sortnext
  xchg al,[ temp_5 + di ]
sortnext: inc di
  cmp di,si
  jne sortloop2
  mov [ temp_5 + si ],al
  dec si
  jnz sortloop1

  ret
sorttemp_5 endp
;---------------------------------------------------------------------------------------------------------------------------
compare  proc
  mov [ceq],0
  mov si,0

cmploop: mov ah,[temp_5 + si]
  xor ah,[temp_5 + si + 1]
  jnz cmpnext
  mov al,[_mask + si ]
  or [ceq],al
cmpnext: inc si
  cmp si,4
  jnz cmploop
  ret
compare  endp
;---------------------------------------------------------------------------------------------------------------------------
checkstr proc near

  mov bh,0
  mov al,[temp_5 +4]
  sub al,[temp_5 +0]
  cmp al,4
  je addbh
  cmp al,12
  jne strexit
  cmp [temp_5 + 1],10 ;@@?
  jne strexit
  inc bh
addbh:  inc bh
strexit: ret
checkstr endp
;---------------------------------------------------------------------------------------------------------------------------
p_result proc far

  mov bl,[max_prize]
  mov al,20
  mul bl
  lea dx,mess
  add dx,ax
  mov ah,09h
  int 21h
  cmp bl,0
  je pr_exit

  mov bl,[max_num]
  dec bl
  mov al,05h
  mul bl
  mov bx,ax
  mov si,0
temploop: mov dl,[card_tab + bx + si]
  mov [temp_5 + si],dl
  inc si
  cmp si,5
  jne temploop

  mov si,0
print_7: mov di,0
temploop2: mov dl,[temp_5 + di]
  dec dl
  mov dh,0
  cmp si,dx
  jne tempnext2
  mov ah,09h
  mov bh,0
  mov bl,0001100b
  mov cx,3
  int 10h
tempnext2: inc di
  cmp di,5
  jne temploop2

  mov cl,[card_7 + si]
  and cl,0fh
  mov ch,[card_7 + si]
  and ch,0f0h

  mov dl,6 ;spade
  cmp ch,30h
  je color
  mov dl,3 ;heart
  cmp ch,20h
  je color
  mov dl,4 ;diamond
  cmp ch,10h
  je color
  mov dl,5 ;club
color:  mov ah,02h
  int 21h

  ;;card value convert
  mov dl,'A'
  cmp cl,1
  je printnext1
  mov dl,cl
  or dl,30h
  cmp cl,9
  jbe printnext1
  mov dl,'J'
  cmp cl,11
  je printnext1
  mov dl,'Q'
  cmp cl,12
  je printnext1
  mov dl,'K'
  cmp cl,13
  je printnext1
  mov dl,'1'
  int 21h
  mov dl,'0'
printnext1: int 21h
  mov dl,' '
  int 21h
  inc si
  cmp si,7
  jne print_7

pr_exit: ret
p_result endp
;---------------------------------------------------------------------------------------------------------------------------
cdgen  proc far

  call randomize

  mov cx,7
  mov dh,4
rndloop:  call random
  lea bx,card_28
  mul cl
  xor ah,ah
  add bx,ax
 mov si,cx
  mov ah,[bx + si - 1]
  mov [card_7 - 1 + si],ah
  loop rndloop
  ret
cdgen  endp
;---------------------------------------------------------------------------------------------------------------------------
randomize proc near
  mov ah,2ch
  int 21h
  ;shl dh,1
  add dl,dh
  ret
randomize endp
;---------------------------------------------------------------------------------------------------------------------------
random  proc near

  mov al,abc
  mul dl
  add ax,cba
  mov dl,al
  mul dh
  mov al,ah
  ret
random  endp
  end main
=============================================================================================================================

【X86組語】作業三

把七張牌值印出來，並且將最大獎的組合用顏色強調。

NEW_LINE MACRO
   push ax
   push dx
   mov  ah,02
   mov  dl,10
   int  21h
   mov  dl,13
   int  21h
   pop  dx
   pop  ax
   ENDM

GET_CHAR MACRO char
   push ax
   mov  ah,01
   int  21h
   mov  char,al
   pop  ax
   ENDM


PUT_CHAR MACRO char
   mov  dl,char
   mov  ah,02h
   int  21h
   ENDM

END_PROCESS MACRO
   mov ah,4ch
   int 21h
   ENDM


.model small

.data
abc  equ 61
cba  equ 55

card_7  db 7 dup(?)
card_5  db 5 dup(?)
temp_5  db 5 dup(?)
max_prize db ?
max_num  db ?
ceq  db ?
prize  db ?
_mask  db 00001000b,00000100b,00000010b,00000001b
pr_tab  db 0,1,1,3,1,2,3,7,1,2,2,6,3,6,7,10
card_tab db 1,2,3,4,5, 1,2,3,4,6, 1,2,3,5,6
  db 1,2,4,5,6, 1,3,4,5,6, 2,3,4,5,6
  db 1,2,3,4,7, 1,2,3,5,7, 1,2,4,5,7
  db 1,3,4,5,6, 2,3,4,5,7, 1,2,3,6,7
  db 1,2,4,6,7, 1,3,4,6,7, 2,3,5,6,7
  db 1,2,5,6,7, 1,3,5,6,7, 2,3,5,6,7
  db 1,4,5,6,7, 2,4,5,6,7, 3,4,5,6,7
card_52  db 01h,02h,03h,04h,05h,06h,07h
  db 08h,09h,0ah,0bh,0ch,0dh
  db 11h,12h,13h,14h,15h,16h,17h
  db 18h,19h,1ah,1bh,1ch,1dh
  db 21h,22h,23h,24h,25h,26h,27h
  db 28h,29h,2ah,2bh,2ch,2dh
  db 31h,32h,33h,34h,35h,36h,37h
  db 38h,39h,3ah,3bh,3ch,3dh
card_28  db 01h,11h,2dh,34h,35h,26h,08h
  db 01h,11h,2ch,05h,15h,26h,27h
  db 21h,31h,2bh,34h,35h,36h,37h
  db 01h,11h,03h,15h,05h,25h,0ah
mess  db '  ** sorry !!! **  $'
  db 'one pair.          $'
  db 'two pairs.         $'
  db 'three of a kind.   $'

  db 'straight.          $'
  db 'flush.             $'
  db 'full house.        $'
  db 'four of a king.    $'
  db 'flush straight.    $'

  db 'flush royal.       $'
  db 07h,'%% data error %%  $'
;============================
.stack 1000h
;============================
.code
main  proc far

  mov ax,@data
  mov ds,ax

bbloop:
  call far  ptr cdgen
  call far  ptr check_7
  call far  ptr p_result
  NEW_LINE
  GET_CHAR dl
  cmp dl,13  ;press ENTER for next turn
  je bbloop
  END_PROCESS
main  endp
;
;---------------------------------------
;
check_7  proc far


  mov [max_prize],0
  mov [max_num],0  

  mov cx,21
ckloop1: mov al,05h
  mov dl,cl
  dec dl
  mul dl
  mov bx,ax
  mov si,5
ckloop2: dec si
  mov al,[card_tab + bx + si]
  mov di,ax
  mov al,[card_7 - 1 + di]
  mov [card_5 + si],al
  xor si,0
  jnz ckloop2

  call check_5

  mov ah,[prize]
  cmp ah,[max_prize]
  jbe nextturn

  mov [max_prize],ah
  mov [max_num],cl
nextturn: loop ckloop1
  ret
check_7  endp
;-------------------------------
check_5  proc near
  mov [prize],0
  mov ah,0fh
  call copypure
  call sorttemp_5
  call compare
  cmp [ceq],0
  jne setprize

  call checkstr


  mov ah,30h
  call copypure
  call compare

  cmp [ceq],0fh
  jne noflush
cmp1:  cmp bh,0
  jne cmp2
  mov [prize],5
  jmp checkexit
cmp2:  cmp bh,1
  jne cmp3
  mov [prize],8
  jmp checkexit
cmp3:  mov [prize],9
  jmp checkexit

noflush: cmp bh,0
  je nostraight
  mov [prize],4
  jmp checkexit

nostraight: mov [ceq],0

setprize: lea bx,pr_tab
  mov al,[ceq]
  xlat
  mov [prize],al

checkexit: ret
check_5  endp
;----------------------------
copypure proc
  mov si,5
pureloop: dec si
  mov al,[ card_5 + si ]
  and al,ah
  mov [ temp_5 + si ],al
  cmp si,0
  jne pureloop
  ret
copypure endp
;--------------------------
sorttemp_5 proc near
  mov si,4
sortloop1: mov al,[ temp_5 + si ]
  mov di,0
sortloop2: cmp al,[ temp_5 + di ]
  jge sortnext
  xchg al,[ temp_5 + di ]
sortnext: inc di
  cmp di,si
  jne sortloop2
  mov [ temp_5 + si ],al
  dec si
  jnz sortloop1

  ret
sorttemp_5 endp
;----------------------------
compare  proc
  mov [ceq],0
  mov si,0


cmploop: mov ah,[temp_5 + si]
  xor ah,[temp_5 + si + 1]
  jnz cmpnext
  mov al,[_mask + si ]
  or [ceq],al
cmpnext: inc si
  cmp si,4
  jnz cmploop
  ret
compare  endp
;------------------------------
checkstr proc near

  mov bh,0
  mov al,[temp_5 +4]
  sub al,[temp_5 +0]
  cmp al,4
  je addbh
  cmp al,12
  jne strexit
  cmp [temp_5 + 1],10 ;@@?
  jne strexit
  inc bh
addbh:  inc bh
strexit: ret
checkstr endp
;---------------------------
p_result proc far

  mov bl,[max_prize]
  mov al,20
  mul bl
  lea dx,mess
  add dx,ax
  mov ah,09h
  int 21h
  cmp bl,0
  je pr_exit

  mov bl,[max_num]
  dec bl
  mov al,05h
  mul bl
  mov bx,ax
  mov si,0
temploop: mov dl,[card_tab + bx + si]
  mov [temp_5 + si],dl
  inc si
  cmp si,5
  jne temploop

  mov si,0
print_7: mov di,0
temploop2: mov dl,[temp_5 + di]
  dec dl
  mov dh,0
  cmp si,dx
  jne tempnext2
  mov ah,09h
  mov bh,0
  mov bl,0001100b
  mov cx,3
  int 10h
tempnext2: 
  inc di
  cmp di,5
  jne temploop2


  mov cl,[card_7 + si]
  mov ch,cl
  and ch,0f0h
  or ch,30h
  PUT_CHAR ch
  mov ch,cl
  and ch,0fh
  cmp ch,9
  jbe not_convert
  add ch,7h
not_convert:
  add ch,30h
  PUT_CHAR ch
  PUT_CHAR ' '


  inc si
  cmp si,7
  jne print_7

pr_exit: ret
p_result endp
;-----------------------------
cdgen  proc far

  call randomize

  mov cx,7
  mov dh,4
rndloop:  call random
  lea bx,card_28
  mul cl
  xor ah,ah
  add bx,ax
 mov si,cx
  mov ah,[bx + si - 1]
  mov [card_7 - 1 + si],ah
  loop rndloop
  ret
cdgen  endp
;-------------------------
randomize proc near
  mov ah,2ch
  int 21h
  ;shl dh,1
  add dl,dh
  ret
randomize endp
;-------------------------
random  proc near


  mov al,abc
  mul dl
  add ax,cba
  mov dl,al
  mul dh
  mov al,ah
  ret
random  endp
  end main