TUGAS MANDIRI ORGANISASI KOMPUTER DAN SISTEM OPERASI
PROGRAM TURBO ASSEMBLER (TASM)
DISUSUN OLEH :
FAJAR ILHAMY 064001600019
Gabriel Hutapea 0640016000
Rillo Mangunsong 0650016000
Gabriel Hutapea 0640016000
Rillo Mangunsong 0650016000
FAKULTAS TEKNOLOGI INDUSTRI
JURUSAN TEKNIK INFORMATIKA
UNIVERSITAS TRISAKTI
2017
Daftar Isi
i. Tujuan Percobaan
ii.Teori Percobaan
iii.Cara-cara Percobaan
iv.Kesimpulan
i. Tujuan Percobaan
Adapun tujuan dari tugas mandiri ini adalah :
1. Dapat menyelesaikan tugas mandiri
2. Dapat mengetahui bahasa assembler
3. Dapat menngcompile bahasa assembler
4. Dapat melihat langsung output dari program yang dijalankan pada command prompt
ii.Teori Percobaan
Turbo Assembler (TASM) merupakan perangkat lunak bahasa pemrograman Assembly yang dikembangkan Borland untuk komputer personal yang kompatibel dengan IBM, umumnya berbasis prosesor x86. Perangkat lunak ini diperdagangkan oleh Borland sebagai sebuah produk mandiri, atau dipaketkan bersama produk perangkat lunak bahasa pemrograman tingkat tinggi yang juga dikembangkan Borland, biasanya produk untuk tingkat mahir seperti (Borland Pascal, atau Borland C++), dan memiliki integrasi yang sangat baik dengan bahasa-bahasa pemrograman tingkat tinggi tersebut. Dengan berakhirnya era kejayaan keluarga Turbo, Turbo Assembler saat ini sudah tidak lagi dikembangkan oleh Borland.
Perangkat lunak Turbo Assembler dipaketkan bersama linker (disebut Turbo Linker atau TLINK), dan dilengkapi pula dengan Turbo Debugger, perangkat lunak untuk kebutuhan debugging. Untuk mendukung kompatibilitas dengan bahasa assembly yang umum digunakan saat itu, Microsoft Macro Assembler (MASM), TASM mendukung modus MASM (MASM mode) yang memungkinkan pemrogram merakit berkas kode sumber yang sebelumnya ditujukan untuk MASM. TASM juga mendukung modus tambahan yang disebut dengan mode ideal yang memiliki beberapa fitur tambahan.
iii.Cara-cara Percobaan
Untuk dapat menjalankannyanya harus melalui windows 32 bit atau dos box
1. Buka windows 32 bit melalui vm ware
4. Kemudian Jalankan Dan berhasil
5. Kemudian buka CMD untuk mengeksekusi program, Kemudian masuk ke disk C lalu folder TASM, Masukkan perintah TASM lalu nama folder kemudian dibelakanya ketik .asm
6. Lalu ketikkan tlink, nama folder .obj
7. Kemudian ketikkan Dir nama folder lalu dibelakanya ditambah titik dan bintang
8. Kemudian ketikkan nama folder
9. Lalu masuk ke tahap pengujian, disini saya menguji apakah programnya berhasil atau tidak dan ternyata berhasil jika saya memasukkan angka 50000 detik maka disitu tertera 13 jam 53 menit 20 detik dan berhasil.
2. Kemudian kita uji di emulator sebelum melalui CMD, berikut codingannya:
.MODEL SMALL
.STACK 100H
.DATA
PROMPT_1 DB 'Enter the time in seconds up to 65535 = $'
PROMPT_2 DB 0DH,0AH,'The time in hh:mm:ss format is = $'
SEPARATOR DB ' : $'
.CODE
MAIN PROC
MOV AX, @DATA ; initialize DS
MOV DS, AX
LEA DX, PROMPT_1 ; load and display the string PROMPT_1
MOV AH, 9
INT 21H
CALL INDEC ; call the procedure INDEC
PUSH AX ; puah AX onto the STACK
LEA DX, PROMPT_2 ; load and display the string PROMPT_2
MOV AH, 9
INT 21H
POP AX ; pop a value from STACK into AX
XOR DX, DX ; clear DX
MOV CX, 3600 ; set CX=3600
DIV CX ; set AX=DX:AX\CX , DX=DX:AX%CX
CMP AX, 10 ; compare AX with 10
JGE @HOURS ; jump to label @HOURS if AX>=10
PUSH AX ; push AX onto the STACK
MOV AX, 0 ; set AX=0
CALL OUTDEC ; call the procedure OUTDEC
POP AX ; pop a value from STACK into AX
@HOURS: ; jump label
CALL OUTDEC ; call the procedure OUTDEC
MOV AX, DX ; set AX=DX
PUSH AX ; push AX onto the STACK
LEA DX, SEPARATOR ; load and display the string SEPARATOR
MOV AH, 9
INT 21H
POP AX ; pop a value from STACK into AX
XOR DX, DX ; clear DX
MOV CX, 60 ; set CX=60
DIV CX ; set AX=DX:AX\CX , DX=DX:AX%CX
CMP AX, 10 ; compare AX with 10
JGE @MINUTES ; jump to label @MINUTES if AX>=10
PUSH AX ; push AX onto the STACK
MOV AX, 0 ; set AX=0
CALL OUTDEC ; call the procedure OUTDEC
POP AX ; pop a value from STACK into AX
@MINUTES: ; jump label
CALL OUTDEC ; call the procedure OUTDEC
MOV BX, DX ; set BX=DX
LEA DX, SEPARATOR ; load and display the string SEPARATOR
MOV AH, 9
INT 21H
MOV AX, BX ; set AX=BX
CMP AX, 10 ; compare AX with 10
JGE @SECONDS ; jump to label @SECONDS if AX>=10
PUSH AX ; push AX onto the STACK
MOV AX, 0 ; set AX=0
CALL OUTDEC ; call the procedure OUTDEC
POP AX ; pop a value from STACK into AX
@SECONDS: ; jump label
CALL OUTDEC ; call the procedure OUTDEC
MOV AH, 4CH ; return control to DOS
INT 21H
MAIN ENDP
;****************************
;****************************
;------------------------- Procedure Definitions ------------------------;
;****************************
;****************************
;****************************
;----------------------------
;****************************
INDEC PROC
; this procedure will read a number indecimal form
; input : none
; output : store binary number in AX
; uses : MAIN
PUSH BX ; push BX onto the STACK
PUSH CX ; push CX onto the STACK
PUSH DX ; push DX onto the STACK
JMP @READ ; jump to label @READ
@SKIP_BACKSPACE: ; jump label
MOV AH, 2 ; set output function
MOV DL, 20H ; set DL=' '
INT 21H ; print a character
@READ: ; jump label
XOR BX, BX ; clear BX
XOR CX, CX ; clear CX
XOR DX, DX ; clear DX
MOV AH, 1 ; set input function
INT 21H ; read a character
CMP AL, "-" ; compare AL with "-"
JE @MINUS ; jump to label @MINUS if AL="-"
CMP AL, "+" ; compare AL with "+"
JE @PLUS ; jump to label @PLUS if AL="+"
JMP @SKIP_INPUT ; jump to label @SKIP_INPUT
@MINUS: ; jump label
MOV CH, 1 ; set CH=1
INC CL ; set CL=CL+1
JMP @INPUT ; jump to label @INPUT
@PLUS: ; jump label
MOV CH, 2 ; set CH=2
INC CL ; set CL=CL+1
@INPUT: ; jump label
MOV AH, 1 ; set input function
INT 21H ; read a character
@SKIP_INPUT: ; jump label
CMP AL, 0DH ; compare AL with CR
JE @JUMP_TO_END_INPUT ; jump to label @JUMP_TO_END_INPUT
CMP AL, 8H ; compare AL with 8H
JNE @NOT_BACKSPACE ; jump to label @NOT_BACKSPACE if AL!=8
CMP CH, 0 ; compare CH with 0
JNE @CHECK_REMOVE_MINUS ; jump to label @CHECK_REMOVE_MINUS if CH!=0
CMP CL, 0 ; compare CL with 0
JE @SKIP_BACKSPACE ; jump to label @SKIP_BACKSPACE if CL=0
JMP @MOVE_BACK ; jump to label @MOVE_BACK
@JUMP_TO_END_INPUT: ; jump label
JMP @END_INPUT ; jump to label @END_INPUT
@CHECK_REMOVE_MINUS: ; jump label
CMP CH, 1 ; compare CH with 1
JNE @CHECK_REMOVE_PLUS ; jump to label @CHECK_REMOVE_PLUS if CH!=1
CMP CL, 1 ; compare CL with 1
JE @REMOVE_PLUS_MINUS ; jump to label @REMOVE_PLUS_MINUS if CL=1
@CHECK_REMOVE_PLUS: ; jump label
CMP CL, 1 ; compare CL with 1
JE @REMOVE_PLUS_MINUS ; jump to label @REMOVE_PLUS_MINUS if CL=1
JMP @MOVE_BACK ; jump to label @MOVE_BACK
@REMOVE_PLUS_MINUS: ; jump label
MOV AH, 2 ; set output function
MOV DL, 20H ; set DL=' '
INT 21H ; print a character
MOV DL, 8H ; set DL=8H
INT 21H ; print a character
JMP @READ ; jump to label @READ
@MOVE_BACK: ; jump label
MOV AX, BX ; set AX=BX
MOV BX, 10 ; set BX=10
DIV BX ; set AX=AX/BX
MOV BX, AX ; set BX=AX
MOV AH, 2 ; set output function
MOV DL, 20H ; set DL=' '
INT 21H ; print a character
MOV DL, 8H ; set DL=8H
INT 21H ; print a character
XOR DX, DX ; clear DX
DEC CL ; set CL=CL-1
JMP @INPUT ; jump to label @INPUT
@NOT_BACKSPACE: ; jump label
INC CL ; set CL=CL+1
CMP AL, 30H ; compare AL with 0
JL @ERROR ; jump to label @ERROR if AL<0
CMP AL, 39H ; compare AL with 9
JG @ERROR ; jump to label @ERROR if AL>9
AND AX, 000FH ; convert ascii to decimal code
PUSH AX ; push AX onto the STACK
MOV AX, 10 ; set AX=10
MUL BX ; set AX=AX*BX
MOV BX, AX ; set BX=AX
POP AX ; pop a value from STACK into AX
ADD BX, AX ; set BX=AX+BX
JC @ERROR
CMP CL, 5
JG @ERROR
JMP @INPUT ; jump to label @INPUT
@ERROR: ; jump label
MOV AH, 2 ; set output function
MOV DL, 7H ; set DL=7H
INT 21H ; print a character
XOR CH, CH ; clear CH
@CLEAR: ; jump label
MOV DL, 8H ; set DL=8H
INT 21H ; print a character
MOV DL, 20H ; set DL=' '
INT 21H ; print a character
MOV DL, 8H ; set DL=8H
INT 21H ; print a character
LOOP @CLEAR ; jump to label @CLEAR if CX!=0
JMP @READ ; jump to label @READ
@END_INPUT: ; jump label
CMP CH, 1 ; compare CH with 1
JNE @EXIT ; jump to label @EXIT if CH!=1
NEG BX ; negate BX
@EXIT: ; jump label
MOV AX, BX ; set AX=BX
POP DX ; pop a value from STACK into DX
POP CX ; pop a value from STACK into CX
POP BX ; pop a value from STACK into BX
RET ; return control to the calling procedure
INDEC ENDP
;****************************
;----------------------------
;****************************
OUTDEC PROC
; this procedure will display a decimal number
; input : AX
; output : none
; uses : MAIN
PUSH BX ; push BX onto the STACK
PUSH CX ; push CX onto the STACK
PUSH DX ; push DX onto the STACK
CMP AX, 0 ; compare AX with 0
JGE @START ; jump to label @START if AX>=0
PUSH AX ; push AX onto the STACK
MOV AH, 2 ; set output function
MOV DL, "-" ; set DL='-'
INT 21H ; print the character
POP AX ; pop a value from STACK into AX
NEG AX ; take 2's complement of AX
@START: ; jump label
XOR CX, CX ; clear CX
MOV BX, 10 ; set BX=10
@OUTPUT: ; loop label
XOR DX, DX ; clear DX
DIV BX ; divide AX by BX
PUSH DX ; push DX onto the STACK
INC CX ; increment CX
OR AX, AX ; take OR of Ax with AX
JNE @OUTPUT ; jump to label @OUTPUT if ZF=0
MOV AH, 2 ; set output function
@DISPLAY: ; loop label
POP DX ; pop a value from STACK to DX
OR DL, 30H ; convert decimal to ascii code
INT 21H ; print a character
LOOP @DISPLAY ; jump to label @DISPLAY if CX!=0
POP DX ; pop a value from STACK into DX
POP CX ; pop a value from STACK into CX
POP BX ; pop a value from STACK into BX
RET ; return control to the calling procedure
OUTDEC ENDP
;****************************
;----------------------------
;****************************
END MAIN
;****************************
;****************************
;----------------------------
;****************************
;****************************
3. Lalu buka Emulator
4. Kemudian Jalankan Dan berhasil
5. Kemudian buka CMD untuk mengeksekusi program, Kemudian masuk ke disk C lalu folder TASM, Masukkan perintah TASM lalu nama folder kemudian dibelakanya ketik .asm
6. Lalu ketikkan tlink, nama folder .obj
7. Kemudian ketikkan Dir nama folder lalu dibelakanya ditambah titik dan bintang
8. Kemudian ketikkan nama folder
9. Lalu masuk ke tahap pengujian, disini saya menguji apakah programnya berhasil atau tidak dan ternyata berhasil jika saya memasukkan angka 50000 detik maka disitu tertera 13 jam 53 menit 20 detik dan berhasil.
Kesimpulan
TASM adalah bahasa mesin tingkat rendah,karena itu untuk menjalankannya hanya bisa melalui windows 32 bit atau bitnya yang lebih kecil. TASM memiliki kelebihan dan kekurangan yaitu Kelebihan Bahasa Assembly, Ketika di-compile lebih kecil ukuran,Lebih efisien/hemat memori,Lebih cepat dieksekusi. Kesulitan Bahasa Assembly, Dalam melakukan suatu pekerjaan, baris program relatif lebih panjang dibanding bahasa tingkat tinggi,Relatif lebih sulit untuk dipahami terutama jika jumlah baris sudah terlalu banyak,Lebih sulit dalam melakukan pekerjaan rumit, misalnya operasi matematis, Untuk membuat program dari assembly, kita memerlukan tiga aplikasi, yaitu TASM, TLINK, RTM. Bagi yang belum memilikinya bisa mendownloadnya disini, kemudian extract file.
Link Video : https://www.youtube.com/watch?v=38P5qXS9Pc8
Link Video : https://www.youtube.com/watch?v=38P5qXS9Pc8
Tidak ada komentar:
Posting Komentar