?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ORG $100            ; by default listing is ON (full listing)
  2.     DZ  "^ ORG"
  3.     scf
  4.     OPT push listmc     ; remember current state, switch listing to machine-code-only
  5.     ORG $200            ; this should be omitted from listing
  6.     DZ  "NO ORG1"
  7.     ccf
  8.     OPT pop             ; restoring original state
  9.     ORG $300
  10.     DZ  "^ ORG"
  11.     daa
  12.     OPT listmc          ; (there is no explicit way to turn "mc" mode off, only pop/reset!)
  13.     ORG $400            ; this should be omitted from listing
  14.     DZ  "NO ORG2"
  15.     cpl
  16.     OPT reset           ; reset to default state
  17.     ORG $500            ; by default listing is ON (full listing)
  18.     DZ  "^ ORG"
  19.     rra
  20.  
  21.     ; nested listing adjusting by suggested push+pop technique
  22.     OPT push listmc     ; switch MC listing twice
  23.     OPT push listmc
  24.     ORG $600            ; this should be omitted from listing
  25.     DZ  "NO ORG3"
  26.     rla
  27.     OPT push listoff    ; switch listing completely off temporarily
  28.     ORG $700
  29.     DZ "completely unlisted"
  30.     nop
  31.     OPT pop
  32.     ORG $800            ; this should be omitted from listing
  33.     DZ  "NO ORG4"
  34.     rrca
  35.     OPT pop
  36.     ORG $900            ; this should be omitted from listing
  37.     DZ  "NO ORG5"
  38.     rrca
  39.     OPT pop
  40.     ORG $A00            ; restored to full listing
  41.     DZ  "^ ORG"
  42.     rlca
  43.