Subversion Repositories NedoOS

Rev

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

  1. ;;; the example is slightly modified to produce some actual binary data for automatic testing
  2.     DEFARRAY myarray 5*13,"B",67,40+28,'e'-32,'F'
  3.     ; And the produced data should be ASCII string "ABCDEF"
  4.  
  5.     OUTPUT 'po_defarray.bin'
  6.  
  7. CNT=0
  8.     DUP 6
  9.     ;; DISPLAY myarray[CNT]  (do not clutter stdout, instead produce BIN)
  10.     db  myarray[CNT]
  11. CNT=CNT+1
  12.     EDUP
  13.