Subversion Repositories ngs

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ; LAST UPDATE: 13.01.2024 savelij
  3.  
  4.                 include macros.a80
  5.                 include basic_tokens.a80
  6.  
  7.                 ORG 0x0100 - 0x11
  8.                 SUM_HOB "npl     B", BASIC_FULL, BASIC_FULL, 1
  9.  
  10. BASIC_START     DW 0x100,BASIC_END-STROKA1 + 1
  11. STROKA1         DB __CLEAR,__VAL,"\"24575\":"           ;CLEAR VAL "ADDRESS":
  12.                 DB __LOAD,"\"\"",__CODE,__VAL,"\"33024\":"
  13.                 DB __RANDOMIZE,__USR,__VAL,"\"33024\""  ;RANDOMIZE USR VAL "ADDRESS"
  14.  
  15. BASIC_END       DB 0x0D,0x80,0xAA
  16.                 DW 1                                    ;НОМЕР СТРОКИ ЗАПУСКА
  17.  
  18. BASIC_FULL      EQU BASIC_END - BASIC_START + 1
  19.  
  20.                 DUPL LOW (-$)
  21.