Subversion Repositories z80control

                ;
                MACLIB    Z80
                ;
 0000                     ORG       0
                ;
 0000 C37200    START     JMP       STARTU
                          ;
 0003 FF                  DB        0FFH
 0004 AA00                DW        (CHPEND-4)
 0006 8C0C                DW        3212
                ;
 0008 01        CHIP1ID   DB        1         ;CHIP I.D. NUMBER
                ;
 0009 00                  NOP
 000A 00                  NOP
 000B 00                  NOP
 000C 00                  NOP
 000D 00                  NOP
 000E 00                  NOP
 000F 00                  NOP
 0010 00                  NOP
 0011 00                  NOP
 0012 00                  NOP
 0013 00                  NOP
 0014 00                  NOP
 0015 00                  NOP
 0016 00                  NOP
 0017 00                  NOP
 0018 00                  NOP
 0019 00                  NOP
 001A 00                  NOP
 001B 00                  NOP
 001C 00                  NOP
 001D 00                  NOP
 001E 00                  NOP
 001F 00                  NOP
 0020 00                  NOP
 0021 00                  NOP
 0022 00                  NOP
 0023 00                  NOP
 0024 00                  NOP
 0025 C37200              JMP       SFTSTART0
                ;
                ;
 0028 00                  NOP
 0029 00                  NOP
 002A 00                  NOP
 002B 00                  NOP
 002C 00                  NOP
 002D 00                  NOP
 002E 00                  NOP
 002F 00                  NOP
 0030 00                  NOP
 0031 00                  NOP
 0032 00                  NOP
 0033 00                  NOP
 0034 00                 NOP
 0035 00                  NOP
 0036 00                  NOP
 0037 00                  NOP
 0038 00                  NOP
 0039 00                  NOP
 003A 00                  NOP
 003B 00                  NOP
 003C 00                  NOP
 003D C37200              JMP       SFTSTART2
                ;
                ;
 0040 00                  NOP
 0041 00                  NOP
 0042 00                  NOP
 0043 00                  NOP
 0044 00                  NOP
 0045 00                  NOP
 0046 00                  NOP
 0047 00                  NOP
 0048 00                  NOP
 0049 00                  NOP
 004A 00                  NOP
 004B 00                  NOP
                IBMVECT
 004C 9A00                DW        COMMAIN    ;WAS CRTINP    ;ARECEIVE
                ;
                ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                ;
                ;         NON MASKABLE INT.
                ;
 0066                     ORG       66H       ;TRAP
                ;
 0066 C39000              JMP       POWERF
                ;
                ;******************************
                ;
 0072                     ORG       72H
                ;
                
                SFTSTART0
                SFTSTART2
                ;
                ;    POWER UP START UP
                ;
                ; @ @ @ USED TO TEST COMM @ @ @
                ;
                STARTU
 0072 F3                  DI
                
 0073 31EADF              LXI       SP,0DFEAH
                
                          IM2                 ; SET Z80 INT MODE
 0076+ED5E              DB      0EDH,5EH ;
                
 0078 010000              LXI       B,0
                MAINLOOP
 007B FB                  EI
                
 007C CDA000              CALL      DELAY
 007F CDA000              CALL      DELAY
 0082 CDA000              CALL      DELAY
                
                
 0085 79                  MOV       A,C
 0086 0C                  INR       C
                
 0087 D310                OUT       10H                 ; HEX DISPLAY 0,1
                
 0089 D324                OUT       024H                ; COMPORT
                
 008B D302                OUT       002H                ; LEDR
                
 008D C37B00              JMP       MAINLOOP
                
                ;
                ;
 0090 F5        POWERF    PUSH      PSW       ;+1  NMSK INT 60 TIMES A SEC
 0091 C5                  PUSH      B         ;+2
 0092 D5                  PUSH      D         ;+3
 0093 E5                  PUSH      H         ;+4
                ;
 0094 E1                  POP       H
 0095 D1                  POP       D
 0096 C1                  POP       B
 0097 F1                  POP       PSW
                          RETN
 0098+ED45              DB      0EDH,45H ;RETN
                ;
                
                
                ;4CH
                COMMAIN
 009A DB24                IN        24H       ; COMMPORT
 009C D311                OUT       11H       ; HEX DISPLAY
 009E FB                  EI
 009F C9                  RET
                
                
                
 00A0 C5        DELAY     PUSH      B
 00A1 010040              LXI       B,4000H
                DELLOP
 00A4 0D                  DCR       C
 00A5 C2A400              JNZ       DELLOP
 00A8 05                  DCR       B
 00A9 C2A400              JNZ       DELLOP
 00AC C1                  POP       B
 00AD C9                  RET
                
 00AE FFFF      CHPEND    DW        0FFFFH
                ;
 00B0                    END       START