?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     ;; Example 1
  2.  
  3.         STRUCT  SCOLOR
  4. RED     BYTE 4
  5. GREEN   BYTE 5
  6. BLUE    BYTE 6
  7.         ENDS
  8.  
  9.     ASSERT SCOLOR.RED == 0 && SCOLOR.GREEN == 1 && SCOLOR.BLUE == 2 && SCOLOR == 3
  10.  
  11.     ;; Example 2
  12.  
  13.         STRUCT SDOT
  14. X       BYTE
  15. Y       BYTE
  16. C       SCOLOR 0,1,0 ; use new default values
  17.         ENDS
  18.  
  19.     ASSERT SDOT.X == 0 && SDOT.Y == 1 && SDOT.C == 2 && SDOT.C.RED == 2
  20.     ASSERT SDOT.C.GREEN == 3 && SDOT.C.BLUE == 4 && SDOT == 5
  21.  
  22.     ;; Example 3
  23.  
  24.         STRUCT SPOS,4
  25. X       WORD
  26. Y       BYTE
  27.         ALIGN 2
  28. AD      WORD
  29.         ENDS
  30.  
  31.     ASSERT SPOS.X == 4 && SPOS.Y == 6 && SPOS.AD == 8 && SPOS == 10
  32.  
  33.     ;; Example 4 (instancing)
  34.         DEVICE  ZXSPECTRUM48
  35.         ORG     0x8000
  36. COLOR   SCOLOR                  ; set by default to { 4, 5, 6 }
  37.  
  38.         ld      a,(COLOR.BLUE)  ; A = 6 (loading value from memory address "0x8002")
  39.  
  40. COLORTABLE      ; without labels per item
  41.         SCOLOR  0,0,0           ; { 0, 0, 0 }
  42.         SCOLOR  1,2,3           ; { 1, 2, 3 }
  43.         SCOLOR  ,2              ; { 4, 2, 6 }
  44.  
  45. DOT1    SDOT    0,0, 0,0,0      ; X:0, Y:0, C = { 0, 0, 0 }
  46.         SDOT    {1,2, {3,4,5}}  ; X:1, Y:2, C = { 3, 4, 5 }
  47.         SDOT    {6,7 {,,8}}     ; X:6, Y:7, C = { 0, 1, 8 } (overriden defaults + 8)
  48.  
  49.         SAVEBIN "c_structures.tap", COLOR, $-COLOR
  50.  
  51.         ORG     0x8000
  52.  
  53. POS1    SPOS    0x1234, 0x56, 0x789A
  54.         ; 4Bx old_value (to reach offset 4), X:0x1234, Y:0x56, 1Bx old_value, AD:0x789A
  55.  
  56.         SAVEBIN "c_structures.bin", POS1, SPOS
  57.