Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.         DEVICE ZXSPECTRUM48
  2.         ORG $6000
  3.  
  4. array:
  5.         DB      1       ; maybe "b()" name? not sure about it (can be overridden by LOAD any way)
  6.         DW      4       ; dimension of array?
  7.         DW 0 : D24 1    ; b(1) = 1
  8.         DW 0 : D24 3    ; b(2) = 3
  9.         DW 0 : D24 5    ; b(3) = 5
  10.         DW 0 : D24 1234 ; b(4) = 1234
  11. .sz     EQU     $-array
  12.  
  13.         SAVE3DOS "save3dos_1.bin", array, array.sz, 1
  14.  
  15.     ; not even trying to fake string array, just checking the header for particular w2 + w3 and type=2
  16.         SAVE3DOS "save3dos_1.raw", array, array.sz, 2, 0x3456, 0xABCD
  17.