Интересная програмка!! - Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM

ToKS · 11.05.2010, 23:52

Люди сделайте что б она заработала, компилирую а она ошибки выбивает, не могу понять чего ей не хватает!! Листинг программных модулей
$MOD51
Fstart equ О
Коп equ 8Ah
ADR equ 0
ORG 0
JMP START
ORG 0003h
JMP Obrab_INT0
ORG 0013h
JMP Obrab_INT1
ORG OOlBh
JMPObrab_T/Cl
ORG 0020h
; таблица сообщения
TAB_MSG:
; код символа «Г»
db 01111111b,00000001b, 00000001b, 00000001b, 00000001b
;код символа «.»
db 01000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа «T»
db 00000001b,00000001b, 0111111 lb, 00000001b, 00000001b
; код символа «Ю»
db 01111111b, 01001000b, 01111111b, 01000001b, 01111111b
; код символа «M»
db 01111111b, 00001110b, 000011000b, 00001110b, 01111111b
; код символа «E»
db 01111111b, 01001001b, 01001001b, 01001001b, 01001001b
; код символа «H»
db 01111111b, 00001000b, 00001000b, 00001000b, 01111111b
; код символа «Ь»
db 01111111b, 01001000b, 01001000b, 01001000b, 00110000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа «О»
db 00111110b, 01000001b, 01000001b, 01000001b, 00111110b
; код символа «С»
db 0111111 lb, 01000001b, 01000001b, 01000001b, 00111110b
; код символа «H»
db 01111111b, 00001000b, 00001000b, 00001000b, 01111111b
; код символа «О»
db 00111110b, 01000001b, 01000001b, 01000001b.00111110b
; код символа «В»
db 01111111b, 00001001b, 00001001b, 01001111b,01111000b
; код символа «A»
db 01111110b. 00001001b, 00001001b, 00001001b.01111110b
; код символа «H»
db 01111111b,00001000b, 00001000b, 00001000b, 01111111b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b,00000000b
; код символа «В»
db 01111111b,00001001b, 00001001b, 01001111b, 01111000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа «1»
db 00000000b, 01000100b, 01000010b, 01111111b, 01001001b
; код символа «5»
db 00000000b,01000111b, 01000101b, 01000101b, 00111001b
; код символа «6»
db 00000000b, 00111110b, 01001001b, 01001001b, 00110000b
; код символа «6»
db 00000000b,00111110b, 01001001b, 01001001b, 00110000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа «Г»
db 01111111b, 00000001b, 00000001b, 00000001b, 00000001 b
; код символа «О»
db 00111110b, 01000001b, 01000001b, 01000001b, 00111110b
; код символа «Д»
db 01100000b,00111111b, 00100001b, 00111111b, 01100000b
; код символа «У»
db 00000111b, 01001000b, 01001000b, 01001000b, 00111111b
; код символа «.»
db 01000000b,00000000b, 00000000b, 00000000b, 00000000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа « »
db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b
; код символа «Г»
db 01111111b, 00000001b, 00000001b, 00000001b, 0000000lb
ORG0100h
; Обработчик кнопки «Пуск» Obrab_INT0:
MOV Fstart,#l
MOV DPTR,# RETI
; Обработчик кнопки «Стоп» Obrab_INTl:
MOV Fstart,#0
RETI
; Обработчик кнопки таймера-счетчика 1 Obrab_T/Cl:
INC Rl RETI
Подпрограмма задержки 1мс
DEL1MS:
MOV Rl,#25 ; повторяем 25 раз LREX:MOV R2,#18

ToKS · 11.05.2010, 23:53

