Subversion Repositories pentevo

Rev

Rev 244 | Rev 501 | 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. SUM_HOB         MACRO STR,AA,BB,CC
  19.                 DB STR
  20.                 DW AA
  21.                 DW BB
  22.                 DW CC
  23. $$I := 0
  24. $$S := 0
  25.                 REPT 9
  26. $$N := CHARFROMSTR (STR,STRLEN(STR)+$$S-9)
  27. $$I := $$I+$$N+($$N*256)
  28. $$S := $$S+1
  29.                 ENDM
  30. $$I := ($$I+(AA&0XFF)+((AA&0XFF)*256)+(AA>>8)+((AA>>8)*256))&0XFFFF
  31. $$I := ($$I+(BB&0XFF)+((BB&0XFF)*256)+(BB>>8)+((BB>>8)*256))&0XFFFF
  32. $$I := ($$I+(CC&0XFF)+((CC&0XFF)*256)+(CC>>8)+((CC>>8)*256))&0XFFFF
  33. $$I := ($$I+105)&0XFFFF
  34.                 DW $$I
  35.                 ENDM
  36.  
  37. DUPL            MACRO LEN,FILL
  38. DUPL:
  39. $$N             EQU (LEN) / 1024
  40. $$M             EQU (LEN) # 1024
  41.                 REPT $$N
  42.                 DB 1024 DUP(FILL)
  43.                 ENDM
  44.                 IF $$M <> 0
  45.                 DB $$M DUP(FILL)
  46.                 ENDIF
  47.                 ENDM
  48.  
  49. HIGH            FUNCTION X,((X >> 8) & 0XFF)
  50. LOW             FUNCTION X,(X & 0XFF)
  51.