?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ORG $8000       ;; uncut align blocks
  2.     ALIGN 4
  3.     DB  1
  4.     ALIGN 4
  5.     DB  2, 3
  6.     ALIGN 4
  7.     DB  4, 5, 6
  8.     ALIGN 4
  9.     DB  7, 8, 9, 10
  10.     ALIGN 4
  11.  
  12.     ORG $8100       ;; cut to 3 and "..." align blocks
  13.     ALIGN 16
  14.     DB  1
  15.     ALIGN 16
  16.     DB  2, 3
  17.     ALIGN 16
  18.     DB  4, 5, 6
  19.     ALIGN 16
  20.     DB  7, 8, 9, 10
  21.     ALIGN 16
  22.  
  23.     ORG $8200       ;; some should fit fully, some should be cut
  24.     ALIGN 8
  25.     DB   1,  2,  3
  26.     ALIGN 8
  27.     DB   4,  5,  6,  7
  28.     ALIGN 8
  29.     DB   8,  9, 10, 11, 12
  30.     ALIGN 8
  31.     DB  13, 14, 15, 16, 17, 18
  32.     ALIGN 8
  33.  
  34.     ORG $8300       ;; same as $8200 case, crammed into single source line
  35.     ALIGN 8:DB 1,2,3:ALIGN 8:DB 4,5,6,7:ALIGN 8:DB 8,9,10,11,12:ALIGN 8:DB 13,14,15,16,17,18:ALIGN 8
  36.  
  37.     ORG $9000       ;; BLOCK emit
  38.     BLOCK   1, 1
  39.     BLOCK   2, 2
  40.     BLOCK   3, 3
  41.     BLOCK   4, 4
  42.     BLOCK   5, 5
  43.     BLOCK   6, 6
  44.     BLOCK   7, 7
  45.     BLOCK   8, 8
  46.  
  47.     some error and warning here
  48.     ld      a,'warn'
  49.  
  50. cnt = 0
  51.     DUP 2
  52.         DUP 3
  53.             db  cnt
  54. cnt = cnt+1
  55.         EDUP
  56.     EDUP
  57.  
  58.     MACRO pokus count1,count2,data
  59.         DUP count1
  60.             DUP count2
  61.                 db data
  62.             EDUP
  63.         EDUP
  64.     ENDM
  65.  
  66.     pokus 2,3,#FF
  67.