Продолжение!!
3 LRIN: DJNZ R2,LRIN ; 36+1 мкс на 12 МГц
DJNZ R1,LREX RET
; Подпрограмма IND_7BIT IND7BIT:
RLC A
MOV R7,#7
met: RLC A
MOV P1.5,C
CLR P1.6
SET PI.6
DJNZ R7,#7,met
RET
; Подпрограмма ZAGRUZKA ZAGRUZKA:
MOV DPTR,#ADR
MOV R7,#8
MOVC A.@DPTR+A
met5: LCALL IND_7BIT
SUBB DPTR,#5
DJNZ R7,#8,met5 RET
; Подпрограмма SHOW SHOW:
MOV DPRT,#TAB_MSG
ADD DPTR,#35
MOV ADR,DPTR
LCALL ZAGRUZKA
CLR P1.0
LCALL DEL1MS
SET P1.0
INC ADR
LCALL ZAGRUZKA
CLR P1.1
LCALL DEL 1MS
SET P 1.1
INC ADR
LCALL ZAGRUZKA
CLR P1.2
LCALL DEL IMS
SET P 1.2
INC ADR
LCALL ZAGRUZKA
CLR P1.3
LCALL DEL1MS
SET P 1.3
INC ADR
LCALL ZAGRUZKA
CLR P1.4
LCALL DEL IMS
SET P 1.4
INC ADR
LCALL ZAGRUZKA
CLR P2.0
LCALL DEL 1MS
SET P2.0
INC ADR
LCALL ZAGRUZKA
CLR P2.1
LCALL DEL IMS
SET P2.1
INC ADR
LCALL ZAGRUZKA
CLR P2.2
LCALL DELI MS
SET P2.2
INC ADR
LCALL ZAGRUZKA
CLR P2.3
LCALL DEL 1MS
SET P2.3
INC ADR
LCALL ZAGRUZKA
CLR P2.4
LCALL DEL IMS
SET P2.4
INC ADR
RET ; Подпрограмма DISPLAY DISPLAY:
MOV A,DPTR
CTNE A,Kon,Met3
MOV DPTR, #TAB_MSG Met3: LCALL SHOW
INC R2
CJNE R2,#10,Met4
ADD DPTR,#5
Met4:
RET
START:
MOV TMOD,# 00100000b
MOV IP,#00001000b
MOV IE,#10001101b
MOVTH1,#06
MOVTL1,#06
MOV TCON,#01000101b
MOV DPTR,#TAB_MSG
MOV R2,#0
Met1: MOV R1,#0 Met2:CJNE Rl,#200,Met2
MOV A,Fstart
JZ Met1
LCALL DISPLAY
JMP START
END

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Програмка	Spiderik	Паскаль, Turbo Pascal, PascalABC.NET	1	17.04.2010 09:12
програмка на массив	17aH4o	Помощь студентам	1	18.12.2009 17:42
Програмка на Delphi	Mougogblp	Помощь студентам	3	01.11.2009 13:32
програмка на Делфи	FCSM	Помощь студентам	6	29.10.2009 21:56
Нужна програмка	romanukk	Фриланс	5	19.02.2009 09:23

11.05.2010, 23:52	#1
ToKS Пользователь Регистрация: 17.05.2009 Сообщений: 30	Интересная програмка!! Люди сделайте что б она заработала, компилирую а она ошибки выбивает, не могу понять чего ей не хватает!! Листинг программных модулей $MOD51 Fstart equ О Коп equ 8Ah ADR equ 0 ORG 0 JMP START ORG 0003h JMP Obrab_INT0 ORG 0013h JMP Obrab_INT1 ORG OOlBh JMPObrab_T/Cl ORG 0020h ; таблица сообщения TAB_MSG: ; код символа «Г» db 01111111b,00000001b, 00000001b, 00000001b, 00000001b ;код символа «.» db 01000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа «T» db 00000001b,00000001b, 0111111 lb, 00000001b, 00000001b ; код символа «Ю» db 01111111b, 01001000b, 01111111b, 01000001b, 01111111b ; код символа «M» db 01111111b, 00001110b, 000011000b, 00001110b, 01111111b ; код символа «E» db 01111111b, 01001001b, 01001001b, 01001001b, 01001001b ; код символа «H» db 01111111b, 00001000b, 00001000b, 00001000b, 01111111b ; код символа «Ь» db 01111111b, 01001000b, 01001000b, 01001000b, 00110000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа «О» db 00111110b, 01000001b, 01000001b, 01000001b, 00111110b ; код символа «С» db 0111111 lb, 01000001b, 01000001b, 01000001b, 00111110b ; код символа «H» db 01111111b, 00001000b, 00001000b, 00001000b, 01111111b ; код символа «О» db 00111110b, 01000001b, 01000001b, 01000001b.00111110b ; код символа «В» db 01111111b, 00001001b, 00001001b, 01001111b,01111000b ; код символа «A» db 01111110b. 00001001b, 00001001b, 00001001b.01111110b ; код символа «H» db 01111111b,00001000b, 00001000b, 00001000b, 01111111b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b,00000000b ; код символа «В» db 01111111b,00001001b, 00001001b, 01001111b, 01111000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа «1» db 00000000b, 01000100b, 01000010b, 01111111b, 01001001b ; код символа «5» db 00000000b,01000111b, 01000101b, 01000101b, 00111001b ; код символа «6» db 00000000b, 00111110b, 01001001b, 01001001b, 00110000b ; код символа «6» db 00000000b,00111110b, 01001001b, 01001001b, 00110000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа «Г» db 01111111b, 00000001b, 00000001b, 00000001b, 00000001 b ; код символа «О» db 00111110b, 01000001b, 01000001b, 01000001b, 00111110b ; код символа «Д» db 01100000b,00111111b, 00100001b, 00111111b, 01100000b ; код символа «У» db 00000111b, 01001000b, 01001000b, 01001000b, 00111111b ; код символа «.» db 01000000b,00000000b, 00000000b, 00000000b, 00000000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа « » db 00000000b, 00000000b, 00000000b, 00000000b, 00000000b ; код символа «Г» db 01111111b, 00000001b, 00000001b, 00000001b, 0000000lb ORG0100h ; Обработчик кнопки «Пуск» Obrab_INT0: MOV Fstart,#l MOV DPTR,# RETI ; Обработчик кнопки «Стоп» Obrab_INTl: MOV Fstart,#0 RETI ; Обработчик кнопки таймера-счетчика 1 Obrab_T/Cl: INC Rl RETI Подпрограмма задержки 1мс DEL1MS: MOV Rl,#25 ; повторяем 25 раз LREX:MOV R2,#18

