?login_element?

Subversion Repositories NedoOS

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.     ; default without device will go outside into 0x10000+ address realm (with warnings)
  2.     DEVICE NONE
  3.     ORG $FFFF
  4. ta1 scf
  5. tb1 jr tb1
  6. tc1 jr tc1
  7.     call tc1
  8.  
  9.     ORG $FFFF
  10. ta2 ld a,'7'    ; will reset warning-displayed flag => warnings again
  11. tb2 jr tb2
  12. tc2 jr tc2
  13.     call tc2
  14.  
  15.     ; default with device will produce error (and leak into 0x10000+ address realm)
  16.     DEVICE ZXSPECTRUM48
  17.     ORG $FFFF
  18. ta3 scf
  19. tb3 jr tb3      ; machine code is written only to OUTPUT, not to device-memory (SAVEBIN)
  20. tc3 jr tc3
  21.     call tc3
  22.  
  23.     ORG $FFFF
  24. ta4 ld a,'8'
  25. tb4 jr tb4
  26. tc4 jr tc4
  27.     call tc4
  28.  
  29.     ; produce the same machine code at $8000 (recommended way how to FFFF->0000 wrap)
  30.     DEVICE NONE
  31.     ORG $8000
  32. binStart5
  33.     DISP $FFFF
  34. ta5 scf
  35. tb5 jr tb5          ; the "tb5" label will equal 0x10000 since v1.15.0 (was 0x0000 before)
  36. tc5 jr tc5
  37.     call tc5
  38.  
  39.     ORG $FFFF       ; displacedorg-ok ; while already inside DISP<->ENT block, use ORG for further changes
  40. ta6 ld a,'8'
  41. tb6 jr tb6
  42. tc6 jr tc6
  43.     call tc6
  44.     ENT
  45. binEnd6
  46.  
  47.     ; machine code at $8000 and also into device memory (SAVEBIN/SAVETAP ready)
  48.     DEVICE ZXSPECTRUM48
  49. binStart7
  50.     DISP $FFFF
  51. ta7 scf
  52. tb7 jr tb7
  53. tc7 jr tc7
  54.     call tc7
  55.  
  56.     ORG $FFFF       ; displacedorg-ok
  57. ta8 ld a,'8'
  58. tb8 jr tb8
  59. tc8 jr tc8
  60.     call tc8
  61.     ENT
  62. binEnd8
  63.