Subversion Repositories pentevo

Rev

Rev 665 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 665 Rev 961
Line 1... Line 1...
1
 
1
 
2
;LAST UPDATE: 26.06.2014 savelij
2
; LAST UPDATE: 26.06.2021 savelij
3
 
3
 
4
__RND           EQU 0XA5
4
 INIT_VAR 0xA5
-
 
5
 
5
__INKEYS        EQU 0XA6
6
 SETVAR __RND
6
__PI            EQU 0XA7
7
 SETVAR __INKEYS
7
__FN            EQU 0XA8
8
 SETVAR __PI
8
__POINT         EQU 0XA9
9
 SETVAR __FN
9
__SCREENS       EQU 0XAA
10
 SETVAR __POINT
10
__ATTR          EQU 0XAB
11
 SETVAR __SCREENS
11
__AT            EQU 0XAC
12
 SETVAR __ATTR
12
__TAB           EQU 0XAD
13
 SETVAR __AT
13
__VALS          EQU 0XAE
14
 SETVAR __TAB
14
__CODE          EQU 0XAF
15
 SETVAR __VALS
15
__VAL           EQU 0XB0
16
 SETVAR __CODE
16
__LEN           EQU 0XB1
17
 SETVAR __VAL
17
__SIN           EQU 0XB2
18
 SETVAR __LEN
18
__COS           EQU 0XB3
19
 SETVAR __SIN
19
__TAN           EQU 0XB4
20
 SETVAR __COS
20
__ASN           EQU 0XB5
21
 SETVAR __TAN
21
__ACS           EQU 0XB6
22
 SETVAR __ASN
22
__ATN           EQU 0XB7
23
 SETVAR __ACS
23
__LN            EQU 0XB8
24
 SETVAR __ATN
24
__EXP           EQU 0XB9
25
 SETVAR __LN
25
__INT           EQU 0XBA
26
 SETVAR __EXP
26
__SQR           EQU 0XBB
27
 SETVAR __INT
27
__SGN           EQU 0XBC
28
 SETVAR __SQR
28
__ABS           EQU 0XBD
29
 SETVAR __SGN
29
__PEEK          EQU 0XBE
30
 SETVAR __ABS
30
__IN            EQU 0XBF
31
 SETVAR __PEEK
31
__USR           EQU 0XC0
32
 SETVAR __IN
32
__STRS          EQU 0XC1
33
 SETVAR __USR
-
 
34
 SETVAR __STRS
33
__CHRS          EQU 0XC2
35
 SETVAR __CHRS
34
__NOT           EQU 0XC3
36
 SETVAR __NOT
35
__BIN           EQU 0XC4
37
 SETVAR __BIN4
36
__OR            EQU 0XC5
38
 SETVAR __OR
37
__AND           EQU 0XC6
39
 SETVAR __AND
-
 
40
 
38
__LINE          EQU 0XCA
41
 INIT_VAR 0xCA
-
 
42
 
39
__THEN          EQU 0XCB
43
 SETVAR __LINE
40
__TO            EQU 0XCC
44
 SETVAR __THEN
41
__STEP          EQU 0XCD
45
 SETVAR __TO
-
 
46
 SETVAR __STEP
42
__DEFFN         EQU 0XCE
47
 SETVAR __DEFFN
43
__CAT           EQU 0XCF
48
 SETVAR __CAT
44
__FORMAT        EQU 0XD0
49
 SETVAR __FORMAT
45
__MOVE          EQU 0XD1
50
 SETVAR __MOVE
46
__ERASE         EQU 0XD2
51
 SETVAR __ERASE
47
__OPEN          EQU 0XD3
52
 SETVAR __OPEN
48
__CLOSE         EQU 0XD4
53
 SETVAR __CLOSE
49
__MERGE         EQU 0XD5
54
 SETVAR __MERGE
50
__VERIFY        EQU 0XD6
55
 SETVAR __VERIFY
51
__BEEP          EQU 0XD7
56
 SETVAR __BEEP
52
__CIRCLE        EQU 0XD8
57
 SETVAR __CIRCLE
53
__INK           EQU 0XD9
58
 SETVAR __INK
54
__PAPER         EQU 0XDA
59
 SETVAR __PAPER
55
__FLASH         EQU 0XDB
60
 SETVAR __FLASH
56
__BRIGHT        EQU 0XDC
61
 SETVAR __BRIGHT
57
__INVERSE       EQU 0XDD
62
 SETVAR __INVERSE
58
__OVER          EQU 0XDE
63
 SETVAR __OVER
59
__OUT           EQU 0XDF
64
 SETVAR __OUT
60
__LPRINT        EQU 0XE0
65
 SETVAR __LPRINT
61
__LLIST         EQU 0XE1
66
 SETVAR __LLIST
62
__STOP          EQU 0XE2
67
 SETVAR __STOP
63
__READ          EQU 0XE3
68
 SETVAR __READ
64
__DATA          EQU 0XE4
69
 SETVAR __DATA
65
__RESTORE       EQU 0XE5
70
 SETVAR __RESTORE
66
__NEW           EQU 0XE6
71
 SETVAR __NEW
67
__BORDER        EQU 0XE7
72
 SETVAR __BORDER
68
__CONTINUE      EQU 0XE8
73
 SETVAR __CONTINUE
69
__DIM           EQU 0XE9
74
 SETVAR __DIM
70
__REM           EQU 0XEA
75
 SETVAR __REM
71
__FOR           EQU 0XEB
76
 SETVAR __FOR
72
__GOTO          EQU 0XEC
77
 SETVAR __GOTO
73
__GOSUB         EQU 0XED
78
 SETVAR __GOSUB
74
__INPUT         EQU 0XEE
79
 SETVAR __INPUT
75
__LOAD          EQU 0XEF
80
 SETVAR __LOAD
76
__LIST          EQU 0XF0
81
 SETVAR __LIST
77
__LET           EQU 0XF1
82
 SETVAR __LET
78
__PAUSE         EQU 0XF2
83
 SETVAR __PAUSE
79
__NEXT          EQU 0XF3
84
 SETVAR __NEXT
80
__POKE          EQU 0XF4
85
 SETVAR __POKE
81
__PRINT         EQU 0XF5
86
 SETVAR __PRINT
82
__PLOT          EQU 0XF6
87
 SETVAR __PLOT
83
__RUN           EQU 0XF7
88
 SETVAR __RUN
84
__SAVE          EQU 0XF8
89
 SETVAR __SAVE
85
__RANDOMIZE     EQU 0XF9
90
 SETVAR __RANDOMIZE
86
__IF            EQU 0XFA
91
 SETVAR __IF
87
__CLS           EQU 0XFB
92
 SETVAR __CLS
88
__DRAW          EQU 0XFC
93
 SETVAR __DRAW
89
__CLEAR         EQU 0XFD
94
 SETVAR __CLEAR
90
__RETURN        EQU 0XFE
95
 SETVAR __RETURN
91
__COPY          EQU 0XFF
96
 SETVAR __COPY