-
Notifications
You must be signed in to change notification settings - Fork 5
Expand file tree
/
Copy pathlibbasic.s
More file actions
78 lines (64 loc) · 1.95 KB
/
Copy pathlibbasic.s
File metadata and controls
78 lines (64 loc) · 1.95 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
;) _
;) ___ ___ _ _|_|___ ___
;) | _| .'|_'_| |_ -|_ -|
;) |_| |__,|_,_|_|___|___|
;) raxiss (c) 2021
;)
;) GNU General Public License v3.0
;) See https://github.com/iss000/oricOpenLibrary/blob/main/LICENSE
;)
; ======================================================================
; libbasic code
; ======================================================================
atmos_exec = $c4bd
oric1_exec = $c4cd
; ----------------------------------------------------------------------
; Change ROM addres fpr Oric-1
; ----------------------------------------------------------------------
_exec = atmos_exec
; ----------------------------------------------------------------------
__basic_r .byt 0,0
__basic_s .byt 0,0
; ----------------------------------------------------------------------
__basic lda $02f5
sta basic_next+1
lda $02f5+1
sta basic_next+2
lda $001b
sta __basic_r
lda $001b+1
sta __basic_r+1
lda #<basic_ret
sta $001b
lda #>basic_ret
sta $001b+1
lda __basic_s
sta $00
lda __basic_s+1
sta $00+1
:.(
ldy #$00
loop lda ($00),y
sta $0035,y
beq fin
iny
cpy #$50
bcc loop
fin ldx #<$0034
ldy #>$0034
:.)
jmp _exec
; ----------------------------------------------------------------------
basic_next jmp $dead
; ----------------------------------------------------------------------
basic_ret lda basic_next+1
sta $02f5
lda basic_next+2
sta $02f5+1
lda __basic_r
sta $001b
lda __basic_r+1
sta $001b+1
pla
pla
rts