/[projet1]/public/pc/tools/osdk/main/Osdk/_final_/lib2/sedoric.s
Defence Force logotype

Contents of /public/pc/tools/osdk/main/Osdk/_final_/lib2/sedoric.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1154 - (show annotations)
Sun Aug 10 18:19:54 2014 UTC (5 years, 3 months ago) by dbug
File size: 586 byte(s)


1 _sedoric ; invoke a SEDORIC command using black magic
2 ; Watch it! I have reasons to believe this is broken
3 ldy #$0 ; grab string pointer
4 lda (sp),y
5 sta tmp
6 iny
7 lda (sp),y
8 sta tmp+1
9 dey
10
11 sedoricloop1 ; copy the string to #35..#84
12 lda (tmp),y
13 sta $35,y
14 iny
15 ora #$0
16 bne sedoricloop1
17
18 sta $ea ; update the line start pointer
19 lda #$35;
20 sta $e9
21
22 jsr $00e2 ; get next token
23 jmp ($02f5) ; call the ! command handler
24

  ViewVC Help
Powered by ViewVC 1.1.26