?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ; test warnings about DISP and ORG inside DISP block
  2.  
  3.     ORG     $8000
  4.     DISP    $C000
  5.  
  6. l1:     scf
  7.         DISP    $1234, 4    ; warning about being ignored, because DISP inside DISP
  8. l2:     nop
  9.         ASSERT $C001 == l2  ; not $1234
  10.  
  11.         ORG     $E002       ; warning: only virtual address being modified inside DISP
  12. l3:     ccf
  13.         ORG     $F003       ; suppress: displacedorg-ok
  14. l4:     rra
  15.  
  16.     ENT
  17.     cpl
  18.  
  19.     DISP    $CCCC           ; leave DISP open to test next pass behaviour (should auto-end)
  20.