11.05.2010, 23:53	#2
ToKS Пользователь Регистрация: 17.05.2009 Сообщений: 30	Продолжение!! 3 LRIN: DJNZ R2,LRIN ; 36+1 мкс на 12 МГц DJNZ R1,LREX RET ; Подпрограмма IND_7BIT IND7BIT: RLC A MOV R7,#7 met: RLC A MOV P1.5,C CLR P1.6 SET PI.6 DJNZ R7,#7,met RET ; Подпрограмма ZAGRUZKA ZAGRUZKA: MOV DPTR,#ADR MOV R7,#8 MOVC A.@DPTR+A met5: LCALL IND_7BIT SUBB DPTR,#5 DJNZ R7,#8,met5 RET ; Подпрограмма SHOW SHOW: MOV DPRT,#TAB_MSG ADD DPTR,#35 MOV ADR,DPTR LCALL ZAGRUZKA CLR P1.0 LCALL DEL1MS SET P1.0 INC ADR LCALL ZAGRUZKA CLR P1.1 LCALL DEL 1MS SET P 1.1 INC ADR LCALL ZAGRUZKA CLR P1.2 LCALL DEL IMS SET P 1.2 INC ADR LCALL ZAGRUZKA CLR P1.3 LCALL DEL1MS SET P 1.3 INC ADR LCALL ZAGRUZKA CLR P1.4 LCALL DEL IMS SET P 1.4 INC ADR LCALL ZAGRUZKA CLR P2.0 LCALL DEL 1MS SET P2.0 INC ADR LCALL ZAGRUZKA CLR P2.1 LCALL DEL IMS SET P2.1 INC ADR LCALL ZAGRUZKA CLR P2.2 LCALL DELI MS SET P2.2 INC ADR LCALL ZAGRUZKA CLR P2.3 LCALL DEL 1MS SET P2.3 INC ADR LCALL ZAGRUZKA CLR P2.4 LCALL DEL IMS SET P2.4 INC ADR RET ; Подпрограмма DISPLAY DISPLAY: MOV A,DPTR CTNE A,Kon,Met3 MOV DPTR, #TAB_MSG Met3: LCALL SHOW INC R2 CJNE R2,#10,Met4 ADD DPTR,#5 Met4: RET START: MOV TMOD,# 00100000b MOV IP,#00001000b MOV IE,#10001101b MOVTH1,#06 MOVTL1,#06 MOV TCON,#01000101b MOV DPTR,#TAB_MSG MOV R2,#0 Met1: MOV R1,#0 Met2:CJNE Rl,#200,Met2 MOV A,Fstart JZ Met1 LCALL DISPLAY JMP START END