?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     CALL LABEL3 ; LABEL3 - yes
  2.     LD A,(LABEL1) ;rdlow-ok low mem; LABEL1 - yes
  3.  
  4.     jr  1B      ;; error
  5.     jr  1F
  6.     jr  4F
  7. 1
  8.     jr  1B
  9.     jr  1F      ;; error
  10.     IFUSED LABEL1
  11. LABEL1:
  12.     DB '1'
  13.     ENDIF
  14.  
  15.     jr  2F
  16.     jr  4F
  17. 2
  18.     jr  1B
  19.     jr  2B
  20.     IFUSED LABEL2
  21. LABEL2:
  22.     DB '2'
  23.     ENDIF
  24.  
  25.     jr  3F
  26.     jr  4F
  27. 3
  28.     jr  1B
  29.     jr  3B
  30.     IFUSED LABEL3
  31. LABEL3:
  32.     DB '3'
  33.     ENDIF
  34.  
  35.     jr  4B      ;; error
  36.     jr  4F
  37. 4
  38.     jr  1B
  39.     jr  4B
  40.     jr  4F
  41.     IFUSED LABEL4
  42. LABEL4:
  43.     DB '4'
  44.     ENDIF
  45.  
  46.     jr  4B
  47.     jr  4F
  48. 4               ;; double "4" local label (according to docs this should work)
  49.     jr  1B
  50.     jr  4B
  51.     jr  4F      ;; error
  52.  
  53.     LD A,LABEL2 ; LABEL2 - yes
  54.  
  55.     call LABEL1
  56.     call LABEL2
  57.     call LABEL3
  58. ;    call LABEL4 - stay unused
  59.  
  60.     RET
  61.