Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.         cpu     z80
  2.         page    0
  3.  
  4.         org     1000h
  5.         jr      $+129           ; OK
  6.         jr      $-126           ; OK
  7.  
  8.         expect  1370,1370
  9.         jr      $+130           ; too far
  10.         jr      $-127           ; too far
  11.         endexpect
  12.  
  13.         expect  25,25
  14.         jp      $+129           ; JR possible
  15.         jp      $-126           ; JR possible
  16.         endexpect
  17.  
  18.         jp      $+130           ; JR not possible
  19.         jp      $-127           ; JR not possible
  20.  
  21.         expect  25,25,25,25
  22.         jp      z,$+129         ; JR possible
  23.         jp      nz,$+129        ; JR possible
  24.         jp      c,$+129         ; JR possible
  25.         jp      nc,$+129        ; JR possible
  26.         endexpect
  27.  
  28.         jp      pe,$+129        ; JR not possible (wrong condition)
  29.         jp      po,$+129        ; JR not possible (wrong condition)
  30.         jp      p,$+129         ; JR not possible (wrong condition)
  31.         jp      m,$+129         ; JR not possible (wrong condition)
  32.  
  33.         jp      skip
  34.         rept    130
  35.         nop
  36.         endm
  37. skip:   nop
  38.  
  39.         cpu     z380
  40.         extmode on
  41.         phase   80000000h
  42.  
  43.         jr      $+129           ; OK
  44.         jr      $-126           ; OK
  45.         jr      $+130           ; OK for Z380 (16 bit displacement)
  46.         jr      $-127           ; OK for Z380 (16 bit displacement)
  47.         jr      $+8003h         ; OK for Z380 (just 16 bit displacement)
  48.         jr      $-7ffch         ; OK for Z380 (just 16 bit displacement)
  49.         jr      $+8004h         ; OK for Z380 (24 bit displacement)
  50.         jr      $-7ffdh         ; OK for Z380 (24 bit displacement)
  51.         jr      $+800004h       ; OK for Z380 (just 24 bit displacement)
  52.         jr      $-7ffffbh       ; OK for Z380 (just 24 bit displacement)
  53.         expect  1370,1370
  54.         jr      $+800005h       ; too far
  55.         jr      $-7ffffch       ; too far
  56.         endexpect
  57.  
  58.         expect  25,25
  59.         jp      $+800004h       ; JR possible
  60.         jp      $-7ffffbh       ; JR possible
  61.         endexpect
  62.  
  63.         jp      $+800005h       ; JR not possible
  64.         jp      $-7ffffch       ; JR not possible
  65.  
  66.         expect  25,25,25,25
  67.         jp      z,$+800004h     ; JR possible
  68.         jp      nz,$+800004h    ; JR possible
  69.         jp      c,$+800004h     ; JR possible
  70.         jp      nc,$+800004h    ; JR possible
  71.         endexpect
  72.  
  73.         jp      pe,$+800004h    ; JR not possible (wrong condition)
  74.         jp      po,$+800004h    ; JR not possible (wrong condition)
  75.         jp      p,$+800004h     ; JR not possible (wrong condition)
  76.         jp      m,$+800004h     ; JR not possible (wrong condition)
  77.