ASM80 :F1:INITL1.ASM


ISIS-II 8080/8085 MACRO ASSEMBLER, V2.0         MODULE   PAGE    1


  LOC  OBJ         SEQ         SOURCE STATEMENT

                      1 ;       IO PORT DEFINITIONS
  00F1                2 SR2BR   EQU     0F1H
  00F3                3 SR2MD   EQU     0F3H;   MODE SET PORT
                      4 ;
                      5 ;
                      6 ;       CONSTANTS FOR BAUD RATE GENERATOR
  0040                7 B1200   EQU     064
  0076                8 CNTMD   EQU     076H
                      9 ;
                     10 ;
                     11 ;       CONSTANTS FOR IODEF
                     12 ;
  0006               13 DEVCOD  EQU     06H;    CODE FOR AUX LINE PRINTER
  FCCA               14 SRSRV   EQU     0FCCAH; ADDRESS OF SERVICE ROUTINE IN ROM MONITOR
                     15 ;                       FOR SERIAL PORT 2 IN MDS SERIES II
                     16 ;                       MAY CHANGE IF MONITOR REV IS NOT V1.2 OR
                     17 ;                       ON MDS800
                     18 ;
                     19 ;
                     20 ;       ISIS CONSTANTS
                     21 ;
  0009               22 XITCMD  EQU     09H;    EXIT COMMAND TO ISIS
                     23 ;
                     24         EXTRN   ISIS,IODEF
                     25 ;
                     26 ;
                     27 ;
                     28         CSEG
                     29 ;
  0000 3E76          30 START:  MVI     A,CNTMD
  0002 D3F3          31         OUT     SR2MD
  0004 3E40          32         MVI     A,LOW B1200
  0006 D3F1          33         OUT     SR2BR
  0008 3E00          34         MVI     A,HIGH B1200
  000A D3F1          35         OUT     SR2BR
  000C 0E06          36         MVI     C,DEVCOD
  000E 11CAFC        37         LXI     D,SRSRV
  0011 CD0000   E    38         CALL    IODEF
  0014 010900        39         LXI     B,XITCMD
  0017 CD0000   E    40         CALL    ISIS
                     41 ;
  0000          C    42         END     START

PUBLIC SYMBOLS


EXTERNAL SYMBOLS
IODEF  E 0000    ISIS   E 0000    

USER SYMBOLS
B1200  A 0040    CNTMD  A 0076    DEVCOD A 0006    IODEF  E 0000    ISIS   E 0000    SR2BR  A 00F1    SR2MD  A 00F3    
SRSRV  A FCCA    START  C 0000    XITCMD A 0009    

ASSEMBLY COMPLETE,  NO ERRORS