/[projet1]/public/oric/games/Space 1999/Sources/intro/auxiliar.s
Defence Force logotype

Contents of /public/oric/games/Space 1999/Sources/intro/auxiliar.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76 - (show annotations)
Tue May 26 07:45:25 2009 UTC (10 years, 2 months ago) by Chema
File size: 1044 byte(s)


1
2 _sedoric ; invoke a SEDORIC command using black magic
3 ; Watch it! I have reasons to believe this is broken
4 ldy #$0 ; grab string pointer
5 lda (sp),y
6 sta tmp
7 iny
8 lda (sp),y
9 sta tmp+1
10 dey
11
12 sedoricloop1 ; copy the string to #35..#84
13 lda (tmp),y
14 sta $35,y
15 iny
16 ora #$0
17 bne sedoricloop1
18
19 sta $ea ; update the line start pointer
20 lda #$35;
21 sta $e9
22
23 jsr $00e2 ; get next token
24 jmp ($02f5) ; call the ! command handler
25
26
27 ;;;;;;;;;;;;;;;; Routines to manage disk...
28
29 #ifdef0
30 _dbug
31 lda #0
32 dbug
33 beq dbug
34 rts
35 #endif
36 diskcntrl .byt $86
37
38 _switch_eprom
39 lda $0314
40 and #%01111101
41 sta $0314
42 rts
43
44 _switch_ovl
45 php
46 pha
47 sei
48 lda diskcntrl
49 eor #2
50 sta diskcntrl
51 sta $0314
52 pla
53 plp
54 rts
55
56
57
58 _reboot_oric
59 .(
60 lda $0314
61 and #%01111101
62 sta $0314
63
64 ldx #0
65 txs
66
67 jmp $eb7e
68
69 .)
70
71

  ViewVC Help
Powered by ViewVC 1.1.26