Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     MACRO FORG addr?
  2.          ; add padding + display warning
  3.          IF $ > addr?
  4.            ; no padding
  5.            DISPLAY /L, "Warning! PADORG failed! ", $, " is more than ", addr?
  6.          ELSE
  7.            ; add padding
  8.            BLOCK addr?-$
  9.          ENDIF
  10.          ORG addr?
  11.     ENDM
  12.  
  13.         OUTPUT  "Issue90_FORG_replacement.bin"
  14.         SIZE    $140
  15.         DEVICE  ZXSPECTRUM48
  16. ;--------------------------------
  17.         ORG     $0000
  18.  
  19.         JP  START
  20. ;--------------------------------
  21.  
  22.         FORG 0x0066
  23.  
  24.         JP  START
  25. ;--------------------------------
  26.         FORG 0x0100
  27.  
  28. START:  DI
  29.         LD  a, 0x10
  30.         LD  (0x4010), a
  31.  
  32.         LD  a, (0x4010)
  33.         OUT (54H), a
  34.  
  35.         HALT
  36. ;--------------------------------
  37.  
  38.         FORG 0x40   ; verify the warning message works
  39.