;*****************************************************************
;* This stationery serves as the framework for a                 *
;* user application (single file, absolute assembly application) *
;* For a more comprehensive program that                         *
;* demonstrates the more advanced functionality of this          *
;* processor, please see the demonstration applications          *
;* located in the examples subdirectory of the                   *
;* Freescale CodeWarrior for the HC12 Program directory          *
;*****************************************************************

; export symbols

            ABSENTRY Port1        ; for absolute assembly: mark this as application entry point


ROMStart    EQU  $E000  ; absolute address to place my code/constant data
RAMStart    EQU  $0400
StartVector EQU  $FFFE
; variable/data section

;Àäðåñ ðåãèñòðà äàííûõ ïîðòà B.
PRTB EQU $01
;Àäðåñ ðåãèñòðà íàïðàâëåíèÿ ïåðåäà÷è äàííûõ ÷åðåç ïîðò B.
DDRB EQU $03
;Àäðåñ ðåãèñòðà êîíòðîëÿ ïîäòÿãèâàþùèõ ðåçèñòîðîâ âûâîäèìûõ íà ïîðò B.
PUCR EQU $0C

; code section
          ORG   ROMStart


Port1
  MOVB #$F0,DDRB
  BSET PUCR,$02

Round
; Çàãðóçêà â àêêóìóëÿòîð A çàäàííîãî çíà÷åíèÿ.
; Âçÿòû çíà÷åíèÿ â îáðàòíîì êîäå, ò.ê. äëÿ ñâåòîäèîäîâ äàííîãî ÌÊ
; àêòèâíûì óðîâíåì ÿâëÿåòñÿ ëîãè÷åñêèé íîëü
; (ñõåìîòåõíè÷åñêàÿ îñîáåííîñòü).

  LDAA #$A0
; Çàãðóçêà â ïîðò  çíà÷åíèÿ àêêóìóëÿòîðà À.
  STAA PRTB
; Âîçâðàùåíèå â ïðîãðàììó.
; Ò.ê. öèêë áåñêîíå÷íûé, òî â ïîðò B áóäóò
; ïîñòîÿííî çàïèñûâàòüñÿ çíà÷åíèÿ ìèêðîêîíòðîëëåðîì.
  JMP Round
; Àäðåñ çàãðóçêè èñïîëíÿåìîé ïðîãðàììû.
  ORG StartVector
; Òî÷êà íà÷àëà èñïîëíÿåìîé ïðîãðàììû.
  DC.W Port1