Subversion Repositories pentevo

Rev

Rev 309 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2.                 RELAXED ON
  3.                 CPU Z80UNDOC
  4.  
  5. DZ              MACRO DEFZ
  6.                 DB DEFZ,0
  7.                 ENDM
  8.  
  9. DC              MACRO DEFC
  10.                 IF STRLEN(DEFC)>1
  11.                 DB SUBSTR(DEFC,0,STRLEN(DEFC)-1)
  12.                 ENDIF
  13.                 IF STRLEN(DEFC)>0
  14.                 DB CHARFROMSTR(DEFC,STRLEN(DEFC)-1)|80H
  15.                 ENDIF
  16.                 ENDM
  17.  
  18. DUPL            MACRO LEN,FILL
  19. DUPL:
  20. $$N             EQU (LEN) / 1024
  21. $$M             EQU (LEN) # 1024
  22.                 REPT $$N
  23.                 DB 1024 DUP(FILL)
  24.                 ENDM
  25.                 IF $$M <> 0
  26.                 DB $$M DUP(FILL)
  27.                 ENDIF
  28.                 ENDM
  29.  
  30. HIGH            FUNCTION X,((X >> 8) & 0X0FF)
  31. LOW             FUNCTION X,(X & 0X0FF)
  32.