helloh.lst

关于8086的软核fpga代码

    1                             ;***************************************************************
    2                             ; Test CALL Instructions
    3                             ;
    4                             ; version 0.1
    5                             ;***************************************************************
    6                             ;MAX_MEMORY EQU     128                         ; Available memory in KByte, see ADDR_WIDTH 
                                  generic in MemBlock
    7 = : 000A                    LF          EQU     0Ah
    8 = : 000D                    CR          EQU     0Dh
    9                             
   10                             ; PIO, 0x398-0x39F
   11 = : 0398                    PIO                     EQU             0398h
   12                             
   13                             ; UART settings, COM1
   14 = : 03F8                    COM1        EQU     03F8h
   15 = : 02F8                    COM2        EQU     02F8h
   16 = : 03F8                    COMPORT         EQU             COM1
   17                             
   18 = : 0000                    DATAREG     EQU     0
   19 = : 0001                    STATUS      EQU     1
   20 = : 0002                    DIVIDER     EQU     2
   21                             
   22 = : 0002                    TX_EMPTY    EQU     02
   23 = : 0001                    RX_AVAIL    EQU     01
   24 = : 0004                    FRAME_ERR   EQU     04
   25                             
   26                                             org     0400h                   ; result in .com start IP=0100
   27                             
   28 0400  8C C8                                 MOV             AX,CS
   29 0402  8E D8                                 MOV             DS,AX
   30 0404  8E C0                                 MOV             ES,AX
   31                             
   32                             ;------------------------------------------------------------------------------------
   33                             ; Transmit character in AL
   34                             ; AX Changed
   35                             ;------------------------------------------------------------------------------------
   36 0406  BA F9 03              AGAIN:  MOV     DX,COMPORT+STATUS
   37 0409  EC                    WAITTX: IN      AL,DX                           ; read status
   38 040A  24 02                         AND     AL,TX_EMPTY                     ; Transmit Register Empty?
   39 040C  74 FB                         JZ      WAITTX                          ; no, wait
   40 040E  BA F8 03                      MOV     DX,COMPORT+DATAREG                ; point to data port
   41 0411  B0 48                         MOV             AL,'H'
   42 0413  EE                            OUT     DX,AL
   43                             
   44 0414  EB F0                                 JMP             AGAIN