Subversion Repositories pentevo

Rev

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

  1. SYSVAR
  2.   ;для выхода через RST8, а не RET
  3.   ;предварительно CLEAR? не надо
  4. ;1.стандартный стек 24 байта
  5. ;2.RAMTOP=SP+23 и ERR_SP=RAMTOP-3
  6. ;3.цвета
  7. ;4.K_SCAN FF,3*0,FF,3*0 и параметры клавы
  8. ;5.флаги
  9. ;6.CHARS=3C00
  10. ;7.DF_SZ=2
  11. ;8.начало бейсика:PROG=0X5D3B,там 0X80
  12. ;9.VARS=0X5D3B,E_LINE=VARS+1,WORKSP=VARS+3,STKBOT=STKEND=VARS+15
  13. ;A.потоки и каналы
  14. ;B.перем.DOS(CALL 15649)
  15.  
  16. ;1..A - скопировать из ПЗУ 0X1200..1291?
  17.          ;не нужно
  18.         ;нужно
  19.        ;хз
  20.    ;старый бейсик
  21.        DB       -1,0,0,0,-1,0,0,0
  22.         DB      0,16,1 ;LAST_K,REPDEL,REPPER
  23.          DW     0 ;DEFADD
  24.          DB     0 ;K_DATA
  25.          DW     0&0X11 ;TVDATA
  26.         DW      1,6,11,1,1,6,16 ;STRMS
  27. SYS1LN  EQU $-SYSVAR
  28.         ;пропускаем резидент аласма
  29. SYSVAR2
  30.         PHASE   23606
  31.  
  32.         DW      0X3C00 ;CHARS
  33.         DB      0X40,0 ;RASP,PIP
  34.         DB      -1,0XCC,1 ;ERR_NR,FLAGS,TV_FLAG
  35.         DW      0X5FFC ;ERR_SP
  36.          DW     0 ;LIST_SP
  37.        DB       0 ;MODE
  38.          DW     0&1 ;NEWPPC
  39.          DB     0&0XFF ;NSPPS
  40.        DW       0&0XFFFE ;PPC
  41.          DB     0&1 ;SUBPPC
  42.         DB      7 ;BORDCR
  43.          DW     0&3 ;E_PPC
  44.    DW   0X5D3B ;VARS
  45.          DW     0 ;DEST
  46.         DW      0X5D26 ;CHANS
  47.          DW     0&0X5D26 ;CURCHL
  48.    DW   0X5D3B ;PROG
  49.        DW       0X5D48 ;NXTLIN
  50.        DW       0X5D3A ;DATADD
  51.    DW   0X5D3C ;E_LINE
  52.        DW       0X5D41 ;K_CUR
  53.         DW      TRUNCH;0X5D47 ;CH_ADD
  54.          DW     0&0XB9 ;X_PTR
  55.    DW   0X5D3E,0X5D4A,0X5D4A ;WORKSP,STKBOT,STKEND
  56.          DB     0&45 ;BREG
  57.         DW      23698 ;MEM
  58.         DB      0;не 0X18 ;FLAGS2
  59.         DB      2 ;DF_SZ
  60.          DW     0,0&3 ;S_TOP,OLDPPC
  61.          DB     0&4 ;OSPCC
  62.          DB     0 ;FLAGX
  63.          DW     0 ;STRLEN
  64.          DW     0&0X1AB6 ;T_ADDR
  65.          DW     0 ;SEED
  66.          DB     0,0,0 ;FRAMES
  67.         DW      0XFF58 ;UDG
  68.          DW     0 ;COORDS
  69.        DB       33 ;P_POSN
  70.         DW      0X5B00 ;PR_CC
  71.          DW     0&0X1721 ;ECHO_E
  72.          DW     0&0X4000 ;DF_CC
  73.        DW       0X50E0 ;DFCCL
  74.        DB       33,24 ;S_POSN
  75.        DB       33,23 ;SPOSNL
  76.        DB       1 ;STR_CT
  77.  
  78.         DB      7,0 ;ATTR_P,MASK_P
  79.         DB      7,0 ;ATTR_T,MASK_T
  80.  
  81.         DB      0 ;P_FLAG
  82.          DUPL   30,0
  83.          DW     0 ;NMIADD
  84.         DW      0X5FFF,0XFFFF ;RAMTOP,P_RAMT
  85.  
  86.         DB      0XF4 ;некий признак наличия переменных TR-DOS
  87. SYS2L1  EQU $-23606
  88.      ;;; DS 11
  89.         ;DB 9,0XA8,0X10,"K",0XF4,9,0XC4,0X15,"S",0X81,0XF
  90.      ;;;DB 0XC9
  91.  
  92.      ;;; DS 2 ;DW ONERR запарывается GLURD1F'ом
  93.         ;DB 0X15,"R"
  94.  
  95.      ;;; DS 3
  96.         ;DB 0XF4,9,0XC4
  97.         DEPHASE
  98.      PHASE      0X5CC8
  99. SYS2P2
  100.         DB      -1,-1,-1,-1
  101.         DB      0,0,0
  102. SYS2L2  EQU $-SYS2P2
  103.      ;;; DW 0&0XE37
  104.      ;;; DB 0,0,0&0XED,0,0
  105.      DEPHASE
  106.      PHASE      0X5CD6
  107. SYS2P3
  108.         DB      0
  109.          DW     0&0X5CDB
  110.          DW     0&0X5D3D
  111.          DW     0&0XD6
  112.         DB      "noname  C" ;нечто символьное, для отлаж-мых прог
  113.          DW     0&0XD1,0&0XD1
  114.  
  115.          DB     0,0,0
  116.         ;DB 47,5,4
  117.  
  118.          DW     0
  119.         DB      0
  120.          DB     0,0,0,0
  121.          DW     0&0X909
  122.         DB      0
  123.          DB     0,0,0
  124.         DB      8,8,8,8
  125.          DB     0&0X80
  126.          DB     0&8
  127.          DW     0&0XFF00
  128.          DW     0&0X5D3D
  129.          DW     0&0X31C6
  130.         DB      9
  131. SYS2L3  EQU $-SYS2P3
  132.      ;;; DB 0,0,0,0,0
  133.      DEPHASE
  134.      PHASE      0X5D0C
  135. SYS2P4
  136.         DB      0XFF
  137.          DB     0
  138.        DB       0
  139.         DW      0
  140.          DW     0&0X5D3C
  141.        DW       0X5FFD
  142.         DB      0
  143.         DB      0&0X2C
  144.        DB       0XAA
  145.        DB       0
  146.         DB      0
  147.        DW       0X2CB
  148.        DW       0X5FE7
  149.          DB     0&1,0
  150. SYS2L4  EQU $-SYS2P4
  151.     ;;;  DB 0,0,0
  152.         ;DB 0XFE,0XD,0X80
  153.  
  154.     ;;;DB 0,0,0XFF
  155.     DEPHASE
  156.      PHASE      0X5D26
  157. SYS2P5
  158.         DW      0X9F4,0X10A8
  159.         DB      "K"
  160.         DW      0X9F4,0X15C4
  161.         DB      "S"
  162.         DW      0XF81,0X15C4
  163.         DB      "R"
  164.         DW      0X9F4,0X15C4
  165.         DB      "P"
  166.         DB      0X80
  167. ;бейсик желательно убивать опционально!
  168.         DB      0X80
  169. TRUNCH  DB      0XEA ;REM
  170.         DB      ":"
  171.         DB      0XF7 ;RUN
  172.         DB      0X22
  173. TRUNNM  DUPL    8,0
  174.         DB      0X22
  175.         DB      0XD
  176.         DB      0X80
  177. TRUNEN
  178. SYS2L5  EQU $-SYS2P5
  179.  
  180.         DEPHASE
  181.