home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / GAMES / COLUMSRC / JOY.S < prev    next >
Text File  |  1994-01-09  |  1KB  |  90 lines
  1. MOD_BOX=0
  2. MOD_DECI=0
  3. MOD_HEXA=0
  4.  
  5.     
  6.     INCLUDE GUW_MAC2.S
  7.  
  8. SETBLOCK    MOVE.L    A7,A5
  9.     MOVE.L    #PILE,A7
  10.     MOVE.L    4(A5),A5
  11.     MOVE.L    $C(A5),D0
  12.     ADD.L    $14(A5),D0
  13.     ADD.L    $1C(A5),D0
  14.     ADD.L    #$100,D0
  15.     MOVE.L    D0,-(A7)
  16.     MOVE.L    A5,-(A7)
  17.     MOVE.W    #0,-(A7)
  18.     MOVE.W    #$4A,-(A7)
  19.     TRAP    #1
  20.     ADD.L    #12,A7
  21.     
  22.     bsr    init_joy
  23. loop
  24.     move.w    #$ff,-(a7)
  25.     move.w    #$06,-(a7)
  26.     trap    #1
  27.     addq.l    #4,a7
  28.     cmp.b    #$1b,d0
  29.     beq    fin
  30.     
  31.     move.b    key,d0
  32.     add.w    #$30,d0
  33.     move.b    d0,txt_key+2
  34.     move.l    #txt_key,-(a7)
  35.     move.w    #$9,-(a7)
  36.     trap    #1
  37.     addq.l    #6,a7
  38.     syncro
  39.     syncro
  40.     syncro
  41.     bra    loop
  42. fin
  43.     bsr    restore_joy
  44.     
  45.     move.w    #0,-(a7)
  46.     trap    #1
  47.  
  48.  
  49. init_joy:    appel xbios,34,2
  50.     move.l d0,a0
  51.     move.l 6*4(a0),save_joy
  52.     move.l a0,save_joy+4
  53.     move.l #my_joy,6*4(a0)
  54.     move.l    #joy_param,-(a7)
  55.     move.w    #2,-(a7)
  56.     appel xbios,$19,8
  57.     rts
  58. restore_joy:
  59.     move.l save_joy+4,a0
  60.     move.l save_joy,6*4(a0)
  61.     move.l    #stop_joy,-(a7)
  62.     move.w    #1,-(a7)
  63.     appel xbios,$19,8
  64.     rts
  65.  
  66. my_joy:    
  67.     save d0
  68.     move.b    2(a0),d0
  69.     move.b    d0,key
  70. pas_joy:    load d0
  71.     rts
  72.     
  73.     data
  74. joy_param    dc.b    $12,$1a,$14
  75.     even
  76. stop_joy    dc.b    $1A,$08
  77.  
  78. txt_key    dc.b    $1b,'E',0,0    
  79.     even    
  80. key    dc.b    0
  81.     dc.b    0
  82.     even                                      
  83. save_joy    dc.l    0
  84.     dc.l    0
  85.  
  86.     BSS
  87.     DS.L    100
  88. PILE    DS.L    1
  89. OLD_SP    DS.L    1        
  90.