home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / JSAGE / ZSUS / PROGPACK / ZXLATE14.LBR / ZXTST2.AZM / ZXTST2.ASM
Assembly Source File  |  2000-06-30  |  2KB  |  138 lines
  1.      title    test z80.lib macro extensions
  2.  
  3. fcbfn    equ    fcb+1
  4. label:    db    3fh
  5.  
  6. labela    set    30    ; V 1.3
  7. labela    dl    25    ; V 1.3
  8.  
  9. LABELS:    LXIX    0040H
  10.     Lxiy    005ch
  11.  
  12. LABELX::LDX    A,RTCEN
  13. LABELY:: LDX    A,RTCEN
  14. LABELZ::    LDX    A,RTCEN
  15.     ldy    a,fcbfn
  16.  
  17. .comment ~
  18. This is an example of the M80 comment directive.
  19. It should allow comments of this type to be inserted anywhere
  20. in the source code and to be terminated by ~
  21.  
  22.     ldai ! ldar ! stai ! star
  23.  
  24.     mvix    20h,rtcen
  25.     
  26.     ldai
  27.     ldar
  28.     stai
  29.     star
  30.  
  31.     bit    7,a
  32.     bit    7,B
  33.     setb    7,a
  34.     res    7,b
  35.  
  36.     bitx    7,rtclk
  37.     bity    7,rtcyr
  38.     setx    7,fcbfn
  39.     resx    7,fcbfn
  40.  
  41.     IN    5    ; V 1.3
  42.     in    port
  43.     inp    d
  44.     INP    D    ; V 1.3
  45.     out    5
  46.     out    port
  47.     outp    e    ; V 1.3
  48.     OUTP    D    ; V 1.3
  49.  
  50.     rlcr    a
  51.     ralr    b
  52.     rrcr    c
  53.     rarr    d
  54.     slar    e
  55.     srar    h
  56.     srlr    h
  57.  
  58.     inxix
  59.     dcxix
  60.     pushix
  61.     pushiy
  62.     popix
  63.     popiy
  64.  
  65.     pcix
  66.     pciy        ; V 1.3
  67.     PCIX        ; V 1.3
  68.  
  69.     EXAF
  70.     exaf        ; V 1.3
  71.  
  72.     XTIX        ; V 1.3
  73.     xtiy        ; V 1.3
  74.  
  75.     dadc    d
  76.     dadc    b
  77.     dsbc    b
  78.     dsbc    d
  79.     
  80.     lbcd    work
  81.     lded    work
  82.     lspd    work
  83.  
  84.     sbcd    work        
  85.     sded    work
  86.     sixd    work
  87.     siyd    work
  88.  
  89.     jr    label
  90.     jmpr    label    ; V 1.3
  91.     jrc    label
  92.     jrnc    label
  93.     jrz    label
  94.     jrnz    label
  95.     djnz    label
  96.  
  97.     addx    rtcsec
  98.     addy    rtcsec
  99.     adcx    rtcsec
  100.     adcy    rtcsec
  101.     subx    rtcsec
  102.     sbcx    rtcsec
  103.     andx    rtcsec
  104.     xorx    rtcsec
  105.     orx    rtcsec
  106.     cmpx    rtcsec
  107.     inrx    rtcsec
  108.     dcrx    rtcsec
  109.     rlcx    rtcyr
  110.  
  111.     cci
  112.     ccir
  113.     ccd
  114.     ccdr
  115.     neg
  116.     im0
  117.     IM1
  118.     IM2
  119.     ini
  120.     inir
  121.     ind
  122.     indr
  123.     ldi
  124.     ldir
  125.     ldd
  126.     lddr    
  127.     outi
  128.     outir
  129.     outd
  130.     outdr
  131.     reti
  132.     retn
  133.     rld
  134.     rrd
  135.  
  136. work:    dw    0000
  137.     end
  138.