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

Diff of /public/pc/tools/osdk/main/Osdk/_final_/lib/grsimple.s

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1001 by dbug, Sun May 24 19:53:20 2009 UTC revision 1002 by dbug, Sun Dec 8 10:50:26 2013 UTC
# Line 1  Line 1 
1  ; Simple graphics/sound/keyboard functions  ; Simple graphics/sound/keyboard functions
2    
3    
4            ;
5  _key  ; The idea is that at some point we will implement the correct address on Oric 1
6          jsr $023B       ; get key without waiting. If not available  ; and add some machine detection that will use the jump location.
7          bpl key001      ; return 0  ;
8          jmp grexit2  _hires          jmp $ec33      
9  key001            _text           jmp $ec21
10          lda #0  _ping           jmp $fa9f
11          jmp grexit2  _shoot          jmp $fab5
12            _zap            jmp $fae1
13    _explode        jmp $facb
14  _get  _kbdclick1      jmp $fb14
15          jsr $023B       ; blatantly ripped off Fabrice's getchar  _kbdclick2      jmp $fb2a
16          bpl _get        ; loop until char available  _cls            jmp $ccce
17          jmp grexit2     ; rip off Vaggelis' code as well, and exit.  _lores0         jmp $d9ed
18    _lores1         jmp $d9ea
19    
20            
21    _key
22            jsr $023B       ; get key without waiting. If not available
23            bpl key001      ; return 0
24            jmp grexit2
25    key001          
26            lda #0
27            jmp grexit2
28            
29    
30    _get
31            jsr $023B       ; blatantly ripped off Fabrice's getchar
32            bpl _get        ; loop until char available
33            jmp grexit2     ; rip off Vaggelis' code as well, and exit.
34    

Legend:
Removed from v.1001  
changed lines
  Added in v.1002

  ViewVC Help
Powered by ViewVC 1.1.26