Микропроцессорная техника: практический курс : учебное пособие для студентов Физико-технологического института, обучающихся по направлениям подготовки "Ядерная физика и технологии", "Биомедицинская инженерия"

5. Листинг подпрограммы на языке ассемблера
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ðÏÄÐÒÏÇÒÁÍÍÁ ÐÒÅÏÂÒÁÚÏ×ÁÔÅÌÑ ËÏÄÏ× SEVNSG
; ÷ÈÏÄÎÙÅ ÄÁÎÎÙÅ: (A) -- ËÏÌ-×Ï ÔÅÔÒÁÄ × ÐÏÔÏËÅ
; ÷ÙÈÏÄÎÙÅ ÄÁÎÎÙÅ: ÁÄÒÅÓÁ ÷ðä 5000H -- 50FFH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG
2100H
; îÁÞÁÌØÎÙÊ ÁÄÒÅÓ Ð/Ð
SEVNSG: PUSH
DPL
; óÏÈÒÁÎÅÎÉÅ × ÓÔÅËÅ
PUSH
DPH
;
PUSH
PSW
;
PUSH
ACC
;
XCH
A,R0
; ïÂÍÅΠ(A) É (R0)
PUSH
ACC
; óÏÈÒÁÎÅÎÉÅ R0 × ÓÔÅËÅ
MOV
DPTR,#5000H
; úÁÇÒÕÚËÁ ÕËÁÚÁÔÅÌÑ
;ðÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÅ ÌÉÎÉÊ P0.0--P0.5 ÐÏÒÔÁ P0
ORL
P0,#00111111B
;ïÖÉÄÁÎÉÅ ÓÉÇÎÁÌÁ "äÁÎÎÙÅ ÇÏÔÏ×Ù" ÎÁ ÌÉÎÉÉ P0.5
LOOP:
JNB
P1.5,$
;
MOV
A,P0
; ÷×ÏÄ ÂÁÊÔÁ ÄÁÎÎÙÈ
ANL
A,#0FH
; ÷ÙÄÅÌÅÎÉÅ ÍÌ. ÔÅÔÒÁÄÙ
LCALL CODE7
; ÷ÙÚÏ× Ð/РÐÒÅÏÂÒÁÚÏ×ÁÎÉÑ
MOVX
@DPTR,A
; òÁÚÍÅÝÅÎÉÅ ÒÅÚ-ÔÁ × ÷ðä
INC
DPTR
; éÎËÒÅÍÅÎÔ ÕËÁÚÁÔÅÌÑ
CLR
P0.4
; õÓÔ. "äÁÎÎÙÅ ÏÂÒÁÂÏÔÁÎÙ"
;ïÖÉÄÁÎÉÅ ÓÎÑÔÉÑ ÓÉÇÎÁÌÁ "äÁÎÎÙÅ ÇÏÔÏ×Ù" ÎÁ P0.5
JB
P0.5,$
;
SETB
P0.4
; óÂÒÏÓ "äÁÎÎÙÅ ÏÂÒÁÂÏÔÁÎÙ"
DJNZ
R0,LOOP
; ïÒÇÁÎÉÚÁÃÉÑ ÃÉËÌÁ
POP
ACC
; ÷ÏÓÓÔÁÎÏ×ÌÅÎÉÅ R0
MOV
R0,A
;
POP
ACC
; ÷ÏÓÓÔÁÎÏ×ÌÅÎÉÅ ÒÅÇÉÓÔÒÏ×
POP
PSW
;
POP
DPH
;
POP
DPL
;
RET
; ÷ÏÚ×ÒÁÔ ÉÚ ÏÓÎÏ×ÎÏÊ Ð/Ð
;ëÏÎÅàÏÓÎÏ×ÎÏÊ ÐÏÄÐÒÏÇÒÁÍÍÙ ÐÒÅÏÂÒÁÚÏ×ÁÔÅÌÑ ËÏÄÏ×
7
128

---

Приложение 1. Пример выполнения ИДЗ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ÷ÓÐÏÍÏÇÁÔÅÌØÎÁÑ ÐÏÄÐÒÏÇÒÁÍÍÁ ÐÒÅÏÂÒÁÚÏ×ÁÔÅÌÑ
; ËÏÄÏ× óODE7
; ÷ÈÏÄÎÙÅ ÄÁÎÎÙÅ: (A)--ÔÅÔÒÁÄÁ Ä×ÏÉÞÎÏÇÏ ËÏÄÁ
; ÷ÙÈÏÄÎÙÅ ÄÁÎÎÙÅ: (A)--ÂÁÊÔ ÓÅÍÉÓÅÇÍÅÎÔÎÏÇÏ ËÏÄÁ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CODE7: INC
A
; éÎËÒÅÍÅÎÔ ÄÁÎÎÙÈ
MOVC A,@A+PC
; ïÂÒÁÝÅÎÉÅ Ë ÔÁÂÌÉÃÅ
RET
; ÷ÏÚ×ÒÁÔ ÉÚ ÐÏÄÐÒÏÇÒÁÍÍÙ
; ôÁÂÌÉÃÁ ÇÏÔÏ×ÙÈ ÓÅÍÉÓÅÇÍÅÎÔÎÙÈ ËÏÄÏ×
TABL:
DB
00111111B
; 0
DB
00000110B
; 1
DB
01011011B
; 2
DB
01001111B
; 3
DB
01100110B
; 4
DB
01101101B
; 5
DB
01111101B
; 6
DB
00000111B
; 7
DB
01111111B
; 8
DB
01101111B
; 9
DB
01110111B
; A
DB
01111100B
; B
DB
00111001B
; C
DB
01011110B
; D
DB
01111001B
; E
DB
01110001B
; F
;ëÏÎÅà×ÓÐÏÍÏÇÁÔÅÌØÎÏÊ ÐÏÄÐÒÏÇÒÁÍÍÙ CODE7
END
;