The TM thunder is found in the power plant.
Code for An Assembly Language Program to find 2's Complement of given binary number in Assembly LanguageData Segment num db 00000010B Data Ends Code Segment Assume cs:code, ds:data Begin: mov ax, data mov ds, ax mov es, ax mov ah, 0000h mov al, num NOT al mov bl, al adc al, 00000001B mov bl, al Exit: mov ax, 4c00h int 21h Code Ends End Begin
Lxih, 2200 mov c,m inxh mov a,m inxh cmp m jc l1 mov a,m dcr c jnz l2 inhx mov m,a hlt
.STACK 100 .DATA CWR EQU 0FFC6 H PORTA EQU 0FFC0 H PORTB EQU 0FFC2 H PORTC EQU 0FFC4 H .CODE START: MOV AX,@DATA MOV DS,AX MOV AL,80H MOV DX,CWR OUT DX,AL MOV AL,F3H MOV DX,PORTC OUT DX,AL MOV AL,FFH MOV DX,PORTA OUT DX,AL MOV AL,FFH MOV DX,PORTB OUT DX,AL MOV CL,03H CALL DELAY TOP: MOV AL,EEH MOV DX,PORTA OUT DX,AL MOV AL,EEH MOV DX,PORTB OUT DX,AL MOV CL,02H CALL DELAY MOV AL,FCH MOV DX,PORTC OUT DX,AL MOV AL,7DH MOV DX,PORTA OUT DX,AL MOV AL,57H MOV DX,PORTB OUT DX,AL MOV CL,15H CALL DELAY MOV AL,E7H MOV DX,PORTB OUT DX,AL MOV AL,FDH MOV DX,PORTA OUT DX,AL MOV AL,EDH MOV DX,PORTA OUT DX,AL MOV CL,02H CALL DELAY MOV AL,F7H MOV DX,PORTB OUT DX,AL MOV AL,F0H MOV DX,PORTC OUT DX,AL MOV AL,F1H MOV DX,PORTA OUT DX,AL MOV CL,15H CALL DELAY MOV AL,FBH MOV DX,PORTA OUT DX,AL MOV AL,FBH MOV DX,PORTB OUT DX,AL MOV AL,50H MOV DX,PORTC OUT DX,AL MOV CL,15H CALL DELAY MOV AL,FEH MOV DX,PORTA OUT DX,AL MOV AL,FEH MOV DX,PORTB OUT DX,AL MOV CL,03H CALL DELAY MOV AL,FFH MOV DX,PORTA OUT DX,AL MOV AL,AFH MOV DX,PORTC OUT DX,AL MOV AL,EEH MOV DX,PORTA OUT DX,AL MOV AL,EEH MOV DX,PORTB OUT DX,AL MOV CL,02H CALL DELAY MOV AL,BFH MOV DX,PORTA OUT DX,AL MOV AL,BFH MOV DX,PORTB OUT DX,AL MOV CL,15H CALL DELAY JMP TOP DELAY: MOV BX,10H D1: MOV CX,0FFFFH D2: LOOP D2 DEC BX JNZ D1 INT 03H END START
.model small .stack .data m db 'the no is odd $' m1 db 'the no is even $' a db 04h b db 02h .code mov ax,@data mov ds,ax mov ah,0 mov al,a mov bl,b div bl cmp ah,00h je l1 mov dx,offset m jmp l l1: mov dx,offset m1 jmp l l: mov ah,09 int 21h mov ah,4ch int 21h end
This is my program, and it works with all no.s except multiples of 2. org 100h MOV CX,0000H MOV DS,CX MOV SS,CX MOV SI,5000H MOV DI,5002H MOV [ DS:SI ],10H MOV [ DS:DI ],20H MOV SP,600FH MOV BX,[ DS:SI ] CMP BX,[ DS:DI ] JZ E1 JC SMALL THIK: MOV BX,0001H OK: MOV AX,[ DS:SI ] MOV DX,0000H DIV BX CMP DX,0000H JZ L1 L2: INC BX CMP [ DS:DI ],BX JC HCF JMP OK SMALL: MOV AX,[ DS:DI ] MOV [ DS:DI ],BX MOV [ DS:SI ],AX JMP THIK L1: MOV AX,[ DS:DI ] DIV BX CMP DX,0000H JNZ L2 PUSH BX INC CX JMP L2 HCF: MOV AX,0001H AGAIN: POP BX MUL BX DEC CX JNZ AGAIN LCM: MOV BX,AX MOV AX,[ DS:SI ] MUL [ DS:DI ] DIV BX E1 : INC DI INC DI MOV [ DS:DI ],AX ret
hi frenz here is an ALP on fibbonacci series...... source code: mov si,2000(2000 is a address location of si register) mov cx,05 (cx is a count register for how many values we have to given) mov al,00 (initially we have 2 initialize al register at starting point....) mov [si],al mov bl,01 inc si mov [si],bl add al,bl mov dl,al mov al,bl mov bl,al inc si mov [si,dl dec cx jnz (address of the location add al,bl jump) hlt
org 100h .data str1 db "Computer" str2 db "computer" mes1 db "string are same $" mes2 db "string are different $" .code assume cs:code,ds:data start: mov ax,@data mov ds,ax mov es,ax mov si,offset str1 mov di,offset str2 cld mov cx,8 repe cmpsb mov ah,9 jz skip lea dx,mes2 jmp over skip: lea dx,mes1 over: int 21h mov ax,4c00h int 21h end start ret
Code segment assume cs:code mov si,1500h mov di,1600h mov ax,[si] mov bx,[si+2] add ax,bx mov [di],ax mov [di+2],dx mov ah,4ch int 21h code ends end
The root 'mov' means move.
Pony-Mov - 2011 Swag-Mov 1-9 was released on: USA: 20 February 2013
Pony-Mov - 2011 Party-Mov 1-6 was released on: USA: 26 June 2012
Pony-Mov - 2011 Shed-Mov 1-3 was released on: USA: 3 February 2012