?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ;;; the example is modified to show bugs in sjasmplus v1.10.4 and to produce binary data for automatic testing
  2.     DEFARRAY myarray 5*13,"B,C\"\\",'X''Y',67,40+28,'e'-32,'F',<'G','H!!!>'>
  3.    ; And the produced data should be ASCII string "AB,C"\X'YCDEFGH!>"
  4.  
  5.     OUTPUT 'po_defarray_B.bin'
  6.  
  7. CNT=0
  8.     DUP 8
  9.     ;; DISPLAY myarray[CNT]  (do not clutter stdout, instead produce BIN)
  10.     db  myarray[CNT]
  11. CNT=CNT+1
  12.     EDUP
  13.