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 / BEEHIVE / UTILITYS / SCNTODS.ARC / MACROS.LIB next >
Text File  |  1989-09-27  |  1KB  |  120 lines
  1. CLS    MACRO    AMOUNT
  2.     LD    HL,61440
  3.     LD    DE,61441
  4.     LD    BC,AMOUNT
  5.     LD    (HL),32
  6.     LDIR
  7.     ENDM
  8.  
  9. PUSHALL    MACRO
  10.     PUSH    AF
  11.     PUSH    BC
  12.     PUSH    DE
  13.     PUSH    HL
  14.     PUSH    IX
  15.     PUSH    IY
  16.     ENDM
  17.  
  18. POPALL    MACRO
  19.     POP    IY
  20.     POP    IX
  21.     POP    HL
  22.     POP    DE
  23.     POP    BC
  24.     POP    AF
  25.     ENDM
  26.  
  27. BIOS    MACRO    NUMBER
  28.     LD    HL,(1)
  29.     PUSH    DE
  30.     LD    DE,3*NUMBER
  31.     ADD    HL,DE
  32.     POP    DE
  33.     LD    IX,$+7
  34.     PUSH    IX
  35.     JP    (HL)
  36.     ENDM
  37.  
  38. PRINT2    MACRO    STR,DST,COL
  39.     PUSH    HL
  40.     PUSH    DE
  41.     PUSH    AF
  42.     LD    A,COL
  43.     LD    (COLOUR),A
  44.     PUSH    DST
  45.     POP    DE
  46.     LD    HL,STR
  47.     CALL    PRINT    
  48.     POP    AF
  49.     POP    DE
  50.     POP    HL
  51.     ENDM
  52.  
  53. PRINT3    MACRO    STR,DST,COL
  54.     LD    A,COL
  55.     LD    (COLOUR),A
  56.     LD    DE,DST
  57.     LD    HL,STR
  58.     CALL    PRINT
  59.     ENDM
  60.  
  61. DELAY    MACRO    LENGTH
  62.     PUSH    BC
  63.     PUSH    AF
  64.     LD    BC,LENGTH
  65.     DEC    BC
  66.     LD    A,B
  67.     OR    C
  68.     JR    NZ,$-3
  69.     POP    AF
  70.     POP    BC
  71.     ENDM
  72.  
  73. NO    MACRO    BUN
  74.     LD    BC,BUN
  75.     CALL    MUSIC
  76.     ENDM
  77.  
  78. NOISE    MACRO    FRE,DUR
  79.     LD    B,DUR
  80.     LD    C,FRE
  81.     CALL    MUSIC
  82.     ENDM
  83.  
  84. PRINT2    MACRO    STR,DST,COL
  85.     PUSH    HL
  86.     PUSH    DE
  87.     PUSH    AF
  88.     LD    A,COL
  89.     LD    (COLOUR),A
  90.     PUSH    DST
  91.     POP    DE
  92.     LD    HL,STR
  93.     CALL    PRINT    
  94.     POP    AF
  95.     POP    DE
  96.     POP    HL
  97.     ENDM
  98.  
  99. PRINT3    MACRO    STR,DST,COL
  100.     LD    A,COL
  101.     LD    (COLOUR),A
  102.     LD    DE,DST
  103.     LD    HL,STR
  104.     CALL    PRINT
  105.     ENDM
  106.  
  107. LDPR    MACRO    STR,DST,LEN
  108.     LD    DE,DST
  109.     LD    HL,STR
  110.     LD    BC,LEN
  111.     LDIR
  112.     ENDM    
  113.  
  114. PRI    MACRO    STR,DST
  115.      LD    DE,DST
  116.      LD    HL,STR
  117.     CALL    PRINT
  118.     ENDM
  119.  
  120.